[AutoIt] Sprint and Crouchwalk

Make sure your weapon is sheathed, if not it will mess up rest for sprint.

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