Untitled

mail@pastecode.io avatar
unknown
plain_text
a year ago
1.2 kB
2
Indexable
; Das Skript bleibt aktiv
Opt("SendKeyDelay", 0)  ; Keine Verzögerung zwischen den Tastendrücken
Opt("SendKeyDownDelay", 0)
Global $EFunctionActive = False

; Funktion, um die E-Taste alle 5 Sekunden zu drücken und halten
Func StartEFunction()
    $EFunctionActive = True
    While $EFunctionActive
        Send("{e down}")  ; Die Taste "E" wird gedrückt
        Sleep(5020)       ; 5000 Millisekunden (5 Sekunden) warten
        Send("{e up}")    ; Die Taste "E" wird losgelassen
        Sleep(1000)       ; 1000 Millisekunden (1 Sekunde) warten
    WEnd
EndFunc

; Funktion, um den Idle-Modus zu starten (P-Taste)
Func IdleMode()
    While 1
        Sleep(100000)  ; 1000 Millisekunden (1 Sekunde) warten
		Beep(500,10)
  WEnd
EndFunc

; Funktion zum Beenden des Skripts (Notaus-Taste)
Func StopScript()
    Exit
EndFunc

; Tastenkombinationen für die Funktionen
HotKeySet("ü", "StartEFunction")  ; Mit "ü" wird die E-Funktion gestartet
HotKeySet("p", "IdleMode")        ; Mit "p" wird der Idle-Modus gestartet
HotKeySet("#", "StopScript")      ; Mit "#" wird das Skript beendet

While 1
    Sleep(100)  ; Skript am Laufen halten
WEnd