Çevrimdışı

on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }
#NickDeğiş on
on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } }
#NickDeğiş end
alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
alias krt {
if $1 ischan && $me isop $1 {
var %` = $lines(Nickler.txt)
while %` {
if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } }
dec %`
}
}
}
#oto-tara on
on *:OP:#:if $opnick == $me { krt $chan }
#oto-tara end
;-----------------------------------------
on *:LOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.
echo -a $timestamp *** -----------------
run notepad.exe nickler.txt
set %oto-tara on
set %NickDeğiş on
set %kckmsg Kick mesajınız
}
on *:UNLOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı.
unset %oto-tar
unset %NickDeğiş
unset %kckmsg
}
%kckmsg Kick mesajınız
on @Badnick:JOIN:#:{
if ($ulist($nick,koruma,0) >= 1) { return }
elseif !$istok(#Canimhelp,$chan,32) {
mode $chan +b $nick
kick $chan $nick Rumuzunuz KanaL Seviyesine Uygun Degil.
}
}
on *:NICK:{
if ($ulist($+($newnick,!*@*),koruma,0) >= 1) { return }
else {
if $ulist($+($newnick,!*@*),badnick,0) {
var %Cnk = 1
while $comchan($newnick,%Cnk) {
var %e = $v1
if $me isop %e && !$istok(#Canimhelp,%e,32) {
mode %e +b $newnick
kick %e $newnick Gecmis oldugunuz rumuz kanal Seviyesine uygun degil.
}
inc %Cnk
}
}
}
}


Buda Remote