|
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.
