badnick korumamda sorunum var
 

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 #sohbet +b $address($1,2)(%:gnick,666,1)
kick $1 %:gnick $read(badsozler.txt)
}
inc %s
}
/msg #master Kanal listesi tarandi: $1 kanalında - %:bulunan badnick bulundu.
}
else {
echo -a 2 $1 kanalinda OP olmaniz gerekmektedir.
}
}
raw badnick:*: {
badnicktara $1
}
on *:join:#sohbet: {
if $level($nick $+ !*@*) == badnick {
mode #sohbet +b $address($1,2)($nick,666,1)
kick #sohbet $nick $read(badsozler.txt)
}
}
on *:nick: {
if $level($newnick $+ !*@*) == badnick {
mode #sohbet +b $address($1,2)($newnick,666,1)
kickall $nick $read(badsozler.txt)
}
}
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:#sohbet: {
if $opnick == $me {
badnicktara #sohbet
}
}

arkadaslar buna muaf kanal eklemek istiyorum yardım ederseniz sevinirim.

Cevap: badnick korumamda sorunum var
 

Kendi Kullandığım badnick korumamı verebiLirim özel bi sekıl'de codlanmıs güzel ve farkLı 1sey ;

alias Shitlist { if ($dialog(Shitlist)) { dialog -c Shitlist } | dialog -ma Shitlist Shitlist }
dialog Shitlist {
size -1 -1 295 346
title "Shitlist & Otomatik Ban Sistemi"
Combo 1, 1 1 240 330
button "&Ekle", 2, 244 2 50 22
button "&Çikar", 3, 244 24 50 22
button "Tamam", 4, 244 324 50 22,ok
Check "Shitlist Açık" , 5 , 1 327 241 20
}
on *:dialog:Shitlist:*:*: {
if ($devent == init) { Shitlist.init }
if ($devent == sclick) {
if ($did == 2) { if ($did(1) != $null) { /.auser Karaliste $did(1) | Shitlist.init } }
if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | Shitlist.init } }
if ($did == 5) {
if ($did(5).state == 1) { writeini " $+ $mircini $+ " Shitlist Shitlist on }
if ($did(5).state == 0) { writeini " $+ $mircini $+ " Shitlist Shitlist off }
}
}
}
alias Shitlist.init {
did -r Shitlist 1
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) { did -c Shitlist 5 }
set %ul 1
while (%ul <= $ulist(*,0)) {
if ($level($ulist(*,%ul)) == karaliste) { did -a Shitlist 1 $ulist(*,%ul) }
inc %ul 1
}
unset %ul
}
on Karaliste:join:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick | kick $chan $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karalisteart:part:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick
}
}
}
on Karaliste:nick: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:text:*:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:notice:*:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:action:*:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karalistep:#:op {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:deop:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:voice:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:devoice:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:help:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:dehelp:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}


Vaktim olmadıgı ıcın ekran Görüntusunu paylasamıyorum ama güzel 1 cod

NOT : Kodu açmak için /shitlist yazınız..

Cevap: badnick korumamda sorunum var
 

Kırmızı ile belirttiğim yerlere hangi odalarda işlem yapmamasını istiyorsan yazarsın o odalarda koruma çalışmaz iyi forumlar..

Cevap: badnick korumamda sorunum var
 

hocam sorun hala dewam ediyor demek istediğim su sohbet kanalında op olduqumda tarama yapıyor bulduqu nickleri #rescue kanalnda da banlıyor bad nick ister o kanalda olsun ister olmasın ama o banı atıyor buna bi çözüm varmı

Cevap: badnick korumamda sorunum var
 

yokmu yardım edebilecek biri ?

Cevap: badnick korumamda sorunum var
 

Bence bu işini görür.
Senin kullandıgın kodu denedim sadece kick atıyor.
İkincisi badnicklere ban atarken İP'e degil sadece nicke atmanı tavsiye ederim.
Alttaki kodun calısma mantıgı gelince.
@ yetkin oldugu bütün kanallardan badnickleri atabilirsin.
Badnick taratmak icin /tara #kanal ismi yazman yeterli.
Muaf tutulan kanallarda taratsanda o kanaldan atmıcak.
Badnick degisimlerinde de aynı sekilde calısacak.
kanalda sonradan badnicke gecen rumuzlar olursa atılacak.
Ama muaf tutulan kanalda sonradan badnicke gecen olsada bile atmıcak.
Badnick listesine Bad:*** seklinde de ekleyebilirsin
Bad:***** seklinde de.
Ayrıca bu kodda sadece kanal degil nickleride muaf tutabilirsin.
örn: Bad:*gay*
koruma:*tugay*

Not: Bu kod ircforumlari.net'den tarafımca alınmıştı.
Ve bu kodu yazan, emek veren arkadasa veya arkadaslara Teşekkür. ederim.


on @Bad:JOIN:#kanal:{
if ($ulist($nick,koruma,0) >= 1) { return }
elseif !$istok(#Korunacakkanal,$chan,32) {
mode $chan +b $nick
kick $chan $nick 2Rumuzunuz KanaL 4Seviyesine 2Uygun Degil.
}
}
#Bad end
menu status,menubar,channel {
.-
.» Bad Nick
.Bad Aç: if $group(#Bad) == off { .enable #Bad | echo -a 12Badnick 4koruması açılmıştır. } | else { echo -a 5Badnick Koruması 4zaten açık 5durumda.. }
.Bad Kapat: if $group(#Bad) == on { disable #Bad | echo -a 12Badnick 4Koruması kapatılmıştır. } | else { echo -a 5Badnick 5Koruması 4zaten kapalı 5durumda.. }
.Durum: if $group(#Bad) == on { echo -a 5Durum: Koruma Açık } | else { echo -a 5Durum: Koruma Kapalı }
}

alias tara {
var %jnk 1
while %jnk <= $nick($1,0) {
if $istok(#korunacakkanal,$chan,32) { halt }
if !$ulist($nick($1,%jnk),koruma,0) && $ulist($nick($1,%jnk),Bad,0) {
mode $chan +b $nick($1,%jnk)
kick $chan $nick($1,%jnk) 2Rumuzunuz KanaL Seviyesine Uygun Degil.
}
inc %jnk
}
}

on *:NICK:{
if ($ulist($+($newnick,!*@*),koruma,0) >= 1) { return }
else {
if $ulist($+($newnick,!*@*),bad,0) {
var %Cnk = 1
while $comchan($newnick,%Cnk) {
var %e = $v1
if $me isop %e && !$istok(#korunacakkanal,%e,32) {
mode %e +b $newnick
kick %e $newnick 2Gecmis oldugunuz rumuz kanal 4Seviyesine 2uygun degil.
}
inc %Cnk
}
}
}
}

Cevap: badnick korumamda sorunum var
 

if $1 == #kanal1 || #kanal2 || #kanal3 {
echo -a HATA: Bu kanallarda Bad Nick Tarayamazsın.
halt
}

Eklediğim kodlar bunlar. kanal1 kanal2 kanal3'ü değiştir.

Cevap: badnick korumamda sorunum var
 

ircoplara özel badnick korumasi varmidir giren badnicke direk killeyecek ve ekleme silme özelliği olcak

Cevap: badnick korumamda sorunum var
 

En basitinden birtane yazim. Daha gelişmişlerinide bulabilirsin.

Alıntı:

menu query {

/badekle Nick (badnick ekler)
/badsil Nick (badnick siler)

Nick Listesinde bir nicke tıkladıgında Bad Nick Ekle ve Bad Nick Sil seçeneklerinide kullanabilirsin.

Bir nickin özeline gittiğinde yine aynı şekidle Bad Ekle diyerek ekleyip sil diyerekte çıkartabilirsin.

Cevap: badnick korumamda sorunum var
 

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 $chan +b $nick($1,%jnk)
kick $1 %:gnick $read(badsozler.txt)
}
inc %s
}
/msg #master Kanal listesi tarandi: $1 kanalında - %:bulunan badnick bulundu.
}
else {
echo -a 2 $1 kanalinda OP olmaniz gerekmektedir.
}
}

Arkadaşlar bu kısım için bana yardımcı olursanız sevinirim sadece kick atıyor nick ban atması için gerekli düzeltmenin ne olduğunu gösterirseniz sevinirim ilginiz için tşkler iyi forumlar