CodeBase - DizzyDoo

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators ` It is reproduced here with full permission ` http://www.thegamecreators.com Rem Project: DizzyDoo Rem Created: 2/19/04 9:43:15 PM Rem ***** Main Source File ***** rem Written by Richard Sardini rem E-mail-noramdia@adelphia.net rem phone 814-504-6033 cls print "Arrow keys or joystick to turn" print "Space bar or joystick fire A to shoot" print "You only get one life, so good luck." print "Don't get to dizzy." print "press any key to start" print "Press 'P' anytime to pause." loopherenow: if joystick fire a()=1 then goto startnow if inkey$()="" then goto loopherenow startnow: rem set colors red=rgb(255,0,0):green=rgb(0,255,0):blue=rgb(0,0,255):black=rgb(0,0,0):white=rgb(255,255,255) rem create particle bitmaps 100(for aliens explosion) rem and 101(for ship explosion) create bitmap 1,5,5 ink red,1:dot 2,2:dot 3,3:ink rgb(30,200,255),1:dot 2,3:blur bitmap 1,6:get image 100,0,0,5,5 delete bitmap 1 create bitmap 1,5,5 ink white,1:dot 2,2:dot 3,3:ink blue,1:dot 2,3:blur bitmap 1,6:get image 101,0,0,5,5 delete bitmap 1 rem manual sync allows us to build source objects rem out of view. All drawing that takes place off the screen rem occurs much faster than drawing directly to the screen sync on dim ax#(100):dim az#(100):dim aox#(100):dim aoz#(100):dim av#(100) dim arx#(100):dim ary#(100):dim am(100):dim aex#(100):dim aez#(100):dim aed#(100) dim arad#(100):blts=1:alien=1:dirn=-20:lang#=1 autocam off rem make homeship make object sphere 11,14:color object 11,rgb(0,0,255) make object cone 1,5:make mesh from object 1,1:delete object 1 add limb 11,1,1 offset limb 11,1,0,0,10:rotate limb 11,1,90,0,0:color limb 11,1,red make object sphere 1,15:scale object 1,125,100,20:make mesh from object 2,1:delete object 1 add limb 11,2,2:offset limb 11,2,0,0,-5:color limb 11,2,green scale object 11,150,150,150 rem make aliens make object sphere 12,8:color object 12,rgb(200,80,140) make object cylinder 1,20:scale object 1,100,10,100:make mesh from object 3,1:delete object 1 add limb 12,1,3:color limb 12,1,blue add limb 12,2,1:color limb 12,2,green:offset limb 12,2,0,0,-15 rotate limb 12,2,-90,0,0 position object 12,int(sx#),0,int(sz#)+100 scale object 12,200,200,200 hide object 12 hide mouse rem turn sync off and back on:if we don't do this rem when we jump to endofgame syn is turned off. rem if you choose yes for new game we jump back to start rem where we turn sync back on. If you try to turn sync rem on or off when it is already that way will generate rem an error. sync off start: sync on rem reset certain variables sx#=350:sz#=0:camy=570:firedelay=0:angle1=0:barls=20:lev#=.15 clch=0:sed#=0:ships=5:freq=1000:dirn=1:score=0 rem position ship position object 11,0,0,0 rem clear the screen cls rgb(0,0,0) rem color backdrop color backdrop black position camera 0,650,250:point camera 0,0,50:set camera range 1,3000 ink white,1 do if inkey$()="p" sync off backdrop off set cursor 390,300 print "!!!GAME PAUSED!!!" set cursor 380,330 print "Press any key to resume." wait key backdrop on sync on endif if joystick left()=1 or leftkey()=1 turn object left 11,1 endif if joystick right()=1 or rightkey()=1 turn object right 11,1 endif if frdly>0 then dec frdly:goto skipfire if joystick fire a()=1 or spacekey()=1 if object exist(500+blts)=1 then goto skipfire make object sphere 500+blts,5:color object 500+blts,red position object 500+blts,0,0,0:set object to object orientation 500+blts,11 move object 500+blts,20 inc blts:if blts>4 then blts=1 frdly=30 endif skipfire: for x=1 to 4 if object exist(500+x)=1 move object 500+x,1.5 if object in screen(500+x)=0 then delete object 500+x if object exist(500+x)=1 t1=object collision(500+x,0) if t1>800 and t1<901 delete object 500+x: aex#(t1-800)=object position x(t1):aez#(t1-800)=object position z(t1):delete object t1 if particles exist (t1-800)=0 make particles t1-800,100,40,50 position particles t1-800,aex#(t1-800),0,aez#(t1-800):color particles t1-800,rnd(255),rnd(255),rnd(255) aed#(x)=5 endif score=score+100 endif endif endif next x for x=1 to 100 if particles exist(x)=1 aed#(x)=aed#(x)+.5:if aed#(x)>50 then delete particles x:aed#(x)=0 if particles exist(x)=1 set particle emissions x,aed#(x) set particle chaos x,aed#(x) endif endif next x intro=rnd(freq) if intro=freq/2 if object exist(alien)=0 clone object 800+alien,12:scale object 800+alien,150,150,150:color object 800+alien,rgb(rnd(255),rnd(255),rnd(255)):hide limb 800+alien,2 aox#(alien)=0:aoz#(alien)=0:arad#(alien)=400:av#(alien)=rnd(360) endif alien=alien+1:if alien>100 then alien=1 endif for x=1 to 100 if object exist(800+x)=1 aox#(x)=cos(av#(x))*arad#(x):aoz#(x)=sin(av#(x))*arad#(x) if dirn>0 then av#(x)=av#(x)+(.00125+lev#) if dirn<0 then av#(x)=av#(x)-(.00125+lev#) position object 800+x,0+aox#(x),0,0+aoz#(x) rotate limb 800+x,1,lang#,lang#,0 lang#=lang#+.5:if lang#>360 then lang#=1 if av#(x)<0 or av#(x)>360 av#(x)=wrapvalue(av#(x)) arad#(x)=arad#(x)-(20+lev#) endif if av#(x)>180 and av#(x)<185 arad#(x)=arad#(x)-(2+lev) endif if av#(x)>90 and av#(x)<95 arad#(x)=arad#(x)-(2+lev) endif endif next x t1=object collision(11,0) if t1>800 and t1<901 then goto endofgame chng=rnd(freq+2000):if chng=1500 then dirn=dirn*-1 set cursor 0,0 print "Welcome to DizzyDoo-----Written by Richard Sardini" print "SCORE----->";score if score=1000 then lev#=lev#+.025:freq=freq-100:score=score+100 if score=2000 then lev#=lev#+.025:score=score+100 if score=3000 then lev#=lev#+.025:freq=freq-100:score=score+100 if score=4000 then lev#=lev#+.025:score=score+100 if score=5000 then lev#=lev#+.025:freq=freq-100:score=score+100 if score=6000 then lev#=lev#+.025:score=score+100 if score=7000 then lev#=lev#+.025:freq=freq-100:score=score+100 if score=8000 then lev#=lev#+.025:score=score+100 if score=9000 then lev#=lev#+.025:freq=freq-100:score=score+100 if score=10000 then lev#=lev#+.025:score=score+100 if score=11000 then lev#=lev#+.025:freq=freq-100:score=score+100 if score=12000 then lev#=lev#+.025:score=score+100 if score=13000 then lev#=lev#+.025:freq=freq-100:score=score+100 if score=14000 then lev#=lev#+.025:score=score+100 if score=15000 then lev#=lev#+.025:freq=freq-100:score=score+100 if score=16000 then lev#=lev#+.025:score=score+100 if score=17000 then lev#=lev#+.025:score=score+100 if score=18000 then lev#=lev#+.025:score=score+100 if score=19000 then lev#=lev#+.025:score=score+100 if score=20000 then lev#=lev#+.025:score=score+100 if score=21000 then lev#=lev#+.025:score=score+100 if score=22000 then lev#=lev#+.025:score=score+100 if score=23000 then lev#=lev#+.025:freq=freq-100:score=score+100 if score=25000 then lev#=lev#+.025:score=score+100 sync loop endofgame: hide object 11 make particles 1000,101,70,150:color particles 1000,255,80,60 position particles 1000,0,0,0 for x=1 to 150 set particle emissions 1000,x set particle chaos 1000,x wait 10 sync next x delete particles 1000:sync cls backdrop off:sync off print "You are dead" print "Your score was---->";score print "Play again(y/n)?" checkagain: if inkey$()="n" then end if inkey$()="y" backdrop on:cls for x=1 to 100:if object exist(x+800)=1 then delete object x+800 if object exist(x+500) then delete object x+500 next x show object 11 goto start endif goto checkagain

Download

Please login to download