@verb #13:"@petrify @subsidise @solidify" any none none rdo #55
@program #13:"@petrify @subsidise @solidify" any none none
"Copied from Generic Player (#12):@solidify by Slacker (#55) Sep 17 18:59:17 2002"
"Copied from Generic Guardian (#16):@solidify by Slacker (#55) Sep 17 18:47:15 2002"
if (player != this)
  return $msg:mtell("huh")
endif
operation = {"petrified", "subsidised", "solidified"}[verb[2..$] in {"petrify", "subsidise", "solidify"}]
if (operation in {"subsidised", "petrified"} && !player:isa($guardian))
  return player:tell("Only guardians may modify the amount of quota an object takes by subsidising or petrifying it.")
elseif (!player:isa($guardian) && !player:controls(dobj))
  return player:tell("You cannot change the status of objects you don't own!")
endif
if (dobj:("_get_" + operation)())
  return player:sub_tell("%D is already %1.", operation)
elseif (operation == "subsidised" && dobj:_get_solidified() && $command_utils:yes_or_no(tostr(dobj:titlec(), " is solidified;  @petrify instead?")))
  operation = "petrified"
elseif (operation == "solidified" && dobj:_get_subsidised() && $command_utils:yes_or_no(tostr(dobj:titlec(), " is subsidised;  @petrify instead?")))
  operation = "petrified"
elseif (operation in {"subsidised", "solidified"} && dobj:_get_petrified() && !$command_utils:yes_or_no(tostr(dobj:titlec(), " is petrified.  Are you sure you want to revoke it to ", operation, "?")))
  return player:sub_tell("&D remains petrified.")
endif
dobj:("_set_" + operation)(1)
return player:sub_tell("%D is now %1.", operation)
"Last modified by Dax (#789) on Tue Jun  2 17:08:18 1998 EDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Lao-Tzu (#8084) on Tue Sep 17 19:00:31 2002 MDT."
.