Something

alias blist {
  if ($1 == $null || $2- == $null) { echo Syntax: /blist nick reason | halt }
  amsg I have just globally banned $1 $+ . Reason: $2-
  var %x = 0
  while (%x < $chan(0)) {
    inc %x
    $Iif($me isop $chan(%x),mode $chan(%x) +b $address($1,2),msg $chan(%x) I am not op in $chan(%x) but I suggest you type /mode $chan(%x) +b $1)
  }
}
alias unblist {
  if ($1 == $null || $2- == $null) { echo Syntax: /unblist nick reason | halt }
  amsg I have just globally unbanned $1 $+ . Reason: $2-
  var %x = 0
  while (%x < $chan(0)) {
    inc %x
    $Iif($me isop $chan(%x),mode $chan(%x) -b $address($1,2),msg $chan(%x) I am not op in $chan(%x) but I suggest you type /mode $chan(%x) -b $1)
  }
}
alias chblist {
  if ($1 == $null || $2- == $null) { echo Syntax: /blist channel reason | halt }
  amsg I have just globally banned channel $1 $+ . Reason: $2-
  var %x = 0
  while (%x < $chan(0)) {
    inc %x
    $Iif($me isop $chan(%x),mode $chan(%x) +b ~c: $+ $1,msg $chan(%x) I am not op in $chan(%x) but I suggest you type /mode $chan(%x) +b ~c: $+ $1)
  }
}
alias unchblist {
  if ($1 == $null || $2- == $null) { echo Syntax: /unblist channel reason | halt }
  amsg I have just globally unbanned channel $1 $+ . Reason: $2-
  var %x = 0
  while (%x < $chan(0)) {
    inc %x
    $Iif($me isop $chan(%x),mode $chan(%x) -b ~c: $+ $1,msg $chan(%x) I am not op in $chan(%x) but I suggest you type /mode $chan(%x) -b ~c: $+ $1)
  }
}