Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Fri Jun 23, 2017 1:51 pm

All times are UTC




Post new topic Reply to topic  [ 1 post ] 
Author Message
 Post subject: From HasanInsurgent
Thanked: 0 time(s)  Unread post Posted: Fri Jun 09, 2017 12:30 pm 
New User
New User



Joined: Fri Jun 09, 2017 11:36 am
Posts: 3
Location: Singapore
Been thanked: 0 time(s)
Has thanked: 0 time(s)
Contribution Points: 16
Guys can help me try this bot if still working, I used to make a program here in blue eye macro in high resolution last time but my trial have expired due to prolonged inactivity on this game,

.1024 x 768 resolution

begin
Keyboard.Hold keys("{<tab>}4")
Macro.Pause("500")
Keyboard.Release keys("{<tab>}4")
Macro.Pause("500")
Function.Execute("Bot")
end

function("Bot")
// Click on any of the empty spaces then click on the glass and click on a part in the digimon's face ( from the bottom part of his face and choose a unique spot on it so he will only attack that digi)
if Color.At coordinate is not (RGB)("0", "141", "91", "396", "82")
begin
Macro.Break from loop("yes")
Function.Execute("Bot2")
end
// Just fill with the same co ords from above
if Color.At coordinate is (RGB)("0", "141", "91", "396", "82")
begin loop()
Keyboard.Hold keys("1")
Macro.Pause("500")
Keyboard.Release keys("1")
Macro.Pause("500")
Keyboard.Hold keys("4")
Macro.Pause("500")
Keyboard.Release keys("4")
Macro.Pause("128")
// fill with the same co ords from above
if Color.At coordinate is not (RGB)("0", "141", "91", "396", "82")
begin
Macro.Break from loop("yes")
Macro.Restart("no")
end
end
function

function("Bot2")
// Target an aggro digi and import the Red part around the hand (the icon which tells its aggro)
if Color.At coordinate is not (RGB)("164", "0", "29", "401", "81")
begin
Macro.Break from loop("yes")
Macro.Restart("no")
end
// fill with same co ords from above
if Color.At coordinate is (RGB)("164", "0", "29", "401", "81")
begin loop()
Keyboard.Hold keys("1")
Macro.Pause("500")
Keyboard.Release keys("1")
Macro.Pause("500")
Keyboard.Hold keys("4")
Macro.Pause("500")
Keyboard.Release keys("4")
Macro.Pause("500")
// fill with same co ords from above
if Color.At coordinate is not (RGB)("164", "0", "29", "401", "81")
begin
Macro.Break from loop("yes")
Macro.Restart("no")
end
end
function

function("Loot")
begin
Keyboard.Hold keys("4")
Macro.Pause("500")
Keyboard.Release keys("4")
Macro.Pause("700")
end
function


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

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