@verb #1009:"cud*dle lap" any none none rdo #9296
@program #1009:"cud*dle lap" any none none
if (argstr == "")
  player:tell(this.name, " needs someone to cuddle.")
elseif (player.location == dobj.location)
  if (verb != "lap")
    player:tell("You cuddle sweetly with ", dobj:title(), ".")
    dobj:tell(player:title(), " cuddles sweetly with you.")
    player.location:announce_all_but({player, dobj}, #1009.name, " cuddles sweetly with ", dobj:title(), ".")
  else
    player:tell("You climb onto ", dobj:title(), "'s lap and cuddle up to <>.")
    dobj:tell(player:title(), " climbs onto your lap and cuddles up to you.")
    player.location:announce_all_but({player, dobj}, #1009.name, " climbs onto ", dobj:title(), "'s lap and cuddles up to <>.")
  endif
else
  player:tell("Try that again dear.")
endif
"Last modified by Ariebeladon (#9296) on Thu Dec 12 21:33:37 2002 MST."
.