ManagerDNS

local verze = "22.0222.R1"
local anim = 0.1
local RamCesta = ("/C/system/RAM/DNS")
local w, h = term.getSize()
----------------------------------------------------
local f=fs.open("/C/system/RAM/user","r")
user=f.readLine()
pass=f.readLine()
Fname=f.readLine()
Lname=f.readLine()
f.close()

local function Barvy()
    if fs.exists ("/C/system/Users/"..user.."/.Registry/colors") then
    local data = fs.open("/C/system/Users/"..user.."/.Registry/colors", "r")
    BarPoz = tonumber(data.readLine())
    BarTxt = tonumber(data.readLine())
    data.close()
    end
    if BarPoz == nil or BarTxt == nil then BarPoz = 2048 BarTxt = 1 end
end

function ukonceni ()
    fs.delete (RamCesta)
    os.exit()
end

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

function defaultvalue()
end

function start()
defaultvalue()
Barvy()
local myWindow = window.create(term.current(),w/2-11,h/2-5,25,9)
myWindow.setBackgroundColor(colors.cyan)
myWindow.setTextColor(colors.black)
myWindow.clear()
myWindow.setCursorPos (9, 5)
myWindow.write"DNS Manager"
myWindow.setCursorPos (9, 6)
myWindow.write"   (Alpha)   "
myWindow.setCursorPos (1, 1)
myWindow.write"Pepek@Soft"
myWindow.setCursorPos (22, 9)
myWindow.write"2022"
kontrola()
sleep(0.5)
menu()
end

function kontrola()
        if not fs.exists ("/C/service/DNS") and not fs.exists ("/C/service/DNS.lua") then
            if not fs.exists ("/C/stopService/DNS.lua") then
            shell.run("pastebin get WR6FV5y5 /C/service/DNS.lua")
            multishell.launch({}, "/C/service/DNS.lua")
            end
    end
end

function plocha()
w, h = term.getSize()
paintutils.drawLine(1, 1, w, 1, BarPoz)
paintutils.drawPixel (w,1, colors.red)
term.setCursorPos (w,1)
term.setTextColor(BarTxt)
write "×"
barW = window.create(term.current(),1,2,w,1)
barW.setBackgroundColor(colors.gray)
barW.clear()
barW.setTextColor(colors.white)
barW.setCursorPos(2,1)
barW.write"DNS Manager >"
pozadi = window.create(term.current(),13,3,w,h-2)
pozadi.setBackgroundColor(colors.white)
pozadi.setTextColor(colors.black)
pozadi.clear()
lista = window.create(term.current(),1,3,12,h-2)
lista.setBackgroundColor(BarPoz)
lista.setTextColor(BarTxt)
lista.clear()
lista.setCursorPos(2,3)
lista.write"Dashboard"
lista.setCursorPos(2,h-2)
lista.setTextColor(colors.white)
lista.write("Pepek@Soft")
term.setBackgroundColor(colors.lightGray)
end
-----------------------------------------------------------------------------
local page = "main"

function main()
barW.setCursorPos(19,1)
barW.write"Dashboard"
pozadi.setCursorPos(2,2)
pozadi.write"it Will be Soon,"
pozadi.setCursorPos(2,3)
pozadi.write"we are working on development"
end

function menu()
    plocha()
    if (page == "main") then
        main ()
    end

    while true do
        local event, button, x, y = os.pullEvent("mouse_click")
        xy = x..","..y

        if event == "mouse_click" and x >= 2 and x <= 12 and y == 5 then
        cbarva()
        lista.setCursorPos(1,3)--
        lista.write" Dashboard  "
        sleep(anim)
        page = "main"
        menu()
        end


        if x == w and y == 1 then
            ukonceni ()
        else
            menu() -------- stejne jako nazev funkce
        end
    end
end

start()