Taejim's Fishing Bot

[taejim]

So I decided to take Zog's fishing script and update it to the newest version of Trove.

How to use:
- Copy the code below and and save it as .ahk format
- make sure you have lures in your inventory
- numpad 6 to activate
- numpad 7 to disabled the script
- You can run it multiples script just copy and change the file name

I will try to update the script as quick as i can everytime the game patched. I will release the Lava and Choco ver soon and I'm trying to make it auto get how many lures you have and i will try to get the auto drop boots. However do not rush me or too excited for that because i'm still learning

P/S: If you appreciated what I have done please press the thanks button :P

CREDITS:
- Zog for the script for my initial code
- HaHaItsJake for info on his script and some cheatengine info
- Me for update it

 

 

WATER:

#WinActivateForce
 
Numpad6::
        WinGet, pidn, PID, A
        pid := pidn
        WinGet, hwnds, ID, A
        Handle := hwnds
        ;InputBox, Lure, Lure's, How many Lure's do you have in inventory 
        Lure := 9999
        Base := getProcessBaseAddress()
        WaterAddress := GetAddressWater(Base,0x009570DC)
        Loop %Lure%
        {
                ControlSend, , {c down}, ahk_pid %pid%
                Sleep, 86
                ControlSend, , {c up}, ahk_pid %pid%
                Sleep, 1000
                ControlSend, , {f down}, ahk_pid %pid%
                Sleep, 86
                ControlSend, , {f up}, ahk_pid %pid%
                Sleep, 2000
                CaughtWater := ReadMemory(WaterAddress)
                Timer := 0
                While Timer = 0
                {
                        Loop   
                        {
                                If (CaughtWater = 1)
                                {
                                        Break
                                }
                                if Timer = 40
                                {
                                        ControlSend, , {f down}, ahk_pid %pid%
                                        Sleep, 86
                                        ControlSend, , {f up}, ahk_pid %pid%
                                        Break
                                }
                                Sleep, 1000
                                CaughtWater := ReadMemory(WaterAddress)
                                Timer := Timer + 1
                        }
                }
                Timer := 0
                ControlSend, , {f down}, ahk_pid %pid%
                Sleep, 86
                ControlSend, , {f up}, ahk_pid %pid%
                Sleep, 2000
        }
ExitApp
 
 
Numpad7::
ExitApp
 
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
}   
 
GetAddressWater(Base, Address)
{
    pointerBase := base + Address
    y1 := ReadMemory(pointerBase)
    y2 := ReadMemory(y1 + 0x144)
    y3 := ReadMemory(y2 + 0xe4)
    Return WaterAddress := (y3 + 0x70)   
}
 
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
}

LAVA:

#WinActivateForce
 
Numpad6::
        WinGet, pidn, PID, A
        pid := pidn
        WinGet, hwnds, ID, A
        Handle := hwnds
        ;InputBox, Lure, Lure's, How many Lure's do you have in inventory 
        Lure := 9999
        Base := getProcessBaseAddress()
        LavaAddress := GetAddressLava(Base,0x009570DC)
        Loop %Lure%
        {
                ControlSend, , {c down}, ahk_pid %pid%
                Sleep, 86
                ControlSend, , {c up}, ahk_pid %pid%
                Sleep, 1000
                ControlSend, , {f down}, ahk_pid %pid%
                Sleep, 86
                ControlSend, , {f up}, ahk_pid %pid%
                Sleep, 2000
                CaughtLava := ReadMemory(LavaAddress)
                Timer := 0
                While Timer = 0
                {
                        Loop   
                        {
                                If (CaughtLava = 1)
                                {
                                        Break
                                }
                                if Timer = 40
                                {
                                        ControlSend, , {f down}, ahk_pid %pid%
                                        Sleep, 86
                                        ControlSend, , {f up}, ahk_pid %pid%
                                        Break
                                }
                                Sleep, 1000
                                CaughtLava := ReadMemory(LavaAddress)
                                Timer := Timer + 1
                        }
                }
                Timer := 0
                ControlSend, , {f down}, ahk_pid %pid%
                Sleep, 86
                ControlSend, , {f up}, ahk_pid %pid%
                Sleep, 2000
        }
ExitApp
 
 
Numpad7::
ExitApp
 
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
}   
 
GetAddressLava(Base, Address)
{
    pointerBase := base + Address
    y1 := ReadMemory(pointerBase)
    y2 := ReadMemory(y1 + 0x144)
    y3 := ReadMemory(y2 + 0xe4)
    Return LavaAddress := (y3 + 0x514)   
}
 
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
}

CHOCO:

#WinActivateForce
 
Numpad6::
        WinGet, pidn, PID, A
        pid := pidn
        WinGet, hwnds, ID, A
        Handle := hwnds
        ;InputBox, Lure, Lure's, How many Lure's do you have in inventory 
        Lure := 9999
        Base := getProcessBaseAddress()
        ChocoAddress := GetAddressChoco(Base,0x009570DC)
        Loop %Lure%
        {
                ControlSend, , {c down}, ahk_pid %pid%
                Sleep, 86
                ControlSend, , {c up}, ahk_pid %pid%
                Sleep, 1000
                ControlSend, , {f down}, ahk_pid %pid%
                Sleep, 86
                ControlSend, , {f up}, ahk_pid %pid%
                Sleep, 2000
                CaughtChoco := ReadMemory(ChocoAddress)
                Timer := 0
                While Timer = 0
                {
                        Loop   
                        {
                                If (CaughtChoco = 1)
                                {
                                        Break
                                }
                                if Timer = 40
                                {
                                        ControlSend, , {f down}, ahk_pid %pid%
                                        Sleep, 86
                                        ControlSend, , {f up}, ahk_pid %pid%
                                        Break
                                }
                                Sleep, 1000
                                CaughtChoco := ReadMemory(ChocoAddress)
                                Timer := Timer + 1
                        }
                }
                Timer := 0
                ControlSend, , {f down}, ahk_pid %pid%
                Sleep, 86
                ControlSend, , {f up}, ahk_pid %pid%
                Sleep, 2000
        }
ExitApp
 
 
Numpad7::
ExitApp
 
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
}   
 
GetAddressChoco(Base, Address)
{
    pointerBase := base + Address
    y1 := ReadMemory(pointerBase)
    y2 := ReadMemory(y1 + 0x144)
    y3 := ReadMemory(y2 + 0xe4)
    Return ChocoAddress := (y3 + 0x2c0)   
}
 
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
}

 

#WinActivateForce
 
Numpad6::
        WinGet, pidn, PID, A
        pid := pidn
        WinGet, hwnds, ID, A
        Handle := hwnds
        Lure := 9999
        Base := getProcessBaseAddress()
        WaterAddress := GetAddressWater(Base,0x0097E114)
        LavaAddress := GetAddressLava(Base,0x0097E114)
        ChocoAddress := GetAddressChoco(Base,0x0097E114)
       
        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
}

Update log:
- 16/07/2015: added fishing in water, lava, choco script. Update the address for the newest patch. Added anti AFK
- 24/07/2015: Update the address for the newest patch. Update the code better than Zog's, no longer use Zog's fishing script. Combine Lava, Water and Choco into 1 script


To-do-list:
- Get the auto drop boot working

[ptfock]

Very nice xD

[tmulkey2]

So I decided to take Zog's fishing script and update it to the newest version of Trove.

How to use:
- Copy the code below and and save it as .ahk format
- make sure you have lures in your inventory
- numpad 6 to activate
- numpad 7 to disabled the script
- You can run it multiples script just copy and change the file name

I will try to update the script as quick as i can everytime the game patched. I will release the Lava and Choco ver soon and I'm trying to make it auto get how many lures you have and i will try to get the auto drop boots. However do not rush me or too excited for that because i'm still learning

P/S: If you appreciated what I have done please press the thanks button :P

CREDITS:
- Zog for the script
- Me for update it

 

 

WATER:

#WinActivateForce

Numpad6::
	WinGet, pidn, PID, A
	pid := pidn
	WinGet, hwnds, ID, A
	Handle := hwnds
	;InputBox, Lure, Lure's, How many Lure's do you have in inventory  
	Lure := 9999
	Base := getProcessBaseAddress()
	WaterAddress := GetAddressWater(Base,0x009570DC) 
	Loop %Lure%
	{
		ControlSend, , {c down}, ahk_pid %pid%
		Sleep, 500
		ControlSend, , {c up}, ahk_pid %pid%
		Sleep, 1000
		ControlSend, , {f down}, ahk_pid %pid%
		Sleep, 86
		ControlSend, , {f up}, ahk_pid %pid%
		Sleep, 2000
		CaughtWater := ReadMemory(WaterAddress)
		Timer := 0
		While Timer = 0
		{
			Loop	
			{
				If (CaughtWater = 1)
				{
					Break
				}
				if Timer = 40
				{
					ControlSend, , {f down}, ahk_pid %pid%
					Sleep, 86
					ControlSend, , {f up}, ahk_pid %pid%
					Break
				}
				Sleep, 1000
				CaughtWater := ReadMemory(WaterAddress)
				Timer := Timer + 1
			}
		}
		Timer := 0
		ControlSend, , {f down}, ahk_pid %pid%
		Sleep, 86
		ControlSend, , {f up}, ahk_pid %pid%
		Sleep, 2000
	}
ExitApp


Numpad7::
ExitApp

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
}   

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

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
}

LAVA:

#WinActivateForce

Numpad6::
	WinGet, pidn, PID, A
	pid := pidn
	WinGet, hwnds, ID, A
	Handle := hwnds
	;InputBox, Lure, Lure's, How many Lure's do you have in inventory  
	Lure := 9999
	Base := getProcessBaseAddress()
	LavaAddress := GetAddressLava(Base,0x009570DC) 
	Loop %Lure%
	{
		ControlSend, , {c down}, ahk_pid %pid%
		Sleep, 500
		ControlSend, , {c up}, ahk_pid %pid%
		Sleep, 1000
		ControlSend, , {f down}, ahk_pid %pid%
		Sleep, 86
		ControlSend, , {f up}, ahk_pid %pid%
		Sleep, 2000
		CaughtLava := ReadMemory(LavaAddress)
		Timer := 0
		While Timer = 0
		{
			Loop	
			{
				If (CaughtLava = 1)
				{
					Break
				}
				if Timer = 40
				{
					ControlSend, , {f down}, ahk_pid %pid%
					Sleep, 86
					ControlSend, , {f up}, ahk_pid %pid%
					Break
				}
				Sleep, 1000
				CaughtLava := ReadMemory(LavaAddress)
				Timer := Timer + 1
			}
		}
		Timer := 0
		ControlSend, , {f down}, ahk_pid %pid%
		Sleep, 86
		ControlSend, , {f up}, ahk_pid %pid%
		Sleep, 2000
	}
ExitApp


Numpad7::
ExitApp

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
}   

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

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
}

CHOCO:

#WinActivateForce

Numpad6::
	WinGet, pidn, PID, A
	pid := pidn
	WinGet, hwnds, ID, A
	Handle := hwnds
	;InputBox, Lure, Lure's, How many Lure's do you have in inventory  
	Lure := 9999
	Base := getProcessBaseAddress()
	ChocoAddress := GetAddressChoco(Base,0x009570DC) 
	Loop %Lure%
	{
		ControlSend, , {c down}, ahk_pid %pid%
		Sleep, 500
		ControlSend, , {c up}, ahk_pid %pid%
		Sleep, 1000
		ControlSend, , {f down}, ahk_pid %pid%
		Sleep, 86
		ControlSend, , {f up}, ahk_pid %pid%
		Sleep, 2000
		CaughtChoco := ReadMemory(ChocoAddress)
		Timer := 0
		While Timer = 0
		{
			Loop	
			{
				If (CaughtChoco = 1)
				{
					Break
				}
				if Timer = 40
				{
					ControlSend, , {f down}, ahk_pid %pid%
					Sleep, 86
					ControlSend, , {f up}, ahk_pid %pid%
					Break
				}
				Sleep, 1000
				CaughtChoco := ReadMemory(ChocoAddress)
				Timer := Timer + 1
			}
		}
		Timer := 0
		ControlSend, , {f down}, ahk_pid %pid%
		Sleep, 86
		ControlSend, , {f up}, ahk_pid %pid%
		Sleep, 2000
	}
ExitApp


Numpad7::
ExitApp

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
}   

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

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
}

Update log:
- 16/07/2015: added fishing in water, lava, choco script. Update the address for the newest patch. Added anti AFK

Love you so much man

[SNowCode]

hi. Pls help me . I copy this script and save Trove.ahk but I don't know use them.

[ptfock]

hi. Pls help me . I copy this script and save Trove.ahk but I don't know use them.

Stupid school system!

Copy PASTE the code, run FILE AKA SCRIPT AKA CODE AKA BOT. Before hitting the HOTKEY open TROVE, HIT HOTKEY, MORE INSTRUCTIONS IN ORIGINAL POST, then follow instructions and now it's time to watch some digimon and yu-gi-oh 0o

[vivali83]

Good jobs !

[StupidMonkeyz]

is there something I have to download im new to this plz help

[bunnkywhat]

Thanked, AND gave you rep. Amazing man really. Finally! You are a boss!

[Mothalicka750]

can u help me pls?
its not working

[MaciKeks]

Amazing, thank you very much!

Thanked and rep'd.

[forsomeads1]

Nice job! Thank you

EDIT: Just curious, why did you add c up & down before f?

[ShadowOps]

You're the best!

[jokaclown]

Would be nice to see a admin make this a Sticky thread

[evgenix]

as you run them? I do everything as it is written, press numpad6 but nothing happens

[ShadowOps]

as you run them? I do everything as it is written, press numpad6 but nothing happens

Be sure that numpad is on