stratagus-cvs
[Top][All Lists]
Advanced

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

[Stratagus-CVS] stratagus/doc/ccl ai.html config.html game.html...


From: Martin Renold
Subject: [Stratagus-CVS] stratagus/doc/ccl ai.html config.html game.html...
Date: Wed, 10 Sep 2003 11:33:44 -0400

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Martin Renold <address@hidden>  03/09/10 11:33:44

Modified files:
        doc/ccl        : ai.html config.html game.html icon.html 
                         research.html sound.html tileset.html 
                         triggers.html ui.html unittype.html 

Log message:
        docu updates

Patches:
Index: stratagus/doc/ccl/ai.html
diff -u stratagus/doc/ccl/ai.html:1.13 stratagus/doc/ccl/ai.html:1.14
--- stratagus/doc/ccl/ai.html:1.13      Tue Sep  2 15:23:08 2003
+++ stratagus/doc/ccl/ai.html   Wed Sep 10 11:33:43 2003
@@ -110,13 +110,12 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Defines the passive computer AI, which does nothing.
 (define-ai "wc2-passive" "*" "passive"
   '((ai:sleep  10000)
   (ai:restart) ))
 </pre>
 
-<p>Defines the passive computer AI, which does nothing.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBARYPATH/ccl/ai.ccl </a>
@@ -278,20 +277,20 @@
 <h4>Example</h4>
 
 <pre>
+    ;; FIXME:
 FIXME:
     (define-ai-player (list ...))
 </pre>
 
-<p>FIXME:
-
 <h4>Not Used</h4>
 
 <a name="define-ai-wc-names"></a>
-<h3>(define-ai-wc-names (list ...))</h3>
+<h3>(define-ai-wc-names 'land-attack 'passive ... )</h3>
 
 Define AI mapping from original number to internal symbol.
 
 
+
 <dl>
 <dt></dt>
 <dd>
@@ -301,12 +300,17 @@
 <h4>Example</h4>
 
 <pre>
-FIXME:
-    (define-ai-wc-names (list ...))
+    (define-ai-wc-names
+      'land-attack 'passive 'orc-03 'hum-04 'orc-04 'hum-05 'orc-05
+      'hum-06 'orc-06 'hum-07 'orc-07 'hum-08 'orc-08 'hum-09 'orc-09
+      'hum-10 'orc-10 'hum-11 'orc-11 'hum-12 'orc-12 'hum-13 'orc-13
+      'hum-14-orange 'orc-14-blue 'sea-attack 'air-attack 'hum-14-red
+      'hum-14-white 'hum-14-black 'orc-14-green 'orc-14-white 'orc-exp-04
+      'orc-exp-05 'orc-exp-07a 'orc-exp-09 'orc-exp-10 'orc-exp-12 'orc-exp-06a
+      'orc-exp-06b 'orc-exp-11a 'orc-exp-11b 'hum-exp-02a-red 
'hum-exp-02b-black
+      ...
 </pre>
 
-<p>FIXME:
-
 <h4>Not Used</h4>
 
 <a name="ai:attack-with-force"></a>
@@ -330,14 +334,13 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Force 0 is built with one footman. The script continues processing, if 
the
+    ;; footman is ready trained. Now attack the opponent with force 0.
     (ai:force 0 'unit-footman 1)
     (ai:wait-force 0)
     (ai:attack-with-force 0)
 </pre>
 
-<p>Force 0 is built with one footman. The script continues processing, if the
-footman is ready trained. Now attack the opponent with force 0.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBARYPATH/ccl/ai.ccl </a>
@@ -358,13 +361,12 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Force 0 is build with one footman. When the force is ready, sleep for
+    ;; 500 frames.
     (ai:force 0 'unit-footman 1)
     (if (ai:check-force 0) (ai:sleep 500))
 </pre>
 
-<p>Force 0 is build with one footman. When the force is ready, sleep for
-500 frames.
-
 <h4>Not Used</h4>
 
 <a name="ai:debug"></a>
@@ -382,11 +384,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Prints now the commands of this computer player.
     (ai:debug #t)
 </pre>
 
-<p>Prints now the commands of this computer player.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBARYPATH/ccl/ai.ccl </a>
@@ -400,11 +401,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Prints out some debug information.
     (ai:dump)
 </pre>
 
-<p>Prints out some debug information.
-
 <h4>Not Used</h4>
 
 <a name="ai:force"></a>
@@ -445,13 +445,12 @@
 <h4>Example</h4>
 
 <pre>
+    ;; First the force 0 is filled up with 4 footmans and 5 bowmans, after this
+    ;; force 1 is filled with 3 footmans and 2 bowmans.
     (ai:force 0 'unit-footman 4 'unit-bowman 5)
     (ai:force 1 'unit-footman 3 'unit-bowman 2)
 </pre>
 
-<p>First the force 0 is filled up with 4 footmans and 5 bowmans, after this
-force 1 is filled with 3 footmans and 2 bowmans.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBARYPATH/ccl/ai.ccl </a>
@@ -475,11 +474,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Sets the role of force 0 to attack.
     (ai:force-role 0 'attack)
 </pre>
 
-<p>Sets the role of force 0 to attack.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBARYPATH/ccl/ai.ccl </a>
@@ -493,11 +491,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Returns the race name of the current AI player.
     (ai:get-race)
 </pre>
 
-<p>Returns the race name of the current AI player.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBARYPATH/ccl/ai.ccl </a>
@@ -511,11 +508,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Returns the number of cycles to sleep.
     (ai:get-sleep-cycles)
 </pre>
 
-<p>Returns the number of cycles to sleep.
-
 <h4>Not Used</h4>
 
 <a name="ai:need"></a>
@@ -538,12 +534,11 @@
 <h4>Example</h4>
 
 <pre>
+    ;; The great hall must be build before a barrack.
   (ai:need (unit-type 'unit-great-hall))
   (ai:need (unit-type 'unit-barrack))
 </pre>
 
-<p>The great hall must be build before a barrack.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBARYPATH/ccl/ai.ccl </a>
@@ -557,11 +552,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Returns the player of the running AI.
     (ai:player)
 </pre>
 
-<p>Returns the player of the running AI.
-
 <h4>Not Used</h4>
 
 <a name="ai:research"></a>
@@ -582,11 +576,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Research a better armor for land units.
     (ai:research 'upgrade-shield1)
 </pre>
 
-<p>Research a better armor for land units.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBARYPATH/ccl/ai.ccl </a>
@@ -601,13 +594,12 @@
 <h4>Example</h4>
 
 <pre>
+    ;; A endless script doing nothing.
 (define-ai "passive" "*" "passive"
   '( (ai:sleep   10000)
      (ai:restart) ))
 </pre>
 
-<p>A endless script doing nothing.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBARYPATH/ccl/ai.ccl </a>
@@ -628,15 +620,14 @@
 <h4>Example</h4>
 
 <pre>
+    ;; An example with a for ever loop. Wait for force 1 ready (all units 
trained),
+    ;; than attack with the force 1. This is done endless.
 (define attack-endloop
   '((ai:with-force 1)
     (ai:attack-with-force 1)
     (ai:script attack-endloop) ))
 </pre>
 
-<p>An example with a for ever loop. Wait for force 1 ready (all units trained),
-than attack with the force 1. This is done endless.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBARYPATH/ccl/ai.ccl </a>
@@ -666,11 +657,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Request two peons.
     (ai:set 'unit-peon 2)
 </pre>
 
-<p>Request two peons.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBARYPATH/ccl/ai.ccl </a>
@@ -708,11 +698,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Set the collect percent to 50% gold and 50% wood.
     (ai:set-collect! #(0  50 50 0  0 0 0))
 </pre>
 
-<p>Set the collect percent to 50% gold and 50% wood.
-
 <h4>Not Used</h4>
 
 <a name="ai:set-reserve!"></a>
@@ -748,11 +737,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Set all of the reserves to 0.
     (ai:set-reserve! #( 0  0 0 0  0 0 0))
 </pre>
 
-<p>Set all of the reserves to 0.
-
 <h4>Not Used</h4>
 
 <a name="ai:sleep"></a>
@@ -770,11 +758,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Wait 500 frames ~16s.
     (ai:sleep 500)
 </pre>
 
-<p>Wait 500 frames ~16s.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBARYPATH/ccl/ai.ccl </a>
@@ -796,11 +783,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Upgrade a town-hall to keep.
     (ai:upgrade-to 'unit-keep)
 </pre>
 
-<p>Upgrade a town-hall to keep.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBARYPATH/ccl/ai.ccl </a>
@@ -821,12 +807,11 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Proceed only if a peasant is ready.
     (ai:need 'unit-peasant)
     (ai:wait 'unit-peasant)
 </pre>
 
-<p>Proceed only if a peasant is ready.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBARYPATH/ccl/ai.ccl </a>
@@ -848,13 +833,12 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Force 0 is build with one footman. The script continues processing, if 
the
+    ;; footman is ready trained.
     (ai:force 0 'unit-footman 1)
     (ai:wait-force 0)
 </pre>
 
-<p>Force 0 is build with one footman. The script continues processing, if the
-footman is ready trained.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBARYPATH/ccl/ai.ccl </a>
@@ -892,7 +876,7 @@
 FIXME: need some complex examples.
 
 <hr>
-Last changed: $Id: ai.html,v 1.13 2003/09/02 19:23:08 martinxyz Exp $<br>
+Last changed: $Id: ai.html,v 1.14 2003/09/10 15:33:43 martinxyz Exp $<br>
 All trademarks and copyrights on this page are owned by their respective 
owners.
 <address>(c) 2002-2003 by <a href="http://stratagus.org";>
 The Stratagus Project</a></address></body></html>
Index: stratagus/doc/ccl/config.html
diff -u stratagus/doc/ccl/config.html:1.21 stratagus/doc/ccl/config.html:1.22
--- stratagus/doc/ccl/config.html:1.21  Tue Sep  2 15:23:08 2003
+++ stratagus/doc/ccl/config.html       Wed Sep 10 11:33:43 2003
@@ -171,11 +171,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Use alpha style fog of war.
     (alpha-fog-of-war)
 </pre>
 
-<p>Use alpha style fog of war.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -191,9 +190,6 @@
 <pre>
     (decoration-on-top)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -223,9 +219,6 @@
 <pre>
     (health-sprite "graphics/ui/health2.png" 0 -4 31 4)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -264,11 +257,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Use original style fog of war.
     (original-fog-of-war)
 </pre>
 
-<p>Use original style fog of war.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -284,9 +276,6 @@
 <pre>
     (reveal-map)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -302,9 +291,6 @@
 <pre>
     (right-button-attacks)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -320,9 +306,6 @@
 <pre>
     (right-button-moves)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -344,9 +327,6 @@
 <pre>
     (set-all-players-building-limit! 200)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -368,9 +348,6 @@
 <pre>
     (set-all-players-food-unit-limit! 200)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -392,9 +369,6 @@
 <pre>
     (set-all-players-total-unit-limit! 400)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -415,11 +389,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; This is the default brightness. A little lighter than the original.
     (set-brightness! 15)
 </pre>
 
-<p>This is the default brightness. A little lighter than the original.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -441,9 +414,6 @@
 <pre>
     (set-building-capture! #f)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -467,9 +437,6 @@
 <pre>
     (set-burn-buildings! 25 2)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -490,11 +457,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; This is the default, all images are color cycled.
     (set-color-cycle-all! #t)
 </pre>
 
-<p>This is the default, all images are color cycled.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -515,11 +481,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; This is the default contrast. A little more than the original.
     (set-contrast! 110)
 </pre>
 
-<p>This is the default contrast. A little more than the original.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -541,9 +506,6 @@
 <pre>
     (set-double-click-delay! 300)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -563,11 +525,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Use "icon-human-patrol-land" for the editor's select icon.
     (set-editor-select-icon! 'icon-human-patrol-land)
 </pre>
 
-<p>Use "icon-human-patrol-land" for the editor's select icon.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/editor.ccl"> $LIBARYPATH/ccl/editor.ccl </a>
@@ -587,11 +548,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Use "icon-footman" for the editor's units icon.
     (set-editor-units-icon! 'unit-footman)
 </pre>
 
-<p>Use "icon-footman" for the editor's units icon.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/editor.ccl"> $LIBARYPATH/ccl/editor.ccl </a>
@@ -613,9 +573,6 @@
 <pre>
     (set-fancy-buildings! #t)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -637,9 +594,6 @@
 <pre>
     (set-fog-of-war! #t)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -661,9 +615,6 @@
 <pre>
     (set-fog-of-war-brightness! 10)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -685,9 +636,6 @@
 <pre>
     (set-fog-of-war-contrast! 30)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -709,9 +657,6 @@
 <pre>
     (set-fog-of-war-saturation! 100)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -733,9 +678,6 @@
 <pre>
     (set-forest-regeneration! 0)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -756,13 +698,12 @@
 <h4>Example</h4>
 
 <pre>
+    ;; The first example disables using depleted mines.  The second example 
lets
+    ;; players mine depleted mines and gives them 20% of the default amount of 
gold.
     (set-goldmine-depleted! 0)
     (set-goldmine-depleted! 20)
 </pre>
 
-<p>The first example disables using depleted mines.  The second example lets
-players mine depleted mines and gives them 20% of the default amount of gold.
-
 <h4>Not Used</h4>
 
 <a name="set-grab-mouse!"></a>
@@ -782,9 +723,6 @@
 <pre>
     (set-grab-mouse! #f)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -806,9 +744,6 @@
 <pre>
     (set-hitpoint-regeneration! #f)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -830,9 +765,6 @@
 <pre>
     (set-hold-click-delay! 1000)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -854,9 +786,6 @@
 <pre>
     (set-key-scroll! #t)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -878,9 +807,6 @@
 <pre>
     (set-key-scroll-speed! 1)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -902,9 +828,6 @@
 <pre>
     (set-leave-stops! #t)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -925,11 +848,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; This is the default menu background displayed.
     (set-menu-background! "graphics/ui/Menu background without title.png")
 </pre>
 
-<p>This is the default menu background displayed.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -950,11 +872,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; This is the default menu background with title displayed.
     (set-menu-background-with-title! "graphics/ui/Menu background with 
title.png")
 </pre>
 
-<p>This is the default menu background with title displayed.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -976,9 +897,6 @@
 <pre>
     (set-minimap-terrain! #t)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1000,9 +918,6 @@
 <pre>
     (set-mouse-adjust! 15)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1024,9 +939,6 @@
 <pre>
     (set-mouse-scale! 1)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1048,9 +960,6 @@
 <pre>
     (set-mouse-scroll! #t)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1072,9 +981,6 @@
 <pre>
     (set-mouse-scroll-speed! 1)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1096,9 +1002,6 @@
 <pre>
     (set-original-resources! #f)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1120,9 +1023,6 @@
 <pre>
     (set-reveal-attacker! #f)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1144,9 +1044,6 @@
 <pre>
     (set-reverse-map-move! #f)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1167,11 +1064,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; This is the default saturation.
     (set-saturation! 100)
 </pre>
 
-<p>This is the default saturation.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1241,9 +1137,6 @@
 <pre>
     (set-show-command-key! #t)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1285,9 +1178,6 @@
 <pre>
     (set-show-reaction-reaction-range! #f)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1313,9 +1203,6 @@
 <pre>
     (set-show-sight-range! #f)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1337,9 +1224,6 @@
 <pre>
     (set-show-tips! #t)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1361,9 +1245,6 @@
 <pre>
     (set-speed-build! 10)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1385,9 +1266,6 @@
 <pre>
     (set-speed-research! 10)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1410,11 +1288,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Speeds up gold mining time by a factor of 10.
     (set-speed-resources-harvest! 'gold 10)
 </pre>
 
-<p>Speeds up gold mining time by a factor of 10.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1437,11 +1314,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Speeds up the time spent returning gold by a factor of 10.
     (set-speed-resources-return! 'gold 10)
 </pre>
 
-<p>Speeds up the time spent returning gold by a factor of 10.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1463,9 +1339,6 @@
 <pre>
     (set-speed-train! 10)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1487,9 +1360,6 @@
 <pre>
     (set-speed-upgrade! 10)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1511,9 +1381,6 @@
 <pre>
     (set-speeds! 1)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1534,11 +1401,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; This is the default title displayed.
     (set-title-screen! "graphics/ui/stratagus.png")
 </pre>
 
-<p>This is the default title displayed.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1560,9 +1426,6 @@
 <pre>
     (set-training-queue! #t)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1584,9 +1447,6 @@
 <pre>
     (set-xp-damage! #f)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1631,9 +1491,6 @@
 <pre>
     (show-energy-selected-only)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -1718,7 +1575,7 @@
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
 
 <hr>
-Last changed: $Id: config.html,v 1.21 2003/09/02 19:23:08 martinxyz Exp $<br>
+Last changed: $Id: config.html,v 1.22 2003/09/10 15:33:43 martinxyz Exp $<br>
 All trademarks and copyrights on this page are owned by their respective 
owners.
 <address>(c) 2002-2003 by <a href="http://stratagus.org";>
 The Stratagus Project</a></address></body></html>
Index: stratagus/doc/ccl/game.html
diff -u stratagus/doc/ccl/game.html:1.29 stratagus/doc/ccl/game.html:1.30
--- stratagus/doc/ccl/game.html:1.29    Tue Sep  2 15:23:08 2003
+++ stratagus/doc/ccl/game.html Wed Sep 10 11:33:43 2003
@@ -128,9 +128,6 @@
 <pre>
     (add-keystroke-help)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -150,11 +147,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Adds the message.
     (add-message "This is a message")
 </pre>
 
-<p>Adds the message.
-
 <h4>Not Used</h4>
 
 <a name="add-objective"></a>
@@ -174,13 +170,12 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Adds the objective text "-Build a barracks" to the end of the objectives
+    ;; list and adds the objective "-Destroy all enemies" to the first 
position.
     (add-objective "-Build a barracks")
     (add-objective "-Destroy all enemies" 0)
 </pre>
 
-<p>Adds the objective text "-Build a barracks" to the end of the objectives
-list and adds the objective "-Destroy all enemies" to the first position.
-
 <h4>Not Used</h4>
 
 <a name="add-tip"></a>
@@ -201,8 +196,6 @@
     (add-tip "You can demolish trees and rocks.")
 </pre>
 
-<p>Adds the tip.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/tips.ccl"> $LIBARYPATH/ccl/tips.ccl </a>
@@ -225,8 +218,6 @@
     (briefing)
 </pre>
 
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -249,11 +240,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Centers the current viewport at tile 17x40.
     (center-map 17 40)
 </pre>
 
-<p>Centers the current viewport at tile 17x40.
-
 <h4>Not Used</h4>
 
 <a name="change-units-owner"></a>
@@ -280,12 +270,11 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Changes the owner to player 2 for all units owned by player 3,
+    ;; that are located in the area (0,0)-(10,10).
     (change-units-owner '(0 0) '(10 10) 3 2)
 </pre>
 
-<p>Changes the owner to player 2 for all units owned by player 3,
-that are located in the area (0,0)-(10,10).
-
 <h4>Not Used</h4>
 
 <a name="create-unit"></a>
@@ -313,11 +302,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Creates a footman for player 2 at location 31x34.
     (create-unit 'unit-footman 2 31 34)
 </pre>
 
-<p>Creates a footman for player 2 at location 31x34.
-
 <h4>Not Used</h4>
 
 <a name="credits"></a>
@@ -337,17 +325,14 @@
 <pre>
     (credits)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
 
 <a name="define-campaign"></a>
-<h3>(define-campaign)</h3>
+<h3>(define-campaign 'ident 'name "name" 'campaign (list elements))</h3>
 
-.
+Define the campaign.
 
 
 <dl>
@@ -361,24 +346,21 @@
 <pre>
     (define-campaign)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
 
 <a name="define-construction"></a>
-<h3><pre</h3>
-
+<h3>(define-construction ident ...)</h3>
 Defines a construction.<br>
 <br>
 Constructions can specify multiple files and shadow files for use with
-different tilesets.  Note that shadows are optional.<br>
+different tilesets.  Shadows are optional.<br>
 <br>
 The construction frames should be ordered by increasing percentages and the
 first frame should be 0.
 
+<pre>
 (define-construction ident
   'file '(
     tileset tileset
@@ -391,8 +373,8 @@
   'constructions (list
     '(percent percent
       file construction-file
-      frame frame-number))
-</pre></code>
+      frame frame-number)))
+</pre>
 
 <dl>
 <dt>ident</dt>
@@ -418,6 +400,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Defines construction-land with different graphics for summer and winter
+    ;; tilesets.  Buildings 0-24 percent complete use frame 0 of the 
construction
+    ;; image, 25-49 percent complete use frame 1 of the construction image, 
and 50-99
+    ;; percent complete use the frame 1 of the main building graphic.
     (define-construction 'construction-land
       'file '(
         tileset summer
@@ -439,11 +425,6 @@
           frame 1)))
 </pre>
 
-<p>Defines construction-land with different graphics for summer and winter
-tilesets.  Buildings 0-24 percent complete use frame 0 of the construction
-image, 25-49 percent complete use frame 1 of the construction image, and 50-99
-percent complete use the frame 1 of the main building graphic.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/constructions.ccl"> $LIBARYPATH/ccl/constructions.ccl 
</a><br>
@@ -453,8 +434,7 @@
 <a name="define-construction-wc-names"></a>
 <h3>(define-construction-wc-names)</h3>
 
-.
-
+Define construction mapping from original number to internal symbol
 
 <dl>
 <dt></dt>
@@ -465,11 +445,8 @@
 <h4>Example</h4>
 
 <pre>
-    (define-construction-wc-names)
+    (define-construction-wc-names human-shipyard orc-shipyard ... )
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -491,9 +468,6 @@
 <pre>
     (define-editor-unittypes)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -515,9 +489,6 @@
 <pre>
     (define-map)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -539,9 +510,6 @@
 <pre>
     (define-missile-type)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -549,7 +517,7 @@
 <a name="define-missiletype-wc-names"></a>
 <h3>(define-missiletype-wc-names)</h3>
 
-.
+Define missiletype mapping from original number to internal symbol
 
 
 <dl>
@@ -561,20 +529,18 @@
 <h4>Example</h4>
 
 <pre>
-    (define-missiletype-wc-names)
+    (define-missiletype-wc-names lightning griffon-hammer ... )
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
 
 <a name="define-race-names"></a>
-<h3><pre</h3>
+<h3>(define-race-names 'race '(...) 'race '(...) ...</h3>
 
 Define the race names.
 
+<pre>
 (define-race-names
   'race '(
     race race-number
@@ -582,7 +548,7 @@
     display race-display-name
     [visible])
   ['race '(...)] ...)
-</pre></code>
+</pre>
 
 <dl>
 <dt>race-number</dt>
@@ -602,6 +568,8 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Defines the alliance, mythical, and neutral races.  The neutral race is
+    ;; not visible in the race menus.
     (define-race-names
       'race '(
         race 0
@@ -619,9 +587,6 @@
         display "Neutral"))
 </pre>
 
-<p>Defines the alliance, mythical, and neutral races.  The neutral race is
-not visible in the race menus.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -648,6 +613,7 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Defines the ranks for the alliance race.
     (define-ranks 'alliance '(
     0 Pathetic
     3000 "Not Bad"
@@ -655,8 +621,6 @@
     ))
 </pre>
 
-<p>Defines the ranks for the alliance race.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ranks.ccl"> $LIBARYPATH/ccl/ranks.ccl </a>
@@ -678,9 +642,6 @@
 <pre>
     (diplomacy)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -702,9 +663,6 @@
 <pre>
     (stratagus-map)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -726,9 +684,6 @@
 <pre>
     (game-cycle)
 </pre>
-
-<p>.
-
 <h4>Not Used</h4>
 
 <a name="get-stratagus-home-path"></a>
@@ -748,9 +703,6 @@
 <pre>
     (get-stratagus-home-path)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -772,9 +724,6 @@
 <pre>
     (get-stratagus-library-path)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -797,11 +746,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Gets the amount of gold that player 0 has.
     (get-player-resource 0 'gold)
 </pre>
 
-<p>Gets the amount of gold that player 0 has.
-
 <h4>Not Used</h4>
 
 <a name="get-this-player"></a>
@@ -821,9 +769,6 @@
 <pre>
     (get-this-player)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -845,9 +790,6 @@
 <pre>
     (get-unit-unholy-armor)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -869,9 +811,6 @@
 <pre>
     (group)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -903,11 +842,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Kills a peasant of the player on the local computer.
     (kill-unit 'unit-peasant 'this)
 </pre>
 
-<p>Kills a peasant of the player on the local computer.
-
 <h4>Not Used</h4>
 
 <a name="kill-unit-at"></a>
@@ -949,11 +887,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Kills any units in the rectangle (5,12) to (9,15).
     (kill-unit-at 'any 'any 9 '(5 12) '(9 15))
 </pre>
 
-<p>Kills any units in the rectangle (5,12) to (9,15).
-
 <h4>Not Used</h4>
 
 <a name="library-path"></a>
@@ -973,9 +910,6 @@
 <pre>
     (library-path)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -995,11 +929,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Loads the map.
     (load-map "campaigns/human/level01h.pud")
 </pre>
 
-<p>Loads the map.
-
 <h4>Not Used</h4>
 
 <a name="load-pud"></a>
@@ -1017,11 +950,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Loads the pud.
     (load-pud "campaigns/human/level01h.pud")
 </pre>
 
-<p>Loads the pud.
-
 <h4>Not Used</h4>
 
 <a name="log"></a>
@@ -1041,9 +973,6 @@
 <pre>
     (log)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1065,9 +994,6 @@
 <pre>
     (make-unit)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1089,9 +1015,6 @@
 <pre>
     (missile)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1113,9 +1036,6 @@
 <pre>
     (new-colors)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1137,9 +1057,6 @@
 <pre>
     (pf-show-groupids!)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1161,9 +1078,6 @@
 <pre>
     (pf-show-regids!)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1185,9 +1099,6 @@
 <pre>
     (place-unit)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1209,9 +1120,6 @@
 <pre>
     (player)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1230,11 +1138,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Remove the first objective from the objectives list.
     (remove-objective 0)
 </pre>
 
-<p>Remove the first objective from the objectives list.
-
 <h4>Not Used</h4>
 
 <a name="replay-log"></a>
@@ -1254,9 +1161,6 @@
 <pre>
     (replay-log)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1278,9 +1182,6 @@
 <pre>
     (reset-keystroke-help)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1302,9 +1203,6 @@
 <pre>
     (selection)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1324,11 +1222,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Sets the default map to "puds/default.pud".
     (set-default-map! "puds/default.pud")
 </pre>
 
-<p>Sets the default map to "puds/default.pud".
-
 <h4>Not Used</h4>
 
 <a name="set-diplomacy!"></a>
@@ -1357,11 +1254,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Sets player 1 to be an enemy of player 0.
     (set-diplomacy! 0 'enemy 1)
 </pre>
 
-<p>Sets player 1 to be an enemy of player 0.
-
 <h4>Not Used</h4>
 
 <a name="set-game-cycle!"></a>
@@ -1379,11 +1275,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Set the game cycle number to 100.
     (set-game-cycle! 100)
 </pre>
 
-<p>Set the game cycle number to 100.
-
 <h4>Not Used</h4>
 
 <a name="set-game-paused!"></a>
@@ -1401,11 +1296,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Pauses the game.
     (set-game-paused! #t)
 </pre>
 
-<p>Pauses the game.
-
 <h4>Not Used</h4>
 
 <a name="set-group-id!"></a>
@@ -1425,9 +1319,6 @@
 <pre>
     (set-group-id!)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1447,11 +1338,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Sets the mission objectives.
     (set-objectives! "Build 4 farms" "Mine 500 gold")
 </pre>
 
-<p>Sets the mission objectives.
-
 <h4>Not Used</h4>
 
 <a name="set-player-resource!"></a>
@@ -1475,12 +1365,11 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Sets player 0's gold to 2000.  Adds 500 gold to player 1.
     (set-player-resource! 0 'gold 2000)
     (set-player-resource! 1 'gold (+ 500 (get-player-resource 1 'gold)))
 </pre>
 
-<p>Sets player 0's gold to 2000.  Adds 500 gold to player 1.
-
 <h4>Not Used</h4>
 
 <a name="set-shared-vision!"></a>
@@ -1504,11 +1393,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Sets shared vision for player 0 to on with player 2.
     (set-shared-vision! 0 #t 2)
 </pre>
 
-<p>Sets shared vision for player 0 to on with player 2.
-
 <h4>Not Used</h4>
 
 <a name="set-this-player!"></a>
@@ -1528,9 +1416,6 @@
 <pre>
     (set-this-player!)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1552,9 +1437,6 @@
 <pre>
     (set-unit-unholy-armor!)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1577,11 +1459,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Sets shared vision on with player number 3.
     (shared-vision #t 3)
 </pre>
 
-<p>Sets shared vision on with player number 3.
-
 <h4>Not Used</h4>
 
 <a name="show-map-location"></a>
@@ -1599,11 +1480,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Show an area of 6 tiles around location (10,10) for 500 cycles.
     (show-map-location 10 10 6 500)
 </pre>
 
-<p>Show an area of 6 tiles around location (10,10) for 500 cycles.
-
 <h4>Not Used</h4>
 
 <a name="slot-usage"></a>
@@ -1623,9 +1503,6 @@
 <pre>
     (slot-usage)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1647,9 +1524,6 @@
 <pre>
     (unit)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -1671,15 +1545,12 @@
 <pre>
     (units)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
 
 <hr>
-Last changed: $Id: game.html,v 1.29 2003/09/02 19:23:08 martinxyz Exp $<br>
+Last changed: $Id: game.html,v 1.30 2003/09/10 15:33:43 martinxyz Exp $<br>
 All trademarks and copyrights on this page are owned by their respective 
owners.
 <address>(c) 2002-2003 by <a href="http://stratagus.org";>
 The Stratagus Project</a></address></body></html>
Index: stratagus/doc/ccl/icon.html
diff -u stratagus/doc/ccl/icon.html:1.16 stratagus/doc/ccl/icon.html:1.17
--- stratagus/doc/ccl/icon.html:1.16    Tue Sep  2 15:23:08 2003
+++ stratagus/doc/ccl/icon.html Wed Sep 10 11:33:43 2003
@@ -136,8 +136,7 @@
 <a name="define-icon-wc-names"></a>
 <h3>(define-icon-wc-names icon-0 icon-1 ... icon-195)</h3>
 
-    Define the mapping of the icon numbers in puds, to the icon names.
-
+Define icon mapping from original number to internal symbol.
 
 <dl>
 <dt>icon-0</dt>
@@ -155,12 +154,11 @@
 <h4>Example</h4>
 
 <pre>
+    ;; This is the default icon mapping.
     (define-icon-wc-names 
       'icon-peasant 'icon-peon 'icon-footman ... )
 </pre>
 
-<p>This is the default icon mapping.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
@@ -183,11 +181,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Sets the icon size to 46x38.
     (set-icon-size! 46 38)
 </pre>
 
-<p>Sets the icon size to 46x38.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/icons.ccl"> $LIBARYPATH/ccl/icons.ccl </a>
@@ -207,17 +204,16 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Sets the number of icons per row to 5.
     (set-icons-per-row! 5)
 </pre>
 
-<p>Sets the number of icons per row to 5.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/icons.ccl"> $LIBARYPATH/ccl/icons.ccl </a>
 
 <hr>
-Last changed: $Id: icon.html,v 1.16 2003/09/02 19:23:08 martinxyz Exp $<br>
+Last changed: $Id: icon.html,v 1.17 2003/09/10 15:33:43 martinxyz Exp $<br>
 All trademarks and copyrights on this page are owned by their respective 
owners.
 <address>(c) 2002-2003 by <a href="http://stratagus.org";>
 The Stratagus Project</a></address></body></html>
Index: stratagus/doc/ccl/research.html
diff -u stratagus/doc/ccl/research.html:1.12 
stratagus/doc/ccl/research.html:1.13
--- stratagus/doc/ccl/research.html:1.12        Tue Sep  2 15:23:08 2003
+++ stratagus/doc/ccl/research.html     Wed Sep 10 11:33:43 2003
@@ -77,9 +77,6 @@
 <pre>
     (check-dependency)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/upgrade.ccl"> $LIBARYPATH/ccl/upgrade.ccl</a> ,
@@ -92,7 +89,6 @@
 Define what unit-types and upgrades are enabled for each player during
 a level.
 
-
 <dl>
 <dt>name</dt>
 <dd>Name of an unit-type or an upgrade to be defined.
@@ -115,11 +111,11 @@
 <h4>Example</h4>
 
 <pre>
-    (define-allow 'unit-catapult                    "AAAAAAAAAAAAAAAA")
+    ;; Allow the catapult for all 16 players.
+    (define-allow 'unit-catapult  "AAAAAAAAAAAAAAAA")
+    ;;                             ^- player 0    ^- player 15
 </pre>
 
-<p>Allow the catapult for all 16 players.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/upgrade.ccl"> $LIBARYPATH/ccl/upgrade.ccl</a> ,
@@ -164,18 +160,13 @@
 <h4>Example</h4>
 
 <pre>
+    ;; The second sword upgrade is only possible, if the first sword upgrade is
+    ;; researched.
     (define-dependency 'upgrade-sword2 '(upgrade-sword1))
-</pre>
-
-<p>The second sword upgrade is only possible, if the first sword upgrade is
-   researched.
-
-<pre>
+    ;; The ranger upgrade is only available if a keep or castle is available.
     (define-dependency 'upgrade-ranger '(unit-keep) 'or '(unit-castle))
 </pre>
 
-<p>The ranger upgrade is only available if a keep or castle is available.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/upgrade.ccl"> $LIBARYPATH/ccl/upgrade.ccl</a> ,
@@ -183,7 +174,7 @@
 <a href="../../data/ccl/orc/upgrade.ccl"> $LIBARYPATH/ccl/orc/upgrade.ccl</a>
 
 <a name="define-modifier"></a>
-<h3>(define-modifier name '(effect1 effect1-arg) ...)</h3>
+<h3>(define-modifier upgrade-name '(effect1 effect1-arg) ...)</h3>
 
 Define the effects (modifier) of an upgrade. An upgrade can have multiple 
 modifiers. It can activate, enable or disable other upgrades and allows
@@ -191,10 +182,9 @@
 
 
 <dl>
-<dt>name</dt>
-<dd>Name of the upgrade, which has this effects. See
-<a href="#define-modifier">(define-modifier)</a>. All effects change all old
-units and any new unit of a player.
+<dt>upgrade-name</dt>
+<dd>Name of the upgrade, which has this effects. All effects change
+all old units and any new unit of a player.
 </dd>
 <dt>'(effectN effectN-arg)</dt>
 <dd>A list of effects of the upgrade. Here are all possible effects:
@@ -283,16 +273,15 @@
 <h4>Example</h4>
 
 <pre>
-  (define-modifier 'upgrade-sword1
-    '(piercing-damage 2)
-    '(apply-to unit-footman) '(apply-to unit-knight) '(apply-to unit-paladin)
-    '(apply-to unit-dwarves) '(apply-to unit-d_____) '(apply-to unit-l_____)
-    '(apply-to unit-u____-l___________) '(apply-to unit-t_______))
+    ;; This is the default effect of the first sword upgrade. The piercing 
damage
+    ;; of the listed units is increased.
+    (define-modifier 'upgrade-sword1
+      '(piercing-damage 2)
+      '(apply-to unit-footman) '(apply-to unit-knight) '(apply-to unit-paladin)
+      '(apply-to unit-dwarves) '(apply-to unit-d_____) '(apply-to unit-l_____)
+      '(apply-to unit-u____-l___________) '(apply-to unit-t_______))
 </pre>
 
-<p>This is the default effect of the first sword upgrade. The piercing damage
-of the listed units is increased.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/upgrade.ccl"> $LIBARYPATH/ccl/upgrade.ccl</a> ,
@@ -324,14 +313,13 @@
 <h4>Example</h4>
 
 <pre>
+    ;; This is the default definition of the first sword upgrade. The icon
+    ;; "icon-sword2" is shown in buttons and during the upgrade. The upgrade 
costs
+    ;; 200 frame cycles to research and 800 gold from the store.
     (define-upgrade 'upgrade-sword1 'icon 'icon-sword2
       'costs #(   200   800     0     0     0     0     0))
 </pre>
 
-<p>This is the default definition of the first sword upgrade. The icon
-"icon-sword2" is shown in buttons and during the upgrade. The upgrade costs
-200 frame cycles to research and 800 gold from the store.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/upgrade.ccl"> $LIBARYPATH/ccl/upgrade.ccl</a> ,
@@ -341,8 +329,7 @@
 <a name="define-upgrade-wc-names"></a>
 <h3>(define-upgrade-wc-names sword1 sword2 ...)</h3>
 
-.
-
+Define upgrade mapping from original number to internal symbol
 
 <dl>
 <dt>.</dt>
@@ -355,9 +342,6 @@
 <pre>
     (define-upgrade-wc-names 'upgrade-sword1 'upgrade-sword2 ...)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/upgrade.ccl"> $LIBARYPATH/ccl/upgrade.ccl</a> ,
@@ -381,9 +365,6 @@
 <pre>
     (get-dependency)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/upgrade.ccl"> $LIBARYPATH/ccl/upgrade.ccl</a> ,
@@ -391,7 +372,7 @@
 <a href="../../data/ccl/orc/upgrade.ccl"> $LIBARYPATH/ccl/orc/upgrade.ccl</a>
 
 <hr>
-Last changed: $Id: research.html,v 1.12 2003/09/02 19:23:08 martinxyz Exp $<br>
+Last changed: $Id: research.html,v 1.13 2003/09/10 15:33:43 martinxyz Exp $<br>
 All trademarks and copyrights on this page are owned by their respective 
owners.
 <address>(c) 2002-2003 by<a href="http://stratagus.org";>
 The Stratagus Project</a></address></body></html>
Index: stratagus/doc/ccl/sound.html
diff -u stratagus/doc/ccl/sound.html:1.9 stratagus/doc/ccl/sound.html:1.10
--- stratagus/doc/ccl/sound.html:1.9    Tue Sep  2 15:23:08 2003
+++ stratagus/doc/ccl/sound.html        Wed Sep 10 11:33:43 2003
@@ -92,6 +92,7 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Defines some game sounds.
     (define-game-sounds
       'placement-error (make-sound "placement error" "ui/placement error.wav")
       'placement-success (make-sound "placement success" "ui/placement 
success.wav")
@@ -100,8 +101,6 @@
       'orc-rescue (make-sound "orc rescue" "orc/rescue.wav") )))
 </pre>
 
-<p>Defines some game sounds.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/sound.ccl"> $LIBARYPATH/ccl/sound.ccl </a>
@@ -116,11 +115,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Displays the mapping between sound names and sound id.
     (display-sounds)
 </pre>
 
-<p>Displays the mapping between sound names and sound id.
-
 <h4>Not Used</h4>
 
 <a name="make-sound"></a>
@@ -142,6 +140,7 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Makes the sounds "lightning" and "basic human voices acknowledge".
     (make-sound "lightning" "spells/lightning.wav")
     (make-sound "basic human voices acknowledge"
       (list "human/basic_voices/acknowledgement/1.wav"
@@ -150,8 +149,6 @@
             "human/basic_voices/acknowledgement/4.wav"))
 </pre>
 
-<p>Makes the sounds "lightning" and "basic human voices acknowledge".
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/sound.ccl"> $LIBARYPATH/ccl/sound.ccl </a>
@@ -177,9 +174,6 @@
     (make-sound-group "footman-selected"
       "basic human voices selected" "basic human voices annoyed")
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/sound.ccl"> $LIBARYPATH/ccl/sound.ccl </a>
@@ -202,11 +196,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Maps the name "footman-acknowledge" to "basic human voices acknowledge".
     (map-sound "footman-acknowledge" "basic human voices acknowledge")
 </pre>
 
-<p>Maps the name "footman-acknowledge" to "basic human voices acknowledge".
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/sound.ccl"> $LIBARYPATH/ccl/sound.ccl </a>
@@ -226,11 +219,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Play the file "spells/lightning.wav".
     (play-file "spells/lightning.wav")
 </pre>
 
-<p>Play the file "spells/lightning.wav".
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/sound.ccl"> $LIBARYPATH/ccl/sound.ccl </a>
@@ -250,11 +242,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Plays the music file "music/default.mod".
     (play-music "music/default.mod")
 </pre>
 
-<p>Plays the music file "music/default.mod".
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/sound.ccl"> $LIBARYPATH/ccl/sound.ccl </a>
@@ -274,11 +265,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Play the sound "basic human voices ready".
     (play-sound "basic human voices ready")
 </pre>
 
-<p>Play the sound "basic human voices ready".
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/sound.ccl"> $LIBARYPATH/ccl/sound.ccl </a>
@@ -298,11 +288,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Set the cd mode to play songs in a random order.
     (set-cd-mode! ":random")
 </pre>
 
-<p>Set the cd mode to play songs in a random order.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/sound.ccl"> $LIBARYPATH/ccl/sound.ccl </a>
@@ -322,11 +311,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Set the sound range to 40.
     (set-global-sound-range! 40)
 </pre>
 
-<p>Set the sound range to 40.
-
 <h4>Not Used</h4>
 
 <a name="set-menu-music!"></a>
@@ -344,11 +332,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; This is the default song played.
     (set-menu-music! "music/default.mod")
 </pre>
 
-<p>This is the default song played.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -368,11 +355,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Set the music volume to 128.
     (set-music-volume! 128)
 </pre>
 
-<p>Set the music volume to 128.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -395,11 +381,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Set the range of the sound "basic human voices ready" to 20.
     (set-sound-range! "basic human voices ready" 20)
 </pre>
 
-<p>Set the range of the sound "basic human voices ready" to 20.
-
 <h4>Not Used</h4>
 
 <a name="set-sound-volume!"></a>
@@ -417,11 +402,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Set the sound volume to 128.
     (set-sound-volume! 128)
 </pre>
 
-<p>Set the sound volume to 128.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -441,11 +425,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; This is the default song played.
     (set-title-music! "music/default.mod")
 </pre>
 
-<p>This is the default song played.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -467,9 +450,6 @@
 <pre>
     (sound-for-name "peasant attack")
 </pre>
-
-<p>.
-
 <h4>Not Used</h4>
 
 <a name="sound-off"></a>
@@ -481,11 +461,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Turns off sound.
     (sound-off)
 </pre>
 
-<p>Turns off sound.
-
 <h4>Not Used</h4>
 
 <a name="sound-on"></a>
@@ -497,11 +476,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Turns on sound.
     (sound-on)
 </pre>
 
-<p>Turns on sound.
-
 <h4>Not Used</h4>
 
 <a name="sound-thread"></a>
@@ -515,9 +493,6 @@
 <pre>
     (sound-thread)
 </pre>
-
-<p>.
-
 <h4>Not Used</h4>
 
 <a name="stop-music"></a>
@@ -529,11 +504,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Stop playing music.
     (stop-music)
 </pre>
 
-<p>Stop playing music.
-
 <h4>Not Used</h4>
 
 <a name="with-sound"></a>
@@ -545,17 +519,16 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Returns true if compiled with sound, false otherwise.
     (with-sound)
 </pre>
 
-<p>Returns true if compiled with sound, false otherwise.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/sound.ccl"> $LIBARYPATH/ccl/sound.ccl </a>
 
 <hr>
-Last changed: $Id: sound.html,v 1.9 2003/09/02 19:23:08 martinxyz Exp $<br>
+Last changed: $Id: sound.html,v 1.10 2003/09/10 15:33:43 martinxyz Exp $<br>
 All trademarks and copyrights on this page are owned by their respective 
owners.
 <address>(c) 2002-2003 by <a href="http://stratagus.org";>
 The Stratagus Project</a></address></body></html>
Index: stratagus/doc/ccl/tileset.html
diff -u stratagus/doc/ccl/tileset.html:1.18 stratagus/doc/ccl/tileset.html:1.19
--- stratagus/doc/ccl/tileset.html:1.18 Tue Sep  2 15:23:08 2003
+++ stratagus/doc/ccl/tileset.html      Wed Sep 10 11:33:43 2003
@@ -97,8 +97,7 @@
 <a name="define-tileset-wc-names"></a>
 <h3>(define-tileset-wc-names tileset0 tileset1 tileset2 tileset3)</h3>
 
-    Define the mapping of the tileset numbers in puds, to the tileset names.
-
+    Define tileset mapping from original number to internal symbol
 
 <dl>
 <dt>tileset0</dt>
@@ -118,18 +117,17 @@
 <h4>Example</h4>
 
 <pre>
+    ;; This is the default tileset mapping.
     (define-tileset-wc-names 
       'tileset-summer 'tileset-winter 'tileset-wasteland 'tileset-swamp )
 </pre>
 
-<p>This is the default tileset mapping.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBARYPATH/ccl/wc2.ccl </a>
 
 <hr>
-Last changed: $Id: tileset.html,v 1.18 2003/09/02 19:23:08 martinxyz Exp $<br>
+Last changed: $Id: tileset.html,v 1.19 2003/09/10 15:33:43 martinxyz Exp $<br>
 All trademarks and copyrights on this page are owned by their respective 
owners.
 <address>(c) 2002-2003 by <a href="http://stratagus.org";>
 The Stratagus Project</a></address></body></html>
Index: stratagus/doc/ccl/triggers.html
diff -u stratagus/doc/ccl/triggers.html:1.17 
stratagus/doc/ccl/triggers.html:1.18
--- stratagus/doc/ccl/triggers.html:1.17        Tue Sep  2 15:23:08 2003
+++ stratagus/doc/ccl/triggers.html     Wed Sep 10 11:33:43 2003
@@ -83,6 +83,7 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Adds a trigger.  If the player on the console has 0 units then he loses.
     (add-trigger
       '(
         (if-unit 'this '== 0 'all))
@@ -90,8 +91,6 @@
         (action-defeat)))
 </pre>
 
-<p>Adds a trigger.  If the player on the console has 0 units then he loses.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -107,9 +106,6 @@
 <pre>
     (action-draw)
 </pre>
-
-<p>.
-
 <h4>Not Used</h4>
 
 <a name="action-set-switch"></a>
@@ -130,11 +126,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Sets switch 1 on.
     (action-set-switch 1 #t)
 </pre>
 
-<p>Sets switch 1 on.
-
 <h4>Not Used</h4>
 
 <a name="action-set-timer"></a>
@@ -155,11 +150,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Sets the timer to 9000 cycles (300 seconds or 5 minutes) and decreasing.
     (action-set-timer 9000 0)
 </pre>
 
-<p>Sets the timer to 9000 cycles (300 seconds or 5 minutes) and decreasing.
-
 <h4>Not Used</h4>
 
 <a name="action-start-timer"></a>
@@ -171,11 +165,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Starts the timer.
     (action-start-timer)
 </pre>
 
-<p>Starts the timer.
-
 <h4>Not Used</h4>
 
 <a name="action-stop-timer"></a>
@@ -187,11 +180,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Stops the timer.
     (action-stop-timer)
 </pre>
 
-<p>Stops the timer.
-
 <h4>Not Used</h4>
 
 <a name="action-victory"></a>
@@ -203,6 +195,8 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Adds a trigger. If the player on the console has killed all his 
+    ;; opponents he won.
     (add-trigger
       '(
         (if-opponents 'this '== 0))
@@ -210,9 +204,6 @@
         (action-victory)))
 </pre>
 
-<p>Adds a trigger. If the player on the console has killed all his 
-opponents he won.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -232,6 +223,9 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Adds a trigger. If the player on the console has killed all his 
+    ;; opponents the message "Hello" appears then two seconds later the message
+    ;; "World" appears.
     (add-trigger
       '(
         (if-opponents 'this '== 0))
@@ -242,10 +236,6 @@
         #f))
 </pre>
 
-<p>Adds a trigger. If the player on the console has killed all his 
-opponents the message "Hello" appears then two seconds later the message
-"World" appears.
-
 <h4>Not Used</h4>
 
 <a name="add-trigger"></a>
@@ -277,6 +267,8 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Adds a trigger. If the player on the console has killed all his 
+    ;; opponents he won.
     (add-trigger
       '(
         (if-opponents 'this '== 0))
@@ -284,9 +276,6 @@
         (action-victory)))
 </pre>
 
-<p>Adds a trigger. If the player on the console has killed all his 
-opponents he won.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -315,11 +304,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; If the game has run for 300 cycles.
     (if-elapsed '&gt;= 300)
 </pre>
 
-<p>If the game has run for 300 cycles.
-
 <h4>Not Used</h4>
 
 <a name="if-kills"></a>
@@ -356,9 +344,6 @@
 <pre>
     (if-kills 'this '&gt;= 30)
 </pre>
-
-<p>.
-
 <h4>Not Used</h4>
 
 <a name="if-near-unit"></a>
@@ -402,11 +387,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; If the player on the console has 6 archers near the circle of power.
     (if-near-unit 'this '== 6 'unit-archer 'unit-circle-of-power)
 </pre>
 
-<p>If the player on the console has 6 archers near the circle of power.
-
 <h4>Not Used</h4>
 
 <a name="if-opponents"></a>
@@ -442,9 +426,6 @@
 <pre>
     (if-opponents 'this '== 0)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -490,11 +471,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; The player on the console has 1 rescued archer near the circle of power.
     (if-rescued-near-unit 'this '== 1 'unit-archer 'unit-circle-of-power)
 </pre>
 
-<p>The player on the console has 1 rescued archer near the circle of power.
-
 <h4>Not Used</h4>
 
 <a name="if-resource"></a>
@@ -536,11 +516,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; If the player on the console has at least 5000 gold.
     (if-resource 'this '&gt;= 5000 'gold)
 </pre>
 
-<p>If the player on the console has at least 5000 gold.
-
 <h4>Not Used</h4>
 
 <a name="if-score"></a>
@@ -576,11 +555,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; If the player on the console has a score of at least 1000.
     (if-score 'this '&gt;= 1000)
 </pre>
 
-<p>If the player on the console has a score of at least 1000.
-
 <h4>Not Used</h4>
 
 <a name="if-switch"></a>
@@ -601,11 +579,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Checks if switch 1 is on.
     (if-switch 1 #t)
 </pre>
 
-<p>Checks if switch 1 is on.
-
 <h4>Not Used</h4>
 
 <a name="if-timer"></a>
@@ -632,11 +609,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; If the timer is at 0 cycles.
     (if-timer '== 0)
 </pre>
 
-<p>If the timer is at 0 cycles.
-
 <h4>Not Used</h4>
 
 <a name="if-unit"></a>
@@ -679,11 +655,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; If the player on the console has at least 8 archers.
     (if-unit 'this '&gt;= 8 'unit-archer)
 </pre>
 
-<p>If the player on the console has at least 8 archers.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -735,12 +710,11 @@
 <h4>Example</h4>
 
 <pre>
+    ;; If the player on the console has at least 8 archers in the rectangle
+    ;; (10 10) to (12 14).
     (if-unit-at 'this '&gt;= 8 'unit-archer '(10 10) '(12 14))
 </pre>
 
-<p>If the player on the console has at least 8 archers in the rectangle
-(10 10) to (12 14).
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
@@ -759,15 +733,14 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Set the current trigger to the first trigger.
     (set-trigger-number! 0)
 </pre>
 
-<p>Set the current trigger to the first trigger.
-
 <h4>Not Used</h4>
 
 <hr>
-Last changed: $Id: triggers.html,v 1.17 2003/09/02 19:23:08 martinxyz Exp $<br>
+Last changed: $Id: triggers.html,v 1.18 2003/09/10 15:33:43 martinxyz Exp $<br>
 All trademarks and copyrights on this page are owned by their respective 
owners.
 <address>(c) 2002-2003 by <a href="http://stratagus.org";>
 The Stratagus Project</a></address></body></html>
Index: stratagus/doc/ccl/ui.html
diff -u stratagus/doc/ccl/ui.html:1.14 stratagus/doc/ccl/ui.html:1.15
--- stratagus/doc/ccl/ui.html:1.14      Mon Sep  1 16:02:07 2003
+++ stratagus/doc/ccl/ui.html   Wed Sep 10 11:33:43 2003
@@ -839,11 +839,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Displays the picture.
     (display-picture "graphics/ui/stratagus.png")
 </pre>
 
-<p>Displays the picture.
-
 <h4>Not Used</h4>
 
 <a name="process-menu"></a>
@@ -861,11 +860,10 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Process the menu 'menu-program-start.
     (process-menu 'menu-program-start)
 </pre>
 
-<p>Process the menu 'menu-program-start.
-
 <h4>Not Used</h4>
 
 <a name="set-game-cursor!"></a>
@@ -883,15 +881,14 @@
 <h4>Example</h4>
 
 <pre>
+    ;; Set the game cursor to 'cursor-point.
     (set-game-cursor! 'cursor-point)
 </pre>
 
-<p>Set the game cursor to 'cursor-point.
-
 <h4>Not Used</h4>
 
 <hr>
-Last changed: $Id: ui.html,v 1.14 2003/09/01 20:02:07 martinxyz Exp $<br>
+Last changed: $Id: ui.html,v 1.15 2003/09/10 15:33:43 martinxyz Exp $<br>
 All trademarks and copyrights on this page are owned by their respective 
owners.
 <address>(c) 2002-2003 by <a href="http://stratagus.org";>
 The Stratagus Project</a></address></body></html>
Index: stratagus/doc/ccl/unittype.html
diff -u stratagus/doc/ccl/unittype.html:1.26 
stratagus/doc/ccl/unittype.html:1.27
--- stratagus/doc/ccl/unittype.html:1.26        Wed Sep 10 05:47:55 2003
+++ stratagus/doc/ccl/unittype.html     Wed Sep 10 11:33:43 2003
@@ -165,9 +165,6 @@
       'armor 0 'basic-damage 3 'piercing-damage 6 'hit-points 40
       'costs '(time 70 gold 500 wood 50 oil 0 ore 0 stone 0 coal 0) )
 </pre>
-
-<p>.
-
 <h4>Not Used</h4>
 
 <a name="define-unit-type"></a>
@@ -191,7 +188,7 @@
 <dd></dd>
 <dt>graphics</dt>
 <dd>Defines the graphics used to display the unit-type in game. This could
-be an array "#( summer winter wasteland swamp) with different files for the
+be an array #( summer winter wasteland swamp) with different files for the
 tilesets. Or an indentifier "unit-xyz" if the graphics from an other unit-type
 should be reused.<p>
 
@@ -295,7 +292,7 @@
     <dd>The unit makes so-caled mining cycles. Each mining cycle it does some 
sort
     of animation and gains resource-step resources. You can stop after any 
number of
     steps. When the quantity in the harvester reaches the maximum 
(resource-capacity)
-    it will return home. I this is not included then it's considered infinity, 
and
+    it will return home. If this is not included then it's considered 
infinity, and
     resource-capacity will be the limit.<p></dd>
    
     <dt>resource-capacity</dt>
@@ -447,15 +444,11 @@
 
 Define unit-type mapping from original number to internal symbol.
 
-
 <h4>Example</h4>
 
 <pre>
     (define-unittype-wc-names)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/wc2.ccl"> $LIBRARYPATH/ccl/wc2.ccl </a>
@@ -477,9 +470,6 @@
 <pre>
     (get-unit-type-ident)
 </pre>
-
-<p>.
-
 <h4>Not Used</h4>
 
 <a name="get-unit-type-property"></a>
@@ -499,9 +489,6 @@
 <pre>
     (get-unit-type-property)
 </pre>
-
-<p>.
-
 <h4>Not Used</h4>
 
 <a name="get-unit-type-name"></a>
@@ -521,9 +508,6 @@
 <pre>
     (get-unit-type-name)
 </pre>
-
-<p>.
-
 <h4>Not Used</h4>
 
 <a name="set-unit-type-name!"></a>
@@ -546,9 +530,6 @@
 <pre>
     (set-unit-type-name!)
 </pre>
-
-<p>.
-
 <h4>Not Used</h4>
 
 <a name="set-unit-type-property"></a>
@@ -571,9 +552,6 @@
 <pre>
     (set-unit-type-property)
 </pre>
-
-<p>.
-
 <h4>Not Used</h4>
 
 <a name="unit-type"></a>
@@ -593,9 +571,6 @@
 <pre>
     (unit-type 'unit-great-hall)
 </pre>
-
-<p>.
-
 <h4>Used</h4>
 
 <a href="../../data/ccl/ai.ccl"> $LIBRARYPATH/ccl/ai.ccl </a>
@@ -611,13 +586,10 @@
 <pre>
     (unit-type-array)
 </pre>
-
-<p>.
-
 <h4>Not Used</h4>
 
 <hr>
-Last changed: $Id: unittype.html,v 1.26 2003/09/10 09:47:55 mr-russ Exp $<br>
+Last changed: $Id: unittype.html,v 1.27 2003/09/10 15:33:43 martinxyz Exp $<br>
 All trademarks and copyrights on this page are owned by their respective 
owners.
 <address>(c) 2002-2003 by <a href="http://stratagus.org";>
 The Stratagus Project</a></address></body></html>




reply via email to

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