wel I do it very similar to epic....but here is it explained
[FFFFFFFFFFFFFFFF]->pic1M //This is our sprite...yes it's a box
line(0,0,95,0)
line(0,63,95,63)
line(0,0,0,63)
line(95,0,95,63) //this will draw a border
45->X
55->Y
0->J // setting all variables
repeat getkey(15) //main loop till 'clear' is pressed (getkey(15)=clear button)
if getkey(2) and (X/=0) //If left button is pressed and it is not hitting the left side (I'll show you later how to do simple collision) (/= means does not equal)
X-1->X //move sprite over one pxl to the left
End
if getkey(3) and (X/=87) //if right is pressed
X+1->X //move to right
End
if getkey(4) and pxl-test(X,Y+8) //if he is on the ground and up is pushed
15->J //change this for your jump height
End
if (J>0)
J-1->J
Y-1->Y //decreace J and decrease Y (bring him up...notice subtracting from Y makes him go up!)
End
if (pxl-test(X,Y+8)=0) and (J=0) //if nothing is below him and J is 0
0->J //just in case you land on a platform
Y+1->Y //bring you back down
End
Pause 25 //so it's not too fast
pt-change(X,Y,pic1M)
Disgraph
pt-change(X,Y,pic1M)
End
That should be it....any questions, and you know where to find me
Show Posts
