Çevrimdışı

S.a arkadaslar burdan aldıgım bir kode yi düzenleyebilirmisiniz acaba ?

Sinan kardesimin yazmıs oldugu bir kod ( Set )
kodun calısma mantıgı benzerlik taşıyan nicklerden 10 sanıyede 3 giriş oldugunda dier girenlere zline atıyor

benim ise şuan istediğim şudur
örnek : nick ahmet2547
ahmet1212
ahmet8976
ahmet5566
ahmet21
ahmet3
YADA ali22 veli55 hasan789 memet2323 can090 mert12 sen345 ben1
gibi nickinin sonunda rakam olanlar enfazla 1o sanıyede 3 giriş limit aşılırsa
bağlanırken gzline ile uzaklastırılcak..


on *:snotice:*connecting*: {
if ($regex($9,/(muhabbet|sohbet|chat|kelebek)/i)) { halt }
if ($tnick($9)) {
if (!$hget(tnick)) { hmake tnick 100 }
hinc -u10 tnick $tnick($9)
if ($hget(tnick,$tnick($9)) >= 3) {
gzline $9 5m girişiniz yasaklandı
}
}
}
alias tnick {
var %t 1
while %t <= $len($1) {
if $mid($1,%t,1) !isalpha {
if $len($left($1,$calc(%t - 1))) > 2 {
return $mid($1,1,$calc(%t - 1))
}
}
inc %t
}
}

 

Çevrimdışı

ustatlar şöyle bir değişiklikmi yapmam lazım ihtiyacım olan bir kode bu en azından fikir beyan etsenız ..
{ if $regex($9,[0-9]{3}$) { gzline $9 zline sebeb