[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Stratagus-CVS] stratagus/contrib/campaigns/human level06h.cm l...
|
From: |
address@hidden |
|
Subject: |
[Stratagus-CVS] stratagus/contrib/campaigns/human level06h.cm l... |
|
Date: |
11 Jan 2004 11:04:22 +1100 |
CVSROOT: /home/strat
Module name: stratagus
Changes by: <address@hidden> 04/01/11 11:04:21
Modified files:
contrib/campaigns/human: level06h.cm level07h.cm level08h.cm
level09h.cm
Log message:
Converted to lua
Patches:
Index: stratagus/contrib/campaigns/human/level06h.cm
diff -u stratagus/contrib/campaigns/human/level06h.cm:1.6
stratagus/contrib/campaigns/human/level06h.cm:1.7
--- stratagus/contrib/campaigns/human/level06h.cm:1.6 Fri Sep 12 08:07:52 2003
+++ stratagus/contrib/campaigns/human/level06h.cm Sun Jan 11 11:04:21 2004
@@ -1,199 +1,195 @@
-;; Stratagus Map - Single player campaign
+-- Stratagus Map - Single player campaign
-(briefing 'type 'wc2
+Briefing("type", "wc2",
^^TITLE^^
- 'background "campaigns/human/interface/introscreen2.png"
- 'text "campaigns/human/level06h.txt"
- 'voice "campaigns/human/level06h-intro1.wav"
^^OBJECTIVES^^
- )
+ "background", "campaigns/human/interface/introscreen2.png",
+ "text", "campaigns/human/level06h.txt",
+ "voice", "campaigns/human/level06h-intro1.wav"
+)
+
+AddTrigger(
+ function() return IfOpponents("this", "==", 0) end,
+ function() return ActionVictory() end)
+AddTrigger(
+ function() return IfUnit("this", "==", 0, "all") end,
+ function() return ActionDefeat() end)
+
+--Units
+
+--Townhall - Produces
+DefineAllow("unit-peasant", "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-peon", "AAAAAAAAAAAAAAAA")
+
+--Barracks - Produces
+DefineAllow("unit-footman", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-archer", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-ranger", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-knight", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-paladin", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ballista", "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-grunt", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-axethrower", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-berserker", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-ogre-mage", "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-eye-of-vision", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-catapult", "AAAAAAAAAAAAAAAA")
+
+--Shipyard - Produces
+DefineAllow("unit-human-oil-tanker", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-destroyer", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-transport", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-battleship", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-submarine", "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-orc-oil-tanker", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-transport", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-destroyer", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre-juggernaught", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-submarine", "FFFFFFFFFFFFFFFF")
+
+--Other Buildings
+DefineAllow("unit-balloon", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-gryphon-rider", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mage", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dwarves", "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-zeppelin", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dragon", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-death-knight", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-goblin-sappers", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-skeleton", "FFFFFFFFFFFFFFFF")
+
+--Human Specials
+DefineAllow("unit-female-hero", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-flying-angle", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-white-mage", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-knight-rider", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-arthor-literios", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-wise-man", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-man-of-light", "FFFFFFFFFFFFFFFF")
+
+--Building Human
+DefineAllow("unit-town-hall", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-keep", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-castle", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-barracks", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-farm", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-blacksmith", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-sword1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-sword2", "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", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-paladin", "FFFFFFFFFFFFFFFF")
+-- DefineAllow("upgrade-holy-vision", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-healing", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-exorcism", "FFFFFFFFFFFFFFFF")
+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", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-armor1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-human-ship-armor2", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mage-tower", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-flame-shield", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-fireball", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-slow", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-invisibility", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-polymorph", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-blizzard", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-human-wall", "FFFFFFFFFFFFFFFF")
+
+-- Orc Specials
+DefineAllow("unit-evil-knight", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-fad-man", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-beast-cry", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-fire-breeze", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-quick-blade", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-double-head", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ice-bringer", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-sharp-axe", "FFFFFFFFFFFFFFFF")
+
+
+DefineAllow("unit-great-hall", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-stronghold", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-fortress", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-barracks", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-pig-farm", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-blacksmith", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe2", "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", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ogre-mound", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ogre-mage", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-eye-of-kilrogg", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-bloodlust", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-runes", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alchemist", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dragon-roost", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-shipyard", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-foundry", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon2", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-orc-ship-armor1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-armor2", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-temple-of-the-damned", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-death-coil", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-whirlwind", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-haste", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-unholy-armor", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-death-and-decay", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-raise-dead", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-orc-refinery", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-oil-platform", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-orc-wall", "FFFFFFFFFFFFFFFF")
+
+-- Specials
+DefineAllow("unit-daemon", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-critter", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-gold-mine", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-oil-patch", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-circle-of-power", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dark-portal", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-runestone", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-dead-body", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-1x1-place", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-2x2-place", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-3x3-place", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-destroyed-4x4-place", "FFFFFFFFFFFFFFFF")
-(add-trigger
- '(
- (if-opponents 'this '== 0))
- '(
- (action-victory)))
-(add-trigger
- '(
- (if-unit 'this '== 0 'all))
- '(
- (action-defeat)))
-
-;;Units
-
-;;Townhall - Produces
-(define-allow 'unit-peasant "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-peon "AAAAAAAAAAAAAAAA")
-
-;;Barracks - Produces
-(define-allow 'unit-footman "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-archer "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-ranger "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-knight "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-paladin "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ballista "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-grunt "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-axethrower "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-berserker "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-ogre "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-ogre-mage "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-eye-of-vision "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-catapult "AAAAAAAAAAAAAAAA")
-
-;;Shipyard - Produces
-(define-allow 'unit-human-oil-tanker "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-destroyer "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-transport "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-battleship "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-submarine "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-orc-oil-tanker "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-transport "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-destroyer "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-ogre-juggernaught "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-submarine "FFFFFFFFFFFFFFFF")
-
-;;Other Buildings
-(define-allow 'unit-balloon "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-gryphon-rider "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mage "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dwarves "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-zeppelin "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dragon "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-death-knight "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-goblin-sappers "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-skeleton "FFFFFFFFFFFFFFFF")
-
-;;Human Specials
-(define-allow 'unit-female-hero "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-flying-angle "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-white-mage "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-knight-rider "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-arthor-literios "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-wise-man "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-man-of-light "FFFFFFFFFFFFFFFF")
-
-;;Building Human
-(define-allow 'unit-town-hall "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-keep "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-castle "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-barracks "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-farm "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-blacksmith "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-sword1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-sword2 "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 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-paladin "FFFFFFFFFFFFFFFF")
-;; (define-allow 'upgrade-holy-vision "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-healing "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-exorcism "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-stables "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 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-armor1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-human-ship-armor2 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mage-tower "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-flame-shield "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-fireball "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-slow "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-invisibility "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-polymorph "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-blizzard "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-human-wall "FFFFFFFFFFFFFFFF")
-
-;; Orc Specials
-(define-allow 'unit-evil-knight "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-fad-man "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-beast-cry "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-fire-breeze "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-quick-blade "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-double-head "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ice-bringer "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-sharp-axe "FFFFFFFFFFFFFFFF")
-
-
-(define-allow 'unit-great-hall "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-stronghold "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-fortress "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-barracks "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-pig-farm "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-blacksmith "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-battle-axe1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-battle-axe2 "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 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ogre-mound "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ogre-mage "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-eye-of-kilrogg "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-bloodlust "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-runes "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alchemist "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dragon-roost "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-shipyard "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-foundry "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-cannon1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-cannon2 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-orc-ship-armor1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-armor2 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-temple-of-the-damned "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-death-coil "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-whirlwind "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-haste "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-unholy-armor "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-death-and-decay "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-raise-dead "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-orc-refinery "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-oil-platform "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-orc-wall "FFFFFFFFFFFFFFFF")
-
-;; Specials
-(define-allow 'unit-daemon "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-critter "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-gold-mine "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-oil-patch "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-circle-of-power "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dark-portal "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-runestone "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-dead-body "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-1x1-place "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-2x2-place "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-3x3-place "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-destroyed-4x4-place "FFFFFFFFFFFFFFFF")
-
-(load-pud "campaigns/human/level06h.pud")
+LoadPud("campaigns/human/level06h.pud")
Index: stratagus/contrib/campaigns/human/level07h.cm
diff -u stratagus/contrib/campaigns/human/level07h.cm:1.6
stratagus/contrib/campaigns/human/level07h.cm:1.7
--- stratagus/contrib/campaigns/human/level07h.cm:1.6 Fri Sep 12 08:07:52 2003
+++ stratagus/contrib/campaigns/human/level07h.cm Sun Jan 11 11:04:21 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/level07h.txt"
- 'voice "campaigns/human/level07h-intro1.wav"
- 'voice "campaigns/human/level07h-intro2.wav"
^^OBJECTIVES^^
- )
+ "background", "campaigns/human/interface/introscreen3.png",
+ "text", "campaigns/human/level07h.txt",
+ "voice", "campaigns/human/level07h-intro1.wav",
+ "voice", "campaigns/human/level07h-intro2.wav"
+)
+
+AddTrigger(
+ function() return IfUnit(2, "==", 0, "unit-orc-refinery") 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", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ballista", "AAAAAAAAAAAAAAAA")
+
+DefineAllow("unit-grunt", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-axethrower", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-berserker", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-ogre", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-ogre-mage", "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-eye-of-vision", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-catapult", "AAAAAAAAAAAAAAAA")
+
+--Shipyard - Produces
+DefineAllow("unit-human-oil-tanker", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-destroyer", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-alliance-transport", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-battleship", "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", "FFFFFFFFFFFFFFFF")
+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", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-paladin", "FFFFFFFFFFFFFFFF")
+-- DefineAllow("upgrade-holy-vision", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-healing", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-exorcism", "FFFFFFFFFFFFFFFF")
+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", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-barracks", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-pig-farm", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-blacksmith", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-battle-axe2", "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", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ogre-mound", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-ogre-mage", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-eye-of-kilrogg", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-bloodlust", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-runes", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alchemist", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dragon-roost", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-shipyard", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-foundry", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon2", "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-unit 2 '== 0 'unit-orc-refinery))
- '(
- (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 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ballista "AAAAAAAAAAAAAAAA")
-
-(define-allow 'unit-grunt "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-axethrower "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-berserker "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-ogre "AAAAAAAAAAAAAAAA")
- (define-allow 'unit-ogre-mage "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-eye-of-vision "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-catapult "AAAAAAAAAAAAAAAA")
-
-;;Shipyard - Produces
-(define-allow 'unit-human-oil-tanker "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-destroyer "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-transport "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-battleship "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 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-barracks "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-farm "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-alliance-blacksmith "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-sword1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-sword2 "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 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-paladin "FFFFFFFFFFFFFFFF")
-;; (define-allow 'upgrade-holy-vision "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-healing "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-exorcism "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-stables "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 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-barracks "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-pig-farm "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-blacksmith "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-battle-axe1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-battle-axe2 "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 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ogre-mound "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-ogre-mage "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-eye-of-kilrogg "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-bloodlust "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-runes "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alchemist "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dragon-roost "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-shipyard "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-foundry "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-cannon1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-cannon2 "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/level07h.pud")
+LoadPud("campaigns/human/level07h.pud")
Index: stratagus/contrib/campaigns/human/level08h.cm
diff -u stratagus/contrib/campaigns/human/level08h.cm:1.6
stratagus/contrib/campaigns/human/level08h.cm:1.7
--- stratagus/contrib/campaigns/human/level08h.cm:1.6 Fri Sep 12 08:07:52 2003
+++ stratagus/contrib/campaigns/human/level08h.cm Sun Jan 11 11:04:21 2004
@@ -1,215 +1,209 @@
-;; Stratagus Map - Single player campaign
+-- Stratagus Map - Single player campaign
-;; FIXME: the peasant must attack the others!
+-- FIXME: the peasant must attack the others!
-(briefing 'type 'wc2
+Briefing("type", "wc2",
^^TITLE^^
- 'background "campaigns/human/interface/introscreen3.png"
- 'text "campaigns/human/level08h.txt"
- 'voice "campaigns/human/level08h-intro1.wav"
- 'voice "campaigns/human/level08h-intro2.wav"
^^OBJECTIVES^^
- )
+ "background", "campaigns/human/interface/introscreen3.png",
+ "text", "campaigns/human/level08h.txt",
+ "voice", "campaigns/human/level08h-intro1.wav",
+ "voice", "campaigns/human/level08h-intro2.wav"
+)
+
+AddTrigger(
+ function() return true end,
+ function() SetDiplomacy(4, "enemy", 1)
+ SetDiplomacy(1, "enemy", 4)
+ SetDiplomacy(4, "enemy", 6)
+ SetDiplomacy(6, "enemy", 4)
+ return false end)
+
+AddTrigger(
+ function() return IfUnit("this", ">=", 1, "unit-castle") and
+ IfUnit(2, "==", 0, "unit-peasant") and
+ IfUnit(4, "==", 0, "unit-peasant") 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", "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", "FFFFFFFFFFFFFFFF")
+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", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alchemist", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dragon-roost", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-shipyard", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-foundry", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon2", "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
- '(
- #t)
- '(
- (set-diplomacy! 4 'enemy 1)
- (set-diplomacy! 1 'enemy 4)
- (set-diplomacy! 4 'enemy 6)
- (set-diplomacy! 6 'enemy 4)))
-
-(add-trigger
- '(
- (and
- (if-unit 'this '>= 1 'unit-castle)
- (if-unit 2 '== 0 'unit-peasant)
- (if-unit 4 '== 0 'unit-peasant)
- (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 "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 "FFFFFFFFFFFFFFFF")
-(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 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alchemist "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dragon-roost "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-shipyard "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-foundry "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-cannon1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-cannon2 "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/level08h.pud")
+LoadPud("campaigns/human/level08h.pud")
Index: stratagus/contrib/campaigns/human/level09h.cm
diff -u stratagus/contrib/campaigns/human/level09h.cm:1.6
stratagus/contrib/campaigns/human/level09h.cm:1.7
--- stratagus/contrib/campaigns/human/level09h.cm:1.6 Fri Sep 12 08:07:52 2003
+++ stratagus/contrib/campaigns/human/level09h.cm Sun Jan 11 11:04:21 2004
@@ -1,207 +1,200 @@
-;; 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/level09h.txt"
- 'voice "campaigns/human/level09h-intro1.wav"
^^OBJECTIVES^^
- )
+ "background", "campaigns/human/interface/introscreen3.png",
+ "text", "campaigns/human/level09h.txt",
+ "voice", "campaigns/human/level09h-intro1.wav"
+)
+
+AddTrigger(
+ function() return IfNearUnit("this", "==", 1, "unit-man-of-light",
"unit-circle-of-power") end,
+ function() return ActionVictory() end)
+
+AddTrigger(
+ function() return IfUnit("this", "==", 0, "unit-man-of-light") and
+ IfUnit(3, "==", 0, "unit-man-of-light") end,
+ function() return ActionDefeat() end)
+AddTrigger(
+ function() return IfUnit("this", "==", 0, "all") end,
+ function() return ActionDefeat() end)
+
+--Units
+
+--Townhall - Produces
+DefineAllow("unit-peasant", "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-peon", "AAAAAAAAAAAAAAAA")
+
+--Barracks - Produces
+DefineAllow("unit-footman", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-archer", "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-ranger", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-knight", "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-paladin", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ballista", "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-grunt", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-axethrower", "AAAAAAAAAAAAAAAA")
+ DefineAllow("unit-berserker", "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", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-destroyer", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-transport", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-battleship", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-submarine", "FFFFFFFFFFFFFFFF")
+
+DefineAllow("unit-orc-oil-tanker", "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", "FFFFFFFFFFFFFFFF")
+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", "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-keep", "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-castle", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-barracks", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-farm", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-blacksmith", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-sword1", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-sword2", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-shield1", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-shield2", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ballista1", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ballista2", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-watch-tower", "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-alliance-guard-tower", "FFFFFFFFFFFFFFFF")
+ DefineAllow("unit-alliance-cannon-tower", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-elven-lumber-mill", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-arrow1", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-arrow2", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ranger", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-longbow", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ranger-scouting", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-ranger-marksmanship", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-church", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-paladin", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-holy-vision", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-healing", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-exorcism", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-stables", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-inventor", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-gryphon-aviary", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-shipyard", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-human-refinery", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-oil-platform", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alliance-foundry", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-cannon1", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-cannon2", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-armor1", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-human-ship-armor2", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mage-tower", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-flame-shield", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-fireball", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-slow", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-invisibility", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-polymorph", "FFFFFFFFFFFFFFFF")
+ DefineAllow("upgrade-blizzard", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-human-wall", "FFFFFFFFFFFFFFFF")
+
+-- Orc Specials
+DefineAllow("unit-evil-knight", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-fad-man", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-beast-cry", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-fire-breeze", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-quick-blade", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-double-head", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-ice-bringer", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-sharp-axe", "FFFFFFFFFFFFFFFF")
+
+
+DefineAllow("unit-great-hall", "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", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-alchemist", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-dragon-roost", "FFFFFFFFFFFFFFFF")
+DefineAllow("unit-mythical-shipyard", "AAAAAAAAAAAAAAAA")
+DefineAllow("unit-mythical-foundry", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon1", "AAAAAAAAAAAAAAAA")
+ DefineAllow("upgrade-orc-ship-cannon2", "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-near-unit 'this '== 1 'unit-man-of-light 'unit-circle-of-power))
- '(
- (action-victory)))
-
-(add-trigger
- '(
- (and
- (if-unit 'this '== 0 'unit-man-of-light)
- (if-unit 3 '== 0 'unit-man-of-light)))
- '(
- (action-defeat)))
-(add-trigger
- '(
- (if-unit 'this '== 0 'all))
- '(
- (action-defeat)))
-
-;;Units
-
-;;Townhall - Produces
-(define-allow 'unit-peasant "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-peon "AAAAAAAAAAAAAAAA")
-
-;;Barracks - Produces
-(define-allow 'unit-footman "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-archer "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-ranger "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-knight "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-paladin "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ballista "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-grunt "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 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-destroyer "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-transport "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-battleship "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-submarine "FFFFFFFFFFFFFFFF")
-
-(define-allow 'unit-orc-oil-tanker "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 "FFFFFFFFFFFFFFFF")
-(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 "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-keep "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-castle "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-barracks "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-farm "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-blacksmith "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-sword1 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-sword2 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-shield1 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-shield2 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ballista1 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ballista2 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-watch-tower "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-alliance-guard-tower "FFFFFFFFFFFFFFFF")
- (define-allow 'unit-alliance-cannon-tower "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-elven-lumber-mill "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-arrow1 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-arrow2 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ranger "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-longbow "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ranger-scouting "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-ranger-marksmanship "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-church "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-paladin "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-holy-vision "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-healing "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-exorcism "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-stables "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-inventor "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-gryphon-aviary "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-shipyard "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-human-refinery "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-oil-platform "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alliance-foundry "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-cannon1 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-cannon2 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-armor1 "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-human-ship-armor2 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mage-tower "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-flame-shield "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-fireball "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-slow "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-invisibility "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-polymorph "FFFFFFFFFFFFFFFF")
- (define-allow 'upgrade-blizzard "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-human-wall "FFFFFFFFFFFFFFFF")
-
-;; Orc Specials
-(define-allow 'unit-evil-knight "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-fad-man "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-beast-cry "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-fire-breeze "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-quick-blade "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-double-head "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-ice-bringer "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-sharp-axe "FFFFFFFFFFFFFFFF")
-
-
-(define-allow 'unit-great-hall "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 "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-alchemist "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-dragon-roost "FFFFFFFFFFFFFFFF")
-(define-allow 'unit-mythical-shipyard "AAAAAAAAAAAAAAAA")
-(define-allow 'unit-mythical-foundry "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-cannon1 "AAAAAAAAAAAAAAAA")
- (define-allow 'upgrade-orc-ship-cannon2 "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/level09h.pud")
+LoadPud("campaigns/human/level09h.pud")
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Stratagus-CVS] stratagus/contrib/campaigns/human level06h.cm l...,
address@hidden <=