@verb #7446:"pat" any none none rxdo #7446
@program #7446:"pat" any none none
if (!dobjstr)
  player.location:announce(player:title(), "pats nothing in particular.")
  player:tell("You pat nothing whatsoever.")
else
  dobj = $string_utils:match_object(dobjstr, player.location)
  if (dobj == #-3)
    player:tell("There is not a \"", dobjstr, "\" in this room.")
    return
  elseif (dobj == #-2)
    player:tell("Which \"", dobjstr, "\" are you refering to?")
    return
  endif
  player.location:announce_all_but({dobj, player}, player:title(), " pats ", dobj.name, " onna head.")
  player:tell("You pat ", dobj.name, " onna head.")
  dobj:tell(player:title(), " pats you onna head.")
endif
.