temp

local Args = {...}

local VText = {
"S",
"A",
"L",
"L",
"E",
" ",
"D",
"E",
"S",
" ",
"M",
"A",
"C",
"H",
"I",
"N",
"E",
"S"
}

local HText = {
"",
"SALLE DES MACHINES"
}

local MonitorSide = "left"
local TextScale = 1.9

local function printScrollHorizontal(p, t)
    local w, h = p.getSize()
    local scroll = 1
    local maxLen
    ModSet = 0
    for i, line in ipairs(t) do
        if not maxLen or #line > maxLen then
            maxLen = #line
        end
    end
    while true do
        p.clear()
        for i, line in ipairs(t) do
            p.setCursorPos(w - scroll, i)
            p.write(line)
        end
        scroll = scroll + 1
        if scroll >= w + maxLen then
            scroll = 1
        end
        sleep(0.15)
    end
end

local function printScrollVertical(p, t)
    local w, h = p.getSize()
    while true do
        p.clear()
        for k,v in ipairs(t) do
            p.setCursorPos(1,h)
            p.write(v)
            os.sleep(0.35)
            p.scroll(1)
        end

        for i=1,tablelength(t) do
            p.scroll(1)
            os.sleep(0.35)
        end
    end
end

function tablelength(a)
    local b = 0
    for _ in pairs(a) do b = b + 1 end
    return b-2
end

local p = peripheral.wrap(MonitorSide)
p.setTextScale(TextScale)

term.clear()
term.setCursorPos(1, 1)


if Args[1] ~= "V" then
    print("Scroll Text Horizontal")
    printScrollHorizontal(p, HText, sx)
else
    print("Scroll TextVertical")
    printScrollVertical(p, VText)
end