source: abuse-frabs/trunk/addon/twist/lisp/tints.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: 695 bytes
Line 
1;; Copyright 1999 Profound Corp,  All Rights reserved
2;; See licensing information for more details on usage rights
3
4
5(setq man_tints (make-array 11 :initial-contents (list
6                                                 normal_tint
7                                                 (def_tint "art/tints/cop/pinkish.spe")
8                                                 (def_tint "art/tints/cop/olive.spe")
9                                                 (def_tint "art/tints/cop/purple.spe")
10                                                 (def_tint "art/tints/cop/darkblue.spe")
11                                                 (def_tint "art/tints/cop/fire.spe")
12                                                 (def_tint "art/tints/cop/land.spe")
13                                                 (def_tint "art/tints/cop/blue.spe")
14                                                 normal_tint
15                                                 normal_tint
16                                                 normal_tint
17                                                 )))
18
19(defun man_draw ()
20  (if (eq 0 (aitype))
21      (draw)
22    (draw_tint (aref man_tints (aitype)))))
23
Note: See TracBrowser for help on using the repository browser.