source: abuse-frabs/trunk/addon/leon/lisp/nextlev3.lsp @ 566

Last change on this file since 566 was 566, checked in by Sam Hocevar, 11 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: 916 bytes
Line 
1(defun next_level3_ai ()
2  (if (and (touching_bg) (with_object (bg) (pressing_action_key)))
3      (if (eq (aistate) end_level)
4          (request_end_game)
5        (progn
6          (show_stats)
7          (request_level_load (concatenate 'string "addon/leon/level" (digstr (aistate) 2) ".spe")))))
8  T)
9       
10
11(def_char NEXT_LEVEL3
12  (funs (ai_fun next_level3_ai))
13  (flags (can_block T))
14  (fields ("aistate" next_level))
15  (states "art/misc.spe"
16          (stopped "end_port2")))
17
18(defun sw_endlev_ai ()
19  (if (> (total_objects) 0)
20      (if (eq (with_obj0 (aistate)) 1)
21          (progn
22            (set_state stopped)
23            (if (eq (aistate) end_level)
24          (request_end_game)
25        (progn
26          (show_stats)
27          (request_level_load (concatenate 'string "addon/leon/level" (digstr (aistate) 2) ".spe"))))))) T)
28
29(def_char SW_ENDLEV
30  (funs (ai_fun sw_endlev_ai)
31        (draw_fun dev_draw))
32  (fields ("aistate" next_level))
33  (states "art/misc.spe"
34          (stopped "end_port2")))
Note: See TracBrowser for help on using the repository browser.