It may be useless at its best, but it can be perfected with regex:
on *:TEXT:*:#:$counter($1-)
on *:ACTION:*:#:$counter($1-)
alias -l counter {
if ($regex($1-,/((b)(rb|ite(s))|poke|(f|r)(ap)e?(s))/i)) || ($2 == $me) {
if ($regml(1) == brb) || ($regml(1) == brbs) {
inc %brb | .describe # Hurry back, $nick !! We'll save you a seat. ¶:) [BRB Count: %brb $+ ]
}
if ($regml(1) == bite) || ($regml(1) == bites) {
inc %bites | .describe $chan bites $nick back and then brings $nick to pm to rape them %bites Bites
}
if ($regml(1) == poke) || ($regml(1) == pokes) {
inc %pokes | .describe $chan 12 grabs $nick 's finger and bites it off. 4Fingers Eaten: %pokes
}
if ($regml(1) == rape) || ($regml(1) == rapes) {
inc %rapes | .describe $chan 12 grabs $nick $+ 's genitals and bites them off. 4Genitals Eaten: %rapes
}
if ($regml(1) == fap) || ($regml(1) == faps) {
inc %faps | .describe $chan 12 faps with $nick +$ . 4Times Fapped: %faps
}
}
}
Please note that I didn't include your other aliases and the text events for fail and no.