741
@verb #5558:"superk" any none none rdo #5558
@program #5558:"superk" any none none
"Copied from Norm (#4805):superk Mar 15 09:18:09 2000"
"Copied from Strahd (#7744):superk Jan 23 07:06:07 2000"
if (player != this)
  player:tell("This particular verb cannot be used by you.")
elseif (dobj.gender != "female")
  player:tell("This particular verb does not allow you to kiss any other beeing than a female.")
else
  player:tell("You give ", dobj:title(), " a Really Hot..Long Super And Really Erotic..Earth Shattering, Soul Burning, Oh My Gawd If I Stop Now I'll Die, Better Than Heaven, Yet Hotter Than Hell, Groping, Don't Stop Touching Me, Blood Boiling, OhOhOhOhGawdOhGawdOhGawd Soul Stealing, Dream Making, Close To XRated, Hand Trembling, Knee Buckling, Heart Stopping, Body Tingling, Earth Quake Making, Passion Exploding,  Wet, Deep, Hard, Long, Lingering, Kiss.")
  dobj:tell(player:title(), " gives you a Really Hot..Long Super And Really Erotic.. Earth Shattering, Soul Burning, Oh My Gawd If I Stop Now I'll Die, Better Than Heaven, Yet Hotter Than Hell, Groping, Don't Stop Touching Me, Blood Boiling, OhOhOhOhGawdOhGawdOhGawd Soul Stealing, Dream Making, Close To XRated, Hand Trembling, Knee Buckling, Heart Stopping, Body Tingling, Earth Quake Making, Passion Exploding,  Wet, Deep, Hard, Long, Lingering, Kiss.")
  this.location:announce_all_but({player, dobj}, player:title(), " gives ", dobj:title(), " a Really Hot..Long Super And Really Erotic..Earth Shattering, Soul Burning, Oh My Gawd If I Stop Now I'll Die, Better Than Heaven, Yet Hotter Than Hell, Groping, Don't Stop Touching Me, Blood Boiling, OhOhOhOhGawdOhGawdOhGawd Soul Stealing, Dream Making, Close To XRated, Hand Trembling, Knee Buckling, Heart Stopping, Body Tingling, Earth Quake Making, Passion Exploding,  Wet, Deep, Hard, Long, Lingering, Kiss.")
endif
.

0