And mine:

on $*:text:/^!(hh|txt|orgy|whip|c(uddle|age|hainsaw))/iS:#:{
  if (!%t) { inc -u4 %t | if ($regml(1) == txt) { .msg # ACTION: sees $nick Sexting $$2- }
    else { var %m = .describe # | goto $regml(1)
      :cuddle | %m sees: $nick cuddles with $$2- | halt
      :hh | %m $nick holds  hands with $$2- | halt
      :orgy | %m Dont look now but there is some sexy orgy action happening in the corner between $nick and $$2-! | halt
      :cage | %m $nick cages $$2- and uses them as a kinky sex toy | halt
      :whip | %m $nick whips $$2-! | halt
      :chainsaw | %m chainsaws $$2- now wheres your other half f ucker!
    }
  }
}