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

Legend:

Unmodified
Added
Removed
  • abuse/trunk/data/register/ant.lsp

    r54 r582  
    1414                  (set_aistate 10)        ;; end game
    1515                (set_aistate 5)))))))         ;; fade out
    16    
    17 (defun boss_cons () 
     16
     17(defun boss_cons ()
    1818  (set_hp 1)
    1919  (setq taunt_time 20))
     
    2424        (playerx (+ (with_object (bg) (x)) (with_object (bg) (* (xvel) 8))))
    2525        (playery (+ (- (with_object (bg) (y)) 15) (with_object (bg) (* (yvel) 2)))))
    26    
     26
    2727    (if (and (can_see (x) (y) firex firey nil) (can_see firex firey playerx playery nil))
    2828        (progn
     
    9090                  (7;; fade out
    9191                   (set_targetable nil)
    92                    (set_fade_count (+ (fade_count) 2))     
     92                   (set_fade_count (+ (fade_count) 2))
    9393                   (if (eq (fade_count) 14)
    9494                       (progn
     
    9999                         (setq taunt_time (- 30 (* (aitype) 2)))
    100100                         (go_state 0))))
    101          
    102                   (10;; game over         
     101
     102                  (10;; game over
    103103                   (set_state hiding)
    104104                   (set_targetable nil)
     
    114114
    115115          T))))
    116            
    117116
    118            
    119              
     117
     118
     119
    120120(def_char BOSS_ANT
    121121  (funs (ai_fun boss_ai)
     
    127127  (fields ("taunt_time" "taunt_tint")
    128128         ("aistate" "aistate"))
    129   (states  "register/boss.spe" 
     129  (states  "register/boss.spe"
    130130   (stopped "awlk0001.pcx")
    131131   (hiding  "hidden")
Note: See TracChangeset for help on using the changeset viewer.