@prog air-ext.muf
1 999 d
1 i
: top #17719 ;
: parent #17780 ;
: say me @ swap notify ;
: check-exits-from (room -- )
	dup exits begin dup while
		dup getlinks
		begin dup 0 > while
			1 - swap
			dup room? if dup location parent dbcmp if
				pop continue
			then then
			"#"
			3 pick 4 + pick int intostr strcat
			" (from " strcat
			3 pick 5 + pick me @ unparse_object strcat
			" to " strcat
			swap me @ unparse_object strcat
			")" strcat
			say
		loop
		pop next
	loop
	pop pop
;
: check-backlinks-of (room -- )
	dup backlinks begin dup 0 > while
		1 - swap
		dup location
		dup room? if dup location parent dbcmp if
			pop pop continue
		then then
		"#" rot int intostr strcat
		" (from " strcat
		swap me @ unparse_object strcat
		" to " strcat
		over 3 + pick me @ unparse_object strcat
		")" strcat
		say
	loop
	pop pop
;
: main
	0 parent contents begin dup while
		dup room? if swap 1 + over then
		next
	loop
	pop
	begin dup 0 > while
		1 - swap
		dup check-exits-from check-backlinks-of
	loop
;
.
c
q