source: abuse/trunk/data/lisp/playwav.lsp

Last change on this file was 588, checked in by Sam Hocevar, 10 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
RevLine 
[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.