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

Last change on this file since 102 was 102, checked in by Sam Hocevar, 11 years ago
File size: 1.3 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
19(def_char HEALTH
20  (funs (ai_fun hp_up))
21  (flags (add_front T))
22  (range 0 0)
23  (states "art/ball.spe" (stopped "heart" )))
24
25
26(defun compass_ai ()
27  (if (touching_bg)
28      (progn
29        (with_object (bg) (setq has_compass 1))
30        nil)
31    T))
32
33(def_char COMPASS
34  (funs (ai_fun compass_ai))
35  (flags (add_front T))
36  (range 0 0)
37  (states "art/compass.spe" (stopped "compass" )))
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
50(defun fast_cache (type) (list nil (list fast_image)))
51
52(def_char POWER_FAST
53  (funs (ai_fun fast_ai)
54        (get_cache_list_fun fast_cache))
55  (flags (add_front T))
56  (range 20 20)
57  (states "art/misc.spe" (stopped "fast" )))
58
59
60
61(setq load_warn nil)
62(load "register/powerup.lsp")
63(setq load_warn T)
Note: See TracBrowser for help on using the repository browser.