by kissnew89 04/10/11, 12:53 pm
HotKeySet("{ESC}", "stop")
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Opt("CaretCoordMode", 2)
If WinExists("Ran Client") Then WinActivate("Ran Client")
While 1
$coord = PixelSearch(17, 162, 1005, 612,0xB8B8B8)
If Not @error Then
MouseClick("RIGHT",$coord[0] ,$coord[1],1,10)
EndIf
$coord = PixelSearch(17, 162, 1005, 612,0x571510)
If Not @error Then
MouseClick("RIGHT",$coord[0] ,$coord[1],1,10)
$coord = PixelSearch(27, 232, 1005, 612,0xFF0000)
If Not @error Then
MouseClick("RIGHT",$coord[0] ,$coord[1],1,10)
EndIf
Send ("{SPACE}")
Sleep(100)
Send ("{SPACE}")
Sleep(200)
Send ("{SPACE}")
Sleep(100)
Send ("{SPACE}")
Sleep(200)
Send ("{SPACE}")
Sleep(100)
Send ("{SPACE}")
Sleep(200)
Send ("{SPACE}")
Sleep(100)
Send ("{SPACE}")
Sleep(200)
EndIf
WEnd
Func stop()
ToolTip('หยุดการทำงาน', 0, 0)
Sleep(500)
Exit
EndFunc