;;orange to purple gradient by esca 
{ 150 PENOPACITY 
16 linethickness =
-16 start =
; colordef start
; Red Green Blue
244 131 27 startcolor_b = startcolor_g = startcolor_r =
; colordef end
144 46 187 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
ROOMHEIGHT 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
    start linethickness linenum * ROOMWIDTH linethickness linenum * 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 "halloweengradient" == If
;By esca