source: abuse/trunk/data/addon/leon/lisp/slavesw.lsp @ 589

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

data: remove exact duplicate Lisp files, merge all main space Lisp files,
and move most frabs addons to the main data directory.

File size: 336 bytes
Line 
1(def_char SWITCH_SLAVE
2  (funs (ai_fun swslave_ai))
3  (states "art/misc.spe"
4          (stopped "0_indicator")
5          (on_state "1_indicator")))
6
7(defun swslave_ai ()
8  (if (> (total_objects) 0)
9      (if (eq (with_obj0 (aistate)) 0)
10          (progn
11            (set_state stopped)
12            (set_aistate 0))
13        (progn
14          (set_state on_state)
15          (set_aistate 1)))) T)
Note: See TracBrowser for help on using the repository browser.