Super Jump

[clipster15]

I was trying to make super jump:


If GkPsS(17) Then
Dim superJ As Long
Dim superJ2 As Long
Dim Heigh As Long
Heigh = supjumpheT.Text
superJ = RdAlong("WarRock", &H136A0E0)
superJ2 = superJ + &H178
Call WrAlong("WarRock", sJ_var58610, Heigh)
End If



But it does't work right.


When I press Ctrl it smacks me to the ground instead of shooting me up.

If I hold Ctrl and press space to jump, it won't let me jump.

Anyone know why?

[akilli]

Dim Heigh As Long its wrong its

Dim Heigh As Single

[clipster15]

it still does the same thing.

[dutch]

it still does the same thing.

make a timer add this
if getkeypress(vbkeycontrol) and getkeypress(vbkeyspace) then
add ur code

[clipster15]

wait, does this supposed to go in a timer?

[chrisbk88]

well

If GkPsS(17) Then
Dim superJ As Long
Dim superJ2 As Long
Dim Heigh As Long
Heigh = supjumpheT.Text
superJ = RdAlong("WarRock", &H136A0E0)
superJ2 = superJ + &H178
Call WrAlong("WarRock", sJ_var58610, Heigh)
End If

looks as if its not even using the address to me

If GkPsS(17) Then
Dim superJ As Long
Dim superJ2 As Long
Dim Heigh As Long
Heigh = supjumpheT.Text
superJ = RdAlong("WarRock", &H136A0E0)
superJ2 = superJ + &H178
Call WrAlong("WarRock", superJ2, Heigh)
End If
and btw, you might wanna use WrAFloat

If GkPsS(17) Then
Dim superJ As Long
Dim superJ2 As Long
Dim Heigh As Long
Heigh = supjumpheT.Text
superJ = RdAlong("WarRock", &H136A0E0)
superJ2 = superJ + &H178
Call WrAlFloat("WarRock", superJ2, Heigh)
End If

im just guessing thats your float function. change it if its not, it should work now

ummm what? use float or long? -.-

[AlexSleyore]

ummm what? use float or long? -.-

I would use Float its a lot earier to do the math with.

Also make sure you define Height as a value or it will auto be 0 and 0 shoots you into the ground on pretty much every map

[ZeaS]

If GkPsS(17) Then
Dim superJ As Long
Dim superJ2 As Long
Dim Heigh as Long
Heigh = supjumpheT.Text
superJ = RdAlong("WarRock", &H136A0E0)
superJ2 = superJ + &H178
Call WrAlong("WarRock", sJ_var58610, Heigh)
End If

there are lot of mistakes in it

Height, Long, sJ_var...


If GkPsS(17) Then
Dim superJ As Long
Dim superJ2 As Long
superJ = RdAlong("WarRock", &H136A0E0)
superJ2 = superJ + &H178
Call WrAfloat("WarRock", superJ2, supjumpheT.Text)
End If

copy/paste it should work fine

[pwn3r]

hmm..Il give u a tip.Change the SuperJ to something like naufafmuioa.Witch is more complicated and prevents detection...Well not all but help's...Also do the same with your RdALong WrAFloat and ur text box.