TheGameCreators - CodeBase

Category: 2D

Version: 1.0

Information

Uploaded: 25th Sep 2003 19:46

Modified: 1st Jan 1970 01:00

Author: Richard Davey

Summary

I wanted to do a complete game that didn't use any external BMP files. Here is the end result! Use the cursor keys or joystick and blow away the on-coming alien hordes. Features math based collision, smooth controls, 5 levels, score and great graphics in only 17k :-)

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`	-------------------------------------------------------------------------

`	Shoot to Kill                            DarkForge Mini-Game (18/10/2000)

`	-------------------------------------------------------------------------

`	I wanted to do a complete game that didn't use any external BMP files.

`	Here is the end result! Use the cursor keys or joystick and blow away the

`	on-coming alien hordes. Features math based collision, smooth controls,

`	5 levels, score and great graphics in only 17k :-)

hide mouse

sync rate 0

sync on

`	- DF --------------------------------------------------------------------

`			The GenImage function re-generates our sprites from the data

`	-------------------------------------------------------------------- DF -

for a=1 to 5

GenImage(a,a)

next a

`	- DF --------------------------------------------------------------------

`			Make a little star for use in the background

`	-------------------------------------------------------------------- DF -

cls 0 : ink rgb(200,200,200),0 : dot 1,1

ink rgb(50,50,250),0 : dot 1,0 : dot 1,2 : dot 0,1 : dot 2,1

get image 7,0,0,3,3 : cls 0

`	- DF --------------------------------------------------------------------

`			Draw a small game logo

`	-------------------------------------------------------------------- DF -

set text font "Terminal"

set text size 12

i=6

for a=50 to 255 step 50

ink rgb(a,a,a),0

text i,0,"SHOOT TO KILL !"

dec i

next a

get image 8,0,0,80,16 : cls 0

set text font "Courier"

set text size 10

`	- DF --------------------------------------------------------------------

`			Set-up all the arrays and values used within the game

`	-------------------------------------------------------------------- DF -

life=4

stars=75

score=0

level=1

px=320

py=420

speed=8

bulletspeed=12

bullethalt=timer()

alienspeed#=4

dim stars(stars,3)

for i=1 to stars

stars(i,1)=rnd(639)+1

stars(i,2)=rnd(479)+1

stars(i,3)=rnd(9)+1

next i

dim bullets(8,2)

for a=0 to 8

bullets(a,1)=0

bullets(a,2)=0

next a

dim aliens#(50,4)

for a=0 to level*10

aliens#(a,1)=rnd(620)

aliens#(a,2)=-700+rnd(400)

aliens#(a,3)=rnd(1)

aliens#(a,4)=1

next a

create bitmap 1,640,480

`	- DF Main Loop Starts Here ----------------------------------------------

cls 0

`	- DF --------------------------------------------------------------------

`			Check to see if we've been hit by an alien

`	-------------------------------------------------------------------- DF -

for alien=0 to level*10

if aliens#(alien,4)=1

alienx=int(aliens#(alien,1))+7

alieny=int(aliens#(alien,2))+7

shipx1=px-4

shipx2=px+30

`			Uncomment this to show where the collision zone is on the ship

`			ink rgb(255,0,0),0

`			dot shipx1,py : dot shipx2,py : dot shipx1,py+22 : dot shipx2,py+22

if alienx>=shipx1 and alienx<=shipx2

if alieny>=py and alieny<=py+22

`					We've hit one so let's reset everything

for a=0 to level*10

aliens#(a,1)=rnd(620)

aliens#(a,2)=-700+rnd(400)

aliens#(a,3)=rnd(1)

aliens#(a,4)=1

next a

for a=0 to 8

bullets(a,1)=0

bullets(a,2)=0

next a

dec life

repeat

set current bitmap 0

paste image 5,(px-20)+rnd(40),py+rnd(30)

sync

inc ex

until ex=40

set current bitmap 1

px=320

py=420

ex=0

if life=0

set text size 24

set current bitmap 0

ink rgb(100,100,100),0

center text 320,240,"GAME OVER"

ink rgb(200,200,200),0

center text 320,239,"GAME OVER"

ink rgb(255,255,255),0

center text 320,238,"GAME OVER"

wait key

end

endif

next alien

`	- DF --------------------------------------------------------------------

`			Test for collision between bullet and aliens

`			First check the bullets, then aliens, then X and Y values

`	-------------------------------------------------------------------- DF -

for bullet=0 to 8

if bullets(bullet,2)!0

for alien=0 to level*10

if aliens#(alien,4)=1

bullx=bullets(bullet,1)+2

bully=bullets(bullet,2)+3

alienx=int(aliens#(alien,1))+7

alieny=int(aliens#(alien,2))+7

if bullx>=alienx-10 and bullx<=alienx+10

if bully>=alieny-8 and bully<=alieny+8

`							reset the offending bullet

bullets(bullet,1)=0

bullets(bullet,2)=0

`							explode the dead alien

aliens#(alien,4)=2

inc score,25

if score=250 then inc level

if score=900 then inc level : inc alienspeed#,1

if score=1500 then inc level

if score=3500 then inc alienspeed#,1

if score=4000 then inc level

if score>5000 then inc alienspeed#,0.1

endif

next alien

endif

next bullet

`	- DF --------------------------------------------------------------------

`			Draw the starfield

`	-------------------------------------------------------------------- DF -

for i=1 to stars

stars(i,2)=stars(i,2)+stars(i,3)

if stars(i,2)>=480

stars(i,2)=0

stars(i,1)=rnd(640)+1

endif

paste image 7,stars(i,1),stars(i,2)

next i

`	- DF --------------------------------------------------------------------

`			Draw your ship

`	-------------------------------------------------------------------- DF -

paste image 1,px,py

`	- DF --------------------------------------------------------------------

`			Draw the aliens! Up to 50 of them depending on the level

`	-------------------------------------------------------------------- DF -

for a=0 to level*10

alienx#=aliens#(a,1)

alieny#=aliens#(a,2)

if aliens#(a,4)=1

paste image 2,alienx#,alieny#

inc alieny#,alienspeed#

if alieny#>=480

alieny#=-700+rnd(400)

alienx#=rnd(620)

aliens#(a,1)=alienx#

aliens#(a,2)=alieny#

aliens#(a,3)=rnd(1)

aliens#(a,4)=1

else

aliens#(a,1)=alienx#

aliens#(a,2)=alieny#

endif

else

paste image 5,alienx#,alieny#

dec alieny#,alienspeed#*2

if alieny#<=1

alieny#=-700+rnd(400)

alienx#=rnd(620)

aliens#(a,1)=alienx#

aliens#(a,2)=alieny#

aliens#(a,3)=rnd(1)

aliens#(a,4)=1

else

aliens#(a,1)=alienx#

aliens#(a,2)=alieny#

endif

next a

`	- DF --------------------------------------------------------------------

`			Check to see if there are any bullets on the move

`	-------------------------------------------------------------------- DF -

for a=0 to 8

if bullets(a,2)!0

paste image 3,bullets(a,1),bullets(a,2)

endif

next a

`	- DF --------------------------------------------------------------------

`			Check the controls left or right

`	-------------------------------------------------------------------- DF -

if leftkey() or joystick left() then direction=1

if rightkey() or joystick right() then direction=2

if direction=1

dec px,speed

if px<=0 then px=0

direction=1

endif

if direction=2

inc px,speed

if px>=615 then px=615

direction=2

endif

direction=0

`	- DF --------------------------------------------------------------------

`			Check the fire button with timer delay to stop all bullets

`			being launched in one shot!

`	-------------------------------------------------------------------- DF -

if timer()>=bullethalt+150

if spacekey() or joystick fire a()

`		Find a free bullet if there is one

nextbullet=99

for a=0 to 8

tempb=bullets(a,1)

if tempb=0 then nextbullet=a

next a

if nextbullet!99

bullets(nextbullet,1)=px+11

bullets(nextbullet,2)=py

endif

bullethalt=timer()

endif

`	- DF --------------------------------------------------------------------

`			Move any live bullets up the screen

`	-------------------------------------------------------------------- DF -

for a=0 to 8

if bullets(a,2)!0

by=bullets(a,2)

dec by,bulletspeed

if by<=0

bullets(a,1)=0

bullets(a,2)=0

endif

bullets(a,2)=by

endif

next a

`	- DF --------------------------------------------------------------------

`			Draw the lives remaining counter

`	-------------------------------------------------------------------- DF -

for a=1 to life

paste image 4,18*a,450

next a

`	- DF --------------------------------------------------------------------

`			Draw the little game logo

`	-------------------------------------------------------------------- DF -

paste image 8,640-90,0

`	- DF --------------------------------------------------------------------

`			Draw the score

`	-------------------------------------------------------------------- DF -

ink rgb(155,155,155),0

text 550,449,"SCORE: "+str$(score)

ink rgb(255,255,255),0

text 550,448,"SCORE: "+str$(score)

`	- DF --------------------------------------------------------------------

`			Copy the bitmap and sync the screen - nice and fast

`	-------------------------------------------------------------------- DF -

copy bitmap 1,0

sync

loop

`	- DF Function --------------------------------------------------------

`	Converts the data statements into images/sprites

`	-------------------------------------------------------- DF Function -

function GenImage(n,i)

cls 0

if n=1 then restore ship1

if n=2 then restore alien1

if n=3 then restore bullet

if n=4 then restore lifecounter

if n=5 then restore explode

read x

read y

for a=0 to y

for b=0 to x

read c

ink c,0

dot b,a

next b

next a

get image i,0,0,x,y

`	- DF Data ------------------------------------------------------------

`	Sprite data starts here

`	------------------------------------------------------------ DF Data -

ship1:

data 26

data 22

data 0,0,0,0,0,0,0,0,0,0,0,0,2113634,2113634,0,0,0,0,0,0,0,0,0,0,0,0,0

data 0,0,0,0,0,0,0,0,0,0,0,2113634,10798822,8627653,2113634,0,0,0,0,0,0,0,0,0,0,0,0

data 0,0,0,0,0,0,0,0,0,0,0,8627653,10798822,8627653,6456740,0,0,0,0,0,0,0,0,0,0,0,0

data 0,0,0,0,0,0,0,0,0,0,2113634,8627653,10798822,8627653,6456740,2113634,0,0,0,0,0,0,0,0,0,0,0

data 0,0,0,0,0,0,0,0,0,0,6456740,8627653,10798822,8627653,24832,24832,0,0,0,0,0,0,0,0,0,0,0

data 0,0,0,0,0,0,0,0,0,0,6456740,8627653,58880,42240,24832,24832,0,0,0,0,0,0,0,0,0,0,0

data 0,0,0,0,0,0,0,0,0,0,24832,42240,58880,42240,24832,24832,0,0,0,0,0,0,0,0,0,0,0

data 0,0,0,0,0,0,0,0,0,0,24832,42240,58880,42240,6456740,4284803,0,0,0,0,0,0,0,0,0,0,0

data 0,0,0,0,0,0,0,0,0,0,24832,42240,10798822,8627653,6456740,4284803,0,0,0,0,0,0,0,0,0,0,0

data 0,0,0,0,0,0,0,0,0,12969702,8627653,8627653,10798822,8627653,6456740,4284803,2113634,0,0,0,0,0,0,0,0,0,0

data 0,0,0,0,0,0,0,6456740,12969702,10798822,2113634,2113634,2113634,0,0,0,2113634,2113634,0,0,0,0,0,0,0,0,0

data 0,0,0,0,0,2113634,6456740,10798822,10798822,2113634,2113634,50918,50918,34278,34278,0,2113634,2113634,2113634,2113634,0,0,0,0,0,0,0

data 0,0,0,0,2113634,12969702,10798822,10798822,6456740,2113634,50918,50918,34278,34278,34278,16614,0,2113634,2113634,4284803,15132160,2113634,0,0,0,0,0

data 0,0,0,4284803,15132160,15132160,10798822,10798822,6456740,2113634,34278,34278,12969702,10798822,16614,16614,0,2113634,4284803,4284803,15132160,15132160,2113634,0,0,0,0

data 0,0,4284803,10798822,15132160,15132160,10798822,10798822,6456740,2113634,34278,16614,12969702,8627653,16614,16614,0,2113634,4284803,4284803,15132160,15132160,6456740,2113634,0,0,0

data 0,4284803,8627653,10798822,15132160,15115520,10798822,10798822,6456740,2113634,16614,2113634,10798822,8627653,0,16614,0,2113634,4284803,6456740,15132160,15115520,6456740,6456740,2113634,0,0

data 0,10798822,10798822,10798822,15115520,15115520,10798822,10798822,6456740,2113634,2113634,2113634,10798822,8627653,0,0,0,2113634,4284803,6456740,15115520,15115520,6456740,6456740,6456740,0,0

data 4284803,10798822,10798822,10798822,15115520,15081472,10798822,10798822,6456740,4284803,8627653,6456740,10798822,8627653,6456740,4284803,2113634,2113634,4284803,6456740,15115520,15081472,6456740,6456740,6456740,2113634,0

data 10798822,10798822,10798822,10798822,15081472,15081472,4284803,0,0,0,0,4284803,4284803,2113634,2113634,0,0,0,0,2113634,15081472,15081472,6456740,6456740,6456740,6456740,0

data 6456740,10798822,10798822,4284803,0,0,0,0,0,0,2113634,15081472,15132160,15132160,15081472,2113634,0,0,0,0,0,0,2113634,6456740,6456740,4284803,0

data 0,0,0,0,0,0,0,0,0,0,0,15081472,15115520,15115520,15081472,0,0,0,0,0,0,0,0,0,0,0,0

data 0,0,0,0,0,0,0,0,0,0,0,0,15081472,15081472,0,0,0,0,0,0,0,0,0,0,0,0,0

alien1:

data 14

data 15

data 0,4284803,2113634,2113634,0,0,0,0,0,0,2113634,2113634,2113634,0,0

data 4284803,6456740,4284803,4284803,2113634,2113634,0,0,2113634,2113634,2113634,2113634,4284803,4284803,0

data 4284803,10798822,6456740,4284803,2113634,2113634,2113634,2113634,2113634,2113634,2113634,4284803,6456740,4284803,0

data 4284803,12969702,10798822,4284803,4284803,2113634,4284803,4284803,2113634,2113634,2113634,6456740,8627653,4284803,0

data 2113634,4284803,12969702,4284803,6456740,2113634,6456740,6456740,2113634,4284803,2113634,8627653,4284803,2113634,0

data 0,4284803,12969702,4284803,6456740,2113634,2113634,2113634,2113634,6456740,2113634,8627653,4284803,0,0

data 0,2113634,4284803,4284803,8627653,2113634,15081472,15081472,2113634,8627653,2113634,4284803,2113634,0,0

data 0,0,4284803,4284803,10798822,2113634,15115520,15081472,2113634,8627653,2113634,4284803,0,0,0

data 0,0,2113634,4284803,12969702,2113634,15115520,15115520,2113634,10798822,4284803,2113634,0,0,0

data 0,0,0,4284803,12969702,2113634,15132160,15115520,2113634,10798822,4284803,0,0,0,0

data 0,0,0,2113634,4284803,2113634,2113634,2113634,2113634,4284803,2113634,0,0,0,0

data 0,0,0,0,4284803,8627653,6456740,4284803,4284803,4284803,0,0,0,0,0

data 0,0,0,0,2113634,4284803,8627653,6456740,4284803,2113634,0,0,0,0,0

data 0,0,0,0,0,4284803,12969702,8627653,4284803,0,0,0,0,0,0

data 0,0,0,0,0,0,4284803,4284803,0,0,0,0,0,0,0

bullet:

data 4

data 6

data 0,10798822,6456740,0,0

data 6456740,10798822,6456740,4284803,0

data 34278,50918,16614,16614,0

data 15115520,15132160,15081472,15081472,0

data 6456740,10798822,8627653,6456740,0

lifecounter:

data 15

data 13

data 0,0,0,0,0,0,0,4284803,0,0,0,0,0,0,0,0

data 0,0,0,0,0,0,4284803,10798822,4284803,0,0,0,0,0,0,0

data 0,0,0,0,0,0,6456740,10798822,4284803,0,0,0,0,0,0,0

data 0,0,0,0,0,0,6456740,58880,24832,0,0,0,0,0,0,0

data 0,0,0,0,0,4284803,42240,58880,6456740,2113634,0,0,0,0,0,0

data 0,0,0,0,4284803,8627653,6456740,10798822,6456740,4284803,0,0,0,0,0,0

data 0,0,0,2113634,10798822,10798822,4284803,4284803,4284803,6456740,4284803,2113634,0,0,0,0

data 0,0,2113634,15132160,10798822,4284803,50918,34278,34278,2113634,6456740,15132160,0,0,0,0

data 0,2113634,10798822,15115520,10798822,4284803,34278,12969702,16614,2113634,6456740,15115520,6456740,2113634,0,0

data 2113634,10798822,10798822,15115520,10798822,4284803,16614,10798822,16614,2113634,6456740,15115520,8627653,8627653,0,0

data 6456740,10798822,10798822,15081472,10798822,4284803,4284803,6456740,4284803,4284803,6456740,15081472,8627653,8627653,4284803,0

data 6456740,6456740,0,2113634,4284803,0,15115520,15132160,15115520,0,4284803,0,0,4284803,2113634,0

data 0,0,0,0,0,0,0,15081472,0,0,0,0,0,0,0,0

explode:

data 13

data 0,0,0,0,0,0,0,0,0,0,0,15081472,15115520,0

data 0,15115520,15081472,0,0,0,0,0,0,15081472,15115520,15132160,15081472,0

data 0,15081472,15132160,15115520,0,15081472,15081472,15081472,15115520,15132160,15132160,15115520,0,0

data 0,0,15115520,15132160,15132160,15115520,15132160,15132160,15132160,15132160,15132160,15081472,0,0

data 0,0,0,15132160,15132160,15132160,15132160,15132160,15132160,15132160,15115520,0,0,0

data 0,0,15081472,15115520,15132160,15132160,12969702,15132160,15132160,15132160,15081472,0,0,0

data 0,0,15081472,15132160,15132160,12969702,12969702,12969702,15132160,15132160,15081472,0,0,0

data 0,0,15081472,15115520,15132160,15132160,12969702,15132160,15132160,15115520,15081472,0,0,0

data 0,0,15115520,15132160,15132160,15132160,15132160,15132160,15132160,15132160,0,0,0,0

data 0,15081472,15132160,15132160,15132160,15115520,15132160,15115520,15132160,15132160,15115520,0,0,0

data 0,15115520,15132160,15132160,15115520,15081472,15081472,15081472,0,15115520,15132160,15081472,0,0

data 15081472,15132160,15115520,15081472,15081472,15081472,0,0,0,0,15081472,15115520,0,0

Author Name:	Richard Davey
CodeBase Entries:	57

CodeBase - Shoot to Kill

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments