Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/data-mac/lisp/sfx.lsp

    r566 r582  
    4747(def_sound 'TICK_SND       (sfxdir "timerfst.wav"))
    4848
    49 (setq PLAYER_PAIN (make-array 4 :initial-contents 
     49(setq PLAYER_PAIN (make-array 4 :initial-contents
    5050                              (list (def_sound (sfxdir "plpain01.wav"))
    5151                                    (def_sound (sfxdir "plpain02.wav"))
     
    5858                                   (def_sound (sfxdir "pldeth05.wav"))
    5959                                   (def_sound (sfxdir "pldeth07.wav")))))
    60                                    
     60
    6161
    6262;; jugger stomp
     
    8080
    8181;; shotgun/laser taking from the lava sample
    82 (def_sound 'ZAP_SND       (sfxdir "zap2.wav")) 
     82(def_sound 'ZAP_SND       (sfxdir "zap2.wav"))
    8383
    8484;; rocket launch sound
     
    9393
    9494;; machine gun hitting the floor, sounds 1 & 2, played randomly
    95 (def_sound    'MG_HIT_SND1 (sfxdir "mghit01.wav"))   
     95(def_sound    'MG_HIT_SND1 (sfxdir "mghit01.wav"))
    9696(def_sound    'MG_HIT_SND2 (sfxdir "mghit02.wav"))
    9797
     
    131131;; electricity shooting up from the ground
    132132(def_sound 'ELECTRIC_SND   (sfxdir "elect02.wav"))
    133  
     133
    134134;; rocket being fired
    135135(def_sound 'ROCKET_SND     (sfxdir "rocket02.wav"))
     
    185185
    186186
    187 (setq AMB_SOUNDS (make-array 17 :initial-contents (list 
     187(setq AMB_SOUNDS (make-array 17 :initial-contents (list
    188188                               (def_sound (sfxdir "ambtech1.wav"))   ;; 0
    189189                               (def_sound (sfxdir "ambtech2.wav"))  ;; 1
     
    205205                               )))
    206206
    207 (setq voice_hints (make-array 12 :initial-contents (list 
     207(setq voice_hints (make-array 12 :initial-contents (list
    208208                                                    (def_sound "sfx/voice/aimsave.wav")
    209209                                                    (def_sound "sfx/voice/ammosave.wav")
     
    238238      T)))
    239239
    240        
    241 (defun ambs_cons () 
     240
     241(defun ambs_cons ()
    242242  (set_xvel 100)  ;; delay time to 100
    243243  (set_yvel 127)) ;; set volume default to 127
    244244
    245 (def_char AMBIENT_SOUND 
     245(def_char AMBIENT_SOUND
    246246  (funs (ai_fun          amb_sound_ai)
    247247        (draw_fun        dev_draw)
     
    250250  (range 500 500)
    251251  (fields ("aitype" amb_num)
    252           ("yvel"   amb_vol)     
     252          ("yvel"   amb_vol)
    253253          ("xvel"   amb_rep)
    254254          ("xacel"  amb_rand))
    255255  (states "art/misc.spe"
    256256          (stopped "sfx_player")))
    257        
     257
    258258(setq song_list '("music/abuse01.hmi" "music/abuse02.hmi"))
    259259(setq current_song song_list)
     
    265265        (break)
    266266        (setq current_song (cdr current_song))
    267         (if (not current_song) 
     267        (if (not current_song)
    268268            (setq current_song song_list))
    269269        (break)
    270270        )))
    271271
    272                                    
     272
    273273(defun level_loaded (name)
    274274  (trace)
Note: See TracChangeset for help on using the changeset viewer.