Thread: Ultimate Fishing /w Blue Eye Macro 2.5 Aika [3 in 1]

EN:

Spoiler

First I should point out that this is an update for all the posts about fishing and the B.E.M. in just one post.

1 Installing Blue Eye Macro (V2.5) and avoiding Xtrap (functional in 64 bits)

Spoiler

1a. Download link (Blue Eye Macro - CNET Download.com)
1b. Install with a different folder name (eg C: \ Program Files (x86) \ AAA)
1c. Run the program (with aika closed) (always run the program as administrator).
1d. Go to General / Settings / Input / and click install (to install the driver). Done that restart COMPUTER (IF ALREADY BEEN INSTALLED SKIP THIS STEP)
1e. Open the program again, and go to General / Settings / Input / and SELECT the TWO Virtual drivers, switch to Screen tab and uncheck Enable DirectX. Save and close the program.
1f. Open Aika and when loading the login screen, run the B.E.M. Wait detection Xtrap and close everything.
1g. Rename the folder that is installed B.E.M. for any other size, name or letters you wish (eg AAA for ATPWEO)
1h. Open the program again, and go to General / Settings / Input / and SELECT the TWO Virtual drivers, switch to Screen tab and uncheck Enable DirectX. Save and close the program.
1i. Open Aika and when loading the login screen, run the B.E.M. BUT THIS TIME WILL NOT BE DETECTED. Login and go fishing.
1j. Whenever you reopen the B.E.M. repeat steps 1f/1g/1h/1i

2 Creating your fishing 100% Perfect

Spoiler

2a. Open B.E.M. and go to Developer / Create
2b. Choose a name and a category (eg Name: Pesca Perfeita / Category: Aika
2c. Tick ​​the Infinite
2d. Enter the code below:

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

Note1: functional with any configuration of video and / or window size.
Note2: the fishing rod may be in any part of the screen which is not provided with any overlapping. (Efficiency is advised to leave it at the top left of the screen, thus avoiding the call screen battle or training) (the bot will continue fishing even though those windows on the screen).
Note 3: If you are not experiencing the perfects, change the colors on 106,133,250 and 196,236,198. You may find your colors in Tools / Investigate, run fishing and when the bar appears to take a PrintScreen, click the bar higher image below in the program and will have the colors, note, click the bar and have lower image below in program colors also note. Edit Your fishing macro replacing the RGB codes.

3 Reactivating B.E.M. without external programs.

Spoiler

https://progamercity.net/software-ha...planation.html
Posted by DemonWhite

PT:

Spoiler

Primeiro gostaria de salientar que isto é um update para todos os posts sobre pesca e sobre o B.E.M. em apenas 1 post.

1 Instalando o Blue Eye Macro (V2.5) e evitando o Xtrap (funcional em 64 bits)

Spoiler

1a. Faça o Download aqui (Blue Eye Macro - CNET Download.com)
1b. Instale com um nome diferente de pasta (ex.: C:\Program Files (x86)\AAA)
1c. Execute o programa (com o aika fechado) (sempre execute o programa como administrador).
1d. Vá em General/Settings/Input/ e clique em instalar (para instalar o driver). Feito isso reinicie o COMPUTADOR (SE JÁ TIVER INSTALADO PULE ESTA ETAPA)
1e. Abra novamente o programa, e vá em General/Settings/Input/ e SELECIONE os DOIS Virtual drivers, mude para aba Screen e DESMARQUE Enable DirectX. Salva e fecha o programa.
1f. Abra o Aika e quando carregar a tela de login, execute o B.E.M. Aguarde até a detecção do Xtrap e feche tudo.
1g. Renomeie a pasta que está instalado o B.E.M. para qualquer outro nome do tamanho ou letras que desejar (Ex.: de AAA para ATPWEO)
1h. Abra novamente o programa, e vá em General/Settings/Input/ e SELECIONE os DOIS Virtual drivers, mude para aba Screen e DESMARQUE Enable DirectX. Salve e feche o programa.
1i. Abra o Aika e quando carregar a tela de login, execute o B.E.M. PORÉM DESTA VEZ NÃO SERÁ DETECTADO. Logue e vá para pesca.
1j. Sempre que for abrir novamente o B.E.M. repita os passos 1f/1g/1h/1i
Assim que possível postarei um video para facilitar

2 Criando sua pesca 100% Perfect

Spoiler

2a. Abra o B.E.M. e vá em Developer/Create
2b. Escolha um nome e uma categoria (ex. Nome: Pesca Perfeita / Categoria: Aika
2c. Marque o campo Infinite
2d. Insira o código abaixo:

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

Obs1: funcional com qualquer configuração de vídeo e/ou tamanho de janela.
Obs2: a barra de pesca pode estar em qualquer parte da tela contanto que não esteja com nada sobrepondo. (para eficiência aconselha-se deixa-la no canto superior esquerdo da tela, evitando assim a tela da chamada da batalha ou treinamento) (o bot continuará pescando mesmo tendo essas janelas na tela).
Obs3: caso não estejam ocorrendo os perfects, alterem as cores em 106,133,250 e 196,236,198. Você poderá descobrir suas cores em Tools/Investigate, execute o comando de pesca e quando a barra aparecer tire uma PrintScreen, clique na barra maior da imagem e terá abaixo no programa as cores, anote, clique na barra menor da imagem e terá abaixo no programa as cores, também anote. Edite a sua macro de pesca substituindo os códigos RGB.

3 Reativando o B.E.M. sem programas externos.

Spoiler

https://progamercity.net/software-ha...planation.html
Postado por DemonWhite

Not working, the Xtrap detects even doing exactly as you said!

Hmm.. I'm trying to config it, I'll edit this post later.
Huum.. to tentando configurar aqui, mais tarde eu edito esse post.

Thank aki gets perfectly

---------- Post added at 09:30 PM ---------- Previous post was at 09:21 PM ----------

makes a video explaining and using vc help enough who is getting n

Portugues:

Pra quem não ta conseguindo os "Perfect", basta fazer o seguinte:

Basta verificar onde a barra de acerto tá parando:

Se a barra parar do lado esquerdo, basta almentar o valor onde está o numero "1", e se estiver parando do lado direito, basta diminuir.

if Color.Near coordinate is within (RGB range)("196", "236", "198", "1", "{x}",

Exemplo: no meu caso estava parando do lado esquerdo, e eu almentei para 56, e agora tenho cerca de 99% de Perfect.

if Color.Near coordinate is within (RGB range)("196", "236", "198", "56", "{x}",

Espero ter ajudado

Google Translater:

For those who do not ta achieving the "Perfect", just do the following:

Just check where the bar hit're stopping:

If the stop bar on the left, just almentar value where the number "1", and if you are stopped on the right side, just decrease.

if Color.Near coordinate is within (RGB range) ("196", "236", "198", "1", "{x } "

Example: in my case was stopping on the left, and I almentei to 56, and now have about 99% of Perfect.

if Color.Near coordinate is within (RGB range) ("196", "236", "198", "56", "{x } "

Hope this helps