@prog emit-to.muf
1 999 d
1 i
: usage
	me @ "Usage: " trigger @ name strcat " <place>=<msg>" strcat notify
;
: main
	me @ true-wizard?
	me @ "@permit-emit-to" prop-exists?
	or not if
		pop me @ "Sorry." notify exit
	then
	dup "=" instr dup if
		1 - strcut 1 strcut swap pop
		swap match
		dup ok? not if pop pop usage exit then
		dup player? if location then
		dup room? not if me @ "Bad location." notify exit then
		swap
		"You emit, \"" over strcat "\" to " strcat
		3 pick me @ unparse_object strcat "." strcat me @ swap notify
		#-1 swap notify_except
	else
		pop pop usage exit
	then
;
.
c
q