RFI - Functions

scambi = []
semafori = {}
mappaScambiPos = {}
mappaScambiName = {}
mappaSemaforiPos = {}
mappaSemaforiName = {}

function split(s, delimiter)
  result = {}
  for match in (s..delimiter):gmatch("(.-)"..delimiter) do
    table.insert(result, match)
  end
  return result
end

function scambio(x, y, type, color)
  local scambio = {}
  table.insert(scambio, color)
  table.insert(scambio, x)
  table.insert(scambio, y)
  table.insert(scambio, type)
  table.insert(scambi, scambio)
  table.insert(mappaScambiPos, x .. "," .. y)
  table.insert(mappaScambiName, color)
end

function semaforo(x, y, color)
  local semaforo = {}
  table.insert(semaforo, color)
  table.insert(semaforo, x)
  table.insert(semaforo, y)
  table.insert(semafori, semaforo)
  table.insert(mappaSemaforiPos, x .. "," .. y)
  table.insert(mappaSemaforiName, color)
end

function getSemaforoPositionByName(color)
  for i, v in pairs(semaforiName) do
    if (v == color) then
      return semaforiPos[i]
    end
  end
end

function getScambioPosByName(color)
  for i, v in pairs(scambiName) do
    if (v == color) then
      return scambiPos[i]
    end
  end
end

function getScambioTypeByName(color)
  for i, v in pairs(scambiName) do
    if (v == color) then
      return scambi[i][4]
    end
  end
end

function getScambioNameByPos(x, y)
  for i, v in pairs(scambiPos) do
    if (x .. "," .. y == v) then
      return scambiName[i]
    end
  end
end

function viewScambi()
  for i, v in pairs(scambiName) do
    local dim = split(scambiPos[i], ",")
    local type = getScambioTypeByName(v)
    term.setCursorPos(dim[1], dim[2])
    term.setTextColor(colors.white)
    term.setBackgroundColor(colors.green)
    term.write(type)
  end
end