Zog's Fish Script v.1

**luc9999** · 06-19-2015

When i run it, it asks, how many lures i have, what to answer?

**d0dUxDJ** · 06-20-2015

Originally Posted by luc9999

When i run it, it asks, how many lures i have, what to answer?

You have to type... well... the number of lures you have? :/ dude come on.

**PervertNinja** · 07-08-2015

wont work anymore

**kablaggio** · 07-08-2015

WATER

Activate : Numpad 6

#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
Base := getProcessBaseAddress()
WaterAddress := GetAddressWater(Base,0x00958204)
Loop %Lure%
{
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

CheckFishingState(base)
{
global FishingState
pointerBase := base + 0x00958204
y1 := ReadMemory(pointerBase)
y2 := ReadMemory(y1 + 0x24c)
y3 := ReadMemory(y2 + 0x144)
Return FishingState := ReadMemory(y3)
}

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
}

**U mirin brah?** · 07-08-2015

99% of them doesn't know how to compile it

**ehnoah** · 07-08-2015

New Patch, New Offsets

**kablaggio** · 07-08-2015

WATER

ACTIVE : Numpad 6

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  
	Base := getProcessBaseAddress()
	WaterAddress := GetAddressWater(Base,0x0095E6A4) 
	Loop %Lure%
	{
		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

CheckFishingState(base)
{
	global FishingState
	pointerBase := base + 0x0095E6A4
    y1 := ReadMemory(pointerBase)
    y2 := ReadMemory(y1 + 0x24c)
    y3 := ReadMemory(y2 + 0x144)
    Return FishingState := ReadMemory(y3)    
}



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
}

**ehnoah** · 07-08-2015

Can you update for current "hotfix"? pls

**jokaclown** · 07-09-2015

need new script for current hot fix

**jokaclown** · 07-09-2015

Pls someone reply with new script post release

**kablaggio** · 07-09-2015

WATER

ACTIVE : NUMPAD 6

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  
	Base := getProcessBaseAddress()
	WaterAddress := GetAddressWater(Base,0x0095D23C) 
	Loop %Lure%
	{
		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

CheckFishingState(base)
{
	global FishingState
	pointerBase := base + 0x0095D23C
    y1 := ReadMemory(pointerBase)
    y2 := ReadMemory(y1 + 0x24c)
    y3 := ReadMemory(y2 + 0x144)
    Return FishingState := ReadMemory(y3)    
}



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
}

**die254** · 07-09-2015

Thanks for the update!

**SirLego** · 07-10-2015

how do we use it?????

**jokaclown** · 07-10-2015

will the current script still work after the stealth patch?

**die254** · 07-10-2015

its not working, can someone update please?

Thread: Zog's Fish Script v.1

Thread Tools

Display

The Following 3 Users Say Thank You to kablaggio For This Useful Post:

Similar Threads

How to make Trove Fish Bot Script

I need a working Lava fishing script

Can someone tell me a working fishing pro script?

Habbohotel Scripts

Fishing Store is upgraded! Holy Shit