TheGameCreators - CodeBase - Space Shooter (FPS)

Return to the CodeBase listing

Category: Games

Version: 1.0

Information

Uploaded: 5th Apr 2005 11:20

Modified: 10th May 2005 11:41

Author: Quantum Universe

Summary

A simple shooting game

Full Description

This is a simple game involving basic object collisions, arrays, reading and writing data, and very simple explosions.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

RemStart

This is my first game that I've made, so a lot of the code is probably

unneccessary and the program is inefficient. If you have any ideas

that may help improve that game please feel free to contact me.

I wanted to make this game a 1 file game, but I decided it might be better

if it had sound. Just delete the remstart and remend words placed around

the code for playing sound. You will also need to copy and paste the

sound files from the media folder. The names of the sound files are a near

the bottom of this code.

There are a few minor problems:

- The spacekey command isn't perfect. You may need to hold down your

spacebar for a second.

- The game may start to slow down near level 6 or 7

Thanks for playing this game.

RemEnd

Rem Make Arrays

Dim ObjectXPos#(2000)

Dim ObjectYPos#(2000)

Dim ObjectZPos#(2000)

Dim ObjectSpeed#(2000)

Dim Spin(2000)

Dim Explosion(2000)

Dim ScoreNames$(10)

Dim Scores(10)

Dim Fire(2000)

Dim DeleteFire(2000)

Rem Open data

Data$ = "High Scores.dat"

If File Exist(Data$) = 1

Open to Read 2,Data$

For y = 1 to 10

Read String 2,ScoreNames$(y)

Read Byte 2,Scores(y)

Next y

Close File 2

EndIf

Rem Initialise Score Names

For x = 1 to 10

If ScoreNames$(x) = ""

ScoreNames$(x) = ".........."

EndIf

Next x

Gosub NewGame

Rem Main Loop

Gosub NextLevel

Rem Draw Radar

Ink rgb(50,50,200),0

Box RadarLeft,RadarTop,RadarRight,RadarBottom

Ink rgb(0,0,0),0

Box 55,450,65,455

Ink rgb(255,255,255),0

Line 10,440,110,440

If TimeDelay = 0

If Object Exist(Index) = 0

Rem Make Asteroids

Make Object Cube Index,5

Make Object Collision Box Index,-2,-2,-2,2,2,2,0

Color Object Index,rgb(250,150,20)

Spin(Index) = rnd(50)+50

ObjectXPos#(Index)  = 250+(rnd(100)-50)

ObjectYPos#(Index)  = 250

ObjectZPos#(Index)  = 250+(rnd(100)-50)

Position Object Index,ObjectXPos#(Index),ObjectYPos#(Index),rnd(100)+100

ObjectSpeed#(Index) = (rnd(100)/100)+1

Rem ------------------------------------------------------------------------

RemStart

Rem Play Sound

Play Sound Index+10

Position Sound Index+10,ObjectXPos#(Index),ObjectYPos#(Index),ObjectZPos#(Index)

RemEnd

Rem -----------------------------------------------------------------------

EndIf

Rem Increment or reset index

If Index < 10

Index = Index + 1

Else

Index = 1

EndIf

Rem Reset TimeDelay

TimeDelay = rnd(50)+MinTimeDelay

Else

Dec TimeDelay

EndIf

Rem Move Asteroids or Delete them

For x = 1 to 10

If Object Exist(x) = 1

ObjectYPos#(x) = ObjectYPos#(x) - ObjectSpeed#(x)

Position Object x,ObjectXPos#(x),ObjectYPos#(x),ObjectZPos#(x)

Rotate Object x,Wrapvalue(Object Angle X(x)+Spin(x)),Wrapvalue(Object Angle Y(x)+Spin(x)),Wrapvalue(Object Angle Z(x)+Spin(x))

Rem ------------------------------------------------------------------------

RemStart

Rem Loop Sound

Loop sound x+10

Position sound x+10,ObjectXPos#(x),ObjectYPos#(x),ObjectZPos#(x)

RemEnd

Rem ------------------------------------------------------------------------

Rem Draw on Radar

Ink rgb(200,150,20),0

ObjectRadarLeft=310-Object Position X(x)

ObjectRadarTop=460-(Object Position Y(x)/2.5)

Box ObjectRadarLeft,ObjectRadarTop,ObjectRadarLeft+2,ObjectRadarTop+2

Ink rgb(255,255,255),0

Rem Delete Asteroid

If ObjectYPos#(x) < 0

Dec Lives

Delete Object x

ShakeCamera = 50

Rem ------------------------------------------------------------------------

RemStart

Rem Stop Sound

Stop sound x+10

Rem Play Impact Sound

Play Sound 100

RemEnd

Rem ------------------------------------------------------------------------

EndIf

Next x

Rem Move Gun

If Object Angle X(99) >= 310 Or Object Angle X(99) <= 50

XRotate Object 99,WrapValue(Object Angle X(99)+MousemoveX()*0.05)

Else

If Object Angle X(99) < 310 and Object Angle X(99) > 270

XRotate Object 99,310

EndIf

If Object Angle X(99) > 50 and Object Angle X(99) < 90

XRotate Object 99,50

EndIf

If Object Angle Z(99) >= 325 Or Object Angle Z(99) <= 35

ZRotate Object 99,WrapValue(Object Angle Z(99)+MouseMoveY()*0.05)

Else

If Object Angle Z(99) < 325 and Object Angle Z(99) > 270

ZRotate Object 99,325

EndIf

If Object Angle Z(99) > 35 and Object Angle Z(99) < 90

ZRotate Object 99,35

EndIf

ObjectXPos#(100) = ObjectXPos#(99)-(GunDistance#*sin(Object Angle X(99)))

ObjectYPos#(100) = ObjectYPos#(99)+GunDistance#

ObjectZPos#(100) = ObjectZPos#(99)-(GunDistance#*sin(Object Angle Z(99)))

Position Object 100,ObjectXPos#(100),ObjectYPos#(100),ObjectZPos#(100)

YRotate Object 100,Wrapvalue(180+Object Angle X(99))

XRotate Object 100,Wrapvalue(90-Object Angle Z(99))

For x = 30 to 41

Position Object x,ObjectXPos#(100)+(0.8*sin(wrapvalue(x*30))),ObjectYPos#(100),ObjectZPos#(100)+(0.8*cos(wrapvalue(x*30)))

YRotate Object x,Wrapvalue(180-Object Angle Y(100))

XRotate Object x,Wrapvalue(180+Object Angle X(100))

Next x

Rem Move Light

Rotate Object 98,Wrapvalue(270-Object Angle Z(99)),Object Angle Y(99),Object Angle X(99)

Set Light To Object Position 0,98

Set Light To Object Orientation 0,98

Rem Make Laser

If Reload = 0

If MouseClick() = 1

CollisionNumber = 1

For x = 0 To 5

If Object Exist(LaserNumber+(50*x)) = 0

Make Object Sphere LaserNumber+(50*x),2

If CollisionNumber = 1

Make Object Collision Box LaserNumber,-2,-2,-2,2,2,2,0

CollisionNumber = 0

EndIf

Ghost Object On LaserNumber+(50*x)

Color Object LaserNumber+(50*x),rgb(50,50,150)

Position Object LaserNumber+(50*x),ObjectXPos#(100),ObjectYPos#(100),ObjectZPos#(100)

Scale Object LaserNumber+(50*x),100-(10*x),100-(10*x),100-(10*x)

Rotate Object LaserNumber+(50*x),wrapvalue(270-Object Angle Z(99)),Object Angle Y(99),wrapvalue(0+Object Angle X(99))

ObjectSpeed#(LaserNumber+(50*x)) = 5

Reload = 20

Rem ------------------------------------------------------------------------

RemStart

Rem Play Sound

If Sound Playing(LaserNumber)=0

Play Sound LaserNumber

EndIf

RemEnd

Rem ------------------------------------------------------------------------

If LaserNumber < 80

LaserNumber = LaserNumber + 1

Else

LaserNumber = 75

EndIf

Next x

EndIf

Else

Dec Reload

EndIf

Rem Move or Delete Laser

For x = 75 to 80

For y = 0 to 5

If Object Exist(x+(50*y)) = 1

Move Object x+(50*y),ObjectSpeed#(x+(50*y))

Rem Delete Laser

If Object Position Y(x+(50*y)) > 250

Delete Object x+(50*y)

EndIf

Next y

If Object Exist(x) = 1

Rem Draw on Radar

Ink rgb(50,200,20),0

ObjectRadarLeft=310-Object Position X(x)

ObjectRadarTop=460-(Object Position Y(x)/2.5)

If ObjectRadarLeft < 100 and ObjectRadarLeft > 20

Box ObjectRadarLeft,ObjectRadarTop,ObjectRadarLeft+2,ObjectRadarTop+2

EndIf

Ink rgb(255,255,255),0

EndIf

Rem Detect Collision

For z = 1 to 10

If Object Exist(x) = 1 and Object Exist(z) = 1

If Object Collision(x,z) > 0

Delete Object x

Delete Object z

Explosion(z)=1

Inc PlayerScore

Rem ------------------------------------------------------------------------

RemStart

Rem Stop Sound

Stop sound z+10

RemEnd

Rem ------------------------------------------------------------------------

EndIf

Next z

Next x

If ChangeBomb = 0

If MouseClick()=2

If Bombs > 0

For x = 1 to 10

If Object Exist(x)=1

Rem ------------------------------------------------------------------------

RemStart

Rem Stop Sound

Stop sound x+10

RemEnd

Rem ------------------------------------------------------------------------

Rem Delete Asteroid

Delete Object x

Inc PlayerScore

Explosion(x)=1

EndIf

Next x

Dec Bombs

ChangeBomb=100

EndIf

Else

Dec ChangeBomb

EndIf

Rem Shake the Camera

If ShakeCamera > 0

ShakeAngleY# = Wrapvalue((AngleY#+180)+(5*sin(wrapvalue(45*ShakeCamera))))

YRotate Camera ShakeAngleY#

Dec ShakeCamera

Else

AngleY# = Camera Angle Y()

AngleZ# = Camera Angle Z()

Point Camera 250,250,250

EndIf

Rem Death

If Lives = 0

Repeat

Set Cursor 200,240

Print "Your spaceship was destroyed"

Set Cursor 200,270

Print "Press the spacebar to restart"

Until Spacekey()=1

Delete Matrix 1

For x = 1 To 2000

If Object Exist(x) = 1

Rem Delete Objects

Delete Object x

EndIf

Rem Reset Arrays

ObjectXPos#(x) = 0

ObjectYPos#(x) = 0

ObjectZPos#(x) = 0

ObjectSpeed#(x) = 0

Next x

sync off

Backdrop off

y=0

FullList = 0

For y = 1 to 10

If Scores(y)=0

Rem Get Name for Scores List

cls

Input "Please enter your name: ";ScoreNames$

ScoreNames$(y) = ScoreNames$

Scores(y) = PlayerScore

FullList = 1

y = 10

EndIf

Next y

If FullList = 0

For y = 1 to 10

If PlayerScore > Scores(y)

Scores(y) = PlayerScore

For x = 1 to 10

Scores(y+x)=Scores(y)

ScoreNames$(y+x)=ScoreNames$(y)

If y+x=10

x=10

y = 10

EndIf

Next x

EndIf

Next y

EndIf

Gosub SaveScores

Gosub NewGame

EndIf

Rem Explosion

For z=1 to 10

If Explosion(z)=1

If Fire(z) < 10

If Object Exist(1000+Fire(z)+(20*z))=0

Make Object Sphere 1000+Fire(z)+(20*z),5

Ghost Object On 1000+Fire(z)+(20*z)

Color Object 1000+Fire(z)+(20*z),rgb(250,150,20)

Position Object 1000+Fire(z)+(20*z),ObjectXPos#(z),ObjectYPos#(z),ObjectZPos#(z)

Rem ------------------------------------------------------------------------

RemStart

Rem Play Sound

If Sound Playing(z) = 0

Play Sound z

EndIf

Position Sound z,ObjectXPos#(z),ObjectYPos#(z),ObjectZPos#(z)

RemEnd

Rem ------------------------------------------------------------------------

EndIf

For x = 0 to 9

If Object Exist(1000+x+(20*z))=1

Scale Object 1000+x+(20*z),500,500,500

EndIf

Next x

Fire(z) = Fire(z) + 1

DeleteFire(z)=0

Else

If DeleteFire(z) < 10

If Object Exist(1000+DeleteFire(z)+(20*z))=1

Delete Object 1000+DeleteFire(z)+(20*z)

EndIf

DeleteFire(z) = DeleteFire(z) + 1

Else

Explosion(z)=0

DeleteFire(z)=0

Fire(z)=0

EndIf

Next x

Set Cursor 500,10

Print "High Scores"

For x = 1 to 10

Set Cursor 550,(15*(x+1))

Print ScoreNames$(x)," ",Scores(x)

Next x

Rem Quit Game

If EscapeKey() = 1

Quit = 0

Repeat

Set Cursor 200,240

BackDrop Off

Input "Are you sure you want to quit? (y/n): ";Quit$

If Quit$ = "n" or Quit$ = "y"

Quit = 1

Else

Quit = 0

Quit$ = ""

EndIf

Until Quit = 1

If Quit$ = "y"

Gosub SaveScores

End

EndIf

BackDrop On

EndIf

Rem Print Player Score

Set Cursor 10,10

Print "Player Score: ",PlayerScore

Rem Print Lives

Set Cursor 10,25

Print "Lives: ",Lives

Rem Print Bombs

Set Cursor 10,40

Print "Bombs: ",Bombs

Sync

Loop

Return

Rem Next Level

NextLevel:

If PlayerScore >= Level*10

MinTimeDelay = MinTimeDelay - 10

Inc Level

For z = 0 to 10

For x = 0 to 10

If Object Exist(1000+x+(20*z))=1

Delete Object 1000+x+(20*z)

EndIf

Next x

Explosion(z) = 0

Next z

For x = 75 to 80

For y = 0 to 5

If Object Exist(x+(50*y)) = 1

Delete Object x+(50*y)

EndIf

Next y

Next x

For x = 1 to 10

If Object Exist(x) = 1

Delete Object x

EndIf

Next x

If Level > 10

repeat

Set Cursor 270,240

Print "Well Done!"

Set Cursor 200,270

Print "You have completed Spaceshooters"

Set Cursor 200,300

Print "Press the spaceabar to play again"

Until Spacekey()=1

Delete Matrix 1

For x = 1 To 2000

If Object Exist(x) = 1

Rem Delete Objects

Delete Object x

EndIf

Rem Reset Arrays

ObjectXPos#(x) = 0

ObjectYPos#(x) = 0

ObjectZPos#(x) = 0

ObjectSpeed#(x) = 0

Next x

sync off

Backdrop off

y=0

FullList = 0

For y = 1 to 10

If Scores(y)=0

Rem Get Name for Scores List

cls

Input "Please enter your name: ";ScoreNames$

ScoreNames$(y) = ScoreNames$

Scores(y) = PlayerScore

FullList = 1

y = 10

EndIf

Next y

If FullList = 0

For y = 1 to 10

If PlayerScore > Scores(y)

Scores(y) = PlayerScore

For x = 1 to 10

Scores(y+x)=Scores(y)

ScoreNames$(y+x)=ScoreNames$(y)

If y+x=10

x=10

y = 10

EndIf

Next x

EndIf

Next y

EndIf

Gosub SaveScores

Gosub NewGame

Else

repeat

ink rgb(255,255,255),0

Set Cursor 270,240

Print "Level ",Level

Set Cursor 200,270

Print "Press the spacebar to continue"

Until Spacekey()=1

EndIf

Return

Rem Save High Scores

SaveScores:

If File Exist(Data$) = 1 Then Delete File Data$

Open to Write 1,Data$

For y = 1 to 10

Write String 1,ScoreNames$(y)

Write Byte 1,Scores(y)

Next y

Close File 1

Return

Rem Load Game

NewGame:

Set Cursor 10,20

Print "Loading"

Ink rgb(255,255,255),0

Text 200,215,"Aim":Text 300,215,"= Move Mouse"

Text 200,230,"Shoot Laser":Text 300,230,"= Left Mouse Button"

Text 200,245,"Shoot Bomb":Text 300,245,"= Right Mouse Button"

Text 200,260,"Exit Game":Text 300,260,"= Escape"

Rem Setup Program

Sync On

Sync Rate 60

hide mouse

Backdrop on

Set camera range 1,5000

Autocam off

Rem Make Matrix

Make Matrix 1,500,500,20,20

Color Backdrop rgb(0,0,0)

Rem Position Camera

Position Camera 250,0,250

Point Camera 250,250,250

Set Ambient Light 5

ShakeCamera = 0

Rem Position Listener at Camera

Position Listener 250,0,250

Rem Setup Light

Make Object Cube 98,2

Hide Object 98

Position Object 98,250,0,250

Set Spot Light 0,45,90

Color Light 0,rgb(255,255,255)

Point Light 0,250,250,250

Rem Make Pivot

Make Object Sphere 99,1

ObjectXPos#(99) = 250

ObjectYPos#(99) = 0

ObjectZPos#(99) = 250

Position Object 99,ObjectXPos#(99),ObjectYPos#(99),ObjectZPos#(99)

Hide Object 99

Rem Make Gun

Make Object Plain 100,10,10

Hide Object 100

GunDistance# = 25

ObjectXPos#(100) = ObjectXPos#(99)-(GunDistance#*sin(Object Angle X(99)))

ObjectYPos#(100) = ObjectYPos#(99)+GunDistance#

ObjectZPos#(100) = ObjectZPos#(99)-(GunDistance#*sin(Object Angle Z(99)))

Position Object 100,ObjectXPos#(100),ObjectYPos#(100),ObjectZPos#(100)

YRotate Object 100,Wrapvalue(180+Object Angle X(99))

XRotate Object 100,Wrapvalue(90-Object Angle Z(99))

For x = 30 to 41

Make Object Plain x,0.1,0.5

Ghost Object Off x

Color Object x,rgb(255,255,255)

Position Object x,ObjectXPos#(100)+(0.8*sin(wrapvalue(x*30))),ObjectYPos#(100),ObjectZPos#(100)+(0.8*cos(wrapvalue(x*30)))

YRotate Object x,Wrapvalue(180+Object Angle Y(100))

XRotate Object x,Object Angle X(100)

ZRotate Object x,wrapvalue(x*30)

Next x

Rem Make Stars

For x = 1450 to 1550

Size = (rnd(10)/10)+1

Make Object Plain x,Size,Size

Color Object x,rgb(250,250,30)

Position Object x,rnd(400)+100,250,rnd(400)+100

Rotate Object x,rnd(178)+1,rnd(178)+1,rnd(178)+1

Next x

Rem ------------------------------------------------------------------------

RemStart

Rem Load Sound

For x = 1 to 10

Load 3DSound "explode3.wav",x

Load 3DSound "voidhum.wav",x+10

Next x

For y = 75 to 80

Load 3DSound "phaser.wav",y

Next y

Load Sound "explode4.wav",100

RemEnd

Rem ------------------------------------------------------------------------

Rem Draw Radar

RadarLeft=10

RadarTop=350

RadarRight=110

RadarBottom=460

Rem Initialise Asteroid Number

Index = 1

Explosion(z)=0

Fire(z)=0

Rem Initialise Time Delay

TimeDelay = 0

MinTimeDelay = 100

Rem Initialise Laser Number

LaserNumber = 75

Rem Initialise Reload

Reload = 0

Rem Initialise Player Score

PlayerScore = 0

Level = 0

Lives = 3

FullList = 0

Rem Initialise Bombs

Bombs = 3

ChangeBomb = 0

BombExplode = 0

Return

Download

Please login to download

Comments

No comments yet.

Author Name:	Quantum Universe
CodeBase Entries:	2

CodeBase - Space Shooter (FPS)

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments