Kullandığım kodların tamamı IRCForumları'nda mevcuttur ve el33t'e aittir, ben sadece bir dialog hazırlayıp forumdaki kodları topladım kullanışlı olması açısından, umarım yararlı olur...

Kurulum:
Kodu çalıştırmak için aşağıdaki 2 işlemden birini uygulayabilirsiniz.

1) Kodları ALT+R yapıp açılan pencereye yapıştırın.
2) Bir not defteri açıp içine yapıştırın ve mIRC klasörünüzün içine atın. Daha sonra mIRCte /load -rs Dosyanız.txt komutunu uygulayın.

Kodlar:

Kod:


;--------------------------------------------------
; Kötü Rumuz Koruması
; Kodlamaların tamamı ve bazı dialog kodları el33t'e aittir...
; Dialog hazırlaması bana aittir...
; /KötüRumuz Yazarak Çalıştırabilirsiniz...
; 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias kötürumuz { if (!$dialog(kötürumuz)) dialog -m kötürumuz kötürumuz }
dialog kötürumuz {
title "Kötü Rumuz Koruması"
size -1 -1 200 180
option dbu
text "..:: Rumuz Listesi ::..", 999, 20 10 60 10
combo 1, 5 20 90 130
button "Ekle (+)", 2, 4 146 27 13
button "Çıkar (-)", 3, 32 146 27 13
button "Temizle (!)", 4, 60 146 35 13
box "Seçenekler", 5, 101 17 93 40
check "OP olduğumda tarama yap!", 6, 106 28 73 10
check "Yeni rumuz kötüyse at!", 7, 106 40 70 10
button "?", 8, 182 28 9 9
button "?", 9, 182 40 9 9
box "Kick Mesajınız", 10, 101 60 93 40
edit "", 11, 106 76 83 10, autohs
box "Açıklamalar", 12, 101 103 93 55
text "Kötü Rumuz Koruması 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
S1y4H", 13, 106 110 85 40
link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
14, 108 164 52 15
button "Kapat!", 15, 168 161 27 13
text "..:: Kötü Rumuz Koruması ::..", 16, 13 165 80 10,disable
}
on *:dialog:kötürumuz:*:*:{
if ($devent == init) {
loadbuf -o $dname 1 $shortfn(nickler.txt) | did -c $dname 1 1
if (%oto-tara == on) { did -c kötürumuz 6 }
if (%NickDeğiş == on) { did -c kötürumuz 7 }
did -a $dname 11 %kckmsg
}
if ($devent == sclick) {
if ($did == 2) {
var %kötürmz = $did(1).text
if $read(nickler.txt,w,%kötürmz) {
echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.
}
else {
write nickler.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text
}
}
if ($did == 3) {
if $read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 1 $did(1).sel }
}
if ($did == 4) {
if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(nickler.txt) | write -c nickler.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki  $+ %satırsayısı $+  adet rumuz silindi. | unset %satırsayısı } | else { return }
}
if ($did == Cool {
did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz arar, bulunanları Nick!*@* şeklinde banlayıp atar. Özellikle kanala girdiğinizde (@ olursanız) oto. tarama yapacağından işinize yaracaktır.
}
if ($did == 9) {
did -a $dname 13 @ olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa @ olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır.
}
if ($did == 6) {
if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }
elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }
}
if ($did == 7) {
if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }
elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }
}
if ($did == 14) {
run 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if ($did == 15) {
if ($did(11) == $Null) {
echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.
dialog -x kötürumuz kötürumuz
set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}
else {
set %kckmsg $did(11)
dialog -x kötürumuz kötürumuz
}
}
}
}
;--------------------
; Kodlamalar...
;--------------------
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 *** S1y4H
run notepad.exe nickler.txt
set %oto-tara on
set %NickDeğiş on
set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}

on *:UNLOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı.
unset %oto-tar
unset %NickDeğiş
unset %kckmsg
}

dialog kufur {
  title "Swear Security"
  size -1 -1 138 186
  option dbu
  edit "", 1, 7 10 61 10
  list 2, 7 22 60 50, size

  button "Ekle", 3, 7 74 27 12, flat
  button "Sil", 4, 39 74 27 12, flat
  check "Opları (@)", 5, 85 21 41 10, flat
  check "Voiceler (+)", 6, 85 10 42 10, flat
  combo 7, 7 102 52 51, size
  button "Ekle", 8, 7 154 24 9, flat
  button "Sil", 9, 35 154 23 9, flat
  box "Küfür listesi", 13, 3 2 71 88
  box "Ayrılan Nickler", 14, 3 92 63 76
  box "Ayrılan Kanallar", 15, 73 92 62 76
  box "Ayır", 16, 78 2 56 33
  button "Sil", 10, 106 154 23 9, flat
  button "Ekle", 11, 78 154 24 9, flat
  combo 12, 78 102 52 51, size
  box "İşlemler", 17, 78 37 56 53
  radio "Opersem Kline", 18, 83 47 47 10, flat
  radio "Opersem Kill", 19, 83 57 47 10, flat
  radio "Opsam Kick", 20, 83 67 47 10, flat
  check "Banla", 21, 83 77 27 10, flat
  button "Kapat", 22, 97 171 37 12, flat ok
}
alias kufur { /dialog -m kufur kufur }
on *:dialog:kufur:init:*: {
  if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 2 kufur.txt }
  if (%knickler) .didtok $dname 7 32 $ifmatch
  if (%kufkanal) .didtok $dname 12 32 $ifmatch
  if (%klineat) { .did -c $dname 18 }
  if (%killat) { .did -c $dname 19 }
  if (%kickat) { .did -c $dname 20 }
  if (%banla) { .did -c $dname 21 }
  if (%oplar) { .did -c $dname 5 }
  if (%vlar) { .did -c $dname 6 }
}
on *:dialog:kufur:sclick:*: {
  if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } }
  if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } }
  if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } }
  if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } }
  if ($did == 3) { write kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }
  if ($did == 4) { write -dl $+ $did(2).sel kufur.txt | did -d $dname 2 $did(2).sel }
  if ($did == 8) { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } }
  if ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } }
  if ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } }
  if ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } }
  if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } }
  if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on @*:text:*:#: {
  if $istok(%kufkanal,#,32) == $true { halt }
  if $istok(%knickler,$nick,32) == $true { halt }
  if ($nick isop #) && (%oplar == on) { return }
  if ($nick isvo #) && (%vlar == on) { return }
  korukufurden $1-
}
alias korukufurden {
  var %HR $strip($1-) , %_: $lines(kufur.txt)
  while (%_:) {
    if $read(kufur.txt,%_:) iswm %HR iswm %HR {
      if (%banla == on) { .mode $chan +b  $+ $wildsite  }
      if (%klineat == on) { .kline $nick küfürsüz }
      if (%killat == on) { .kill $nick küfürsüz }
      if (%kickat == on) { .kick $chan $nick $read scripts/read.mrc
      }
      return
    }
    dec %_:
  }
}

menu status,menubar,channel  { 
  .? Bad?Kufur?ident?Amsg Korumasi:/dialog -m badkufur badkufur 
} 
dialog badkufur { 
  title "Bad Nick Kufur Ident Amsg Korumasi" 
  size -1 -1 300 169 
  option dbu 
  tab "Bad Nick Korumasi", 1, -2 -2 350 150 
  edit "", 4, 5 23 53 11, tab 1 return autohs 
  text "[ Eklenecek Bad Nick ]", 5, 5 15 58 8, tab 1 
  list 6, 89 24 60 100, tab 1 sort size vsbar 
  text "[ Bad Nick Listesi ]", 7, 89 15 55 8, tab 1 
  button "Ekle", 8, 62 23 23 12, tab 1 flat 
  button "Kaldir", 9, 129 127 21 11, tab 1 flat 
  text "Bad Nicki ***** Seklinde Ekleyiniz. ve Eklediginiz Anda Bad Nicki Yetkili Oldugunuz Kanallardan Otomatik Olarak Aninda Atar.. ", 10, 5 39 84 84, tab 1 
  text "Listeden Silmek istediginiz Bad Nick Kelimesini veya Listeden Cikarmak istediginiz Kanali Tiklayip Kaldir Butonuna Basiniz..", 17, 4 140 286 8, tab 1 
  button "Kanalda Bad Nick Tara", 35, 10 111 63 13, tab 1 flat 
  text "[ Muaf Nickler Listesi ]", 45, 158 35 66 8, tab 1 
  list 46, 158 43 64 81, tab 1 sort size vsbar 
  edit "", 47, 158 24 44 10, tab 1 return autohs 
  button "Ekle", 48, 204 23 19 12, tab 1 
  text "[ Muaf *Gaye* Seklinde ]", 49, 157 15 75 8, tab 1 
  button "Kaldir", 51, 201 127 22 11, tab 1 flat 
  radio "Bad Nick Korumasi [ Acik ]", 52, 6 71 75 10, tab 1 flat 
  radio "Bad Nick Korumasi [ Kapali ]", 53, 6 89 75 10, tab 1 flat 
  list 56, 232 43 60 81, tab 1 sort size vsbar 
  text "[ Muaf #BJK Seklinde ]", 57, 232 15 81 10, tab 1 
  text "[ Calismayacak Kanallar ]", 58, 232 35 66 8, tab 1 
  edit "", 59, 232 23 40 11, tab 1 return autohs 
  button "Ekle", 60, 275 22 18 12, tab 1 
  button "Kaldir", 62, 273 127 20 11, tab 1 flat 
  tab "Kufur Korumasi", 2 
  edit "", 11, 8 24 57 11, tab 2 autohs 
  text "[ Eklenecek Kufur ]", 12, 9 15 50 7, tab 2 
  list 13, 107 24 65 100, tab 2 size vsbar 
  button "Ekle", 14, 71 23 24 12, tab 2 flat 
  button "Kaldir", 15, 152 126 22 12, tab 2 flat 
  text "Listeden Silmek istediginiz Kufuru Tiklayip Kaldir Butonuna Basiniz..", 16, 4 139 170 9, tab 2 
  text "Eklenecek Kufuru. Ornek *Olgun* Seklinde Ekleyiniz.. ", 18, 7 42 87 45, tab 2 
  text "[ Kufur Listesi ]", 19, 109 15 55 8, tab 2 
  button "Listeyi Temizle", 21, 107 126 42 12, tab 2 flat 
  radio "Kufur Korumasi [ Acik ]", 54, 7 82 74 10, tab 2 flat 
  radio "Kufur Korumasi [ Kapali ]", 55, 7 99 78 10, tab 2 flat 
  list 63, 197 46 65 77, tab 2 size vsbar 
  button "Listeyi Temizle", 64, 197 125 41 12, tab 2 flat 
  button "Kaldir", 65, 241 125 22 12, tab 2 flat 
  edit "", 66, 197 24 50 11, tab 2 return autohs 
  button "Ekle", 67, 251 23 21 12, tab 2 
  text "[ Muaf Kelime ]", 68, 197 15 37 8, tab 2 
  text "[ Muaf Kelime Listesi ]", 69, 198 36 66 9, tab 2 
  tab "Amsg Kisitlama", 3 
  edit "", 28, 23 37 55 12, tab 3 autohs 
  list 29, 117 26 66 97, tab 3 size vsbar 
  button "Ekle", 30, 85 36 24 14, tab 3 flat 
  text "[ Amsg icin Kisitli Kanallar ]", 31, 117 16 68 8, tab 3 
  text "Amsglerinizin Gitmesini istemediginiz Kanali #Kanal Seklinde Ekleyiniz..", 32, 6 16 86 16, tab 3 
  button "Kaldir", 33, 162 126 22 12, tab 3 flat 
  button "Listeyi Temizle", 34, 117 126 41 12, tab 3 flat 
  text "Listeden Silmek istediginiz Kanali Tiklayip Kaldir Butonuna Basiniz..", 37, 5 140 183 8, tab 3 
  tab "Ident Korumasi", 22 
  edit "", 23, 10 24 62 11, tab 22 return autohs 
  list 24, 111 24 66 99, tab 22 size vsbar 
  button "Ekle", 25, 77 23 26 12, tab 22 flat 
  text "[ Bad Ident Ekle ]", 26, 10 15 48 8, tab 22 
  button "Listeyi Temizle", 27, 111 126 41 12, tab 22 flat 
  button "Kaldir", 38, 156 126 22 12, tab 22 flat 
  button "Kanalda Bad ident Tara", 39, 16 108 70 15, tab 22 flat 
  text "Eklenecek Identi Ornek ****igenc* Seklinde Ekleyiniz..", 40, 10 43 84 19, tab 22 
  text "[ Bad Ident Listesi ]", 41, 111 15 64 8, tab 22 
  text "Silmek istediginiz identi, Listeden Tiklayip Kaldir Butonuna Basiniz..", 42, 5 140 172 7, tab 22 
  button "Pencereyi Kapat", 36, 112 152 94 15, flat 
  text "Coded By IRCplus", 44, 3 151 67 8, disable 
  text "[ GLCBilisim ]", 43, 3 160 88 13 
} 
on *:dialog:badkufur:sclick:*: { 
  ;Badnick korumasi 
  if $did == 8 { 
    if $did(8) && $len($did(badkufur,4)) > 1 { .did -a badkufur 6 $did(badkufur,4) | .auser badnick $did(badkufur,4) | .did -r badkufur 4 | .badtara } 
  } 
  if $did == 9 { 
    if $did(9) && $did(badkufur,6).sel { .ruser badnick $did(badkufur,6).seltext | .did -d badkufur 6 $did(badkufur,6).sel } 
  } 
  if $did == 20 { 
    if $did(20) { .did -r badkufur 6 | .rlevel badnick } 
  } 
  if $did == 35 { 
    if $did(35) { .badtara } 
  } 
  ;Muaf Nick Ekleme 
  if $did == 48 { 
    if $did(48) && $len($did(badkufur,47)) > 1 { .did -a badkufur 46 $did(badkufur,47) | .auser muafnick $did(badkufur,47) | .did -r badkufur 47 } 
  } 
  if $did == 51 { 
    if $did(51) && $did(badkufur,46).sel { .ruser muafnick $did(badkufur,46).seltext | .did -d badkufur 46 $did(badkufur,46).sel } 
  } 
  if $did == 50 { 
    if $did(50) { .did -r badkufur 46 | .rlevel muafnick } 
  } 
  ;Bad Nick için Check Buttonlar 
  if $did == 52 { 
    if $did(52) { .set %badcheck 52 | .enable #badnick } 
  } 
  if $did == 53 { 
    if $did(53) { .set %badcheck 53 | .disable #badnick } 
  } 
  ;Kufur Korumasi 
  if $did == 14 { 
    if $did(14) && $len($did(badkufur,11)) > 1 { .did -a badkufur 13 $did(badkufur,11) | .auser kufur $did(badkufur,11) | .did -r badkufur 11 } 
  } 
  if $did == 15 { 
    if $did(15) && $did(badkufur,13).sel { .ruser kufur $did(badkufur,13).seltext | .did -d badkufur 13 $did(badkufur,13).sel } 
  } 
  if $did == 21 { 
    if $did(21) { .did -r badkufur 13 | .rlevel kufur } 
  } 
  ;Kufur Korumasi için Check Buttonlar 
  if $did == 54 { 
    if $did(54) { .set %kufurcheck 54 | .enable #kufur } 
  } 
  if $did == 55 { 
    if $did(55) { .set %kufurcheck 55 | .disable #kufur } 
  } 
  ;Amsg Kisitlama 
  if $did == 30 { 
    if $did(30) && $len($did(badkufur,28)) > 1 && #* iswm $did(badkufur,28) { .did -a badkufur 29 $did(badkufur,28) | set %amsg $addtok(%amsg,$did(badkufur,28),32) | .did -r badkufur 28 } 
  } 
  if $did == 33 { 
    if $did(33) && $did(badkufur,29).sel { set %amsg $remtok(%amsg,$did(badkufur,29).seltext,32) | .did -d badkufur 29 $did(badkufur,29).sel } 
  } 
  if $did == 34 { 
    if $did(34) { did -r badkufur 29 | unset %amsg } 
  } 
  if $did == 36 { 
    if $did(34) { dialog -x badkufur badkufur } 
  } 
  ;Ident Korumasi 
  if $did == 25 { 
    if $did(25) && $len($did(badkufur,23)) > 1 { .did -a badkufur 24 $did(badkufur,23) | .auser ident $did(badkufur,23) | .did -r badkufur 23 | .identtara } 
  } 
  if $did == 38 { 
    if $did(38) && $did(badkufur,24).sel { .ruser ident $did(badkufur,24).seltext | .did -d badkufur 24 $did(badkufur,24).sel } 
  } 
  if $did == 27 { 
    if $did(27) { did -r badkufur 24 | .rlevel ident } 
  } 
  if $did == 39 { 
    if $did(39) { .identtara } 
  } 
  ;Muaf Kanallar 
  if $did == 60 { 
    if $did(60) && $len($did(badkufur,59)) > 1 { .did -a badkufur 56 $did(badkufur,59) | .auser muafkanal $did(badkufur,59) | .did -r badkufur 59 } 
  } 
  if $did == 62 { 
    if $did(62) && $did(badkufur,56).sel { .ruser muafkanal $did(badkufur,56).seltext | .did -d badkufur 56 $did(badkufur,56).sel } 
  } 
  if $did == 61 { 
    if $did(61) { .did -r badkufur 56 | .rlevel muafkanal } 
  } 
  ;Nuaf Kelimeler 
  if $did == 67 { 
    if $did(67) && $len($did(badkufur,66)) > 1 { .did -a badkufur 63 $did(badkufur,66) | .auser muafkelime $did(badkufur,66) | .did -r badkufur 66 } 
  } 
  if $did == 65 { 
    if $did(65) && $did(badkufur,63).sel { .ruser muafkelime $did(badkufur,63).seltext | .did -d badkufur 63 $did(badkufur,63).sel } 
  } 
  if $did == 64 { 
    if $did(64) { .did -r badkufur 63 | .rlevel muafkelime } 
  } 
} 
#badnick off
on *:join:#:{ 
  if $nick == $me { .badtara | halt } 
  if $me isop $chan || $me isop $chan && $level($gettok($gettok($address($nick,5),2,33),1,64)) == ident { mode $chan +b $nick | .kick $chan $nick 12Kanala 4Bad Identle12 girmek yasaktir.Lütfen Identinizi degisip tekrar giris yapiniz... } 
  if $me isop $chan || $me isop $chan && $level($chan) != muafkanal && $ulist($nick,muafnick,0) > 0 { halt } 
  if $me isop $chan || $me isop $chan && $level($chan) != muafkanal && $level($nick) == badnick { mode $chan +b $ulist($nick,badnick,$ulist($nick,badnick,*)) | .kick $chan $nick 2Kanaldan 4( Cinsellik2, 4Kufur2, 4Hakaret )2 iceren 4Nick2`den dolayi atildiniz.. ~ 4?12 ® 4  } 
} 
on *:OP:#: { if $ulist(*,badnick,0) > 0 && $opnick == $me { /badtara } } 
on *:HELP:#:{ if $ulist(*,badnick,0) > 0 && $hnick == $me { /badtara } } 
#badnick end 
on 1:dialog:badkufur:init:*: { 
  if $ulist(*,badnick,0) > 0 { 
    var %i 1 
    while %i <= $ulist(*,badnick,0) { 
      .did -a badkufur 6 $ulist(*,badnick,%i) 
      inc %i 
    } 
  } 
  if $ulist(*,kufur,0) > 0 { 
    var %i 1 
    while %i <= $ulist(*,kufur,0) { 
      .did -a badkufur 13 $ulist(*,kufur,%i) 
      inc %i 
    } 
  } 
  if $ulist(*,ident,0) > 0 { 
    var %i 1 
    while %i <= $ulist(*,ident,0) { 
      .did -a badkufur 24 $ulist(*,ident,%i) 
      inc %i 
    } 
  } 
  if $ulist(*,muafnick,0) > 0 { 
    var %i 1 
    while %i <= $ulist(*,muafnick,0) { 
      .did -a badkufur 46 $ulist(*,muafnick,%i) 
      inc %i 
    } 
  } 
  if $ulist(*,muafkanal,0) > 0 { 
    var %i 1 
    while %i <= $ulist(*,muafkanal,0) { 
      .did -a badkufur 56 $ulist(*,muafkanal,%i) 
      inc %i 
    } 
  } 
  if $ulist(*,muafkelime,0) > 0 { 
    var %i 1 
    while %i <= $ulist(*,muafkelime,0) { 
      .did -a badkufur 63 $ulist(*,muafkelime,%i) 
      inc %i 
    } 
  } 
  var %s = /did -c badkufur 
  if $var(%badcheck) { %s %badcheck } 
  if $var(%kufurcheck) { %s %kufurcheck } 
  if %amsg { var %i 1 | while %i <= $numtok(%amsg,32) { .did -a badkufur 29 $gettok(%amsg,%i,32) | inc %i } } 
} 
#kufur on 
on *:text:*:#:{ 
  if $me isop $chan || $me isop $chan { 
    var %i 1 
    while %i <= $0 { 
      if $ulist($eval($ $+ %i,2),muafkelime,0) > 0 { goto cyc2 } 
      if $level($eval($ $+ %i,2)) == kufur && $len($eval($ $+ %i,2)) > 1 { mode $chan +b $nick | .kick $chan $nick 12Lutfen kanal icerisinde 4Argo/Kufur12 iceren sozcukler kullanmayiniz... } 
      :cyc2 
      inc %i 
    } 
  } 
} 
#kufur end 
alias badtara { 
  var %i 1 
  while %i <= $chan(0) { 
    if $me isop $chan(%i) || $me isop $chan(%i) { 
      var %y 1 
      while %y <= $nick($chan(%i),0) { 
        if $level($chan(%i)) != muafkanal && $ulist($nick($chan(%i),%y),muafnick,0) > 0 { goto cyc } 
        if $level($chan(%i)) != muafkanal && $level($nick($chan(%i),%y)) == badnick { mode $chan(%i) +b $ulist($nick($chan(%i),%y),badnick,1) | .kick $chan(%i) $nick($chan(%i),%y) 2Kanaldan 4( Cinsellik2, 4Kufur2, 4Hakaret )2 iceren 4Nick2`den dolayi atildiniz.. ~ 4?12 ® 4  } 
        :cyc 
        inc %y 
      } 
    } 
    inc %i 
  } 
} 
alias amsg { 
  var %i 1 
  while %i <= $chan(0) { 
    if !$istok(%amsg,$chan(%i),32) { 
      msg $chan(%i) $1- 
    } 
    inc %i 
  } 
} 
alias identtara { 
  var %i 1 
  while %i <= $chan(0) { 
    if $me isop $chan(%i) || $me isop $chan(%i) { 
      var %y 1 
      while %y <= $nick($chan(%i),0) { 
        if $level($gettok($gettok($address($nick($chan(%i),%y),5),2,33),1,64)) == ident { mode $chan(%i) +b $ulist($nick($chan(%i),%y),badnick,1) | .kick $chan(%i) $nick($chan(%i),%y) 12Kanala 4Bad Identle12 girmek yasaktir.Lütfen Identinizi degisip tekrar giris yapiniz... } 
        inc %y 
      } 
    } 
    inc %i 
  } 
}

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  @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]: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 off