source: abuse-mac/trunk/register/powerup.lsp @ 102

Last change on this file since 102 was 102, checked in by Sam Hocevar, 11 years ago
File size: 1.1 KB
Line 
1;; Copyright 1995 Crack dot Com,  All Rights reserved
2;; See licencing information for more details on usage rights
3
4(defun sneaky_power_ai ()
5  (next_picture)
6  (if (touching_bg)
7      (progn
8        (with_object (bg) (setq special_power SNEAKY_POWER))
9        nil)
10    T))
11
12(defun fly_power_ai ()
13  (next_picture)
14  (if (touching_bg)
15      (progn
16        (with_object (bg) (setq special_power FLY_POWER))
17        nil)
18    T))
19
20
21(defun health_power_ai ()
22  (next_picture)
23  (if (touching_bg)
24      (progn
25        (with_object (bg)
26                     (progn
27                       (setq special_power HEALTH_POWER)
28                       (give_player_health 100)))
29        nil)
30    T))
31
32(defun power_fly_cache (type)
33  (list (list CLOUD) (list fly_image)))
34
35(def_char POWER_FLY
36  (funs (ai_fun fly_power_ai)
37        (get_cache_list_fun power_fly_cache))
38  (flags (add_front T))
39  (range 20 20)
40  (states "art/misc.spe" (stopped "fly")))
41
42(def_char POWER_SNEAKY
43  (funs (ai_fun sneaky_power_ai))
44  (flags (add_front T))
45  (range 20 20)
46  (states "art/misc.spe" (stopped "sneaky")))
47
48
49(def_char POWER_HEALTH
50  (funs (ai_fun health_power_ai))
51  (flags (add_front T))
52  (range 20 20)
53  (states "art/misc.spe" (stopped "b_check")))
Note: See TracBrowser for help on using the repository browser.