#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