TPconsole-v2

--Tp Console V2

local side=nil
for k,v in pairs(rs.getSides()) do
  if peripheral.getType(v)=='monitor' then
   side = v
   mon = peripheral.wrap(side)
   break
  end
end

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

function conRegister()
  rednet.broadcast("conRegister")
  os.sleep(0.1)
  serv, levels = rednet.receive()
  file = fs.open("serv", "w")
  file.write(serv)
  file:close()
  file = fs.open("levels", "w")
  file.write(levels)
  file:close()
end

function update()
  rednet.send(serv, "update")
  os.sleep(0.1)
  dud, levels = rednet.receive()
  file = fs.open("levels", "w")
  file.write(levels)
  file:close()
end

function display()
x,y = mon.getSize()
mt = {}
mon.setBackgroundColor(colors.black)
mon.clear()
mon.setTextColor(colors.black)
levels = tonumber(levels)
digi = levels
p = 0
for i = 1, levels, 2 do
  p = p + 1
  mon.setCursorPos(x/2,digi)
  digi = digi - 1
  mon.setBackgroundColor(colors.yellow)
  p = tostring(p)
  mon.write(" "..p.." ")
  p = tonumber(p)
  p = p + 1
  mon.setCursorPos(x/2,digi)
  digi = digi - 1
  mon.setBackgroundColor(colors.orange)
  p = tostring(p)
  mon.write(" "..p.." ")
  p = tonumber(p)
end
end

result = fs.exists("serv")
if result == true then
  file = io.open("serv", "r")
  serv = file.read()
  file:close()
  serv = tonumber(serv)
  file = io.open("levels", "r")
  levels = file.read()
  file:close()
  levels = tonumber(levels)
else
  conRegister()
end
display()
while true do
event, side, xPos, yPos = os.pullEvent("monitor_touch")
tpFloor = levels - yPos + 1
if tpFloor > 0 then
  rednet.send(serv, "teleport")
  dud, dud2 = rednet.receive()
  rednet.send(serv, tpFloor)
end
  os.sleep(0.5)
  update()
  display()
end