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

    r54 r582  
    4848      (let ((speed (plat_speed)))
    4949        (let ((newx (- destx (/ (* (- destx sourcex) (xvel)) speed)))
    50               (newy (- desty (/ (* (- desty sourcey) (xvel)) speed)))) 
     50              (newy (- desty (/ (* (- desty sourcey) (xvel)) speed))))
    5151          (progn
    5252            (platform_push (- newx (x)) (- newy (y)))
     
    5757(defun platform_ai ()
    5858  (if (or (eq (total_objects) 2)                     ;; no switch to listen to processed as normal
    59           (and (eq (total_objects) 3) 
     59          (and (eq (total_objects) 3)
    6060               (not (eq (with_object (get_object 2) (aistate)) 0))))  ;; see if switch is active
    6161      (progn
     
    7878                 (play_sound PLAT_A_SND 127 (x) (y))
    7979                 (set_aitype (- 1 (aitype)))
    80                  (set_xvel (plat_speed));; steps to go           
     80                 (set_xvel (plat_speed));; steps to go
    8181                 (go_state 3))
    82                
     82
    8383                (3 ;; go to dest
    84                  (if (eq (xvel) 6) 
     84                 (if (eq (xvel) 6)
    8585                     (play_sound PLAT_D_SND 127 (x) (y)))
    8686                 (platform_move (get_object (aitype)) (get_object (- 1 (aitype)))))
     
    8888    (set_state stopped))
    8989  T)
    90                  
    9190
    9291
     
    120119
    121120
     121
Note: See TracChangeset for help on using the changeset viewer.