superjump, swim, and no fall damage

[Death526]

Ok here are the addresses

Superjump : 008B5288 + 180

No Fall Damage : 008B5288 + 26C

Swim : 008B5288 + 54

First person to give me completely filled out code other than timer number will get their credits in every trainer i make also could u put the hot keys as

superjump = control + 1

No Fall Damage = Control + 2

Swim = control + 3

If u can thank u so much

[unseenss]

Private Sub sj_Click()
    Dim addy As Long
    Dim Addy2 As Long
    
    Call ReadALong("WarRock", Weapon_Address, addy)
    
    Addy2 = addy + SJ_Offset
    
    Call WriteAFloat("WarRock", Addy2, Val(SJ_H.Text))
End Sub

Private Sub fall_Click()
    If timer5.Enabled = False Then timer5.Enabled = True Else timer5.Enabled = False
End Sub

Private Sub swim_Click()
        Dim addy As Long
    Dim Addy2 As Long
    Dim HOn As Long
    
    Call ReadALong("Warrock", Weapon_Address, addy)
    Addy2 = addy + Pos_Offset
    
    Call ReadALong("Warrock", Addy2, HOn)
    
    If HOn = 4 Then Call WriteALong("Warrock", Addy2, 0) Else Call WriteALong("Warrock", Addy2, 4)
End Sub

Private Sub Timer5_Timer()
    Dim addy As Long
    Dim Addy2 As Long
    
    Call ReadALong("WarRock", NFD_Address, addy)
    Addy2 = addy + nfd_Offset
    Call WriteALong("WarRock", Addy2, -100)
End Sub

Private Sub Timer1_Timer()
    If  GetKeyPress(vbKeyControl) And GetKeyPress(vbKey3) Then swim_Click
    If  GetKeyPress(vbKeyControl) And GetKeyPress(vbKey2) Then fall_Click
    If  GetKeyPress(vbKeyControl) And GetKeyPress(vbKey1) Then sj_Click
End Sub

Credits:
gameglitchers.******

[Death526]

Private Sub sj_Click()
    Dim addy As Long
    Dim Addy2 As Long
    
    Call ReadALong("WarRock", Weapon_Address, addy)
    
    Addy2 = addy + SJ_Offset
    
    Call WriteAFloat("WarRock", Addy2, Val(SJ_H.Text))
End Sub

Private Sub fall_Click()
    If timer5.Enabled = False Then timer5.Enabled = True Else timer5.Enabled = False
End Sub

Private Sub swim_Click()
        Dim addy As Long
    Dim Addy2 As Long
    Dim HOn As Long
    
    Call ReadALong("Warrock", Weapon_Address, addy)
    Addy2 = addy + Pos_Offset
    
    Call ReadALong("Warrock", Addy2, HOn)
    
    If HOn = 4 Then Call WriteALong("Warrock", Addy2, 0) Else Call WriteALong("Warrock", Addy2, 4)
End Sub

Private Sub Timer5_Timer()
    Dim addy As Long
    Dim Addy2 As Long
    
    Call ReadALong("WarRock", NFD_Address, addy)
    Addy2 = addy + nfd_Offset
    Call WriteALong("WarRock", Addy2, -100)
End Sub

Private Sub Timer1_Timer()
    If  GetKeyPress(vbKeyControl) And GetKeyPress(vbKey3) Then swim_Click
    If  GetKeyPress(vbKeyControl) And GetKeyPress(vbKey2) Then fall_Click
    If  GetKeyPress(vbKeyControl) And GetKeyPress(vbKey1) Then sj_Click
End Sub

Credits:
gameglitchers.******

thanks but thats 2 complicated i need something that is completely filled in. like the addresses in and offsets and all that stuff

[unseenss]

<<deleted>>

[unseenss]

that is completley filled in...dont you know about constants?,or you could just replace the _ADDY with the actual address and the _OFFSET with the offset...if you cant do that...thats sad

[Death526]

that is completley filled in...dont you know about constants?,or you could just replace the _ADDY with the actual address and the _OFFSET with the offset...if you cant do that...thats sad

every addy there i got to fill in with address?

[NetNavi]

Private Sub sj_Click()
    Dim addy As Long
    Dim Addy2 As Long
    
    Call ReadALong("WarRock", Weapon_Address, addy)
    
    Addy2 = addy + SJ_Offset
    
    Call WriteAFloat("WarRock", Addy2, Val(SJ_H.Text))
End Sub

Private Sub fall_Click()
    If timer5.Enabled = False Then timer5.Enabled = True Else timer5.Enabled = False
End Sub

Private Sub swim_Click()
        Dim addy As Long
    Dim Addy2 As Long
    Dim HOn As Long
    
    Call ReadALong("Warrock", Weapon_Address, addy)
    Addy2 = addy + Pos_Offset
    
    Call ReadALong("Warrock", Addy2, HOn)
    
    If HOn = 4 Then Call WriteALong("Warrock", Addy2, 0) Else Call WriteALong("Warrock", Addy2, 4)
End Sub

Private Sub Timer5_Timer()
    Dim addy As Long
    Dim Addy2 As Long
    
    Call ReadALong("WarRock", NFD_Address, addy)
    Addy2 = addy + nfd_Offset
    Call WriteALong("WarRock", Addy2, -100)
End Sub

Private Sub Timer1_Timer()
    If  GetKeyPress(vbKeyControl) And GetKeyPress(vbKey3) Then swim_Click
    If  GetKeyPress(vbKeyControl) And GetKeyPress(vbKey2) Then fall_Click
    If  GetKeyPress(vbKeyControl) And GetKeyPress(vbKey1) Then sj_Click
End Sub

Credits:
gameglitchers.******

all you have to do is replace the "NFD_ADDRESS, ADDY)

with the real address and change the values

real simple

even i understand

and i dont even have vb6...