rainbows

alias rainbowz {
  if(!$var(%rainbowz)) { set %rainbowz 0 }
  inc %rainbowz 1
  if (%rainbowz > 7) { set %rainbowz 1 }
  return $regsubex($1-, /(.)/g, $+($chr(3), $gettok(04.07.08.09.11.12.06, $calc(1 + (%rainbowz + (\n - 1)) % 7), 46), \t, $chr(3)))
}