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 *Sex* 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 *Sexigenc* 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
  }
}