@verb #13:"@unmess*age" any any any rdo #55
@program #13:"@unmess*age" any any any
"Usage:  @unmessage <message-name> [from <object>]"
"Remove a message property from an object (default is player)."
set_task_perms(player)
if (!dobjstr || length($string_utils:words(dobjstr)) > 1)
  player:tell("Usage:  ", verb, " &lt;message-name&gt; [from &lt;object&gt;]")
  return
endif
object = valid(iobj) ? iobj | player
name = this:_messagify(dobjstr)
nickname = "@" + name[5..$]
try
  delete_property(object, name)
except (E_PROPNF)
  return player:tell("No ", nickname, " message found on ", object:nn(), ".")
except e (ANY)
  return player:tell(e[1])
endtry
player:tell(nickname, " message removed from ", object:nn(), ".")
"Last modified by Dax (#789) on Thu Dec 27 22:20:57 2001 MST."
.