Switch to edit mode.
Name(s): @petrify @subsidise @solidify1: "Copied from Generic Player (#12):@solidify by Slacker (#55) Sep 17 18:59:17 2002"
2: "Copied from Generic Guardian (#16):@solidify by Slacker (#55) Sep 17 18:47:15 2002"
3: if (player != this)
4: return $msg:mtell("huh")
5: endif
6: operation = {"petrified", "subsidised", "solidified"}[verb[2..$] in {"petrify", "subsidise", "solidify"}]
7: if (operation in {"subsidised", "petrified"} && !player:isa($guardian))
8: return player:tell("Only guardians may modify the amount of quota an object takes by subsidising or petrifying it.")
9: elseif (!player:isa($guardian) && !player:controls(dobj))
10: return player:tell("You cannot change the status of objects you don't own!")
11: endif
12: if (dobj:("_get_" + operation)())
13: return player:sub_tell("%D is already %1.", operation)
14: elseif (operation == "subsidised" && dobj:_get_solidified() && $command_utils:yes_or_no(tostr(dobj:titlec(), " is solidified; @petrify instead?")))
15: operation = "petrified"
16: elseif (operation == "solidified" && dobj:_get_subsidised() && $command_utils:yes_or_no(tostr(dobj:titlec(), " is subsidised; @petrify instead?")))
17: operation = "petrified"
18: 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, "?")))
19: return player:sub_tell("&D remains petrified.")
20: endif
21: dobj:("_set_" + operation)(1)
22: return player:sub_tell("%D is now %1.", operation)
23: "Last modified by Dax (#789) on Tue Jun 2 17:08:18 1998 EDT."
24: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
25: "Last modified by Lao-Tzu (#8084) on Tue Sep 17 19:00:31 2002 MDT."