Meine Scripte

#include <GUIConstants.au3>
;Hotkeys
Global $Paused
HotKeySet("{PGUP}", "OnJ")
HotKeySet("{PGDN}", "OnW")
HotKeySet("{END}", "Xit")
HotKeySet("{PAUSE}", "Off")
;Tray Menu
Opt("TrayMenuMode", 1)
TraySetClick("9")
$Jump = TrayCreateMenu("Jump")
$Start = TrayCreateItem("Start", $Jump)
$Stop = TrayCreateItem("Stop", $Jump)
$Walk = TrayCreateMenu("Walk")
$Startw = TrayCreateItem("Start", $Walk)
$Stopw = TrayCreateItem("Stop", $Walk)
$About = TrayCreateItem("About")
$Exit = TrayCreateItem("Exit")
GUISetState(@SW_SHOW)
TrayTip("» Dizzy-Jump « (by sirix)", "Welcome," & @CRLF & "press *PAGE UP* to start Jump," & @CRLF & "*PAGE DOWN* to start Walk," & @CRLF & "*PAUSE* to stop" & @CRLF & "and *END* to terminate!" & @CRLF & "Click the symbol for further options!", 5, 1)
;Menu Loop
While 1
$msg = TrayGetMsg()
Select
Case $msg = $Exit
ExitLoop
Exit
Case $msg = $Start
AdlibEnable('_Space', 20)
Case $msg = $Stop
AdlibDisable()
Case $msg = $Startw
AdlibEnable('_Walk', 20)
Case $msg = $Stopw
AdlibDisable()
Case $msg = $About
MsgBox(64,"About","» Dizzy-Jump «" & @CRLF & @CRLF &"© 2008 by sirix")
EndSelect
Wend
;Actions
Func _Space()
Send("{space}")
Send("{LCTRL}")
EndFunc
Func _Walk()
Send("{wwwww}")
EndFunc
Func Off()
AdlibDisable()
EndFunc
Func OnJ()
AdlibEnable('_Space', 20)
EndFunc
Func OnW()
AdlibEnable('_Walk', 20)
EndFunc
Func Xit()
Exit
EndFunc