Changeset 582 for abuse/trunk/data/register/ant.lspTweet

Timestamp:

May 6, 2011, 12:47:14 AM (11 years ago)

Author:

Sam Hocevar

Message:

data: remove \r and trailing spaces and tabs from all Lisp sources.

File:

• abuse/trunk/data/register/ant.lsp (modified) (6 diffs)

abuse/trunk/data/register/ant.lsp

@@ -14 +14 @@
                   (set_aistate 10)        ;; end game
                 (set_aistate 5)))))))         ;; fade out
-    
-(defun boss_cons () 
+
+(defun boss_cons ()
   (set_hp 1)
   (setq taunt_time 20))
@@ -24 +24 @@
         (playerx (+ (with_object (bg) (x)) (with_object (bg) (* (xvel) 8))))
         (playery (+ (- (with_object (bg) (y)) 15) (with_object (bg) (* (yvel) 2)))))
-    
+
     (if (and (can_see (x) (y) firex firey nil) (can_see firex firey playerx playery nil))
         (progn
@@ -90 +90 @@
                   (7;; fade out
                    (set_targetable nil)
-                   (set_fade_count (+ (fade_count) 2))     
+                   (set_fade_count (+ (fade_count) 2))
                    (if (eq (fade_count) 14)
                        (progn
@@ -99 +99 @@
                          (setq taunt_time (- 30 (* (aitype) 2)))
                          (go_state 0))))
-          
-                  (10;; game over         
+
+                  (10;; game over
                    (set_state hiding)
                    (set_targetable nil)
@@ -114 +114 @@
 
           T))))
-           
 
-           
-             
+
+
+
 (def_char BOSS_ANT
   (funs (ai_fun boss_ai)
@@ -127 +127 @@
   (fields ("taunt_time" "taunt_tint")
          ("aistate" "aistate"))
-  (states  "register/boss.spe" 
+  (states  "register/boss.spe"
    (stopped "awlk0001.pcx")
    (hiding  "hidden")