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/teleport.lsp

    r54 r582  
    77    (with_object (get_object 0)
    88                 (if (eq (otype) TP_DOOR)
    9                      (if (eq is_opening 0)                       
     9                     (if (eq is_opening 0)
    1010                         (if (and (< (distx) 100) (< (disty) 80))
    1111                             T
     
    3232          (play_sound DOOR_DOWN 127 (x) (y)))
    3333      (set_current_frame (- (current_frame) 1)))))
    34  
     34
    3535
    3636(defun tpd_ai ()     ;; teleporting door ai
     
    4949                (othery (with_object (get_object 0) (y))))
    5050            (with_object (get_object 0) (link_object player))
    51             (with_object player (progn 
    52                                   (set_x otherx) 
     51            (with_object player (progn
     52                                  (set_x otherx)
    5353                                  (set_y othery)))))))
    5454T)
     
    5656
    5757(defun tp_door_cons () (set_xvel -1))
    58 (defun tp_door_draw () (set_ambient_light (bg) (xvel)) (draw))   
     58(defun tp_door_draw () (set_ambient_light (bg) (xvel)) (draw))
    5959
    6060(def_char TP_DOOR
Note: See TracChangeset for help on using the changeset viewer.