Last change
on this file since 589 was
589,
checked in by Sam Hocevar, 12 years ago
|
data: remove exact duplicate Lisp files, merge all main space Lisp files,
and move most frabs addons to the main data directory.
|
File size:
975 bytes
|
Line | |
---|
1 | ;; In places Copyright 1995 Crack dot Com, All Rights reserved |
---|
2 | ;; See licensing information for more details on usage rights |
---|
3 | ;; |
---|
4 | ;; Mostly Copyright 1997 Mike Moss (tfirestorm@aol.com), All Rights reserved |
---|
5 | ;; See readme for more details on usage rights |
---|
6 | |
---|
7 | (defun aldir (filename) (concatenate 'string "addon/aliens/" filename)) |
---|
8 | |
---|
9 | ;; alien slash/bite noise |
---|
10 | (def_sound 'ALSLASH_SND (aldir "aslash01.wav")) |
---|
11 | |
---|
12 | ;; alien screaming |
---|
13 | (def_sound 'ALSCREAM_SND (aldir "alien01.wav")) |
---|
14 | |
---|
15 | ;; alien pain sound |
---|
16 | (def_sound 'ALPAIN_SND (aldir "ahit01.wav")) |
---|
17 | |
---|
18 | ;; alien pain sound |
---|
19 | (def_sound 'ALTAUNT_SND (aldir "altaunt.wav")) |
---|
20 | |
---|
21 | ;; alien death |
---|
22 | (setq AL_DEATH (make-array 4 :initial-contents |
---|
23 | (list (def_sound (aldir "adie01.wav")) |
---|
24 | (def_sound (aldir "adie02.wav")) |
---|
25 | (def_sound (aldir "adie03.wav")) |
---|
26 | (def_sound (aldir "adie05.wav"))))) |
---|
27 | |
---|
28 | ;; egg hatching noise |
---|
29 | (def_sound 'EGGH_SND (aldir "egghatch.wav")) |
---|
30 | |
---|
31 | ;; fh jar breaking noise |
---|
32 | (def_sound 'JBRK_SND (aldir "jarbreak.wav")) |
---|
Note: See
TracBrowser
for help on using the repository browser.