|
Last change
on this file since 589 was
588,
checked in by Sam Hocevar, 12 years ago
|
|
data: move original Abuse files to our main data directory and move
the Bong addon for Abuse Mac in there, too.
|
|
File size:
569 bytes
|
| Rev | Line | |
|---|
| [54] | 1 | ;; Copyright 1995 Crack dot Com, All Rights reserved |
|---|
| 2 | ;; See licensing information for more details on usage rights |
|---|
| 3 | |
|---|
| 4 | ;; you can use this to hear various sound effects |
|---|
| 5 | ;; example : abuse -lsf lisp/playwav.lsp sfx/grenad01.wav" |
|---|
| 6 | |
|---|
| 7 | (defun playwav (arg_on) |
|---|
| 8 | (if (>= arg_on (argc)) |
|---|
| 9 | nil |
|---|
| 10 | (progn |
|---|
| [582] | 11 | (print (concatenate 'string "Playing " (argv arg_on) |
|---|
| [54] | 12 | ", type c <ENTER> to continue")) |
|---|
| 13 | (play_sound (def_sound (argv arg_on))) |
|---|
| 14 | (break) |
|---|
| 15 | (playwav (+ arg_on 1))))) |
|---|
| 16 | |
|---|
| 17 | (playwav 3) ;; start on paramter 3 (skip -lsf play) |
|---|
| 18 | |
|---|
| 19 | (quit) |
|---|
Note: See
TracBrowser
for help on using the repository browser.
