VB Trainer

[DNA]

Versuch mal das hier

[code=VB]

Dim Tele as New Teleporter
Dim Stromkasten as New Teleporter
Stromkasten.XKoord = -1006153898
Stromkasten.YKoord = 1151608972
Stromkasten.ZKoord = -1048707072


Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

If GetAsyncKeyState(VK_Numpad3) Then
GetProcessId(ProcName)
Tele = Read_Koord(Telepointer, &H1C08B64, 0)

ElseIf GetAsyncKeyState(VK_Numpad4) Then
GetProcessId(ProcName)

If Not Tele.XKoord = 0 Then
Write_Koord(Telepointer, H1C08B64, Tele, 0)
System.Threading.Thread.Sleep(500)
End If

ElseIf GetAsyncKeyState(VK_Numpad5) Then
GetProcessId(ProcName)

Write_Koord(Telepointer, H1C08B64, Stromkasten, 0)
System.Threading.Thread.Sleep(500)

End If[/code]

So kannst du mit Num 3 deine aktuelle Position ganz normal speichern,
mit Num 4 die gespeicherte Position laden und mit Num 5 kannst
du dich zum Stromkasten teleportieren.