How To Start

mon = peripheral.wrap("top")
k = 6
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(13,02,k,16,"Wie starte ich richtig in Tekkit Lite") msg(53,01,09,16,"Seite 1/2")
    msg(02,04,k,16," ")             msg(15,04,09,16," - ")
    msg(02,05,k,16," ")             msg(15,05,09,16," - ")
    msg(02,06,k,16," ")             msg(15,06,09,16," - ")
    msg(02,08,k,16," ")             msg(15,08,09,16," - ")
    msg(02,09,k,16," ")             msg(15,09,09,16," - ")
    msg(02,10,k,16," ")             msg(15,10,09,16," - ")
    msg(02,12,k,16," ")             msg(15,12,09,16," - ")
    msg(02,13,k,16," ")             msg(15,13,09,16," - ")
    msg(02,14,k,16," ")             msg(15,14,09,16," - ")
end

function Main2DE()
    Clear()
    msg(21,02,k,16,"How do I get started")  msg(53,01,09,16,"Seite 2/2")
    msg(02,04,k,16," ")             msg(15,04,09,16," - ")
    msg(02,05,k,16," ")             msg(15,05,09,16," - ")
    msg(02,06,k,16," ")             msg(15,06,09,16," - ")
    msg(02,08,k,16," ")             msg(15,08,09,16," - ")
    msg(02,09,k,16," ")             msg(15,09,09,16," - ")
    msg(02,10,k,16," ")             msg(15,10,09,16," - ")
    msg(02,12,k,16," ")             msg(15,12,09,16," - ")
    msg(02,13,k,16," ")             msg(15,13,09,16," - ")
    msg(02,14,k,16," ")             msg(15,14,09,16," - ")
end

function Main1EN()
    Clear()
    msg(21,02,k,16,"How do I get started")  msg(53,01,09,16," Page 1/2")
    msg(02,04,k,16," ")             msg(15,04,09,16," - ")
    msg(02,05,k,16," ")             msg(15,05,09,16," - ")
    msg(02,06,k,16," ")             msg(15,06,09,16," - ")
    msg(02,08,k,16," ")             msg(15,08,09,16," - ")
    msg(02,09,k,16," ")             msg(15,09,09,16," - ")
    msg(02,10,k,16," ")             msg(15,10,09,16," - ")
    msg(02,12,k,16," ")             msg(15,12,09,16," - ")
    msg(02,13,k,16," ")             msg(15,13,09,16," - ")
    msg(02,14,k,16," ")             msg(15,14,09,16," - ")
end

function Main2EN()
    Clear()
    msg(24,02,k,16,"Good Start Infomations")    msg(53,01,09,16," Page 2/2")
    msg(02,04,k,16," ")             msg(15,04,09,16," - ")
    msg(02,05,k,16," ")             msg(15,05,09,16," - ")
    msg(02,06,k,16," ")             msg(15,06,09,16," - ")
    msg(02,08,k,16," ")             msg(15,08,09,16," - ")
    msg(02,09,k,16," ")             msg(15,09,09,16," - ")
    msg(02,10,k,16," ")             msg(15,10,09,16," - ")
    msg(02,12,k,16," ")             msg(15,12,09,16," - ")
    msg(02,13,k,16," ")             msg(15,13,09,16," - ")
    msg(02,14,k,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()
            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