1ee
@verb #987:"morph" any any any rdo #987
@program #987:"morph" any any any
"Morphs me into a new shape."
if (player != this)
  return player:tell("You can't make Odo morph.")
elseif (this.shape == "Blob")
  this.gaglist = {#3100}
endif
shape = (index = argstr in this.shapes) ? this.shapes[index] | argstr
if (shape == "Blob")
  this.gaglist = setremove(players(), this)
endif
$msg:mtell("morph", shape)
this.shape = shape
this:set_aliases({"Odo", argstr, args[length(args)]})
.

0