@prog lop-death.muf
1 999 d
1 i
(Given a player, send the player to a specific place,
 provided the player is under a certain parent.  The
 place and parent are set by props on the program.)
: main (player -- )
	prog "_arena" getpropstr atoi dbref
	over location
	begin
		( player arena room )
		dup not if pop pop pop exit then
		over over dbcmp if pop pop break then
		location
	loop
	prog "_sendto" getpropstr atoi dbref moveto
;
.
c
q