[AutoIt] Archery

[Penakle]

Start with your bow equipped and sheathed.

~ Toggles pause and DEL exits the script.

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