home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 13 / 1995-12_Disc_13.iso / abuse / lisp / playwav.lsp < prev    next >
Lisp/Scheme  |  1995-08-31  |  570b  |  20 lines
  1. ;; Copyright 1995 Crack dot Com,  All Rights reserved
  2. ;; See licencing 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.