@verb #717:"agree cuddle dance giggle laugh snicker snuggle" none with/using any rxdo #562
@program #717:"agree cuddle dance giggle laugh snicker snuggle" none with/using any
"Verbs done <b>with</b> someone."
"(e.g. laugh, agree, etc.)"
"match object"
iobj = player:my_match_object(iobjstr)
if (!$command_utils:object_match_failed(iobj, iobjstr))
  "do stuff if appropriate"
  player:tell("You ", verb = $su:lowercase(verb), " with ", iobj:title(), ".")
  player.location:sub_announce_all_but({player, iobj}, "%n " + verb + "s with " + iobj:title() + ".")
  iobj:tell(player:title(), " ", verb, "s with you.")
else
  "can't find iobjstr"
  $msg:mtell("failed", iobjstr)
endif
"Last modified by killeen (#562) on Wed Mar 20 09:18:01 2002 MST."
.