alias mdx { return $dll(dll/mdx.dll,$1,$2-) }
alias mdxdll { return $dll(dll/mdx.dll,$1,$2-) }
alias rebar { dll dll/rebar.dll $$1- }
alias bars { return dll/bars.mdx }
alias ctl { return dll/ctl_gen.mdx } 
alias views { return dll/views.mdx }
dialog -m _prots.dialog _prots.dialog
dialog _prots.dialog {
  title "Mirc Script Security System "
  size -1 -1 383 226
  option dbu
  check "Tekrar Koruması", 5, 16 98 50 10
  check "Flood Koruması", 6, 16 108 50 10
  check "Caps Koruması", 7, 116 69 50 10
  check "Uzun Yazı Koruması", 8, 116 79 60 10
  check "Kontrol Kodu Koruması", 9, 116 89 67 10
  check "Badnick Koruması", 2, 16 68 54 10
  check "Küfür Koruması", 3, 16 78 50 10
  check "Reklam Koruması", 4, 16 88 54 10
  box "Kanal Korumaları", 1, 11 61 202 146
  button "Ayarla", 12, 82 68 24 10
  button "Ayarla", 13, 82 78 24 10
  button "Ayarla", 14, 82 88 24 10
  button "Ayarla", 15, 82 98 24 10
  button "Ayarla", 16, 82 108 24 10
  button "Ayarla", 17, 182 69 24 10
  button "Ayarla", 18, 182 79 24 10
  button "Ayarla", 19, 182 89 24 10
  box "Kişisel Korumalar", 22, 215 61 157 146
  check "Küfür Koruması", 23, 227 70 50 10
  check "Reklam Koruması", 24, 227 80 53 10
  check "Fullname Koruması", 10, 116 99 55 10
  check "Ident Koruması", 11, 116 109 50 10
  button "Ayarla", 20, 182 99 24 10
  button "Ayarla", 21, 182 109 24 10
  check "Flood Koruması", 25, 227 90 50 10
  check "Caps Koruması", 26, 227 100 50 10
  check "Uzun Yazı Koruması", 27, 16 120 57 10
  button "Ayarla", 28, 285 70 24 10
  button "Ayarla", 29, 285 80 24 10
  button "Ayarla", 30, 285 90 24 10
  button "Ayarla", 31, 285 100 24 10
  button "Ayarla", 32, 82 118 24 10
  button "EKLE", 35, 173 141 24 10
  button "SiL", 36, 173 157 24 10
  button "T.SiL", 38, 173 173 24 10
  box "Muaf Kanallar", 37, 16 131 191 66
  list 34, 20 154 149 37, size hsbar vsbar
  edit "", 33, 21 141 147 10
  box "Muaf Nickler", 39, 219 130 143 58
  button "EKLE", 42, 335 139 24 10
  edit "", 40, 228 139 105 10
  list 41, 228 150 106 37, size hsbar vsbar
  button "T.SiL", 44, 335 169 24 10
  button "SiL", 43, 335 156 24 10
  check "Clone Koruması", 45, 116 119 50 10
  button "Ayarla", 46, 182 119 24 10
  button "Kaydet / Kapat", 49, 102 211 183 11, ok
  icon 47, 14 4 351 53, Resim/koruma.jpg, 0, noborder
}
on *:dialog:_prots.dialog:init:0: {
  if $devent == init {
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    mdx SetBorderStyle 1
    mdx SetDialog [ $dname ] bgcolor $rgb(237,248,252)
    mdx SetDialog bgcolor $rgb(255,255,255)
    mdx SetControlMDX $dname 1 toolbar wrap arrows nodivider noheader > $bars
    mdx SetControlMDX $dname 1,3,4 Progressbar smooth > $ctl
    mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider > $bars
    mdx SetColor 1 background [ $rgb(237,248,252) ] 
    mdx SetColor 2,3 textbg [ $rgb(237,248,252) ]
    mdx SetColor 22,23,24,10,11,37,39,45,5,6,7,8,9,2,3,4,25,26,27 background [ $rgb(237,248,252) ] 
    mdx SetColor $dname 27,23,24,10,11,37 text $rgb(237,248,252)
    mdx SetColor $dname 22,23,24,10,11,37,39,45,5,6,7,8,9,2,3,4,25,26,27 text $rgb(237,248,252)
    mdx SetFont $dname 22,23,24,10,11,37,39,45,5,6,7,8,9,2,3,4,25,26,27 Tahoma 
    mdx SetFont $dname 22,23,24,10,11,37,39,45,5,6,7,8,9,2,3,4,25,26,27 12 1300 Tahoma

  }
}
on *:start: { 
  if !$isfile(muafkanal.db) { .write muafkanal.db } 
  if !$isfile(muafnick.db) { .write muafnick.db } 
  if $isfile(badnick.db) { hmake badnick 100 | hload -i badnick badnick.db } | else { hmake badnick 100 | hsave -i badnick badnick.db } 
  if $isfile(kufur.db) { hmake kufur 100 | hload -i kufur kufur.db } | else { hmake kufur 100 | hsave -i kufur kufur.db } 
  if $isfile(reklam.db) { hmake reklam 100 | hload -i reklam reklam.db } | else { hmake reklam 100 | hsave -i reklam reklam.db } 
  if $isfile(fullname.db) { hmake fullname 100 | hload -i fullname fullname.db } | else { hmake fullname 100 | hsave -i fullname fullname.db } 
  if $isfile(badident.db) { hmake badident 100 | hload -i badident badident.db } | else { hmake badident 100 | hsave -i badident badident.db } 
}
on *:dialog:_prots.dialog:*:*: {
  if $devent == SCLICK {
    if $did == 2 && $did(2).state == 1 { set %badkor on | did -e $dname 12 }
    if $did == 2 && $did(2).state == 0 { set %badkor off | did -b $dname 12 }
    if $did == 3 && $did(3).state == 1 { set %kkufurkor on | did -e $dname 13 }
    if $did == 3 && $did(3).state == 0 { set %kkufurkor off | did -b $dname 13 }
    if $did == 4 && $did(4).state == 1 { set %krekkor on | did -e $dname 14 }
    if $did == 4 && $did(4).state == 0 { set %krekkor off | did -b $dname 14 }
    if $did == 5 && $did(5).state == 1 { set %tekkor on | did -e $dname 15 }
    if $did == 5 && $did(5).state == 0 { set %tekkor off | did -b $dname 15 }
    if $did == 6 && $did(6).state == 1 { set %fldkor on | did -e $dname 16 }
    if $did == 6 && $did(6).state == 0 { set %fldkor off | did -b $dname 16 }
    if $did == 7 && $did(7).state == 1 { set %capskor on | did -e $dname 17 }
    if $did == 7 && $did(7).state == 0 { set %capskor off | did -b $dname 17 }
    if $did == 8 && $did(8).state == 1 { set %lwkor on | did -e $dname 18 }
    if $did == 8 && $did(8).state == 0 { set %lwkor off | did -b $dname 18 }
    if $did == 9 && $did(9).state == 1 { set %ctrlkor on | did -e $dname 19 }
    if $did == 9 && $did(9).state == 0 { set %ctrlkor off | did -b $dname 19 }
    if $did == 10 && $did(10).state == 1 { set %fnamekor on | did -e $dname 20 }
    if $did == 10 && $did(10).state == 0 { set %fnamekor off | did -b $dname 20 }
    if $did == 11 && $did(11).state == 1 { set %identkor on | did -e $dname 21 }
    if $did == 11 && $did(11).state == 0 { set %identkor off | did -b $dname 21 }
    if $did == 45 && $did(45).state == 1 { set %clnkor on | did -e $dname 46 }
    if $did == 45 && $did(45).state == 0 { set %clnkor off | did -b $dname 46 }
    if $did == 23 && $did(23).state == 1 { set %okufurkor on | did -e $dname 28 }
    if $did == 23 && $did(23).state == 0 { set %okufurkor off | did -b $dname 28 }
    if $did == 24 && $did(24).state == 1 { set %orekkor on | did -e $dname 29 }
    if $did == 24 && $did(24).state == 0 { set %orekkor off | did -b $dname 29 }
    if $did == 25 && $did(25).state == 1 { set %ofldkor on | did -e $dname 30 }
    if $did == 25 && $did(25).state == 0 { set %ofldkor off | did -b $dname 30 }
    if $did == 26 && $did(26).state == 1 { set %ocapskor on | did -e $dname 31 }
    if $did == 26 && $did(26).state == 0 { set %ocapskor off | did -b $dname 31 }
    if $did == 27 && $did(27).state == 1 { set %olwkor on | did -e $dname 32 }
    if $did == 27 && $did(27).state == 0 { set %olwkor off | did -b $dname 32 }
    if $did == 12 { dialog -m badekle badekle }
    if $did == 13 { dialog -m kufekle kufekle }
    if $did == 14 { dialog -m rekekle rekekle }
    if $did == 15 { dialog -m tekrar tekrar }
    if $did == 16 { dialog -m flood flood }
    if $did == 17 { dialog -m caps caps }
    if $did == 18 { dialog -m lwd lwd }
    if $did == 20 { dialog -m fnameekle fnameekle }
    if $did == 21 { dialog -m badidentekle badidentekle }
    if $did == 46 { dialog -m cln cln }
    if $did == 28 { dialog -m kufekle kufekle }
    if $did == 29 { dialog -m rekekle rekekle }
    if $did == 30 { dialog -m flood flood }
    if $did == 31 { dialog -m caps caps }
    if $did == 32 { dialog -m lwd lwd }
    if $did == 35 { 
      if $did(33).text == $null { $iif($input(Herhangi bir kanal girmediniz.,ohud,Hata) == $true,halt,return) }
      else { 
        var %muafk = $did(33).text 
        did -a $dname 34 %muafk
        write muafkanal.db %muafk
        did -r $dname 33
      }
    }
    if $did == 36 {
      var %; = $did($dname,34).sel,%/ = $did($dname,34).seltext
      if !%; { $iif($input(Listeden bir kanal seçmelisiniz.,ohud,Hata) == $true,halt,return) }  
      else {
        .write -ds $+ %/ muafkanal.db
        did -d $dname 34 %;
      }
    }
    if $did == 38 {
      did -r $dname 34
      .write -c muafkanal.db
    }
  }
  if $did == 42 { 
    if $did(40).text == $null { $iif($input(Herhangi bir nick girmediniz.,ohud,Hata) == $true,halt,return) }
    else { 
      var %muafn = $did(40).text 
      did -a $dname 41 %muafn
      write muafnick.db %muafn
      did -r $dname 40
    }
  }
  if $did == 43 {
    var %; = $did($dname,41).sel,%/ = $did($dname,41).seltext
    if !%; { $iif($input(Listeden bir nick seçmelisiniz.,ohud,Hata) == $true,halt,return) }  
    else {
      .write -ds $+ %/ muafnick.db
      did -d $dname 41 %;
    }
  }
  if $did == 44 {
    did -r $dname 41
    .write -c muafnick.db
  }
  if $devent == INIT {
    if %badkor == on { did -c $dname 2 } | else { did -b $dname 12 }
    if %kkufurkor == on { did -c $dname 3 } | else { did -b $dname 13 }
    if %krekkor == on { did -c $dname 4 } | else { did -b $dname 14 }
    if %tekkor == on { did -c $dname 5 } | else { did -b $dname 15 }
    if %fldkor == on { did -c $dname 6 } | else { did -b $dname 16 }
    if %capskor == on { did -c $dname 7 } | else { did -b $dname 17 }
    if %lwkor == on { did -c $dname 8 } | else { did -b $dname 18 }
    if %ctrlkor == on { did -c $dname 9 } | else { did -b $dname 19 }
    if %fnamekor == on { did -c $dname 10 } | else { did -b $dname 20 }
    if %identkor == on { did -c $dname 11 } | else { did -b $dname 21 }
    if %clnkor == on { did -c $dname 45 } | else { did -b $dname 46 }
    if %okufurkor == on { did -c $dname 23 } | else { did -b $dname 28 }
    if %orekkor == on { did -c $dname 24 } | else { did -b $dname 29 }
    if %ofldkor == on { did -c $dname 25 } | else { did -b $dname 30 }
    if %ocapskor == on { did -c $dname 26 } | else { did -b $dname 31 }
    if %olwkor == on { did -c $dname 27 } | else { did -b $dname 32 }
    filter -fo muafkanal.db $dname 34 *
    filter -fo muafnick.db $dname 41 *
  }
}
alias prots { dialog -m _prots.dialog _prots.dialog }
on !*:JOIN:#: {
  if $read(muafkanal.db,w,#) || $read(muafnick.db,w,$nick) { halt }
  if ($me isop #) || o isin $usermode {
    var %nick = $nick,%ident = $remove($ial($nick).user,~)
    ;BADNICK
    if $hfind(badnick,%nick,1,W).data && %badkor == on {
      .mode # +b %nick
      .kick # %nick Badnick!
    }
    ;BADIDENT
    if $hfind(badident,%ident,1,W).data && %identkor == on {
      .mode # +b %nick
      .kick # %nick BadIdent!
    }
    ;CLONE
    if ($ialchan($wildsite,#,0) > %clonesay) && %clonekor == on {
      var %' = $ifmatch, %. | while %' {
        var %7 = $gettok($ialchan($wildsite,#,%'),1,33)
      if (%7 !isop #) { %. = $addtok(%.,%7,44) | dec %' } | else { return } }
      if %. { mode # +b $wildsite | var %~ = $numtok(%.,44) | while %~ { kick # $gettok(%.,%~,44) Clone! $+([,$calc(%clonesay + 1),]) | dec %~ } }
    }
    ;FULLNAME
    if %fnamekor == on { set %fnick $nick | set %fchan # | .enable #fname | who $nick }
  }
}
on ^*:TEXT:*:?: {
  if !$read(muafnick.db,w,$nick) {
    ;KUFUR
    if $hfind(kufur,$1-,1,W).data && %okufurkor == on {
      .echo $colour(info) -a $timestamp *** $qt($nick) nickli kişi size özelden küfür etti.Mesaj gösterilmedi.
      .closemsg $nick
      halt
    }
    ;REKLAM
    if $hfind(reklam,$1-,1,W).data && %orekkor == on {
      set %lreklam $1-
      var %w $iif($window($nick),$nick,-a)
      linesep %w
      .echo $colour(info) -a $timestamp *** $qt($nick) nickli kişiden gelen mesaj reklam içerikli olduğu için gösterilmedi.
      .echo $colour(info) -a $timestamp *** Mesajı-görmek-için-buraya-çift-tıklayın.
      linesep %w
      .closemsg $nick
      halt
    }
    ;FLOOD
    .hinc $+(-mu,%flds) flood $+(fld,.,$nick) 1
    if (%ofldkor == on) && $hget(flood,$+(fld,.,$nick)) == %fldt {
      .echo $colour(info) -a $timestamp *** $qt($nick) nickli kişi size özelden flood yapıyor.Mesaj gösterilmedi.
      .hdel -s flood $+(fld,.,$nick)) 
      .closemsg $nick
      halt
    } 
    ;UZUNYAZI
    if (%olwkor == on) {
      if ($len($strip($1-)) >= %lwd) {
        hinc -mu20 long $+(long,.,$nick) 1
        if $hget(long,$+(long,.,$nick)) == 1 { 
          .echo $colour(info) -a $timestamp *** $qt($nick) nickli kişi size özelden çok uzun yazı yazdı.Mesaj gösterilmedi.
          .hdel -s long $+(long,.,$nick)) 
          .closemsg $nick
        }
      }
    }
    ;CAPS
    if (%ocapskor == on) {
      var %e = $remove($strip($1-),$chr(32))
      if ($calc($regex(%e,/[A-ZÄÖÜĞÇİ]/g)/$len(%e) * 100) >= %capsd) {
        hinc -mu30 caps $+(caps,.,$nick) 1
        if $hget(caps,$+(caps,.,$nick)) == 1 { 
          .echo $colour(info) -a $timestamp *** $qt($nick) nickli kişi size özelden çok fazla büyük harf içeren mesaj gönderdi.Mesaj gösterilmedi.
          .hdel -s caps $+(caps,.,$nick)) 
          .closemsg $nick
        }
      }
    }
  }
  on *:TEXT:*:#: {
    if $read(muafkanal.db,w,#) || $read(muafnick.db,w,$nick) { halt }
    if ($me isop #) || o isin $usermode {
      ;TEKRAR
      .hinc $+(-mu,%kteks) repeat $+($nick,.,$1-) 1
      if (%ktekkor == on) && $hget(repeat,$+($nick,.,$1-)) == %ktekt {
        mode # +b $nick
        kick # $nick tekrar! %kteks sn, $+ %ktekt aynı yazı
        .hdel -s repeat $+($nick,.,$1-)) 
        halt
      } 
    }
  }
  ;FLOOD
  .hinc $+(-mu,%flds) flood $+($chan,.,$nick) 1
  if (%fldkor == on) && $hget(flood,$+($chan,.,$nick)) == %fldt {
    mode # +b $nick
    kick # $nick flood! %flds sn, $+ %fldt
    .hdel -s flood $+($chan,.,$nick)) 
    halt
  } 
  ;CAPS
  if (%capskor == on) {
    var %e = $remove($strip($1-),$chr(32))
    if ($calc($regex(%e,/[A-ZÄÖÜĞÇİ]/g)/$len(%e) * 100) >= %capsd) {
      hinc -mu30 caps $+($chan,.,$nick) 1
      if $hget(caps,$+($chan,.,$nick)) == 1 { .msg # $+(,$nick,) UYARI1 }
      if $hget(caps,$+($chan,.,$nick)) == 2 { .msg # $+(,$nick,) UYARI2 }
      if $hget(caps,$+($chan,.,$nick)) == 3 { 
        mode # +b $nick
        kick # $nick Çok fazla büyük harf kullandınız!
        .hdel -s caps $+($chan,.,$nick)) 
      }
    }
  }
  ;UZUNYAZI
  if (%lwkor == on) {
    if ($len($strip($1-)) >= %lwd) {
      hinc -mu20 long $+($chan,.,$nick) 1
      if $hget(long,$+($chan,.,$nick)) == 1 { .msg # $+(,$nick,) UYARI1 }
      if $hget(long,$+($chan,.,$nick)) == 2 { .msg # $+(,$nick,) UYARI2 }
      if $hget(long,$+($chan,.,$nick)) == 3 { 
        mode # +b $nick
        kick # $nick Çok fazla karakter kullandınız!
        .hdel -s long $+($chan,.,$nick)) 
      }
    }
  }
  ;CTRL
  if (%ctrlkor == on) {
    if ** iswm $1- || ** iswm $1- || ** iswm $1- {
      hinc -mu60 ctrl $+($chan,.,$nick) 1
      if $hget(ctrl,$+($chan,.,$nick)) == 1 { .msg # $nick UYARI1 }
      if $hget(ctrl,$+($chan,.,$nick)) == 2 { .msg # $nick UYARI2 }
      if $hget(ctrl,$+($chan,.,$nick)) == 3 { 
        mode # +b $nick
        kick # $nick CTRL yasak!
        .hdel -s ctrl $+($chan,.,$nick)) 
      }
    }
  }
  ;KUFUR
  if $hfind(kufur,$1-,1,W).data && %kkufurkor == on {
    .mode # +b $nick
    .kick # $nick Küfür!
  }
  ;REKLAM
  if $hfind(reklam,$1-,1,W).data && %krekkor == on {
    .mode # +b $nick
    .kick # $nick Reklam!
  }
}
on ^*:HOTLINK:*:*: {
  if Mesajı-görmek-için-buraya-çift-tıklayın.- isin $1- {
    return
  }
  else { halt }
}
on *:HOTLINK:*:*: {
  if Mesajı-görmek-için-buraya-çift-tıklayın. isin $1- {
    linesep -a
    .echo $colour(info) -a $timestamp *** 4Engellenen mesaj:2 %lreklam
    linesep -a
  }
}
on *:NICK: {
  if $hfind(badnick,$newnick,1,W).data {
    var %i 1
    while %i <= $comchan($newnick,0) {
      if $me isop $comchan($newnick,%i) {
        mode $comchan($newnick,%i) +b $newnick
        kick $comchan($newnick,%i) $newnick badnick!
      }
      inc %i
    }
  }
}
#fname on
raw 352:*:{
  var %fname = $9
  if $hfind(fullname,%fname,1,W).data {
    .mode %fchan +b +fnick
    .kick %fcan %fnick BadFullname!
    .disable #fname
    .unset %fchan %fnick
  }
}
#fname end
alias ekle {
  if $1 == kufur {
    hadd -m kufur $r(1000,999999) $2
    hsave kufur kufur.db
  }
  elseif $1 == reklam {
    hadd -m reklam $r(1000,999999) $2
    hsave reklam reklam.db
  }
  elseif $1 == badnick {
    hadd -m badnick $r(1000,999999) $2
    hsave badnick badnick.db
  }
}
dialog badekle {
  title "Badnick"
  size -1 -1 80 34
  option dbu
  edit "", 1, 2 1 50 10
  button "EKLE", 2, 53 2 25 8
  edit "", 3, 2 12 50 10
  button "SiL", 4, 53 13 25 8
  button "Kapat", 5, 2 23 77 10, ok
}
on *:dialog:badekle:*:*: {
  if $devent == SCLICK {
    if $did == 2 {
      hadd -m badnick $r(1000,999999) $did(1).text
      hsave badnick badnick.db
      .echo $colour(info) -a $timestamp *** $+(7,$did(1).text,) veritabanına başarıyla eklendi.
      dialog -x badekle
    }
    if $did == 4 {
      var %; $did(3).text
      if $hfind(badnick,%;,1,W).data {
        hdel badnick $ifmatch
        hsave badnick badnick.db
        .echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanından başarıyla silindi.
        dialog -x badekle
      }
      else { .echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanında bulunamadı. }
    }
  }
}
dialog kufekle {
  title "Kufur"
  size -1 -1 80 34
  option dbu
  edit "", 1, 2 1 50 10
  button "EKLE", 2, 53 2 25 8
  edit "", 3, 2 12 50 10
  button "SiL", 4, 53 13 25 8
  button "Kapat", 5, 2 23 77 10, ok
}
on *:dialog:kufekle:*:*: {
  if $devent == SCLICK {
    if $did == 2 {
      hadd -m kufur $r(1000,999999) $did(1).text
      hsave kufur kufur.db
      .echo $colour(info) -a $timestamp *** $+(7,$did(1).text,) veritabanına başarıyla eklendi.
      dialog -x kufekle
    }
    if $did == 4 {
      var %; $did(3).text
      if $hfind(kufur,%;,1,W).data {
        hdel kufur $ifmatch
        hsave kufur kufur.db
        .echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanından başarıyla silindi.
        dialog -x kufekle
      }
      else { .echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanında bulunamadı. }
    }
  }
}
dialog rekekle {
  title "reklam"
  size -1 -1 80 34
  option dbu
  edit "", 1, 2 1 50 10
  button "EKLE", 2, 53 2 25 8
  edit "", 3, 2 12 50 10
  button "SiL", 4, 53 13 25 8
  button "Kapat", 5, 2 23 77 10, ok
}
on *:dialog:rekekle:*:*: {
  if $devent == SCLICK {
    if $did == 2 {
      hadd -m reklam $r(1000,999999) $did(1).text
      hsave reklam reklam.db
      .echo $colour(info) -a $timestamp *** $+(7,$did(1).text,) veritabanına başarıyla eklendi.
      dialog -x rekekle
    }
    if $did == 4 {
      var %; $did(3).text
      if $hfind(reklam,%;,1,W).data {
        hdel reklam $ifmatch
        hsave reklam reklam.db
        .echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanından başarıyla silindi.
        dialog -x rekekle
      }
      else { .echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanında bulunamadı. }
    }
  }
}
dialog tekrar {
  title "x"
  size -1 -1 54 40
  option dbu
  edit "", 1, 3 2 15 11
  text "saniyede", 2, 20 4 25 8
  edit "", 3, 3 16 15 11
  text "tekrar olursa", 4, 20 18 34 8
  button "Kaydet", 5, 2 28 50 10
}
on *:dialog:tekrar:*:*: {
  if $devent == INIT {
    did -a $dname 1 %kteks
    did -a $dname 3 %ktekt
  }
  if $devent == SCLICK {
    if $did == 5 {
      .set %kteks $did(1).text
      .set %ktekt $did(3).text
      dialog -x tekrar
    }
  }
}
dialog flood {
  title "x"
  size -1 -1 54 40
  option dbu
  edit "", 1, 3 2 15 11
  text "saniyede", 2, 20 4 25 8
  edit "", 3, 3 16 15 11
  text "flood olursa", 4, 20 18 34 8
  button "Kaydet", 5, 2 28 50 10
}
on *:dialog:flood:*:*: {
  if $devent == INIT {
    did -a $dname 1 %flds
    did -a $dname 3 %fldt
  }
  if $devent == SCLICK {
    if $did == 5 {
      .set %flds $did(1).text
      .set %fldt $did(3).text
      dialog -x flood
    }
  }
}
dialog caps {
  title "New Project"
  size -1 -1 54 23
  option dbu
  edit "", 1, 13 8 15 11
  text "%", 2, 4 9 8 8
  box "Caps Oran", 3, 1 0 52 22
  button "Kaydet", 4, 29 7 21 12
}
on *:dialog:caps:*:*: {
  if $devent == INIT {
    did -a $dname 1 %capsd
  }
  if $devent == SCLICK {
    if $did == 4 {
      .set %capsd $did(1).text
      dialog -x caps
    }
  }
}
dialog lwd {
  title "x"
  size -1 -1 60 33
  option dbu
  edit "", 1, 3 8 20 10
  text "karakterden fazla yazılırsa", 2, 25 7 31 22
  box "Uzunuk", 3, 1 0 58 32
  button "Kaydet", 4, 2 18 22 12
}
on *:dialog:lwd:*:*: {
  if $devent == INIT {
    did -a $dname 1 %lwd
  }
  if $devent == SCLICK {
    if $did == 4 {
      .set %lwd $did(1).text
      dialog -x lwd
    }
  }
}
dialog fnameekle {
  title "fullname"
  size -1 -1 80 34
  option dbu
  edit "", 1, 2 1 50 10
  button "EKLE", 2, 53 2 25 8
  edit "", 3, 2 12 50 10
  button "SiL", 4, 53 13 25 8
  button "Kapat", 5, 2 23 77 10, ok
}
on *:dialog:fnameekle:*:*: {
  if $devent == SCLICK {
    if $did == 2 {
      hadd -m fullname $r(1000,999999) $did(1).text
      hsave fullname fullname.db
      .echo $colour(info) -a $timestamp *** $+(7,$did(1).text,) veritabanına başarıyla eklendi.
      dialog -x fnameekle
    }
    if $did == 4 {
      var %; $did(3).text
      if $hfind(fullname,%;,1,W).data {
        hdel fullname $ifmatch
        hsave fullname fullname.db
        .echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanından başarıyla silindi.
        dialog -x fnameekle
      }
      else { .echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanında bulunamadı. }
    }
  }
}
dialog badidentekle {
  title "badident"
  size -1 -1 80 34
  option dbu
  edit "", 1, 2 1 50 10
  button "EKLE", 2, 53 2 25 8
  edit "", 3, 2 12 50 10
  button "SiL", 4, 53 13 25 8
  button "Kapat", 5, 2 23 77 10, ok
}
on *:dialog:badidentekle:*:*: {
  if $devent == SCLICK {
    if $did == 2 {
      hadd -m badident $r(1000,999999) $did(1).text
      hsave badident badident.db
      .echo $colour(info) -a $timestamp *** $+(7,$did(1).text,) veritabanına başarıyla eklendi.
      dialog -x badidentekle
    }
    if $did == 4 {
      var %; $did(3).text
      if $hfind(badident,%;,1,W).data {
        hdel badident $ifmatch
        hsave badident badident.db
        .echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanından başarıyla silindi.
        dialog -x badidentekle
      }
      else { .echo $colour(info) -a $timestamp *** $+(7,%;,) veritabanında bulunamadı. }
    }
  }
}
dialog cln {
  title "x"
  size -1 -1 54 33
  option dbu
  edit "", 1, 3 8 20 10
  text "clone girişinde atılsın", 2, 25 7 26 22
  box "Clone", 3, 1 0 52 32
  button "Kaydet", 4, 2 18 20 12
}
on *:dialog:cln:*:*: {
  if $devent == INIT {
    did -a $dname 1 %clonesay
  }
  if $devent == SCLICK {
    if $did == 4 {
      .set %clonesay $did(1).text
      dialog -x cln
    }
  }
}