TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 9th Jun 2004 21:19

Modified: 1st Jan 1970 01:00

Author: Penguin Dude

Summary

Try to land the space ship on the moon!

Full Description

You must land your spaceship on the moon. Be careful not to go too fast or you'll crash!

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`re-make of the 2D moonlander

`Author: Steven Beam

`Title: Moon Lander

`Title Screen

hide mouse

set text font "times new roman"

set text size 60

center text 320,0,"MOON LANDER"

set text size 30

center text 500,65, "By: Steven Beam"

set text size 20

center text 320,125, "Man is going to the moon!  Its is your job to land their spaceship.  Good Luck!"

set text size 30

center text 320,190,"CONTROLS:"

set text size 20

center text 320,230,"Upkey: Turns on downward thrust"

center text 320,260,"Donwnkey: Turns on upward thrust"

center text 320,290, "Leftkey: Turns on right thrust"

center text 320,320, "Rightkey: Turns on left thrust"

set text size 30

center text 320,390, "PRESS ANY KEY TO CONTINUE"

wait key

cls

Main:

`/////////////////// LOAD LEVEL //////////////////////////////

`randomizes the number output so its not the same every time

randomize timer()

`sets up screen

sync on: sync rate 50

`creates a bitmap for the level

create bitmap 1,640,480

set current bitmap 1

`declares land height variable

if gameplayed=0 then dim Height(10)

`establishes a flat area for the spaceship to land

flatland=rnd(7)+2

`establishes a height (in pixels) for the rest of the moon

`land and draws the line

for x=1 to 10

if x=flatland then Height(x)=Height(x-1)

if x<>flatland

choose:

Height(x)=rnd(160)+220

if Height(x)=Height(x-1) then goto choose

endif

if x=1

line 0,220,x*64,Height(x)

else

line (x-1)*64,Height(x-1), x*64, Height(x)

endif

next x

`creates a star background

for x=1 to 200

dot rnd(639)+1, rnd(479)+1

next x

copy bitmap 1,0

sync

`////////////////////////LOAD PLAYER//////////////////////////

set current bitmap 0

PX#=25

PY#=100

circle PX#,PY#,5

line PX#,PY#,PX#-5,PY#+12

line PX#,PY#,PX#+5,PY#+12

sync

`////////////////////////MAIN LOOP////////////////////////////

Fuel=1000

speed=100

gravity#=1

SideMo#=1

cls

copy bitmap 1,0

gosub Move

gosub Stats

gosub Collision

sync

loop

Move:

`check to see if user pushes up

if downkey()=1 and Fuel>0

`decrease the gravity variable if their pushing up

if gravity#>=-1 then gravity#=gravity#-.01

`set the flag to 1

uppushed=1

`decrease the fuel

dec Fuel

else

`set the flag to 0

uppushed=0

endif

`check to see if user pushes down

if upkey()=1 and gravity#<=1 and Fuel>0

`increase the gravity variable if their pushing up

if gravity#<=3 then gravity#=gravity#+.01

`set the flag to 1

downpushed=1

`decrease the fuel

dec Fuel

else

`set the flag to 0

downpushed=0

endif

if leftkey()=1 and SideMo#>=-3 and Fuel>0

SideMo#=SideMo#+.01

leftpushed=1

dec Fuel

else

leftpushed=0

endif

if rightkey()=1 and SideMo<=3 and Fuel>0

SideMo#=SideMo#-.01

rightpushed=1

dec Fuel

else

rightpushed=0

endif

`update spaceships coordinates

PX#=PX#+SideMo#

PY#=PY#+gravity#

`position 'flames' when flag is 1

if uppushed=1 then box PX#-1,PY#+5,PX#+1,PY#+12

if downpushed=1 then box PX#-1,PY#-12,PX#+1,PY#-5

if leftpushed=1 then box PX#-12,PY#-1,PX#-5,PY#+1

if rightpushed=1 then box PX#+5,PY#-1,PX#+12,PY#+1

if uppushed=0 and gravity#<.5 then gravity#=gravity#+.01

`re-position spaceship

circle PX#,PY#,5

line PX#,PY#,PX#-5,PY#+12

line PX#,PY#,PX#+5,PY#+12

return

Stats:

set current bitmap 0

set text size 20

text 0,0,"Fuel Left: " + str$(Fuel)

speed=int(ABS((gravity#*100)+(SideMo#*100)))

text 0,20,"Speed: " + str$(speed)

return

Collision:

for x=1 to 10

if x=1

if Height(1)>220 and PX#<=64

blah#=(0-64)

blah2#=(-220-(Height(x)*-1))

blah#=blah2#/blah#

if ((blah#*PX#)-220)>((PY#+10)*-1)

gosub explode

endif

if x<>1 and x<>flatland

if Height(x)>Height(x-1) and PX#>((x-1)*64) and PX#<=(x*64) and PY#>=Height(x-1)

fred=1

blah#=(0-64)

blah2#=(Height(x-1)*-1)-(Height(x)*-1)

blah#=blah2#/blah#

if ((blah#*(PX#-((x-1)*64)))-Height(x-1))>((PY#+10)*-1)

hi=x

gosub explode

endif

if Height(x)<Height(x-1) and PX#>((x-1)*64) and PX#<=(x*64) and PY#<=Height(x-1)

fred=2

blah#=(0-64)

blah2#=(Height(x-1)*-1)-(Height(x)*-1)

blah#=blah2#/blah#

if ((blah#*(PX#-((x-1)*64)))-Height(x-1))>((PY#+10)*-1)

hi=x

gosub explode

endif

if x=flatland

if PX#>=(x-1)*64 and PX#<=x*64

if PY#+10>=Height(x)

hi=x

gosub Explode

endif

next x

return

explode:

ground#=PY#

if hi=flatland and speed<20 then gosub Land

set text size 35

center text 320,200,"YOU CRASHED!!!"

set text size 20

center text 320,240,"N-New Game"

center text 320,260,"E-Exit"

center text 320,280,"Y-Why did I crash?"

sync

if keystate(18)=1

end

endif

if keystate(49)=1

gameplayed=1

goto Main

endif

if keystate(21)=1

cls

copy bitmap 1,0

WHY=200

if speed>20

center text 320,WHY,"You need to approach at < 20 MPH"

WHY=WHY+20

endif

if x<>flatland

center text 320,WHY,"You need to land on the flat area!"

WHY=WHY+20

endif

center text 320,WHY,"press any key"

wait 200

wait key

cls

copy bitmap 1,0

goto explode

endif

loop

return

Land:

set text size 35

LandX#=PX#-((hi-1)*64)

DistX=abs(LandX#-32)

if DistX<=5 then REM$="AWESOME"

if DistX>5 and DistX<=15 then REM$="GREAT"

if DistX>15 and DistX<=25 then REM$="NICE"

if DistX>25 and DistX<=32 then REM$="OK"

center text 320,200,REM$ + " LANDING!"

set text size 20

center text 320,240,"You landed " + str$(DistX) + " meters from the target!"

set text size 15

center text 320,260,"press any key"

wait key

cls

copy bitmap 1,0

gravity#=gravity#-.01

PY#=PY#+gravity#

dec Fuel

circle PX#,PY#,5

line PX#,PY#,PX#-5,PY#+12

line PX#,PY#,PX#+5,PY#+12

box PX#-1,PY#+5,PX#+1,PY#+12

gosub Stats

if Fuel=0

out=1

exit

endif

if PY#<=-10

win=1

exit

endif

sync

loop

if out=1

while PY#<ground#

cls

copy bitmap 1,0

set text size 35

center text 320,200,"YOU RAN OUT OF FUEL!!!"

set text size 20

center text 320,240, "Enjoy Your Stay!!!"

gravity#=gravity#+.05

PY#=PY#+gravity#

circle PX#,PY#,5

line PX#,PY#,PX#-5,PY#+12

line PX#,PY#,PX#+5,PY#+12

gosub Stats

sync

endwhile

goto Decide

endif

if win=1

set text size 35

center text 320,200,"WELCOME HOME HERO!!!"

gosub Decide

endif

Decide:

set text size 20

center text 320,260,"N-New Game"

center text 320,280,"E-Exit"

sync

if keystate(49)=1

gameplayed=1

goto Main

endif

if keystate(18)=1

end

endif

loop

Download

Please login to download

Comments

No comments yet.

CodeBase - Moon Lander

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Penguin Dude
CodeBase Entries:	1