skill training macro (autoit) : EVE Online Submissions

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.1.1.0
 Author:         xlr82xs

 Script Function:
   Train a skill in eve.
   Right now this is fairly basic, but good enough for me.
   Input how many skills to train
   The delay before starting each one
   Then put the mouse where you need to right click for the context menu to pop up and press "s"
   Then mouse over where you need to left click to select the option to train and press "t"

#ce ----------------------------------------------------------------------------

#include <Date>

Global $Sec, $Min, $Hour, $Time

HotKeySet("s", "SetSkillClick")
HotKeySet("t", "SetTrainClick")
DoEveSetup()
$skills_to_train=InputBox("xlr skill trainer.", "How many skills do you want to train ?")

Dim $skills[$skills_to_train][2][4]

$click_s_set=0
$click_t_set=0

for $I = 0 to ($skills_to_train - 1)
   $skills[$I][0][0] = InputBox("Skill number " & ($I + 1) & ".", "How many days ?")
   $skills[$I][0][1] = InputBox("Skill number " & ($I + 1) & ".", "How many hours ?")
   $skills[$I][0][2] = InputBox("Skill number " & ($I + 1) & ".", "How many minutes ?")
   $skills[$I][0][3] = InputBox("Skill number " & ($I + 1) & ".", "How many seconds ?")
Next



ShowClicks()

Do
   ;chill here for a while.
until ($click_s_set = $skills_to_train) AND ($click_t_set = $skills_to_train)
HotKeySet("s")
HotKeySet("t")


For $I = 0 To ($skills_to_train - 1)
   DoEveSetup()
   MouseClick("right", $skills[$I][1][0], $skills[$I][1][1], 1, 10)
   sleep(500)
   MouseClick("left", $skills[$I][1][2], $skills[$I][1][3], 1, 10)
   ToolTip("Now learning skill number " & $I & @CRLF & "Waiting " & 24 * $skills[$I][0][0] + $skills[$I][0][1] & " hours, " & $skills[$I][0][2] & " minutes, " & $skills[$I][0][3] & " seconds.", 30, 50)
   sleep((_TimeToTicks(24 * $skills[$I][0][0] + $skills[$I][0][1], $skills[$I][0][2], $skills[$I][0][3])))
Next

MsgBox(1, "Skill trainer", "All skills are done.")

func SetSkillClick()
   $skills[$click_s_set][1][0] = MouseGetPos(0)
   $skills[$click_s_set][1][1] = MouseGetPos(1)
   $click_s_set = $click_s_set + 1
   ShowClicks()
EndFunc

func SetTrainClick()
   $skills[$click_t_set][1][2] = MouseGetPos(0)
   $skills[$click_t_set][1][3] = MouseGetPos(1)
   $click_t_set = $click_t_set + 1
   ShowClicks()
EndFunc

func ShowClicks()
   ToolTip("Skill click positions set : " & $click_s_set & "/" & $skills_to_train & @CRLF & "Train click positions set : " & $click_t_set & "/" & $skills_to_train, 30, 50)
EndFunc

Func DoEveSetup()
WinWait("EVE")
WinActivate("EVE")
WinWaitActive("EVE")
WinMove("EVE", "", 0, 0)
Sleep(1000)
EndFunc