View/Edit #13:_move_prop _move!_prop

Name(s): _move_prop _move!_prop

1:  "Move a property.  Called by @move."
2:  set_task_perms(caller_perms())
3:  {object, pname, iobjstr} = args
4:  if (this:("_copy" + verb[6..$])(@args))
5:    "The property has been copied.  Now delete the original."
6:    if ($ERR == typeof(e = `delete_property(object, pname) ! ANY'))
7:      return player:tell("Deleting ", object, ".", pname, " --&gt; ", e)
8:    endif
9:    player:tell(object, ".", pname, " removed.")
10: endif
11: "Last modified by Dax (#789) on Tue May  3 15:38:52 2005 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.