Page 1 of 15 12311 ... LastLast
Results 1 to 15 of 222
  1. 07-16-2015 #1
    taejim
    taejim is offline
    Dual-Keyboard Member
    MPGH Member
    taejim's Avatar
    Join Date
    Jul 2011
    Gender
    male
    Location
    Trove
    Posts
    301
    Reputation
    10
    Thanks
    892
    My Mood
    Devilish
    Send a message via Birdie™ to taejim Vietnam

    Taejim's Fishing Bot

    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:
    Code:
    #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:
    Code:
    #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:
    Code:
    #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
}

     

    Code:
    #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
    Last edited by maddoggy00; 07-24-2015 at 07:00 AM. Reason: user requested

  2. The Following 51 Users Say Thank You to taejim For This Useful Post:

    BabyRhiino316 (07-17-2015),blackzx (07-20-2015),Bobo3 (07-20-2015),bunnkywhat (07-16-2015),ClickMyDead (07-25-2015),CloneX1996 (07-16-2015),dell212 (07-16-2015),dragonkid1102 (07-16-2015),Edersonassis (07-17-2015),Enterino (07-19-2015),FattyJewb (07-22-2015),forsomeads1 (07-16-2015),Frisual (07-16-2015),G510Gamerr (07-19-2015),Heck07 (07-18-2015),HunterX011 (07-27-2015),Jerico555 (07-16-2015),JohnTGM (07-20-2015),jokaclown (07-16-2015),Kerbasi (07-25-2015),Kitchenary (07-16-2015),lapeiro (07-16-2015),Leon20 (07-17-2015),littleerik (07-16-2015),lolgf (07-19-2015),Lowa99 (07-16-2015),MaciKeks (07-16-2015),mc6644 (07-16-2015),mikepopdrenghan (07-16-2015),Monitomen (07-23-2015),nilotaviano (07-16-2015),nlipica (07-16-2015),Poorloading (07-27-2015),ptfock (07-16-2015),sadan (07-26-2015),ShadowOps (07-16-2015),sociality (07-21-2015),Stuffys (07-22-2015),Swaggox (07-24-2015),thallesscheffer (07-16-2015),thecrazygameguy (07-17-2015),tmulkey2 (07-16-2015),tonioss22 (07-16-2015),tuanduong0991 (07-16-2015),vese (07-19-2015),volcarox (07-21-2015),VTor_11 (07-20-2015),vyttor (07-21-2015),waggi66 (07-28-2015),xdontcare (07-21-2015),xmehdor (07-19-2015)
  3. 07-16-2015 #2
    ptfock
    ptfock is offline
    Novice
    MPGH Member
    ptfock's Avatar
    Join Date
    Jul 2015
    Gender
    male
    Posts
    72
    Reputation
    10
    Thanks
    4
    Send a message via Birdie™ to ptfock American Samoa
    Very nice xD
  4. 07-16-2015 #3
    tmulkey2
    tmulkey2 is offline
    Novice
    MPGH Member
    tmulkey2's Avatar
    Join Date
    Jan 2011
    Gender
    male
    Posts
    91
    Reputation
    10
    Thanks
    322
    My Mood
    Lurking
    Send a message via Birdie™ to tmulkey2 United States
    Quote Originally Posted by taejim View Post
    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:
    Code:
    #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:
    Code:
    #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:
    Code:
    #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

  5. The Following 3 Users Say Thank You to tmulkey2 For This Useful Post:

    blackzx (07-20-2015),Jerico555 (07-16-2015),jokaclown (07-16-2015)
  6. 07-16-2015 #4
    vivali83
    vivali83 is offline
    New Member
    vivali83's Avatar
    Join Date
    Dec 2014
    Gender
    male
    Posts
    6
    Reputation
    10
    Thanks
    1
    Send a message via Birdie™ to vivali83 France
    Good jobs !
  7. 07-16-2015 #5
    StupidMonkeyz
    StupidMonkeyz is offline
    New Member
    StupidMonkeyz's Avatar
    Join Date
    Jul 2015
    Gender
    male
    Posts
    1
    Reputation
    10
    Thanks
    0
    My Mood
    Aggressive
    Send a message via Birdie™ to StupidMonkeyz United States
    is there something I have to download im new to this plz help
  8. 07-16-2015 #6
    bunnkywhat
    bunnkywhat is offline
    New Member
    MPGH Member
    bunnkywhat's Avatar
    Join Date
    Aug 2013
    Gender
    male
    Posts
    19
    Reputation
    10
    Thanks
    51
    My Mood
    Lurking
    Send a message via Birdie™ to bunnkywhat United States
    Thanked, AND gave you rep. Amazing man really. Finally! You are a boss!
  9. 07-16-2015 #7
    MaciKeks
    MaciKeks is offline
    New Member
    MaciKeks's Avatar
    Join Date
    Jul 2011
    Gender
    male
    Posts
    6
    Reputation
    10
    Thanks
    0
    My Mood
    Amused
    Send a message via Birdie™ to MaciKeks Austria
    Amazing, thank you very much!

    Thanked and rep'd.
  10. 07-16-2015 #8
    forsomeads1
    forsomeads1 is offline
    New Member
    forsomeads1's Avatar
    Join Date
    Jul 2015
    Gender
    male
    Posts
    1
    Reputation
    10
    Thanks
    0
    Send a message via Birdie™ to forsomeads1 United States
    Nice job! Thank you

    EDIT: Just curious, why did you add c up & down before f?
    Last edited by forsomeads1; 07-16-2015 at 04:38 AM.
  11. 07-16-2015 #9
    ShadowOps
    ShadowOps is offline
    New Member
    MPGH Member
    ShadowOps's Avatar
    Join Date
    Jan 2009
    Gender
    female
    Posts
    15
    Reputation
    10
    Thanks
    0
    Send a message via Birdie™ to ShadowOps Afghanistan
    You're the best!
  12. 07-16-2015 #10
    jokaclown
    jokaclown is offline
    Novice
    MPGH Member
    jokaclown's Avatar
    Join Date
    Jul 2015
    Gender
    male
    Posts
    63
    Reputation
    10
    Thanks
    7
    My Mood
    Psychedelic
    Send a message via Birdie™ to jokaclown Germany
    Would be nice to see a admin make this a Sticky thread
    He, who fights with monsters, should look to it, that he himself, does not become a monster
  13. 07-16-2015 #11
    evgenix
    evgenix is offline
    New Member
    evgenix's Avatar
    Join Date
    Jul 2015
    Gender
    male
    Posts
    2
    Reputation
    10
    Thanks
    0
    Send a message via Birdie™ to evgenix Belarus
    as you run them? I do everything as it is written, press numpad6 but nothing happens
  14. 07-16-2015 #12
    ShadowOps
    ShadowOps is offline
    New Member
    MPGH Member
    ShadowOps's Avatar
    Join Date
    Jan 2009
    Gender
    female
    Posts
    15
    Reputation
    10
    Thanks
    0
    Send a message via Birdie™ to ShadowOps Afghanistan
    Quote Originally Posted by evgenix View Post
    as you run them? I do everything as it is written, press numpad6 but nothing happens
    Be sure that numpad is on
  15. 07-16-2015 #13
    evgenix
    evgenix is offline
    New Member
    evgenix's Avatar
    Join Date
    Jul 2015
    Gender
    male
    Posts
    2
    Reputation
    10
    Thanks
    0
    Send a message via Birdie™ to evgenix Belarus
    Quote Originally Posted by ShadowOps View Post
    Be sure that numpad is on
    antiafk works, and fish catches)
  16. 07-16-2015 #14
    Kitchenary
    Kitchenary is offline
    Novice
    MPGH Member
    Kitchenary's Avatar
    Join Date
    Jun 2015
    Gender
    male
    Posts
    83
    Reputation
    10
    Thanks
    10
    Send a message via Birdie™ to Kitchenary Australia
    Thanks for the release!
  17. 07-16-2015 #15
    howiacla
    howiacla is offline
    New Member
    howiacla's Avatar
    Join Date
    Jul 2015
    Gender
    male
    Posts
    1
    Reputation
    10
    Thanks
    1
    Send a message via Birdie™ to howiacla Bahamas
    Quote Originally Posted by taejim View Post
    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:
    Code:
    #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:
    Code:
    #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:
    Code:
    #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
}


    Update log:
    - 16/07/2015: added fishing in water, lava, choco script. Update the address for the newest patch. Added anti AFK
    he throws out the lure but diddnt catch :x

  18. The Following User Says Thank You to howiacla For This Useful Post:

    willwill173 (07-23-2015)
Page 1 of 15 12311 ... LastLast
« Previous Thread | Next Thread »

Similar Threads

  1. [Solved] rs fish bot!
    By bgs twinz in forum Runescape Help
    Replies: 2
    Last Post: 08-23-2011, 06:28 PM
  2. [Solved] fishing bot
    By devlinr in forum Vindictus Help
    Replies: 6
    Last Post: 08-19-2011, 06:30 PM
  3. [Help] Is It Possible To Get Fish Bots And Auto Bots?
    By mystery2k10 in forum Metin 2 Hacks
    Replies: 0
    Last Post: 04-20-2011, 06:12 AM
  4. [Request] Oz world Fishing bot
    By devase in forum Hack Requests
    Replies: 2
    Last Post: 03-18-2011, 08:07 PM
  5. Is there a fish bot?
    By DRT94 in forum World of Warcraft Hacks / Bots
    Replies: 2
    Last Post: 03-17-2010, 10:26 AM