PHP Code:
; Press Esc to terminate script, Pause/Break to "pause"
Global $farbe=0
Global $Paused, $counter = 0
Global $zahler=0
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("+d", "Terminate")
HotKeySet("+!e", "ShowMessage") ;Shift-Alt-d
;;;; Body of program would go here;;;;
While 1
$farbe=0
$zahler=0
Sleep(2000)
Send("{Enter down}")
Sleep(50)
Send("{Enter up}")
Sleep(1500)
Send("{Enter down}")
Sleep(50)
Send("{Enter up}")
Sleep(1500)
Send("{Up down}")
Sleep(50)
Send("{Up up}")
Sleep(1200)
Send("{Enter down}")
Sleep(50)
Send("{Enter up}")
Sleep(1800)
Send("{Left down}")
Sleep(50)
Send("{Left up}")
Sleep(800)
Send("{Enter down}")
Sleep(50)
Send("{Enter up}")
Sleep(800)
Send("{Up down}")
Sleep(50)
Send("{Up up}")
Sleep(800)
Send("{Enter down}")
Sleep(50)
Send("{Enter up}")
Sleep(2000)
;Spielplan
Send("{Enter down}")
Sleep(50)
Send("{Enter up}")
Sleep(2000)
Send("{Enter down}")
Sleep(50)
Send("{Enter up}")
Sleep(1800)
Send("{Enter down}")
Sleep(50)
Send("{Enter up}")
Sleep(1500)
Send("{Enter down}")
Sleep(50)
Send("{Enter up}")
Sleep(1200)
Send("{Enter down}")
Sleep(50)
Send("{Enter up}")
Sleep(1200)
Send("{Enter down}")
Sleep(50)
Send("{Enter up}")
Sleep(1200)
Send("{Enter down}")
Sleep(50)
Send("{Enter up}")
Sleep(5000)
Send("{ESC down}")
Sleep(50)
Send("{ESC up}")
Sleep(100)
;SPIEL
For $i = 0 to 10 Step 1
Send("{d down}")
Sleep(5)
Send("{d up}")
send("{space down}")
sleep(5)
send("{space up}")
Next
ToolTip('vorbei"',0,0, $counter, 1)
Do
Sleep(10)
Send("{d down}")
Sleep(1000)
Send("{d up}")
Sleep(10)
send("{space down}")
sleep(1000)
send("{space up}")
Sleep(1000)
$farbe=PixelGetColor(976,684)
If $farbe == 0x001E1F1E Then
Sleep(10)
send("{enter down}")
Sleep(20)
send("{enter up}")
Sleep(120)
ExitLoop 2
Else
Sleep(10)
send("{enter down}")
Sleep(20)
send("{enter up}")
Sleep(500)
EndIf
Until $farbe==0x001E1F1E
ToolTip('vorbei2"',0,0, $counter, 1)
Sleep(1000)
Send("{Up down}")
Sleep(50)
Send("{Up up}")
Sleep(500)
Send("{Enter down}")
Sleep(50)
Send("{Enter up}")
Sleep(1500)
Send("{Esc down}")
Sleep(50)
Send("{Esc up}")
Sleep(2000)
Send("{Esc down}")
Sleep(50)
Send("{Esc up}")
Sleep(2000)
Send("{Esc down}")
Sleep(50)
Send("{Esc up}")
Sleep(1500)
Send("{Esc down}")
Sleep(50)
Send("{Esc up}")
Sleep(1500)
Send("{Esc down}")
Sleep(50)
Send("{Esc up}")
Sleep(1500)
Send("{Esc down}")
Sleep(50)
Send("{Esc up}")
Sleep(1500)
Send("{Enter down}")
Sleep(50)
Send("{Enter up}")
$counter +=1
ToolTip('Script is "Running"',0,0, $counter, 1)
Sleep(700)
WEnd
;;;;;;;;
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0, $counter, 1)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc
Func ShowMessage()
MsgBox(4096,"","This is a message.")
EndFunc
Ist ein Bot, das ganze Enter Leertaste gedrücke muss so sein.