@name DVD Logo
@persist A:string E:wirelink S:entity T:array C:vector W H X Y XV YV

if (first() || duped()) {
    runOnTick(1)
    T = array(vec(190,0,255),vec(0,255,255),vec(255,131,0),vec(0,38,255),vec(255,250,1),vec(255,0,139))
    S = entity():isWeldedTo()
    E = S:wirelink()
    W = 70
    H = 15
    XV = 3
    YV = 1
    C = vec(190,0,255)
}
E:egpText(1,"DVD",vec2(X,Y))
E:egpSize(1,80)
E:egpCircle(2,vec2(X+73,Y+85),vec2(W,H))
E:egpText(3,"VIDEO",vec2(X+30,Y+70))
E:egpSize(3,30)
E:egpColor(1,C)
E:egpColor(2,C)
E:egpColor(3,vec(0,0,0))
X+=XV
Y+=YV
XV = ((X+W)>400 || X <= 0) ? -XV : XV
YV = ((Y+H)>400 || Y <= 0) ? -YV : YV
if (((X+W)>=400 || X <= 0) || ((Y+H)>=400 || Y <= 0)) {
    C = T[randint(1,6),vector]
}