DarkLands Installer

local repoCode = "s1tYKN13"
local lpath = shell.resolve("darklands")
print("DarkLands Installer")
print("A true RPG experience for ComputerCraft")
local function printC(str, col)
    if col and term.isColour() then
        term.setTextColour(col)
    end
    print(str)
    term.setTextColour(colours.white)
end

local function extractRepository(cpfDir, destDir)
    print("\nConstructing project...")
    local f1 = fs.open(shell.resolve("temprepo"), "r")
    local f2 = nil

    local fcount = 0

    local line = f1.readLine()
    while line do
        if string.sub(line,1,5) == "MKDIR" then
            fs.makeDir(shell.resolve(string.sub(line,7)))
        elseif string.sub(line,1,5) == "MKFIL" then
            fcount = fcount + 1
            f2 = fs.open(shell.resolve(string.sub(line, 7)), "w")
        elseif string.sub(line,1,5) == "WRITE" then
            count = tonumber(string.sub(line,7))
            while count > 0 do
                f2.writeLine(f1.readLine())
                count = count - 1
            end
            f2.close()
        end
        line = f1.readLine()
    end

    f1.close()
    printC("Project constructed. "..fcount.." files created")
end

if not http then
    printC("\nHTTP not enabled on this computer. Installation aborted.", colours.red)
    return 2
end

if fs.exists(lpath) then
    printC("\n/"..lpath.." already exists. Rename or use another directory to install.", colours.red)
    return 1
end

print("\nInstalling to the following directory:")
if term.isColour() then term.setTextColour(colours.yellow) end
print("   /"..lpath.."\n")
term.setTextColour(colours.white)
term.write("Ready to install? Y/N: ")

while true do
    local _,p1 = os.pullEvent("key")
    if p1 == keys.y then
        printC("Y\n", colours.lime)
        break
    elseif p1 == keys.n then
        printC("N\n", colours.red)
        printC("Installation cancelled!")
        return 1
    end
end

local trval = ""

if (fs.exists(shell.resolve("temprepo"))) then
    trval = 0
    while (fs.exists(shell.resolve("temprepo"..trval))) do
        trval = trval + 1
    end
end

print("Downloading repo "..repoCode.."...")
if not shell.run("pastebin", "get", repoCode, "temprepo"..trval) then
    print("Installation failed; could not access pastebin", colours.red)
    return 2
end

extractRepository(shell.resolve("temprepo"..trval), shell.resolve("."))
fs.delete(shell.resolve("temprepo"..trval))

if term.isColour() then term.setTextColour(colours.lime) end
print("Installation complete!")
return 0