Packager

Args = {...}
if type(Args[1]) ~= "string" or type(Args[2]) ~= "string" or type(Args[3]) ~= "string" then
  error("Arguments: <DirToCombine> <DefaultInstallDir> <OutputFileName>")
end
if fs.exists(Args[1]) ~= true then error("Directory is non-existent.") end
if fs.exists(Args[3]) == true then error("File already exists") end
List = fs.list(Args[1])
z = fs.open(Args[3],"w")
for i = 1, #List do
  z.writeLine("InstallDir = ...")
  z.writeLine("if InstallDir == nil then InstallDir = '"..Args[2].."' end")
  z.writeLine("term.clear()")
  z.writeLine("term.setCursorPos(1,1)")
  z.writeLine("print('Do you wish to install "..List[i].."? (Y/N)')")
  z.writeLine("local x = read()")
  z.writeLine("")
  z.writeLine("if x == 'y' or x == 'Y' then")
  z.writeLine("local NF = fs.open(InstallDir..'/"..List[i].."','w')")
  F = fs.open(Args[1].."/"..List[i],"r")
  z.writeLine("NF.write(''")
  repeat
    Lin = F.readLine()
    if Lin ~= nil then
      z.writeLine("..'"..Lin.."\\n'")
    end
  until Lin == nil
  z.writeLine(")")
  F.close()
  z.writeLine("NF.close()")
  z.writeLine("end")
  for i = 1,5 do
    z.writeLine("")
  end
end
z.close()