[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