Anonymous

alias amsg {
  var %amsg = 1
  while ( %amsg <= $chan(0) ) {
    if ( !$istok(%achans , $chan(%amsg) , 32) ) msg $chan(%amsg) $1-
    inc %amsg
  }
}
menu * {
  -
  Settings
  .Amsg Block
  .. Do not send [A]msg's to $chan : set %achans $addtok(%achans,$chan,32) | echo -a * Chan Blocked: %achans
  .. Allow [A]msg's to be sent to $chan : set %filter $remtok(%achans,$chan,32) | echo -a * Chan UnBlocked: %achans
  ..  -
  .. Echo Filtered Channels: echo -a * Filtering: %achans *
  -
}