no virtual drivers for win8

Cygnus · **Thanked:** 1 time(s) **Posted:** Sat Feb 08, 2014 11:02 pm

ok so im stuck with only mouseclicks working in this version of a macro tool. as no other tool i currently know of works on this game this is what ive come up with until support for win8 arrives.

Code:

 begin
     //does not start until window is active. 
     Window.Wait for window to be top most("Aura Kingdom Online", "Yes")
     Function.Execute("Start")
 end

function("Start")
     // looking for monster hp
     if  Color.At coordinate is (RGB)("34", "38", "43", "982", "143")
          begin
               Function.Execute("Attack")
          end
     if  Color.At coordinate is not (RGB)("34", "38", "43", "982", "143")
          begin
               Function.Execute("Move")
          end
function

function("Attack")
     begin
          // attack/heal skills
          Mouse.Click at coordinate("844", "869", "right")
          Macro.Pause("3000")
          Mouse.Click at coordinate("888", "869", "right")
          Macro.Pause("3000")
          Mouse.Click at coordinate("976", "869", "right")
          Macro.Pause("3000")
     end
function

function("Move")
     begin
          // position of map autorun to monster
          Mouse.Click at coordinate("1739", "954", "left")
     end
function
 

but as such this macro will cause my char to "run like a headless chicken" until a "monster see's me", my char will then begin attacking and after will continue to run like a headless chicken.

please can anyone suggest a better way of "seeing" monsters without using tab. as its a very colorful game i dont think a pixel search would work very well in some places.

thanks.

Cygnus · **Thanked:** 1 time(s) **Posted:** Sun Feb 09, 2014 3:17 am

also looking for a do.....until command, so i can repeat a certain step until a condition is met (i.e. do attack until monster is dead kinda thing) so it doesnt loop through the entire script.

Gigus · **Thanked:** 1 time(s) **Posted:** Sun Feb 09, 2014 11:36 am

Cygnus wrote:

also looking for a do.....until command, so i can repeat a certain step until a condition is met (i.e. do attack until monster is dead kinda thing) so it doesnt loop through the entire script.

You can use the while loop for that.

while monster is not dead
attack.

Cygnus · **Thanked:** 0 time(s) **Posted:** Sun Feb 09, 2014 8:28 pm

ok i will trial that out but until win8 is fully supported with the drivers i cannot create a full working macro for aura kingdom. and by that time my trial version will be out of date

Cygnus · **Thanked:** 1 time(s) **Posted:** Sun Feb 09, 2014 9:59 pm

having problems with a mouse drag option, sometimes it will work and sometimes not and sometimes disrupts the "view" altogether. using the mouse.drag by itself did not do anything so i figured maybe a mouse.hold button was needed also. idk if its the extra "right" click is upsetting things or not. also is there a way to set the speed of the drag? just to refresh minds, i cannot use keyboard commands as im running windows 8 and do not have access to windows 7 so cannot use vmware or the like.

Code:

 begin
     // does not start until window is active.
     Window.Wait for window to be top most("Aura Kingdom Online", "Yes")
     Macro.Pause("2000")
     Function.Execute("Start")
 end

function("Start")
     // looking for color on monster use investigator
     if  Color.Can be located on screen (RGB)("177", "112", "55", "2")
          begin
               Mouse.Click at color (RGB)("177", "112", "55", "2", "left")
               Macro.Pause("50")
               Function.Execute("Attack")
          end
     if  Color.Can not be located on screen (RGB)("177", "112", "55", "2")
          begin
               Function.Execute("Move")
          end
function

function("Attack")
     while  Color.At coordinate is (RGB)("30", "30", "31", "802", "151")
          begin
               Mouse.Click at coordinate("852", "881", "right")
               Macro.Pause("500")
               Mouse.Click at coordinate("898", "881", "right")
               Macro.Pause("500")
          end
function

function("Move")
     while  Color.Can not be located on screen (RGB)("253", "105", "183", "0")
          begin
               // turns view to look in other direction
               Mouse.Hold button("right")
               Macro.Pause("50")
               Mouse.Drag("793", "460", "1106", "460", "right")
               Macro.Pause("50")
               Mouse.Release button("right")
               Macro.Pause("50")
               Function.Execute("Start")
          end
function

Xhinigami · **Thanked:** 1 time(s) **Posted:** Mon Feb 10, 2014 1:51 am

Have you tried keymapping the "target" key into your right click? so right click would function as your tab key.

Cygnus · **Thanked:** 0 time(s) **Posted:** Mon Feb 10, 2014 2:58 am

ok ty Xhinigami, i found a nice little app called X-Mouse, it changes buttons to basic functions like alt-tab etc, u can also set it to any buttons sequence u like.

have set the middle mouse to tab and left click is now q (turn), which also fixes the problem of mouse.drag not working well enough for my purposes, so thank you very much.

i will post the macro once i have fully tested and have it working properly for those of us without the correct virtual drivers.

Blue Eye Macro

no virtual drivers for win8