source: abuse-frabs/trunk/addon/aliens/objects.lsp @ 44 Tweet

;; In places Copyright 1995 Crack dot Com,  All Rights reserved
;; See licensing information for more details on usage rights
;;
;; Mostly Copyright 1997 Mike Moss (tfirestorm@aol.com),  All Rights reserved
;; See readme for more details on usage rights

;; Code

(setq ani_reg 0)

(defun anim_ai ()
    (if (eq ani_reg 24)
        (set_current_frame 0))
    (if (eq (mod ani_reg 2) 0)
        (next_picture))
T)

(defun water_cons ()
   (set_fade_count 6))

(defun lower_draw ()
   (lower)
   (draw))

(defun lower_drop_draw ()
   (lower)
   (try_move 0 20)
   (draw))

(defun hang_ai () T)

;; Animated Scenery

(def_char WATER
  (vars ani_tick)
  (flags (add_front T))
  (funs (ai_fun anim_ai)
        (constructor water_cons))
  (flags (add_front T))
  (states "addon/aliens/aliens.spe"
        (stopped (seq "wtr" 1 4))))

(def_char WGRILL
  (vars ani_tick)
  (funs (ai_fun anim_ai)
        (draw_fun   lower_draw))
  (states "addon/aliens/aliens.spe"
        (stopped (seq "wgrl" 1 3))))

(def_char WFALL
  (vars ani_tick)
  (funs (ai_fun anim_ai)
        (draw_fun   lower_draw))
  (states "addon/aliens/aliens.spe"
        (stopped (seq "wfal" 1 4))))

(def_char WFALL2
  (vars ani_tick)
  (funs (ai_fun anim_ai)
        (draw_fun   lower_draw))
  (states "addon/aliens/aliens.spe"
        (stopped (seq "wfl2" 1 4))))

;; Still Scenery

(def_char RUNG_B
  (funs (draw_fun   lower_drop_draw))
        (states "addon/aliens/aliens.spe"
         (stopped "rungs.pcx")))

(def_char RUNG_F
  (funs (ai_fun   hang_ai))
  (flags (add_front T))
        (states "addon/aliens/aliens.spe"
         (stopped "rungs.pcx")))