dialog kufr {
  title "Küfür Koruması [ NaTSuKa ]"
  size -1 -1 131 178
  option dbu
  edit "", 1, 6 11 61 11
  list 2, 6 22 61 50, size
  button "Ekle", 3, 9 74 23 9, flat
  button "Sil", 4, 39 74 23 9, flat
  check "Opları (@)", 5, 80 21 41 10, flat
  check "Voiceler (@)", 6, 80 10 42 10, flat
  button "Ekle", 8, 11 163 23 9, flat
  button "Sil", 9, 39 163 23 9, flat
  box "Küfür Listesi", 13, 3 2 68 86
  box "Muaf NickLer", 14, 3 90 68 86
  box "Muaf KanaLLar", 15, 73 90 56 86
  box "SeçiLenLeri Koru", 16, 73 2 56 33
  button "Sil", 10, 102 163 23 9, flat
  button "Ekle", 11, 77 163 23 9, flat
  box "işLemLer", 17, 73 35 56 53
  radio "Opersem Kline", 18, 78 45 47 10, flat
  radio "Opersem Kill", 19, 78 55 47 10, flat
  radio "Opsam Kick", 20, 78 65 47 10, flat
  check "Banla", 21, 78 75 27 10, flat
  list 7, 6 110 61 50, size
  edit "", 23, 6 99 61 11
  edit "", 12, 75 99 51 11
  list 24, 75 110 51 50, size
}
alias kufr { /dialog -m kufr kufr }
on *:dialog:kufr:init:*: {
  if ($isfile(a/kufur.txt) == $false) { write -c a/kufur.txt } | else { loadbuf -o $dname 2 a/kufur.txt }
  if ($isfile(a/muafnick.txt) == $false) { write -c a/muafnick.txt } | else { loadbuf -o $dname 7 a/muafnick.txt }
  if ($isfile(a/muafkanallar.txt) == $false) { write -c a/muafkanallar.txt } | else { loadbuf -o $dname 24 a/muafkanallar.txt }
  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:kufr: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 a/kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }
  if ($did == 4) { write -dl $+ $did(2).sel a/kufur.txt | did -d $dname 2 $did(2).sel } 
  if ($did == 8) { write a/muafnick.txt $did(23) | did -a $dname 7 $did(23) | did -r $dname 23 } 
  if ($did == 9) { write -dl $+ $did(7).sel a/muafnick.txt | did -d $dname 7 $did(7).sel } 
  if ($did == 11) { write a/muafkanallar.txt $did(12) | did -a $dname 24 $did(12) | did -r $dname 12 }
  if ($did == 10) { write -dl $+ $did(24).sel a/muafnick.txt | did -d $dname 24 $did(24).sel }
  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 ($nick isop #) && (%oplar == on) { return }
  if ($nick isvo #) && (%vlar == on) { return }
  korukufurden $1-
}
alias korukufurden {
  var %HR $strip($1-) , %_: $lines(a/kufur.txt)
  var %mn $strip($1-) , %_: $lines(a/muafnick.txt)
  var %mk $strip($1-) , %_: $lines(a/muafkanallar.txt)
  while (%_:) {
      if $read(a/kufur.txt,%_:) iswm %HR iswm %HR
      if $read(a/muafnick.txt,%_:) iswm %mn iswm %mn
      if $read(a/muafkanallar.txt,%_:) iswm %mk iswm %mk {
      if (%banla == on) { .mode $chan +b $wildsite }
      if (%klineat == on) { .kline $nick Lutfen kufur etmeyin }
      if (%killat == on) { .kill $nick Lutfen kufur etmeyin }
      if (%kickat == on) { .kick $chan $nick Lutfen kufur etmeyin }
      return
    }
    dec %_:
  }
}