IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - badnick (https://www.ircforumlari.net/mirc-scripting-sorunlari/173794-badnick.html)

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

iki cloneler icin halledildi ama ikiden fazlasi icin sorun cikariyor.

if $+(%,uyarı.,$nick) { unset $ifmatch | .msg $newnick Anlayışınız için teşekkür ....

satırı yerine aşağıdaki olacak:

if $var($+(%,uyarı.,$nick)) { unset $+(%,uyarı.,$nick) | .msg $newnick Anlayışınız için teşekkür...

kanala badnick llistesinden giris oldugunda uyari mesaji cikiyor.sahis uyariyi dikkate almaz ise random nick ile nicki degistiriliyor.sahis tekrar badnicklistesinden bir nick ile nickini degistirir ise bu sefer kanaldan atiliyor.ama ozeline anlayisiniz icin tesekkur ederim mesaji iletiliyor.bu mesaj uyariyi dikkate alip nickini uygun bir nickle degistirenlere iletilmeli.burada hata var.

kanalda uygun bir nickle bulunan ama badnick listesinden bir nick alan sahis uyarilmadan kanaldan atiliyor.bunu ilk once uyarip dinlemez ise random nick yapip tekrar badnick alirsa atacak sekilde.yani kanala ilk giristeki islem uygulanacak sekilde duzeltebilirmisiniz lutfen..

tesekkur ederim

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..

Kod:

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 }

Bu şekilde kodunuz dizayn oldu:
Uyarı alıp nickini badnick olarak değiştirmeyene ve nicki RANDOM* ile başlamayana Tşk. mesajı gönderecektir.

ilginiz icin tesekkur ederim echo -a dan kaynaklanan kucuk bir pruz vardi onuda cozduk.

hayirli forumlar.

Aa evet :) Ameliyat yapan doktorun makası , hastanın midesinde unutmuş olması gibi :D
Çok pardon , denemeler yaparken aksayan yönleri varmı-yokmu diye kontrol ederken unutmuşum,düzeltiyorum hemen...

arkadaşım kendim yapmaya calıstım yaptım fakat Sabit 1 nick olarak degistirebildim rondom olmadı ve degiştirdihim nick tekrar kanalda badnick oldugu zaman nick'ini degistirmedi yardımcı olurmusunuz? Şöyle birsey sorucaktım müsadenizle ( Kanal'a BadNick girdiginde kanal'dan atıkcak, nickini Halil546846454 gibi rondom yapıcak, sonra atıldıgı kanallara geri sajoinlicek ve son olarak özeline Nick'inizin Global Kanallarımızda Kullanımı Yasaktır. Halil546846454 Olarak Değiştirildi, irc.xxx.com Ailesi Hoş Sohbetler Diler.. dicek şöyle birşey yapmamız mümkünmü acaba? )