you can use one on action event for this an you need some flood control. maybe like this.
on $*:ACTION:/(rape|sex)/iS:*: {
if (!$($+(%,rapeflood,$nick),2) && $me isin $1-) { set -u3 $+(%,rapeflood,$nick) on | inc $+(%,$regml(1)) | describe $iif(#,#,$nick) makes a mess!!!!! ..Shower Time.. !!! $+([,$regml(1) Count: $($+(%,$regml(1)),2),]) }
}