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






