home *** CD-ROM | disk | FTP | other *** search
/ DarkBasic Professional / DarkBasicPro.iso / data1.cab / Lang_Files_(English) / Help / examples / music / music2-example.dba < prev   
Encoding:
Text File  |  2004-09-22  |  1.4 KB  |  61 lines
  1. rem Music Functionality
  2.  
  3. rem Load and play CD music
  4. MusicNumber=1
  5. TrackMax = get number of cd tracks()
  6. if TrackMax>0
  7.  
  8.  rem CD present, play a track
  9.  load cdmusic TrackMax, MusicNumber
  10.  loop music MusicNumber
  11.  
  12.  rem User prompt to continue
  13.  center text screen width()/2,screen height()/2,"HIT ANY KEY"
  14.  wait key
  15.  
  16.  rem Stop and delete CD music
  17.  stop music MusicNumber
  18.  delete music MusicNumber
  19.  
  20. endif
  21.  
  22. rem Random values
  23. MusicNumber=1+rnd(5)
  24. Volume=50+rnd(50)
  25. Speed=50+rnd(50)
  26.  
  27. rem Load music
  28. load music "music\fun.mp3",MusicNumber
  29. loop music MusicNumber
  30.  
  31. rem Main loop
  32. while mouseclick()=0
  33.  
  34. rem Control music
  35. if rnd(500)=1 then play music MusicNumber
  36. if rnd(500)=1 then stop music MusicNumber
  37. if rnd(500)=1 then pause music MusicNumber
  38. if rnd(500)=1 then resume music MusicNumber
  39. if rnd(500)=1 then loop music MusicNumber
  40. if rnd(500)=1 then set music volume MusicNumber,Volume
  41. if rnd(500)=1 then set music speed MusicNumber,Speed
  42.  
  43. rem Music Data
  44. cls
  45. print "Music Data (screen fps ";screen fps();")"
  46. print
  47. print "exist:";music exist(MusicNumber)
  48. if music exist(MusicNumber)=1
  49.  print "playing:";music playing(MusicNumber)
  50.  print "looping:";music looping(MusicNumber)
  51.  print "paused:";music paused(MusicNumber)
  52.  print "volume:";music volume(MusicNumber)
  53.  print "speed:";music speed(MusicNumber)
  54. endif
  55.  
  56. rem End loop
  57. endwhile
  58.  
  59. rem Delete music
  60. delete music MusicNumber
  61.