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.
Let me know if there is anything I can add to this!
Code:
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
![[AutoIt] Uber Fishing Macro (works on rafts!)](http://www.elitepvpers.de/forum/iconimages/darkfall-macros/autoit-uber-fishing-macro-works-rafts_ltr.gif)
