@verb #1073:"@doorman @dm" any none none rxd #7214
@program #1073:"@doorman @dm" any none none
"Usage:  @doorman <person>"
"Announce a person as a doorman might."
"Verb by Yib at Yib MOO (yib.moo.mud.org 8888), ported with permission by JS.  Further dissemination permitted with attribution to Yib."
who = $string_utils:match_player(dobjstr)
if (!$command_utils:player_match_failed(who, dobjstr))
  dobj = who
  if (dobj == $imp)
    return player.location:announce_all(player.name, " says, \"The Goddess Catspaw.\"")
  endif
  "Cycle through the whole list, then randomly permute it and cycle through  again.  More varitey than plain old this.doorman_adjectives[random($)]."
  if (this.doorman_index < 1 || this.doorman_index > length(this.doorman_adjectives))
    this.doorman_index = 1
    this.doorman_adjectives = $list_utils:randomly_permute(this.doorman_adjectives)
  endif
  this.doorman_adjective = this.doorman_adjectives[this.doorman_index]
  this.doorman_index = this.doorman_index + random(5)
  player.location:announce_all($string_utils:pronoun_sub(this.doorman_msg))
endif
"Last modified by JS (#7214) on Wed Apr 13 20:09:05 2005 MDT."
.