Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
alias bdwrd var %& = 1 | while (%& <= $lines(kelimeler.txt)) { if ($regex($2-,$read(kelimeler.txt,%&))) { 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 } | inc %1 } | var %2 %1 - 1 | echo -at %2 kanalda akick uyguladınız. }
on *:text:*:?:bdwrd $nick $1-
Şeklinde işini görür.
Kelimeler.txt dosyasına, alt alta belirlediğin kelimeleri yazman yeterli olur. |