Çevrimiçi

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.

__________________
Davut Alper BALCI - pC`kOpAt

 

Çevrimdışı

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

 

Çevrimiçi

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

__________________
Davut Alper BALCI - pC`kOpAt

 

Çevrimdışı

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

 

Çevrimdışı

pckopat Nickli Üyeden Alıntı

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.

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

 

Çevrimdışı

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

 

Çevrimdışı

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

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

 

Çevrimdışı

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