rem Sound Showcase

rem Standard Setup Code for all examples
sync on : sync rate 240 : backdrop off
set text font "arial" : set text size 16
set text to bold : set text transparent

rem Loading prompt
sync : center text screen width()/2,screen height()/2,"LOADING" : sync

rem Load room
load object "world\room.x",1
xrotate object 1,270
fix object pivot 1
rotate object 1,0,180,0
set object specular 1,0

rem Load selectors
for t=2 to 5
 load object "models\notes\notes.x",t
 position object t,-100,32,40-(((t-3)*80))
 rotate object t,270,90,0
 scale object t,50,50,50
 fix object pivot t
 rotate object t,0,0,0
 set object specular t,0
next t

rem Load sound
load sound "sound\ghost.wav",1
load sound "sound\hit.wav",2
load sound "sound\smash.wav",3
load sound "sound\tube.wav",4

rem Setup camera and light
set point light 0,0,0,0
position camera -450,100,10
set camera fov 45
yrotate camera 90

rem Select first note (via Xangle trigger)
yrotate object 2,1

rem Main loop
desc$="Sound Room (Select A Note)"
do

rem Control mouse selector
if mouseclick()=1
 sel=0
 if mousex()>70 and mousex()<600
   sel=1+((mousex()-70)/(530/4))
   if sel>4 then sel=4
 endif
 if sel>0
  if object angle y(1+sel)=0
   yrotate object 1+sel,1
   if sel=1 then play sound 1
   if sel=2 then play sound 2
   if sel=3 then play sound 3
   if sel=4 then play sound 4
  endif
 endif
endif

rem Control selected
for pace=0 to 9
 for t=2 to 5
  if object angle y(t)>0 then rotate object t,0,wrapvalue(object angle y(t)+1),0
  if object angle y(t)>0 then lightz#=object position z(t) : lighty#=object position y(t)
 next t
next pace

rem Control light
position light 0,-200,lighty#,lightz#

rem Show Framerate
text 20,screen height()-40,desc$
fps$="DBPro Fps: "+str$(screen fps())
text screen width()-20-text width(fps$),screen height()-40,fps$

rem Update screen
sync

rem End loop
loop

