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

Last change on this file since 582 was 582, checked in by Sam Hocevar, 10 years ago

data: remove \r and trailing spaces and tabs from all Lisp sources.

File size: 544 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.