Register for your free account! | Forgot your password?

Go Back   elitepvpers > MMORPGs > Rift > Rift Hacks, Bots, Cheats & Exploits
You last visited: Today at 05:14

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

 

Simple Autoit Rift Fishing Bot

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Sep 2015
Posts: 5
Received Thanks: 2
Simple Autoit Rift Fishing Bot

Due to many requests I've added support for using lures. This, unfortunately, made the 'simple' portion of the bot be a bit of a misnomer. The GUI code necessary to pick up the rod location, lure location, lure duration, and lure cooldown more than doubled the code size.

Still, it is a fairly simple, and well documented bot. Useful for study on how to create a bot that has limited functions.


Short Manual:
Install Autoit. Copy the code below into a file, and run that file from Autoit. Have your bags open if you want to use lures. When you 'start fishing' click on the Rift screen where you want to fish.

Longer Manual
To make this work you need to do a few things:

0. Install Autoit. Open up the Scite editor. Copy the below code into a 'new' file and save that file as "Odlid Tubpu Fishing Bot v2".

1. You must be signed into Rift, go to Rift System->Settings->Video and set Window Mode to "Windowed". I use 1920x1080. If your setting is different you might need to adjust two parameters in the script as indicated.

2. It is ESSENTIAL that you have Rift 'autolooting' off. Do that by going to the Rift game:
SYSTEM -> Settings -> Interface -> Misc
setting page and uncheck the box 'Auto-Loot By Default' the 'Apply' that change.

3. Put your pole in the "1" fishing slot. The bot will only work if you can cast your rod when you manually press the "1" key.

4. After you start the Autoit script you have the option to select a lure/stack of lures to use. A GUI pops up - if you check 'Use Lures' it will ask you to press the 'Set Rod Position' - press the button then LEFT click on your rod. This left click on the rod sets the screen position of the rod for applyng your lures. Do the same for lures - set the screen position of the lure/stack of lures you want by first pressing the 'Set Lure Position' button then LEFT click on the lure/stack of lures. Set the lure duration and lure cooldown values appropriately.

5. Press the 'Start Fishing' button on the pop-up GUI. You then have 5 seconds to click and hold the cursor over the Rift screen where you want to fish. You must fish in the lower half of the screen.

5. To stop fishing=stop using the fishing bot script press "Esc"

That's it. Watch it pull in fish. When your inventory gets full/you disconnect/etc. the script will stop after 7.5 minutes of no successful fish catches.

Some programming notes:

1. This really doesn't use the screen at all for the 'fishing' part. It detects when the cursor changes and clicks then.

2. It does check pixel colors to determine when to loot. In Rift all waters where you can fish 'ripple'. However the loot pop up box does not. If the background around the cursor is rippling then it knows that there is nothing to loot. One user could not get it to work because he had set the video quality so low that water was just one color and did not 'ripple'. If you have the same you need to adjust your video quality up to where the water looks more like wavy water. FYI: To get Rift video changes to show you sometimes need to fully get out of Rift and sign back in.

I've put in a few comments when it wasn't self explanatory.

Enjoy!!

Odlid Tubpu

updated: Occasionally the fish-pull event (a cursor change) would not occur. Added a little on-screen mouse movement to always force a cursor change when the fish hits.

updated: changed documentation to clarify issues users have reported.

updated: added lure support and revised user information appropriately

Code:
#include <Misc.au3>
#include <Date.au3>
#include <MsgBoxConstants.au3>
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>

; ********************* IMPORTANT!!!!!!!! *************************
; This is set up to work with 'autoloot' set to 'off'.
; If you use Autoloot then once you catch something it automatically
; puts the fish in your back-pack.  However, there iis not any simple
; event to catch that the loot box has popped and has gone away - therefore
; you must set 'autoloot' to 'off' as follows:
;
;       SYSTEM -> Settings -> Interface -> Misc
;
; setting page and uncheck the box 'Auto-Loot By Default' then
; 'Apply' that change.
;
; *****************************************************************

Local $i, $j
Local $timer

Global $g_MouseX, $g_MouseY, $g_MouseCount, $g_MouseReposition
Global $g_timeLastLooted
Global $g_CsrNbr
Global $g_LastCrsNbr
Global $g_CastCount, $g_PullCount, $g_LootCount, $g_RecastCount
Global $g_XPixelOffset = 50 ; you may have to play with this value to work on resolutions other than 1920 x 1080
Global $g_YPixelOffset = 65 ; you may have to play with this value to work on resolutions other than 1920 x 1080
Global $g_UseLure = False
Global $g_RodPos[2]
Global $g_LurePos[2]
Global $g_LureDuration
Global $g_LureCooldown
Global $g_LureDurationTimer = 0
Global $g_LureCooldownTimer = 0


HotKeySet("{esc}","Terminate")

Setup()

While 1
	$g_CsrNbr = _WinAPI_GetCursorInfo()
	If $g_LastCrsNbr = $g_CsrNbr[2] Then
		; the cursor type has not changed, move the cursor a little bit since sometimes that masks the cursor change
		$g_MouseCount = $g_MouseCount+1
		If $g_MouseCount >= 5 Then
			$g_MouseCount = 0
			If $g_MouseReposition = True Then
				MouseMove($g_MouseX, $g_MouseY)
				$g_MouseReposition = False
			Else
				MouseMove($g_MouseX+Random(-2,2),$g_MouseY+Random(-2,2))
				$g_MouseReposition = True
			EndIf
		Endif
	Else
		; the cursor type changed, pull it in!
		FishingRodPull()
		; after the pull the loot popup may appear
		If isLoot() Then
			; the loot popup is now active
			LootFish()
			$g_RecastCount = 0
			$g_timeLastLooted=TimerInit()
			If $g_UseLure Then
				LureRefreshCheck()
			EndIf
			Cast()
		EndIf
	EndIf

	Sleep(100)
	;check if it has been more than 45 seconds since last successful catch
	If TimerDiff($g_TimeLastLooted) > 45000 Then
		$g_RecastCount =$g_RecastCount+1
		If $g_RecastCount < 10 Then
			ConsoleWrite(_NowTime(5)&" **** Recasting "&$g_RecastCount&@LF)
			$g_timeLastLooted=TimerInit()
			Cast()
		Else
			; 7.5 minutes without a catch, something is wrong, stop program
			Exit
		EndIf
	EndIf
WEnd

Func Setup()
	; see if a lure is desired
	$g_RodPos[0]=-1
	$g_RodPos[1]=-1
	$g_LurePos[0]=-1
	$g_LurePos[1]=-1
	GetLureInfo()
	If $g_UseLure Then
		ConsoleWrite("Rod: X="&$g_RodPos[0]&", Y="&$g_RodPos[1]&@LF)
		ConsoleWrite("Lure: X="&$g_LurePos[0]&", Y="&$g_LurePos[1]&@LF)
		ConsoleWrite("Duration:"&$g_LureDuration/1000/60&" minutes"&@LF)
		ConsoleWrite("Cooldown:"&$g_LureCooldown/1000/60/60&" hours"&@LF&@LF)
	Else
		ConsoleWrite("No lure selected"&@LF&@LF)
	EndIf

	Local $pos[2]
	ConsoleWrite(_NowTime(5)&" Initializing - you have 5 seconds to click on fishing area.  Must be at 1/2 screen or LOWER!"&@LF _
							&" Press 'ESC' to exit running program"&@LF _
				)
	Sleep(5000)
	$g_RecastCount=0
	$g_CastCount=0
	$g_PullCount=0
	$g_LootCount=0
	$pos=MouseGetPos()
	$g_MouseX=$pos[0]
	$g_MouseY=$pos[1]
	$g_timeLastLooted=TimerInit()
	If $g_UseLure Then
		LureRefreshCheck()
	EndIf
	MouseMove($g_MouseX,$g_MouseY)
	Cast()
EndFunc

Func IsLoot()
	Local $mousePos
	Local $oldPixelValue[20]
	Local $i, $x, $y
	Local $isLoot=True
	$mousePos = MouseGetPos()
	$x=$mousePos[0]-$g_XPixelOffset
	$y=$mousePos[1]-$g_YPixelOffset
	; get 20 pixels around and above where the cursor is located
	For $i=0 To 19
		$oldPixelValue[$i]=PixelGetColor($x+5*$i, $y)
	Next
	; wait for a short time
	Sleep(30)
	; if the loot popup is up then this area is constant and the screen does not change
	; if fishing then the water 'ripples' and at least one of these points will change
	For $i=0 To 19
		If $oldPixelValue[$i]<>PixelGetColor($x+5*$i, $y) Then
			; one of the pixels changed therefore loot popup is not up
			Return False
		EndIf
	Next
	; if it got here the loot popup is up
	Return True
EndFunc


Func Cast()
	$g_CastCount=$g_CastCount+1
	$g_PullCount=0
	ConsoleWrite(_NowTime(5)&" Casting "&$g_CastCount&@LF)
	MouseMove($g_MouseX,$g_MouseY)
	Sleep(100)
	MouseClick("left")
	Sleep(200)
	Send("1")
	Sleep(500)
	MouseClick("left")
	Sleep(500)
	$g_CsrNbr = _WinAPI_GetCursorInfo()
	$g_LastCrsNbr = $g_CsrNbr[2]
EndFunc

Func FishingRodPull()
	$g_PullCount=$g_PullCount+1
	ConsoleWrite(_NowTime(5)&" Pull    "&$g_CastCount&"."&$g_PullCount&@LF)
	Sleep(100)
	$pos= MouseGetPos()
	MouseClick("left", $pos[0], $pos[1], 1, 0)
	Sleep(500)
	$g_CsrNbr = _WinAPI_GetCursorInfo()
	$g_LastCrsNbr = $g_CsrNbr[2]
EndFunc

Func LootFish()
	$g_LootCount=$g_LootCount+1
	ConsoleWrite(_NowTime(5)&" Looting "&$g_LootCount&@LF)
	MouseClick("left")
	Sleep(200)
EndFunc

Func LureRefreshCheck()
	Local $cursorNbr
	Local $lastCrsNbr
	; check if the lure duration has exceeded]
	If $g_LureDuration < TimerDiff($g_LureDurationTimer) Then
		; see if the lure cooldown is over
		If $g_LureCooldown < TimerDiff($g_LureCooldownTimer) Then
			; time to apply the lure to the rod
			$lastCrsNbr = _WinAPI_GetCursorInfo()
			MouseMove($g_LurePos[0],$g_LurePos[1])
			Sleep(50)
			MouseClick("right")
			Sleep(100)
			$cursorNbr = _WinAPI_GetCursorInfo()
			If $cursorNbr[2] = $lastCrsNbr[2] Then
				; the cursor did not change, therefore there is no lure (probably used them all)
				ConsoleWrite(_NowTime(5)&" Could not apply lure - out of lures?"&@LF)
				$g_LureCooldown = 10^10 ; never check for this lure again
			Else
				; the cursor has changed and is ready to apply lure to rod
				MouseMove($g_RodPos[0],$g_RodPos[1])
				Sleep(50)
				MouseClick("left")
				; wait several seconds to allow lure to apply
				Sleep(5000)
				ConsoleWrite(_NowTime(5)&" Lure applied to rod"&@LF)
			EndIf
			; reset the timers
			$g_LureDurationTimer = TimerInit()
			$g_LureCooldownTimer = TimerInit()
		EndIf
	EndIf
EndFunc

Func GetLureInfo()
    ; Create a GUI with various controls.
	Local $fishGui = GUICreate("Odlid Tubpu Fishing Bot", 550, 170, 200, 200)

    ; Create a button control for exit and run the bot.
    Local $fishStartBtn = GUICtrlCreateButton("Start Fishing!", 210, 120, 100, 25)

	; Create a checkbox control for lure support
	Local $useLure = GUICtrlCreateCheckbox("Use a Lure?", 10, 10, 90, 25)
	Local $useLureText = GUICtrlCreateLabel("",100,16,450,25)

	; Create lure control labels
	Local $lureHeaderText = GUICtrlCreateLabel("Set Rod Position      Set Lure Position        Lure Duration           Lure Cooldown",76,40)
	GUICtrlSetColor($lureHeaderText, 0x808080)

	; Create a button control for rod position
	Local $rodPosBtn = GUICtrlCreateButton("Start", 70, 55, 90, 25)
	GUICtrlSetState($rodPosBtn, $GUI_DISABLE)
	GUICtrlSetTip($rodPosBtn, "Press the 'Start' button then LEFT click on your fishing rod in your OPEN BAG inventory")
	Local $rodPosText = GUICtrlCreateLabel("",76,85,90,25)

	; Create a button control for lure position
	Local $lureBtn = GUICtrlCreateButton("Start", 168, 55, 90, 25)
	GUICtrlSetState($lureBtn, $GUI_DISABLE)
	GUICtrlSetTip($lureBtn, "Press the 'Start' button then LEFT click on the stack of lures in your OPEN BAG inventory")
	Local $lurePosText = GUICtrlCreateLabel("",174,85,90,25)

	; Create dropdown for lure duration
	Local $lureDuration = GUICtrlCreateCombo("",266,56,90,25)
	GUICtrlSetState($lureDuration, $GUI_DISABLE)
	GUICtrlSetData($lureDuration, "2 minutes|5 minutes|10 minutes|15 minutes", "5 minutes")
	GUICtrlSetTip($lureDuration, "Set the duration this lure lasts on the rod")

	; Create dropdown for lure cooldown
	Local $lureCooldown = GUICtrlCreateCombo("",365,56,90,25)
	GUICtrlSetState($lureCooldown, $GUI_DISABLE)
	GUICtrlSetData($lureCooldown, "No Cooldown|2 hours|6 hours|8 hours", "No Cooldown")
	GUICtrlSetTip($lureCooldown, "Set the cooldown period for this lure before it can be applied again")

	; Create a
	; Display the GUI.
    GUISetState(@SW_SHOW, $fishGui)

    ; Loop until the user exits.
    While 1
		Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $fishStartBtn
                ; make sure everything is set up properly before exiting
				If $g_UseLure Then
					If $g_RodPos[0]<0 Or $g_RodPos[1]<0 Then
						MsgBox(0,"Error","Cannot exit, Lure requested but rod position is not set")
					ElseIf $g_LurePos[0]<0 Or $g_LurePos[1]<0 Then
						MsgBox(0,"Error","Cannot exit, Lure requested but rod position is not set")
					Else
						; all the lure stuff is set up properly
						$g_LureDuration = GUICtrlRead($lureDuration)
						$g_LureCooldown = GUICtrlRead($lureCooldown)
						Select
							; lures actually last 1 minute longer than they say
							Case $g_LureDuration = "2 minutes"
								$g_LureDuration  = 180000
							Case $g_LureDuration = "5 minutes"
								$g_LureDuration  = 360000
							Case $g_LureDuration = "10 minutes"
								$g_LureDuration  = 660000
							Case $g_LureDuration = "15 minutes"
								$g_LureDuration  = 960000
						EndSelect
						Select
							; add 2 mins to cooldown to be 'sure'
							Case $g_LureCooldown = "No Cooldown"
								$g_LureCooldown = 0
							Case $g_LureCooldown = "2 hour"
								$g_LureCooldown = 7380000
							Case $g_LureCooldown = "6 hours"
								$g_LureCooldown = 21780000
							Case $g_LureCooldown = "8 hours"
								$g_LureCooldown = 289800000
						EndSelect
						ExitLoop
					EndIf
				Else
					; no lure
					ExitLoop
				EndIf

			Case $useLure
				; only allow lure information when box is checked
                If GUICtrlRead($useLure) = $GUI_CHECKED Then
					GUICtrlSetData($useLureText,"Your inventory bag(s) containing the rod and lure must BE OPEN and STAY OPEN to use lures!")
					GUICtrlSetColor($lureHeaderText, 0x000000)
					GUICtrlSetState($rodPosBtn, $GUI_Enable)
					GUICtrlSetState($lureBtn, $GUI_Enable)
					GUICtrlSetState($lureDuration, $GUI_Enable)
					GUICtrlSetState($lureCooldown, $GUI_Enable)
					If $g_RodPos[0] >= 0 Then
						GUICtrlSetData($rodPosText,"Set to ("&$g_RodPos[0]&","&$g_RodPos[1]&")")
					Else
						GUICtrlSetData($rodPosText,"")
					EndIf
					If $g_LurePos[0] >= 0 Then
						GUICtrlSetData($lurePosText,"X="&$g_LurePos[0]&" Y="&$g_LurePos[1])
					Else
						GUICtrlSetData($rodPosText,"")
					EndIf
					$g_UseLure = True
                Else
					GUICtrlSetData($useLureText,"")
					GUICtrlSetColor($lureHeaderText, 0x808080)
					GUICtrlSetState($rodPosBtn, $GUI_DISABLE)
					GUICtrlSetState($lureBtn, $GUI_DISABLE)
					GUICtrlSetState($lureDuration, $GUI_DISABLE)
					GUICtrlSetState($lureCooldown, $GUI_DISABLE)
					GUICtrlSetData($rodPosText,"")
					GUICtrlSetData($lurePosText,"")
					$g_UseLure = False
                EndIf

			Case $rodPosBtn
				Local $rodSet = False
				Local $dll = 'user32.dll'
				GUICtrlSetState($rodPosBtn, $GUI_DISABLE)
				GUICtrlSetState($lureBtn, $GUI_DISABLE)
				GUICtrlSetState($lureDuration, $GUI_DISABLE)
				GUICtrlSetState($lureCooldown, $GUI_DISABLE)
				While Not $rodSet
					If _IsPressed('01',$dll) Then
						; the left mouse button was pressed, set the rod position at this coordinate
						$g_RodPos = MouseGetPos()
						While _IsPressed('01',$dll)
							Sleep(5)
						WEnd
						Sleep(100)
						MouseClick("left",$g_RodPos[0],$g_RodPos[1])
						Sleep(50)
						$rodSet = True
					Else
						; no mouseclick yet
					EndIf
					Sleep(10)
				WEnd
				GUICtrlSetData($rodPosText,"Set to ("&$g_RodPos[0]&","&$g_RodPos[1]&")")
				GUICtrlSetState($rodPosBtn, $GUI_Enable)
				GUICtrlSetState($lureBtn, $GUI_Enable)
				GUICtrlSetState($lureDuration, $GUI_Enable)
				GUICtrlSetState($lureCooldown, $GUI_Enable)

			Case $lureBtn
				Local $lureSet = False
				Local $dll = 'user32.dll'
				GUICtrlSetState($rodPosBtn, $GUI_DISABLE)
				GUICtrlSetState($lureBtn, $GUI_DISABLE)
				GUICtrlSetState($lureDuration, $GUI_DISABLE)
				GUICtrlSetState($lureCooldown, $GUI_DISABLE)
				While Not $lureSet
					If _IsPressed('01',$dll) Then
						; the left mouse button was pressed, set the lure position at this coordinate
						$g_LurePos = MouseGetPos()
						While _IsPressed('01',$dll)
							Sleep(5)
						WEnd
						Sleep(100)
						MouseClick("left",$g_LurePos[0],$g_LurePos[1])
						Sleep(50)
						$lureSet = True
					Else
						; no mouseclick yet
					EndIf
					Sleep(10)
				WEnd
				GUICtrlSetData($lurePosText,"X="&$g_LurePos[0]&" Y="&$g_LurePos[1])
				GUICtrlSetState($rodPosBtn, $GUI_Enable)
				GUICtrlSetState($lureBtn, $GUI_Enable)
				GUICtrlSetState($lureDuration, $GUI_Enable)
				GUICtrlSetState($lureCooldown, $GUI_Enable)


			Case $lureDuration
  				$g_LureDuration = GUICtrlRead($lureDuration)

			Case $lureCooldown
				$g_LureCooldown = GUICtrlRead($lureCooldown)
		EndSwitch
    WEnd

    ; Delete the previous GUI and all controls.
    GUIDelete($fishGui)

EndFunc

Func Terminate()
	Exit
EndFunc



Odlid Tubpu is offline  
Thanks
2 Users
Old   #2
 
elite*gold: 0
Join Date: Sep 2015
Posts: 5
Received Thanks: 2
Original, simple fishing bot is here for those who want to study the construction of a simple bot in Autoit. This code was before adding lure support which lengthened the code (mostly for the GUI) by over 3x the original below.

Code:
#include <Misc.au3>
#include <Date.au3>
#include <MsgBoxConstants.au3>
#include <WinAPI.au3>

; ********************* IMPORTANT!!!!!!!! *************************
; This is set up to work with 'autoloot' set to 'off'.
; If you use Autoloot then once you catch something it automatically
; puts the fish in your back-pack.  However, there is no simple
; event to catch that the loot box has looted and it is time to recast.
; To assure 'autoloot' is 'off' go to the following:
;
;       SYSTEM -> Settings -> Interface -> Misc
;
; setting page and uncheck the box 'Auto-Loot By Default' then
; 'Apply' that change.
;

Local $i, $j
Local $timer

Global $g_MouseX, $g_MouseY, $g_MouseCount, $g_MouseReposition
Global $g_timeLastLooted
Global $g_CsrNbr
Global $g_LastCrsNbr
Global $g_CastCount, $g_PullCount, $g_LootCount, $g_RecastCount
Global $g_XPixelOffset = 50 ; you may have to play with this value to work on resolutions other than 1920 x 1080
Global $g_YPixelOffset = 65 ; you may have to play with this value to work on resolutions other than 1920 x 1080

HotKeySet("{esc}","Terminate")

Setup()

While 1
	$g_CsrNbr = _WinAPI_GetCursorInfo()
	If $g_LastCrsNbr = $g_CsrNbr[2] Then
		; the cursor type has not changed, move the cursor a little bit since sometimes that masks the cursor change
		$g_MouseCount = $g_MouseCount+1
		If $g_MouseCount >= 5 Then
			$g_MouseCount = 0
			If $g_MouseReposition = True Then
				MouseMove($g_MouseX, $g_MouseY)
				$g_MouseReposition = False
			Else
				MouseMove($g_MouseX+Random(-2,2),$g_MouseY+Random(-2,2))
				$g_MouseReposition = True
			EndIf
		Endif
	Else
		; the cursor type changed, pull it in!
		FishingRodPull()
		; after the pull the loot popup may appear
		If isLoot() Then
			; the loot popup is now active
			LootFish()
			$g_RecastCount = 0
			$g_timeLastLooted=TimerInit()
			Cast()
		EndIf
	EndIf

	Sleep(100)
	;check if it has been more than 45 seconds since last successful catch
	If TimerDiff($g_TimeLastLooted) > 45000 Then
		$g_RecastCount =$g_RecastCount+1
		If $g_RecastCount < 10 Then
			ConsoleWrite(_NowTime(5)&" **** Recasting "&$g_RecastCount&@LF)
			$g_timeLastLooted=TimerInit()
			Cast()
		Else
			; 7.5 minutes without a catch, something is wrong, stop program
			Exit
		EndIf
	EndIf
WEnd

Func Setup()
	Local $pos[2]
	ConsoleWrite(_NowTime(5)&" Initializing - you have 5 seconds to click on fishing area.  Must be at 1/2 screen or LOWER!"&@LF _
							&" Press 'ESC' to exit running program"&@LF _
				)
	Sleep(5000)
	$g_RecastCount=0
	$g_CastCount=0
	$g_PullCount=0
	$g_LootCount=0
	$pos=MouseGetPos()
	$g_MouseX=$pos[0]
	$g_MouseY=$pos[1]
	$g_timeLastLooted=TimerInit()

	Cast()
EndFunc


Func IsLoot()
	Local $mousePos
	Local $oldPixelValue[20]
	Local $i, $x, $y
	Local $isLoot=True
	$mousePos = MouseGetPos()
	$x=$mousePos[0]-$g_XPixelOffset
	$y=$mousePos[1]-$g_YPixelOffset
	; get 20 pixels around and above where the cursor is located
	For $i=0 To 19
		$oldPixelValue[$i]=PixelGetColor($x+5*$i, $y)
	Next
	; wait for a short time
	Sleep(30)
	; if the loot popup is up then this area is constant and the screen does nott change
	; if fishing then the water 'ripples' and at least one of these points will change
	For $i=0 To 19
		If $oldPixelValue[$i]<>PixelGetColor($x+5*$i, $y) Then
			; one of the pixels changed therefore loot popup is not up
			Return False
		EndIf
	Next
	; if it got here the loot popup is up
	Return True
EndFunc



Func Cast()
	$g_CastCount=$g_CastCount+1
	$g_PullCount=0
	ConsoleWrite(_NowTime(5)&" Casting "&$g_CastCount&@LF)
	MouseMove($g_MouseX,$g_MouseY)
	Sleep(100)
	MouseClick("left")
	Sleep(200)
	Send("1")
	Sleep(500)
	MouseClick("left")
	Sleep(500)
	$g_CsrNbr = _WinAPI_GetCursorInfo()
	$g_LastCrsNbr = $g_CsrNbr[2]
EndFunc

Func FishingRodPull()
	$g_PullCount=$g_PullCount+1
	ConsoleWrite(_NowTime(5)&" Pull    "&$g_CastCount&"."&$g_PullCount&@LF)
	Sleep(100)
	$pos= MouseGetPos()
	MouseClick("left", $pos[0], $pos[1], 1, 0)
	Sleep(500)
	$g_CsrNbr = _WinAPI_GetCursorInfo()
	$g_LastCrsNbr = $g_CsrNbr[2]
EndFunc

Func LootFish()
	$g_LootCount=$g_LootCount+1
	ConsoleWrite(_NowTime(5)&" Looting "&$g_LootCount&@LF)
	MouseClick("left")
	Sleep(200)
EndFunc

Func Terminate()
	Exit
EndFunc


Odlid Tubpu is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
Rift Fishing Assistant
Rift Fishing Assistant is being build to be an "Assistant" Program, and not simply a fishing bot. Yes it will fish for you, but over time, if I see...
62 Replies - Rift Hacks, Bots, Cheats & Exploits
MoeFish BOT: advanced-simple fishing bot
hey guys, so as promised here is my pet project from rift, I present to you MOEFISH BOT! what is this sorcery:MoeFish Bot is a small...
216 Replies - Rift Hacks, Bots, Cheats & Exploits
[C++]-[Release] Simple Fishing Bot
My First try to make a Fishing bot... 2-3 weeks ago.. its working 100% :) For all C++ Geeks yeah its C XP DWORD FischBotCheck=0; int...
23 Replies - Metin2 Hacks, Bots, Cheats, Exploits & Macros
[AC Tool] Simple Fishing Script
// Script created by Mouldy Tacos // This simple fishing and resting script will fish for you, then rest, then fish, etc. // Start about crouch...
0 Replies - General Gaming Discussion



All times are GMT +2. The time now is 05:14.


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

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