|
Last change
on this file since 44 was
44,
checked in by Sam Hocevar, 14 years ago
|
- Importing abuse-frabs 2.10.
|
|
File size:
566 bytes
|
| Line | |
|---|
| 1 | ;; Copyright 1999 Profound Corp, All Rights reserved
|
|---|
| 2 | ;; See licensing information for more details on usage rights
|
|---|
| 3 |
|
|---|
| 4 |
|
|---|
| 5 | (defun quick_explo_light ()
|
|---|
| 6 | (select (aistate)
|
|---|
| 7 | (0 (progn (link_light (add_light 0 (x) (y) 1 (aitype) 0 0))
|
|---|
| 8 | (go_state 1)))
|
|---|
| 9 | (1 (if (>= (state_time) 1)
|
|---|
| 10 | (let ((l (get_light 0)))
|
|---|
| 11 | (delete_light l)
|
|---|
| 12 | nil)
|
|---|
| 13 | T))))
|
|---|
| 14 |
|
|---|
| 15 | (def_char QUICK_EXP_LIGHT
|
|---|
| 16 | (funs (ai_fun quick_explo_light)
|
|---|
| 17 | (draw_fun dev_draw))
|
|---|
| 18 | (flags (unlistable T))
|
|---|
| 19 | (range 10000 10000)
|
|---|
| 20 | (states "art/misc.spe"
|
|---|
| 21 | (stopped "lhold"))) |
|---|
Note: See
TracBrowser
for help on using the repository browser.
