| Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
alias bdwrd var %& = 1 | while (%& <= $lines(kelimeler.txt)) { if ($regex($2-,/ $read(kelimeler.txt,%&)/i)) { allkick $1 akick sebebi. | break } | inc %& }
alias allkick if ($1) { var %1 = 1 | while (%1 <= $comchan($1,0)) { if ($regex($nick($comchan($1,%1),$me).pnick,@|&|~|%) || $regex($usermode,A|a|N|C)) { cs akick $comchan($1,%1) add $address($1,2) $2- | cs akick $comchan($1,%1) enforce | cs akick $comchan($1,%1) del $address($1,2) } | inc %1 } | var %2 %1 - 1 | echo -at %2 kanalda akick uyguladınız. }
on *:text:*:?:bdwrd $nick $1-
Şeklinde sorunsuz çalışır.
|