hzs_vyvojar

local verze = "21.0610.R1"
local anim = 0.1
local w, h = term.getSize()
local page = "main"
local adresa = ""
local udalost = "POZAR"
local upresneni = ""
local idPC = os.getComputerID()
modem = peripheral.wrap("top")
modem.open(idPC)
IDserver = 120
----------------------------------------------------
local f=fs.open("/C/system/RAM/user","r")
user=f.readLine()
pass=f.readLine()
Fname=f.readLine()
Lname=f.readLine()
f.close()

function ukonceni ()
    fs.delete (RamCesta)
    error()
end

function cbarva()
lista.setTextColor(colors.black)
lista.setBackgroundColor(colors.gray)
end

function defaultvalue()
adresa = ""
udalost = "POZAR"
upresneni = ""
end

function start()
defaultvalue()
local myWindow = window.create(term.current(),w/2-11,h/2-5,25,9)
myWindow.setBackgroundColor(colors.orange)
myWindow.setTextColor(colors.black)
myWindow.clear()
myWindow.setCursorPos (8, 5)
myWindow.write"HZS Software"
myWindow.setCursorPos (1, 9)
myWindow.write(verze)
myWindow.setCursorPos (1, 1)
myWindow.write"Pepek@Soft"
myWindow.setCursorPos (22, 9)
myWindow.write"2021"
sleep(1)
main()
end

function plocha()
w, h = term.getSize()
pozadi = window.create(term.current(),1,2,w,h)
pozadi.setBackgroundColor(colors.white)
pozadi.setTextColor(colors.black)
pozadi.clear()
paintutils.drawLine(1, 1, w, 1, colors.orange)
paintutils.drawPixel (w,1, colors.red)
term.setCursorPos (w,1)
term.setTextColor(colors.black)
write "*"
pozadi = window.create(term.current(),1,2,w,h)
pozadi.setBackgroundColor(colors.white)
pozadi.setTextColor(colors.black)
pozadi.clear()
term.setBackgroundColor(colors.white)
term.setTextColor(colors.lightGray)
term.setCursorPos(1,h) write"Pepek@Soft"
end
-----------------------------------------------------------------------------

function main()
plocha()

pozadi.setBackgroundColor(colors.white)
pozadi.setCursorPos(2,2)
pozadi.write("Adresa:")
pozadi.setCursorPos(2,4)
pozadi.write("Udalost:")
pozadi.setCursorPos(2,6)
pozadi.write("Upresneni:")

pozadi.setBackgroundColor(colors.lightGray)
pozadi.setCursorPos(13,2)
pozadi.write("                                      ")
pozadi.setCursorPos(14,2)
pozadi.write(adresa)
pozadi.setCursorPos(13,4)
pozadi.write("                                      ")
pozadi.setCursorPos(14,4)
pozadi.write(udalost)
pozadi.setCursorPos(13,6)
pozadi.write("                                      ")
pozadi.setCursorPos(14,6)
pozadi.write(upresneni)

pozadi.setCursorPos(w/2-8,8)
pozadi.write("                  ")
pozadi.setCursorPos(w/2-8,9)
pozadi.write(" Vyhlasit POPLACH ")
pozadi.setCursorPos(w/2-8,10)
pozadi.write("                  ")

pozadi.setBackgroundColor(colors.lightBlue)
term.setBackgroundColor(colors.lightBlue)

    while true do

            local event, button, x, y = os.pullEvent()

            if event == "mouse_click" and button == 1 then
                if x >= 13 and x <= w-1 and y == 3 then
                pozadi.setCursorPos(13,2)
                pozadi.write("                                      ")
                pozadi.setCursorPos(14,2)
                adresa = read()
                elseif x >= 13 and x <= w-1 and y == 5 then
                pozadi.setCursorPos(13,4)
                pozadi.write("                                      ")
                pozadi.setCursorPos(14,4)
                udalost = read()
                elseif x >= 13 and x <= w-1 and y == 7 then
                pozadi.setCursorPos(13,6)
                pozadi.write("                                      ")
                pozadi.setCursorPos(14,6)
                upresneni = read()
                elseif x >= 17 and x<= 34 and y >= 9 and y <= 11 then
                pozadi.setBackgroundColor(colors.red)
                pozadi.setCursorPos(w/2-8,8)
                pozadi.write("                  ")
                pozadi.setCursorPos(w/2-8,9)
                pozadi.write("     ODESLANO!    ")
                pozadi.setCursorPos(w/2-8,10)
                pozadi.write("                  ")
                modem.transmit(IDserver,990,idPC)
                sleep(0.1)
                modem.transmit(IDserver,57600,adresa)
                sleep(0.1)
                modem.transmit(IDserver,57601,udalost)
                sleep(0.1)
                modem.transmit(IDserver,57602,upresneni)
                defaultvalue()
                main()
                end
            end


            if x == w and y == 1 then
                ukonceni ()
            else
                main()
            end
        end
    end


start()