Follow on from Ace gunner one.

Follow on from Ace gunner one. This one has had some of the code made up using the 'Hands on DarkBasicPro.' book so its a bit more easire to read.(all done with functions so some bits are easy to transport ot other codes.

Also the sound works with it, media you should all ready have if you kept to the defualt install.

Ps might be to easy with mouse for the first few jumps.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem Project: acegunner2
Rem Created: 01/01/2006 09:10:23
rem @Howdo @J.Hinge.
Rem ***** Main Source File *****

global sw sh score shipassed yes no
global stars distance timeleft
global ship numberofships
global tv show ForcePresent level
global posx posx# posy posy# sheilds endtitle
global xunit# yunit# laser delay gameover joy mouse
global newspeed# jump shiptopass flashme gamestart
randomize timer()
level=1
yes=1
no=0
gameover=yes
gamestart=no
setupscreen()
checkforjoy()
findscreensize()
loadimages()
loadsounds()
makecrosshairs()
startpos()
makestars()
makeships()
showships()
do
makeplay()
sync
loop
function makeplay()
if gamestart=no
showstarttitle()
endif

updatestars()

if gameover<>yes
showscoresandtimeleft()

if joy=yes
handlejoy()
endif

if mouse=yes
handlemouse()
endif

updatecrosshairs()
showcrosshairs()
firelaser()
moveships()
checkhit()

endif
endfunction

function setupscreen()
sync on : sync rate 0 :
backdrop on
color backdrop rgb(0,0,0)
hide mouse
set text font "arial"
set text size 22
set text transparent
endfunction

function showcrosshairs()
sprite 1,posx,posy,1
endfunction

function updatecrosshairs()
posx=posx#
posy=posy#
endfunction

function checkforjoy()
ForcePresent=0
empty checklist
PERFORM CHECKLIST FOR CONTROL DEVICES
for c=1 to checklist quantity()
   print checklist string$(c)
   if checklist value a(c)
      SET CONTROL DEVICE checklist string$(c)
      ForcePresent=1
   endif
next c
endfunction

function loadimages()
set image colorkey 255,0,255
rem this media found in the help/ example/ input
load image "C:\Program Files\Dark Basic Software\Dark Basic Professional\Help\examples\input\crosshair.bmp",1
`load image "../Help\examples\input\crosshair.bmp",1
rem this media found in media/ texures
load image "C:\Program Files\Dark Basic Software\Dark Basic Professional\Media\Textures\Metal_Plates_T.BMP",2
cls rgb(255,0,255)
set text size 70
center text sw/2,sh/2-150,"ACE"
center text sw/2,sh/2-50,"Gunner 2"
set text size 22
center text sw/2,sh/2+75,"Press SpaceBar, Fire or"
center text sw/2,sh/2+97,"Left mouse Button  to Start"
get image 3,0,0,sw,sh
paste image 3,0,0,1
sprite 1001,0,0,3
cls RGB(162,209,238)
get image 4,0,0,640,480
endfunction

function loadsounds()
rem this media found in the media folder/ sounds.
load sound "C:\Program Files\Dark Basic Software\Dark Basic Professional\Media\Sounds\Guns\Ray gun.wav",1,0
load sound "C:\Program Files\Dark Basic Software\Dark Basic Professional\media\sounds\guns\blaster.wav",2,0
load sound "C:\Program Files\Dark Basic Software\Dark Basic Professional\media\sounds\explosions\boom 2.wav",3,0
load sound "C:\Program Files\Dark Basic Software\Dark Basic Professional\media\sounds\shot impacts\hit oil tank.wav",4,0
endfunction

function makecrosshairs()
set current bitmap 0
set sprite 1,0,1
offset sprite 1,16,16
endfunction

function startpos()
newspeed#=newspeed#+0.1
flashme=255
oldscore=score
score=0
show=1
shiptopass=20
sheilds=100
shipassed=0
stars=100
posx#=320
posy#=240
timeleft=10000
gameover=yes
gamestart=no
endfunction

function findscreensize()
sw=screen width()
sh=screen height()
endfunction

function makestars()
Dim star_ang#(stars)
Dim star_rad#(stars)
Dim star_spd#(stars)
for st=0 to stars
   star_ang#(st)=rnd(36000)/100.00
   star_rad#(st)=rnd(sw/2)
   star_spd#(st)=0.5+abs(sin(rnd(360)))
next st
endfunction

function makeships()
numberofships = 50
dim shipspeed#(numberofships)
for shipobj = 1 to numberofships
   make object cube shipobj,2
   TEXTURE OBJECT shipobj ,2
set object cull shipobj,1
   hide object shipobj
   next shipobj
positionships()
endfunction

function positionships()
for shipobj = 1 to rnd(numberofships)+1
   shipspeed#(shipobj)=.2+newspeed#
   position object shipobj,rnd(shipptopass)-10,rnd(shiptopass)-10,rnd(500)
   show object shipobj
next numberofships
endfunction
function handlemouse()
if posx#>=0.0
posx#=mousex()
endif
if posx#>=640.0
posx#=640.0
else
if posx#<=0.0
      posx#=0.0
   endif
endif
if posy#>=0.0
   posy#=mousey()
endif
if posy#>=480.0
   posy#=480.0
else
   if posy#<=0.0
      posy#=0.0
   endif
endif
endfunction
function handlejoy()
if posx#>=0.0
   posx#=posx#+((joystick x()+1000/2000)/100)
endif
if posx#>=640.0
   posx#=640.0
else
   if posx#<=0.0
      posx#=0.0
   endif
endif
if posy#>=0.0
   posy#=posy#+((joystick y()+1000/2000)/100)
endif
if posy#>=480.0
   posy#=480.0
else
   if posy#<=0.0
      posy#=0.0
   endif
endif
endfunction

function showstarttitle()
   sprite 1001,0,0,3
   show sprite 1001
   if keystate(57) or joystick fire a()=1 or mouseclick()=1
   if mouseclick()=1
   mouse=1
   joy=0
   else
   mouse=0
   joy=1
   endif
      cls
      hide sprite 1001
      gamestart=yes
gameover=no
   endif
endfunction

function showships()
if gamerover<>yes
   if shipassed<>shiptopass
      for shipobj =1 to numberofships
         move object shipobj,-shipspeed#(shipobj)
         if object position z(shipobj)<0
            position object shipobj,rnd(shiptopass)-10,rnd(shiptopass)-10,500
            inc shipassed
         endif
      next shipobj
   endif
endif
endfunction

function showscoresandtimeleft()
rem scores
set text size 22
text 0,0,"Score "+str$(score)+" "
tv$="Sheilds "+str$(sheilds)+"% "
text sw-text width(tv$),0,"Sheilds "+str$(sheilds)+"% "
center text sw/2,text height("I")*2,"Level "+str$(level)
if val(mid$(str$(timer()),3))>0 and gameover<>yes
   timeleft=timeleft-1
endif
center text sw/2,0,"Hyper-Jump ready in "+str$(timeleft/100)
   if timeleft<=0
      hyperjump()
   endif
endfunction

 function hyperjump()
 if gameover=yes
 exitfunction
 endif
Print "Hyper jumping weeeeeeeeeeeeeeeeeee"
jump=1
jumptime=200
repeat
   updatestars()
   sync
   dec jumptime,1
until jumptime=0
jump=0
inc level,1
timeleft=10000*level
shipassed=0
positionships()
endfunction

function moveships()
if gameover<>yes
   if shipassed<>50
      for shipobj = 1 to numberofships
         move object shipobj ,-shipspeed#(shipobj)
         if object position z(shipobj)<0
            position object shipobj,rnd(shiptopass)-10,rnd(shiptopass)-10,500
            inc shipassed
            sheilds=sheilds-((shipassed*10)/shiptopass)
 showscoresandtimeleft()
 sync
            play sound 4
            screenflash()

         endif
      next shipobj
   endif
endif
if shipassed=shiptopass or sheilds<0
   gameover=yes
   endtitle=yes
sheilds=100
shipassed=0
   lastshippassed()
endif
 endfunction

function lastshippassed()
if endtitle<>yes or gameover<>yes
exitfunction
endif
if endtitle=yes
gamestart=no
time=timer()
hide sprite 2001
repeat
   center text sw/2,sh/2,"The Dorg have Won! You failed.."
   center text sw/2,sh/2+22,"You scored "+str$(score)+" this time round."
         updatestars()
   sync
until timer()>time+5000
endtitle=no
restartgame()
endif
endfunction

function restartgame()
show=0
level=0
jump=0
shippassed=0
gameover=yes
gamestart=no
timeleft=10000
sheilds=100
endtitle=no
makeplay()
endfunction

function playfiresound()
   play sound 2
endfunction

function firelaser()
if gameover<>yes
if joy=1
   fire=joystick fire a()
endif
if mouse=1
if mouseclick()=1 then fire=1
endif
      if fire=1 and laser<>1
         laser=1
         delay=0
         playfiresound()
         if ForcePresent=1 then force shoot 100,20:
            repeat
               line 0,sh/2,posx,posy
               line sw,sh/2,posx,posy
               inc delay,1
               showscoresandtimeleft()
               updatestars()
               sync
            until delay=5
         endif
   if fire<>1
      laser=0
   endif
   endif
endfunction

function checkhit()
if laser<>0 and gameover=no
   object=pick object(posx,posy,1,numberofships)
   if object>0
      rem get distance from 3d object to coordinates
      distance=get pick distance()
      if distance<200
         hide object object
         score=score+20
         position object object,rnd(20)-10,rnd(20)-10,500
         show object object
         play sound 3
      endif
   endif
endif
endfunction

function updatestars()
rem show stars
for st=0 to stars
   star_rad#(st)=star_rad#(st)-star_spd#(st)
   if star_rad#(st)<0 then star_rad#(st)=star_rad#(st)+sw/2
     px=sw/2+(sin(star_ang#(st))*star_rad#(st))
     py=sh/2+(cos(star_ang#(st))*star_rad#(st))
     pc=(star_rad#(st))+55
   if pc>255 then pc=255
      dot px,py,rgb(pc,pc,pc)
      if jump=1
         line px,py,sw/2,sh/2
      endif
      next st
endfunction

function screenflash()
if gameover=yes
set sprite alpha 2001,0
exitfunction
endif
if gameover=no
repeat
 paste image 1,0,0
 sprite 2001,0,0,4
 set sprite alpha 2001,flashme
 dec flashme
 makeplay()
 sync
 until flashme=0
flashme=255
endif
endfunction