TheGameCreators - CodeBase - Arcade style spaceship controls / shooting

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 20th Sep 2003 07:53

Modified: 1st Jan 1970 01:00

Author: David T

Summary

A little demo showing you how to handle multiple bullets in a 2D arcade style shooter. No media.

Full Description

- A little demo showing you how to handle multiple bullets in a 2D arcade style shooter. - Arrowkeys to move, control to shoot. - I wrote this to help somebody add bullets to their game, so if you reconise the code then please let me know! - Feel free to use in your own games, however please leave a comment :)

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync rate 50

sync on

rem Create images

cls rgb(200,0,0)

line 10,10,5,0

line 0,10,5,0

get image 1,0,0,10,10 : `ship

cls rgb(0,200,0)

get image 2,0,0,5,10 : `bullet

cls

ink rgb(255,255,255),0

for s = 1 to 300

randomize timer()*s

dot rnd(640),rnd(480)

get image 100,0,0,640,480 : `stars

sprite 100,0,0,100

rem setup player sprite

sprite 1,320,240,1

rem Max bullet life

MaxLife = 100

MaxNumOfBullets=200

Dim Bullets(maxnumofbullets,2)

BulletWait = 100 : `Number of milliseconds between each bullet

rem Set up some vars

X = 320

Y = 240

Ang=0

Velocity# = 0.0

rem main loop

rem Subroutine calls

goSub ControlPlayer

goSub BoundPlayer

goSub Bullets

rem Remove blue background

ink 0,0

box 0,0,640,480

rem Output

ink rgb(255,255,255),0

set cursor 10,10

PRINT "FPS: ";screen fps()

sync

loop

BoundPlayer:

rem Prevent us from moving off screen

if sprite x(1) < 0 then sprite 1,0,sprite y(1),1

if sprite y(1) < 0 then sprite 1,sprite x(1),0,1

if sprite x(1) > 640 then sprite 1,640,sprite y(1),1

if sprite y(1) > 480 then sprite 1,sprite x(1),480,1

return

ControlPlayer:

rem sprite x and y

spaceshipx = SPRITE X(1)

spaceshipy = SPRITE Y(1)

s_centre_x = (sprite width(1)/2)+spaceshipx

s_centre_y = (sprite height(1)/2)+spaceshipy

rem player movement

if upkey()=1 then inc Velocity#,0.2

if downkey()=1 then dec Velocity#,0.2

if leftkey()=1 then dec Ang,3

if rightkey()=1 then inc Ang,3

Move sprite 1,Velocity#

if upkey()=0 and downkey()=0 and velocity# <> 0

if velocity# > 0 then dec velocity#

if velocity# < 0 then inc velocity#

velocity# = 0

endif

if velocity# > 2 then velocity# = 2.0

if velocity# < -2 then velocity# = -2.0

Rotate sprite 1,curveangle(Ang,sprite angle(1),30)

return

Bullets:

rem Loop through each bullet "slot"

for b = 1 to MaxNumOfBullets

rem Fire Sprite

if controlkey()=1 and Bullets(b,1)=0 and (timer()-LastCreated) > BulletWait

sprite b+10, s_centre_x, s_centre_y, 2

rotate sprite b+10,sprite angle(1)

Bullets(b,1)=1

Bullets(b,2)=0

show sprite b+10

move sprite b+10,3

rem Store time when bullet was last created, to allow a few secs between each create

LastCreated = timer()

endif

rem If fired, move

if Bullets(b,1)=1

move sprite b+10,6

`DBP bug - cannot decrement arrays

l = bullets(b,2)

inc l

Bullets(b,2) = l

endif

rem Stop if at end of life and decrement bullets

if Bullets(b,2) > maxlife

Bullets(b,1)=0

hide sprite b+10

endif

next b

return

Download

Please login to download

Comments

No comments yet.

Author Name:	David T
CodeBase Entries:	4

CodeBase - Arcade style spaceship controls / shooting

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments