TPserv-v2

--Tpserv v2

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

local side=nil
for k,v in pairs(rs.getSides()) do
  if peripheral.getType(v)=='modem' then
   rednet.open(v)
   break
  end
end

function tpRegister()
  os.sleep(0.2)
  rednet.send(id, "true")
  id, message = rednet.receive()
  message = tostring(message)
  file = fs.open(message, "w")
  file.write(id)
  file:close()
  rednet.send(id, "true")
end

function send()
lvl = 0
while true do
  dest = tonumber(dest)
  lvl = lvl + 1
  lvl = tostring(lvl)
  result = fs.exists(lvl)
  lvl = tonumber(lvl)
  if result == true and lvl == dest then
    lvl = lvl
  elseif result == true then
    lvl = tostring(lvl)
    file = io.open(lvl, "r")
    teleCom = file:read()
    file:close()
    teleCom = tonumber(teleCom)
    rednet.send(teleCom, "true")
    lvl = tonumber(lvl)
  else
    break
  end
end
end

while true do
  id, message = rednet.receive()
  if message == "teleport" then
    rednet.send(id, "true")
    id, dest = rednet.receive()
    dest = tonumber(dest)
    send()
  elseif message == "tpRegister" then
    tpRegister()
  elseif message == "conRegister" or "update" then
    i = 0
    while true do
      i = i + 1
      i = tostring(i)
      result = fs.exists(i)
      if result == false then
        i = tonumber(i)
        i = i - 1
        i = tostring(i)
        os.sleep(0.2)
        rednet.send(id, i)
        break
      else
        i = tonumber(i)
      end
    end
  end
end