home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / games / abuse / disk2.dat / LISP / PLAYWAV.LSP < prev    next >
Lisp/Scheme  |  1995-09-13  |  570b  |  20 lines
  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)
  20.