@verb #5221:"superk" any none none rdo #5221
@program #5221:"superk" any none none
"Copied from Titon (#4812):superk Aug 26 20:03:17 2000"
"Copied from Strahd (#7744):superk Jan 16 14:39:23 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
.