Blue Eye Macro

 // VeavonK's PwrLVLer
 begin
     Macro.Start stopwatch("Buff")
     Macro.Start stopwatch("Heal")
     begin loop()
          Function.Execute("Target")
          Function.Execute("Attack")
          Function.Execute("Loot")
          Function.Execute("Healing")
          Function.Execute("BuffTime")
     end
 end
 // This function will target the nearest monster or mob

function("Target")
     begin
          Keyboard.Press key("{<oemtilde>}")
          Macro.Pause("50")
          Keyboard.Press key("1")
          Macro.Pause("3000")
     end
function
 // This will spam attack with Attacks in Slots 1-6 ingame

function("Attack")
     begin
          Keyboard.Press key("6")
          Macro.Pause("50")
          Keyboard.Press key("1")
          Macro.Pause("503")
          Keyboard.Press key("2")
          Macro.Pause("553")
     end
function
 // This will loot up to 7 items from a monster in-case you kill an Elite mob

function("Loot")
     begin
          Keyboard.Press key("{<space>}")
          Macro.Pause("50")
          Keyboard.Press key("{<space>}")
          Macro.Pause("50")
          Keyboard.Press key("{<space>}")
          Macro.Pause("50")
          Keyboard.Press key("{<space>}")
          Macro.Pause("50")
          Keyboard.Press key("{<space>}")
          Macro.Pause("50")
          Keyboard.Press key("{<space>}")
          Macro.Pause("50")
          Keyboard.Press key("{<space>}")
          Macro.Pause("500")
     end
function
 // Put your Healing Potion and your Pets Healing Potion into slots 7 and 8 Ingame. MP and pet MP in E and R. Heals every 10 mins

function("Healing")
     begin
          Macro.Read stopwatch("Heal","Healing")
          if  Variable.Is greater than (Math)("Healing", "100000")
               begin
                    Keyboard.Hold keys("8")
                    Macro.Pause("50")
                    Keyboard.Release keys("8")
                    Macro.Pause("50")
                    Macro.Reset stopwatch("Heal")
                    Keyboard.Hold keys("7")
                    Macro.Pause("50")
                    Keyboard.Release keys("7")
                    Macro.Pause("50")
                    Macro.Reset stopwatch("Heal")
                    Keyboard.Hold keys("E")
                    Macro.Pause("50")
                    Keyboard.Release keys("E")
                    Macro.Pause("50")
                    Macro.Reset stopwatch("Heal")
                    Keyboard.Hold keys("R")
                    Macro.Pause("50")
                    Keyboard.Release keys("R")
                    Macro.Pause("50")
                    Macro.Reset stopwatch("Heal")
               end
     end
function
 // This will cast your current buffs every 20 mins in slots Q and W ingame

function("BuffTime")
     begin
          Macro.Read stopwatch("Buff", "BuffTime")
          if  Variable.Is greater than (Math)("BuffTime", "1200000")
               begin
                    Keyboard.Hold keys("Q")
                    Macro.Pause("50")
                    Keyboard.Release keys("Q")
                    Macro.Pause("50")
                    Macro.Reset stopwatch("Buff")
               end
     end
function