Start with your bow equipped and sheathed.
~ Toggles pause and DEL exits the script.
~ 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