Func _AAL()
While 1
$h1 = WinGetHandle("Royal Quest")
ControlSend($h1,"","", 2, "")
ControlSend($h1,"","", '{SPACE}', "")
ControlSend($h1,"","", '{SPACE}', "")
ControlSend($h1,"","", '{SPACE}', "")
ControlSend($h1,"","", '{SPACE}', "")
Sleep(28000)
WEnd
EndFunc