sowens Posted March 11, 2009 Share 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. Link to comment Share on other sites More sharing options...
James Posted March 11, 2009 Share Posted March 11, 2009 Search for "World of Warcraft Development" Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
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