source: abuse-frabs/trunk/addon/aliens/objects.lsp @ 566

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

data: clean up data packages; remove cache profile data (.cpf), backup
files (.bak, .old), old DOS files (.ini, .386, .mem, .ini, .exe, .cfg)
and remove CRLF endings and trailing spaces from text files.

File size: 1.5 KB
Line 
1;; In places Copyright 1995 Crack dot Com,  All Rights reserved
2;; See licensing information for more details on usage rights
3;;
4;; Mostly Copyright 1997 Mike Moss (tfirestorm@aol.com),  All Rights reserved
5;; See readme for more details on usage rights
6
7;; Code
8
9(setq ani_reg 0)
10
11(defun anim_ai ()
12    (if (eq ani_reg 24)
13        (set_current_frame 0))
14    (if (eq (mod ani_reg 2) 0)
15        (next_picture))
16T)
17
18(defun water_cons ()
19   (set_fade_count 6))
20
21(defun lower_draw ()
22   (lower)
23   (draw))
24
25(defun lower_drop_draw ()
26   (lower)
27   (try_move 0 20)
28   (draw))
29
30(defun hang_ai () T)
31
32;; Animated Scenery
33
34(def_char WATER
35  (vars ani_tick)
36  (flags (add_front T))
37  (funs (ai_fun anim_ai)
38        (constructor water_cons))
39  (flags (add_front T))
40  (states "addon/aliens/aliens.spe"
41        (stopped (seq "wtr" 1 4))))
42
43(def_char WGRILL
44  (vars ani_tick)
45  (funs (ai_fun anim_ai)
46        (draw_fun   lower_draw))
47  (states "addon/aliens/aliens.spe"
48        (stopped (seq "wgrl" 1 3))))
49
50(def_char WFALL
51  (vars ani_tick)
52  (funs (ai_fun anim_ai)
53        (draw_fun   lower_draw))
54  (states "addon/aliens/aliens.spe"
55        (stopped (seq "wfal" 1 4))))
56
57(def_char WFALL2
58  (vars ani_tick)
59  (funs (ai_fun anim_ai)
60        (draw_fun   lower_draw))
61  (states "addon/aliens/aliens.spe"
62        (stopped (seq "wfl2" 1 4))))
63
64;; Still Scenery
65
66(def_char RUNG_B
67  (funs (draw_fun   lower_drop_draw))
68        (states "addon/aliens/aliens.spe"
69         (stopped "rungs.pcx")))
70
71(def_char RUNG_F
72  (funs (ai_fun   hang_ai))
73  (flags (add_front T))
74        (states "addon/aliens/aliens.spe"
75         (stopped "rungs.pcx")))
Note: See TracBrowser for help on using the repository browser.