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