Kod:
Global $kp, $jar, $mp ,$gar, $dp, $var
HotKeySet("{F3}", "coord")
HotKeySet("{F4}", "work")
HotKeySet("{F5}", "End")
MsgBox(4096, "By kurpiq", "Bot wykonany w 100% przezemnie, jeśli pobrałeś to z innego miejsca niż ******** to znaczy że osoba umieszczająca to bez mojej zgody jest złodziejem. zastrzegam sobię prawa do tego bota //KURPIQ", 5)
$czas = InputBox("Program", "Czas trzymania spacji w górze: ", "100")
$grass = InputBox("Program", "Czas czekania po zarzuceniu: (jeśli rybki nie chcą brać daj większy) ", "10000")
;;;; Body of program would go here ;;;;
While 1
Sleep(100000)
WEnd
;;;;;;;;
Func coord()
TrayTip("spławik", "najedź na spławik i poczekaj 1 sek", 2, 1)
Sleep(2500)
$kp = MouseGetPos()
$jar = PixelGetColor($kp[0], $kp[1])
Sleep(1000)
TrayTip("box", "najedź na jakieś miejsce w oknie gry (by zniknęło jak pojawi się jakieś okno / zmieniło kolor i poczekaj 1 sek", 2, 1)
Sleep(2500)
$mp = MouseGetPos()
$var = PixelGetColor($mp[0], $mp[1])
TrayTip("pasek", "najedź na miejsce paska przy którym ma puszczać spację", 2, 1)
Sleep(2500)
$dp = MouseGetPos()
$gar = PixelGetColor($dp[0], $dp[1])
Sleep(1000)
MsgBox(4096, "gotowe", "gotowe", 1)
EndFunc
Func Work()
While 2
$wojna = PixelSearch($kp[0] - 20 , $kp[1] - 20 , $kp[0] + 20 , $kp[1] + 20 , $jar)
If $wojna = 0 Then
Send("{SPACE down}")
EndIf
$marmolada = PixelSearch($dp[0] - 2 , $dp[1] - 2 , $dp[0] + 2 , $dp[1] + 2 , $gar)
If $marmolada = 0 Then
Send("{SPACE up}")
Sleep($czas)
EndIf
$seed = PixelSearch($mp[0] - 2 , $mp[1] - 2 , $mp[0] + 2 , $mp[1] + 2 , $var)
If $seed = 0 Then
Sleep(2000)
Send("{ESC}")
Sleep(2000)
Send("{SPACE}")
Sleep($grass)
EndIf
WEnd
EndFunc
Func End()
Exit 0
EndFunc