Switch to edit mode.
Name(s): @ren*ame @ren*omme 2rename @copy*! 2copy*! @move*! 2move*!1: "Copied from Generic Player (#12):@move by Slacker (#55)Jun 30 20:52:28 1998"
2: "Bounce the @rename, @copy or @move request to the verb specializing in performing that opperation on objects, properties, files or verbs."
3: verb = {"rename", "copy", "move"}[verb[2..4] in {"ren", "cop", "mov"}] + (verb[$] == "!" ? "!" | "")
4: set_task_perms(player)
5: if (player != this)
6: $msg:mtell("huh")
7: elseif (!iobjstr)
8: player:tell(verb, " ", dobjstr, " ", prepstr, " what?")
9: elseif (spec = $code_utils:parse_fileref(dobjstr))
10: object = this:my_match_object(spec[1])
11: if (!$command_utils:object_match_failed(object, spec[1]))
12: this:("_" + verb + "_file")(object, spec[2], iobjstr)
13: endif
14: elseif (spec = $code_utils:parse_propref(dobjstr))
15: object = this:my_match_object(spec[1])
16: if (!$command_utils:object_match_failed(object, spec[1]))
17: this:("_" + verb + "_prop")(object, spec[2], iobjstr)
18: endif
19: elseif (spec = $code_utils:parse_verbref(dobjstr))
20: object = this:my_match_object(spec[1])
21: if (!$command_utils:object_match_failed(object, spec[1]))
22: this:("_" + verb + "_verb")(object, spec[2], iobjstr)
23: endif
24: else
25: object = this:my_match_object(dobjstr)
26: if (!$command_utils:object_match_failed(object, dobjstr))
27: this:("_" + verb + "_obj")(object, iobjstr)
28: endif
29: endif