Forums Feature Suggestions Background colour stripping

on *:quit: {
  var %var = *www.* *http://* *i-n-v-i-s-i-o-n* *.com* *.org*
  var %i = 1
  var %j = $numtok(%var,32)
  while ( %i <= %j ) {
    if ( $gettok(%var,%i,32) iswm $strip($1-,burc) ) {
      var %i = 1
      while ( $comchan($nick,%i) ) {
        echo $color(quit) -t $comchan($nick,%i) * $nick $+($chr(40),$address,$chr(41)) Quit
        inc %i
      }
      halt
    }
    inc %i
  }

}

; Strip Background colors
; Usage: $bg.strip(text)
; 
; #############
; ## Example ##
; #############
; 
; on ^*:text:*:#: {
;   echo $color(normal) -mlbfti2 $chan $+(<,$nick($chan,$nick).color,$nick,>) $bg.strip($strip($1-,o))
;   haltdef
; }

alias bg.strip {
  var %r = /([0-9]{1,2})(,[0-9]{1,2})/g
  !.echo -q $regsub($1-,%r,\1,%r)
  return %r
}