Sign in to follow this  
Followers 0
sowens

move in wow?

2 posts in this topic

Ok well here is my code:

#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.

Share this post


Link to post
Share on other sites



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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0