; vertical lines by Escaflowne
{ 128 PENOPACITY 
32 linethickness =    
-16 start =
; colordef start
; Red Green Blue
0 0 128 startcolor_b = startcolor_g = startcolor_r =
; colordef end
0 0 0 endcolor_b = endcolor_g = endcolor_r =
 
startcolor_r endcolor_r - dIff_r =
startcolor_g endcolor_g - dIff_g =
startcolor_b endcolor_b - dIff_b =
; calculate required linecount
ROOMWIDTH linethickness / linecount =
; calculate percent steps
1000 linecount / permillesteps =
{
    startval =
    { Break } linecount startval < If
 
    0 dIff_r - startval * permillesteps * 1000 / startcolor_r + color_r =
    0 dIff_g - startval * permillesteps * 1000 / startcolor_g + color_g =
    0 dIff_b - startval * permillesteps * 1000 / startcolor_b + color_b =
    startval linenum =
    color_r color_g color_b PENCOLOR PENBACK linethickness PENSIZE
    linethickness linenum * start linethickness linenum * ROOMHEIGHT LINE
} [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 
35 36 37 38 39 40 41 42 43 44 45 46 47 48 ] ForEach
"" CHATSTR = } CHATSTR"purpleblackvertical" == If
;By Esca