#RequireAdmin
#include <Misc.au3>
HotKeySet("{UP}","StartBot")
HotKeySet("{DOWN}","StopBot")
Global $isRunning = False
Func Bot()
While $isRunning
; 0. Activates game window.
WinActivate("main.exe")
Sleep(500)
; 1. Click's ENTER
Send("{ENTER}")
Sleep(3000)
; 2. sets str to : /str 300
Send("/str 300")
Sleep(2000)
; 3. Enter
Send("{ENTER}")
Sleep(2000)
; 4. /agi 32749
Send("{ENTER}")
Sleep(1000)
Send("/agi 32749")
Sleep(2000)
; 5. Enter
Send("{ENTER}")
Sleep(2000)
; 6. /ene 15000
Send("{ENTER}")
Sleep(2000)
Send("/ene 15000")
Sleep(2000)
Send("{ENTER}")
Sleep(2000)
; 8. Opens MAP
MouseMove(1124, 175, 10) ;
Sleep(1000)
MouseClick("left")
Sleep(1000)
MouseMove(683, 678, 10) ;
MouseClick("left")
MouseMove(1124, 175, 10) ;
Sleep(1000)
MouseClick("left")
Sleep(3000)
; 9. Moves mouse to teleportation
MouseMove(486, 246, 10) ;
Sleep(1000)
MouseClick("left")
Sleep(1000)
; 10. party member
MouseMove(1098, 227, 10);
Sleep(1000)
MouseClick("left")
Sleep(1000)
; 11. OK button
MouseMove(730, 506, 10) ;
Sleep(1000)
MouseClick("left")
Sleep(1000)
; 12. Wait 1min
Sleep(60000)
; Search for color in a bar.
$searchcolor = False
While (Not($searchcolor))
$pixels = PixelSearch(106, 626, 108, 628, 0x9F19D1, 1)
If Not (@error) Then
Send("{ENTER}")
Sleep(500)
Send("/reset")
Sleep(500)
Send("{ENTER}")
Sleep(10000)
EndIf
WEnd
WEnd
EndFunc
Func StartBot()
If Not $isRunning Then
$isRunning = True
MsgBox(0,"BOT","STARTED")
Bot()
EndIf
EndFunc
Func StopBot()
If $isRunning Then
$isRunning = False
MsgBox(0,"BOT","STOPED")
EndIf
EndFunc
While True
Sleep(100)
WEnd