buttons.ccl

魔兽2Linux版

  'allowed 'check-no-network
  'key "p" 'hint "BUILD DARK ~!PORTAL"
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-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-peon unit-peon-with-gold unit-peon-with-wood))

(define-button 'pos 9 'level 3 '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 buildings commands -----------------------------------------------------

(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-pig-farm)) )

(define-button 'pos 1 'level 0 'icon 'icon-peon
  'action 'train-unit 'value 'unit-peon
  'allowed 'check-no-research
  'key "p" 'hint "TRAIN ~!PEON"
  'for-unit '(unit-great-hall unit-stronghold unit-fortress))

;; strong hold upgrades -------------------------------------------------------

(define-button 'pos 2 'level 0 'icon 'icon-stronghold
  'action 'upgrade-to 'value 'unit-stronghold
  'allowed 'check-upgrade-to
  'key "s" 'hint "UPGRADE TO ~!STRONGHOLD"
  'for-unit '(unit-great-hall))

(define-button 'pos 2 'level 0 'icon 'icon-fortress-upgrade
  'action 'upgrade-to 'value 'unit-fortress
  'allowed 'check-upgrade-to
  'key "f" 'hint "UPGRADE TO ~!FORTRESS"
  'for-unit '(unit-stronghold))

(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-great-hall unit-stronghold unit-fortress))

(define-button 'pos 7 'level 0 'icon 'icon-move-peon
  'action 'move
  'key "m" 'hint "SET ~!MOVE"
  'for-unit '(unit-great-hall unit-stronghold unit-fortress
    unit-orc-barracks unit-temple-of-the-damned unit-dragon-roost
    unit-goblin-alchemist))

(define-button 'pos 8 'level 0 'icon 'icon-orc-shield1
  'action 'stop
  'key "z" 'hint "SET ~!ZTOP"
  'for-unit '(unit-great-hall unit-stronghold unit-fortress
    unit-orc-barracks unit-temple-of-the-damned unit-dragon-roost
    unit-goblin-alchemist))

(define-button 'pos 9 'level 0 'icon 'icon-battle-axe1
  'action 'attack
  'key "e" 'hint "S~!ET ATTACK"
  'for-unit '(unit-great-hall unit-stronghold unit-fortress
    unit-orc-barracks unit-temple-of-the-damned unit-dragon-roost
    unit-goblin-alchemist)) ))

(define-button 'pos 1 'level 0 'icon 'icon-grunt
  'action 'train-unit 'value 'unit-grunt
  'key "g" 'hint "TRAIN ~!GRUNT"
  'for-unit '(unit-orc-barracks))

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

(define-button 'pos 2 'level 0 'icon 'icon-berserker
  'action 'train-unit 'value 'unit-berserker
  'key "b" 'hint "TRAIN ~!BERSERKER"
  'for-unit '(unit-orc-barracks))

(define-button 'pos 3 'level 0 'icon 'icon-catapult
  'action 'train-unit 'value 'unit-catapult
  'key "c" 'hint "BUILD ~!CATAPULT"
  'for-unit '(unit-orc-barracks))

(define-button 'pos 4 'level 0 'icon 'icon-ogre
  'action 'train-unit 'value 'unit-ogre
  'key "o" 'hint "TRAIN TWO-HEADED ~!OGRE"
  'for-unit '(unit-orc-barracks))

(define-button 'pos 4 'level 0 'icon 'icon-ogre-mage
  'action 'train-unit 'value 'unit-ogre-mage
  'key "o" 'hint "TRAIN ~!OGRE MAGE"
  'for-unit '(unit-orc-barracks))

(define-button 'pos 1 'level 0 'icon 'icon-goblin-zeppelin
  'action 'train-unit 'value 'unit-goblin-zeppelin
  'key "z" 'hint "BUILD GOBLIN ~!ZEPPELIN"
  'for-unit '(unit-goblin-alchemist))

(define-button 'pos 2 'level 0 'icon 'icon-goblin-sappers
  'action 'train-unit 'value 'unit-goblin-sappers
  'key "s" 'hint "TRAIN GOBLIN ~!SAPPERS"
  'for-unit '(unit-goblin-alchemist))

(define-button 'pos 1 'level 0 'icon 'icon-death-knight
  'action 'train-unit 'value 'unit-death-knight
  'key "t" 'hint "~!TRAIN DEATH KNIGHT"
  'for-unit '(unit-temple-of-the-damned))

(define-button 'pos 1 'level 0 'icon 'icon-dragon
  'action 'train-unit 'value 'unit-dragon
  'key "d" 'hint "BUILD ~!DRAGON"
  'for-unit '(unit-dragon-roost))

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

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

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

(define-button 'pos 4 'level 0 'icon 'icon-giant-turtle
  'action 'train-unit 'value 'unit-giant-turtle
  'key "g" 'hint "BUILD ~!GIANT TURTLE"
  'for-unit '(unit-orc-shipyard))

(define-button 'pos 5 'level 0 'icon 'icon-ogre-juggernaught
  'action 'train-unit 'value 'unit-ogre-juggernaught
  'key "j" 'hint "BUILD ~!JUGGERNAUHGT"
  'for-unit '(unit-orc-shipyard))

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

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

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

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

(define-button 'pos 1 'level 0 'icon 'icon-orc-ship-move
  'action 'move
  'key "m" 'hint "~!MOVE"
  'for-unit '(unit-orc-oil-tanker unit-orc-oil-tanker-full unit-giant-turtle
    unit-ogre-juggernaught unit-troll-destroyer unit-orc-transport))

(define-button 'pos 2 'level 0 'icon 'icon-orc-ship-armor1
  'action 'stop
  'key "s" 'hint "~!STOP"
  'for-unit '(unit-orc-oil-tanker unit-orc-oil-tanker-full unit-giant-turtle
    unit-ogre-juggernaught unit-troll-destroyer unit-orc-transport))

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

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

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

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

(define-button 'pos 3 'level 0 'icon 'icon-orc-ship-cannon1
  'action 'attack
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-giant-turtle unit-ogre-juggernaught unit-troll-destroyer))

(define-button 'pos 3 'level 0 'icon 'icon-orc-ship-cannon2
  'action 'attack
  'allowed 'check-upgrade 'allow-arg '(upgrade-orc-ship-cannon1)
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-giant-turtle unit-ogre-juggernaught unit-troll-destroyer))

(define-button 'pos 3 'level 0 'icon 'icon-orc-ship-cannon3
  'action 'attack
  'allowed 'check-upgrade 'allow-arg '(upgrade-orc-ship-cannon2)
  'key "a" 'hint "~!ATTACK"
  'for-unit '(unit-giant-turtle unit-ogre-juggernaught unit-troll-destroyer))

(define-button 'pos 4 'level 0 'icon 'icon-orc-patrol-naval
  'action 'patrol
  'key "p" 'hint "~!PATROL"
  'for-unit '(unit-giant-turtle unit-ogre-juggernaught unit-troll-destroyer))

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

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

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

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

(define-button 'pos 1 'level 0 'icon 'icon-battle-axe2
  'action 'research 'value 'upgrade-battle-axe1
  'allowed 'check-single-research
  'key "w" 'hint "UPGRADE ~!WEAPONS (Damage +2)"
  'for-unit '(unit-orc-blacksmith))

(define-button 'pos 1 'level 0 'icon 'icon-battle-axe3
  'action 'research 'value 'upgrade-battle-axe2
  'allowed 'check-single-research
  'key "w" 'hint "UPGRADE ~!WEAPONS (Damage +2)"
  'for-unit '(unit-orc-blacksmith))

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

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

(define-button 'pos 3 'level 0 'icon 'icon-catapult1
  'action 'research 'value 'upgrade-catapult1
  'allowed 'check-single-research
  'key "c" 'hint "UPGRADE ~!CATAPULT (Damage +15)"
  'for-unit '(unit-orc-blacksmith))

(define-button 'pos 3 'level 0 'icon 'icon-catapult2
  'action 'research 'value 'upgrade-catapult2
  'allowed 'check-single-research
  'key "c" 'hint "UPGRADE ~!CATAPULT (Damage +15)"
  'for-unit '(unit-orc-blacksmith))

(define-button 'pos 1 'level 0 'icon 'icon-throwing-axe2
  'action 'research 'value 'upgrade-throwing-axe1
  'allowed 'check-single-research
  'key "u" 'hint "~!UPGRADE THROWING AXE (Damage +1)"
  'for-unit '(unit-troll-lumber-mill))

(define-button 'pos 1 'level 0 'icon 'icon-throwing-axe3
  'action 'research 'value 'upgrade-throwing-axe2
  'allowed 'check-single-research
  'key "u" 'hint "~!UPGRADE THROWING AXE (Damage +1)"
  'for-unit '(unit-troll-lumber-mill))

(define-button 'pos 4 'level 0 'icon 'icon-berserker
  'action 'research 'value 'upgrade-berserker
  'allowed 'check-single-research
  'key "b" 'hint "TROLL ~!BERSERKER TRAINING"
  'for-unit '(unit-troll-lumber-mill))

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

(define-button 'pos 5 'level 0 'icon 'icon-light-axes
  'action 'research 'value 'upgrade-light-axes
  'allowed 'check-single-research
  'key "a" 'hint "RESEARCH LIGHTER ~!AXES (Range +1)"
  'for-unit '(unit-troll-lumber-mill))

(define-button 'pos 6 'level 0 'icon 'icon-berserker-regeneration
  'action 'research 'value 'upgrade-berserker-regeneration
  'allowed 'check-single-research
  'key "r" 'hint "BERSERKER ~!REGENERATION"
  'for-unit '(unit-troll-lumber-mill))

(define-button 'pos 1 'level 0 'icon 'icon-ogre-mage
  'action 'research 'value 'upgrade-ogre-mage
  'allowed 'check-single-research
  'key "m" 'hint "UPGRADES OGRES TO ~!MAGES"
  'for-unit '(unit-altar-of-storms))

(define-button 'pos 2 'level 0 'icon 'icon-bloodlust
  'action 'research 'value 'upgrade-bloodlust
  'allowed 'check-single-research
  'key "b" 'hint "RESEARCH ~!BLOODLUST"
  'for-unit '(unit-altar-of-storms))

(define-button 'pos 3 'level 0 'icon 'icon-runes
  'action 'research 'value 'upgrade-runes
  'allowed 'check-single-research
  'key "r" 'hint "RESEARCH ~!RUNES"
  'for-unit '(unit-altar-of-storms))

(define-button 'pos 2 'level 0 'icon 'icon-haste
  'action 'research 'value 'upgrade-haste
  'allowed 'check-single-research
  'key "h" 'hint "RESEARCH ~!HASTE"
  'for-unit '(unit-temple-of-the-damned))

(define-button 'pos 3 'level 0 'icon 'icon-skeleton
  'action 'research 'value 'upgrade-raise-dead
  'allowed 'check-single-research
  'key "r" 'hint "RESEARCH ~!RAISE DEAD"
  'for-unit '(unit-temple-of-the-damned))

(define-button 'pos 4 'level 0 'icon 'icon-whirlwind
  'action 'research 'value 'upgrade-whirlwind
  'allowed 'check-single-research
  'key "w" 'hint "RESEARCH ~!WHIRLWIND"
  'for-unit '(unit-temple-of-the-damned))

(define-button 'pos 5 'level 0 'icon 'icon-unholy-armor
  'action 'research 'value 'upgrade-unholy-armor
  'allowed 'check-single-research
  'key "u" 'hint "RESEARCH ~!UNHOLY ARMOR"
  'for-unit '(unit-temple-of-the-damned))

(define-button 'pos 6 'level 0 'icon 'icon-death-and-decay
  'action 'research 'value 'upgrade-death-and-decay
  'allowed 'check-single-research
  'key "d" 'hint "RESEARCH ~!DEATH AND DECAY"
  'for-unit '(unit-temple-of-the-damned))

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

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

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

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