![[-]](https://lamerler.com/images/collapse.png "[-]")
Yeni Badnick Koruma Kodları
Kullanabilecegin komutlar;
/badnickekle *nick*
/badidentekle *ident*
/nickkoruma *nick*
/identkoruma *nick*
BADNİCK KORUMA 2020
BADNİCK KORUMASI GÜNCEL 2020 İRCFORUMLARI İRCFORUMLARİ
LAMERLER FORUM İRCFORUMLARI İRCFORUM İRCFORUMLARİ LAMERLER FORUM SİTESİNE ÖZEL BADNİCK KORUMASI
Kullanabilecegin komutlar;
/badnickekle *nick*
/badidentekle *ident*
/nickkoruma *nick*
/identkoruma *nick*
Kod:
menu status,menubar,channel {
.-
.ı|ı Badnick
..Açık:.enable #Badnick | .echo -a Badnick korumasi açildi
..Kapalı:.disable #Badnick | .echo -a Badnick korumasi kapatildi
.-
}
#badnick on
on @BadNick:JOIN:*:{
if ($ulist($fulladdress,koruma,0) >= 1) { return }
elseif !$istok(#help #operhelp #*** #cinsellik #sales #karantina #kanal-devir,$chan,32) {
mode $chan +b $nick
kick $chan $nick 5[ 4K2ÖTÜ 4R2UMUZ 4N2ICK 4İ2DENT 4E2MAİL 5] 4S12ebebinden 4 D12oLayı 4 U12zakLaştırıLdınız. 4/nick yeninick 12 Yaparak Giriş yapa biLirsiniz 4Z14aiL 4S14cript 4®
}
}
on *:NICK:{
if ($ulist($+($newnick,!*@*),koruma,0) >= 1) { return }
else {
if $ulist($+($newnick,!*@*),badnick,0) {
var %Plt = 1
while $comchan($newnick,%Plt) {
var %e = $v1
if $me isop %e && !$istok(#help #operhelp #*** #cinsellik #karantina #sales #kanal-devir,%e,32) {
mode %e +b $newnick
kick %e $newnick 2Şuanda Kanal Seviyesinde Düşürecek ßir Nick Seçtiniz Lütfen 4/Nick Yeninick 2Komutuyla Nickinizi Deyiştirip Tekrar Giriniz.
}
inc %Plt
}
}
}
}
alias badnickekle {
auser badnick $1 $+ !*@*
}
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 $+ @*
}
#badnick offBADNİCK KORUMA 2020
Kod:
on *:start:{ $iif(!$isfile(badnick.tprk),.write badnick.tprk) | .hmake badnick 100 | .hload badnick badnick.tprk }
on *:join:*: {
if $read(muafnick.txt,w,$nick) { return }
if $regex($nick($chan,$me).pnick,[.~%&@]) && $hfind(badnick,$nick,1,W).data {
kick $chan $nick 1Nick değiştirip (/nick yeninick) tekrar kanala giriş yapabilirsiniz..
mode $chan +b $nick
}
}
on *:nick: {
if $read(muafnick.txt,w,$newnick) { return }
if $hfind(badnick,$newnick,1,W).data {
var %cht = $comchan($newnick,0)
while %cht {
if $regex(me,$nick($comchan($newnick,%cht),$me).pnick,[.~%&@]) && !$regex(newnick,$nick($comchan($newnick,%cht),$newnick).pnick,[.~%&@+]) {
ban -k $comchan($newnick,%cht) $newnick 2 Bilmem Sen Badnick misin ama Badnick listemde olduğun için banlandın bla bla bla...
}
dec %cht
}
}
}
on *:text:*:#: {
if $regex($1,/^[!\.]badnick$/Si) {
if $regex($2,/^ekle$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3), 1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
if $read(muafnick.txt,w,$3) { msg # 2Bu kişi muaf nick listemde yer almakta. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m badnick %n $strip($3)
.hsave -o badnick badnick.tprk
msg # $strip($3) Badnick listesine eklendi.
}
if $regex($2,/^s[ıiİ]l$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if !$hfind(badnick,$strip($3),0,W).data { msg # Bad nick listesinde bulunmamaktadir. | return }
.hdel -m badnick $hfind(badnick,$strip($3),1,W).data
.hsave -o badnick badnick.tprk
msg # $strip($3) Badnick listesinden silindi.
}
if $regex($2,/^tara$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if $read(muafnick.txt,w,$3) { msg # 2Bu kişi muaf nick listemde yer almakta. | return }
if !$hfind(badnick,$strip($3),0,W).data { msg # Badnick listem'de $strip($3) ait bir mask yok. | return }
msg # Nick: $strip($3) - 4 Mask: $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3), 1,W).data),$chr(32),])
}
if ($2 == muaf) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if $read(muafnick.txt,w,$3) { msg # $3 muaf listesinden silindi. | write $+(-dl,$read(muafnick.txt,w,$3)) muafnick.txt | return }
msg # $3 muaf nick listesine eklendi.
write muafnick.txt $3
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
msg # Badnick listesi
msg # -
var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }
msg # -
msg # Badnick listesi sonu
}
}
if $regex($1,/^[!\.]tara$/Si) {
if !$regex($2,/^#/Si) { msg # Lütfen #kanal belirtiniz | return }
if !$chan($2) { msg # $2 kanal'ında bulunmuyorum | return }
var %:tara = 1 | while %:tara <= $nick($2,0) {
if $hfind(badnick,$nick($2,%:tara),1,W).data && !$read(muafnick.txt,w,$nick($2,%:tara)) {
msg # [ TARAMA ] $nick($2,%:tara) nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick($2,%: tara),1,W).data),$chr(32),])
mode $2 +b $nick($2,%:tara) | kick $2 $nick($2,%:tara) 4 Badnick! 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
}
inc %:tara
}
msg # Toplam $nick($2,0) kişi için, $hget(badnick,0).data adet mask taraması yapıldı.
}
}BADNİCK KORUMASI GÜNCEL 2020 İRCFORUMLARI İRCFORUMLARİ
Kod:
on *:text:*:#:{
if $regex($1,/^[!\.]badn[ıiİ]ck$/Si) {
if $regex($2,/^ekle$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
elseif $hfind(badnick,$strip($3),1,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m badnick %n $strip($3) | .hsave -o badnick badnick.tprk
.hadd -m badekleyen %n $nick | .hsave -o badekleyen badekleyen.tprk
msg # $strip($3) Badnick listesine eklendi.
}
elseif $regex($2,/^s[ıiİ]l$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
elseif !$hfind(badnick,$strip($3),1,W).data { msg # Silmeye çalıştığınız badnick hafızada ekli değil. | return }
else {
if $hfind(badnick,$strip($3),1,W).data { .hdel -m badekleyen $v1 | .hsave -o badekleyen badekleyen.tprk }
.hdel -m badnick $hfind(badnick,$strip($3),1,W).data | .hsave -o badnick badnick.tprk
msg # $strip($3) Badnick listesinden silindi.
}
}
elseif $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
msg # Badnick listesi
msg # -
var %i = 1 | while (%i <= $hget(badnick,0).data) {
msg # $+(%i,-,$chr(41)) $hget(badnick,%i).data - Ekleyen: $hget(badekleyen,$hget(badnick,%i).item)
inc %i
}
msg # -
msg # Badnick listesi sonu
}
}
}LAMERLER FORUM İRCFORUMLARI İRCFORUM İRCFORUMLARİ LAMERLER FORUM SİTESİNE ÖZEL BADNİCK KORUMASI
