Вот сам прыжок
If KeyHit(82) Then
nplayer1\vely = 100
nplayer1\jumping = True
EndIf
If nplayer1\jumping = True
If nplayer1\vely > -100
nplayer1\vely = nplayer1\vely - nplayer1\accel
nplayer1\cory = nplayer1\cory - nplayer1\vely
EndIf
EndIf
Выставление значений
nplayer1\vely = 0
nplayer1\accel = 10
nplayer1\jumping = False