Dim $a, $b, $c, $d, $e, $f, $g, $h, $i, $j, $k, $l, $m, $n, $o, $p, $q, $r, $s, $t, $u, $v, $w, $x, $y
Global $Paused
HotKeySet("`", "TogglePause")
HotKeySet("{DEL}", "Terminate")
$a = InputBox( "Question", "Lessar Magic", "1" )

If $a = 1 Then
	$b = InputBox( "Question", "How many times to cast before Staff reset?", "30" )
	WinActivate ("Darkfall Online")
	Sleep( 2000 )
	While 1
		$r = 0
		Do
	Sleep( 2000 )
	Send( "1" )
	MouseClick( "Left" )

	Sleep( 2100 )
	Send( "2" )
	MouseClick( "Left" )

	Sleep( 2100 )
	Send( "3" )
	MouseClick( "Left" )

	Sleep( 2100 )
	Send( "4" )
	MouseClick( "Left" )

	Sleep ( 2100 )
	Send( "5" )
	MouseClick( "Left" )

	Sleep ( 2100 )
			$r = $r + 1
			ToolTip($r)
		Until $r = $b
		Call( "StaffReset" )
		WEnd

Else
	MsgBox( 0, "Alert", "You need at least 1 spell or less than 6 spells to cast." )
	Exit
EndIf


Func StaffReset( )
	Sleep( 2000 )
	Send( "9" )
	Sleep( 2000 )
	Send( "l" )
	Sleep( 2000 )
EndFunc

Func TogglePause( )
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate( )
    Exit 0
EndFunc