My platform engine - GameCreators Forum

Author

Message

Dmas_Zero

20

Years of Service

User Offline

Joined: 9th Feb 2004

Location:

Posted: 28th Feb 2004 21:03

Link

it's actually my first thing i ever did alone in dbp...
it's a playform engine with a sprite that can move and jump. look at the code plese, is it good enough? what can i add/change? i must tell it was hard at first!
here is the code:

+ Code Snippet

sync on : sync rate 60
backdrop on : color backdrop rgb(0,0,0)
hide mouse
`-----
box 0,0,10,10
get image 1,0,0,10,10
cls
box 0,0,640,5
get image 2,1,1,640,5
cls
xPos=50
yPos=430
High=0
MinJump=0
Jump=1
Speed=5
do
if leftkey()=1 then xPos=xPos-Speed
if rightkey()=1 then xPos=xPos+Speed
if upkey()=1 then MinJump=1
if MinJump=1 then High=High+5
if High > 50 then High=50 : Jump=1 : MinJump=0
sprite 1,xPos,yPos-High,1
sprite 2,0,450,2
gosub Gravitation
sync
loop
`-----
Gravitation:
if Jump=1 then High = High - 2
if sprite collision(1,2) then Jump=0
return

Back to top

Profile PM

Trev

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Canada, Ontario

Posted: 29th Feb 2004 00:35

Link

This needs textures, you can stay in the air for as long as you hold the button, you can jump in the air and you fall off the edges of the map. Its a good skeleton but your gonna need to do alot of graphics and maybe work on adding some AI.

Trevor Somerville

Back to top

Profile PM Email

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 29th Feb 2004 10:24

Link

ok i can go all the way off the screen to the left in the air and come back under the ground its funny. feel like im trapped under ice !

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

Dmas_Zero

20

Years of Service

User Offline

Joined: 9th Feb 2004

Location:

Posted: 29th Feb 2004 13:37

Link

here i fixed the problem of staying in the air, and the sides.

+ Code Snippet

sync on : sync rate 60
backdrop on : color backdrop rgb(0,0,0)
hide mouse
`-----
box 0,0,10,10
get image 1,0,0,10,10
cls
box 0,0,640,5
get image 2,1,1,640,5
cls
xPos=50
yPos=430
High=0
Jump=1
Speed=5
KeyUp=0
do
if leftkey()=1 then xPos=xPos-Speed
if rightkey()=1 then xPos=xPos+Speed
if xPos>630 then xPos=630
if xPos<0 then xPos=0
if upkey()=1 and Jump=0 then KeyUp=1
if Jump=0 and KeyUp=1 then High=High+5
if High > 50 then High=50 : Jump=1 : KeyUp=0
if Jump=1 then High = High - 2
sprite 1,xPos,(yPos-High),1
sprite 2,0,450,2
if sprite collision(1,2) then Jump=0
sync
loop

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / My platform engine