Switch to edit mode.
Name(s): wlick1: "USAGE: lick <player> Show that special someone how happy you are to see them."
2: if (!dobjstr)
3: player.location:announce(player:title(), " licks ", player.pp, " lips hungrily.")
4: player:tell("You lick your lips.")
5: else
6: dobj = $string_utils:match_object(dobjstr, player.location)
7: if (dobj == #-3)
8: player:tell("There ain't no \"", dobjstr, "\" in this room, genius.")
9: return
10: elseif (dobj == #-2)
11: player:tell("Which \"", dobjstr, "\" are you referring to? There is more than one, you know.")
12: return
13: endif
14: player.location:announce_all_but({dobj, player}, player:title(), " sticks out ", player.pp, " tongue and licks ", dobj.name, " all over, up and down, bottom to top!")
15: player:tell("You stick out your tongue and lick ", dobj.name, " all over, from top to bottom and back up to the top again!")
16: dobj:tell(player:title(), " sticks out ", player.pp, " tongue and licks you all over, from top to bottom and back up top again, licking you til you're damp all over, leaving you wanting more.")
17: endif