Ban List Editör

on *:load: { 
  .echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Add-On $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@ym2ks.org $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: SaNCaK $chr(40) $+ v5.4 $+ $chr(41))
  echo -a _____________________________________________________________________________________
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Add-On yükleniyor... 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Çalýþan mIRC15 $version 0Sistem15 Windows $+ $os 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Coder: 15SaNCaK 0,1 E-Mail: 15sancak@ym2ks.org 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 https://www.mircclub.org 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Copyright 12©15 1999-2018 
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: { 
.echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Add-On $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@ym2ks.org $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: SaNCaK $chr(40) $+ v5.4 $+ $chr(41))
}

menu channel,menubar {
  Ban List:iblstart
}
dialog ibllist {
  title "Ban List"
  size -1 -1 211 137
  option dbu
  box "Ban Listesi:", 1, 3 3 137 131
  list 2, 7 11 128 106, result
  box "Ban Bilgisi:", 3, 143 3 64 51
  text "Banlayan:", 4, 147 11 31 8, center
  text "", 5, 147 21 56 8
  text "Ban Zamanı:", 6, 147 31 33 8, center
  text "", 7, 147 41 56 8
  button "Tümünü Seç", 8, 143 57 64 12, flat
  button "Temizle", 9, 143 72 64 12, flat
  button "Seçlenleri Temizle", 10, 143 87 64 12, flat
  button "Tümünü Temizle", 11, 143 102 64 12, flat
  button "Ok/Cancel", 12, 156 118 37 12, flat ok cancel
  text "", 13, 7 122 128 8
}

on *:DIALOG:ibllist:init:*: {
  if ($ibl($active,0) != 0) {
    var %a = 1
    while (%a <= $ibl($active,0)) {
      did -a $dname 2 $ibl($active,%a)
      inc %a
    }
    did -a $dname 13 $+($active,$chr(58)) için Toplam giriş: $ibl($active,0) 
    noop $input(Tüm kayıtlar eklendi..,o,Tamamlandı!)
  }
  else {
    noop $input(Hiçbir kayıt yok: $+($active,.),o,Kapatılıyor!)
    dialog -x $dname
  }
}
on *:DIALOG:ibllist:sclick:2,8-11: {
  var %a
  if ($did == 2) {
    if ($did($dname,2,0).sel == 1) {
      did -ra $dname 5 $ibl($active,$did($dname,2).sel).by
      did -ra $dname 7 $ibl($active,$did($dname,2).sel).date
    }
    elseif ($did($dname,2,0).sel >= 2) {
      did -ra $dname 5 Birden fazla kayıt
      did -ra $dname 7 Birden fazla kayıt
    }
    elseif ($did($dname,2,0).sel == 0) {
      if ($did($dname,5) != $null) && ($did($dname,7) != $null) {
        did -r $dname 5,7
      }
    }
  }
  if ($did == 8) {
    %a = 1
    while (%a <= $did($dname,2).lines) {
      if ($did(8).text == CheckAll) {
        did -s $dname 2 %a
      }
      elseif ($did(8).text == UnCheckAll) {
        did -l $dname 2 %a
      }
      inc %a
    }
    if ($did(8).text == CheckAll) {
      did -ra $dname 8 UnCheckAll
    }
    elseif ($did(8).text == UnCheckAll) {
      did -ra $dname 8 CheckAll
    }
  }
  if ($did == 9) {
    if ($did($dname,2,0).sel == 1) {
      mode $active -b $did($dname,2,$did($dname,2).sel).text
      did -d $dname 2 $did($dname,2).sel
      .timer 1 1 refreshibl
    }
  }
  if ($did == 10) {
    %a = 0
    var %bans
    while ($did($dname,2,0).csel > 0) {
      %bans = %bans $did($dname,2,$did($dname,2,1).csel).text
      did -d $dname 2 $did($dname,2,1).csel
      inc %a
      if (%a == $modespl) {
        mode $active - $+ $str(b,%a) %bans
        %bans = $null
        %a = 0
      }
    }
    if (%bans) {
      mode $active - $+ $str(b,%a) %bans
    }
    .timer 1 1 refreshibl
  }
  if ($did == 11) {
    %a = 0
    var %bans
    while ($did($dname,2).lines > 0) {
      %bans = %bans $did($dname,2,1).text
      did -d $dname 2 1
      inc %a
      if (%a == $modespl) {
        mode $active - $+ $str(b,%a) %bans
        %bans = $null
        %a = 0
      }
    }
    if (%bans) {
      mode $active - $+ $str(b,%a) %bans
    }
    .timer 1 1 refreshibl
  }
}
alias iblstart {
  if ($me !ison $active) {
    return 
  }
  if (!$chan($active).ibl) {
    .enable #IBLList
    .timerIBLListTimeout 1 8 ibltimeout
    mode $active +b
  }
  else {
    ibldialog 
  }
}
alias ibldialog {
  dialog $iif($dialog(ibllist),-v,-m ibllist) ibllist
}
alias -l refreshibl {
  did -ra ibllist 13 Total entries on $+($active,$chr(58)) $ibl($active,0)
}
#IBLList off
raw 368:*: {
  HALTDEF
  .timerIBLListTimeout off 
  .disable #IBLList 
  ibldialog
}
#IBLList end
alias ibltimeout {
  .disable #IBLList
  ibldialog 
}