Badnick Scanner Hakkında
 

on 1:LOAD: echo -a 15,1»» 4Loading Complete.. [7Badnick Scanner Version Beta4]
alias bnscan {
if ($active = $chan) {
set %n 1
set %bcount 0
echo # 15,1»»4Badnick taraması başladı.. 15[9 $+ $chan $+ 15]
:scan
if ($nick(#,0) !== %n) {
inc %n
set %total $nick(#,0)
set %scannick $nick(#,%n) | set %i 0 | goto checking }
else { echo # 15,1»»4Badnick taraması tamamlandı.9 %bcount 4tane badnick tesbit ediLdi.. | goto end }
:checking
inc %i 1
set %currentsword $read -l $+ %i $mircdir/sys/badnick.txt
if (%currentsword == $null) { .unset %i | goto scan }
else {
if (%currentsword isin %scannick) { goto offense }
else { goto checking }
}
:offense
inc %bcount
.mode # +b %scannick $+ !*@* | .kick # %scannick 4[ Advertise - Auto Message - Invite - Bad Words - Bad Nicks ] 2Detected!!! 7 "4 $replace(%scannick,_,*,-,*,a,*,s,*,j,*,p,*,i,*,o,*) 7"15
goto scan
:end
} }
menu channel,nicklist {
-
Badnick Scan:/bnscan
}

Bu kod ÇaLışıyo Ama Benim iStediğim Başka bişi var. txt dosyasından okuyo okumasını istemiyorum Kendim Yazayım iStiyorum Remoteye txt de pek etkili olmuyo * ? gibi şeyLer işLemio.

;users liste ekleme yaparak sorununu halledeßilirsin hem scriptini daha az kasıcaktır.
;badnick eklemek icin aşagıdaki kodu kullan
.auser badnick *nick*
;userlistten badnick cıkarmak icin
.ruser badnick *nick*
;sonra bu kodu remoteye ekleki seviyesi badnick olanlar kanaldan atılsın
on @badnick:join:#: { .ban -u300 $chan $nick | .kick # $nick $nick badnick..! /nick nickname komutuyla nickinizi değişiniz vs vs. } }

AnLatamadım ki normaLde badnickler için zaten Shitlisti kuLLanıyorum Verdiğim kodda kanaL iÇİn Scan var .txt dosyasında oLan nick veya badnick varsa auto atıyor Ben bunu txt dosyasına değiLde remoteye yazmak istiyorum

$mircdir/sys/badnick.txt yerine %badnick yazip variablesde bir kac nick tanımlayıp çalıştırmaya bak. olur büyük bi ihtimalle

Bu kısmı

Kodu ile değiştir.

Ya nasıl iştir anlamadım bu benim nickide banlıyor yalnız ben şu kısmı değiştirdim $mircdir/shitlist.txt bu şekilde değiştridm ama yinede beni banladı bi çözüm pls bide şu gülen adamı ben :.offense diye değiştirdim aradaki nokta (.) yok ben gülücük çıkmasın diye koydum.

%n 2
%bcount 0
%total 2
%scannick erdem55
%currentsword
bu sadece benimi tarıyo yoksa banamı öyle geldi sanki sadece benim nickimi tarıyor

sana verdiğim kod user liste badnick ekliyip atmak en az kastıran cozum.Ama anladığım yani senin istediğin kanala girdiğinde veya scan yapınca o nickleri ßulup kanaldan atması ise

/bnickscan {
var %i = 1
while (%i <= $nick($1,0)) {
var %shlist = $ulist($nick($1,%i),badnick,0),*,@,!)
if (%shlist != 0) {
ban $1 $nick($1,%i) 2 | kick $1 $nick($1,%i) Bad Nick Detected..! ][ 5 $time ][
}
inc %i 1
}
}
kanalda /bnickscan #kanal yazınca kanaldaki nickleri ßulur atar
ayrıca eğer otomatik yapmak istersen
on *:op:#: { if $opnick == $me { bnickscan $chan } }

peki bu kodu dosyadan okutturabilirmiyiz. Bu shiftlisten okuyo bense shiftlist.txt den okumasını istiyorum.
Birde mümkünse +b değilde cs de akick atmasını istiyorum. Falza şey istedim galiba:(

on @*:join:#: { if ($read(shitlist.txt,w,$nick)) { .cs akick $chan add $+($nick,!*@*) Karalistemdesin..! | cs akick $chan enforce | cs akick $chan del $+($nick,!*@*)
;shitlist.txt de die dosyadan ßiri kanala girer ise onu cs den akickler..

bu zaten var bende ben şu scan özelliğini dosyadan okusun istiyorum yani kanala girdiğimde yukardaki kod gibi scan yapıp dosyada kayırlı olanları banlıyacak. Yani istediğim yukardaki kodun dosyadan çalışanı join yaptığında banlayanı bende var

/bnickscan {
var %x = 1
var %t = $nick($1,0)
while %x <= %t {
if ($read(shitlist.txt,w,$nick($1,%x))) { .cs akick $chan add $+($nick($1,%x),!*@*) Karalistemdesin..! | cs akick $chan enforce | cs akick $chan del $+($nick($1,%x),!*@*)
} | inc %x } }
}
on *:OP:#: { if ($opnick == $me)) { .bnickscan $chan } }

çalışmıyor ve çalıştıramadımda } | inc %x } }
}
bu kısmın doğru olduğuna eminmisin?

senin verdiğin koddaki ban kısmını şu şekilde değiştirdim
cs akick $1 add $address($nick($1,%i) 2) 5Shitlisted | cs akcik $1 Enforce | cs akick $1 del $address($nick($1,%i),2)
fakat bi sorun var benim ip yi banlıyor:) nasıl düzeltirim bu sorunu?

Kötü nick taraması için aşağıdaki kodu remote'a (ALT+R) koyun ve kanaldayken /badnickscan ya da bir kanalı taratmak isterken /badnickscan #kanal-ismi olarak yazın, sizin ayarladığınız kötü nickleri kanaldan atar, Kötü nickleri mIRC klasörünüzde (genelde C:\Program Files\mIRC\'dir) badnicks.txt diye bir Metin Belgesi oluşturup içine istediğiniz gibi alt alta boşluk olmadan ekleyin, wildcardlar kullanmalısınız eklerken yani içinde fuck geçen tüm nickleri atmak için badnicks.txt içinde *fuck* ı yazın, ya da ***'le başlayan her nicki atmak için **** i ekleyin ve ***'le başlayan tüm nickler atılsın, işte kod:


alias badnickscan {
if $1 ischan && $me isop $chan {
var %` = $lines(badnicks.txt)
while %` {
if $fline($1,$read(badnicks.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { mode $1 +b $+($read(badnicks.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(badnicks.txt,%`),%~,1),1) bad nick | dec %~ } }
dec %` } }
}

Umarım işinize yarar..

Not: Kanalda op olduğunuzda otomatik kanaldaki kötü nickleri taramak için, aşağıdaki kodu remote'a (ALT+R) koyun..

on *:op:#:if $opnick = $me { badnickscan $chan }

ya off benim başım yine belada ben bu iki koduda cs ban a ayarlayamıyorum yani cs akick $chan vs vs şeklinde off offf ne bela bi kod bu cs ban ya hep kendi ip mi banlıyorum

erdem55, ben normal banlayan oplar için verdim o komutu, dediğim gibi bir kişinin ipsini akicke eklemek için o kişinin ipsinin mIRC'nin IAL'inde olması gerekmekte, bunu kaç kere daha tekrarlayacağım bilmiyorum.. Eğer IAL'de o kişinin IP'si kayıtlıysa $address($line(#,$fline(#,$read(badnicks.txt,%`),%~,1),1),2) bu çalışır, kişiye özel script yazmak bence gereksiz ya sen script yazmayı öğren ya da bizim yazdığımız kodlarla 'İDARE' et, ben sen ChanServ'den akick ekle sonra enforce sonra sil diye bir komut yazamam, bunu anca sen yazabilirsin ve ben sana bunu yazma yollarını defalarca söyledim..

Heh.

el33t tamam kendi ip mi banlamaktan kurtuldum teşekkür ederim o konu tamamdır başardım en sonunda:) Fakat senin verdiğin kodu çalıştıramadım. Kanalda basketci diye bir nick vardı bende direkt basketci diye ekledim. Atmadı acaba dedim *basketci* mı yazmam gerekiy öyle ekledim yine atmadı. Bu arada senin kodlarda en ufak değişiklikte yapmadım yazdığın gibi denedim. çözmeye çalıştım fakat benim gibi bi acemi için fazla karışık. Yardım pls

evet bende denedim ama ATmıyor nickleri malasef Eğer atarsa sc akick enforce atsa daha iyi olur :)

Aşağıdaki kodun tamamını remote'a koydum, mIRC klasöründe badnicks.txt adlı bi metin belgesi oluşturdum içine a* yazdım, (mode ve kick'in önüne echo koydum) ve bende gayet iyi çalıştı..

alias badnickscan {
if $1 ischan && $me isop $chan {
var %` = $lines(badnicks.txt)
while %` {
if $fline($1,$read(badnicks.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { mode $1 +b $+($read(badnicks.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(badnicks.txt,%`),%~,1),1) bad nick | dec %~ } }
dec %` } }
}
on *:op:#:if $opnick = $me { badnickscan $chan }

malasef olMadı yaaaaa kaç defa denedim hepsini gözden gecirdim yine olmadı

Öncelikle yukardaki kodların hepsini remote'a koymalısın, ikinci olarak mIRC klasöründe (mIRC klasörünü öğrenmek için mIRC'de //echo $mircdir yazabilirsin) badnicks.txt diye bir txt dosyası yani metin belgesi oluşturup içine istediğin kötü nickleri alt alta boşluk olmadan eklemelisin, örneğin *fuck* 1. satırda, 2. satırda ***** gibi.. Tabiki remote'un açık olmalı yani /remote on yazmalısın. Bir kanala girip op olduğunda kendisi otomatik kanaldaki kötü nickleri tarayıp, kötü olanları bulup atacaktır.

Bir kaç yerini değiştirip tekrar yazdım, ayrıca şu anda op ve voiceler kicklenmeyecek. işte kod:

alias badnickscan {
if $1 ischan && $me isop $1 {
var %` = $lines(badnicks.txt)
while %` {
if $fline($1,$read(badnicks.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(badnicks.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(badnicks.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(badnicks.txt,%`),%~,1),1) bad nick } | dec %~ } }
dec %` } }
}
on *:op:#:if $opnick = $me { badnickscan $chan }

HAyır malasef yine çalışmadıı oto değilde biaratsak /badscan yazcak ve badnick.txt dosyasında olnaları taratıp oto akick enforce atsa YAzabilrisen sevinirm PLs.

Yanıt: Badnick Scanner Hakkında
 

evet calısmadı

Cevap: Badnick Scanner Hakkında
 

Gayet guzel calıstı Sorunsuz hata vermedı .. sızde baska kodlarla cakısma ıhtımalı olabılır .

Yanıt: Badnick Scanner Hakkında
 

Helal Olsun 2 Sene Önceki Başlığa Cvp Verdiniz:)