[Help needed] Teleport and No Recoil

[Matemax]

Well, like the title says I need help for Teleport and No Recoil functions...
I have coded this (with the old Module Maker):

TELEPORT:

Get button:


If GetKeyPress(vbKeyControl) And (vbKeyG) Then
Dim Tele As Long
Dim TeleX As Long
Dim TeleY As Single
Dim TeleZ As Single
Call readalong("WarRock", &HPlayerpointer, Tele)
TeleX = Tele + &HTeleportOffsetX
TeleY = Tele + &HTeleportOffsetY
TeleZ = Tele + &HTeleportOffsetZ
ReadAFloat "Warrock", TeleX, textboxX.Text
ReadAFloat "Warrock", TeleY, textboxY.Text
ReadAFloat "Warrock", TeleZ, textboxZ.Text
End If

Teleport Button:


If GetKeyPress(vbKeyZ) Then
Dim Xgotele1 As Long
Dim Xgotele2 As Long
Dim Xgotele3 As Single
Xgotele3 = textboxX.Text
Call readalong("WarRock", &HPlayerpointer, Xgotele1)
Xgotele2 = Xgotele1 + &HTeleportOffsetX
Call writeafloat("Warrock", Xgotele2, Xgotele3)
Dim Ygotele1 As Long
Dim Ygotele2 As Long
Dim Ygotele3 As Single
Ygotele3 = textboxY.Text
Call readalong("WarRock", &HPlayerpointer, Ygotele1)
Ygotele2 = Ygotele + &HTeleportOffsetY
Call writeafloat("WarRock", Ygotele2, Ygotele3)
Dim Zgotele1 As Long
Dim Zgotele2 As Long
Dim Zgotele3 As Single
Zgotele3 = textboxZ.Text
Call readalong("WarRock", &HPlayerpointer, Zgotele1)
Zgotele2 = Zgotele1 + &HTeleportOffsetZ
Call writeafloat("WarRock", Zgotele2, Zgotele3)

NO RECOIL:


Dim recoil1 As Long
Dim recoil2 As Long
Dim recoil3 As Long
Dim recoil4 As Long
Call readalong("Warrock", &HPlayerpointer, recoil1)
recoil2 = recoil1 + &HNoRecoil1Offset
recoil3 = recoil1 + &HNoRecoil2Offset
recoil4 = recoil1 + &HNoRecoil3Offset
Call writeafloat("Warrock", recoil2, 0)
Call writeafloat("Warrock", recoil3, 0)
Call writeafloat("Warrock", recoil4, 0)

Teleport is in two buttons (the Get one and the Teleport one) and No Recoil is in a timer.

How can I make them with the new Undetected Module Maker?

Thanks in advance:

~Matemaxâ„¢