Scribd
Upload
22 views

Bot Pesca

This document contains macros for the Blue Eye Macro program to automate fishing in an unspecified game. The main macro presses the 1 key to start fishing and then calls the "fish" function, which uses color detection to continuously cast the fishing line and check for a catch over a period of 5 seconds. Keyboard shortcuts and mouse clicks are used to automate the fishing process. Color detection, coordinates, and loops are implemented to scan the screen and simulate fishing gameplay.

Uploaded by

Maicon Andrade
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
22 views

Bot Pesca

This document contains macros for the Blue Eye Macro program to automate fishing in an unspecified game. The main macro presses the 1 key to start fishing and then calls the "fish" function, which uses color detection to continuously cast the fishing line and check for a catch over a period of 5 seconds. Keyboard shortcuts and mouse clicks are used to automate the fishing process. Color detection, coordinates, and loops are implemented to scan the screen and simulate fishing gameplay.

Uploaded by

Maicon Andrade
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 3

http://softadvice.informer.com/Blue_Eye_Macro_2.5_Aika.

html
ICE_BomBer 13:46:18
http://www.youtube.com/watch?v=1P-epG4tyKU
ICE_BomBer 13:47:41
begin
“pesca

Keyboard.Hold keys("{<1>}")
Keyboard.Press key("1")
Keyboard.Release keys("{<1>}")
Color.Limit area of interest to coordinates("{FishingBarX}", "{FishingBarY}", "336", "28")
Mouse.Click("Left")
Macro.Pause("4500")
Function.Execute with timeout("fish", "5000")
Keyboard.Press key("{<space>}")
Macro.Pause("100")
end

function("fish")
begin
begin loop()
if Color.Can be located on screen (RGB)("106", "133", "250", "5")
begin
Color.Find coordinate of first occurrence (RGB)("106", "133", "250", "5", "x", "y")
begin loop()
Variable.Add (Math)("x", "{Displacement}")
if Color.Near coordinate is within (RGB range)("196", "236", "198", "1", "{x}", "{y}", "30")
begin
Macro.Break from loop("no")
end
end
Macro.Break from loop("no")
end
end
end
function
ICE_BomBer 13:45:39
http://softadvice.informer.com/Blue_Eye_Macro_2.5_Aika.html
ICE_BomBer 13:46:18
http://www.youtube.com/watch?v=1P-epG4tyKU
ICE_BomBer 13:47:41
begin
Keyboard.Hold keys("{<1>}")
Keyboard.Press key("1")
Keyboard.Release keys("{<1>}")
Color.Limit area of interest to coordinates("{FishingBarX}", "{FishingBarY}", "336", "28")
Mouse.Click("Left")
Macro.Pause("4500")
Function.Execute with timeout("fish", "5000")
Keyboard.Press key("{<space>}")
Macro.Pause("100")
end

function("fish")
begin
begin loop()
if Color.Can be located on screen (RGB)("106", "133", "250", "5")
begin
Color.Find coordinate of first occurrence (RGB)("106", "133", "250", "5", "x", "y")
begin loop()
Variable.Add (Math)("x", "{Displacement}")
if Color.Near coordinate is within (RGB range)("196", "236", "198", "1", "{x}", "{y}", "30")
begin
Macro.Break from loop("no")
end
end
Macro.Break from loop("no")
end
end
end
function
ICE_BomBer 13:48:12
k
ICE_BomBer 13:48:19
outro em baixo
ICE_BomBer 13:48:21
begin
Keyboard.Hold keys("{<1>}")
Keyboard.Press key("1")
Keyboard.Release keys("{<1>}")
Color.Limit area of interest to coordinates("{FishingBarX}", "{FishingBarY}", "336", "28")
Mouse.Click("Left")
Macro.Pause("4000")
Function.Execute with timeout("fish", "5000")
Keyboard.Press key("{<space>}")
Macro.Pause("100")
end

function("fish")
begin
begin loop()
if Color.Can be located on screen (RGB)("106", "133", "250", "5")
begin
Color.Find coordinate of first occurrence (RGB)("106", "133", "250", "5", "x", "y")
begin loop()
Variable.Add (Math)("x", "{Displacement}")
if Color.Near coordinate is within (RGB range)("196", "236", "198", "1", "{x}",
"{y}", "30")
begin
Macro.Break from loop("no")
end
end
Macro.Break from loop("no")
end
end
end
function

You might also like