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

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

@@ -7 +7 @@
     (with_object (get_object 0)
                  (if (eq (otype) TP_DOOR)
-                     (if (eq is_opening 0)                       
+                     (if (eq is_opening 0)
                          (if (and (< (distx) 100) (< (disty) 80))
                              T
@@ -32 +32 @@
           (play_sound DOOR_DOWN 127 (x) (y)))
       (set_current_frame (- (current_frame) 1)))))
-  
+
 
 (defun tpd_ai ()     ;; teleporting door ai
@@ -49 +49 @@
                 (othery (with_object (get_object 0) (y))))
             (with_object (get_object 0) (link_object player))
-            (with_object player (progn 
-                                  (set_x otherx) 
+            (with_object player (progn
+                                  (set_x otherx)
                                   (set_y othery)))))))
 T)
@@ -56 +56 @@
 
 (defun tp_door_cons () (set_xvel -1))
-(defun tp_door_draw () (set_ambient_light (bg) (xvel)) (draw))   
+(defun tp_door_draw () (set_ambient_light (bg) (xvel)) (draw))
 
 (def_char TP_DOOR