DFO Bots
[AutoIt] Uber Fishing Macro (works on rafts!), DFO Bots, Darkfall Online Bots
Get FREE Full Access for your Exploit or Guide!

Hot Games

MMORPG

FPS

MMOFPS

Browser MMORPG

Facebook Games

MOBA

Login
Username:
Password:

Sponsor
Posted By
Verification
MARKED AS
Working
Not Working!
0
Working!
2
LAST VERIFICATION
Working 10 years ago
by HackTransfer HackTransfer
Rating
  • Currently 0.00/5
Rating: 0.0/5 (0 votes cast)

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

Submitted: 10 years ago (11.11.2009) | Views: 3,957

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>

Does this still work?
Please login to verify [AutoIt] Uber Fishing Macro (works on rafts!)

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

Penakle