Taejim's Fishing Bot

**icykoala** · 07-16-2015

Does This work on Windows 8 ?

**msazndragon** · 07-16-2015

How do I run it on windows 8.1? It works on my windows 7 computer

**errorlog** · 07-17-2015

do you know the address for the Boolean that triggers the Game if the player is on the water and or not...
because that can be use to create a more Stable Anti-gravity Hack
been looking for it for a while but i cant seem to find the pointer

**JohnTGM** · 07-17-2015

Realy nice job.

**konradmm** · 07-17-2015

If u dont mind, im using ur pointers to create my own fish bot (currently working on auto-drop of boots)
User would need only to show the boot icon in the transparent box:

**Vuqe** · 07-17-2015

Originally Posted by konradmm

If u dont mind, im using ur pointers to create my own fish bot (currently working on auto-drop of boots)
User would need only to show the boot icon in the transparent box:

Looking cool man! Hope its getting released soon

**taejim** · 07-17-2015

Originally Posted by icykoala

Does This work on Windows 8 ?

Originally Posted by msazndragon

How do I run it on windows 8.1? It works on my windows 7 computer

just install AHK and then run the file as admin

Originally Posted by konradmm

If u dont mind, im using ur pointers to create my own fish bot (currently working on auto-drop of boots)
User would need only to show the boot icon in the transparent box:

yeah you are welcome m8

perharps could i have ur skype? and i tried to create the GUI but it seem really pointless. I'm trying to approach the problem in a different way message me your skype we can discuss this

**konradmm** · 07-17-2015

Originally Posted by taejim

yeah you are welcome m8

perharps could i have ur skype? and i tried to create the GUI but it seem really pointless. I'm trying to approach the problem in a different way message me your skype we can discuss this

I guess i dont know how to PM u or i can't.
anyway here is my skype: ashcangm

**DontkiJlme** · 07-17-2015

fixed :C WTF ?

**taejim** · 07-17-2015

Okay ppl so this is my new code im have been working on, it is much shorter and 3 mode combine, it should be better than Zog's fishing script that i used before

Water, Choco, Lava all-in-one:

Code:

#WinActivateForce

Numpad6::
	WinGet, pidn, PID, A
	pid := pidn
	WinGet, hwnds, ID, A
	Handle := hwnds
	Lure := 9999
	Base := getProcessBaseAddress()
	WaterAddress := GetAddressWater(Base,0x009570DC) 
	LavaAddress := GetAddressLava(Base,0x009570DC) 
	ChocoAddress := GetAddressChoco(Base,0x009570DC) 
	
	LureCount := 0
	Loop %Lure%
	{
		LureCount := LureCount +1
		ControlSend, , {c down}, ahk_pid %pid%
		Sleep, 86
		ControlSend, , {c up}, ahk_pid %pid%
		Sleep, 500
		ControlSend, , {f down}, ahk_pid %pid%
		Sleep, 86
		ControlSend, , {f up}, ahk_pid %pid%
		Catch := 0
		PoleCheck := 40

		Loop  
		{
			If (Catch = 1)
			{	
				break
			}
			else
			{
				If (PoleCheckN = PoleCheck)
				{
					ControlSend, , {f down}, ahk_pid %pid%
					Sleep, 86
					ControlSend, , {f up}, ahk_pid %pid%
					LureCount := 0
				}
				else
				{
				}
				CaughtWater := ReadMemory(WaterAddress)
				CaughtLava := ReadMemory(LavaAddress)
				CaughtChoco := ReadMemory(ChocoAddress)
				If (CaughtWater = 1 or CaughtLava = 1 or CaughtChoco = 1)
				{
					ControlSend, , {f down}, ahk_pid %pid%
					Sleep, 86
					ControlSend, , {f up}, ahk_pid %pid%
					Random, Wait, 2000, 3500
					Sleep, %Wait%
					Catch := 1
				}
				else 
				{
					PoleCheckN := PoleCheckN +1
					Sleep, 1000
				}
			}
		}
	}
ExitApp

Numpad7::
ExitApp

GetAddressWater(Base, Address)
{
    pointerBase := base + Address
    y1 := ReadMemory(pointerBase)
    y2 := ReadMemory(y1 + 0x144)
    y3 := ReadMemory(y2 + 0xe4)
    Return WaterAddress := (y3 + 0x70)   
}

GetAddressLava(Base, Address)
{
    	pointerBase := base + Address
    	y1 := ReadMemory(pointerBase)
    	y2 := ReadMemory(y1 + 0x144)
    	y3 := ReadMemory(y2 + 0xe4)
    	Return LavaAddress := (y3 + 0x514) 
}

GetAddressChoco(Base, Address)
{
    	pointerBase := base + Address
    	y1 := ReadMemory(pointerBase)
    	y2 := ReadMemory(y1 + 0x144)
    	y3 := ReadMemory(y2 + 0xe4)
    	Return ChocoAddress := (y3 + 0x2c0) 
}

getProcessBaseAddress()
{
    	Global Handle
    	return DllCall( A_PtrSize = 4
                            ? "GetWindowLong"
                            : "GetWindowLongPtr"
                        , "Ptr", Handle
                        , "Int", -6
                        , "Int64") ; Use Int64 to prevent negative overflow when AHK is 32 bit and target process is 64bit
     	; If DLL call fails, returned value will = 0
}   

ReadMemory(MADDRESS)
{
    	Global pid
    	VarSetCapacity(MVALUE,4,0)
    	ProcessHandle := DllCall("OpenProcess", "Int", 24, "Char", 0, "UInt", pid, "UInt")
    	;DllCall("ReadProcessMemory","UInt",ProcessHandle,"UInt",MADDRESS,"Str",MVALUE,"UInt",4,"UInt *",0)
    	DllCall("ReadProcessMemory", "UInt", ProcessHandle, "Ptr", MADDRESS, "Ptr", &MVALUE, "Uint",4)
    	Loop 4
        	result += *(&MVALUE + A_Index-1) << 8*(A_Index-1)
    	return, result
}

P/s: i cant edit my 1st post any idea why? @maddoggy00 please check this out for me i cant edit my 1st post :-?

**ptfock** · 07-17-2015

Originally Posted by taejim

P/s: i cant edit my 1st post any idea why?

Maybe goes for approval. GJ

**taejim** · 07-17-2015

Originally Posted by ptfock

Maybe goes for approval. GJ

what do you mean?

**DontkiJlme** · 07-17-2015

Originally Posted by taejim

Okay ppl so this is my new code im have been working on, it is much shorter and 3 mode combine, it should be better than Zog's fishing script that i used before

Water, Choco, Lava all-in-one:

Code:

#WinActivateForce

Numpad6::
	WinGet, pidn, PID, A
	pid := pidn
	WinGet, hwnds, ID, A
	Handle := hwnds
	Lure := 9999
	Base := getProcessBaseAddress()
	WaterAddress := GetAddressWater(Base,0x009570DC) 
	LavaAddress := GetAddressLava(Base,0x009570DC) 
	ChocoAddress := GetAddressChoco(Base,0x009570DC) 
	
	LureCount := 0
	Loop %Lure%
	{
		LureCount := LureCount +1
		ControlSend, , {c down}, ahk_pid %pid%
		Sleep, 86
		ControlSend, , {c up}, ahk_pid %pid%
		Sleep, 500
		ControlSend, , {f down}, ahk_pid %pid%
		Sleep, 86
		ControlSend, , {f up}, ahk_pid %pid%
		Catch := 0
		PoleCheck := 40

		Loop  
		{
			If (Catch = 1)
			{	
				break
			}
			else
			{
				If (PoleCheckN = PoleCheck)
				{
					ControlSend, , {f down}, ahk_pid %pid%
					Sleep, 86
					ControlSend, , {f up}, ahk_pid %pid%
					LureCount := 0
				}
				else
				{
				}
				CaughtWater := ReadMemory(WaterAddress)
				CaughtLava := ReadMemory(LavaAddress)
				CaughtChoco := ReadMemory(ChocoAddress)
				If (CaughtWater = 1 or CaughtLava = 1 or CaughtChoco = 1)
				{
					ControlSend, , {f down}, ahk_pid %pid%
					Sleep, 86
					ControlSend, , {f up}, ahk_pid %pid%
					Random, Wait, 2000, 3500
					Sleep, %Wait%
					Catch := 1
				}
				else 
				{
					PoleCheckN := PoleCheckN +1
					Sleep, 1000
				}
			}
		}
	}
ExitApp

Numpad7::
ExitApp

GetAddressWater(Base, Address)
{
    pointerBase := base + Address
    y1 := ReadMemory(pointerBase)
    y2 := ReadMemory(y1 + 0x144)
    y3 := ReadMemory(y2 + 0xe4)
    Return WaterAddress := (y3 + 0x70)   
}

GetAddressLava(Base, Address)
{
    	pointerBase := base + Address
    	y1 := ReadMemory(pointerBase)
    	y2 := ReadMemory(y1 + 0x144)
    	y3 := ReadMemory(y2 + 0xe4)
    	Return LavaAddress := (y3 + 0x514) 
}

GetAddressChoco(Base, Address)
{
    	pointerBase := base + Address
    	y1 := ReadMemory(pointerBase)
    	y2 := ReadMemory(y1 + 0x144)
    	y3 := ReadMemory(y2 + 0xe4)
    	Return ChocoAddress := (y3 + 0x2c0) 
}

getProcessBaseAddress()
{
    	Global Handle
    	return DllCall( A_PtrSize = 4
                            ? "GetWindowLong"
                            : "GetWindowLongPtr"
                        , "Ptr", Handle
                        , "Int", -6
                        , "Int64") ; Use Int64 to prevent negative overflow when AHK is 32 bit and target process is 64bit
     	; If DLL call fails, returned value will = 0
}   

ReadMemory(MADDRESS)
{
    	Global pid
    	VarSetCapacity(MVALUE,4,0)
    	ProcessHandle := DllCall("OpenProcess", "Int", 24, "Char", 0, "UInt", pid, "UInt")
    	;DllCall("ReadProcessMemory","UInt",ProcessHandle,"UInt",MADDRESS,"Str",MVALUE,"UInt",4,"UInt *",0)
    	DllCall("ReadProcessMemory", "UInt", ProcessHandle, "Ptr", MADDRESS, "Ptr", &MVALUE, "Uint",4)
    	Loop 4
        	result += *(&MVALUE + A_Index-1) << 8*(A_Index-1)
    	return, result
}

P/s: i cant edit my 1st post any idea why? @maddoggy00 please check this out for me i cant edit my 1st post :-?

Create program autohotkey pleeeeease ) and i like you

**ptfock** · 07-18-2015

Originally Posted by taejim

what do you mean?

Posts with code or wtvr, go for approval. Means admins need to approve it before getting public. To reduce virus spread and fake posts

**coolshyguyhere** · 07-18-2015

Call me stupid, but I really can't figure out how to get this to work. I'm a noob with no experience with AHK and have no idea how to set this up.

At this point this is how i set it up

1- I downloaded Trove
2- I downloaded AHK
3- I opened up notepad, copied and pasted the updated code above this post and saved the notepad document as ****.ahk
4- I loaded up Trove, got a fishing rod, lures and a bunch of fish in my inventory
5- I then proceeded to load the script from desktop, by right clicking and selecting "open with > Autohotkey Unicode 64bit"
6- I go back into the game and make sure my Numpad is on, then proceed to push 6
7- I toss my line into the water by hitting "F", I wait, and Wait.. lure goes down, nothing happens.

What am I doing wrong here ? I can't get this to work for me.

Thread: Taejim's Fishing Bot

Thread Tools

Display

The Following 2 Users Say Thank You to konradmm For This Useful Post:

The Following User Says Thank You to taejim For This Useful Post:

The Following User Says Thank You to coolshyguyhere For This Useful Post:

Similar Threads

[Solved] rs fish bot!

[Solved] fishing bot

[Help] Is It Possible To Get Fish Bots And Auto Bots?

[Request] Oz world Fishing bot

Is there a fish bot?