;rainbow with fixed colors by Escaflowne
{ 130 PENOPACITY 
-16 start =
ROOMHEIGHT 32 / linethickness =    
{ 
    0 run =
    array_1 = 
    {
        array_2 =
        { array_2 linenum = } run 0 == If
        { array_2 color_r = } run 1 == If
        { array_2 color_g = } run 2 == If
        { array_2 color_b = } run 3 == If
        1 run +=
    } array_1 ForEach
    color_r color_g color_b PENCOLOR PENBACK 32 PENSIZE
    -1 linenum +=
    start ROOMHEIGHT linethickness / linenum * ROOMWIDTH ROOMHEIGHT linethickness / linenum * LINE
} [ [ 1  255 0 50 ] [ 2  255 0 0 ] [ 3  255 50 0 ] [ 4  255 100 0 ] [ 5  255 150 0 ] [ 6  255 200 0 ] [ 7  255 225 0 ] [ 8  200 255 0 ] [ 9  150 255 0 ] [ 10 0 255 0 ] [ 11 0 255 50 ] [ 12 0 255 100 ] [ 13 0 255 200 ] [ 14 0 220 255 ] [ 15 0 200 255 ] [ 16 0 150 255 ] [ 17 0 100 255 ] [ 18 0 50 255 ] [ 19 0 0 255 ] [ 20 55 0 255 ] [ 21 100 0 255 ] [ 22 155 0 255 ] [ 23 200 0 255 ] [ 24 255 0 255 ] [ 25 255 0 155 ] ]  ForEach
"" CHATSTR = } CHATSTR"rainbowhorizontal" == If
;By Esca