[Hack] Rotation-based XYZ

[Norus]

I was bored of classic XYZ, therefore I modified this one by using player's rotation angle and my amazing mathematics skills (especially trigonometry) :P
It's works just like the old one, but XY slide depends on your current rotation angle.
eg: 8 will take a step in front of you, 4 to your left, etc.

edit: 3.3.0a update
XYZR (3.3.0.11159) & Source (AutoIt)
Virustotal. MD5: 63b3f60efa0dbd1220e863e6fecd47e1 : XYZR.zip

;---- Includes ----
#Include <NomadMemory.au3>        
#Include <Misc.au3>
;------Copy/Pasted offsets (3.3.0.11159) from http://www.mmowned.com/forums/wow-memory-editing/271736-wow-3-3-0-info-dump-thread.html
Global $PlayerBaseStatic = 0x00CF7C00
Global $PlayerBaseOffsA = 0x34, $PlayerBaseOffsB = 0x24 
;------------------

SetPrivilege("SeDebugPrivilege", 1)             
$dll = DllOpen("user32.dll")
$wow = _memoryopen(ProcessExists("Wow.exe"))

Func teleport($direction)
    
    $lvl1Pointer = _MemoryRead($PlayerBaseStatic, $wow, 'ptr')
    $lvl2Pointer = _MemoryRead(($lvl1Pointer + $PlayerBaseOffsA), $wow, 'ptr')
     $PlayerBase  = _MemoryRead(($lvl2Pointer + $PlayerBaseOffsB), $wow, 'ptr')
    
    $X = $PlayerBase + 0x798
    $Y = $PlayerBase + 0x79C
    $Z = $PlayerBase + 0x7A0
    $R = $PlayerBase + 0x7A8
    
    $pi = 3.14159265
        
Select
    Case $direction = 8
        $locationX = _MemoryRead($X , $wow, 'float')
        $locationY = _MemoryRead($Y , $wow, 'float')
        $locationR = _MemoryRead($R , $wow, 'float')
        
        $newlocationX = $locationX + 0.13 * cos($locationR)
        $newlocationY = $locationY + 0.13 * sin($locationR)
        
        _MemoryWrite($X , $wow,$newlocationX, 'float')
        _MemoryWrite($Y , $wow,$newlocationY, 'float')
        
        send("{left}{left}{right}{right}")

    
    Case $direction = 4
        $locationX = _MemoryRead($X , $wow, 'float')
        $locationY = _MemoryRead($Y , $wow, 'float')
        $locationR = _MemoryRead($R , $wow, 'float')
        
        $newlocationX = $locationX + 0.13 * cos($locationR + ($pi/2))
        $newlocationY = $locationY + 0.13 * sin($locationR + ($pi/2))
        
        _MemoryWrite($X , $wow,$newlocationX, 'float')
        _MemoryWrite($Y , $wow,$newlocationY, 'float')
        
        send("{left}{left}{right}{right}")
    
    Case $direction = 5
        $locationX = _MemoryRead($X , $wow, 'float')
        $locationY = _MemoryRead($Y , $wow, 'float')
        $locationR = _MemoryRead($R , $wow, 'float')
        
        $newlocationX = $locationX + 0.13 * (-cos($locationR))
        $newlocationY = $locationY + 0.13 * (-sin($locationR))
        
        _MemoryWrite($X , $wow,$newlocationX, 'float')
        _MemoryWrite($Y , $wow,$newlocationY, 'float')
        
        send("{left}{left}{right}{right}")
    
    Case $direction = 6
        $locationX = _MemoryRead($X , $wow, 'float')
        $locationY = _MemoryRead($Y , $wow, 'float')
        $locationR = _MemoryRead($R , $wow, 'float')
        
        $newlocationX = $locationX + 0.13 * cos($locationR - ($pi/2))
        $newlocationY = $locationY + 0.13 * sin($locationR - ($pi/2))
        
        _MemoryWrite($X , $wow,$newlocationX, 'float')
        _MemoryWrite($Y , $wow,$newlocationY, 'float')
        
        send("{left}{left}{right}{right}")
    
    Case $direction = 7
        $location = _MemoryRead($Z , $wow, 'float')
        $newlocation = $location + 0.13
        _MemoryWrite($Z , $wow,$newlocation, 'float')
        
        send("{left}{left}{right}{right}")
        
    Case $direction = 9
        $location = _MemoryRead($Z , $wow, 'float')
        $newlocation = $location - 0.13
        _MemoryWrite($Z , $wow,$newlocation, 'float')
        
        send("{left}{left}{right}{right}")
    
EndSelect
EndFunc


Global $Paused
HotKeySet("{PAUSE}", "TogglePause")

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
    WEnd
EndFunc

;check if the keys are pressed, yes this drains alot of CPU :'(
While 1
    If _IsPressed("68", $dll) Then
teleport(8)

    elseif _IsPressed("64", $dll) Then
teleport(4)

    elseif _IsPressed("65", $dll) Then
teleport(5)

    elseif _IsPressed("66", $dll) Then
teleport(6)

    elseif _IsPressed("67", $dll) Then
teleport(7)

    elseif _IsPressed("69", $dll) Then
teleport(9)

    elseif _IsPressed("61", $dll) Then
teleport(1)

    elseif _IsPressed("63", $dll) Then
teleport(3)

    EndIf
    
sleep(50)

WEnd

[rchy]

this is on the old one...

[Norus]

"in front of you" ≠ "north"
isn't it ?

[TehHuntorz]

Nice work
+rep

[Jadd]

This code helped me making my bot.

Thank you. +Rep

[Professor Banana]

I assume this is for 3.0.9?

I will +rep if it is, beause my XYZ got messed up.

[Norus]

yes it is for 3.0.9

[Professor Banana]

Allright, I tested it out on a private server because retial ones are down, and it worked like a charm. I see no reason why this shouldn't work on retail, so here you go. have a glass of milk and a +rep cookie

[BlodyWarior]

:O this is actualy realy nice if it works. cant test atm >.< pc crashed so no wow for a while :/. It always annoyed me with XYZ i had to keep thinking of the north/south angle.

+2 rep anyways ^^

edit: oh appearantly i can do 3rep now :P so u got 3 instead

[Imalinux]

virus scan?

[Robske]

virus scan?

AutoIt source included?

[Cursed]

AutoIt source included?

The Link says 'Source (AutoIt) + Exe', so I'd say yes.

+Rep 2x for the math

[agni]

This is very good! I like the thing u can slide to where u look etc, and this one is also very fast up and down ;o haven't seen one for a while. Slide moves also very nicely.

You earned ur rep!

[Professor Banana]

oh yeah btw forgot to mention, love the way ther's more accuracy in moving up/down then there was before.

[bubbajackson]

This is pretty awesome. And by pretty awesome I mean super ****ing cool. Not to take anythign away from the original XYZ but wow this one is sharp. I moveso quickly up and down now.

Wish I could give you more rep!