alias blacklist { if ($dialog(blacklist)) { dialog -c blacklist } | dialog -ma blacklist blacklist } 
dialog blacklist { 
  size -1 -1 295 346 
  title "BAD NICK KORUMA" 
  Combo 1, 1 1 240 330 
  button "Ekle", 2, 244 2 50 22 
  button "Kaldır", 3, 244 24 50 22 
  button "Tamam", 4, 244 324 50 22,ok 
  Check "BAD NICK ON" , 5 , 1 327 241 20 
}
on *:dialog:blacklist:*:*: { 
  if ($devent == init) { blacklist.init } 
  if ($devent == sclick) { 
    if ($did == 2) { if ($did(1) != $null) { /.auser 666 $did(1) | blacklist.init } } 
    if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | blacklist.init } } 
    if ($did == 5) { 
      writeini $+(",$mircini,") blacklist blacklist $iif($did(5).state == 1,on,off)
    } 
  } 
} 
alias blacklist.init { 
  did -r blacklist 1 
  if ($readini $+(",$mircini,") blacklist blacklist == on) { did -c blacklist 5 } 
  set %ul 1 
  while (%ul <= $ulist(*,0)) { 
    if ($level($ulist(*,%ul)) == 666) { did -a blacklist 1 $ulist(*,%ul) } 
    inc %ul 1 
  } 
  unset %ul 
} 
on 666:join:#: { 
  if ($readini $+(",$mircini,") blacklist blacklist == on) { 
    if (($me isop $chan) || ($me ishelp $chan)) { 
      ban -u500 $chan $+($nick,$1,!*@*) | kick $chan $nick  14Bad Nick Detect. Don't Join this channel.. 7hoLLandaLi 4'' $read(kickmsg.txt) '' 
    } 
  } 
} 
on 666art:#: { 
  if ($readini $+(",$mircini,") blacklist blacklist == on) { 
    if (($me isop $chan) || ($me ishelp $chan)) { 
      echo -at 2BADNICK RAPOR : ( $chan ) Kanalından ( $nick ) Ayrıldı.
    } 
  } 
}