Cevap: badnick
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:$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ýmýzýn 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 }
buna uyariyi dikkate alip nickini uygun bir nickle degisenler icin tesekkur ekleyebilirmiyiz lutfen.. |