41f
@verb #4457:"-*" any any any rxdo #4457
@program #4457:"-*" any any any
name = verb[2..$]
who = player.location:match(name)
argstr = $code_utils:argstr(verb, args, argstr)
title = this:title()
"if ((this:ok(this.location) && (this.location != #999)) && (!(#3852 in this.location.contents)))"
if (this:ok(this.location))
  if (this.funky)
    argstr = this:funkargstr(argstr)
  else
    argstr = #2440:mg(this.grads, argstr)
  endif
endif
if (!valid(who))
  player.location:announce_all(title, " ", this:ok(this.location) ? tostr("<font color=", this.grads[2], ">[</font>") | "[", name, this:ok(this.location) ? tostr("<font color=", this.grads[1], ">]: </font>") | "]: ", argstr)
else
  player.location:announce_all(title, " ", this:ok(this.location) ? tostr("<font color=", this.grads[2], ">[to </font>") | "[to ", `who:title() ! ANY => "Bozo With Borked Title"', this:ok(this.location) ? tostr("<font color=", this.grads[1], ">]: </font>") | "]: ", argstr)
endif
"Last modified by Rubbie (#4457) on Wed Aug 16 14:38:01 2000 MDT."
.

0