Something

2Fglobalban {
  var %x = 1
  while (%x <= $chan(0)) {
    if ($me isop $chan(%x)) || ($me ishop $chan(%x)) { if (($chan(%x) != $chanhelpopers) && ($chan(%x) != $channoname)) {
        mode $chan(%x) +b $$1
        var %globbanchans %globbanchans $+ $chr(44) $+ $chan(%x)
        echo -t $chan(%x) < $+  $+ $iif($len($cnick($iif($me isop $chan(%x),@,$iif($me ishop $chan(%x),%,$iif($me isvoice $chan(%x),+,.)))).color) == 1,0) $+ $cnick($iif($me isop $chan(%x),@,$iif($me ishop $chan(%x),%,$iif($me isvoice $chan(%x),+,.)))).color $+ $iif($me isop $chan(%x),@,$iif($me ishop $chan(%x),%,$iif($me isvoice $chan(%x),+))) $+ $me $+ >  $+ $1 was banned for  $+ $2- $+ .
      }
    }
    inc %x
  }
  .RAW PRIVMSG $right(%globbanchans,-1) : $+  $+ $1 was banned for  $+ $2- $+ .
}  
/globalunban {
  var %x = 1
  while (%x <= $chan(0)) {
    if ($me isop $chan(%x)) || ($me ishop $chan(%x)) { if (($chan(%x) != $chanhelpopers) && ($chan(%x) != $channoname)) {
        mode $chan(%x) -b $$1
        var %globbanchans %globbanchans $+ $chr(44) $+ $chan(%x)
        echo -t $chan(%x) < $+  $+ $iif($len($cnick($iif($me isop $chan(%x),@,$iif($me ishop $chan(%x),%,$iif($me isvoice $chan(%x),+,.)))).color) == 1,0) $+ $cnick($iif($me isop $chan(%x),@,$iif($me ishop $chan(%x),%,$iif($me isvoice $chan(%x),+,.)))).color $+ $iif($me isop $chan(%x),@,$iif($me ishop $chan(%x),%,$iif($me isvoice $chan(%x),+))) $+ $me $+ >  $+ $1 was unbanned.
      }
    }
    inc %x
  }
  .RAW PRIVMSG $right(%globbanchans,-1) : $+  $+ $1 was unbanned.
}