Changeset 582 for abuse/trunk/data-abuse/lisp/flyer.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/flyer.lsp (modified) (4 diffs)

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

@@ -27 +27 @@
           (add_object EXPLODE1 (x) (+ (- (y) (random 20)) -20)                     4)
           nil)
-      (progn      
+      (progn
         (if (eq (mod (state_time) 5) 0)      ;; make flyer noise every 5 ticks
             (play_sound FLYER_SND 127 (x) (y)))
@@ -66 +66 @@
 
         (if (next_picture) T (set_state running))  ;; reset animation when done
-            
+
         (bounce_move '(set_xvel (/ (xvel) 2)) '(set_xvel (/ (xvel) 2))
                      '(set_yvel (/ (yvel) 2)) '(set_yvel (/ (yvel) 2)) nil)
-      
+
         (if (> fire_time 0)              ;; if we need to wait till next burst
             (progn
               (setq fire_time (- fire_time 1))
               (if (eq fire_time 0)
-                  (progn 
+                  (progn
                     (setq burst_left burst_total)
                     (setq burst_wait 0))))
@@ -91 +91 @@
                               (setq burst_left (- burst_left 1)))
                             (setq burst_wait burst_delay)
-                            (fire_object (me) (aitype) firex firey angle (bg)) 
+                            (fire_object (me) (aitype) firex firey angle (bg))
                             )))))
-            (setq burst_wait (- burst_wait 1))))                
+            (setq burst_wait (- burst_wait 1))))
         T))))
 
 
 
-(defun flyer_cons ()      
+(defun flyer_cons ()
   (setq fire_delay 20)
   (setq burst_delay 3)
@@ -108 +108 @@
 
 (defun flyer_damage (amount from hitx hity push_xvel push_yvel)
-  (if (and from (with_object from (and (> (total_objects) 0) 
-                                       (with_object (get_object 0) 
+  (if (and from (with_object from (and (> (total_objects) 0)
+                                       (with_object (get_object 0)
                                                     (or (eq (otype) FLYER)
                                                         (eq (otype) GREEN_FLYER))