@prog forcer.muf
1 999 d
1 i
( A force program.  Used like MUF force, but has different permissions checks.
  Must be called from a daemon.  The daemon must be owned by the player being
  forced.  The program that calls this one must be owned by someone whose
  dbref appears in a property name on this program.  The property name is
  constructed from the dbref as if with
	int intostr "_" swap "-ok" strcat strcat
  and the property value is irrelevant.
)(
  If the permissions checks fail, the force appears to succeed but actually
  does nothing.  [It should generate an error, but there is no MUF interface
  to generating errors....]
)(
  Note that force can fail, even when called from a wizard program; there's
  not much that can be done about this....
)
: main (d s -- )
	daemon #0 dbcmp if pop pop exit then
	daemon owner 3 pick dbcmp not if pop pop exit then
	callers dup 1 > if 2 -1 for pop pop loop else pop then
	owner int intostr "_" swap "-ok" strcat strcat
	prog swap prop-exists? not if pop pop exit then
	force
;
.
c
q