source: abuse/trunk/data-frabs/addon/aliens/powerups.lsp @ 582

Last change on this file since 582 was 582, checked in by Sam Hocevar, 10 years ago

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

File size: 1.5 KB
Line 
1;; Copyright 1997 Mike Moss (tfirestorm@aol.com),  All Rights reserved
2;; See read me for more details on usage rights
3;; blah blah yackety smackety
4
5;; New Power Up objects
6
7(defun shlmp_ai ()
8  (try_move 0 10)
9  (next_picture)
10  (if (touching_bg)
11        (progn
12           (with_object (bg) (make_view_solid (find_rgb 255 255 255)))
13           (with_object (bg) (setq special_power SHLAMP))
14           (with_object (add_object_after SHLMP2 (x) (y)) (link_object (bg)))
15           (with_object (add_object_after WTW (x) (y)) (link_object (bg)))
16        nil)
17    T))
18
19(def_char SHOULDER_LAMP
20  (funs (ai_fun shlmp_ai))
21  (range 20 20)
22  (states "addon/aliens/aliens.spe" (stopped "shlamp")))
23
24(defun shlmp2_ai ()
25   (if (> (total_objects) 0)
26      (progn
27        (set_x (with_object (get_object 0) (x)))
28        (set_y (with_object (get_object 0) (- (y) (/ (picture_height) 2) )))))
29   (if (eq (total_lights) 1)
30      (progn
31        (set_light_x (get_light 0) (x))
32        (set_light_y (get_light 0) (y)))
33    nil)
34  (if (not (eq (with_object (get_object 0) special_power) SHLAMP))
35        (progn
36        (if (eq (total_lights) 1)
37           (delete_light (get_light 0))) nil)
38        T))
39
40(defun slamp_cons ()
41        (link_light (add_light 0 (x) (y) 1 100 0 0)))
42
43(def_char SHLMP2
44  (range 1000 1000)
45  (flags (unlistable T))
46  (funs  (ai_fun                shlmp2_ai)
47         (constructor   slamp_cons)
48         (draw_fun              dev_draw))
49  (states "art/misc.spe"
50          (stopped           "lhold")))
51
52(def_char WTW
53  (range 1000 1000)
54  (flags (unlistable T))
55  (funs (draw_fun dev_draw))
56  (states "art/misc.spe" (stopped "marker")))
57
Note: See TracBrowser for help on using the repository browser.