Ç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