Changeset 589 for abuse/trunk/data/lisp/ant.lspTweet

Timestamp:

May 7, 2011, 4:06:03 PM (10 years ago)

Author:

Sam Hocevar

Message:

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

File:

• abuse/trunk/data/lisp/ant.lsp (modified) (4 diffs)

abuse/trunk/data/lisp/ant.lsp

@@ -2 +2 @@
 ;; See licensing information for more details on usage rights
 
-(setq ant_tints (make-array 11 :initial-contents (list
+(setq ant_tints (make-array 13 :initial-contents (list
                                                 (def_tint "art/tints/ant/green.spe")
                                                 (def_tint "art/tints/ant/blue.spe")
@@ -11 +11 @@
                                                 (def_tint "art/tints/ant/orange.spe")
                                                 (def_tint "art/tints/ant/gray.spe")
+                                                (def_tint "art/tints/guns/green.spe")
+                                                (def_tint "art/tints/ant/darkblue.spe")
                                                 normal_tint
                                                 normal_tint
@@ -443 +445 @@
 
 
+;; XXX: Mac Abuse reimplements this in C++
 (defun ant_draw ()
   (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)
    (list (aref ant_tints 0) (aref ant_tints 1) (aref ant_tints 2) (aref ant_tints 3)
-         (aref ant_tints 4) (aref ant_tints 5) (aref ant_tints 6) (aref ant_tints 7))))
+         (aref ant_tints 4) (aref ant_tints 5) (aref ant_tints 6) (aref ant_tints 7)
+         (aref ant_tints 8) (aref ant_tints 9) (aref ant_tints 10))))