source: abuse/trunk/data-abuse/lisp/playwav.lsp @ 582

Last change on this file since 582 was 582, checked in by Sam Hocevar, 10 years ago

data: remove \r and trailing spaces and tabs from all Lisp sources.

File size: 569 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.