Mall Regel Tafel

mon = peripheral.wrap("top")

function clear()
    mon.setTextColor(colors.white)
    mon.setBackgroundColor(colors.black)
    mon.setTextScale(1)
    mon.setCursorPos(1,1)
    mon.clear()
end

function ButtonsDE()
    mon.setBackgroundColor(colors.cyan)
    mon.setTextColor(colors.white)
    mon.setCursorPos(1,17)
    mon.write("                   ")
    mon.setCursorPos(1,18)
    mon.write("  Sprache  ändern  ")
    mon.setCursorPos(1,19)
    mon.write("                   ")

    mon.setCursorPos(30,17)
    mon.write("                     ")
    mon.setCursorPos(30,18)
    mon.write(" Trade-O-Mat/Regeln  ")
    mon.setCursorPos(30,19)
    mon.write("                     ")
end

function ButtonsEN()
    mon.setBackgroundColor(colors.cyan)
    mon.setTextColor(colors.white)
    mon.setCursorPos(1,17)
    mon.write("                   ")
    mon.setCursorPos(1,18)
    mon.write("  change language  ")
    mon.setCursorPos(1,19)
    mon.write("                   ")

    mon.setCursorPos(30,17)
    mon.write("                     ")
    mon.setCursorPos(30,18)
    mon.write("  Trade-O-Mat/Rules  ")
    mon.setCursorPos(30,19)
    mon.write("                     ")
end

function InfoEN()
    clear()
    mon.setTextColor(colors.cyan)
    mon.setCursorPos(11,2)
    mon.write("----- Shop Informations -----")
    mon.setTextColor(colors.white)
    mon.setCursorPos(2,5)
    mon.write("- Shops with fraudulent offers will be deleted.")
    mon.setCursorPos(2,7)
    mon.write("- Only one shop per player.")
    mon.setCursorPos(2,9)
    mon.write("- Buy/Sell the shop by clicking on the sign,")
    mon.setCursorPos(2,10)
    mon.write("  every week costs you 1500$")
    mon.setCursorPos(2,12)
    mon.write("- Your Shop can be deleted as soon as you")
    mon.setCursorPos(2,13)
    mon.write("  are offline for more then 4 months.")
    ButtonsEN()
end

function RulesEN()
    clear()
    mon.setTextColor(colors.cyan)
    mon.setCursorPos(9,2)
    mon.write("----- Trade-O-Mat/Rules -----")
    mon.setTextColor(colors.white)
    mon.setCursorPos(2,5)
    mon.write("Item minimum prices:")

    mon.setTextColor(colors.lightGray)
    mon.setCursorPos(2,6)
    mon.write("LV Solar Panel:  150$      Solar Panel:   70$")
    mon.setCursorPos(2,7)
    mon.write("MV Solar Panel: 1000$      Shiny Ingot:  500$")
    mon.setCursorPos(2,8)
    mon.write("HV Solar Panel: 8000$      Ferrouse Ore:  50$")

    mon.setTextColor(colors.white)
    mon.setCursorPos(2,10)
    mon.write("Trade minimum prices:")

    mon.setTextColor(colors.lightGray)
    mon.setCursorPos(2,11)
    mon.write(" 2 Shiny Ingot          ->   1 MV Solar Panel")
    mon.setCursorPos(2,12)
    mon.write("20 Ferrouse Ore         ->   1 MV Solar Panel")
    mon.setCursorPos(2,13)
    mon.write("16 Lead Ore (32 Ingot)  ->   1 LV Solar Panel")
    mon.setCursorPos(2,14)
    mon.write(" 1 Wither Skull         ->   1 HV Solar Panel")

    ButtonsEN()
end


function InfoDE()
    clear()
    mon.setTextColor(colors.cyan)
    mon.setCursorPos(11,2)
    mon.write("----- Shop Informations -----")
    mon.setTextColor(colors.white)
    mon.setCursorPos(2,5)
    mon.write("- Shops mit betrügerischen Angeboten werden")
    mon.setCursorPos(2,6)
    mon.write("  gelöscht.")
    mon.setCursorPos(2,8)
    mon.write("- Nur ein Shop pro Spieler.")
    mon.setCursorPos(2,10)
    mon.write("- Kaufe/Verkaufe den Shop, indem du auf das")
    mon.setCursorPos(2,11)
    mon.write("  Schild klickst pro Woche kostet er dich 1500$")
    mon.setCursorPos(2,13)
    mon.write("- Der Shop kann gelöscht werden, sobald du")
    mon.setCursorPos(2,14)
    mon.write("  länger als 4 Monate offline bist.")
    ButtonsDE()
end

function RulesDE()
    clear()
    mon.setTextColor(colors.cyan)
    mon.setCursorPos(9,2)
    mon.write("----- Trade-O-Maten/Regeln -----")
    mon.setTextColor(colors.white)
    mon.setCursorPos(2,5)
    mon.write("Item Mindestpreise:")

    mon.setTextColor(colors.lightGray)
    mon.setCursorPos(2,6)
    mon.write("LV Solar Panel:  150$      Solar Panel:   70$")
    mon.setCursorPos(2,7)
    mon.write("MV Solar Panel: 1000$      Shiny Ingot:  500$")
    mon.setCursorPos(2,8)
    mon.write("HV Solar Panel: 8000$      Ferrouse Ore:  50$")

    mon.setTextColor(colors.white)
    mon.setCursorPos(2,10)
    mon.write("Trade Mindestpreise:")

    mon.setTextColor(colors.lightGray)
    mon.setCursorPos(2,11)
    mon.write(" 2 Shiny Ingot          ->   1 MV Solar Panel")
    mon.setCursorPos(2,12)
    mon.write("20 Ferrouse Ore         ->   1 MV Solar Panel")
    mon.setCursorPos(2,13)
    mon.write("16 Lead Ore (32 Ingot)  ->   1 LV Solar Panel")
    mon.setCursorPos(2,14)
    mon.write(" 1 Wither Skull         ->   1 HV Solar Panel")
    ButtonsDE()
end

function MainScreen1()
    InfoEN()
    Language = 1

    while true do
        local event, button, X, Y = os.pullEvent("monitor_touch")
        if X >= 1 and X <= 17 and Y >= 17 and Y <= 19 then  --Sprache
            if Language == 1 then
                InfoDE()
                Language = 0
            elseif Language == 0 then
                InfoEN()
                Language = 1
            end

        elseif X >= 30 and X <= 50 and Y >= 17 and Y <= 19 then     --Regeln
            MainScreen2()
        end
    end
end

function MainScreen2()
    RulesEN()
    Language = 1

    while true do
        local event, button, X, Y = os.pullEvent("monitor_touch")
        if X >= 1 and X <= 17 and Y >= 17 and Y <= 19 then  --Sprache
            if Language == 1 then
                RulesDE()
                Language = 0
            elseif Language == 0 then
                RulesEN()
                Language = 1
            end

        elseif X >= 30 and X <= 50 and Y >= 17 and Y <= 19 then     --Regeln
            MainScreen1()
        end
    end
end

MainScreen1()