source: abuse/trunk/data/lisp/powerup.lsp @ 590

Last change on this file since 590 was 590, checked in by Sam Hocevar, 11 years ago

data: merge registered data into the main data directory.

File size: 2.2 KB
Line 
1;; Copyright 1995 Crack dot Com,  All Rights reserved
2;; See licensing information for more details on usage rights
3
4(defun key_ai () (if (touching_bg)
5                     (progn
6                       (play_sound YEAH_SOUND 127 (x) (y))
7                       nil) T))
8
9(defun hp_up ()
10        (next_picture)
11
12        (if (and (touching_bg) (with_object (bg) (give_player_health 20)))
13           (progn
14             (play_sound HEALTH_UP_SND 127 (x) (y))
15             nil)
16          T))
17
18(def_char HEALTH
19  (funs (ai_fun hp_up))
20  (flags (add_front T))
21  (range 0 0)
22  (states "art/ball.spe" (stopped "heart" )))
23
24
25(defun compass_ai ()
26  (if (touching_bg)
27      (progn
28        (with_object (bg) (setq has_compass 1))
29        nil)
30    T))
31
32(def_char COMPASS
33  (funs (ai_fun compass_ai))
34  (flags (add_front T))
35  (range 0 0)
36  (states "art/compass.spe" (stopped "compass" )))
37
38
39(defun fast_ai ()
40  (next_picture)
41  (if (touching_bg)
42      (progn (with_object (bg)
43                          (progn
44                            (setq special_power FAST_POWER)
45;                           (user_fun SET_FAST_TIME 360)
46                            (make_view_solid (find_rgb 255 255 255))))
47             nil) T))
48
49(defun fast_cache (type) (list nil (list fast_image)))
50
51(def_char POWER_FAST
52  (funs (ai_fun fast_ai)
53        (get_cache_list_fun fast_cache))
54  (flags (add_front T))
55  (range 20 20)
56  (states "art/misc.spe" (stopped "fast" )))
57
58
59(defun sneaky_power_ai ()
60  (next_picture)
61  (if (touching_bg)
62      (progn
63        (with_object (bg) (setq special_power SNEAKY_POWER))
64        nil)
65    T))
66
67(def_char POWER_SNEAKY
68  (funs (ai_fun sneaky_power_ai))
69  (flags (add_front T))
70  (range 20 20)
71  (states "art/misc.spe" (stopped "sneaky")))
72
73
74(defun fly_power_ai ()
75  (next_picture)
76  (if (touching_bg)
77      (progn
78        (with_object (bg) (setq special_power FLY_POWER))
79        nil)
80    T))
81
82(defun power_fly_cache (type)
83  (list (list CLOUD) (list fly_image)))
84
85(def_char POWER_FLY
86  (funs (ai_fun fly_power_ai)
87        (get_cache_list_fun power_fly_cache))
88  (flags (add_front T))
89  (range 20 20)
90  (states "art/misc.spe" (stopped "fly")))
91
92
93(defun health_power_ai ()
94  (next_picture)
95  (if (touching_bg)
96      (progn
97        (with_object (bg)
98                     (progn
99                       (setq special_power HEALTH_POWER)
100                       (give_player_health 100)))
101        nil)
102    T))
103
104(def_char POWER_HEALTH
105  (funs (ai_fun health_power_ai))
106  (flags (add_front T))
107  (range 20 20)
108  (states "art/misc.spe" (stopped "b_check")))
109
Note: See TracBrowser for help on using the repository browser.