WAVEOS

local currentDisplay = nil
-- Utilitys --
local function newline(periph = term)
    local cx, cy = periph.getCursorPos()
    periph.setCursorPos(1, cy +1)
end
local function cls(periph)
    periph.clear()
    periph.setCursorPos(1,1)
end
local function getTime(Tformat)
    local site = http.get("http://mariomarco.funpic.de/others/TIME.php?format=".. Tformat) --http://www.schattenbaum.net/php/datum.php
    if site == nil then
        return false
    else
        return site.readAll()
        site.close()
    end
end
-- DIALOGUES --
local function showBanner(periph)
    currentDisplay = "banner"
    periph.write(" _        __    _      ____      ___   __  ")
    newline(periph)
    periph.write("\ \    / / /\  \ \  / | |_      / / \ ( (` ")
    newline(periph)
    periph.write(" \_\/\/ /_/--\  \_\/  |_|__     \_\_/ _)_) ")
    newline(periph)
    periph.write("___________________________________________")
    newline(periph)
    periph.write("--      Created by Marco di Rich         --")
    newline(periph)
end
local function showScreenSetup()
    currentDisplay = "screenSetup"
    term.write("___________________________________________")
    newline(term)
    term.write("         Set <- " .. periph .. " -> Monitor          ")     -- 6 space for string
    newline(term)
    term.write("         as main Display.                  ")
    newline(term)
    term.write("___________________________________________")
    newline(term)
    term.write("--      Created by Marco di Rich         --")
    newline(term)
end
local function showColorSetup()
    currentDisplay = "colorSetup"
    term.write("___________________________________________")
    newline(term)
    term.write("      Use <- f -> as Background color.     ")
    newline(term)
    term.write("      Use <- f -> as Text color.           ")
    newline(term)
    term.write("___________________________________________")
    newline(term)
    term.write("--      Created by Marco di Rich         --")
    newline(term)
end
local function showYesOrCancel()
    currentDisplay = "YoC"
    term.write("___________________________________________")
    newline(term)
    term.write("                                           ")
    newline(term)
    term.write("     | Yes |               | Cancel |      ")
    newline(term)
    term.write("___________________________________________")
    newline(term)
    term.write("--      Created by Marco di Rich         --")
    newline(term)
end
local function showYesOrCancel(Text)
    currentDisplay = "YoC"
    term.write("___________________________________________")
    newline(term)
    term.write("  " .. Text)                                                -- Text should be 41 chars long
    newline(term)
    term.write("     | Yes |               | Cancel |      ")
    newline(term)
    term.write("___________________________________________")
    newline(term)
    term.write("--      Created by Marco di Rich         --")
    newline(term)
end
local function showYesOrNo()
    currentDisplay = "YoN"
    term.write("___________________________________________")
    newline(term)
    term.write("                                           ")
    newline(term)
    term.write("     | Yes |               | No |          ")
    newline(term)
    term.write("___________________________________________")
    newline(term)
    term.write("--      Created by Marco di Rich         --")
    newline(term)
end
local function showYesOrNo(Text)
    currentDisplay = "YoN"
    term.write("___________________________________________")
    newline(term)
    term.write("  " .. Text)                                                -- Text should be 41 chars long
    newline(term)
    term.write("     | Yes |               | No |          ")
    newline(term)
    term.write("___________________________________________")
    newline(term)
    term.write("--      Created by Marco di Rich         --")
    newline(term)
end
local function showClock()
    currentDisplay = "clock"
    term.write("___________________________________________")
    newline(term)
    term.write("                ".. getTime(Tformat) .. "                   ")
    newline(term)
    term.write("             <-          ->                ")
    newline(term)
    term.write("___________________________________________")
    newline(term)
    term.write("--      Created by Marco di Rich         --")
    newline(term)
end
local function showCrashScreen()
    term.write("___________________________________________")
    newline(term)
    term.write("         Oups. That's an error :(          ")
    newline(term)
    term.write("                                           ")
    newline(term)
    term.write("___________________________________________")
    newline(term)
    term.write("--      Created by Marco di Rich         --")
    newline(term)
end