eve mining bot

 begin
     //     Mouse.Click at coordinate("1722", "184", "left")
     //     Macro.Pause("10000")
     Variable.Set("locListStartX", "188")
     Variable.Set("locListStartY", "150")
     Variable.Set("locListHeight", "20")
     Variable.Set("locListWidth", "80")
     Variable.Set("curLocStartX", "0")
     Variable.Set("curLocStartY", "0")
     Variable.Set("curLocStopX", "0")
     Variable.Set("curLocStopY", "0")
     Variable.Set("locListCount", "0")
     Variable.Set("curLocStartX", "{locListStartX}")
     Variable.Set("curLocStartY", "{locListStartY}")
     Variable.Set("curLocStopX", "{locListStartX}")
     Variable.Set("curLocStopY", "{locListStartY}")
     Variable.Set("warpX", "{curLocStartX}")
     Variable.Set("warpY", "{curLocStartY}")
     Variable.Add (Math)("curLocStopX", "{locListWidth}")
     Variable.Add (Math)("curLocStopY", "{locListHeight}")
     Plugins.OCR (Simple)("{curLocStartX}", "{curLocStartY}", "{curLocStopX}", "{curLocStopY}", "curLoc")
     if  Variable.Contains text("curLoc", "roid")
          begin
               Mouse.Click at coordinate("1727", "183", "left")
               Macro.Pause("15000")
          end
     while  Variable.Contains text("curLoc", "roid")
          begin
               Mouse.Click at coordinate("{curLocStartX}", "{curLocStartY}", "right")
               Variable.Add (Math)("warpX", "10")
               Variable.Add (Math)("warpY", "5")
               Macro.Pause("1000")
               Mouse.Click at coordinate("{warpX}", "{warpY}", "left")
               Macro.Pause("5000")
               Plugins.OCR (Simple)("860", "810", "1060", "830", "warping")
               while  Variable.Contains text("warping", "drive")
                    begin
                         Macro.Pause("2000")
                    end
               Variable.Add (Math)("curLocStartY", "{locListHeight}")
               Variable.Add (Math)("curLocStopY", "{locListHeight}")
               Variable.Add (Math)("locListCount", "1")
               Plugins.OCR (Simple)("{curLocStartX}", "{curLocStartY}", "{curLocStopX}", "{curLocStopY}", "curLoc")
          end
     Window.Display message box("{locListCount} locations done", "true")
 end

function("mineAll")
function