Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/data-mac/lisp/doors.lsp

    r102 r582  
    22;; See licensing information for more details on usage rights
    33
    4 (defun general_door_ai (push?) 
     4(defun general_door_ai (push?)
    55  (select (aistate)
    66          (0 (if (> (total_objects) 0)             ; are we linked to a key?
     
    1616                 nil)))
    1717          (1 (if (not (next_picture))              ; wait till open animation finishes
    18                  (progn 
     18                 (progn
    1919                   (set_state stopped)             ; set opened animation
    20                    (go_state 2))))             
     20                   (go_state 2))))
    2121
    2222          (2 (if (> (total_objects) 0)             ; wait till level editor links us to a key
    23                  (progn 
     23                 (progn
    2424                   (set_state blocking)
    2525                   (go_state 0))
     
    4545          (1 ;          opening
    4646           (if (next_picture) nil
    47              (progn 
     47             (progn
    4848               (set_state blocking)
    4949               (set_aistate 2))))
     
    5959               (set_aistate 0))))
    6060          )
    61  
     61
    6262
    6363T)
     
    8383              (bgy (with_object who (y)) (y)))
    8484          (if (and (>= bgy (y)) (<= bgy (+ end_y 20))
    85                    (< (abs (- bgx (x))) xamount))           
     85                   (< (abs (- bgx (x))) xamount))
    8686              (let ((amount (if (> bgx (x))
    8787                                (- xamount (- bgx (x)))
     
    106106        (ff_push (first_focus) 35)))
    107107  T)
    108        
     108
    109109
    110110(defun ff_draw ()
     
    126126  (states "art/misc.spe"
    127127          (stopped "force_field")))
    128        
     128
    129129
    130130(defun hwall_ai ()
    131   (if (or (eq (hp) 0) 
     131  (if (or (eq (hp) 0)
    132132          (and (eq (total_objects) 1)
    133133               (with_object (get_object 0) (not (eq (aistate) 0)))))
     
    140140
    141141(defun big_wall_ai ()
    142   (if (or (eq (hp) 0) 
     142  (if (or (eq (hp) 0)
    143143          (and (eq (total_objects) 1)
    144144               (with_object (get_object 0) (not (eq (aistate) 0)))))
     
    165165      (set_hp 25)))
    166166
    167      
     167
    168168(defun make_hidden_wall_char (name start end ai)
    169169  (eval `(def_char ,name
Note: See TracChangeset for help on using the changeset viewer.