Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Tue Dec 11, 2018 8:41 am

All times are UTC




Post new topic Reply to topic  [ 216 posts ]  Go to page Previous  1 ... 18, 19, 20, 21, 22
Author Message
 Post subject: Re: Working Fishing Bot
Thanked: 0 time(s)  Unread post Posted: Tue Mar 13, 2018 3:42 pm 
New User
New User



Joined: Tue Mar 13, 2018 3:41 pm
Posts: 4
Been thanked: 0 time(s)
Has thanked: 0 time(s)
Contribution Points: 16
Please someone teach me how to make it in 1360x768 resolution, i've had tried my best but it didn't work at all.. please :3


Top
 Profile  
Reply with quote  
 Post subject: Re: Working Fishing Bot
Thanked: 0 time(s)  Unread post Posted: Sun Jul 15, 2018 5:46 pm 


Luatron wrote:
andanu wrote:
Feitan wrote:
Hi Luatrion, Its my first time to use BEM and youre Bot is working to me, my problem is the mouse is just keep on clicking and dont use hold if the cursor is going to gold zone. That's why It cant catch big fishes. :roll:

Can you give me any advice on this? thanks!


Same problem here except i can catch nothing

That is odd, the mouse shouldn't keep on clicking if the fishing bar is detected. Send me the log file and I’ll take a look at it.
go to Genral> settings .
under general tab, check enable logging and set maximum log to 1,000,000 then save.
Go in game and run the script, the moment it fails to catch a fish pause the script and click on show execution log which is located on the main screen of your BEM.
PM me the file.

Im lost on one or two of the steps too


Top
  
Reply with quote  
 Post subject: Re: Working Fishing Bot
Thanked: 0 time(s)  Unread post Posted: Sun Jul 15, 2018 7:06 pm 


Luatron do u still around here?


Top
  
Reply with quote  
 Post subject: Re: Working Fishing Bot
Thanked: 0 time(s)  Unread post Posted: Fri Jul 20, 2018 10:40 am 
New User
New User



Joined: Fri Jul 20, 2018 10:33 am
Posts: 2
Been thanked: 0 time(s)
Has thanked: 1 time(s)
Contribution Points: 10
Amazing! I was also having the issue of the mouse just clicking over and over and not doing anything else, but it's just because you need to change the 1Gold X and 1Gold Y variables to the correct ones which would be the one for the pixel that sees if you're fishing or not. After changing that, it works perfectly!


Top
 Profile  
Reply with quote  
 Post subject: Re: Working Fishing Bot
Thanked: 0 time(s)  Unread post Posted: Tue Jul 24, 2018 3:12 am 
New User
New User



Joined: Fri Jul 20, 2018 10:33 am
Posts: 2
Been thanked: 0 time(s)
Has thanked: 1 time(s)
Contribution Points: 10
There is one more thing I would add to this macro...

I realized that this macro has a 60% success ratio, being the orange fish the ones the one with less success ratio.

I was looking why it was happening and I realized that by doing a quick click with my mouse, the macro was fishing correctly. I did some research in the code to see why and it seems that when the code detects that you have caught a fish, since it was just continiously clicking before that, the buttom remains on Hold, only in some situations where it ended up being released or the fish line was on the very left of the blue pattern, the macro was fishing correctly.

So to explain how I fixed this, I will first show you the macro without the updates:

begin
while Color.At coordinate is not (RGB)("{1Gold_R}", "{1Gold_G}", "{1Gold_B}", "{1Gold_X}", "{1Gold_Y}")
begin
Mouse.Release button("left")
Mouse.Click at coordinate("{2Mouse_X}", "{2Mouse_Y}", "left")
Variable.Set("ZLoopCounter", "0")
Variable.Set("ZCheckBlueOnce", "0")
end
while Color.At coordinate is (RGB)("{1Gold_R}", "{1Gold_G}", "{1Gold_B}", "{1Gold_X}", "{1Gold_Y}")
begin
if Variable.Is equal to("ZCheckBlueOnce", "0")
begin
Color.Wait for and locate pixel pattern("221,122,41,0,2,222,133,55,0,1,222,133,55,0,1,222,133,55,0,1,222,133,55,0,1,222,133,55,0,-5,222,128,49,0,-2,221,118,37,0,-1,220,118,36,0,-1,219,117,39", "10", "FindBlue_X", "FindBlue_Y")
Variable.Set("ZCheckBlueOnce", "1")
end
Color.Find pixel pattern closest to coordinate("221,122,41,0,2,222,133,55,0,1,222,133,55,0,1,222,133,55,0,1,222,133,55,0,1,222,133,55,0,-5,222,128,49,0,-2,221,118,37,0,-1,220,118,36,0,-1,219,117,39", "10", "yes", "{FindBlue_X}", "{FindBlue_Y}", "Golden_X", "Golden_Y")
if Variable.Is greater than (Math)("Golden_X", "{FindBlue_X}")
begin
Mouse.Hold button("left")
end
if Variable.Is less than (Math)("Golden_X", "{FindBlue_X}")
begin
Mouse.Release button("left")
end
end
end



Ignore the values for coordinates and RGB values, those are the ones for my resolution and game..

This next code is now with the changes I made.

begin
while Color.At coordinate is not (RGB)("{1Gold_R}", "{1Gold_G}", "{1Gold_B}", "{1Gold_X}", "{1Gold_Y}")
begin
Mouse.Release button("left")
Mouse.Click at coordinate("{2Mouse_X}", "{2Mouse_Y}", "left")
Variable.Set("ZLoopCounter", "0")
Variable.Set("ZCheckBlueOnce", "0")

Mouse.Release button("left")
Variable.Set("Counter", "0")


end
while Color.At coordinate is (RGB)("{1Gold_R}", "{1Gold_G}", "{1Gold_B}", "{1Gold_X}", "{1Gold_Y}")
begin

while Variable.Is equal to("Counter", "0")
begin
Mouse.Release button("left")
Variable.Set("Counter", "1")
end


if Variable.Is equal to("ZCheckBlueOnce", "0")
begin
Color.Wait for and locate pixel pattern("221,122,41,0,2,222,133,55,0,1,222,133,55,0,1,222,133,55,0,1,222,133,55,0,1,222,133,55,0,-5,222,128,49,0,-2,221,118,37,0,-1,220,118,36,0,-1,219,117,39", "10", "FindBlue_X", "FindBlue_Y")
Variable.Set("ZCheckBlueOnce", "1")
end
Color.Find pixel pattern closest to coordinate("221,122,41,0,2,222,133,55,0,1,222,133,55,0,1,222,133,55,0,1,222,133,55,0,1,222,133,55,0,-5,222,128,49,0,-2,221,118,37,0,-1,220,118,36,0,-1,219,117,39", "10", "yes", "{FindBlue_X}", "{FindBlue_Y}", "Golden_X", "Golden_Y")
if Variable.Is greater than (Math)("Golden_X", "{FindBlue_X}")
begin
Mouse.Hold button("left")
end
if Variable.Is less than (Math)("Golden_X", "{FindBlue_X}")
begin
Mouse.Release button("left")
end
end
end



This code only gives a quick click after starting fishing, updating the status of the mouse and letting it recognize it's movement to the right when the macro sees it started fishing.


After using this code, I was able to increase the success ratio up to 90% or more.

If you want to modify your macro, in your BEM right click on the AK Fishing Bot macro and click on Edit Macro. After that, change the view to code view and add this lines to the code. Some of the lines are already inside of the code, so you can just copy and paste them to avoid confusion. Thanks!


Top
 Profile  
Reply with quote  
 Post subject: Re: Working Fishing Bot
Thanked: 0 time(s)  Unread post Posted: Sat Nov 24, 2018 5:53 am 


heya
so I have been using this bot for awhile now on my old laptop, and it worked great, but then after buying a new pc, (obviously, with better specs) I tried to use this bot again and i had problems when the bot stayed holding "left" and allowed the fish to swim all the way to the end of the yellow bar.

so the problem is
the bot clicks left before it could sense that the fish has arrived since the pc clicks before it can find "Color.At coordinate is (RGB)".
so here's my way of solving it

begin
while Color.At coordinate is not (RGB)("{1Gold_R}", "{1Gold_G}", "{1Gold_B}", "{1Gold_X}", "{1Gold_Y}")
begin
Mouse.Release button("left")
Mouse.Click at coordinate("{2Mouse_X}", "{2Mouse_Y}", "left")
Variable.Set("ZLoopCounter", "0")
Variable.Set("ZCheckBlueOnce", "0")

Mouse.Release button("left")
Macro.Pause("300")

end
while Color.At coordinate is (RGB)("{1Gold_R}", "{1Gold_G}", "{1Gold_B}", "{1Gold_X}", "{1Gold_Y}")
begin
if Variable.Is equal to("ZCheckBlueOnce", "0")
begin
Color.Wait for and locate pixel pattern("219,121,44,0,1,218,117,39,0,1,217,116,36,0,1,216,115,37,0,1,216,119,42,0,1,217,125,50,0,1,217,128,53,0,1,217,128,53,0,1,217,128,53,0,1,217,128,53", "10", "FindBlue_X", "FindBlue_Y")
Variable.Set("ZCheckBlueOnce", "1")
end
Color.Find pixel pattern closest to coordinate("219,121,44,0,1,218,117,39,0,1,217,116,36,0,1,216,115,37,0,1,216,119,42,0,1,217,125,50,0,1,217,128,53,0,1,217,128,53,0,1,217,128,53,0,1,217,128,53", "10", "yes", "{FindBlue_X}", "{FindBlue_Y}", "Golden_X", "Golden_Y")
if Variable.Is greater than (Math)("Golden_X", "{FindBlue_X}")
begin
Mouse.Hold button("left")
end
if Variable.Is less than (Math)("Golden_X", "{FindBlue_X}")
begin
Mouse.Release button("left")
end
end
end


basically, i added a delay.
PS: i tried lutock's method and sadly it didnt work out for me


Top
  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 216 posts ]  Go to page Previous  1 ... 18, 19, 20, 21, 22

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