E2 Door Double

@name Kontrola Bramy (2x gate)
@inputs DoorR:entity DoorL:entity Dist
@outputs Fpos:vector I Box:vector K
@persist Dist I Door:entity
interval(50)
if(changed(DoorR)&DoorR)
{
    Box = DoorR:boxSize()
}
if(Dist)
{
    K = clamp(K+1,0,Box[1])
}
elseif(!Dist&I == 0)
{
    K = clamp(K-1,0,Box[1])
}

if(K == Box[1]&Dist)
{
    I = clamp(I+2,0,Box[2])
}
else
{
    I = clamp(I-2,0,Box[2])
}

if(!first()&changed(Dist)){soundPlay(1,5000,"doors/door_metal_gate_move1.wav")}
if(!first()&changed(I)&!Dist&I == 0){soundPlay(1,1000,"doors/door_metal_large_close2.wav")}
if(!first()&changed(K)&K==Box[1]&Dist){soundPlay(3,1000,"doors/door_metal_large_open1.wav")}
if(!first()&changed(I)&I==Box[2]&Dist){soundPlay(4,1000,"doors/door_metal_large_chamber_close1.wav")}

DoorR:setPos(entity():toWorld(vec(Box[2]/2-0.5+I,Box[1]/2+K,0)))
DoorL:setPos(entity():toWorld(vec(-Box[2]/2+0.5-I,Box[1]/2+K,0)))