rem Sound and music - OpenDBC tutorial (DarkBASIC Classic)
rem Media: bell.wav, kick.wav (examples/dbc/tutorials/sound)
rem        harbour_waltz.mid (examples/dbc/tutorials/music)
sync on : sync rate 60

load sound "bell.wav", 1
load sound "kick.wav", 2
load music "harbour_waltz.mid", 1
loop music 1

do
   cls rgb(20, 24, 40)
   text 20, 20, "B: bell   K: kick   M: pause or resume the music"

   key$ = lower$(inkey$())
   if key$ <> last$
      if key$ = "b" then play sound 1
      if key$ = "k" then play sound 2
      if key$ = "m"
         if music paused(1) = 1 then resume music 1 else pause music 1
      endif
   endif
   last$ = key$

   rem A metronome: the kick plays on its own every second
   if timer() - beat > 1000 then beat = timer() : play sound 2

   if music playing(1) = 1 then text 20, 50, "Music: playing" else text 20, 50, "Music: paused"
   sync
loop