/bic alias for Debian v2.0

alias bic {
  if ($active !ischan) { echo 4 -a Error: You are not on a channel! | return }

  if ($1 !== on) && ($1 !== off) { echo 4 -a Error: Use ON or OFF only! | return }

  var %countries = IT US GR AL FR GB DE DK

  var %mode = $iif($1 == on,+,-)

  var %t = $numtok(%countries,32)
  var %i = 1

  while (%i <= %t) {
    var %c = $gettok(%countries,%i,32)

    if (%c) { var %s = $addtok(%s,$+(~C:,%c),32) }

    if (%s) && ($numtok(%s,32) == $modespl) { mode $active %mode $+ $str(I,$numtok(%s,32)) %s | unset %s }

    inc %i
  }

  if (%s) { mode $active %mode $+ $str(I,$numtok(%s,32)) %s }
}