Only on this Server

mon = peripheral.wrap("top")
k = 5
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 LangSelect()
    msg(01,17,16,k,"                   ") msg(48,17,16,k,"       ") msg(56,17,16,k,"       ")
    msg(01,18,16,k,"  change language  ") msg(48,18,16,k,"  <--  ") msg(56,18,16,k,"  -->  ")
    msg(01,19,16,k,"                   ") msg(48,19,16,k,"       ") msg(56,19,16,k,"       ")
end

function Main1DE()
    Clear()
    msg(18,02,k,16,"NEU - Nur auf diesem Server")   msg(53,01,09,16,"Seite 1/2")
    msg(02,04,k,16,"Erfolge:  (/ach)")
    msg(02,05,09,16,"Erledige Aufgaben und bekomme tolle Belohnungen,")
    msg(02,06,09,16,"wie Geld, XP, Coupones, seltene Spawner, spezielle")
    msg(02,07,09,16,"Rechte, Ränge und Erfolgspunkte.")
    msg(02,09,k,16,"Perks:  (/perks)")
    msg(02,10,09,16,"Hier kannst du deine Erfolgspunkte gegen")
    msg(02,11,09,16,"Spezial-Rechte und Erweiterungen tauschen, wie")
    msg(02,12,09,16,"mehr Schaden, höhere Dropraten, Ultimative Spitzhacke.")
    msg(02,14,k,16,"Tik Tak Toe:  (/ttt)")
    msg(02,15,09,16,"Spiele mit anderen zusammen Tik Tak Toe.")
end

function Main2DE()
    Clear()
    msg(18,02,k,16,"NEU - Nur auf diesem Server")   msg(53,01,09,16,"Seite 2/2")
    msg(02,04,k,16,"Craftingrezepte:  (/recipes)")
    msg(02,05,09,16,"Neue Crafting/Ofen Rezepte für Spezielle Items")
    msg(02,06,09,16," ")
    msg(02,07,k,16,"Wöchentliche Erfolge:  (/weekly)")
    msg(02,08,09,16,"3 Erfolge für die du eine Woche Zeit hast, wenn das")
    msg(02,09,09,16,"Serverweite Ziel Erreicht wurde gibt es extra Belohnungen.")
    msg(02,10,09,16," ")
    msg(02,11,k,16,"Super Mass Fabricator:  (SMF)")
    msg(02,12,09,16,"Unter /smf wir der SMF genau erklärt.")
    msg(02,13,09,16," ")
    msg(02,14,k,16,"Gruppen erstellen:  (/group help)")
    msg(02,15,09,16,"In einer Gruppe, bekommen alle Spieler die gleichen Erfolge.")
end

function Main1EN()
    Clear()
    msg(18,02,k,16,"NEW - Only on this Server") msg(53,01,09,16," Page 1/2")
    msg(02,04,k,16,"Neue Craftingrezepte:  (/recipes)")
    msg(02,04,k,16,"Achievments:  (/ach)")
    msg(02,05,09,16,"Complete tasks and get great rewards,")
    msg(02,06,09,16,"like money, XP, coupons, rare spawners, special")
    msg(02,07,09,16,"Rights, ranks and achievement points.")
    msg(02,09,k,16,"Perks:  (/perks)")
    msg(02,10,09,16,"Here you can exchange your achievement points for")
    msg(02,11,09,16,"special permissions and extensions, such as")
    msg(02,12,09,16,"more damage, higher drop rates, Ultimate-Pickaxe.")
    msg(02,14,k,16,"Tik Tak Toe:  (/ttt)")
    msg(02,15,09,16,"Play Tic Tac Toe with others.")
end

function Main2EN()
    Clear()
    msg(18,02,k,16,"NEW - Only on this Server") msg(53,01,09,16," Page 2/2")
    msg(02,04,k,16,"Craftingrecipes:  (/recipes)")
    msg(02,05,09,16,"New crafting/oven recipes for special items")
    msg(02,06,09,16," ")
    msg(02,07,k,16,"Weekly Achievments:  (/weekly)")
    msg(02,08,09,16,"3 achievements for which you have one week, if the")
    msg(02,09,09,16,"server-wide goal is reached there are extra rewards.")
    msg(02,10,09,16," ")
    msg(02,11,k,16,"Super Mass Fabricator:  (SMF)")
    msg(02,12,09,16,"The SMF is explained in detail under /smf.")
    msg(02,13,09,16," ")
    msg(02,14,k,16,"Gruppen erstellen:  (/group help)")
    msg(02,15,09,16,"In a group, all players get the same achievements.")
end

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

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

    event, side, x, y = os.pullEvent("monitor_touch")
    if x >= 1 and x <= 19 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