Changeset 582 for abuse/trunk/data-abuse/lisp/sfx.lspTweet

Timestamp:

May 6, 2011, 12:47:14 AM (12 years ago)

Author:

Sam Hocevar

Message:

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

File:

• abuse/trunk/data-abuse/lisp/sfx.lsp (modified) (9 diffs)

abuse/trunk/data-abuse/lisp/sfx.lsp

@@ -47 +47 @@
 (def_sound 'TICK_SND       (sfxdir "timerfst.wav"))
 
-(setq PLAYER_PAIN (make-array 4 :initial-contents 
+(setq PLAYER_PAIN (make-array 4 :initial-contents
                               (list (def_sound (sfxdir "plpain01.wav"))
                                     (def_sound (sfxdir "plpain02.wav"))
@@ -58 +58 @@
                                    (def_sound (sfxdir "pldeth05.wav"))
                                    (def_sound (sfxdir "pldeth07.wav")))))
-                                   
+
 
 ;; jugger stomp
@@ -80 +80 @@
 
 ;; shotgun/laser taking from the lava sample
-(def_sound 'ZAP_SND       (sfxdir "zap2.wav")) 
+(def_sound 'ZAP_SND       (sfxdir "zap2.wav"))
 
 ;; rocket launch sound
@@ -93 +93 @@
 
 ;; machine gun hitting the floor, sounds 1 & 2, played randomly
-(def_sound    'MG_HIT_SND1 (sfxdir "mghit01.wav"))   
+(def_sound    'MG_HIT_SND1 (sfxdir "mghit01.wav"))
 (def_sound    'MG_HIT_SND2 (sfxdir "mghit02.wav"))
 
@@ -131 +131 @@
 ;; electricity shooting up from the ground
 (def_sound 'ELECTRIC_SND   (sfxdir "elect02.wav"))
- 
+
 ;; rocket being fired
 (def_sound 'ROCKET_SND     (sfxdir "rocket02.wav"))
@@ -185 +185 @@
 
 
-(setq AMB_SOUNDS (make-array 17 :initial-contents (list 
+(setq AMB_SOUNDS (make-array 17 :initial-contents (list
                                (def_sound (sfxdir "ambtech1.wav"))   ;; 0
                                (def_sound (sfxdir "ambtech2.wav"))  ;; 1
@@ -224 +224 @@
       T)))
 
-        
-(defun ambs_cons () 
+
+(defun ambs_cons ()
   (set_xvel 100)  ;; delay time to 100
   (set_yvel 127)) ;; set volume default to 127
 
-(def_char AMBIENT_SOUND 
+(def_char AMBIENT_SOUND
   (funs (ai_fun          amb_sound_ai)
         (draw_fun        dev_draw)
@@ -236 +236 @@
   (range 500 500)
   (fields ("aitype" amb_num)
-          ("yvel"   amb_vol)     
+          ("yvel"   amb_vol)
           ("xvel"   amb_rep)
           ("xacel"  amb_rand))
   (states "art/misc.spe"
           (stopped "sfx_player")))
-        
+
 (setq song_list '("music/abuse01.hmi" "music/abuse02.hmi"))
 (setq current_song song_list)
@@ -251 +251 @@
         (break)
         (setq current_song (cdr current_song))
-        (if (not current_song) 
+        (if (not current_song)
             (setq current_song song_list))
         (break)
         )))
 
-                                    
+
 (defun level_loaded (name)
   (trace)