bot lowisko scrypt

[popczyk77]

; Press Esc to terminate script, Pause/Break to "pause"

 

Global $Paused

Global $Par

HotKeySet("{F1}", "TogglePause")

HotKeySet("{F3}", "End")

HotKeySet("{F5}", "Seed")

 

;;;; Body of program would go here ;;;;

While 1

Sleep(100)

WEnd

;;;;;;;;

 

Func TogglePause()

$Paused = NOT $Paused

MsgBox(4096, "splawik", "najedz na splawik i poczekaj 5 sek", 2)

Sleep(4000)

$kp = MouseGetPos()

Sleep(1000)

MsgBox(4096, "gotowe", "gotowe", 2)

Sleep(1000)

While 2

$wojna = PixelSearch($kp[0] - 50 , $kp[1] - 50 , $kp[0] + 50 , $kp[1] + 50 , 0x000000, 10, 2)

If $wojna = 0 Then

Send("{SPACE down}")

Sleep(200)

Send("{SPACE up}")

Sleep(125Global $kp, $jar, $mp ,$gar, $dp, $var