Code:
#Include <NomadMemory.au3>
#Include <Misc.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
SetPrivilege("SeDebugPrivilege", 1)
;;;;;;;;;;;;;
;Declaracion de variables
;;;;;;;;;;;;;
Global $CTM = 0x011180A0
Global $pointer = 0x10BD5F4
Global $wow = _memoryopen(WinGetProcess("World of Warcraft"))
Global $titulo = Random(0,99999)
Global $tituloaplic = Random(0,99999)
;;;;;;;;;;;;;
;Declaracion de funciones
;;;;;;;;;;;;;
Func CTM($x, $y, $z, $r)
;_MemoryWrite($main + 0x20, $handle, $targetGUID)
_MemoryWrite($CTM + 0x74, $wow, $x, 'float') ;X
_MemoryWrite($CTM + 0x78, $wow, $y, 'float') ;Y
_MemoryWrite($CTM + 0x7C, $wow, $z, 'float') ;Z
;_MemoryWrite($CTM + 0x4, $wow, $r, 'float') ;ROTACION
_MemoryWrite($CTM + 0xC, $wow, 1, 'float') ;INTERACCION DISTANCIA (STOP)
_MemoryWrite(0x11180BC, $wow, 4, 'int')
EndFunc
;;;;;;
Func Msg($cadena)
MsgBox("","",$cadena)
EndFunc
;;;;;;;;;;;;;
;GUI
;;;;;;;;;;;;;
#Region ### START Koda GUI section ### Form=C:\Users\Carlos\Desktop\XYZ\Gestor\form.kxf
$Form1_1 = GUICreate($tituloaplic, 499, 629, 246, 165)
$Group1 = GUICtrlCreateGroup("Información:", 96, 48, 337, 121)
$Group6 = GUICtrlCreateGroup("X", 112, 72, 129, 41)
$xlabel = GUICtrlCreateLabel("0.0000000", 120, 88, 55, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group7 = GUICtrlCreateGroup("Y", 112, 112, 129, 41)
$ylabel = GUICtrlCreateLabel("0.0000000", 120, 128, 55, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group8 = GUICtrlCreateGroup("Z", 248, 112, 129, 41)
$zlabel = GUICtrlCreateLabel("0.0000000", 256, 128, 55, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group9 = GUICtrlCreateGroup("R", 248, 72, 129, 41)
$rlabel = GUICtrlCreateLabel("0.0000000", 256, 88, 55, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Target X", 16, 240, 105, 233)
$List1 = GUICtrlCreateList("", 24, 264, 89, 188)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Target Y", 136, 240, 105, 233)
$List2 = GUICtrlCreateList("", 144, 264, 89, 188)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Target Z", 256, 240, 105, 233)
$List3 = GUICtrlCreateList("", 264, 264, 89, 188)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$gomoveto = GUICtrlCreateButton("Ir a la posicion seleccionada", 104, 176, 321, 25, $WS_GROUP)
$Group5 = GUICtrlCreateGroup("Otras opciones", 80, 504, 345, 89)
$buttoncamera = GUICtrlCreateButton("Distancia camara", 96, 528, 107, 25, $WS_GROUP)
$buttonscala = GUICtrlCreateButton("Scala jugador", 96, 560, 107, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$savepos = GUICtrlCreateButton("Guardar posicion actual", 104, 208, 321, 25, $WS_GROUP)
$Group10 = GUICtrlCreateGroup("Target R", 376, 240, 105, 233)
$List4 = GUICtrlCreateList("", 384, 264, 89, 188)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Progress1 = GUICtrlCreateProgress(96, 8, 337, 17)
GUICtrlSetLimit(-1, 300, 0)
GUICtrlSetTip(-1, "50")
$Progress2 = GUICtrlCreateProgress(96, 32, 337, 17)
*****tState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
WinSetOnTop ($tituloaplic,"",1)
;;;;;;;;;;;;;
;Iniciacion del script
;;;;;;;;;;;;;
$base = _memoryread($pointer ,$wow,'dword')
$base = _memoryread("0x" & hex($base + 0x34),$wow,'dword')
$base = _memoryread("0x" & hex($base + 0x24),$wow,'dword')
*****tState(@SW_SHOW)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$f = 150
While 1
;;;;;
;Related to GUI
;;;;;
$Y = _MemoryRead("0x" & hex($base + 0x79C) , $wow, 'float')
$X = _MemoryRead("0x" & hex($base + 0x798), $wow, 'float')
$Z = _MemoryRead("0x" & hex($base + 0x7A0), $wow, 'float')
$h = _MemoryRead(_MemoryRead($base + 0x8,$wow,'ptr') + 0x17*4,$wow,'int')
$R = _MemoryRead(0x1BA8E248 , $wow, 'float')
GUICtrlSetData($xlabel,$x)
GUICtrlSetData($ylabel,$y)
GUICtrlSetData($zlabel,$z)
GUICtrlSetData($rlabel,$R)
GUICtrlSetData($Progress1,$h)
;;;;;
;Clics en botones
;;;;;
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;;;;;
;Insertamos las posiciones en los list
;;;;;
Case $savepos
GUICtrlSetData($List1,$x)
GUICtrlSetData($List2,$y)
GUICtrlSetData($List3,$z)
GUICtrlSetData($List4,$R)
Case $gomoveto
CTM(GUICtrlRead($List1),GUICtrlRead($List2),GUICtrlRead($List3),GUICtrlRead($List4))
EndSwitch
;;;
WEnd