Kod

dialog ame_amsg {
  title "Ame/Amsg control"
  size -1 -1 184 113
  option dbu
  tab "Ame", 5, 2 5 178 105
  button "ekle", 7, 34 92 37 12, tab 5 
  button "sil", 8, 34 79 37 12, tab 5
  text "Channels in this list will be excluded whenever you use the /ame command", 9, 8 28 61 28, tab 5
  check "Activate ame control", 17, 8 63 63 10, tab 5
  list 1, 75 25 99 80, tab 5 size hsbar vsbar
  tab "Amsg", 10
  text "Channels in this list will be excluded whenever you use the /amsg command", 12, 8 28 61 28, tab 10
  button "sil", 13, 34 79 37 12, tab 10
  button "ekle", 14, 34 92 37 12, tab 10 
  check "Activate amsg control", 18, 8 63 63 10, tab 10
  list 2, 75 25 99 80, tab 10 size hsbar vsbar
  tab "About", 15
  edit "Ame/Amsg control is a simple mIRC addon which allows users to exclude certain channels from the /amsg and the /ame commands. These commands are commonly used by away or mp3 systems, which on certain channels (in particular help channels) are not tollerated. Simply add the channels where you don't want them to show up, and you're done. For suggestions questions bugs etc.. you can contact me via e-mail on: intruder@ircmalta.com or via irc on #mirc (undernet).                                                                                                                                                                                                                                                                                                                                                                                                         |ntruder", 19, 8 21 167 85, tab 15 read multi
}
ON *:dialog:ame_amsg:init:*:{ 
  if (!$isfile(ame_amsg.ini)) { return }
  if ($readini(ame_amsg.ini,settings,ame) == on) { did -c $dname 17 }
  if ($readini(ame_amsg.ini,settings,amsg) == on) { did -c $dname 18 }
  if ($ini(ame_amsg.ini,ame_channels)) loadbuf $ini(ame_amsg.ini,ame_channels,0) -otame_channels $dname 1 ame_amsg.ini
  if ($ini(ame_amsg.ini,amsg_channels)) loadbuf $ini(ame_amsg.ini,amsg_channels,0) -otamsg_channels $dname 2 ame_amsg.ini
  did -z $dname 1
  did -z $dname 2
}
ON *:dialog:ame_amsg:sclick:*:{
  if ($did == 8) {
    remini ame_amsg.ini ame_channels $gettok($did(1).seltext,1,61)
    did -r $dname 1
    if ($ini(ame_amsg.ini,ame_channels)) loadbuf $ini(ame_amsg.ini,ame_channels,0) -otame_channels $dname 1 ame_amsg.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 ame_amsg.ini ame_channels $replace(%ame_add,=,$chr(32)) | did -r ame_amsg 1 | loadbuf $ini(ame_amsg.ini,ame_channels,0) -otame_channels $dname 1 ame_amsg.ini }
    else echo -a *** Invalid format. Format shoud be: #channel=network. Example: #mirc=all or #mirc=undernet,dalnet
    did -z $dname 1
    return
  }
  if ($did == 17) {
    writeini ame_amsg.ini settings ame $iif($did(17).state == 1,on,off)
    return
  }
  if ($did == 18) {
    writeini ame_amsg.ini settings amsg $iif($did(18).state == 1,on,off)
    return
  }
  if ($did == 13) {
    remini ame_amsg.ini amsg_channels $gettok($did(2).seltext,1,61)
    did -r $dname 2
    if ($ini(ame_amsg.ini,amsg_channels)) loadbuf $ini(ame_amsg.ini,amsg_channels,0) -otamsg_channels $dname 2 ame_amsg.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 ame_amsg.ini amsg_channels $replace(%amsg_add,=,$chr(32)) | did -r ame_amsg 2 | loadbuf $ini(ame_amsg.ini,amsg_channels,0) -otamsg_channels $dname 2 ame_amsg.ini }
    else echo -a *** Invalid format. Format shoud be: #channel=network. Example: #mirc=all or #mirc=undernet,dalnet
    did -z $dname 2
    return
  }
}
alias ame {
  if ($readini(ame_amsg.ini,settings,ame) != on) { ame $1- | return }
  var %all_chans = $chan(0)
  while (%all_chans) {
    if ($ini(ame_amsg.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(ame_amsg.ini,ame_channels,$chan(%all_chans)) == all) { goto skip }
    if ($network !isin $readini(ame_amsg.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(ame_amsg.ini,settings,amsg) != on) { amsg $1- | return }
  var %all_chans = $chan(0)
  while (%all_chans) {
    if ($ini(ame_amsg.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(ame_amsg.ini,amsg_channels,$chan(%all_chans)) == all) { goto skip }
    if ($network !isin $readini(ame_amsg.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- }
}
menu channel,menubar {
  ame/amsg control: dialog -m ame_amsg ame_amsg
}