ArenaMasterComp

--ArenaMasterComp
--NAPTlME

l = peripheral.wrap("monitor_8")
m = peripheral.wrap("monitor_9")
n = peripheral.wrap("monitor_10")
o = peripheral.wrap("monitor_11")
p = peripheral.wrap('pim_5')
p2 = peripheral.wrap('pim_4')
chest = peripheral.wrap('container_chest_3')
chest2 = peripheral.wrap('container_chest_5')
l.setBackgroundColor(colors.black)
m.setBackgroundColor(colors.black)
n.setBackgroundColor(colors.black)
o.setBackgroundColor(colors.black)
l.clear()
m.clear()
n.clear()
o.clear()

bet = {}
qty = {}
function setup()
  l.setTextScale(1)
  m.setTextScale(1)
  n.setTextScale(1)
  o.setTextScale(1)
  w,h = m.getSize()
  l.setBackgroundColor(colors.white)
  m.setBackgroundColor(colors.white)
  n.setBackgroundColor(colors.white)
  o.setBackgroundColor(colors.white)
  for i = 1,h do
    l.setCursorPos((w/2)-1,i)
    m.setCursorPos((w/2)-1,i)
    n.setCursorPos((w/2)-1,i)
    o.setCursorPos((w/2)-1,i)
    l.write(" ")
    m.write(" ")
    n.write(" ")
    o.write(" ")
  end
  l.setBackgroundColor(colors.black)
  m.setBackgroundColor(colors.black)
  n.setBackgroundColor(colors.black)
  o.setBackgroundColor(colors.black)
  line1 = "Challenger 1"
  line1_1 = "Challenger 2"
  line3 = "Head- "
  line4 = "Chest- "
  line5 = "Legs- "
  line6 = "Feet- "
  line7 = "Spells- "
  line8 = "Inventory- "
  line9 = "Bet- "
  line10 = "Team 1- "
  line10_1 = "Team 2- "
  l.setCursorPos((w/4)-(string.len(line1)/2),1)
  l.write(line1)
  m.setCursorPos((w/4)-(string.len(line1)/2),1)
  m.write(line1)
  n.setCursorPos((w/4)-(string.len(line1)/2),1)
  n.write(line1)
  o.setCursorPos((w/4)-(string.len(line1)/2),1)
  o.write(line1)
  l.setCursorPos((3*w/4)-(string.len(line1_1)/2),1)
  l.write(line1_1)
  m.setCursorPos((3*w/4)-(string.len(line1_1)/2),1)
  m.write(line1_1)
  n.setCursorPos((3*w/4)-(string.len(line1_1)/2),1)
  n.write(line1_1)
  o.setCursorPos((3*w/4)-(string.len(line1_1)/2),1)
  o.write(line1_1)
  l.setCursorPos(1,3)
  l.write(line3)
  m.setCursorPos(1,3)
  m.write(line3)
  n.setCursorPos(1,3)
  n.write(line3)
  o.setCursorPos(1,3)
  o.write(line3)
  l.setCursorPos((w/2)+2,3)
  l.write(line3)
  m.setCursorPos((w/2)+2,3)
  m.write(line3)
  n.setCursorPos((w/2)+2,3)
  n.write(line3)
  o.setCursorPos((w/2)+2,3)
  o.write(line3)
  l.setCursorPos(1,4)
  l.write(line4)
  m.setCursorPos(1,4)
  m.write(line4)
  n.setCursorPos(1,4)
  n.write(line4)
  o.setCursorPos(1,4)
  o.write(line4)
  l.setCursorPos((w/2)+2,4)
  l.write(line4)
  m.setCursorPos((w/2)+2,4)
  m.write(line4)
  n.setCursorPos((w/2)+2,4)
  n.write(line4)
  o.setCursorPos((w/2)+2,4)
  o.write(line4)
  l.setCursorPos(1,5)
  l.write(line5)
  m.setCursorPos(1,5)
  m.write(line5)
  n.setCursorPos(1,5)
  n.write(line5)
  o.setCursorPos(1,5)
  o.write(line5)
  l.setCursorPos((w/2)+2,5)
  l.write(line5)
  m.setCursorPos((w/2)+2,5)
  m.write(line5)
  n.setCursorPos((w/2)+2,5)
  n.write(line5)
  o.setCursorPos((w/2)+2,5)
  o.write(line5)
  l.setCursorPos(1,6)
  l.write(line6)
  m.setCursorPos(1,6)
  m.write(line6)
  n.setCursorPos(1,6)
  n.write(line6)
  o.setCursorPos(1,6)
  o.write(line6)
  l.setCursorPos((w/2)+2,6)
  l.write(line6)
  m.setCursorPos((w/2)+2,6)
  m.write(line6)
  n.setCursorPos((w/2)+2,6)
  n.write(line6)
  o.setCursorPos((w/2)+2,6)
  o.write(line6)
  l.setCursorPos(1,7)
  l.write(line7)
  m.setCursorPos(1,7)
  m.write(line7)
  n.setCursorPos(1,7)
  n.write(line7)
  o.setCursorPos(1,7)
  o.write(line7)
  l.setCursorPos((w/2)+2,7)
  l.write(line7)
  m.setCursorPos((w/2)+2,7)
  m.write(line7)
  n.setCursorPos((w/2)+2,7)
  n.write(line7)
  o.setCursorPos((w/2)+2,7)
  o.write(line7)
  l.setCursorPos(1,8)
  l.write(line8)
  m.setCursorPos(1,8)
  m.write(line8)
  n.setCursorPos(1,8)
  n.write(line8)
  o.setCursorPos(1,8)
  o.write(line8)
  l.setCursorPos((w/2)+2,8)
  l.write(line8)
  m.setCursorPos((w/2)+2,8)
  m.write(line8)
  n.setCursorPos((w/2)+2,8)
  n.write(line8)
  o.setCursorPos((w/2)+2,8)
  o.write(line8)
  l.setCursorPos(1,16)
  l.write(line9)
  m.setCursorPos(1,16)
  m.write(line9)
  n.setCursorPos(1,16)
  n.write(line9)
  o.setCursorPos(1,16)
  o.write(line9)
  l.setCursorPos(1,13)
  l.write(line10)
  m.setCursorPos(1,13)
  m.write(line10)
  n.setCursorPos(1,13)
  n.write(line10)
  o.setCursorPos(1,13)
  o.write(line10)
  l.setCursorPos((w/2)+2,13)
  l.write(line10_1)
  m.setCursorPos((w/2)+2,13)
  m.write(line10_1)
  n.setCursorPos((w/2)+2,13)
  n.write(line10_1)
  o.setCursorPos((w/2)+2,13)
  o.write(line10_1)
end

team1 = {}
team2 = {}
inv1 = {}
inv2 = {}

setup()
--need to differentiate which pim has a player on it
while true do
  t,e = os.pullEvent()
  if t == "player_on" then
    l.clear()
    m.clear()
    n.clear()
    o.clear()
    setup()
    s = 0
    if p.getInventorySize() > 0 then
      l.setCursorPos((w/4)-(string.len(e)/2),2)
      m.setCursorPos((w/4)-(string.len(e)/2),2)
      n.setCursorPos((w/4)-(string.len(e)/2),2)
      o.setCursorPos((w/4)-(string.len(e)/2),2)
      l.write(e)
      m.write(e)
      n.write(e)
      o.write(e)
      for k in pairs (inv1) do
        inv1[k] = nil
      end
      if not team1[e] then
        table.insert(team1,e)
      end
      d = p.getAllStacks()
      for i = #d, #d-3 do
        d2 = textutils.serialize(d[i])
        q,e,vw = string.find(d2,'rawName%s=%s"item.([.:%w%d%s%?%_]+)')
        if vw ~= nil then
          v = string.gsub(vw,"_", " ")
          lin =3
          l.setCursorPos(8, lin)
          m.setCursorPos(8, lin)
          n.setCursorPos(8,lin)
          o.setCursorPos(8,lin)
          lin= lin+1
          l.write(v)
          m.write(v)
          n.write(v)
          o.write(v)
        end
      end
      for i = 1, #d-4 do
        d2 = textutils.serialize(d[i])
        q,e, id = string.find(d2,"id%s=%s(%d+)")
        if id == 20371 then
          s = s+1
        else
          q,e,vw = string.find(d2,'rawName%s=%s"item.([.:%w%d%s%?%_]+)')
          if vw ~= nil then
            v = string.gsub(vw,"_"," ")
            table.insert(inv1,v)
          end
        end
      end
      l.setCursorPos(8,7)
      m.setCursorPos(8,7)
      n.setCursorPos(8,7)
      o.setCursorPos(8,7)
      l.write(s)
      m.write(s)
      n.write(s)
      o.write(s)
      l.setCursorPos(8,8)
      m.setCursorPos(8,8)
      n.setCursorPos(8,8)
      o.setCursorPos(8,8)
      lin = 8
      g = 1
      sn = 1
      repeat
        j = 0
        for i = tonumber(g),#inv1 do
          j = j+string.len(inv1[i])+2
          g = i
          if j > ((w/2)-2) then
            j = j - string.len(inv1[i])-2
            break
          end
        end
        l.setCursorPos(8,lin)
        l.clearLine()
        m.setCursorPos(8,lin)
        m.clearLine()
        n.setCursorPos(8,lin)
        n.clearLine()
        o.setCursorPos(8,lin)
        o.clearLine()
        for k = tonumber(sn),tonumber(g) do
          l.write(inv1[k]..", ")
          m.write(inv1[k]..", ")
          n.write(inv1[k]..", ")
          o.write(inv1[k]..", ")
        end
        lin = lin+1
        sn = g
      until g == #inv1
      x,y = l.getCursorPos()
      for i = 1, ((w/2)-2-x) do
        l.write(" ")
        m.write(" ")
        n.write(" ")
        o.write(" ")
      end
    elseif p2.getInventorySize() > 0 then
      l.setCursorPos((3*w/4)-(string.len(e)/2),2)
      m.setCursorPos((3*w/4)-(string.len(e)/2),2)
      n.setCursorPos((3*w/4)-(string.len(e)/2),2)
      o.setCursorPos((3*w/4)-(string.len(e)/2),2)
      l.write(e)
      m.write(e)
      n.write(e)
      o.write(e)
      if not team2[e] then
        table.insert(team2,e)
      end
      for k in pairs (inv2) do
        inv2[k] = nil
      end
      d = p2.getAllStacks()
      for i = #d, #d-3 do
        d2 = textutils.serialize(d[i])
        q,e,vw = string.find(d2,'rawName%s=%s"item.([.:%w%d%s%?%_]+)')
        if vw ~= nil then
          v = string.gsub(vw,"_", " ")
          lin = 3
          l.setCursorPos((w/2)+10, lin)
          m.setCursorPos((w/2)+10, lin)
          n.setCursorPos((w/2)+10,lin)
          o.setCursorPos((w/2)+10,lin)
          lin = lin+1
          l.write(v)
          m.write(v)
          n.write(v)
          o.write(v)
        end
      end
      for i = 1, #d-4 do
        d2 = textutils.serialize(d[i])
        q,e, id = string.find(d2,"id%s=%s(%d+)")
        if id == 20371 then
          s = s+1
        else
          q,e,vw = string.find(d2,'rawName%s=%s"item.([.:%w%d%s%?%_]+)')
          if vw ~= nil then
            v = string.gsub(vw,"_"," ")
            table.insert(inv2,v)
          end
        end
      end
      l.setCursorPos((w/2)+10,7)
      m.setCursorPos((w/2)+10,7)
      n.setCursorPos((w/2)+10,7)
      o.setCursorPos((w/2)+10,7)
      l.write(s)
      m.write(s)
      n.write(s)
      o.write(s)
      l.setCursorPos((w/2)+10,8)
      m.setCursorPos((w/2)+10,8)
      n.setCursorPos((w/2)+10,8)
      o.setCursorPos((w/2)+10,8)
      lin = 8
      g = 1
      sn = 1
      repeat
        j = 0
        for i = g,#inv2 do
          j = j+string.len(inv2[l])+2
          g = i
          if j > ((w/2)-2) then
            j = j - string.len(inv2[i])-2
            break
          end
        end
        l.setCursorPos((w/2)+10,lin)
        l.clearLine()
        m.setCursorPos((w/2)+10,lin)
        m.clearLine()
        n.setCursorPos((w/2)+10,lin)
        n.clearLine()
        o.setCursorPos((w/2)+10,lin)
        o.clearLine()
        for k = sn,g do
          l.write(inv2[k]..", ")
          m.write(inv2[k]..", ")
          n.write(inv2[k]..", ")
          o.write(inv2[k]..", ")
        end
        lin = lin+1
        sn = g
      until g == #inv1
      x,y = l.getCursorPos()
      for i = 1, (w-x) do
        l.write(" ")
        m.write(" ")
        n.write(" ")
        o.write(" ")
      end
    end
    l.setCursorPos(8,13)
    m.setCursorPos(8,13)
    n.setCursorPos(8,13)
    o.setCursorPos(8,13)
    for i = 1,#team1 do
      l.write(team1[i]..", ")
      m.write(team1[i]..", ")
      n.write(team1[i]..", ")
      o.write(team1[i]..", ")
    end
    l.setCursorPos((w/2)+10,13)
    m.setCursorPos((w/2)+10, 13)
    n.setCursorPos((w/2)+10,13)
    o.setCursorPos((w/2)+10,13)
    for i = 1,#team2 do
      l.write(team2[i]..", ")
      m.write(team2[i]..", ")
      n.write(team2[i]..", ")
      o.write(team2[i]..", ")
    end
    for  k in pairs(bet) do
      bet[k] = nil
    end
    for k in pairs(qty) do
      qty[k] = nil
    end
    ch1 = chest.getAllStacks()
    for i = 1,#ch1 do
      ch1_1 = textutils.serialize(ch1[i])
      q,e,chItem = string.find(ch1_1,'name%s=%s"([.:%w%d%s%?%_]+)')
      q,e,chQty = string.find(ch1_1, 'qty%s=%s(%d+)')
      if not bet[chItem] then
        table.insert(bet,chItem)
        table.insert(qty,chQty)
      else n = bet[chItem]
        num = tonumber(qty[n])
        num = num + tonumber(chQty)
        qty[n] = num
      end
    end
    ch2 = chest2.getAllStacks()
    for i = 1,#ch2 do
      ch2_1 = textutils.serialize(ch2[i])
      q,e,chItem = string.find(ch1_1,'name%s=%s"([.:%w%d%s%?%_]+)')
      q,e,chQty = string.find(ch1_1, 'qty%s=%s(%d+)')
      if not bet[chItem] then
        table.insert(bet,chItem)
        table.insert(qty,chQty)
      else n = bet[chItem]
        num = tonumber(qty[n])
        num = num + tonumber(chQty)
        qty[n] = num
      end
    end
    l.setCursorPos(8,16)
    m.setCursorPos(8,16)
    n.setCursorPos(8,16)
    o.setCursorPos(8,16)
    for i = 1,#bet do
      l.write(qty[i].." "..bet[i]..", ")
      m.write(qty[i].." "..bet[i]..", ")
      n.write(qty[i].." "..bet[i]..", ")
      o.write(qty[i].." "..bet[i]..", ")
    end
  elseif t == "redstone" then
    for k in pairs (team1) do
      team1[k] = nil
    end
    for k in pairs (team2) do
      team2[k] = nil
    end
    setup()
  end
  sleep(0.5)
end