Çevrimdışı

arkadaslar baya bir zaman önce yine burdan bir kod aldım ama son zamanlarda kullanmak nasip oldu kodun anlamı kanalda bir kullanıcı badnicke geciş yapıca onu algılayıp atması ama bişi dikkatimi cekti
mesela a.txt de badnickleri yazmışım orda misal veriyorum abaza nicki var bir kullanıcı abaza degilde nickini az yapınca yine atıyor yani badnickin içindeki kelimeye göre atıyor diger bi örnek gotcu bir kullanıcı nicki ot yapınca yine kod badnicke gectigini algılayarak atıyor

kod;
menu status,menubar,channel {
.(V)Nick Badnicke Dönme
..Açık:.enable #badarama | .echo -a 9,1Badnicke Dönme Koruma Açıldı 
..Kapalı:.disable #badarama | .echo -a 13,1Badnicke Dönme Koruma Kapatıldı 
}
#badarama on
on @*:nick:{
if $read(a.txt,w,$addtok(* $+ $newnick,*,0)) {
set %nickc 0
:start
inc %nickc
if ($comchan($newnick,%nickc) != $null) {
mode $comchan($newnick,%nickc) +b $newnick
kick $comchan($newnick,%nickc) $newnick 0,1 Badnicke Gecmek KesinLikLe Yasaktır. 14,1/nick y€ninick
goto start
}
}
}
#badarama end

kod bana ait degil alıntıdır ben sadece enable disable ekledim her zaman calışmasın diye
a.txt de alt alta
eklemişim badnickleri şöyle

travesti
soyun
yalar
gotcu
abaza

kullanıcı nickini ot yapsada calışıyor az yapsada calışıyor yani içinde gecen bişi olsa bile calışıyor yardımlarınız için şimdiden tşkler

 

Çevrimiçi

Bad.txt diye bir dosya oluştur.
İçine yasakladığın nickleri alt alta yaz.
Senin sorunun; $addtok(* $+ $newnick,*,0) buradan kaynaklanıyor.
Birazda wilcards bilginin olması lazım.
Yani ilk öncelikle şunu bilmelisin;
Gay* (Gay kelimesi ile başlıyanları baza alır)
*Gay (Gay kelimesi ile bitenleri baza alır)
*Gay* (İçinde gay kelimesi geçenleri baza alır)

Bu mantıktan yola çıkarak vereceğim kod'da $+($v1,*) kısmını kendine göre değiştirebilirsin.
Buradaki $v1 while döngüsünün okuttuğu bad.txt içindeki kelimelerdir.
Neyse kod'u vereyim daha iyi anlarsın.

on *:nick: { var %_ = 1 | while $read(bad.txt,%_) { if $+($v1,*) iswm $newnick { var %- = 1,%-- = $comchan($me,0) } | inc %_ } | while %- <= %-- { if $me isop $comchan($me,%-) { ban -k $comchan($me,%-) $newnick 2 sebebin. } | inc %- } }

Bu kod'da kalın olarak gösterdiğim yerde, şu işlevi yapar;
Eğer bad.txt içerisine eklediğin kelimelerden herhangi birisi, nick değişen bir kullanıcının nick'iyle başlıyorsa op olduğun tüm kanallardan balıyacaktır.
Yani mesela gay ekledin bad.txt dosyasına, eğer değişen nick; gay_man ile yine banlıyacaktır.
$+($v1,*) bu kısımı yukarıda verdiğim wilcards bilgisine göre;
$+(*,$v1) veya $+(*,$v1,*) şeklinde değişebilirsin.
Umarım demek istediğimi anlamışsındır, zaten bunun için bu kadar açıklama yaptım.

 

Çevrimdışı

uıstam eline koluna saglık yanlız şu anda bir sorunla karşılaştım oda bulundugum bütün kanalarda o nick bulummadıgı halde banlıyor
mesela 10 kanaldayım admin operhelp ne bilim op kanalı help kanalı hepsinde banlıyor yani nick o kanalara belki ömür boyu girmiycek yinede maskı mbanlıyor nasıl cözücez yardımcı olursan bir zahmet usta

 

Çevrimiçi

on *:nick: { var %_ = 1 | while $read(bad.txt,%_) { if $+($v1,*) iswm $newnick { var %- = 1,%-- = $comchan($me,0) } | inc %_ } | while %- <= %-- { if $me isop $comchan($me,%-) && $newnick ison $comchan($me,%-) { ban -k $comchan($me,%-) $newnick 2 sebebin. } | inc %- } }

Kalın olarak gösterdiğim yeri eklersen, sorunun çözülecektir.

 

Çevrimdışı

L4roXyL Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

on *:nick: { var %_ = 1 | while $read(bad.txt,%_) { if $+($v1,*) iswm $newnick { var %- = 1,%-- = $comchan($me,0) } | inc %_ } | while %- <= %-- { if $me isop $comchan($me,%-) && $newnick ison $comchan($me,%-) { ban -k $comchan($me,%-) $newnick 2 sebebin. } | inc %- } } Kalın olarak gösterdiğim yeri eklersen, sorunun çözülecektir.

ustam cok tşkm ederim son bir ricada bulunacam buda bu adnonu tamamlıycak kodun calışmasını istemedigim bir kac kanal var mesela
#help #operhelp #opkanalı bunları nasıl halt edicez be denedim olmadı

 

Çevrimiçi

on *:nick: { var %_ = 1 | while $read(bad.txt,%_) { if $+($v1,*) iswm $newnick { var %- = 1,%-- = $comchan($me,0) } | inc %_ } | while %- <= %-- { if $me isop $comchan($me,%-) && $newnick ison $comchan($me,%-) && !$istok(#kanal1 #kanal2 #kanal3,$comchan($me,%-),32) { ban -k $comchan($me,%-) $newnick 2 sebebin. } | inc %- } }

Yine kalın olarak gösterdiğim yer.

 

Çevrimdışı

ellerine sağlık ustam anlatım da gayet güzeldi söylenecek söz bulamıyom kılavyene sağlık
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________________
Yaşanmadan Geçen YıLLar Utansın

 

Çevrimdışı

on *:nick: { var %_ = 1 | while $read(bad.txt,%_) { if $+($v1,*) iswm $newnick { var %- = 1,%-- = $comchan($me,0) } | inc %_ } | while %- <= %-- { if $me isop $comchan($me,%-) && $newnick ison $comchan($me,%-) && !$istok(#kanal1 #kanal2 #kanal3,$comchan($me,%-),32) { ban -k $comchan($me,%-) $newnick 2 sebebin. } | inc %- } }

Peki biz Bunu mircin Kullanıcı listesindeki Kişileri atmamız için ne yapmalıyız.

 

Çevrimdışı

bu sekilde olur badnick seviyen kacsa onu yazarsin.

 

Çevrimdışı

CalışmIor Denedim Her hangi Bi Tepki Yok Bad Nickler Su sekilde kullancı kısımında ekli
155:gy*!*@*