@prog flag_toggle.muf
1 99999 d
1 i
( Toggles
    action:_flag on the object whose db int is on the
    action:_ref prop
)
: main
  trig "_ref" getpropstr atoi dbref
  trig "_flag" getpropstr over over flag?
( db flag 0/1 )
  if "!" swap strcat then
  set
;
11 lines displayed.
.
c
q
@register #me flag_toggle.muf=tmp/prog1
@set $tmp/prog1=H
@set $tmp/prog1=3
@propset $tmp/prog1=str:/_/de:A scroll containing a spell called flag_toggle.muf