Szukam : Fishbota (autohothey) na dzien dzisiejszy :)

[alibabalegends]

Tak jak w temacie :P

[Sajleentovsky]

http://www.mpcforum.pl/topic/1444262-fishbot-24072015/

Polecam, postawiony na 30 minut zrobił profit wynoszący 3k glimu (zmarnowalem 900 na przynety, wykorzystal 60), dwa ancient scale i 3 blank scrolle. 

[alibabalegends]

^on juz nie dziala ...

[Sajleentovsky]

Działa, 30 minut temu jeszcze łowił ;-;

Ewentualnie ten:

http://www.mpcforum.pl/topic/1444208-fishbot-dzialajacy-dnia-2407/

[alibabalegends]

zarzuca ale nie wyciąga w ogóle jak miga :/

[xAmigo]

#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

}

[alibabalegends]

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

Potrzba jakies specjalne ustawienia gry ? Jak to wystartować ? i Czy sprawdzałeś czy dziś działa?