if !$3 || *#* !iswm $3

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
  - 
}

#?*

$regex($3,^#([a-zA-Z0-9ğĞçÇiİşŞüÜöÖ]+$))

$regex($3,^#.+)
$regex($3,^#\S+$)
geriye  dönük referans aticaksa :p
$regex($3,^(#.+))

on *:ban:#: {   if $nick == $me { auser badnick $bnick | echo -a $bnick badnick liste eklendi. } }

on *:ban:#: {
  auser badnick $bnick | echo -a $bnick badnick liste eklendi. 
}

on *:ban:#: { 
  if $nick == $me || $nick == ahmet {
    auser badnick $bnick | echo -a $bnick badnick liste eklendi.
  }
}

#shilisten on
on @*:join:#: {
  if $level($nick $+ !*@*) == badnick {
    banall $nick $ulist($nick,badnick,1)
    kickall $nick KanaLda Girişin Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.
  }
}
on *:part:#: {
  if $level($nick $+ !*@*) == badnick {
    mode # +b $ulist($nick,badnick,1)
    kick # $nick KanaLdan Çıkışın Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.
  }
}
on *:nick: {
  if $level($newnick $+ !*@*) == badnick {
    banall $newnick $ulist($newnick,badnick,1)
    kickall $newnick New-Nick ‘iniz ßad oLarak Tespit ediLdi Nick değiştirerek Tekrar Giriniz ! ßy $me
  }
}

#shilisten end

alias banall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { mode $comchan($1,%i) +b $2- }
    inc %i
  }
}
alias kickall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }
    inc %i
  }
}
menu * {
  -
  + Badnick
  .+ ekLe:/auser badnick $$1
  .+ çıkart:/ruser badnick $$1
  .+ ListeLe:/ulist badnick
  + Korumayı
  .+ Aç:/enable #shilisten | /echo -at biLgi; Badnick Koruması AçıLdı..
  .+ Kapat:/disable #shilisten | /echo -at biLgi; Badnick Koruması kapatıLdı..
  - 
}
on *:input:*:{
  if $1 == !badtara { tara $chan | msg $chan $chan kanalı taranıyor }
}
on *:ban:#: { 
  if $nick == $me || $nick == ahmet {
    auser badnick $bnick | echo -a $bnick badnick liste eklendi. ban kullanan nick $nick
  }
}
alias tara {
  var %t = 1,
  while (%t <= $nick($1,0)) {
    var %badnick = $nick($1,%t)
    if ($level($nick($1,%t)) == badnick) { mode $1 +b $ulist(%badnick) | kick $1 %badnick  Nick Uygunsuz }
    inc %t 1
  }
}