@verb #2:"_set_petrified _set_solidified _set_subsidised" this none this rxdo #55
@program #2:"_set_petrified _set_solidified _set_subsidised" this none this
set_task_perms(caller_perms())
{newval} = args
op = verb[6..$]
if (newval)
  this.best_before = op in {"petrified", "solidified"} ? 0 | time() + this.extend_expiry_time
  this.subsidised = !!(op in {"petrified", "subsidised"})
else
  op in {"petrified", "solidified"} && (this.best_before = time() + this.extend_expiry_time)
  op in {"petrified", "subsidised"} && (this.subsidised = 0)
endif
return newval
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.