Çevrimdışı

merhaba..

bu konuyu baska bir yerde de acmistim.kardesler geregince yardimci oldular sagolsunlar.bir yerde kucuk bir problem var.bu codeye gore kanalda her nick degisene tesekkur mesaji atiyor.bunu kanala badnick listesindeki bir nickle giris yapan ya da kanalda bu listedeki nicklerden birisini alan kimseye uyari gidecek uyariyi dinler ve nickini uygun bir nickle degistirir ise ona tesekkur mesaji gidecek.ama bundaki tesekkur mesaji kanalda nick degistiren herkese gidiyor.birde badnick olan nick nickini uygun bir nickle degistirir ve ona tesekkur mesaji giderse, bu sahis uygun nickini yine baska uygun bir nickle degistirirse ona tekrar tesekkur mesaji iletilmesin

on !*:join:#:{
var %* = 1
while $read(badnick.txt,%*) {
if $ifmatch iswm $nick {
hinc -m bed $nick
.msg # $+($nick,:) Kullandığınız rumuz, kanal seviyesine uygun değildir. Lütfen yirmi saniye içerisinde rumuzunuzu değiştiriniz. Aksi takdirde, random bir rumuzla değiştirilecektir.
.timer 1 20 badkntrl # $nick
set -e $+(%,uyarı.,$nick) ok | break
}
inc %*
}
}
on *:nick:{
$iif($hget(bed,$nick),hdel bed $nick)
var %? = 1
while $read(badnick.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 %?
}
if $+(%,uyarı.,$nick) { unset $ifmatch | .msg $newnick Anlayışınız için teşekkür ederiz. Artık kanallarımızın seviyesine uygun olan rumuzunuzla, dilediğiniz gibi sohbet edebilirsiniz.
}
}
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 $+(IRCForum,$rand(1,9999)) 0: | hdel bed $2 }
on *:text:*:#komut-kanalı:{
if $1 == !ekle && $2 { write badnick.txt $2 | .msg # $qt($2) maskı, başarıyla listeye eklendi. }
if $1 == !sil && $2 { write $+(-dL,$2) badnick.txt | .msg # $qt($2) maskı, başarıyla listeden silindi. }
}

tesekkur ederim