[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Stratagus-CVS] stratagus/contrib/campaigns/human level10h.cm l...
From: |
address@hidden |
Subject: |
[Stratagus-CVS] stratagus/contrib/campaigns/human level10h.cm l... |
Date: |
11 Jan 2004 11:31:31 +1100 |
CVSROOT: /home/strat
Module name: stratagus
Changes by: <address@hidden> 04/01/11 11:31:30
Modified files:
contrib/campaigns/human: level10h.cm level11h.cm level12h.cm
level13h.cm level14h.cm
Log message:
Converted to lua
Patches:
Index: stratagus/contrib/campaigns/human/level10h.cm
diff -u stratagus/contrib/campaigns/human/level10h.cm:1.6
stratagus/contrib/campaigns/human/level10h.cm:1.7
--- stratagus/contrib/campaigns/human/level10h.cm:1.6 Fri Sep 12 08:07:52 2003
+++ stratagus/contrib/campaigns/human/level10h.cm Sun Jan 11 11:31:30 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/introscreen3.png"
- 'text "campaigns/human/level10h.txt"
- 'voice "campaigns/human/level10h-intro1.wav"
^^OBJECTIVES^^
- )
+ "background", "campaigns/human/interface/introscreen3.png",
+ "text", "campaigns/human/level10h.txt",
+ "voice", "campaigns/human/level10h-intro1.wav"
+)
+
+AddTrigger(
+ function() return IfRescuedNearUnit("this", ">=", 4, "unit-peasant",
"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", "AAAAAAAAAAAAAAAA")
+
+--Barracks - Produces
+DefineAllow("unit-footman", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-archer", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-ranger", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-knight", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-paladin", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ballista", "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-grunt", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-axethrower", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-berserker", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-ogre-mage", "AAAAAAAAAAAAAAAA")
+ 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", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-barracks", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-farm", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-blacksmith", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-sword1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-sword2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-shield1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-shield2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ballista1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ballista2", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-longbow", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ranger-scouting", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ranger-marksmanship", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-church", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-paladin", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-holy-vision", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-healing", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-exorcism", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-stables", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-armor1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-armor2", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-barracks", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-pig-farm", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-blacksmith", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-shield1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-shield2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-catapult1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-catapult2", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre-mound", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ogre-mage", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-eye-of-kilrogg", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-bloodlust", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-runes", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-armor1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-armor2", "AAAAAAAAAAAAAAAA")
+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-rescued-near-unit 'this '>= 4 'unit-peasant '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 "AAAAAAAAAAAAAAAA")
-
-;;Barracks - Produces
-(define-allow 'unit-footman "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-archer "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-ranger "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-knight "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-paladin "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (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 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-shield1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-shield2 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ballista1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ballista2 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-longbow "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ranger-scouting "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ranger-marksmanship "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-church "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-paladin "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-holy-vision "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-healing "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-exorcism "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-stables "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-armor1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-armor2 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-shield1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-shield2 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-catapult1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-catapult2 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-ogre-mound "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ogre-mage "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-eye-of-kilrogg "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-bloodlust "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-runes "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-armor1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-armor2 "AAAAAAAAAAAAAAAA")
-(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/level10h.pud")
+LoadPud("campaigns/human/level10h.pud")
Index: stratagus/contrib/campaigns/human/level11h.cm
diff -u stratagus/contrib/campaigns/human/level11h.cm:1.6
stratagus/contrib/campaigns/human/level11h.cm:1.7
--- stratagus/contrib/campaigns/human/level11h.cm:1.6 Fri Sep 12 08:07:52 2003
+++ stratagus/contrib/campaigns/human/level11h.cm Sun Jan 11 11:31:30 2004
@@ -1,205 +1,200 @@
-;; Stratagus Map - Single player campaign
+-- Stratagus Map - Single player campaign
-(briefing 'type 'wc2
+Briefing("type", "wc2",
^^TITLE^^
- 'background "campaigns/human/interface/introscreen4.png"
- 'text "campaigns/human/level11h.txt"
- 'voice "campaigns/human/level11h-intro1.wav"
- 'voice "campaigns/human/level11h-intro2.wav"
^^OBJECTIVES^^
- )
+ "background", "campaigns/human/interface/introscreen4.png",
+ "text", "campaigns/human/level11h.txt",
+ "voice", "campaigns/human/level11h-intro1.wav",
+ "voice", "campaigns/human/level11h-intro2.wav"
+)
+
+-- FIXME: Check if units are freed.
+
+AddTrigger(
+ function() return IfUnit(3, "==", 0, "all") and
+ 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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-knight", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-paladin", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ballista", "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-grunt", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-axethrower", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-berserker", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-ogre-mage", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-eye-of-vision", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-submarine", "FFFFFFFFFFFFFFFF")
+
+--Other Buildings
+DefineAllow("unit-balloon", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-gryphon-rider", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mage", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dwarves", "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-zeppelin", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dragon", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-death-knight", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-goblin-sappers", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-skeleton", "AAAAAAAAAAAAAAAA")
+
+--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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-barracks", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-farm", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-blacksmith", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-sword1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-sword2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-shield1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-shield2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ballista1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ballista2", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-longbow", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ranger-scouting", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ranger-marksmanship", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-church", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-paladin", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-holy-vision", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-healing", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-exorcism", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-stables", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-armor1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-armor2", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mage-tower", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-flame-shield", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-fireball", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-slow", "AAAAAAAAAAAAAAAA")
+ 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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-barracks", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-pig-farm", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-blacksmith", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-shield1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-shield2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-catapult1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-catapult2", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre-mound", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ogre-mage", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-eye-of-kilrogg", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-bloodlust", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-runes", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-armor1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-armor2", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-temple-of-the-damned", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-death-coil", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-whirlwind", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-haste", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-unholy-armor", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-death-and-decay", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-raise-dead", "AAAAAAAAAAAAAAAA")
+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")
-;; FIXME: Check if units are freed.
-
-(add-trigger
- '(
- (and
- (if-unit 3 '== 0 'all)
- (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 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-knight "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-paladin "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-eye-of-vision "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-submarine "FFFFFFFFFFFFFFFF")
-
-;;Other Buildings
-(define-allow 'unit-balloon "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-gryphon-rider "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mage "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dwarves "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-zeppelin "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dragon "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-death-knight "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-goblin-sappers "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-skeleton "AAAAAAAAAAAAAAAA")
-
-;;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 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-shield1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-shield2 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ballista1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ballista2 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-longbow "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ranger-scouting "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ranger-marksmanship "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-church "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-paladin "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-holy-vision "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-healing "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-exorcism "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-stables "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-armor1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-armor2 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mage-tower "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-flame-shield "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-fireball "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-slow "AAAAAAAAAAAAAAAA")
- (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 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-shield1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-shield2 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-catapult1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-catapult2 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-ogre-mound "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ogre-mage "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-eye-of-kilrogg "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-bloodlust "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-runes "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-armor1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-armor2 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-temple-of-the-damned "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-death-coil "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-whirlwind "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-haste "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-unholy-armor "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-death-and-decay "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-raise-dead "AAAAAAAAAAAAAAAA")
-(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/level11h.pud")
+LoadPud("campaigns/human/level11h.pud")
Index: stratagus/contrib/campaigns/human/level12h.cm
diff -u stratagus/contrib/campaigns/human/level12h.cm:1.6
stratagus/contrib/campaigns/human/level12h.cm:1.7
--- stratagus/contrib/campaigns/human/level12h.cm:1.6 Fri Sep 12 08:07:52 2003
+++ stratagus/contrib/campaigns/human/level12h.cm Sun Jan 11 11:31:30 2004
@@ -1,202 +1,198 @@
-;; Stratagus Map - Single player campaign
+-- Stratagus Map - Single player campaign
-(briefing 'type 'wc2
+Briefing("type", "wc2",
^^TITLE^^
- 'background "campaigns/human/interface/introscreen4.png"
- 'text "campaigns/human/level12h.txt"
- 'voice "campaigns/human/level12h-intro1.wav"
^^OBJECTIVES^^
- )
+ "background", "campaigns/human/interface/introscreen4.png",
+ "text", "campaigns/human/level12h.txt",
+ "voice", "campaigns/human/level12h-intro1.wav"
+)
+
+-- FIXME: Check if units are destroyed.
+
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-knight", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-paladin", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ballista", "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-grunt", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-axethrower", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-berserker", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-ogre-mage", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-eye-of-vision", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-submarine", "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-orc-oil-tanker", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-transport", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-destroyer", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre-juggernaught", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-submarine", "AAAAAAAAAAAAAAAA")
+
+--Other Buildings
+DefineAllow("unit-balloon", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-gryphon-rider", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mage", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dwarves", "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-zeppelin", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dragon", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-death-knight", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-goblin-sappers", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-skeleton", "AAAAAAAAAAAAAAAA")
+
+--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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-barracks", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-farm", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-blacksmith", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-sword1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-sword2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-shield1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-shield2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ballista1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ballista2", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-longbow", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ranger-scouting", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ranger-marksmanship", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-church", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-paladin", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-holy-vision", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-healing", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-exorcism", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-stables", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-armor1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-armor2", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mage-tower", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-flame-shield", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-fireball", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-slow", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-invisibility", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-polymorph", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-blizzard", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-barracks", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-pig-farm", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-blacksmith", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-shield1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-shield2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-catapult1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-catapult2", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre-mound", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ogre-mage", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-eye-of-kilrogg", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-bloodlust", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-runes", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-armor1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-armor2", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-temple-of-the-damned", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-death-coil", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-whirlwind", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-haste", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-unholy-armor", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-death-and-decay", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-raise-dead", "AAAAAAAAAAAAAAAA")
+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")
-;; FIXME: Check if units are destroyed.
-
-(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 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-knight "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-paladin "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-eye-of-vision "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-submarine "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-orc-oil-tanker "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-transport "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-destroyer "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-ogre-juggernaught "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-submarine "AAAAAAAAAAAAAAAA")
-
-;;Other Buildings
-(define-allow 'unit-balloon "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-gryphon-rider "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mage "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dwarves "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-zeppelin "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dragon "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-death-knight "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-goblin-sappers "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-skeleton "AAAAAAAAAAAAAAAA")
-
-;;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 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-shield1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-shield2 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ballista1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ballista2 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-longbow "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ranger-scouting "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ranger-marksmanship "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-church "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-paladin "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-holy-vision "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-healing "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-exorcism "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-stables "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-armor1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-armor2 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mage-tower "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-flame-shield "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-fireball "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-slow "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-invisibility "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-polymorph "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-blizzard "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-shield1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-shield2 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-catapult1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-catapult2 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-ogre-mound "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ogre-mage "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-eye-of-kilrogg "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-bloodlust "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-runes "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-armor1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-armor2 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-temple-of-the-damned "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-death-coil "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-whirlwind "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-haste "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-unholy-armor "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-death-and-decay "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-raise-dead "AAAAAAAAAAAAAAAA")
-(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/level12h.pud")
+LoadPud("campaigns/human/level12h.pud")
Index: stratagus/contrib/campaigns/human/level13h.cm
diff -u stratagus/contrib/campaigns/human/level13h.cm:1.6
stratagus/contrib/campaigns/human/level13h.cm:1.7
--- stratagus/contrib/campaigns/human/level13h.cm:1.6 Fri Sep 12 08:07:52 2003
+++ stratagus/contrib/campaigns/human/level13h.cm Sun Jan 11 11:31:30 2004
@@ -1,203 +1,199 @@
-;; Stratagus Map - Single player campaign
+-- Stratagus Map - Single player campaign
-(briefing 'type 'wc2
+Briefing("type", "wc2",
^^TITLE^^
- 'background "campaigns/human/interface/introscreen5.png"
- 'text "campaigns/human/level13h.txt"
- 'voice "campaigns/human/level13h-intro1.wav"
- 'voice "campaigns/human/level13h-intro2.wav"
^^OBJECTIVES^^
- )
+ "background", "campaigns/human/interface/introscreen5.png",
+ "text", "campaigns/human/level13h.txt",
+ "voice", "campaigns/human/level13h-intro1.wav",
+ "voice", "campaigns/human/level13h-intro2.wav"
+)
+
+-- FIXME: Check if units are destroyed.
+
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-knight", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-paladin", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ballista", "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-grunt", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-axethrower", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-berserker", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-ogre-mage", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-eye-of-vision", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-submarine", "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-orc-oil-tanker", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-transport", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-destroyer", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre-juggernaught", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-submarine", "AAAAAAAAAAAAAAAA")
+
+--Other Buildings
+DefineAllow("unit-balloon", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-gryphon-rider", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mage", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dwarves", "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-zeppelin", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dragon", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-death-knight", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-goblin-sappers", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-skeleton", "AAAAAAAAAAAAAAAA")
+
+--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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-barracks", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-farm", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-blacksmith", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-sword1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-sword2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-shield1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-shield2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ballista1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ballista2", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-longbow", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ranger-scouting", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ranger-marksmanship", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-church", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-paladin", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-holy-vision", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-healing", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-exorcism", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-stables", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-inventor", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-gryphon-aviary", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-armor1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-armor2", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mage-tower", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-flame-shield", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-fireball", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-slow", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-invisibility", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-polymorph", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-blizzard", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-barracks", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-pig-farm", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-blacksmith", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-shield1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-shield2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-catapult1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-catapult2", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre-mound", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ogre-mage", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-eye-of-kilrogg", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-bloodlust", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-runes", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alchemist", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dragon-roost", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-shipyard", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-foundry", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-armor1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-armor2", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-temple-of-the-damned", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-death-coil", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-whirlwind", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-haste", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-unholy-armor", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-death-and-decay", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-raise-dead", "AAAAAAAAAAAAAAAA")
+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")
-;; FIXME: Check if units are destroyed.
-
-(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 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-knight "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-paladin "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-eye-of-vision "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-submarine "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-orc-oil-tanker "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-transport "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-destroyer "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-ogre-juggernaught "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-submarine "AAAAAAAAAAAAAAAA")
-
-;;Other Buildings
-(define-allow 'unit-balloon "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-gryphon-rider "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mage "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dwarves "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-zeppelin "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dragon "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-death-knight "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-goblin-sappers "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-skeleton "AAAAAAAAAAAAAAAA")
-
-;;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 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-shield1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-shield2 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ballista1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ballista2 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-longbow "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ranger-scouting "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ranger-marksmanship "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-church "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-paladin "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-holy-vision "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-healing "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-exorcism "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-stables "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-inventor "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-gryphon-aviary "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-armor1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-armor2 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mage-tower "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-flame-shield "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-fireball "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-slow "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-invisibility "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-polymorph "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-blizzard "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-shield1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-shield2 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-catapult1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-catapult2 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-ogre-mound "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ogre-mage "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-eye-of-kilrogg "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-bloodlust "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-runes "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alchemist "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dragon-roost "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-armor1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-armor2 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-temple-of-the-damned "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-death-coil "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-whirlwind "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-haste "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-unholy-armor "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-death-and-decay "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-raise-dead "AAAAAAAAAAAAAAAA")
-(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/level13h.pud")
+LoadPud("campaigns/human/level13h.pud")
Index: stratagus/contrib/campaigns/human/level14h.cm
diff -u stratagus/contrib/campaigns/human/level14h.cm:1.6
stratagus/contrib/campaigns/human/level14h.cm:1.7
--- stratagus/contrib/campaigns/human/level14h.cm:1.6 Fri Sep 12 08:07:52 2003
+++ stratagus/contrib/campaigns/human/level14h.cm Sun Jan 11 11:31:30 2004
@@ -1,203 +1,199 @@
-;; Stratagus Map - Single player campaign
+-- Stratagus Map - Single player campaign
-(briefing 'type 'wc2
+Briefing("type", "wc2",
^^TITLE^^
- 'background "campaigns/human/interface/introscreen5.png"
- 'text "campaigns/human/level14h.txt"
- 'voice "campaigns/human/level14h-intro1.wav"
- 'voice "campaigns/human/level14h-intro2.wav"
^^OBJECTIVES^^
- )
+ "background", "campaigns/human/interface/introscreen5.png",
+ "text", "campaigns/human/level14h.txt",
+ "voice", "campaigns/human/level14h-intro1.wav",
+ "voice", "campaigns/human/level14h-intro2.wav"
+)
+
+-- FIXME: Check if units are destroyed.
+
+AddTrigger(
+ function() return IfUnit(15, "==", 0, "unit-dark-portal") 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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-knight", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-paladin", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ballista", "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-grunt", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-axethrower", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-berserker", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-ogre-mage", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-eye-of-vision", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-submarine", "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-orc-oil-tanker", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-transport", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-destroyer", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre-juggernaught", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-submarine", "AAAAAAAAAAAAAAAA")
+
+--Other Buildings
+DefineAllow("unit-balloon", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-gryphon-rider", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mage", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dwarves", "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-zeppelin", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dragon", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-death-knight", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-goblin-sappers", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-skeleton", "AAAAAAAAAAAAAAAA")
+
+--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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-barracks", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-farm", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-blacksmith", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-sword1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-sword2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-shield1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-shield2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ballista1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ballista2", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-longbow", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ranger-scouting", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ranger-marksmanship", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-church", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-paladin", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-holy-vision", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-healing", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-exorcism", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-stables", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-inventor", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-gryphon-aviary", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-armor1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-armor2", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mage-tower", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-flame-shield", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-fireball", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-slow", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-invisibility", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-polymorph", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-blizzard", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-barracks", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-pig-farm", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-blacksmith", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-shield1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-shield2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-catapult1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-catapult2", "AAAAAAAAAAAAAAAA")
+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", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre-mound", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ogre-mage", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-eye-of-kilrogg", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-bloodlust", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-runes", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alchemist", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dragon-roost", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-shipyard", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-foundry", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon2", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-armor1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-armor2", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-temple-of-the-damned", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-death-coil", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-whirlwind", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-haste", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-unholy-armor", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-death-and-decay", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-raise-dead", "AAAAAAAAAAAAAAAA")
+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")
-;; FIXME: Check if units are destroyed.
-
-(add-trigger
- '(
- (if-unit 15 '== 0 'unit-dark-portal))
- '(
- (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 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-knight "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-paladin "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-eye-of-vision "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-submarine "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-orc-oil-tanker "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-transport "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-destroyer "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-ogre-juggernaught "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-submarine "AAAAAAAAAAAAAAAA")
-
-;;Other Buildings
-(define-allow 'unit-balloon "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-gryphon-rider "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mage "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dwarves "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-zeppelin "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dragon "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-death-knight "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-goblin-sappers "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-skeleton "AAAAAAAAAAAAAAAA")
-
-;;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 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-shield1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-shield2 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ballista1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ballista2 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-longbow "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ranger-scouting "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ranger-marksmanship "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-church "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-paladin "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-holy-vision "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-healing "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-exorcism "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-stables "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-inventor "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-gryphon-aviary "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-armor1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-armor2 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mage-tower "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-flame-shield "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-fireball "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-slow "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-invisibility "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-polymorph "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-blizzard "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-shield1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-shield2 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-catapult1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-catapult2 "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-ogre-mound "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ogre-mage "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-eye-of-kilrogg "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-bloodlust "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-runes "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alchemist "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dragon-roost "AAAAAAAAAAAAAAAA")
-(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 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-armor1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-armor2 "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-temple-of-the-damned "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-death-coil "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-whirlwind "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-haste "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-unholy-armor "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-death-and-decay "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-raise-dead "AAAAAAAAAAAAAAAA")
-(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/level14h.pud")
+LoadPud("campaigns/human/level14h.pud")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Stratagus-CVS] stratagus/contrib/campaigns/human level10h.cm l...,
address@hidden <=