Global $GameHD
Func _PSsixLoadH($gtitle)
$GameHD = WinGetHandle($gtitle)
If @error Then
MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม")
Else
Return 1
EndIf
EndFunc
HotKeySet("{ESC}", "stop")
If _PSsixLoadH("Pokemon mmo") Then WinActivate($GameHD)
While 1
Walk()
WEnd
Func Walk()
If PixelGetColor(42,188) = 0xE7E7E7 Then
catch()
Else
send("q")
Sleep(3000)
Endif
EndFunc
Func catch()
Sleep(4000)
send("q")
;MouseClick("left",631,420,1,1)
Sleep(1000)
send("w")
Sleep(500)
EndFunc