Register for your free account! | Forgot your password?

Go Back   elitepvpers > General Gaming > General Gaming Discussion
You last visited: Today at 12:45

  • Please register to post and access all features, it's quick, easy and FREE!

 

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

Reply
 
Old   #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



Penakle is offline  
Thanks
1 User
Old   #2
 
elite*gold: 0
Join Date: Dec 2005
Posts: 87
Received Thanks: 4
Quote:
Originally Posted by Penakle View Post
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?


Azereus is offline  
Old   #3
 
elite*gold: 0
Join Date: Oct 2009
Posts: 4
Received Thanks: 4
Anyone gotten this to work ?
sjarewin is offline  
Thanks
1 User
Old   #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
demis_benjamin is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
Need luna fishing script for quick macro
I need the quick macro script for fishing. If anyone have it can you tell me pls.. thnx in advance!
0 Replies - General Gaming Discussion
Fishy Fishy Uber Fishing Bot with some cool feature
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...
48 Replies - Dekaron Exploits, Hacks, Bots, Tools & Macros
Fishing Bot mit AutoIt
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...
0 Replies - WoW Bots
FISHING MACRO (english)
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. ...
2 Replies - WoW Exploits, Hacks, Tools & Macros



All times are GMT +1. The time now is 12:45.


Powered by vBulletin®
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy
Copyright ©2016 elitepvpers All Rights Reserved.