@prog conemit.muf
1 999 d
1 i
: main
	dup "=" instr dup if
		1 - strcut 1 strcut swap pop
		swap atoi swap
		"You emit, \"" over strcat "\" to connection " strcat
		3 pick intostr strcat " [" strcat 3 pick condbref
		dup if me @ unparse_object else pop "not connected" then
		strcat "]." strcat me @ swap notify
		connotify
	else
		pop pop
		me @ "Usage: " trigger @ name strcat " <d>=<msg>" strcat notify
	then
;
.
c
q