@name PD PC
@inputs Screen:wirelink ScreenDebug:wirelink
@outputs
@persist B
@trigger
##Created by Cpt. Jerk-Off
#Nie dotykac!!!
interval(100)
Screen:egpClear()
ScreenDebug:writeCell(2041,1)
if (B > 1) {
B = 1}
##Zmienne
Player = owner()
Kursor = Screen:egpCursor(Player)
Use = owner():keyUse()
##Text
OkienkoNazwa = "Police Departament Control System"
Ikona1 = "Doors"
##Tlo
Screen:egpBox(1,vec2(256,256),vec2(512,512))
Screen:egpColor(1,vec(150,150,250))
Screen:egpBox(2,vec2(256,10),vec2(512,20))
Screen:egpColor(2,vec(20,20,250))
Screen:egpText(3, OkienkoNazwa, vec2(20,10))
Screen:egpAlign(3,0,1)
Screen:egpSize(3,20)
Screen:egpColor(3,vec(220,220,0))
Screen:egpText(10,"POLICE",vec2(256,256))
Screen:egpAlign(10, 1, 1)
Screen:egpSize(10,130)
Screen:egpColor(10, vec(164,164,252))
##Ikona drzwi
Screen:egpRoundedBox(4,vec2(40,60),vec2(60,60))
Screen:egpText(5,Ikona1,vec2(40,60))
Screen:egpAlign(5,1,1)
##ProgramDoorCode
function doorcode(){
    Screen:egpBox(7,vec2(256,256),vec2(256,256))
    Screen:egpColor(7,vec(131,131,252))
    Screen:egpBox(8,vec2(374,139),vec2(20,20))
    Screen:egpColor(8,vec(255,0,0))
    Screen:egpText(9,"X",vec2(374,139))
    Screen:egpAlign(9,1,1)
    if(inrange(Kursor,vec2(367,132),vec2(382,147))) {
        Screen:egpColor(8,vec(255-150,0,0))
        if (Use){
        Screen:egpRemove(7)
        Screen:egpRemove(8)
        Screen:egpRemove(9)
        B -= 1}
    } else { Screen:egpColor(8,vec(255,0,0))}
    }
##ProgramDoor
if(inrange(Kursor,vec2(15,35),vec2(70,85))) {
Screen:egpColor(4,vec(0,130-50,4))
    if (Use) {
    B += 1
}
} else {
Screen:egpColor(4,vec(0,130,4))}
if (B == 1) {
    doorcode()}
##ProgramDoor
##ScreenDebug
ScreenDebug:writeString("B: "+toString(B),0,1,600,0,0)
##Kursor
Screen:egpCursor(Player)
Screen:egpCircleOutline(6,vec2(0,0),vec2(5,5))
Screen:egpParentToCursor(6)
Screen:egpColor(6,vec(255,0,0))