Changeset 589 for abuse/trunk/data/lisp/ant.lsp
- Timestamp:
- May 7, 2011, 4:06:03 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
abuse/trunk/data/lisp/ant.lsp
r588 r589 2 2 ;; See licensing information for more details on usage rights 3 3 4 (setq ant_tints (make-array 1 1:initial-contents (list4 (setq ant_tints (make-array 13 :initial-contents (list 5 5 (def_tint "art/tints/ant/green.spe") 6 6 (def_tint "art/tints/ant/blue.spe") … … 11 11 (def_tint "art/tints/ant/orange.spe") 12 12 (def_tint "art/tints/ant/gray.spe") 13 (def_tint "art/tints/guns/green.spe") 14 (def_tint "art/tints/ant/darkblue.spe") 13 15 normal_tint 14 16 normal_tint … … 443 445 444 446 447 ;; XXX: Mac Abuse reimplements this in C++ 445 448 (defun ant_draw () 446 449 (if (eq 0 (aitype)) … … 590 593 (list ANT_ROOF AD_1 AD_2 AD_3 AD_4 AD_5 AD_6 AD_7 AD_8 AD_9 AD_10 AD_11 AD_12) 591 594 (list (aref ant_tints 0) (aref ant_tints 1) (aref ant_tints 2) (aref ant_tints 3) 592 (aref ant_tints 4) (aref ant_tints 5) (aref ant_tints 6) (aref ant_tints 7)))) 595 (aref ant_tints 4) (aref ant_tints 5) (aref ant_tints 6) (aref ant_tints 7) 596 (aref ant_tints 8) (aref ant_tints 9) (aref ant_tints 10)))) 593 597 594 598
Note: See TracChangeset
for help on using the changeset viewer.