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

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

@@ -2 +2 @@
 ;; See licensing information for more details on usage rights
 
-(defun general_door_ai (push?) 
+(defun general_door_ai (push?)
   (select (aistate)
           (0 (if (> (total_objects) 0)             ; are we linked to a key?
@@ -16 +16 @@
                  nil)))
           (1 (if (not (next_picture))              ; wait till open animation finishes
-                 (progn 
+                 (progn
                    (set_state stopped)             ; set opened animation
-                   (go_state 2))))              
+                   (go_state 2))))
 
           (2 (if (> (total_objects) 0)             ; wait till level editor links us to a key
-                 (progn 
+                 (progn
                    (set_state blocking)
                    (go_state 0))
@@ -45 +45 @@
           (1 ;          opening
            (if (next_picture) nil
-             (progn 
+             (progn
                (set_state blocking)
                (set_aistate 2))))
@@ -59 +59 @@
                (set_aistate 0))))
           )
-  
+
 
 T)
@@ -83 +83 @@
               (bgy (with_object who (y)) (y)))
           (if (and (>= bgy (y)) (<= bgy (+ end_y 20))
-                   (< (abs (- bgx (x))) xamount))            
+                   (< (abs (- bgx (x))) xamount))
               (let ((amount (if (> bgx (x))
                                 (- xamount (- bgx (x)))
@@ -106 +106 @@
         (ff_push (first_focus) 35)))
   T)
-        
+
 
 (defun ff_draw ()
@@ -126 +126 @@
   (states "art/misc.spe"
           (stopped "force_field")))
-        
+
 
 (defun hwall_ai ()
-  (if (or (eq (hp) 0) 
+  (if (or (eq (hp) 0)
           (and (eq (total_objects) 1)
                (with_object (get_object 0) (not (eq (aistate) 0)))))
@@ -140 +140 @@
 
 (defun big_wall_ai ()
-  (if (or (eq (hp) 0) 
+  (if (or (eq (hp) 0)
           (and (eq (total_objects) 1)
                (with_object (get_object 0) (not (eq (aistate) 0)))))
@@ -165 +165 @@
       (set_hp 25)))
 
-      
+
 (defun make_hidden_wall_char (name start end ai)
   (eval `(def_char ,name