|
Last change
on this file since 44 was
44,
checked in by Sam Hocevar, 14 years ago
|
- Importing abuse-frabs 2.10.
|
|
File size:
949 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.
