BadNick Remote Hash çevirme
Merhaba, iyi if'ler. Arkadaşlar aşağıda paylaşmış olduğum Badnick remotesini ben elimden geldiğince yapabildiğim kadar bazı özellikler ekledim. Gayet de kullanışlı fakat Hash tablo da yazılmadığı ve badnick list biraz kalabalık olduğu için mIRC'i biraz yorduğunu fark ettim. Bu konuda yardımcı olabilirseniz çok sevinirim. Userlist de nickler badnick:nick koruma:nick şeklinde kayıtlı.
Şimdiden yardımcı olan yada olmaya çalışan Coder arkadaşlara teşekkür ederim. Kod:
on @BadNick:JOIN:*:{
if !$window(@BADNiCKS) { window -n @BADNiCKS }
echo 11 -t @BADNiCKS 12==>0 # 12Kanalında uzaklaştırılan 0BADNiCK:4[ $nick ]12 yasağa takılan mask:0,1 $ulist($nick,badnick,1)
if ($ulist($nick,koruma,0) >= 1) { return }
elseif !$istok(#Help #Operhelp #SoyLe@ #SoyLeHeLp #GırgırHeLp #Karantina #Security #Help #Helpers #HelpTeam #SvsDesk #Egitim #mIRCHelp #SoyLehelp #kanal5,$chan,32) {
mode $chan +b $nick
kick $chan $nick 4BADNiCK:12 Kullandığınız tespit edildi. Lütfen;4 /nick yeninick12 şeklinde uygun4 Nick\Rumuz12 alarak tekrar giriş yapınız.
}
}
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(#Help #Security #Help #Helpers #HelpTeam #SvsDesk #Egitim #mIRCHelp #Operhelp #Karantina #SoyLe@ #SoyLehelp #kanal5,%e,32) {
mode %e +b $newnick
kick %e $newnick 4BADNiCK:12 Kullandığınız tespit edildi. Lütfen;4 /nick yeninick12 şeklinde uygun4 Nick\Rumuz12 alarak tekrar giriş yapınız.
}
inc %Cnk
}
}
}
}
alias badnickekle {
if ($level($1 $+ !*@*) == badnick) { echo -a 12Eklemeye çalıştığın4 Nick, Mask BadList12 listesin de zaten mevcut. | return }
else {
.auser badnick $1 $+ !*@* | echo -a $1 12Maskı4 ile Badlist12 listesine eklendi. | return }
}
alias badnicksil {
ruser badnick $1 $+ !*@*
}
alias nickkoruma {
auser koruma $1 $+ !*@*
}
alias badidentekle {
auser badnick *! $+ $1 $+ @*
}
alias badidentsil {
ruser badnick *! $+ $1 $+ @*
}
alias identkoruma {
auser koruma *! $+ $1 $+ @*
}
alias tara {
set %:bulunan 0
var %s 1
while %s <= $nick(#,0) {
%:gnick = $nick(#,%s)
if ($ulist($+($nick(#,%s), !*@*),koruma,0) >= 1) || ($ulist($+(*!, $regsubex($address($nick(#,%s),1),/^\*[!]\*(\S+)[@].+/S,\1), @*), koruma,0) >= 1) { inc %s | continue }
if %:gnick isreg # && $level(%:gnick $+ !*@*) == badnick {
inc %:bulunan 1
mode # +b %:gnick | kick # %:gnick 4BADNiCK:12 Kullandığınız tespit edildi. Lütfen;4 /nick yeninick12 şeklinde uygun4 Nick\Rumuz12 alarak tekrar giriş yapınız.
}
inc %s
}
echo -a 0BADNiCK'ler Tarandı:4 # 12Kanalında4 %:bulunan 0BADNiCK12 bulundu.
}
---------------
Badnick eklemek için:
/badnickekle gay*
Badnick silmek için:
/badnicksil *lez*
Nick Koruma eklemek için:
/nickkoruma gaye*
/nickkoruma *tugay*
Badident eklemek için:
/badidentekle *msn*
/badidentekle gay
Badident silmek için:
/badidentsil *msn*
/badidentsil gay
İdent Koruma eklemek için:
/identkoruma msn
/identkoruma gaye*
NOT: KOD'un orjinali kime ait bilmiyorum. Difüzyon hocamıza ait olabilir. |
