Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Fri Apr 10, 2020 3:11 am

All times are UTC




Post new topic Reply to topic  [ 3 posts ] 
Author Message
 Post subject: How to fix Auto Loot Loop
Thanked: 0 time(s)  Unread post Posted: Wed Apr 08, 2020 10:38 pm 
New User
New User



Joined: Mon Mar 30, 2020 12:58 pm
Posts: 29
Been thanked: 1 time(s)
Has thanked: 1 time(s)
Contribution Points: 68
Hi , can anyone teach me of how to fix this config?

What im trying to do here is to stop the bot from repeating itself to loot same object even though the object is out of reach or there is a blockage between the player and the loot.

Here is the config below.

Hi roan, im trying to fix the bug of your auto loot, but i still got no luck.

After it successfully loot within distance,

I want the player teleport after a number of try(example loop for 10 tries) looting an impossible loot due to distance or blockage.

Here is the config below. A


begin
Window.Set location("Ragnarok", "yes", "0", "0")
Function.Execute("AUTOLOOT")
Function.Execute("AUTOFLY")
end

function("AUTOLOOT")
if Color.Can be located on screen (RGB)("0", "0", "255", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("0", "0", "255", "0", "640", "375", "left")
Mouse.Move to coordinate("997", "43")
if Color.Can be located on screen (RGB)("0", "0", "255", "0")
begin loop("10")
Mouse.Move to coordinate("806", "165")
Humanly.Pause("400", "500")
Macro.Restart("no")
end
end
function

function("AUTOFLY")
begin
if Color.Can not be located on screen (RGB)("0", "0", "255", "0")
begin
Keyboard.Press key("{<f4>}")
Humanly.Pause("800", "1000")
Keyboard.Press key("{<enter>}")
Humanly.Pause("800", "1000")
end
end
function


Top
 Profile  
Reply with quote  
 Post subject: Re: How to fix Auto Loot Loop
Thanked: 0 time(s)  Unread post Posted: Thu Apr 09, 2020 12:04 am 
Gold Contributor
Gold Contributor



Joined: Thu Nov 24, 2016 12:55 am
Posts: 393
Been thanked: 111 time(s)
Has thanked: 9 time(s)
Contribution Points: 221
Code:
function("AUTOLOOT")
if Color.Can be located on screen (RGB)("0", "0", "255", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("0", "0", "255", "0", "640", "375", "left")
Mouse.Move to coordinate("997", "43")
if Color.Can be located on screen (RGB)("0", "0", "255", "0")
begin loop("10")
Mouse.Move to coordinate("806", "165")
Humanly.Pause("400", "500")
Macro.Restart("no")
end
end
function


what's the macro restart for??

instead of using loop a number of definite loop you can us timer at the beginning of the loot then check if time is greater than 15 sec it will end the loop.
start stopwatch
viewtopic.php?f=166&t=381
Stop stopwatch
viewtopic.php?f=166&t=382
Stopwatch counter is greater than
viewtopic.php?f=154&t=16344

_________________
Ragnarok Online

Bot4You ROPH (will also work on other servers but you need to make your own bypass)
http://www.blueeye-macro.com/viewtopic.php?f=437&t=30450

Creating .spr file or sprite for Pixel bot
http://www.blueeye-macro.com/viewtopic.php?f=435&t=30445

Changing monster sprite and items sprite
http://www.blueeye-macro.com/viewtopic.php?f=435&t=30516


Top
 Profile  
Reply with quote  
 Post subject: Re: How to fix Auto Loot Loop
Thanked: 0 time(s)  Unread post Posted: Thu Apr 09, 2020 5:28 pm 
New User
New User



Joined: Mon Mar 30, 2020 12:58 pm
Posts: 29
Been thanked: 1 time(s)
Has thanked: 1 time(s)
Contribution Points: 68
Roan1234321 wrote:
Code:
function("AUTOLOOT")
if Color.Can be located on screen (RGB)("0", "0", "255", "0")
begin
Mouse.Click at color closest to coordinate (RGB)("0", "0", "255", "0", "640", "375", "left")
Mouse.Move to coordinate("997", "43")
if Color.Can be located on screen (RGB)("0", "0", "255", "0")
begin loop("10")
Mouse.Move to coordinate("806", "165")
Humanly.Pause("400", "500")
Macro.Restart("no")
end
end
function


what's the macro restart for??

instead of using loop a number of definite loop you can us timer at the beginning of the loot then check if time is greater than 15 sec it will end the loop.
start stopwatch
http://www.blueeye-macro.com/viewtopic.php?f=166&t=381
Stop stopwatch
http://www.blueeye-macro.com/viewtopic.php?f=166&t=382
Stopwatch counter is greater than
http://www.blueeye-macro.com/viewtopic. ... 54&t=16344


Thanks for the pointer roan,

here is the editted version. The problem is, Every 10 seconds now it would teleport, even though the bot is not stuck while looting.

How can i upgrade this into, if the player loots more than 10 seconds it would force fly, but if the player successfuly loot under 10 seconds it wont force fly.

begin
Window.Set location("Ragnarok", "yes", "0", "0")
Function.Execute("StartStopwatches")
Function.Execute("AUTOLOOT")
Function.Execute("FORCEFLY")
end

function("StartStopwatches")
begin
Macro.Start stopwatch("Timer")
end
function

function("Timer")
if Color.Can be located on screen (RGB)("0", "0", "255", "0")
begin
Macro.Reset stopwatch("Timer")
end
function

function("AUTOLOOT")
begin
Color.Limit area of interest to coordinates("463", "249", "376", "287")
if Color.Can be located on screen (RGB)("0", "0", "255", "0")
begin loop()
Mouse.Click at color closest to coordinate (RGB)("0", "0", "255", "0", "640", "375", "left")
Humanly.Pause("400", "500")
Function.Execute("FORCEFLY")
Humanly.Pause("400", "500")
if Color.Can not be located on screen (RGB)("0", "0", "255", "0")
begin
Humanly.Pause("300", "500")
if Color.Can not be located on screen (RGB)("0", "0", "255", "0")
begin
Color.Unlimit area of interest()
Macro.Break from loop("yes")
end
end
end
Color.Unlimit area of interest()
end
function

function("FORCEFLY")
begin
Macro.Read stopwatch("Timer", "watch")
if Variable.Is greater than (Math)("watch", "10000")
begin
Keyboard.Press key("{<f4>}")
Humanly.Pause("800", "1000")
Keyboard.Press key("{<enter>}")
Humanly.Pause("800", "1000")
Macro.Reset stopwatch("Timer")
end
end
function


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 3 posts ] 

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