source: abuse-frabs/trunk/addon/twist/lisp/light.lsp @ 44

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.