Page 1 of 3 123 LastLast
Results 1 to 15 of 33
  1. 07-23-2015 #1
    PASHMINAL1
    PASHMINAL1 is offline
    New Member
    MPGH Member
    PASHMINAL1's Avatar
    Join Date
    May 2015
    Gender
    male
    Posts
    22
    Reputation
    10
    Thanks
    35
    My Mood
    Cool
    Send a message via Birdie™ to PASHMINAL1 China

    Post 23/7 - 2015 new pointer adress after update

    0097E114 is the new adress


    if u have totally no idea where to put it then copy this press F11 to activate it

    #WinActivateForce

    F11::
    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,0x0097E114)
    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
    }



    PS: this script only work for water.
    Last edited by PASHMINAL1; 07-23-2015 at 08:56 PM. Reason: for PS

  2. The Following 4 Users Say Thank You to PASHMINAL1 For This Useful Post:

    dragonkid1102 (07-23-2015),Louky (07-24-2015),nilotaviano (07-23-2015),Raffy (07-25-2015)
  3. 07-23-2015 #2
    nilotaviano
    nilotaviano is offline
    New Member
    MPGH Member
    nilotaviano's Avatar
    Join Date
    Jul 2015
    Gender
    male
    Posts
    16
    Reputation
    10
    Thanks
    5
    Send a message via Birdie™ to nilotaviano Brazil
    Testing it now.

    Edit: Confirmed working for water, updated the pointer on my script. Still not working for Lava and Choco.

    Ctrl + j to start it, ctrl + k to stop.

    Code:
    #WinActivateForce

^j::
  shouldRun = 1
  if !setupDone
  {
    WinGet, pidn, PID, A
    pid := pidn
    WinGet, hwnds, ID, A
    Handle := hwnds
    Base := getProcessBaseAddress()
    WaterAddress := GetAddressWater(Base,0x0097E114) 
    LavaAddress := GetAddressLava(Base,0x00964208) 
    ChocoAddress := GetAddressChoco(Base,0x00964208) 
    setupDone = 1
  }
  Loop
  {
    if shouldRun
    {
      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

      While Catch = 0 
      {
        If (PoleCheckN = PoleCheck)
        {
          ControlSend, , {f down}, ahk_pid %pid%
          Sleep, 86
          ControlSend, , {f up}, ahk_pid %pid%
        }
        
        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
        }
        
        FindAndDropBoots()
      }
    }
    else
    {
      Return
    }
  }
Return

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
}

FindAndDropBoots()
{
  Imagesearch, Foundx, FoundY, 0, 0, A_ScreenWidth, A_ScreenHeight, *50 c:\boot.bmp
  
  While errorlevel = 0
  {
    MouseClickDrag, Left, %FoundX%, %FoundY%, 779, 412
    Imagesearch, Foundx, FoundY, 0, 0, A_ScreenWidth, A_ScreenHeight, *50 c:\boot.bmp
  }
}

^k::
  shouldRun = 0
Return
    Last edited by nilotaviano; 07-23-2015 at 08:59 PM.
  4. 07-23-2015 #3
    whoa154
    whoa154 is offline
    New Member
    whoa154's Avatar
    Join Date
    Aug 2011
    Gender
    male
    Posts
    7
    Reputation
    10
    Thanks
    0
    Send a message via Birdie™ to whoa154 United States
    Thanks for this, works prefectly
  5. 07-23-2015 #4
    fabiomtt
    fabiomtt is offline
    New Member
    fabiomtt's Avatar
    Join Date
    Jul 2015
    Gender
    male
    Posts
    6
    Reputation
    10
    Thanks
    0
    Send a message via Birdie™ to fabiomtt Oman
    Quote Originally Posted by PASHMINAL1 View Post
    0097E114 is the new adress


    if u have totally no idea where to put it then copy this press F11 to activate it

    #WinActivateForce

    F11::
    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,0x0097E114)
    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
    }



    PS: this script only work for water.


    I used this fish script with throw boots

    #WinActivateForce

    ^j::
    shouldRun = 1
    if !setupDone
    {
    WinGet, pidn, PID, A
    pid := pidn
    WinGet, hwnds, ID, A
    Handle := hwnds
    Base := getProcessBaseAddress()
    WaterAddress := GetAddressWater(Base,0x00964208)
    LavaAddress := GetAddressLava(Base,0x00964208)
    ChocoAddress := GetAddressChoco(Base,0x00964208)
    setupDone = 1
    }
    Loop
    {
    if shouldRun
    {
    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

    While Catch = 0
    {
    If (PoleCheckN = PoleCheck)
    {
    ControlSend, , {f down}, ahk_pid %pid%
    Sleep, 86
    ControlSend, , {f up}, ahk_pid %pid%
    }

    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
    }

    FindAndDropBoots()
    }
    }
    else
    {
    Return
    }
    }
    Return

    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
    }

    FindAndDropBoots()
    {
    Imagesearch, Foundx, FoundY, 0, 0, A_ScreenWidth, A_ScreenHeight, *50 c:\boot.bmp

    While errorlevel = 0
    {
    MouseClickDrag, Left, %FoundX%, %FoundY%, 779, 412
    Imagesearch, Foundx, FoundY, 0, 0, A_ScreenWidth, A_ScreenHeight, *50 c:\boot.bmp
    }
    }

    ^k::
    shouldRun = 0
    Return


    -------


    Where i put this new line ?
    Thanks
  6. 07-23-2015 #5
    FrostBiteBN
    FrostBiteBN is offline
    New Member
    MPGH Member
    FrostBiteBN's Avatar
    Join Date
    Mar 2014
    Gender
    male
    Posts
    14
    Reputation
    10
    Thanks
    0
    Send a message via Birdie™ to FrostBiteBN Brunei
    Quote Originally Posted by PASHMINAL1 View Post
    0097E114 is the new adress


    if u have totally no idea where to put it then copy this press F11 to activate it

    #WinActivateForce

    F11::
    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,0x0097E114)
    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
    }



    PS: this script only work for water.
    Tested! its works thank you, anyway can anyway upload the boot img?
  7. 07-23-2015 #6
    PASHMINAL1
    PASHMINAL1 is offline
    Threadstarter
    New Member
    MPGH Member
    PASHMINAL1's Avatar
    Join Date
    May 2015
    Gender
    male
    Posts
    22
    Reputation
    10
    Thanks
    35
    My Mood
    Cool
    Send a message via Birdie™ to PASHMINAL1 China
    Quote Originally Posted by FrostBiteBN View Post
    Tested! its works thank you, anyway can anyway upload the boot img?
    ehh... i dont know how to put picture on it , and i think its not allowed to put links either
  8. 07-23-2015 #7
    doggfrog
    doggfrog is offline
    New Member
    doggfrog's Avatar
    Join Date
    Jan 2013
    Gender
    female
    Posts
    4
    Reputation
    10
    Thanks
    0
    Send a message via Birdie™ to doggfrog United States
    why does the bot open the character menu? what information does it gain by pressing C
  9. 07-23-2015 #8
    nilotaviano
    nilotaviano is offline
    New Member
    MPGH Member
    nilotaviano's Avatar
    Join Date
    Jul 2015
    Gender
    male
    Posts
    16
    Reputation
    10
    Thanks
    5
    Send a message via Birdie™ to nilotaviano Brazil
    Download boot.img from die254's post.

    /showthread.php?t=996078

    - - - Updated - - -
    Quote Originally Posted by doggfrog View Post
    why does the bot open the character menu? what information does it gain by pressing C


    It's for anti-afk.
  10. 07-23-2015 #9
    PASHMINAL1
    PASHMINAL1 is offline
    Threadstarter
    New Member
    MPGH Member
    PASHMINAL1's Avatar
    Join Date
    May 2015
    Gender
    male
    Posts
    22
    Reputation
    10
    Thanks
    35
    My Mood
    Cool
    Send a message via Birdie™ to PASHMINAL1 China
    Quote Originally Posted by nilotaviano View Post
    Testing it now.

    Edit: Confirmed working for water, updated the pointer on my script. Still not working for Lava and Choco.

    Ctrl + j to start it, ctrl + k to stop.

    Code:
    #WinActivateForce

^j::
  shouldRun = 1
  if !setupDone
  {
    WinGet, pidn, PID, A
    pid := pidn
    WinGet, hwnds, ID, A
    Handle := hwnds
    Base := getProcessBaseAddress()
    WaterAddress := GetAddressWater(Base,0x0097E114) 
    LavaAddress := GetAddressLava(Base,0x00964208) 
    ChocoAddress := GetAddressChoco(Base,0x00964208) 
    setupDone = 1
  }
  Loop
  {
    if shouldRun
    {
      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

      While Catch = 0 
      {
        If (PoleCheckN = PoleCheck)
        {
          ControlSend, , {f down}, ahk_pid %pid%
          Sleep, 86
          ControlSend, , {f up}, ahk_pid %pid%
        }
        
        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
        }
        
        FindAndDropBoots()
      }
    }
    else
    {
      Return
    }
  }
Return

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
}

FindAndDropBoots()
{
  Imagesearch, Foundx, FoundY, 0, 0, A_ScreenWidth, A_ScreenHeight, *50 c:\boot.bmp
  
  While errorlevel = 0
  {
    MouseClickDrag, Left, %FoundX%, %FoundY%, 779, 412
    Imagesearch, Foundx, FoundY, 0, 0, A_ScreenWidth, A_ScreenHeight, *50 c:\boot.bmp
  }
}

^k::
  shouldRun = 0
Return
    does lava and choco need a different pointer? i never test it before. its gonna take like 16 mins for me to find both adress out and thats something i dont need :/ have u tried to put the pointer adress i posted to replace choco and lava??? that might work.

  11. The Following 2 Users Say Thank You to PASHMINAL1 For This Useful Post:

    JohnTGM (07-23-2015),nilotaviano (07-23-2015)
  12. 07-23-2015 #10
    nilotaviano
    nilotaviano is offline
    New Member
    MPGH Member
    nilotaviano's Avatar
    Join Date
    Jul 2015
    Gender
    male
    Posts
    16
    Reputation
    10
    Thanks
    5
    Send a message via Birdie™ to nilotaviano Brazil
    Quote Originally Posted by PASHMINAL1 View Post
    does lava and choco need a different pointer? i never test it before. its gonna take like 16 mins for me to find both adress out and thats something i dont need :/ have u tried to put the pointer adress i posted to replace choco and lava??? that might work.
    Just tried that, but yes, they need different pointers.

    EDIT:

    Nevermind that, it works!

    They just use different offsets, but the base address is the same.

    Code:

    Code:
    #WinActivateForce

^j::
  shouldRun = 1
  if !setupDone
  {
    WinGet, pidn, PID, A
    pid := pidn
    WinGet, hwnds, ID, A
    Handle := hwnds
    Base := getProcessBaseAddress()
    WaterAddress := GetAddressWater(Base,0x0097E114) 
    LavaAddress := GetAddressLava(Base,0x0097E114) 
    ChocoAddress := GetAddressChoco(Base,0x0097E114) 
    setupDone = 1
  }
  Loop
  {
    if shouldRun
    {
      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

      While Catch = 0 
      {
        If (PoleCheckN = PoleCheck)
        {
          ControlSend, , {f down}, ahk_pid %pid%
          Sleep, 86
          ControlSend, , {f up}, ahk_pid %pid%
        }
        
        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
        }
        
        FindAndDropBoots()
      }
    }
    else
    {
      Return
    }
  }
Return

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
}

FindAndDropBoots()
{
  Imagesearch, Foundx, FoundY, 0, 0, A_ScreenWidth, A_ScreenHeight, *50 c:\boot.bmp
  
  While errorlevel = 0
  {
    MouseClickDrag, Left, %FoundX%, %FoundY%, 779, 412
    Imagesearch, Foundx, FoundY, 0, 0, A_ScreenWidth, A_ScreenHeight, *50 c:\boot.bmp
  }
}

^k::
  shouldRun = 0
Return
    Last edited by nilotaviano; 07-23-2015 at 09:37 PM.

  13. The Following User Says Thank You to nilotaviano For This Useful Post:

    JohnTGM (07-23-2015)
  14. 07-23-2015 #11
    Ex3cutioner
    Ex3cutioner is offline
    returning citizen
    Premium Member
    Ex3cutioner's Avatar
    Join Date
    Jun 2014
    Gender
    male
    Location
    mpgh
    Posts
    916
    Reputation
    113
    Thanks
    1,682
    My Mood
    Asleep
    Send a message via Birdie™ to Ex3cutioner Canada
    Quote Originally Posted by nilotaviano View Post
    Just tried that, but yes, they need different pointers.

    EDIT:

    Nevermind that, it works!

    They just use different offsets, but the base address is the same.

    Code:

    Code:
    #WinActivateForce

^j::
  shouldRun = 1
  if !setupDone
  {
    WinGet, pidn, PID, A
    pid := pidn
    WinGet, hwnds, ID, A
    Handle := hwnds
    Base := getProcessBaseAddress()
    WaterAddress := GetAddressWater(Base,0x0097E114) 
    LavaAddress := GetAddressLava(Base,0x0097E114) 
    ChocoAddress := GetAddressChoco(Base,0x0097E114) 
    setupDone = 1
  }
  Loop
  {
    if shouldRun
    {
      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

      While Catch = 0 
      {
        If (PoleCheckN = PoleCheck)
        {
          ControlSend, , {f down}, ahk_pid %pid%
          Sleep, 86
          ControlSend, , {f up}, ahk_pid %pid%
        }
        
        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
        }
        
        FindAndDropBoots()
      }
    }
    else
    {
      Return
    }
  }
Return

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
}

FindAndDropBoots()
{
  Imagesearch, Foundx, FoundY, 0, 0, A_ScreenWidth, A_ScreenHeight, *50 c:\boot.bmp
  
  While errorlevel = 0
  {
    MouseClickDrag, Left, %FoundX%, %FoundY%, 779, 412
    Imagesearch, Foundx, FoundY, 0, 0, A_ScreenWidth, A_ScreenHeight, *50 c:\boot.bmp
  }
}

^k::
  shouldRun = 0
Return
    When i press ctrl+j nothing even happens, not even the hook is thrown
    Do you have any suggestions?
    [2014] Want to hack your school's computers and get administrator? Head on Here
    [2014] Free in app purchases (Android) (Requires Root) Here
    Successful Trades: 13
    Been Scammed:3
  15. 07-23-2015 #12
    melekpek
    melekpek is offline
    Advanced Member
    MPGH Member
    melekpek's Avatar
    Join Date
    Jan 2014
    Gender
    female
    Posts
    153
    Reputation
    10
    Thanks
    4
    My Mood
    Bored
    Send a message via Birdie™ to melekpek Indonesia
    which script should i use?
    and what numpad to do that?
  16. 07-23-2015 #13
    Jerico555
    Jerico555 is offline
    Novice
    MPGH Member
    Jerico555's Avatar
    Join Date
    Aug 2013
    Gender
    male
    Posts
    53
    Reputation
    10
    Thanks
    2
    My Mood
    Yeehaw
    Send a message via Birdie™ to Jerico555 United States
    Can you please add throw boots in there too?!
  17. 07-24-2015 #14
    GHOSTKILL190
    GHOSTKILL190 is offline
    Member
    MPGH Member
    GHOSTKILL190's Avatar
    Join Date
    Feb 2015
    Gender
    male
    Posts
    124
    Reputation
    10
    Thanks
    8
    Send a message via Birdie™ to GHOSTKILL190 United States
    Same with me, Currently is not working after Patch!
  18. 07-24-2015 #15
    msazndragon
    msazndragon is offline
    Newbie
    MPGH Member
    msazndragon's Avatar
    Join Date
    May 2009
    Gender
    male
    Posts
    48
    Reputation
    10
    Thanks
    3
    Send a message via Birdie™ to msazndragon United States
    Quote Originally Posted by PASHMINAL1 View Post
    0097E114 is the new adress


    if u have totally no idea where to put it then copy this press F11 to activate it

    #WinActivateForce

    F11::
    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,0x0097E114)
    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
    }



    PS: this script only work for water.
    Hey, I was wondering if you could make a tutorial on how to update that pointer. Thanks
Page 1 of 3 123 LastLast
« Previous Thread | Next Thread »

Similar Threads

  1. **ATTENTION** New Hack Release [After Update 20/11]
    By brett.co in forum Blackshot Discussion
    Replies: 13
    Last Post: 11-22-2014, 12:37 AM
  2. New warrock hack after update
    By yoniyoni1111 in forum WarRock - International Hacks
    Replies: 63
    Last Post: 07-17-2009, 05:22 PM
  3. Adresses after update [25.07.08]
    By Raveshaw in forum WarRock - International Hacks
    Replies: 11
    Last Post: 08-01-2008, 09:59 PM
  4. [New addresses] After update of 11/08/07
    By mains3rv3r in forum WarRock - International Hacks
    Replies: 11
    Last Post: 11-09-2007, 09:42 PM
  5. New Adresses! 26.07.07 ( AFTER UPDATE!!! )
    By Jeffrey1993 in forum WarRock - International Hacks
    Replies: 7
    Last Post: 07-28-2007, 12:14 AM