TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 31st May 2005 19:18

Modified: 1st Jan 1970 01:00

Author: Nigel _Okgo

Summary

A Fun Update of an Original Game, Similair to the Classic Blitz on the Amstrad CPC, or Commodore 64....

Full Description

Features :- Options screen with difficulty settings, Fun Helicopter Blitz Game with about 8 Stage of Fun Gameplay, Random Buildings and Graphics, Sound and Midi Music, the Control keys are :-(Space bar) Blitz Buildings to Land, (C) Auto Complete a Level and move onto the Next Stage....

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

randomize timer()

dim bx(800)

dim sprx(50)

dim spry(50)

dim spri(50)

dim sprii(50)

dim stx(100)

dim sty(100)

dim sti(100)

dim carx(10)

dim cary(10)

dim cari(10)

dim carii(10)

dim carhit(10)

dim subx(10)

dim suby(10)

dim subi(10)

dim subii(10)

dim flx(20)

dim fly(20)

dim fli(20)

dim flii(20)

dim flsp1(20)

dim flsp2(20)

dim flspr(20)

dim flcrash(20)

dim fltmr(20)

setup:

delete static objects

autocam off

set emulation off

sync on

sync rate 256

draw to back

backdrop off

for t=1 to 250

cls rgb(0,0,196)

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

text 220,200,"****Welcome to Copter Blitz****"

sync

next t

sync

hide mouse

load image "title.bmp",11

load image "tree.bmp",12

load image "bush.bmp",13

load image "hill.bmp",14

load image "cloud.bmp",15

load image "waves.bmp",16

load image "plane.bmp",1

load image "bomb.bmp",3

load image "explode.bmp",4

load image "plane1.bmp",5

load image "plane2.bmp",6

load image "plane3.bmp",7

load image "plane4.bmp",8

load image "buildings1.bmp",17

load image "buildings2.bmp",18

load image "buildings3.bmp",19

load image "buildings4.bmp",20

load image "buildings5.bmp",21

load image "plane1.bmp",22

load image "plane2.bmp",23

load image "plane3.bmp",24

load image "plane4.bmp",25

load image "helicopter1.bmp",26

load image "helicopter2.bmp",27

load image "helicopter3.bmp",28

load image "helicopter4.bmp",29

load image "car1.bmp",30

load image "car2.bmp",31

load image "car3.bmp",32

load image "car4.bmp",33

load image "car5.bmp",34

load image "iconx1.bmp",35

load image "iconx2.bmp",36

load image "iconx3.bmp",37

load image "iconx4.bmp",38

load image "iconx5.bmp",39

load image "iconx6.bmp",40

load image "iconx7.bmp",41

load image "iconx8.bmp",42

load image "iconx9.bmp",43

load image "alien1.bmp",44

load image "alien2.bmp",45

load image "hit.bmp",46

load image "submarine.bmp",10

sync

set1=0

set2=1

music=1

for t=1 to 10

flx(t)=rnd(600)

fly(t)=rnd(300)

fli(t)=rnd(1)

flii(t)=rnd(1)

flsp1(t)=2+rnd(3)

flsp2(t)=2+rnd(3)

flspr(t)=44

flcrash(t)=0

fltmr(t)=0

next t

flygo=0

if rnd(5)=0 then flygo=1

flyamount=rnd(10)+1

goto start

snd:

if set2=0 then load sound "hit1.wav",1

if set2=1 then load sound "hit2.wav",1

if set2=0 and level<5 then load sound "explode4.wav",2

if set2=0 and level>4 then load sound "explode3.wav",2

if set2=1 and level<5 then load sound "explode1.wav",2

if set2=1 and level>4 then load sound "explode2.wav",2

load sound "explode2.wav",5

return

sndx:

stop music 1

if set2=0 then play sound 2

if set2=1 then play sound 5

set sound speed 2,5000

return

start:

load sound "select1.wav",4

gosub snd

level=0

scrx=0

scrxx=0

tmr=0

dim scx(50)

dim scy(50)

dim sci(50)

dim spr(50)

for t=1 to 50

scx(t)=-100

next t

x=264

y=68

key=2

cl=0

bx=-200:by=480

sndok=0

sp2=4

yy=0

tmrgo=0

tmrgox=0

bxx=1

scrgo=1

bgo=0

oktr=0

level=0

for t=22 to 25

spri(t)=rnd(1)

sprii(t)=rnd(1)

sprx(t)=0

spry(t)=0

next t

crash=0

keygo=0

gosub music

allow=0

plspr=26

pltmr=0

for t=1 to 10

carx(t)=rnd(2560)

cary(t)=428

cari(t)=-1+rnd(2)

carii(t)=1

carhit(t)=0

next t

for t=1 to 10

subx(t)=rnd(2560)

suby(t)=428

subi(t)=rnd(1)

subii(t)=rnd(1)

next t

carxx=2560:cary=428

subxx=2560:suby=428

start1:

s=x:d=y

scrx=scrx-scrgo

if scrgo=1 then tmr=tmr+1:if tmr=2 then tmr=0:scrxx=scrxx-1

if scrgo=2 then scrxx=scrxx-1

if scrx<-640 then scrx=0

if scrxx<-640 then scrxx=0

if set2=0 then cl=0

if set2=1 then cl=1

if cl=0 then paste image 11,scrxx,0,0

if cl=0 then paste image 11,scrxx+640,0,0

if cl=1 then cls rgb(128,196,255)

for t=1 to 50

i=rnd(2500)

if i=0 and scx(t)=-100 then goto scenery

goto sceneryx

scenery:

spr(t)=12+rnd(4)

build=20

if set1=1 then build=17

if set1=2 then build=21

if set1=3 then build=17+rnd(4)

if set1=0 then if rnd(2)=0 then spr(t)=build

if set1=1 then if rnd(2)=0 then spr(t)=build

if set1=2 then if rnd(1)=0 then spr(t)=build

if set1=3 then spr(t)=build

if spr(t)=12 and rnd(1)=0 then scx(t)=640:scy(t)=372

if spr(t)=13 and rnd(1)=0 then scx(t)=640:scy(t)=432

if spr(t)=14 and rnd(1)=0 then scx(t)=640:scy(t)=426

if spr(t)=15 and rnd(2)=0 then scx(t)=640:scy(t)=rnd(350)

ok=0

if spr(t)>16 then scx(t)=640:ok=1

if ok=1 then if set1=0 then scy(t)=300+rnd(100)

if ok=1 then if set1=1 then scy(t)=250+rnd(150)

if ok=1 then if set1=2 then scy(t)=200+rnd(100)

if ok=1 then if set1=3 then scy(t)=200+rnd(200)

sceneryx:

next t

if oktr=1 then if allow<500 then allow=allow+1

for t=1 to 50

if scx(t)>-100 then scx(t)=scx(t)-scrgo

if scx(t)<-100 then scx(t)=-100

if spr(t)>16 then goto build1

goto after

build1:

for ty=480 to scy(t) step -12

paste image spr(t),scx(t),ty,0

next ty

if scx(t)>-50 and scx(t)<-45 then if scy(t)<440 then if oktr=1 and allow=500 then yy=yy+sp2

ok=0

if bx>scx(t)-24 and bx<scx(t)+4 and by<480 then if by>scy(t) then if scy(t)<484 then scy(t)=scy(t)+sp2*2:sndok=sndok+1:ok=1

if x>scx(t)-64 and x<scx(t)-56 then if y>scy(t)-20 then if crash=0 then crash=1:gosub sndx

if ok=1 then paste image 4,(scx(t)-12)+rnd(24),scy(t)-rnd(24)+rnd(24),0

if ok=1 then if sndok=1 then play sound 2

goto afterx

after:

if scx(t)>-100 then paste image spr(t),scx(t),scy(t),0

afterx:

next t

gosub cars

goto carx

cars:

for t=1 to 5

if carhit(t)>0 then goto carsxx

carx(t)=carx(t)+cari(t)

if carx(t)<-50 then carx(t)=carxx:cari(t)=-1+rnd(2)

if carx(t)>carxx then carx(t)=-50:cari(t)=1+rnd(2)

if cari(t)=0 then cari(t)=1+rnd(2)

if cary(t)<cary-10 then carii(t)=1

if cary(t)>cary+10 then carii(t)=0

if carii(t)=0 then cary(t)=cary(t)-1

if carii(t)=1 then cary(t)=cary(t)+1

if bx>carx(t)-24 and bx<carx(t)+80 and by>cary(t)-24 and by<cary(t)+24 and carhit(t)=0 then carhit(t)=1:play sound 2:gosub cari

goto carii

cari:

cari(t)=-1+rnd(2)

carii(t)=4

return

carii:

carsxx:

sprite t,carx(t),cary(t),29+t

if carhit(t)>0 and carhit(t)<100 then carhit(t)=carhit(t)+1

if carhit(t)>0 and carhit(t)<100 then for tt=0 to 8:sprite t*10+tt,(carx(t)-20)+rnd(128),(cary(t)-40)+rnd(84),4:next tt

if carhit(t)>0 and carhit(t)<100 then scale sprite t,100-(carhit(t)/4)

if carhit(t)>0 and carhit(t)<100 then for tt=0 to 8:scale sprite t*10+tt,100-(carhit(t)/4):next tt

if carhit(t)>0 and carhit(t)<50 then carx(t)=carx(t)+cari(t):carii(t)=carii(t)+1:cary(t)=cary(t)-carii(t)/4

if carhit(t)>49 and carhit(t)<100 then carx(t)=carx(t)+cari(t):carii(t)=carii(t)-4:cary(t)=cary(t)-carii(t)/4

if carhit(t)=1 then flip sprite t:mirror sprite t

if carhit(t)=50 then flip sprite t:mirror sprite t

if carhit(t)=99 then flip sprite t:mirror sprite t

if carhit(t)=100 then gosub afterok

goto afterokgo

afterok:

for tt=0 to 8

if sprite exist(t*10+tt)=1 then delete sprite t*10+tt

next tt

delete sprite t

return

afterokgo:

next t

return

carx:

for tx=scrx to scrx+1280 step 32

if tx>-32 and tx<672 then paste image 16,tx,464,0

next tx

if cl=0 then if crash=0 then paste image 1,x,y,0

if cl=1 then if crash=0 then gosub pl

set text font "westminster"

set text size 28

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

set text to bold

if oktr=0 then text 178,128,"****COPTER BLITZ****"

ink rgb(255,255,255),rgb(255,255,255)

if oktr=0 then text 179,127,"****COPTER BLITZ****"

set text to normal

set text size 24

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

if oktr=0 then text 178,180,"(1) Start Game"

bxx=0

if set1=0 then scrgo=1:bxx=1:tmrgox=2:sp2=7:xsp=4:ysp=4:a$="Easy"

if set1=1 then scrgo=1:bxx=2:tmrgox=0:sp2=5:xsp=5:ysp=5:a$="Average"

if set1=2 then scrgo=2:bxx=5:tmrgox=0:sp2=20:xsp=8:ysp=8:a$="Hard"

if set1=3 then scrgo=1:bxx=1:tmrgox=0:sp2=8:xsp=4:ysp=4:a$="Random"

if oktr=0 then text 178,220,"(2) Difficulty :- "+a$

if set2=0 then a$="Arcade"

if set2=1 then a$="Classic"

if oktr=0 then text 178,260,"(3) Graphics :- "+a$

if music=0 then a$="Off"

if music=1 then a$="On"

if oktr=0 then text 178,300,"(4) Music :- "+a$

paste image 35,314,164,0

if set1=0 then paste image 36,351,209,0

if set1=1 then paste image 37,395,209,0

if set1=2 then paste image 38,365,210,0

if set1=3 then paste image 39,395,210,0

if set2=0 then paste image 40,400,250,0

if set2=1 then paste image 41,400,250,0

if music=0 then paste image 42,325,285,0

if music=1 then paste image 43,330,290,0

if leftkey()=1 and x>0 then if crash=0 then x=x-xsp

if rightkey()=1 and x<550 then if crash=0 then x=x+xsp

if upkey()=1 then if crash=0 then y=y-ysp

if y<yy and upkey()=1 then if oktr=1 then if crash=0 then y=y+sp2+1

if y<yy and upkey()=0 then if oktr=1 then if crash=0 then y=y+1

if crash=0 then if crash=0 then if y>410 then gosub sndx:crash=1

if crash=1 then y=y+1

if downkey()=1 then if crash=0 then y=y+ysp

if scancode()=0 then if key<2 then key=key+1

if inkey$()="1" and key=2 then key=0:stop music 1:load sound "select4.wav",4:play sound 4:goto startokgo

ok=0

if inkey$()="2" and key=2 then ok=1:key=0:set1=set1+1:if set1=4 then set1=0

if ok=1 then gosub music

if ok=1 then load sound "select2.wav",4:play sound 4

ok=0

if inkey$()="3" and key=2 then ok=1:key=0:set2=set2+1:if set2=2 then set2=0

if ok=1 then gosub snd:load sound "select1.wav",4:play sound 4

ok=0

if inkey$()="4" and key=2 then ok=1:key=0:music=music+1:if music=2 then music=0

if ok=1 then load sound "select3.wav",4:play sound 4

if ok=1 then if music=0 then stop music 1

if ok=1 then if music=1 then loop music 1

ok=0

if s=x and d=y and keystate(57)=1 then if bgo<500 then bgo=bgo+1

okgox=0

if s<>x or d<>y then bgo=0:okgox=1

if okgox=1 then if oktr=0 then oktr=1

if bgo=500 and key=2 and keystate(57)=1 then if crash=0 then key=0:play sound 4

if bgo=500 then ok=1

if keystate(57)=1 and okgo=1 then if crash=0 then if ok=0 then okgo=0:bx=x+32:by=y+20:sndok=0:play sound 1

ok=0

if crash=1 then bx=-100

if by<484 then ok=1:by=by+sp2:paste image 3,bx,by,0

if flygo=1 then gosub fly

goto flgox

fly:

for t=1 to flyamount

if fltmr(t)=200 then goto flgoxx

if bx>flx(t)-28 and bx<flx(t)+28 and by>fly(t)-8 and by<fly(t)+8 then if flcrash(t)=0 then flcrash(t)=1:flii(t)=rnd(1):flsp2(t)=2+rnd(3):fltmr(t)=1

if fly(t)>450 then goto flgo

if flcrash(t)=1 then fli(t)=1:flsp1(t)=5

if fli(t)=0 then fly(t)=fly(t)-flsp1(t)

if fli(t)=1 then fly(t)=fly(t)+flsp1(t)

if flii(t)=0 then flx(t)=flx(t)-flsp2(t)

if flii(t)=1 then flx(t)=flx(t)+flsp2(t)

if flx(t)<-50 then flx(t)=-50:flii(t)=1

if flx(t)>700 then flx(t)=700:flii(t)=0

if fly(t)<-50 then fly(t)=-50:fli(t)=1

if fly(t)>300 and flcrash(t)=0 then fly(t)=300:fli(t)=0

if rnd(50)=0 or fli(t)=0 and flii(t)=0 then if flcrash(t)=0 then fli(t)=rnd(2):flii(t)=rnd(2):flsp1(t)=2+rnd(3):flsp2(t)=2+rnd(3)

flgo:

if flcrash(t)=0 then flspr(t)=44

if flcrash(t)=1 then flspr(t)=45

paste image flspr(t),flx(t),fly(t),0

if fltmr(t)>0 and fltmr(t)<200 then fltmr(t)=fltmr(t)+1

ink rgb(255,255,255),rgb(255,255,255)

if fltmr(t)=150 then play sound 2

if fltmr(t)>150 then for tt=1 to 4:paste image 46,(flx(t)+4)+rnd(24),(704-fltmr(t)*2)+rnd(50),0:next tt

for tx=40 to 560 step 40

if flcrash(t)=1 then if flx(t)>tx-24 and flx(t)<tx+24 and fly(t)>bx(tx)-24 then if bx(tx)<484 then bx(tx)=bx(tx)+sp2:play sound 2

next tx

flgoxx:

next t

return

flgox:

if crash=1 then goto crashx

goto crashxx

crashx:

for t=22 to 25

sprx(t)=sprx(t)+spri(t)

spry(t)=spry(t)+sprii(t)

if cl=0 then paste image t,x+sprx(t),y+spry(t),0

next t

if cl=0 then if y<400 then x=x+1:y=y+2

if cl=1 then y=y+4:if y>440 then y=440

if cl=1 then if keygo<50 then x=x+2

if cl=1 then if keygo>49 then scrgo=0

if cl=1 then paste image 29,x-12,y-32,0

if cl=1 then if y=440 then if keygo<200 then keygo=keygo+1

if cl=0 then if y>480 then keygo=1

if cl=0 then if scancode()=0 and keygo=1 then goto start

if cl=1 then if scancode()=0 and keygo=200 then goto start

crashxx:

if ok=1 then tmrgo=tmrgo+1:if tmrgo>tmrgox then tmrgo=0

if ok=1 then if tmrgo=0 then bx=bx+bxx

if by>480 then okgo=1

sync

goto start1

pl:

pltmr=pltmr+1:if pltmr=5 then pltmr=0:plspr=plspr+1

if plspr=28 then plspr=26

paste image plspr,x-12,y-32,0

return

music:

if music=0 then goto musicx

song=set1+1

if song=1 then load music "music/frogger1.mid",1:loop music 1

if song=2 then load music "music/frogger2.mid",1:loop music 1

if song=3 then load music "music/title.mid",1:loop music 1

if song=4 then load music "music/complete2.mid",1:loop music 1

musicx:

return

startokgo:

cls rgb(0,0,196)

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

center text 320,185,"****COPTER BLITZ****"

ink rgb(255,255,255),rgb(255,255,255)

center text 320,225,"Level "+str$(level+1)

for t=1 to 100

if sprite exist(t)=1 then scale sprite t,100:delete sprite t:sync

next t

carxx=640

for t=1 to 10

carx(t)=rnd(640)

cari(t)=1+rnd(2)

carii(t)=rnd(1)

carhit(t)=0

next t

subxx=640

for t=1 to 10

subx(t)=rnd(640)

subi(t)=rnd(1)

subii(t)=rnd(1)

next t

for t=1 to 10

flx(t)=rnd(600)

fly(t)=rnd(300)

fli(t)=rnd(1)

flii(t)=rnd(1)

flsp1(t)=2+rnd(3)

flsp2(t)=2+rnd(3)

flspr(t)=44

flcrash(t)=0

fltmr(t)=0

next t

flygo=0

if rnd(5)=0 then flygo=1

flyamount=rnd(10)+1

sync

level=level+1

if level=9 then load image "other.bmp",11:goto complete1

load image "background1.bmp",9

str1=100:str2=50

if level=2 and cl=1 then load image "scenery1.bmp",9

if level=3 and cl=0 then load image "background2.bmp",9

if level=3 and cl=1 then load image "scenery2.bmp",9

if level=4 then load image "background3.bmp",9

if level=5 and cl=0 then load image "background4.bmp",9

if level=5 and cl=1 then load image "scenery3.bmp",9

if level=6 and cl=0 then load image "background5.bmp",9

if level=6 and cl=1 then load image "buildings.bmp",9

if level=7 and cl=0 then load image "Complete.bmp",9

if level=7 and cl=1 then load image "scenery4.bmp",9

if level=8 and cl=1 then load image "scenery5.bmp",9

if level=1 or level=2 then load image "buildings1.bmp",2

if level=3 then load image "buildings2.bmp",2

if level=4 then load image "buildings3.bmp",2

if level=5 then load image "buildings4.bmp",2

if level=6 then load image "buildings5.bmp",2

if level=7 then load image "buildings4.bmp",2

if level=8 then load image "buildings4.bmp",2

spgo=40

if level=1 or level=2 then lvl1=250:lvl2=150:sp1=2.50:sp2=4

if level=3 or level=4 then lvl1=200:lvl2=200:sp1=2.50:sp2=4

if level=5 or level=6 then lvl1=200:lvl2=150:sp1=2.50:sp2=4

if level=7 then lvl1=150:lvl2=200:sp1=4:sp2=8:spgo=20

if level=8 then lvl1=150:lvl2=100:sp1=4:sp2=8:spgo=20

if set1=0 then lvl1=lvl1+50:lvl2=lvl2+50:sp1=sp1-0.50:sp2=sp2*1.50

if set1=2 then sp1=sp1*1.50:sp2=sp2*1.50

gosub snd

if level=1 then load music "music/level1.mid",1

if level=2 then load music "music/level2.mid",1

if level=3 then load music "music/level3.mid",1

if level=4 then load music "music/level4.mid",1

if level=5 then load music "music/frogger1.mid",1

if level=6 then load music "music/frogger2.mid",1

if level=7 then load music "music/complete2.mid",1

if level=8 then load music "music/title.mid",1

load music "music/complete1.mid",2

play music 1

x=-200:y=0

sync on

sync rate 0

for tx=0 to 600 step 20

bx(tx)=lvl1+rnd(lvl2)

next tx

color backdrop rgb(0,0,0)

bx=-200:by=480

sndok=0

okgo=0

for t=1 to 100

stx(t)=rnd(640)

sty(t)=rnd(480)

sti(t)=2+rnd(2)

next t

sny=480

tmr=0

tmrgo=0

tmrx=0

tmrxx=0

str1=0

str2=0

for t=1 to 10

scx(t)=-40+rnd(680)

spr(t)=12+rnd(2)

next t

for t=11 to 20

scx(t)=-40+rnd(680)

scy(t)=rnd(350)

sci(t)=rnd(1)+1

next t

sync

if level=1 then gosub lvl1:goto lvlx

if level=2 then gosub lvl2:goto lvlx

if level=3 then gosub lvl3:goto lvlx

if level=4 then gosub lvl4:goto lvlx

if level=5 then gosub lvl5:goto lvlx

if level=6 then gosub lvl6:goto lvlx

if level=7 then gosub lvl7:goto lvlx

if level=8 then gosub lvl8:goto lvlx

lvl1:

if cl=0 then cls rgb(0,0,0)

if cl=1 then cls rgb(128,196,255)

ink rgb(255,255,255),rgb(255,255,255)

if cl=0 then str1=100:str2=50

for t=1 to str1

box stx(t),sty(t),stx(t)+1,sty(t)+1

next t

if cl=0 then goto lvl1x

for t=1 to 8

spr=spr(t)

if spr=12 then paste image 12,scx(t),372,0

if spr=13 then paste image 13,scx(t),432,0

if spr=14 then paste image 14,scx(t),426,0

next t

for t=11 to 14

scx(t)=scx(t)-sci(t)

if scx(t)<-50 then scx(t)=640:scy(t)=rnd(350):sci(t)=1+rnd(1)

paste image 15,scx(t),scy(t),0

next t

lvl1x:

return

lvl2:

if cl=0 then cls rgb(0,0,0)

if cl=1 then cls rgb(128,196,255)

ink rgb(255,255,255),rgb(255,255,255)

if cl=0 then str1=100:str2=0

for t=1 to str1

box stx(t),sty(t),stx(t)+1,sty(t)+1

next t

if cl=0 then paste image 9,0,438,0

if cl=1 then paste image 9,0,0,0

return

lvl3:

cls rgb(0,0,0)

ink rgb(255,255,255),rgb(255,255,255)

if cl=0 then str1=100:str2=50

for t=1 to str1

box stx(t),sty(t),stx(t)+1,sty(t)+1

next t

if cl=0 then paste image 9,0,268,0

if cl=1 then paste image 9,0,0,0

return

lvl4:

cls rgb(0,0,0)

ink rgb(255,255,255),rgb(255,255,255)

if cl=0 then str1=50:str2=25

if cl=1 then str1=50

for t=1 to str1

box stx(t),sty(t),stx(t)+1,sty(t)+1

next t

paste image 9,0,228,0

return

lvl5:

if cl=0 then cls rgb(0,0,0)

ink rgb(255,255,255),rgb(255,255,255)

if cl=0 then str1=50:str2=25

for t=1 to str1

box stx(t),sty(t),stx(t)+1,sty(t)+1

next t

if cl=0 then paste image 9,0,284,0

if cl=0 then goto lvl5x

paste image 9,0,0,0

lvl5x:

return

lvl6:

if cl=0 then cls rgb(0,0,0)

ink rgb(255,255,255),rgb(255,255,255)

if cl=0 then str1=100:str2=50

for t=1 to str1

box stx(t),sty(t),stx(t)+1,sty(t)+1

next t

if cl=0 then paste image 9,0,350,0

if cl=1 then paste image 9,0,0,0

return

lvl7:

if cl=0 then cls rgb(0,0,0)

ink rgb(255,255,255),rgb(255,255,255)

for t=1 to str1

box stx(t),sty(t),stx(t)+1,sty(t)+1

next t

paste image 9,0,0,0

return

lvl8:

if cl=0 then cls rgb(0,0,0)

ink rgb(255,255,255),rgb(255,255,255)

if cl=0 then str1=50:str2=25

for t=1 to str1

box stx(t),sty(t),stx(t)+1,sty(t)+1

next t

if cl=1 then paste image 9,0,0,0

return

lvlx:

for t=1 to str2

stx(t)=stx(t)-2

sty(t)=sty(t)+sti(t)

if stx(t)<0 then stx(t)=640:sty(t)=rnd(480)

if sty(t)>480 then stx(t)=rnd(640):sty(t)=0:sti(t)=2+rnd(2)

next t

if cl=0 then tmrgo=tmrgo+1:if tmrgo=250 then tmrgo=0:if sny>440 then sny=sny-2

if cl=0 then box 1,sny,639,479

x=x+sp1

if x>640 then x=-160:y=y+spgo

if cl=1 then if level=5 then gosub submarine

if cl=0 then paste image 1,x,y,0

if cl=1 then gosub pl

amount=0

for tx=40 to 560 step 40

ok=0

if bx>tx-24 and bx<tx+4 then if by>bx(tx) then if bx(tx)<484 then bx(tx)=bx(tx)+sp2:sndok=sndok+1:ok=1

if x>tx-64 and x<tx-56 then if y>bx(tx)-20 then goto crash

if ok=1 then paste image 4,(tx-12)+rnd(24),bx(tx)-rnd(24)+rnd(24),0

if sndok=1 then play sound 2

if bx(tx)<480 then amount=amount+1

for ty=480 to bx(tx) step -12

paste image 2,tx,ty,0

next ty

next tx

if amount=0 then tmrx=tmrx+1:if tmrx=2 then tmrx=0:y=y+1

a$=inkey$()

if a$=" " and okgo=1 then okgo=0:bx=x+32:by=y+20:sndok=0:play sound 1

if by<484 then by=by+sp2:paste image 3,bx,by,0

if by>480 then okgo=1

if a$="c" then goto complete

if a$="p" then save bitmap "screenshot.bmp",0

if x>500 and y>340 or y>420 then goto complete

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

if tmrxx<280 then tmrxx=tmrxx+1:center text 320,200,"Level "+str$(level)

if cl=1 then if level=1 then gosub lvlxx

if cl=1 then if level=2 then cary=442:gosub cars

if cl=1 then if level=4 then cary=442:gosub cars

if flygo=1 then gosub fly

sync

goto 1

lvlxx:

for tx=0 to 640 step 32

paste image 16,tx,464,0

next tx

return

crash:

gosub sndx

for t=5 to 8

sprx(t)=x

spry(t)=y

spri(t)=2+rnd(2)

sprii(t)=2+rnd(2)

next t

tmr=0

tmrx=0

crashokgo:

cls rgb(0,0,0)

ink rgb(255,255,255),rgb(255,255,255)

for t=1 to str2

stx(t)=stx(t)-2

sty(t)=sty(t)+sti(t)

if stx(t)<0 then stx(t)=640:sty(t)=rnd(480)

if sty(t)>480 then stx(t)=rnd(640):sty(t)=0:sti(t)=2+rnd(2)

next t

if cl=0 then tmrgo=tmrgo+1:if tmrgo=250 then tmrgo=0:if sny>440 then sny=sny-2

if cl=0 then box 1,sny,639,479

for t=1 to str1

box stx(t),sty(t),stx(t)+1,sty(t)+1

next t

for t=5 to 8

sprx(t)=sprx(t)+spri(t)

spry(t)=spry(t)+sprii(t)

if cl=0 then sprite t,sprx(t),spry(t),t

next t

if y<400 then x=x+1:y=y+4

if cl=1 then paste image 29,x,y,0

for tx=40 to 560 step 40

for ty=480 to bx(tx) step -12

paste image 2,tx,ty,0

next ty

next tx

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

text 264,200,"Game Over!"

if tmr<400 then tmr=tmr+1

if tmr=400 and scancode()=0 then goto start

sync

goto crashokgo

complete:

stop music 1

loop music 2

completeokgo:

cls rgb(0,0,0)

ink rgb(255,255,255),rgb(255,255,255)

for t=1 to str2

stx(t)=stx(t)-2

sty(t)=sty(t)+sti(t)

if stx(t)<0 then stx(t)=640:sty(t)=rnd(480)

if sty(t)>480 then stx(t)=rnd(640):sty(t)=0:sti(t)=2+rnd(2)

next t

if level=1 then gosub lvl1

if level=2 then gosub lvl2

if level=3 then gosub lvl3

if level=4 then gosub lvl4

if level=5 then gosub lvl5

if level=6 then gosub lvl6

if level=7 then gosub lvl7

if level=8 then gosub lvl8

if level=9 then paste image 11,0,0,0

if cl=0 then tmrgo=tmrgo+1:if tmrgo=250 then tmrgo=0:if sny>440 then sny=sny-2

if cl=0 then box 1,sny,639,479

for tx=40 to 560 step 40

for ty=480 to bx(tx) step -12

if level<9 then paste image 2,tx,ty,0

next ty

next tx

if y<440 and level<9 then x=x+1:y=y+1

if level=9 then if x>290 then x=x-2

if level=9 then if x<288 then x=x+2

if y<318 and level=9 then y=y+1

if cl=1 and level=9 then if y<318 then gosub pl

if cl=1 and level=9 then if y=318 then paste image 28,x-12,y-32,0

if cl=0 then paste image 1,x,y,0

if cl=1 and level<9 then if y<440 then gosub pl

if cl=1 and level<9 then if y=440 then paste image 28,x-12,y-32,0

if cl=1 then if level=1 then gosub lvlxx

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

if level=9 then ink rgb(255,255,255),rgb(255,255,255)

if level<9 then text 264,200,"Congratulations!"

if level=9 then text 190,120,"****GAME COMPLETE****"

tmr=tmr+1

if tmr>500 and inkey$()=" " and level<9 then stop music 2:goto startokgo

if tmr>500 and inkey$()=" " and level=9 then stop music 2:goto start

sync

goto completeokgo

submarine:

for t=1 to 5

if rnd(500)=0 then subi(t)=rnd(1)

if subi(t)=0 then subx(t)=subx(t)-1

if subi(t)=1 then subx(t)=subx(t)+1

if subx(t)<-50 then subx(t)=subxx

if subx(t)>subxx then subx(t)=-50

if suby(t)<suby-10 then subii(t)=1

if suby(t)>suby+10 then subii(t)=0

if subii(t)=0 then suby(t)=suby(t)-1

if subii(t)=1 then suby(t)=suby(t)+1

paste image 10,subx(t),suby(t),0

next t

return

complete1:

load music "music/other.mid",2

play music 2

stop sound 1

x=20:y=40

tmr=0

complete2:

cls rgb(128,196,255)

paste image 11,0,0,0

if leftkey()=1 then if x>0 then x=x-2

if rightkey()=1 then if x<570 then x=x+2

if upkey()=1 then if y>20 then y=y-1

if downkey()=1 then if y<300 then y=y+1

gosub pl

set text to bold

if rnd(20)=0 then ink rgb(rnd(255),rnd(255),rnd(255)),rgb(64,128,255)

text 190,180,"****GAME COMPLETE****"

if rnd(10)=0 then ink rgb(rnd(255),255,255),rgb(255,255,255)

text 191,179,"****GAME COMPLETE****"

gosub submarine

if tmr<800 then tmr=tmr+1

if inkey$()=" " and tmr=800 then tmr=0:goto complete

sync

goto complete2

Download

Please login to download

Comments

No comments yet.

CodeBase - COPTER BLITZ

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Nigel _Okgo
CodeBase Entries:	13