Lycodon Regel Änderung

side = ("top") --Monitor Seite für Buttonabfrage
mon = peripheral.wrap("top")
mon.setBackgroundColor(colors.black)
mon.setTextScale(1.5)
mon.setCursorPos(1,1)
mon.clear()

function msg(gap, line, text)
    mon.setCursorPos(gap,line)
    text = mon.write(text)
end

function deutsch()
    a = 1
    mon.setBackgroundColor(colors.black)
    mon.setCursorPos(1,1)
    mon.clear()
    sleep(0.5)
    mon.setTextColor(colors.yellow)
    msg(01,1,"Regeländerung ab dem 01.02.2023  ")
    msg(01,2,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  ")

    mon.setTextColor(colors.lightGray)
    msg(01,3,"Die Abbaufläche einer TBM, egal  ")
    msg(01,4,"in welcher Form, beträgt nun     ")
    msg(01,5,"30 Blöcke.                       ")
    msg(01,6,"Es ist nur eine TBM pro Spieler  ")
    msg(01,7,"erlaubt.                         ")

    mon.setTextColor(colors.black)
    mon.setBackgroundColor(colors.white)
    msg(25,8," english ")
end

function english()
    a = 2
    mon.setBackgroundColor(colors.black)
    mon.setCursorPos(1,1)
    mon.clear()
    sleep(0.5)
    mon.setTextColor(colors.yellow)
    msg(01,1,"Rule change from 02/01/2023      ")
    msg(01,2,"~~~~~~~~~~~~~~~~~~~~~~~~~~~      ")

    mon.setTextColor(colors.lightGray)
    msg(01,3,"The excavation area of a TBM, no ")
    msg(01,4,"matter what type of construction ")
    msg(01,5,"is now 30 blocks.                ")
    msg(01,6,"Only one TBM per player is       ")
    msg(01,7,"allowed.                         ")

    mon.setTextColor(colors.black)
    mon.setBackgroundColor(colors.white)
    msg(25,8," deutsch ")
end



--programm start

english()

while true do
    local event, side, X, Y = os.pullEvent("monitor_touch")
    if X >= 1 and Y >= 01 and side == side and a == 2 then
        deutsch()
    elseif X >= 1 and Y >= 01 and side == side and a == 1 then
        english()
    end
    sleep(0.5)
end