Kod gördüğün üzere denenmiştir, yani bir sorun içermemektedir, bu yüzden senden kaynaklanan bir sorun olup olmadığını kontrol etmeni öneririm.
Ayrıca aynı kod şu şekildede yazılabilir.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on @*:text:*:#:if $0 >= 3 { var %_k = 1,%_s = $0 | while %_k <= %_s { hinc -m T_k_r $+($chan,.,$nick,.,$token($1-,%_k,32)) 1 | if $hget(T_k_r,$+($chan,.,$nick,.,$token($1-,%_k,32))) >= 3 { ban -k $chan $nick Aynı Cümlede Fazla Tekrar! } | inc %_k } | hdel -w T_k_r $+($chan,.,$nick,.,*) }
Not:Farklı kullanımlara örnek olması amacıyla 2. koduda paylaşıyorum.
1. Kodda
tokenize kullanılarak
$* tanımından yararlanılmıştır.
2. Kodda
while döngüsünden yararlanarak kelimeler sıralanarak sorgulama yapılmıştır.