View/Edit #13:@unmess*age

Switch to edit mode.

1:  "Usage:  @unmessage <message-name> [from <object>]"
2:  "Remove a message property from an object (default is player)."
3:  set_task_perms(player)
4:  if (!dobjstr || length($string_utils:words(dobjstr)) > 1)
5:    player:tell("Usage:  ", verb, " &lt;message-name&gt; [from &lt;object&gt;]")
6:    return
7:  endif
8:  object = valid(iobj) ? iobj | player
9:  name = this:_messagify(dobjstr)
10: nickname = "@" + name[5..$]
11: try
12:   delete_property(object, name)
13: except (E_PROPNF)
14:   return player:tell("No ", nickname, " message found on ", object:nn(), ".")
15: except e (ANY)
16:   return player:tell(e[1])
17: endtry
18: player:tell(nickname, " message removed from ", object:nn(), ".")
19: "Last modified by Dax (#789) on Thu Dec 27 22:20:57 2001 MST."

[home | help | who | search | setup | code]