;;   ___________		     _________		      _____  __
;;   \_	  _____/______   ____   ____ \_   ___ \____________ _/ ____\/  |_
;;    |    __) \_  __ \_/ __ \_/ __ \/    \  \/\_  __ \__  \\   __\\   __|
;;    |     \   |  | \/\  ___/\  ___/\     \____|  | \// __ \|  |   |  |
;;    \___  /   |__|    \___  >\___  >\______  /|__|  (____  /__|   |__|
;;	  \/		    \/	   \/	     \/		   \/
;;  ______________________                           ______________________
;;			  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 general unit-buttons.
;;
;;	(c) Copyright 2001 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.7 2002/12/17 06:40:30 nehalmistry Exp $

;; Load the buttons of all races

(load "ccl/alliance/buttons.ccl" #f #t)
(load "ccl/mythical/buttons.ccl" #f #t)

;;----------------------------------------------------------------------------
;;	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)
;;

;; neutral --------------------------------------------------------------------

(if extensions
(define-button 'pos 1 'level 0 'icon 'icon-circle-of-power
  'action 'cast-spell 'value 'spell-circle-of-power
  'allowed 'check-true
  'key "d" 'hint "SET ~!DESTINATION"
  'for-unit '(unit-dark-portal)) )

(if extensions
(define-button 'pos 2 'level 0 'icon 'icon-daemon
  'action 'train-unit 'value 'unit-daemon
  'key "d" 'hint "SUMMON ~!DAEMON"
  'for-unit '(unit-dark-portal)) )

;; general cancel button ------------------------------------------------------

(define-button 'pos 9 'level 9 'icon 'icon-cancel
  'action 'cancel
  'key "\033" 'hint "~<ESC~> CANCEL"
  'for-unit '(*))

(define-button 'pos 9 'level 0 'icon 'icon-cancel
  'action 'cancel-upgrade
  'key "\033" 'hint "~<ESC~> CANCEL UPGRADE"
  'for-unit '(cancel-upgrade))

(define-button 'pos 9 'level 0 'icon 'icon-cancel
  'action 'cancel-train-unit
  'key "\033" 'hint "~<ESC~> CANCEL UNIT TRAINING"
  'for-unit '(*))

(define-button 'pos 9 'level 0 'icon 'icon-cancel
  'action 'cancel-build
  'key "\033" 'hint "~<ESC~> CANCEL CONSTRUCTION"
  'for-unit '(cancel-build))
