home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / euphoria / soundeff.e < prev    next >
Text File  |  1994-01-08  |  1KB  |  70 lines
  1. -- soundeff.e: Sound Effects
  2.  
  3. global procedure errbeep()
  4. -- error signal
  5.     sound(1000)
  6.     delay(0.1)
  7.     sound(0)
  8. end procedure
  9.  
  10. global procedure explosion_sound()
  11. -- something is destroyed
  12.     for i = 5000 to 10 by -150 do
  13.     sound(rand(i))
  14.     delay(0.01)
  15.     end for
  16.     for i = 10 to 100 by 3 do
  17.     sound(rand(i))
  18.     delay(0.01)
  19.     end for
  20.     sound(0)
  21. end procedure
  22.  
  23. global procedure phasor_sound(atom n)
  24. -- phasor hits enemy with n-unit blast
  25.     for i = 1 to 5 + n/200 do
  26.     sound(1000)
  27.     delay(0.025)
  28.     sound(3000)
  29.     delay(0.025)
  30.     end for
  31.     sound(0)
  32. end procedure
  33.  
  34. global procedure deflected_sound()
  35. -- sound of a deflected torpedo
  36.     sound(1000)
  37.     delay(.1)
  38.     sound(0)
  39. end procedure
  40.  
  41. global procedure torpedo_sound()
  42. -- torpedo hits enemy
  43.    sound(120)
  44.    delay(0.30)
  45.    sound(0)
  46. end procedure
  47.  
  48. global procedure docking_sound()
  49. -- Euphoria successfully docks with a planet or base
  50.     for i = 1 to 3 do
  51.     sound(2000)
  52.     delay(0.07)
  53.     sound(5000)
  54.     delay(0.07)
  55.     end for
  56.     sound(0)
  57. end procedure
  58.  
  59. global procedure victory_sound()
  60. -- sound when you win the game
  61.     for i = 1 to 25 do
  62.     sound(1000)
  63.     delay(0.07)
  64.     sound(2000)
  65.     delay(0.07)
  66.     end for
  67.     sound(0)
  68. end procedure
  69.  
  70.