@verb #6570:"@pack @stuff" any any any rx #61
@program #6570:"@pack @stuff" any any any
"@pack <obj>:<verb-name>"
"This verb lets you take a verb off of an object, and converts it into a property, which is put onto yourself. '_code' and the object number of <obj>  is appended to the property name. Thus verb #100:test would become 'test_code100'"
argstr ? ovl = $code_utils:parse_verbref(argstr) | (ovl = 0)
callers()[1][1..2] == {player, "my_huh"} || raise(E_PERM)
set_task_perms(player)
if (ovl == 0)
  return player:tell("Syntax:  @pack &lt;obj&gt;:&lt;verb-name&gt;")
endif
{dobj, v} = ovl
dobj = (p = player):match_object(dobj)
if (!$recycler:valid(dobj))
  return p:tell("No such object.")
elseif (!($code_utils:find_verb_named(dobj, v) != -1))
  return p:tell("No such verb.")
elseif (v in {"@pack", "@unpack", "@packed"})
  return p:tell("You cannot @pack this verb.")
endif
{vcode, vcn} = {verb_code(dobj, v), v + "_code" + tostr(toint(dobj))}
vcn in properties(dobj) ? delete_property(dobj, vcn) | 0
{vargs, vinfo} = {verb_args(dobj, v), verb_info(dobj, v)}
value = {vcode, vinfo, vargs, dobj}
add_property(p, vcn, value, {p, ""})
p:tell(dobj, ":", v, " has been converted to a property called: ", vcn, ".")
delete_verb(dobj, v)
p:tell(dobj, ":", v, " successfully deleted.")
"Last modified by Dax (#789) on Tue May  3 14:11:58 2005 MDT."
.