502
@verb #4312:"title titlec @morph*me" any any any rxdo #4312
@program #4312:"title titlec @morph*me" any any any
`this.morph ! E_PROPNF => add_property(this, "morph", this.name, {this, "rc"})'
`this.old_morph ! E_PROPNF => add_property(this, "old_morph", this.name, {this, "rc"})'
if (verb[1] == "t")
  if (typeof(extra = `this:extratitle() ! ANY => 0') == $STR && extra)
    return extra
  endif
  return this.morph != 0 && typeof(name = this.morph) == $STR ? name | (this.morph = this.name)
else
  if (callers() && !$perm_utils:controls(caller_perms(), this))
    return E_PERM
  endif
  callers() && (argstr = tostr(@args))
  quiet = 0
  index(argstr, "-quiet") == 1 || index(argstr, " -quiet") && (quiet = 1)
  if (index(argstr, "-name=\""))
    name = argstr[(i = index(argstr, "-name=\"")) + 7..index(argstr[i + 7..$], "\"") + i + 5 || length(argstr)]
  elseif (index(argstr, "-last"))
    name = this.old_morph
  elseif (index(argstr, "-norm"))
    name = this.name
  elseif (!quiet && argstr)
    name = argstr
  else
    name = $cmd_utils:read("a new name")
  endif
  this.old_morph = this.morph
  this.morph = name
  player:tell("You have morphed into ", this:title())
endif
"Last modified by Dax (#789) on Tue May  3 14:03:28 2005 MDT."
.

0