on 1:start:{
  hmake badnick
  hload badnick badnick.db
}
dialog bad_s {
  title "Badnick"
  size -1 -1 80 64
  option dbu
  edit "", 1, 2 1 50 10
  button "EKLE", 2, 53 2 25 8
  button "Liste", 6, 53 23 25 8
  edit "", 3, 2 12 50 10
  button "SiL", 4, 53 13 25 8
  button "Kapat", 5, 2 43 77 10, ok
}
on *:dialog:bad_s:*:*: {
  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.
    }
    if $did == 6 {
      var %i = 1
      while %i <= $hget(badnick,0).item {
        echo -a %i $+ -) $hget(badnick,%i).data
        inc %i
      }
    }
    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 *** $+(4,%;,) Veritabanından silindi.
      }
      else { .echo $colour(info) -a $timestamp *** $+(4,%;,) Veritabanında bulunamadı. }
    }
  }
}
on ^*:join:#:{
  if ($me ishop $chan) {
    if !$istok(#muaf1 #muaf2 #muaf3,$chan,32) {
      if !$istok(nick1 nick2 nick3,$nick,32) {
        if !$regex($gettok($address($nick,1),2,64),/(admin|oper|helper|global|yardimci|aop|op|ircop|global|sop|founder)/i) {
          if $hfind(badnick,$nick,1,W).data {
            .mode # +b $nick 
            .kick # $nick nick değişip tekrar giriniz
          }
        }
      }
    }
  }
}
menu * {
  -
  + badnick koruması:/dialog -m bad_s bad_s
  - 
}