upgrade.ccl

魔兽2Linux版

;;   ___________		     _________		      _____  __
;;   \_	  _____/______   ____   ____ \_   ___ \____________ _/ ____\/  |_
;;    |    __) \_  __ \_/ __ \_/ __ \/    \  \/\_  __ \__  \\   __\\   __|
;;    |     \   |  | \/\  ___/\  ___/\     \____|  | \// __ \|  |   |  |
;;    \___  /   |__|    \___  >\___  >\______  /|__|  (____  /__|   |__|
;;	  \/		    \/	   \/	     \/		   \/
;;  ______________________                           ______________________
;;			  T H E   W A R   B E G I N S
;;	   FreeCraft - A free fantasy real time strategy game engine
;;
;;	upgrade.ccl	-	Define the orcish dependencies and upgrades.
;;
;;	(c) Copyright 2001-2003 by Lutz Sammer
;;
;;	FreeCraft is free software; you can redistribute it and/or modify
;;	it under the terms of the GNU General Public License as published
;;	by the Free Software Foundation; only version 2 of the License.
;;
;;	FreeCraft is distributed in the hope that it will be useful,
;;	but WITHOUT ANY WARRANTY; without even the implied warranty of
;;	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;	GNU General Public License for more details.
;;
;;	$Id: upgrade.ccl,v 1.10 2003/03/09 18:35:18 jsalmon3 Exp $

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;=============================================================================
;;	Define the upgrades
;;
;;	(define-upgrade upgrade-name 'icon icon 'costs #( costs ))
;;
;;	upgrade-name	is the identifier of the upgrade
;;	icon		is the icon shown for upgrading.
;;	costs		are the costs of the upgrade
;;			(time gold wood oil ore stone coal)
;;
;;	NOTE: Save can generate this table.

(define-upgrade 'upgrade-battle-axe1 'icon 'icon-battle-axe2
  'costs #(   200   500   100     0     0     0     0))
(define-upgrade 'upgrade-battle-axe2 'icon 'icon-battle-axe3
  'costs #(   250  1500   300     0     0     0     0))
(define-upgrade 'upgrade-throwing-axe1 'icon 'icon-throwing-axe2
  'costs #(   200   300   300     0     0     0     0))
(define-upgrade 'upgrade-throwing-axe2 'icon 'icon-throwing-axe3
  'costs #(   250   900   500     0     0     0     0))
(define-upgrade 'upgrade-orc-shield1 'icon 'icon-orc-shield2
  'costs #(   200   300   300     0     0     0     0))
(define-upgrade 'upgrade-orc-shield2 'icon 'icon-orc-shield3
  'costs #(   250   900   500     0     0     0     0))
(define-upgrade 'upgrade-orc-ship-cannon1 'icon 'icon-orc-ship-cannon2
  'costs #(   200   700   100  1000     0     0     0))
(define-upgrade 'upgrade-orc-ship-cannon2 'icon 'icon-orc-ship-cannon3
  'costs #(   250  2000   250  3000     0     0     0))
(define-upgrade 'upgrade-orc-ship-armor1 'icon 'icon-orc-ship-armor2
  'costs #(   200   500   500     0     0     0     0))
(define-upgrade 'upgrade-orc-ship-armor2 'icon 'icon-orc-ship-armor3
  'costs #(   250  1500   900     0     0     0     0))
(define-upgrade 'upgrade-ballista1 'icon 'icon-ballista1
  'costs #(   250  1500     0     0     0     0     0))
(define-upgrade 'upgrade-ballista2 'icon 'icon-ballista2
  'costs #(   250  4000     0     0     0     0     0))
(define-upgrade 'upgrade-berserker 'icon 'icon-berserker
  'costs #(   250  1500     0     0     0     0     0))
(define-upgrade 'upgrade-light-axes 'icon 'icon-light-axes
  'costs #(   250  2000     0     0     0     0     0))
(define-upgrade 'upgrade-berserker-scouting 'icon 'icon-berserker-scouting
  'costs #(   250  1500     0     0     0     0     0))
(define-upgrade 'upgrade-berserker-regeneration
  'icon 'icon-berserker-regeneration
  'costs #(   250  3000     0     0     0     0     0))
(define-upgrade 'upgrade-ogre-mage 'icon 'icon-ogre-mage
  'costs #(   250  1000     0     0     0     0     0))
(define-upgrade 'upgrade-eye-of-kilrogg 'icon 'icon-eye-of-kilrogg
  'costs #(     0     0     0     0     0     0     0))
(define-upgrade 'upgrade-bloodlust 'icon 'icon-bloodlust
  'costs #(   100  1000     0     0     0     0     0))
(define-upgrade 'upgrade-raise-dead 'icon 'icon-skeleton
  'costs #(   100  1500     0     0     0     0     0))
(define-upgrade 'upgrade-death-coil 'icon 'icon-death-coil
  'costs #(   100     0     0     0     0     0     0))
(define-upgrade 'upgrade-whirlwind 'icon 'icon-whirlwind
  'costs #(   150  1500     0     0     0     0     0))
(define-upgrade 'upgrade-haste 'icon 'icon-haste
  'costs #(   100   500     0     0     0     0     0))
(define-upgrade 'upgrade-unholy-armor 'icon 'icon-unholy-armor
  'costs #(   200  2500     0     0     0     0     0))
(define-upgrade 'upgrade-runes 'icon 'icon-runes
  'costs #(   150  1000     0     0     0     0     0))
(define-upgrade 'upgrade-death-and-decay 'icon 'icon-death-and-decay
  'costs #(   200  2000     0     0     0     0     0))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;=============================================================================
;;	Define the upgrade modifiers
;;
;;	(define-modifier upgrade-name '(modifiers) ... )
;;
;,	This does the real upgrades.
;;
;;	upgrade-name	is the identifier of the upgrade modifier
;;	modifiers	is a pair of the effect name and value.
;;
;;	NOTE: Save can generate this table.

(define-modifier 'upgrade-battle-axe1
  '(piercing-damage 2)
  '(apply-to unit-grunt) '(apply-to unit-ogre) '(apply-to unit-ogre-mage)
  '(apply-to unit-goblin-sappers) '(apply-to unit-korgath-bladefist)
  '(apply-to unit-grom-hellscream) '(apply-to unit-dentarg)
  '(apply-to unit-cho-gall))

(define-modifier 'upgrade-battle-axe2
  '(piercing-damage 2)
  '(apply-to unit-grunt) '(apply-to unit-ogre) '(apply-to unit-ogre-mage)
  '(apply-to unit-goblin-sappers) '(apply-to unit-korgath-bladefist)
  '(apply-to unit-grom-hellscream) '(apply-to unit-dentarg)
  '(apply-to unit-cho-gall))

(define-modifier 'upgrade-throwing-axe1
  '(piercing-damage 1)
  '(apply-to unit-axethrower) '(apply-to unit-berserker)
  '(apply-to unit-zuljin))

(define-modifier 'upgrade-throwing-axe2
  '(piercing-damage 1)
  '(apply-to unit-axethrower) '(apply-to unit-berserker)
  '(apply-to unit-zuljin))

(define-modifier 'upgrade-orc-shield1
  '(armor 2)
  '(apply-to unit-grunt) '(apply-to unit-ogre) '(apply-to unit-ogre-mage)
  '(apply-to unit-goblin-sappers) '(apply-to unit-korgath-bladefist)
  '(apply-to unit-grom-hellscream) '(apply-to unit-dentarg)
  '(apply-to unit-cho-gall))

(define-modifier 'upgrade-orc-shield2
  '(armor 2)
  '(apply-to unit-grunt) '(apply-to unit-ogre) '(apply-to unit-ogre-mage)
  '(apply-to unit-goblin-sappers) '(apply-to unit-korgath-bladefist)
  '(apply-to unit-grom-hellscream) '(apply-to unit-dentarg)
  '(apply-to unit-cho-gall))

(define-modifier 'upgrade-orc-ship-cannon1
  '(piercing-damage 5)
  '(apply-to unit-troll-destroyer) '(apply-to unit-ogre-juggernaught)
  '(apply-to unit-giant-turtle))

(define-modifier 'upgrade-orc-ship-cannon2
  '(piercing-damage 5)
  '(apply-to unit-troll-destroyer) '(apply-to unit-ogre-juggernaught)
  '(apply-to unit-giant-turtle))

(define-modifier 'upgrade-orc-ship-armor1
  '(armor 5)
  '(apply-to unit-troll-destroyer) '(apply-to unit-ogre-juggernaught)
  '(apply-to unit-orc-transport))

(define-modifier 'upgrade-orc-ship-armor2
  '(armor 5)
  '(apply-to unit-troll-destroyer) '(apply-to unit-ogre-juggernaught)
  '(apply-to unit-orc-transport))

(define-modifier 'upgrade-ballista1
  '(piercing-damage 15)
  '(apply-to unit-ballista))

(define-modifier 'upgrade-ballista2
  '(piercing-damage 15)
  '(apply-to unit-ballista))

(define-modifier 'upgrade-berserker
  '(apply-to unit-axethrower) '(convert-to unit-berserker))

(define-modifier 'upgrade-light-axes
  '(sight-range 1)
  '(attack-range 1)
  '(apply-to unit-axethrower) '(apply-to unit-berserker))

(define-modifier 'upgrade-berserker-scouting
  '(sight-range 3)
  '(apply-to unit-axethrower) '(apply-to unit-berserker))

(define-modifier 'upgrade-berserker-regeneration
  '(apply-to unit-axethrower) '(apply-to unit-berserker))

(define-modifier 'upgrade-ogre-mage
  '(apply-to unit-ogre) '(convert-to unit-ogre-mage))

(define-modifier 'upgrade-eye-of-kilrogg
  '(apply-to unit-ogre-mage))

(define-modifier 'upgrade-bloodlust
  '(apply-to unit-ogre-mage))

(define-modifier 'upgrade-runes
  '(apply-to unit-ogre-mage))

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

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

(define-modifier 'upgrade-whirlwind