on *:join:#:var %* = 1 | while $read(badnickler.txt,%*) { if $ifmatch iswm $nick { hinc -m bed $nick | .msg $nick Kullandığınız rumuz, kanal seviyesine uygun değildir. Lütfen 20 saniye içerisinde rumuzunuzu değiştiriniz. Aksi takdirde, random bir rumuzla değiştirilecektir. | .timer 1 20 badkntrl # $nick | break } | inc %* }
on *:nick:if $hget(bed,$nick) && (RANDOM* !iswm $newnick) && !$read(badnickler.txt,w,$newnick) { .msg $newnick Tşk. ederiz. } | $iif($hget(bed,$nick),hdel bed $nick) | var %? = 1 | while $read(badnickler.txt,%?) { if $ifmatch iswm $newnick { tban $newnick Uyarılmıştınız değiştirdiğiniz yeni rumuzunuz da kanallarınn seviyesine uygun olmadığı için toplu olarak tüm kanallardan atıldınız. | break } | inc %? }
alias tban if $comchan($1,1) { var %r = $comchan($1,0) | while %r { ban -k $comchan($1,%r) $1 2 $2- | dec %r } }
alias -l badkntrl if $1 && $2 && $hget(bed,$2) { os raw svsnick $2 $+(RANDOM,$rand(1,9999)) 0: | hdel bed $2 }