alias badnicktara { dialog -ma badnicktara badnicktara }
dialog badnicktara {
  title "Badnick işlemleri"
  size -1 -1 130 118
  option dbu
  text "Taranacak kanal;", 1, 4 13 46 8
  edit "", 2, 4 21 50 10
  text "Taranacak nickler;", 3, 4 33 46 8
  combo 4, 4 42 50 72, size
  button "Tara", 5, 61 15 62 12
  button "Tara ve Kanaldan At", 6, 61 30 62 12
  button "Tara ve Uyarı Ver", 7, 61 45 62 12
  button "Ekle", 8, 61 67 62 12
  button "Sil", 9, 61 81 62 12
  button "Çık", 10, 61 101 62 12, cancel
}
on *:Dialog:badnicktara:*:*: {
  if $devent == sclick {
    if $did == 5 {
      if $+(*,$chr(44),*) iswm $did(2) {
        .return $input(Sadece tek bir kanal seçebilirsiniz ÖRN: #Sohbet,ohud,Hata!)
      }
      if $did(2) == $null {
        .return $input(Lütfen Kanal Belirtin ÖRN: #Sohbet,ohud,Hata!)
      }
      if $me !ison $did(2) {
        .return $input($did(2) Kanalında Mevcut Değilim!,ohud,Hata!)
      }
      else {
        tara $did(2)
        .dialog -x badnicktara badnicktara
      }
    }
    if $did == 6 {
      if $+(*,$chr(44),*) iswm $did(2) {
        .return $input(Sadece tek bir kanal seçebilirsiniz ÖRN: #Sohbet,ohud,Hata!)
      }
      if $did(2) == $null {
        .return $input(Lütfen Kanal Belirtin ÖRN: #Sohbet,ohud,Hata!)
      }
      if $me !ison $did(2) {
        .return $input($did(2) Kanalında Mevcut Değilim!,ohud,Hata!)
      }
      else {
        .set %kanaldanat dogus
        tara $did(2)
        .dialog -x badnicktara badnicktara
      }
    }
    if $did == 7 {
      if $+(*,$chr(44),*) iswm $did(2) {
        .return $input(Sadece tek bir kanal seçebilirsiniz ÖRN: #Sohbet,ohud,Hata!)
      }
      if $did(2) == $null {
        .return $input(Lütfen Kanal Belirtin ÖRN: #Sohbet,ohud,Hata!)
      }
      if $me !ison $did(2) {
        .return $input($did(2) Kanalında Mevcut Değilim!,ohud,Hata!)
      }
      else {
        .set %uyar dogus
        tara $did(2)
        .dialog -x badnicktara badnicktara
      }
    }
    if $did == 8 {
      if $did(4) == $null {
        .return $input(Lütfen bir nick veya mask belirtin,ohud,Hata!)
      }
      else {
        .auser bdnck $did(4)
        .did -r $dname 4
        ayarcek $dname
      }
    }
    if $did == 9 {
      if $did(4) == $null {
        .return $input(Lütfen bir nick veya mask seçin,ohud,Hata!)
      }
      else {
        .ruser bdnck $did(4)
        .did -r $dname 4
        ayarcek $dname
      }
    }
  }
  if $devent == init {
    ayarcek
    .unset %kanaldanat
    .unset %uyar
  }
  if $devent == close {
    .unset %kanaldanat
    .unset %uyar
  }
}
 
alias ayarcek {
  var %i = 1
  while %i <= $ulist(*,bdnck,0) {
    .did -a badnicktara 4 $ulist(*,bdnck,%i)
    inc %i
  }
}
alias bdnck {   
  var %. = 1   
  while $ulist(*,bdnck,%.) {   
    if $v1 iswm $1- {   
      return $v1   
    }   
    inc %.   
  }   
  return $false  
}  
alias tara {
  if !$window(@Badnick) { .window @Badnick }
  var %i = 1 
  while %i <= $nick($1,0) { 
    if $bdnck($nick($1,%i)) { 
      echo @Badnick 4Badnick! 2>>5 $1 2->7 $nick($1,%i)
      .napilcak $1 $nick($1,%i) 
    } 
    inc %i 
  } 
} 
alias napilcak {
  if $me isop $1 {
    if %kanaldanat {
      .mode $1 +b $2
      .kick $1 $2 Badnick
    }
    if %uyar {
      .msg $2 Nickinizi 1 dakika içinde değiştirmezseniz kanaldan uzaklaştırılacaksınız
      .timer 1 60 .uzaklastir $1 $2
    }
  }
}
alias uzaklastir {
  if $2 ison $1 {
    .mode $1 +b $2
    .kick $1 $2 Badnick
  }
}