[help]i need help by xyz teleporter

[erwin0003]

i need the code for the teleporter (warrock) vb6 plz

[erwin0003]

sombody help??

[pbsucks]

do you need the adresses and values or the codes written in the timers and buttons?

[erwin0003]

i need all

[pbsucks]

do you know how to code the other functions like no recoil?

[Iam"iDude"]

fine i will post it right out :-/
this goes in a button

Dim TX As Long
Dim TX1 As Long
Dim TX2 As Single

Call ReadALong("Warrock", &H8B5288, TX)
TX1 = TX + &H17C
TX2 = Val(Text9.Text)
Call WriteAFloat("Warrock", TX1, TX2)

Dim TY As Long
Dim TY1 As Long
Dim TY2 As Single

Call ReadALong("Warrock", &H8B5288, TY)
TY1 = TY + &H184
TY2 = Val(Text10.Text)
Call WriteAFloat("Warrock", TY1, TY2)

Dim TZ As Long
Dim TZ1 As Long
Dim TZ2 As Single

Call ReadALong("Warrock", &H8B5288, TZ)
TZ1 = TZ + &H180
TZ2 = Val(Text11.Text)
Call WriteAFloat("Warrock", TZ1, TZ2)