@name Law Board
@persist Msg:array Cur R G B Stage
@outputs Text:string Bg:vector
if (first()) {
    Msg=array(
        "Do not J-Walk!  Use crosswalks!",
        "Do not disrespect officers!",
        "Do not ram cars!",
        "Do not go over 40mph!",
        "No money printers!",
        "No weapons!",
        "No raiding tools!",
        "No stealing!",
        "Only officers may drive police cars!",
        "Do not hit people with cars!"
        )
        timer("messageboard",10)
        B=255
        Scale=5
        timer("background",10)
    }
    if (clk("messageboard")) {
        Cur++
        if (Cur>=Msg:count()+1) {
            Cur=1
        }
        Text=Msg[Cur,string]
        timer("messageboard",4000)
    }
    if (clk("background")) {
        timer("background",100)
        if (Stage==0) {
            B-=Scale
            R+=Scale
            if (R>=255) {
                Stage=1
            }
        } elseif (Stage==1) {
            R-=Scale
            G+=Scale
            if (G>=255) {
                Stage=2
            }
        } elseif (Stage==2) {
            G-=Scale
            B+=Scale
            if (B>=255) {
                Stage=0
            }
        }
        Bg=vec(R,G,B)
    }
