Thread: [DUVIDA] Blue eye macro esta funcionando?

Hello, I wonder if the blue eye macro still works? Was not

Is there another perfect fishing?


Thank you.


Ola, gostaria de saber, se o Blue eye macro ainda funciona?se nao

Tem algum outro perfect fishing?


Obrigado.

Desculpe esqueci de por o titulo em ingles.

O Blue ta funfando sim,só da uma pesquisada ai no forum que tu acha.
Até agora nao existe pesca perfeita nao,mais 70/80% de perfect com o macro certo tu consegue.

Tenta esse aqui.

Code:

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

Ai voce vai mudando a variavel que chega a 85% de perfect.


The Blue ta funfando yes, just the one searched the forum there that you think.
So far there is not perfect fishing not more 70/80% of perfect with the right macro you can.

Code:

 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

Woe to you who is changing the variable reaches 85% of perfect.

Desculpa o ingles do google tradutor.