Ortak Kanallar Dialog

on *:load: { 
  .echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Ortak Kanallar $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: Ortak Kanallar $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@outlook.com.tr 
  echo -a 4,1[00,01 SaNCaK 4,1] 15,1 Copyright 12©15 1999-2017 
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: { 
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Ortak Kanallar $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Unloading...,igo,Addon: Ortak Kanallar $chr(40) $+ v5.4 $+ $chr(41))
}

dialog _comchandlg {
  title "Ortak Kanallar"
  size -1 -1 230 227
  option pixels
  text "Kanallar Seç", 1, 12 13 60 17, center
  combo 2, 83 12 142 173, drop
  list 3, 6 39 101 149
  button "Close", 7, 6 193 220 31, flat ok
  list 4, 121 39 101 150
}

alias comchandlg {
  dialog -mo _comchandlg _comchandlg
}

on *:DIALOG:_comchandlg:init:0:{
  var %i = 0
  while (%i < $chan(0)) {
    inc %i
    did -a $dname 2 $chan(%i)
  }
  did -c $dname 2 1
  var %chan = $did(2,1)
  _getComChans %chan
}
on *:DIALOG:_comchandlg:sclick:*:{
  if ($did == 2) {
    did -r $dname 4
    _getComChans $did(2).seltext
  }
  if ($did == 3) {
    did -r $dname 4
    var %current = $did(3).seltext
    var %comchan = $comchan(%current,0)
    var %i = 0
    while (%i < %comchan) {
      inc %i
      did -a $dname 4 $comchan(%current,%i)
    }
  }
}
alias -l _getComChans {
  ;Add,More,Exclusions,In,CSV,Format
  var %avoid = $me $+ ,ChanServ
  did -r _comchandlg 3
  var %chan = $1
  var %i = 0
  while (%i < $nick(%chan, 0)) {
    inc %i
    var %current = $nick(%chan, %i)
    if (!$istok(%avoid,%current,44)) && ($comchan(%current,0) > 1) {
      did -a _comchandlg 3 %current
    }
  }
}