buttons.ccl

魔兽2Linux版

;;   ___________		     _________		      _____  __
;;   \_	  _____/______   ____   ____ \_   ___ \____________ _/ ____\/  |_
;;    |    __) \_  __ \_/ __ \_/ __ \/    \  \/\_  __ \__  \\   __\\   __|
;;    |     \   |  | \/\  ___/\  ___/\     \____|  | \// __ \|  |   |  |
;;    \___  /   |__|    \___  >\___  >\______  /|__|  (____  /__|   |__|
;;	  \/		    \/	   \/	     \/		   \/
;;  ______________________                           ______________________
;;			  T H E   W A R   B E G I N S
;;	   FreeCraft - A free fantasy real time strategy game engine
;;
;;	buttons.ccl	-	Define the unit-buttons of the orc race.
;;
;;	(c) Copyright 2001-2003 by Vladi Belperchinov-Shabanski and 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: buttons.ccl,v 1.20 2003/02/17 20:09:28 jsalmon3 Exp $

;;----------------------------------------------------------------------------
;;	Define unit-button.
;;
;;	(define-button 'pos n 'level n 'icon ident 'action name ['value value]
;;		['allowed check ['values]] 'key key 'hint hint 'for-unit units)
;;

;; general commands -- almost all units have it -------------------------------

(define-button 'pos 1 'level 0 'icon 'icon-move-peon
  'action 'move
  'key "m" 'hint "~!MOVE"
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
    unit-goblin-sappers unit-berserker unit-catapult unit-peon
    unit-peon-with-gold unit-peon-with-wood unit-dentarg unit-cho-gall
    unit-zuljin unit-grom-hellscream unit-korgath-bladefist unit-gul-dan
    unit-teron-gorefiend unit-skeleton unit-eye-of-vision unit-dragon
    unit-goblin-zeppelin unit-attack-peon unit-death-knight unit-deathwing
    orc-group unit-daemon))

(define-button 'pos 2 'level 0 'icon 'icon-orc-shield1
  'action 'stop
  'key "s" 'hint "~!STOP"
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
    unit-goblin-sappers unit-berserker unit-catapult unit-peon
    unit-peon-with-gold unit-peon-with-wood unit-dentarg unit-cho-gall
    unit-zuljin unit-grom-hellscream unit-korgath-bladefist unit-gul-dan
    unit-teron-gorefiend unit-skeleton unit-eye-of-vision unit-dragon
    unit-goblin-zeppelin unit-attack-peon unit-death-knight unit-deathwing
    orc-group unit-daemon))

(define-button 'pos 2 'level 0 'icon 'icon-orc-shield2
  'action 'stop
  'allowed 'check-upgrade 'allow-arg '(upgrade-orc-shield1)
  'key "s" 'hint "~!STOP"
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
    unit-goblin-sappers unit-berserker unit-catapult unit-korgath-bladefist
    unit-grom-hellscream unit-dentarg unit-cho-gall))

(define-button 'pos 2 'level 0 'icon 'icon-orc-shield3
  'action 'stop
  'allowed 'check-upgrade 'allow-arg '(upgrade-orc-shield2)
  'key "s" 'hint "~!STOP"
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
    unit-goblin-sappers unit-berserker unit-catapult unit-korgath-bladefist
    unit-grom-hellscream unit-dentarg unit-cho-gall))

(define-button 'pos 3 'level 0 'icon 'icon-battle-axe1
  'action 'attack
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
    unit-goblin-sappers unit-berserker unit-catapult unit-peon
    unit-peon-with-gold unit-peon-with-wood unit-dentarg unit-cho-gall
    unit-zuljin unit-grom-hellscream unit-korgath-bladefist unit-gul-dan
    unit-teron-gorefiend unit-skeleton unit-dragon unit-deathwing
    orc-group unit-daemon))

(define-button 'pos 3 'level 0 'icon 'icon-battle-axe2
  'action 'attack
  'allowed 'check-upgrade 'allow-arg '(upgrade-battle-axe1)
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
    unit-goblin-sappers unit-berserker unit-catapult unit-korgath-bladefist
    unit-grom-hellscream unit-dentarg unit-cho-gall))

(define-button 'pos 3 'level 0 'icon 'icon-battle-axe3
  'action 'attack
  'allowed 'check-upgrade 'allow-arg '(upgrade-battle-axe2)
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
    unit-goblin-sappers unit-berserker unit-catapult unit-korgath-bladefist
    unit-grom-hellscream unit-dentarg unit-cho-gall))

(define-button 'pos 3 'level 0 'icon 'icon-throwing-axe1
  'action 'attack
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-axethrower unit-berserker unit-zuljin))

(define-button 'pos 3 'level 0 'icon 'icon-throwing-axe2
  'action 'attack
  'allowed 'check-upgrade 'allow-arg '(upgrade-throwing-axe1)
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-axethrower unit-berserker unit-zuljin))

(define-button 'pos 3 'level 0 'icon 'icon-throwing-axe3
  'action 'attack
  'allowed 'check-upgrade 'allow-arg '(upgrade-throwing-axe2)
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-axethrower unit-berserker unit-zuljin))

(define-button 'pos 3 'level 0 'icon 'icon-catapult1
  'action 'attack
  'allowed 'check-upgrade 'allow-arg '(upgrade-catapult1)
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-catapult))

(define-button 'pos 3 'level 0 'icon 'icon-catapult2
  'action 'attack
  'allowed 'check-upgrade 'allow-arg '(upgrade-catapult2)
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-catapult))

(if extensions
(define-button 'pos 4 'level 0 'icon 'icon-orc-patrol-land
  'action 'patrol
  'key "p" 'hint "~!PATROL"
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
    unit-goblin-sappers unit-berserker unit-catapult unit-dentarg
    unit-cho-gall unit-zuljin unit-grom-hellscream unit-korgath-bladefist
    unit-skeleton unit-dragon unit-deathwing orc-group unit-daemon
    unit-goblin-zeppelin unit-eye-of-vision))
(define-button 'pos 4 'level 0 'icon 'icon-orc-patrol-land
  'action 'patrol
  'key "p" 'hint "~!PATROL"
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
    unit-goblin-sappers unit-berserker unit-catapult unit-dentarg
    unit-cho-gall unit-zuljin unit-grom-hellscream unit-korgath-bladefist
    unit-skeleton unit-dragon unit-deathwing orc-group unit-daemon)) )

(define-button 'pos 5 'level 0 'icon 'icon-orc-stand-ground
  'action 'stand-ground
  'key "t" 'hint "S~!TAND GROUND"
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
    unit-goblin-sappers unit-berserker unit-catapult unit-dentarg
    unit-cho-gall unit-zuljin unit-grom-hellscream unit-korgath-bladefist
    unit-skeleton unit-dragon unit-deathwing unit-giant-turtle
    unit-ogre-juggernaught unit-troll-destroyer orc-group unit-daemon))

(define-button 'pos 6 'level 0 'icon 'icon-orc-attack-ground
  'action 'attack-ground
  'key "g" 'hint "ATTACK ~!GROUND"
  'for-unit '(unit-catapult unit-ogre-juggernaught orc-group))

(define-button 'pos 9 'level 0 'icon 'icon-orc-demolish
  'action 'demolish
  'key "d" 'hint "~!DEMOLISH"
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
    unit-goblin-sappers unit-berserker unit-catapult unit-peon
    unit-peon-with-gold unit-peon-with-wood unit-dentarg unit-cho-gall
    unit-zuljin unit-grom-hellscream unit-korgath-bladefist unit-gul-dan
    unit-teron-gorefiend unit-skeleton unit-eye-of-vision unit-dragon
    unit-goblin-zeppelin orc-group))

;; ogre-mage specific actions -------------------------------------------------

(define-button 'pos 7 'level 0 'icon 'icon-eye-of-kilrogg
  'action 'cast-spell 'value 'spell-eye-of-vision
  'allowed 'check-upgrade 'allow-arg '(upgrade-eye-of-kilrogg)
  'key "k" 'hint "EYE OF ~!KILROGG"
  'for-unit '(unit-ogre-mage unit-dentarg))

(define-button 'pos 8 'level 0 'icon 'icon-bloodlust
  'action 'cast-spell 'value 'spell-bloodlust
  'allowed 'check-upgrade 'allow-arg '(upgrade-bloodlust)
  'key "b" 'hint "~!BLOODLUST"
  'for-unit '(unit-ogre-mage unit-dentarg))

(define-button 'pos 9 'level 0 'icon 'icon-runes
  'action 'cast-spell 'value 'spell-runes
  'allowed 'check-upgrade 'allow-arg '(upgrade-runes)
  'key "r" 'hint "~!RUNES"
  'for-unit '(unit-ogre-mage unit-dentarg))

;; cho'gall specific actions --- same as ogre mage but it has them always -----

(define-button 'pos 7 'level 0 'icon 'icon-eye-of-kilrogg
  'action 'cast-spell 'value 'spell-eye-of-vision
  'allowed 'check-true
  'key "k" 'hint "EYE OF ~!KILROGG"
  'for-unit '(unit-cho-gall))

(define-button 'pos 8 'level 0 'icon 'icon-bloodlust
  'action 'cast-spell 'value 'spell-bloodlust
  'allowed 'check-true
  'key "b" 'hint "~!BLOODLUST"
  'for-unit '(unit-cho-gall))

(define-button 'pos 9 'level 0 'icon 'icon-runes
  'action 'cast-spell 'value 'spell-runes
  'allowed 'check-true
  'key "r" 'hint "~!RUNES"
  'for-unit '(unit-cho-gall))

;; death-knight specific actions ----------------------------------------------

(define-button 'pos 3 'level 0 'icon 'icon-touch-of-darkness
  'action 'attack
  'key "a" 'hint "TOUCH OF D~!ARKNESS"
  'for-unit '(unit-death-knight unit-gul-dan unit-teron-gorefiend))

(define-button 'pos 4 'level 0 'icon 'icon-death-coil
  'action 'cast-spell 'value 'spell-death-coil
  'allowed 'check-upgrade 'allow-arg '(upgrade-death-coil)
  'key "c" 'hint "DEATH ~!COIL"
  'for-unit '(unit-death-knight unit-gul-dan unit-teron-gorefiend))

(define-button 'pos 5 'level 0 'icon 'icon-haste
  'action 'cast-spell 'value 'spell-haste
  'allowed 'check-upgrade 'allow-arg '(upgrade-haste)
  'key "h" 'hint "~!HASTE"
  'for-unit '(unit-death-knight unit-gul-dan unit-teron-gorefiend))

(define-button 'pos 6 'level 0 'icon 'icon-raise-dead
  'action 'cast-spell 'value 'spell-raise-dead
  'allowed 'check-upgrade 'allow-arg '(upgrade-raise-dead)
  'key "r" 'hint "~!RAISE DEAD"
  'for-unit '(unit-death-knight unit-gul-dan unit-teron-gorefiend))

(define-button 'pos 7 'level 0 'icon 'icon-whirlwind
  'action 'cast-spell 'value 'spell-whirlwind
  'allowed 'check-upgrade 'allow-arg '(upgrade-whirlwind)
  'key "w" 'hint "~!WHIRLWIND"
  'for-unit '(unit-death-knight unit-gul-dan unit-teron-gorefiend))

(define-button 'pos 8 'level 0 'icon 'icon-unholy-armor
  'action 'cast-spell 'value 'spell-unholy-armor
  'allowed 'check-upgrade 'allow-arg '(upgrade-unholy-armor)
  'key "u" 'hint "~!UNHOLY ARMOR"
  'for-unit '(unit-death-knight unit-gul-dan unit-teron-gorefiend))

(define-button 'pos 9 'level 0 'icon 'icon-death-and-decay
  'action 'cast-spell 'value 'spell-death-and-decay
  'allowed 'check-upgrade 'allow-arg '(upgrade-death-and-decay)
  'key "d" 'hint "~!DEATH AND DECAY"
  'for-unit '(unit-death-knight unit-gul-dan unit-teron-gorefiend))

;; peon specific actions ------------------------------------------------------

(define-button 'pos 4 'level 0 'icon 'icon-repair
  'action 'repair
  'key "r" 'hint "~!REPAIR"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 5 'level 0 'icon 'icon-harvest
  'action 'harvest
  'key "h" 'hint "~!HARVEST LUMBER/MINE GOLD"
  'for-unit '(unit-peon))

(define-button 'pos 6 'level 0 'icon 'icon-return-goods-peon
  'action 'return-goods
  'key "g" 'hint "RETURN WITH ~!GOODS"
  'for-unit '(unit-peon-with-gold unit-peon-with-wood))

;; build basic/advanced structs -----------------------------------------------

(define-button 'pos 7 'level 0 'icon 'icon-build-basic
  'action 'button 'value 1
  'key "b" 'hint "~!BUILD BASIC STRUCTURE"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 8 'level 0 'icon 'icon-build-advanced
  'action 'button 'value 2
  'allowed 'check-units-or 'allow-arg '(unit-troll-lumber-mill unit-stronghold)
  'key "v" 'hint "BUILD AD~!VANCED STRUCTURE"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 9 'level 0 'icon 'icon-build-advanced
  'action 'button 'value 3
  'allowed 'check-units-and 'allow-arg '(unit-fortress unit-temple-of-the-damned
    unit-altar-of-storms)
  'key "e" 'hint "BUILD SP~!ECIAL STRUCTURE"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

;; simple buildings orc -------------------------------------------------------

(define-button 'pos 1 'level 1 'icon 'icon-pig-farm
  'action 'build 'value 'unit-pig-farm
  'key "f" 'hint "BUILD PIG ~!FARM"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 2 'level 1 'icon 'icon-orc-barracks
  'action 'build 'value 'unit-orc-barracks
  'key "b" 'hint "BUILD ~!BARRACKS"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 3 'level 1 'icon 'icon-great-hall
  'action 'build 'value 'unit-great-hall
  'key "h" 'hint "BUILD GREAT ~!HALL"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 4 'level 1 'icon 'icon-troll-lumber-mill
  'action 'build 'value 'unit-troll-lumber-mill
  'key "l" 'hint "BUILD TROLL ~!LUMBER MILL"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 5 'level 1 'icon 'icon-orc-blacksmith
  'action 'build 'value 'unit-orc-blacksmith
  'key "s" 'hint "BUILD BLACK~!SMITH"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 7 'level 1 'icon 'icon-orc-watch-tower
  'action 'build 'value 'unit-orc-watch-tower
  'key "t" 'hint "BUILD ~!TOWER"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 8 'level 1 'icon 'icon-orc-wall
  'action 'build 'value 'unit-orc-wall
  'allowed 'check-network
  'key "w" 'hint "BUILD ~!WALL"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 9 'level 1 'icon 'icon-cancel
  'action 'button 'value 0
  'key "\033" 'hint "~<ESC~> CANCEL"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

;; orc advanced buildings -----------------------------------------------------

(define-button 'pos 1 'level 2 'icon 'icon-orc-shipyard
  'action 'build 'value 'unit-orc-shipyard
  'key "s" 'hint "BUILD ~!SHIPYARD"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 2 'level 2 'icon 'icon-orc-foundry
  'action 'build 'value 'unit-orc-foundry
  'key "f" 'hint "BUILD ~!FOUNDRY"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 3 'level 2 'icon 'icon-orc-refinery
  'action 'build 'value 'unit-orc-refinery
  'key "r" 'hint "BUILD ~!REFINERY"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 4 'level 2 'icon 'icon-goblin-alchemist
  'action 'build 'value 'unit-goblin-alchemist
  'key "a" 'hint "BUILD GOBLIN ~!ALCHEMIST"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 5 'level 2 'icon 'icon-ogre-mound
  'action 'build 'value 'unit-ogre-mound
  'key "o" 'hint "BUILD ~!OGRE MOUND"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 6 'level 2 'icon 'icon-temple-of-the-damned
  'action 'build 'value 'unit-temple-of-the-damned
  'key "t" 'hint "BUILD ~!TEMPLE OF THE DAMNED"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 7 'level 2 'icon 'icon-altar-of-storms
  'action 'build 'value 'unit-altar-of-storms
  'key "l" 'hint "BUILD ~!ALTAR OF STORMS"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 8 'level 2 'icon 'icon-dragon-roost
  'action 'build 'value 'unit-dragon-roost
  'key "d" 'hint "BUILD ~!DRAGON ROOST"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 9 'level 2 'icon 'icon-cancel
  'action 'button 'value 0
  'key "\033" 'hint "~<ESC~> CANCEL"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))

;; orc special buildings ------------------------------------------------------

(define-button 'pos 1 'level 3 'icon 'icon-dark-portal
  'action 'build 'value 'unit-dark-portal