|
Last change
on this file since 96 was
46,
checked in by Sam Hocevar, 15 years ago
|
- Importing abuse-lib 2.00.
|
|
File size:
570 bytes
|
| Line | |
|---|
| 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 |
|---|
| 11 | (print (concatenate 'string "Playing " (argv arg_on) |
|---|
| 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.
