[Stratagus-CVS] demogame/ccl stratagus.ccl units.ccl alliance/u...

[Martin Renold]

CVSROOT:        /cvsroot/stratagus
Module name:    demogame
Branch:         
Changes by:     Martin Renold <address@hidden>  03/08/29 01:38:05

Modified files:
        ccl            : stratagus.ccl units.ccl 
        ccl/alliance   : units.ccl 
        ccl/mythical   : units.ccl 

Log message:
        merged engine changes

Patches:
Index: demogame/ccl/alliance/units.ccl
diff -u demogame/ccl/alliance/units.ccl:1.3 demogame/ccl/alliance/units.ccl:1.4
--- demogame/ccl/alliance/units.ccl:1.3 Mon Aug 11 01:57:05 2003
+++ demogame/ccl/alliance/units.ccl     Fri Aug 29 01:38:05 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/11 05:57:05 martinxyz Exp $
+;;     $Id: units.ccl,v 1.4 2003/08/29 05:38:05 martinxyz Exp $
 
 ;;=============================================================================
 ;;     Define unit-types.
@@ -146,9 +146,9 @@
   'files '(tileset-summer "alliance/units/peasant.png")
   'right-harvest
   'harvester 'resource-harvested 'gold 'resource-capacity 100
-  'wait-at-resource 150 'wait-at-depot 150
+  'resource-step 10 'wait-at-resource 150 'wait-at-depot 150
   'transform-when-loaded 'unit-peasant-with-gold
-  'cower-worker
+  'coward
   'add-buttons (lambda () (peasant-buttons nil))
   ) peasant-common-args))
 
@@ -157,9 +157,9 @@
   'files '(tileset-summer "alliance/units/peasant-with-gold.png")
   'right-harvest
   'harvester 'resource-harvested 'gold 'resource-capacity 100
-  'wait-at-resource 150 'wait-at-depot 150
+  'resource-step 10 'wait-at-resource 150 'wait-at-depot 150
   'transform-when-empty 'unit-peasant
-  'cower-worker
+  'coward
   'add-buttons (lambda () (peasant-buttons 't))
   ) peasant-common-args))
 
@@ -167,7 +167,7 @@
   'unit-peasant-with-wood
   'files '(tileset-summer "alliance/units/peasant-with-wood.png")
   'right-harvest
-  'cower-worker
+  'coward
   'add-buttons (lambda () (peasant-buttons 't))
   ) peasant-common-args))
 
@@ -298,7 +298,7 @@
   'can-attack
   'can-target-land 'can-target-sea 'can-target-air
   'land-unit
-  'cower-mage
+  'coward
   'can-cast-spell
   'organic
   'selectable-by-rectangle
@@ -495,7 +495,7 @@
   'can-attack
   'can-target-land 'can-target-sea 'can-target-air
   'land-unit
-  'cower-mage
+  'coward
   'can-cast-spell
   'organic
   'selectable-by-rectangle
@@ -528,7 +528,7 @@
   'corpse '(unit-dead-body 12)
   'type-naval
   'right-harvest
-  'sea-unit
+  'sea-unit 'coward
   'harvester 'resource-harvested 'oil 'resource-capacity 100
   'wait-at-resource 100 'wait-at-depot 100
   'transform-when-loaded 'unit-alliance-oil-tanker-full
@@ -559,7 +559,7 @@
   'corpse '(unit-dead-body 12)
   'type-naval
   'right-harvest
-  'sea-unit
+  'sea-unit 'coward
   'harvester 'resource-harvested 'oil 'resource-capacity 100
   'wait-at-resource 100 'wait-at-depot 100
   'transform-when-empty 'unit-alliance-oil-tanker
@@ -715,7 +715,7 @@
   'demand 1
   'type-fly
   'right-move
-  'air-unit
+  'air-unit 'coward
   'can-see-submarine
   'selectable-by-rectangle
   'sounds '(
@@ -904,14 +904,14 @@
   'hit-points 400
   'draw-level 20
   'tile-size '(2 2) 'box-size '(63 63)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 20 'annoy-computer-factor 45
   'points 100
   'supply 4
   'corpse '(unit-destroyed-2x2-place 0)
   'type-land
-  'building
+  'building 'builder-outside
   'sounds '(
     selected "farm-selected"
     acknowledge "farm-acknowledge"
@@ -963,13 +963,13 @@
   'hit-points 700
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 15 'annoy-computer-factor 35
   'points 240
   'corpse '(unit-destroyed-3x3-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "church-selected"
     acknowledge "church-acknowledge"
@@ -996,7 +996,7 @@
   'corpse '(unit-destroyed-2x2-place 0)
   'type-land
   'can-target-land 'can-target-sea 'can-target-air
-  'building
+  'building 
   'can-see-submarine
   'sounds '(
     selected "alliance-watch-tower-selected"
@@ -1017,13 +1017,13 @@
   'hit-points 500
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 15 'annoy-computer-factor 15
   'points 210
   'corpse '(unit-destroyed-3x3-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "stables-selected"
     acknowledge "stables-acknowledge"
@@ -1043,13 +1043,13 @@
   'hit-points 500
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 15 'annoy-computer-factor 20
   'points 230
   'corpse '(unit-destroyed-3x3-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "inventor-selected"
     acknowledge "inventor-acknowledge"
@@ -1069,13 +1069,13 @@
   'hit-points 500
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 15 'annoy-computer-factor 20
   'points 280
   'corpse '(unit-destroyed-3x3-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "gryphon-aviary-selected"
     acknowledge "gryphon-aviary-acknowledge"
@@ -1095,13 +1095,13 @@
   'hit-points 1100
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 30 'annoy-computer-factor 20
   'points 170
   'corpse '(unit-destroyed-3x3-place 3)
   'type-land
-  'building
+  'building 
   'shore-building
   'can-store '(oil)
   'sounds '(
@@ -1123,13 +1123,13 @@
   'hit-points 600
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 25 'annoy-computer-factor 15
   'points 150
   'corpse '(unit-destroyed-3x3-place 0)
   'type-land
-  'building
+  'building 
   'can-store '(wood)
   'add-buttons (lambda ()
     (if (check-allowed 'upgrade-ranger) 
@@ -1156,13 +1156,13 @@
   'hit-points 750
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 15 'annoy-computer-factor 20
   'points 200
   'corpse '(unit-destroyed-3x3-place 3)
   'type-land
-  'building
+  'building 
   'shore-building
   'sounds '(
     selected "alliance-foundry-selected"
@@ -1183,14 +1183,14 @@
   'hit-points 1200
   'draw-level 20
   'tile-size '(4 4) 'box-size '(126 126)
-  'sight-range 4
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 35 'annoy-computer-factor 45
   'points 200
   'supply 1
   'corpse '(unit-destroyed-4x4-place 0)
   'type-land
-  'building
+  'building 
   'can-store '(wood gold)
   'add-buttons (lambda ()
     ; just a test
@@ -1220,13 +1220,13 @@
   'hit-points 500
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 35 'annoy-computer-factor 20
   'points 240
   'corpse '(unit-destroyed-3x3-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "mage-tower-selected"
     acknowledge "mage-tower-acknowledge"
@@ -1246,13 +1246,13 @@
   'hit-points 775
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 15 'annoy-computer-factor 20
   'points 170
   'corpse '(unit-destroyed-3x3-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "alliance-blacksmith-selected"
     acknowledge "alliance-blacksmith-acknowledge"
@@ -1272,13 +1272,13 @@
   'hit-points 600
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 25 'annoy-computer-factor 20
   'points 200
   'corpse '(unit-destroyed-3x3-place 3)
   'type-land
-  'building
+  'building 
   'shore-building
   'can-store '(oil)
   'sounds '(
@@ -1300,13 +1300,13 @@
   'hit-points 650
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 20 'annoy-computer-factor 20
   'points 160
   'corpse '(unit-destroyed-3x3-place 3)
   'type-naval
-  'building
+  'building 
   'must-build-on-top 'unit-oil-patch
   'gives-resource 'oil 'can-harvest
   'sounds '(
@@ -1328,14 +1328,14 @@
   'hit-points 1400
   'draw-level 20
   'tile-size '(4 4) 'box-size '(127 127)
-  'sight-range 6
+  'sight-range 3
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 37 'annoy-computer-factor 40
   'points 600
   'supply 1
   'corpse '(unit-destroyed-4x4-place 0)
   'type-land
-  'building
+  'building 
   'can-store '(gold wood)
   'sounds '(
     selected "keep-selected"
@@ -1356,14 +1356,14 @@
   'hit-points 1600
   'draw-level 20
   'tile-size '(4 4) 'box-size '(127 127)
-  'sight-range 9
+  'sight-range 6
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 40 'annoy-computer-factor 50
   'points 1500
   'supply 1
   'corpse '(unit-destroyed-4x4-place 0)
   'type-land
-  'building
+  'building 
   'can-store '(gold wood)
   'sounds '(
     selected "castle-selected"
@@ -1414,7 +1414,7 @@
   'type-land
   'can-attack
   'can-target-land 'can-target-sea 'can-target-air
-  'building
+  'building 
   'can-see-submarine
   'tower
   'sounds '(
@@ -1445,7 +1445,7 @@
   'type-land
   'can-attack
   'can-target-land 'can-target-sea
-  'building
+  'building 
   'can-see-submarine
   'tower
   'sounds '(
@@ -1474,7 +1474,7 @@
   'points 1
   'corpse '(unit-destroyed-1x1-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "alliance-wall-selected"
     acknowledge "alliance-wall-acknowledge"
Index: demogame/ccl/mythical/units.ccl
diff -u demogame/ccl/mythical/units.ccl:1.2 demogame/ccl/mythical/units.ccl:1.3
--- demogame/ccl/mythical/units.ccl:1.2 Mon Aug 11 01:57:05 2003
+++ demogame/ccl/mythical/units.ccl     Fri Aug 29 01:38:05 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.2 2003/08/11 05:57:05 martinxyz Exp $
+;;     $Id: units.ccl,v 1.3 2003/08/29 05:38:05 martinxyz Exp $
 
 ;;=============================================================================
 ;;     Define unit-types.
@@ -110,7 +110,7 @@
   'harvester 'resource-harvested 'gold 'resource-capacity 100
   'wait-at-resource 150 'wait-at-depot 150
   'transform-when-loaded 'unit-peon-with-gold
-  'cower-worker
+  'coward
   'add-buttons (lambda () (faun-buttons nil))
   ) faun-common-args))
 
@@ -121,7 +121,7 @@
   'harvester 'resource-harvested 'gold 'resource-capacity 100
   'wait-at-resource 150 'wait-at-depot 150
   'transform-when-empty 'unit-peon
-  'cower-worker
+  'coward
   'add-buttons (lambda () (faun-buttons 't))
   ) faun-common-args))
 
@@ -129,7 +129,7 @@
   'unit-peon-with-wood
   'files '(tileset-summer "mythical/units/faun-with-wood.png")
   'right-harvest
-  'cower-worker
+  'coward
   'add-buttons (lambda () (faun-buttons 't))
   ) faun-common-args))
 
@@ -258,7 +258,7 @@
   'can-attack
   'can-target-land 'can-target-sea 'can-target-air
   'land-unit
-  'cower-mage
+  'coward
   'isundead
   'can-cast-spell
   'organic
@@ -392,7 +392,7 @@
   'can-attack
   'can-target-land 'can-target-sea 'can-target-air
   'land-unit
-  'cower-mage
+  'coward
   'isundead
   'can-cast-spell
   'organic
@@ -493,7 +493,7 @@
   'corpse '(unit-dead-body 12)
   'type-naval
   'right-harvest
-  'sea-unit
+  'sea-unit 'coward
   'harvester 'resource-harvested 'oil 'resource-capacity 100
   'wait-at-resource 100 'wait-at-depot 100
   'transform-when-loaded 'unit-mythical-oil-tanker-full
@@ -524,7 +524,7 @@
   'corpse '(unit-dead-body 12)
   'type-naval
   'right-harvest
-  'sea-unit
+  'sea-unit 'coward
   'harvester 'resource-harvested 'oil 'resource-capacity 100
   'wait-at-resource 100 'wait-at-depot 100
   'transform-when-empty 'unit-mythical-oil-tanker
@@ -711,7 +711,7 @@
   'demand 1
   'type-fly
   'right-move
-  'air-unit
+  'air-unit 'coward
   'can-see-submarine
   'selectable-by-rectangle
   'sounds '(
@@ -957,14 +957,14 @@
   'hit-points 400
   'draw-level 20
   'tile-size '(2 2) 'box-size '(63 63)
-  'sight-range 3
+  'sight-range 2
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 20 'annoy-computer-factor 45
   'points 100
   'supply 4
   'corpse '(unit-destroyed-2x2-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "pig-farm-selected"
     acknowledge "pig-farm-acknowledge"
@@ -984,13 +984,13 @@
   'hit-points 800
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 30 'annoy-computer-factor 35
   'points 160
   'corpse '(unit-destroyed-3x3-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "mythical-barracks-selected"
     acknowledge "mythical-barracks-acknowledge"
@@ -1010,13 +1010,13 @@
   'hit-points 700
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 15 'annoy-computer-factor 35
   'points 240
   'corpse '(unit-destroyed-3x3-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "altar-of-storms-selected"
     acknowledge "altar-of-storms-acknowledge"
@@ -1043,7 +1043,7 @@
   'corpse '(unit-destroyed-2x2-place 0)
   'type-land
   'can-target-land 'can-target-sea 'can-target-air
-  'building
+  'building 
   'can-see-submarine
   'sounds '(
     selected "mythical-watch-tower-selected"
@@ -1064,13 +1064,13 @@
   'hit-points 500
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 15 'annoy-computer-factor 15
   'points 210
   'corpse '(unit-destroyed-3x3-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "ogre-mound-selected"
     acknowledge "ogre-mound-acknowledge"
@@ -1090,13 +1090,13 @@
   'hit-points 500
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 15 'annoy-computer-factor 20
   'points 230
   'corpse '(unit-destroyed-3x3-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "alchemist-selected"
     acknowledge "alchemist-acknowledge"
@@ -1116,13 +1116,13 @@
   'hit-points 500
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 15 'annoy-computer-factor 20
   'points 280
   'corpse '(unit-destroyed-3x3-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "dragon-roost-selected"
     acknowledge "dragon-roost-acknowledge"
@@ -1142,13 +1142,13 @@
   'hit-points 1100
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 30 'annoy-computer-factor 20
   'points 170
   'corpse '(unit-destroyed-3x3-place 3)
   'type-land
-  'building
+  'building 
   'shore-building
   'can-store '(oil)
   'sounds '(
@@ -1170,14 +1170,15 @@
   'hit-points 1200
   'draw-level 20
   'tile-size '(4 4) 'box-size '(127 127)
-  'sight-range 4
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 35 'annoy-computer-factor 45
   'points 200
   'supply 1
   'corpse '(unit-destroyed-4x4-place 0)
   'type-land
-  'building
+  'building 
+  'builder-outside
   'can-store '(gold wood)
   'sounds '(
     selected "great-hall-selected"
@@ -1198,13 +1199,13 @@
   'hit-points 600
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 25 'annoy-computer-factor 15
   'points 150
   'corpse '(unit-destroyed-3x3-place 0)
   'type-land
-  'building
+  'building 
   'can-store '(wood)
   'sounds '(
     selected "troll-lumber-mill-selected"
@@ -1225,13 +1226,13 @@
   'hit-points 750
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 15 'annoy-computer-factor 20
   'points 200
   'corpse '(unit-destroyed-3x3-place 3)
   'type-land
-  'building
+  'building 
   'shore-building
   'sounds '(
     selected "mythical-foundry-selected"
@@ -1252,13 +1253,13 @@
   'hit-points 500
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 35 'annoy-computer-factor 20
   'points 240
   'corpse '(unit-destroyed-3x3-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "temple-of-the-damned-selected"
     acknowledge "temple-of-the-damned-acknowledge"
@@ -1278,13 +1279,13 @@
   'hit-points 775
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 15 'annoy-computer-factor 20
   'points 170
   'corpse '(unit-destroyed-3x3-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "mythical-blacksmith-selected"
     acknowledge "mythical-blacksmith-acknowledge"
@@ -1304,13 +1305,13 @@
   'hit-points 600
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 25 'annoy-computer-factor 20
   'points 200
   'corpse '(unit-destroyed-3x3-place 3)
   'type-land
-  'building
+  'building 
   'shore-building
   'can-store '(oil)
   'sounds '(
@@ -1332,13 +1333,13 @@
   'hit-points 650
   'draw-level 20
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 20 'annoy-computer-factor 20
   'points 160
   'corpse '(unit-destroyed-3x3-place 3)
   'type-naval
-  'building
+  'building 
   'must-build-on-top 'unit-oil-patch
   'gives-resource 'oil 'can-harvest
   'sounds '(
@@ -1360,14 +1361,14 @@
   'hit-points 1400
   'draw-level 20
   'tile-size '(4 4) 'box-size '(127 127)
-  'sight-range 6
+  'sight-range 2
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 37 'annoy-computer-factor 40
   'points 600
   'supply 1
   'corpse '(unit-destroyed-4x4-place 0)
   'type-land
-  'building
+  'building 
   'can-store '(gold wood)
   'sounds '(
     selected "stronghold-selected"
@@ -1388,14 +1389,14 @@
   'hit-points 1600
   'draw-level 20
   'tile-size '(4 4) 'box-size '(127 127)
-  'sight-range 9
+  'sight-range 6
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 40 'annoy-computer-factor 50
   'points 1500
   'supply 1
   'corpse '(unit-destroyed-4x4-place 0)
   'type-land
-  'building
+  'building 
   'can-store '(gold wood)
   'sounds '(
     selected "fortress-selected"
@@ -1446,7 +1447,7 @@
   'type-land
   'can-attack
   'can-target-land 'can-target-sea 'can-target-air
-  'building
+  'building 
   'can-see-submarine
   'tower
   'sounds '(
@@ -1477,7 +1478,7 @@
   'type-land
   'can-attack
   'can-target-land 'can-target-sea
-  'building
+  'building 
   'can-see-submarine
   'tower
   'sounds '(
@@ -1505,7 +1506,7 @@
   'points 1
   'corpse '(unit-destroyed-1x1-place 0)
   'type-land
-  'building
+  'building 
   'sounds '(
     selected "mythical-wall-selected"
     acknowledge "mythical-wall-acknowledge"
Index: demogame/ccl/stratagus.ccl
diff -u demogame/ccl/stratagus.ccl:1.2 demogame/ccl/stratagus.ccl:1.3
--- demogame/ccl/stratagus.ccl:1.2      Wed Aug 13 10:39:17 2003
+++ demogame/ccl/stratagus.ccl  Fri Aug 29 01:38:04 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: stratagus.ccl,v 1.2 2003/08/13 14:39:17 martinxyz Exp $
+;;     $Id: stratagus.ccl,v 1.3 2003/08/29 05:38:04 martinxyz Exp $
 
 (verbose 4)
 
@@ -73,6 +73,7 @@
 
 ;;     FIXME: documentation
 (set-game-name! "demogame")
+(set-default-map! "puds/default.pud")
 
 ;;-----------------------------------------------------------------------------
 ;;     Music play list -       Insert your titles here
@@ -120,7 +121,7 @@
 ;;
 (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)
Index: demogame/ccl/units.ccl
diff -u demogame/ccl/units.ccl:1.2 demogame/ccl/units.ccl:1.3
--- demogame/ccl/units.ccl:1.2  Mon Aug 11 01:57:05 2003
+++ demogame/ccl/units.ccl      Fri Aug 29 01:38:04 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.2 2003/08/11 05:57:05 martinxyz Exp $
+;;     $Id: units.ccl,v 1.3 2003/08/29 05:38:04 martinxyz Exp $
 
 ;; Load the animations for the units.
 (load "ccl/anim.ccl" #f #t)
@@ -188,7 +188,7 @@
   'hit-points 25500
   'draw-level 40
   'tile-size '(3 3) 'box-size '(95 95)
-  'sight-range 3
+  'sight-range 1
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 0
   'corpse '(unit-destroyed-3x3-place 0)
@@ -264,7 +264,7 @@
   'priority 0
   'corpse '(unit-destroyed-4x4-place 0)
   'type-land
-  'building
+  'building 'builder-outside
   'can-cast-spell
   'teleporter
   'sounds '(
@@ -293,7 +293,7 @@
   'points 150
   'corpse '(unit-destroyed-2x2-place 0)
   'type-land
-  'building
+  'building 'builder-outside
   'can-cast-spell
   'sounds '(
     selected "runestone-selected"