| Cevap: harf uzatma sorunu
Ki aklıma gelmişken şöyle basit bir kod yazılabilir;
on *:text:*:#: { if $regex($1-,/([[:print:]])\1/gi) >= 15 { hinc -m tt $+($nick,½,#) 1 | if $hget(tt,$+($nick,½,#)) == 1 { msg # $+($nick,$chr(58)) 1. uyarı mesajı. } | if $hget(tt,$+($nick,½,#)) == 2 { msg # $+($nick,$chr(58)) 2. uyarı mesajı. } | if $hget(tt,$+($nick,½,#)) == 3 { ban -k # $nick 2 kick-sebebin. | hdel tt $+($nick,½,#) } } }
Buradaki 15, harf limiti. Diğerleri açık zaten anlamıyacak birşey yok.
Daha kısa, daha hızlı, daha mantıklı.
|