buttons.ccl

魔兽2Linux版

(if extensions
(define-button 'pos 1 'level 0 'icon 'icon-critter
  'action 'train-unit 'value 'unit-critter
  'key "c" 'hint "TRAIN ~!CRITTER"
  'for-unit '(unit-farm)) )

(define-button 'pos 1 'level 0 'icon 'icon-peasant
  'action 'train-unit 'value 'unit-peasant
  'allowed 'check-no-research
  'key "p" 'hint "TRAIN ~!PEASANT"
  'for-unit '(unit-town-hall unit-keep unit-castle))

;; town hall upgrades ---------------------------------------------------------

(define-button 'pos 2 'level 0 'icon 'icon-keep
  'action 'upgrade-to 'value 'unit-keep
  'allowed 'check-upgrade-to
  'key "k" 'hint "UPGRADE TO ~!KEEP"
  'for-unit '(unit-town-hall))

(define-button 'pos 2 'level 0 'icon 'icon-castle-upgrade
  'action 'upgrade-to 'value 'unit-castle
  'allowed 'check-upgrade-to
  'key "c" 'hint "UPGRADE TO ~!CASTLE"
  'for-unit '(unit-keep))

(if extensions (begin
(define-button 'pos 5 'level 0 'icon 'icon-harvest
  'action 'harvest
  'key "h" 'hint "SET ~!HARVEST LUMBER/MINE GOLD"
  'for-unit '(unit-town-hall unit-keep unit-castle))

(define-button 'pos 7 'level 0 'icon 'icon-move-peasant
  'action 'move
  'key "m" 'hint "SET ~!MOVE"
  'for-unit '(unit-town-hall unit-keep unit-castle unit-human-barracks
    unit-mage-tower unit-gryphon-aviary unit-gnomish-inventor))

(define-button 'pos 8 'level 0 'icon 'icon-human-shield1
  'action 'stop
  'key "z" 'hint "SET ~!ZTOP"
  'for-unit '(unit-town-hall unit-keep unit-castle unit-human-barracks
    unit-mage-tower unit-gryphon-aviary unit-gnomish-inventor))

(define-button 'pos 9 'level 0 'icon 'icon-sword1
  'action 'attack
  'key "e" 'hint "S~!ET ATTACK"
  'for-unit '(unit-town-hall unit-keep unit-castle unit-human-barracks
    unit-mage-tower unit-gryphon-aviary unit-gnomish-inventor)) ))

(define-button 'pos 1 'level 0 'icon 'icon-footman
  'action 'train-unit 'value 'unit-footman
  'key "f" 'hint "TRAIN ~!FOOTMAN"
  'for-unit '(unit-human-barracks))

(define-button 'pos 2 'level 0 'icon 'icon-archer
  'action 'train-unit 'value 'unit-archer
  'key "a" 'hint "TRAIN ~!ARCHER"
  'for-unit '(unit-human-barracks))

(define-button 'pos 2 'level 0 'icon 'icon-ranger
  'action 'train-unit 'value 'unit-ranger
  'key "r" 'hint "TRAIN ~!RANGER"
  'for-unit '(unit-human-barracks))

(define-button 'pos 3 'level 0 'icon 'icon-ballista
  'action 'train-unit 'value 'unit-ballista
  'key "b" 'hint "BUILD ~!BALLISTA"
  'for-unit '(unit-human-barracks))

(define-button 'pos 4 'level 0 'icon 'icon-knight
  'action 'train-unit 'value 'unit-knight
  'key "k" 'hint "TRAIN ~!KNIGHT"
  'for-unit '(unit-human-barracks))

(define-button 'pos 4 'level 0 'icon 'icon-paladin
  'action 'train-unit 'value 'unit-paladin
  'key "p" 'hint "TRAIN ~!PALADIN"
  'for-unit '(unit-human-barracks))

(define-button 'pos 1 'level 0 'icon 'icon-gnomish-flying-machine
  'action 'train-unit 'value 'unit-gnomish-flying-machine
  'key "f" 'hint "BUILD GNOMISH ~!FLYING MACHINE"
  'for-unit '(unit-gnomish-inventor))

(define-button 'pos 2 'level 0 'icon 'icon-dwarves
  'action 'train-unit 'value 'unit-dwarves
  'key "d" 'hint "TRAIN ~!DWARVEN DEMOLITION SQUAD"
  'for-unit '(unit-gnomish-inventor))

(define-button 'pos 1 'level 0 'icon 'icon-mage
  'action 'train-unit 'value 'unit-mage
  'key "t" 'hint "~!TRAIN MAGE"
  'for-unit '(unit-mage-tower))

(define-button 'pos 1 'level 0 'icon 'icon-gryphon-rider
  'action 'train-unit 'value 'unit-gryphon-rider
  'key "g" 'hint "TRAIN ~!GRYPHON RIDER"
  'for-unit '(unit-gryphon-aviary))

(define-button 'pos 1 'level 0 'icon 'icon-human-oil-tanker
  'action 'train-unit 'value 'unit-human-oil-tanker
  'key "o" 'hint "BUILD ~!OIL TANKER"
  'for-unit '(unit-human-shipyard))

(define-button 'pos 2 'level 0 'icon 'icon-elven-destroyer
  'action 'train-unit 'value 'unit-elven-destroyer
  'key "d" 'hint "BUILD ~!DESTROYER"
  'for-unit '(unit-human-shipyard))

(define-button 'pos 3 'level 0 'icon 'icon-human-transport
  'action 'train-unit 'value 'unit-human-transport
  'key "t" 'hint "BUILD ~!TRANSPORT"
  'for-unit '(unit-human-shipyard))

(define-button 'pos 4 'level 0 'icon 'icon-gnomish-submarine
  'action 'train-unit 'value 'unit-gnomish-submarine
  'key "s" 'hint "BUILD GNOMISH ~!SUBMARINE"
  'for-unit '(unit-human-shipyard))

(define-button 'pos 5 'level 0 'icon 'icon-battleship
  'action 'train-unit 'value 'unit-battleship
  'key "b" 'hint "BUILD ~!BATTLESHIP"
  'for-unit '(unit-human-shipyard))

(if extensions (begin
;---------------------------------------------------
(define-button 'pos 6 'level 0 'icon 'icon-human-ship-haul-oil
  'action 'harvest
  'key "h" 'hint "SET ~!HAUL OIL"
  'for-unit '(unit-human-shipyard))
;---------------------------------------------------
  ))

(define-button 'pos 1 'level 0 'icon 'icon-human-guard-tower
  'action 'upgrade-to 'value 'unit-human-guard-tower
  'key "g" 'hint "UPGRADE TO ~!GUARD TOWER"
  'for-unit '(unit-human-watch-tower))

(define-button 'pos 2 'level 0 'icon 'icon-human-cannon-tower
  'action 'upgrade-to 'value 'unit-human-cannon-tower
  'key "c" 'hint "UPGRADE TO ~!CANNON TOWER"
  'for-unit '(unit-human-watch-tower))

;; ships ----------------------------------------------------------------------

(define-button 'pos 1 'level 0 'icon 'icon-human-ship-move
  'action 'move
  'key "m" 'hint "~!MOVE"
  'for-unit '(unit-human-oil-tanker unit-human-oil-tanker-full
    unit-gnomish-submarine unit-battleship unit-elven-destroyer
    unit-human-transport))

(define-button 'pos 2 'level 0 'icon 'icon-human-ship-armor1
  'action 'stop
  'key "s" 'hint "~!STOP"
  'for-unit '(unit-human-oil-tanker unit-human-oil-tanker-full
    unit-gnomish-submarine unit-battleship unit-elven-destroyer
    unit-human-transport))

(define-button 'pos 3 'level 0 'icon 'icon-human-unload
  'action 'unload
  'key "u" 'hint "~!UNLOAD"
  'for-unit '(unit-human-transport))

(define-button 'pos 4 'level 0 'icon 'icon-human-oil-platform
  'action 'build 'value 'unit-human-oil-platform
  'key "b" 'hint "~!BUILD OIL PLATFORM"
  'for-unit '(unit-human-oil-tanker))

(define-button 'pos 5 'level 0 'icon 'icon-human-ship-haul-oil
  'action 'harvest
  'key "h" 'hint "~!HAUL OIL"
  'for-unit '(unit-human-oil-tanker))

(define-button 'pos 6 'level 0 'icon 'icon-human-ship-return-oil
  'action 'return-goods
  'key "g" 'hint "RETURN WITH ~!GOODS"
  'for-unit '(unit-human-oil-tanker-full))

(define-button 'pos 3 'level 0 'icon 'icon-human-ship-cannon1
  'action 'attack
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-gnomish-submarine unit-battleship unit-elven-destroyer))

(define-button 'pos 3 'level 0 'icon 'icon-human-ship-cannon2
  'action 'attack
  'allowed 'check-upgrade 'allow-arg '(upgrade-human-ship-cannon1)
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-gnomish-submarine unit-battleship unit-elven-destroyer))

(define-button 'pos 3 'level 0 'icon 'icon-human-ship-cannon3
  'action 'attack
  'allowed 'check-upgrade 'allow-arg '(upgrade-human-ship-cannon2)
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-gnomish-submarine unit-battleship unit-elven-destroyer))

(define-button 'pos 4 'level 0 'icon 'icon-human-patrol-naval
  'action 'patrol
  'key "p" 'hint "~!PATROL"
  'for-unit '(unit-gnomish-submarine unit-battleship unit-elven-destroyer))

(if extensions (begin
(define-button 'pos 7 'level 0 'icon 'icon-human-ship-move
  'action 'move
  'key "m" 'hint "SET ~!MOVE"
  'for-unit '(unit-human-shipyard))

(define-button 'pos 8 'level 0 'icon 'icon-human-ship-armor1
  'action 'stop
  'key "z" 'hint "SET ~!ZTOP"
  'for-unit '(unit-human-shipyard))

(define-button 'pos 9 'level 0 'icon 'icon-human-ship-cannon1
  'action 'attack
  'key "e" 'hint "S~!ET ATTACK"
  'for-unit '(unit-human-shipyard)) ))

;; upgrades -------------------------------------------------------------------

(define-button 'pos 1 'level 0 'icon 'icon-sword2
  'action 'research 'value 'upgrade-sword1
  'allowed 'check-single-research
  'key "w" 'hint "UPGRADE S~!WORDS (Damage +2)"
  'for-unit '(unit-human-blacksmith))

(define-button 'pos 1 'level 0 'icon 'icon-sword3
  'action 'research 'value 'upgrade-sword2
  'allowed 'check-single-research
  'key "w" 'hint "UPGRADE S~!WORDS (Damage +2)"
  'for-unit '(unit-human-blacksmith))

(define-button 'pos 2 'level 0 'icon 'icon-human-shield2
  'action 'research 'value 'upgrade-human-shield1
  'allowed 'check-single-research
  'key "s" 'hint "UPGRADE ~!SHIELDS (Armor +2)"
  'for-unit '(unit-human-blacksmith))

(define-button 'pos 2 'level 0 'icon 'icon-human-shield3
  'action 'research 'value 'upgrade-human-shield2
  'allowed 'check-single-research
  'key "s" 'hint "UPGRADE ~!SHIELDS (Armor +2)"
  'for-unit '(unit-human-blacksmith))

(define-button 'pos 3 'level 0 'icon 'icon-ballista1
  'action 'research 'value 'upgrade-ballista1
  'allowed 'check-single-research
  'key "b" 'hint "UPGRADE ~!BALLISTA (Damage +15)"
  'for-unit '(unit-human-blacksmith))

(define-button 'pos 3 'level 0 'icon 'icon-ballista2
  'action 'research 'value 'upgrade-ballista2
  'allowed 'check-single-research
  'key "b" 'hint "UPGRADE ~!BALLISTA (Damage +15)"
  'for-unit '(unit-human-blacksmith))

(define-button 'pos 1 'level 0 'icon 'icon-arrow2
  'action 'research 'value 'upgrade-arrow1
  'allowed 'check-single-research
  'key "u" 'hint "~!UPGRADE ARROWS (Damage +1)"
  'for-unit '(unit-elven-lumber-mill))

(define-button 'pos 1 'level 0 'icon 'icon-arrow3
  'action 'research 'value 'upgrade-arrow2
  'allowed 'check-single-research
  'key "u" 'hint "~!UPGRADE ARROWS (Damage +1)"
  'for-unit '(unit-elven-lumber-mill))

(define-button 'pos 4 'level 0 'icon 'icon-ranger
  'action 'research 'value 'upgrade-ranger
  'allowed 'check-single-research
  'key "r" 'hint "ELVEN ~!RANGER TRAINING"
  'for-unit '(unit-elven-lumber-mill))

(define-button 'pos 4 'level 0 'icon 'icon-ranger-scouting
  'action 'research 'value 'upgrade-ranger-scouting
  'allowed 'check-single-research
  'key "s" 'hint "RANGER ~!SCOUTING (Sight:9)"
  'for-unit '(unit-elven-lumber-mill))

(define-button 'pos 5 'level 0 'icon 'icon-longbow
  'action 'research 'value 'upgrade-longbow
  'allowed 'check-single-research
  'key "l" 'hint "RESEARCH ~!LONGBOW (Range +1)"
  'for-unit '(unit-elven-lumber-mill))

(define-button 'pos 6 'level 0 'icon 'icon-ranger-marksmanship
  'action 'research 'value 'upgrade-ranger-marksmanship
  'allowed 'check-single-research
  'key "m" 'hint "RANGER ~!MARKSMANSHIP (Damage +3)"
  'for-unit '(unit-elven-lumber-mill))

(define-button 'pos 1 'level 0 'icon 'icon-paladin
  'action 'research 'value 'upgrade-paladin
  'allowed 'check-single-research
  'key "p" 'hint "UPGRADES KNIGHTS TO ~!PALADINS"
  'for-unit '(unit-church))

(define-button 'pos 2 'level 0 'icon 'icon-heal
  'action 'research 'value 'upgrade-healing
  'allowed 'check-single-research
  'key "h" 'hint "RESEARCH ~!HEALING"
  'for-unit '(unit-church))

(define-button 'pos 3 'level 0 'icon 'icon-exorcism
  'action 'research 'value 'upgrade-exorcism
  'allowed 'check-single-research
  'key "e" 'hint "RESEARCH ~!EXORCISM"
  'for-unit '(unit-church))

(if extensions
(define-button 'pos 5 'level 0 'icon 'icon-heal
  'action 'research 'value 'upgrade-area-healing
  'allowed 'check-single-research
  'key "l" 'hint "RESEARCH AREA HEA~!LING"
  'for-unit '(unit-church))
)

(define-button 'pos 2 'level 0 'icon 'icon-slow
  'action 'research 'value 'upgrade-slow
  'allowed 'check-single-research
  'key "o" 'hint "RESEARCH SL~!OW"
  'for-unit '(unit-mage-tower))

(define-button 'pos 3 'level 0 'icon 'icon-flame-shield
  'action 'research 'value 'upgrade-flame-shield
  'allowed 'check-single-research
  'key "l" 'hint "RESEARCH F~!LAME SHIELD"
  'for-unit '(unit-mage-tower))

(define-button 'pos 4 'level 0 'icon 'icon-invisibility
  'action 'research 'value 'upgrade-invisibility
  'allowed 'check-single-research
  'key "i" 'hint "RESEARCH ~!INVISIBILITY"
  'for-unit '(unit-mage-tower))

(define-button 'pos 5 'level 0 'icon 'icon-polymorph
  'action 'research 'value 'upgrade-polymorph
  'allowed 'check-single-research
  'key "p" 'hint "RESEARCH ~!POLYMORPH"
  'for-unit '(unit-mage-tower))

(define-button 'pos 6 'level 0 'icon 'icon-blizzard
  'action 'research 'value 'upgrade-blizzard
  'allowed 'check-single-research
  'key "b" 'hint "RESEARCH ~!BLIZZARD"
  'for-unit '(unit-mage-tower))

(define-button 'pos 1 'level 0 'icon 'icon-human-ship-cannon2
  'action 'research 'value 'upgrade-human-ship-cannon1
  'allowed 'check-single-research
  'key "c" 'hint "UPGRADE ~!CANNONS (Damage +5)"
  'for-unit '(unit-human-foundry))

(define-button 'pos 1 'level 0 'icon 'icon-human-ship-cannon3
  'action 'research 'value 'upgrade-human-ship-cannon2
  'allowed 'check-single-research
  'key "c" 'hint "UPGRADE ~!CANNONS (Damage +5)"
  'for-unit '(unit-human-foundry))

(define-button 'pos 2 'level 0 'icon 'icon-human-ship-armor2
  'action 'research 'value 'upgrade-human-ship-armor1
  'allowed 'check-single-research
  'key "a" 'hint "UPGRADE SHIP ~!ARMOR (Armor +5)"
  'for-unit '(unit-human-foundry))

(define-button 'pos 2 'level 0 'icon 'icon-human-ship-armor3
  'action 'research 'value 'upgrade-human-ship-armor2
  'allowed 'check-single-research
  'key "a" 'hint "UPGRADE SHIP ~!ARMOR (Armor +5)"
  'for-unit '(unit-human-foundry))