;; Little (illegal?) helper, do something once when skill or spell done

;; use /whencast dosomething or /whendone dosomething, and /cwhen to cancel it
;; ( /cwhen only works on skill or spell, if both defined, you're screwed)

/def -i whencast=\
	/eval /set lastwhen $$[def("-1 -au -F -t'You are done with the chant.' = %{*}")]
/def -i whendone=\
	/eval /set lastwhen $$[def("-1 -au -F -t'You are prepared to do the skill.' = %{*}")]
/def -i whendead=\
	/eval /set lastwhen $$[def("-1 -au -F -t'* is DEAD, R.I.P.' = %{*}")]

;; citadel
/def -i whenblown=\
	/eval /set lastwhen $$[def("-1 -au -F -t'The explosion catches you unawares and throws you *' = %{*}")]

/def -i cwhen = \
	/if (lastwhen) \
		/echo % Cleared:%;\
		/list #%{lastwhen}%;\
		/undefn %{lastwhen}%;\
		/unset lastwhen%;\
	/else \
		/echo % Nothing to clear%;\
	/endif