TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 13th Jan 2007 07:02

Modified: 1st Jan 1970 01:00

Author: NanoGamez guy

Summary

A simple game where you jump from platform to platfom.

Full Description

There are platforms which you have to jump up to land on them. Can be quite frustrating but addictive. Eatch level you advance the platforms move faster and it is harder. I bet no one can get to level four. If you do please tell me!

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem basics

sync on : hide mouse

set window title "Platforms"

set display mode 400,300,16

rem load sounds (You can add them if you want)

if file exist("music.mp3")=1 then load music "music.mp3",1

if file exist("level up.wav")=1 then load sound "level up.wav",1

if file exist("die.wav")=1 then load sound "die.wav",2

if file exist("bounce.wav")=1 then load sound "bounce.wav",3

rem loop music

if music exist(1)=1 then loop music 1

rem define platform levels in game

ml=25

rem set up arrays

dim l(ml,5,7)

dim nll(ml)

rem restart point

Restart:

rem reset counter for instructions

c2=200

rem reset lives

ll=3

rem reset level

gl=1

rem level up point

Levelup:

rem lose a life point

Loselife:

rem clear the screen

cls

rem set up basic variables

hx=200

hl=0

ol=1

bl=1

hi=0

hj=0

hs=0

hg=0

rem say "Generating level..."

ink rgb(0,0,255),0

print "Generating level..."

rem generate level

for i=1 to ml

nll(i)=rnd(1)+1

for j=1 to nll(i)

l(i,j,1)=(rnd(15)+8)*2

Lst:

l(i,j,2)=rnd(160)+240

l(i,j,3)=rnd(160)

if i>1

if l(i,j,2)>l(i-1,j,2) or l(i,j,3)<l(i-1,j,3) then goto Nxt else goto Lst

endif

Nxt:

l(i,j,4)=rnd(gl)+1

l(i,j,5)=l(i,j,2)-79

l(i,j,6)=rnd(1)

l(i,j,7)=1

next j

next i

rem clear the screen

cls

rem main loop

rem clear the screen

cls

rem hide the mouse

hide mouse

rem predict when to jump

if spacekey()=1 and ol=1 and c1<0

if sound exist(3)=1 then play sound 3

hg=15

bl=0

ol=0

c1=10

if hi>0 and hj>0 then l(hi,hj,4)=rnd(gl)+1

endif

c1=c1-1

rem control sideways speed

if rightkey()=1 then hs=hs+2

if leftkey()=1 then hs=hs-2

if hs>0 then hs=hs-1

if hs<0 then hs=hs+1

if hs>5 then hs=5

if hs<-5 then hs=-5

hx=hx+hs

if hx<5 then hx=5

if hx>395 then hx=395

rem check if player has landed

if ol=0

hg=hg-1

for i=1 to ml

for j=1 to nll(i)

if hg>-51

if l(i,j,7)=1 and hx>l(i,j,5)-(l(i,j,1)/2) and hx<l(i,j,5)+(l(i,j,1)/2) and (290-(hl*10))-hg=(290-(i*10))

hl=i

hg=0

ol=1

l(i,j,4)=0

hi=i

hj=j

endif

next j

next i

endif

if ol=1 and bl=0

if hx<l(hi,hj,5)-(l(hi,hj,1)/2) or hx>l(hi,hj,5)+(l(hi,hj,1)/2)

ol=0

hg=1

endif

rem control the platforms

ink rgb(0,0,255),0

for i=1 to ml

for j=1 to nll(i)

if l(i,j,7)=1

if l(i,j,4)=0 and i<>hi or l(i,j,4)=0 and j<>hj then l(i,j,4)=rnd(gl)+1

if l(i,j,6)=1 then l(i,j,5)=l(i,j,5)+l(i,j,4)

if l(i,j,6)=0 then l(i,j,5)=l(i,j,5)-l(i,j,4)

if l(i,j,5)+(l(i,j,1)/2)>=l(i,j,2) then l(i,j,6)=0

if l(i,j,5)-(l(i,j,1)/2)<=l(i,j,3) then l(i,j,6)=1

line l(i,j,5)-(l(i,j,1)/2),(290-(i*10)),l(i,j,5)+(l(i,j,1)/2),(290-(i*10))

endif

next j

next i

rem if player hasn't jumped make a line under him

ink rgb(0,0,255),0

if bl=1 then line 1,290,399,290

rem make the spikes

line 1,299,399,299

for i=9 to 399 step 10

line i,299,i-2,293

next i

rem make the walls

line 399,1,399,299

line 1,1,1,299

rem make the man

ink rgb(255,0,0),0

line hx,(290-(hl*10))-hg-2,hx,(290-(hl*10))-hg-7

line hx,(290-(hl*10))-hg-2,hx-2,(290-(hl*10))-hg-0

line hx,(290-(hl*10))-hg-2,hx+2,(290-(hl*10))-hg-0

line hx-2,(290-(hl*10))-hg-5,hx+2,(290-(hl*10))-hg-5

circle hx,(290-(hl*10))-hg-8,1

rem check if player has won the level

ink rgb(255,0,0),0

if ol=1 and hl=25

set text size 40

center text 200,120,"LEVEL UP!"

if sound exist(1)=1 then play sound 1

sleep 4000

gl=gl+1

ll=ll+1

goto Levelup

endif

rem check if player has fallen onto the spikes

if ol=0 and (290-(hl*10))-hg>293

ll=ll-1

if ll=0

if sound exist(2)=1 then play sound 2

ink rgb(255,0,0),0

set text size 40

center text 200,120,"YOU LOSE!"

sleep 1000

center text 200,160,"NEW GAME"

sleep 1000

goto Restart

else

set text size 40

center text 200,120,"LOST A LIFE!"

if sound exist(2)=1 then play sound 2

sleep 1000

goto Loselife

endif

rem print the basic stuff

ink rgb(255,0,0),0

set cursor 5,0

print "Level: ";gl

set cursor 5,15

print "Lives: ";ll

rem display instuctions

ink rgb(255,0,0),0

set cursor 60,0

if c2>0 then print "Space=jump, right and left arrow keys=move"

c2=c2-1

rem refresh the screen

sync

rem end of main loop

loop

Download

Please login to download

Comments

No comments yet.

CodeBase - Platfoms

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	NanoGamez guy
CodeBase Entries:	2