;;; Simple port/portal/watch/scry script for tinyfugue
;;; with saving. You need to make subdir saves/ in actual dir
;;;
;;; usage:
;;; 	/addkey <label> <key>
;;;	/removekey <label>
;;;	/listkeys
;;;	/loadkeys
;;;	/savekeys
;;;	/port <label>		It always create portal going up
;;;	/scry <label>
;;;	/watch <label>
;;;	/tel <label>

/def addkey = \
	/eval /set key_%{1}=%{2}
/def removekey= \
	/eval /unset key_%{1}
/def listkeys= \
	/listvar key_*
/def loadkeys= /load saves/portkeys
/def savekeys= \
	/sh rm saves/portkeys%; \
	/log -l saves/portkeys%; \
	/listvar key_*%; \
	/log -l off
/def port = \
	/eval /set portkey=%%{key_%{1}}%; \
	/if (portkey =~ "") /eval /echo No such key (%{1})%; \
	/else cast 'portal' up %{portkey}%; \
	/endif
/def scry = \
	/eval /set portkey=%%{key_%{1}}%; \
	/if (portkey =~ "") /eval /echo No such key (%{1})%; \
	/else cast 'scry' %{portkey}%; \
	/endif
/def watch = \
	/eval /set portkey=%%{key_%{1}}%; \
	/if (portkey =~ "") /eval /echo No such key (%{1})%; \
	/else \
		/def -p100 -mregexp -t'You feel aware of this place' watcht = \
			/addwatch %{1}%; \
		cast 'watch room' %{portkey} %{1}%; \
	/endif
/def tel = \
	/eval /set portkey=%%{key_%{1}}%; \
	/if (portkey =~ "") /eval /echo No such key (%{1})%; \
	/else cast 'teleport' %{portkey}%; \
	/endif
/def watching = \
	/listvar watching_*
/def addwatch = \
	/test time:=time()%; \
	/eval /set watching_%{1}=%{time}

/def -p100 -mregexp -t'You feel less aware'