[AutoIt] Uber Fishing Macro (works on rafts!)

UberFish Macro:

- Allows you to adjust how long you fish (Defualt is 10mins) and how long to rest.

-Auto switchs fishingpoles (Places as many as you'd like on Bar2)

-Allows eating before resting for quicker stam recovery!

-Works on Rafts, and on Shores!

-Auto Zoom's and and looks at water!

-Setup your own keys!

Start by resting then standing up with your Fishing Pole sheathed and in cross hair mode.

<div style="margin: 5px 20px 20px;">
<div class="smallfont" style="margin-bottom: 2px;">Code:</div>
<pre class="alt2" style="border: 1px inset; margin: 0px; padding: 6px; overflow: auto; width: 640px; height: 498px; text-align: left;" dir="ltr">Dim $c, $r, $e, $f
Global $Paused
HotKeySet("`", "TogglePause")
HotKeySet("{ESC}", "Terminate")
$f = InputBox( "Question", "How Long to Fish? Default is 10mins", "600000" )
$c = InputBox( "Question", "How Long to Rest?", "160000" )
$r = InputBox( "Question", "Hotbar number for Rest?", "0" )
$e = InputBox( "Question", "Would like to use Food? 1 yes, 2 for no", "2" )
If $e = 1 Then
$h = InputBox( "Question", "Hotbar number for Food?", "9" )
MsgBox( 0, "Alert", "Start by resting then standing up with your Fishing Pole sheathed and in crosshair mode. Then click OK and Alt + Tab into Darkfall to start the script. Press Grave to Pause, and Esc to Cancel. Macro made by Arthin Skystone" )
WinWaitActive( "Darkfall Online" )

While 1
Sleep ( 2000 )
Send( "R" )
Sleep ( 500 )
Call( "NewPole" )
Sleep ( 500 )
Call( "FishClick" )
Sleep ( 500 )
Call( "Eat" )
Sleep ( 1000 )
Call( "Rest" )
WEnd

ElseIf $e = 2 Then
MsgBox( 0, "Alert", "Start by resting then standing up with your Fishing Pole sheathed and in crosshair mode. Then click OK and Alt + Tab into Darkfall to start the script. Press Grave to Pause, and Esc to Cancel. Macro made by Arthin Skystone" )
WinWaitActive( "Darkfall Online" )

While 1
Sleep ( 2000 )
Send( "R" )
Sleep ( 500 )
Call( "FishClick" )
Call( "Rest" )
WEnd

Else
MsgBox( 0, "Alert", "You must choose yes or no to the food question" )
Exit
EndIf

Func FishClick( )
Sleep( 500 )
Send( "{DOWN 200}" )
MouseWheel("up",10)
Sleep( 500 )
MouseClick( "Left" )
Sleep( $f )
EndFunc

Func Rest( )
Sleep( 2000 )
Send( "{UP 300}" )
Send( "R" )
Sleep( 500 )
Send( $r )
Sleep( 500 )
MouseClick( "Left" )
Sleep( $c )
Send( "{SPACE}" )
Sleep( 500 )
EndFunc

Func Eat( )
Sleep( 2000 )
Send( $h )
Sleep( 500 )
EndFunc

Func NewPole( )
Sleep( 1000 )
Send( "{SHIFTDOWN}" )
Send( "2" )
Send( "{SHIFTUP}" )
Sleep( 100 )
Send( "1" )
Sleep( 250 )
Send( "2" )
Sleep( 250 )
Send( "3" )
Sleep( 250 )
Send( "4" )
Sleep( 250 )
Send( "4" )
Sleep( 250 )
Send( "5" )
Sleep( 250 )
Send( "6" )
Sleep( 250 )
Send( "7" )
Sleep( 250 )
Send( "8" )
Sleep( 250 )
Send( "9" )
Sleep( 250 )
Send( "0" )
Sleep( 1000 )
Send( "{SHIFTDOWN}" )
Send( "1" )
Send( "{SHIFTUP}" )
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</pre>
</div>

Penakle