alias root dialog -m yasakkanal yasakkanal
dialog yasakkanal {
  title "Ame/Amsg Mesaj Engelleme Paneli"
  size -1 -1 175 100
  option dbu
  ;icon $mircdiricon/mesqen.ico
  tab "Ame", 5, 2 0 188 105
  button "&Ekle", 7, 46 66 30 12, tab 5 default flat multi
  button "&Sil", 8, 12 66 30 12, tab 5 default flat multi
  check "/Ame Mesaji Aktif Yap!", 17, 4 44 63 9, tab 5
  list 1, 94 18 75 80, tab 5 size hsbar vsbar
  edit "#kanal=all şeklinde kanallarinizi ekleyiniz.", 3, 4 20 68 23, tab 5 read multi center
  tab "Amsg", 10
  button "&SiL", 13, 12 66 30 12, tab 10
  button "&Ekle", 14, 46 66 30 12, tab 10
  check "/Amsg Mesajı Aktif Yap!", 18, 4 44 63 9, tab 10
  list 2, 94 18 75 80, tab 10 size hsbar vsbar
  edit "#Kanal=all Şeklinde ekleme yapınız.", 6, 4 20 68 23, tab 10 read multi
  tab "Bilgi", 15
  edit "/ame /amsg Tüm Kanallara Mesaj Göndermeye Yarar ßu Add-on iLe BeLirlediginiz KanaL'Lara Ame Amsg MesajLarınızın Gitmemesini Saglaya bilirsiniz Daha TetayLı Destek icin #help kanalını Kulanabilirsiniz" , 19, 4 20 170 60, tab 15 read multi
  button "&Kapat&", 9, 10 85 72 12, enable flat multi ok
}
 

ON *:dialog:yasakkanal:init:*:{ 
  mdx SetDialog $dname style title tool sysmenu
  if (!$isfile(mesqen/yasak.ini)) { return }
  if ($readini(mesqen/yasak.ini,settings,ame) == on) { did -c $dname 17 }
  if ($readini(mesqen/yasak.ini,settings,amsg) == on) { did -c $dname 18 }
  if ($ini(mesqen/yasak.ini,ame_channels)) loadbuf $ini(mesqen/yasak.ini,ame_channels,0) -otame_channels $dname 1 mesqen/yasak.ini
  if ($ini(mesqen/yasak.ini,amsg_channels)) loadbuf $ini(mesqen/yasak.ini,amsg_channels,0) -otamsg_channels $dname 2 mesqen/yasak.ini
  did -z $dname 1
  did -z $dname 2
}
ON *:dialog:yasakkanal:sclick:*:{
  if ($did == 8) {
    remini mesqen/yasak.ini ame_channels $gettok($did(1).seltext,1,61)
    did -r $dname 1
    if ($ini(mesqen/yasak.ini,ame_channels)) loadbuf $ini(mesqen/yasak.ini,ame_channels,0) -otame_channels $dname 1 mesqen/yasak.ini
    did -z $dname 1 
    return 
  }
  if ($did == 7) {
    var %ame_add = $$input(Add a channel to exclude from /ame $+ $chr(44) in the form: #channel=all for all networks or #channel=network1 $+ $chr(44) $+ network2 $+ $chr(44) $+ network3 for particular networks.,e,Add a channel to exclude from ame),61)
    if ($numtok(%ame_add,61) == 2) { writeini mesqen/yasak.ini ame_channels $replace(%ame_add,=,$chr(32)) | did -r yasakkanal 1 | loadbuf $ini(mesqen/yasak.ini,ame_channels,0) -otame_channels $dname 1 mesqen/yasak.ini }
    else echo -a *** 7Gecersiz İstek girişi Lütfen Türk İRCd'e Sohbet Sunucuları İcin 4#KANAL=all 7Türk IRCd'e Sunucuları Dışındaki Sohbet siteleri İçin Örnek : 4#KANAL=undernet,dalnet 7Şeklinden İşlem girişi yapınız %mesqen
    did -z $dname 1
    return
  }
  if ($did == 17) {
    writeini mesqen/yasak.ini settings ame $iif($did(17).state == 1,on,off)
    return
  }
  if ($did == 18) {
    writeini mesqen/yasak.ini settings amsg $iif($did(18).state == 1,on,off)
    return
  }
  if ($did == 13) {
    remini mesqen/yasak.ini amsg_channels $gettok($did(2).seltext,1,61)
    did -r $dname 2
    if ($ini(mesqen/yasak.ini,amsg_channels)) loadbuf $ini(mesqen/yasak.ini,amsg_channels,0) -otamsg_channels $dname 2 mesqen/yasak.ini
    did -z $dname 2  
    return 
  }
  if ($did == 14) {
    var %amsg_add = $$input(Add a channel to exclude from /amsg $+ $chr(44) in the form: #channel=all for all networks or #channel=network1 $+ $chr(44) $+ network2 $+ $chr(44) $+ network3 for particular networks.,e,Add a channel to exclude from amsg),61)
    if ($numtok(%amsg_add,61) == 2) { writeini mesqen/yasak.ini amsg_channels $replace(%amsg_add,=,$chr(32)) | did -r yasakkanal 2 | loadbuf $ini(mesqen/yasak.ini,amsg_channels,0) -otamsg_channels $dname 2 mesqen/yasak.ini }
    else echo -a *** 7Gecersiz İstek girişi Lütfen Türk İRCd'e Sohbet Sunucuları İcin 4#KANAL=all 7Türk IRCd'e Sunucuları Dışındaki Sohbet siteleri İçin Örnek : 4#KANAL=undernet,dalnet 7Şeklinden İşlem girişi yapınız %mesqen
    did -z $dname 2
    return
  }
}
alias ame {
  if ($readini(mesqen/yasak.ini,settings,ame) != on) { ame $1- | return }
  var %all_chans = $chan(0)
  while (%all_chans) {
    if ($ini(mesqen/yasak.ini,ame_channels,$chan(%all_chans)) == 0) { var %ame_list =  $chan(%all_chans) $+ $chr(44) $+ %ame_list | echo $chan(%all_chans)  $+ $color(action) $+ $timestamp * $me $1- | goto skip }
    if ($readini(mesqen/yasak.ini,ame_channels,$chan(%all_chans)) == all) { goto skip }
    if ($network !isin $readini(mesqen/yasak.ini,ame_channels,$chan(%all_chans))) { var %ame_list = $chan(%all_chans) $+ $chr(44) $+ %ame_list |  echo $chan(%all_chans)  $+ $color(action) $+ $timestamp  * $me $1- }
    :skip
    dec %all_chans
  }
  if (%ame_list) { .raw PRIVMSG %ame_list :
ACTION $1- $+ 
 }
}
alias amsg {
  if ($readini(mesqen/yasak.ini,settings,amsg) != on) { amsg $1- | return }
  var %all_chans = $chan(0)
  while (%all_chans) {
    if ($ini(mesqen/yasak.ini,amsg_channels,$chan(%all_chans)) == 0) { var %amsg_list =  $chan(%all_chans) $+ $chr(44) $+ %amsg_list | echo $chan(%all_chans)  $+ $color(own text) $+ $timestamp < $+ $me $+ > $1- | goto skip }
    if ($readini(mesqen/yasak.ini,amsg_channels,$chan(%all_chans)) == all) { goto skip }
    if ($network !isin $readini(mesqen/yasak.ini,amsg_channels,$chan(%all_chans))) { var %amsg_list = $chan(%all_chans) $+ $chr(44) $+ %amsg_list |  echo $chan(%all_chans)  $+ $color(own text) $+ $timestamp < $+ $me $+ > $1- }
    :skip
    dec %all_chans
  }
  if (%amsg_list) { .raw privmsg %amsg_list : $+ $1- }
}