@verb #3652:"ismile" any none none rxdo #7446
@program #3652:"ismile" any none none
if (!dobjstr)
  player.location:announce(player:title(), " smiles innocently.")
  player:tell("You smile innocently.")
else
  dobj = $string_utils:match_object(dobjstr, player.location)
  if (dobj == #-3)
    player:tell("There is not a \"", dobjstr, "\" in this room")
    return
  endif
  player.location:announce_all_but({dobj, player}, player:title(), " smiles innocently at ", dobj.name, ".")
  player:tell("You smile innocently at ", dobj.name, ".")
  dobj:Tell(player.name, " smiles innocently at you.")
endif
"Last modified by The_spider (#7446) on Wed Dec  2 17:33:54 1998 MST."
.