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