@verb #1009:"snug*gle snugto" any none none rdo #9296
@program #1009:"snug*gle snugto" any none none
if (argstr == "")
  player:tell(this.name, " needs someone to snuggle.")
elseif (player.location == dobj.location)
  if (verb != "snugto")
    player:tell("You snuggle ", dobj:title(), ".")
    dobj:tell(player:title(), " snuggles you.")
    player.location:announce_all_but({player, dobj}, #1009.name, " snuggles ", dobj:title(), ".")
  else
    player:tell("You snuggle up to ", dobj:title(), ".")
    dobj:tell(player:title(), " snuggles up to you.")
    player.location:announce_all_but({player, dobj}, #1009.name, " snuggles up to ", dobj:title(), ".")
  endif
else
  player:tell("Try that again dear.")
endif
"Last modified by Ariebeladon (#9296) on Thu Dec 12 21:08:39 2002 MST."
.