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

Last change on this file since 102 was 102, checked in by Sam Hocevar, 11 years ago
File size: 7.2 KB
RevLine 
[102]1;; Copyright 1995 Crack dot Com,  All Rights reserved
2;; See licensing information for more details on usage rights
3
4(defun switcher_ai ()
5  (next_picture)
6  (select (aistate)
7          (0      ; waiting for player to press, then turn to on
8           (if (and (< (distx) 20) (< (disty) 30) (with_object (bg) (pressing_action_key)))
9               (progn
10                 (play_sound SWITCH_SND 127 (x) (y))
11                 (set_state running)             
12                 (set_aistate 1))))
13          (1     ; wait for player to let go of button   
14           (if (not (with_object (bg) (pressing_action_key)))
15               (set_aistate 2)))
16          (2     ; wait for player to press, then turn to off
17           (if (and (< (distx) 20) (< (disty) 30) (with_object (bg) (pressing_action_key)))
18               (progn
19                 (play_sound SWITCH_SND 127 (x) (y))
20                 (set_state stopped)
21                 (set_aistate 4))))     
22           (4     ; wait for player to let go of button
23            (if (not (with_object (bg) (pressing_action_key)))
24                (set_aistate 0)))
25           )
26T)
27             
28
29(defun switch_once_ai ()
30  (select (aistate)
31          (0      ; waiting for player to press, then turn to on
32           (next_picture)
33           (if (and (< (distx) 20) (< (disty) 30) (with_object (bg) (pressing_action_key)))
34               (progn
35                 (print (random 1000))
36                 (play_sound SWITCH_SND 127 (x) (y))
37                 (set_state running)
38                 (set_aistate 1)))))
39  T)
40         
41(defun lower_reload () (lower))   ;; move object below all other objects
42     
43(def_char SWITCH
44  (funs (ai_fun switcher_ai)
45        (reload_fun lower_reload))
46  (range 0 0) 
47  (states "art/misc.spe"
48          (stopped '("switch_off1" "switch_off2"))
49          (running '("switch_on1"  "switch_on2"))))
50
51(def_char SWITCH_ONCE
52  (funs (ai_fun switch_once_ai)
53        (reload_fun lower_reload))
54  (range 0 0) 
55  (states "art/misc.spe"
56          (stopped '("switch_off1" "switch_off2"))
57          (running '("switch_on1"  "switch_on2"))))
58
59
60(defun switch_delay_cons ()
61  (setq reset_time 14))
62
63(def_char SWITCH_DELAY
64  (funs (ai_fun switch_delay_ai)
65        (reload_fun lower_reload)
66        (constructor switch_delay_cons))
67  (vars reset_time)
68  (fields ("reset_time" switch_reset))
69  (range 0 0) 
70  (states "art/misc.spe"
71          (stopped '("switch_off1" "switch_off2"))
72          (running '("switch_on1"  "switch_on2"))))
73
74
75
76(defun switch_delay_ai ()
77  (select (aistate)
78          (0      ; waiting for player to press, then turn to on
79           (next_picture)
80           (if (and (< (distx) 20) (< (disty) 30) (with_object (bg) (pressing_action_key)))
81               (progn
82                 (print (random 1000))
83                 (play_sound SWITCH_SND 127 (x) (y))
84                 (set_state running)
85                 (set_aistate 1))))
86          (1     ; wait for player to let go of button
87           (if (not (with_object (bg) (pressing_action_key)))
88               (set_aistate 2)))
89          (2     ; wait for reset time
90           (if (> (state_time) reset_time)
91               (progn
92                 (play_sound SWITCH_SND 127 (x) (y))
93                 (set_state stopped)
94                 (set_aistate 0)))))
95T)
96
97
98(defun switch_mover_ai ()
99  (if (> (total_objects) 1)
100      (select (aistate)
101              (0 (if (not (eq (with_object (get_object 0) (aistate)) 0))                     
102                     (let ((mex (x))
103                           (mey (y)))
104                       (if (eq (xvel) 0)
105                           (progn
106                             (with_object (get_object 1)
107                                          (progn
108                                            (set_x mex)
109                                            (set_y mey)
110                                            (set_fade_count 15)
111                                            ))
112                             (set_aistate 1)
113                             T)
114                         (with_object (get_object 1)
115                                      (progn
116                                        (set_x mex)
117                                        (set_y mey)
118                                        nil))))
119                   T))
120              (1 (let ((count (with_object (get_object 1) (fade_count))))
121                   (if (equal count 0)
122                       nil
123                     (progn
124                       (with_object (get_object 1) (set_fade_count (- count 1)))
125                       T)))))
126                             
127    nil))
128
129(def_char SWITCH_MOVER
130  (funs (ai_fun   switch_mover_ai)
131        (draw_fun dev_draw))
132  (range 0 0)
133  (states "art/misc.spe" (stopped "switch_mover")))
134
135
136
137(defun sensor_cons ()
138  (set_aitype 1)
139  (add_hp -10))
140 
141
142/* -- compiled code
143(defun sensor_ai ()
144  (if (eq (aistate) 0)
145      (if (and (< (distx) (xvel)) (< (disty) (yvel)))
146          (progn
147            (if (eq (hp) 0)  ;; don't time out
148                (set_aistate 1)
149              (set_aistate (hp)))
150            (set_state blocking))
151        (set_state stopped))
152
153        (if (eq (hp) 0)
154            (if (or (> (distx) (xacel)) (> (disty) (yacel)))       
155                (set_aistate 0))
156          (set_aistate (- (aistate) 1))))
157T) */
158
159(defun sensor_draw ()
160  (if (edit_mode)
161      (progn
162        (draw)
163        (let ((x1 (- (x) (xvel)))
164              (y1 (- (y) (yvel)))
165              (x2 (+ (x) (xvel)))
166              (y2 (+ (y) (yvel)))
167              (c  (find_rgb 0 255 0)))
168          (draw_line x1 y1 x2 y1 c)
169          (draw_line x2 y1 x2 y2 c)
170          (draw_line x2 y2 x1 y2 c)
171          (draw_line x1 y2 x1 y1 c))
172
173        (let ((x1 (- (x) (xacel)))
174              (y1 (- (y) (yacel)))
175              (x2 (+ (x) (xacel)))
176              (y2 (+ (y) (yacel)))
177              (c  (find_rgb 255 0 0)))
178          (draw_line x1 y1 x2 y1 c)
179          (draw_line x2 y1 x2 y2 c)
180          (draw_line x2 y2 x1 y2 c)
181          (draw_line x1 y2 x1 y1 c)))
182
183
184    nil))
185
186(defun sensor_ct ()
187  (select (aitype)
188          (1 (set_xvel 50)
189             (set_yvel 50)
190             (set_xacel 100)
191             (set_yacel 100))
192          (2 (set_xvel 50)
193             (set_yvel 30)
194             (set_xacel 100)
195             (set_yacel 50))
196          (3 (set_xvel 50)
197             (set_yvel 15)
198             (set_xacel 100)
199             (set_yacel 30))))
200
201(def_char SENSOR
202  (range 100 100)
203  (funs (ai_fun      sensor_ai)
204        (draw_fun    sensor_draw)
205        (type_change_fun sensor_ct)
206        (constructor sensor_cons))
207  (vars unoffable)
208  (fields ("xvel"        sens_onxd)
209           ("yvel"       sens_onyd)
210           ("xacel"      sens_offxd)
211           ("yacel"      sens_offyd)
212           ("hp"         sens_reset)
213           ("unoffable"  sens_unoff)
214           ("aistate"    sens_cs))
215  (states "art/misc.spe"
216          (stopped "off")
217          (blocking "on")))
218                   
219/*
220(defun sensor_linker_ai ()
221  (if (eq (aistate) 0)
222      (if (and (< (distx) (xvel)) (< (disty) (yvel)))
223          (progn
224            (if (eq (hp) 0)  ;; don't time out
225                (set_aistate 1)
226              (set_aistate (hp)))
227            (set_state blocking))
228        (set_state stopped))
229
230    (if (eq (hp) 0)
231        (if (or (> (distx) (xacel)) (> (disty) (yacel)))           
232            (set_aistate 0))
233      (set_aistate (- (aistate) 1)))))
234
235
236
237(def_char SENSOR_LINKER
238  (range 100 100)
239  (funs (ai_fun sensor_linker_ai)
240        (draw_fun sensor_draw)
241        (constructor sensor_cons))
242  (vars offable)
243  (fields  ("xvel"      sens_onxd)
244           ("yvel"      sens_onyd)
245           ("xacel"     sens_offxd)
246           ("yacel"     sens_offyd)
247           ("hp"        sens_reset)
248           ("unoffable" sens_unoff)
249           ("aistate"   sens_cs))
250  (states "art/misc.spe"
251          (stopped "off")
252          (blocking "on")))
253 
254*/
255
256(defun dead_object (current)
257  (if (>= current 0)
258      (let ((st (with_object (get_object current) (state))))
259        (if (or (eq st dead) (eq st blown_back_dead))
260            (let ((dead_guy (get_object current)))           
261              (remove_object (get_object current))
262              dead_guy)
263          (dead_object (- current 1))))
264    nil))
265
266(defun death_re_ai ()
267  (if (> (total_objects) 1)
268      (let ((find (dead_object (- (total_objects) 1))))
269        (if find
270            (add_object (with_object (get_object 0) (otype))
271                        (with_object find (x))
272                        (with_object find (y))))))
273                         
274  T)
275
276(def_char  DEATH_RESPAWNER
277  (range 50 50)
278  (funs (ai_fun      death_re_ai)
279        (draw_fun    dev_draw))
280  (states "art/misc.spe"
281          (stopped "death_respawn")))
282
283
284(defun death_sen_ai ()
285  (if (eq (total_objects) 0)
286      (progn
287        (set_state running)
288        (set_aistate 1))
289    (if (with_object (get_object 0) (or (eq (state) dead) (eq (state) blown_back_dead)))
290        (remove_object (get_object 0))))
291  T)
292
293(def_char  DEATH_SENSOR
294  (range 50 50)
295  (funs (ai_fun      death_sen_ai)
296        (draw_fun    dev_draw))
297  (states "art/misc.spe"
298          (stopped "death_sensor0")
299          (running "death_sensor1")))
300
301
Note: See TracBrowser for help on using the repository browser.