home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 13 / 1995-12_Disc_13.iso / abuse / lisp / sfx.lsp < prev    next >
Lisp/Scheme  |  1995-08-31  |  7KB  |  246 lines
  1. ;; Copyright 1995 Crack dot Com,  All Rights reserved
  2. ;; See licencing information for more details on usage rights
  3.  
  4. ;; Bobby,  samples should be 8 bit mono playing 11025 Hz
  5.  
  6. (defun sfxdir (filename) (concatenate 'string "sfx/" filename))
  7.  
  8. ;; steel ball bounce
  9. (def_sound 'SBALL_SND      (sfxdir "ball01.wav"))
  10.  
  11. ;; flying sound
  12. (def_sound 'FLY_SND        (sfxdir "fly03.wav"))
  13.  
  14. ;; speed sound
  15. (def_sound 'SPEED_SND      (sfxdir "speed02.wav"))
  16.  
  17. (setq LOW_HEALTH_SND SPEED_SND)
  18.  
  19. ;; laser hitting somehting it can't kill
  20. (def_sound 'LPING_SND      (sfxdir "lasrmis2.wav"))
  21.  
  22. ;; light saber - should be short
  23. (def_sound 'LSABER_SND     (sfxdir "plasma02.wav"))
  24.  
  25. ;; when you save at a console
  26. (def_sound 'SAVE_SND       (sfxdir "save05.wav"))
  27.  
  28. ;; end level
  29. (def_sound 'END_LEV_SND    (sfxdir "endlvl02.wav"))
  30.  
  31. ;; plasma weapon
  32. (def_sound 'PLASMA_SND     (sfxdir "plasma03.wav"))
  33.  
  34. ;; spring
  35. (def_sound 'SPRING_SOUND   (sfxdir "spring03.wav"))
  36.  
  37. ;; health up sound
  38. (def_sound 'HEALTH_UP_SND  (sfxdir "health01.wav"))
  39.  
  40. ;; door sliding up
  41. (def_sound 'DOOR_UP        (sfxdir "doorup01.wav"))
  42.  
  43. ;; door sliding up
  44. (def_sound 'DOOR_DOWN      (sfxdir "doorup02.wav"))
  45.  
  46. ;; bomb count-down tick
  47. (def_sound 'TICK_SND       (sfxdir "timerfst.wav"))
  48.  
  49. (setq PLAYER_PAIN (make-array 4 :initial-contents 
  50.                   (list (def_sound (sfxdir "plpain01.wav"))
  51.                     (def_sound (sfxdir "plpain02.wav"))
  52.                     (def_sound (sfxdir "plpain04.wav"))
  53.                     (def_sound (sfxdir "plpain10.wav")))))
  54.  
  55. (setq PLAYER_DEATH (make-array 4 :initial-contents
  56.                  (list (def_sound (sfxdir "pldeth02.wav"))
  57.                    (def_sound (sfxdir "pldeth04.wav"))
  58.                    (def_sound (sfxdir "pldeth05.wav"))
  59.                    (def_sound (sfxdir "pldeth07.wav")))))
  60.                    
  61.  
  62. ;; jugger stomp
  63. (def_sound 'JSTOMP_SND    (sfxdir "blkfoot4.wav"))
  64.  
  65. ;; hiding wall disappear sound
  66. (def_sound 'HWALL_SND     (sfxdir "blkfoot4.wav"))
  67.  
  68. ;; firebomb sound
  69. (def_sound 'FIREBOMB_SND  (sfxdir "firebmb1.wav"))
  70.  
  71.  
  72. ;; force field
  73. (def_sound 'FF_SND        (sfxdir "force01.wav"))
  74.  
  75. ;; flying robot sound
  76. (def_sound 'FLYER_SND     (sfxdir "robot02.wav"))
  77.  
  78. ;; cleaner sound
  79. (def_sound 'CLEANER_SND   (sfxdir "cleaner.wav"))
  80.  
  81. ;; shotgun/laser taking from the lava sample
  82. (def_sound 'ZAP_SND       (sfxdir "zap2.wav")) 
  83.  
  84. ;; rocket launch sound
  85. (def_sound 'ROCKET_LAUNCH_SND (sfxdir "rocket02.wav"))
  86.  
  87. ;; platform de-acel
  88. (def_sound 'PLAT_D_SND     (sfxdir "eledec01.wav"))
  89.  
  90. ;; platform acel
  91. (def_sound 'PLAT_A_SND     (sfxdir "eleacc01.wav"))
  92.  
  93.  
  94. ;; machine gun hitting the floor, sounds 1 & 2, played randomly
  95. (def_sound    'MG_HIT_SND1 (sfxdir "mghit01.wav"))   
  96. (def_sound    'MG_HIT_SND2 (sfxdir "mghit02.wav"))
  97.  
  98. ;; enemy mounted gun firing
  99. (def_sound 'MGUN_SND       (sfxdir "ammo02.wav"))
  100.  
  101. ;; planet explode sound
  102. (def_sound 'P_EXPLODE_SND  (sfxdir "poof06.wav"))
  103.  
  104. ;; space ship zipping by
  105. (def_sound 'SHIP_ZIP_SND   (sfxdir "zap3.wav"))
  106.  
  107. ;; grenade explosion
  108. (def_sound 'GRENADE_SND    (sfxdir "grenad01.wav"))
  109.  
  110. ;; opening door
  111. (def_sound 'SWISH          (sfxdir "swish01.wav"))
  112.  
  113. ;; sound of player going through a teleporter, not grinding
  114. (def_sound 'TELEPORTER_SND (sfxdir "telept01.wav"))
  115.  
  116. ;; blowing something up
  117. (def_sound 'BLOWN_UP       (sfxdir "grenad01.wav"))
  118.  
  119. ;; get a "treasure"/ammo noise
  120. (def_sound 'AMMO_SND       (sfxdir "ammo01.wav"))
  121.  
  122. ;; lava shooting up sound
  123. (def_sound 'LAVA_SND       (sfxdir "lava01.wav"))
  124.  
  125. ;; sound of a switch being flipped
  126. (def_sound 'SWITCH_SND     (sfxdir "switch01.wav"))
  127.  
  128. ;; sound of grenade being thrown
  129. (def_sound 'GRENADE_THROW  (sfxdir "throw01.wav"))
  130.  
  131. ;; electricity shooting up from the ground
  132. (def_sound 'ELECTRIC_SND   (sfxdir "elect02.wav"))
  133.  
  134. ;; rocket being fired
  135. (def_sound 'ROCKET_SND     (sfxdir "rocket02.wav"))
  136.  
  137. ;; alien landing on the ground
  138. (def_sound 'ALAND_SND      (sfxdir "aland01.wav"))
  139.  
  140. ;; alien slash/bite noise
  141. (def_sound 'ASLASH_SND     (sfxdir "aslash01.wav"))
  142.  
  143. ;; light fading on
  144. (def_sound 'FADEON_SND     (sfxdir "fadeon01.wav"))
  145.  
  146. ;; block crumbling
  147. (def_sound 'CRUMBLE_SND    (sfxdir "crmble01.wav"))
  148.  
  149. ;; aliean screaming
  150. (def_sound 'ASCREAM_SND    (sfxdir "alien01.wav"))
  151.  
  152. ;; alien pain sound
  153. (def_sound 'APAIN_SND      (sfxdir "ahit01.wav"))
  154.  
  155. ;; small alien death
  156. (setq ASML_DEATH (make-array 2 :initial-contents
  157.                  (list (def_sound (sfxdir "adie05.wav"))
  158.                    (def_sound (sfxdir "poof05.wav")))))
  159.  
  160. ;; large alien death
  161. (setq ALRG_DEATH (make-array 3 :initial-contents
  162.                  (list (def_sound (sfxdir "adie02.wav"))
  163.                    (def_sound (sfxdir "adie03.wav"))
  164.                    (def_sound (sfxdir "poof05.wav")))))
  165.  
  166.  
  167.  
  168. (setq APPEAR_SND (def_sound (sfxdir "amb16.wav")))    ;; 14
  169. (setq TAUNT_SND (def_sound (sfxdir "amb07.wav")))     ;; 15
  170. (setq SPACE_SND (def_sound (sfxdir "ambcave1.wav")))  ;; 3
  171.  
  172. (setq A_SCREAMS (make-array 3 :initial-contents (list
  173.                          (def_sound (sfxdir "scream02.wav"))  ;; 8
  174.                          (def_sound (sfxdir "scream03.wav"))  ;; 9
  175.                          (def_sound (sfxdir "scream08.wav")))))  ;; 10
  176.  
  177. (setq AMB_SOUNDS (make-array 17 :initial-contents (list 
  178.                    (def_sound (sfxdir "ambtech1.wav"))  ;; 0
  179.                    (def_sound (sfxdir "ambtech2.wav"))  ;; 1
  180.                    (def_sound (sfxdir "ambtech3.wav"))  ;; 2
  181.                    SPACE_SND                            ;; 3
  182.                    (def_sound (sfxdir "ambcave2.wav"))  ;; 4
  183.                    (def_sound (sfxdir "ambcave3.wav"))  ;; 5
  184.                    (def_sound (sfxdir "ambcave4.wav"))  ;; 6
  185.                    (def_sound (sfxdir "ambfrst2.wav"))  ;; 7
  186.                    (aref A_SCREAMS 0)                   ;; 8
  187.                    (aref A_SCREAMS 1)                   ;; 9
  188.                    (aref A_SCREAMS 2)                   ;; 10
  189.                    (def_sound (sfxdir "adie03.wav"))    ;; 11
  190.                    (def_sound (sfxdir "amb11.wav"))     ;; 12
  191.                    (def_sound (sfxdir "amb13.wav"))     ;; 13
  192.                    APPEAR_SND                           ;; 14
  193.                    TAUNT_SND                            ;; 15
  194.                    (def_sound (sfxdir "amb10.wav"))     ;; 16
  195.                    )))
  196.  
  197. (defun amb_sound_ct ()
  198.   (if (> (aitype) 16)
  199.       (set_aitype 0)
  200.     (play_sound (aref AMB_SOUNDS (aitype)))))
  201.  
  202. (defun amb_sound_ai ()
  203.   (if (activated)
  204.       (if (eq (aistate) 0)
  205.       (progn
  206.         (play_sound (aref AMB_SOUNDS (aitype)) (yvel) (x) (y))
  207.         (set_aistate (+ (xvel) (random (+ 1 (xacel)))))
  208.         (> (xvel) 0))
  209.     (progn
  210.       (set_aistate (- (aistate) 1))
  211.       T))
  212.     (progn
  213.       (set_aistate 0)
  214.       T)))
  215.  
  216.     
  217. (defun ambs_cons () 
  218.   (set_xvel 100)  ;; delay time to 100
  219.   (set_yvel 127)) ;; set volume default to 127
  220.  
  221. (def_char AMBIENT_SOUND 
  222.   (funs (ai_fun          amb_sound_ai)
  223.     (draw_fun        dev_draw)
  224.     (constructor     ambs_cons)
  225.     (type_change_fun amb_sound_ct))
  226.   (range 500 500)
  227.   (fields ("aitype" "sound # (0-15)")
  228.       ("yvel"   "volume (0-127)")      
  229.       ("xvel"   "repeat delay (0=no repeat)")
  230.       ("xacel"   "random delay (0=none)"))
  231.   (states "art/misc.spe"
  232.       (stopped "sfx_player")))
  233.     
  234.                     
  235.                     
  236.                     
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.