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

Last change on this file since 581 was 44, checked in by Sam Hocevar, 11 years ago
  • Importing abuse-frabs 2.10.
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.