@prog copy-all-props.muf
1 999 d
1 i
( Program to copy an entire property list from one dbref to another.
:
  Arguments: src dst, or dst=src.  [Choice is based on whether an = is
  present in the argument or not.]
:
  The invoking player must either be a wizard or own both objects.
:
  If the destination object has properties that don't appear on the
  source object, normally, the user is prompted.  If trigger @ has a
  _copy-props-force: property, its value is taken as the reply to the
  prompt, and the prompt is not issued.  [If the value is not one of the
  valid replies, the properties are left unchanged.]
:
  [Note: the preceding paragraph is unimplemented.  It presently never
  removes properties and never asks questions.]
)
: matchit
	match
;
: main
	dup "=" instr dup if
		1 - strcut 1 strcut swap pop
		matchit swap matchit swap
	else
		pop dup " " instr dup if
			1 - strcut 1 strcut swap pop
			matchit swap matchit
		else
			me @ "Bad arguments" notify exit
		then
	then
	( obj1 obj2 )
	dup propfirst
	begin
	while
		4 pick over 5 pick over getpropstr addprop
		pop propnext
	loop
;
.
c
q