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 human 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.21 2003/03/01 07:51:28 mr-russ 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-peasant
  'action 'move
  'key "m" 'hint "~!MOVE"
  'for-unit '(unit-footman unit-knight unit-archer unit-paladin
    unit-dwarves unit-ranger unit-ballista unit-peasant
    unit-peasant-with-gold unit-peasant-with-wood unit-alleria
    unit-kurdan-and-sky-ree unit-danath unit-turalyon unit-lothar
    unit-uther-lightbringer unit-khadgar unit-gnomish-flying-machine
    unit-gryphon-rider unit-attack-peasant unit-mage unit-critter
    human-group))

(define-button 'pos 2 'level 0 'icon 'icon-human-shield1
  'action 'stop
  'key "s" 'hint "~!STOP"
  'for-unit '(unit-footman unit-knight unit-archer unit-paladin
    unit-dwarves unit-ranger unit-ballista unit-peasant
    unit-peasant-with-gold unit-peasant-with-wood unit-alleria
    unit-kurdan-and-sky-ree unit-danath unit-turalyon unit-lothar
    unit-uther-lightbringer unit-khadgar unit-gnomish-flying-machine
    unit-gryphon-rider unit-attack-peasant unit-mage unit-critter
    human-group))

(define-button 'pos 2 'level 0 'icon 'icon-human-shield2
  'action 'stop
  'allowed 'check-upgrade 'allow-arg '(upgrade-human-shield1)
  'key "s" 'hint "~!STOP"
  'for-unit '(unit-footman unit-knight unit-archer unit-paladin
    unit-dwarves unit-ranger unit-ballista unit-danath unit-turalyon
    unit-lothar unit-uther-lightbringer))

(define-button 'pos 2 'level 0 'icon 'icon-human-shield3
  'action 'stop
  'allowed 'check-upgrade 'allow-arg '(upgrade-human-shield2)
  'key "s" 'hint "~!STOP"
  'for-unit '(unit-footman unit-knight unit-archer unit-paladin
    unit-dwarves unit-ranger unit-ballista unit-danath unit-turalyon
    unit-lothar unit-uther-lightbringer))

(define-button 'pos 3 'level 0 'icon 'icon-sword1
  'action 'attack
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-footman unit-knight unit-archer unit-paladin
    unit-dwarves unit-ranger unit-ballista unit-peasant
    unit-peasant-with-gold unit-peasant-with-wood unit-alleria
    unit-kurdan-and-sky-ree unit-danath unit-turalyon unit-lothar
    unit-uther-lightbringer unit-khadgar unit-gryphon-rider human-group))

(define-button 'pos 3 'level 0 'icon 'icon-sword2
  'action 'attack
  'allowed 'check-upgrade 'allow-arg '(upgrade-sword1)
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-footman unit-knight unit-archer unit-paladin
    unit-dwarves unit-ranger unit-ballista unit-danath unit-turalyon
    unit-lothar unit-uther-lightbringer))

(define-button 'pos 3 'level 0 'icon 'icon-sword3
  'action 'attack
  'allowed 'check-upgrade 'allow-arg '(upgrade-sword2)
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-footman unit-knight unit-archer unit-paladin
    unit-dwarves unit-ranger unit-ballista unit-danath unit-turalyon
    unit-lothar unit-uther-lightbringer))

(define-button 'pos 3 'level 0 'icon 'icon-arrow1
  'action 'attack
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-archer unit-ranger unit-alleria))

(define-button 'pos 3 'level 0 'icon 'icon-arrow2
  'action 'attack
  'allowed 'check-upgrade 'allow-arg '(upgrade-arrow1)
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-archer unit-ranger unit-alleria))

(define-button 'pos 3 'level 0 'icon 'icon-arrow3
  'action 'attack
  'allowed 'check-upgrade 'allow-arg '(upgrade-arrow2)
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-archer unit-ranger unit-alleria))

(if extensions
(define-button 'pos 4 'level 0 'icon 'icon-human-patrol-land
  'action 'patrol
  'key "p" 'hint "~!PATROL"
  'for-unit '(unit-footman unit-knight unit-archer unit-paladin
    unit-dwarves unit-ranger unit-ballista unit-alleria
    unit-kurdan-and-sky-ree unit-danath unit-turalyon unit-lothar
    unit-uther-lightbringer unit-gryphon-rider human-group
    unit-gnomish-flying-machine))
(define-button 'pos 4 'level 0 'icon 'icon-human-patrol-land
  'action 'patrol
  'key "p" 'hint "~!PATROL"
  'for-unit '(unit-footman unit-knight unit-archer unit-paladin
    unit-dwarves unit-ranger unit-ballista unit-alleria
    unit-kurdan-and-sky-ree unit-danath unit-turalyon unit-lothar
    unit-uther-lightbringer unit-gryphon-rider human-group)) )

(define-button 'pos 5 'level 0 'icon 'icon-human-stand-ground
  'action 'stand-ground
  'key "t" 'hint "S~!TAND GROUND"
  'for-unit '(unit-footman unit-knight unit-archer unit-paladin
    unit-dwarves unit-ranger unit-ballista unit-alleria
    unit-kurdan-and-sky-ree unit-danath unit-turalyon unit-lothar
    unit-uther-lightbringer unit-gryphon-rider human-group
    unit-gnomish-submarine unit-battleship unit-elven-destroyer))

(define-button 'pos 6 'level 0 'icon 'icon-human-attack-ground
  'action 'attack-ground
  'key "g" 'hint "ATTACK ~!GROUND"
  'for-unit '(unit-ballista unit-battleship human-group))

(define-button 'pos 9 'level 0 'icon 'icon-human-demolish
  'action 'demolish
  'key "d" 'hint "~!DEMOLISH"
  'for-unit '(unit-footman unit-knight unit-archer unit-paladin
    unit-dwarves unit-ranger unit-ballista unit-gryphon-rider human-group))

;; paladin specific actions ---------------------------------------------------

(if extensions
(define-button 'pos 6 'level 0 'icon 'icon-heal
  'action 'cast-spell 'value 'spell-area-healing
  'allowed 'check-upgrade 'allow-arg '(upgrade-area-healing)
  'key "l" 'hint "AREA HEA~!LING (per 1 HP)"
  'for-unit '(unit-paladin unit-turalyon 
    unit-uther-lightbringer))
)

(define-button 'pos 7 'level 0 'icon 'icon-holy-vision
  'action 'cast-spell 'value 'spell-holy-vision
  'allowed 'check-upgrade 'allow-arg '(upgrade-holy-vision)
  'key "v" 'hint "HOLY ~!VISION"
  'for-unit '(unit-paladin unit-turalyon
    unit-uther-lightbringer))

(define-button 'pos 8 'level 0 'icon 'icon-heal
  'action 'cast-spell 'value 'spell-healing
  'allowed 'check-upgrade 'allow-arg '(upgrade-healing)
  'key "h" 'hint "~!HEALING (per 1 HP)"
  'for-unit '(unit-paladin unit-turalyon 
    unit-uther-lightbringer))

(define-button 'pos 9 'level 0 'icon 'icon-exorcism
  'action 'cast-spell 'value 'spell-exorcism
  'allowed 'check-upgrade 'allow-arg '(upgrade-exorcism)
  'key "e" 'hint "~!EXORCISM"
  'for-unit '(unit-paladin unit-turalyon
    unit-uther-lightbringer))

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

(define-button 'pos 3 'level 0 'icon 'icon-lightning
  'action 'attack
  'key "a" 'hint "LIGHTNING ~!ATTACK"
  'for-unit '(unit-mage unit-khadgar))

(define-button 'pos 4 'level 0 'icon 'icon-fireball
  'action 'cast-spell 'value 'spell-fireball
  'allowed 'check-upgrade 'allow-arg '(upgrade-fireball)
  'key "f" 'hint "~!FIREBALL"
  'for-unit '(unit-mage unit-khadgar))

(define-button 'pos 5 'level 0 'icon 'icon-slow
  'action 'cast-spell 'value 'spell-slow
  'allowed 'check-upgrade 'allow-arg '(upgrade-slow)
  'key "o" 'hint "SL~!OW"
  'for-unit '(unit-mage unit-khadgar))

(define-button 'pos 6 'level 0 'icon 'icon-flame-shield
  'action 'cast-spell 'value 'spell-flame-shield
  'allowed 'check-upgrade 'allow-arg '(upgrade-flame-shield)
  'key "l" 'hint "F~!LAME SHIELD"
  'for-unit '(unit-mage unit-khadgar))

(define-button 'pos 7 'level 0 'icon 'icon-invisibility
  'action 'cast-spell 'value 'spell-invisibility
  'allowed 'check-upgrade 'allow-arg '(upgrade-invisibility)
  'key "i" 'hint "~!INVISIBILITY"
  'for-unit '(unit-mage unit-khadgar))

(define-button 'pos 8 'level 0 'icon 'icon-polymorph
  'action 'cast-spell 'value 'spell-polymorph
  'allowed 'check-upgrade 'allow-arg '(upgrade-polymorph)
  'key "p" 'hint "~!POLYMORPH"
  'for-unit '(unit-mage unit-khadgar))

(define-button 'pos 9 'level 0 'icon 'icon-blizzard
  'action 'cast-spell 'value 'spell-blizzard
  'allowed 'check-upgrade 'allow-arg '(upgrade-blizzard)
  'key "b" 'hint "~!BLIZZARD"
  'for-unit '(unit-mage unit-khadgar))

;; peasant specific actions ---------------------------------------------------

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

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

(define-button 'pos 6 'level 0 'icon 'icon-return-goods-peasant
  'action 'return-goods
  'key "g" 'hint "RETURN WITH ~!GOODS"
  'for-unit '(unit-peasant-with-gold unit-peasant-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-peasant unit-peasant-with-gold unit-peasant-with-wood))

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

(if extensions
(define-button 'pos 9 'level 0 'icon 'icon-build-advanced
  'action 'button 'value 3
  'allowed 'check-units-and 'allow-arg '(unit-castle unit-mage-tower unit-church)
  'key "e" 'hint "BUILD SP~!ECIAL STRUCTURE"
  'for-unit '(unit-peasant unit-peasant-with-gold unit-peasant-with-wood)) )

;; simple buildings human -----------------------------------------------------

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

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

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

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

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

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

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

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

;; human advanced buildings ---------------------------------------------------

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

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

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

(define-button 'pos 4 'level 2 'icon 'icon-gnomish-inventor
  'action 'build 'value 'unit-gnomish-inventor
  'key "i" 'hint "BUILD GNOMISH ~!INVENTOR"
  'for-unit '(unit-peasant unit-peasant-with-gold unit-peasant-with-wood))

(define-button 'pos 5 'level 2 'icon 'icon-stables
  'action 'build 'value 'unit-stables
  'key "a" 'hint "BUILD ST~!ABLES"
  'for-unit '(unit-peasant unit-peasant-with-gold unit-peasant-with-wood))

(define-button 'pos 6 'level 2 'icon 'icon-mage-tower
  'action 'build 'value 'unit-mage-tower
  'key "m" 'hint "BUILD ~!MAGE TOWER"
  'for-unit '(unit-peasant unit-peasant-with-gold unit-peasant-with-wood))

(define-button 'pos 7 'level 2 'icon 'icon-church
  'action 'build 'value 'unit-church
  'key "c" 'hint "BUILD ~!CHURCH"
  'for-unit '(unit-peasant unit-peasant-with-gold unit-peasant-with-wood))

(define-button 'pos 8 'level 2 'icon 'icon-gryphon-aviary
  'action 'build 'value 'unit-gryphon-aviary
  'key "g" 'hint "BUILD ~!GRYPHON AVIARY"
  'for-unit '(unit-peasant unit-peasant-with-gold unit-peasant-with-wood))

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

;; human special buildings ----------------------------------------------------

(define-button 'pos 1 'level 3 'icon 'icon-dark-portal
  'action 'build 'value 'unit-dark-portal
  'allowed 'check-no-network
  'key "p" 'hint "BUILD DARK ~!PORTAL"
  'for-unit '(unit-peasant unit-peasant-with-gold unit-peasant-with-wood))

(define-button 'pos 2 'level 3 'icon 'icon-runestone
  'action 'build 'value 'unit-runestone
  'allowed 'check-no-network
  'key "r" 'hint "BUILD ~!RUNESTONE"
  'for-unit '(unit-peasant unit-peasant-with-gold unit-peasant-with-wood))

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

;; buildings commands ---------------------------------------------------------