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

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

@@ -48 +48 @@
       (let ((speed (plat_speed)))
         (let ((newx (- destx (/ (* (- destx sourcex) (xvel)) speed)))
-              (newy (- desty (/ (* (- desty sourcey) (xvel)) speed))))  
+              (newy (- desty (/ (* (- desty sourcey) (xvel)) speed))))
           (progn
             (platform_push (- newx (x)) (- newy (y)))
@@ -57 +57 @@
 (defun platform_ai ()
   (if (or (eq (total_objects) 2)                     ;; no switch to listen to processed as normal
-          (and (eq (total_objects) 3) 
+          (and (eq (total_objects) 3)
                (not (eq (with_object (get_object 2) (aistate)) 0))))  ;; see if switch is active
       (progn
@@ -78 +78 @@
                  (play_sound PLAT_A_SND 127 (x) (y))
                  (set_aitype (- 1 (aitype)))
-                 (set_xvel (plat_speed));; steps to go           
+                 (set_xvel (plat_speed));; steps to go
                  (go_state 3))
-                
+
                 (3 ;; go to dest
-                 (if (eq (xvel) 6) 
+                 (if (eq (xvel) 6)
                      (play_sound PLAT_D_SND 127 (x) (y)))
                  (platform_move (get_object (aitype)) (get_object (- 1 (aitype)))))
@@ -88 +88 @@
     (set_state stopped))
   T)
-                 
 
 
@@ -120 +119 @@
 
 
+