stratagus-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Stratagus-CVS] stratagus/data/ccl anim.ccl menus.ccl


From: Russell Smith
Subject: [Stratagus-CVS] stratagus/data/ccl anim.ccl menus.ccl
Date: Mon, 27 Oct 2003 04:24:22 -0500

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Russell Smith <address@hidden>  03/10/27 04:24:22

Modified files:
        data/ccl       : anim.ccl menus.ccl 

Log message:
        Remove SDL-feature, and new-ships-feature.  Both of which are not 
used/needed

Patches:
Index: stratagus/data/ccl/anim.ccl
diff -u stratagus/data/ccl/anim.ccl:1.20 stratagus/data/ccl/anim.ccl:1.21
--- stratagus/data/ccl/anim.ccl:1.20    Tue Sep  2 15:23:08 2003
+++ stratagus/data/ccl/anim.ccl Mon Oct 27 04:24:21 2003
@@ -26,7 +26,7 @@
 ;;      along with this program; if not, write to the Free Software
 ;;      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  
USA
 ;;
-;;     $Id: anim.ccl,v 1.20 2003/09/02 19:23:08 martinxyz Exp $
+;;     $Id: anim.ccl,v 1.21 2003/10/27 09:24:21 mr-russ Exp $
 
 ;;------
 ;;     Footman, Grunt, Grom Hellscream, Danath, Korgath Bladefist
@@ -216,36 +216,6 @@
 
 ;;------
 ;;     Kurdan and Sky'ree, Gryphon Rider
-(if (symbol-bound? 'stratagus-feature-new-ships '())
-(define-animations 'animations-kurdan-and-sky-ree
-  'still '(    ; #24
-    #( 2 0   6   0) #( 2 0   6   5) #( 2 0   6  10) #( 3 0   6  15))
-  'move '(     ; #24 P32
-    #( 0 0   1   0) #( 0 2   2   0) #( 0 3   2   0) #( 0 3   2   5)
-    #( 0 2   2   5) #( 0 3   2   5) #( 0 3   2  10) #( 0 2   2  10)
-    #( 0 3   2  10) #( 0 3   2  15) #( 0 2   2  15) #( 0 3   2  15)
-    #( 3 3   1   0))
-  'attack '(   ; #1
-    #( 0 0   6   0) #( 0 0   6   5) #( 0 0   6  10) #( 0 0   6  15)
-    #( 2 0   1  15) #( 0 0   6  20) #( 0 0   6  25) #(12 0   8  30)
-    #( 0 0   6   0) #( 0 0   6   5) #( 0 0   6  10) #( 0 0   6  15)
-    #( 0 0   6   0) #( 0 0   6   5) #( 0 0   6  10) #( 0 0   6  15)
-    #( 0 0   6   0) #( 0 0   6   5) #( 0 0   6  10) #( 0 0   6  15)
-    #( 0 0   6   0) #( 0 0   6   5) #( 0 0   6  10) #( 0 0   6  15)
-    #( 0 0   6   0) #( 0 0   6   5) #( 0 0   6  10) #( 0 0   6  15)
-    #( 0 0   6   0) #( 0 0   6   5) #( 0 0   6  10) #( 0 0   6  15)
-    #( 1 0   1   0) #( 0 0   6   0) #( 0 0   6   5) #( 0 0   6  10)
-    #( 0 0   6  15) #( 2 0   1  15) #(12 0  20  20) #( 0 0   6   0)
-    #( 0 0   6   5) #( 0 0   6  10) #( 0 0   6  15) #( 0 0   6   0)
-    #( 0 0   6   5) #( 0 0   6  10) #( 0 0   6  15) #( 0 0   6   0)
-    #( 0 0   6   5) #( 0 0   6  10) #( 0 0   6  15) #( 0 0   6   0)
-    #( 0 0   6   5) #( 0 0   6  10) #( 0 0   6  15) #( 0 0   6   0)
-    #( 0 0   6   5) #( 0 0   6  10) #( 0 0   6  15) #( 0 0   6   0)
-    #( 0 0   6   5) #( 0 0   6  10) #( 0 0   6  15) #( 1 0   1   0)
-    #( 3 0   1   0))
-  'die '(      ; #31
-    #( 0 0   5  35) #( 0 0   5  40) #( 0 0   5  45) #( 0 0   5  50)
-    #( 0 0   5  55) #( 0 0   5  60) #( 3 0   1  60)))
 (define-animations 'animations-kurdan-and-sky-ree
   'still '(    ; #24
     #( 2 0   6   0) #( 2 0   6   5) #( 2 0   6  10) #( 3 0   6  15))
@@ -273,27 +243,10 @@
     #( 3 0   1   0))
   'die '(      ; #31
     #( 0 0   5  35) #( 0 0   5  40) #( 0 0   5  45) #( 0 0   5  50)
-    #( 0 0   5  55) #( 0 0   5  60) #( 3 0   1  60))))
+    #( 0 0   5  55) #( 0 0   5  60) #( 3 0   1  60)))
 
 ;;------
 ;;     Oil tanker, Oil tanker, Oil tanker, Oil tanker
-(if (symbol-bound? 'stratagus-feature-new-ships '())
-(define-animations 'animations-human-oil-tanker
-  'still '(    ; #5
-    #( 0 0   4   0) #( 3 0   1   0))
-  'move '(     ; #32 P32
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 3 1   1   0))
-  'attack '(   ; #130
-    #(12 0  30   0) #( 0 0  99   0) #( 3 0   1   0))
-  'die '(      ; #101
-    #( 0 0  50   5) #( 0 0  50  10) #( 3 0   1  10)))
 (define-animations 'animations-human-oil-tanker
   'still '(    ; #5
     #( 0 0   4   0) #( 3 0   1   0))
@@ -305,27 +258,10 @@
   'attack '(   ; #130
     #(12 0  30   0) #( 0 0  99   0) #( 3 0   1   0))
   'die '(      ; #101
-    #( 0 0  50   5) #( 0 0  50  10) #( 3 0   1  10))))
+    #( 0 0  50   5) #( 0 0  50  10) #( 3 0   1  10)))
 
 ;;------
 ;;     Transport, Transport
-(if (symbol-bound? 'stratagus-feature-new-ships '())
-(define-animations 'animations-human-transport
-  'still '(    ; #5
-    #( 0 0   4   0) #( 3 0   1   0))
-  'move '(     ; #32 P32
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 3 1   1   0))
-  'attack '(   ; #120
-    #(12 0 119   0) #( 3 0   1   0))
-  'die '(      ; #101
-    #( 0 0  50   5) #( 0 0  50  10) #( 3 0   1  10)))
 (define-animations 'animations-human-transport
   'still '(    ; #5
     #( 0 0   4   0) #( 3 0   1   0))
@@ -337,27 +273,10 @@
   'attack '(   ; #120
     #(12 0 119   0) #( 3 0   1   0))
   'die '(      ; #101
-    #( 0 0  50   5) #( 0 0  50  10) #( 3 0   1  10))))
+    #( 0 0  50   5) #( 0 0  50  10) #( 3 0   1  10)))
 
 ;;------
 ;;     Elven Destroyer, Troll Destroyer
-(if (symbol-bound? 'stratagus-feature-new-ships '())
-(define-animations 'animations-elven-destroyer
-  'still '(    ; #5
-    #( 0 0   4   0) #( 3 0   1   0))
-  'move '(     ; #32 P32
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   1   0) #( 3 1   1   0))
-  'attack '(   ; #120
-    #(12 0 119   0) #( 3 0   1   0))
-  'die '(      ; #101
-    #( 0 0  50   5) #( 0 0  50  10) #( 3 0   1  10)))
 (define-animations 'animations-elven-destroyer
   'still '(    ; #5
     #( 0 0   4   0) #( 3 0   1   0))
@@ -369,27 +288,10 @@
   'attack '(   ; #120
     #(12 0 119   0) #( 3 0   1   0))
   'die '(      ; #101
-    #( 0 0  50   5) #( 0 0  50  10) #( 3 0   1  10))))
+    #( 0 0  50   5) #( 0 0  50  10) #( 3 0   1  10)))
 
 ;;------
 ;;     Battleship, Ogre Juggernaught
-(if (symbol-bound? 'stratagus-feature-new-ships '())
-(define-animations 'animations-battleship
-  'still '(    ; #5
-    #( 0 0   4   0) #( 3 0   1   0))
-  'move '(     ; #53 P32
-    #( 0 1   2   0) #( 0 1   2   0) #( 0 1   1   0) #( 0 1   2   0)
-    #( 0 1   2   0) #( 0 1   1   0) #( 0 1   2   0) #( 0 1   2   0)
-    #( 0 1   1   0) #( 0 1   2   0) #( 0 1   2   0) #( 0 1   1   0)
-    #( 0 1   2   0) #( 0 1   2   0) #( 0 1   1   0) #( 0 1   2   0)
-    #( 0 1   2   0) #( 0 1   1   0) #( 0 1   2   0) #( 0 1   2   0)
-    #( 0 1   1   0) #( 0 1   2   0) #( 0 1   2   0) #( 0 1   1   0)
-    #( 0 1   2   0) #( 0 1   2   0) #( 0 1   1   0) #( 0 1   2   0)
-    #( 0 1   2   0) #( 0 1   1   0) #( 0 1   2   0) #( 3 1   1   0))
-  'attack '(   ; #230
-    #(12 0 127   0) #( 0 0 102   0) #( 3 0   1   0))
-  'die '(      ; #101
-    #( 0 0  50   5) #( 0 0  50  10) #( 3 0   1  10)))
 (define-animations 'animations-battleship
   'still '(    ; #5
     #( 0 0   4   0) #( 3 0   1   0))
@@ -401,31 +303,10 @@
   'attack '(   ; #230
     #(12 0 127   0) #( 0 0 102   0) #( 3 0   1   0))
   'die '(      ; #101
-    #( 0 0  50   5) #( 0 0  50  10) #( 3 0   1  10))))
+    #( 0 0  50   5) #( 0 0  50  10) #( 3 0   1  10)))
 
 ;;------
 ;;     Deathwing, Dragon
-(if (symbol-bound? 'stratagus-feature-new-ships '())
-(define-animations 'animations-deathwing
-  'still '(    ; #24
-    #( 2 0   6   0) #( 2 0   6   5) #( 2 0   6  10) #( 3 0   6  15))
-  'move '(     ; #24 P32
-    #( 0 0   1   0) #( 0 2   2   0) #( 0 3   2   0) #( 0 3   2   5)
-    #( 0 2   2   5) #( 0 3   2   5) #( 0 3   2  10) #( 0 2   2  10)
-    #( 0 3   2  10) #( 0 3   2  15) #( 0 2   2  15) #( 0 3   2  15)
-    #( 3 3   1   0))
-  'attack '(   ; #1
-    #( 0 0   6   0) #( 0 0   6   5) #( 0 0   6  10) #( 0 0   6  15)
-    #( 2 0   1  15) #(12 0  20  20) #( 0 0   6   0) #( 0 0   6   5)
-    #( 0 0   6  10) #( 0 0   6  15) #( 0 0   6   0) #( 0 0   6   5)
-    #( 0 0   6  10) #( 0 0   6  15) #( 0 0   6   0) #( 0 0   6   5)
-    #( 0 0   6  10) #( 0 0   6  15) #( 0 0   6   0) #( 0 0   6   5)
-    #( 0 0   6  10) #( 0 0   6  15) #( 0 0   6   0) #( 0 0   6   5)
-    #( 0 0   6  10) #( 0 0   6  15) #( 0 0   6   0) #( 0 0   6   5)
-    #( 0 0   6  10) #( 0 0   6  15) #( 1 0   1   0) #( 3 0   1   0))
-  'die '(      ; #26
-    #( 0 0   5  25) #( 0 0   5  30) #( 0 0   5  35) #( 0 0   5  40)
-    #( 0 0   5  45) #( 3 0   1  45)))
 (define-animations 'animations-deathwing
   'still '(    ; #24
     #( 2 0   6   0) #( 2 0   6   5) #( 2 0   6  10) #( 3 0   6  15))
@@ -444,28 +325,10 @@
     #( 0 0   6  10) #( 0 0   6  15) #( 1 0   1   0) #( 3 0   1   0))
   'die '(      ; #26
     #( 0 0   5  25) #( 0 0   5  30) #( 0 0   5  35) #( 0 0   5  40)
-    #( 0 0   5  45) #( 3 0   1  45))))
+    #( 0 0   5  45) #( 3 0   1  45)))
 
 ;;------
 ;;     Gnomish Submarine, Giant Turtle
-(if (symbol-bound? 'stratagus-feature-new-ships '())
-(define-animations 'animations-gnomish-submarine
-  'still '(    ; #5
-    #( 0 0   4   0) #( 3 0   1   0))
-  'move '(     ; #43 P32
-    #( 0 1   2   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   2   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   2   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   2   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   2   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   2   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   2   0) #( 0 1   1   0)
-    #( 0 1   1   0) #( 0 1   2   0) #( 0 1   1   0) #( 0 1   1   0)
-    #( 0 1   2   0) #( 0 1   1   0) #( 0 1   1   0) #( 0 1   2   0)
-    #( 0 1   1   0) #( 0 1   1   0) #( 0 1   2   0) #( 3 1   1   0))
-  'attack '(   ; #115
-    #( 0 0  10   5) #( 0 0  25  10) #(12 0  25  10) #( 0 0  25   5)
-    #( 0 0  29   0) #( 3 0   1   0))
-  'die '(      ; #1
-    #( 3 0   1   0)))
 (define-animations 'animations-gnomish-submarine
   'still '(    ; #5
     #( 0 0   4   0) #( 3 0   1   0))
@@ -478,24 +341,10 @@
     #( 0 0  10   5) #( 0 0  25  10) #(12 0  25  10) #( 0 0  25   5)
     #( 0 0  29   0) #( 3 0   1   0))
   'die '(      ; #1
-    #( 3 0   1   0))))
+    #( 3 0   1   0)))
 
 ;;------
 ;;     Gnomish Flying Machine
-(if (symbol-bound? 'stratagus-feature-new-ships '())
-(define-animations 'animations-gnomish-flying-machine
-  'still '(    ; #4
-    #( 2 0   1   0) #( 2 0   1   5) #( 2 0   1   5) #( 3 0   1   0))
-  'move '(     ; #20 P32
-    #( 0 2   1   0) #( 0 1   1   5) #( 0 2   1   5) #( 0 2   1   0)
-    #( 0 1   1   0) #( 0 2   1   5) #( 0 1   1   5) #( 0 2   1   0)
-    #( 0 2   1   0) #( 0 1   1   5) #( 0 2   1   5) #( 0 1   1   0)
-    #( 0 2   1   0) #( 0 2   1   5) #( 0 1   1   5) #( 0 2   1   0)
-    #( 0 1   1   0) #( 0 2   1   5) #( 0 2   1   5) #( 3 1   1   0))
-  'attack '(   ; #1
-    #( 3 0   1   0))
-  'die '(      ; #1
-    #( 3 0   1   0)))
 (define-animations 'animations-gnomish-flying-machine
   'still '(    ; #4
     #( 2 0   1   0) #( 2 0   1   5) #( 2 0   1   5) #( 3 0   1   0))
@@ -506,22 +355,10 @@
   'attack '(   ; #1
     #( 3 0   1   0))
   'die '(      ; #1
-    #( 3 0   1   0))) )
+    #( 3 0   1   0)))
 
 ;;------
 ;;     Goblin Zeppelin
-(if (symbol-bound? 'stratagus-feature-new-ships '())
-(define-animations 'animations-goblin-zeppelin
-  'still '(    ; #5
-    #( 0 0   4   0) #( 3 0   1   0))
-  'move '(     ; #20 P32
-    #( 0 2   1   0) #( 0 1   1   0) #( 0 2   1   0) #( 0 2   1   0)
-    #( 0 1   1   0) #( 0 2   1   0) #( 0 1   1   0) #( 0 2   1   0)
-    #( 0 2   1   0) #( 0 1   1   0) #( 0 2   1   0) #( 0 1   1   0)
-    #( 0 2   1   0) #( 0 2   1   0) #( 0 1   1   0) #( 0 2   1   0)
-    #( 0 1   1   0) #( 0 2   1   0) #( 0 2   1   0) #( 3 1   1   0))
-  'attack '(   ; #1
-    #( 3 0   1   0)))
 (define-animations 'animations-goblin-zeppelin
   'still '(    ; #5
     #( 0 0   4   0) #( 3 0   1   0))
@@ -530,26 +367,17 @@
     #( 0 3   1   0) #( 0 4   1   0) #( 0 3   1   0) #( 0 3   1   0)
     #( 0 3   1   0) #( 3 3   1   0))
   'attack '(   ; #1
-    #( 3 0   1   0))) )
+    #( 3 0   1   0)))
 
 ;;------
 ;;     Eye of Kilrogg
-(if (symbol-bound? 'stratagus-feature-new-ships '())
-(define-animations 'animations-eye-of-vision
-  'still '(    ; #5
-    #( 0 0   4   0) #( 3 0   1   0))
-  'move '(     ; #8 P32
-    #( 0 4   1   0) #( 0 4   1   0) #( 0 4   1   0) #( 0 4   1   0)
-    #( 0 4   1   0) #( 0 4   1   0) #( 0 4   1   0) #( 3 4   1   0))
-  'attack '(   ; #1
-    #( 3 0   1   0)))
 (define-animations 'animations-eye-of-vision
   'still '(    ; #5
     #( 0 0   4   0) #( 3 0   1   0))
   'move '(     ; #4 P32
     #( 0 8   1   0) #( 0 8   1   0) #( 0 8   1   0) #( 3 8   1   0))
   'attack '(   ; #1
-    #( 3 0   1   0))) )
+    #( 3 0   1   0)))
 
 ;;------
 ;;     Skeleton
@@ -569,23 +397,6 @@
 
 ;;------
 ;;     Daemon
-(if (symbol-bound? 'stratagus-feature-new-ships '())
-(define-animations 'animations-daemon
-  'still '(    ; #16
-    #( 2 0   4   0) #( 2 0   4   5) #( 2 0   4  10) #( 3 0   4  15))
-  'move '(     ; #24 P32
-    #( 0 3   2   0) #( 0 2   1   0) #( 0 2   2   5) #( 0 2   2   5)
-    #( 0 2   1   5) #( 0 2   2  10) #( 0 2   1  10) #( 0 3   2  10)
-    #( 0 2   2  15) #( 0 2   1  15) #( 0 2   2  15) #( 0 2   1  20)
-    #( 0 2   2  20) #( 0 2   2  20) #( 3 2   1   0))
-  'attack '(   ; #60
-    #( 0 0   4   0) #( 0 0   4   5) #( 0 0   4  10) #( 0 0   4  15)
-    #( 0 0   4  20) #( 2 0   1  20) #( 0 0   4  25) #( 0 0   4  30)
-    #( 0 0   4  35) #(12 0   4  40) #( 0 0   4  45) #( 1 0   1   0)
-    #(12 0  59   0) #( 3 0   1   0))
-  'die '(      ; #21
-    #( 0 0   5  50) #( 0 0   5  55) #( 0 0   5  60) #( 0 0   5  65)
-    #( 3 0   1  65)))
 (define-animations 'animations-daemon
   'still '(    ; #16
     #( 2 0   4   0) #( 2 0   4   5) #( 2 0   4  10) #( 3 0   4  15))
@@ -600,7 +411,7 @@
     #(12 0  59   0) #( 3 0   1   0))
   'die '(      ; #21
     #( 0 0   5  50) #( 0 0   5  55) #( 0 0   5  60) #( 0 0   5  65)
-    #( 3 0   1  65))) )
+    #( 3 0   1  65)))
 
 ;;------
 ;;     Critter
Index: stratagus/data/ccl/menus.ccl
diff -u stratagus/data/ccl/menus.ccl:1.95 stratagus/data/ccl/menus.ccl:1.96
--- stratagus/data/ccl/menus.ccl:1.95   Fri Oct 17 19:43:51 2003
+++ stratagus/data/ccl/menus.ccl        Mon Oct 27 04:24:21 2003
@@ -26,7 +26,7 @@
 ;;      along with this program; if not, write to the Free Software
 ;;      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  
USA
 ;;
-;;     $Id: menus.ccl,v 1.95 2003/10/17 23:43:51 mohydine Exp $
+;;     $Id: menus.ccl,v 1.96 2003/10/27 09:24:21 mr-russ Exp $
 
 ;;
 ;; load the keystroke helps
@@ -290,7 +290,6 @@
     func replay-game-menu
     style gm-full)
   'menu 'menu-program-start)
-(if (symbol-bound? 'stratagus-feature-sdl ())
 (define-menu-item 'pos (list 208 (+ 109 (* 36 5))) 'font 'large
   'button '(size (224 27)
     caption "~!Options"
@@ -298,15 +297,6 @@
     func global-options-menu
     style gm-full)
   'menu 'menu-program-start)
-(define-menu-item 'pos (list 208 (+ 109 (* 36 5))) 'font 'large
-  'flags '(disabled)
-  'button '(size (224 27)
-    caption "~!Options"
-    hotkey "o"
-    func global-options-menu
-    style gm-full)
-  'menu 'menu-program-start)
-)
 (define-menu-item 'pos (list 208 (+ 109 (* 36 6))) 'font 'large
   'button '(size (224 27)
     caption "~!Editor"




reply via email to

[Prev in Thread] Current Thread [Next in Thread]