Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Thu Nov 21, 2024 7:37 pm

Board index » Macros » Gaming » Aura Kingdom » Macros / Bots / Tools

All times are UTC




Post new topic Reply to topic  Page 1 of 2
  [ 15 posts ]  Go to page 1, 2  Next
  Print view | E-mail friend Previous topic | First unread post | Next topic 
Author Message
Pa1n
 Post subject: Basic Macro for Farming ( easy )
Thanked: 1 time(s)  Unread post Posted: Sat Feb 08, 2014 3:36 pm 
New User
New User



Joined: Tue Feb 04, 2014 10:25 am
Posts: 18
Been thanked: 2 time(s)
Has thanked: 5 time(s)
Contribution Points: 36
OK this is really simple 2 use,only thing u need 2 chnge is target pixle or use max resolution in game btw on slot 5 set a healling skill if u have
anywhay if any qwestions do ask I got this from this forum:

Code:
 if  Color.At coordinate is not (RGB)("25", "71", "140", "757", "56")
     begin
          Keyboard.Hold keys("9")
          Humanly.Pause("200", "400")
          Keyboard.Release keys("9")
          Macro.Pause("50")
          Keyboard.Press key("{<tab>}")
     end
 if  Color.At coordinate is (RGB)("25", "71", "140", "757", "56")
     begin
          Function.Execute("Attack")
     end
 begin
     if  Color.At coordinate is not (RGB)("25", "71", "140", "757", "56")
          begin
               Keyboard.Hold keys("{<tab>}")
               Macro.Pause("13")
               Keyboard.Release keys("{<tab>}")
          end
     if  Color.At coordinate is (RGB)("25", "71", "140", "757", "56")
          begin
               Keyboard.Hold keys("1")
               Macro.Pause("13")
               Keyboard.Release keys("1")
               Macro.Pause("263")
               Keyboard.Press keys("2")
               Macro.Pause("13")
               Keyboard.Release keys("2")
               Macro.Pause("263")
               Keyboard.Hold keys("3")
               Macro.Pause("13")
               Keyboard.Release keys("3")
               Macro.Pause("263")
               Keyboard.Hold keys("4")
               Macro.Pause("13")
               Keyboard.Release keys("4")
          end
     if  Color.At coordinate is not (RGB)("31", "30", "32", "512", "76")
          begin
               Keyboard.Hold keys("5")
               Macro.Pause("13")
               Keyboard.Release keys("5")
               Macro.Pause("526")
          end
 end


Last edited by Pa1n on Tue Feb 11, 2014 11:06 am, edited 1 time in total.

Top
 Profile  
Reply with quote  
russelltothemax
 Post subject: Re: Basic Macro for Farming ( easy )
Thanked: 0 time(s)  Unread post Posted: Mon Feb 10, 2014 7:11 am 
New User
New User



Joined: Thu Feb 06, 2014 10:21 am
Posts: 1
Been thanked: 0 time(s)
Has thanked: 0 time(s)
Contribution Points: 10
is this on full screen?
Top
 Profile  
Reply with quote  
Pa1n
 Post subject: Re: Basic Macro for Farming ( easy )
Thanked: 0 time(s)  Unread post Posted: Mon Feb 10, 2014 8:39 am 
New User
New User



Joined: Tue Feb 04, 2014 10:25 am
Posts: 18
Been thanked: 2 time(s)
Has thanked: 5 time(s)
Contribution Points: 36
russelltothemax wrote:
is this on full screen?

yes it is full screnn cus I made triger Alt+A (on) and Alt+S (off)
Top
 Profile  
Reply with quote  
mrweo
 Post subject: Re: Basic Macro for Farming ( easy )
Thanked: 1 time(s)  Unread post Posted: Mon Feb 10, 2014 3:01 pm 
New User
New User



Joined: Wed Feb 01, 2012 4:09 pm
Posts: 5
Been thanked: 2 time(s)
Has thanked: 0 time(s)
Contribution Points: 15
this is a work in progress.. its just a modified version of a pixel detection macro i got from here like 2 years ago for another game..

I have modified it over and over to fit what im doing at the current time.. feel free to modify it as you see fit.. my settings are set to Windowed, I suggest, no matter what my and/or your resolution is.. to use blue eye's investigate function to put in the proper coordinates for the pixel detection part..

Code:
 begin
     Macro.Start stopwatch("BuffTimer")
     begin loop()
          Window.Bring to front("Aura Kingdom Online", "No")
          Function.Execute("Buffs")
          Function.Execute("Target")
          Function.Execute("Attack")
          Color.Flush screen dump cache()
     end
 end

function("Human Pause")
     begin
          Variable.Set random number("HumanTime", "746", "1567")
     end
function

function("Buffs")
     begin
          Macro.Read stopwatch("BuffTimer", "BTime")
          if  Variable.Is greater than (Math)("BTime", "33700")
               begin
                    Macro.Pause("910")
                    Keyboard.Hold keys("{<f7>}")
                    Macro.Pause("80")
                    Keyboard.Release keys("{<f7>}")
                    Macro.Pause("910")
                    Keyboard.Hold keys("{<f6>}")
                    Macro.Pause("80")
                    Keyboard.Release keys("{<f6>}")
                    Macro.Pause("50")
                    Macro.Reset stopwatch("BuffTimer")
                    Macro.Pause("910")
                    Keyboard.Hold keys("{<f5>}")
                    Macro.Pause("80")
                    Keyboard.Release keys("{<f5>}")
               end
     end
function

function("Target")
     begin
          while  Color.Pixel pattern can not be located on screen("224,49,31,0,-1,228,76,52,0,-1,241,106,79,0,3,227,56,38,0,1,154,17,11,0,-5,142,9,7", "0")
               begin
                    Keyboard.Hold keys("q")
                    Macro.Pause("1190")
                    Keyboard.Release keys("q")
                    Keyboard.Hold keys("w")
                    Macro.Pause("2549")
                    Keyboard.Release keys("w")
                    Macro.Pause("104")
                    Keyboard.Hold keys("{<tab>}")
                    Macro.Pause("104")
                    Keyboard.Release keys("{<tab>}")
               end
     end
function

function("Attack")
     begin
          while  Color.Pixel pattern can be located on screen("241,106,79,0,1,228,76,52,0,1,224,49,31,0,1,227,56,38,0,1,154,17,11,0,-5,142,9,7", "0")
               begin
                    Keyboard.Hold keys("6")
                    Macro.Pause("75")
                    Keyboard.Release keys("6")
                    Macro.Pause("1050")
                    Keyboard.Hold keys("1")
                    Macro.Pause("75")
                    Keyboard.Release keys("1")
                    Macro.Pause("1250")
                    Keyboard.Hold keys("2")
                    Macro.Pause("75")
                    Keyboard.Release keys("2")
                    Macro.Pause("1550")
                    Keyboard.Hold keys("3")
                    Macro.Pause("100")
                    Keyboard.Release keys("3")
                    Macro.Pause("1275")
                    Keyboard.Hold keys("4")
                    Macro.Pause("100")
                    Keyboard.Release keys("4")
                    Macro.Pause("1050")
                    Keyboard.Hold keys("5")
                    Macro.Pause("100")
                    Keyboard.Release keys("5")
                    Macro.Pause("1050")
               end


feel free to ask questions if u need to.. but be warned, im just a novice and am just learning to write this stuff!
Top
 Profile  
Reply with quote  
Cygnus
 Post subject: Re: Basic Macro for Farming ( easy )
Thanked: 2 time(s)  Unread post Posted: Tue Feb 11, 2014 12:47 am 
Active User
Active User



Joined: Fri Feb 07, 2014 8:18 pm
Posts: 31
Been thanked: 11 time(s)
Has thanked: 10 time(s)
Contribution Points: 97
keyboard.hold keys("e")
humanly.pause("200", "400")
keyboard.release keys("e")

Code:
 begin
     if  Color.At coordinate is not (RGB)("25", "71", "140", "757", "56")
          begin
(place it in here)

               Keyboard.Hold keys("{<tab>}")
               Macro.Pause("13")
               Keyboard.Release keys("{<tab>}")
          end


place this code before your tab sequence will turn your char around to see more mobs before each target.

please thank me if this helps :ugeek:
Top
 Profile  
Reply with quote  
Pa1n
 Post subject: Re: Basic Macro for Farming ( easy )
Thanked: 0 time(s)  Unread post Posted: Tue Feb 11, 2014 11:04 am 
New User
New User



Joined: Tue Feb 04, 2014 10:25 am
Posts: 18
Been thanked: 2 time(s)
Has thanked: 5 time(s)
Contribution Points: 36
[quote="Cygnus"]keyboard.hold keys("e")
humanly.pause("200", "400")
keyboard.release keys("e")

Code:
 begin
     if  Color.At coordinate is not (RGB)("25", "71", "140", "757", "56")
          begin
(place it in here)

               Keyboard.Hold keys("{<tab>}")
               Macro.Pause("13")
               Keyboard.Release keys("{<tab>}")
          end



already stole it from ur code :D but tnx any way and ur codes are slow a lot, lower ur Pause i know my is like 5 times faster ;D (tested)
Top
 Profile  
Reply with quote  
Cygnus
 Post subject: Re: Basic Macro for Farming ( easy )
Thanked: 0 time(s)  Unread post Posted: Tue Feb 11, 2014 8:43 pm 
Active User
Active User



Joined: Fri Feb 07, 2014 8:18 pm
Posts: 31
Been thanked: 11 time(s)
Has thanked: 10 time(s)
Contribution Points: 97
im running windows 8 so i cannot use any keyboard strokes in mine, ive had to go completely mouse clicks only haha so its a headache to use mine.

i have to also use a program called X-Mouse which changes what my clicks do in order to have a fully working macro.
Top
 Profile  
Reply with quote  
darilarnol
 Post subject: Re: Basic Macro for Farming ( easy )
Thanked: 0 time(s)  Unread post Posted: Sat Feb 15, 2014 10:45 am 
New User
New User



Joined: Sat Feb 15, 2014 10:38 am
Posts: 2
Been thanked: 0 time(s)
Has thanked: 0 time(s)
Contribution Points: 13
please help with this


Attachments:
qq.JPG
qq.JPG [ 132.32 KiB | Viewed 3382 times ]
Top
 Profile  
Reply with quote  
Pa1n
 Post subject: Re: Basic Macro for Farming ( easy )
Thanked: 0 time(s)  Unread post Posted: Sun Feb 16, 2014 4:39 pm 
New User
New User



Joined: Tue Feb 04, 2014 10:25 am
Posts: 18
Been thanked: 2 time(s)
Has thanked: 5 time(s)
Contribution Points: 36
darilarnol wrote:
please help with this

this is not mine code so cant help ya Im using and easy one :P
Top
 Profile  
Reply with quote  
unikodok
 Post subject: Re: Basic Macro for Farming ( easy )
Thanked: 0 time(s)  Unread post Posted: Sun Feb 16, 2014 5:43 pm 
Silver Contributor
Silver Contributor



Joined: Sun Jun 24, 2012 12:04 pm
Posts: 115
Been thanked: 13 time(s)
Has thanked: 19 time(s)
Contribution Points: 32
nice share , and we can learn how to make our very own macro
Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  Page 1 of 2
  [ 15 posts ]  Go to page 1, 2  Next

Board index » Macros » Gaming » Aura Kingdom » Macros / Bots / Tools

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