So fügt man Superjump und NFD ein

Ich wollte mal zeigen wie Superjump und NFD im Timer von VB6 aussehen soll also: Für Superjump machst du 2 Timer und eine Textbox in den ein machst du:

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("WarRock", &H1306A70, SJ)
SJ1 = SJ + &H178
SJ2 = Text1.Text
Call WriteAFloat("WarRock", SJ1, SJ2)
End If

Und in den 2 Timer machst du:
If Check1.value = 1 Then Timer1.Interval = 1

Und in die Textbox schreibst du den Sprunghöhe rein.
Noch was wenn ihr den 2 Timer gemacht habt steht an der seite wo man den namen und so ändert Interval da schreibt ihr eine eins hin und die adressen sind alle auf den Neusten stand^^

Jetzt kommt NFD:

Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("WarRock", &H1306A70, NFD)
NFD1 = NFD + &H263
Call WriteALong("Warrock", NFD1, 1)

Das fügst du einfach ein ohne besondere Sachen viel Spaß^^.