@name Shop EGP
@inputs A:wirelink
@persist N Colour:vector

interval(100)

if(duped() | first() | inputClk())  {
    printColor(vec(50,100,200),"ERZA.")
    
    A:egpClear()
    A:egpRoundedBox(1,vec2(300, 400),vec2(1150, 145))
    A:egpText(2,"TEST",vec2(-230, 340))
    A:egpSize(2,100)
    A:egpColor(1,20,100,200,255)
    A:egpColor(2,Colour)
    timer("restart",200)
}

if(clk("start") & N < 360 | clk("restart")) {
    N = N + 5
    Colour=hsv2rgb(N,1,1)
    A:egpColor(2,Colour)
    timer("start",200)
} elseif(N == 360) {
    N = 0
    timer("restart",100)
}
