Starter-Informations

mon = peripheral.wrap("top")
mon.setTextScale(1)
mon.setBackgroundColor(32768)
mon.setCursorPos(1,1)
mon.clear()

function calc_color(color)
    return math.pow(2, color - 1)
end

function msg(gap, line, color, groundb, text)
    mon.setBackgroundColor(calc_color(groundb))
    mon.setCursorPos(gap,line)
    mon.setTextColor(calc_color(color))
    text = mon.write(text)
end

function Clear()
    mon.setBackgroundColor(32768)
    for i = 1,16 do
        msg(01,i,16,16,"                                                             ")
    end
end

function LangSelectDE()
    msg(01,17,16,04,"           ") msg(48,17,16,04,"       ") msg(56,17,16,04,"       ")
    msg(01,18,16,04,"  Deutsch  ") msg(48,18,16,04,"  <--  ") msg(56,18,16,04,"  -->  ")
    msg(01,19,16,04,"           ") msg(48,19,16,04,"       ") msg(56,19,16,04,"       ")
end

function LangSelectEN()
    msg(01,17,16,04,"           ") msg(48,17,16,04,"       ") msg(56,17,16,04,"       ")
    msg(01,18,16,04,"  English  ") msg(48,18,16,04,"  <--  ") msg(56,18,16,04,"  -->  ")
    msg(01,19,16,04,"           ") msg(48,19,16,04,"       ") msg(56,19,16,04,"       ")
end

function Main1DE()
    Clear()
    msg(24,02,04,16," Wichtige Befehle")    msg(53,01,09,16,"Seite 1/2")
    msg(02,04,04,16," /regeln")             msg(15,04,09,16," - Server-Regeln bitte lesen!")
    msg(02,05,04,16," /banneditems")        msg(15,05,09,16," - Liste aller gebannten Items")
    msg(02,06,04,16," /recipes")            msg(15,06,09,16," - Server eigene Crafting-Rezepte")
    msg(02,08,04,16," /counter")            msg(15,08,09,16," - Liste begrenzt setzbarer Blöcke ")
    msg(02,09,04,16," /shop")               msg(15,09,09,16," - Adminshop für Rechte/Ränge/Spawner")
    msg(02,10,04,16," /perks")              msg(15,10,09,16," - Spezielle Zusatzrechte freischalten")
    msg(02,12,04,16," /team")               msg(15,12,09,16," - Welche Team-Mitglieder sind online")
    msg(02,13,04,16," /kits")               msg(15,13,09,16," - Liste kostenloser Kits")
    msg(02,14,04,16," /warps")              msg(15,14,09,16," - Warppunkte und Weltenliste")
end

function Main2DE()
    Clear()
    msg(24,02,04,16," Wichtige Befehle")    msg(53,01,09,16,"Seite 2/2")
    msg(02,04,04,16," /claims")             msg(15,04,09,16," - Liste deiner Grundstücke (Teleport möglich)")
    msg(02,05,04,16," /tpa [name]")         msg(15,05,09,16," - Teleportier-Anfrage")
    msg(02,06,04,16," /back")               msg(15,06,09,16," - Zum letzten Punkt zurück Teleportieren")
    msg(02,08,04,16," /weekly")             msg(15,08,09,16," - Wöchentliche Aufgaben mit Belohnungen")
    msg(02,09,04,16," /lvt start")          msg(15,09,09,16," - Starte einen Tag-Vote")
    msg(02,10,04,16," /performance")        msg(15,10,09,16," - Wer verursacht die meiste Serverlast")
    msg(02,12,04,16," /stammi")             msg(15,12,09,16," - Erklärung des Stammi(+) Rangs")
    msg(02,13,04,16," ")            msg(15,13,09,16," - ")
    msg(02,14,04,16," ")            msg(15,14,09,16," - ")
end

function Main1EN()
    Clear()
    msg(24,02,04,16," Important commands")  msg(53,01,09,16," Page 1/2")
    msg(02,04,04,16," /rules")              msg(15,04,09,16," - Server-Rules please read!")
    msg(02,05,04,16," /banneditems")        msg(15,05,09,16," - List of all banned items")
    msg(02,06,04,16," /recipes")            msg(15,06,09,16," - Server own crafting recipes")
    msg(02,08,04,16," /counter")            msg(15,08,09,16," - List of limited placeable blocks")
    msg(02,09,04,16," /shop")               msg(15,09,09,16," - Adminshop for Perms/Ranks/Spawners")
    msg(02,10,04,16," /perks")              msg(15,10,09,16," - Unlock special additional permissions")
    msg(02,12,04,16," /team")               msg(15,12,09,16," - Which team members are online")
    msg(02,13,04,16," /kits")               msg(15,13,09,16," - List of free kits")
    msg(02,14,04,16," /warps")              msg(15,14,09,16," - Warp points and world list")
end

function Main2EN()
    Clear()
    msg(24,02,04,16," Important commands")  msg(53,01,09,16," Page 2/2")
    msg(02,04,04,16," /claims")             msg(15,04,09,16," - List of your properties (teleport possible)")
    msg(02,05,04,16," /tpa [name]")         msg(15,05,09,16," - Teleport request")
    msg(02,06,04,16," /back")               msg(15,06,09,16," - Teleport back to last point")
    msg(02,08,04,16," /weekly")             msg(15,08,09,16," - Weekly tasks with rewards")
    msg(02,09,04,16," /lvt start")          msg(15,09,09,16," - Start a Day-Vote")
    msg(02,10,04,16," /performance")        msg(15,10,09,16," - Who causes the most server load")
    msg(02,12,04,16," /stammi")             msg(15,12,09,16," - Explanation of Stammi(+) Rank")
    msg(02,13,04,16," ")            msg(15,13,09,16," - ")
    msg(02,14,04,16," ")            msg(15,14,09,16," - ")
end

Language = 1    --Deutsch
Language = 2    --English
Page = 1

while true do
    if Language == 2 then
        if Page == 1 then
            Main1EN()
            LangSelectDE()
        elseif Page == 2 then
            Main2EN()
            LangSelectDE()
        end
    elseif Language == 1 then
        if Page == 1 then
            Main1DE()
            LangSelectEN()
        elseif Page == 2 then
            Main2DE()
            LangSelectEN()
        end
    end

    event, side, x, y = os.pullEvent("monitor_touch")
    if x >= 1 and x <= 11 and y >= 17 and y <= 19 then
        if Language == 2 then
            Language = 1
            if Page == 1 then
                Main1DE()
            elseif Page == 2 then
                Main2DE()
            end
        elseif Language == 1 then
            Language = 2
            if Page == 1 then
                Main1EN()
            elseif Page == 2 then
                Main2EN()
            end
        end
    elseif x >= 48 and x <= 53 and y >= 17 and y <= 19 and Page == 2 then
        Page = 1
        if Language == 2 then
            Main1EN()
        elseif Language == 1 then
            Main1DE()
        end
    elseif x >= 56 and x <= 61 and y >= 17 and y <= 19 and Page == 1 then
        Page = 2
        if Language == 2 then
            Main2EN()
        elseif Language == 1 then
            Main2DE()
        end
    end
    sleep(0.5)
end