stratagus-cvs
[Top][All Lists]
Advanced

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

[Stratagus-CVS] stratagus/contrib/campaigns/human level01h.cm l...


From: address@hidden
Subject: [Stratagus-CVS] stratagus/contrib/campaigns/human level01h.cm l...
Date: 11 Jan 2004 10:46:24 +1100

CVSROOT:        /home/strat
Module name:    stratagus
Changes by:      <address@hidden>       04/01/11 10:46:23

Modified files:
        contrib/campaigns/human: level01h.cm level02h.cm level03h.cm 
                                 level04h.cm level05h.cm 

Log message:
        Converted to lua

Patches:
Index: stratagus/contrib/campaigns/human/level01h.cm
diff -u stratagus/contrib/campaigns/human/level01h.cm:1.6 
stratagus/contrib/campaigns/human/level01h.cm:1.7
--- stratagus/contrib/campaigns/human/level01h.cm:1.6   Fri Sep 12 08:07:52 2003
+++ stratagus/contrib/campaigns/human/level01h.cm       Sun Jan 11 10:46:23 2004
@@ -1,202 +1,197 @@
-;;     Stratagus Map - Single player campaign
+--     Stratagus Map - Single player campaign
 
-(briefing 'type 'wc2
+Briefing("type", "wc2",
 ^^TITLE^^
-    'background "campaigns/human/interface/introscreen1.png"
-    'text "campaigns/human/level01h.txt"
-    'voice "campaigns/human/level01h-intro1.wav"
-    'voice "campaigns/human/level01h-intro2.wav"
 ^^OBJECTIVES^^
-  )
+  "background", "campaigns/human/interface/introscreen1.png",
+  "text", "campaigns/human/level01h.txt",
+  "voice", "campaigns/human/level01h-intro1.wav",
+  "voice", "campaigns/human/level01h-intro2.wav"
+)
+
+AddTrigger(
+  function() return IfUnit("this", ">=", 4, "unit-farm") and
+    IfUnit("this", ">=", 1, "unit-alliance-barracks") end,
+  function() return ActionVictory() end)
+AddTrigger(
+  function() return IfUnit("this", "==", 0, "all") end,
+  function() return ActionDefeat() end)
+
+--Units
+
+--Townhall - Produces
+DefineAllow("unit-peasant",                    "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-peon",                       "FFFFFFFFFFFFFFFF")
+
+--Barracks - Produces
+DefineAllow("unit-footman",                    "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-archer",                     "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-ranger",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-knight",                     "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-paladin",                   "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ballista",                   "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-grunt",                      "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-axethrower",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-berserker",                 "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ogre",                       "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-ogre-mage",                 "FFFFFFFFFFFFFFFF")
+  DefineAllow("unit-eye-of-vision",            "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-catapult",                   "FFFFFFFFFFFFFFFF")
+
+--Shipyard - Produces
+DefineAllow("unit-human-oil-tanker",           "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-destroyer",         "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-transport",         "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-battleship",                 "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-submarine",         "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-orc-oil-tanker",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-transport",         "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-destroyer",         "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ogre-juggernaught",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-submarine",         "FFFFFFFFFFFFFFFF")
+
+--Other Buildings
+DefineAllow("unit-balloon",    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-gryphon-rider",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mage",                       "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dwarves",                    "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-zeppelin",           "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dragon",                     "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-death-knight",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-goblin-sappers",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-skeleton",                   "FFFFFFFFFFFFFFFF")
+
+--Human Specials
+DefineAllow("unit-female-hero",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-flying-angle",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-white-mage",                 "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-knight-rider",                       "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-arthor-literios",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-wise-man",                   "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-man-of-light",               "FFFFFFFFFFFFFFFF")
+
+--Building Human
+DefineAllow("unit-town-hall",                  "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-keep",                      "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-castle",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-barracks",          "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-farm",                       "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-blacksmith",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-sword1",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-sword2",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-shield1",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-shield2",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ballista1",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ballista2",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-watch-tower",               "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-alliance-guard-tower",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-alliance-cannon-tower",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-elven-lumber-mill",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-arrow1",                  "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-arrow2",                  "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ranger",                  "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-longbow",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ranger-scouting",         "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ranger-marksmanship",     "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-church",                     "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-paladin",                        "FFFFFFFFFFFFFFFF")
+-- DefineAllow("upgrade-holy-vision",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-healing",                        "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-exorcism",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-stables",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-inventor",           "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-gryphon-aviary",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-shipyard",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-human-refinery",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-oil-platform",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-foundry",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-cannon1",     "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-cannon2",     "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-armor1",      "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-armor2",      "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mage-tower",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-flame-shield",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-fireball",               "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-slow",                   "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-invisibility",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-polymorph",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-blizzard",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-human-wall",                 "FFFFFFFFFFFFFFFF")
+
+-- Orc Specials
+DefineAllow("unit-evil-knight",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-fad-man",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-beast-cry",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-fire-breeze",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-quick-blade",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-double-head",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ice-bringer",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-sharp-axe",                  "FFFFFFFFFFFFFFFF")
+
+
+DefineAllow("unit-great-hall",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-stronghold",                        "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-fortress",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-barracks",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-pig-farm",                   "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-blacksmith",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-battle-axe1",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-battle-axe2",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-shield1",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-shield2",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-catapult1",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-catapult2",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-watch-tower",               "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-mythical-guard-tower",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-mythical-cannon-tower",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-troll-lumber-mill",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-throwing-axe1",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-throwing-axe2",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-berserker",              "FFFFFFFFFFFFFFFF")
+  DefineAllow("upgrade-light-axes",            "FFFFFFFFFFFFFFFF")
+  DefineAllow("upgrade-berserker-scouting",    "FFFFFFFFFFFFFFFF")
+  DefineAllow("upgrade-berserker-regeneration",        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-altar-of-storms",            "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ogre-mound",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ogre-mage",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-eye-of-kilrogg",         "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-bloodlust",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-runes",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alchemist",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dragon-roost",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-shipyard",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-foundry",                   "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-ship-cannon1",       "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-ship-cannon2",       "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-ship-armor1",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-ship-armor2",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-temple-of-the-damned",       "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-death-coil",             "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-whirlwind",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-haste",                  "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-unholy-armor",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-death-and-decay",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-raise-dead",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-orc-refinery",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-oil-platform",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-orc-wall",                   "FFFFFFFFFFFFFFFF")
+
+-- Specials
+DefineAllow("unit-daemon",                     "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-critter",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-gold-mine",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-oil-patch",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-circle-of-power",            "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dark-portal",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-runestone",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dead-body",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-1x1-place",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-2x2-place",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-3x3-place",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-4x4-place",                "FFFFFFFFFFFFFFFF")
 
-(add-trigger
-  '(
-    (and
-      (if-unit 'this '>= 4 'unit-farm)
-      (if-unit 'this '>= 1 'unit-alliance-barracks)))
-  '(
-    (action-victory)))
-(add-trigger
-  '(
-    (if-unit 'this '== 0 'all))
-  '(
-    (action-defeat)))
-
-;;Units
-
-;;Townhall - Produces
-(define-allow 'unit-peasant                    "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-peon                       "FFFFFFFFFFFFFFFF")
-
-;;Barracks - Produces
-(define-allow 'unit-footman                    "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-archer                     "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-ranger                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-knight                     "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-paladin                   "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ballista                   "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-grunt                      "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-axethrower                 "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-berserker                 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ogre                       "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-ogre-mage                 "FFFFFFFFFFFFFFFF")
-  (define-allow 'unit-eye-of-vision            "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-catapult                   "FFFFFFFFFFFFFFFF")
-
-;;Shipyard - Produces
-(define-allow 'unit-human-oil-tanker           "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-destroyer         "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-transport         "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-battleship                 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-submarine         "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-orc-oil-tanker             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-transport         "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-destroyer         "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ogre-juggernaught          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-submarine         "FFFFFFFFFFFFFFFF")
-
-;;Other Buildings
-(define-allow 'unit-balloon    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-gryphon-rider              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mage                       "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dwarves                    "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-zeppelin           "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dragon                     "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-death-knight               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-goblin-sappers             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-skeleton                   "FFFFFFFFFFFFFFFF")
-
-;;Human Specials
-(define-allow 'unit-female-hero                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-flying-angle               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-white-mage                 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-knight-rider                       "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-arthor-literios                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-wise-man                   "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-man-of-light               "FFFFFFFFFFFFFFFF")
-
-;;Building Human
-(define-allow 'unit-town-hall                  "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-keep                      "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-castle                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-barracks          "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-farm                       "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-blacksmith                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-sword1                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-sword2                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-shield1          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-shield2          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ballista1              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ballista2              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-watch-tower               "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-alliance-guard-tower              "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-alliance-cannon-tower             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-elven-lumber-mill           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-arrow1                  "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-arrow2                  "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ranger                  "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-longbow                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ranger-scouting         "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ranger-marksmanship     "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-church                     "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-paladin                        "FFFFFFFFFFFFFFFF")
-;; (define-allow 'upgrade-holy-vision          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-healing                        "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-exorcism               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-stables                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-inventor           "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-gryphon-aviary             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-shipyard          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-human-refinery             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-oil-platform              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-foundry           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-cannon1     "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-cannon2     "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-armor1      "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-armor2      "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mage-tower                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-flame-shield           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-fireball               "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-slow                   "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-invisibility           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-polymorph              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-blizzard               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-human-wall                 "FFFFFFFFFFFFFFFF")
-
-;; Orc Specials
-(define-allow 'unit-evil-knight                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-fad-man                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-beast-cry          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-fire-breeze                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-quick-blade                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-double-head                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ice-bringer                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-sharp-axe                  "FFFFFFFFFFFFFFFF")
-
-
-(define-allow 'unit-great-hall                 "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-stronghold                        "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-fortress                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-barracks          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-pig-farm                   "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-blacksmith                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-battle-axe1            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-battle-axe2            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-shield1            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-shield2            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-catapult1              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-catapult2              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-watch-tower               "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-mythical-guard-tower              "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-mythical-cannon-tower             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-troll-lumber-mill          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-throwing-axe1          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-throwing-axe2          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-berserker              "FFFFFFFFFFFFFFFF")
-  (define-allow 'upgrade-light-axes            "FFFFFFFFFFFFFFFF")
-  (define-allow 'upgrade-berserker-scouting    "FFFFFFFFFFFFFFFF")
-  (define-allow 'upgrade-berserker-regeneration        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-altar-of-storms            "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ogre-mound                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ogre-mage              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-eye-of-kilrogg         "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-bloodlust              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-runes                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alchemist          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dragon-roost               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-shipyard          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-foundry                   "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-ship-cannon1       "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-ship-cannon2       "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-ship-armor1                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-ship-armor2                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-temple-of-the-damned       "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-death-coil             "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-whirlwind              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-haste                  "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-unholy-armor           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-death-and-decay                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-raise-dead             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-orc-refinery               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-oil-platform              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-orc-wall                   "FFFFFFFFFFFFFFFF")
-
-;; Specials
-(define-allow 'unit-daemon                     "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-critter                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-gold-mine                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-oil-patch                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-circle-of-power            "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dark-portal                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-runestone                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dead-body                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-1x1-place                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-2x2-place                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-3x3-place                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-4x4-place                "FFFFFFFFFFFFFFFF")
-
-(load-pud "campaigns/human/level01h.pud")
+LoadPud("campaigns/human/level01h.pud")
Index: stratagus/contrib/campaigns/human/level02h.cm
diff -u stratagus/contrib/campaigns/human/level02h.cm:1.6 
stratagus/contrib/campaigns/human/level02h.cm:1.7
--- stratagus/contrib/campaigns/human/level02h.cm:1.6   Fri Sep 12 08:07:52 2003
+++ stratagus/contrib/campaigns/human/level02h.cm       Sun Jan 11 10:46:23 2004
@@ -1,203 +1,198 @@
-;;     Stratagus Map - Single player campaign
+--     Stratagus Map - Single player campaign
 
-(briefing 'type 'wc2
+Briefing("type", "wc2",
 ^^TITLE^^
-    'background "campaigns/human/interface/introscreen1.png"
-    'text "campaigns/human/level02h.txt"
-    'voice "campaigns/human/level02h-intro1.wav"
-    'voice "campaigns/human/level02h-intro2.wav"
 ^^OBJECTIVES^^
-    )
+  "background", "campaigns/human/interface/introscreen1.png",
+  "text", "campaigns/human/level02h.txt",
+  "voice", "campaigns/human/level02h-intro1.wav",
+  "voice", "campaigns/human/level02h-intro2.wav"
+)
+
+AddTrigger(
+  function() return IfUnit(6, "==", 0, "unit-archer") and
+    IfRescuedNearUnit("this", ">=", 1, "unit-archer", "unit-circle-of-power") 
end,
+  function() return ActionVictory() end)
+
+AddTrigger(
+  function() return IfUnit("this", "==", 0, "all") end,
+  function() return ActionDefeat() end)
+
+--Units
+
+--Townhall - Produces
+DefineAllow("unit-peasant",                    "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-peon",                       "FFFFFFFFFFFFFFFF")
+
+--Barracks - Produces
+DefineAllow("unit-footman",                    "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-archer",                     "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-ranger",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-knight",                     "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-paladin",                   "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ballista",                   "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-grunt",                      "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-axethrower",                 "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-berserker",                 "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ogre",                       "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-ogre-mage",                 "FFFFFFFFFFFFFFFF")
+  DefineAllow("unit-eye-of-vision",            "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-catapult",                   "FFFFFFFFFFFFFFFF")
+
+--Shipyard - Produces
+DefineAllow("unit-human-oil-tanker",           "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-destroyer",         "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-transport",         "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-battleship",                 "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-submarine",         "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-orc-oil-tanker",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-transport",         "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-destroyer",         "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ogre-juggernaught",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-submarine",         "FFFFFFFFFFFFFFFF")
+
+--Other Buildings
+DefineAllow("unit-balloon",    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-gryphon-rider",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mage",                       "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dwarves",                    "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-zeppelin",           "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dragon",                     "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-death-knight",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-goblin-sappers",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-skeleton",                   "FFFFFFFFFFFFFFFF")
+
+--Human Specials
+DefineAllow("unit-female-hero",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-flying-angle",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-white-mage",                 "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-knight-rider",                       "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-arthor-literios",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-wise-man",                   "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-man-of-light",               "FFFFFFFFFFFFFFFF")
+
+--Building Human
+DefineAllow("unit-town-hall",                  "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-keep",                      "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-castle",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-barracks",          "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-farm",                       "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-blacksmith",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-sword1",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-sword2",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-shield1",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-shield2",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ballista1",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ballista2",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-watch-tower",               "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-alliance-guard-tower",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-alliance-cannon-tower",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-elven-lumber-mill",           "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-arrow1",                  "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-arrow2",                  "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ranger",                  "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-longbow",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ranger-scouting",         "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ranger-marksmanship",     "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-church",                     "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-paladin",                        "FFFFFFFFFFFFFFFF")
+-- DefineAllow("upgrade-holy-vision",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-healing",                        "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-exorcism",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-stables",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-inventor",           "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-gryphon-aviary",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-shipyard",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-human-refinery",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-oil-platform",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-foundry",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-cannon1",     "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-cannon2",     "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-armor1",      "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-armor2",      "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mage-tower",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-flame-shield",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-fireball",               "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-slow",                   "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-invisibility",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-polymorph",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-blizzard",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-human-wall",                 "FFFFFFFFFFFFFFFF")
+
+-- Orc Specials
+DefineAllow("unit-evil-knight",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-fad-man",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-beast-cry",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-fire-breeze",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-quick-blade",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-double-head",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ice-bringer",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-sharp-axe",                  "FFFFFFFFFFFFFFFF")
+
+
+DefineAllow("unit-great-hall",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-stronghold",                        "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-fortress",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-barracks",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-pig-farm",                   "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-blacksmith",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-battle-axe1",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-battle-axe2",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-shield1",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-shield2",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-catapult1",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-catapult2",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-watch-tower",               "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-mythical-guard-tower",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-mythical-cannon-tower",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-troll-lumber-mill",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-throwing-axe1",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-throwing-axe2",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-berserker",              "FFFFFFFFFFFFFFFF")
+  DefineAllow("upgrade-light-axes",            "FFFFFFFFFFFFFFFF")
+  DefineAllow("upgrade-berserker-scouting",    "FFFFFFFFFFFFFFFF")
+  DefineAllow("upgrade-berserker-regeneration",        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-altar-of-storms",            "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ogre-mound",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ogre-mage",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-eye-of-kilrogg",         "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-bloodlust",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-runes",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alchemist",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dragon-roost",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-shipyard",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-foundry",                   "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-ship-cannon1",       "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-ship-cannon2",       "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-ship-armor1",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-ship-armor2",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-temple-of-the-damned",       "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-death-coil",             "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-whirlwind",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-haste",                  "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-unholy-armor",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-death-and-decay",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-raise-dead",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-orc-refinery",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-oil-platform",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-orc-wall",                   "FFFFFFFFFFFFFFFF")
+
+-- Specials
+DefineAllow("unit-daemon",                     "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-critter",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-gold-mine",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-oil-patch",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-circle-of-power",            "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dark-portal",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-runestone",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dead-body",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-1x1-place",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-2x2-place",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-3x3-place",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-4x4-place",                "FFFFFFFFFFFFFFFF")
 
-(add-trigger
-  '(
-    (and
-      (if-unit 6 '== 0 'unit-archer)
-      (if-rescued-near-unit 'this '>= 1 'unit-archer 'unit-circle-of-power)))
-  '(
-    (action-victory)))
-
-(add-trigger
-  '(
-    (if-unit 'this '== 0 'all))
-  '(
-    (action-defeat)))
-
-;;Units
-
-;;Townhall - Produces
-(define-allow 'unit-peasant                    "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-peon                       "FFFFFFFFFFFFFFFF")
-
-;;Barracks - Produces
-(define-allow 'unit-footman                    "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-archer                     "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-ranger                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-knight                     "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-paladin                   "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ballista                   "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-grunt                      "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-axethrower                 "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-berserker                 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ogre                       "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-ogre-mage                 "FFFFFFFFFFFFFFFF")
-  (define-allow 'unit-eye-of-vision            "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-catapult                   "FFFFFFFFFFFFFFFF")
-
-;;Shipyard - Produces
-(define-allow 'unit-human-oil-tanker           "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-destroyer         "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-transport         "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-battleship                 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-submarine         "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-orc-oil-tanker             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-transport         "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-destroyer         "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ogre-juggernaught          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-submarine         "FFFFFFFFFFFFFFFF")
-
-;;Other Buildings
-(define-allow 'unit-balloon    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-gryphon-rider              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mage                       "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dwarves                    "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-zeppelin           "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dragon                     "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-death-knight               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-goblin-sappers             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-skeleton                   "FFFFFFFFFFFFFFFF")
-
-;;Human Specials
-(define-allow 'unit-female-hero                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-flying-angle               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-white-mage                 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-knight-rider                       "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-arthor-literios                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-wise-man                   "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-man-of-light               "FFFFFFFFFFFFFFFF")
-
-;;Building Human
-(define-allow 'unit-town-hall                  "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-keep                      "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-castle                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-barracks          "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-farm                       "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-blacksmith                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-sword1                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-sword2                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-shield1          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-shield2          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ballista1              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ballista2              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-watch-tower               "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-alliance-guard-tower              "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-alliance-cannon-tower             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-elven-lumber-mill           "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-arrow1                  "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-arrow2                  "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ranger                  "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-longbow                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ranger-scouting         "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ranger-marksmanship     "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-church                     "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-paladin                        "FFFFFFFFFFFFFFFF")
-;; (define-allow 'upgrade-holy-vision          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-healing                        "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-exorcism               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-stables                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-inventor           "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-gryphon-aviary             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-shipyard          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-human-refinery             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-oil-platform              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-foundry           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-cannon1     "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-cannon2     "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-armor1      "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-armor2      "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mage-tower                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-flame-shield           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-fireball               "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-slow                   "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-invisibility           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-polymorph              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-blizzard               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-human-wall                 "FFFFFFFFFFFFFFFF")
-
-;; Orc Specials
-(define-allow 'unit-evil-knight                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-fad-man                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-beast-cry          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-fire-breeze                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-quick-blade                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-double-head                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ice-bringer                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-sharp-axe                  "FFFFFFFFFFFFFFFF")
-
-
-(define-allow 'unit-great-hall                 "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-stronghold                        "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-fortress                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-barracks          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-pig-farm                   "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-blacksmith                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-battle-axe1            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-battle-axe2            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-shield1            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-shield2            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-catapult1              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-catapult2              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-watch-tower               "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-mythical-guard-tower              "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-mythical-cannon-tower             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-troll-lumber-mill          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-throwing-axe1          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-throwing-axe2          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-berserker              "FFFFFFFFFFFFFFFF")
-  (define-allow 'upgrade-light-axes            "FFFFFFFFFFFFFFFF")
-  (define-allow 'upgrade-berserker-scouting    "FFFFFFFFFFFFFFFF")
-  (define-allow 'upgrade-berserker-regeneration        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-altar-of-storms            "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ogre-mound                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ogre-mage              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-eye-of-kilrogg         "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-bloodlust              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-runes                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alchemist          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dragon-roost               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-shipyard          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-foundry                   "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-ship-cannon1       "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-ship-cannon2       "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-ship-armor1                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-ship-armor2                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-temple-of-the-damned       "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-death-coil             "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-whirlwind              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-haste                  "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-unholy-armor           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-death-and-decay                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-raise-dead             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-orc-refinery               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-oil-platform              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-orc-wall                   "FFFFFFFFFFFFFFFF")
-
-;; Specials
-(define-allow 'unit-daemon                     "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-critter                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-gold-mine                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-oil-patch                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-circle-of-power            "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dark-portal                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-runestone                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dead-body                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-1x1-place                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-2x2-place                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-3x3-place                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-4x4-place                "FFFFFFFFFFFFFFFF")
-
-(load-pud "campaigns/human/level02h.pud")
+LoadPud("campaigns/human/level02h.pud")
Index: stratagus/contrib/campaigns/human/level03h.cm
diff -u stratagus/contrib/campaigns/human/level03h.cm:1.6 
stratagus/contrib/campaigns/human/level03h.cm:1.7
--- stratagus/contrib/campaigns/human/level03h.cm:1.6   Fri Sep 12 08:07:52 2003
+++ stratagus/contrib/campaigns/human/level03h.cm       Sun Jan 11 10:46:23 2004
@@ -1,202 +1,197 @@
-;;     Stratagus Map - Single player campaign
+--     Stratagus Map - Single player campaign
 
-(briefing 'type 'wc2
+Briefing("type", "wc2",
 ^^TITLE^^
-    'background "campaigns/human/interface/introscreen1.png"
-    'text "campaigns/human/level03h.txt"
-    'voice "campaigns/human/level03h-intro1.wav"
-    'voice "campaigns/human/level03h-intro2.wav"
 ^^OBJECTIVES^^
-    )
+  "background", "campaigns/human/interface/introscreen1.png",
+  "text", "campaigns/human/level03h.txt",
+  "voice", "campaigns/human/level03h-intro1.wav",
+  "voice", "campaigns/human/level03h-intro2.wav"
+)
+
+AddTrigger(
+  function() return IfUnit("this", ">=", 1, "unit-alliance-shipyard") and
+    IfUnit("this", ">=", 4, "unit-alliance-oil-platform") end,
+  function() return ActionVictory() end)
+AddTrigger(
+  function() return IfUnit("this", "==", 0, "all") end,
+  function() return ActionDefeat() end)
+
+--Units
+
+--Townhall - Produces
+DefineAllow("unit-peasant",                    "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-peon",                       "AAAAAAAAAAAAAAAA")
+
+--Barracks - Produces
+DefineAllow("unit-footman",                    "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-archer",                     "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-ranger",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-knight",                     "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-paladin",                   "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ballista",                   "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-grunt",                      "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-axethrower",                 "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-berserker",                 "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ogre",                       "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-ogre-mage",                 "FFFFFFFFFFFFFFFF")
+  DefineAllow("unit-eye-of-vision",            "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-catapult",                   "FFFFFFFFFFFFFFFF")
+
+--Shipyard - Produces
+DefineAllow("unit-human-oil-tanker",           "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-destroyer",         "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-transport",         "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-battleship",                 "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-submarine",         "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-orc-oil-tanker",             "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-transport",         "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-destroyer",         "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre-juggernaught",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-submarine",         "FFFFFFFFFFFFFFFF")
+
+--Other Buildings
+DefineAllow("unit-balloon",    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-gryphon-rider",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mage",                       "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dwarves",                    "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-zeppelin",           "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dragon",                     "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-death-knight",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-goblin-sappers",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-skeleton",                   "FFFFFFFFFFFFFFFF")
+
+--Human Specials
+DefineAllow("unit-female-hero",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-flying-angle",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-white-mage",                 "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-knight-rider",                       "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-arthor-literios",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-wise-man",                   "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-man-of-light",               "FFFFFFFFFFFFFFFF")
+
+--Building Human
+DefineAllow("unit-town-hall",                  "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-keep",                      "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-castle",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-barracks",          "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-farm",                       "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-blacksmith",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-sword1",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-sword2",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-shield1",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-shield2",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ballista1",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ballista2",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-watch-tower",               "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-alliance-guard-tower",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-alliance-cannon-tower",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-elven-lumber-mill",           "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-arrow1",                  "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-arrow2",                  "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ranger",                  "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-longbow",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ranger-scouting",         "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ranger-marksmanship",     "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-church",                     "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-paladin",                        "FFFFFFFFFFFFFFFF")
+-- DefineAllow("upgrade-holy-vision",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-healing",                        "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-exorcism",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-stables",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-inventor",           "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-gryphon-aviary",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-shipyard",          "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-human-refinery",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-oil-platform",              "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-foundry",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-cannon1",     "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-cannon2",     "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-armor1",      "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-armor2",      "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mage-tower",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-flame-shield",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-fireball",               "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-slow",                   "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-invisibility",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-polymorph",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-blizzard",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-human-wall",                 "FFFFFFFFFFFFFFFF")
+
+-- Orc Specials
+DefineAllow("unit-evil-knight",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-fad-man",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-beast-cry",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-fire-breeze",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-quick-blade",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-double-head",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ice-bringer",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-sharp-axe",                  "FFFFFFFFFFFFFFFF")
+
+
+DefineAllow("unit-great-hall",                 "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-stronghold",                        "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-fortress",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-barracks",          "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-pig-farm",                   "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-blacksmith",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-battle-axe1",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-battle-axe2",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-shield1",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-shield2",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-catapult1",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-catapult2",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-watch-tower",               "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-mythical-guard-tower",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-mythical-cannon-tower",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-troll-lumber-mill",          "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-throwing-axe1",          "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-throwing-axe2",          "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-berserker",              "FFFFFFFFFFFFFFFF")
+  DefineAllow("upgrade-light-axes",            "FFFFFFFFFFFFFFFF")
+  DefineAllow("upgrade-berserker-scouting",    "FFFFFFFFFFFFFFFF")
+  DefineAllow("upgrade-berserker-regeneration",        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-altar-of-storms",            "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ogre-mound",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ogre-mage",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-eye-of-kilrogg",         "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-bloodlust",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-runes",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alchemist",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dragon-roost",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-shipyard",          "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-foundry",                   "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-ship-cannon1",       "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-ship-cannon2",       "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-ship-armor1",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-ship-armor2",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-temple-of-the-damned",       "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-death-coil",             "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-whirlwind",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-haste",                  "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-unholy-armor",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-death-and-decay",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-raise-dead",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-orc-refinery",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-oil-platform",              "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-orc-wall",                   "FFFFFFFFFFFFFFFF")
+
+-- Specials
+DefineAllow("unit-daemon",                     "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-critter",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-gold-mine",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-oil-patch",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-circle-of-power",            "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dark-portal",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-runestone",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dead-body",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-1x1-place",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-2x2-place",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-3x3-place",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-4x4-place",                "FFFFFFFFFFFFFFFF")
 
-(add-trigger
-  '(
-    (and
-      (if-unit 'this '>= 1 'unit-alliance-shipyard)
-      (if-unit 'this '>= 4 'unit-alliance-oil-platform)))
-  '(
-    (action-victory)))
-(add-trigger
-  '(
-    (if-unit 'this '== 0 'all))
-  '(
-    (action-defeat)))
-
-;;Units
-
-;;Townhall - Produces
-(define-allow 'unit-peasant                    "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-peon                       "AAAAAAAAAAAAAAAA")
-
-;;Barracks - Produces
-(define-allow 'unit-footman                    "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-archer                     "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-ranger                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-knight                     "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-paladin                   "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ballista                   "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-grunt                      "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-axethrower                 "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-berserker                 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ogre                       "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-ogre-mage                 "FFFFFFFFFFFFFFFF")
-  (define-allow 'unit-eye-of-vision            "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-catapult                   "FFFFFFFFFFFFFFFF")
-
-;;Shipyard - Produces
-(define-allow 'unit-human-oil-tanker           "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-destroyer         "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-transport         "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-battleship                 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-submarine         "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-orc-oil-tanker             "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-transport         "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-destroyer         "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-ogre-juggernaught          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-submarine         "FFFFFFFFFFFFFFFF")
-
-;;Other Buildings
-(define-allow 'unit-balloon    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-gryphon-rider              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mage                       "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dwarves                    "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-zeppelin           "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dragon                     "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-death-knight               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-goblin-sappers             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-skeleton                   "FFFFFFFFFFFFFFFF")
-
-;;Human Specials
-(define-allow 'unit-female-hero                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-flying-angle               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-white-mage                 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-knight-rider                       "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-arthor-literios                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-wise-man                   "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-man-of-light               "FFFFFFFFFFFFFFFF")
-
-;;Building Human
-(define-allow 'unit-town-hall                  "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-keep                      "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-castle                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-barracks          "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-farm                       "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-blacksmith                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-sword1                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-sword2                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-shield1          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-shield2          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ballista1              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ballista2              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-watch-tower               "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-alliance-guard-tower              "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-alliance-cannon-tower             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-elven-lumber-mill           "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-arrow1                  "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-arrow2                  "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ranger                  "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-longbow                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ranger-scouting         "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ranger-marksmanship     "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-church                     "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-paladin                        "FFFFFFFFFFFFFFFF")
-;; (define-allow 'upgrade-holy-vision          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-healing                        "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-exorcism               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-stables                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-inventor           "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-gryphon-aviary             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-shipyard          "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-human-refinery             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-oil-platform              "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-foundry           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-cannon1     "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-cannon2     "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-armor1      "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-armor2      "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mage-tower                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-flame-shield           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-fireball               "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-slow                   "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-invisibility           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-polymorph              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-blizzard               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-human-wall                 "FFFFFFFFFFFFFFFF")
-
-;; Orc Specials
-(define-allow 'unit-evil-knight                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-fad-man                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-beast-cry          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-fire-breeze                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-quick-blade                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-double-head                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ice-bringer                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-sharp-axe                  "FFFFFFFFFFFFFFFF")
-
-
-(define-allow 'unit-great-hall                 "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-stronghold                        "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-fortress                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-barracks          "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-pig-farm                   "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-blacksmith                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-battle-axe1            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-battle-axe2            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-shield1            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-shield2            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-catapult1              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-catapult2              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-watch-tower               "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-mythical-guard-tower              "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-mythical-cannon-tower             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-troll-lumber-mill          "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-throwing-axe1          "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-throwing-axe2          "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-berserker              "FFFFFFFFFFFFFFFF")
-  (define-allow 'upgrade-light-axes            "FFFFFFFFFFFFFFFF")
-  (define-allow 'upgrade-berserker-scouting    "FFFFFFFFFFFFFFFF")
-  (define-allow 'upgrade-berserker-regeneration        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-altar-of-storms            "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ogre-mound                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ogre-mage              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-eye-of-kilrogg         "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-bloodlust              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-runes                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alchemist          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dragon-roost               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-shipyard          "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-foundry                   "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-ship-cannon1       "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-ship-cannon2       "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-ship-armor1                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-ship-armor2                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-temple-of-the-damned       "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-death-coil             "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-whirlwind              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-haste                  "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-unholy-armor           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-death-and-decay                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-raise-dead             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-orc-refinery               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-oil-platform              "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-orc-wall                   "FFFFFFFFFFFFFFFF")
-
-;; Specials
-(define-allow 'unit-daemon                     "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-critter                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-gold-mine                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-oil-patch                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-circle-of-power            "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dark-portal                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-runestone                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dead-body                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-1x1-place                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-2x2-place                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-3x3-place                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-4x4-place                "FFFFFFFFFFFFFFFF")
-
-(load-pud "campaigns/human/level03h.pud")
+LoadPud("campaigns/human/level03h.pud")
Index: stratagus/contrib/campaigns/human/level04h.cm
diff -u stratagus/contrib/campaigns/human/level04h.cm:1.6 
stratagus/contrib/campaigns/human/level04h.cm:1.7
--- stratagus/contrib/campaigns/human/level04h.cm:1.6   Fri Sep 12 08:07:52 2003
+++ stratagus/contrib/campaigns/human/level04h.cm       Sun Jan 11 10:46:23 2004
@@ -1,200 +1,196 @@
-;;     Stratagus Map - Single player campaign
+--     Stratagus Map - Single player campaign
 
-(briefing 'type 'wc2
+Briefing("type", "wc2",
 ^^TITLE^^
-    'background "campaigns/human/interface/introscreen1.png"
-    'text "campaigns/human/level04h.txt"
-    'voice "campaigns/human/level04h-intro1.wav"
-    'voice "campaigns/human/level04h-intro2.wav"
 ^^OBJECTIVES^^
-    )
+  "background", "campaigns/human/interface/introscreen1.png",
+  "text", "campaigns/human/level04h.txt",
+  "voice", "campaigns/human/level04h-intro1.wav",
+  "voice", "campaigns/human/level04h-intro2.wav"
+)
+
+AddTrigger(
+  function() return IfOpponents("this", "==", 0) end,
+  function() return ActionVictory() end)
+AddTrigger(
+  function() return IfUnit("this", "==", 0, "all") end,
+  function() return ActionDefeat() end)
+
+--Units
+
+--Townhall - Produces
+DefineAllow("unit-peasant",                    "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-peon",                       "AAAAAAAAAAAAAAAA")
+
+--Barracks - Produces
+DefineAllow("unit-footman",                    "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-archer",                     "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-ranger",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-knight",                     "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-paladin",                   "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ballista",                   "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-grunt",                      "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-axethrower",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-berserker",                 "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ogre",                       "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-ogre-mage",                 "FFFFFFFFFFFFFFFF")
+  DefineAllow("unit-eye-of-vision",            "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-catapult",                   "FFFFFFFFFFFFFFFF")
+
+--Shipyard - Produces
+DefineAllow("unit-human-oil-tanker",           "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-destroyer",         "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-transport",         "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-battleship",                 "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-submarine",         "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-orc-oil-tanker",             "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-transport",         "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-destroyer",         "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre-juggernaught",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-submarine",         "FFFFFFFFFFFFFFFF")
+
+--Other Buildings
+DefineAllow("unit-balloon",    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-gryphon-rider",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mage",                       "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dwarves",                    "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-zeppelin",           "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dragon",                     "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-death-knight",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-goblin-sappers",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-skeleton",                   "FFFFFFFFFFFFFFFF")
+
+--Human Specials
+DefineAllow("unit-female-hero",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-flying-angle",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-white-mage",                 "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-knight-rider",                       "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-arthor-literios",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-wise-man",                   "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-man-of-light",               "FFFFFFFFFFFFFFFF")
+
+--Building Human
+DefineAllow("unit-town-hall",                  "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-keep",                      "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-castle",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-barracks",          "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-farm",                       "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-blacksmith",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-sword1",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-sword2",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-shield1",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-shield2",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ballista1",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ballista2",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-watch-tower",               "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-alliance-guard-tower",              "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-alliance-cannon-tower",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-elven-lumber-mill",           "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-arrow1",                  "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-arrow2",                  "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ranger",                  "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-longbow",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ranger-scouting",         "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ranger-marksmanship",     "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-church",                     "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-paladin",                        "FFFFFFFFFFFFFFFF")
+-- DefineAllow("upgrade-holy-vision",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-healing",                        "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-exorcism",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-stables",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-inventor",           "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-gryphon-aviary",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-shipyard",          "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-human-refinery",             "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-oil-platform",              "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-foundry",           "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-cannon1",     "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-cannon2",     "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-armor1",      "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-armor2",      "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mage-tower",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-flame-shield",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-fireball",               "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-slow",                   "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-invisibility",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-polymorph",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-blizzard",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-human-wall",                 "FFFFFFFFFFFFFFFF")
+
+-- Orc Specials
+DefineAllow("unit-evil-knight",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-fad-man",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-beast-cry",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-fire-breeze",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-quick-blade",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-double-head",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ice-bringer",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-sharp-axe",                  "FFFFFFFFFFFFFFFF")
+
+
+DefineAllow("unit-great-hall",                 "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-stronghold",                        "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-fortress",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-barracks",          "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-pig-farm",                   "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-blacksmith",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-battle-axe1",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-battle-axe2",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-shield1",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-shield2",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-catapult1",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-catapult2",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-watch-tower",               "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-mythical-guard-tower",              "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-mythical-cannon-tower",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-troll-lumber-mill",          "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-throwing-axe1",          "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-throwing-axe2",          "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-berserker",              "FFFFFFFFFFFFFFFF")
+  DefineAllow("upgrade-light-axes",            "FFFFFFFFFFFFFFFF")
+  DefineAllow("upgrade-berserker-scouting",    "FFFFFFFFFFFFFFFF")
+  DefineAllow("upgrade-berserker-regeneration",        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-altar-of-storms",            "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ogre-mound",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ogre-mage",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-eye-of-kilrogg",         "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-bloodlust",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-runes",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alchemist",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dragon-roost",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-shipyard",          "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-foundry",                   "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon1",       "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon2",       "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-ship-armor1",                "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-armor2",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-temple-of-the-damned",       "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-death-coil",             "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-whirlwind",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-haste",                  "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-unholy-armor",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-death-and-decay",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-raise-dead",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-orc-refinery",               "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-oil-platform",              "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-orc-wall",                   "FFFFFFFFFFFFFFFF")
+
+-- Specials
+DefineAllow("unit-daemon",                     "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-critter",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-gold-mine",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-oil-patch",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-circle-of-power",            "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dark-portal",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-runestone",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dead-body",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-1x1-place",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-2x2-place",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-3x3-place",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-4x4-place",                "FFFFFFFFFFFFFFFF")
 
-(add-trigger
-  '(
-    (if-opponents 'this '== 0))
-  '(
-    (action-victory)))
-(add-trigger
-  '(
-    (if-unit 'this '== 0 'all))
-  '(
-    (action-defeat)))
-
-;;Units
-
-;;Townhall - Produces
-(define-allow 'unit-peasant                    "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-peon                       "AAAAAAAAAAAAAAAA")
-
-;;Barracks - Produces
-(define-allow 'unit-footman                    "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-archer                     "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-ranger                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-knight                     "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-paladin                   "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ballista                   "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-grunt                      "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-axethrower                 "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-berserker                 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ogre                       "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-ogre-mage                 "FFFFFFFFFFFFFFFF")
-  (define-allow 'unit-eye-of-vision            "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-catapult                   "FFFFFFFFFFFFFFFF")
-
-;;Shipyard - Produces
-(define-allow 'unit-human-oil-tanker           "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-destroyer         "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-transport         "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-battleship                 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-submarine         "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-orc-oil-tanker             "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-transport         "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-destroyer         "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-ogre-juggernaught          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-submarine         "FFFFFFFFFFFFFFFF")
-
-;;Other Buildings
-(define-allow 'unit-balloon    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-gryphon-rider              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mage                       "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dwarves                    "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-zeppelin           "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dragon                     "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-death-knight               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-goblin-sappers             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-skeleton                   "FFFFFFFFFFFFFFFF")
-
-;;Human Specials
-(define-allow 'unit-female-hero                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-flying-angle               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-white-mage                 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-knight-rider                       "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-arthor-literios                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-wise-man                   "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-man-of-light               "FFFFFFFFFFFFFFFF")
-
-;;Building Human
-(define-allow 'unit-town-hall                  "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-keep                      "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-castle                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-barracks          "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-farm                       "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-blacksmith                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-sword1                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-sword2                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-shield1          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-shield2          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ballista1              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ballista2              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-watch-tower               "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-alliance-guard-tower              "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-alliance-cannon-tower             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-elven-lumber-mill           "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-arrow1                  "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-arrow2                  "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ranger                  "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-longbow                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ranger-scouting         "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ranger-marksmanship     "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-church                     "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-paladin                        "FFFFFFFFFFFFFFFF")
-;; (define-allow 'upgrade-holy-vision          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-healing                        "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-exorcism               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-stables                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-inventor           "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-gryphon-aviary             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-shipyard          "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-human-refinery             "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-oil-platform              "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-foundry           "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-cannon1     "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-cannon2     "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-armor1      "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-armor2      "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mage-tower                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-flame-shield           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-fireball               "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-slow                   "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-invisibility           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-polymorph              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-blizzard               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-human-wall                 "FFFFFFFFFFFFFFFF")
-
-;; Orc Specials
-(define-allow 'unit-evil-knight                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-fad-man                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-beast-cry          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-fire-breeze                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-quick-blade                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-double-head                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ice-bringer                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-sharp-axe                  "FFFFFFFFFFFFFFFF")
-
-
-(define-allow 'unit-great-hall                 "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-stronghold                        "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-fortress                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-barracks          "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-pig-farm                   "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-blacksmith                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-battle-axe1            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-battle-axe2            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-shield1            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-shield2            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-catapult1              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-catapult2              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-watch-tower               "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-mythical-guard-tower              "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-mythical-cannon-tower             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-troll-lumber-mill          "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-throwing-axe1          "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-throwing-axe2          "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-berserker              "FFFFFFFFFFFFFFFF")
-  (define-allow 'upgrade-light-axes            "FFFFFFFFFFFFFFFF")
-  (define-allow 'upgrade-berserker-scouting    "FFFFFFFFFFFFFFFF")
-  (define-allow 'upgrade-berserker-regeneration        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-altar-of-storms            "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ogre-mound                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ogre-mage              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-eye-of-kilrogg         "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-bloodlust              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-runes                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alchemist          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dragon-roost               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-shipyard          "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-foundry                   "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-cannon1       "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-cannon2       "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-ship-armor1                "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-armor2                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-temple-of-the-damned       "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-death-coil             "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-whirlwind              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-haste                  "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-unholy-armor           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-death-and-decay                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-raise-dead             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-orc-refinery               "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-oil-platform              "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-orc-wall                   "FFFFFFFFFFFFFFFF")
-
-;; Specials
-(define-allow 'unit-daemon                     "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-critter                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-gold-mine                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-oil-patch                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-circle-of-power            "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dark-portal                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-runestone                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dead-body                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-1x1-place                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-2x2-place                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-3x3-place                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-4x4-place                "FFFFFFFFFFFFFFFF")
-
-(load-pud "campaigns/human/level04h.pud")
+LoadPud("campaigns/human/level04h.pud")
Index: stratagus/contrib/campaigns/human/level05h.cm
diff -u stratagus/contrib/campaigns/human/level05h.cm:1.6 
stratagus/contrib/campaigns/human/level05h.cm:1.7
--- stratagus/contrib/campaigns/human/level05h.cm:1.6   Fri Sep 12 08:07:52 2003
+++ stratagus/contrib/campaigns/human/level05h.cm       Sun Jan 11 10:46:23 2004
@@ -1,201 +1,197 @@
-;;     Stratagus Map - Single player campaign
+--     Stratagus Map - Single player campaign
 
-(briefing 'type 'wc2
+Briefing("type", "wc2",
 ^^TITLE^^
-    'background "campaigns/human/interface/introscreen2.png"
-    'text "campaigns/human/level05h.txt"
-    'voice "campaigns/human/level05h-intro1.wav"
-    'voice "campaigns/human/level05h-intro2.wav"
 ^^OBJECTIVES^^
-    )
+  "background", "campaigns/human/interface/introscreen2.png",
+  "text", "campaigns/human/level05h.txt",
+  "voice", "campaigns/human/level05h-intro1.wav",
+  "voice", "campaigns/human/level05h-intro2.wav"
+)
+
+AddTrigger(
+  function() return IfOpponents("this", "==", 0) end,
+  function() return ActionVictory() end)
+AddTrigger(
+  function() return IfUnit("this", "==", 0, "all") end,
+  function() return ActionDefeat() end)
+
+
+--Units
+
+--Townhall - Produces
+DefineAllow("unit-peasant",                    "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-peon",                       "AAAAAAAAAAAAAAAA")
+
+--Barracks - Produces
+DefineAllow("unit-footman",                    "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-archer",                     "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-ranger",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-knight",                     "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-paladin",                   "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ballista",                   "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-grunt",                      "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-axethrower",                 "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-berserker",                 "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre",                       "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-ogre-mage",                 "FFFFFFFFFFFFFFFF")
+  DefineAllow("unit-eye-of-vision",            "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-catapult",                   "AAAAAAAAAAAAAAAA")
+
+--Shipyard - Produces
+DefineAllow("unit-human-oil-tanker",           "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-destroyer",         "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-transport",         "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-battleship",                 "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-submarine",         "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-orc-oil-tanker",             "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-transport",         "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-destroyer",         "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre-juggernaught",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-submarine",         "FFFFFFFFFFFFFFFF")
+
+--Other Buildings
+DefineAllow("unit-balloon",    "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-gryphon-rider",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mage",                       "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dwarves",                    "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-zeppelin",           "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dragon",                     "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-death-knight",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-goblin-sappers",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-skeleton",                   "FFFFFFFFFFFFFFFF")
+
+--Human Specials
+DefineAllow("unit-female-hero",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-flying-angle",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-white-mage",                 "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-knight-rider",                       "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-arthor-literios",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-wise-man",                   "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-man-of-light",               "FFFFFFFFFFFFFFFF")
+
+--Building Human
+DefineAllow("unit-town-hall",                  "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-keep",                      "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-castle",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-barracks",          "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-farm",                       "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-blacksmith",                "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-sword1",                 "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-sword2",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-shield1",          "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-shield2",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ballista1",              "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ballista2",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-watch-tower",               "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-alliance-guard-tower",              "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-alliance-cannon-tower",             "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-elven-lumber-mill",           "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-arrow1",                  "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-arrow2",                  "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ranger",                  "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-longbow",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ranger-scouting",         "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ranger-marksmanship",     "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-church",                     "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-paladin",                        "FFFFFFFFFFFFFFFF")
+-- DefineAllow("upgrade-holy-vision",          "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-healing",                        "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-exorcism",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-stables",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-inventor",           "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-gryphon-aviary",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-shipyard",          "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-human-refinery",             "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-oil-platform",              "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-foundry",           "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-cannon1",     "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-cannon2",     "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-armor1",      "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-armor2",      "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mage-tower",                 "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-flame-shield",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-fireball",               "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-slow",                   "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-invisibility",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-polymorph",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-blizzard",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-human-wall",                 "FFFFFFFFFFFFFFFF")
+
+-- Orc Specials
+DefineAllow("unit-evil-knight",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-fad-man",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-beast-cry",          "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-fire-breeze",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-quick-blade",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-double-head",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ice-bringer",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-sharp-axe",                  "FFFFFFFFFFFFFFFF")
+
+
+DefineAllow("unit-great-hall",                 "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-stronghold",                        "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-fortress",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-barracks",          "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-pig-farm",                   "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-blacksmith",                "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe1",            "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe2",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-shield1",            "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-shield2",            "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-catapult1",              "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-catapult2",              "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-watch-tower",               "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-mythical-guard-tower",              "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-mythical-cannon-tower",             "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-troll-lumber-mill",          "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-throwing-axe1",          "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-throwing-axe2",          "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-berserker",              "AAAAAAAAAAAAAAAA")
+  DefineAllow("upgrade-light-axes",            "AAAAAAAAAAAAAAAA")
+  DefineAllow("upgrade-berserker-scouting",    "AAAAAAAAAAAAAAAA")
+  DefineAllow("upgrade-berserker-regeneration",        "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-altar-of-storms",            "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ogre-mound",                 "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ogre-mage",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-eye-of-kilrogg",         "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-bloodlust",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-runes",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alchemist",          "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dragon-roost",               "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-shipyard",          "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-foundry",                   "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon1",       "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon2",       "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-ship-armor1",                "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-armor2",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-temple-of-the-damned",       "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-death-coil",             "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-whirlwind",              "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-haste",                  "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-unholy-armor",           "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-death-and-decay",                "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-raise-dead",             "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-orc-refinery",               "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-oil-platform",              "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-orc-wall",                   "FFFFFFFFFFFFFFFF")
+
+-- Specials
+DefineAllow("unit-daemon",                     "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-critter",                    "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-gold-mine",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-oil-patch",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-circle-of-power",            "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dark-portal",                        "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-runestone",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dead-body",                  "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-1x1-place",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-2x2-place",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-3x3-place",                "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-4x4-place",                "FFFFFFFFFFFFFFFF")
 
-(add-trigger
-  '(
-    (if-opponents 'this '== 0))
-  '(
-    (action-victory)))
-(add-trigger
-  '(
-    (if-unit 'this '== 0 'all))
-  '(
-    (action-defeat)))
-
-
-;;Units
-
-;;Townhall - Produces
-(define-allow 'unit-peasant                    "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-peon                       "AAAAAAAAAAAAAAAA")
-
-;;Barracks - Produces
-(define-allow 'unit-footman                    "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-archer                     "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-ranger                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-knight                     "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-paladin                   "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ballista                   "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-grunt                      "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-axethrower                 "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-berserker                 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-ogre                       "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-ogre-mage                 "FFFFFFFFFFFFFFFF")
-  (define-allow 'unit-eye-of-vision            "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-catapult                   "AAAAAAAAAAAAAAAA")
-
-;;Shipyard - Produces
-(define-allow 'unit-human-oil-tanker           "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-destroyer         "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-transport         "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-battleship                 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-submarine         "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-orc-oil-tanker             "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-transport         "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-destroyer         "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-ogre-juggernaught          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-submarine         "FFFFFFFFFFFFFFFF")
-
-;;Other Buildings
-(define-allow 'unit-balloon    "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-gryphon-rider              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mage                       "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dwarves                    "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-zeppelin           "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dragon                     "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-death-knight               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-goblin-sappers             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-skeleton                   "FFFFFFFFFFFFFFFF")
-
-;;Human Specials
-(define-allow 'unit-female-hero                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-flying-angle               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-white-mage                 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-knight-rider                       "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-arthor-literios                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-wise-man                   "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-man-of-light               "FFFFFFFFFFFFFFFF")
-
-;;Building Human
-(define-allow 'unit-town-hall                  "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-keep                      "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-castle                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-barracks          "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-farm                       "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-blacksmith                "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-sword1                 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-sword2                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-shield1          "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-shield2          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ballista1              "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ballista2              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-watch-tower               "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-alliance-guard-tower              "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-alliance-cannon-tower             "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-elven-lumber-mill           "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-arrow1                  "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-arrow2                  "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ranger                  "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-longbow                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ranger-scouting         "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ranger-marksmanship     "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-church                     "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-paladin                        "FFFFFFFFFFFFFFFF")
-;; (define-allow 'upgrade-holy-vision          "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-healing                        "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-exorcism               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-stables                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-inventor           "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-gryphon-aviary             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-shipyard          "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-human-refinery             "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-oil-platform              "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-foundry           "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-cannon1     "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-cannon2     "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-armor1      "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-armor2      "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mage-tower                 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-flame-shield           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-fireball               "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-slow                   "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-invisibility           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-polymorph              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-blizzard               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-human-wall                 "FFFFFFFFFFFFFFFF")
-
-;; Orc Specials
-(define-allow 'unit-evil-knight                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-fad-man                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-beast-cry          "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-fire-breeze                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-quick-blade                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-double-head                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ice-bringer                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-sharp-axe                  "FFFFFFFFFFFFFFFF")
-
-
-(define-allow 'unit-great-hall                 "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-stronghold                        "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-fortress                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-barracks          "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-pig-farm                   "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-blacksmith                "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-battle-axe1            "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-battle-axe2            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-shield1            "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-shield2            "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-catapult1              "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-catapult2              "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-watch-tower               "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-mythical-guard-tower              "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-mythical-cannon-tower             "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-troll-lumber-mill          "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-throwing-axe1          "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-throwing-axe2          "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-berserker              "AAAAAAAAAAAAAAAA")
-  (define-allow 'upgrade-light-axes            "AAAAAAAAAAAAAAAA")
-  (define-allow 'upgrade-berserker-scouting    "AAAAAAAAAAAAAAAA")
-  (define-allow 'upgrade-berserker-regeneration        "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-altar-of-storms            "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ogre-mound                 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ogre-mage              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-eye-of-kilrogg         "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-bloodlust              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-runes                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alchemist          "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dragon-roost               "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-shipyard          "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-foundry                   "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-cannon1       "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-cannon2       "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-ship-armor1                "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-armor2                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-temple-of-the-damned       "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-death-coil             "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-whirlwind              "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-haste                  "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-unholy-armor           "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-death-and-decay                "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-raise-dead             "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-orc-refinery               "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-oil-platform              "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-orc-wall                   "FFFFFFFFFFFFFFFF")
-
-;; Specials
-(define-allow 'unit-daemon                     "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-critter                    "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-gold-mine                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-oil-patch                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-circle-of-power            "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dark-portal                        "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-runestone                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dead-body                  "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-1x1-place                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-2x2-place                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-3x3-place                "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-4x4-place                "FFFFFFFFFFFFFFFF")
-
-(load-pud "campaigns/human/level05h.pud")
+LoadPud("campaigns/human/level05h.pud")




reply via email to

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