(define-button '((pos      1)
                 (level    0) 
                 (icon     icon-circle-of-power)
                 (action   (cast-spell spell-circle-of-power))
                 (allowed  check-true)
                 (key      "p")
                 (hint     "~!PLACE EXIT/DESTINATION POINT")
                 (for-unit unit-dark-portal)))

(define-button
  #:pos     1
  #:level   0
  #:icon    icon-circle-of-power
  #:action '(cast-spell spell-circle-of-power)
  #:allowed check-true
  )

;; EOF ;;