@verb #12:"@audit @pros*pectus pros*pectus" any any any rdo #55
@program #12:"@audit @pros*pectus pros*pectus" any any any
"Figures out who is being @audited, and for what objects.  Calls _audit or _pros as appropriate."
if (player != this)
  return $msg:mtell("huh")
elseif (!dobjstr)
  dobj = this
elseif ($command_utils:player_match_failed(dobj = this:match_entity(dobjstr), dobjstr))
  return
endif
try
  SpamSaved = {}
  if (player.spied)
    SpamSaved = player.spied
    for whew in (SpamSaved)
      toobj(whew):tell("[" + tostr(player) + "]: Saved from @audit spam.")
      player.spied = {}
    endfor
  endif
  fork (0)
    set_task_perms(player)
    if ($code_utils:short_prep(prepstr) == "for")
      match = {}
      for o in (dobj.owned_objects)
        if (index(o.name, iobjstr) || o == toobj(iobjstr))
          match[1..0] = {o}
        endif
      endfor
      if (match)
        if (verb == "@audit" || verb == "@compte")
          this:_audit(@match)
        else
          this:_pros(@match)
        endif
      else
        this:tell(dobj:titlec(), " doesn't own anything matching ", iobjstr, ".")
      endif
    elseif (!prepstr)
      own = dobj.owned_objects
      if (own)
        if (verb == "@audit")
          this:_audit(@own)
        else
          this:_pros(@own)
        endif
      else
        this:tell(dobj:titlec(), " doesn't own anything.")
      endif
    else
      $msg:mtell("huh")
      player:sub_tell($msg:msg_try_instead(), $code_utils:explain_verb_syntax(player, verb, "any", "for", "any"))
    endif
  endfork
finally
  player.spied = SpamSaved
endtry
"Last modified by Dax (#789) on Fri Jul 26 10:52:28 2002 MDT."
.