Ignore:
Timestamp:
May 6, 2011, 12:47:14 AM (10 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-abuse/lisp/flyer.lsp

    r54 r582  
    2727          (add_object EXPLODE1 (x) (+ (- (y) (random 20)) -20)                     4)
    2828          nil)
    29       (progn     
     29      (progn
    3030        (if (eq (mod (state_time) 5) 0)      ;; make flyer noise every 5 ticks
    3131            (play_sound FLYER_SND 127 (x) (y)))
     
    6666
    6767        (if (next_picture) T (set_state running))  ;; reset animation when done
    68            
     68
    6969        (bounce_move '(set_xvel (/ (xvel) 2)) '(set_xvel (/ (xvel) 2))
    7070                     '(set_yvel (/ (yvel) 2)) '(set_yvel (/ (yvel) 2)) nil)
    71      
     71
    7272        (if (> fire_time 0)              ;; if we need to wait till next burst
    7373            (progn
    7474              (setq fire_time (- fire_time 1))
    7575              (if (eq fire_time 0)
    76                   (progn 
     76                  (progn
    7777                    (setq burst_left burst_total)
    7878                    (setq burst_wait 0))))
     
    9191                              (setq burst_left (- burst_left 1)))
    9292                            (setq burst_wait burst_delay)
    93                             (fire_object (me) (aitype) firex firey angle (bg)) 
     93                            (fire_object (me) (aitype) firex firey angle (bg))
    9494                            )))))
    95             (setq burst_wait (- burst_wait 1))))               
     95            (setq burst_wait (- burst_wait 1))))
    9696        T))))
    9797
    9898
    9999
    100 (defun flyer_cons ()     
     100(defun flyer_cons ()
    101101  (setq fire_delay 20)
    102102  (setq burst_delay 3)
     
    108108
    109109(defun flyer_damage (amount from hitx hity push_xvel push_yvel)
    110   (if (and from (with_object from (and (> (total_objects) 0) 
    111                                        (with_object (get_object 0) 
     110  (if (and from (with_object from (and (> (total_objects) 0)
     111                                       (with_object (get_object 0)
    112112                                                    (or (eq (otype) FLYER)
    113113                                                        (eq (otype) GREEN_FLYER))
Note: See TracChangeset for help on using the changeset viewer.