| badnick taraması
on badnick:JOIN:*:{
if ($ulist($nick,koruma,0) >= 1) { return }
elseif !$istok(#kaaa #kanal1 #kanal2 #Kanal5,$chan,32) {
mode $chan +b $nick
kick $chan $nick 1 Badnick
}
}
alias badnicktara {
if $me isop $1 {
set %:bulunan 0
var %s 1
while %s <= $nick($1,0) {
%:gnick = $nick($1,%s)
if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == badnick {
inc %:bulunan 1
mode # +b $address($1,2)(%:gnick,666,1)
kick $1 %:gnick 1 Badnick
}
inc %s
}
echo -a 2 Badnickler tarandi: $1 - %:bulunan badnick bulundu.
}
else {
echo -a 2 $1 kanalinda OP olmaniz gerekmektedir.
}
}
raw badnick:*: {
badnicktara $1
}
on *:join:#: {
if $level($nick $+ !*@*) == badnick {
mode # +b $nick $address($1,2)($nick,666,1)
kick # $nick 1 Badnick
}
}
on *:nick: {
if $level($newnick $+ !*@*) == badnick {
mode # +b $address($1,2)($newnick,666,1)
kickall $nick 1 Badnick
}
}
alias banall {
var %i 1
while %i <= $comchan($1,0) {
if $1 !isop $comchan($1,%i) { mode $comchan($1,%i) +b $2- }
inc %i
}
}
alias kickall {
var %i 1
while %i <= $comchan($1,0) {
if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }
inc %i
}
}
on *:op:#: {
if $opnick == $me {
badnicktara #
}
}
Elimde boyle güzel bir badnick taramasi var ama op degilken atmiyor ADminim op değilken kanala girdigimde oto tarayıp atması icin ne yapmam lazım
|