@prog mongol-limit.muf
1 999 d
1 i
: mongols #3197 ;
: enclosure #2846 ;
: player #3 ;
: main
	mongols
	4 1 -1 for
		over "_trail_" 3 pick intostr strcat getpropstr
		3 pick "_trail_" 4 pick 1 + intostr strcat rot addprop
		pop
	loop
	dup location player unparse_object "_trail_1" swap addprop
	mongols
	begin
		location
	dup while
		dup enclosure dbcmp if pop exit then
	loop
	pop mongols "_route" "stop" addprop
;
.
c
q