on *:text:*:#: { if $regex($1,/^[.!](tem[iıİ]zle$|s[iıİ]l|clear$))  && $regex($nick(#,$nick).pnick,/(%|@|&|~|\.)/) {
    msg # Kanal temizleniyor
    timerclear -m 40 40 msg # $regsubex($nick,/(.)/g,$+($chr(3),$r(1,14),\t)) 
    timerclear2 1 2 msg # Kanal temizlendi $nick
} }