|
You last visited: Today at 09:35
Advertisement
[AutoIt] Uber Fishing Macro (works on rafts!)
Discussion on [AutoIt] Uber Fishing Macro (works on rafts!) within the General Gaming Discussion forum part of the General Gaming category.
08/14/2009, 12:28
|
#1
|
elite*gold: 0 
Join Date: Jan 2008
Posts: 113
Received Thanks: 56
|
[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
|
|
|
|
01/18/2010, 10:10
|
#2
|
elite*gold: 0
Join Date: Dec 2005
Posts: 88
Received Thanks: 4
|
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
|
elite*gold: 0
Join Date: Oct 2009
Posts: 4
Received Thanks: 4
|
Anyone gotten this to work ?
|
|
|
|
|
03/25/2010, 13:28
|
#4
|
elite*gold: 0
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 
|
|
|
|
 |
Similar Threads
|
Need luna fishing script for quick macro
09/12/2010 - General Gaming Discussion - 0 Replies
I need the quick macro script for fishing.
If anyone have it can you tell me pls..
thnx in advance!
|
Fishy Fishy Uber Fishing Bot with some cool feature
11/23/2009 - Dekaron Exploits, Hacks, Bots, Tools & Macros - 48 Replies
Hi ppl.Im sure there is no need for one more fish bot.I was having fun with .net and autoit.But at the end some cool stuff came out.So i wanted to share.
With this bot you can hide the game window while you are fishing and send bot to system tray.(see screen shot 2)
I dont have an antivirus software and i dont know if i have viruses atm.So scan it before using it.
You need to;
install .net framework 2.0 to be able to run the bot
login to game
|
Fishing Bot mit AutoIt
09/28/2009 - WoW Bots - 0 Replies
Guten Tag,
ich habe gerade den Fishbot (ich bin mir nicht sicher aber glaube von lofry) wieder gefunden. Wollte ihn mal hier für alle wieder reinstellen damit man nicht suchen muss. Wo ich ihn letzte mal gesucht habe habe ich ihn nicht gefunden.
Der Bot läuft über AutoIt und ist alle in einem Packet
Inhalte:
AutoIt
EyeDropper
TS LoadRunner
Die au3 Datei
|
FISHING MACRO (english)
09/22/2006 - WoW Exploits, Hacks, Tools & Macros - 2 Replies
Ok for the record this is not a fishing bot which i have made. I am just making a really simple guide on how to use it in english.
================================================
1. DOWNLOAD PROGRAM and SCRIPT..
http://www.megaupload.com/?d=7XS97OA2
2. UNZIP THE ARCHIVE TO A FOLDER
|
All times are GMT +1. The time now is 09:37.
|
|
![[AutoIt] Uber Fishing Macro (works on rafts!)](https://www.elitepvpers.com/forum/iconimages/general-gaming-discussion/autoit-uber-fishing-macro-works-rafts_ltr.gif){kind=small}
