home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / tutorial / programs / sample07.dba < prev    next >
Encoding:
Text File  |  1999-08-19  |  611 b   |  30 lines
  1. Rem * Title  : Tutorial Sample 7
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1/8/99
  4. rem Load music file
  5. LOAD MUSIC "sample.mid",1
  6.  
  7. rem Load sound file
  8. LOAD SOUND "sample.wav",1
  9. LOAD SOUND "sample.wav",2
  10. LOAD SOUND "sample.wav",3
  11.  
  12. rem Start Music
  13. LOOP MUSIC 1
  14.  
  15. rem Begin loop
  16. DO
  17.  
  18. rem Pressing key '1' will play sound 1
  19. IF SCANCODE()=2 AND SOUND PLAYING(1)=0 THEN PLAY SOUND 1
  20.  
  21. rem Pressing key '2' will play sound 2
  22. IF SCANCODE()=3 AND SOUND PLAYING(2)=0 THEN PLAY SOUND 2
  23.  
  24. rem Pressing key '3' will play sound 3
  25. IF SCANCODE()=4 AND SOUND PLAYING(3)=0 THEN PLAY SOUND 3
  26.  
  27. rem End loop
  28. LOOP
  29.  
  30.