3f5
@verb #6169:"stab nip stabthor" any any any rxdo #9988
@program #6169:"stab nip stabthor" any any any
"Copied from Cecil's Social FO (dedicated to Myra) (#6169):grin by Cecil_Stuff (#9988)Aug  8 08:23:39 2002"
this:update_usage("grin", player)
person = caller:isa(#5450) ? caller | player
if (!dobjstr)
  pmsg = "You " + verb + "."
  omsg = person:title() + " " + verb + "s."
else
  match = this:match_person(dobjstr)
  if ($command_utils:player_match_failed(match, dobjstr))
    return
  else
    pmsg = "You " + verb + " " + match:title() + "."
    omsg = person:title() + " " + verb + "s " + match:title() + "."
    match:tell(person:title() + " " + verb + "s you.")
    if (!match.location == person.location)
      match.location:announce_all_but({match, person}, omsg)
    endif
  endif
endif
dobjstr ? person.location:sub_announce_all_but({person, match}, omsg) | person.location:announce(omsg)
person:tell(pmsg)
"Last modified by Cecil (#7407) on Mon Jul 21 10:56:47 2003 MDT."
.

0