Something

bbcolour { $iif(!$isid,echo -a,return) $regsubex($1-,/(\003(\d(?:\d)?))(?:,\d(\d)?)?((\w|\s)*)/g,$+([,colour,=,$col(\2),],\3,[,/colour,])) }
col {
  if ($1 = 0) return white
  if ($1 = 1) return black
  if ($1 = 2) return blue
  if ($1 = 3) return green
  if ($1 = 4) return red
  if ($1 = 5) return brown
  if ($1 = 6) return purple
  if ($1 = 7) return orange
  if ($1 = 8) return yellow
  if ($1 = 9) return green
  if ($1 = 10) return turqoise
  if ($1 = 11) return cyan
  if ($1 = 12) return blue
  if ($1 = 13) return pink
  if ($1 = 14) return gray
  if ($1 = 15) return gray
}