Ok, since I already got a simple more realistic jump code, here it is anyways:
Jumping isnt really that bad.
[FFFFFFFFFFFFFFFF]->Pic1 ;Pic, but just a cube
56*256->Y ;X and Y are inflated by 256 for accuracy
0->X->V->W->A->B->J
Repeat getKey(15)
If getKey(54)
-256->W ;Set Y velocity to -256 to go up
256->V ;Set X velocity
8->B ;Set a downward acceleration to fall
End
If Y/256>57 ;simple collision with the bottom of screen
56*256->Y ;Reset
0->A->B->V->W
End
V+A->V+X->X ;Find X coordinates
W+B->W+Y->Y ;Find Y
Pt-On(X/256,Y/256,Pic1)
DispGraphClrDraw
End
Where X,Y are coordinates
V,W are velocities
A,B are accelerations
Collisions with realistic jumps get tricky once you get involved with collisions.
For a simple linear jump, keep a variable for jumping, lets say J. Then we'll have an X and Y.
Probably other ways to do it, though.
[FFFFFFFFFFFFFFFF]->Pic1
0->X->J
56->Y
Repeat getKey(15) ;loop here
If getKey(54) ;push 2nd to jump.
!If J ;checks if ready
1->J
End
End
If J<16
J++
X++
Y-- ;go up
ElseIf J<31
J++
X++
Y++ ;go down
Else
0->J
End
Pt-On(X,Y,pic1)
DispGraphClrDraw
End
Simple thing I thought up ^
But no collisions. Just go down as far as you went up in that code
Show Posts
