LimitlessBoxV3

--license:
--you are free to modify, distribute, and re-license this code. This license does not apply to things downloaded via this code.
--here's an actually decent installer
--made in LuaEdit
--are theyrunning in a tabbed os?
--[[
This is Install Utils by Geforce Fan. It's found @ BvL9rr0N , please get it from there to be sure it's up to date.
Just paste it into your installer!
]]
function pasteRun(id,aa)
  --print(aa)
  aa=aa or {}
  if not type(id)=="string" then
    return "Must has string!"
  end
  --get program off pastebin
  local a=http.get("http://www.pastebin.com/raw.php?i="..id)
  if not a then return false end
  a=a.readAll()
  if not a then return false end
  local env = {}
  a=loadstring(a)
  if not a then return false end
  --local env= setmetatable({},{__index=_G})
  local env=getfenv()
  setfenv(a,env)

  local ok,err=pcall(a,unpack(aa))
  --a()
  if (not ok) and err then
    printError("Error running "..id..": "..err)
    return false
  end
  return err,env
end
function pastePI(id,tab)
  local returned,env = pasteRun(id)
  _G[tab] = env
end
function pasteGet(id)
  if not type(id)=="string" then
    return "Must has string!"
  end
  --get program off pastebin
  local a=http.get("http://www.pastebin.com/raw.php?i="..id)
  if not a then return false end
  a=a.readAll()
  if not a then return false end
  return a
end
function pasteGetAndSave(url,loc)
  local a=pasteGet(url)
  --write it
  local b = fs.open(loc,"w")
  if b then
    b.write(a)
    b.close()
    return true
  end
  return false
end
--This is the end of installutils. The rest is this person's installer.



local _,ty=term.getSize()
local tabbed = true
if ty == 18 then
  tabbed=true
end
pGetNDL= pasteGetAndSave
local function cPrint(y,text)
  --centerprinttext
  local h=term.getSize()
  h=(h-#text)/2
  term.setCursorPos(h,y)
  write(text)
end
local function drawInsUI()
  term.setBackgroundColor(colors.gray)
  term.clear()
  term.setBackgroundColor(colors.orange)
  term.setTextColor(colors.black)
  term.setCursorPos(1,1)
  print("                                                   ")
  cPrint(1,"LimitlessBox V2")
  term.setBackgroundColor(colors.gray)
  term.setTextColor(colors.orange)
  --make a box where the info will be displayed
  paintutils.drawLine(2,3,2,18,colors.lightGray)
  paintutils.drawLine(50,3,50,18,colors.lightGray)
  paintutils.drawLine(50,18,2,18,colors.lightGray)
  paintutils.drawLine(50,3,2,3,colors.lightGray)
  --draw next and previos buttons
  term.setBackgroundColor(colors.orange)
  term.setTextColor(colors.black)
  term.setCursorPos(50,ty)
  write">"
  term.setCursorPos(2,ty)
  write"<"
  term.setBackgroundColor(colors.green)
  term.setTextColor(colors.black)
  cPrint(ty,"DOWNLOAD!")
  term.setBackgroundColor(colors.gray)
  term.setTextColor(colors.orange)
end
local function appPrint(t)
  local _,y=term.getCursorPos()
  term.setCursorPos(3,y)
  print(t)
end
local function handleSapphari()
  cPrint(4,"Sapphari:")
  print()
  print()
  appPrint("      Sapphari is a web browser for CC.   ")
  appPrint("      Sapphari has everything you'd expect-- ")
  appPrint("      Tabs, bookmarks, site switching, etc. ")
  appPrint("      Welcome to the internet!     ")
  cPrint(11,"Current version: 1.0")

end
local function handlePokeCCLevelEditor()

  cPrint(4,"PokeCC Level Editor:")
  cPrint(5,"Not out yet.")

end
local function handlePokeCC()
  cPrint(4,"Note to users:")
  cPrint(5,"(this is temporry and will be removed when this space fills)just wanted everyone to know, that as of 1/11/2015 I'm working on Game-engine and will be releasing it soon-ish.")




end
local function handleGameengine()
	cPrint(4,"Game-Engine")
	cPrint(5,"Sample text, lens-flare!")
	cPrint(6,"See the post in general for info.")
end
local function handleOs()
	cPrint(4,"[os]")
	cPrint(5,"Sample text, lens-flare!")
	cPrint(6,"No info on this, in a nobody-will-find-this-beta!")
end
local function handleInstaller()
  --//first draw the UI
  --now pass it off to the current app to install handler
  if args[2] == "update" then--an app is calling this to update
    os.queueEvent("mouse_click",1,23,19)--fake click dl button
  end
    return handleWhichApp()

end
function gDL(n)
  --load JSON
  pastePI("4nRg9CHU","json")
  local dir = shell.dir()
  -- Remove any previous versions in this directory
  fs.delete("/"..dir.."/Game-Engine")
  fs.delete("/"..dir.."/testgame")
  fs.makeDir("/"..dir.."/Game-Engine")
  pasteRun("6aMMzdwd",{"AI221", "Game-Engine", "master", "/"..dir.."/Game-Engine",})
  pasteGetAndSave("fU9Kj9zr","/"..dir.."/Game-Engine/redirect")
  os.loadAPI("/"..dir.."/Game-Engine/redirect")
  os.loadAPI("/"..dir.."/Game-Engine/game")
  --load the map
  local f=fs.open("/"..dir.."/Game-Engine/stOld","r")
  if f then
    local a=f.readAll()
    f.close()
    a=textutils.unserialize(a)
    --save
    game.save("/"..dir.."/secondTown",a)
    --delete stOld
    fs.delete("/"..dir.."/Game-Engine/stOld")
  else
    print"WARNIG - stOld missing"
  end
  --move testgame
  fs.move("/"..dir.."/Game-Engine/testgame","/"..dir.."testgame")
  if not n then
    local i=quitw()
    if i then
      term.setBackgroundColor(colors.black)
      term.setTextColor(colors.yellow)
      term.clear()
      term.setCursorPos(1,1)
      print(os.version())
      return i
    end
  end
end
args = {...}
function handleWhichApp()
  while true do--don't feel like reindenting
  drawInsUI()
  --local currentApp={}
  if not args[1] then
    args[1]=1
  else
    args[1]=tonumber(args[1])
  end
  if args[1] == 1 then
    handleSapphari()
  elseif args[1] == 2 then
    --currentApp[2] ="handlePokeCCLevelEditor"
    handlePokeCC()
  elseif args[1]==3 then
    --currentApp[3]="handlePokeCC"
    handlePokeCCLevelEditor()
  elseif args[1]==4 then
	handleGameengine()
  elseif args[1]==5 then
	handleOs()

  end
  local evt,type,x,y=os.pullEvent()
  if evt=='mouse_click'then
    if y==ty then
      if x==2 then
        if args[1]>1 then
          args[1]=args[1]-1
        end
      elseif x==50 then
        if args[1]<5 then
          args[1]=args[1]+1
        end
      elseif x>20 and x<30 then
        term.setBackgroundColor(colors.green)
        term.setTextColor(colors.black)
        cPrint(19,"DLing... ")
        --dlbutton
        if args[1]==1 then
        --sapph dl
          if not fs.exists("sapphInt") then
            fs.makeDir("sapphInt")
          end
          fs.delete"sapphInt/startup"
          fs.delete"sapphInt/sapphUtils"
          fs.delete"sapphInt/redirect"
          pGetNDL('fJ409KH1','sapphInt/startup')
          pGetNDL("fU9Kj9zr","sapphInt/redirect")
          pGetNDL("hyNPyhQZ","sapphInt/sapphUtils")
          local ff=fs.open("sapphInt/sapphBookmarks","w")
	  local bo = {}
	  bo[1] = "Add Bookmark"
	  ff.writeLine(textutils.serialize(bo))
	  ff.close()
	  --make a shortcut to sapphari
          ff=fs.open("Sapphari","w")
	  ff.writeLine('shell.run("sapphInt/startup")')
	  ff.close()
          cPrint(ty,"DOWNLOAD!")
	  local i=quitw()
          if i then
            term.setBackgroundColor(colors.black)
            term.setTextColor(colors.yellow)
            term.clear()
            term.setCursorPos(1,1)
            print(os.version())
            return i
          end
        elseif args[1]==2 then
          --pokecc dl

        elseif args[1]==3 then
        --levels dl

	       elseif args[1]==4 then
	       --game-engine dl
	       gDL()
        elseif args[1]==5 then
          --[os] install
          gDL(true)
          fs.makeDir("/library")
          pasteRun("6aMMzdwd",{"AI221","-os-","master"})
          pasteGetAndSave("5CpA2rrQ","/library/nevardon")
          fs.makeDir"/library/acc"
          fs.makeDir"/library/acc/admin"
          local i=quitw()
          if i then
            term.setBackgroundColor(colors.black)
            term.setTextColor(colors.yellow)
            term.clear()
            term.setCursorPos(1,1)
            print(os.version())
            return i
          end
        end
      end
    end
  end
end
end--for the while loop.

function quitw()
  --check if updating via app
  if args[2]=="update" then
    term.setBackgroundColor(colors.black)
    term.clear()
    term.setCursorPos(1,1)
    return "update"--this tells the app it was sucsessful
  end
  --draw a prompt
  --we want this centered, so we'll use a trick'
  term.setBackgroundColor(colors.lightGray)
  term.setTextColor(colors.black)
  cPrint(9,"   Quit?   ")
  term.setBackgroundColor(colors.orange)
  cPrint(10,"Do you want")
  cPrint(11,"to quit?   ")
  --give the user the option
  term.setBackgroundColor(colors.orange)
  cPrint(12,"  Yes  No  ")
  --fix the mess-up
  term.setBackgroundColor(colors.orange)
  term.setCursorPos(20,12)
  write"  "
  --we must do it manual now
  term.setCursorPos(25,12)
  write"  "
  term.setCursorPos(29,12)
  print"  "

  --check for button press
  while true do
    local _,_,x,y=os.pullEvent()
    if y==12 then
      if x>21 and x<26 then
        return true
      elseif x>27 and x<30 then
        return false
      end
    end
  end
end
--if they're on a smaller screen we can't show them our fancy UI.
local x,y=term.getSize()
if x == 51 then else
  args[2]="update"
end
if y==19 then else--or y==18 then else--for OSes with a menubar, fine. not sure how they'll dl, will get to that later probs
  args[2]="update"
end
return handleInstaller()