Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Sun Dec 16, 2018 7:48 pm

All times are UTC




Post new topic Reply to topic  [ 1 post ] 
Author Message
 Post subject: Riders Of Icarus Basic Bot
Thanked: 0 time(s)  Unread post Posted: Sat Oct 01, 2016 12:24 am 
Contributor
Contributor



Joined: Sun Jun 12, 2011 9:44 am
Posts: 76
Location: France
Been thanked: 4 time(s)
Has thanked: 1 time(s)
Contribution Points: 105
Hey there !
It's been a long time since I last posted here.
So now I'm playing that nice game called Riders Of Icarus, an Action MMORPG.
The cool thing about RoI is, it lets you choose the way you want to control you character.
So when you choose the standard mode for the controls, then you can use my simple bot!
First of all, you need to switch to standard mode but also in windowed 1280x720 (I have several computers and some can't go further that resolution)
Then BOOOOOM, my simple bot:
Code:
 
begin loop()
     Function.Execute("Setup")
     Function.Execute("Aim")
     Function.Execute with timeout("Shoot", "25000")
     Function.Execute("Loot")
     Function.Execute("Quit")
 end

function("Setup")
     begin
          Window.Bring to front("Riders of", "No")
          Window.Set location("Riders of", "No", "0", "0")
     end
function

function("Aim")
     begin
          Keyboard.Press key("{<tab>}")
          while  Color.At coordinate is not within (RGB range)("219", "0", "0", "5", "550", "70")
               begin
                    Keyboard.Press key("{<tab>}")
                    Keyboard.Press key("q")
               end
     end
function

function("Shoot")
     begin
          while  Color.At coordinate is within (RGB range)("219", "0", "0", "5", "550", "70")
               begin
                    Keyboard.Press key("{<d1>}")
               end
     end
function

function("Loot")
     begin
          Macro.Pause("1800")
          Keyboard.Press key("F")
          Macro.Pause("1000")
          Keyboard.Press key("F")
          Macro.Pause("500")
     end
function

function("Quit")
     begin
          if  Keyboard.Keys has been pressed within (ms)("p", "5000")
               begin
                    Macro.Abort()
               end
     end
function

I didn't commented the code as it is quite simple and clear by its conception (one function for everything it does)
But as you can see, my bot just finds a mob by pressing "tab" (and q to turn the point of view, as tab only works with mobs on the screen)
Then it kills the mob when it's targeted. (last added a timer to avoid infinite striking at unreacheable mobs)
And finally it loots. (doesn't work as I expected due to pauses but for now i'm a little bored, i'll look for perfect timings later.)
I hope it'll help !
One last point, as i'm using a french keyboard, the key pressed in "Aim" was "a" so I just guess on an english keyboard and in the international game the key would be "q" to turn around with your character.
Feel free to correct me if i'm wrong!
See ya !


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