Code:
HotKeySet("{F1}", "Attack")
HotKeySet("{F2}", "Water")
HotKeySet("{F4}", "Endall")
If Not FileExists("C:tempAuto-Mage.ini") Then
MsgBox(0, "Configuration not setup or saved file was deleted", "please take 2 second's of your time to fill this out")
$1 = InputBox("Setup Water", "Enter Max MP")
$2 = InputBox("Setup Water", "Enter How much mana it costs to make your water")
$3 = $1 / $2
$4 = $1 / $2
IniWrite("C:TempAuto-Mage.ini", "User MP", "Max MP", $1)
IniWrite("C:TempAuto-Mage.ini", "Mana Consumption", "Water", $2)
IniWrite("C:TempAuto-Mage.ini", "Random", "Value 1", $3)
IniWrite("C:TempAuto-Mage.ini", "Random", "Value 2", $4)
Else
If Not IsDeclared("iMsgBoxAnswer") Then Dim
iMsgBoxAnswer = MsgBox(36, "Setting's", "Use same setting's as before?")
Select
Case = 6 ;Yes
$1 = IniRead("C:TempAuto-Mage.ini","User MP","Max MP","")
$2 = IniRead("C:TempAuto-Mage.ini", "Mana Consumption", "Water","")
$3 = IniRead("C:TempAuto-Mage.ini", "Random", "Value 1","")
$4 = IniRead("C:TempAuto-Mage.ini", "Random", "Value 2","")
Case = 7 ;No
$1 = InputBox("Setup Water", "Enter Max MP")
$2 = InputBox("Setup Water", "Enter How much mana it costs to make your water")
$3 = $1 / $2
$4 = $1 / $2
IniWrite("C:TempAuto-Mage.ini", "User MP", "Max MP", $1)
IniWrite("C:TempAuto-Mage.ini", "Mana Consumption", "Water", $2)
IniWrite("C:TempAuto-Mage.ini", "Random", "Value 1", $3)
IniWrite("C:TempAuto-Mage.ini", "Random", "Value 2", $4)
EndSelect
EndIf
;----------------- Main Loop -----------------
While 1
Sleep(100)
WEnd
;----------------- Main Loop -----------------
Func Attack()
While 1
ControlSend("World of Warcraft", "", "", "{5}")
Sleep(2501)
WEnd
EndFunc ;==>Attack
Func Endall()
While 1
Sleep(100)
WEnd
EndFunc ;==>Endall
Func Water()
While $3 > 1
ControlSend("World of Warcraft", "", "", "{1}")
Sleep(4000)
$3 = $3 - 1
If $3 <= 1 Then
ControlSend("World of Warcraft", "", "", "{2}")
Sleep(26000)
ControlSend("World of Warcraft", "", "", "{3}")
$3 = $4
EndIf
WEnd
EndFunc ;==>Water