Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
$Form1 = GUICreate("WoW XYZ Info", 175, 180, -1, -1, -1, $WS_EX_TOPMOST)
GUICtrlCreateLabel("Toon:", 10, 20, 50, 15)
$pname = GUICtrlCreateLabel("----", 65, 20, 100, 15)
GUICtrlCreateLabel("X:", 10, 40, 50, 15)
$X = GUICtrlCreateLabel("----", 65, 40, 100, 15)
GUICtrlCreateLabel("Y:", 10, 60, 50, 15)
$Y = GUICtrlCreateLabel("----", 65, 60, 100, 15)
GUICtrlCreateLabel("Z:", 10, 80, 50, 15)
$Z = GUICtrlCreateLabel("----", 65, 80, 100, 15)
GUICtrlCreateLabel("Rotate:", 10, 100, 50, 15)
$R = GUICtrlCreateLabel("----", 65, 100, 100, 15)
;$teleup = GUICtrlCreateButton("Tele-Up", 185, 136, 51, 17, 0)
;$teledown = GUICtrlCreateButton("Tele-Down", 240, 136, 59, 17, 0)
;$Group2 = GUICtrlCreateGroup("Player Scale", 16, 168, 145, 81)
;$Label4 = GUICtrlCreateLabel("Value:", 24, 192, 34, 17)
;$scaleval = GUICtrlCreateLabel("?", 64, 192, 40)
;$sup = GUICtrlCreateButton("Scale-up", 22, 221, 51, 17, 0)
;$sdown = GUICtrlCreateButton("Scale-Down", 83, 221, 67, 17, 0)
;GUICtrlCreateGroup("", -99, -99, 1, 1)
;GUICtrlCreateGroup("", -99, -99, 1, 1)
;$Label6 = GUICtrlCreateLabel("Player Pointer Scanner By Strategic-X", 120, 16, 182, 17)
$scan = GUICtrlCreateButton("Start Scan", 10, 150, 155, 20)
*****tState(@SW_SHOW)
;x = basePtr + 0x798
;y = basePtr + 0x79C
;z = basePtr + 0x7A0
;rotation = basePtr + 0x7A8
; Player Static Guid: 0x011110E0
; Player Class: 0x011330E5
SETPRIVILEGE("SeDebugPrivilege", 1)
Dim $ProPID = WinGetProcess("World of Warcraft");--------FIX THIS---------@SW_MINIMIZE
$WoWProcess = _MemoryOpen($ProPID)
$UPDATE = 0
Dim $PLAYERSPEED = 848
;Dim $PTRPLAYER = 0x127F13C
Global Const $cGUID = 0x34;//3.0.9:0x30;
Global Const $PlayerPTR = 0x010B65F4;//3.0.9:0x127F13C; PlayerBase [not playerobject]
Global Const $DontKnow1 = 0x24;//3.0.9:0x28
Global Const $PlayerPosX_Offset = 0x798;// 3.0.9:0x7D0;$PlayerPosX = _MemoryRead($baseAddress + $PlayerPosX_Offset, $WoWProcess, "int");(players and mobs)
Global Const $PlayerPosY_Offset = 0x79C;// 3.0.9:0x7D4;$PlayerPosY = _MemoryRead($baseAddress + $PlayerPosY_Offset, $WoWProcess, "int");(players and mobs)
Global Const $PlayerPosZ_Offset = 0x7A0;// 3.0.9:0x7D8;$PlayerPosZ = _MemoryRead($baseAddress + $PlayerPosZ_Offset, $WoWProcess, "int");(players and mobs)
Global Const $PlayerRotation_Offset = 0x7A8; = basePtr + 0x7A8;$PlayerRotation= _MemoryRead($baseAddress + $PlayerRotation_Offset, $WoWProcess, "int")(players and mobs)
Global Const $PlayerBase = _MemoryRead(_MemoryRead(_MemoryRead($PlayerPTR, $WoWProcess, 'ptr') + $cGUID, $WoWProcess, 'ptr') + $DontKnow1, $WoWProcess, 'ptr')
Dim $STATEOFFSET = 2048
Dim $DIFFRENCEX2F = 47
Dim $PLAYERSPEED = 848
Dim $INTPLAYERXOFFSET = 0x798
Dim $INTPLAYERYOFFSET = 0x79C
Dim $INTPLAYERZOFFSET = 0x7A0
Global $SCALEOFFSET = 156
Global $PTRPLAYER, $PTRPLAYERX, $PTRPLAYERY, $PTRPLAYERZ, $SCALE, $PlayerMEM, $PLAYERNAME, $PLAYERSPEED, $ROTATE
Global $oBobber = 0x0700D809 ; 0x0143D02D (by player)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $scan
GetPointers()
EndSwitch
If $UPDATE = 1 Then
UPDATE()
EndIf
WEnd
; name new = 0x1132F98
; name old = 0x11cb348
Func GetPointers()
;Global $LVL1POINTER = _MemoryRead($PTRPLAYER, $WoWProcess, "ptr")
;Global $LVL2POINTER = _MemoryRead(($LVL1POINTER + 48), $WoWProcess, "ptr")
;Global $PlayerMEM = _MemoryRead(($LVL2POINTER + 40), $WoWProcess, "ptr")
;Global $LVL2POINTER = _MemoryRead(($LVL1POINTER + 38), $WoWProcess, "ptr")
;Global $PlayerMEM = _MemoryRead(($LVL2POINTER + 30), $WoWProcess, "ptr")
;$PTRPLAYERX = $PlayerMEM + $INTPLAYERXOFFSET
;$PTRPLAYERY = $PlayerMEM + $INTPLAYERYOFFSET
;$PTRPLAYERZ = $PlayerMEM + $INTPLAYERZOFFSET
;$SCALE = $PlayerMEM + $SCALEOFFSET
;$ROTATE = $PlayerMEM + 0x7A8
;$GLIDEFLY = $PlayerMEM + 2112
;$PTRY = _MEMORYREAD($PTRPLAYERY, $WoWProcess, "float")
$PLAYERNAME = _MEMORYREAD(0x01132F98, $WoWProcess, "char[12]")
GUICtrlSetData($pname, $PLAYERNAME)
$UPDATE = 1
EndFunc ;==>GetPointers
Func UPDATE()
$PlayerPosX = _MemoryRead($PlayerBase + $PlayerPosX_Offset, $WoWProcess, "float")
$CURXPOS1 = GUICtrlSetData($X, $PlayerPosX)
$PlayerPosY = _MemoryRead($PlayerBase + $PlayerPosY_Offset, $WoWProcess, "float")
$CURXPOS2 = GUICtrlSetData($Y, $PlayerPosY)
$PlayerPosZ = _MemoryRead($PlayerBase + $PlayerPosZ_Offset, $WoWProcess, "float")
$CURXPOS3 = GUICtrlSetData($Z, $PlayerPosZ)
$PlayerRotation = _MemoryRead($PlayerBase + $PlayerRotation_Offset, $WoWProcess, "float")
$CURXPOS4 = GUICtrlSetData($R, $PlayerRotation)
;$CURZPOS4 = GUICtrlSetData($R, _MEMORYREAD($ROTATE, $WoWProcess, "float"))
;GUICtrlSetData($scaleval, _MEMORYREAD($SCALE, $WoWProcess, "float"))
EndFunc