@prog join.muf
1 999 d
1 i
: say me @ swap notify ;
: saymsg ( loc prop def -- )
	trigger @ rot getpropstr dup if swap then pop
	me @ name " " strcat swap strcat me @ swap notify_except
;
: main
	dup "" strcmp not if "Must give a player name or alias." say exit then
	.pmatch+
	dup player? not if "Not a valid player." say exit then
	location
	dup loc @ dbcmp if "Already there!" say exit then
	me @ "d" flag? if
		me @ swap moveto
	else
		dup "_odrop" "has arrived." saymsg
		loc @ "_osucc" "has left." saymsg
		me @ "d" set
		me @ swap moveto
		me @ "!d" set
	then
;
.
c
q