monitor.lua

local hostIDs = {32, 72, 95}
local teleports = {}
local textScale = 0.9


function startOperations()
    rednet.send(126, "", "dns_list")
    local senderID, message, protocol = rednet.receive("dns_list_response")
    teleports = textutils.unserialize(message)
    for k, v in pairs(teleports) do
        print(k, v)
    end
end


function display()
    monit = peripheral.wrap("top")
    monit.setTextScale(textScale)
    monit.setBackgroundColour(colors.blue)
    monit.clear()
    monit.setCursorPos(1, 1)
    local function dispNewLine()
        local x, y = monit.getCursorPos()
        monit.setCursorPos(1, y + 1)
    end

    local function displayLine()
        local width = monit.getSize()
        for i = 1, width do
            monit.write("-")
        end
        dispNewLine()
    end

    for k, v in pairs(teleports) do
        displayLine()
        monit.write(k .. " " .. v)
        dispNewLine()
        displayLine()
    end
end


function work()
    while true do
        local event, side, x, y = os.pullEvent("monitor_touch")
        local btnClicked = math.ceil(y / 3)
        print(event.."; x="..x.."; y="..y)
        print("Button clicked = "..btnClicked)
        if btnClicked <= #teleports and btnClicked > 0 then
            print(teleports[btnClicked][1] .. " -> " .. teleports[btnClicked][2])
            local hostIndex = math.ceil(btnClicked / 5)
            local targetHostID = hostIDs[hostIndex]
            print("try to send side to host")
            local result = rednet.send(targetHostID, teleports[btnClicked][1], "teleportSystem1")
            print("Is it successful? -> "..tostring(result))
        else
            print("This is not button")
        end
        print("end of operation")
        print("")
    end
end


startOperations()
display()
work()