@prog obvious-exits.muf
1 999 d
1 i
: list-it?
	dup "d" flag? if 0 exit then
	dup "_dark" prop-exists? if 0 exit then
	1
;
: exit-name
	name dup ";" instr dup if 1 - strcut pop else pop then
;
: main
	pop ""
	trigger @
	begin dup #0 dbcmp not while
		dup exits
		begin dup while
			list-it? if
				rot ", " strcat over exit-name strcat -3 rotate
			then
			next
		loop
		pop
		dup "_obvious-block" prop-exists? if break then
		location
	loop
	pop dup if
		2 strcut swap pop "[Obvious exits: " swap strcat "]" strcat
	else
		pop "[No obvious exits]"
	then
	me @ swap notify
;
.
c
q