alias -l _buser { .guser bad $1 3 }
alias -l _rbuser { .ruser bad $1 3 }
alias -l _luser { dialog -m _bad _bad }
alias -l _blist {
  did -r _bad 11
  var %_btotal = $ulist(*,bad,0) , %_b = 0
  while (%_b < %_btotal) {
    inc %_b
    did -a _bad 11 $ulist(*,bad,%_b)
  }
}
alias karaliste /dialog -m _bad _bad
dialog _bad {
  title "Bad NicK List"
  size -1 -1 150 110
  option dbu
  text "Nicki YazIp Ekleyin:" , 10 , 10 5 95 10 , left
  combo 11 , 10 15 95 85 , extsel sort autohs autovs
  edit "" , 12 , 10 95 95 10 , read autohs
  button "&Ekle" , 20 , 115 35 30 20 ,flat
  button "&Sil" , 30 , 115 60 30 20 , flat
  button "O.K." , 40 , 115 85 30 20 , ok, flat
}
on *:dialog:_bad:init:*: {
  _blist
}
on *:dialog:_bad:sclick:*: {
  if ($did == 20) {
    if ($did(11).text != $null && $level($did(11).text) != bad) {
      var %_badd = $did(11).text
      .auser bad %_badd
      _blist
      did -o $dname 12 1 %_badd Bad Nick Listesine ekLendi...
    }
  }
  if ($did == 30) {
    if ($did(11).text != $null && $level($did(11).text) == bad) {
      var %_brem = $did(11).text
      .ruser bad %_brem
      _blist
      did -o $dname 12 1 %_brem Bad Nick Listesinden SiLindi...
    } 
  }
}
#bd on
on bad:join:#:{
  if (%bd == off) { halt }
  if ($me !isop $chan) { halt }
  mode $chan +b $nick $+ *!*@* | kick $chan $nick Uygunsuz Nick4!
}
#bd end