alias -l _buser { .guserbrsident $1 3 }
alias -l _rbuser { .ruser brsident $1 3 }
alias -l _luser { dialog -m brsidentkoru brsidentkoru }
alias -l _blist {
  did -r brsidentkoru 4
  var %_btotal = $ulist(*,brsident,0) , %_b = 0
  while (%_b < %_btotal) {
    inc %_b
    did -a brsidentkoru 4 $ulist(*,brsident,%_b)
  }
}
alias kotuident { dialog -m brsidentkoru brsidentkoru }
dialog brsidentkoru {
  title "Kötü ident Ekleme"
  size -1 -1 180 172
  option dbu
  tab "Kötü ident Ekle", 1 , 4 0 171 166
  text "Kötü ident Eklemek İçin identi Yazınız ve Ekle Butonuna Basınız. Silmek için Listeden identi Seçip Sil Butonuna Basınız.", 5, 14 25 151 15, tab 1 center
  text "identi Yazınız :", 6, 14 45 40 8, tab 1
  combo 4, 13 53 85 92, tab 1 size
  box "", 8, 9 39 162 5, tab 1
  edit "", 7, 13 145 154 10,  read autohs tab 1
  button "Yazdığım identi Ekle", 9, 102 53 64 20, tab 1 flat
  button "Seçtiğim identi Sil", 10, 102 79 64 20, tab 1 flat
  box "KÖTÜ NİCK EKLEME :", 12, 9 16 162 146, tab 1
  button "MENÜYÜ KAPAT", 11, 101 127 64 17, ok tab 1
  icon 29, 124 102 19 18,  6.ico 
}

on *:dialog:brsidentkoru:init:*: {
  _blist
}

on *:dialog:brsidentkoru:sclick:*: {
  if ($did == 9) {
    if ($did(4).text != $null && $level($did(4).text) != brsident) {
      var %_badd = $did(4).text
      .aident brsident %_badd
      _blist
      did -o $dident 7 1 %_badd Kötü ident Listesine Alındı...
    }
  }
  if ($did == 10) {
    if ($did(4).text != $null && $level($did(4).text) == brsident) {
      var %_brem = $did(4).text
      .rident brsident %_brem
      _blist
      did -o $dident 7 1 %_brem Kötü ident Listesinden Silindi...
    }    
  }
}

on @brsident:join:#: { 
  var %ident $gettok($gettok($address($ident,5),2,33),1,64)
  if ($read(ident.txt, w, %ident)) { 
    .ban # $ident 5 
    .kline  $ident dısarı 
  }
}