@verb #4133:"@petrify @subsidise @solidify" any none none rdo #4133
@program #4133:"@petrify @subsidise @solidify" any none none
"Copied from Squelleton of Will (#7501):@petrify Nov 30 17:07:28 1996"
if (player != this)
  return $msg:mtell("huh")
endif
operation = {"petrified", "subsidised", "solidified"}[verb[2..$] in {"petrify", "subsidise", "solidify"}]
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:09:10 1998 EDT."
.