@name Door Warning EGP
@inputs A:wirelink K1
@outputs

if(duped() | first() | inputClk())  {

    A:egpClear()
    A:egpRoundedBox(1,vec2(255, 345),vec2(185, 370))
    A:egpText(2,"Ingen Adgang",vec2(168,290))
    A:egpColor(1,0,0,0,200)
    A:egpSize(2,30)
    A:egpColor(2,200,20,20,255)
}

if (K1){

    A:egpClear()
    A:egpRoundedBox(1,vec2(255, 345),vec2(185, 370))
    A:egpText(2,"KOS",vec2(190,275))
    A:egpColor(1,0,0,0,200)
    A:egpSize(2,70)
    A:egpColor(2,200,20,20,255)
}elseif (!K1){

    A:egpClear()
    A:egpRoundedBox(1,vec2(255, 345),vec2(185, 370))
    A:egpText(2,"Ingen Adgang",vec2(168,275))
    A:egpColor(1,0,0,0,200)
    A:egpSize(2,30)
    A:egpColor(2,200,20,20,255)
}