|
[AutoIt] Uber Fishing Macro (works on rafts!)
This is a discussion on [AutoIt] Uber Fishing Macro (works on rafts!) within the Darkfall Macros forum part of the Darkfall category; UberFish Macro:
- Allows you to adjust how long you fish (Defualt is 10mins) and how long to rest.
-Auto ...
08-14-2009, 12:28
|
#1
|
Senior Member
Join Date: Jan 2008
Posts: 113
Received Thanks: 51
|
[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.
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
|
|
|
|
The Following User Says Thank You to Penakle For This Useful Post:
|
|
01-18-2010, 10:10
|
#2
|
Member
Join Date: Dec 2005
Posts: 50
Received Thanks: 3
|
Quote:
Originally Posted by Penakle
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
|
einfach nur kopieren?
just simply copy it?
|
|
|
02-24-2010, 13:42
|
#3
|
Junior Member
Join Date: Oct 2009
Posts: 4
Received Thanks: 0
|
Anyone gotten this to work ?
|
|
|
03-25-2010, 13:28
|
#4
|
|
Junior Member
Join Date: Mar 2010
Posts: 1
Received Thanks: 0
|
Just checked your code, I know it's an old post. But I can't see the Func NewPole( ) would work. And if you lose a fishingpole the whole rotation would fail.
Scenario1: (We say fishingpole is X)
Unsheated X > This will just switch between fishingpoles but will pick fishingpole in slot 0 at the end > Starts fishing > Sheated X > Rest
This work as long as the fishingpole doesn't break. Now lets see the other scenario
Unsheated X > Picks Fishingpole 0 > Starts fishing & Breaks > Error, when pressing R, since you can't unsheated an item you don't have equipped > Rests > Same Error as before > Equips fishingpole (but it's sheated in this state) > Not Fishing > Unsheats the fishingpole > Fails the rest > Sheats the fishingpole ... etc
I might thinking wrong, but this sounds logical to me at least
|
|
|
All times are GMT +2. The time now is 12:22.
|
|