OutdatedZog's Fish Script v.1

still doesnt work when the fish bites...

EDIT: it also stops after failing

bFailsafe := 0
#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,0x009D6518)
LavaAddress := GetAddressLava (Base, 0x009D6518)
ChocoAddress := GetAddressChoco(Base, 0x009D6518)
Loop %Lure%
{
ControlSend, , {f down}, ahk_pid %pid%
Sleep, 86
ControlSend, , {f up}, ahk_pid %pid%
Sleep, 2000
CaughtWater := ReadMemory(WaterAddress)
CaughtLava := ReadMemory(LavaAddress)
CaughtChoco := ReadMemory(ChocoAddress)
Timer := 0
While Timer = 0
{
Loop
{
If (CaughtWater = 1)
{
Break
}
If (CaughtLava = 1)
{
Break
}
If (CaughtChoco = 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)
CaughtLava := ReadMemory(LavaAddress)
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

CheckFishingState(base)
{
global FishingState
pointerBase := base + 0x008EB8EC
y1 := ReadMemory(pointerBase)
y2 := ReadMemory(y1 + 0x234)
y3 := ReadMemory(y2 + 0x80)
y4 := ReadMemory(y3 + 0x458)
y5 := ReadMemory(y4 + 0x410)
y6 := ReadMemory(y5 + 0x18)
Return FishingState := ReadMemory(y6)
}



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 + 0x514)
}


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


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
}

Hi all

With this, lava and choco normaly good, no ?
Just need good value.

With this, Water still work

Hm , i use this script.
But now (5 min Ago) this script stop work .
Just ask how many Lure's i have and does not use a fishing rod ...
Maybe who have same problem? Or help me.

Chocolate and Lava aren't working for me. No bite.

Also, for anyone needing a SEMI - afk boot drop script, here ya go free of charge!

showthread.php?t=992191

This works in water only (Using atm):

do you have to play in windowed mode, full screen windowed, or Full screen or it works in any mode

anyone has an AoB for the address of water? i cant seem to find a way to find the AoB so i can update it in the future :s (patch today it seems? )

This script stop work .
Just ask how many Lure's i have and does not use a fishing rod.

Try this:
Note: Don't write how many baits with your numpad. Key 7 insta-close autohotkey. Numpad 9 starts "script".