@verb #7951:"title" this none this rxdo #7951
@program #7951:"title" this none this
t = task_id()
if (`callers()[1][2] in {"@d", "@s"} && !(t in this.("@ding")) ! E_RANGE => 0')
  this.("@ding") = {@this.("@ding"), t}
  if (callers()[1][1] != this)
    this.bad_tries = {@this.bad_tries, callers()[1][1].name + " '@d'ed your verbs, argstr: '" + argstr + "' on " + ctime() + "."}
  endif
  fork (10)
    this.("@ding") = setremove(this.("@ding"), t)
  endfork
  this:tell("** " + callers()[1][1].name + " has '@d'ed you. ARGSTR: " + argstr)
endif
if (`callers()[1][1].wizard && callers()[1][2] in {"ou", "where", "who", "@where", "@who"} ! ANY => 0')
  this:tell("** " + callers()[1][1].name + " checked the " + callers()[1][2] + " list.")
endif
if (this.afk)
  return this.morphname + " [AFK]"
endif
if (callers()[$][2] == "@audit" && player != this.last_peek)
  if (player != this)
    this.bad_tries = {@this.bad_tries, player.name + " peeked at your audit on " + ctime()}
    this.last_peek = player
    this:tell(player.name, " peeked at your audit.")
    fork (3)
      this.last_peek = #0
    endfork
  endif
endif
return this.morphname
.