Kontrolejamais

--vajag ari failu state ar true vai false
datora_id=os.computerID()   -- vai ari os.getId() vai kas tads
sektors="Generatori"
rednet_s="left"
kon_id=1
side="front"
elektr_s="bottom"
izsl=true -- vai izslegt ja pienak signals
laiks=0
laiks_p=20   --parbauda vai tik sekundes rs signals ir bijis
parb_e=true

        function f_ielas(fails)
            local fh = io.open(fails, "r")
            local atbilde = fh:read("*a")
            fh:close()
            sleep(0)
            atbilde=atbilde+1-1
            if atbilde==1 then
                return true
            else
                  return false
            end

        end


        function sagl(fails,verti)   -- Kuru var but f < saglaba virzienu        un        coor saglaba atrasanas vietu
                shell.run("delete",fails)
                 local fh = io.open(fails, "w")
                 if verti==true then fh:write("1")
                 else fh:write("0") end
                 fh:close()
            end

term.clear()
print("")
print("")
print(" __ __                   _  _    _  _   ")
print("|  |  | ___  ___  ___  _| || |_ |_|| |_ ")
print("|-   -|| . || .'||   || . || . || ||  _|")
print("|__|__||___||__,||_|_||___||___||_||_|  ")
print("")
sleep(2)
term.clear()

vert=f_ielas("state")

rednet.open(rednet_s)

laiks=os.clock()

while true do
 rs.setOutput(side,false)
 sleep(0)


 term.clear()
 term.setCursorPos(1,1)
 print()
 write("  +-+-+-+-+-+-+-+-+ ID") write(datora_id) print()
 print("  |X|o|a|n|d|b|i|t|")
 print("  +Automatizetajs-+")
 print()
print("     ")
write("Izsutam stavokli - ")


if vert==true then
    if parb_e==true then
        apr=math.ceil(os.clock()-laiks)-1
        if apr<laiks_p then
            rednet.broadcast("0")
                if izsl==true then
                   rs.setOutput(side,false)
                else
                   rs.setOutput(side,vert)
                end
            write("ON-N")
        else
            rednet.broadcast("1")
            rs.setOutput(side,vert)
            write("ON")
        end
    else
        rednet.broadcast("1")
        rs.setOutput(side,vert)
        write("ON")
    end
else
        write("OFF")
end

--gaidam atbildi no servera


if rs.getInput(elektr_s)==true then
   laiks=os.clock()
end

local id,zina=rednet.receive(1)

    if id==kon_id then
        vert=not zina
        vert=not vert

        sagl("state",vert)   -- Kuru var but f < saglaba virzienu        un        coor saglaba atrasanas vietu
    end

end