277
@verb #3852:"pat" any none none rxdo #3852
@program #3852:"pat" any none none
if (dobj == $nothing)
  o = "%n pats thin air."
  p = "You pat thin air."
  this:speak_out(o, p)
else
  if (valid(qui = $string_utils:match_player(dobjstr)) && qui.location == player.location)
    o = "%n pats %d on the shoulder."
    p = "You pat %d on the shoulder."
    d = "%n pats you on the shoulder."
  else
    o = "%n pats %d."
    p = "You pat %d."
    "Just in case they're listening..."
    d = "%n pats you."
  endif
  #4909:speak_out(o, p, d)
endif
"Last modified by HIghoS (#3852) on Mon Jul 24 05:38:36 2000 MDT."
.

0