Discover Store (V6.0)

--[[
    Name: Discover App Store
    Author: DannySMc (dannysmc95)
    Requirements: HTTP, Colour, Whitelist dannysmc.com/ in the HTTP config.
]]

-- Set variables
tArgs = { ... }
os.getEvent = os.pullEvent
os.pullEvent = os.pullEventRaw

system = {
    ["name"] = "Discover Store";
    ["auth"] = "DannySMc (dannysmc95)";
    ["paths"] = {
        ["config"] = ".DiscoverConfig";
        ["plugins"] = "/DPlugins/";
    };
    ["plugins"] = true;
    ["storeconfig"] = true;
    ["lock_program"] = false;
    ["storeuser"] = true;
}

-- Used for applications to send data between each other
temp = {}

local side_scroll = 0
local viewapps = {}

-- Create Discover Object
discover = {
    data = {
        username = nil;
        password = nil;
        authkey = nil;
        errormsg = nil;
        cmessage = nil;
        loggedin = false;
        urls = {
            user = "http://api.dannysmc.com/user.php";
            store = "http://api.dannysmc.com/store.php";
            projects = "http://api.dannysmc.com/projects.php";
        };
        apps = {};
        versions = {};
        categories = {};
        snippets = {};
        snippets_user = {};
        notifications = {};
        version = "6.0";
        build = "332";
        version_api = "5.1.8:311";
        newupdate = nil;
        mail = {};
        feed = {};
    };
    -- Project Check
    get_update = function( self )
        local uniqueid = "db613a9197c76e8f0fd61cd67547920a3805ee380aabee241298d3379c7c0dcddc0b5c411ee393615f142f750e8bfdc349720782a4d07cde4e083147a4149d20"
        local query = "command=check_update&uniqueid="..textutils.urlEncode(tostring(uniqueid)).."&version="..textutils.urlEncode(tostring(self.data.version))
        local req = http.post(self.data.urls.projects, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            local url = req.url

            local dat = http.get(url)
            self.data.newupdate = dat.readAll()
            return true
        else
            return false
        end
    end;
    -- Set Username and Password
    set = function( self, username, password )
        self.data.username = username
        self.data.password = base.crypto.sha256(password)
        return true
    end;
    -- Get function to return a certain bit of information
    get = function ( self, name )
        return self.data[name]
    end;
    report = function( self, data )
        local query = "cmd=report_bug&data=" .. tostring(textutils.serialize(data))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            return true
        else
            return unpack({false, req.error})
        end
    end;
    -- Main login function to get authkey
    login = function( self, username, password )
        if username then
            self.data.username = username
        end
        if password then
            self.data.password = password
        end
        if self.data.username and self.data.password then
            local query = "cmd=login&username="..textutils.urlEncode(tostring(self.data.username)).."&password="..textutils.urlEncode(tostring(self.data.password))
            local res = http.post(self.data.urls.user, query)
            res = textutils.unserialize(res.readAll())
            if res.status == true then
                self.data.authkey = res.authkey
                self.data.loggedin = true;
                return true
            elseif res.status == false then
                self.data.errormsg = res.error
                return false
            end
        else
            return false
        end
    end;
    -- Registration
    register = function( self, username, password, email )
        if username and password and email then
            local query = "cmd=register&username="..textutils.urlEncode(tostring(username)).."&password="..textutils.urlEncode(tostring(password)).."&email="..textutils.urlEncode(tostring(email))
            local req = http.post(self.data.urls.user, query)
            req = textutils.unserialize(req.readAll())
            if req.status then
                self.data.cmessage = tostring(req.message)
                return true
            else
                self.data.errormsg = req.error
                return false
            end
        else
            self.data.errormsg = "Please supply a username, password and email!"
            return false
        end
    end;
    -- Log out user
    logout = function( self )
        local req = http.post(self.data.urls.user, "cmd=logout&authkey="..textutils.urlEncode(tostring(self.data.authkey)))
        req = textutils.unserialize(req.readAll())
        if req.status then
            discover.data.loggedin = false
            discover.data.username = nil
            discover.data.password = nil
            discover.data.authkey = nil
            self.data.cmessage = req.message
            return true
        else
            self.data.errormsg = req.error
            return false
        end
    end;
    -- Check if a authkey is still valid
    validate = function( self )
        if self.data.authkey then
            local query = "cmd=validate&authkey="..textutils.urlEncode(tostring(self.data.authkey))
            local res = http.post(self.data.urls.user, query)
            res = textutils.unserialize(res.readAll())
            if res.status == true then
                self.data.cmessage = res.message
                self.data.loggedin = true;
                return true
            elseif res.status == false then
                self.data.errormsg = res.error
                return false
            end
        else
            return false
        end
    end;
    store_init = function( self )
        local ret = http.post(self.data.urls.store, "cmd=list_apps")
        ret = textutils.unserialize(ret.readAll())
        if ret.status == true then
            self.data.apps = ret.data
        else
            return false
        end

        local ret = http.post(self.data.urls.store, "cmd=list_categories")
        ret = textutils.unserialize(ret.readAll())
        if ret.status == true then
            self.data.categories = ret.data
        else
            return false
        end

        local ret = http.post(self.data.urls.store, "cmd=list_versions")
        ret = textutils.unserialize(ret.readAll())
        if ret.status == true then
            self.data.versions = ret.data
        else
            return false
        end

        if self.data.loggedin then
            if not discover:view_n() then
                return unpack({false, "Could not obtain notifications"})
            end
        end

        local ret = http.post(self.data.urls.store, "cmd=list_versions")
        ret = textutils.unserialize(ret.readAll())
        if ret.status == true then
            self.data.versions = ret.data
        else
            return false
        end

        return true
    end;
    store_comments_get = function( self, appid )
        local query = "cmd=view_comments&appid="..textutils.urlEncode(tostring(appid))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status == true then
            discover.data.cmessage = "Successful"
            discover.data.comments = req.data
            return true
        else
            discover.data.errormsg = req.error
            return false
        end
    end;
    store_comments_set = function( self, appid, comment )
        local query = "cmd=add_comment&appid="..textutils.urlEncode(tostring(appid)).."&comment="..textutils.urlEncode(tostring(comment)).."&authkey="..textutils.urlEncode(tostring(self.data.authkey))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            self.data.cmessage = req.message
            return true
        else
            self.data.errormsg = req.error
            return false
        end
    end;
    store_download = function( self, appid )
        local query = "cmd=download&appid="..textutils.urlEncode(tostring(appid))
        local req = http.post(self.data.urls.store, query)
        return req
    end;
    store_upload = function ( self, appname, appdesc, appcate, appvers, appstat, appdata )
        local query = "cmd=upload&authkey="..textutils.urlEncode(tostring(self.data.authkey)).."&name="..textutils.urlEncode(tostring(appname)).."&desc="..textutils.urlEncode(tostring(appdesc)).."&vers="..textutils.urlEncode(tostring(appvers)).."&cate="..textutils.urlEncode(tostring(appcate)).."&status="..textutils.urlEncode(tostring(appstat)).."&data="..textutils.urlEncode(tostring(appdata))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            self.data.cmessage = req.message
            return true
        else
            self.data.errormsg = req.error
            return false
        end
    end;
    store_update = function( self, appid, vers, stat, data )
        if appid and vers and stat and data then
            local query = "cmd=update&authkey="..textutils.urlEncode(tostring(self.data.authkey)).."&appid="..textutils.urlEncode(tostring(appid)).."&vers="..textutils.urlEncode(tostring(vers)).."&status="..textutils.urlEncode(tostring(stat)).."&data="..textutils.urlEncode(tostring(data))
            local req = http.post(self.data.urls.store, query)
            req = textutils.unserialize(req.readAll())
            if req.status then
                self.data.cmessage = tostring(req.message)
                return true
            else
                self.data.errormsg = tostring(req.error)
                return false
            end
        else
            self.data.errormsg = "Please fill in all fields"
            return false
        end
    end;
    store_apps_user = function( self, username )
        if not username then
            query = "cmd=list_apps_user&authkey="..textutils.urlEncode(tostring(self.data.authkey))
        else
            query = "cmd=list_apps_user&authkey="..textutils.urlEncode(tostring(self.data.authkey)).."&username="..textutils.urlEncode(tostring(username))
        end
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            discover.data.appsuser = req.data
            return true
        else
            discover.data.errormsg = req.error
            return false
        end
    end;
    store_edit = function( self, appid, name, desc, cate, stat )
        if appid and name and desc and stat and cate then
            local query = "cmd=edit&authkey="..textutils.urlEncode(tostring(self.data.authkey)).."&appid="..textutils.urlEncode(tostring(appid)).."&status="..textutils.urlEncode(tostring(stat)).."&name="..textutils.urlEncode(tostring(name)).."&desc="..textutils.urlEncode(tostring(desc)).."&category="..textutils.urlEncode(tostring(cate))
            local req = http.post(self.data.urls.store, query)
            req = textutils.unserialize(req.readAll())
            if req.status then
                self.data.cmessage = tostring(req.message)
                return true
            else
                self.data.errormsg = req.error
                return false
            end
        else
            self.data.errormsg = "Please fill in all fields"
            return false
        end
    end;
    store_delete = function( self, appid )
        if appid then
            local query = "cmd=delete&authkey="..textutils.urlEncode(tostring(self.data.authkey)).."&appid="..textutils.urlEncode(tostring(appid))
            local req = http.post(self.data.urls.store, query)
            req = textutils.unserialize(req.readAll())
            if req.status then
                self.data.cmessage = tostring(req.message)
                return true
            else
                self.data.errormsg = req.error
                return false
            end
        else
            self.data.errormsg = "Please fill in all fields"
            return false
        end
    end;
    snippets_list = function( self )
        local query = "cmd=snippets_view"
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            self.data.cmessage = tostring(req.message)
            self.data.snippets = req.data
            return true
        else
            self.data.errormsg = req.error
            return false
        end
    end;
    snippets_download = function( self, snipid )
        local query = "cmd=snippets_download&id="..textutils.urlEncode(tostring(snipid))
        local req = http.post(self.data.urls.store, query)
        req = req.readAll()
        return req
    end;
    snippets_list_user = function( self )
        self.data.snippets_user = nil
        local query = "cmd=snippets_list_user&key="..textutils.urlEncode(tostring(discover.data.authkey))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            self.data.cmessage = tostring(req.message)
            self.data.snippets_user = req.data
            return true
        else
            self.data.errormsg = req.error
            return false
        end
    end;
    snippets_delete = function( self, id )
        local query = "cmd=snippets_delete&id="..textutils.urlEncode(tostring(id)).."&key="..textutils.urlEncode(tostring(self.data.authkey))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            self.data.cmessage = tostring(req.message)
            return true
        else
            self.data.errormsg = req.error
            return false
        end
    end;
    snippets_upload = function( self, name, desc, vers, stat, path )
        local f = fs.open(path, "r")
        tdata = f.readAll()
        f.close()
        local query = "cmd=snippets_upload&auth="..textutils.urlEncode(tostring(self.data.authkey)).."&name="..textutils.urlEncode(tostring(name)).."&desc="..textutils.urlEncode(tostring(vers)).."&vers="..textutils.urlEncode(tostring(vers)).."&stat="..textutils.urlEncode(tostring(stat)).."&data="..textutils.urlEncode(tostring(tdata))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            self.data.cmessage = tostring(req.message)
            return true
        else
            self.data.errormsg = req.error
            return false
        end
    end;
    view_n = function( self )
        local query = "cmd=notifications_view&key="..textutils.urlEncode(tostring(discover.data.authkey))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            self.data.cmessage = tostring(req.message)
            self.data.notifications = req.data
            return true
        else
            self.data.errormsg = req.error
            return false
        end
    end;
    delete_n = function( self, id )
        if not id then
            return false
        end
        local query = "cmd=notifications_delete&id="..textutils.urlEncode(tostring(id)).."&key="..textutils.urlEncode(tostring(discover.data.authkey))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            self.data.cmessage = tostring(req.message)
            return true
        else
            self.data.errormsg = req.error
            return false
        end
    end;
    get_stats = function( self )
        local query = "cmd=get_stats&key="..textutils.urlEncode(tostring(discover.data.authkey))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            self.data.cmessage = tostring(req.message)
            return req.data
        else
            self.data.errormsg = req.error
            return false
        end
    end;
    cloud_get = function( self )
        local query = "cmd=cloud_get&key="..textutils.urlEncode(tostring(discover.data.authkey))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            return req.data
        else
            self.data.errormsg = req.error
            return false
        end
    end;
    cloud_delete = function( self, id )
        local query = "cmd=cloud_delete&id="..textutils.urlEncode(tostring(id)).."&key="..textutils.urlEncode(tostring(self.data.authkey))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            self.data.cmessage = tostring(req.message)
            return true
        else
            self.data.errormsg = req.error
            return false
        end
    end;
    cloud_upload = function( self, filepath )
        if filepath then
            if not fs.exists(filepath) then
                self.data.errormsg = "File: "..filepath.." was not found"
                return false
            end
            local filename = filepath
            local f = fs.open(filepath, "r")
            filedata = f.readAll()
            f.close()
            filedata = base.base64.encode(filedata)
            local query = "cmd=cloud_upload&filename="..textutils.urlEncode(tostring(filename)).."&filedata="..textutils.urlEncode(tostring(filedata)).."&key="..textutils.urlEncode(tostring(self.data.authkey))
            local req = http.post(self.data.urls.store, query)
            req = textutils.unserialize(req.readAll())
            if req.status then
                self.data.cmessage = tostring(req.message)
                return true
            else
                self.data.errormsg = req.error
                return false
            end
        else
            self.data.errormsg = "Please supply all fields"
            return false
        end
    end;
    cloud_rename = function( self, id, name )
        local query = "cmd=cloud_rename&id="..textutils.urlEncode(tostring(id)).."&key="..textutils.urlEncode(tostring(self.data.authkey)).."&newname="..textutils.urlEncode(tostring(name))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            self.data.cmessage = tostring(req.message)
            return true
        else
            self.data.errormsg = req.error
            return false
        end
    end;
    mail_get = function( self )
        local query = "cmd=mail_view_received&key=" ..textutils.urlEncode(tostring(self.data.authkey))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            self.data.mail = req.data
            return true
        else
            return false
        end
    end;
    mail_send = function( self, recipient, subject, message, attachments )
        local query = "cmd=mail_send&key=" ..textutils.urlEncode(tostring(self.data.authkey)) .. "&recipient=" ..textutils.urlEncode(tostring(recipient)) .. "&subject=" ..textutils.urlEncode(tostring(subject)) .. "&message=" ..textutils.urlEncode(tostring(message)) .. "&attachments=" ..textutils.urlEncode(tostring(attachments))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            return true
        else
            self.data.errormsg = req.error;
            return false
        end
    end;
    mail_get_own = function( self )
        local query = "cmd=mail_view_sent&key=" ..textutils.urlEncode(tostring(self.data.authkey))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            self.data.mail = req.data
            return true
        else
            return false
        end
    end;
    mail_delete = function( self, mailid )
        local query = "cmd=mail_delete&key=" ..textutils.urlEncode(tostring(self.data.authkey)) .. "&id=" ..textutils.urlEncode(tostring(mailid))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            return true
        else
            self.data.errormsg = req.error;
            return false
        end
    end;
    mail_view = function( self, mailid )
        local query = "cmd=mail_view&key=" ..textutils.urlEncode(tostring(self.data.authkey)) .. "&id=" ..textutils.urlEncode(tostring(mailid))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            return true
        else
            return false
        end
        return true;
    end;
    feed_view = function( self )
        local query = "cmd=feed_view&key=" ..textutils.urlEncode(tostring(self.data.authkey))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            self.data.feed = req.data
            return true
        else
            return false
        end
    end;
    feed_new = function( self, message )
        local query = "cmd=feed_send&key=" ..textutils.urlEncode(tostring(self.data.authkey)) .. "&message=" .. textutils.urlEncode(tostring(message))
        local req = http.post(self.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            return true
        else
            self.data.errormsg = req.error;
            return false
        end
    end;
}

    -- Get Store API
if (#tArgs == 0) then
    downloadapi = false
    local nTries = 0
    while not downloadapi do
        local ok, err = pcall( function()
            if http then
                aa = aa or {}
                local a = http.get("http://api.dannysmc.com/files/apis/baseapi.lua")
                a = a.readAll()
                local env = {}
                a = loadstring(a)
                local env = getfenv()
                setfenv(a,env)
                local status, err = pcall(a, unpack(aa))
                if (not status) and err then
                    printError("Error loading api")
                    return false
                end
                local returned = err
                env = env
                _G["progutils"] = env
            end
        end)
        if not ok then
            term.clear()
            term.setCursorPos(1,1)
            print("Download API (Attempt: "..nTries.."/".."5)")
            if nTries >= 5 then
                shell.run("shell")
            end
        else
            downloadapi = true
        end
    end
end

-- Set Object Methods (Better naming convention)
store = {}
store.__index = store

store.account = {}
store.account.__index = store.account

store.apps = {}
store.apps.__index = store.apps

store.draw = {}
store.draw.__index = store.draw

store.cloud = {}
store.cloud.__index = store.cloud

store.snippets = {}
store.snippets.__index = store.snippets

store.social = {}
store.social.__index = store.social

-- Discover Store Main Code:
function store.draw.menu(screen)
    base.draw.box(1, 51, 1, 2, " ", "grey", "grey")
    base.draw.texta("Discover:", 1, 1, false, "cyan", "grey")
    if screen then
        base.draw.texta(screen, 10, 1, false, "white", "grey")
    end
    if #discover.data.notifications > 0 then
        base.draw.texta("N", 43, 1, false, "red", "grey")
    else
        base.draw.texta("N", 43, 1, false, "lightGrey", "grey")
    end
    base.draw.textr(base.time.current(), 1, false, "lime", "grey")
    chars = {2, 12, 22, 32, 42}
    for i=1, #chars do
        coun = i + side_scroll
        if coun > #threads then
            break
        end
        if threads[coun].name == currentThread.name then
            base.draw.texta("  "..threads[coun].name:sub(1, 8).." ", chars[i], 2, false, "blue", "grey")
            base.draw.texta("x", chars[i], 2, false, "red", "grey")
        else
            base.draw.texta(" "..threads[coun].name:sub(1,8).." ", chars[i], 2, false, "orange", "grey")
        end
    end
    base.draw.texta(tostring(#threads), 45, 1, false, "lightBlue", "grey")
    if side_scroll == 0 then
        base.draw.texta("<", 1, 2, false, "lightGrey", "grey")
    else
        base.draw.texta("<", 1, 2, false, "lightBlue", "grey")
    end
    if side_scroll + 5 >= #threads then
        base.draw.texta(">", 51, 2, false, "lightGrey", "grey")
    else
        base.draw.texta(">", 51, 2, false, "lightBlue", "grey")
    end
end

function store.draw.menu_input(screen, intx, inty)
    discover:view_n()
    if inty == 1 then
        -- Check top layer buttons
        if intx == 43 then
            if not base.thread.find("Notifications") then
                base.thread.create("Notifications", store.account.notifications)
            end
            base.thread.switch("Notifications")
        end
    elseif inty == 2 then
        -- Check Task Deletion First
        if intx == 2 then
            if #threads >= side_scroll + 1 then
                if threads[1+side_scroll].name == currentThread.name then
                    -- Remove Thread
                    base.thread.remove(threads[1+side_scroll].name)
                    if not base.thread.find("Home") then
                        base.thread.create("Home", store.home)
                    end
                    base.thread.switch("Home")
                    return true
                end
            end
        elseif intx == 12 then
            if #threads >= side_scroll + 2 then
                if threads[2+side_scroll].name == currentThread.name then
                    -- Remove Thread
                    base.thread.remove(threads[2+side_scroll].name)
                    if not base.thread.find("Home") then
                        base.thread.create("Home", store.home)
                    end
                    base.thread.switch("Home")
                    return true
                end
            end
        elseif intx == 22 then
            if #threads >= side_scroll + 3 then
                if threads[3+side_scroll].name == currentThread.name then
                    -- Remove Thread
                    base.thread.remove(threads[3+side_scroll].name)
                    if not base.thread.find("Home") then
                        base.thread.create("Home", store.home)
                    end
                    base.thread.switch("Home")
                    return true
                end
            end
        elseif intx == 32 then
            if #threads >= side_scroll + 4 then
                if threads[4+side_scroll].name == currentThread.name then
                    -- Remove Thread
                    base.thread.remove(threads[4+side_scroll].name)
                    if not base.thread.find("Home") then
                        base.thread.create("Home", store.home)
                    end
                    base.thread.switch("Home")
                    return true
                end
            end
        elseif intx == 42 then
            if #threads >= side_scroll + 5 then
                if threads[5+side_scroll].name == currentThread.name then
                    -- Remove Thread
                    base.thread.remove(threads[5+side_scroll].name)
                    if not base.thread.find("Home") then
                        base.thread.create("Home", store.home)
                    end
                    base.thread.switch("Home")
                    return true
                end
            end
        end

        -- Task Switching
        if intx >= 2 and intx <= 10 then
            if #threads >= side_scroll + 1 then
                base.thread.switch(threads[1+side_scroll].name)
                store.draw.menu(screen)
            end
        elseif intx >= 12 and intx <= 20 then
            if #threads >= side_scroll + 2 then
                base.thread.switch(threads[2+side_scroll].name)
                store.draw.menu(screen)
            end
        elseif intx >= 22 and intx <= 30 then
            if #threads >= side_scroll + 3 then
                base.thread.switch(threads[3+side_scroll].name)
                store.draw.menu(screen)
            end
        elseif intx >= 32 and intx <= 40 then
            if #threads >= side_scroll + 4 then
                base.thread.switch(threads[4+side_scroll].name)
                store.draw.menu(screen)
            end
        elseif intx >= 42 and intx <= 50 then
            if #threads >= side_scroll + 5 then
                base.thread.switch(threads[5+side_scroll].name)
                store.draw.menu(screen)
            end
        elseif intx == 1 then
            if side_scroll > 0 then
                side_scroll = side_scroll - 1
                store.draw.menu(screen)
            end
        elseif intx == 51 then
            if (side_scroll + 5) < #threads then
                side_scroll = side_scroll + 1
                store.draw.menu(screen)
            end
        end
    end
end

function store.draw.logo(intx, inty)
    local text = "Welcome to the Discover App Store. If you have notifications, the N in the menu bar will go red! A * following a button means you need to be logged in!"
    for k,v in ipairs(base.data.wordwrap(text, 41)) do
        base.draw.textc(v, k+3, false, "grey", "white")
    end

    if discover.data.loggedin then
        base.draw.box(2, 24, 9, 1, false, "red", "red")
        base.draw.texta("Log out", 3, 9, false, "white", "red")
    else
        base.draw.box(2, 24, 9, 1, false, "cyan", "cyan")
        base.draw.texta("Log In", 3, 9, false, "white", "cyan")
    end
    base.draw.box(2, 24, 11, 1, false, "cyan", "cyan")
    base.draw.box(2, 24, 13, 1, false, "cyan", "cyan")
    base.draw.box(2, 24, 15, 1, false, "cyan", "cyan")
    base.draw.box(2, 24, 17, 1, false, "cyan", "cyan")
    base.draw.box(27, 24, 9, 1, false, "cyan", "cyan")
    base.draw.box(27, 24, 11, 1, false, "cyan", "cyan")
    base.draw.box(27, 24, 13, 1, false, "cyan", "cyan")
    base.draw.box(27, 24, 15, 1, false, "cyan", "cyan")
    base.draw.box(27, 24, 17, 1, false, "cyan", "cyan")
    base.draw.texta("Apps List", 3, 11, false, "white", "cyan")
    base.draw.texta("Snippets", 3, 13, false, "white", "cyan")
    base.draw.texta("Discover Cloud*", 3, 15, false, "white", "cyan")
    base.draw.texta("Social Network*", 3, 17, false, "white", "cyan")
    base.draw.texta("My Account*", 28, 9, false, "white", "cyan")
    base.draw.texta("Help / FAQ", 28, 11, false, "white", "cyan")
    base.draw.texta("Update Log", 28, 13, false, "white", "cyan")
    base.draw.texta("Settings", 28, 15, false, "white", "cyan")
    base.draw.texta("Credits", 28, 17, false, "white", "cyan")


    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.textr("Exit ", 19, false, "orange", "grey")
    base.draw.textl(" Search", 19, false, "lightBlue", "grey")
end

function store.init()
    base.screen.colour("lightGrey")
    base.draw.textc("--------------------------", 2, false, "grey", "lightGrey")
    base.draw.textc("    Discover App Store    ", 3, false, "black", "lightGrey")
    base.draw.textc("--------------------------", 4, false, "grey", "lightGrey")
    base.draw.textc("--< Created By DannySMc >--", 19, false, "lightBlue", "lightGrey")
    base.draw.box(8, 37, 15, 1, " ", "white", "white")
    base.draw.box(8, 1, 15, 1, " ", "lime", "lime")
    sleep(0.15)

    base.draw.box(1, 51, 10, 1, " ", "lightGrey", "lightGrey")
    base.draw.textc("Loading Configurations...", 10, false, "red", "lightGrey")
    base.draw.box(8, 3, 15, 1, " ", "lime", "lime")

    -- Load Configurations
    if fs.exists(system.paths.config) then
        local f = fs.open(system.paths.config, "r")
        local dat = base.base64.decode( f.readAll() )
        local c = textutils.unserialize( dat )
        system.storeconfig = c.storeconfig
        system.plugins = c.plugins
        if (c.lock) then
            system.lock = c.lock
        end
        if (c.username) then
            discover.data.username = c.username
            discover.data.password = c.password
            discover.data.authkey = c.authkey
        end
        f.close()
        base.draw.box(8, 5, 15, 1, " ", "lime", "lime"); sleep(0.15);
    end

    -- Check for Update
    base.draw.box(1, 51, 10, 1, " ", "lightGrey", "lightGrey")
    base.draw.textc("Checking for update...", 10, false, "red", "lightGrey")
    base.draw.box(8, 9, 15, 1, " ", "lime", "lime")
    local status = discover:get_update()
    if status then
        base.draw.box(1, 51, 10, 1, " ", "lightGrey", "lightGrey")
        base.draw.textc("Update found, please wait...", 10, false, "red", "lightGrey")
        sleep(1.5)
        local name = shell.getRunningProgram()
        local f = fs.open(name, "w")
        f.write(discover.data.newupdate)
        f.close()
        shell.run(shell.getRunningProgram())
        base.draw.box(8, 12, 15, 1, " ", "lime", "lime"); sleep(0.15);
    else
        base.draw.box(1, 51, 10, 1, " ", "lightGrey", "lightGrey")
        base.draw.textc("You are currently running the latest version", 10, false, "red", "lightGrey")
        base.draw.box(8, 12, 15, 1, " ", "lime", "lime"); sleep(0.15);
    end

    -- Loading User Settings / Login
    base.draw.box(8, 14, 15, 1, " ", "lime", "lime")
    if system.storeconfig then
        if fs.exists(".DiscoverConfig") then
            base.draw.box(1, 51, 10, 1, " ", "lightGrey", "lightGrey")
            base.draw.textc("Attempting to Login...", 10, false, "red", "lightGrey")
            local ok = discover:login(discover.data.username, discover.data.password)
            if ok then
                base.draw.box(1, 51, 10, 1, " ", "lightGrey", "lightGrey")
                base.draw.textc("You was successfully logged in!", 10, false, "red", "lightGrey")
                base.draw.box(8, 18, 15, 1, " ", "lime", "lime")
                sleep(0.5)
            else
                base.draw.box(1, 51, 10, 1, " ", "lightGrey", "lightGrey")
                base.draw.textc(tostring(discover.data.errormsg), 10, false, "red", "lightGrey")
                errorprompt = true
                sleep(0.5)
                base.draw.box(8, 18, 15, 1, " ", "lime", "lime")
            end
        end
    end

    -- Unlock Termination if system.lock is false
    base.draw.box(8, 21, 15, 1, " ", "lime", "lime"); sleep(0.15);
    if not system.lock then
        os.pullEvent = os.getEvent
    end

    -- Install System Plugins
    if system.plugins then
        base.draw.box(1, 51, 10, 1, " ", "lightGrey", "lightGrey")
        base.draw.textc("Installing Plugins...", 10, false, "red", "lightGrey")
        base.draw.box(8, 24, 15, 1, " ", "lime", "lime"); sleep(0.15);

        local ok, err = pcall(function()

            -- Plugin Function
            local function install(path)
                local tLetters = {"a","b","c","d","e","f"}; new = {}
                for i=1,4 do table.insert(new, tLetters[math.ceil(math.random(5))]) end
                newname = table.concat(new, "")
                aa = aa or {}
                local a = fs.open(path, "r")
                a = a.readAll()
                local env = {}
                a = loadstring(a)
                local env = getfenv()
                setfenv(a,env)
                local status, err = pcall(a, unpack(aa))
                if (not status) and err then
                    printError("Error loading api")
                    return false
                end
                local returned = err
                env = env
                _G[newname] = env
            end
            base.draw.box(8, 27, 15, 1, " ", "lime", "lime"); sleep(0.15);

            -- Get Plugins
            if fs.exists(system.paths.plugins) then
                local list = fs.list(system.paths.plugins)
                for k,v in ipairs(list) do
                    local path = fs.combine(system.paths.plugins, v)
                    install(path)
                end
            end
            base.draw.box(8, 29, 15, 1, " ", "lime", "lime"); sleep(0.15);

        end)
        if not ok then
            store.crash(err)
        end
    end

    -- Start Threads
    base.draw.box(8, 31, 15, 1, " ", "lime", "lime")
    local ok, err = pcall(function()

        -- Draw Screen
        base.draw.box(1, 51, 10, 1, " ", "lightGrey", "lightGrey")
        base.draw.textc("Downloading store data...", 10, false, "red", "lightGrey")
        sleep(0.15)
        discover:store_init()
        base.draw.box(8, 34, 15, 1, " ", "lime", "lime"); sleep(0.15)

        base.thread.create("Home", store.home)
        base.draw.box(1, 51, 10, 1, " ", "lightGrey", "lightGrey")
        base.draw.textc("Running process manager", 10, false, "red", "lightGrey")
        base.draw.box(8, 37, 15, 1, " ", "lime", "lime"); sleep(0.15)
        -- Launch Helper Worker
        if errorprompt then
            base.thread.create("Prompt", store.prompt)
            base.thread.switch("Prompt")
        else
            base.thread.switch("Home")
        end
        -- Switch and Run
        base.thread.run()

    end)

    if not ok then
        store.crash(err)
    end
end

function store.report(err)
    base.screen.colour("white")
    base.draw.box(1, 51, 1, 1, " ", "grey", "grey")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.textc("Bug / Error Report", 1, false, "cyan", "grey")

    base.draw.texta("Details of report data:", 8, 3, false, "red", "white")
    local repdata = {};
    repdata["ERR_MSG"] = tostring(err);
    repdata["CMP_IDN"] = tostring(os.getComputerID());
    repdata["HDD_SPC"] = tostring(fs.getFreeSpace("/"));
    repdata["THR_CNT"] = tostring("Threads: " .. #threads);
    repdata["PRG_NAM"] = tostring(shell.getRunningProgram());
    base.draw.textr("Send ", 19, false, "orange", "grey")
    base.draw.textl(" Restart", 19, false, "cyan", "grey")
    local i = 0
    for k,v in pairs(repdata) do
        i = i + 1
        base.draw.box(8, 36, i+4, 1, " ", "black", "black")
        base.draw.texta(k .. ": ", 8, i+4, false, "orange", "black")
        base.draw.texta(v:sub(0, 27), 16, i+4, false, "lightBlue", "black")
    end
    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            base.draw.textr(base.time.current(), 1, false, "lime", "grey")
        elseif args[1] == "mouse_click" then
            if (args[3] >= 2 and args[3] <= 8) and args[4] == 19 then
                os.reboot()
            elseif (args[3] >= 47 and args[3] <= 50) and args[4] == 19 then
                local ok, re = discover:report(repdata)
                if ok then
                    base.gui.alert("Report was successfully sent!")
                    sleep(1)
                    os.reboot()
                else
                    base.gui.alert("Error: " .. re)
                    sleep(2)
                    store.report(err)
                end
            end
        end
    end
end

function store.prompt()
    base.screen.colour("white")
    store.draw.menu("Error Prompt")


    local text = "Please read the error below and take action. There are many reasons you were not able to login. One reason could be that you are banned, this means if you have put up content which is not appropriate, or you are using bad usernames/passwords then your account will be banned or if you spam the database. If your credentials are invalid make sure your username and password are correct, if they are then please attempt at changing your password, this uses your email to send you a validation key."

    for k,v in ipairs(base.data.wordwrap(discover.data.errormsg, 47)) do
        base.draw.texta(v, 3, k+14, false, "red", "white")
    end
    for k,v in ipairs(base.data.wordwrap(text, 51)) do
        base.draw.textl(v, k+3, false, "grey", "white")
    end

    base.draw.box(1, 51, 19, 1, " ", "grey" , "grey")
    base.draw.textc("Press the \"X\" in the taskbar to close", 19, false, "orange", "grey")

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Error Prompt")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Home", args[3], args[4])
            end
        end
    end
end

function store.crash(errmsg)
    base.screen.colour("lightGrey")
    base.draw.box(1, 51, 1, 1, "-", "grey", "lightGrey")
    base.draw.textc("Discover Store has Crashed", 2, false, "grey", "lightGrey")
    base.draw.box(1, 51, 3, 1, "-", "grey", "lightGrey")

    local text = "Oh no! It looks like Discover Store ran into an issue, there are two things you can do, either press the \"Restart\" button to reboot the computer, or press the \"Report\" button which will take you to a screen where you can report the problem to me. Error is below.";
    for k,v in ipairs(base.data.wordwrap(text, 49)) do
        base.draw.textl(" " .. v, k+3, false, "white", "lightGrey")
    end

    for k,v in ipairs(base.data.wordwrap(errmsg, 47)) do
        base.draw.texta(v, 3, k+10, false, "red", "lightGrey")
    end
    base.draw.box(2, 24, 18, 1, " ", "orange", "orange")
    base.draw.box(27, 24, 18, 1, " ", "orange", "orange")
    base.draw.texta("Restart / Reboot", 6, 18, false, "white", "orange")
    base.draw.texta("Report Bug", 34, 18, false, "white", "orange")

    while true do
        local args = { os.pullEvent() }
        if args[1] == "mouse_click" then
            if (args[3] >= 2 and args[3] <= 25) and (args[4] == 18) then
                base.gui.alert("Rebooting computer...")
                sleep(0.5)
                os.reboot()
            elseif (args[3] >= 27 and args[3] <= 50) and (args[4] == 18) then
                store.report(errmsg)
            end
        end
    end
end

function store.exit()
    base.screen.colour("black")
    local text = "Thank you, Created by DannySMc (http://dannysmc.com/)"
    for k,v in ipairs(base.data.wordwrap(text, 31)) do
        base.draw.textc(v, 6+k, false, "cyan", "black")
    end
    sleep(1.5); term.clear(); term.setCursorPos(1,1)
    base.thread.exit()
end

function store.home()
    base.screen.colour("white")
    store.draw.menu("Home")
    store.draw.logo()
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.textr("Exit ", 19, false, "orange", "grey")
    base.draw.textl(" Search", 19, false, "lightBlue", "grey")

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Home")
        elseif args[1] == "char" then
            if args[2] == "f" then
                if not base.thread.find("Finder") then
                    base.thread.create("Finder", store.finder)
                end
                base.thread.switch("Finder")
            end
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Home", args[3], args[4])
            elseif (args[3] >= 47 and args[3]<= 50) and (args[4] == 19) then
                store.exit()
                break
            elseif (args[3] >= 2 and args[3] <= 7) and (args[4] == 19) then
                if not base.thread.find("Search") then
                    base.thread.create("Search", store.apps.search)
                end
                base.thread.switch("Search")
            elseif (args[3] >= 2 and args[3] <= 25) and (args[4] == 9) then
                if discover.data.loggedin then
                    store.account.logout()
                    base.screen.colour("white")
                    store.draw.menu("Home")
                    store.draw.logo()
                else
                    store.account.login()
                    base.screen.colour("white")
                    store.draw.menu("Home")
                    store.draw.logo()
                end
            elseif (args[3] >= 2 and args[3] <= 25) and (args[4] == 11) then
                if not base.thread.find("Apps") then
                    base.thread.create("Apps", store.apps.all)
                end
                base.thread.switch("Apps")
            elseif (args[3] >= 2 and args[3] <= 25) and (args[4] == 13) then
                if not base.thread.find("Snippets") then
                    base.thread.create("Snippets", store.snippets.main)
                end
                base.thread.switch("Snippets")
            elseif (args[3] >= 2 and args[3] <= 25) and (args[4] == 15) then
                if discover.data.loggedin then
                    if not base.thread.find("Cloud") then
                        base.thread.create("Cloud", store.cloud.main)
                    end
                    base.thread.switch("Cloud")
                else
                    base.gui.alert("Please login")
                    sleep(1)
                    base.screen.colour("white")
                    store.draw.menu("Home")
                    store.draw.logo()
                end
            elseif (args[3] >= 2 and args[3] <= 25) and (args[4] == 17) then
                if discover.data.loggedin then
                    if not base.thread.find("Social") then
                        base.thread.create("Social", store.social.main)
                    end
                    base.thread.switch("Social")
                else
                    base.gui.alert("Please login")
                    sleep(1)
                    base.screen.colour("white")
                    store.draw.menu("Home")
                    store.draw.logo()
                end
            elseif (args[3] >= 27 and args[3] <= 50) and (args[4] == 9) then
                if discover.data.loggedin then
                    if not base.thread.find("Account") then
                        base.thread.create("Account", store.account.home)
                    end
                    base.thread.switch("Account")
                else
                    base.gui.alert("Please login")
                    sleep(1)
                    base.screen.colour("white")
                    store.draw.menu("Home")
                    store.draw.logo()
                end
            elseif (args[3] >= 27 and args[3] <= 50) and (args[4] == 11) then
                if not base.thread.find("Help") then
                    base.thread.create("Help", store.help)
                end
                base.thread.switch("Help")
            elseif (args[3] >= 27 and args[3] <= 50) and (args[4] == 13) then
                if not base.thread.find("Updates") then
                    base.thread.create("Updates", store.updates)
                end
                base.thread.switch("Updates")
            elseif (args[3] >= 27 and args[3] <= 50) and (args[4] == 15) then
                if not base.thread.find("Settings") then
                    base.thread.create("Settings", store.settings)
                end
                base.thread.switch("Settings")
            elseif (args[3] >= 27 and args[3] <= 50) and (args[4] == 17) then
                if not base.thread.find("Credits") then
                    base.thread.create("Credits", store.credits)
                end
                base.thread.switch("Credits")
            end
        end
    end
end

function store.finder()
    base.screen.colour("white")
    store.draw.menu("Finder")
    local scroll = 0
    local options = {
        "+Apps";
        "-Search Apps";
        "-View All";
        "-View Categories";
        "-View Versions";
        "+Account";
        "-Upload App";
        "-Update App";
        "-Edit App";
        "-My Apps";
        "-Notifications";
        "-Change Password";
        "-Change Email";
        "+Snippets";
        "-Upload Snippet";
        "-View all Snippets";
        "-View my Snippets";
        "+Cloud";
        "-View Cloud";
        "-Usage Stats";
        "+Core";
        "-Help / FAQ";
        "-Update Log";
        "-Settings";
        "-Credits";
        "-Exit";
    }

    local function run(scroll)
        for i=1, 14 do
            base.draw.box(1, 51, i+3, 1, " ", "white","white")
            if options[i+scroll]:sub(1,1) == "+" then
                base.draw.texta("> " .. options[i+scroll]:sub(2), 2, i+3, false, "grey", "white")
            elseif options[i+scroll]:sub(1,1) == "-" then
                base.draw.texta("- " .. options[i+scroll]:sub(2), 4, i+3, false, "lightGrey", "white")
            end
        end
    end

    run(scroll)
    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Finder")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Finder", args[3], args[4])
            end
        elseif args[1] == "mouse_scroll" then
            if args[2] == -1 then
                if scroll > 0 then
                    scroll = scroll - 1
                    run(scroll)
                end
            elseif args[2] == 1 then
                if scroll + 14 <= #options-1 then
                    scroll = scroll + 1
                    run(scroll)
                end
            end
        end
    end
end

function store.apps.all()
    base.screen.colour("white")
    store.draw.menu("All Apps")
    local scroll = 0
    appslist = discover:get("apps")

    base.draw.texta("        Categories        |        Versions        ", 1, 3, false, "white", "lightGrey")

    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.texta("Total Apps: "..#appslist, 2, 19, false, "lightBlue", "grey")
    base.draw.textr("Scroll Enabled ", 19, false, "orange", "grey")

    local function fix(num)
        if tostring(num):len() == 1 then
            return "  "..tostring(num)
        elseif tostring(num):len() == 2 then
            return " "..tostring(num)
        else
            return tostring(num)
        end
    end

    local function run(scroll)
        for i = 1, 13 do
            if #appslist >= i + scroll then
                base.draw.box(1, 51, i+4, 1, " ", "white", "white")
                base.draw.textl(fix(i+scroll)..": "..appslist[i+scroll].name, i+4, false, "grey", "white")
            end
        end
    end

    run(scroll)

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("All Apps")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Help / FAQ", args[3], args[4])
            elseif (args[3] >= 1 and args[3] <= 25) and (args[4] == 3) then
                store.apps.categories()
            elseif (args[3] >= 26 and args[3] <= 51) and (args[4] == 3) then
                store.apps.versions()
            elseif (args[3] >= 1 and args[3] <= 51) and (args[4] >= 5 and args[4] <= 17) then
                local curid = args[4] - 4 + scroll
                local tname = "View"..tostring(appslist[curid].id)
                base.thread.create(tname, store.apps.view)
                viewapps[1] =  appslist[curid].id
                viewapps[2] = appslist
                base.thread.switch(tname)
            end
        elseif args[1] == "mouse_scroll" then
            if args[2] == -1 then
                if scroll > 0 then
                    scroll = scroll - 1
                    run(scroll)
                end
            elseif args[2] == 1 then
                if scroll + 13 <= #appslist-1 then
                    scroll = scroll + 1
                    run(scroll)
                end
            end
        end
    end
end

function store.apps.versions(version)
    base.screen.colour("white")
    store.draw.menu("Versions")
    base.draw.box(21, 1, 5, 13, "|", "lightGrey", "white")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.texta("Total Versions: "..#discover.data.versions, 2, 19, false, "lightBlue", "grey")
    base.draw.textr("SCroll Enabled", 19, false, "orange", "grey")
    base.draw.texta("        All         |          Categories          ", 1, 3, false, "white", "lightGrey")

    -- Vars
    local lscroll = 0
    local rscroll = 0
    local ldata = discover.data.versions
    local rdata = {}
    local lselect = ""
    local allapps = discover.data.apps

    local function lrun(lscroll)
        for i=1, 13 do
            if #ldata >= i + lscroll then
                if lselect == ldata[i+lscroll] then
                    base.draw.box(1, 19, i+4, 1, " ", "white", "white")
                    base.draw.texta(ldata[i+lscroll], 1, i+4, false, "grey", "white")
                else
                    base.draw.box(1, 19, i+4, 1, " ", "white", "white")
                    base.draw.texta(ldata[i+lscroll], 1, i+4, false, "cyan", "white")
                end
            end
        end
    end

    local function rrun(rscroll)
        for i=1, 13 do
            if #rdata >= i + rscroll then
                base.draw.box(22, 29, i+4, 1, " ", "white", "white")
                base.draw.texta(rdata[i+rscroll].name:sub(1, 25), 23, i+4, false, "grey", "white")
            end
        end
    end

    lrun(lscroll)
    rrun(rscroll)

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Versions")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Versions", args[3], args[4])
            elseif (args[3] >= 1 and args[3] <= 25) and (args[4] == 3) then
                store.apps.all()
            elseif (args[3] >= 26 and args[3] <= 51) and (args[4] == 3) then
                store.apps.categories()
            elseif (args[3] >= 1 and args[3] <= 20) and (args[4] >= 5 and args[4] <= 17) then
                -- Choose
                local cid = args[4] - 4 + lscroll
                if #ldata >= cid then
                    lselect = ldata[cid]
                    rdata = {}
                    for k,v in ipairs(allapps) do
                        if v.version == lselect then
                            rdata[#rdata+1] = v
                        end
                    end
                    for i=1, 13 do
                        base.draw.box(22, 29, i+3, 1, false, "white", "white")
                    end
                    rscroll = 0
                    rrun(rscroll)
                    lrun(lscroll)
                end
            elseif (args[3] >= 22 and args[3] <= 51) and (args[4] >= 5 and args[4] <= 17) then
                -- View app
                local cid = args[4] - 4 + rscroll
                if #rdata >= cid then
                    viewapps[1] = rdata[cid].id
                    viewapps[2] = discover.data.apps
                    if not base.thread.find("View"..tostring(rdata[cid].id)) then
                        base.thread.create("View"..tostring(rdata[cid].id), store.apps.view)
                    end
                    base.thread.switch("View"..tostring(rdata[cid].id))
                end
            end
        elseif args[1] == "mouse_scroll" then
            if args[2] == -1 then
                if (args[3] >= 1 and args[3] <= 20) and (args[4] >= 5 and args[4] <= 17) then
                    if lscroll > 0  then
                        lscroll = lscroll - 1
                        lrun(lscroll)
                    end
                elseif (args[3] >= 22 and args[3] <= 51) and (args[4] >= 5 and args[4] <= 17) then
                    if rscroll > 0 then
                        rscroll = rscroll - 1
                        rrun(rscroll)
                    end
                end
            elseif args[2] == 1 then
                if (args[3] >= 1 and args[3] <= 20) and (args[4] >= 5 and args[4] <= 17) then
                    if lscroll + 13 <= #ldata-1 then
                        lscroll = lscroll + 1
                        lrun(lscroll)
                    end
                elseif (args[3] >= 22 and args[3] <= 51) and (args[4] >= 5 and args[4] <= 17) then
                    if rscroll + 13 <= #rdata-1 then
                        rscroll = rscroll + 1
                        rrun(rscroll)
                    end
                end
            end
        end
    end
end

function store.apps.categories()
    base.screen.colour("white")
    store.draw.menu("Categories")
    base.draw.box(21, 1, 5, 13, "|", "lightGrey", "white")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.texta("Total Categories: "..#discover.data.categories, 2, 19, false, "lightBlue", "grey")
    base.draw.textr("SCroll Enabled", 19, false, "orange", "grey")
    base.draw.texta("        All         |           Versions           ", 1, 3, false, "white", "lightGrey")

    -- Vars
    local lscroll = 0
    local rscroll = 0
    local ldata = discover.data.categories
    local rdata = {}
    local lselect = ""
    local allapps = discover.data.apps

    local function lrun(lscroll)
        for i=1, 13 do
            if #ldata >= i + lscroll then
                if lselect == ldata[i+lscroll] then
                    base.draw.box(1, 19, i+4, 1, " ", "white", "white")
                    base.draw.texta(ldata[i+lscroll], 1, i+4, false, "grey", "white")
                else
                    base.draw.box(1, 19, i+4, 1, " ", "white", "white")
                    base.draw.texta(ldata[i+lscroll], 1, i+4, false, "cyan", "white")
                end
            end
        end
    end

    local function rrun(rscroll)
        for i=1, 13 do
            if #rdata >= i + rscroll then
                base.draw.box(22, 29, i+4, 1, " ", "white", "white")
                base.draw.texta(rdata[i+rscroll].name:sub(1, 25), 23, i+4, false, "grey", "white")
            end
        end
    end

    lrun(lscroll)
    rrun(rscroll)

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Categories")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Categories", args[3], args[4])
            elseif (args[3] >= 1 and args[3] <= 25) and (args[4] == 3) then
                store.apps.all()
            elseif (args[3] >= 26 and args[3] <= 51) and (args[4] == 3) then
                store.apps.versions()
            elseif (args[3] >= 1 and args[3] <= 20) and (args[4] >= 5 and args[4] <= 17) then
                -- Choose
                local cid = args[4] - 4 + lscroll
                if #ldata >= cid then
                    lselect = ldata[cid]
                    rdata = {}
                    for k,v in ipairs(allapps) do
                        if v.category == lselect then
                            rdata[#rdata+1] = v
                        end
                    end
                    for i=1, 14 do
                        base.draw.box(22, 29, i+3, 1, false, "white", "white")
                    end
                    rscroll = 0
                    rrun(rscroll)
                    lrun(lscroll)
                end
            elseif (args[3] >= 22 and args[3] <= 51) and (args[4] >= 5 and args[4] <= 17) then
                -- View app
                local cid = args[4] - 4 + rscroll
                if #rdata >= cid then
                    viewapps[1] = rdata[cid].id
                    viewapps[2] = discover.data.apps
                    if not base.thread.find("View"..tostring(rdata[cid].id)) then
                        base.thread.create("View"..tostring(rdata[cid].id), store.apps.view)
                    end
                    base.thread.switch("View"..tostring(rdata[cid].id))
                end
            end
        elseif args[1] == "mouse_scroll" then
            if args[2] == -1 then
                if (args[3] >= 1 and args[3] <= 20) and (args[4] >= 4 and args[4] <= 17) then
                    if lscroll > 0  then
                        lscroll = lscroll - 1
                        lrun(lscroll)
                    end
                elseif (args[3] >= 22 and args[3] <= 51) and (args[4] >= 4 and args[4] <= 17) then
                    if rscroll > 0 then
                        rscroll = rscroll - 1
                        rrun(rscroll)
                    end
                end
            elseif args[2] == 1 then
                if (args[3] >= 1 and args[3] <= 20) and (args[4] >= 4 and args[4] <= 17) then
                    if lscroll + 14 <= #ldata-1 then
                        lscroll = lscroll + 1
                        lrun(lscroll)
                    end
                elseif (args[3] >= 22 and args[3] <= 51) and (args[4] >= 4 and args[4] <= 17) then
                    if rscroll + 14 <= #rdata-1 then
                        rscroll = rscroll + 1
                        rrun(rscroll)
                    end
                end
            end
        end
    end
end

function store.apps.view()
    base.screen.colour("white")
    base.draw.textc("Loading...", 9, false, "grey", "white")
    local scroll = 0

    local appid = viewapps[1]
    local appslist = viewapps[2]

    for k,v in ipairs(appslist) do
        if tonumber(v.id) == tonumber(appid) then
            apppos = k
            break
        end
    end

    local appdesc = base.data.wordwrap(appslist[apppos].description, 49)

    base.screen.colour("white")
    store.draw.menu("View App "..tostring(appslist[apppos].id))
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.texta("Comments", 2, 19, false, "lightBlue", "grey")

    local function drawdesc(scroll)
        for i = 1, 7 do
            if #appdesc >= i + scroll then
                base.draw.box(1, 51, i+9, 1, " ", "white", "white")
                base.draw.textl(appdesc[i+scroll], i+9, false, "grey", "white")
            end
        end
    end

    local function run()
        base.draw.textl("Name (ID):", 4, false, "lightGrey", "white")
        base.draw.texta(appslist[apppos].name.." ("..appslist[apppos].id..")", 12, 4, false, "grey", "white")
        base.draw.textl("Category:", 5, false, "lightGrey", "white")
        base.draw.texta(appslist[apppos].category, 12, 5, false, "grey", "white")
        base.draw.textl("Version:", 6, false, "lightGrey", "white")
        base.draw.texta(appslist[apppos].version, 12, 6, false, "grey", "white")
        base.draw.textl("Creator:", 7, false, "lightGrey", "white")
        base.draw.texta(appslist[apppos].creator, 12, 7, false, "grey", "white")
        base.draw.textl("App Hash:", 18, false, "lightGrey", "white")
        base.draw.texta(appslist[apppos].hash, 11, 18, false, "grey", "white")
        base.draw.textl("Description", 9, false, "lightGrey", "white")
        base.draw.textr(appslist[apppos].downloads.." download(s) ", 19, false, "orange", "grey")
        drawdesc(scroll)
        base.draw.texta(" Download ", 41, 5, false, "white", "cyan")
        base.draw.texta("   App!   ", 41, 6, false, "white", "cyan")
    end

    run()

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("View App "..tostring(appslist[apppos].id))
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Help / FAQ", args[3], args[4])
            elseif (args[3] >= 41 and args[3] <= 50) and (args[4] >= 5 and args[4] <= 6) then
                temp.download = appslist[apppos].id
                base.thread.create("Download"..tostring(appslist[apppos].id), store.apps.download)
                base.thread.switch("Download"..tostring(appslist[apppos].id))
            elseif (args[3] >= 2 and args[3] <= 9) and args[4] == 19 then
                store.apps.comments(appslist[apppos].id)
                base.screen.colour("white")
                store.draw.menu("View App "..tostring(appslist[apppos].id))
                base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
                base.draw.texta("Comments", 2, 19, false, "lightBlue", "grey")
                run()
            end
        elseif args[1] == "mouse_scroll" then
            if args[2] == -1 then
                if scroll > 0 then
                    scroll = scroll - 1
                    run(scroll)
                end
            elseif args[2] == 1 then
                if scroll + 14 <= #appdesc then
                    scroll = scroll + 1
                    run(scroll)
                end
            end
        end
    end
end

function store.apps.comments(appid)
    base.screen.colour("white")
    base.draw.textc("Download comments...", 9, false, "grey", "white")
    local scroll = 0
    local ok = discover:store_comments_get(appid)
    if not ok then
        viewapps[1] = appid
        store.apps.view()
    end
    comments = discover.data.comments
    base.screen.colour("white")
    store.draw.menu("Comments: "..tostring(appid))
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    if discover.data.loggedin then
        base.draw.textl(" Add", 19, false, "lightBlue", "grey")
    end
    base.draw.textr("Back ", 19, false, "orange", "grey")

    local function run(scroll)
        if #comments == 0 then
            base.draw.textc("No comments to display", 9, false, "grey", "white")
        end
        for i=1, 14 do
            if #comments >= i + scroll then
                base.draw.box(1, 51, i+9, 1, " ", "white", "white")
                base.draw.textl(comments[i+scroll].comment, i+3, false, "grey", "white")
                base.draw.textr(comments[i+scroll].username, i+3, false, "cyan", "white")
            end
        end
    end

    run(scroll)
    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Comments: "..tostring(appid))
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Help / FAQ", args[3], args[4])
            elseif (args[3] >= 2 and args[3] <= 4) and (args[4] == 19) then
                if discover.data.loggedin then
                    local comment = base.gui.input("Comment Text:")
                    local status = discover:store_comments_set( appid, comment )
                    if status then
                        base.gui.alert("Added!")
                        sleep(0.5)
                    else
                        base.gui.alert("Failed")
                        sleep(1)
                    end
                    base.screen.colour("white")
                    base.draw.textc("Download comments...", 9, false, "grey", "white")
                    local scroll = 0
                    local ok = discover:store_comments_get(appid)
                    if not ok then
                        viewapps[1] = appid
                        store.apps.view()
                    end
                    comments = discover.data.comments
                    base.screen.colour("white")
                    store.draw.menu("Comments: "..tostring(appid))
                    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
                    if discover.data.loggedin then
                        base.draw.textl(" Add", 19, false, "lightBlue", "grey")
                    end
                    base.draw.textr("Back ", 19, false, "orange", "grey")
                    run(scroll)
                end
            elseif (args[3] >= 47 and args[3] <= 50) and (args[4] == 19) then
                break
            end
        elseif args[1] == "mouse_scroll" then
            if args[2] == -1 then
                if scroll > 0 then
                    scroll = scroll - 1
                    run(scroll)
                end
            elseif args[2] == 1 then
                if scroll + 14 <= #comments then
                    scroll = scroll + 1
                    run(scroll)
                end
            end
        end
    end
end

function store.account.login()
    base.screen.colour("white")
    store.draw.menu("Login")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.textl(" Cancel", 19, false, "orange", "grey")
    base.draw.textr("Login ", 19, false, "cyan", "grey")

    local function run()
        base.draw.textc("Discover API Login", 4, false, "grey", "white")
        base.draw.texta("Username:", 8, 7, false, "lightGrey", "white")
        base.draw.box(8, 36, 8, 1, " ", "cyan", "cyan")
        base.draw.texta("Password:", 8, 10, false, "lightGrey", "white")
        base.draw.box(8, 36, 11, 1, " ", "cyan", "cyan")
        base.draw.textc("Need an account? Register here!", 14, false, "grey", "white")
    end

    run()
    restart_home = true

    while not discover.data.loggedin or restart_home do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Login")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Login", args[3], args[4])
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 8) then
                base.draw.box(8, 36, 8, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 8)
                write(": ")
                username = tostring(base.io.limitRead(34))
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 11) then
                base.draw.box(8, 36, 11, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 11)
                write(": ")
                password = tostring(base.io.limitRead(34, "*"))
                password = base.crypto.sha256(password)
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 14) then
                store.account.register()
            elseif (args[3] >= 2 and args[3] <= 10) and (args[4] == 19) then
                break
            elseif (args[3] >= 46 and args[3] <= 50) and (args[4] == 19) then
                if username and password then
                    base.draw.textc("Requesting Authentication, Please Wait", 17, false, "lightGrey", "white")
                    if discover:login(username, password) then
                        discover.data.loggedin = true
                        base.gui.alert("Logged In!")
                        if system.storeconfig then
                            new = {}
                            new.username = discover.data.username
                            new.password = discover.data.password
                            new.storeconfig = system.storeconfig
                            new.plugins = system.plugins
                            new.authkey = discover.data.authkey
                            dat = textutils.serialize(new)
                            local f = fs.open(system.paths.config, "w")
                            f.write(base.base64.encode(dat))
                            f.close()
                        end
                        sleep(0.8)
                        store.home()
                    else
                        base.draw.box(1, 51, 17, 1, " ", "white", "white")
                        base.draw.textc(tostring(discover.data.errormsg), 17, false, "lightGrey", "white")
                        sleep(1)
                        store.home()
                    end
                else
                    base.draw.textc("Please fill in the fields", 17, false, "lightGrey", "white")
                end
            end
        end
    end
end

function store.account.register()
    base.screen.colour("white")
    store.draw.menu("Login")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.textl(" Cancel", 19, false, "orange", "grey")
    base.draw.textr("Register ", 19, false, "cyan", "grey")

    local function run()
        base.draw.textc("Discover API Registration", 4, false, "grey", "white")
        base.draw.texta("Username:", 8, 7, false, "lightGrey", "white")
        base.draw.box(8, 36, 8, 1, " ", "cyan", "cyan")
        base.draw.texta("Password:", 8, 10, false, "lightGrey", "white")
        base.draw.box(8, 36, 11, 1, " ", "cyan", "cyan")
        base.draw.texta("Email:", 8, 13, false, "lightGrey", "white")
        base.draw.box(8, 36, 14, 1, " ", "cyan", "cyan")
        base.draw.textc("Have an account? Login here!", 17, false, "grey", "white")
    end

    run()
    restart_home = true

    while not discover.data.loggedin or restart_home do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Login")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Login", args[3], args[4])
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 8) then
                base.draw.box(8, 36, 8, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 8)
                write(": ")
                username = tostring(base.io.limitRead(34))
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 11) then
                base.draw.box(8, 36, 11, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 11)
                write(": ")
                password = tostring(base.io.limitRead(34, "*"))
                password = base.crypto.sha256(password)
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 14) then
                base.draw.box(8, 36, 14, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 14)
                write(": ")
                email = tostring(base.io.limitRead(34))
            elseif (args[3] >= 9 and args[3] <= 42) and (args[4] == 17) then
                store.account.login()
            elseif (args[3] >= 2 and args[3] <= 10) and (args[4] == 19) then
                break
            elseif (args[3] >= 43 and args[3] <= 50) and (args[4] == 19) then
                if username and password and email then
                    base.draw.textc("Requesting Authentication, Please Wait", 17, false, "lightGrey", "white")
                    if discover:register(username, password, email) then
                        base.gui.alert("Registered. Obtaining authkey, please wait")
                        sleep(0.5)
                        local status = discover:login(username, password)
                        if status then
                            base.gui.alert("Logged in!")
                            sleep(0.8)
                            store.home()
                        else
                            base.gui.alert(discover.data.errormsg)
                            sleep(1.5)
                            store.home()
                        end
                    else
                        base.draw.box(1, 51, 17, 1, " ", "white", "white")
                        base.draw.textc(tostring(discover.data.errormsg), 17, false, "lightGrey", "white")
                        sleep(1)
                        store.account.home()
                    end
                else
                    base.draw.textc("Please fill in the fields", 17, false, "lightGrey", "white")
                end
            end
        end
    end
end

function store.account.logout()
    base.gui.alert("Logging out...")
    sleep(0.5)
    discover:logout()
    base.gui.alert("Logged out!")
    sleep(0.5)
end

function store.apps.search(searchterm)
    if searchterm == "mouse_up" then
        searchterm = nil
    end
    base.screen.colour("white")
    store.draw.menu("Search")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.box(3, 47, 19, 1, " ", "lightGrey", "lightGrey")
    base.draw.textc("Click here to search", 19, false, "white", "lightGrey")
    local appslist = discover:get("apps")
    local apps = appslist
    local scroll = 0
    if searchterm then
        apps = {}
        for k,v in ipairs(appslist) do
            if string.lower(v.name):match(searchterm:lower()) then
                table.insert(apps, v)
            end
        end
    end

    local function run(scroll)
        if #apps > 0 then
            for i=1, 14 do
                if (scroll + i) <= #apps then
                    base.draw.box(1, 51, i+3, 1, " ", "white", "white")
                    base.draw.texta(tostring(i+scroll) .. ": " .. apps[i+scroll].name, 1, i+3, false, "grey", "white")
                end
            end
        else
            base.draw.textc("No apps match your search term", 10, false, "red", "white")
        end
    end

    run(scroll)
    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Search")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Search", args[3], args[4])
            elseif (args[3] >= 3 and args[3] <= 49) and (args[4] == 19) then
                base.draw.box(3, 47, 19, 1, " ", "lightGrey", "lightGrey")
                base.colour.set("orange", "lightGrey")
                term.setCursorPos(3, 19)
                write(": ")
                local keyterm = tostring(base.io.limitRead(45))
                term.setCursorPos(1,4)
                store.apps.search(keyterm)
            elseif (args[3] >= 1 and args[3] <= 51) and (args[4] >= 4 and args[4] <= 17) then
                local curid = args[4] - 3 + scroll
                if curid > 0 and curid <= #apps then
                    local tname = "View"..tostring(apps[curid].id)
                    base.thread.create(tname, store.apps.view)
                    viewapps[1] =  apps[curid].id
                    viewapps[2] = apps
                    base.thread.switch(tname)
                end
            end
        elseif args[1] == "mouse_scroll" then
            if args[2] == -1 then
                if scroll > 0 then
                    scroll = scroll - 1
                    run(scroll)
                end
            elseif args[2] == 1 then
                if scroll + 14 < #apps then
                    scroll = scroll + 1
                    run(scroll)
                end
            end
        end
    end
end

function store.account.upload(step)
    if not step then
        step = ""
    end
    if step == "1" then
        base.screen.colour("white")
        store.draw.menu("Upload (Step 1)")
        base.draw.box(1, 51, 19, 11, " ", "grey", "grey")
        base.draw.textl(" Cancel", 19, false, "orange", "grey")
        base.draw.textr("Next Step ", 19, false, "orange", "grey")
        base.draw.textc("Press \"up\" to see preset versions / categories.", 18, false, "lightGrey", "white")

        local function run()
            base.draw.textc("Please follow on-screen instructions!", 4, false, "cyan", "white")
            base.draw.texta("App Name:", 8, 6, false, "lightGrey", "white")
            base.draw.box(8, 36, 7, 1, " ", "cyan", "cyan")
            base.draw.texta("App Description:", 8, 9, false, "lightGrey", "white")
            base.draw.box(8, 36, 10, 1, " ", "cyan", "cyan")
            base.draw.texta("App Version:", 8, 12, false, "lightGrey", "white")
            base.draw.box(8, 36, 13, 1, " ", "cyan", "cyan")
            base.draw.texta("App Category:", 8, 15, false, "lightGrey", "white")
            base.draw.box(8, 36, 16, 1, " ", "cyan", "cyan")
        end

        local function render()
            if up_name then
                base.draw.texta(tostring(": "..up_name), 8, 7, false, "white", "cyan")
            end
            if up_desc then
                base.draw.texta(tostring(": "..up_desc), 8, 10, false, "white", "cyan")
            end
            if up_vers then
                base.draw.texta(tostring(": "..up_vers), 8, 13, false, "white", "cyan")
            end
            if up_cate then
                base.draw.texta(tostring(": "..up_cate), 8, 16, false, "white", "cyan")
            end
        end

        render()
        run()
        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Upload (Step 1)")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Upload", args[3], args[4])
                elseif (args[3] >= 2 and args[3] <= 7) and (args[4] == 19) then
                    base.thread.remove("Upload")
                    if not base.thread.find("Account") then
                        base.thread.create("Account", store.account.home)
                    end
                    base.thread.switch("Account")
                elseif (args[3] >= 42 and args[3] <= 50) and (args[4] == 19) then
                    if up_name and up_desc and up_vers and up_cate then
                        store.account.upload("2")
                    else
                        base.draw.box(1, 51, 17, 1, " ", "white", "white")
                        base.draw.textc("Please fill out all fields", 17, false, "red", "white")
                        sleep(1)
                        base.draw.box(1, 51, 17, 1, " ", "white", "white")
                    end
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 7) then
                    base.draw.box(1, 51, 7, 1, " ", "white", "white")
                    base.draw.box(8, 36, 7, 1, " ", "cyan", "cyan")
                    base.colour.set("white", "cyan")
                    term.setCursorPos(8, 7)
                    write(": ")
                    up_name = tostring(base.io.limitRead(34))
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 10) then
                    base.draw.box(1, 51, 10, 1, " ", "white", "white")
                    base.draw.box(8, 36, 10, 1, " ", "cyan", "cyan")
                    base.colour.set("white", "cyan")
                    term.setCursorPos(8, 10)
                    write(": ")
                    up_desc = tostring(base.io.limitRead(34))
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 13) then
                    base.draw.box(1, 51, 13, 1, " ", "white", "white")
                    base.draw.box(8, 36, 13, 1, " ", "cyan", "cyan")
                    base.colour.set("white", "cyan")
                    term.setCursorPos(8, 13)
                    write(": ")
                    up_vers = tostring(read(_, discover.data.versions))
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 16) then
                    base.draw.box(1, 51, 16, 1, " ", "white", "white")
                    base.draw.box(8, 36, 16, 1, " ", "cyan", "cyan")
                    base.colour.set("white", "cyan")
                    term.setCursorPos(8, 16)
                    write(": ")
                    up_cate = tostring(read(_, discover.data.categories))
                end
            end
        end
    elseif step == "2" then
        base.screen.colour("white")
        store.draw.menu("Upload (Step 2)")
        base.draw.box(1, 51, 19, 11, " ", "grey", "grey")
        base.draw.textl(" Back", 19, false, "orange", "grey")
        base.draw.textr("Upload ", 19, false, "orange", "grey")

        local function run()
            base.draw.textc("Please follow on-screen instructions!", 4, false, "cyan", "white")
            base.draw.texta("App Status:", 8, 6, false, "lightGrey", "white")
            base.draw.box(8, 36, 7, 1, " ", "cyan", "cyan")
            base.draw.texta("App\'s file path:", 8, 9, false, "lightGrey", "white")
            base.draw.box(8, 36, 10, 1, " ", "cyan", "cyan")
        end

        local function exit()
            up_stat = nil
            up_path = nil
            up_desc = nil
            up_cate = nil
            up_vers = nil
            up_name = nil
            base.thread.remove("Upload")
            if not base.thread.find("Account") then
                base.thread.create("Account", store.account.home)
            end
            base.thread.switch("Account")
        end
        local use_paste = true; local use_file = false;
        local function input_type()
            if use_paste then
                use_paste = false
                use_file = true
                base.draw.box(8, 27, 10, 1, " ", "cyan", "cyan")
                base.draw.box(8, 27, 9, 1, " ", "white", "white")
                base.draw.texta("App\'s file path:", 8, 9, false, "lightGrey", "white")
                base.draw.texta(" Toggle ", 36, 10, false, "white", "orange")
            elseif use_file then
                use_paste = true
                use_file = false
                base.draw.box(8, 27, 10, 1, " ", "cyan", "cyan")
                base.draw.box(8, 27, 9, 1, " ", "white", "white")
                base.draw.texta("Pastebin ID:", 8, 9, false, "lightGrey", "white")
                base.draw.texta(" Toggle ", 36, 10, false, "white", "orange")
            end
        end

        local function render()
            if up_stat then
                base.draw.texta(tostring(": "..up_stat), 8, 7, false, "white", "cyan")
            end
            if up_path then
                base.draw.texta(tostring(": "..up_path), 8, 10, false, "white", "cyan")
            end
        end

        run()
        render()
        input_type()
        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Upload (Step 2)")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Upload", args[3], args[4])
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 7) then
                    base.draw.box(1, 51, 7, 1, " ", "white", "white")
                    base.draw.box(8, 36, 7, 1, " ", "cyan", "cyan")
                    base.colour.set("white", "cyan")
                    term.setCursorPos(8, 7)
                    write(": ")
                    up_stat = tostring(read(_, {"public", "private"}))
                elseif (args[3] >= 36 and args[3] <= 43) and (args[4] == 10) then
                    input_type()
                elseif (args[3] >= 8 and args[3] <= 35) and (args[4] == 10) then
                    base.draw.box(8, 27, 10, 1, " ", "cyan", "cyan")
                    base.colour.set("white", "cyan")
                    term.setCursorPos(8, 10)
                    write(": ")
                    up_path = tostring(base.io.limitRead(34))
                elseif (args[3] >= 45 and args[3] <= 50) and (args[4] == 19) then
                    if up_stat and up_path then
                        for i=12, 17 do
                            base.draw.box(1, 51, i, 1, " ", "white", "white")
                        end

                        if use_paste then
                            base.draw.texta(":: Downloading File...", 8, 12, false, "grey", "white")
                            app = http.get("http://pastebin.com/raw/" .. textutils.urlEncode(tostring(up_path)))
                            base.draw.texta(":: Extracting Data...", 8, 13, false, "grey", "white")
                            up_path_content = app.readAll()
                        elseif use_file then
                            base.draw.texta(":: Finding File...", 8, 12, false, "grey", "white")
                            if fs.exists(up_path) then
                                base.draw.texta(":: Extracting Data...", 8, 13, false, "grey", "white")
                                local f = fs.open(up_path, "r")
                                up_path_content = f.readAll()
                                f.close()
                            else
                                base.draw.texta(":: ERROR -> No file found", 8, 13, false, "grey", "white")
                                sleep(1)
                                store.account.upload("2")
                            end
                        end
                        base.draw.texta(":: Sending Server Request...", 8, 14, false, "grey", "white")
                        local status = discover:store_upload( up_name, up_desc, up_cate, up_vers, up_stat, up_path_content )
                        if status then
                            base.draw.texta(":: Upload was successfull!", 8, 15, false, "grey", "white")
                            sleep(1)
                            base.gui.alert("Updating local app database...")
                            discover:store_init()
                            exit()
                        else
                            base.draw.texta(":: Unable to store data", 8, 15, false, "grey", "white")
                            base.draw.texta(":: "..tostring(discover.data.errormsg), 8, 15, false, "grey", "white")
                            sleep(2)
                        end
                    else
                        base.draw.box(1, 51, 18, 1, " ", "white", "white")
                        base.draw.textc("Please fill out all fields", 18, false, "red", "white")
                        sleep(1)
                        base.draw.box(1, 51, 18, 1, " ", "white", "white")
                    end
                elseif (args[3] >= 2 and args[3] <= 5) and (args[4] == 19) then
                    store.account.upload("1")
                end
            end
        end
    else
        base.screen.colour("white")
        store.draw.menu("Upload")
        base.draw.box(1, 51, 19, 11, " ", "grey", "grey")
        base.draw.textl(" Cancel", 19, false, "orange", "grey")
        base.draw.textr("Accept ", 19, false, "orange", "grey")
        local scroll = 0

        local function run(scroll)
            base.draw.textc("Please read the following before submitting:", 4, false, "lightGrey", "white")
            local text = "Apps uploaded to this system are saved to a database/server. We do NOT edit your code and/or modify it for our own use. App moderators will check apps for malicious code to try and stop any kind of data stealing. We also say that if your app is full of errors, it may be set to private, and a notification sent to your account/email in the database, mentioning this - of course once updated you can set it to public again. Program installers are also very welcome."
            tText = base.data.wordwrap(text, 47)
            for i=1, 12 do
                if (scroll + i) <= #tText then
                    base.draw.box(1, 51, i+5, 1, " ", "white", "white")
                    base.draw.texta(tText[i+scroll], 3, i+5, false, "grey", "white")
                end
            end
        end

        run(scroll)
        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("upload")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Upload", args[3], args[4])
                elseif (args[3] >= 2 and args[3] <= 7) and (args[4] == 19) then
                    base.thread.remove("Upload")
                    if not base.thread.find("Account") then
                        base.thread.create("Account", store.account.home)
                    end
                    base.thread.switch("Account")
                elseif (args[3] >= 45 and args[3] <= 50) and (args[4] == 19) then
                    store.account.upload("1")
                end
            elseif args[1] == "mouse_scroll" then
                if args[2] == -1 then
                    if scroll > 0 then
                        scroll = scroll - 1
                        run(scroll)
                    end
                elseif args[2] == 1 then
                    if scroll + 12 < #tText then
                        scroll = scroll + 1
                        run(scroll)
                    end
                end
            end
        end
    end
end

function store.apps.download()
    base.screen.colour("white")
    store.draw.menu("Download")
    local appid = temp.download

    local text = "You are attempting to download an app, please choose a name for the file download";


    local function run()
        for k,v in ipairs(base.data.wordwrap(text, 45)) do
            base.draw.textc(v, k+3, false, "grey", "white")
        end
        base.draw.texta("File Name / Path:", 8, 8, false, "lightGrey", "white")
        base.draw.box(8, 36, 9, 1, " ", "cyan", "cyan")
        base.draw.texta(" Download ", 8, 12, false, "white", "cyan")
        base.draw.texta(" Cancel ", 36, 12, false, "white", "cyan")
    end


    run()

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Download")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Download", args[3], args[4])
            elseif (args[3] >= 8 and args[3] <= 17) and (args[4] == 12) then
                if filepath then
                    local data = discover:store_download(appid)
                    if data then
                        local f = fs.open(filepath, "w")
                        f.write(data.readAll())
                        f.close()
                        base.gui.alert("Saved!")
                        sleep(1)
                        base.thread.remove("Download" .. tostring(appid))
                        if base.thread.find("Apps") then
                            base.thread.create("Apps", store.apps.all)
                        end
                        base.thread.switch("Apps")
                    else
                        base.draw.box(1, 51, 14, 1, " ", "white", "white")
                        base.draw.textc("An error occured", 14, false, "lightGrey", "white")
                    end
                else
                    base.draw.box(1, 51, 14, 1, " ", "white", "white")
                    base.draw.textc("Please supply a file path / name!", 14, false, "lightGrey", "white")
                end
            elseif (args[3] >= 36 and args[3] <= 43) and (args[4] == 12) then
                base.thread.remove("Download"..tostring(appid))
                base.thread.switch("Home")
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 9) then
                base.draw.box(8, 36, 9, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 9)
                write(": ")
                filepath = tostring(base.io.limitRead(34))
            end
        end
    end
end

function store.account.myapps()
    base.screen.colour("white")
    base.draw.textc("Downloading your apps list...", 9, false, "grey", "white")
    if not discover:store_apps_user() then
        base.gui.alert("Could not obtain your Apps list...")
        sleep(1.5)
        if not base.thread.find("Account") then
            base.thread.create("Account", store.account.home)
        end
        base.thread.remove("MyApps")
        base.thread.switch("Account")
    end

    appslist = discover.data.appsuser

    base.draw.box(1, 51, 9, 1, " ", "white", "white")
    store.draw.menu("MyApps")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.texta("Your Apps: "..tostring(#appslist), 2, 19, false, "orange", "grey")
    scroll = 0

    local function fix(num)
        if tostring(num):len() == 1 then
            return " "..tostring(num)
        else
            return tostring(num)
        end
    end

    local function run(scroll)
        for i = 1, 14 do
            if #appslist >= i + scroll then
                base.draw.box(1, 51, i+3, 1, " ", "white", "white")
                base.draw.texta(tostring(fix(i+scroll)..": "..appslist[i+scroll].name):sub(1, 40), 1, i+3, false, "grey", "white")
                base.draw.texta("X", 50, i+3, false, "red", "white")
                base.draw.texta("Edit", 44, i+3, false, "lightBlue", "white")
                base.draw.texta("Upd", 40, i+3, false, "lightBlue", "white")
            end
        end
    end

    run(scroll)

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("MyApps")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("MyApps", args[3], args[4])
            elseif (args[3] >= 40 and args[3] <= 42) and (args[4] >= 4 and args[4] <= 17) then
                -- Do update
                local appid = appslist[args[4] - 3 + scroll].id
                temp.edit_appid = appid
                base.thread.create("Update", store.account.update)
                base.thread.switch("Update")
            elseif (args[3] >= 44 and args[3] <= 47) and (args[4] >= 4 and args[4] <= 17) then
                -- Do Edit
                local appid = appslist[args[4] - 3 + scroll].id
                temp.edit_appid = appid
                base.thread.create("Edit", store.account.edit)
                base.thread.switch("Edit")
            elseif (args[3] == 50) and (args[4] >= 4 and args[4] <= 17) then
                -- Do Delete
                local appid = appslist[args[4] - 3 + scroll].id
                local appname = appslist[args[4] - 3 + scroll].name
                base.draw.box(8, 36, 8, 2, " ", "grey", "grey")
                base.draw.box(8, 36, 10, 2, " ", "grey", "grey")
                local text = "To delete the app: "..tostring(appname).." press \"enter\" otherwise please press any other button to exit."
                for k,v in ipairs(base.data.wordwrap(text, 34)) do
                    base.draw.texta(v, 9, k+7, false, "white", "grey")
                end
                while true do
                    local ev, nk = os.pullEvent("key")
                    if ev == "key" then
                        if nk == 28 then
                            base.screen.colour("white")
                            store.draw.menu("MyApps")
                            base.colour.set("cyan", "white")
                            term.setCursorPos(1, 4)
                            print("Deleting...")
                            local status = discover:store_delete( appid )
                            if status then
                                print("\nApp was deleted!!")
                                sleep(0.5)
                                print("Updating local cache...")
                                discover:store_init()
                                sleep(0.5)
                                store.account.myapps()
                            else
                                base.gui.alert(discover.data.errormsg)
                                sleep(1.5)
                                store.account.myapps()
                            end
                        else
                            break
                        end
                    else
                        break
                    end
                end
            end
        elseif args[1] == "mouse_scroll" then
            if args[2] == -1 then
                if scroll > 0 then
                    scroll = scroll - 1
                    run(scroll)
                end
            elseif args[2] == 1 then
                if scroll + 14 < #appslist then
                    scroll = scroll + 1
                    run(scroll)
                end
            end
        end
    end
end

function store.account.home()
    base.screen.colour("white")
    store.draw.menu("My Account")

    local function run()
        for i=1, 20 do
            base.draw.box(i, 1, 3, 17, " ", "lightGrey", "lightGrey")
        end
        base.draw.box(2, 18, 5, 1, " ", "orange", "orange")
        base.draw.box(2, 18, 7, 1, " ", "orange", "orange")
        base.draw.box(2, 18, 9, 1, " ", "orange", "orange")
        base.draw.box(2, 18, 11, 1, " ", "orange", "orange")
        base.draw.box(2, 18, 13, 1, " ", "orange", "orange")
        base.draw.box(2, 18, 15, 1, " ", "orange", "orange")
        base.draw.box(2, 18, 17, 1, " ", "orange", "orange")
        base.draw.texta("Upload an App", 3, 5, false, "white", "orange")
        base.draw.texta("Update an App", 3, 7, false, "white", "orange")
        base.draw.texta("View my Apps", 3, 9, false, "white", "orange")
        base.draw.texta("Notifications", 3, 11, false, "white", "orange")
        base.draw.texta("Change Password", 3, 13, false, "white", "orange")
        base.draw.texta("Change Email", 3, 15, false, "white", "orange")
        base.draw.texta("My Statistics", 3, 17, false, "white", "orange")

        -- Draw info
        base.draw.texta("My Details", 31, 4, false, "grey", "white")
        base.draw.texta("Username:", 22, 7, false, "lightGrey", "white")
        base.draw.box(22, 29, 8, 1, " ", "cyan", "cyan")
        base.draw.texta(tostring(discover.data.username), 23, 8, false, "white", "cyan")
        base.draw.texta("AuthKey:", 22, 11, false, "lightGrey", "white")
        base.draw.box(22, 29, 12, 1, " ", "cyan", "cyan")
        base.draw.box(22, 29, 13, 1, " ", "cyan", "cyan")
        base.draw.box(22, 29, 14, 1, " ", "cyan", "cyan")
        base.draw.box(22, 29, 15, 1, " ", "cyan", "cyan")
        base.draw.box(22, 29, 16, 1, " ", "cyan", "cyan")
        base.draw.texta(discover.data.authkey:sub(1, 27) , 23, 12, false, "white", "cyan")
        base.draw.texta(discover.data.authkey:sub(28, 54) , 23, 13, false, "white", "cyan")
        base.draw.texta(discover.data.authkey:sub(55, 81) , 23, 14, false, "white", "cyan")
        base.draw.texta(discover.data.authkey:sub(82, 108) , 23, 15, false, "white", "cyan")
        base.draw.texta(discover.data.authkey:sub(109) , 23, 16, false, "white", "cyan")
    end

    run()
    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("My Account")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Account", args[3], args[4])
            elseif (args[3] >= 2 and args[3] <= 18) and (args[4] == 5) then
                if not base.thread.find("Upload") then
                    base.thread.create("Upload", store.account.upload)
                end
                base.thread.switch("Upload")
            elseif (args[3] >= 2 and args[3] <= 18) and (args[4] == 7) then
                if not base.thread.find("Update") then
                    base.thread.create("Update", store.account.update)
                end
                base.thread.switch("Update")
            elseif (args[3] >= 2 and args[3] <= 18) and (args[4] == 9) then
                if not base.thread.find("MyApps") then
                    base.thread.create("MyApps", store.account.myapps)
                end
                base.thread.switch("MyApps")
            elseif (args[3] >= 2 and args[3] <= 18) and (args[4] == 11) then
                if not base.thread.find("Notifications") then
                    base.thread.create("Notifications", store.account.notifications)
                end
                base.thread.switch("Notifications")
            elseif (args[3] >= 2 and args[3] <= 18) and (args[4] == 13) then
                if not base.thread.find("ModifyP") then
                    base.thread.create("ModifyP", store.account.modifypass)
                end
                base.thread.switch("ModifyP")
            elseif (args[3] >= 2 and args[3] <= 18) and (args[4] == 15) then
                if not base.thread.find("ModifyE") then
                    base.thread.create("ModifyE", store.account.modifyemail)
                end
                base.thread.switch("ModifyE")
            elseif (args[3] >= 2 and args[3] <= 18) and (args[4] == 17) then
                if not base.thread.find("MyStats") then
                    base.thread.create("MyStats", store.account.stats)
                end
                base.thread.switch("MyStats")
            end
        end
    end
end

function store.account.modifyemail(keyabc)
    if (keyabc == 1) then
        base.screen.colour("white")
        store.draw.menu("Modify Email")

        base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
        base.draw.textl(" Back", 19, false, "orange", "grey")
        base.draw.textr("Submit ", 19, false, "cyan", "grey")
        local text = "Please enter your account key you got via email, and the new email address you wish to use then hit submit, once this confirms your email address will be updated."
        for k,v in ipairs(base.data.wordwrap(text, 49)) do
            base.draw.textc(v, k+3, false, "lightGrey", "white")
        end
        base.draw.texta("Account Key", 8, 11, false, "lightGrey", "white"); base.draw.box(8, 36, 12, 1, " ", "cyan", "cyan");
        base.draw.texta("New Email", 8, 15, false, "lightGrey", "white"); base.draw.box(8, 36, 16, 1, " ", "cyan", "cyan");

        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Modify Email")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Modify", args[3], args[4])
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 12) then
                    base.draw.box(8, 36, 12, 1, " ", "cyan", "cyan")
                    base.colour.set("white", "cyan")
                    term.setCursorPos(8, 12)
                    write(": ")
                    me_key = tostring(base.io.limitRead(34))
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 16) then
                    base.draw.box(8, 36, 16, 1, " ", "cyan", "cyan")
                    base.colour.set("white", "cyan")
                    term.setCursorPos(8, 16)
                    write(": ")
                    me_email = tostring(base.io.limitRead(34))
                elseif (args[3] >= 2 and args[3] <= 6) and (args[4] == 19) then
                    store.account.modifyemail(0)
                elseif (args[3] >= 44 and args[3] <= 50) and (args[4] == 19) then
                    if me_email and me_key then
                        local query = "cmd=change_email&key="..textutils.urlEncode(tostring(me_key)).."&username="..textutils.urlEncode(tostring(discover.data.username)).."&newemail="..textutils.urlEncode(tostring(me_email));
                        local req = http.post(discover.data.urls.user, query)
                        req = textutils.unserialize(req.readAll())
                        if req.status then
                            base.draw.textc(tostring(req.message), 18, false, "red", "white")
                            sleep(0.75)
                            base.draw.box(1, 51, 18, 1, " ", "white", "white")
                        else
                            base.draw.textc(tostring(req.error), 18, false, "red", "white")
                            sleep(1)
                            base.draw.box(1, 51, 18, 1, " ", "white", "white")
                        end
                    else
                        base.draw.textc("Please fill in your key and email", 18, false, "red", "white")
                        sleep(0.75)
                        base.draw.box(1, 51, 18, 1, " ", "white", "white")
                    end
                end
            end
        end
    else
        base.screen.colour("white")
        store.draw.menu("Modify Email | Request Key")

        base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
        base.draw.textl(" Request Key", 19, false, "orange", "grey")
        base.draw.textr("Enter Key ", 19, false, "cyan", "grey")

        local text = "To protect accounts, please fill out your username and password below, and then submit to request a key, the key will be sent to your registered email on your account. Once requested the key is valid once, allowing you to change any user details. After one use the key expires and becomes useless."
        for k,v in ipairs(base.data.wordwrap(text, 51)) do
            base.draw.texta(v, 2, k+3, false, "lightGrey", "white")
        end

        base.draw.box(8, 36, 14, 1, " ", "cyan", "cyan"); base.draw.box(8, 36, 17, 1, " ", "cyan", "cyan");
        base.draw.texta("Username", 8, 13, false, "lightGrey", "white"); base.draw.texta("Password", 8, 16, false, "lightGrey", "white");

        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Modify Email | Request Key")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Modify", args[3], args[4])
                elseif (args[3] >= 2 and args[3] <= 13) and (args[4] == 19) then
                    if mp_username and mp_password then
                        local query = "cmd=request_key&username="..textutils.urlEncode(tostring(mp_username)).."&password="..textutils.urlEncode(tostring(base.crypto.sha256(mp_password)))
                        local req = http.post(discover.data.urls.user, query)
                        req = textutils.unserialize(req.readAll())
                        if (req.status == true) then
                            base.draw.textc(tostring(req.message), 18, false, "red", "white")
                            sleep(0.75)
                            base.draw.box(1, 51, 18, 1, " ", "white", "white")
                        else
                            base.draw.textc(tostring(req.error), 18, false, "red", "white")
                            sleep(1)
                            base.draw.box(1, 51, 18, 1, " ", "white", "white")
                        end
                    else
                        base.draw.textc("Please fill in your username and password", 18, false, "red", "white")
                        sleep(0.75)
                        base.draw.box(1, 51, 18, 1, " ", "white", "white")
                    end
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 14) then
                    base.draw.box(8, 36, 14, 1, " ", "cyan", "cyan")
                    base.colour.set("white", "cyan")
                    term.setCursorPos(8, 14)
                    write(": ")
                    mp_username = tostring(base.io.limitRead(34))
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 17) then
                    base.draw.box(8, 36, 17, 1, " ", "cyan", "cyan")
                    base.colour.set("white", "cyan")
                    term.setCursorPos(8, 17)
                    write(": ")
                    mp_password = tostring(base.io.limitRead(34, "*"))
                elseif (args[3] >= 41 and args[3] <= 50) and (args[4] == 19) then
                    store.account.modifyemail(1)
                end
            end
        end
    end
end

function store.account.modifypass(keyabc)
    if (keyabc == 1) then
        base.screen.colour("white")
        store.draw.menu("Modify Password")

        base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
        base.draw.textl(" Back", 19, false, "orange", "grey")
        base.draw.textr("Submit ", 19, false, "cyan", "grey")
        local text = "Please enter your account key you got via password, and the new password address you wish to use then hit submit, once this confirms your password address will be updated."
        for k,v in ipairs(base.data.wordwrap(text, 49)) do
            base.draw.textc(v, k+3, false, "lightGrey", "white")
        end
        base.draw.texta("Account Key", 8, 11, false, "lightGrey", "white"); base.draw.box(8, 36, 12, 1, " ", "cyan", "cyan");
        base.draw.texta("New Password", 8, 15, false, "lightGrey", "white"); base.draw.box(8, 36, 16, 1, " ", "cyan", "cyan");

        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Modify Password")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Modify", args[3], args[4])
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 12) then
                    base.draw.box(8, 36, 12, 1, " ", "cyan", "cyan")
                    base.colour.set("white", "cyan")
                    term.setCursorPos(8, 12)
                    write(": ")
                    mp_key = tostring(base.io.limitRead(34))
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 16) then
                    base.draw.box(8, 36, 16, 1, " ", "cyan", "cyan")
                    base.colour.set("white", "cyan")
                    term.setCursorPos(8, 16)
                    write(": ")
                    mp_pass = tostring(base.io.limitRead(34, "*"))
                elseif (args[3] >= 2 and args[3] <= 6) and (args[4] == 19) then
                    store.account.modifyemail(0)
                elseif (args[3] >= 44 and args[3] <= 50) and (args[4] == 19) then
                    if mp_pass and mp_key then
                        local query = "cmd=change_password&key="..textutils.urlEncode(tostring(mp_key)).."&username="..textutils.urlEncode(tostring(discover.data.username)).."&newpass="..textutils.urlEncode(tostring(base.crypto.sha256(mp_pass)));
                        local req = http.post(discover.data.urls.user, query)
                        req = textutils.unserialize(req.readAll())
                        if req.status then
                            base.draw.textc(tostring(req.message), 18, false, "red", "white")
                            sleep(0.75)
                            base.draw.box(1, 51, 18, 1, " ", "white", "white")
                        else
                            base.draw.textc(tostring(req.error), 18, false, "red", "white")
                            sleep(1)
                            base.draw.box(1, 51, 18, 1, " ", "white", "white")
                        end
                    else
                        base.draw.textc("Please fill in your key and password", 18, false, "red", "white")
                        sleep(0.75)
                        base.draw.box(1, 51, 18, 1, " ", "white", "white")
                    end
                end
            end
        end
    else
        base.screen.colour("white")
        store.draw.menu("Modify Password | Request Key")

        base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
        base.draw.textl(" Request Key", 19, false, "orange", "grey")
        base.draw.textr("Enter Key ", 19, false, "cyan", "grey")

        local text = "To protect accounts, please fill out your username and password below, and then submit to request a key, the key will be sent to your registered email on your account. Once requested the key is valid once, allowing you to change any user details. After one use the key expires and becomes useless."
        for k,v in ipairs(base.data.wordwrap(text, 51)) do
            base.draw.texta(v, 2, k+3, false, "lightGrey", "white")
        end

        base.draw.box(8, 36, 14, 1, " ", "cyan", "cyan"); base.draw.box(8, 36, 17, 1, " ", "cyan", "cyan");
        base.draw.texta("Username", 8, 13, false, "lightGrey", "white"); base.draw.texta("Password", 8, 16, false, "lightGrey", "white");

        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Modify Password | Request Key")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Modify", args[3], args[4])
                elseif (args[3] >= 2 and args[3] <= 13) and (args[4] == 19) then
                    if mp_username and mp_password then
                        local query = "cmd=request_key&username="..textutils.urlEncode(tostring(mp_username)).."&password="..textutils.urlEncode(tostring(base.crypto.sha256(mp_password)))
                        local req = http.post(discover.data.urls.user, query)
                        req = textutils.unserialize(req.readAll())
                        if (req.status == true) then
                            base.draw.textc(tostring(req.message), 18, false, "red", "white")
                            sleep(0.75)
                            base.draw.box(1, 51, 18, 1, " ", "white", "white")
                        else
                            base.draw.textc(tostring(req.error), 18, false, "red", "white")
                            sleep(1)
                            base.draw.box(1, 51, 18, 1, " ", "white", "white")
                        end
                    else
                        base.draw.textc("Please fill in your username and password", 18, false, "red", "white")
                        sleep(0.75)
                        base.draw.box(1, 51, 18, 1, " ", "white", "white")
                    end
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 14) then
                    base.draw.box(8, 36, 14, 1, " ", "cyan", "cyan")
                    base.colour.set("white", "cyan")
                    term.setCursorPos(8, 14)
                    write(": ")
                    mp_username = tostring(base.io.limitRead(34))
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 17) then
                    base.draw.box(8, 36, 17, 1, " ", "cyan", "cyan")
                    base.colour.set("white", "cyan")
                    term.setCursorPos(8, 17)
                    write(": ")
                    mp_password = tostring(base.io.limitRead(34, "*"))
                elseif (args[3] >= 41 and args[3] <= 50) and (args[4] == 19) then
                    store.account.modifypass(1)
                end
            end
        end
    end
end

function store.account.update()
    if temp.edit_appid then
        upd_appid = temp.edit_appid
    end
    base.screen.colour("white")
    store.draw.menu("Update")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.textl(" Cancel", 19, false, "orange", "grey")
    base.draw.textr("Update ", 19, false, "cyan", "grey")

    local function exit()
        upd_stat = nil
        upd_path = nil
        upd_vers = nil
        upd_path_content = nil
        upd_appid = nil
        base.thread.remove("Update")
        if not base.thread.find("Account") then
            base.thread.create("Account", store.account.home)
        end
        base.thread.switch("Account")
    end
    local use_file = true
    local use_paste = false;
    local function input_type()
        if use_file then
            base.draw.box(8, 27, 15, 1, " ", "white", "white")
            base.draw.texta("File Path:", 8, 15, false, "lightGrey", "white")
            base.draw.box(8, 27, 16, 1, " ", "cyan", "cyan")
            base.draw.texta(" Toggle ", 36, 16, false, "white", "orange")
        elseif use_paste then
            base.draw.box(8, 27, 15, 1, " ", "white", "white")
            base.draw.texta("Pastebin ID:", 8, 15, false, "lightGrey", "white")
            base.draw.box(8, 27, 16, 1, " ", "cyan", "cyan")
            base.draw.texta(" Toggle ", 36, 16, false, "white", "orange")
        end
    end
    input_type()
    local function run()
        base.draw.textc("Please follow on-screen instructions!", 4, false, "cyan", "white")
        base.draw.texta("App ID:", 8, 6, false, "lightGrey", "white")
        if temp.edit_appid then
            base.draw.texta("> "..upd_appid, 8, 7, false, "red", "white")
        else
            base.draw.box(8, 36, 7, 1, " ", "cyan", "cyan")
        end
        base.draw.texta("Version:", 8, 9, false, "lightGrey", "white")
        base.draw.box(8, 36, 10, 1, " ", "cyan", "cyan")
        base.draw.texta("Status:", 8, 12, false, "lightGrey", "white")
        base.draw.box(8, 36, 13, 1, " ", "cyan", "cyan")
    end

    run()
    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Update")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Update", args[3], args[4])
            elseif (args[3] >= 36 and args[3] <= 43) and (args[4] == 16) then
                if use_file then
                    use_paste = true
                    use_file = false
                elseif use_paste then
                    use_file = true
                    use_paste = false
                end
                input_type()
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 7) then
                base.draw.box(1, 51, 7, 1, " ", "white", "white")
                base.draw.box(8, 36, 7, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 7)
                write(": ")
                upd_appid = tostring(base.io.limitRead(34))
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 10) then
                base.draw.box(1, 51, 10, 1, " ", "white", "white")
                base.draw.box(8, 36, 10, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 10)
                write(": ")
                upd_vers = tostring(read(_, discover.data.versions))
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 13) then
                base.draw.box(1, 51, 13, 1, " ", "white", "white")
                base.draw.box(8, 36, 13, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 13)
                write(": ")
                upd_stat = tostring(read(_, {"public", "private"}))
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 16) then
                base.draw.box(8, 27, 16, 1, " ", "white", "white")
                base.draw.box(8, 27, 16, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 16)
                write(": ")
                upd_path = tostring(read(_, discover.data.categories))
            elseif (args[3] >= 45 and args[3] <= 50) and (args[4] == 19) then
                if upd_appid and upd_vers and upd_stat and upd_path then
                    if use_paste then
                        shell.run("pastebin get " .. upd_path .. " .temp")
                        local d = fs.open(".temp", "r")
                        upd_path_content = d.readAll()
                        d.close()
                        fs.delete(".temp")
                    elseif use_file then
                        if not fs.exists(upd_path) then
                            base.draw.box(1, 51, 18, 1, " ", "white", "white")
                            base.draw.textc("No file found in the given path", 18, false, "red", "white")
                            sleep(0.8)
                            base.draw.box(1, 51, 18, 1, " ", "white", "white")
                            store.account.update()
                        end
                        local f = fs.open(upd_path, "r")
                        upd_path_content = f.readAll()
                        f.close()
                    end
                    local status = discover:store_update( upd_appid, upd_vers, upd_stat, upd_path_content )
                    if status then
                        base.gui.alert("App was updated!")
                        sleep(1)
                        base.gui.alert("Updating local app database...")
                        discover:store_init()
                        exit()
                    else
                        base.draw.box(1, 51, 18, 1, " ", "white", "white")
                        base.draw.textc(discover.data.errormsg, 18, false, "red", "white")
                        sleep(1.2)
                        base.draw.box(1, 51, 18, 1, " ", "white", "white")
                    end
                else
                    base.draw.box(1, 51, 18, 1, " ", "white", "white")
                    base.draw.textc("Please fill out all fields", 18, false, "red", "white")
                    sleep(0.8)
                    base.draw.box(1, 51, 18, 1, " ", "white", "white")
                end
            elseif (args[3] >= 2 and args[3] <= 7) and (args[4] == 19) then
                exit()
            end
        end
    end
end

function store.account.notifications()
    base.screen.colour("white")
    store.draw.menu("Notifications")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.textl(" " .. #discover.data.notifications .. " notification(s)", 19, false, "lightBlue", "grey")
    local scroll = 0

    local function run(scroll)
        if #discover.data.notifications > 0 then
            for i=1, 14 do
                if #discover.data.notifications >= i + scroll then
                    base.draw.box(1, 51, i+3, 1, " ", "white", "white")
                    base.draw.texta(i+scroll .. ":", 1, i+3, false, "grey", "white")
                    base.draw.texta(discover.data.notifications[i+scroll].message:sub(1,35), 5, i+3, false, "cyan", "white")
                    base.draw.texta("X", 50, i+3, false, "red", "white")
                else
                    break
                end
            end
        else
            base.draw.textc("You have no new notifications", 9, false, "red", "white")
        end
    end

    run(scroll)
    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Notifications")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Notifications", args[3], args[4])
            elseif (args[3] >= 1 and args[3] <= 48) and (args[4] >= 4 and args[4] <= 17) then
                local y = args[4]-3+scroll
                if #discover.data.notifications >= y then
                    store.account.view_notification(y)
                end
            elseif (args[3] == 50) then
                local y = args[4]-3+scroll
                if discover:delete_n(discover.data.notifications[y].id) then
                    base.gui.alert("Deleted notification!")
                    discover:view_n()
                    sleep(1)
                    store.account.notifications()
                else
                    base.gui.alert("Could not delete notification!")
                    discover:view_n()
                    sleep(1.5)
                    store.account.view_notification(id)
                end
            end
        elseif args[1] == "mouse_scroll" then
            if args[2] == -1 then
                if scroll > 0 then
                    scroll = scroll - 1
                    run(scroll)
                end
            elseif args[2] == 1 then
                if scroll + 14 < #discover.data.notifications then
                    scroll = scroll + 1
                    run(scroll)
                end
            end
        end
    end
end

function store.account.view_notification(id)
    base.screen.colour("white")
    store.draw.menu("View Notification")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.texta("Exit", 47, 19, false, "orange", "grey")
    base.draw.texta("Delete", 2, 19, false, "lightBlue", "grey")

    for k,v in ipairs(base.data.wordwrap(discover.data.notifications[id].message, 51)) do
        base.draw.texta(v, 1, k+3, false, "cyan", "white")
    end

    base.draw.textc("Time Stamp: " .. tostring(discover.data.notifications[id].ntime), 18, false, "lightGrey", "white")

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("View Notification")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("View Notification", args[3], args[4])
            elseif (args[3] >= 47 and args[3] <= 50) and (args[4] == 19) then
                store.account.notifications()
            elseif (args[3] >= 2 and args[3] <= 7) and (args[4] == 19) then
                if discover:delete_n(discover.data.notifications[id].id) then
                    base.gui.alert("Deleted notification!")
                    discover:view_n()
                    sleep(1)
                    store.account.notifications()
                else
                    base.gui.alert("Could not delete notification!")
                    discover:view_n()
                    sleep(1.5)
                    store.account.view_notification(id)
                end
            end
        end
    end
end

function store.account.edit()
    local appid = temp.edit_appid
    if not appid then
        base.gui.alert("No App ID Supplied")
        sleep(1.5)
        base.thread.remove("Edit")
        if not base.thread.find("Account") then
            base.thread.create("Account", store.account.home)
        end
        base.thread.switch("Account")
    end

    base.screen.colour("white")
    store.draw.menu("Edit")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.textl(" Cancel ", 19, false, "orange", "grey")
    base.draw.textr("Edit ", 19, false, "lightBlue", "grey")

    local function run(scroll)
        base.draw.texta("App ID:", 8, 4, false, "lightGrey", "white")
        base.draw.texta("> "..temp.edit_appid, 8, 5, false, "red", "white")

        base.draw.texta("Name:", 8, 7, false, "lightGrey", "white")
        base.draw.box(8, 36, 8, 1, " ", "cyan", "cyan")

        base.draw.texta("Description:", 8, 10, false, "lightGrey", "white")
        base.draw.box(8, 36, 11, 1, " ", "cyan", "cyan")

        base.draw.texta("Category:", 8, 13, false, "lightGrey", "white")
        base.draw.box(8, 36, 14, 1, " ", "cyan", "cyan")

        base.draw.texta("Status:", 8, 16, false, "lightGrey", "white")
        base.draw.box(8, 36, 17, 1, " ", "cyan", "cyan")
    end

    run(scroll)
    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Edit")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Edit", args[3], args[4])
            elseif (args[3] >= 2 and args[3] <= 7) and (args[4] == 19) then
                if not base.thread.find("MyApps") then
                    base.thread.create("MyApps", store.account.home)
                end
                base.thread.remove("Edit")
                base.thread.switch("MyApps")
            elseif (args[3] >= 47 and args[3] <= 50) and (args[4] == 19) then
                local status = discover:store_edit( appid, edit_name,edit_desc,edit_cate, edit_stat )
                if status then
                    base.gui.alert("Edited!")
                    sleep(0.5)
                    base.gui.alert("Updating local app database...")
                    discover:store_init()
                    if not base.thread.find("MyApps") then
                        base.thread.create("MyApps", store.account.home)
                    end
                    base.thread.remove("Edit")
                    base.thread.switch("MyApps")
                else
                    base.gui.alert(discover.data.errormsg)
                    sleep(1.2)
                    if not base.thread.find("MyApps") then
                        base.thread.create("MyApps", store.account.home)
                    end
                    base.thread.remove("Edit")
                    base.thread.switch("MyApps")
                end
            elseif (args[3] >= 8 and args[3] <= 47) and (args[4] == 8) then
                base.draw.box(8, 36, 8, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 8)
                write(": ")
                edit_name = tostring(base.io.limitRead(34))
            elseif (args[3] >= 8 and args[3] <= 47) and (args[4] == 11) then
                base.draw.box(8, 36, 11, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 11)
                write(": ")
                edit_desc = tostring(base.io.limitRead(34))
            elseif (args[3] >= 8 and args[3] <= 47) and (args[4] == 14) then
                base.draw.box(8, 36, 14, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 14)
                write(": ")
                edit_cate = tostring(read(_, discover.data.categories))
            elseif (args[3] >= 8 and args[3] <= 47) and (args[4] == 17) then
                base.draw.box(8, 36, 17, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 17)
                write(": ")
                edit_stat = tostring(read(_, {"public", "private"}))
            end
        end
    end
end

function store.account.stats()
    base.screen.colour("white")
    store.draw.menu("My Statistics")

    local function getstats()
        base.draw.textc("Processing...", 9, false, "grey", "white")
        sleep(0.5)
        stats_data = discover:get_stats()
        base.draw.box(1, 51, 9, 1, " ", "white", "white")
    end

    local function run()
        local text = "Here you can see your statistics for uploads, downloads on both apps, and snippets, we will soon implement a rating system, where higher rated users will go on the front page."
        for k,v in ipairs(base.data.wordwrap(text, 49)) do
            base.draw.texta(v, 2, k+3, false, "lightGrey", "white")
        end
        base.draw.texta("App Uploads: ", 2, 12, false, "grey", "white")
        base.draw.texta("Snippet Uploads: ", 2, 14, false, "grey", "white")
        base.draw.texta("Downloads (Apps): ", 2, 16, false, "grey", "white")
        base.draw.texta("Downloads (Snippets):", 2, 18, false, "grey", "white")
        base.draw.texta(stats_data.uploaded_apps, 25, 12, false, "cyan", "white")
        base.draw.texta(stats_data.uploaded_snips, 25, 14, false, "cyan", "white")
        base.draw.texta(stats_data.app_downloads, 25, 16, false, "cyan", "white")
        base.draw.texta(stats_data.snip_downloads, 25, 18, false, "cyan", "white")
    end

    getstats()
    run()

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("My Statistics")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Settings (System)", args[3], args[4])
            end
        end
    end
end

-- ######################### START SOCIAL CODE ###########################

function store.social.main()
    base.screen.colour("white")
    store.draw.menu("Social")

    for i=1, 20 do
        base.draw.box(i, 1, 3, 17, " ", "lightGrey", "lightGrey")
    end
    base.draw.box(2, 18, 5, 1, " ", "orange", "orange")
    base.draw.texta(" Mailbox", 2, 5, false, "white", "orange")
    base.draw.box(2, 18, 7, 1, " ", "orange", "orange")
    base.draw.texta(" News Feed", 2, 7, false, "white", "orange")
    --base.draw.box(2, 18, 9, 1, " ", "orange", "orange")
    --base.draw.texta(" Chats / Channels", 2, 9, false, "white", "orange")

    local text = "Welcome to Discover Social. A new social aspect to the Discover API, where you can interact with live chat, a new mail system, and even a news feed, where you can talk, post and just generally socialise. If you wish to work on new ideas, then please contact me by CCForums or other as we are recruiting developers at the moment to help create amazing things."
    for k,v in ipairs(base.data.wordwrap(text, 29)) do
        base.draw.texta(v, 22, k+3, false, "cyan", "white")
    end

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Social")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Social", args[3], args[4])
            elseif (args[3] >= 2 and args[3] <= 19) and (args[4] == 5) then
                if not base.thread.find("Mail") then
                    base.thread.create("Mail", store.social.mail)
                end
                base.thread.switch("Mail")
            elseif (args[3] >= 2 and args[3] <= 19) and (args[4] == 7) then
                if not base.thread.find("Feed") then
                    base.thread.create("Feed", store.social.feed)
                end
                base.thread.switch("Feed")
            elseif (args[3] >= 2 and args[3] <= 19) and (args[4] == 9) then
                -- if not base.thread.find("Chat") then
                --  base.thread.create("Chat", store.social.chat)
                -- end
                -- base.thread.switch("Chat")
            end
        end
    end
end

function store.social.mail(page, arg)
    if (page == "create") then
        base.screen.colour("white")
        store.draw.menu("Mail: Create")

        base.draw.texta("Recipient:", 8, 4, false, "lightGrey", "white")
        base.draw.texta("Subject:", 8, 7, false, "lightGrey", "white")
        base.draw.texta("Message:", 8, 10, false, "lightGrey", "white")
        base.draw.texta("Attachment:", 8, 13, false, "lightGrey", "white")
        base.draw.box(8, 36, 5, 1, " ", "cyan", "cyan")
        base.draw.box(8, 36, 8, 1, " ", "cyan", "cyan")
        base.draw.box(8, 36, 11, 1, " ", "cyan", "cyan")
        base.draw.box(8, 36, 14, 1, " ", "cyan", "cyan")

        base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
        base.draw.textl(" Cancel", 19, false, "orange", "grey")
        base.draw.textr("Send ", 19, false, "lightBlue", "grey")

        -- Add reply
        if arg then
            base.draw.box(8, 36, 5, 1, " ", "white", "white")
            base.draw.texta("> " .. arg, 8, 5, false, "red", "white")
            recipient = arg;
        end

        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Mail: Create")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Mail", args[3], args[4])
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 5) then
                    base.draw.box(8, 36, 5, 1, " ", "cyan", "cyan")
                    term.setCursorPos(8, 5)
                    base.colour.set("white", "cyan")
                    write(": ")
                    recipient = tostring(read())
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 8) then
                    base.draw.box(8, 36, 8, 1, " ", "cyan", "cyan")
                    term.setCursorPos(8, 8)
                    base.colour.set("white", "cyan")
                    write(": ")
                    subject = tostring(base.io.limitRead(34))
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 11) then
                    base.draw.box(8, 36, 11, 1, " ", "cyan", "cyan")
                    term.setCursorPos(8, 11)
                    base.colour.set("white", "cyan")
                    write(": ")
                    message = tostring(base.io.limitRead(34))
                elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 14) then
                    base.draw.box(8, 36, 14, 1, " ", "cyan", "cyan")
                    term.setCursorPos(8, 14)
                    base.colour.set("white", "cyan")
                    write(": ")
                    attachment = tostring(base.io.limitRead(34))
                elseif (args[3] >= 2 and args[3] <= 7) and (args[4] == 19) then
                    store.social.mail()
                elseif (args[3] >= 47 and args[3] <= 50) and (args[4] == 19) then
                    if recipient and subject and message then
                        if attachment then
                            if fs.exists(attachment) then
                                local f = fs.open(attachment, "r")
                                attachdata = f.readAll()
                                f.close()
                            else
                                base.draw.textc("Incorrect attachment path", 18, false, "red", "white")
                                sleep(0.5)
                                store.social.mail('create', arg)
                            end
                        end
                        if discover:mail_send(recipient, subject, message, attachdata) then
                            base.gui.alert("Mail was sent!")
                            sleep(0.5)
                            store.social.mail()
                        else
                            base.draw.textc(tostring(discover.data.errormsg), 18, false, "red", "white")
                            sleep(0.5)
                            base.draw.box(1, 51, 18, 1, " ", "white", "white")
                        end
                    else
                        base.draw.textc("Please fill in all fields", 18, false, "red", "white")
                        sleep(0.5)
                        base.draw.box(1, 51, 18, 1, " ", "white", "white")
                    end
                end
            end
        end
    elseif (page == "sent") then
        base.screen.colour("white")
        store.draw.menu("Mail: Sent")
        local page_num = 1

        base.draw.textc("Downloading mailbox, please wait", 10, false, "red", "white")
        if not discover:mail_get_own() then error("Could not download mailbox") end
        base.draw.box(1, 51, 10, 1, " ", "white", "white")

        local page_amount = math.ceil(#discover.data.mail / 3);

        for i=1, 12 do base.draw.box(i, 1, 3, 17, " ", "lightGrey", "lightGrey") end
        base.draw.box(2, 10, 5, 1, " ", "orange", "orange")
        base.draw.texta(" Inbox", 2, 5, false, "white", "orange")
        base.draw.box(2, 10, 7, 1, " ", "orange", "orange")
        base.draw.texta(" Create", 2, 7, false, "white", "orange")
        base.draw.box(2, 10, 9, 1, " ", "orange", "orange")
        base.draw.texta(" Sent", 2, 9, false, "white", "orange")
        base.draw.textl(" Page: " .. page_num .. "/" .. page_amount, 19, false, "white", "lightGrey")

        local function render()
            if #discover.data.mail > 0 then
                local pid = (page_num * 4) - 4;
                local pos = {4,8,12,16}
                for i=1, 4 do
                    if ((i+pid) <= #discover.data.mail) then
                        base.draw.box(13, 38, pos[i], 1, " ", "white", "white");
                        base.draw.box(13, 38, pos[i]+1, 1, " ", "white", "white");
                        base.draw.box(13, 38, pos[i]+2, 1, " ", "white", "white");
                        local a = tostring(discover.data.mail[i+pid]['sender']); local b = a:sub(1,1):upper(); local c = a:sub(2);
                        base.draw.texta(tostring(b .. "" .. c), 14, pos[i], false, "grey", "white")
                        base.draw.texta(tostring(discover.data.mail[i+pid]['subject']:sub(1,30)), 14, pos[i]+1, false, "cyan", "white")
                        base.draw.texta(tostring(discover.data.mail[i+pid]['sent_date']), 14, pos[i]+2, false, "lightGrey", "white")
                    else
                        base.draw.box(13, 38, pos[i], 1, " ", "white", "white");
                        base.draw.box(13, 38, pos[i]+1, 1, " ", "white", "white");
                        base.draw.box(13, 38, pos[i]+2, 1, " ", "white", "white");
                    end
                end
            else
                base.draw.texta("No mail to display", 23, 11, false, "red", "white")
            end
        end

        render()
        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Mail: Sent")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Mail", args[3], args[4])
                elseif (args[3] >= 1 and args[3] <= 12) and (args[4] >= 3 and args[4] <= 19) then
                    if (args[3] >= 2 and args[3] <= 11) and args[4] == 5 then
                        store.social.mail()
                    elseif (args[3] >= 2 and args[3] <= 11) and args[4] == 7 then
                        store.social.mail("create")
                    elseif (args[3] >= 2 and args[3] <= 11) and args[4] == 9 then
                        store.social.mail("sent")
                    end
                end
            elseif args[1] == "mouse_scroll" then
                if args[2] == -1 then
                    if page_num > 1 then
                        page_num = page_num - 1
                        render()
                        base.draw.textl(" Page: " .. page_num .. "/" .. page_amount, 19, false, "white", "lightGrey")
                    end
                elseif args[2] == 1 then
                    if page_num < page_amount then
                        page_num = page_num + 1
                        render()
                        base.draw.textl(" Page: " .. page_num .. "/" .. page_amount, 19, false, "white", "lightGrey")
                    end
                end
            end
        end
    elseif (page == "view" and arg) then
        base.screen.colour("white")
        store.draw.menu("Mail: View")

        -- Load data
        base.draw.textc("Loading...", 10, false, "red", "white");
        local mail_data = {}; for k, v in ipairs(discover.data.mail) do if v.id == arg then mail_data = v; break end end; sleep(0.15);

        -- Send read receipt
        local status = discover:mail_view(mail_data['id'])
        base.draw.box(1, 51, 10, 1, " ", "white", "white"); local tMessage = {}; local scroll = 0

        base.draw.box(1, 51, 19, 1, " ", "grey", "grey");
        base.draw.textl(" Back", 19, false, "orange", "grey")
        base.draw.textr("Reply ", 19, false, "cyan", "grey")
        base.draw.textc("Delete", 19, false, "red", "grey")

        local function render()
            base.draw.texta("--------------------< Message >--------------------", 1, 8, false, "lightGrey", "white")
            base.draw.texta("To:", 2, 4, false, "grey", "white")
            base.draw.texta(mail_data['recipient']:sub(1,22), 8, 4, false, "lightBlue", "white")
            base.draw.texta("From:", 26, 4, false, "grey", "white")
            base.draw.texta(mail_data['sender']:sub(1,22), 31, 4, false, "lightBlue", "white")
            base.draw.texta("Sent:", 2, 5, false, "grey", "white")
            base.draw.texta(mail_data['sent_date'], 8, 5, false, "lightBlue", "white")
            base.draw.texta("Subject: ", 2, 6, false, "grey", "white")
            base.draw.texta(mail_data['subject'], 11, 6, false, "lightBlue", "white")
            tMessage = base.data.wordwrap(mail_data['message'], 47);
        end

        local f = fs.open("out.lua", "w"); f.write(textutils.serialize(mail_data)); f.close()
        if mail_data['attachments']:len() > 5 then
            base.draw.textc("Download attachment", 18, false, "lightGrey", "white")
        end

        local function render_message()
            for i=1, 7 do
                if scroll + i <= #tMessage then
                    base.draw.box(1, 51, i+9, 1, " ", "white", "white")
                    base.draw.texta(tMessage[i+scroll], 3, i+9, false, "grey", "white")
                end
            end
        end

        render();
        render_message();
        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Mail: View")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Mail", args[3], args[4])
                elseif (args[3] >= 2 and args[3] <= 5) and args[4] == 19 then
                    store.social.mail()
                elseif (args[3] >= 46 and args[3] <= 50) and args[4] == 19 then
                    store.social.mail("create", mail_data['sender'])
                elseif (args[3] >= 22 and args[3] <= 28) and (args[4] == 19) then
                    base.gui.alert("Deleting...")
                    local status = discover:mail_delete(mail_data['id'])
                    if status then
                        base.gui.alert("Mail was deleted")
                        sleep(0.5)
                        store.social.mail()
                    else
                        base.gui.alert(tostring(discover.data.errormsg))
                        sleep(1)
                        store.social.mail()
                    end
                elseif (args[3] >= 12 and args[3] <= 42) and (args[4] == 18) then
                    if mail_data['attachments']:len() > 5 then
                        local data = base.base64.decode(mail_data['attachments']);
                        local f = fs.open(base.gui.input("Save as:"), "w");
                        f.write(data)
                        f.close()
                        store.social.mail('view', arg)
                    end
                elseif (args[3] >= 1 and args[3] <= 12) and (args[4] >= 3 and args[4] <= 19) then
                    if (args[3] >= 2 and args[3] <= 11) and args[4] == 5 then
                        store.social.mail()
                    elseif (args[3] >= 2 and args[3] <= 11) and args[4] == 7 then
                        store.social.mail("create")
                    elseif (args[3] >= 2 and args[3] <= 11) and args[4] == 9 then
                        store.social.mail("sent")
                    end
                end
            elseif args[1] == "mouse_scroll" then
                if args[2] == -1 then
                    if scroll > 0 then
                        scroll = scroll - 1
                        render_message()
                    end
                elseif args[2] == 1 then
                    if 7+scroll < #tMessage then
                        scroll = scroll + 1
                        render_message()
                    end
                end
            end
        end
    else
        base.screen.colour("white")
        store.draw.menu("Mail: Inbox")
        local page_num = 1

        base.draw.textc("Download mailbox, please wait", 10, false, "red", "white")
        if not discover:mail_get() then error("Could not download mailbox") end
        base.draw.box(1, 51, 10, 1, " ", "white", "white")

        local page_amount = math.ceil(#discover.data.mail / 3);

        for i=1, 12 do base.draw.box(i, 1, 3, 17, " ", "lightGrey", "lightGrey") end
        base.draw.box(2, 10, 5, 1, " ", "orange", "orange")
        base.draw.texta(" Inbox", 2, 5, false, "white", "orange")
        base.draw.box(2, 10, 7, 1, " ", "orange", "orange")
        base.draw.texta(" Create", 2, 7, false, "white", "orange")
        base.draw.box(2, 10, 9, 1, " ", "orange", "orange")
        base.draw.texta(" Sent", 2, 9, false, "white", "orange")
        local unread = 0; for k,v in ipairs(discover.data.mail) do if v.status == 'unread' then unread = unread + 1 end end;
        base.draw.textl(" Unread: " .. unread, 18, false, "white", "lightGrey")
        base.draw.textl(" Page: " .. page_num .. "/" .. page_amount, 19, false, "white", "lightGrey")

        local function render()
            if #discover.data.mail > 0 then
                local pid = (page_num * 4) - 4;
                local pos = {4,8,12,16}
                for i=1, 4 do
                    if ((i+pid) <= #discover.data.mail) then
                        base.draw.box(13, 39, pos[i], 1, " ", "white", "white");
                        base.draw.box(13, 39, pos[i]+1, 1, " ", "white", "white");
                        base.draw.box(13, 39, pos[i]+2, 1, " ", "white", "white");
                        local a = tostring(discover.data.mail[i+pid]['sender']); local b = a:sub(1,1):upper(); local c = a:sub(2);
                        if discover.data.mail[i+pid]['status'] == 'unread' then
                            base.draw.texta(tostring(b .. "" .. c), 14, pos[i], false, "grey", "white")
                            base.draw.texta(tostring(discover.data.mail[i+pid]['subject']:sub(1,30)), 14, pos[i]+1, false, "cyan", "white")
                            base.draw.texta(tostring(discover.data.mail[i+pid]['sent_date']), 14, pos[i]+2, false, "lightGrey", "white")
                            base.draw.box(51, 1, pos[i], 3, " ", "red", "red")
                        else
                            base.draw.texta(tostring(b .. "" .. c), 14, pos[i], false, "grey", "white")
                            base.draw.texta(tostring(discover.data.mail[i+pid]['subject']:sub(1,30)), 14, pos[i]+1, false, "cyan", "white")
                            base.draw.texta(tostring(discover.data.mail[i+pid]['sent_date']), 14, pos[i]+2, false, "lightGrey", "white")
                        end
                    else
                        base.draw.box(13, 39, pos[i], 1, " ", "white", "white");
                        base.draw.box(13, 39, pos[i]+1, 1, " ", "white", "white");
                        base.draw.box(13, 39, pos[i]+2, 1, " ", "white", "white");
                    end
                end
            else
                base.draw.texta("No mail to display", 23, 11, false, "red", "white")
            end
        end

        render()
        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Mail: Inbox")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Mail", args[3], args[4])
                elseif (args[3] >= 13 and args[3] <= 51) and (args[4] >= 3 and args[4] <= 19) then
                    if (args[4] >= 4 and args[4] <= 6) then
                        local nid = page_num * 4 - 4 + 1
                        if nid <= #discover.data.mail then
                            store.social.mail("view", discover.data.mail[nid]['id']);
                        end
                    elseif (args[4] >= 8 and args[4] <= 10) then
                        local nid = page_num * 4 - 4 + 2
                        if nid <= #discover.data.mail then
                            store.social.mail("view", discover.data.mail[nid]['id']);
                        end
                    elseif (args[4] >= 12 and args[4] <= 14) then
                        local nid = page_num * 4 - 4 + 3
                        if nid <= #discover.data.mail then
                            store.social.mail("view", discover.data.mail[nid]['id']);
                        end
                    elseif (args[4] >= 16 and args[4] <= 18) then
                        local nid = page_num * 4 - 4 + 4
                        if nid <= #discover.data.mail then
                            store.social.mail("view", discover.data.mail[nid]['id']);
                        end
                    end
                elseif (args[3] >= 1 and args[3] <= 12) and (args[4] >= 3 and args[4] <= 19) then
                    if (args[3] >= 2 and args[3] <= 11) and args[4] == 5 then
                        store.social.mail()
                    elseif (args[3] >= 2 and args[3] <= 11) and args[4] == 7 then
                        store.social.mail("create")
                    elseif (args[3] >= 2 and args[3] <= 11) and args[4] == 9 then
                        store.social.mail("sent")
                    end
                end
            elseif args[1] == "mouse_scroll" then
                if args[2] == -1 then
                    if page_num > 1 then
                        page_num = page_num - 1
                        render()
                        base.draw.textl(" Unread: " .. unread, 18, false, "white", "lightGrey")
                        base.draw.textl(" Page: " .. page_num .. "/" .. page_amount, 19, false, "white", "lightGrey")
                    end
                elseif args[2] == 1 then
                    if page_num < page_amount then
                        page_num = page_num + 1
                        render()
                        base.draw.textl(" Unread: " .. unread, 18, false, "white", "lightGrey")
                        base.draw.textl(" Page: " .. page_num .. "/" .. page_amount, 19, false, "white", "lightGrey")
                    end
                end
            end
        end
    end
end

function store.social.chat(page)
    base.screen.colour("white")
    store.draw.menu("Chat")

    for i=1, 12 do base.draw.box(i, 1, 3, 17, " ", "lightGrey", "lightGrey") end
    base.draw.box(2, 10, 5, 1, " ", "orange", "orange")
    base.draw.texta(" Global", 2, 5, false, "white", "orange")
    base.draw.box(2, 10, 7, 1, " ", "orange", "orange")
    base.draw.texta(" Channels", 2, 7, false, "white", "orange")
    base.draw.box(2, 10, 9, 1, " ", "orange", "orange")
    base.draw.texta(" Personal", 2, 9, false, "white", "orange")

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Chat")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Chat", args[3], args[4])
            end
        end
    end
end

function store.social.feed(page)
    base.screen.colour("white")
    store.draw.menu("Feed")
    local feed = {}; local scroll = 0;

    base.draw.textc("Downloading feed, please wait...", 10, false, "red", "white")
    local status = discover:feed_view()
    if not status then
        base.gui.alert("Could not download feed")
        sleep(1)
        base.thread.remove("Feed")
        base.thread.switch("Home")
    end
    base.draw.box(1, 51, 10, 1, " ", "white", "white")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.textl(" Create Post", 19, false, "lightBlue", "grey")
    base.draw.textr("Refresh ", 19, false, "lightBlue", "grey")

    local function parse()
        feed = {}; table.insert(feed, ":B:")
        for k,v in ipairs(discover.data.feed) do
            table.insert(feed, ":A:" .. v.author)
            for i, j in ipairs(base.data.wordwrap(v.message, 45)) do
                table.insert(feed, ":M:" .. j)
            end
            table.insert(feed, ":T:" .. v.sent_time)
            table.insert(feed, ":B:")
        end
    end
    local function render()
        for i=3, 18 do base.draw.box(1, 51, i, 1, " ", "white", "white") end
        base.draw.textc("No feed posts to show", 10, false, "red", "white")
        if #feed > 0 then
            for i=1, 14 do
                if i+scroll <= #feed then
                    base.draw.box(1, 51, i+3, 1, " ", "white","white")
                    if feed[i+scroll]:sub(1,3) == ":A:" then
                        base.draw.textl("  " .. feed[i+scroll]:sub(4), i+3, false, "red", "white")
                    elseif feed[i+scroll]:sub(1,3) == ":M:" then
                        base.draw.textl("   " .. feed[i+scroll]:sub(4), i+3, false, "cyan", "white")
                    elseif feed[i+scroll]:sub(1,3) == ":T:" then
                        base.draw.textr(feed[i+scroll]:sub(4) .. "  ", i+3, false, "orange", "white")
                    elseif feed[i+scroll]:sub(1,3) == ":B:" then
                        base.draw.textc("- - - - - - - - - - - - - - - - - - - - - - - -", i+3, false, "lightGrey", "white")
                    else
                        -- Leave space
                    end
                end
            end
        else
            for i=3, 18 do base.draw.box(1, 51, i, 1, " ", "white", "white") end
            base.draw.textc("No feed posts to show", 10, false, "red", "white")
        end
    end
    parse(); render();
    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Feed")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Feed", args[3], args[4])
            elseif (args[3] >= 2 and args[3] <= 12) and args[4] == 19 then
                local message = base.gui.input("What do you want to say?")
                local status = discover:feed_new(message)
                if not status then
                    base.gui.alert("Could not create new post")
                    sleep(1)
                    store.social.feed()
                end
                base.gui.alert("Submitted!"); sleep(0.5);
                base.gui.alert("Updating feed..."); sleep(0.5)
                local status = discover:feed_view()
                if not status then
                    base.gui.alert("Could not download feed")
                    sleep(1)
                    base.thread.remove("Feed")
                    base.thread.switch("Home")
                end
                parse(); render();
            elseif (args[3] >= 44 and args[3] <= 50) and args[4] == 19 then
                base.gui.alert("Downloading feed, please wait..."); sleep(0.5)
                local status = discover:feed_view()
                if not status then
                    base.gui.alert("Could not download feed")
                    sleep(1)
                    base.thread.remove("Feed")
                    base.thread.switch("Home")
                end
                parse(); render();
            end
        elseif args[1] == "mouse_scroll" then
            if args[2] == -1 then
                if scroll > 0 then
                    scroll = scroll - 1
                    render();
                end
            elseif args[2] == 1 then
                if (scroll + 14) < #feed then
                    scroll = scroll + 1
                    render();
                end
            end
        end
    end
end


-- ######################### START CLOUD CODE ###########################
function store.cloud.main()
    base.screen.colour("white")
    store.draw.menu("Cloud")
    local rscroll = 0
    local lscroll = 0
    local localfiles = {}
    local lfiles = fs.list("/")
    for _,v in ipairs(lfiles) do
        if not fs.isDir(v) then
            table.insert(localfiles, v)
        end
    end

    local fileoptions = {"Rename"}

    base.draw.textc("Listing your files, please wait...", 10, false, "red", "white")
    filelist = discover:cloud_get()
    if filelist then
        base.draw.box(1, 51, 10, 1, " ", "white", "white")
    else
        base.gui.alert(tostring(discover:get("errormsg")))
        sleep(1.5)
        base.thread.remove("Cloud")
        base.thread.switch("Home")
    end
    base.draw.box(26,1, 3, 17, " ", "grey", "grey")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.texta("- Local Files -", 5, 3, false, "lightGrey", "white")
    base.draw.texta("- Remote Files -", 32, 3, false, "lightGrey", "white")
    base.draw.textr("Scroll Enabled ", 19, false, "orange", "grey")

    local function runr(rscroll)
        if #filelist > 0 then
            for i=1, 14 do
                if #filelist >= i + rscroll then
                    base.draw.box(27, 24, i+4, 1, " ", "white", "white")
                    base.draw.texta(filelist[i+rscroll].filename:sub(1, 19), 28, i+4, false, "cyan", "white")
                    base.draw.texta("<", 48, i+4, false, "lightBlue", "white")
                    base.draw.texta("X", 50, i+4, false, "red", "white")
                else
                    break
                end
            end
        else
            base.draw.texta("No files to show", 31, 10, false, "red", "white")
        end
    end
    local function runl(lscroll)
        if #localfiles > 0 then
            for i=1, 14 do
                if #localfiles >= i + lscroll then
                    base.draw.box(2, 24, i+4, 1, " ", "white", "white")
                    base.draw.texta(localfiles[i+lscroll]:sub(1, 19), 2, i+4, false, "cyan", "white")
                    base.draw.texta(">", 22, i+4, false, "lightBlue", "white")
                    base.draw.texta("X", 24, i+4, false, "red", "white")
                else
                    break
                end
            end
        else
            base.draw.texta("No files to show", 2, 10, false, "red", "white")
        end
    end
    runr(rscroll)
    runl(lscroll)
    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Cloud")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Cloud", args[3], args[4])
            elseif (args[3] == 22) and (args[4] >= 4 and args[4] <= 17) then
                -- Push local file
                local curid = args[4] - 4 + lscroll
                if (curid > 0 and curid <= #localfiles) then
                    if fs.exists(localfiles[curid]) then
                        base.gui.alert("Converting file for upload, please wait");sleep(0.25)
                        local status = discover:cloud_upload(localfiles[curid])
                        if status then
                            base.gui.alert("File pushed to server!")
                            sleep(0.5)
                            store.cloud.main()
                        else
                            base.gui.alert("File could not be pushed!")
                            sleep(0.5)
                            store.cloud.main()
                        end
                    else
                        base.gui.alert("File doesn't exist!")
                        sleep(0.5)
                        store.cloud.main()
                    end
                end
            elseif (args[3] >= 1 and args[3] <= 22) and (args[4] >= 4 and args[4] <= 17) then
                -- Load options for local
                local curid = args[4] - 4 + lscroll
                if (curid > 0 and curid <= #localfiles) then
                    base.draw.texta(table.concat(fileoptions, " | "), 2, 19, false, "cyan", "grey")
                    local arg = { os.pullEvent("mouse_click") }
                    if (arg[3] >= 2 and arg[3] <= 7) and (arg[4] == 19) then
                        -- Rename
                        base.draw.box(8, 36, 9, 2, " ", "grey", "grey")
                        base.draw.box(10, 32, 10, 1, " ", "lightGrey", "lightGrey")
                        base.draw.textc("New File Name", 9, false, "white", "grey")
                        base.colour.set("black", "lightGrey")
                        term.setCursorPos(10, 10)
                        write(": ")
                        local newname = tostring(base.io.limitRead(30))
                        fs.move(localfiles[curid], newname)
                        base.gui.alert("File Renamed!")
                        sleep(0.5)
                        store.cloud.main()
                    else
                        base.draw.box(1, 30, 19, 1, " ", "grey", "grey")
                    end
                end
            elseif (args[3] >= 27 and args[3] <= 47) and (args[4] >= 4 and args[4] <= 17) then
                -- Load options for remote
                local curid = args[4] - 4 + rscroll
                if (curid > 0 and curid <= #filelist) then
                    base.draw.texta(table.concat(fileoptions, " | "), 2, 19, false, "cyan", "grey")
                    local arg = { os.pullEvent("mouse_click") }
                    if (arg[3] >= 2 and arg[3] <= 7) and (arg[4] == 19) then
                        -- Rename
                        base.draw.box(8, 36, 9, 2, " ", "grey", "grey")
                        base.draw.box(10, 32, 10, 1, " ", "lightGrey", "lightGrey")
                        base.draw.textc("New File Name", 9, false, "white", "grey")
                        base.colour.set("black", "lightGrey")
                        term.setCursorPos(10, 10)
                        write(": ")
                        local newname = tostring(base.io.limitRead(30))
                        local status = discover:cloud_rename(filelist[curid].id, newname)
                        if status then
                            base.gui.alert("File was renamed!")
                            sleep(0.5)
                            store.cloud.main()
                        else
                            base.gui.alert("File could not be renamed!")
                            sleep(0.5)
                            store.cloud.main()
                        end
                    else
                        base.draw.box(1, 30, 19, 1, " ", "grey", "grey")
                    end
                end
            elseif (args[3] == 24) and (args[4] >= 4 and args[4] <= 17) then
                -- Delete local file
                local curid = args[4] - 4 + lscroll
                if (curid > 0 and curid <= #localfiles) then
                    if fs.exists(localfiles[curid]) then
                        fs.delete(localfiles[curid])
                        base.gui.alert("File Deleted!")
                        sleep(0.5)
                        store.cloud.main()
                    else
                        base.gui.alert("File doesn't exist!")
                        sleep(0.5)
                        store.cloud.main()
                    end
                end
            elseif (args[3] == 48) and (args[4] >= 4 and args[4] <= 17) then
                -- Pull remote file
                local curid = args[4] - 4 + rscroll
                if (curid > 0 and curid <= #filelist) then
                    local f = fs.open(filelist[curid].filename, "w")
                    f.write(base.base64.decode(filelist[curid].filedata))
                    f.close()
                    base.gui.alert("File was pulled from server!")
                    sleep(0.5)
                    store.cloud.main()
                end
            elseif (args[3] == 50) and (args[4] >= 4 and args[4] <= 17) then
                -- Delete remote file
                local curid = args[4] - 4 + rscroll
                if (curid > 0 and curid <= #filelist) then
                    local status = discover:cloud_delete(filelist[curid].id)
                    if status then
                        base.gui.alert("File was deleted!")
                        sleep(0.5)
                        store.cloud.main()
                    else
                        base.gui.alert("File could not be deleted!")
                        sleep(0.5)
                        store.cloud.main()
                    end
                end
            end
        elseif args[1] == "mouse_scroll" then
            if (args[3] >= 1 and args[3] <= 25) and (args[4] >= 4 and args[4] <= 17) then
                if args[2] == -1 then
                    if lscroll > 0 then
                        lscroll = lscroll - 1
                        runl(lscroll)
                    end
                elseif args[2] == 1 then
                    if lscroll + 13 < #localfiles then
                        lscroll = lscroll + 1
                        runl(lscroll)
                    end
                end
            elseif (args[3] >= 27 and args[3] <= 51) and (args[4] >= 4 and args[4] <= 17) then
                if args[2] == -1 then
                    if rscroll > 0 then
                        rscroll = rscroll - 1
                        runr(rscroll)
                    end
                elseif args[2] == 1 then
                    if rscroll + 13 < #filelist then
                        rscroll = rscroll + 1
                        runr(rscroll)
                    end
                end
            end
        end
    end
end

-- ######################### START SNIPPET CODE ###########################
function store.snippets.main()
    base.screen.colour("white")
    store.draw.menu("Snippets")

    for i=1, 22 do
        base.draw.box(i, 1, 3, 17, " ", "lightGrey", "lightGrey")
    end
    local pos = {4,6,8,10,12,14,16,18}
    local menu = {"View all snippets", "Upload new snippet", "View my snippets"}
    for k,v in ipairs(menu) do
        base.draw.box(2, 20, pos[k], 1, " ", "orange", "orange")
        base.draw.texta(v, 3, pos[k], false, "white", "orange")
    end

    local text = "The snippet server allows you to store snippets of code as a separate file which can be downloaded, edited, shared, and added as dependencies to programs using the Discover Dependencies Manager (DDM), which is a work in progress, but works very well."
    for k,v in ipairs(base.data.wordwrap(text, 27)) do
        base.draw.texta(v, 24, k+3, false, "lightGrey", "white")
    end

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Snippets")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Snippets", args[3], args[4])
            elseif (args[3] >= 2 and args[3] <= 21) and (args[4] == 4) then
                store.snippets.view()
            elseif (args[3] >= 2 and args[3] <= 21) and (args[4] == 6) then
                store.snippets.upload()
            elseif (args[3] >= 2 and args[3] <= 21) and (args[4] == 8) then
                store.snippets.user()
            end
        end
    end
end

function store.snippets.view()
    base.screen.colour("white")
    store.draw.menu("Snippets (View)")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.textr("Back ", 19, false, "orange", "grey")
    local scroll = 0

    local stat = discover:snippets_list()
    if not stat then
        base.draw.textc("Could not download snippets listing", 10, false, "red", "white")
        sleep(2.5)
        base.thread.remove("Snippets")
        base.thread.switch("Home")
    end
    base.draw.texta("Total: "..#discover.data.snippets, 2, 19, false, "lightBlue", "grey")

    local function fix(num)
        if tostring(num):len() == 1 then
            return "  "..tostring(num)
        elseif tostring(num):len() == 2 then
            return " "..tostring(num)
        else
            return tostring(num)
        end
    end

    local function run(scroll)
        if #discover.data.snippets > 0 then
            for i = 1, 14 do
                if #discover.data.snippets >= i + scroll then
                    base.draw.box(1, 51, i+3, 1, " ", "white", "white")
                    base.draw.textl(fix(i+scroll)..": "..discover.data.snippets[i+scroll].name, i+3, false, "grey", "white")
                end
            end
        else
            base.draw.textc("There are no snippets to display", 10, false, "red", "white")
        end
    end

    run(scroll)

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Snippets (View)")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Snippets (View)", args[3], args[4])
            elseif (args[3] >= 47 and args[3] <= 51) and (args[4] == 19) then
                store.snippets.main()
            elseif (args[3] >= 1 and args[3] <= 51) and (args[4] >= 4 and args[4] <= 17) then
                local curid = args[4] - 3 + scroll
                if #discover.data.snippets >= curid then
                    store.snippets.view_snip(discover.data.snippets[curid])
                    store.snippets.view()
                end
            end
        elseif args[1] == "mouse_scroll" then
            if args[2] == -1 then
                if scroll > 0 then
                    scroll = scroll - 1
                    run(scroll)
                end
            elseif args[2] == 1 then
                if scroll + 14 <= #discover.data.snippets-1 then
                    scroll = scroll + 1
                    run(scroll)
                end
            end
        end
    end
end

function store.snippets.view_snip(snippet_data)
    base.screen.colour("white")
    store.draw.menu("Snippets (View Snippet)")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.textr("Back ", 19, false, "orange", "grey")

    base.draw.texta("Name (ID):", 1, 4, false, "lightGrey", "white")
    base.draw.texta("Version:", 1, 5, false, "lightGrey", "white")
    base.draw.texta("Creator:", 1, 6, false, "lightGrey", "white")
    base.draw.texta("Index / Status:", 1, 7, false, "lightGrey", "white")
    base.draw.textl(" Downloads: "..tostring(snippet_data.downloads), 19, false, "lightBlue", "grey")
    base.draw.texta("Description:", 1, 9, false, "lightGrey", "white")
    base.draw.texta(tostring(snippet_data.name).." ("..tostring(snippet_data.id)..")", 17, 4, false, "cyan", "white")
    base.draw.texta(tostring(snippet_data.version), 17, 5, false, "cyan", "white")
    base.draw.texta(tostring(snippet_data.creator), 17, 6, false, "cyan", "white")
    base.draw.texta(tostring(snippet_data.index).." / "..tostring(snippet_data.status), 17, 7, false, "cyan", "white")

    for k,v in ipairs(base.data.wordwrap(snippet_data.description, 51)) do
        base.draw.textl(v, k+10, false, "grey", "white")
    end

    base.draw.texta(" Download ", 41, 5, false, "white", "cyan")
    base.draw.texta(" Snippet! ", 41, 6, false, "white", "cyan")

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Snippets (View Snippet)")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Snippets (View)", args[3], args[4])
            elseif (args[3] >= 47 and args[3] <= 50) and (args[4] == 19) then
                break
            elseif (args[3] >= 41 and args[3] <= 50) and (args[4] >= 5 and args[4] <= 6) then
                for i=7, 14 do
                    base.draw.box(8, 35, i, 1, " ", "white", "white")
                end
                base.draw.box(8, 35, 7, 6, " ", "grey", "grey")
                base.colour.set("lightGrey", "white")
                term.setCursorPos(9, 8)
                write(":: Path/Name: ")
                local name = tostring(base.io.limitRead(34))
                base.draw.texta(":: Requesting file", 9, 9, false, "lightGrey", "white")
                sleep(0.5)
                local data = discover:snippets_download(snippet_data.id)
                base.draw.texta(":: File received", 9, 10, false, "lightGrey", "white")
                base.draw.texta(":: Saving to file", 9, 11, false, "lightGrey", "white")
                local f = fs.open(name, "w")
                f.write(data)
                f.close()
                sleep(1)
                store.snippets.view_snip(snippet_data)
            end
        end
    end
end

function store.snippets.upload()
    base.screen.colour("white")
    store.draw.menu("Snippets (Upload)")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.textr("Back ", 19, false, "orange", "grey")
    base.draw.textl(" Upload", 19, false, "lightBlue", "grey")

    base.draw.texta("Name:", 8, 4, false, "lightGrey", "white")
    base.draw.box(8, 36, 5, 1, " ", "cyan", "cyan")
    base.draw.texta("Description:", 8, 7, false, "lightGrey", "white")
    base.draw.box(8, 36, 8, 1, " ", "cyan", "cyan")
    base.draw.texta("Version:", 8, 10, false, "lightGrey", "white")
    base.draw.box(8, 36, 11, 1, " ", "cyan", "cyan")
    base.draw.texta("Status:", 8, 13, false, "lightGrey", "white")
    base.draw.box(8, 36, 14, 1, " ", "cyan", "cyan")
    base.draw.texta("Path:", 8, 16, false, "lightGrey", "white")
    base.draw.box(8, 36, 17, 1, " ", "cyan", "cyan")

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Snippets (Upload)")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Snippets (Upload)", args[3], args[4])
            elseif (args[3] >= 47 and args[3] <= 50) and (args[4] == 19) then
                store.snippets.main()
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 5) then
                base.draw.box(8, 36, 5, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 5)
                write(": ")
                name = tostring(base.io.limitRead(34))
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 8) then
                base.draw.box(8, 36, 8, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 8)
                write(": ")
                desc = tostring(base.io.limitRead(34))
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 11) then
                base.draw.box(8, 36, 11, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 11)
                write(": ")
                vers = tostring(base.io.limitRead(34))
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 14) then
                base.draw.box(8, 36, 14, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 14)
                write(": ")
                stat = tostring(base.io.limitRead(34))
            elseif (args[3] >= 8 and args[3] <= 43) and (args[4] == 17) then
                base.draw.box(8, 36, 17, 1, " ", "cyan", "cyan")
                base.colour.set("white", "cyan")
                term.setCursorPos(8, 17)
                write(": ")
                path = tostring(base.io.limitRead(34))
            elseif (args[3] >= 2 and args[3] <= 7) and (args[4] == 19) then
                if name and desc and vers and stat and path then
                    if fs.exists(path) then
                        local stat = discover:snippets_upload(name, desc, vers, stat, path)
                        if stat then
                            base.gui.alert("Snippet upload was successful!")
                            sleep(0.5)
                            base.gui.alert("Updating local snippet database...")
                            discover:store_init()
                            store.snippets.main()
                        else
                            base.gui.alert("Error: "..tostring(discover.data.errormsg))
                            sleep(2)
                            store.snippets.main()
                        end
                    else
                        base.draw.textc("File does not exist at path", 18, false, "red", "white")
                        sleep(1)
                        base.draw.box(1, 51, 18, 1, " ", "white", "white")
                    end
                else
                    base.draw.textc("Please fill out all fields", 18, false, "red", "white")
                    sleep(1)
                    base.draw.box(1, 51, 18, 1, " ", "white", "white")
                end
            end
        end
    end
end

function store.snippets.user()
    base.screen.colour("white")
    store.draw.menu("Snippets (User)")
    base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    base.draw.textr("Back ", 19, false, "orange", "grey")
    local scroll = 0

    local stat = discover:snippets_list_user()
    if not stat then
        base.draw.textc("Could not download snippets listing", 10, false, "red", "white")
        base.draw.textc(discover.data.errormsg, 11, false, "lightGrey", "white")
        sleep(2.5)
        base.thread.remove("Snippets")
        base.thread.switch("Home")
    end
    base.draw.texta("Total: "..#discover.data.snippets_user, 2, 19, false, "lightBlue", "grey")

    local function fix(num)
        if tostring(num):len() == 1 then
            return "  "..tostring(num)
        elseif tostring(num):len() == 2 then
            return " "..tostring(num)
        else
            return tostring(num)
        end
    end

    local function run(scroll)
        if #discover.data.snippets_user > 0 then
            for i = 1, 14 do
                if #discover.data.snippets_user >= i + scroll then
                    base.draw.box(1, 51, i+3, 1, " ", "white", "white")
                    -- base.draw.texta("Edit", 45, i+3, false, "cyan", "white")
                    base.draw.texta("X", 50, i+3, false, "red", "white")
                    base.draw.textl(fix(i+scroll)..": "..discover.data.snippets_user[i+scroll].name, i+3, false, "grey", "white")
                end
            end
        else
            base.draw.textc("There are no snippets to display", 10, false, "red", "white")
        end
    end

    run(scroll)

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Snippets (User)")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Snippets (User)", args[3], args[4])
            elseif (args[3] >= 47 and args[3] <= 51) and (args[4] == 19) then
                store.snippets.main()
            elseif (args[3] >= 1 and args[3] <= 43) and (args[4] >= 4 and args[4] <= 17) then
                local curid = args[4] - 3 + scroll
                if #discover.data.snippets_user >= curid then
                    -- View
                    store.snippets.view_snip(discover.data.snippets_user[curid])
                    store.snippets.user()
                end
            -- elseif (args[3] >= 45 and args[3] <= 48) and (args[4] >= 4 and args[4] <= 17) then
            --  local curid = args[4] - 3 + scroll
            --  if #discover.data.snippets_user >= curid then
            --      -- Edit
            --      store.snippets.edit(discover.data.snippets_user[curid])
            --      store.snippets.user()
            --  end
            elseif (args[3] == 50) and (args[4] >= 4 and args[4] <= 17) then
                local curid = args[4] - 3 + scroll
                if #discover.data.snippets_user >= curid then
                    -- Delete
                    local stat = discover:snippets_delete(discover.data.snippets_user[curid].id)
                    if stat then
                        base.gui.alert("Snippet deleted!")
                        sleep(1)
                        base.gui.alert("Updating local app database...")
                        discover:store_init()
                        store.snippets.user()
                    else
                        base.gui.alert("Snippet was unable to be deleted!")
                        sleep(1)
                        base.gui.alert(discover.data.errormsg)
                        sleep(1.5)
                        store.snippets.user()
                    end
                end
            end
        elseif args[1] == "mouse_scroll" then
            if args[2] == -1 then
                if scroll > 0 then
                    scroll = scroll - 1
                    run(scroll)
                end
            elseif args[2] == 1 then
                if scroll + 14 <= #discover.data.snippets_user-1 then
                    scroll = scroll + 1
                    run(scroll)
                end
            end
        end
    end
end

function store.settings(screen)
    local function clears()
        for i=1, 51 do
            if i >= 1 and i <= 20 then
                base.draw.box(i, 1, 3, 17, " ", "lightGrey", "lightGrey")
            end
            if i>= 21 and i <= 51 then
                base.draw.box(i, 1, 3, 17, " ", "white", "white")
            end
        end
        base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
    end

    if not screen then
        screen = ""
    end

    local function draw_menu()
        base.draw.box(2, 18, 4, 1, " ", "orange", "orange")
        base.draw.box(2, 18, 6, 1, " ", "orange", "orange")
        base.draw.box(2, 18, 8, 1, " ", "orange", "orange")
        base.draw.box(2, 18, 10, 1, " ", "orange", "orange")
        base.draw.texta("Main Menu", 3, 4, false, "white", "orange")
        base.draw.texta("System Settings", 3, 6, false, "white", "orange")
        base.draw.texta("Discover Details", 3, 8, false, "white", "orange")
        base.draw.texta("Code Snippets", 3, 10, false, "white", "orange")
        if screen == "System" then
            base.draw.box(2, 18, 6, 1, " ", "red", "red")
            base.draw.texta("System Settings", 3, 6, false, "white", "red")
        elseif screen == "Details" then
            base.draw.box(2, 18, 8, 1, " ", "red", "red")
            base.draw.texta("Discover Details", 3, 8, false, "white", "red")
        elseif screen == "CodeSnippets" then
            base.draw.box(2, 18, 10, 1, " ", "red", "red")
            base.draw.texta("Code Snippets", 3, 10, false, "white", "red")
        else
            base.draw.box(2, 18, 4, 1, " ", "red", "red")
            base.draw.texta("Main Menu", 3, 4, false, "white", "red")
        end
    end

    if screen == "System" then
        -- System
        local scroll = 0

        clears()
        store.draw.menu("Settings (System)")

        base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
        base.draw.textr("Scroll Enabled ", 19, false, "orange", "grey")

        local function run(scroll)
            base.draw.textr("----------------------------- ", 4, false, "lightGrey", "white")
            base.draw.texta("Toggle config storage:", 22, 5, false, "grey", "white")
            base.draw.box(22, 29, 7, 1, " ", "white", "white")
            base.draw.texta("Status:", 22, 7, false, "grey", "white")
            if system.storeconfig then
                base.draw.texta("Enabled", 30, 7, false, "cyan", "white")
                new = {}
                new.username = discover.data.username
                new.password = discover.data.password
                new.storeconfig = system.storeconfig
                new.plugins = system.plugins
                new.authkey = discover.data.authkey
                dat = textutils.serialize(new)
                local f = fs.open(system.paths.config, "w")
                f.write(base.base64.encode(dat))
                f.close()
            else
                base.draw.texta("Disabled", 30, 7, false, "red", "white")
                fs.delete(system.paths.config)
            end
            base.draw.textr("----------------------------- ", 8, false, "lightGrey", "white")
            base.draw.texta("Toggle plugins:", 22, 9, false, "grey", "white")
            base.draw.box(22, 29, 11, 1, " ", "white", "white")
            base.draw.texta("Status:", 22, 11, false, "grey", "white")
            if system.plugins then
                base.draw.texta("Enabled", 30, 11, false, "cyan", "white")
            else
                base.draw.texta("Disabled", 30, 11, false, "red", "white")
            end
            base.draw.textr("----------------------------- ", 12, false, "lightGrey", "white")
            base.draw.texta("Toggle program lock:", 22, 13, false, "grey", "white")
            base.draw.box(22, 29, 15, 1, " ", "white", "white")
            base.draw.texta("Status:", 22, 15, false, "grey", "white")
            if system.lock_program then
                base.draw.texta("Enabled", 30, 15, false, "cyan", "white")
            else
                base.draw.texta("Disabled", 30, 15, false, "red", "white")
            end
            base.draw.textr("----------------------------- ", 16, false, "lightGrey", "white")
            base.draw.texta(" T ", 48, 6, false, "white", "orange")
            base.draw.texta(" T ", 48, 10, false, "white", "orange")
            base.draw.texta(" T ", 48, 14, false, "white", "orange")
        end

        draw_menu()
        run(scroll)
        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Settings (System)")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Settings (System)", args[3], args[4])
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 4 then
                    store.settings()
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 6 then
                    store.settings("System")
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 8 then
                    store.settings("Details")
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 10 then
                    store.settings("CodeSnippets")
                elseif (args[3] >= 48 and args[3] <= 50) and (args[4] == 6) then
                    if system.storeconfig then
                        system.storeconfig = false
                        if fs.exists(system.paths.config) then
                            fs.delete(system.paths.config)
                        end
                    else
                        system.storeconfig = true
                    end
                    run(scroll)
                elseif (args[3] >= 48 and args[3] <= 50) and (args[4] == 10) then
                    if system.plugins then
                        system.plugins = false
                    else
                        system.plugins = true
                    end
                    run(scroll)
                elseif (args[3] >= 48 and args[3] <= 50) and (args[4] == 14) then
                    if system.lock_program then
                        system.lock_program = false
                    else
                        system.lock_program = true
                    end
                    run(scroll)
                end
            end
        end
    elseif screen == "Details" then
        -- Details
        local scroll = 0

        clears()
        store.draw.menu("Settings (Discover Details)")

        base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
        base.draw.textr("Scroll Enabled ", 19, false, "orange", "grey")

        local function run(scroll)
            base.draw.textr("----------------------------- ", 4, false, "lightGrey", "white")
            base.draw.texta("Discover API Version:", 22, 5, false, "grey", "white")
            base.draw.texta(tostring(discover:get("version_api")), 22, 7, false, "cyan", "white")
            base.draw.textr("----------------------------- ", 8, false, "lightGrey", "white")
            base.draw.texta("Discover System Version:", 22, 9, false, "grey", "white")
            base.draw.texta(tostring(discover:get("version")), 22, 11, false, "cyan", "white")
            base.draw.textr("----------------------------- ", 12, false, "lightGrey", "white")
        end

        draw_menu()
        run(scroll)
        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Settings (Discover Details)")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Settings (Menu)", args[3], args[4])
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 4 then
                    store.settings()
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 6 then
                    store.settings("System")
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 8 then
                    store.settings("Details")
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 10 then
                    store.settings("CodeSnippets")
                end
            end
        end
    elseif screen == "CodeSnippets" then
        -- Details
        local scroll = 0

        clears()
        store.draw.menu("Settings (Code Snippets)")

        base.draw.box(1, 51, 19, 1, " ", "grey", "grey")

        local tData = {
            "---";
            "";
            "#Store Require Script";
            "Allows you to require apps";
            "into your code";
            "";
            "---";
        }

        local function run(scroll)
            for i=1, 14 do
                if #tData >= i + scroll then
                    base.draw.box(22, 30, i+3, 1, " ", "white", "white")
                    if tData[i+scroll]:sub(1,1) == "-" then
                        base.draw.texta("-----------------------", 22, i+3, false, "lightGrey", "white")
                    elseif tData[i+scroll]:sub(1,1) == "#" then
                        base.draw.texta(tData[i+scroll]:sub(2), 22, i+3, false, "grey", "white")
                    else
                        base.draw.texta(tData[i+scroll], 22, i+3, false, "cyan", "white")
                    end
                end
            end
        end

        draw_menu()
        run(scroll)
        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Settings (Code Snippets)")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Settings (Code Snippets)", args[3], args[4])
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 4 then
                    store.settings()
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 6 then
                    store.settings("System")
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 8 then
                    store.settings("Details")
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 10 then
                    store.settings("CodeSnippets")
                elseif (args[3] >= 21 and args[3] <= 51) and (args[4] >= 4 and args[4] <= 18) then
                    -- Run Function Downloads

                end
            elseif args[1] == "mouse_scroll" then
                if args[2] == -1 then
                    if scroll > 0 then
                        scroll = scroll - 1
                        run(scroll)
                    end
                elseif args[2] == 1 then
                    if scroll + 14 < #tData then
                        scroll = scroll + 1
                        run(scroll)
                    end
                end
            end
        end
    else
        -- Home
        base.screen.colour("white")
        local scroll = 0
        store.draw.menu("Settings (Menu)")

        clears()

        base.draw.textr("Scroll Enabled ", 19, false, "orange", "grey")

        local function run(scoll)
            local text = "This is the settings menu, please choose a sub-category to see the available options. Some options are for use on servers and for custom App Stores, please see Discover API: Store Documentation for more information. The options are on the left side (orange buttons), and please note that the right side of the screen (in white) is scrollable."
            tText = base.data.wordwrap(text, 29)

            for i=1, 14 do
                if #tText >= i + scroll then
                    base.draw.box(21, 30, i+3, 1, " ", "white", "white")
                    base.draw.texta(tText[i+scroll], 22, i+3, false, "grey", "white")
                end
            end
        end

        draw_menu()
        run(scroll)
        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Settings (Menu)")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Settings (Menu)", args[3], args[4])
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 4 then
                    store.settings()
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 6 then
                    store.settings("System")
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 8 then
                    store.settings("Details")
                elseif (args[3] >= 2 and args[3] <= 18) and args[4] == 10 then
                    store.settings("CodeSnippets")
                end
            elseif args[1] == "mouse_scroll" then
                if args[2] == -1 then
                    if scroll > 0 then
                        scroll = scroll - 1
                        run(scroll)
                    end
                elseif args[2] == 1 then
                    if scroll + 14 < #tText then
                        scroll = scroll + 1
                        run(scroll)
                    end
                end
            end
        end
    end
end

function store.help(name)
    tData = {
        {
            ["name"] = "How to use the App Store";
            ["content"] = "Using the App Store is super simple. The Store uses a multitasking system with a task bar in the header, so you can have 20 screens open, and use the arrow buttons to switch between the task list, and click what you need. All tasks can be closed with the little \"x\" on the left of them. Most things you need are on the home screen, so if you need to upload an app, then you can simply click the button, a new thread will open with the content and you can switch back and forth with ease and no problems. Editing apps and updating apps is done in your \"My Account\" as this will display your apps and your details, all apps will have buttons by the side of their name (if you have permissions) to edit them. Statistics are simply a list of your downloads, comments and your best submitted apps.";
        };
        {
            ["name"] = "Snippets Section";
            ["content"] = "One of the requested features I have seen a lot is a way of being able to add snippets to the store, so I have added this feature, snippets can be public or private to just you, each snippet will get a generated id, this id can be used to download the snippet via the store or via the stores new command line tool. Each snippet has a set limit of up to 4000 lines, or around 250,000 characters. This of course is to make sure it is a snippet! Not an App, apps must be uploaded via the apps, and snippets are for simple code sections you wish to use. Snippets can also be included in code using a small script which can be downloaded from the settings menu.";
        };
        {
            ["name"] = "Discover Cloud";
            ["content"] = "Think of the cloud as repository of files, where you can upload/download files whenever you want, the idea is that all files are stored for you to retrieve on another computer or something else, we are in the middle of creating a new App Store Website, which will have online editors that are linked to the DiscoverCloud. The DiscoverCloud will be internal the the Store until I have ironed out the bugs and made some more awesome functions, the standalone program will come later on and will be a modified shell extension, allowing you to view remote files as if they are on your computer. You aren't limited on what you can save, there are many more addons to add to the cloud but for now, this will be in Alpha until I have finished the new features to give it, the cloud will be the main focal point of the App Store's 5.x updates, as this is something that I can think would be useful to many people.";
        };
        {
            ["name"] = "Discover Social";
            ["content"] = "What is Discover Social you ask? Well I made an API called SocialNet once but because of it having many bugs and no official client, I thought maybe it would be cooler to actually make a much more advanced API with a nice interface to use for the Store. Therefore I thought about making the social aspect to Discover. Now Discover will have a better client which will later work with the Discover Social API. But until then I thought I would add it to this program instead. I know a lot of people have wanted this kind of functionality and it does add tons of awesome and powerful ideas. I am currently recruiting for developers that can help me build a lot of these ideas so if you are interested please send me a message!";
        };
        {
            ["name"] = "How to use: Discover Cloud";
            ["content"] = "Usage of the cloud is simple, currently there are only two features it has, and as I work on it more in the next month, I plan to have it very extensive and powerful. The current features, are uploading, and deleting. When you run the Discover Cloud, it will popup with two sides of the screen, the left (Local files) and the right (Remote files), to upload a file from your local files, go to the left side (local files), choose the file you want to upload, and then press the arrow \">\" and this will push the file to the server, and then refresh the page, it also comes with a delete function for local files, so click the \"X\" will delete the local file, with the remote files to delete use the \"X\" and to download the file use the \"<\" button, which will pull it from the server, please note all file transfers are done as copies to make sure you don't upload it by mistake and vice versa.";
        };
        {
            ["name"] = "Discover API System";
            ["content"] = "Discover API System is the newest design I have made which combines a more secure approach at using the database, this is because the old API is going down due to it being abused so now this new version supports rate limiting, so you can not send a certain amount of requests in a time limit, you follow auth keys which expire and make it even more secure. You can learn to use it by going here: \"http://discover.dannysmc.com/\", thanks for reading.";
        };
        {
            ["name"] = "Notifications";
            ["content"] = "Simply put, a notification will be something that can tell you something, so say someone commented on your app, then once this occurs this will be added to your notifications tray, allowing you to read through them. If you wish to remove a notification you can just click on the little \"x\" on the side of the notification, or click the notification for more information. You can also have email notifications which is an opt-in feature.";
        };
        {
            ["name"] = "Mailbox";
            ["content"] = "The mailbox is a new aspect introduced that allows you to send and receive mail between users that are part of the Discover API Network. From now we have over 500 users registered, meaning you can talk to other players and send them information as well as send them files. To use the mailbox go to: Social Network -> Mailbox, here you will be presented with some simple options. Inbox is loaded first of all, but in essence it is just your current inbox, any items that are unread will have a sidebar to the right of the mail that is coloured red, to read an email just click it. Once inside the email you can see all the details plus the message field is scrollable. You will have 3 options at the bottom, back goes back to your inbox, delete will delete the mail and return to your inbox and reply will auto fill the user for you and then send you to the create screen. Email creation (Create): here you will have 4 fields, Recipient, this is who you are sending the mail to, remember this is just the username, I thought it was silly to add full addresses but I may be opening up a larger network for all users to access meaning there will be an API that connects with other mail networks from other users, but I have not finalised this. The subject is of course the subject of the email, message is the full message you want to send. Once they are all filled out you can send an email with the send button or cancel with the cancel button. There is a field for attachments, this is to allow you to send a file to another user, you can use Creator's Compress program to compress and archive lots of files as it only supports single attachments at the moment. The sent option just shows you the sent emails you have done, these are not deletable just yet, but I shall be adding that feature in the next update. The actual inbox screen IS scrollable using pages so each scroll will take you to a new page. Page listings are showed in the bottom left corner as well as a count of how many unread messages you have.";
        };
        {
            ["name"] = "News Feed";
            ["content"] = "News feed is just another way to post status updates and inform users about things you are doing. To use the news feed go to: Social Network -> News Feed, once here you will be presented with a scrollable screen with a username, in red, post in cyan, and the date it was posted in orange. To create a new post just click the Create Post button and this will give you a popup box that allows you to insert text, once you press Enter it will automatically insert your new status. Pressing refresh will refresh your feed.";
        };
        {
            ["name"] = "Store Settings";
            ["content"] = "Settings are simply a list of all your settings that are stored, so this can be what is stored against your file, so if you want to store your username and password, or just your authkey or even cache the Apps, Versions, and Categories lists. As well as the option to allow background processes to run, like auto-update and more.";
        };
        {
            ["name"] = "Store Statistics";
            ["content"] = "You can see the Statistics of your account and the Store, so you can see how many users, apps, comments, and downloads (total), as well as your personal amount. This also allows you to see how well you are doing and your position on the Discover System.";
        };
        {
            ["name"] = "Uploading/Downloading/Editing/Updating Apps";
            ["content"] = "Uploading apps is super easy using the drop downs for categories and versioning. We always suggest following the proper versioning system, but of course most users like to make their own. Downloading apps is now done via PHP instead of from a URL, this is to ensure you follow the download rules so we can log downloads. Editing and Updating are as simple as editing updating code for apps.";
        };
        {
            ["name"] = "Discover API Account";
            ["content"] = "A user account on Discover is super simple, we use an oAuth based system to allow API's to access your SocialNet system and App Store data. This is not mainly used but will be used for external applications wanting access to your details. You can revert this online using the Discover Systems Website (This is still under production.";
        };
        {
            ["name"] = "How do plugins work?";
            ["content"] = "If you found a function that is faulty or has broken, we allow you to rewrite code with the use of plugins. A plugin is loaded upon system startup which means you can use a plugin to add or remove functionality. An example would be that you want to add support for only allowing downloading programs and then sending them to a computer via rednet etc, then you can overwrite a function by just writing the same function and amending it how you need. This means you can extend it\'s functionality massively, by adding more functions. Of course if you wish to add more options then you will have to use my API, which is already loaded.";
        };
        {
            ["name"] = "What do you mean \"new api\"?";
            ["content"] = "Well if you follow the App Store's Development you will know that I stopped updating a month ago (or more), and this was to stop and re-develop the Store System, making it easier to use and to contain a whole new set of functions I had learnt while being at my current place of work. The new API introduces tons of the new systems like IP Blocking, Account Blocking, Rate limiting, and spam protection.";
        };
        {
            ["name"] = "How can I get involved?";
            ["content"] = "Well if you are genuinely interested in getting involved and helping development with your own ideas and coding skills then you are very welcome, I would love to be able to get players to join in and help build this into something, as the way the system works is super simple and easy to work with. Even with coroutines being used and a simple manager, all coroutines have their own buffer and will be inserted into the task manager as soon as they are created. Then resuming them is all built into the API.";
        };
        {
            ["name"] = "App Store file size problems?";
            ["content"] = "I know that recently with all these fairly large updates the actual store's file is becoming larger and larger, I plan to create a web runner so instead, you run a wrapper, that will download and run the program at run time making it easier to work with so you don't have to worry about the size, this also means updates will be instant, instead of when you update.";
        };
    }

    if name:sub(1,7) == "content" then
        local scroll = 0
        conid = tonumber(name:sub(8))
        base.screen.colour("white")
        store.draw.menu("Help / FAQ")

        base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
        base.draw.texta("Back", 2, 19, false, "lightBlue", "grey")
        base.draw.textr("Scroll enabled ", 19, false, "orange", "grey")

        pagecontent = base.data.wordwrap(tData[conid].content, 49)

        local function run(scroll)
            for i=1, 14 do
                if #pagecontent >= i + scroll then
                    base.draw.box(1, 51, i+3, 1, " ", "white", "white")
                    base.draw.textl(pagecontent[i+scroll], i+3, false, "cyan", "white")
                else
                    break
                end
            end
        end

        run(scroll)

        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Help / FAQ")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Help / FAQ", args[3], args[4])
                elseif (args[3] >= 2 and args[3] <= 5) and args[4] == 19 then
                    store.help("menu")
                end
            elseif args[1] == "mouse_scroll" then
                if args[2] == -1 then
                    if scroll > 0 then
                        scroll = scroll - 1
                        run(scroll)
                    end
                elseif args[2] == 1 then
                    if scroll + 14 < #pagecontent then
                        scroll = scroll + 1
                        run(scroll)
                    end
                end
            end
        end
    else
        local scroll = 0
        base.screen.colour("white")
        store.draw.menu("Help / FAQ")

        base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
        base.draw.textc("Help Topics: "..tostring(#tData), 19, false, "lightBlue", "grey")

        local function fix(num)
            if tostring(num):len() == 1 then
                return " "..tostring(num)
            else
                return tostring(num)
            end
        end

        local function run(scroll)
            for i=1, 14 do
                if #tData >= i + scroll then
                    base.draw.box(1, 51, i+3, 1, " ", "white", "white")
                    base.draw.texta(tostring(fix(i+scroll)) .. ": " .. tData[i+scroll].name,  1, i+3, false, "cyan", "white")
                else
                    break
                end
            end
        end

        run(scroll)

        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Help / FAQ")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Help / FAQ", args[3], args[4])
                elseif (args[3] >= 1 and args[3] <= 51) and (args[4] >= 4 and args[4] <= 19) then
                    -- Get current option
                    local curid = args[4] - 3 + scroll
                    if curid <= #tData then
                        store.help("content"..tostring(curid))
                    end
                end
            elseif args[1] == "mouse_scroll" then
                if args[2] == -1 then
                    if scroll > 0 then
                        scroll = scroll - 1
                        run(scroll)
                    end
                elseif args[2] == 1 then
                    if scroll + 14 < #tData then
                        scroll = scroll + 1
                        run(scroll)
                    end
                end
            end
        end
    end
end

function store.updates(name)
    tData = {
        {
            ["name"] = "Update: 6.0.1 (Beta)";
            ["content"] = "The newest version of the App Store comes with some new surprises! We have a new Social Network category, which allows you to in turn adds a little more to the store. You have two new categories. Mailbox and News Feed. Mailbox is a functional mail client allowing you to send mail to other users and even offers you to send files to and from. If you want to send more than one file then please use Creator's Compress program to compress all the files into one file then use that file to send to another user. I am working on a live chat system currently allowing you to do even more, this will come in the next version I hope, I have also added an issue reporter, so when you have an error in your program you can actually send issues to me directly where I can work on them and fix them. The feed is actually a simple news feed where you can post updates and even just general chat. Hopefully when the chat comes you will have a live chat you can interact with.";
        };
        {
            ["name"] = "Update: 5.9.8 (Beta)";
            ["content"] = "Added Beta versions of the Discover Social code, including the Mailbox, Live Chat and the News Feed options. Mailbox is completed so far I am just working on the news feed next and then the live chat as the live chat may be a problem.";
        };
        {
            ["name"] = "Update: 5.8.1 (Release)";
            ["content"] = "Added bug reporting when a crash occurs, it will offer to send the information of the bug to the server for you which then goes to my issue manager. Fixed bug from the edit app page where it was not sending the right data to the discover object.";
        };
        {
            ["name"] = "Update: 5.7.2 (Release)";
            ["content"] = "Fixed the delete function, which crashed because of an invalid return from the server, also added a test version of the finder,to access this use the 'f' key on the home menu.";
        };
        {
            ["name"] = "Update: 5.6.1 (Release)";
            ["content"] = "Added new loading screen and changed a few bits and bobs on the settings page as well as some new amends for the backend.";
        };
        {
            ["name"] = "Update: 5.5.2 (Release)";
            ["content"] = "Added new update logs, converted the API for the store to a newer one called Base, due to it running an old API roughly 2 years out of date.";
        };
        {
            ["name"] = "Update: 5.4.8 (Release)";
            ["content"] = "Added limitRead functions to contain the read function, added some new updates to the backend and added the DiscoverX link in the Menu for when it is released to test it out.";
        };
        {
            ["name"] = "Update: 5.3.5 (Release)";
            ["content"] = "Added the ability to Upload from pastebin by simply providing a pastebin ID (click toggle on the file path) when uploading, Fixed the exit function, had to amend the coroutine manager (Wasn't exiting/removing threads correctly), added DiscoverX feature menu item.";
        };
        {
            ["name"] = "Update: 5.2.1 (Release)";
            ["content"] = "Account modification updates, allowing you to update your email and password using a generated key sent to the currently registered email, to help keep accounts secure. Updated the credits section for all the helpers as well as a few words from me. Added new updates for allowing you to update/edit from the \"View my Apps\" screen instead, allowing you to set the ID from there. You can also now update an app using a pastebin ID as well.";
        };
        {
            ["name"] = "Update: 5.1.3 (Beta)";
            ["content"] = "Multiple fixes to the Discover Cloud Network, and added the ability to rename a file, when you click on a file in the files viewer. Added some additions wrapping text so it stays inside the boxes, thanks to Cranium for this code back in 2012 ;).";
        };
        {
            ["name"] = "Update: 5.0.1 (Alpha)";
            ["content"] = "Added DiscoverCloud, Allowing you to upload, download and delete files from a remote server, allowing you to have programs anywhere on any computer! Please see \"Help / FAQ\" for more information about how to use the Cloud and what it can do!";
        };
        {
            ["name"] = "Update: 4.9.8 (Release)";
            ["content"] = "Added a new search screen to search for finding apps!";
        };
        {
            ["name"] = "Update: 4.8.9 (Release)";
            ["content"] = "Added multiple bug fixes!";
        };
        {
            ["name"] = "Update: 4.8.2 (Beta)";
            ["content"] = "Added the notifications system, which was requested by LDDestroier, which when someone comments on your app, then a notification is created for you to view on the little \"N\" in the menubar at the top, or just go to \"My Profile -> Notifications\" and you can see them all there, this will allow you to view them in depth. Made an update for the statistics page as well.";
        };
        {
            ["name"] = "Update: 4.7.0 (Release)";
            ["content"] = "Added 2 new console commands 'search' and 'view' which can either search for an app or view an apps meta data.";
        };
        {
            ["name"] = "Update: 4.6.3 (Release)";
            ["content"] = "Added a fix for the comments issue, as the validation for auth keys was not working correctly, added some command line functions like 'install' and 'view'.";
        };
        {
            ["name"] = "Update: 4.5.1 (Beta)";
            ["content"] = "Added the latest discover cloud options so you can now use the cloud as a FTP type service. Allowing you to upload files to and from the server. Then you can access the files on the web at: http://syncc.dannysmc.com/ the Discover Cloud is the backend part of SynCC, and of course added an exit button.";
        };
        {
            ["name"] = "Update: 4.3.2 (Beta)";
            ["content"] = "Added some test code for the Snippets which act like gists I guess for Git, that you can upload bits of code, the character limit is locked at 100,000 characters, as otherwise anymore than that does not really count as a snippet of code. Snippets can have most of the same meta data, other than it uses a new storing method.";
        };
        {
            ["name"] = "Update: 4.2.8 (Beta)";
            ["content"] = "Added some changes to the Apps listing to have the categories, versions and all listings all connected, making some room for some more ideas I have for the App Store.";
        };
        {
            ["name"] = "Update: 4.2.1 (Release)";
            ["content"] = "After moving web servers I added some more bug fixes to allow the application to gain access to my web server again, as I had a lot of changes that had to be performed.";
        };
        {
            ["name"] = "Update: 4.1.4 (Beta)";
            ["content"] = "Fixed a few bugs, like Help / FAQ and Updates screens where there was problems with clickable regions. Fixed the inability to scroll up on certain emulators on the Versions and Categories screens, not sure why, just coded it a little more bullet proof. Added up new account screens, removed user settings because it was a waste of a button.";
        };
        {
            ["name"] = "Update: 4.1.1 (Beta)";
            ["content"] = "Currently the recent release, this is where everything was coded and functioning this is for all of the great store users to be able to test the Store, and tell me what they think, and give useful feedback, in the settings menu you can actually submit bugs, and review what you think of the Discover Store, and the new name. Also do you like the new API, this was built with security and ease in one.";
        };
        {
            ["name"] = "Update: 4.0.1 (Alpha)";
            ["content"] = "This update was the very first version of the new re-coded store App, this had all the correct versions of the new DiscoverAPI. This was coded without multitasking, but with the new system and the way the Store would function I felt it would be better to incorporate the new Thread System. The new threads manager harnesses ComputerCraft's alternative to multitasking allowing multiple threads, with little or no problem, and the new task manager I added to be able to flick through tasks with ease.";
        };
    }

    if name:sub(1,7) == "content" then
        local scroll = 0
        conid = tonumber(name:sub(8))
        base.screen.colour("white")
        store.draw.menu("Updates Log")

        base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
        base.draw.texta("Back", 2, 19, false, "lightBlue", "grey")
        base.draw.textr("Scroll enabled ", 19, false, "orange", "grey")

        pagecontent = base.data.wordwrap(tData[conid].content, 49)

        local function run(scroll)
            for i=1, 14 do
                if #pagecontent >= i + scroll then
                    base.draw.box(1, 51, i+3, 1, " ", "white", "white")
                    base.draw.textl(pagecontent[i+scroll], i+3, false, "cyan", "white")
                else
                    break
                end
            end
        end

        run(scroll)

        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Updates Log")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Updates Log", args[3], args[4])
                elseif (args[3] >= 2 and args[3] <= 5) and args[4] == 19 then
                    store.updates("menu")
                end
            elseif args[1] == "mouse_scroll" then
                if args[2] == -1 then
                    if scroll > 0 then
                        scroll = scroll - 1
                        run(scroll)
                    end
                elseif args[2] == 1 then
                    if scroll + 14 < #pagecontent then
                        scroll = scroll + 1
                        run(scroll)
                    end
                end
            end
        end
    else
        local scroll = 0
        base.screen.colour("white")
        store.draw.menu("Updates Log")

        base.draw.box(1, 51, 19, 1, " ", "grey", "grey")
        base.draw.textc("Update Logs: "..tostring(#tData), 19, false, "lightBlue", "grey")

        local function fix(num)
            if tostring(num):len() == 1 then
                return " "..tostring(num)
            else
                return tostring(num)
            end
        end

        local function run(scroll)
            for i=1, 14 do
                if #tData >= i + scroll then
                    base.draw.box(1, 51, i+3, 1, " ", "white", "white")
                    base.draw.texta(tostring(fix(i+scroll)) .. ": " .. tData[i+scroll].name,  1, i+3, false, "cyan", "white")
                else
                    break
                end
            end
        end

        run(scroll)

        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                store.draw.menu("Updates Log")
            elseif args[1] == "mouse_click" then
                if args[4] >= 1 and args[4] <= 2 then
                    store.draw.menu_input("Help / FAQ", args[3], args[4])
                elseif (args[3] >= 1 and args[3] <= 51) and (args[4] >= 4 and args[4] <= 19) then
                    -- Get current option
                    local curid = args[4] - 3 + scroll
                    if curid <= #tData then
                        store.updates("content"..tostring(curid))
                    end
                end
            elseif args[1] == "mouse_scroll" then
                if args[2] == -1 then
                    if scroll > 0 then
                        scroll = scroll - 1
                        run(scroll)
                    end
                elseif args[2] == 1 then
                    if scroll + 14 < #tData then
                        scroll = scroll + 1
                        run(scroll)
                    end
                end
            end
        end
    end
end

function store.credits()
    base.screen.colour("white")
    store.draw.menu("Credits")
    local text = "Thank you! Thank you for keeping the App Store alive, through tons of updates, Creator thanks for all the constant ideas and bug fixes, Cranium (even though he does not know it) for some great code snippets, and ByteMe for UI ideas. The reason I have kept going is because you're always helping me out, and it is great to see, I hope that it becomes more popular and gets many more apps now that I have added all the new features. - DannySMc"
    for k,v in ipairs(base.data.wordwrap(text, 51)) do
        base.draw.textl(v, k+3, false, "grey", "white")
    end

    base.draw.box(1, 51, 19, 1, " ", "grey" , "grey")
    base.draw.textc("Press the \"X\" in the taskbar to close", 19, false, "orange", "grey")

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            store.draw.menu("Credits")
        elseif args[1] == "mouse_click" then
            if args[4] >= 1 and args[4] <= 2 then
                store.draw.menu_input("Home", args[3], args[4])
            end
        end
    end
end

function store.command(func, var_a, var_b)
    if func == "install" then
        if var_a and var_b then
            write("Installing app, please wait... ")
            local query = "cmd=shell_install&index="..textutils.urlEncode(tostring(var_a))
            local req = http.post(discover.data.urls.store, query)
            if req then
                req = req.readAll()
                local f = fs.open(var_b, "w")
                f.write(req)
                f.close()
                print("Success")
            else
                printError("There was an error while fetching your file: "..tostring(req.readAll()))
            end
        else
            if not var_a then
                printError("Please specify an index code")
            elseif not var_b then
                printError("Please specify a file name")
            end
        end
    elseif func == "list" then
        local query = "cmd=list_apps"
        local req = http.post(discover.data.urls.store, query)
        req = textutils.unserialize(req.readAll())
        if req.status then
            local count = 0
            print("Press any key to view next, press \"c\" to exit")
            repeat
                count = count + 1
                print(req.data[count].name .. " - (" .. req.data[count].index .. ")")
                local ev, k = os.pullEvent("key")
                if k == 46 then
                    break
                end
            until count == #req.data
        else
            printError("[ERROR]: "..tostring(req.error))
        end
    elseif func == "search" then
        if var_a then
            write("Downloading... ")
            local query = "cmd=list_apps"
            local req = http.post(discover.data.urls.store, query)
            print("[OK]")
            write("Reading... ")
            req = textutils.unserialize(req.readAll())
            print("[OK]")
            write("Searching... ")
            local results = {}
            for k,v in ipairs(req.data) do
                if v.name:lower():find(var_a) then
                    table.insert(results, v.name.." - ("..v.index..")")
                end
            end
            print("[OK]")
            print("Found " .. #results .. " result(s)")
            local count = 0
            print("Press any key to view next, press \"c\" to exit")
            repeat
                count = count + 1
                print(results[count])
                local ev, k = os.pullEvent("key")
                if k == 46 then
                    break
                end
            until count == #results
        else
            printError("Please supply a search term")
        end
    elseif func == "view" then
        if var_a then
            local query = "cmd=list_apps"
            local req = http.post(discover.data.urls.store, query)
            req = textutils.unserialize(req.readAll())
            if req.status then
                for _,v in ipairs(req.data) do
                    if v.index == var_a then
                        viewapp = v
                        break
                    end
                end
                if viewapp then
                    for k,v in pairs(viewapp) do
                        print(tostring(k)..": "..tostring(v))
                    end
                else
                    printError("Could not find that app")
                end
            else
                printError("There was a server side error, please try again later")
            end
        else
            printError("Please supply an index code")
        end
    else
        printError("Please use help for functions list")
    end
end

-- Run Discover Init
if #tArgs > 0 then
    if http and term.isColour() then
        store.command(unpack(tArgs))
    else
        printError("Please make sure HTTP is enabled and you are using an advanced computer (gold)")
    end
else
    if downloadapi then
        store.init()
    else
        print("Discover Crashed")
        sleep(2)
        shell.run("shell")
    end
end