Hey, im back *again* for another tutorial. That's awesome how much I am bored today, uh? So today, we going to learn how to make a Teleporter or in other word, MassKill. This is a little harder and you need a little knowledge in teleporting.
You need to know:
Tsearch and basic memory editing;
Basic knowledge in teleporting.
Lets do a little overview about Teleporting to Player.
Teleporting to Player / Masskill writes the XYZ position of an another player in the game in yours, making your player to teleport to enemy. For sure, you will need lag otherwise you will die.
So now, lets get our current position:
Code:
Pointer = ReadALong(XYZPointer)
Dim XAddress As Long
Dim YAddress As Long
Dim ZAddress As Long
Dim XValue As Long
Dim YValue As Long
Dim ZValue As Long
Dim Pointer As Long
XValue = ReadALong(Pointer + 8, 0) 'Get our current XYZ:
YValue = ReadALong(Pointer + 12, 0)
ZValue = ReadALong(Pointer + 16, 0)
XAddress = Pointer + 8
YAddress = Pointer + 12
ZAddress = Pointer + 16
Ok, so now that we got our current position, we need to know the position of the enemy. To get that, I will learn you something new : The Enemy XYZ. This is working with Player Slot, not by name. So if you want to make a list of the player in a server, read the next tutorial I am going to release. Now I will just teach you how to read XYZ from a defined Player Slot.
To get enemy XYZ from a defined player slot, its pretty easy:
We will build a TargetPointer so finding the enemy XYZ will be easier because all will be set like it was OUR pointer:
Code:
TargetPointer = ReadALong(HostPointer) + (668 * PlayerSlot)
668 is the jump to do to between each player slot. The first slot is ALWAY the host, same if its existing or not, dedicated server or not.
So now, lets get our enemy xyz:
Code:
EnemyX = ReadALong(TargetPointer + 8)
EnemyY = ReadALong(TargetPointer + 12)
EnemyZ = ReadALong(TargetPointer + 16)
Right, we got our Enemy XYZ, now everything's is getting clear :
Code:
Call WriteXBytes(LagAddy) 'Activate Lag
'Write in our xyz address the position of the enemy
Call WriteALong(XAddress, EnemyX)
Call WriteALong(YAddress, EnemyY)
Call WriteALong(ZAddress, EnemyZ)
Sleep(3500) 'Lag time will be 3,5 Seconds
Call WriteXBytes(LagAddy) 'deactivate Lag
Again we do not need any facing changes.
Have fun and enjoy your teleporting !
Author : ByTeKiLLER
MSN :
crazy-bhd@hotmail.com