dialog doz {
  title "Kanal Flood Koruması"
  size -1 -1 122 110
  option dbu
  box "Kanal Ekle/Sil", 1, 2 2 61 29
  edit "", 2, 3 10 58 9, autohs
  button "Ekle", 3, 3 20 28 9, flat
  button "Sil", 4, 33 20 28 9, flat
  box "Kanal Listesi", 5, 65 2 54 29
  list 6, 66 10 51 19, size vsbar
  box "Saniye ayarla", 7, 2 32 38 19
  edit "", 8, 3 40 15 9, autohs center
  button "Ayarla", 9, 19 40 19 9, flat
  box "Satır ayarla", 10, 41 32 38 19
  edit "", 11, 42 40 15 9, autohs center
  button "Ayarla", 12, 58 40 19 9, flat
  box "Açık/Kapalı", 13, 80 32 39 19
  radio "On", 14, 82 40 16 9
  radio "Off", 15, 101 40 17 9
  box "Ban şekli ayarla", 16, 2 52 48 19
  edit "", 17, 3 60 27 9, autohs center
  button "Ayarla", 18, 30 60 19 9, flat
  box "İşlevler", 19, 52 52 67 19
  check "Kick", 20, 55 60 19 9
  check "KBan", 21, 75 60 22 9
  check "Uyar", 22, 98 60 31 9
  box "Uyarı sayısı ayarla", 23, 65 73 54 19
  edit "", 24, 67 81 17 9, autohs center
  button "Ayarla", 25, 85 81 32 9, flat
  box "Kullanıcı modlarını da at", 26, 2 73 61 19
  check "+o", 27, 4 81 18 9
  check "+h", 28, 24 81 18 9
  check "+v", 29, 44 81 18 9
  button "Tamam", 30, 43 95 32 13, ok
}
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182s Room Flood Protection Dialog 
  echo 12 -a A Script0rs Inc. Production 
  set %bmask 4
  set %sec 2
  set %line 5
  set %fkban on
  echo -a 14,1(14,1¯15,1¯0,1¯0,1º  $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199   ),$chr(174),$chr(238),$chr(254),$chr(116),$chr(48)   ,$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯)  $+ $chr(153)
}
alias doz { dialog $iif($dialog(doz),-v,-mied) doz doz }

on *:dIALOG:doz:init:0:{
  $iif(%warn,did -c $dname 22,did -u $dname 22)
  $iif(!%warn,did -b $dname $+(24,$chr(44),25),did -e $dname $+(24,$chr(44),25))
  $iif(%rfpd,did -c $dname 14,did -c $dname 15)
  $iif(%fkick,did -c $dname 20,$iif(%fkban,did -c $dname 21,)) 
  if (%y.o) { did -c $dname 27 }
  if (%y.h) { did -c $dname 28 }
  if (%y.v) { did -c $dname 29 }
  did -b $dname 3,4
  did -a $dname 17 %bmask
  did -a $dname 24 %numwarn
  did -a $dname 8 %sec
  did -a $dname 11 %line
  didtok $dname 6 44 %rfloodchan
}
on *:dIALOG:doz:edit:*:{
  $iif($did(2).text,did -e $dname $+(3,$chr(44),4),did -b $dname $+(3,$chr(44),4))
  $iif($did(8).text,did -e $dname 9,did -b $dname 9)
  $iif(!$did(11).text,did -b $dname 12,did -e $dname 12)
  $iif(!$did(17).text,did -b $dname 18,did -e $dname 18)
}
on *:dIALOG:doz:sclick:*:{
  if ($did == 6) { did -e $dname 4 }
  $iif($did(22).state == 0,unset %warn,set %warn on)
  $iif($did(22).state == 1,did -e $dname $+(24,$chr(44),25),did -b $dname $+(24,$chr(44),25))
  if ($did == 14) { set %rfpd on }
  if ($did == 15) { unset %rfpd }
  if ($did == 20) { set %fkick on | unset %fkban | did -c $dname 20 | did -u $dname 21 }
  if ($did == 21) { set %fkban on | unset %fkick | did -c $dname 21 | did -u $dname 20 }
  $iif($did(27).state == 0,unset %y.o,set %y.o on) 
  $iif($did(28).state == 0,unset %y.h,set %y.h on)
  $iif($did(29).state == 0,unset %y.v,set %y.v on)
  if ($did == 25) {
    if ($did(24).text !isnum 1-5) { noop $input(Lütfen uyarı sayısını giriniz. 1-5,uwo,Hata!) | did -r $dname 24 }
    else { set %numwarn $did(24).text }
  }
  if ($did == 18) {
    if ($did(17).text !isnum 0-9) { noop $input(Lütfen kullanılacak ban  maskesi sayısını giriniz. 0-9,uwo,Hata!) | did -r $dname 17 }
    else { set %bmask $did(17).text }
  }
  if ($did == 3) {
    if (!$did(2).text || $left($did(2).text,1) != $chr(35) || $istok(%rfloodchan,$did(2).text,44)) { 
      noop $iif(!$did(2).text,$input(Kanal  girilmedi,uwo,Hata!),$iif($left($did(2).text,1) !=  $chr(35),$input(Lütfen kanal ismini giriniz: #kanaladı,uwo,Syntax  Hata!),$iif($istok(%rfloodchan,$did(2).text,44),$i  nput(Kanal zaten  mevcut,uwo,Hata!),)))
      did -r $dname 2
    }
    else { 
      set %rfloodchan $addtok(%rfloodchan,$did(2).text,44)
      did -r $dname 6,2
      didtok $dname 6 44 %rfloodchan
    }
  }
  if ($did == 4) { 
    if (!$did(2).text && !$did(6).seltext ||  $left($did(2).text,1) != $chr(35) && !$did(6).seltext ||  $did(2).text && !$did(6).seltext &&  !$istok(%rfloodchan,$did(2).text,44)) {
      noop $iif(!$did(2).text && !$did(6).seltext,$input(Girilen  ya da seçilen kanal yok,uwo,Hata!),$iif($left($did(2).text,1) !=  $chr(35) && !$did(6).seltext,$input(Lütfen kanal ismini giriniz:  #kanaladı,uwo,Syntax Hata!),$iif($did(2).text &&  !$did(6).seltext &&  !$istok(%rfloodchan,$did(2).text,44),$input(Kanal mevcut  değil,uwo,Hata!),)))
      did -r $dname 2 
    }
    elseif ($did(2).text && !$did(6).seltext && $istok(%rfloodchan,$did(2).text,44)) {
      set %rfloodchan $remtok(%rfloodchan,$did(2).text,1,44)
      did -r $dname 6,2
      didtok $dname 6 44 %rfloodchan
    }
    elseif ($did(6).seltext && !$did(2).text) {
      set %rfloodchan $remtok(%rfloodchan,$did(6).seltext,1,44)
      did -r $dname 6,2
      didtok $dname 6 44 %rfloodchan
    }
  }
  if ($did == 9) { 
    if ($did(8).text !isnum) { noop $input(Lütfen saniyeleri ayarlayın,uwo,Hata!) }
    else { set %sec $did(8).text }
  }
  if ($did == 12) { 
    if ($did(11).text !isnum) { noop $input(Satır sayısı giriniz,uwo,Hata!) }
    else { set %line $did(11).text }
  }
}
on @*:text:*:#: {
  if (%rfpd && $istok(%rfloodchan,$chan,44) &&  $nick(#,$nick,$+(r,$iif(%y.v,v,$iif(%y.h,h,$iif(%y  .o,o,)))))) { 
    inc -u $+ %sec $+(%,flood,.,$chan,.,$nick)
    if ($($+(%,flood,.,$chan,.,$nick),2) >= %line ) {
      if (%warn) {
        inc -u300 $+(%,warn,$chan,$nick)
        if ($($+(%,warn,$chan,$nick),2) <= %numwarn) { .notice $nick Lütfen kanalda flood yapmayın. }
        if ($($+(%,warn,$chan,$nick),2) > %numwarn) {
          $iif(%fkick,kick # $nick Kanalda flood yasak.,ban -ku600 # $nick %bmask Kanalda flood yasak.)
          unset $+(%,warn,$chan,$nick)
        }
      }
      else { $iif(%fkick,kick # $nick Kanalda flood yasak.,ban -ku600 # $nick %bmask Kanalda flood yasak.) }
    }
  }
}
on @*:notice:*:#: {
  if (%rfpd && $istok(%rfloodchan,$chan,44) &&  $nick(#,$nick,$+(r,$iif(%y.v,v,$iif(%y.h,h,$iif(%y  .o,o,)))))) { 
    inc -u $+ %sec $+(%,flood,.,$chan,.,$nick)
    if ($($+(%,flood,.,$chan,.,$nick),2) >= %line ) {
      if (%warn) {
        inc -u300 $+(%,warn,$chan,$nick)
        if ($($+(%,warn,$chan,$nick),2) <= %numwarn) { .notice $nick Lütfen kanalda flood yapmayın }
        if ($($+(%,warn,$chan,$nick),2) > %numwarn) {
          $iif(%fkick,kick # $nick Kanalda flood yasak.,ban -ku600 # $nick %bmask Kanalda flood yapmayın.)
          unset $+(%,warn,$chan,$nick)
        }
      }
      else { $iif(%fkick,kick # $nick Kanalda flood yasak.,ban -ku600 # $nick %bmask Kanalda flood yapmayın.) }
    }
  }
}
on @*:action:*:#: {
  if (%rfpd && $istok(%rfloodchan,$chan,44) &&  $nick(#,$nick,$+(r,$iif(%y.v,v,$iif(%y.h,h,$iif(%y  .o,o,)))))) { 
    inc -u $+ %sec $+(%,flood,.,$chan,.,$nick)
    if ($($+(%,flood,.,$chan,.,$nick),2) >= %line ) {
      if (%warn) {
        inc -u300 $+(%,warn,$chan,$nick)
        if ($($+(%,warn,$chan,$nick),2) <= %numwarn) { .notice $nick Lütfen kanalda flood yapmayınız. }
        if ($($+(%,warn,$chan,$nick),2) > %numwarn) {
          $iif(%fkick,kick # $nick Kanalda flood yasak.,ban -ku600 # $nick %bmask Kanalda flood yasak.)
          unset $+(%,warn,$chan,$nick)
        }
      }
      else { $iif(%fkick,kick # $nick Kanalda flood yasak.,ban -ku600 # $nick %bmask Kanalda flood yasak!.) }
    }
  }
}

menu * {
  ® Kanal Flood Koruma:/doz
}