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

    r54 r582  
    22;; See licensing information for more details on usage rights
    33
    4 ; draw function for characters only displayed during edit mode 
     4; draw function for characters only displayed during edit mode
    55; such as start, etc.
    66; (defun dev_draw () (if (edit_mode) (draw) nil))       -- compiled C function --
     
    1111    (draw)
    1212    (set_y y)))
    13        
     13
    1414
    1515
     
    3838    nil)
    3939  T)
    40    
     40
    4141
    4242
     
    4444  (funs  (ai_fun   lhold_ai)
    4545         (draw_fun dev_draw))
    46   (states "art/misc.spe"         
     46  (states "art/misc.spe"
    4747          (stopped           "lhold")))
    4848
    4949
    5050
    51 (def_char OBJ_MOVER 
     51(def_char OBJ_MOVER
    5252  (funs (ai_fun       mover_ai)
    5353        (constructor  mover_cons)
     
    5858  (states "art/misc.spe" (stopped '("mover" "mover" ))))
    5959
    60 /*    Compiled C           
     60/*    Compiled C
    6161(defun mover_ai ()
    6262  (if (eq (total_objects) 2)
    6363      (let ((dest (get_object 0))
    6464            (mover (get_object 1)))
    65         (if (< (aistate) 2)             ; transfer object to next mover       
     65        (if (< (aistate) 2)             ; transfer object to next mover
    6666            (progn
    67               (with_object dest 
     67              (with_object dest
    6868                           (progn
    6969                             (link_object mover)
    7070                             (set_aistate (aitype))))
    7171              (remove_object mover))
    72           (progn             
     72          (progn
    7373            (set_aistate (- (aistate) 1))
    7474            (let ((newx (- (with_object dest (x)) (/ (* (- (with_object dest (x)) (x)) (aistate)) (aitype))))
    7575                  (newy (- (with_object dest (y)) (/ (* (- (with_object dest (y)) (y)) (aistate)) (aitype)))))
    76               (with_object mover 
    77                            (progn 
     76              (with_object mover
     77                           (progn
    7878                             (platform_push (- newx (x)) (- newy (y)))
    7979                             (set_x newx)
     
    9393      (let ((last (get_object (- x 1))))   ; see if the last object has the same position as us
    9494        (if (and (eq (with_object last (x)) (x)) (eq (with_object last (y)) (y)))
    95             (if (eq (aistate) 1)                       
     95            (if (eq (aistate) 1)
    9696                (if (eq (with_object last (fade_count)) 0)
    9797                    (set_aistate 1)
     
    110110
    111111
    112 (defun respwan_cons () (set_xvel 50)) 
     112(defun respwan_cons () (set_xvel 50))
    113113
    114114
    115 (def_char RESPAWN 
     115(def_char RESPAWN
    116116  (funs (ai_fun      respawn_ai)
    117         (draw_fun    dev_draw) 
     117        (draw_fun    dev_draw)
    118118        (constructor respwan_cons))
    119119;  (flags (unlistable T))
Note: See TracChangeset for help on using the changeset viewer.