Mana Missile / Rest macro

[Parog]

Coded in autoIT Use against a wall to level vitality / vigor and magic resistance.

` = Pause
Delete = Exit script

Dim $a, $b, $c, $d, $e, $f
Global $Paused
HotKeySet("`", "TogglePause")
HotKeySet("{DEL}", "Terminate")
$d = InputBox( "Question", "Hotbar number for Mana Missile?", "1" )
$e = InputBox( "Question", "Hotbar number for Heal Self?", "2" )
$f = InputBox( "Question", "Hotbar number for Rest?", "9" )
$b = InputBox( "Question", "How Many Mana Missiles?", "18" )
$c = InputBox( "Question", "How Long to Rest?", "155000" )
MsgBox( 0, "Alert", "Click OK then Alt + Tab into Darkfall to start the script. - Script brought to you by Parog of www.MMOwned.com" )
WinWaitActive( "Darkfall Online" )

While 1
    $a = 0
    Sleep ( 2000 )
    Send( "R" )
    Sleep ( 500 )
    Call( "HealSelf" )
    
    Do
        Call( "ManaMissile" )
        $a = $a + 1
    Until $a = $b
    Sleep( 500 )
    Call( "HealSelf" )
    Sleep( 2500 )
    Call( "Rest" )
WEnd

Func HealSelf( )
    Sleep( 500 )
    Send( $e )
    Sleep( 500 )
    MouseClick( "Left" )
    Sleep( 2400 )
EndFunc

Func ManaMissile( )
    Sleep( 500 )
    Send( $d )
    Sleep( 500 )
    MouseClick( "Left" )
    Sleep( 1100 )
    EndFunc

Func Rest( )
    Sleep( 2000 )
    Send( "R" )
    Sleep( 500 )
    Send( $f )
    Sleep( 500 )
    MouseClick( "Left" )
    Sleep( $c )
    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