sowens Posted March 11, 2009 Posted March 11, 2009 Ok well here is my code: expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.13.13 (beta) Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <ButtonConstants.au3> #include <NomadMemory.au3> #Region ### START Koda GUI $Form1 = GUICreate("WoW Teleport hack (3.0.9 Ready!) ", 329, 365) $Group1 = GUICtrlCreateGroup("Character Information:", 0, 8, 329, 129) $Label15 = GUICtrlCreateLabel("Name:", 8, 28, 35, 17) $pname = GUICtrlCreateLabel("????????????", 44, 28, 100, 17) $Label17 = GUICtrlCreateLabel("X Co-ordinate:", 8, 50, 71, 17) $Label18 = GUICtrlCreateLabel("Y Co-ordinate:", 8, 70, 71, 17) $Label19 = GUICtrlCreateLabel("Z Co-ordinate:", 8, 90, 71, 17) $Label20 = GUICtrlCreateLabel("Character Size:", 8, 110, 76, 17) $x = GUICtrlCreateLabel("X?", 80, 50, 100, 17) $y = GUICtrlCreateLabel("Y?", 80, 70, 100, 17) $z = GUICtrlCreateLabel("Z?", 80, 90, 100, 17) $scaleval = GUICtrlCreateLabel("Scale?", 88, 110, 37, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $scan = GUICtrlCreateButton("Click me first!", 8, 140, 83, 25, 0) $move = GUICtrlCreateButton("Move", 100, 140, 83, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### $UPDATE = 0 Dim $PLAYERSPEED = 848 Dim $PTRPLAYER = 0x127F13C Dim $STATEOFFSET = 2048 Dim $DIFFRENCEX2F = 47 Dim $PLAYERSPEED = 848 Dim $INTPLAYERXOFFSET = 2000 Dim $INTPLAYERYOFFSET = 2004 Dim $INTPLAYERZOFFSET = 2008 Global $SCALEOFFSET = 156 Global $PTRPLAYER, $PTRPLAYERX, $PTRPLAYERY, $PTRPLAYERZ, $SCALE, $PlayerMEM, $PLAYERNAME, $PLAYERSPEED SETPRIVILEGE("SeDebugPrivilege", 1) Dim $ProPID = WinGetProcess("World of Warcraft");--------FIX THIS---------@SW_MINIMIZE $HPROCESS = _MemoryOpen($ProPID) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $scan GetPointers() Case $move If FileReadLine("step1\x.cords") = GUICtrlRead($x) Then sleep(30) Else WinSetState("World of Warcraft", "", @SW_MAXIMIZE) sleep(2000) Do UPDATE() Send("{Up down}") UPDATE() Sleep(Random(100,1000, 10)) UPDATE() Send("{up up}") UPDATE() Until FileReadLine("step1\x.cords") = GUICtrlRead($x) EndIf EndSwitch If $UPDATE = 1 Then UPDATE() EndIf WEnd Func GetPointers() Global $LVL1POINTER = _MemoryRead($PTRPLAYER, $HPROCESS, "ptr") Global $LVL2POINTER = _MemoryRead(($LVL1POINTER + 48), $HPROCESS, "ptr") Global $PlayerMEM = _MemoryRead(($LVL2POINTER + 40), $HPROCESS, "ptr") $PTRPLAYERX = $PlayerMEM + $INTPLAYERXOFFSET $PTRPLAYERY = $PlayerMEM + $INTPLAYERYOFFSET $PTRPLAYERZ = $PlayerMEM + $INTPLAYERZOFFSET $SCALE = $PlayerMEM + $SCALEOFFSET $ROTATE = $PlayerMEM + 0x7DC $GLIDEFLY = $PlayerMEM + 2112 $PTRY = _MEMORYREAD($PTRPLAYERY, $HPROCESS, "float") $PLAYERNAME = _MEMORYREAD(0x11cb348, $HPROCESS, "char[12]") GUICtrlSetData($pname, $PLAYERNAME) $UPDATE = 1 EndFunc ;==>GetPointers Func UPDATE() $CURXPOS1 = GUICtrlSetData($X, _MEMORYREAD($PTRPLAYERX, $HPROCESS, "float")) $CURYPOS2 = GUICtrlSetData($Y, _MEMORYREAD($PTRPLAYERY, $HPROCESS, "float")) $CURZPOS3 = GUICtrlSetData($Z, _MEMORYREAD($PTRPLAYERZ, $HPROCESS, "float")) GUICtrlSetData($scaleval, _MEMORYREAD($SCALE, $HPROCESS, "float")) EndFunc I want it to move to "-6236.19482421875" or between "-6236" and "-6237" Can anybody help me thanks.
James Posted March 11, 2009 Posted March 11, 2009 Search for "World of Warcraft Development" Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now