Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/data/lisp/ant.lsp

    r588 r589  
    22;; See licensing information for more details on usage rights
    33
    4 (setq ant_tints (make-array 11 :initial-contents (list
     4(setq ant_tints (make-array 13 :initial-contents (list
    55                                                (def_tint "art/tints/ant/green.spe")
    66                                                (def_tint "art/tints/ant/blue.spe")
     
    1111                                                (def_tint "art/tints/ant/orange.spe")
    1212                                                (def_tint "art/tints/ant/gray.spe")
     13                                                (def_tint "art/tints/guns/green.spe")
     14                                                (def_tint "art/tints/ant/darkblue.spe")
    1315                                                normal_tint
    1416                                                normal_tint
     
    443445
    444446
     447;; XXX: Mac Abuse reimplements this in C++
    445448(defun ant_draw ()
    446449  (if (eq 0 (aitype))
     
    590593   (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)
    591594   (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))))
    593597
    594598
Note: See TracChangeset for help on using the changeset viewer.