Superjump and Superman Codes??Somebody help me with these codes??
Superjump and Superman Codes??Somebody help me with these codes??
Code:
Private Sub Timer5_Timer()
Dim Jump As Long
Dim Jump1 As Long
Call ReadALong("Warrock", &H896E28, Jump)
Jump1 = Jump + &H180
Call WriteALong("Warrock", Jump1, 384)
End Sub
Question:HOW I CHANGE IT TO JUMP^_Now It Goes Underground!!!
This Is My Code Of Superman:-----^
AND I NEED NO FALL DAMAGE ADDRESS!! PLEASE
I Have The Same Problem,it Doesnt Matter What Value You Use It Doesnt Work,its The Only Thing On My Trainer That Doesnt Work.
Value = 2000 
not uce,in vb6 it works in uce with value 2000,i put it in vb6 with pointer,and + &H180,heres my code-it doesnt work
Private Sub Timer9_Timer()
Dim jump As Long
Dim jump1 As Long
Dim jump3 As Long
If GetKeyPress(vbKeyNumpad7) Then
Call ReadALong("WarRock", &H896E28, jump)
jump1 = jump + &H180
jump3 = 2000
Call WriteALong("WarRock", jump1, jump3)
End If
End Sub
Private Sub Timer9_Timer()
Dim jump As Long
Dim jump1 As Long
Dim jump3 As Long
If GetKeyPress(vbKeyNumpad7) Then
Call ReadALong("WarRock", &H896E28, jump)
jump1 = jump + &H180
jump3 = 2000
Call WriteALong("WarRock", jump1, jump3)
End If
End Sub
This thread is closed for replies.
