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

;; Copyright 1997 Mike Moss (tfirestorm@aol.com),  All Rights reserved
;; See read me for more details on usage rights
;; blah blah yackety smackety

;; New Power Up objects

(defun shlmp_ai () 
  (try_move 0 10)
  (next_picture)
  (if (touching_bg)
        (progn
           (with_object (bg) (make_view_solid (find_rgb 255 255 255)))
           (with_object (bg) (setq special_power SHLAMP))
           (with_object (add_object_after SHLMP2 (x) (y)) (link_object (bg)))
           (with_object (add_object_after WTW (x) (y)) (link_object (bg)))
        nil)
    T))

(def_char SHOULDER_LAMP
  (funs (ai_fun shlmp_ai))
  (range 20 20)
  (states "addon/aliens/aliens.spe" (stopped "shlamp")))

(defun shlmp2_ai ()
   (if (> (total_objects) 0)
      (progn
        (set_x (with_object (get_object 0) (x)))
        (set_y (with_object (get_object 0) (- (y) (/ (picture_height) 2) )))))
   (if (eq (total_lights) 1)
      (progn
        (set_light_x (get_light 0) (x))
        (set_light_y (get_light 0) (y)))
    nil)
  (if (not (eq (with_object (get_object 0) special_power) SHLAMP))
        (progn
        (if (eq (total_lights) 1)
           (delete_light (get_light 0))) nil)
        T))

(defun slamp_cons ()
        (link_light (add_light 0 (x) (y) 1 100 0 0)))

(def_char SHLMP2
  (range 1000 1000)
  (flags (unlistable T))
  (funs  (ai_fun                shlmp2_ai)
         (constructor   slamp_cons)
         (draw_fun              dev_draw))
  (states "art/misc.spe"         
          (stopped           "lhold")))

(def_char WTW
  (range 1000 1000)
  (flags (unlistable T))
  (funs (draw_fun dev_draw))
  (states "art/misc.spe" (stopped "marker")))