spezieller Bot

;Löst die Funktion start() aus, wenn man Pos 1 drückt
HotKeySet("{Home}","start")
;Löst die Funktion stop() aus, wenn man Ende drückt
Hotkeyset("{END}","stop")
;Variablendeklaration
Global 


;Hält das Script vorerst an
Wait()


;Hauptfunktion, die die Tasten drückt
Func start()

;Macht uns ein paar hübsche Variablen
Dim 
Dim 

;Wiederholt das Script laufend
While 1

;Springt zum Fenster von Nostale
WinActivate ( 'Nostale' )

;Wartet 30 Sekunden (30000 Milisekunden) und drückt alle 0,5 Sekunden Z
For  = 1 To 60
Sleep (500)
Send("{Z}")
Next

;Drückt 1
Send("{1}")

;Wartet 30 Sekunden (30000 Milisekunden) und drückt alle 0,5 Sekunden Z
For  = 1 To 60
Sleep (500)
Send("{Z}")
Next

;Drückt 1 & 2
Send("{1]")
Send("{2}")

WEnd

EndFunc

;Weitere Funktionen für den Ablauf des Scriptes

;Lässt das Script warten
Func wait()
While 1
Sleep(500)
WEnd
EndFunc

;Beendet das Script
Func stop()
Exit
EndFunc