[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Stratagus-CVS] demogame/ccl anim.ccl fonts.ccl stratagus.ccl u...
From: |
Martin Renold |
Subject: |
[Stratagus-CVS] demogame/ccl anim.ccl fonts.ccl stratagus.ccl u... |
Date: |
Wed, 03 Sep 2003 07:23:08 -0400 |
CVSROOT: /cvsroot/stratagus
Module name: demogame
Branch:
Changes by: Martin Renold <address@hidden> 03/09/03 07:23:07
Modified files:
ccl : anim.ccl fonts.ccl stratagus.ccl ui.ccl
units.ccl
ccl/alliance : units.ccl
ccl/mythical : units.ccl
Log message:
merged engine changes into demogame
Patches:
Index: demogame/ccl/alliance/units.ccl
diff -u demogame/ccl/alliance/units.ccl:1.4 demogame/ccl/alliance/units.ccl:1.5
--- demogame/ccl/alliance/units.ccl:1.4 Fri Aug 29 01:38:05 2003
+++ demogame/ccl/alliance/units.ccl Wed Sep 3 07:23:07 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: units.ccl,v 1.4 2003/08/29 05:38:05 martinxyz Exp $
+;; $Id: units.ccl,v 1.5 2003/09/03 11:23:07 martinxyz Exp $
;;=============================================================================
;; Define unit-types.
@@ -129,7 +129,7 @@
'type-land
'can-attack
'can-target-land
- 'can-repair
+ 'repair-range 1
'land-unit
'organic
'selectable-by-rectangle
@@ -577,6 +577,8 @@
'size '(72 72)
'animations 'animations-alliance-transport 'icon 'icon-alliance-transport
'costs '(time 70 gold 600 wood 200 oil 500)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1 oil 1)
'speed 10
'hit-points 150
'draw-level 40
@@ -899,6 +901,8 @@
'size '(64 64)
'animations 'animations-building 'icon 'icon-farm
'costs '(time 100 gold 500 wood 250)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 400
@@ -926,6 +930,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-alliance-barracks
'costs '(time 200 gold 700 wood 450)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 800
@@ -958,6 +964,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-church
'costs '(time 175 gold 900 wood 500)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 700
@@ -984,6 +992,8 @@
'size '(64 64)
'animations 'animations-building 'icon 'icon-alliance-watch-tower
'costs '(time 60 gold 550 wood 200)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 100
@@ -1012,6 +1022,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-stables
'costs '(time 150 gold 1000 wood 300)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 500
@@ -1038,6 +1050,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-inventor
'costs '(time 150 gold 1000 wood 400)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 500
@@ -1064,6 +1078,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-gryphon-aviary
'costs '(time 150 gold 1000 wood 400)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 500
@@ -1090,6 +1106,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-alliance-shipyard
'costs '(time 200 gold 800 wood 450)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-alliance-shipyard
'speed 0
'hit-points 1100
@@ -1118,6 +1136,9 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-elven-lumber-mill
'costs '(time 150 gold 600 wood 450)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
+ 'improve-production '(wood 25)
'construction 'construction-land
'speed 0
'hit-points 600
@@ -1151,6 +1172,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-alliance-foundry
'costs '(time 175 gold 700 wood 400 oil 400)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1 oil 1)
'construction 'construction-alliance-foundry
'speed 0
'hit-points 750
@@ -1178,6 +1201,8 @@
'size '(128 128)
'animations 'animations-building 'icon 'icon-town-hall
'costs '(time 255 gold 1200 wood 800)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 1200
@@ -1215,6 +1240,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-mage-tower
'costs '(time 125 gold 1000 wood 200)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 500
@@ -1241,6 +1268,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-alliance-blacksmith
'costs '(time 200 gold 800 wood 450 oil 100)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1 oil 1)
'construction 'construction-land
'speed 0
'hit-points 775
@@ -1267,6 +1296,9 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-alliance-refinery
'costs '(time 225 gold 800 wood 350 oil 200)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1 oil 1)
+ 'improve-production '(oil 25)
'construction 'construction-alliance-refinery
'speed 0
'hit-points 600
@@ -1323,6 +1355,9 @@
'size '(128 128)
'animations 'animations-building 'icon 'icon-keep
'costs '(time 200 gold 2000 wood 1000 oil 200)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1 oil 1)
+ 'improve-production '(gold 10)
'construction 'construction-land
'speed 0
'hit-points 1400
@@ -1351,6 +1386,9 @@
'size '(128 128)
'animations 'animations-building 'icon 'icon-castle
'costs '(time 200 gold 2500 wood 1200 oil 500)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1 oil 1)
+ 'improve-production '(gold 20)
'construction 'construction-land
'speed 0
'hit-points 1600
@@ -1400,6 +1438,8 @@
'size '(64 64)
'animations 'animations-alliance-guard-tower 'icon 'icon-alliance-guard-tower
'costs '(time 140 gold 500 wood 150)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 130
@@ -1431,6 +1471,8 @@
'size '(64 64)
'animations 'animations-alliance-cannon-tower 'icon
'icon-alliance-cannon-tower
'costs '(time 190 gold 1000 wood 300)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 160
Index: demogame/ccl/anim.ccl
diff -u demogame/ccl/anim.ccl:1.3 demogame/ccl/anim.ccl:1.4
--- demogame/ccl/anim.ccl:1.3 Mon Aug 11 01:57:05 2003
+++ demogame/ccl/anim.ccl Wed Sep 3 07:23:06 2003
@@ -26,28 +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.3 2003/08/11 05:57:05 martinxyz Exp $
-
-;;=============================================================================
-;; Define animations.
-;;
-;; (define-animations ident 'still script 'move script 'die script
-;; 'attack script)
-;;
-;; A script has this format:
-;; (#(Flags Pixel Sleep Frame) (#Flags Pixel Sleep Frame) ...)
-;; o Flags are the sum of the following:
-;; 1 Restart - restart animation
-;; 2 Reset - animation could here be aborted (switch to another)
-;; 4 Sound - play a sound with the animation
-;; 8 Missile - fire a missile at this point
-;; o Pixel is the number of pixels to move (if this is a moving animation)
-;; the sum of a walking animation should be 16 (the tile size in pixels)
-;; o Sleep is the number of frames to wait for the next animation
-;; (this seems to be a way to control the unit speed)
-;; o Frame is the tile position on the image. Usually 5*tilerows.
-;; The engine will add something between 0 and 4 for the heading.
-;;
+;; $Id: anim.ccl,v 1.4 2003/09/03 11:23:06 martinxyz Exp $
;;------
;; Footman, Grunt, Grom Hellscream, Arthor_Literios, Korgath Bladefist
Index: demogame/ccl/fonts.ccl
diff -u demogame/ccl/fonts.ccl:1.1 demogame/ccl/fonts.ccl:1.2
--- demogame/ccl/fonts.ccl:1.1 Sat Jul 26 09:39:14 2003
+++ demogame/ccl/fonts.ccl Wed Sep 3 07:23:07 2003
@@ -26,18 +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: fonts.ccl,v 1.1 2003/07/26 13:39:14 martinxyz Exp $
-
-;;=============================================================================
-;; Define the used fonts.
-;;
-;; (define-font type file size)
-;;
-;; type: type of font, currently supported 'game,'small,'large
-;; 'small-title 'large-title
-;; file: file name for font file, currently only multicolor bitmap
-;; fonts supported.
-;; size: font size width and height.
+;; $Id: fonts.ccl,v 1.2 2003/09/03 11:23:07 martinxyz Exp $
(define-font 'small "graphics/ui/fonts/small.png" 7 6)
(define-font 'game "graphics/ui/fonts/game.png" 13 14)
@@ -45,26 +34,7 @@
(define-font 'small-title "graphics/ui/fonts/large.png" 32 35)
(define-font 'large-title "graphics/ui/fonts/large.png" 52 50)
-;;=============================================================================
-;; Define the font colors.
-;;
-;; (define-font-color color array)
-;;
-;; color: name of the color
-;; array: array of 7 rgb colors #( r1 g1 b1 r2 g2 b2 ...)
-;;
-;; The colors are:
-;; #0 is background color
-;; #1 is the light font color
-;; #2 is the middle (main) font color
-;; #3 is the dark font color
-;; #4 is the font/shadow antialias color
-;; #5 is the dark shadow color
-;; #6 is the light shadow color
-;; #255 is transparent
-;;
;; FIXME: only yellow, white, and grey are correct.
-;;
(define-font-color 'black
#( 0 0 0 ; 0
Index: demogame/ccl/mythical/units.ccl
diff -u demogame/ccl/mythical/units.ccl:1.3 demogame/ccl/mythical/units.ccl:1.4
--- demogame/ccl/mythical/units.ccl:1.3 Fri Aug 29 01:38:05 2003
+++ demogame/ccl/mythical/units.ccl Wed Sep 3 07:23:07 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: units.ccl,v 1.3 2003/08/29 05:38:05 martinxyz Exp $
+;; $Id: units.ccl,v 1.4 2003/09/03 11:23:07 martinxyz Exp $
;;=============================================================================
;; Define unit-types.
@@ -90,7 +90,7 @@
'type-land
'can-attack
'can-target-land
- 'can-repair
+ 'repair-range 1
'land-unit
'organic
'selectable-by-rectangle
@@ -542,6 +542,8 @@
'size '(72 72)
'animations 'animations-alliance-transport 'icon 'icon-mythical-transport
'costs '(time 70 gold 600 wood 200 oil 500)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1 oil 1)
'speed 10
'hit-points 150
'draw-level 40
@@ -952,6 +954,8 @@
'size '(64 64)
'animations 'animations-building 'icon 'icon-pig-farm
'costs '(time 100 gold 500 wood 250)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 400
@@ -979,6 +983,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-mythical-barracks
'costs '(time 200 gold 700 wood 450)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 800
@@ -1005,6 +1011,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-altar-of-storms
'costs '(time 175 gold 900 wood 500)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 700
@@ -1031,6 +1039,8 @@
'size '(64 64)
'animations 'animations-building 'icon 'icon-mythical-watch-tower
'costs '(time 60 gold 550 wood 200)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 100
@@ -1059,6 +1069,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-ogre-mound
'costs '(time 150 gold 1000 wood 300)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 500
@@ -1085,6 +1097,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-alchemist
'costs '(time 150 gold 1000 wood 400)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 500
@@ -1111,6 +1125,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-dragon-roost
'costs '(time 150 gold 1000 wood 400)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 500
@@ -1137,6 +1153,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-mythical-shipyard
'costs '(time 200 gold 800 wood 450)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-mythical-shipyard
'speed 0
'hit-points 1100
@@ -1165,6 +1183,8 @@
'size '(128 128)
'animations 'animations-building 'icon 'icon-great-hall
'costs '(time 255 gold 1200 wood 800)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 1200
@@ -1194,6 +1214,9 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-troll-lumber-mill
'costs '(time 150 gold 600 wood 450)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
+ 'improve-production '(wood 25)
'construction 'construction-land
'speed 0
'hit-points 600
@@ -1221,6 +1244,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-mythical-foundry
'costs '(time 175 gold 700 wood 400 oil 400)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1 oil 1)
'construction 'construction-mythical-foundry
'speed 0
'hit-points 750
@@ -1248,6 +1273,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-temple-of-the-damned
'costs '(time 125 gold 1000 wood 200)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 500
@@ -1274,6 +1301,8 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-mythical-blacksmith
'costs '(time 200 gold 800 wood 450 oil 100)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1 oil 1)
'construction 'construction-land
'speed 0
'hit-points 775
@@ -1300,6 +1329,9 @@
'size '(96 96)
'animations 'animations-building 'icon 'icon-mythical-refinery
'costs '(time 225 gold 800 wood 350 oil 200)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1 oil 1)
+ 'improve-production '(oil 25)
'construction 'construction-mythical-refinery
'speed 0
'hit-points 600
@@ -1356,6 +1388,9 @@
'size '(128 128)
'animations 'animations-building 'icon 'icon-stronghold
'costs '(time 200 gold 2000 wood 1000 oil 200)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1 oil 1)
+ 'improve-production '(gold 10)
'construction 'construction-land
'speed 0
'hit-points 1400
@@ -1384,6 +1419,9 @@
'size '(128 128)
'animations 'animations-building 'icon 'icon-fortress
'costs '(time 200 gold 2500 wood 1200 oil 500)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1 oil 1)
+ 'improve-production '(gold 20)
'construction 'construction-land
'speed 0
'hit-points 1600
@@ -1433,6 +1471,8 @@
'size '(64 64)
'animations 'animations-alliance-guard-tower 'icon 'icon-mythical-guard-tower
'costs '(time 140 gold 500 wood 150)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 130
@@ -1464,6 +1504,8 @@
'size '(64 64)
'animations 'animations-alliance-cannon-tower 'icon
'icon-mythical-cannon-tower
'costs '(time 190 gold 1000 wood 300)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land
'speed 0
'hit-points 160
Index: demogame/ccl/stratagus.ccl
diff -u demogame/ccl/stratagus.ccl:1.3 demogame/ccl/stratagus.ccl:1.4
--- demogame/ccl/stratagus.ccl:1.3 Fri Aug 29 01:38:04 2003
+++ demogame/ccl/stratagus.ccl Wed Sep 3 07:23:07 2003
@@ -26,7 +26,9 @@
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
USA
;;
-;; $Id: stratagus.ccl,v 1.3 2003/08/29 05:38:04 martinxyz Exp $
+;; $Id: stratagus.ccl,v 1.4 2003/09/03 11:23:07 martinxyz Exp $
+
+;; For documentation see stratagus/doc/ccl/ccl.html
(verbose 4)
@@ -101,36 +103,11 @@
;; Comment this, if you use above
;(define play-list (list "music/default.mod"))
-;;-----------------------------------------------------------------------------
-
-;; Set selection style, show what units the user had selected.
-;; #f None
-;; 'rectangle Rectangle around unit
-;; 'circle Circle around unit
-;; 'alpha-rectangle Rectangle with alpha around unit
-;; 'alpha-circle Circle with alpha around unit
-;; 'corners Draw corners of rectangle
-;;
(set-selection-style! 'corners)
-
-;; How the sight range of the selected unit is shown on map.
-;; #f None
-;; 'rectangle Alpha rectangle around unit
-;; 'circle Alpha circle around unit
-;; #t Rectangle around unit
-;;
(set-show-sight-range! #f)
-;(set-show-sight-range! #t)
-;(set-show-sight-range! 'circle)
-;; Enable/disable display of attack range of the selected unit on map.
(set-show-attack-range! #f)
-;(set-show-attack-range! #t)
-
-;; Enable/disable display of reaction range of the selected unit on map.
(set-show-reaction-range! #f)
-;; Enable/disable display of the orders of the selected unit on map.
-;(set-show-orders! #t)
(set-show-orders! 2)
;; Enable/disable the short display of the orders after command.
@@ -164,65 +141,31 @@
;; 'background-long
;; )
-;; Define mana-sprite.
-;;
-;; (mana-sprite file hotx hoty width height)
-;;
-(mana-sprite "graphics/ui/mana.png" 0 -1 31 4)
-
-;; Define health-sprite.
-;;
-;; (mana-sprite file hotx hoty width height)
-;;
-(health-sprite "graphics/ui/health.png" 0 -4 31 4)
+;; file hotx hoty width height
+(mana-sprite "graphics/ui/mana.png" 0 -1 31 4)
+(health-sprite "graphics/ui/health.png" 0 -4 31 4)
-;; Uncomment next, to get a health bar to the left of the unit
;(show-health-bar)
-
-;; Uncomment next, to get a health dot to the left of the unit
+;(show-health-vertical)
+;(show-health-horizontal)
(show-health-dot)
-;; Uncomment next, to get a mana bar to the right of the unit
;(show-mana-bar)
-
-;; Uncomment next, to get a mana dot to the right of the unit
+;(show-mana-vertical)
+;(show-mana-horizontal)
(show-mana-dot)
-;; Uncomment next, to get no full bars or dots.
(show-no-full)
-
-;; Uncomment next, to show always bars or dots.
;(show-full)
-;; Uncomment next, to show health bars vertical.
-;(show-health-vertical)
-
-;; Uncomment next, to show health bars horizontal.
-;(show-health-horizontal)
-
-;; Uncomment next, to show mana bars vertical.
-;(show-mana-vertical)
-;; Uncomment next, to show mana bars horizontal.
-;(show-mana-horizontal)
-
-;; Uncomment next, to show energy bars and dots only for selected units
;(show-energy-selected-only)
;; Uncomment next, to show bars and dots always on top.
;; FIXME: planned feature
(decoration-on-top)
-;; Define shadow-sprite.
-;;
-;; (shadow-sprite file hotx hoty width height)
-;;
(shadow-sprite "graphics/missiles/unit_shadow.png" 3 42 32 32)
-
-;; Define spell-sprite.
-;;
-;; (shadow-sprite file hotx hoty width height)
-;;
(spell-sprite "graphics/ui/bloodlust,haste,slow,invisible,shield.png"
1 1 16 16)
@@ -419,7 +362,7 @@
;;-----------------------------------------------------------------------------
; for the AI
-(a-star 'on 'fixed-unit-cost 1000 'moving-unit-cost 2
'dont-know-unseen-terrain 'unseen-terrain-cost 2)
+(a-star 'on 'fixed-unit-cost 1000 'moving-unit-cost 20
'dont-know-unseen-terrain 'unseen-terrain-cost 2)
;;-----------------------------------------------------------------------------
Index: demogame/ccl/ui.ccl
diff -u demogame/ccl/ui.ccl:1.3 demogame/ccl/ui.ccl:1.4
--- demogame/ccl/ui.ccl:1.3 Fri Aug 8 06:45:03 2003
+++ demogame/ccl/ui.ccl Wed Sep 3 07:23:07 2003
@@ -26,19 +26,10 @@
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
USA
;;
-;; $Id: ui.ccl,v 1.3 2003/08/08 10:45:03 martinxyz Exp $
+;; $Id: ui.ccl,v 1.4 2003/09/03 11:23:07 martinxyz Exp $
(define color-dark-green 149) ; FIXME: move to central position
-;;=============================================================================
-;; Define the user interface
-;;
-;; (define-ui "race" screen-width screen-height
-;;
-;; This defines the position and sizes of the different user
-;; interface sections.
-;;
-
(define (make-ui race screen_width screen_height)
; precalculate ui positions
@@ -101,7 +92,6 @@
(string-append "graphics/ui/" race "/menubutton.png")
minimapx (+ minimapy 148))
- ; Minimap
'minimap-panel (list
(string-append "graphics/ui/" race "/minimap.png")
minimapx minimapy)
@@ -128,7 +118,6 @@
"/filler1.png")
'pos (list fillerx fillery))
- ; Menu buttons
'menu-button (list
'pos (list (+ minimapx 28) (+ minimapy 148))
'size '(128 19)
@@ -215,13 +204,6 @@
(make-ui 'mythical 1280 960)
(make-ui 'mythical 1600 1200)
-
-;;=============================================================================
-;; Define a cursor.
-;;
-;; (define-cursor 'ident 'race 'image "file-path"
-;; 'hotspot ( x y ) 'size ( width height ))
-;;
;; any
(define-cursor 'cursor-glass 'any
Index: demogame/ccl/units.ccl
diff -u demogame/ccl/units.ccl:1.3 demogame/ccl/units.ccl:1.4
--- demogame/ccl/units.ccl:1.3 Fri Aug 29 01:38:04 2003
+++ demogame/ccl/units.ccl Wed Sep 3 07:23:07 2003
@@ -1,4 +1,4 @@
-;; _________ __ __
+;; _________ __ __
;; / _____// |_____________ _/ |______ ____ __ __ ______
;; \_____ \\ __\_ __ \__ \\ __\__ \ / ___\| | \/ ___/
;; / \| | | | \// __ \| | / __ \_/ /_/ > | /\___ \
@@ -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: units.ccl,v 1.3 2003/08/29 05:38:04 martinxyz Exp $
+;; $Id: units.ccl,v 1.4 2003/09/03 11:23:07 martinxyz Exp $
;; Load the animations for the units.
(load "ccl/anim.ccl" #f #t)
@@ -253,6 +253,8 @@
'size '(128 128)
'animations 'animations-building 'icon 'icon-dark-portal
'costs '(time 100 gold 3000 wood 3000 oil 1000)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1 oil 1)
'construction 'construction-land2
'speed 0
'hit-points 5000
@@ -281,6 +283,8 @@
'size '(64 64)
'animations 'animations-building 'icon 'icon-runestone
'costs '(time 175 gold 900 wood 500)
+ 'repair-hp 4
+ 'repair-costs '(gold 1 wood 1)
'construction 'construction-land2
'speed 0
'hit-points 5000
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Stratagus-CVS] demogame/ccl anim.ccl fonts.ccl stratagus.ccl u...,
Martin Renold <=