TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Basic 2D

Version: 0.5

Information

Uploaded: 27th Jul 2006 06:56

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

A very good start for any asteroid-type game you might want to create

Full Description

All the important variables are listed at the top. You can manipulate the programme very easily this way to create your own game.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem ===VARIABLES/INITIALISATION=======================================================================

rem Screen

RefreshRate= 60

ScreenWidth= 1152

ScreenHeight= 864

ScreenDepth= 32

rem Ship Values

PosX#= ScreenWidth/2          `Starting X-Coord Of Ship.

PosY#= ScreenHeight/2         `Starting Y-Coord Of Ship.

ShipSize#= 10                 `Size Of Ship.

MaxVel#= 10                   `Maximum Velecity Of Ship.

Acceleration#= 10             `Acceleration Of Ship.

ShipEdgeEffect=1              `1 = Screen Wrapping / 0 = Screen Edge Solid / -1 = No Effect!

rem Bullet Values

BulletSpeed#=10               `Bullet Velocity.

ShootDelay#=0.1                 `Time Between Shots. (Seconds)

BulletSize#=2                 `Bullet Size

MaxBulletNumber#=100          `Maximum No. Bullets Drawn To Screen.

BulletSpread#=1               `Inaccuracy When Shooting. (Degrees)

BulletExist#=1.5              `Time Before Bullet Disappears. (Seconds)

BulletEdgeEffect=-1           `1 = Screen Wrapping / 0 = Screen Edge Solid / -1 = No Effect!

rem Allocate Memory For Each Bullet

dim BulletPosX#(MaxBulletNumber#)

dim BulletPosY#(MaxBulletNumber#)

dim BulletVelX#(MaxBulletNumber#)

dim BulletVelY#(MaxBulletNumber#)

dim BulletBuffX#(MaxBulletNumber#)

dim BulletBuffY#(MaxBulletNumber#)

dim BulletCountDown#(MaxBulletNumber#)

rem Hide Bullets Untill Needed

for Cycle0=1 to MaxBulletNumber#

BulletPosX#(Cycle0)=(ScreenWidth*2)

BulletPosY#(Cycle0)=(ScreenHeight*2)

next Cycle0

sync on

sync rate RefreshRate

set display mode ScreenWidth,ScreenHeight,ScreenDepth

hide mouse

rem ===SHIP============================================================================================

` circle PosX#,PosY#,ShipSize#

rem Calculate Point Positions

GuideDot1X# = newxvalue(PosX#,Angle#+(35),ShipSize#+(ShipSize#*0.8))

GuideDot1Y# = newzvalue(PosY#,Angle#+(35),ShipSize#+(ShipSize#*0.8))

`  circle GuideDot1X#, GuideDot1Y#,2

GuideDot2X# = newxvalue(PosX#,Angle#-(35),ShipSize#+(ShipSize#*0.8))

GuideDot2Y# = newzvalue(PosY#,Angle#-(35),ShipSize#+(ShipSize#*0.8))

`  circle GuideDot2X#, GuideDot2Y#,2

GuideDot3X# = newxvalue(PosX#,Angle#+(180),ShipSize#+(ShipSize#))

GuideDot3Y# = newzvalue(PosY#,Angle#+(180),ShipSize#+(ShipSize#))

` circle GuideDot3X#, GuideDot3Y#,2

GuideDot4X# = newxvalue(PosX#,Angle#+(0),ShipSize#)

GuideDot4Y# = newzvalue(PosY#,Angle#+(0),ShipSize#)

`   circle GuideDot4X#, GuideDot4Y#,2

`circle PosX#,PosY#,2

rem Draw Ship

line GuideDot4X#, GuideDot4Y#, GuideDot3X#, GuideDot3Y#

line GuideDot1X#, GuideDot1Y#, GuideDot3X#, GuideDot3Y#

line GuideDot2X#, GuideDot2Y#, GuideDot3X#, GuideDot3Y#

line GuideDot1X#, GuideDot1Y#, GuideDot4X#, GuideDot4Y#

line GuideDot2X#, GuideDot2Y#, GuideDot4X#, GuideDot4Y#

`print (Angle#-360)*(-1)

rem Control Angle With Left/Right Keys

if leftkey()=1 then Angle#=Angle#+4

if rightkey()=1 then Angle#=Angle#-4

rem Update Position

PosX#=PosX#+VelX#

PosY#=PosY#+VelY#

rem Calculate Angle Of Acceleration

VelBufferY#=((cos(angle#+(180)))/100)*Acceleration#

VelBufferX#=((sin(angle#+(180)))/100)*Acceleration#

rem Accelerate

if upkey()=1

CurveX#=curvevalue(VelBufferX#,VelX#,1)

CurveY#=curvevalue(VelBufferY#,VelY#,1)

VelX#=VelX#+CurveX#

VelY#=VelY#+CurveY#

endif

rem Create Maximum Velecity

if VelX# > (MaxVel#) then VelX# = (MaxVel#)

if VelX# < (-MaxVel#) then VelX# = (-MaxVel#)

if VelY# > (MaxVel#) then VelY# = (MaxVel#)

if VelY# < (-MaxVel#) then VelY# = (-MaxVel#)

rem Keep Ship In Screen

IF ShipEdgeEffect=0

if PosX# > ScreenWidth-(ShipSize#*2) and VelX#>-1

VelX#=-1

`PosX#=ScreenWidth-(ShipSize#*5)

endif

if PosX# < 0+(ShipSize#*2) and VelX#<1

VelX#=1

`PosX#=0+(ShipSize#*5)

endif

if PosY# > ScreenHeight-(ShipSize#*2) and VelY#>-1

VelY#=-1

`PosY#=ScreenHeight-(ShipSize#*5)

endif

if PosY# < 0+(ShipSize#*2) and VelY#<1

VelY#=1

`PosY#=0+(ShipSize#*5)

endif

ENDIF

IF ShipEdgeEffect=1

if PosX# > ScreenWidth then PosX# = 0

if PosX# < 0 then PosX# = ScreenWidth

if PosY# > ScreenHeight then PosY# = 0

if PosY# < 0 then PosY# = ScreenHeight

ENDIF

rem ===WEAPONS==========================================================================================

rem Update Bullet Timer

ShootTimer#=ShootTimer#+ 1

rem Prepare Bullet To Shoot

if spacekey()=1 and ShootTimer#>(ShootDelay#*RefreshRate)

if BulletNum>(MaxBulletNumber#-1) then BulletNum=0

BulletNum=BulletNum+1

FOR Cycle1=(BulletNum) TO (BulletNum)

BulletCountDown#(Cycle1)=0

BulletPosX#(Cycle1)=GuideDot3X#

BulletPosY#(Cycle1)=GuideDot3Y#

BulletVelY#(Cycle1)=(cos(angle#+(180)+(Spray#) ))*BulletSpeed#

BulletVelX#(Cycle1)=(sin(angle#+(180)+(Spray#) ))*BulletSpeed#

BulletBuffX#(Cycle1)=VelX#

BulletBuffY#(Cycle1)=VelY#

NEXT Cycle1

ShootTimer#=0

endif

rem Draw And Move Bullets

FOR Cycle2=1 TO MaxBulletNumber#

circle BulletPosX#(Cycle2),BulletPosY#(Cycle2),BulletSize#

BulletPosX#(Cycle2)=BulletPosX#(Cycle2)+BulletVelX#(Cycle2)+BulletBuffX#(Cycle2)

BulletPosY#(Cycle2)=BulletPosY#(Cycle2)+BulletVelY#(Cycle2)+BulletBuffY#(Cycle2)

BulletCountDown#(Cycle2)=BulletCountDown#(Cycle2)+1

if BulletCountDown#(Cycle2)>(BulletExist#*RefreshRate)

BulletPosX#(Cycle2)=(ScreenWidth*2)

BulletPosY#(Cycle2)=(ScreenHeight*2)

endif

if BulletEdgeEffect=1

if BulletPosX#(Cycle2) > ScreenWidth then BulletPosX#(Cycle2) = 0

if BulletPosX#(Cycle2) < 0 then BulletPosX#(Cycle2) = ScreenWidth

if BulletPosY#(Cycle2) > ScreenHeight then BulletPosY#(Cycle2) = 0

if BulletPosY#(Cycle2) < 0 then BulletPosY#(Cycle2) = ScreenHeight

endif

if BulletEdgeEffect=0

if BulletPosX#(Cycle2) > ScreenWidth then BulletVelX#(Cycle2)=-BulletVelX#(Cycle2)

if BulletPosX#(Cycle2) < 0 then BulletVelX#(Cycle2)=-BulletVelX#(Cycle2)

if BulletPosY#(Cycle2) > ScreenHeight then BulletVelY#(Cycle2)=-BulletVelY#(Cycle2)

if BulletPosY#(Cycle2) < 0 then BulletVelY#(Cycle2)=-BulletVelY#(Cycle2)

endif

NEXT Cycle2

rem Spray Bullets Evenly

Spray#=rnd(BulletSpread#)

PosNeg#=rnd(1)

if PosNeg#=1 then Spray#=Spray#*(-1)

sync

cls

loop

Download

Please login to download

Comments

No comments yet.

CodeBase - Asteroids

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	2