upgrade.ccl

魔兽2Linux版

  '(apply-to unit-death-knight) '(apply-to unit-gul-dan)
  '(apply-to unit-teron-gorefiend))

(define-modifier 'upgrade-haste
  '(apply-to unit-death-knight) '(apply-to unit-gul-dan)
  '(apply-to unit-teron-gorefiend))

(define-modifier 'upgrade-unholy-armor
  '(apply-to unit-death-knight) '(apply-to unit-gul-dan)
  '(apply-to unit-teron-gorefiend))

(define-modifier 'upgrade-death-and-decay
  '(apply-to unit-death-knight) '(apply-to unit-gul-dan)
  '(apply-to unit-teron-gorefiend))

;;=============================================================================
;;
;;	Define which units/upgrades are allowed.
;;		A: allowed, E: enabled, F: forbidden, R: researched
;;
;;	(define-allow unit/upgrade "AAAAAAAAAAAAAAAA")
;;				    ^- player 0 ... 15
;;
;;	NOTE: Save can generate this table.
;;

;;	- units

(define-allow 'unit-grunt			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-peon			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-catapult			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-ogre			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-axethrower			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-death-knight		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-ogre-mage			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-goblin-sappers		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-attack-peon			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-berserker			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-teron-gorefiend		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-dentarg			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-grom-hellscream		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-oil-tanker		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-transport		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-troll-destroyer		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-ogre-juggernaught		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-deathwing			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-giant-turtle		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-goblin-zeppelin		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-dragon			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-eye-of-vision		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-korgath-bladefist		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-cho-gall			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-gul-dan			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-zuljin			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-pig-farm			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-barracks		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-altar-of-storms		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-watch-tower		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-ogre-mound			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-goblin-alchemist		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-dragon-roost		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-shipyard		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-great-hall			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-troll-lumber-mill		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-foundry			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-temple-of-the-damned	"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-blacksmith		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-refinery		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-oil-platform		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-stronghold			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-fortress			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-start-location		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-guard-tower		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-cannon-tower		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-wall			"AAAAAAAAAAAAAAAA")
(define-allow 'unit-peon-with-gold		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-peon-with-wood		"AAAAAAAAAAAAAAAA")
(define-allow 'unit-orc-oil-tanker-full		"AAAAAAAAAAAAAAAA")

;;	- upgrades

(define-allow 'upgrade-battle-axe1		"AAAAAAAAAAAAAAAA")
(define-allow 'upgrade-battle-axe2		"AAAAAAAAAAAAAAAA")
(define-allow 'upgrade-throwing-axe1		"AAAAAAAAAAAAAAAA")
(define-allow 'upgrade-throwing-axe2		"AAAAAAAAAAAAAAAA")
(define-allow 'upgrade-orc-shield1		"AAAAAAAAAAAAAAAA")
(define-allow 'upgrade-orc-shield2		"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 'upgrade-ballista1		"AAAAAAAAAAAAAAAA")
(define-allow 'upgrade-ballista2		"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 'upgrade-ogre-mage		"AAAAAAAAAAAAAAAA")
(define-allow 'upgrade-eye-of-kilrogg		"RRRRRRRRRRRRRRRR")
(define-allow 'upgrade-bloodlust		"AAAAAAAAAAAAAAAA")
(define-allow 'upgrade-raise-dead		"AAAAAAAAAAAAAAAA")
(define-allow 'upgrade-death-coil		"RRRRRRRRRRRRRRRR")
(define-allow 'upgrade-whirlwind		"AAAAAAAAAAAAAAAA")
(define-allow 'upgrade-haste			"AAAAAAAAAAAAAAAA")
(define-allow 'upgrade-unholy-armor		"AAAAAAAAAAAAAAAA")
(define-allow 'upgrade-runes			"AAAAAAAAAAAAAAAA")
(define-allow 'upgrade-death-and-decay		"AAAAAAAAAAAAAAAA")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;=============================================================================
;;	Define the dependencies
;;
;;	(define-dependency unit/upgrade
;;		'( required-unit/upgrade count ... ) ['or ...] )
;;
;;	Define the dependencies of an unit or upgrade.
;;
;;	unit/upgrade	Dependencies for this unit or upgrade.
;;	required-unit/upgrade	Units required to build or research.
;;	count		Number of units required.
;;	'or		Alternative set of units/upgrades required.
;;
;;	NOTE: Save can generate this table.

;;	- orc land forces
(define-dependency 'unit-axethrower
  '(unit-troll-lumber-mill))
(define-dependency 'unit-catapult
  '(unit-orc-blacksmith unit-troll-lumber-mill))
(define-dependency 'unit-berserker
  '(upgrade-berserker unit-troll-lumber-mill))
(define-dependency 'unit-ogre
  '(unit-ogre-mound unit-orc-blacksmith))
(define-dependency 'unit-ogre-mage
  '(upgrade-ogre-mage unit-ogre-mound unit-orc-blacksmith))

;;	- orc naval forces
(define-dependency 'unit-giant-turtle
  '(unit-goblin-alchemist))
(define-dependency 'unit-orc-transport
  '(unit-orc-foundry))
(define-dependency 'unit-ogre-juggernaught
  '(unit-orc-foundry))

;;	- orc air forces
(define-dependency 'unit-goblin-zeppelin
  '(unit-troll-lumber-mill))

;;	- orc buildings
(define-dependency 'unit-orc-guard-tower
  '(unit-troll-lumber-mill))
(define-dependency 'unit-orc-cannon-tower
  '(unit-orc-blacksmith))
(define-dependency 'unit-orc-shipyard
  '(unit-troll-lumber-mill))
(define-dependency 'unit-orc-foundry
  '(unit-orc-shipyard))
(define-dependency 'unit-orc-refinery
  '(unit-orc-shipyard))
(define-dependency 'unit-stronghold
  '(unit-orc-barracks))
(define-dependency 'unit-goblin-alchemist
  '(unit-stronghold)
  'or '(unit-fortress))
(define-dependency 'unit-ogre-mound
  '(unit-stronghold)
  'or '(unit-fortress))
(define-dependency 'unit-fortress
  '(unit-ogre-mound unit-orc-blacksmith unit-troll-lumber-mill))
(define-dependency 'unit-altar-of-storms
  '(unit-fortress))
(define-dependency 'unit-temple-of-the-damned
  '(unit-fortress))
(define-dependency 'unit-dragon-roost
  '(unit-fortress))

;;	- orc upgrades/research
(define-dependency 'upgrade-battle-axe2
  '(upgrade-battle-axe1))
(define-dependency 'upgrade-throwing-axe2
  '(upgrade-throwing-axe1))
(define-dependency 'upgrade-orc-shield2
  '(upgrade-orc-shield1))
(define-dependency 'upgrade-ballista2
  '(upgrade-ballista1))
(define-dependency 'upgrade-orc-ship-cannon2
  '(upgrade-orc-ship-cannon1))
(define-dependency 'upgrade-orc-ship-armor2
  '(upgrade-orc-ship-armor1))
(define-dependency 'upgrade-berserker
  '(unit-stronghold)
  'or '(unit-fortress))
(define-dependency 'upgrade-berserker-scouting
  '(unit-fortress upgrade-berserker))
(define-dependency 'upgrade-berserker-regeneration
  '(unit-fortress upgrade-berserker))
(define-dependency 'upgrade-light-axes
  '(unit-fortress upgrade-berserker))

;;	- orc spells
(define-dependency 'upgrade-eye-of-kilrogg
  '(upgrade-ogre-mage))
(define-dependency 'upgrade-bloodlust
  '(upgrade-ogre-mage))
(define-dependency 'upgrade-runes
  '(upgrade-ogre-mage))