BadNick

alias Bad if $dialog(Badlist) == $null dialog -m badlist badlist
dialog Badlist {
  title "Badnick Korumasi"
  size -1 -1 200 280
  button "Tamam", 1, 110 200 70 20,ok
  list 2, 10 20 180 135, sort
  edit "", 4, 10 165 180 20, autohs center
  box "Eklenecek Nicki Girin", 5, 5 150 190 45
  button "Nick Ekle", 6, 20 200 70 20
  box "Not:", 7, 5 225 190 45
  text "Nicki silmek icin Uzerine Cift Tiklayin", 8, 25 240 140 45
}
on *:dialog:Badlist:dclick:2:{ .ruser Badnick $did(2).seltext | did -d badlist 2 $did(2).sel }
on *:dialog:Badlist:sclick:6:{ if ($did(4) != $null) { did -a Badlist 2 $did(4) | .auser Badnick * $+ $did(4) $+ *!*@*   | did -fr badlist 4 } }
on *:dialog:badlist:init:*:{
  if ($ulist(*,Badnick,0) != $null) {
    set %Bd.bad 0
    while (%Bd.Bad < $ulist(*,Badnick,0)) {
      inc %Bd.bad 1
      did -a badlist 2 $ulist(*,Badnick,%Bd.bad)
    }
    unset %Bd.Bad
    did -f badlist 4
  }
}
Menu menubar,channel,status {
  Ayarlar
  .$iif(%badnicks,$style(1)) Badnick Koruma ( $+ $iif(%badnicks,ON,OFF) $+ ) {
    if (%badnicks) { unset %badnicks | .disable #badnicks | echo -a $timestamp %logo  15,2  Badnick Koruma  14  Kapatıldı   }
    else { set %badnicks on | .enable #badnicks | Bad | echo -a $timestamp %logo  15,2  Badnick Koruma  0 Açıldı   }
  }
}
#badnicks off
on BadNick:JOIN:#:{
  .mode # +b $nick
  .kick # $nick   05,15Badnick : 1Nickiniz KanaL Seviyesine Uygun Değildir. %logo
}
#badnicks end