Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Thu Nov 21, 2024 8:00 pm

All times are UTC




Post new topic Reply to topic  [ 3 posts ] 
Author Message
 Post subject: My version of fishing macro with pauses and breaks
Thanked: 1 time(s)  Unread post Posted: Wed Dec 11, 2013 1:14 am 
New User
New User
User avatar



Joined: Wed Feb 22, 2012 10:55 am
Posts: 2
Been thanked: 1 time(s)
Has thanked: 0 time(s)
Contribution Points: 51
This is my version of the macro for fishing.
There is a tiny delay between casts to simulate human nature.
It pauses for 2-10 minutes after fishing 500 to 700 times (random amount) to simulate a player break.

Mainly remember.
Put the casting target in top left of screen.
Turn off click to run in game Options.
In keyboard options change jump to something other than the space bar.
Code:
 // Instructions:
 // In BlueEye, set Loops to infinite and enable triggers to start and stop the macro.
 // The game has to be in full screen mode.
 // In Aika UI Options, turn off Click to Run.
 // In Aika UI Options, assign jump key to anything other than the space bar.
 // After starting, place the fishing bar all the way at the top left of the screen.
 begin
     Macro.Pause("500")
     Variable.Set random number("count", "1", "200")
     begin loop()
          Variable.Add (Math)("count", "1")
          Macro.Pause("1000")
          Keyboard.Press key("f")
          Variable.Set random number("ms", "100", "300")
          Macro.Pause("{ms}")
          Color.Limit area of interest to coordinates("0", "0", "336", "28")
          Mouse.Click("Left")
          Macro.Pause("5000")
          Function.Execute with timeout("fish", "4500")
          Keyboard.Press key("{<space>}")
          Variable.Set random number("ms", "200", "1000")
          Macro.Pause("{ms}")
          // begin taking a break from fishing for 2 - 10 minutes after fishing 500 - 700 times
          if  Variable.Is greater than (Math)("count", "700")
               begin
                    Variable.Set random number("ms", "120000", "600000")
                    Macro.Pause("{ms}")
                    Variable.Set random number("count", "1", "200")
               end
     end
 end

function("fish")
     begin
          begin loop()
               if  Color.Can be located on screen (RGB)("113", "147", "254", "5")
                    begin
                         Color.Find coordinate of first occurrence (RGB)("113", "147", "254", "5", "x", "y")
                         begin loop()
                              // Variable.Add (Math)("x", "3")
                              if  Color.Near coordinate is within (RGB range)("204", "238", "198", "5", "{x}", "{y}", "25")
                                   begin
                                        Macro.Break from loop("no")
                                   end
                         end
                         Macro.Break from loop("no")
                    end
          end
     end
function
 


Top
 Profile  
Reply with quote  
 Post subject: Re: My version of fishing macro with pauses and breaks
Thanked: 1 time(s)  Unread post Posted: Wed Jan 15, 2014 8:04 am 
Moderator
Moderator



Joined: Tue Feb 05, 2013 5:45 am
Posts: 280
Been thanked: 50 time(s)
Has thanked: 11 time(s)
Contribution Points: 5372
rykerabel wrote:
This is my version of the macro for fishing.
There is a tiny delay between casts to simulate human nature.
It pauses for 2-10 minutes after fishing 500 to 700 times (random amount) to simulate a player break.

Mainly remember.
Put the casting target in top left of screen.
Turn off click to run in game Options.
In keyboard options change jump to something other than the space bar.
Code:
 // Instructions:
 // In BlueEye, set Loops to infinite and enable triggers to start and stop the macro.
 // The game has to be in full screen mode.
 // In Aika UI Options, turn off Click to Run.
 // In Aika UI Options, assign jump key to anything other than the space bar.
 // After starting, place the fishing bar all the way at the top left of the screen.
 begin
     Macro.Pause("500")
     Variable.Set random number("count", "1", "200")
     begin loop()
          Variable.Add (Math)("count", "1")
          Macro.Pause("1000")
          Keyboard.Press key("f")
          Variable.Set random number("ms", "100", "300")
          Macro.Pause("{ms}")
          Color.Limit area of interest to coordinates("0", "0", "336", "28")
          Mouse.Click("Left")
          Macro.Pause("5000")
          Function.Execute with timeout("fish", "4500")
          Keyboard.Press key("{<space>}")
          Variable.Set random number("ms", "200", "1000")
          Macro.Pause("{ms}")
          // begin taking a break from fishing for 2 - 10 minutes after fishing 500 - 700 times
          if  Variable.Is greater than (Math)("count", "700")
               begin
                    Variable.Set random number("ms", "120000", "600000")
                    Macro.Pause("{ms}")
                    Variable.Set random number("count", "1", "200")
               end
     end
 end

function("fish")
     begin
          begin loop()
               if  Color.Can be located on screen (RGB)("113", "147", "254", "5")
                    begin
                         Color.Find coordinate of first occurrence (RGB)("113", "147", "254", "5", "x", "y")
                         begin loop()
                              // Variable.Add (Math)("x", "3")
                              if  Color.Near coordinate is within (RGB range)("204", "238", "198", "5", "{x}", "{y}", "25")
                                   begin
                                        Macro.Break from loop("no")
                                   end
                         end
                         Macro.Break from loop("no")
                    end
          end
     end
function
 


Thanks for sharing. I play AIKA too :) but never got lucky for fishing so never bother to write a bot for it.

_________________
Heavy Duty Mod, always watching with both eyes open 8-)

Please --- Please --- Please DO NOT reply to spam thread/post.
I will give you CP if you report spam thread/post instead of replying to it. :)

Click Here>> Let's make BEM forum out of spammers

-------------------------
Check out my Bots
-------------------------

Auto login to the game


Top
 Profile  
Reply with quote  
 Post subject: Re: My version of fishing macro with pauses and breaks
Thanked: 0 time(s)  Unread post Posted: Mon Nov 24, 2014 5:42 pm 
Contributor
Contributor



Joined: Thu Nov 13, 2014 7:49 pm
Posts: 66
Been thanked: 32 time(s)
Has thanked: 23 time(s)
Contribution Points: 53
Is cool


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 3 posts ] 

All times are UTC


You cannot post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Jump to:  


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group