Mall Shop Info Screen

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 deutsch()
    mon = peripheral.wrap("bottom")
    mon.setTextScale(1)
    mon.setBackgroundColor(32768)
    mon.setCursorPos(1,1)
    mon.clear()

    msg(01,01,02,16,"Du brauchst schnell HVs, MVs oder LVs?")
    msg(21,01,15,16,"HVs") msg(26,01,15,16,"MVs") msg(35,01,15,16,"LVs")

    msg(01,04,05,16,"Dann bist du hier genau richtig.")

    msg(01,07,09,16,"Hier kannst du Erze gegen virtuelles")
    msg(01,08,09,16,"Geld tauschen, welches du danach sofort")
    msg(34,08,05,16,"sofort")
    msg(01,09,09,16,"gegen HVs, MVs, LVs ... tauschen kannst")
    msg(07,09,15,16,"HVs") msg(12,09,15,16,"MVs") msg(17,09,15,16,"LVs")

    msg(01,12,05,16,"Beispiele:")
    msg(01,13,09,16,"->   4 Stacks Lead Ore = 1 MV")
    msg(01,14,09,16,"->  40 Quartz Crystal  = 1 MV")
    msg(01,15,09,16,"->   9 Ghast Tears     = 1 MV")
    msg(01,16,09,16,"->   1 Wither Skull    = 2 MVs")
    msg(01,17,09,16,"->   3 Ferrouse Ore    = 1 LV")

    msg(01,19,05,16,"Geh mal rein da gibts noch mehr :D")
    for i = 20,1,-1 do
        if i <= 9 then
            msg(38,19,01,16,"  "..i)
        end
        msg(37,19,01,16," "..i)
        sleep(1)
    end
end

function english()
    mon = peripheral.wrap("bottom")
    mon.setTextScale(1)
    mon.setBackgroundColor(32768)
    mon.setCursorPos(1,1)
    mon.clear()

    msg(01,01,02,16,"You need HVs, MVs or LVs quickly?")
    msg(10,01,15,16,"HVs") msg(15,01,15,16,"MVs") msg(22,01,15,16,"LVs")

    msg(01,04,05,16,"Then you are exactly right here.")

    msg(01,07,09,16,"Here you can exchange ores for virtual")
    msg(01,08,09,16,"money, which you can then immediately")
    msg(27,08,05,16,"immediately")
    msg(01,09,09,16,"exchange for HVs, MVs, LVs...")
    msg(14,09,15,16,"HVs") msg(19,09,15,16,"MVs") msg(24,09,15,16,"LVs")

    msg(01,12,05,16,"Examples:")
    msg(01,13,09,16,"->   4 Stacks Lead Ore = 1 MV")
    msg(01,14,09,16,"->  40 Quartz Crystal  = 1 MV")
    msg(01,15,09,16,"->   9 Ghast Tears     = 1 MV")
    msg(01,16,09,16,"->   1 Wither Skull    = 2 MVs")
    msg(01,17,09,16,"->   3 Ferrouse Ore    = 1 LV")

    msg(01,19,05,16,"Come in there are more offers :D")
    for i = 20,1,-1 do
        if i <= 9 then
            msg(38,19,01,16,"  "..i)
        end
        msg(37,19,01,16," "..i)
        sleep(1)
    end
end

while true do
    deutsch()
    sleep(0.5)
    english()
    sleep(0.5)
end