alias emotes {
var %len $lines(emotes.txt)
var %i 0
while (%i <= %len) {
var %emote $read(emotes.txt,n,%i)
if ($istok(%emotes,%emote,124) == $false) { set %emotes %emotes $+ %emote $+ $chr(124) }
inc %i
}
set %emotes $left(%emotes,-1)
}
ON @*:TEXT:*:#: {
if ($nick !isop #) {
if ( $regex($1-,/\b $+ %emotes $+ \b/g) >= 5 ) {
msg # Stop spamming emotes, $nick $+ !
msg # .timeout $nick 120
}
}
}