675
@verb #8494:"title titlec @morph*me" any any any rxdo #8494
@program #8494:"title titlec @morph*me" any any any
"Copied from Angua (#4180):@morph Jan  6 18:52:11 2001"
"Copied from Scully (#4312):title Jun  9 17:05:14 2000"
"Copied from bluedaisy (#4063):@morph Jun  1 16:42:15 2000"
"Copied from Cecil (#7407):@morph May 30 19:13:16 2000"
`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())
  !quiet && this:sub_announce((msg = `this:msg_omorph() ! E_PROPNF => 0') ? msg | "%1 has morphed into %2", this.old_morph, this:title())
endif
"Last modified by Dax (#789) on Tue May  3 14:03:30 2005 MDT."
.

0