HotKeySet("{F4}", "Main")
HotKeySet("{Pause}", "Terminate")
AutoItSetOption("WinTitleMatchMode",3)
Global $State

Func Main()
	$State = NOT $State
	If $State Then
		ToolTip("Bot: ON",640,400)
	Else
		ToolTip("Bot: OFF",640,400)
	EndIf
	While $State
		;If WinActive("NosTale") Then
			ControlSend("NosTale","","","{Space}")
			;ControlSend("NosTale","","","{Backspace}")
			ControlSend("NosTale","","","{Space}")
			;ControlSend("NosTale","","","{Backspace}")
			ControlSend("NosTale","","","{Escape}")
			Sleep(250)
		;EndIf
	WEnd
EndFunc

While 1
	Sleep(1000)
WEnd

Func Terminate()
    Exit 0
EndFunc