Bot perfect for fishing
I'm here to inform you that I have a bot to fishing without worrying about fish that I'm automatically going to you just the perfect and put your bait in place because you should only be with your aika open and put the fishing rod in the corner upper left, just that!
To run the program you need Blue Eye Macro Version 2.5!
Thank you!
Script:
Code:
begin
Keyboard.Press key("1")
Color.Limit area of interest to coordinates("15", "10", "340", "20")
Mouse.Click("Left")
Macro.Pause("4000")
Function.Execute with timeout("fish", "7000")
Keyboard.Press key("{<space>}")
Macro.Pause("100")
end
function("fish")
begin
begin loop()
if Color.Can be located on screen (RGB)("108", "140", "239", "10")
begin
Color.Find coordinate of first occurrence (RGB)("108", "140", "239", "10", "x", "y")
Variable.Add (Math)("x", "06")
begin loop()
if Color.Near coordinate is within (RGB range)("184", "237", "206", "20", "{x}", "{y}", "25")
begin
Macro.Break from loop("no")
end
end
Macro.Break from loop("no")
end
end
end
function
Português
Estou aqui para informar que possuo um bot para pescar sem se preocupar em pescar automaticamente esse que estou passando a vocês apenas da Perfeito e de colocar a sua isca no local devido você apenas deve estar com seu aika aberto e colocar a barra de pesca no canto superior a esquerda, apenas isso!
Para funcionar você precisa do Programa Blue Eye Macro Versão 2.5!
Obrigado!
Script:
begin
Keyboard.Press key("1")
Color.Limit area of interest to coordinates("15", "10", "340", "20")
Mouse.Click("Left")
Macro.Pause("4000")
Function.Execute with timeout("fish", "7000")
Keyboard.Press key("{<space>}")
Macro.Pause("100")
end
function("fish")
begin
begin loop()
if Color.Can be located on screen (RGB)("108", "140", "239", "10")
begin
Color.Find coordinate of first occurrence (RGB)("108", "140", "239", "10", "x", "y")
Variable.Add (Math)("x", "06")
begin loop()
if Color.Near coordinate is within (RGB range)("184", "237", "206", "20", "{x}", "{y}", "25")
begin
Macro.Break from loop("no")
end
end
Macro.Break from loop("no")
end
end
end
function