Arena

local function pastebin(sName, sFile) --Gets pastebin files
  tPaste = http.get("http://www.pastebin.com/raw/"..sName)
  if not fs.exists(sFile) then
    local tInternal = fs.open(sFile,"w")
    for line in tPaste.readLine do
      tInternal.writeLine(line)
    end
    tInternal.close()
  end
end

if not daemon then
    if not fs.exists("daemon") then
        pastebin("0zvqEG6N","daemon")
    end
    os.loadAPI("daemon")
end
local daemon = daemon
_G.daemon = nil

local nativefs = {}
for k,v in next, fs do
    nativefs[k] = v
end
local fs = {}

local size,file1,file2 = ...
size = tonumber(size)

local remaining = size


local timer = {}
timer[file1] = 10
timer[file2] = 10

local env = getfenv(1)

local fileSystem = {}

local function breakTbl(tbl)
    if type(tbl)~= "table" then
        return tbl
    else
        local output = {}
        for k,v in next, tbl do
            output[k] = breakTbl(v)
        end
        return output
    end
end

function fs.open(block, sType)
    if fileSystem[block]=="deleted" or type(block)~="number" or (sType=="w" and fileSystem[block]) or block>size or block<1 then
        error("failed")
    end
    if sType=="r" then
        sleep(.1)
        local i=0
        return {
            read = function()
                i = i+1
                return fileSystem[block][i]
            end
        }
    elseif sType=="w" then
        sleep(.2)
        local handle = {}
        return {
            write = function(data)
                table.insert(handle,data)
            end;
            close = function()
                local func = loadstring(table.concat(handle,"\n"),"block "..tostring(block))
                setfenv(func,setmetatable({},{__index=function(t,k)
                    if k=="fs" then
                        return fs
                    elseif k=="io" then
                        return nil
                    elseif _G[k] then
                        return breakTbl(_G[k])
                    else
                        return breakTbl(env[k])
                    end
                end}))
                fileSystem[block] = {daemon.add(func),handle}
            end;
        }
    end
end

function fs.check(block)
    if block>size or block<1 then
        error("failed")
    end
    sleep(.1)
    return (not fileSystem[block] and 0) or (fileSystem[block]=="deleted" and -1) or 1
end

function fs.delete(block)
    if fileSystem[block]=="deleted" or block>size or block<1 then
        error("failed")
    end
    sleep(.1)
    if fileSystem[block] then
        daemon.rem(fileSystem[block][1])
        sleep(.1)
    end
    remaining = remaining - 1
    fileSystem[block]="deleted"
end

function fs.create(block)
    if not (fileSystem[block]=="deleted") or block>size or block<1 then
        error("failed")
    end
    sleep(.2)
    fileSystem[block] = nil
end

function fs.size()
    return size
end

function fs.resetTimer(str)
    if timer[str] then
        timer[str] = 10
    end
end





local player1,player2 = {},{}
local file = nativefs.open(file1,"r")
for line in file.readLine do
    table.insert(player1,line)
end
file = nativefs.open(file2,"r")
for line in file.readLine do
    table.insert(player2,line)
end
local block1,block2
repeat
    block1,block2 = math.random(1,size),math.random(1,size)
until block1~=block2
local func = loadstring(table.concat(player1,"\n"),"block "..tostring(block1))
setfenv(func,setmetatable({},{__index=function(t,k)
    if k=="fs" then
        return fs
    elseif k=="io" then
        return nil
    elseif _G[k] then
        return breakTbl(_G[k])
    else
        return breakTbl(env[k])
    end
end}))
fileSystem[block1] = {daemon.add(func),player1}
func = loadstring(table.concat(player2,"\n"),"block "..tostring(block2))
setfenv(func,setmetatable({},{__index=function(t,k)
    if k=="fs" then
        return fs
    elseif k=="io" then
        return nil
    elseif _G[k] then
        return breakTbl(_G[k])
    else
        return breakTbl(env[k])
    end
end}))
fileSystem[block2] = {daemon.add(func),player2}





while true do
    sleep(1)
    timer[file1] = timer[file1] - 1
    timer[file2] = timer[file2] - 1
    if timer[file1] <= 0 then
        for _,routine in ipairs(daemon.getBackground()) do
            daemon.rem(routine)
        end
        term.clear()
        term.setCursorPos(1,1)
        term.write("winner: "..file2)
        break
    elseif timer[file2] <= 0 then
        for _,routine in ipairs(daemon.getBackground()) do
            daemon.rem(routine)
        end
        term.clear()
        term.setCursorPos(1,1)
        term.write("winner: "..file1)
        break
    end
    print("Remaining: "..remaining..", "..file1..": "..timer[file1]..", "..file2..": "..timer[file2])
end