Superjump,NFD,Stamina und Schwimmen

Also jetzt mal alles zusammen wie Superjump,NFD,Stamina und Schwimmen eingefügt werden soll^^:
Superjump:
1 Timer
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("WarRock", &H1363380, SJ)
SJ1 = SJ + &H178
SJ2 = Text1.Text
Call WriteAFloat("WarRock", SJ1, SJ2)
End If

2 Timer
If Check1.value = 1 Then Timer1.Interval = 1

Textbox
788

NFD:
Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("WarRock", &H1363380, NFD)
NFD1 = NFD + &H263
Call WriteALong("Warrock", NFD1, -2000)

Stamina:
Dim Stamina1 As Long
Dim Stamina2 As Long
Call ReadALong("Warrock",&H1363380,Stamina1)
Stamina2 = Stamina1 +&H288
Call WriteALong("Warrock",Stamina2, 1120403456)

Schwimmen:
Dim Swim1 As Long
Dim Swim2 As Long
Call ReadALong("Warrock",&H1363380,Swim1)
Swim2 = Swim1 +&H276
Call WriteALong("Warrock",Swim2, 4)