TheGameCreators - CodeBase - Basic 2D Shoot em up

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 17th Jul 2005 04:36

Modified: 1st Jan 1970 01:00

Author: Jonk

Summary

A short vertical 2D shoot em up

Full Description

Borrowed some code from other users has soome bugs though ant help would be appreciated as it is my first attempt at DB

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM *** initialize screen ***

HIDE MOUSE

SYNC ON

SYNC RATE 60

scrollspeed=2

scrollarea=450

REM set text

SET TEXT SIZE 20

ink rgb(244,214,210),0

rem set text opaque

REM Set up vertical scrolling screen

load bitmap "aerial8.bmp",5

create bitmap 6,640,scrollarea

set current bitmap 5

for pic=scrollarea to 1 step -1

get image pic,0,pic-1,640,pic

next pic

dim sc(scrollarea)

for down=scrollarea to 1 step -1

sc(down)=down

next down

DELETE BITMAP 5

REM load music

load music "633.mid",1

load music "sad.mid",2

REM load sounds

load sound "gun1.wav",1

load sound "boom2.wav",2

load sound "gun2.wav",3

load sound "die.wav",4

load sound "tallyho.wav",5

load sound "bandits.wav",6

REM *** load graphics ***

REM invaders

LOAD BITMAP "planes.BMP",1

GET IMAGE 1,0,0,66,55

GET IMAGE 2,67,0,138,58

GET IMAGE 3,138,0,212,60

get image 4,81,62,112,93

REM ship

GET IMAGE 100,227,0,319,90

REM laser

GET IMAGE 101,154,68,196,137

DELETE BITMAP 1

REM explosion

LOAD BITMAP "explode.bmp",4

GET IMAGE 110,0,0,70,66

GET IMAGE 111,71,0,137,66

GET IMAGE 112,139,0,206,66

GET IMAGE 113,138,66,206,133

DELETE BITMAP 4

rem blank image after explosion

INK RGB(0,0,0),0

BOX 0,0,71,58

GET IMAGE 114,0,0,71,58

ink rgb(244,214,210),0

cls

SET CURRENT BITMAP 0

REM grab screen size

screenx=SCREEN WIDTH()

screeny=SCREEN HEIGHT()

REM *** arrays ***

DIM ship(18)

DIM bomber(18)

DIM bombx(18)

DIM bomby(18)

REM *** starting of new game variables ***

new_game:

CLS

stop music 2

play music 1

loop music 1

level=0

lives=3

score=0

fighterspeed=2

REM *** each new level variables ***

new_game_level:

CLS

destroyed=0

explode=0

fire=0

offsetx=30

offsety=50

speed=2

inc fighterspeed

movex=1

REM *** setup sprites ***

REM create invader rows

n=0

min=0

max=0

FOR j=1 TO 3

INC n

INC min,6

INC max,6

FOR i=min-5 TO max

SET SPRITE i,0,1

SPRITE i,0,0,1

ship(i)=n

NEXT i

NEXT j

REM ship

SET SPRITE 100,0,1

SPRITE 100,MOUSEX(),MOUSEY(),100

POSITION MOUSE 320,380

REM laser

SET SPRITE 101,0,1

SPRITE 101,0,0,101

Rem *** game action loop ***

REPEAT

GOSUB stats

GOSUB screen

SYNC

GOSUB invaders

GOSUB ship

UNTIL destroyed=18 OR lives=0

IF lives>0

INC level

FOR l=1 TO 30

INK RGB(RND(128)+127,RND(128)+127,RND(128)+127),0

CENTER TEXT screenx/2,screeny/2,"LEVEL "+STR$(level)+" COMPLETED !!!"

REM completed level sound here

play sound 5

WAIT 10:SYNC

NEXT l

ink rgb(244,214,210),0

GOTO new_game_level

ELSE

Rem Play sad End Game Music

stop music 1

play music 2

loop music 2

TEXT 260,200,"GAME OVER"

TEXT 220,230,"Press the ESC Key to Quit"

TEXT 290,260,"or"

TEXT 225,290,"Press Enter to Try Again"

SYNC

IF RETURNKEY()=1 THEN goto new_game

IF ESCAPEKEY()=1 THEN EXIT

LOOP

ENDIF

GOTO new_game_level

REM *** gosubs ***

REM space invaders movement

invaders:

IF explode=1

ship(invader_hit)=frame

IF TIMER()>delay

INC frame

IF frame>114 THEN INC destroyed : explode=0

rem ******* Explode speed ****

delay=TIMER()+30

REM **************************

ENDIF

invader=0

offsetx=offsetx+movex

FOR y = 0 TO 2

FOR x = 0 TO 5

INC invader

IF RND(150)=75 AND bomber(invader)=0 AND SPRITE IMAGE(invader)<4

rem play sound for laser fire

play sound 1

bomber(invader)=1

bombx(invader)=SPRITE X(invader)+SPRITE WIDTH(invader)/2

Rem here -200 is the y position where enemy missiles will appear

bomby(invader)=SPRITE Y(invader)+SPRITE HEIGHT(invader)-200

ENDIF

IF bomber(invader)=1

rem Enemy missile speed

bomby(invader)=bomby(invader)+fighterspeed

rem ****************

SPRITE invader+18,bombx(invader),bomby(invader),4

IF SPRITE HIT(invader+18,100)>0 AND SPRITE IMAGE(100)=100

SPRITE invader+18,bombx(invader),screeny+1,4

bomber(invader)=0

status=110

killed=1

delay2=TIMER()+60

ELSE

IF bomby(invader)>screeny

SPRITE invader+18,bomby(invader),screeny+1,4

bomber(invader)=0

ENDIF

Rem ************ Enemy ship spacing

invadx=offsetx+((SPRITE WIDTH(invader)*x)*1.1)

invady=offsety+((SPRITE HEIGHT(invader)*y)*1.1)

SPRITE invader,invadx,invady,ship(invader)

NEXT x

NEXT y

rem Left and right Movement of enemy ships

IF SPRITE X(1)<10 THEN movex=1

IF SPRITE X(6)>550 THEN movex=-1

RETURN

REM ship movement

ship:

my = MOUSEY()

mx = MOUSEX()

IF my < 300 THEN my = 300

IF my > 370 THEN my = 370

IF mx > 545 THEN mx = 545

SPRITE 100, mx, my, 100

IF killed=0

status=100

IF MOUSECLICK()=1 AND fire=0 AND explode=0

Rem coordinates for player fire  to appear

lsrx=mx+25

lsry=my-50

rem play sound for fire laser

play sound 3

fire=1

ENDIF

IF fire=1

SPRITE 101,lsrx,lsry,101

DEC lsry,20

invader_hit=check_enemy_collision()

IF invader_hit>0

rem play sound for explosion

play sound 2

SPRITE 101,lsrx,0-SPRITE HEIGHT(101),101

INC score,10

frame=110

explode=1

fire=0

delay=TIMER()+60

ELSE

IF lsry<0

SPRITE 101,lsrx,0-SPRITE HEIGHT(101),101

fire=0

ENDIF

ELSE

IF TIMER()>delay2

INC status

delay2=TIMER()+60

IF STATUS>114

Rem player dies sound here

play sound 4

DEC lives

IF lives>0

resetbomber

FOR l=1 TO 30

INK RGB(RND(128)+127,RND(128)+127,RND(128)+127),0

TEXT 260,310,"GET READY!!!"

WAIT 10

ink rgb(244,214,210),0

NEXT l

Rem Get Ready sound here

play sound 6

WAIT 3000

POSITION MOUSE 320,370

KILLED=0

ENDIF

SPRITE 100,mx,my,status

RETURN

REM display Lives Levels And score

stats:

cls

TEXT 50,460,"SCORE:  "+str$(score)

TEXT 500,460,"LIVES:  "+str$(lives)

TEXT 300,460,"LEVEL:  "+str$(level+1)

return

REM Vertical Scrolling Routine

screen:

set current bitmap 6

for pic=scrollarea to 1 step -1

paste image sc(pic),0,pic

oldy=sc(pic)

dec oldy,scrollspeed

if oldy<1 then oldy=scrollarea

sc(pic)=oldy

next pic

set current bitmap 0

copy bitmap 6,0

return

REM *** Functions ***

REM draw screen border

rem FUNCTION DrawRect(left,top,right,bottom)

rem    LINE left,top,right,top

rem    LINE right,top,right,bottom

rem    LINE right,bottom,left,bottom

rem    LINE left,bottom,left,top

rem ENDFUNCTION

REM check for collision

FUNCTION check_enemy_collision()

FOR enemies=1 TO 18

IF SPRITE HIT(101,enemies)>0 AND SPRITE IMAGE(enemies)<110

EXITFUNCTION enemies

ENDIF

NEXT enemies

ENDFUNCTION 0

REM reset bombers

FUNCTION resetbomber

FOR invader = 1 TO 18

IF SPRITE EXIST(invader)=1

bomber(invader)=0

SPRITE invader+18,bombx(invader),screeny-100,4

ENDIF

NEXT invader

ENDFUNCTION

Download

Please login to download

Comments

No comments yet.

Author Name:	Jonk
CodeBase Entries:	2

CodeBase - Basic 2D Shoot em up

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments