on @Badident:join:#: { ban -k # $nick Uygunsuz Ident }
alias shitconf { 
  if ($dialog(Badident) == $null) { dialog -m Badident Badident } 
}
alias badident { dialog -m badident badident }
dialog Badident {
  title "Bad Ident"
  size -1 -1 200 265 
  button "Tamam", 1, 110 200 70 20,ok
  list 2, 10 20 180 135, sort 
  box "Kotu Identler", 3, 5 5 190 145 
  edit "", 4, 10 165 180 20, autohs
  box "Eklenecek Ident'i Girin", 5, 5 150 190 45
  button "Ekle", 6, 20 200 70 20
  box "Not:", 7, 5 225 190 35 
  text "Ident Silmek İcin Ident'e Cift Tiklayin", 8, 25 240 180 45 
}
alias shitsetup if ($dialog(Badident) == $null) { dialog -m Badident Badident }
on *:dialog:Badident:dclick:2: { .ruser Badident $did(2).seltext | did -d Badident 2 $did(2).sel }
on *:dialog:Badident:sclick:6: { 
  if ($did(4) != $null) { 
    did -a Badident 2 $did(4)
    .auser Badident *! $+ $did(4) $+ @* 
    did -fr Badident 4 
  } 
}
on *:dialog:Badident:init:*: {
  if ($ulist(*,Badident,0) != $null) { 
    set %cnt.shit 0
    while (%cnt.shit < $ulist(*,Badident,0)) { 
      inc %cnt.shit 1 
      did -a Badident 2 $ulist(*,Badident,%cnt.shit)
    } 
    unset %cnt.shit 
  } 
}