~ Toggles pause and DEL exits the script.
Code:
Dim $a, $b, $c, $d, $e Global $Paused HotKeySet("`", "TogglePause") HotKeySet("{DEL}", "Terminate") $a = InputBox( "Question", "How many times to shoot before resting?", "55" ) $b = InputBox( "Question", "Delay between shots?", "2000" ) $c = InputBox( "Question", "Hotbar for Rest?", "0" ) $d = InputBox( "Question", "How long to Rest?", "230000" ) WinWaitActive( "Darkfall Online" ) Sleep( 2000 ) While 1 $e = 0 Sleep( 2000 ) Send( "R" ) Sleep( 500 ) Do MouseClick( "Left" ) Sleep( $b ) $e = $e +1 Until $e = $a Sleep( 500 ) Call ( "Rest" ) WEnd Func Rest( ) Sleep( 2000 ) Send( "R" ) Sleep( 500 ) Send( $c ) Sleep( 500 ) MouseClick( "Left" ) Sleep( $d ) Send( "{SPACE}" ) Sleep( 500 ) EndFunc Func TogglePause( ) $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("") EndFunc Func Terminate( ) Exit 0 EndFunc