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

0