Zog's Fish Script v.1

[matrx300]

For some reason when you multi-client the scripts randomly stop after a few mins

[saed]

Hey thanks man!!

[owata1213]

today i got banned looool
be careful

[rwcblazer]

today i got banned looool
be careful

I've been using it all day on 2 accounts since it came out and haven't been banned.

[owata1213]

I've been using it all day on 2 accounts since it came out and haven't been banned.

really?
im so unlucky man ;(

[kablaggio]

MouseClickDrag, L, xxx, xxx, xxx, xxx

- - - Updated - - -

SendEvent {Click xxx, xxx, down}{click xxx, xxx, up}

[dragonkid1102]

how to auto drop "Old Boot" ???

[DeadJak]

stopped working after todays patch

[darkjesse413]

stopped working after todays patch

They ALWAYS stop working after a patch. The values need to be updated.

[eliel2000]

Hey thanks man!!

[DeadJak]

They ALWAYS stop working after a patch. The values need to be updated.

Well how would you go about finding the new values? not very familiar with the process

[darkjesse413]

Well how would you go about finding the new values? not very familiar with the process

There's a video in one of the posts.. Forgot which what one

[darkjesse413]

Any updates Zog?

[IllusI0n1st]

How do you even use AHK, I'm interested in learning the language

[kablaggio]

CHOCOLATE

ACTIVATE with Numpad6


#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, 0x0092789C)
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 + 0x0092789C
y1 := ReadMemory(pointerBase)
y2 := ReadMemory(y1 + 0x49c)
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 + 0x2a8)
y3 := ReadMemory(y2 + 0x8c)
Return WaterAddress := (y3 + 0x49c)
}

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
}