Taejim's Fishing Bot

[firsama]

Any reason why the bot opens up c? Very bot like behavior.

it for anti afk lol

[uranus13]

how to use this bot with muticlient ?

[cjieiioi1]

i have a question. i tried to use 2-3 scripts for auto-fishing, each script throw the lure into water, BUT(!) when fish is catched - script don't do anything, lure just "jumping" in water and then pole just dismiss... who can help me with this problem?

[bumbalaga1]

Sweet! works like dream

[taejim]

i have a question. i tried to use 2-3 scripts for auto-fishing, each script throw the lure into water, BUT(!) when fish is catched - script don't do anything, lure just "jumping" in water and then pole just dismiss... who can help me with this problem?

that should not happen with my script read the instruction on my post again and you should be fine

[Poorloading]

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

cant wait intill you get boot throw working, it will be great. please use the boot trow that trows all the boots in your inventory

[Wontang]

Can you get banned from using this ?

[die254]

Any reason why the bot opens up c? Very bot like behavior.

Anti AFK setting. If you turn it off you will most likely be disconnect for AFK.

[soooras]

Someone can help me?
How to install this exactly
Step by step

[taejim]

Someone can help me?
How to install this exactly
Step by step

It cant be any easier than the instruction i got in my post

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

[qztr]

It cant be any easier than the instruction i got in my post

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

You need the new base address, but I assume you already know that.

[taejim]

You need the new base address, but I assume you already know that.

I'm waiting for the game to get online so i can login and get the new address so chill out