superjump, swim, and no fall damage

Posts 1–7 of 7 · Page 1 of 1

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

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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.******

Originally Posted by unseenss

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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

<<deleted>>

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

Originally Posted by 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

every addy there i got to fill in with address?

Originally Posted by unseenss

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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...

Posts 1–7 of 7 · Page 1 of 1

This thread is closed for replies.

Death526 20 long ago WarRock - International Hacks❗ trade stamina, weapons, super jump, no fall damage and scope dinamic adres!!!FEferrar1000 8 long ago WarRock - International Hacksno fall damage addresse and pointer or value

123456789987654321 2 long ago Visual Basic ProgrammingNo fall damage and super jump code?TheBlueMax 13 long ago

superjump, swim, and no fall damage

Similar Threads