EDIT- Updated to run in circles for better gains. Updated to fix the mistakes in my script. Thanks billybob.
Code:
Dim $a, $b, $c, $d $d = InputBox( "Question", "Input 1 for Sprint and 2 for Crouchwalk.", "1" ) If $d = 1 Then $a = InputBox( "Question", "How long to Sprint?", "300000" ) $b = InputBox( "Question", "Hotbar number for Rest?", "0" ) $c = InputBox( "Question", "How long to Rest?", "155000" ) MsgBox( 0, "Alert", "Click OK and Alt+Tab into Darkfall to start the script." ) WinWaitActive( "Darkfall Online" ) Sleep( 2000 ) While 1 Send( "{LSHIFT DOWN}" ) Sleep( 100 ) Send( "{W DOWN}" ) Sleep( 100 ) Send( "{LEFT DOWN}" ) Sleep( $a ) Send( "{W UP}" ) Sleep( 100 ) Send( "{LEFT UP}" ) Sleep( 100 ) Send( "{LSHIFT UP}" ) Sleep( 100 ) Call( "Rest" ) WEnd ElseIf $d = 2 Then MsgBox( 0, "Alert", "Click OK and Alt+Tab into Darkfall to start the script." ) WinWaitActive( "Darkfall Online" ) Sleep( 2000 ) Send( "{C DOWN}" ) Sleep( 100 ) Send( "{W DOWN}" ) Sleep( 100 ) Send( "{LEFT DOWN}" ) ElseIf Exit EndIf Func Rest( ) Sleep( 2000 ) Send( $b ) Sleep( 500 ) MouseClick( "Left" ) Sleep( $c ) Send( "{SPACE}" ) Sleep( 500 ) EndFunc