hi

i think u can do only this

alias rape describe # rapes $1
alias sex describe # sexes $1
on *:ACTION:*:*:{
  if ($istok(sex.rape,$strip($1),46)) && ($2 == $me) {
    inc %rape
    describe $active makes a mess!!!!! ..Shower Time.. !!! [Rape/Sex Count: %rape $+ ]
  }
}