level03h.cm

魔兽2Linux版

;;	FreeCraft Map - Single player campaign

(briefing 'type 'wc2
^^TITLE^^
    'background "campaigns/human/interface/introscreen1.png"
    'text "campaigns/human/level03h.txt"
    'voice "campaigns/human/level03h-intro1.wav"
    'voice "campaigns/human/level03h-intro2.wav"
^^OBJECTIVES^^
    )

(add-trigger (lambda ()
  (and (if-unit 'this '>= 1 'unit-human-shipyard)
    (if-unit 'this '>= 4 'unit-human-oil-platform)))
  (lambda () (action-victory)))
(add-trigger (lambda () (if-unit 'this '== 0 'all))
  (lambda () (action-defeat)))

;;Units

;;Townhall - Produces
(define-allow 'unit-peasant			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-peasant-with-gold		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-peasant-with-wood		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-attack-peasant		"FFFFFFFFFFFFFFFF")

(define-allow 'unit-peon			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-peon-with-gold		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-peon-with-wood		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-attack-peon			"FFFFFFFFFFFFFFFF")

;;Barracks - Produces
(define-allow 'unit-footman			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-archer			"AAAAAAAAAAAAAAAA")
 (define-allow 'unit-ranger			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-knight			"FFFFFFFFFFFFFFFF")
 (define-allow 'unit-paladin			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-ballista			"FFFFFFFFFFFFFFFF")

(define-allow 'unit-grunt			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-axethrower			"AAAAAAAAAAAAAAAA")
 (define-allow 'unit-berserker			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-ogre			"FFFFFFFFFFFFFFFF")
 (define-allow 'unit-ogre-mage			"FFFFFFFFFFFFFFFF")
  (define-allow 'unit-eye-of-vision		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-catapult			"FFFFFFFFFFFFFFFF")

;;Shipyard - Produces
(define-allow 'unit-human-oil-tanker		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-elven-destroyer		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-human-transport		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-battleship			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-gnomish-submarine		"FFFFFFFFFFFFFFFF")

(define-allow 'unit-orc-oil-tanker		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-transport		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-troll-destroyer		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-ogre-juggernaught		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-giant-turtle		"FFFFFFFFFFFFFFFF")

;;Other Buildings
(define-allow 'unit-gnomish-flying-machine	"FFFFFFFFFFFFFFFF")
(define-allow 'unit-gryphon-rider		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-mage			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-dwarves			"FFFFFFFFFFFFFFFF")

(define-allow 'unit-goblin-zeppelin		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-dragon			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-death-knight		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-goblin-sappers		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-skeleton			"FFFFFFFFFFFFFFFF")

;;Human Specials
(define-allow 'unit-alleria			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-kurdan-and-sky-ree		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-khadgar			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-turalyon			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-danath			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-lothar			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-uther-lightbringer		"FFFFFFFFFFFFFFFF")

;;Building Human
(define-allow 'unit-town-hall			"AAAAAAAAAAAAAAAA")
 (define-allow 'unit-keep			"FFFFFFFFFFFFFFFF")
 (define-allow 'unit-castle			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-human-barracks		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-farm			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-human-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-human-watch-tower		"FFFFFFFFFFFFFFFF")
 (define-allow 'unit-human-guard-tower		"FFFFFFFFFFFFFFFF")
 (define-allow 'unit-human-cannon-tower		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-elven-lumber-mill           "AAAAAAAAAAAAAAAA")
 (define-allow 'upgrade-arrow1                  "AAAAAAAAAAAAAAAA")
 (define-allow 'upgrade-arrow2                  "AAAAAAAAAAAAAAAA")
 (define-allow 'upgrade-ranger                  "FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-longbow                 "FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-ranger-scouting         "FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-ranger-marksmanship     "FFFFFFFFFFFFFFFF")
(define-allow 'unit-church			"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-paladin			"FFFFFFFFFFFFFFFF")
;; (define-allow 'upgrade-holy-vision		"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-healing			"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-exorcism		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-stables			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-gnomish-inventor		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-gryphon-aviary		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-human-shipyard		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-human-refinery		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-human-oil-platform		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-human-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-teron-gorefiend		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-dentarg			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-grom-hellscream		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-deathwing			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-korgath-bladefist		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-cho-gall			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-gul-dan			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-zuljin			"FFFFFFFFFFFFFFFF")


(define-allow 'unit-great-hall			"AAAAAAAAAAAAAAAA")
 (define-allow 'unit-stronghold			"FFFFFFFFFFFFFFFF")
 (define-allow 'unit-fortress			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-orc-barracks		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-pig-farm			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-blacksmith		"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-battle-axe1		"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-battle-axe2		"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-orc-shield1		"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-orc-shield2		"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-catapult1		"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-catapult2		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-orc-watch-tower		"FFFFFFFFFFFFFFFF")
 (define-allow 'unit-orc-guard-tower		"FFFFFFFFFFFFFFFF")
 (define-allow 'unit-orc-cannon-tower		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-troll-lumber-mill		"AAAAAAAAAAAAAAAA")
 (define-allow 'upgrade-throwing-axe1		"AAAAAAAAAAAAAAAA")
 (define-allow 'upgrade-throwing-axe2		"AAAAAAAAAAAAAAAA")
 (define-allow 'upgrade-berserker		"FFFFFFFFFFFFFFFF")
  (define-allow 'upgrade-light-axes		"FFFFFFFFFFFFFFFF")
  (define-allow 'upgrade-berserker-scouting	"FFFFFFFFFFFFFFFF")
  (define-allow 'upgrade-berserker-regeneration	"FFFFFFFFFFFFFFFF")
(define-allow 'unit-altar-of-storms		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-ogre-mound			"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-ogre-mage		"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-eye-of-kilrogg		"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-bloodlust		"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-runes			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-goblin-alchemist		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-dragon-roost		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-orc-shipyard		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-foundry			"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-orc-ship-cannon1	"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-orc-ship-cannon2	"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-orc-ship-armor1		"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-orc-ship-armor2		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-temple-of-the-damned	"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-death-coil		"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-whirlwind		"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-haste			"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-unholy-armor		"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-death-and-decay		"FFFFFFFFFFFFFFFF")
 (define-allow 'upgrade-raise-dead		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-orc-refinery		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-orc-oil-platform		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-wall			"FFFFFFFFFFFFFFFF")

;; Specials
(define-allow 'unit-daemon			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-critter			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-gold-mine			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-oil-patch			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-circle-of-power		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-dark-portal			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-runestone			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-dead-body			"FFFFFFFFFFFFFFFF")
(define-allow 'unit-destroyed-1x1-place		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-destroyed-2x2-place		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-destroyed-3x3-place		"FFFFFFFFFFFFFFFF")
(define-allow 'unit-destroyed-4x4-place		"FFFFFFFFFFFFFFFF")

(load-pud "campaigns/human/level03h.pud")