[TUT] Teleport

[randompersonmatt]

ok this is a quick tut on teleport because ive had a few people asking about the teleport -

Addresses used are from the 01/05/08 update so just change them whenever there is an update
addresses that need changing -
player pointer - 13773a0
X offset - 174
Y offset - 17C
Z offset - 178

you need three text boxes called textboxX, textboxY and textboxZ and two command buttons, im guessing u already know how to make most hacks, if you dont then this WILL be confusing !

anyway after you have you first hack working and made then you add this to one of your command buttons and call it "get", il explain it later :

nice long piece of code =P, as always change the readalong, writeafloat, readafloat etc to whatever it was changed to in ZeaS' module maker.



'X Coordinates
Dim TeleX As Long
Dim TeleX1 As Long
Dim TeleX2 As Single
Call ReadALong("WarRock", &H13773a0, TeleX)
TeleX1 = TeleX + &H174
Call ReadAFloat("Warrock", TeleX1, TeleX2)
textboxX.Text = TeleX2
'Y Coordinates
Dim TeleY As Long
Dim TeleY1 As Long
Dim TeleY2 As Single
Call ReadALong("WarRock", &H13773a0, TeleY)
TeleY1 = TeleY + &H17C
Call ReadAFloat("Warrock", TeleY1, TeleY2)
textboxY.Text = TeleY2
'Z coordinates
Dim TeleZ As Long
Dim TeleZ1 As Long
Dim TeleZ2 As Single
Call ReadALong("WarRock", &H13773a0, TeleZ)
TeleZ1 = TeleZ + &H178
Call ReadAFloat("Warrock", TeleZ1, TeleZ2)
textboxZ.Text = TeleZ2
this dims 3 variables for each coordinate (yes i know there is a tidier way to do it but its easier to learn separated) and does the normal thing for using an offset. it then READs from the float and puts the value into the textboxes. compile and test, you should have some values put into the text boxes whenever you click on "get"

now i will show you how to teleport to a location, the fun bit =P, basically this is the same as "get", but gets the values from the text boxes and writes them into warrock -



Dim Xgotele1 As Long
Dim Xgotele2 As Long
Dim Xgotele3 As Single
Xgotele3 = textboxX.Text
Call ReadALong("WarRock", &H13773a0, Xgotele1)
Xgotele2 = Xgotele1 + &H174
Call WriteAFloat("Warrock", Xgotele2, Xgotele3)
'y coordinates
Dim Ygotele1 As Long
Dim Ygotele2 As Long
Dim Ygotele3 As Single
Ygotele3 = TextboxY.Text
Call ReadALong("WarRock", &H13773a0, Ygotele1)
Ygotele2 = Ygotele1 + &H17C
Call WriteAFloat("WarRock", Ygotele2, Ygotele3)
'z coordinates
Dim Zgotele1 As Long
Dim Zgotele2 As Long
Dim Zgotele3 As Single
Zgotele3 = textboxZ.Text
Call ReadALongL("WarRock", &H13773a0, Zgotele1)
Zgotele2 = Zgotele1 + &H178
Call WriteAFloat("WarRock", Zgotele2, Zgotele3)
compile and test this, it should teleport you to the postition you were when you clicked "get" whenever you click on "go"

btw i havnt properly tested this, i just copied and pasted from my hack, so please tell me if i anything is wrong and i will edit it.

happy hacking

This Tut was made by ME randompersonmatt and noone can post this on any site without my prior permission, or i will beat you with a stick =P oh, and get the admins on yo asses

this has been posted on another site by me if you though you had seen it before.