Verinian Desktop Environment - Version 3.0.1

-- Verinian Desktop Environment: 3.0.1
-- Created By DannySMc

-- Configuration File Protocols
function saveConfig(table, file)
  fConfig = fs.open(file, "w") or error("Cannot open file "..file, 2)
  fConfig.write(textutils.serialize(table))
  fConfig.close()
end

function loadConfig(file)
  fConfig = fs.open(file, "r")
  ret = textutils.unserialize(fConfig.readAll())
  return ret
end

-- Peripheral Functions
function findPeripheral(Perihp) --Returns side of first matching peripheral matching passed string
  for _,s in ipairs(rs.getSides()) do
    if peripheral.isPresent(s) and peripheral.getType(s) == Perihp then
      return s
    end
  end
  return false
end

-- Common Draw Functions
function cs()
    term.clear()
    term.setCursorPos(1,1)
    return
end

function setCol(textColour, backgroundColour)
    if textColour and backgroundColour then
        if term.isColour() then
            term.setTextColour(colours[textColour])
            term.setBackgroundColour(colours[backgroundColour])
            return true
        else
            return false
        end
    else
        return false
    end
end

function resetCol()
    if term.isColour then
        term.setTextColour(colours.white)
        term.setBackgroundColour(colours.black)
        return true
    else
        return false
    end
end

-- Print Functions
function printC(Text, Line, NextLine, Color, BkgColor) -- print centered
  local x, y = term.getSize()
  x = x/2 - #Text/2
  term.setCursorPos(x, Line)
  if Color then setCol(Color, BkgColor) end
  term.write(Text)
  if NextLine then
    term.setCursorPos(1, NextLine)
  end
  if Color then resetCol(Color, BkgColor) end
  return true
end

function printL(Text, Line, NextLine, Color, BkgColor) -- print line


  local x, y = term.getSize()
  if ((term.isColor) and (term.isColor() == false) and (Text == " ")) then Text = "-" end
  for i = 1, x do
    term.setCursorPos(i, Line)
    if Color then setCol(Color, BkgColor) end
    term.write(Text)
  end
  if NextLine then
    term.setCursorPos(1, NextLine)
  end
  if Color then resetCol(Color, BkgColor) end
  return true
end

function printA(Text, xx, yy, NextLine, Color, BkgColor) -- print anywhere
  term.setCursorPos(xx,yy)
  if Color then setCol(Color, BkgColor) end
  term.write(Text)
  if NextLine then
    term.setCursorPos(1, NextLine)
  end
  if Color then resetCol(Color, BkgColor) end
  return true
end

function clearLine(Line, NextLine) -- May seem a bit odd, but it may be usefull sometimes
  local x, y = term.getSize()
  for i = 1, x do
    term.setCursorPos(i, Line)
    term.write(" ")
  end
  if not NextLine then
    x, y = term.getCursorPos()
    term.setCursorPos(1, y+1)
  end
  return true
end

function drawBox(StartX, lengthX, StartY, lengthY, Text, Color, BkgColor) -- does what is says on the tin.
  local x, y = term.getSize()
  if Color then setCol(Color, BkgColor) end
  if not Text then Text = "*" end
  lengthX = lengthX - 1
  lengthY = lengthY - 1
  EndX = StartX + lengthX
  EndY = StartY + lengthY
  term.setCursorPos(StartX, StartY)
  term.write(string.rep(Text, lengthX))
  term.setCursorPos(StartX, EndY)
  term.write(string.rep(Text, lengthX))
  for i = StartY, EndY do
    term.setCursorPos(StartX, i)
    term.write(Text)
    term.setCursorPos(EndX, i)
    term.write(Text)
  end
  resetCol(Color, BkgColor)
  return true
end

 -- Download Functions
function getPBFile(PBCode, uPath) -- pastebin code of the file, and path to save
    local temp = http.get("http://pastebin.com/raw.php?i="..textutils.urlEncode(PBCode))
    if temp then
        tempTo = temp.readAll()
        temp.close()
        local file = fs.open( uPath, "w" )
        file.write(temp)
        file.close()
        return true
    else
        return false
    end
end

-- Database Functions
db = {}
db.__index = db

function db.delete(Filename)
  if fs.exists(Filename) then
    fs.delete(Filename)
    return true
  end
  return false
end

function db.load(Filename)
  if not fs.exists(Filename) then
    local F = fs.open(Filename, "w")
    F.write("{}")
    F.close()
  end
  local F = fs.open(Filename, "r")
  local Data = F.readAll()
  F.close()
  Data = textutils.unserialize(Data)
  return Data
end

function db.save(Filename, ATable)
  local Data = textutils.serialize(ATable)
  local F = fs.open(Filename, "w")
  F.write(Data)
  F.close()
  return true
end

function db.search(searchstring, ATable)
  for i, V in pairs(ATable) do
    if tostring(ATable[i]) == tostring(searchstring) then
      return i
    end
  end
  return 0
end

function db.removeString(Filename, AString)
  local TempT = db.load(Filename)
  if type(TempT) ~= "table" then return false end
  local Pos = db.search(AString, TempT)
  if Pos > 0 then
    table.remove(TempT, Pos)
    db.save(Filename, TempT)
    return true
  else
    return false
  end
end

function db.insertString(Filename, AString)
  local TempT = db.load(Filename)
  if type(TempT) ~= "table" then TempT = {} end
  table.insert(TempT, AString)
  db.save(Filename, TempT)
  return true
end

-- Serial Generator
function serialGen(digits) -- seems to become unstable above 18 digits long

  local serial
  for i = 1, digits do
    if i == 1 then
      serial = math.random(9)
    else
      serial = serial.. math.random(9)
    end
  end
  serial = tonumber(serial)
  return serial
end

-- Encryption & Checksum!
local function zfill(N)
    N=string.format("%X",N)
    Zs=""
    if #N==1 then
        Zs="0"
    end
    return Zs..N
end

local function serializeImpl(t)
    local sType = type(t)
    if sType == "table" then
        local lstcnt=0
        for k,v in pairs(t) do
            lstcnt = lstcnt + 1
        end
        local result = "{"
        local aset=1
        for k,v in pairs(t) do
            if k==aset then
                result = result..serializeImpl(v)..","
                aset=aset+1
            else
                result = result..("["..serializeImpl(k).."]="..serializeImpl(v)..",")
            end
        end
        result = result.."}"
        return result
    elseif sType == "string" then
        return string.format("%q",t)
    elseif sType == "number" or sType == "boolean" or sType == "nil" then
        return tostring(t)
    elseif sType == "function" then
        local status,data=pcall(string.dump,t)
        if status then
            return 'func('..string.format("%q",data)..')'
        else
            error()
        end
    else
        error()
    end
end

local function split(T,func)
    if func then
        T=func(T)
    end
    local Out={}
    if type(T)=="table" then
        for k,v in pairs(T) do
            Out[split(k)]=split(v)
        end
    else
        Out=T
    end
    return Out
end

local function serialize( t )
    t=split(t)
    return serializeImpl( t, tTracking )
end

local function unserialize( s )
    local func, e = loadstring( "return "..s, "serialize" )
    local funcs={}
    if not func then
        return e
    end
    setfenv( func, {
        func=function(S)
            local new={}
            funcs[new]=S
            return new
        end,
    })
    return split(func(),function(val)
        if funcs[val] then
            return loadstring(funcs[val])
        else
            return val
        end
    end)
end

local function sure(N,n)
    if (l2-n)<1 then N="0" end
    return N
end

local function splitnum(S)
    Out=""
    for l1=1,#S,2 do
        l2=(#S-l1)+1
        CNum=tonumber("0x"..sure(string.sub(S,l2-1,l2-1),1) .. sure(string.sub(S,l2,l2),0))
        Out=string.char(CNum)..Out
    end
    return Out
end

local function wrap(N)
    return N-(math.floor(N/256)*256)
end

function checksum(S,num) -- args strInput and intPassNumber
    local sum=0
    for char in string.gmatch(S,".") do
        for l1=1,(num or 1) do
            math.randomseed(string.byte(char)+sum)
            sum=sum+math.random(0,9999)
        end
    end
    math.randomseed(sum)
    return sum
end

local function genkey(len,psw)
    checksum(psw)
    local key={}
    local tKeys={}
    for l1=1,len do
        local num=math.random(1,len)
        while tKeys[num] do
            num=math.random(1,len)
        end
        tKeys[num]=true
        key[l1]={num,math.random(0,255)}
    end
    return key
end

function encrypt(data,psw) -- args strInput and strPassword
    data=serialize(data)
    local chs=checksum(data)
    local key=genkey(#data,psw)
    local out={}
    local cnt=1
    for char in string.gmatch(data,".") do
        table.insert(out,key[cnt][1],zfill(wrap(string.byte(char)+key[cnt][2])),chars)
        cnt=cnt+1
    end
    return string.sub(serialize({chs,table.concat(out)}),2,-3)
end

function decrypt(data,psw) -- args strInput and strPassword
    local oData=data
    data=unserialize("{"..data.."}")
    if type(data)~="table" then
        return oData
    end
    local chs=data[1]
    data=data[2]
    local key=genkey((#data)/2,psw)
    local sKey={}
    for k,v in pairs(key) do
        sKey[v[1]]={k,v[2]}
    end
    local str=splitnum(data)
    local cnt=1
    local out={}
    for char in string.gmatch(str,".") do
        table.insert(out,sKey[cnt][1],string.char(wrap(string.byte(char)-sKey[cnt][2])))
        cnt=cnt+1
    end
    out=table.concat(out)
    if checksum(out or "")==chs then
        return unserialize(out)
    end
    return oData,out,chs
end

function wordwrap(str, limit)
  limit = limit or 72
  local here = 1
  local buf = ""
  local t = {}
  str:gsub("(%s*)()(%S+)()",
  function(sp, st, word, fi)
        if fi-here > limit then
           --# Break the line
           here = st
           table.insert(t, buf)
           buf = word
        else
           buf = buf..sp..word  --# Append
        end
  end)
  --# Tack on any leftovers
  if(buf ~= "") then
        table.insert(t, buf)
  end
  return t
end

function time()
    local nTime = textutils.formatTime(os.time(), true)
    if string.len(nTime) == 4 then
        nTime = "0"..nTime
    end
    os.startTimer(1)
    return nTime
end

function CalculateLineWrapping(self)
    local limit = self.PageSize.Width
    local text = self.TextInput.Value
    local lines = {''}
    local words = {}

    for word, space in text:gmatch('(%S+)(%s*)') do
        for i = 1, math.ceil(#word/limit) do
            local _space = ''
            if i == math.ceil(#word/limit) then
                _space = space
            end
            table.insert(words, {word:sub(1+limit*(i-1), limit*i), _space})
        end
    end

    for i, ws in ipairs(words) do
        local word = ws[1]
        local space = ws[2]
        local temp = lines[#lines] .. word .. space:gsub('\n','')
        if #temp > limit then
            table.insert(lines, '')
        end
        if space:find('\n') then
            lines[#lines] = lines[#lines] .. word

            space = space:gsub('\n', function()
            table.insert(lines, '')
            return ''
        end)
    else
        lines[#lines] = lines[#lines] .. word .. space
    end
    end
        return lines
end

-- SHA256 Hashing Algorithm:
local MOD = 2^32
local MODM = MOD-1
local function memoize(f)
    local mt = {}
    local t = setmetatable({}, mt)
    function mt:__index(k)
        local v = f(k)
        t[k] = v
        return v
    end
    return t
end
local function make_bitop_uncached(t, m)
    local function bitop(a, b)
        local res,p = 0,1
        while a ~= 0 and b ~= 0 do
            local am, bm = a % m, b % m
            res = res + t[am][bm] * p
            a = (a - am) / m
            b = (b - bm) / m
            p = p*m
        end
        res = res + (a + b) * p
        return res
    end
    return bitop
end
local function make_bitop(t)
    local op1 = make_bitop_uncached(t,2^1)
    local op2 = memoize(function(a) return memoize(function(b) return op1(a, b) end) end)
    return make_bitop_uncached(op2, 2 ^ (t.n or 1))
end
local bxor1 = make_bitop({[0] = {[0] = 0,[1] = 1}, [1] = {[0] = 1, [1] = 0}, n = 4})
local function bxor(a, b, c, ...)
    local z = nil
    if b then
        a = a % MOD
        b = b % MOD
        z = bxor1(a, b)
        if c then z = bxor(z, c, ...) end
        return z
    elseif a then return a % MOD
    else return 0 end
end
local function band(a, b, c, ...)
    local z
    if b then
        a = a % MOD
        b = b % MOD
        z = ((a + b) - bxor1(a,b)) / 2
        if c then z = bit32_band(z, c, ...) end
        return z
    elseif a then return a % MOD
    else return MODM end
end
local function bnot(x) return (-1 - x) % MOD end
local function rshift1(a, disp)
    if disp < 0 then return lshift(a,-disp) end
    return math.floor(a % 2 ^ 32 / 2 ^ disp)
end
local function rshift(x, disp)
    if disp > 31 or disp < -31 then return 0 end
    return rshift1(x % MOD, disp)
end
local function lshift(a, disp)
    if disp < 0 then return rshift(a,-disp) end
    return (a * 2 ^ disp) % 2 ^ 32
end
local function rrotate(x, disp)
    x = x % MOD
    disp = disp % 32
    local low = band(x, 2 ^ disp - 1)
    return rshift(x, disp) + lshift(low, 32 - disp)
end
local k = {
    0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5,
    0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
    0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3,
    0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174,
    0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc,
    0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
    0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7,
    0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
    0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13,
    0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85,
    0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3,
    0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070,
    0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5,
    0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3,
    0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208,
    0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2,
}
local function str2hexa(s)
    return (string.gsub(s, ".", function(c) return string.format("%02x", string.byte(c)) end))
end
local function num2s(l, n)
    local s = ""
    for i = 1, n do
        local rem = l % 256
        s = string.char(rem) .. s
        l = (l - rem) / 256
    end
    return s
end
local function s232num(s, i)
    local n = 0
    for i = i, i + 3 do n = n*256 + string.byte(s, i) end
    return n
end
local function preproc(msg, len)
    local extra = 64 - ((len + 9) % 64)
    len = num2s(8 * len, 8)
    msg = msg .. "\128" .. string.rep("\0", extra) .. len
    assert(#msg % 64 == 0)
    return msg
end
local function initH256(H)
    H[1] = 0x6a09e667
    H[2] = 0xbb67ae85
    H[3] = 0x3c6ef372
    H[4] = 0xa54ff53a
    H[5] = 0x510e527f
    H[6] = 0x9b05688c
    H[7] = 0x1f83d9ab
    H[8] = 0x5be0cd19
    return H
end
local function digestblock(msg, i, H)
    local w = {}
    for j = 1, 16 do w[j] = s232num(msg, i + (j - 1)*4) end
    for j = 17, 64 do
        local v = w[j - 15]
        local s0 = bxor(rrotate(v, 7), rrotate(v, 18), rshift(v, 3))
        v = w[j - 2]
        w[j] = w[j - 16] + s0 + w[j - 7] + bxor(rrotate(v, 17), rrotate(v, 19), rshift(v, 10))
    end
    local a, b, c, d, e, f, g, h = H[1], H[2], H[3], H[4], H[5], H[6], H[7], H[8]
    for i = 1, 64 do
        local s0 = bxor(rrotate(a, 2), rrotate(a, 13), rrotate(a, 22))
        local maj = bxor(band(a, b), band(a, c), band(b, c))
        local t2 = s0 + maj
        local s1 = bxor(rrotate(e, 6), rrotate(e, 11), rrotate(e, 25))
        local ch = bxor (band(e, f), band(bnot(e), g))
        local t1 = h + s1 + ch + k[i] + w[i]
        h, g, f, e, d, c, b, a = g, f, e, d + t1, c, b, a, t1 + t2
    end
    H[1] = band(H[1] + a)
    H[2] = band(H[2] + b)
    H[3] = band(H[3] + c)
    H[4] = band(H[4] + d)
    H[5] = band(H[5] + e)
    H[6] = band(H[6] + f)
    H[7] = band(H[7] + g)
    H[8] = band(H[8] + h)
end
function sha256(msg)
    msg = preproc(msg, #msg)
    local H = initH256({})
    for i = 1, #msg, 64 do digestblock(msg, i, H) end
    return str2hexa(num2s(H[1], 4) .. num2s(H[2], 4) .. num2s(H[3], 4) .. num2s(H[4], 4) ..
        num2s(H[5], 4) .. num2s(H[6], 4) .. num2s(H[7], 4) .. num2s(H[8], 4))
end
-- End API Functions





--[[ Program Help:
    + Desktop Computer (51 x 19)
    + Tablet PC (26 x 20)
]]

-- Main Program Code Start:

vdeArguments = {...}
for _, v in ipairs(vdeArguments) do
    if v == "update" then
        VDEControl("runUpdate")
    elseif v == "bypass" then
        cs()
        print("> You are running VDE in bypass mode...")
        platformType = UnknownOK
    else
        break
    end
end

-- Get Type:
local intX, intY = term.getSize()
if intX == 51 and intY == 19 then
    platformType = Desktop
elseif intX == 26 and intY == 2 then
    platformType = Tablet
else
    platformType = Unknown
end

-- Variables:
nVersion = "3.0.0"

mainTC = "white"
MainBC = "cyan"
errorTC = "lime"
errorBC = "red"
loginTC = "blue"
loginBC = "lightGrey"
loginfieldTC = "black"
loginfieldBC = "white"
homeTC = "white"
homeBC = "lightGrey"
homeLogoTC = "blue"
homeLogoBC = "grey"
tMSides = {"top", "bottom", "right", "left", "back", "front",}
recentTasks = {}
processes = {
    {
        -- Name
    },
    {
        -- Path of File
    },
}

-- Run Rednet Open
for _, v in ipairs(tMSides) do
    if peripheral.isPresent(v) then
        if peripheral.getType(v) == "modem" then
            modemSide = v
        end
    end
end



-- DISABLED VDE TERMINATION FOR TESTING PURPOSES


-- os.pullEvent = os.pullEventRaw
defUser = "admin"
defPass = "login"
sUrl = "https://dannysmc.com/files/php/mysqldb.php"

function DBControl(sMode, sUser, sPass)
    local nPass = sha256(sPass)
    if sMode == "login" then
        local req = http.post(sUrl, "cmd="..textutils.urlEncode(tostring(sMode)).."&".."username="..textutils.urlEncode(tostring(sUser)).."&".."password="..textutils.urlEncode(tostring(nPass)))
        local status = req.readAll()
        if status == '"true"' then
            return true
        else
            return false
        end
    elseif sMode == "insert" then
        local req = http.post(sUrl, "cmd="..textutils.urlEncode(tostring(sMode)).."&".."username="..textutils.urlEncode(tostring(sUser)).."&".."password="..textutils.urlEncode(tostring(nPass)))
        local status = req.readAll()
        if status == "true" then
            return true
        else
            return false
        end
    elseif sMode == "delete" then
        local req = http.post(sUrl, "cmd="..textutils.urlEncode(tostring(sMode)).."&".."username="..textutils.urlEncode(tostring(sUser)).."&".."password="..textutils.urlEncode(tostring(nPass)))
        local status = req.readAll()
        if status == "true" then
            return true
        else
            return false
        end
    end
end

function drawPopup(sText)
    drawBox(1, 51, 8, 1, " ", errorTC, errorBC)
    printC(sText, 8, false, errorTC, errorBC)
end

-- Main Code:

function VDE_Error(errordata)
    -- displays errors
    if errordata == "Unknown" then
        cs()
        error1 = "Verinian encountered an error that was caused from VDE being unable to figure out what platform you are using... Computer, Pocket, etc. VDE detects the user platform using the screen characters, if you have changed the screen size then please run VDE in unknown mode by typing: vde.lua bypass, this will allow you to bypass the screen detection phase."
    end
end

function VDEControl(sMode)
    if sMode == "run" then
        -- Run program
        login()
    elseif sMode == "install" then
        -- Install VDE
        local tDirs = {"/core/", "/core/config/", "/core/addons/", "/core/libs/", "/core/apps/", "/core/themes/", "/core/users/", "/core/users/default",}
        for _,v in ipairs(tDirs) do
            fs.makeDir(v)
        end
        if not platformType == "UnknownOK" then
            if platformType == "Desktop" then
                home()
            elseif platformType == "Tablet" then
                tab_home()
            elseif platformType == "Unknown" then
                VDE_Error("Unknown")
            elseif platformType == "Monitor" then
                VDEMonitor()
            else
                VDE_Error("Unknown")
            end
        end
        drawPopup("Downloading Files, Please Wait...")


        local ConfigUser = {
            {
                "No Options Available",
            },
            {
                false,
            },
        }

        local ConfigRednet = {
            {
                "No Options Available",
            },
            {
                false,
                false,
            },
        }

        local ConfigOS = {
            {
                "Uninstall VerinianDE",
                "Initialise File System",
            },
            {
                false,
                false,
            },
        }

        local ConfigMisc = {
            {
                "No Options Available",
            },
            {
                false,
            },
        }

        local tempFile = fs.open("/core/config/Config_MISC", "w")
        tempFile.write(textutils.serialize(ConfigMisc))
        tempFile.close()

        local tempFile = fs.open("/core/config/Config_OS", "w")
        tempFile.write(textutils.serialize(ConfigOS))
        tempFile.close()

        local tempFile = fs.open("/core/config/Config_REDNET", "w")
        tempFile.write(textutils.serialize(ConfigRednet))
        tempFile.close()

        local tempFile = fs.open("/core/config/Config_USER", "w")
        tempFile.write(textutils.serialize(ConfigUser))
        tempFile.close()

        shell.run("pastebin get HC1MjHVq /core/apps/Stacker")
        shell.run("pastebin get 0uygJmhJ /core/apps/Lasers")

        local tempFile = fs.open("/core/config/install", "w")
        tempFile.write("Installed")
        tempFile.close()

        local tStartFile = fs.open("startup", "w")
        tStartFile.write("shell.run('vde.lua')")
        tStartFile.close()

        login()
    elseif sMode == "uninstall" then
        -- Uninstall VDE
        cs()
        local texttc, textbc = "black", "white"
        drawBox(1, 51, 1, 1, " ", texttc, textbc)
        colourScreen()
        term.setCursorPos(1,1)
        local content = "Sorry to see you go... This will uninstall Verinian Desktop Environment from your computer, by deleting all files associated and created by VDE. These are the following folders: core/, core/addons/, core/apps/, core/libs, core/users/, core/config and core/themes. All files that aren't created will be left. If you wish to keep apps, I would move them now. Press 'y' to continue with the uninstall process or press 'c' to cancel."
        setCol(texttc, textbc)
        for _,v in ipairs(wordwrap(content)) do
            print(v)
        end

        while true do
            local args = { os.pullEvent("char") }
            if args[2] == "y" then
                cs()
                colourScreen()
                setCol(texttc, textbc)
                print("> Starting to uninstall VDE...")
                local toDelFiles = {"core/addons/", "core/apps/", "core/config/", "core/libs/", "core/themes/", "core/users/","core/"}
                for _,v in ipairs(toDelFiles) do
                    fs.delete(v)
                end
                print("> Folders deleted, deleting startup...")
                fs.delete("startup")
                sleep(1)
                print("> VDE is left in-case you wish to reinstall...")
                sleep(1)
                os.reboot()
            elseif args[2] == "n" then
                home()
            end
        end

    elseif sMode == "update" then
        -- Update VDE
        drawPopup("Attempting Update, Halting System...")
        sleep(1)
        cs()
        colourScreen()
        term.setCursorPos(1,1)
        setCol("black", "white")
        print("> Starting Update Process...")
        print("> System Halted, while updating...")
        setCol("lime", "white")
        print("> Do not turn off the computer, or access the file")
        print("  system, while this process is active...")
        setCol("black", "white")
        print("> Attempting to grab update data...")
        local newReq = http.get("https://dannysmc.com/programs/vde/update.txt")
        if not newReq then
            print("> Couldn't obtain file...")
            print("> Error: VDE_UPD_DAT_FALSE")
            sleep(2)
            home()
        end
        print("> File obtained...")
        print("> Attempting to get new update...")
        local updData = http.get(newReq.readAll())
        local tempFile = fs.open("vdeUpd", "w")
        tempFile.write(updData.readAll())
        tempFile.close()
        print("> Attempting to update, please wait...")
        local stat, err = pcall(shell.run("vdeUpd update"))
        if not stat then
            print("An error occured, VDE can't obtain error code.")
            print("> Error: "..err)
            sleep(4)
            home()
        end
    elseif sMode == "shutdown" then
        -- Shutdown VDE
        drawPopup("Shutting Down...")
        sleep(1.5)
        os.shutdown()
    elseif sMode == "restart" then
        -- Restart VDE
        drawPopup("Restarting...")
        sleep(1.5)
        os.reboot()
    elseif sMode == "runUpdate" then
        fs.delete("vde.lua")
        fs.move("vdeUpd", "vde.lua")
        os.reboot()
    end
end

function tab_home()
    -- Not done yet
    cs()
    colourScreen()
    term.setCursorPos(1,1)
    print("> Tablet version isn't completed yet...")
    sleep(2)
    os.shutdown()
end

function tab_programs()
    -- Not done yet
end

function tab_settings()
    -- Not done yet
end

function tab_connect()
    -- Not done yet
end

function VDEMonitor()
    -- This function isn't available just yet
    cs()
    print("> This function isn't available yet.")
    sleep(1.5)
    print("> Will attempt to redirect to a monitor...")
    sleep(1)
    local mon = findPeripheral("monitor")
    if mon then
        term.redirect(mon)
    end
end

function login()
  -- Start Login
  home()

  local tInfo = {"Welcome to the new Verinian Desktop Environment", "The pocket, turtle editions are on their way!",}
  cs()
  colourScreen()
  drawBox(1, 51, 1, 2, " ", tc, bc)
  printA("Verinian Desktop Environment", 1, 1, false, tc, bc)
  printA(time(), 47, 1, false, tc, bc)
  printC(">> Login <<", 2, false, tc, bc)
  -- Login Boxes
  drawBox(1, 51, 3, 1, " ", tc, "grey")
  printC("       REGISTER        < - >         [ LOGIN ]     ", 3, false, "white", "grey")
  drawBox(8, 35, 5, 3, " ", tc, bc)
  drawBox(8, 35, 9, 3, " ", tc, bc)
  printC(">> Username <<", 5, false, tc, bc)
  printC(">> Password <<", 9, false, tc, bc)
  term.setCursorPos(1, 17)
  setCol("black", "white")
  printA("Please use your username and password to login to", 1, 17, false, "black", "white")
  printA("the desktop environment. Don't have an account?", 1, 18, false, "black", "white")
  printA("press 'REGISTER' to get an email account!", 1, 19, false, "black", "white")
  term.setCursorPos(1,1)
  drawBox(1, 51, 16, 1, " ", tc, bc)
  printC(">> Help <<", 16, false, tc, bc)
  drawBox(19, 13, 13, 1, " ", tc, bc)
  printC(">> LOGIN <<", 13, false, tc, bc)



  while true do
    local args = { os.pullEvent() }
    if args[1] == "timer" then
      clearLine(1, false)
      drawBox(1, 51, 1, 2, " ", tc, bc)
      printA("Verinian Desktop Environment", 1, 1, false, tc, bc)
      printA(time(), 47, 1, false, tc, bc)
      printC(">> Login <<", 2, false, tc, bc)
    elseif args[1] == "mouse_click" then
      if (args[3] >= 9 and args[3] <= 42) and (args[4] == 6) then
        term.setCursorPos(9, 6)
        setCol("lime", "white")
        write(": ")
        username = tostring(read())
      elseif (args[3] >= 9 and args[3] <= 42) and (args[4] == 10) then
        term.setCursorPos(9, 10)
        setCol("lime", "white")
        write(": ")
        password = tostring(read("*"))
        password = sha256(password)
      elseif (args[3] >= 20 and args[3] <= 31) and (args[4] == 13) then
        local status = BlazeLogin(username, password)
        if status.readAll() == '"true"' then
          drawPopup("This action was successful")
          sleep(1.5)
          home()
        else
          drawPopup("Login Failed!")
          sleep(1.5)
          login()
        end
      elseif (args[3] >= 1 and args[3] <= 25) and (args[4] == 3) then
        register()
      end
    elseif args[1] == "char" then
      if args[2] == "u" then
        term.setCursorPos(9, 6)
        setCol("lime", "white")
        write(": ")
        username = tostring(read())
      elseif args[2] == "p" then
        term.setCursorPos(9, 10)
        setCol("lime", "white")
        write(": ")
        password = tostring(read("*"))
        password = sha256(password)
      elseif args[2] == "r" then
        register()
        break
      elseif args[2] == "l" then
        local status = BlazeLogin(username, password)
        if status.readAll() == '"true"' then
          drawPopup("This action was successful")
          sleep(1.5)
          home()
        else
          drawPopup("Login Failed!")
          sleep(1.5)
          login()
        end
      end
    end
  end
end

-- Set Vars:
scroll = 1
histFold = {}
table.insert(histFold, "/")

function fb_getClick(sButton, nX, nY, scroll, sDir)
    if sButton == 1 then
        local tFilesClean = tFilesClean
        tFilesCount = #tFilesClean
        local count = nY - 2 - scroll
        oldDir = sDir
        if sDir == "/" then
            newDir = sDir..""..(tFilesClean[count])
        else
            newDir = sDir.."/"..tFilesClean[count]
        end
        sDir = newDir

        if fs.isDir(newDir) then
            table.insert(histFold, sDir)
            fb_finder(newDir)
        else
            fb_runFile(newDir, sDir)
        end
    elseif sButton == 2 then
        -- Do delete or edit
        if sOption == "delete" then
            local tFilesClean = tFilesClean
            tFilesCount = #tFilesClean
            local count = nY - 2 - scroll
            oldDir = sDir
            if sDir == "/" then
                newDir = sDir..""..(tFilesClean[count])
            else
                newDir = sDir.."/"..tFilesClean[count]
            end
            fs.delete(newDir)
            fb_finder(sDir)
        elseif sOption == "edit" then
            -- Empty
        else
            fb_drawOptions(nX, nY, sDir)
        end
    end
end

function fb_drawOptions(tempX, tempY, sDir)
    drawBox(tempX, 8, tempY, 2, " ", "black", "lightGrey")
    printA("Delete", tempX, tempY, false, "black", "lightGrey")
    printA("Edit", tempX, tempY + 1, false, "black", "lightGrey")

    while true do
        local args = { os.pullEvent() }
        if args[1] == "mouse_click" then
            if args[2] == 1 then
                if args[3] >= tempX and args[3] <= tempX + 8 then
                    if args[4] == tempY then
                        local tFilesClean = tFilesClean
                        tFilesCount = #tFilesClean
                        local count = tempY - 2 - scroll
                        oldDir = sDir
                        if sDir == "/" then
                            newDir = sDir..""..(tFilesClean[count])
                        else
                            newDir = sDir.."/"..tFilesClean[count]
                        end
                        fs.delete(newDir)
                        fb_finder(sDir)
                    elseif args[4] == tempY + 1 then
                        local tFilesClean = tFilesClean
                        tFilesCount = #tFilesClean
                        local count = tempY - 2 - scroll
                        oldDir = sDir
                        if sDir == "/" then
                            newDir = sDir..""..(tFilesClean[count])
                        else
                            newDir = sDir.."/"..tFilesClean[count]
                        end
                        shell.run("edit "..newDir)
                        fb_finder(sDir)
                    else
                        fb_finder(sDir)
                    end
                else
                    fb_finder(sDir)
                end
            else
                fb_finder(sDir)
            end
        end
    end
end

function fb_runFile(path, sDir)
    cs()
    setCol("black", "white")
    shell.run(path)
    fb_finder(sDir)
end

function fb_drawMenu(sDir)
    -- Get files
    maintc = "blue"
    mainbc = "grey"
    mainbc2 = "lightGrey"
    texttc = "black"
    textbc = "white"
    dirtc = "red"
    xtc = "lime"
    sidetc = "white"
    sidebc = "cyan"
    sidetc1 = "lime"
    setCol("white", "white")
    cs()
    drawBox(1, 51, 1, 1, " ", maintc, mainbc)
    printA(" "..time().." ", 44, 1, false, maintc, mainbc2)
    printA("X", 1, 1, false, xtc, dirtc)
    printA(" Path: ", 3, 1, false, texttc, mainbc2)
    printA(sDir.." ", 10, 1, false, dirtc, mainbc2)
    drawBox(40, 12, 2, 18, " ", sidetc, sidebc)
    drawBox(41, 10, 3, 16, " ", sidetc, sidebc)
    drawBox(42, 8, 4, 14, " ", sidetc, sidebc)
    drawBox(43, 6, 5, 12, " ", sidetc, sidebc)
    drawBox(44, 4, 6, 10, " ", sidetc, sidebc)
    drawBox(45, 2, 7, 8, " ", sidetc, sidebc)
    printA("< ..", 2, 3, false, "blue", "white")

    printA("Create", 41, 3, false, sidetc1, sidebc)
    printA("File", 43, 4, false, sidetc, sidebc)
    printA("Folder", 43, 5, false, sidetc, sidebc)

    printA("LuaIDE", 41, 7, false, sidetc1, sidebc)
    printA("New", 43, 8, false, sidetc, sidebc)
    printA("Open", 43, 9, false, sidetc, sidebc)

    printA("Sketch", 41, 11, false, sidetc1, sidebc)
    printA("New", 43, 12, false, sidetc, sidebc)
    printA("Open", 43, 13, false, sidetc, sidebc)
    setCol(texttc, textbc)
end

function fb_finder(sDir)
    -- Get files
    fb_drawMenu(sDir)
    fb_drawDir(sDir, scroll)

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            fb_drawMenu(sDir)
            fb_drawDir(sDir, scroll)
        elseif args[1] == "mouse_scroll" then
            if args[2] == 1 then
                scroll = scroll + 1
                fb_drawMenu(sDir)
                fb_drawDir(sDir, scroll)
            elseif args[2] == -1 then
                scroll = scroll - 1
                fb_drawMenu(sDir)
                fb_drawDir(sDir, scroll)
            end
        elseif args[1] == "mouse_click" then
            if args[3] == 1 and args[4] == 1 then
                if RunningUnder == "Verinian" then
                    home()
                else
                    setCol("white", "black")
                    break
                end
            elseif (args[3] >= 2 and args[3] <= 40) and (args[4] == 3) then
                table.remove(histFold)
                historyCount = #histFold
                sDir = histFold[historyCount]
                fb_finder(sDir)
            elseif (args[3] >= 2 and args[3] <= 40) and (args[4] >= 4 and args[4] <= 18) then
                fb_getClick(args[2], args[3], args[4], scroll, sDir)
            elseif (args[3] >= 43 and args[3] <= 50) then
                if args[4] == 4 then
                    fb_drawInput("file", sDir)
                elseif args[4] == 5 then
                    fb_drawInput("folder", sDir)
                elseif args[4] == 8 then
                    luaide()
                elseif args[4] == 9 then
                    luaide()
                elseif args[4] == 12 then
                    sketch()
                elseif args[4] == 13 then
                    sketch()
                end
            end
        end
    end
end

function fb_drawInput(object, sDir)
    poptc1 = "white"
    popbc1 = "red"
    poptc2 = "black"
    popbc2 = "white"
    if object == "file" then
        drawBox(6, 39, 6, 3, " ", poptc1, popbc1)
        drawBox(6, 39, 7, 1, " ", poptc1, popbc1)
        drawBox(7, 37, 7, 1, " ", poptc2, popbc2)
        printC("Name For File:", 6, false, poptc1, popbc1)
        setCol(poptc2, popbc2)
        term.setCursorPos(7,7)
        write(": ")
        local newFileName = tostring(read())
        if sDir == "/" then
            fileDirName = "/"..newFileName
        else
            fileDirName = sDir.."/"..newFileName
        end
        shell.run("edit "..fileDirName)
        fb_finder(sDir)
    elseif object == "folder" then
        drawBox(6, 39, 6, 3, " ", poptc1, popbc1)
        drawBox(6, 39, 7, 1, " ", poptc1, popbc1)
        drawBox(7, 37, 7, 1, " ", poptc2, popbc2)
        printC("Name For Folder:", 6, false, poptc1, popbc1)
        setCol(poptc2, popbc2)
        term.setCursorPos(7,7)
        write(": ")
        local newFolderName = tostring(read())
        if sDir == "/" then
            fileDirName = "/"..newFolderName
        else
            fileDirName = sDir.."/"..newFolderName
        end
        fs.makeDir(fileDirName)
        fb_finder(sDir)
    end
end

-- Code by: wieselkatze (Modified by dannysmc95)

local function fb_getDir( sDir )
    sDir = ( "/" .. sDir .. "/" ):gsub( "\\+", "/" ):gsub( "/+", "/" )
    local folder, list = sDir:match( ".*/" ), {}

    tFilesClean = {}

    if not fs.isDir( sDir ) then
        return {}
    end

    for k, v in pairs( fs.list( sDir ) ) do
        if fs.isDir( folder .. v ) then
            table.insert( list, 1, "+ " .. v )
            table.insert( tFilesClean, 1, v)
        else
            list[ #list+1 ] = "- " .. v
            tFilesClean[ #tFilesClean + 1 ] = v
        end
    end

    return list
end

function fb_drawDir(sDir, scroll)
    local intX = 2
    local intY = 4

    tFiles = fb_getDir(sDir)

    for k, v in ipairs(tFiles) do
        if k >= scroll and k <= 15 then
            term.setCursorPos(intX, intY)
            if v:find("+") then
                setCol("blue", "white")
                print(v)
            else
                setCol("red", "white")
                print(v)
            end
            intY = intY + 1
        end
    end
end

function fb_main()
    if fs.exists("vde.lua") then
        RunningUnder = "Verinian"
    else
        RunningUnder = "Unknown"
    end
    fb_finder("/")
end


function register()
  -- Draws register menu
  cs()
  colourScreen()
  drawBox(1, 51, 1, 2, " ", tc, bc)
  printA("Verinian Desktop Environment", 1, 1, false, tc, bc)
  printA(time(), 47, 1, false, tc, bc)
  printC(">> Register <<", 2, false, tc, bc)
  -- Login Boxes
  drawBox(1, 51, 3, 1, " ", tc, "grey")
  printC("     [ REGISTER ]      < - >           LOGIN       ", 3, false, "white", "grey")
  drawBox(8, 35, 5, 7, " ", tc, bc)
  printC(">> Username <<", 5, false, tc, bc)
  drawBox(8, 35, 7, 1, " ", tc, bc)
  printC(">> Password <<", 7, false, tc, bc)
  drawBox(8, 35, 9, 1, " ", tc, bc)
  printC(">> Email Address <<", 9, false, tc, bc)
  drawBox(15, 21, 13, 1, " ", tc, bc)
  printC(" >> REGISTER <<", 13, false, tc, bc)
  drawBox(1, 51, 17, 1, " ", tc, bc)
  printC(">> Information <<", 17, false, tc, bc)
  printA("Your email address is stored so you can recover", 1, 18, false, tc, "white")
  printA("your account!", 1, 19, false, tc, "white")

  while true do
    local args = { os.pullEvent() }
    if args[1] == "timer" then
      drawBox(1, 51, 1, 2, " ", tc, bc)
      printA("Verinian Desktop Environment", 1, 1, false, tc, bc)
      printA(time(), 47, 1, false, tc, bc)
      printC(">> Register <<", 2, false, tc, bc)
    elseif args[1] == "mouse_click" then
      if (args[3] >= 9 and args[3] <= 42) and (args[4] == 6) then
        setCol("lime", "white")
        term.setCursorPos(9, 6)
        write(": ")
        username = tostring(read())
      elseif (args[3] >= 9 and args[3] <= 42) and (args[4] == 8) then
        setCol("lime", "white")
        term.setCursorPos(9, 8)
        write(": ")
        password = tostring(read("*"))
        password = sha256(password)
      elseif (args[3] >= 9 and args[3] <= 42) and (args[4] == 10) then
        setCol("lime", "white")
        term.setCursorPos(9, 10)
        write(": ")
        email = tostring(read())
      elseif (args[3] >= 18 and args[3] <= 33) and (args[4] == 13) then
        local status = BlazeRegister(username, password, email)
        if status.readAll() == '"true"' then
          drawPopup("This action was successful")
          sleep(1.5)
          _BLAZEUSER = username
          _BLAZEPASS = password
          login()
        else
          drawPopup("Login Failed!")
          sleep(1.5)
          login()
        end
      elseif (args[3] >= 28 and args[3] <= 51) and (args[4] == 3) then
        login()
      end
    elseif args[1] == "char" then
      if args[2] == "l" then
        login()
        break
      elseif args[2] == "u" then
        setCol("lime", "white")
        term.setCursorPos(9, 6)
        write(": ")
        username = tostring(read())
      elseif args[2] == "p" then
        setCol("lime", "white")
        term.setCursorPos(9, 8)
        write(": ")
        password = tostring(read("*"))
        password = sha256(password)
      elseif args[2] == "e" then
        setCol("lime", "white")
        term.setCursorPos(9, 10)
        write(": ")
        email = tostring(read())
      elseif args[2] == "r" then
        local status = BlazeRegister(username, password, email)
        if status.readAll() == '"true"' then
          drawPopup("This action was successful")
          sleep(1.5)
          username = username
          password = password
          login()
        else
          drawPopup("Login Failed!")
          sleep(1.5)
          login()
        end
      end
    end
  end
end
--[[function login()
    loginTC = "blue"
    loginBC = "lightGrey"
    colourScreen()
    cs()
    drawBox(1, 51, 2, 3, " ", loginTC, loginBC)
    drawBox(1, 51, 3, 1, " ", loginTC, loginBC)
    drawBox(11, 30, 7, 5, " ", loginTC, loginBC)
    drawBox(11, 30, 7, 2, " ", loginTC, loginBC)
    drawBox(11, 30, 9, 2, " ", loginTC, loginBC)
    drawBox(11, 30, 13, 3, " ", loginTC, loginBC)
    drawBox(11, 30, 14, 1, " ", loginTC, loginBC)
    drawBox(1, 51, 17, 3, " ", loginTC, loginBC)
    drawBox(1, 51, 18, 1, " ", loginTC, loginBC)
    drawBox(12, 28, 8, 1 , " ", loginfieldTC, loginfieldBC)
    drawBox(12, 28, 10, 1, " ", loginfieldTC, loginfieldBC)
    drawBox(1, 51, 17, 3, " ", loginTC, loginBC)
    drawBox(2, 49, 18, 1, " ", loginfieldTC, loginfieldBC)
    printA("VDE: Login Screen", 2, 3, false, loginTC, loginBC)
    printA(time(), 47, 2, false, loginTC, loginBC)
    printA("Username:", 12, 7, false, loginTC, loginBC)
    printA("Password:", 12, 9, false, loginTC, loginBC)
    printA("> LOGIN <", 13 ,14, false, loginfieldTC, loginfieldBC)
    printA("> CLEAR <", 30, 14, false, loginfieldTC, loginfieldBC)
    printA("Console Log:", 2, 17, false, loginTC, loginBC)

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            drawBox(1, 51, 2, 3, " ", loginTC, loginBC)
            printA(time(), 47, 2, false, loginTC, loginBC)
        elseif args[1] == "char" then
            if args[2] == "u" then
                term.setCursorPos(12, 8)
                setCol(loginfieldTC, loginfieldBC)
                write(": ")
                sUsername = tostring(read())
            elseif args[2] == "p" then
                term.setCursorPos(12, 10)
                setCol(loginfieldTC, loginfieldBC)
                write(": ")
                sPassword = tostring(read("*"))
            elseif args[2] == "c" then
                login()
            elseif args[2] == "l" then
                if sUsername and sPassword then
                    printC("Sending Data To Server", 18, false, loginfieldTC, loginfieldBC)
                    sleep(0.5)
                    local status = DBControl("login", sUsername, sPassword)
                    if status then
                        printC("Login Correct, Loading Settings", 18, false, loginfieldTC, loginfieldBC)
                        sleep(0.5)
                        home()
                        break
                    else
                        printC("Incorrect Login, Please try again", 18, false, loginfieldTC, loginfieldBC)
                        sleep(2.5)
                        login()
                        break
                    end
                else
                    printC("Both Username and Password are required", 18, false, loginfieldTC, loginfieldBC)
                    sleep(2.5)
                    login()
                    break
                end
            end
        end
    end
end]]

function drawTaskbar()
    drawBox(1, 51, 19, 1, " ", "white", "grey")
    -- drawBox(47, 7, 19, 1, " ", "white", "lightGrey")
    printA("GO!", 1, 19, false, "blue", "lightGrey")
    printA(" "..time().." ", 45, 19, false, "blue", homeBC)
    -- drawBox(16, 19, 19, 1, " ", homeTC, homeBC)
    -- printA("Recent Tasks: ["..tostring(#recentTasks).."] ", 17, 19, false, "blue", "lightGrey")
end

function colourScreen()
    intX = 1
    intY = 1
    setCol("white", "white")
    repeat
        intX = 1
        repeat
            term.setCursorPos(intX, intY)
            write(" ")
            intX = intX + 1
        until intX == 52
        intY = intY + 1
    until intY == 20
end

function deskMenu(sObject, obj1)
    if sObject == "go" then
        drawBox(1, 11, 13, 6, " ", homeTC, homeBC)
        drawBox(1, 11, 14, 4 , " ", homeTC, homeBC)
        drawBox(1, 11, 15, 2 , " ", homeTC, homeBC)
        drawBox(1, 11, 13, 1, " ", "grey", "grey")
        printA("  GO MENU  ", 1, 13, false, "blue", "grey")
        printA("Programs  >", 1, 18, false, homeTC, homeBC)
        printA("Games     >", 1, 17, false, homeTC, homeBC)
        printA("Explorer  +", 1, 16, false, homeTC, homeBC)
        printA("C.Panel   +", 1, 15, false, homeTC, homeBC)
        printA("Add-Ons   +", 1, 14, false, homeTC, homeBC)
    elseif sObject == "programs" then
        drawBox(12, 11, 11, 8, " ", homeTC, homeBC)
        drawBox(12, 11, 12, 6, " ", homeTC, homeBC)
        drawBox(12, 11, 13, 4, " ", homeTC, homeBC)
        drawBox(12, 11, 14, 2, " ", homeTC, homeBC)
        drawBox(12, 11, 11, 1, " ", "blue", "grey")
        printA("ProgramMenu", 12, 11, false, "blue", "grey")
        printA("Blaze EC  +", 12, 12, false, homeTC, homeBC)
        printA("L2P Email +", 12, 13, false, homeTC, homeBC)
        printA("SHA256    +", 12, 14, false, homeTC, homeBC)
        printA("Transmit  +", 12, 15, false, homeTC, homeBC)
        printA("INK       +", 12, 16, false, homeTC, homeBC)
        printA("Sketch    +", 12, 17, false, homeTC, homeBC)
        printA("LuaIDE    +", 12, 18, false, homeTC, homeBC)
    elseif sObject == "games" then
        drawBox(12, 11, 14, 4, " ", homeTC, homeBC)
        drawBox(12, 11, 16, 2, " ", homeTC, homeBC)
        printA("Games Menu ", 12, 14, false, "blue", "grey")
        printA("Lazers    +", 12, 15, false, homeTC, homeBC)
        printA("Stacker   +", 12, 16, false, homeTC, homeBC)
        printA("P.Alpha   +", 12, 17, false, "lightGrey", homeBC)
    elseif sObject == "time" then
        drawBox(43, 9, 17, 2, " ", homeTC, homeBC)
        printA("Time Info", 43, 17, false, "blue", "grey")
        printA("Day: "..tostring(os.day()), 43, 18, false, homeTC, homeBC)
    elseif sObject == "clear" then
        if obj1 == "cpanel" then
            cpanel()
        elseif obj1 == "cpanelos" then
            cpanel("OS")
        elseif obj1 == "cpaneluser" then
            cpanel("USER")
        elseif obj1 == "cpanelred" then
            cpanel("REDNET")
        elseif obj1 == "cpanelmisc" then
            cpanel("MISC")
        else
            home()
        end
    elseif sObject == "new" then
        drawBox(2, 10, 2, 2, " ", homeTC, homeBC)
        printA("Program  +", 2, 2, false, homeTC, homeBC)
        printA("Download +", 2, 3, false, homeTC, homeBC)
    elseif sObject == "run" then
        drawBox(8, 10, 2, 2, " ", homeTC, homeBC)
        printA("Shell    +", 8, 2, false, homeTC, homeBC)
        printA("External +", 8, 3, false, homeTC, homeBC)
    elseif sObject == "red" then
        drawBox(14, 9, 2, 2, " ", homeTC, homeBC)
        printA("Send    +", 14, 2, false, homeTC, homeBC)
        printA("Receive +", 14, 3, false, homeTC, homeBC)
    elseif sObject == "app" then
        drawBox(20, 8, 2, 4, " ", homeTC, homeBC)
        drawBox(20, 8, 3, 2, " ", homeTC, homeBC)
        printA("Ink    +", 20, 2, false, homeTC, homeBC)
        printA("Sketch +", 20, 3, false, homeTC, homeBC)
        printA("Flow   +", 20, 4, false, homeTC, homeBC)
        printA("LuaIDE +", 20, 5, false, homeTC, homeBC)
    elseif sObject == "verinian" then
        drawBox(41, 10, 2, 3, " ", homeTC, homeBC)
        drawBox(41, 10, 3, 1, " ", homeTC, homeBC)
        printA("Shutdown +", 41, 2, false, homeTC, homeBC)
        printA("Restart  +", 41, 3, false, homeTC, homeBC)
        printA("Update   +", 41, 4, false, homeTC, homeBC)
        drawBox(41, 10, 5, 2, " ", homeTC, "cyan")
        printA(" Version: ", 41, 5, false, homeTC, "cyan")
        printA("  "..tostring(nVersion), 41, 6, false, homeTC, "cyan")
    end
end

function drawShortcuts()
    -- // Shortcut #1: Explorer/File Manager
    paintutils.drawPixel(3, 3, colours.yellow)
    paintutils.drawPixel(4, 3, colours.yellow)
    paintutils.drawPixel(5, 3, colours.yellow)
    paintutils.drawPixel(3, 4, colours.yellow)
    paintutils.drawPixel(4, 4, colours.yellow)
    paintutils.drawPixel(5, 4, colours.yellow)
    paintutils.drawPixel(6, 4, colours.yellow)
    paintutils.drawPixel(3, 5, colours.yellow)
    paintutils.drawPixel(4, 5, colours.yellow)
    paintutils.drawPixel(5, 5, colours.yellow)
    paintutils.drawPixel(6, 5, colours.yellow)
    printA("//", 3, 5, false, "white", "yellow")
    printA("FILE", 3, 6, false, "blue", "lightGrey")

    -- // Shortcut #2: LuaIDE
    paintutils.drawPixel(3, 8, colours.lime)
    paintutils.drawPixel(4, 8, colours.lime)
    paintutils.drawPixel(5, 8, colours.lime)
    paintutils.drawPixel(6, 8, colours.lime)
    paintutils.drawPixel(3, 9, colours.black)
    paintutils.drawPixel(6, 9, colours.black)
    paintutils.drawPixel(3, 10, colours.black)
    paintutils.drawPixel(4, 10, colours.black)
    paintutils.drawPixel(5, 10, colours.black)
    paintutils.drawPixel(6, 10, colours.black)
    paintutils.drawPixel(4, 9, colours.black)
    paintutils.drawPixel(5, 9, colours.black)
    printA(">_", 3, 9, false, "white", "black")
    printA("LUAI", 3, 11, false, "blue", "lightGrey")

    -- // Shortcut #3: Sketch
    paintutils.drawPixel(3, 13, colours.blue)
    paintutils.drawPixel(4, 13, colours.yellow)
    paintutils.drawPixel(5, 13, colours.lime)
    paintutils.drawPixel(6, 13, colours.pink)
    paintutils.drawPixel(3, 14, colours.purple)
    paintutils.drawPixel(4, 14, colours.white)
    paintutils.drawPixel(5, 14, colours.grey)
    paintutils.drawPixel(6, 14, colours.lightGrey)
    paintutils.drawPixel(3, 15, colours.magenta)
    paintutils.drawPixel(4, 15, colours.brown)
    paintutils.drawPixel(5, 15, colours.black)
    paintutils.drawPixel(6, 15, colours.red)
    printA("#", 3, 15, false, "white", "magenta")
    printA("DRAW", 3, 16, false, "blue", "lightGrey")

    -- // Shortcut #4: Blaze Email Client
    paintutils.drawPixel(9, 3, colours.red)
    paintutils.drawPixel(10, 3, colours.red)
    paintutils.drawPixel(11, 3, colours.red)
    paintutils.drawPixel(12, 3, colours.red)
    paintutils.drawPixel(9, 4, colours.red)
    paintutils.drawPixel(10, 4, colours.lightGrey)
    paintutils.drawPixel(11, 4, colours.lightGrey)
    paintutils.drawPixel(12, 4, colours.red)
    paintutils.drawPixel(9, 5, colours.red)
    paintutils.drawPixel(10, 5, colours.red)
    paintutils.drawPixel(11, 5, colours.red)
    paintutils.drawPixel(12, 5, colours.red)
    printA("@", 10, 4, false, "black", "lightGrey")
    printA("BLZE", 9, 6, false, "blue", "lightGrey")

    -- // Shortcut #4: Blaze File Finder
    paintutils.drawPixel(9, 8, colours.blue)
    paintutils.drawPixel(10, 8, colours.blue)
    paintutils.drawPixel(11, 8, colours.blue)
    paintutils.drawPixel(12, 8, colours.white)
    paintutils.drawPixel(9, 9, colours.blue)
    paintutils.drawPixel(10, 9, colours.blue)
    paintutils.drawPixel(11, 9, colours.blue)
    paintutils.drawPixel(12, 9, colours.blue)
    paintutils.drawPixel(9, 10, colours.blue)
    paintutils.drawPixel(10, 10, colours.blue)
    paintutils.drawPixel(11, 10, colours.blue)
    paintutils.drawPixel(12, 10, colours.blue)
    printA("//", 9, 10, false, "lime", "blue")
    printA("FIND", 9, 11, false, "blue", "lightGrey")

    --[[ // Draw Statistics
    drawBox(40, 12, 4, 1, " ", "white", "lightGrey")
    printA(" Statistics ", 40, 4, false, "white", "lightGrey")
    printA(" Libs: "..tostring(#fs.list("/core/libs")), 40, 5, false, "blue", "white")
    printA(" Add-Ons: "..tostring(#fs.list("/core/addons")), 40, 6, false, "blue", "white")
    printA(" Configs: "..tostring(#fs.list("/core/config")), 40, 7, false, "blue", "white")
    printA(" Help: "..tostring(#fs.list("/core/help")), 40, 8, false, "blue", "white")
    printA(" Apps: "..tostring(#fs.list("/core/apps")), 40, 9, false, "blue", "white")
    printA(" Themes: "..tostring(#fs.list("/core/themes")), 40, 10, false, "blue", "white")
    printA(" Users: "..tostring(#fs.list("/core/users")), 40, 11, false, "blue", "white")]]
end
function home()
    recentTasks = {}
    desktc = "blue"
    deskbc = "lightGrey"
    -- desktop
    cs()
    colourScreen()
    drawTaskbar(false)
    drawShortcuts()
    drawBox(1, 51, 1, 1, " ", "blue", "grey")
    drawBox(2, 5, 1, 1, " ", desktc, deskbc)
    drawBox(8, 5, 1, 1, " ", desktc, deskbc)
    drawBox(14, 5, 1, 1, " ", desktc, deskbc)
    drawBox(20, 5, 1, 1, " ", desktc, deskbc)
    drawBox(41, 10, 1, 1, " ", desktc, deskbc)
    printA("NEW", 3, 1, false, desktc, deskbc)
    printA("RUN", 9, 1, false, desktc, deskbc)
    printA("RED", 15, 1, false, desktc, deskbc)
    printA("APP", 21, 1, false, desktc, deskbc)
    printA("Verinian", 42, 1, false, desktc, deskbc)

    while true do
        local args = { os.pullEvent() }
        if args[1] == "timer" then
            drawTaskbar()
        elseif args[1] == "mouse_click" then
            if args[2] == 1 then
                if (args[3] >= 1 and args[3] <= 3) and (args[4] == 19) then
                    deskMenu("go")
                    local args1 = { os.pullEvent("mouse_click") }
                    if args[2] == 1 then
                        if (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 14) then
                            addons("view")
                            break
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 15) then
                            cpanel()
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 16) then
                            filebrowser()
                            table.insert(recentTasks, "File Browser")
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 17) then
                            deskMenu("games")
                            local args2 = { os.pullEvent("mouse_click") }
                            if args2[2] == 1 then
                                if (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 15) then
                                    table.insert(recentTasks, "Lazers")
                                    game_laser()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 16) then
                                    table.insert(recentTasks, "Stacker")
                                    game_stacker()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 17) then
                                    table.insert(recentTasks, "Project Alpha")
                                    game_alpha()
                                else
                                    deskMenu("clear")
                                end
                            end
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 18) then
                            deskMenu("programs")
                            local args2 = { os.pullEvent("mouse_click") }
                            if args2[2] == 1 then
                                if (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 12) then
                                    table.insert(recentTasks, "Blaze Email Client")
                                    blaze_main()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 13) then
                                    table.insert(recentTasks, "L2P Live Email Client")
                                    liveemail()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 14) then
                                    table.insert(recentTasks, "SHA256 Test")
                                    sha256test()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 15) then
                                    table.insert(recentTasks, "Trasmit")
                                    transmit("display")
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 16) then
                                    table.insert(recentTasks, "Ink")
                                    ink()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 17) then
                                    table.insert(recentTasks, "Sketch")
                                    sketch()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 18) then
                                    table.insert(recentTasks, "LuaIDE")
                                    luaide()
                                else
                                    deskMenu("clear")
                                end
                            end
                        else
                            deskMenu("clear")
                        end
                    end
                elseif (args[3] >= 3 and args[3] <= 6) and (args[4] >= 3 and args[4] <= 6) then
                    filebrowser()
                elseif (args[3] >= 3 and args[3] <= 6) and (args[4] >= 8 and args[4] <= 11) then
                    luaide()
                elseif (args[3] >= 3 and args[3] <= 6) and (args[4] >= 13 and args[4] <= 17) then
                    sketch()
                elseif (args[3] >= 8 and args[3] <= 12) and (args[4] >= 3 and args[4] <= 6) then
                    blaze_inbox(1)
                elseif (args[3] >=8 and args[3] <= 12) and (args[4] >= 8 and args[4] <= 11) then
                    fb_main()
                elseif (args[3] >= 41 and args[3] <= 50) and (args[4] == 1) then
                    deskMenu("verinian")
                    local args1 = { os.pullEvent("mouse_click") }
                    if args1[2] == 1 then
                        if (args1[3] >= 41 and args1[3] <= 50) and (args1[4] == 2) then
                            VDEControl("shutdown")
                        elseif (args1[3] >= 41 and args1[3] <= 50) and (args1[4] == 3) then
                            VDEControl("restart")
                        elseif (args1[3] >= 41 and args1[3] <= 50) and (args1[4] == 4) then
                            VDEControl("update")
                        else
                            deskMenu("clear")
                        end
                    end
                elseif (args[3] >= 46 and args[3] <= 51) and (args[4] == 19) then
                    deskMenu("time")
                    local args = { os.pullEvent("mouse_click") }
                    if (args[3] >= 1 and args[3] <= 51) and (args[4] >= 1 and args[4] <= 19) then
                        deskMenu("clear")
                    end
                elseif (args[3] >= 2 and args[3] <= 6) and (args[4] == 1) then
                    deskMenu("new")
                    local args1 = { os.pullEvent("mouse_click") }
                    if args[2] == 1 then
                        if (args1[3] >= 2 and args1[3] <= 13) and (args1[4] == 2) then
                            table.insert(recentTasks, "LuaIDE (GravityScore")
                            luaide()
                            break
                        elseif (args1[3] >= 2 and args1[3] <= 13) and (args1[4] == 3) then
                            table.insert(recentTasks, "URL Downloader")
                            URLDownload()
                        else
                            deskMenu("clear")
                        end
                    end
                elseif (args[3] >= 8 and args[3] <= 12) and (args[4] == 1) then
                    deskMenu("run")
                    local args1 = {os.pullEvent("mouse_click")}
                    if args[2] == 1 then
                        if (args1[3] >= 2 and args1[3] <= 13) and (args1[4] == 2) then
                            table.insert(recentTasks, "Shell")
                            vdeShell()
                            break
                        elseif (args1[3] >= 2 and args1[3] <= 13) and (args1[4] == 3) then
                            table.insert(recentTasks, "External Launcher")
                            launcher()
                        else
                            deskMenu("clear")
                        end
                    end
                elseif (args[3] >= 14 and args[3] <= 18) and (args[4] == 1) then
                    deskMenu("red")
                    local args1 = {os.pullEvent("mouse_click")}
                    if args[2] == 1 then
                        if (args1[3] >= 14 and args1[3] <= 18) and (args1[4] == 2) then
                            table.insert(recentTasks, "Transmit")
                            transmit("send")
                        elseif (args1[3] >= 14 and args1[3] <= 18) and (args1[4] == 3) then
                            table.insert(recentTasks, "Transmit")
                            transmit("receive")
                        else
                            deskMenu("clear")
                        end
                    end
                elseif (args[3] >= 20 and args[3] <= 24) and (args[4] == 1) then
                    deskMenu("app")

                    local args1 = {os.pullEvent("mouse_click")}
                    if args1[2] == 1 then
                        if (args1[3] >= 20 and args1[3] <= 24) and (args1[4] == 2) then
                            table.insert(recentTasks, "Ink (OEED)")
                            ink()
                            break
                        elseif (args1[3] >= 20 and args1[3] <= 24) and (args1[4] == 3) then
                            table.insert(recentTasks, "Sketch (OEED)")
                            sketch()
                            break
                        elseif (args1[3] >= 20 and args1[3] <= 24) and (args1[4] == 4) then
                            table.insert(recentTasks, "FlowOffice (Konnichen)")
                            flowoffice()
                            break
                        elseif (args1[3] >= 20 and args1[3] <= 24) and (args1[4] == 5) then
                            table.insert(recentTasks, "LuaIDE (GravityScore)")
                            luaide()
                            break
                        else
                            deskMenu("clear")
                        end
                    end
                end
            end
        end
    end
end

function game_stacker()
    drawPopup("Attempting to run...")
    sleep(1)
    shell.run("/core/apps/Stacker")
    home()
end

function game_laser()
    drawPopup("Attempting to run...")
    sleep(1)
    shell.run("/core/apps/Lazers")
    home()
end

function game_alpha()
    drawPopup("Game isn't installed")
end
--[[ Window API

    window.create(parent, x, y, width, height, visible)

    write()
    clear()
    clearLine()
    getCursorPos()
    setCursorPos(x, y)
    SetCursorBlink(blink)
    isColour()
    setTextColour(colour)
    setBackgroundColour(colour)
    getSize()
    scroll(n)
    setVisible(boolean)
    redraw()
    restoreCursor()
    getPosition()
    reposition(x,y)
]]

function runExtGame(gameName)
    -- Runs an external game
    drawPopup("Executing: "..tostring(gameName))
    sleep(1)
    shell.run("/core/apps/"..gameName)
    home()
end

function liveemail()
    -- Live Email Client
    -- Vars
    tc = "white"
    bc = "cyan"
    text1 = "> Username: "
    text2 = "> Recipient: "
    text3 = "> Subject: "
    text4 = "> Message: "
    a = {}

    -- New Code:
    function le_drawScreen(strPage, strInstructions)
        cs()
        drawBox(1, 51, 1, 2, " ", tc, bc)
        printC("Lua to PHP Email Client - Created By DannySMc", 1, false, tc, bc)
        printC(">> "..strPage.." <<", 2, false, tc, bc)
        drawBox(1, 51, 19, 1, " ", tc, bc)
        printC(strInstructions, 19, 5, tc, bc)
    end

    function le_main()
        cs()
        le_drawScreen("Add Recepient Emails", "1 = Add | 2 = Remove | 3 = Accept")
        drawBox(1,51,7,1, " ", tc, bc)
        setCol("white", "cyan")
        term.setCursorPos(1,7)
        print("> Added Recipients:")
        resetCol()

        while true do
            if #a > 0  then
                term.setCursorPos(1, 8)
                for k, v in ipairs(a) do
                    print(k..": "..v)
                end
            end
            local args = { os.pullEvent("char") }
            if args[2] == "1" then
                term.setCursorPos(1,4)
                print("> Add a recipient:")
                write(": ")
                local recipient = tostring(read())
                if #recipient > 9 then
                    printC(">> Recipient Added! <<", 18, false, "lime", "black")
                    sleep(1.5)
                    table.insert(a, recipient)
                    le_main()
                else
                    printC(">> Needs to be more than 10 characters <<", 18, false, "lime", "black")
                    sleep(2.5)
                    le_main()
                end
            elseif args[2] == "2" then
                table.remove(a)
                le_main()
            elseif args[2] == "3" then
                if #a < 1 then
                    printC(">> Please add more than 1 recipient <<", 18, false, "lime", "black")
                    sleep(2.5)
                    le_main()
                else
                    lecreate(a)
                end
            end
        end
    end


    function le_create(tRecipients)
        cs()
        le_drawScreen("Create email", "Fill out information")
        drawBox(1, 51, 4, 1, " ", tc, bc)
        drawBox(1, 51, 6, 1, " ", tc, bc)
        printC("Message:", 6, false, tc, bc)
        printC("Subject:", 4, 5, tc, bc)
        write(": ")
        local subject = tostring(read())
        if #subject < 5 then
            printC(">> Subject length needs to be more than 5 <<", 18, false, "lime", "black")
            sleep(2.5)
            le_create(tRecipients)
        end
        term.setCursorPos(1,7)
        write(": ")
        local message1 = tostring(read())
        message = wrap(message1, 51)
        printC(">> Working please wait... <<", 18, false, "lime", "black")
        sleep(1)
        le_check(tRecipients, subject, message, message1)
    end

    function le_check(tRecipients, sSubject, tMessage, sMessage)
        le_drawScreen("Check your subject and message", "1 = Send | 2 = Restart")
        drawBox(1,51,4,3," ", tc, bc)
        printC("Subject:", 4, 5, tc, bc)
        term.setCursorPos(2,5)
        print("Subject: "..sSubject)
        printC("Message:",6, 7, tc, bc)
        for _,v in ipairs(tMessage) do
            print(v)
        end
        sMessage = sMessage
        if #tMessage > 12 then
            print(" ")
            drawBox(1,51,19,1," ", tc, bc)
            printC("1 = Send | 2 = Restart", 4, 5, tc, bc)
        end
        while true do
            local args = { os.pullEvent("char") }
            if args[2] == "1" then
                le_send(tRecipients, sSubject, tMessage, sMessage)
            elseif args[2] == "2" then
                le_create(tRecipients)
            end
        end
    end

    function le_send(tRecipients, sSubject, tMessage, sMessage)
        cs()
        le_drawScreen("Send Message", "Add a username and press enter to send")
        drawBox(1, 51, 4, 3, " ", tc, bc)
        printC("Your username:", 4, 5, tc, bc)
        write(": ")
        local sUsername = tostring(read())

        sMessage = sMessage

        term.setCursorPos(1,8)
        print("> We are sending your email")

        url = "http://dannysmc.com/ccdb/email.php"

        if #tRecipients > 1 then
            for _,v in ipairs(tRecipients) do
                http.post(url, "username="..textutils.urlEncode(tostring(sUsername)).."&".."emailto="..textutils.urlEncode(tostring(v)).."&".."emailsubject="..textutils.urlEncode(tostring(sSubject)).."&".."emailmessage="..textutils.urlEncode(tostring(sMessage)))
            end
        else
            http.post(url, "username="..textutils.urlEncode(tostring(sUsername)).."&".."emailto="..textutils.urlEncode(tostring(tRecipients[1])).."&".."emailsubject="..textutils.urlEncode(tostring(sSubject)).."&".."emailmessage="..textutils.urlEncode(tostring(sMessage)))
        end

        sleep(0.5)
        print("> Done!")
        a = {}
        sleep(2)
        le_main()
    end

    le_main()
end

function sha256test()
    -- SHA256 Hashing Test
    local maintc = "white"
    local mainbc = "cyan"
    local texttc = "black"
    local textbc = "white"
    drawBox(1, 51, 6, 6, " ", maintc, mainbc)
    drawBox(1, 51, 7, 4, " ", maintc, mainbc)
    drawBox(1, 51, 8, 2, " ", maintc, mainbc)
    printC("SHA256 Hashing Algorithm Test", 6, false, maintc, mainbc)
    drawBox(1, 51, 7, 1, " ", texttc, textbc)
    drawBox(1, 51, 9, 2, " ", texttc, textbc)
    setCol(texttc, textbc)
    term.setCursorPos(1,7)
    write(": ")
    local toHash = tostring(read())
    local hashed = sha256(toHash)
    local count = 8
    for _,v in ipairs(wordwrap(hashed, 49)) do
        term.setCursorPos(1, count)
        print(v)
        count = count + 1
    end
    sleep(2.5)
    home()
end

function cpanel(cmd)
    local checkSystem = {}
    local sPath = "/core/config"
    local tFiles = {"Config_OS", "Config_USER", "Config_REDNET", "Config_MISC",}

    for _, v in ipairs(tFiles) do
        if fs.exists(sPath.."/"..v) == false then
            drawPopup("An error occured while loading cpanel...")
            sleep(2.5)
            drawPopup("Configuration files are missing...")
            sleep(2.5)
            drawPopup("Please re-install VDE to initiliase files!")
            sleep(2.5)
            home()
        end
    end

    local tConfigOS = loadConfig(sPath.."/Config_OS")
    local tConfigUSER = loadConfig(sPath.."/Config_USER")
    local tConfigREDNET = loadConfig(sPath.."/Config_REDNET")
    local tConfigMISC = loadConfig(sPath.."/Config_MISC")

    if cmd == "OS" then
        local menutc = "blue"
        local menubc = "lightGrey"
        local menubc2 = "grey"
        local texttc = "black"
        local textbc = "white"
        local optiontc = "white"
        local optionbc = "cyan"
        local menubc3 = "blue"

        cs()
        colourScreen()
        drawTaskbar(false)
        drawBox(1, 51, 1, 1, " ", menutc, menubc2)
        printA(" HOME ", 45, 1, false, menutc, menubc)
        printA(" OS ", 2, 1, false, "lime", menubc)
        printA(" USER ", 7, 1, false, menutc, menubc)
        printA(" REDNET ", 14, 1, false, menutc, menubc)
        printA(" MISC ", 23, 1, false, menutc, menubc)
        setCol(texttc, textbc)
        term.setCursorPos(1,2)

        drawBox(48, 3, 2, 17, " ", "pink", "pink")
        drawBox(49, 1, 2, 17, " ", "pink", "pink")
        drawBox(1, 51, 2, 17, " ", optiontc, optionbc)
        drawBox(47, 1, 2, 17, " ", optiontc, optionbc)
        drawBox(44, 1, 2, 17, " ", optiontc, optionbc)
        drawBox(1, 51, 16, 1, " ", optiontc, optionbc)
        drawBox(1, 51, 17, 2, " ", texttc, textbc)
        printC("Toggle options by pressing 'RUN' for that option", 17, false, "lime", "white")
        printC("Yellow = On/True & Red = Off/False", 18, false, "lime", "white")

        local count = 3
        for k1, v1 in ipairs(tConfigOS[1]) do
            printA(k1..": "..v1, 2, count, false, texttc, textbc)
            printA("RUN", 48, count, false, "red", "pink")
            drawBox(45, 2, count+1, 1, " ", optiontc, optionbc)
            count = count + 2
        end
        count = 3
        for _, v in ipairs(tConfigOS[2]) do
            if v then
                drawBox(45, 2, count, 1, " ", "yellow", "yellow")
            else
                drawBox(45, 2, count, 1, " ", "red", "red")
            end
            count = count + 2
        end

        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                drawTaskbar()
            elseif args[1] == "mouse_click" then
                if (args[3] >= 1 and args[3] <= 3) and (args[4] == 19) then
                    deskMenu("go")
                    local args1 = { os.pullEvent("mouse_click") }
                    if args[2] == 1 then
                        if (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 14) then
                            addons("view")
                            break
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 15) then
                            cpanel()
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 16) then
                            filebrowser()
                            table.insert(recentTasks, "File Browser")
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 17) then
                            deskMenu("games")
                            local args2 = { os.pullEvent("mouse_click") }
                            if args2[2] == 1 then
                                if (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 15) then
                                    table.insert(recentTasks, "Lazers")
                                    game_lazers()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 16) then
                                    table.insert(recentTasks, "Stacker")
                                    game_stacker()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 17) then
                                    table.insert(recentTasks, "Project Alpha")
                                    game_alpha()
                                else
                                    deskMenu("clear", "cpanelos")
                                end
                            end
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 18) then
                            deskMenu("programs")
                            local args2 = { os.pullEvent("mouse_click") }
                            if args2[2] == 1 then
                                if (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 12) then
                                    table.insert(recentTasks, "Blaze Email Client")
                                    blaze_main()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 13) then
                                    table.insert(recentTasks, "L2P Live Email Client")
                                    liveemail()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 14) then
                                    table.insert(recentTasks, "SHA256 Test")
                                    sha256test()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 15) then
                                    table.insert(recentTasks, "Trasmit")
                                    transmit("display")
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 16) then
                                    table.insert(recentTasks, "Ink")
                                    ink()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 17) then
                                    table.insert(recentTasks, "Sketch")
                                    sketch()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 18) then
                                    table.insert(recentTasks, "LuaIDE")
                                    luaide()
                                else
                                    deskMenu("clear", "cpanelos")
                                end
                            end
                        else
                            deskMenu("clear", "cpanelos")
                        end
                    end
                elseif (args[3] >= 2 and args[3] <= 5) and (args[4] == 1) then
                    -- OS
                    cpanel("OS")
                    break
                elseif (args[3] >= 7 and args[3] <= 12) and (args[4] == 1) then
                    -- User
                    cpanel("USER")
                    break
                elseif (args[3] >= 14 and args[3] <= 21) and (args[4] == 1) then
                    -- Rednet
                    cpanel("REDNET")
                    break
                elseif (args[3] >= 23 and args[3] <= 28) and (args[4] == 1) then
                    -- Misc
                    cpanel("MISC")
                    break
                elseif (args[3] >= 45 and args[3] <= 50) and (args[4] == 1) then
                    home()
                elseif args[3] >= 48 and args[3] <= 50 then
                    -- Logic For Options
                    if args[4] == 3 then
                        if #tConfigOS[1] >= 1 then
                            -- Option 1
                            if tConfigOS[2][1] == true then
                                tConfigOS[2][1] = false
                            else
                                tConfigOS[2][1] = true
                            end
                            saveConfig(tConfigOS, sPath.."/"..tFiles[1])
                            VDEControl("uninstall")
                            break
                        end
                    elseif args[4] == 5 then
                        -- Option 2
                        if #tConfigOS[1] >= 2 then
                            if tConfigOS[2][2] == true then
                                tConfigOS[2][2] = false
                            else
                                tConfigOS[2][2] = true
                            end
                            saveConfig(tConfigOS, sPath.."/"..tFiles[1])
                            VDEControl("install")
                            cpanel("OS")
                        end
                    elseif args[4] == 7 then
                        -- Option 3
                        if #tConfigOS[1] >= 3 then
                            if tConfigOS[2][3] == true then
                                tConfigOS[2][3] = false
                            else
                                tConfigOS[2][3] = true
                            end
                            saveConfig(tConfigOS, sPath.."/"..tFiles[1])
                            cpanel("OS")
                        end
                    elseif args[4] == 9 then
                        -- Option 4
                        if #tConfigOS[1] >= 4 then
                            if tConfigOS[2][4] == true then
                                tConfigOS[2][4] = false
                            else
                                tConfigOS[2][4] = true
                            end
                            saveConfig(tConfigOS, sPath.."/"..tFiles[1])
                            cpanel("OS")
                        end
                    elseif args[4] == 11 then
                        -- Option 5
                        if #tConfigOS[1] >= 5 then
                            if tConfigOS[2][5] == true then
                                tConfigOS[2][5] = false
                            else
                                tConfigOS[2][5] = true
                            end
                            saveConfig(tConfigOS, sPath.."/"..tFiles[1])
                            cpanel("OS")
                        end
                    elseif args[4] == 13 then
                        -- Option 6
                        if #tConfigOS[1] >= 6 then
                            if tConfigOS[2][6] == true then
                                tConfigOS[2][6] = false
                            else
                                tConfigOS[2][6] = true
                            end
                            saveConfig(tConfigOS, sPath.."/"..tFiles[1])
                            cpanel("OS")
                        end
                    elseif args[4] == 15 then
                        -- Option 7
                        if #tConfigOS[1] >= 7 then
                            if tConfigOS[2][7] == true then
                                tConfigOS[2][7] = false
                            else
                                tConfigOS[2][7] = true
                            end
                            saveConfig(tConfigOS, sPath.."/"..tFiles[1])
                            cpanel("OS")
                        end
                    end
                end
            end
        end
    elseif cmd == "USER" then
        local menutc = "blue"
        local menubc = "lightGrey"
        local menubc2 = "grey"
        local texttc = "black"
        local textbc = "white"
        local optiontc = "white"
        local optionbc = "cyan"
        local menubc3 = "blue"

        cs()
        colourScreen()
        drawTaskbar(false)
        drawBox(1, 51, 1, 1, " ", menutc, menubc2)
        printA(" HOME ", 45, 1, false, menutc, menubc)
        printA(" OS ", 2, 1, false, menutc, menubc)
        printA(" USER ", 7, 1, false, "lime", menubc)
        printA(" REDNET ", 14, 1, false, menutc, menubc)
        printA(" MISC ", 23, 1, false, menutc, menubc)
        setCol(texttc, textbc)
        term.setCursorPos(1,2)

        drawBox(48, 3, 2, 17, " ", "pink", "pink")
        drawBox(49, 1, 2, 17, " ", "pink", "pink")
        drawBox(1, 51, 2, 17, " ", optiontc, optionbc)
        drawBox(47, 1, 2, 17, " ", optiontc, optionbc)
        drawBox(44, 1, 2, 17, " ", optiontc, optionbc)
        drawBox(1, 51, 16, 1, " ", optiontc, optionbc)
        drawBox(1, 51, 17, 2, " ", texttc, textbc)
        printC("Toggle options by pressing 'RUN' for that option", 17, false, "lime", "white")
        printC("Yellow = On/True & Red = Off/False", 18, false, "lime", "white")

        local count = 3
        for k1, v1 in ipairs(tConfigUSER[1]) do
            printA(k1..": "..v1, 2, count, false, texttc, textbc)
            printA("RUN", 48, count, false, "red", "pink")
            drawBox(45, 2, count+1, 1, " ", optiontc, optionbc)
            count = count + 2
        end
        count = 3
        for _, v in ipairs(tConfigUSER[2]) do
            if v then
                drawBox(45, 2, count, 1, " ", "yellow", "yellow")
            else
                drawBox(45, 2, count, 1, " ", "red", "red")
            end
            count = count + 2
        end

        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                drawTaskbar()
            elseif args[1] == "mouse_click" then
                if (args[3] >= 1 and args[3] <= 3) and (args[4] == 19) then
                    deskMenu("go")
                    local args1 = { os.pullEvent("mouse_click") }
                    if args[2] == 1 then
                        if (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 14) then
                            addons("view")
                            break
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 15) then
                            cpanel()
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 16) then
                            filebrowser()
                            table.insert(recentTasks, "File Browser")
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 17) then
                            deskMenu("games")
                            local args2 = { os.pullEvent("mouse_click") }
                            if args2[2] == 1 then
                                if (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 15) then
                                    table.insert(recentTasks, "Lazers")
                                    game_lazers()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 16) then
                                    table.insert(recentTasks, "Stacker")
                                    game_stacker()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 17) then
                                    table.insert(recentTasks, "Project Alpha")
                                    game_alpha()
                                else
                                    deskMenu("clear", "cpaneluser")
                                end
                            end
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 18) then
                            deskMenu("programs")
                            local args2 = { os.pullEvent("mouse_click") }
                            if args2[2] == 1 then
                                if (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 12) then
                                    table.insert(recentTasks, "Blaze Email Client")
                                    blaze_main()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 13) then
                                    table.insert(recentTasks, "L2P Live Email Client")
                                    liveemail()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 14) then
                                    table.insert(recentTasks, "SHA256 Test")
                                    sha256test()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 15) then
                                    table.insert(recentTasks, "Trasmit")
                                    transmit("display")
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 16) then
                                    table.insert(recentTasks, "Ink")
                                    ink()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 17) then
                                    table.insert(recentTasks, "Sketch")
                                    sketch()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 18) then
                                    table.insert(recentTasks, "LuaIDE")
                                    luaide()
                                else
                                    deskMenu("clear", "cpaneluser")
                                end
                            end
                        else
                            deskMenu("clear", "cpaneluser")
                        end
                    end
                elseif (args[3] >= 2 and args[3] <= 5) and (args[4] == 1) then
                    -- OS
                    cpanel("OS")
                    break
                elseif (args[3] >= 7 and args[3] <= 12) and (args[4] == 1) then
                    -- User
                    cpanel("USER")
                    break
                elseif (args[3] >= 14 and args[3] <= 21) and (args[4] == 1) then
                    -- Rednet
                    cpanel("REDNET")
                    break
                elseif (args[3] >= 23 and args[3] <= 28) and (args[4] == 1) then
                    -- Misc
                    cpanel("MISC")
                    break
                elseif (args[3] >= 45 and args[3] <= 50) and (args[4] == 1) then
                    home()
                elseif args[3] >= 48 and args[3] <= 50 then
                -- Logic For Options
                    if args[4] == 3 then
                        if #tConfigUSER[1] >= 1 then
                            -- Option 1
                            if tConfigUSER[2][1] == true then
                                tConfigUSER[2][1] = false
                            else
                                tConfigUSER[2][1] = true
                            end
                            saveConfig(tConfigUSER, sPath.."/"..tFiles[2])
                            cpanel("USER")
                        end
                    elseif args[4] == 5 then
                        -- Option 2
                        if #tConfigUSER[1] >= 2 then
                            if tConfigUSER[2][2] == true then
                                tConfigUSER[2][2] = false
                            else
                                tConfigUSER[2][2] = true
                            end
                            saveConfig(tConfigUSER, sPath.."/"..tFiles[2])
                            cpanel("USER")
                        end
                    elseif args[4] == 7 then
                        -- Option 3
                        if #tConfigUSER[1] >= 3 then
                            if tConfigUSER[2][3] == true then
                                tConfigUSER[2][3] = false
                            else
                                tConfigUSER[2][3] = true
                            end
                            saveConfig(tConfigUSER, sPath.."/"..tFiles[2])
                            cpanel("USER")
                        end
                    elseif args[4] == 9 then
                        -- Option 4
                        if #tConfigUSER[1] >= 4 then
                            if tConfigUSER[2][4] == true then
                                tConfigUSER[2][4] = false
                            else
                                tConfigUSER[2][4] = true
                            end
                            saveConfig(tConfigUSER, sPath.."/"..tFiles[2])
                            cpanel("USER")
                        end
                    elseif args[4] == 11 then
                        -- Option 5
                        if #tConfigUSER[1] >= 5 then
                            if tConfigUSER[2][5] == true then
                                tConfigUSER[2][5] = false
                            else
                                tConfigUSER[2][5] = true
                            end
                            saveConfig(tConfigUSER, sPath.."/"..tFiles[2])
                            cpanel("USER")
                        end
                    elseif args[4] == 13 then
                        -- Option 6
                        if #tConfigUSER[1] >= 6 then
                            if tConfigUSER[2][6] == true then
                                tConfigUSER[2][6] = false
                            else
                                tConfigUSER[2][6] = true
                            end
                            saveConfig(tConfigUSER, sPath.."/"..tFiles[2])
                            cpanel("USER")
                        end
                    elseif args[4] == 15 then
                        -- Option 7
                        if #tConfigUSER[1] >= 7 then
                            if tConfigUSER[2][7] == true then
                                tConfigUSER[2][7] = false
                            else
                                tConfigUSER[2][7] = true
                            end
                            saveConfig(tConfigUSER, sPath.."/"..tFiles[2])
                            cpanel("USER")
                        end
                    end
                end
            end
        end
    elseif cmd == "REDNET" then
        local menutc = "blue"
        local menubc = "lightGrey"
        local menubc2 = "grey"
        local texttc = "black"
        local textbc = "white"
        local optiontc = "white"
        local optionbc = "cyan"
        local menubc3 = "blue"

        cs()
        colourScreen()
        drawTaskbar(false)
        drawBox(1, 51, 1, 1, " ", menutc, menubc2)
        printA(" HOME ", 45, 1, false, menutc, menubc)
        printA(" OS ", 2, 1, false, menutc, menubc)
        printA(" USER ", 7, 1, false, menutc, menubc)
        printA(" REDNET ", 14, 1, false, "lime", menubc)
        printA(" MISC ", 23, 1, false, menutc, menubc)
        setCol(texttc, textbc)
        term.setCursorPos(1,2)

        drawBox(48, 3, 2, 17, " ", "pink", "pink")
        drawBox(49, 1, 2, 17, " ", "pink", "pink")
        drawBox(1, 51, 2, 17, " ", optiontc, optionbc)
        drawBox(47, 1, 2, 17, " ", optiontc, optionbc)
        drawBox(44, 1, 2, 17, " ", optiontc, optionbc)
        drawBox(1, 51, 16, 1, " ", optiontc, optionbc)
        drawBox(1, 51, 17, 2, " ", texttc, textbc)
        printC("Toggle options by pressing 'RUN' for that option", 17, false, "lime", "white")
        printC("Yellow = On/True & Red = Off/False", 18, false, "lime", "white")

        local count = 3
        for k1, v1 in ipairs(tConfigREDNET[1]) do
            printA(k1..": "..v1, 2, count, false, texttc, textbc)
            printA("RUN", 48, count, false, "red", "pink")
            drawBox(45, 2, count+1, 1, " ", optiontc, optionbc)
            count = count + 2
        end
        count = 3
        for _, v in ipairs(tConfigREDNET[2]) do
            if v then
                drawBox(45, 2, count, 1, " ", "yellow", "yellow")
            else
                drawBox(45, 2, count, 1, " ", "red", "red")
            end
            count = count + 2
        end

        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                drawTaskbar()
            elseif args[1] == "mouse_click" then
                if (args[3] >= 1 and args[3] <= 3) and (args[4] == 19) then
                    deskMenu("go")
                    local args1 = { os.pullEvent("mouse_click") }
                    if args[2] == 1 then
                        if (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 14) then
                            addons("view")
                            break
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 15) then
                            cpanel()
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 16) then
                            filebrowser()
                            table.insert(recentTasks, "File Browser")
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 17) then
                            deskMenu("games")
                            local args2 = { os.pullEvent("mouse_click") }
                            if args2[2] == 1 then
                                if (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 15) then
                                    table.insert(recentTasks, "Lazers")
                                    game_lazers()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 16) then
                                    table.insert(recentTasks, "Stacker")
                                    game_stacker()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 17) then
                                    table.insert(recentTasks, "Project Alpha")
                                    game_alpha()
                                else
                                    deskMenu("clear", "cpanelred")
                                end
                            end
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 18) then
                            deskMenu("programs")
                            local args2 = { os.pullEvent("mouse_click") }
                            if args2[2] == 1 then
                                if (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 12) then
                                    table.insert(recentTasks, "Blaze Email Client")
                                    blaze_main()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 13) then
                                    table.insert(recentTasks, "L2P Live Email Client")
                                    liveemail()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 14) then
                                    table.insert(recentTasks, "SHA256 Test")
                                    sha256test()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 15) then
                                    table.insert(recentTasks, "Trasmit")
                                    transmit("display")
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 16) then
                                    table.insert(recentTasks, "Ink")
                                    ink()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 17) then
                                    table.insert(recentTasks, "Sketch")
                                    sketch()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 18) then
                                    table.insert(recentTasks, "LuaIDE")
                                    luaide()
                                else
                                    deskMenu("clear", "cpanelred")
                                end
                            end
                        else
                            deskMenu("clear", "cpanelred")
                        end
                    end
                elseif (args[3] >= 2 and args[3] <= 5) and (args[4] == 1) then
                    -- OS
                    cpanel("OS")
                    break
                elseif (args[3] >= 7 and args[3] <= 12) and (args[4] == 1) then
                    -- User
                    cpanel("USER")
                    break
                elseif (args[3] >= 14 and args[3] <= 21) and (args[4] == 1) then
                    -- Rednet
                    cpanel("REDNET")
                    break
                elseif (args[3] >= 23 and args[3] <= 28) and (args[4] == 1) then
                    -- Misc
                    cpanel("MISC")
                    break
                elseif (args[3] >= 45 and args[3] <= 50) and (args[4] == 1) then
                    home()
                elseif args[3] >= 48 and args[3] <= 50 then
                -- Logic For Options
                    if args[4] == 3 then
                        if #tConfigREDNET[1] >= 1 then
                            -- Option 1
                            if tConfigREDNET[2][1] == true then
                                tConfigREDNET[2][1] = false
                            else
                                tConfigREDNET[2][1] = true
                            end
                            saveConfig(tConfigREDNET, sPath.."/"..tFiles[3])
                            cpanel("REDNET")
                        end
                    elseif args[4] == 5 then
                        -- Option 2
                        if #tConfigREDNET[1] >= 2 then
                            if tConfigREDNET[2][2] == true then
                                tConfigREDNET[2][2] = false
                            else
                                tConfigREDNET[2][2] = true
                            end
                            saveConfig(tConfigREDNET, sPath.."/"..tFiles[3])
                            cpanel("REDNET")
                        end
                    elseif args[4] == 7 then
                        -- Option 3
                        if #tConfigREDNET[1] >= 3 then
                            if tConfigREDNET[2][3] == true then
                                tConfigREDNET[2][3] = false
                            else
                                tConfigREDNET[2][3] = true
                            end
                            saveConfig(tConfigREDNET, sPath.."/"..tFiles[3])
                            cpanel("REDNET")
                        end
                    elseif args[4] == 9 then
                        -- Option 4
                        if #tConfigREDNET[1] >= 4 then
                            if tConfigREDNET[2][4] == true then
                                tConfigREDNET[2][4] = false
                            else
                                tConfigREDNET[2][4] = true
                            end
                            saveConfig(tConfigREDNET, sPath.."/"..tFiles[3])
                            cpanel("REDNET")
                        end
                    elseif args[4] == 11 then
                        -- Option 5
                        if #tConfigREDNET[1] >= 5 then
                            if tConfigREDNET[2][5] == true then
                                tConfigREDNET[2][5] = false
                            else
                                tConfigREDNET[2][5] = true
                            end
                            saveConfig(tConfigREDNET, sPath.."/"..tFiles[3])
                            cpanel("REDNET")
                        end
                    elseif args[4] == 13 then
                        -- Option 6
                        if #tConfigREDNET[1] >= 6 then
                            if tConfigREDNET[2][6] == true then
                                tConfigREDNET[2][6] = false
                            else
                                tConfigREDNET[2][6] = true
                            end
                            saveConfig(tConfigREDNET, sPath.."/"..tFiles[3])
                            cpanel("REDNET")
                        end
                    elseif args[4] == 15 then
                        -- Option 7
                        if #tConfigREDNET[1] >= 7 then
                            if tConfigREDNET[2][7] == true then
                                tConfigREDNET[2][7] = false
                            else
                                tConfigREDNET[2][7] = true
                            end
                            saveConfig(tConfigREDNET, sPath.."/"..tFiles[3])
                            cpanel("REDNET")
                        end
                    end
                end
            end
        end
    elseif cmd == "MISC" then
        local menutc = "blue"
        local menubc = "lightGrey"
        local menubc2 = "grey"
        local texttc = "black"
        local textbc = "white"
        local optiontc = "white"
        local optionbc = "cyan"
        local menubc3 = "blue"

        cs()
        colourScreen()
        drawTaskbar(false)
        drawBox(1, 51, 1, 1, " ", menutc, menubc2)
        printA(" HOME ", 45, 1, false, menutc, menubc)
        printA(" OS ", 2, 1, false, menutc, menubc)
        printA(" USER ", 7, 1, false, menutc, menubc)
        printA(" REDNET ", 14, 1, false, menutc, menubc)
        printA(" MISC ", 23, 1, false, "lime", menubc)
        setCol(texttc, textbc)
        term.setCursorPos(1,2)

        drawBox(48, 3, 2, 17, " ", "pink", "pink")
        drawBox(49, 1, 2, 17, " ", "pink", "pink")
        drawBox(1, 51, 2, 17, " ", optiontc, optionbc)
        drawBox(47, 1, 2, 17, " ", optiontc, optionbc)
        drawBox(44, 1, 2, 17, " ", optiontc, optionbc)
        drawBox(1, 51, 16, 1, " ", optiontc, optionbc)
        drawBox(1, 51, 17, 2, " ", texttc, textbc)
        printC("Toggle options by pressing 'RUN' for that option", 17, false, "lime", "white")
        printC("Yellow = On/True & Red = Off/False", 18, false, "lime", "white")

        local count = 3
        for k1, v1 in ipairs(tConfigMISC[1]) do
            printA(k1..": "..v1, 2, count, false, texttc, textbc)
            printA("RUN", 48, count, false, "red", "pink")
            drawBox(45, 2, count+1, 1, " ", optiontc, optionbc)
            count = count + 2
        end
        count = 3
        for _, v in ipairs(tConfigMISC[2]) do
            if v then
                drawBox(45, 2, count, 1, " ", "yellow", "yellow")
            else
                drawBox(45, 2, count, 1, " ", "red", "red")
            end
            count = count + 2
        end

        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                drawTaskbar()
            elseif args[1] == "mouse_click" then
                if (args[3] >= 1 and args[3] <= 3) and (args[4] == 19) then
                    deskMenu("go")
                    local args1 = { os.pullEvent("mouse_click") }
                    if args[2] == 1 then
                        if (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 14) then
                            addons("view")
                            break
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 15) then
                            cpanel()
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 16) then
                            filebrowser()
                            table.insert(recentTasks, "File Browser")
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 17) then
                            deskMenu("games")
                            local args2 = { os.pullEvent("mouse_click") }
                            if args2[2] == 1 then
                                if (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 15) then
                                    table.insert(recentTasks, "Lazers")
                                    game_lazers()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 16) then
                                    table.insert(recentTasks, "Stacker")
                                    game_stacker()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 17) then
                                    table.insert(recentTasks, "Project Alpha")
                                    game_alpha()
                                else
                                    deskMenu("clear", "cpanelmisc")
                                end
                            end
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 18) then
                            deskMenu("programs")
                            local args2 = { os.pullEvent("mouse_click") }
                            if args2[2] == 1 then
                                if (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 12) then
                                    table.insert(recentTasks, "Blaze Email Client")
                                    blaze_main()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 13) then
                                    table.insert(recentTasks, "L2P Live Email Client")
                                    liveemail()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 14) then
                                    table.insert(recentTasks, "SHA256 Test")
                                    sha256test()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 15) then
                                    table.insert(recentTasks, "Trasmit")
                                    transmit("display")
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 16) then
                                    table.insert(recentTasks, "Ink")
                                    ink()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 17) then
                                    table.insert(recentTasks, "Sketch")
                                    sketch()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 18) then
                                    table.insert(recentTasks, "LuaIDE")
                                    luaide()
                                else
                                    deskMenu("clear", "cpanelmisc")
                                end
                            end
                        else
                            deskMenu("clear", "cpanelmisc")
                        end
                    end
                elseif (args[3] >= 2 and args[3] <= 5) and (args[4] == 1) then
                    -- OS
                    cpanel("OS")
                    break
                elseif (args[3] >= 7 and args[3] <= 12) and (args[4] == 1) then
                    -- User
                    cpanel("USER")
                    break
                elseif (args[3] >= 14 and args[3] <= 21) and (args[4] == 1) then
                    -- Rednet
                    cpanel("REDNET")
                    break
                elseif (args[3] >= 23 and args[3] <= 28) and (args[4] == 1) then
                    -- Misc
                    cpanel("MISC")
                    break
                elseif (args[3] >= 45 and args[3] <= 50) and (args[4] == 1) then
                    home()
                elseif args[3] >= 48 and args[3] <= 50 then
                -- Logic For Options
                    if args[4] == 3 then
                        if #tConfigMISC[1] >= 1 then
                            -- Option 1
                            if tConfigMISC[2][1] == true then
                                tConfigMISC[2][1] = false
                            else
                                tConfigMISC[2][1] = true
                            end
                            saveConfig(tConfigMISC, sPath.."/"..tFiles[4])
                            cpanel("MISC")
                        end
                    elseif args[4] == 5 then
                        -- Option 2
                        if #tConfigMISC[1] >= 2 then
                            if tConfigMISC[2][2] == true then
                                tConfigMISC[2][2] = false
                            else
                                tConfigMISC[2][2] = true
                            end
                            saveConfig(tConfigMISC, sPath.."/"..tFiles[4])
                            cpanel("MISC")
                        end
                    elseif args[4] == 7 then
                        -- Option 3
                        if #tConfigMISC[1] >= 3 then
                            if tConfigMISC[2][3] == true then
                                tConfigMISC[2][3] = false
                            else
                                tConfigMISC[2][3] = true
                            end
                            saveConfig(tConfigMISC, sPath.."/"..tFiles[4])
                            cpanel("MISC")
                        end
                    elseif args[4] == 9 then
                        -- Option 4
                        if #tConfigMISC[1] >= 4 then
                            if tConfigMISC[2][4] == true then
                                tConfigMISC[2][4] = false
                            else
                                tConfigMISC[2][4] = true
                            end
                            saveConfig(tConfigMISC, sPath.."/"..tFiles[4])
                            cpanel("MISC")
                        end
                    elseif args[4] == 11 then
                        -- Option 5
                        if #tConfigMISC[1] >= 5 then
                            if tConfigMISC[2][5] == true then
                                tConfigMISC[2][5] = false
                            else
                                tConfigMISC[2][5] = true
                            end
                            saveConfig(tConfigMISC, sPath.."/"..tFiles[4])
                            cpanel("MISC")
                        end
                    elseif args[4] == 13 then
                        -- Option 6
                        if #tConfigMISC[1] >= 6 then
                            if tConfigMISC[2][6] == true then
                                tConfigMISC[2][6] = false
                            else
                                tConfigMISC[2][6] = true
                            end
                            saveConfig(tConfigMISC, sPath.."/"..tFiles[4])
                            cpanel("MISC")
                        end
                    elseif args[4] == 15 then
                        -- Option 7
                        if #tConfigMISC[1] >= 7 then
                            if tConfigMISC[2][7] == true then
                                tConfigMISC[2][7] = false
                            else
                                tConfigMISC[2][7] = true
                            end
                            saveConfig(tConfigMISC, sPath.."/"..tFiles[4])
                            cpanel("MISC")
                        end
                    end
                end
            end
        end
    else
        local menutc = "blue"
        local menubc = "lightGrey"
        local menubc2 = "grey"
        local texttc = "black"
        local textbc = "white"
        local optiontc = "white"
        local optionbc = "cyan"
        local menubc3 = "blue"

        cs()
        colourScreen()
        drawTaskbar(false)
        drawBox(1, 51, 1, 1, " ", menutc, menubc2)
        printA(" HOME ", 45, 1, false, menutc, menubc)
        printA(" OS ", 2, 1, false, menutc, menubc)
        printA(" USER ", 7, 1, false, menutc, menubc)
        printA(" REDNET ", 14, 1, false, menutc, menubc)
        printA(" MISC ", 23, 1, false, menutc, menubc)
        setCol(texttc, textbc)

        printC("Please select a category", 4, false, texttc, textbc)
        printC("to view the available options.", 5, false, texttc, textbc)
        printA("Press 'RUN' next to each option to toggle it. Each", 1, 12, false, "blue", textbc)
        printA("box next to run will display either yellow or red,", 1, 13, false, "blue", textbc)
        printA("this defines the current state of that option, for", 1, 14, false, "blue", textbc)
        printA("example: a yellow box indicates the option is true", 1, 15, false, "blue", textbc)
        printA("or on, as for the red box means off or false.", 1, 16, false, "blue", textbc)
        printA("All options are in beta and may or may not work!", 2, 18, false, "lime", textbc)
        term.setCursorPos(1,2)

        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                drawTaskbar()
            elseif args[1] == "mouse_click" then
                if (args[3] >= 1 and args[3] <= 3) and (args[4] == 19) then
                    deskMenu("go")
                    local args1 = { os.pullEvent("mouse_click") }
                    if args[2] == 1 then
                        if (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 14) then
                            addons("view")
                            break
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 15) then
                            cpanel()
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 16) then
                            filebrowser()
                            table.insert(recentTasks, "File Browser")
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 17) then
                            deskMenu("games")
                            local args2 = { os.pullEvent("mouse_click") }
                            if args2[2] == 1 then
                                if (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 15) then
                                    table.insert(recentTasks, "Lazers")
                                    game_lazers()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 16) then
                                    table.insert(recentTasks, "Stacker")
                                    game_stacker()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 17) then
                                    table.insert(recentTasks, "Project Alpha")
                                    game_alpha()
                                else
                                    deskMenu("clear", "cpanel")
                                end
                            end
                        elseif (args1[3] >= 1 and args1[3] <= 11) and (args1[4] == 18) then
                            deskMenu("programs")
                            local args2 = { os.pullEvent("mouse_click") }
                            if args2[2] == 1 then
                                if (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 12) then
                                    table.insert(recentTasks, "Blaze Email Client")
                                    blaze_main()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 13) then
                                    table.insert(recentTasks, "L2P Live Email Client")
                                    liveemail()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 14) then
                                    table.insert(recentTasks, "SHA256 Test")
                                    sha256test()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 15) then
                                    table.insert(recentTasks, "Trasmit")
                                    transmit("display")
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 16) then
                                    table.insert(recentTasks, "Ink")
                                    ink()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 17) then
                                    table.insert(recentTasks, "Sketch")
                                    sketch()
                                elseif (args2[3] >= 12 and args2[3] <= 23) and (args2[4] == 18) then
                                    table.insert(recentTasks, "LuaIDE")
                                    luaide()
                                else
                                    deskMenu("clear", "cpanel")
                                end
                            end
                        else
                            deskMenu("clear", "cpanel")
                        end
                    end
                elseif (args[3] >= 2 and args[3] <= 5) and (args[4] == 1) then
                    -- OS
                    cpanel("OS")
                    break
                elseif (args[3] >= 7 and args[3] <= 12) and (args[4] == 1) then
                    -- User
                    cpanel("USER")
                    break
                elseif (args[3] >= 14 and args[3] <= 21) and (args[4] == 1) then
                    -- Rednet
                    cpanel("REDNET")
                    break
                elseif (args[3] >= 23 and args[3] <= 28) and (args[4] == 1) then
                    -- Misc
                    cpanel("MISC")
                    break
                elseif (args[3] >= 45 and args[3] <= 50) and (args[4] == 1) then
                    home()
                end
            end
        end
    end
end

function test256()
    -- Test the SHA256 hashing algorithm
end

function vdeShell()
    -- Runs VDE's Own Shell
    tHelpTopics = {"move", "copy", "delete", "help", "vde", "time", "addUser", "shell", "dir", "mkdir", "redraw", "addons", "apps", "fsCore", "fsLibs", "users", "themes", "fsConfig", "loginHTTP", "loginLOCAL", "lua",}
    -- Help Topics Content
    sHelp = {
        move = "This allows you to move files from one place to another, the usage is as follows: #move <old_path> <new_path>.",
        copy = "This will copy a file by specifying two paths, the old file path and the copied file path, usage: #copy <old_path> <copied_path>.",
        delete = "This will delete a file, make sure to use the file path, usage: #delete <file_path>.",
        help = "This is the help menu, to see available help topics type: #help, to see a certain help topic use the following: #help <topic>.",
        vde = "This will return you to the home desktop of VDE.",
        time = "This will print the current Minecraft time.",
        addUser = "This will add a new user to the database, usage: #addUser <username> <password>.",
        shell = "This will run a craftos shell command, usage: #shell <command>.",
        dir = "This will print the contents of a directory, usage: #dir <directory_path>.",
        mkdir = "This will create a new directory, usage: #mkdir <new_directory_path>.",
        redraw = "This will redraw the shell as it may end up running into a problem while executing commands.",
        addons = "These are small programs that are loaded upon system boot, which in turn will allow users to add extras to the environment, making it more productive.",
        apps = "Apps are programs that are installed to the system. So if you take the LuaIDE app, this is a program made by someone but has been edited the slightest to allow it to run completely in a function of the environment.",
        fsCore = "FileSystem - Core: This is simple just a folder in the root directory, this will be installed on OS intilisation, it is accessed most of the time, for configuration files, or for caching for the environment.",
        fsLibs = "FileSystem - Libs: This is the libraries folder, this will contain API's or other programs that will give the console more functionality, so the OS could run the program with an argument and it will load the desired library allowing the OS to use more API's and functions to control more things, at the moment, the OS uses libs to connect to SGCraft and/or LanteaCraft.",
        users = "Users: A user is just a security method to allow users to login to all the applications on the environment. For example included with the OS is Blaze Email Client, this will auto-log you in when the app is run because the User Database is the same database for all of my HTTP based programs!",
        themes = "These are themes that can be run on the OS, that allows you to retexture the whole OS or give it a completely new UI. The OS is loadable via API, so you can run the functions contained in it.",
        fsConfig = "These are the config files, these of course are accessed and edited by VDE a lot so if you change one, make sure to reboot the OS, straight after, otherwise it may overwrite the file in the next process.",
        loginHTTP = "This is a login based on the User Database on my web server, this is all done via a small internal API that will connect.",
        loginLOCAL = "This is a login based on a local table, allowing you to still have multiple local users, this won't use the HTTP based login, but is good to have as a backup in-case you don't have internet access.",
        lua = "This is a prompt lua execution script, allowing you to input code and it will be executed on the fly, it has two usages and expects one argument, the following arguments are: 'prompt' = Run Lua on the fly, or 'ide' = to start LuaIDE. Usage: lua <argument1>.",
    }

    cs()
    colourScreen()
    drawBox(1, 51, 1, 1, " ", "blue", "grey")
    printC(" VDE Shell -> Version 1.1 ", 1, false, "blue", "lightGrey")
    printC("Use the prefix: # for commands", 2, false, "lime", "white")
    term.setCursorPos(1,3)
    setCol("black", "white")
    while true do
        write("> ")
        local cmd = tostring(read())
        tempX, tempY = term.getCursorPos()
        tCmd = {}
        for id in cmd:gmatch("%S+") do
            table.insert(tCmd, id)
        end
        if tCmd[1] == "#copy" then
            -- Copy file
            if #tCmd == 3 then
                fs.copy(tCmds[2], tCmds[3])
            else
                print("> Wrong Usage - Use '#help' for more info!")
            end
        elseif tCmd[1] == "#move" then
            -- Move file
            if #tCmd[1] == 3 then
                fs.move(tCmds[2], tCmds[3])
            else
                print("> Wrong Usage - Use '#help' for more info!")
            end
        elseif tCmd[1] == "#delete" then
            if #tCmd == 2 then
                fs.delete(tCmds[2])
            else
                print("> Wrong Usage - Use '#help' for more info!")
            end
        elseif tCmd[1] == "#help" then
            -- Display help
            if #tCmd == 1 then
                print("> Available Help Topics:")
                tData1 = {}
                for _,v in ipairs(tHelpTopics) do
                    table.insert(tData1, v)
                end
                setCol("red", "white")
                print(table.concat(tData1, ", "))
                setCol("black", "white")
            elseif #tCmd >= 2 then
                for _, v in ipairs(wordwrap(sHelp[tCmd[2]], 51)) do
                    print(v)
                end
            end

        elseif tCmd[1] == "#vde" then
            home()
            break
        elseif tCmd[1] == "#time" then
            print("Current Time: "..textutils.formatTime(os.time()))
            print("Current Day: "..tostring(os.day()))
        elseif tCmd[1] == "#shell" then
            -- Run craftos shell command
            if #tCmd >= 2 then
                newCmd = string.gsub(cmd, "#shell", "fg")
                shell.run(newCmd)
                vdeShell()
            else
                print("> Wrong Usage: Use '#help' for more info!")
            end
        elseif tCmd[1] == "#addUser" then
            -- Show controls for users
            if tCmd >= 3 then
                local status = DBControl("insert", args[2], args[3])
                if status then
                    print("> Successfully added user")
                else
                    print("> Error occured while adding user")
                end
            else
                print("> Wrong Usage - Use '#help' for more info!")
            end
        elseif tCmd[1] == "#dir" then
            if #tCmd >= 2 then
                local tFiles = fs.list(tCmd[2])
                for _,v in ipairs(tFiles) do
                    if fs.isDir(v) then
                        setCol("green", "white")
                        print(v)
                    else
                        setCol("blue", "white")
                        print(v)
                    end
                    setCol("black", "white")
                end
            else
                print("> Wrong Usage - Use '#help' for more info!")
            end
        elseif tCmd[1] == "#mkdir" then
            if #tCmd >= 2 then
                fs.makeDir(tCmd[2])
            else
                print("> Wrong Usage - Use '#help' for more info!")
            end
        elseif tCmd[1] == "#redraw" then
            vdeShell()
        elseif tCmd[1] == "#lua" then
            if #tCmd >= 2 then
                if tCmd[2] == "prompt" then
                    VDELua("prompt")
                    break
                elseif tCmd[2] == "ide" then
                    luaide()
                    break
                end
            else
                print("> Wrong Usage - Use '#help' for more info!")
            end
        end
    end
end

function launcher()
    drawBox(6, 39, 7, 4, " ", "blue", "grey")
    drawBox(6, 39, 8, 2, " ", "blue", "grey")
    drawBox(8, 35, 9, 1, " ", "white", "white")
    printC(" Specify Program's Full Path: ", 7, false, "red", "lightGrey")
    setCol("black", "white")
    term.setCursorPos(8,9)
    write("> ")
    local cmd = tostring(read())
    shell.run("fg "..cmd)
    sleep(1)
    home()
end

function addons(cmd, name)
    addonsPath = "/core/addons"
    addonsList = {"bluetooth", "calculator", "local_login", "external_login", "cloud_storage",}

    if cmd == "view" then
        local menutc = "blue"
        local menubc = "grey"
        local menuex = "lightGrey"
        local backbc = "white"
        local backtc = "black"
        cs()
        drawTaskbar(false)
        drawBox(1, 51, 1, 1, " ", menutc, menubc)
        drawBox(2, 5, 1, 1, " ", menutc, menuex)
        printA("ADD", 3, 1, false, menutc, menuex)
        drawBox(8, 5, 1, 1, " ", menutc, menuex)
        printA("RUN", 9, 1, false, menutc, menuex)
        drawBox(14, 5, 1, 1, " ", menutc, menuex)
        printA("DEL", 15, 1, false, menutc, menuex)
        drawBox(20, 6, 1, 1, " ", menutc, menuex)
        printA("HOME", 21, 1, false, menutc, menuex)

        -- Draw Table
        drawBox(1, 51, 2, 17, " ", menutc, "cyan")
        drawBox(26, 1, 2, 17, " ", menutc, "cyan")
        printA("ID: NAME", 2, 2, false, "lime", "cyan")
        printA("ID: NAME", 27, 2, false, "lime", "cyan")
        printC("Only First 30 Displayed", 18, false, "lime", "cyan")

        -- Draw Background
        drawBox(2, 24, 3, 2, " ", backtc, backbc)
        drawBox(2, 24, 5, 2, " ", backtc, backbc)
        drawBox(2, 24, 7, 2, " ", backtc, backbc)
        drawBox(2, 24, 9, 2, " ", backtc, backbc)
        drawBox(2, 24, 11, 2, " ", backtc, backbc)
        drawBox(2, 24, 13, 2, " ", backtc, backbc)
        drawBox(2, 24, 15, 2, " ", backtc, backbc)
        drawBox(2, 24, 17, 1, " ", backtc, backbc)
        drawBox(27, 24, 3, 2, " ", backtc, backbc)
        drawBox(27, 24, 5, 2, " ", backtc, backbc)
        drawBox(27, 24, 7, 2, " ", backtc, backbc)
        drawBox(27, 24, 9, 2, " ", backtc, backbc)
        drawBox(27, 24, 11, 2, " ", backtc, backbc)
        drawBox(27, 24, 13, 2, " ", backtc, backbc)
        drawBox(27, 24, 15, 2, " ", backtc, backbc)
        drawBox(27, 24, 17, 1, " ", backtc, backbc)
        setCol(backtc, backbc)

        -- Addons Data List
        local addonsList = fs.list(addonsPath)

        -- Draw Addon View
        intX = 2
        intY = 3

        for k, v in ipairs(addonsList) do
            term.setCursorPos(intX, intY)
            print(k..": "..v)
            intY = intY + 1
            if intY == 18 then
                intX = 27
                intY = 3
                if intX == 27 and intY == 18 then
                    break
                end
            end
        end

        while true do
            local args = { os.pullEvent() }
            if args[1] == "timer" then
                drawTaskbar(false)
            elseif args[1] == "mouse_click" then
                if (args[3] >= 2 and args[3] <= 6) and (args[4] == 1) then
                    addons("get")
                    break
                elseif (args[3] >= 8 and args[3] <= 12) and (args[4] == 1) then
                    addons("load")
                    break
                elseif (args[3] >= 14 and args[3] <= 18) and (args[4] == 1) then
                    addons("delete")
                    break
                elseif (args[3] >= 20 and args[3] <= 26) and (args[4] == 1) then
                    home()
                    break
                end
            end
        end
    elseif cmd == "load" then
        local menutc = "blue"
        local menubc = "grey"
        local menuex = "lightGrey"
        local backbc = "white"
        local backtc = "black"
        cs()
        drawTaskbar(false)
        drawBox(1, 51, 1, 18, " ", "lime", "cyan")
        printC(">> Run Addon <<", 1, false, "lime", "cyan")
        drawBox(1, 51, 2, 1, " ", backtc, backbc)
        drawBox(1, 51, 3, 2, " ", backtc, backbc)
        drawBox(1, 51, 5, 2, " ", backtc, backbc)
        drawBox(1, 51, 7, 2, " ", backtc, backbc)
        drawBox(1, 51, 9, 2, " ", backtc, backbc)
        drawBox(1, 51, 11, 2, " ", backtc, backbc)
        drawBox(1, 51, 13, 2, " ", backtc, backbc)
        drawBox(1, 51, 15, 2, " ", backtc, backbc)
        drawBox(1, 51, 17, 2, " ", backtc, backbc)
        term.setCursorPos(1,3)
        setCol(backtc, backbc)
        print("> File name of addon to run:")
        write(": ")
        local fileName = tostring(read())
        print(" ")
        if fs.exists(addonsPath.."/"..fileName) then
            print("> File exists, attempting to run...")
            shell.run("bg "..addonsPath.."/"..fileName)
        else
            print("> File doesn't exists, return to addons...")
            sleep(1.5)
            addons("view")
        end
    elseif cmd == "get" then
        local menutc = "blue"
        local menubc = "grey"
        local menuex = "lightGrey"
        local backbc = "white"
        local backtc = "black"
        cs()
        drawTaskbar(false)
        drawBox(1, 51, 1, 18, " ", "lime", "cyan")
        printC(">> Download Addon <<", 1, false, "lime", "cyan")
        drawBox(1, 51, 2, 1, " ", backtc, backbc)
        drawBox(1, 51, 3, 2, " ", backtc, backbc)
        drawBox(1, 51, 5, 2, " ", backtc, backbc)
        drawBox(1, 51, 7, 2, " ", backtc, backbc)
        drawBox(1, 51, 9, 2, " ", backtc, backbc)
        drawBox(1, 51, 11, 2, " ", backtc, backbc)
        drawBox(1, 51, 13, 2, " ", backtc, backbc)
        drawBox(1, 51, 15, 2, " ", backtc, backbc)
        drawBox(1, 51, 17, 2, " ", backtc, backbc)
        term.setCursorPos(1,3)
        setCol(backtc, backbc)
        print("> Please enter pastebin code:")
        write(": ")
        local pastebinLink = tostring(read())
        print("> Please enter addon name:")
        write(": ")
        local fileName = tostring(read())
        print(" ")
        print("> Attempting to download file...")
        shell.run("pastebin get "..pastebinLink.." "..addonsPath.."/"..fileName)
        print(" ")
        print("> Addon saved as: "..fileName)
        sleep(1.5)
        home()
    elseif cmd == "delete" then
        local menutc = "blue"
        local menubc = "grey"
        local menuex = "lightGrey"
        local backbc = "white"
        local backtc = "black"
        cs()
        drawTaskbar(false)
        drawBox(1, 51, 1, 18, " ", "lime", "cyan")
        printC(">> Delete Addon <<", 1, false, "lime", "cyan")
        drawBox(1, 51, 2, 1, " ", backtc, backbc)
        drawBox(1, 51, 3, 2, " ", backtc, backbc)
        drawBox(1, 51, 5, 2, " ", backtc, backbc)
        drawBox(1, 51, 7, 2, " ", backtc, backbc)
        drawBox(1, 51, 9, 2, " ", backtc, backbc)
        drawBox(1, 51, 11, 2, " ", backtc, backbc)
        drawBox(1, 51, 13, 2, " ", backtc, backbc)
        drawBox(1, 51, 15, 2, " ", backtc, backbc)
        drawBox(1, 51, 17, 2, " ", backtc, backbc)
        term.setCursorPos(1,3)
        setCol(backtc, backbc)
        print("> File name of addon to delete:")
        write(": ")
        local fileName = tostring(read())
        print(" ")
        if fs.exists(addonsPath.."/"..fileName) then
            print("> File exists, attempting to delete...")
            fs.delete(addonsPath.."/"..fileName)
            sleep(1)
            addons("view")
        else
            print("> File doesn't exists, return to addons...")
            sleep(1.5)
            addons("view")
        end
    elseif cmd == "autorun" then
        -- Runs specific addons when loaded
        if name then
            shell.run("bg "..addonsPath.."/"..name)
        end
    end
end

function URLDownload()
    local poptc = "lime"
    local popbc = "cyan"
    local input1tc = "black"
    local input1bc = "white"
    drawBox(1, 51, 7, 4, " ", poptc, popbc)
    drawBox(1, 51, 8, 2, " ", poptc, popbc)
    drawBox(2, 49, 9, 1, " ", input1tc, input1bc)
    printC("URL Downloader - File Path:", 7, false, poptc, popbc)
    setCol(input1tc, input1bc)
    term.setCursorPos(2,9)
    write(": ")
    local input1 = tostring(read())
    printC("URL Downloader - File URL/Pastebin Code:", 7, false, poptc, popbc)
    drawBox(2, 49, 9, 1, " ", input1tc, input1bc)
    setCol(input1tc, input1bc)
    term.setCursorPos(2,9)
    write(": ")
    local input2 = tostring(read())
    if string.len(input2) == 8 then
        -- Pastebin Download
        cs()
        colourScreen()
        term.setCursorPos(1,1)
        setCol(input1tc, input1bc)
        shell.run("pastebin get "..input2.." "..input1)
        sleep(1)
        home()
    else
        -- URL Downloader
        local req = http.post(input2)
        if req then
            local tempFile = fs.open(input1, "w")
            tempFile.write(req.readAll())
            tempFile.close()
            drawPopup("Download Completed!")
            sleep(1)
            home()
        else
            drawPopup("File was empty...")
            sleep(1.5)
            home()
        end
    end
end

function transmit(command)
    tc = "white"
    bc = "black"
    bc2 = "cyan"
    if command == "send" then
        -- Start File Sending
        drawBox(30, 22, 2, 17, " ", tc, bc2)
        drawBox(31, 20, 3, 2, " ", tc, bc)
        drawBox(31, 20, 5, 2, " ", tc, bc)
        drawBox(31, 20, 7, 2, " ", tc, bc)
        drawBox(31, 20, 9, 2, " ", tc, bc)
        drawBox(31, 20, 11, 2, " ", tc, bc)
        drawBox(31, 20, 13, 2, " ", tc, bc)
        drawBox(31, 20, 15, 2, " ", tc, bc)
        drawBox(31, 20, 17, 1, " ", tc, bc)
        printA("Transmit: Send", 34, 2, false, tc, bc2)
        objwin1 = window.create(term.current(), 31, 3, 20, 15, true)
        objwin1.setTextColour(colours.lime)
        objwin1.setCursorPos(1,1)
        objwin1.write("File Path:")
        objwin1.setCursorPos(1,2)
        objwin1.setTextColour(colours.white)
        write(": ")
        local fPath = tostring(read())
        objwin1.setCursorPos(1,3)
        objwin1.setTextColour(colours.lime)
        if fs.exists(fPath) then
            objwin1.write("File Selected!")
            objwin1.setCursorPos(1,4)
            objwin1.write("Receiving PC ID:")
            objwin1.setCursorPos(1,5)
            objwin1.setTextColour(colours.white)
            write(": ")
            local nCompID = tostring(read())
            objwin1.setCursorPos(1,6)
            objwin1.setTextColour(colours.lime)
            objwin1.write("Attempting to send:")
            objwin1.setCursorPos(1,7)
            objwin1.setTextColour(colours.lime)
            objwin1.write(fPath)
            objwin1.setCursorPos(1,8)
            objwin1.setTextColour(colours.lime)
            objwin1.write("to: "..nCompID)
            local tempfile = fs.open(fPath, "r")
            tempfile = textutils.unserialize(tempfile.readAll())
            if rednet.isOpen(modemSide) then
                rednet.send(nCompID, tempfile)
                objwin1.setCursorPos(1,9)
                objwin1.setTextColour(colours.lime)
                objwin1.write("Sent!")
                sleep(1.5)
                home()
            else
                objwin1.setCursorPos(1,9)
                objwin1.setTextColour(colours.lime)
                objwin1.write("Rednet not open")
                sleep(1.5)
                home()
            end
        else
            objwin1.write("File Not Found!")
            objwin1.setCursorPos(1,4)
            objwin1.write("Restarting Home!")
            sleep(1)
            home(1.5)
        end
    elseif command == "receive" then
        -- Start File Receiving
        drawBox(30, 22, 2, 17, " ", tc, bc2)
        drawBox(31, 20, 3, 2, " ", tc, bc)
        drawBox(31, 20, 5, 2, " ", tc, bc)
        drawBox(31, 20, 7, 2, " ", tc, bc)
        drawBox(31, 20, 9, 2, " ", tc, bc)
        drawBox(31, 20, 11, 2, " ", tc, bc)
        drawBox(31, 20, 13, 2, " ", tc, bc)
        drawBox(31, 20, 15, 2, " ", tc, bc)
        drawBox(31, 20, 17, 1, " ", tc, bc)
        printA("Transmit: Receive", 32, 2, false, tc, bc2)
        win1 = window.create(term.current(), 31, 3, 20, 15, true)
        win1.setTextColour(colours.lime)
        win1.setCursorPos(1,1)
        win1.write("File Path:")
        win1.setCursorPos(1,2)
        win1.setTextColour(colours.white)
        write(": ")
        local sName = tostring(read())
        win1.setCursorPos(1,3)
        win1.setTextColour(colours.lime)
        win1.write("Waiting for file...")
        win1.setCursorPos(1,4)
        win1.write("Press 'x' to exit.")

        -- Run Halt
        while true do
            local args = { os.pullEvent() }
            if args[1] == "char" then
                if args[2] == "x" then
                    home()
                end
            elseif args[1] == "rednet_message" then
                win1.setCursorPos(1,5)
                win1.write("Received...")
                local tempfile = fs.open(sName, "w")
                tempfile.write(textutils.unserialize(args[3].readAll()))
                tempfile.close()
                win1.setCursorPos(1,6)
                win1.write("Saved to:")
                win1.setCursorPos(1,7)
                win1.write(sName)
                sleep(1.5)
                home()
            end
        end
    end
end

function main()
    if fs.exists("/core/config/install") then
        VDEControl("run")
    else
        VDEControl("install")
        login()
    end
end

-- Set Globals, Variables and Placeholders
_BLAZEUSER = nil
_BLAZEPASS = nil
_BLAZECMDS = {"login", "getInbox", "register", "delete", "send",}
_BLAZEURLS = {"http://dannysmc.com/files/php/emailsystem.php",}

-- Set Defaults
tc = "black"
bc = "lightGrey"
nVer = 1.1

-- BLAZE API
function BlazeLogin(username, password)
  local req = http.post(_BLAZEURLS[1], "command="..textutils.urlEncode(tostring(_BLAZECMDS[1])).."&".."username="..textutils.urlEncode(tostring(username)).."&".."password="..textutils.urlEncode(tostring(password)))
  return req
end

function BlazeInbox(username, password)
  local req = http.post(_BLAZEURLS[1], "command="..textutils.urlEncode(tostring(_BLAZECMDS[2])).."&".."username="..textutils.urlEncode(tostring(username)).."&".."password="..textutils.urlEncode(tostring(password)))
  return req
end

function BlazeSend(username, password, recipient, subject, message)
  local req = http.post(_BLAZEURLS[1], "command="..textutils.urlEncode(tostring(_BLAZECMDS[5])).."&".."username="..textutils.urlEncode(tostring(username)).."&".."password="..textutils.urlEncode(tostring(password)).."&".."recipient="..textutils.urlEncode(tostring(recipient)).."&".."subject="..textutils.urlEncode(tostring(subject)).."&".."message="..textutils.urlEncode(tostring(message)))
  return req
end

function BlazeDelete(username, password, msgid)
  local req = http.post(_BLAZEURLS[1], "command="..textutils.urlEncode(tostring(_BLAZECMDS[4])).."&".."username="..textutils.urlEncode(tostring(username)).."&".."password="..textutils.urlEncode(tostring(password)).."&".."messageid="..textutils.urlEncode(tostring(msgid)))
  return req
end

function BlazeRegister(username, password, email)
  local req = http.post(_BLAZEURLS[1], "command="..textutils.urlEncode(tostring(_BLAZECMDS[3])).."&".."username="..textutils.urlEncode(tostring(username)).."&".."password="..textutils.urlEncode(tostring(password)).."&".."email="..textutils.urlEncode(tostring(email)))
  return req
end

-- Main Code
function blaze_main()
  if term.isColor() then
    blaze_login()
  end
end

function drawPopup(sText)
  drawBox(1, 51, 7, 1, " ", "lime", "red")
  printC(">> "..sText.." <<", 7, false, "lime", "red")
end

function addressBook(pageNumber)
  local texttc = "black"
  local textbc = "white"
  local gridtc = "white"
  local gridbc = "grey"
  local menutc = "blue"
  local menubc = "lightGrey"
  fs.makeDir("blazeCore/")
  abPath = "blazeCore/addresses"
  if fs.exists(abPath) then
    addresses = db.load(abPath)
  else
    aTable = {
      {
        "Creator",
      },
      {
        "dannysmc95",
      }
    }
    saveConfig(aTable, abPath)
    addresses = loadConfig(abPath)
  end
  cs()
  colourScreen()
  drawMenuBar()
  -- Views all users on the database
  drawBox(1, 51, 2, 18, " ", "black", "black")
  drawBox(2, 49, 3, 16, " ", gridtc, gridbc)
  drawBox(2, 49, 5, 1, " ", gridtc, gridbc)
  drawBox(26, 1, 3, 16, " ", gridtc, gridbc)
  drawBox(3, 23, 4, 1, " ", menutc, menubc)
  drawBox(27, 23, 4, 1, " ", menutc, menubc)
  printA("Custom Name", 4, 4, false, menutc, menubc)
  printA("Username Address", 28, 4, false, menutc, menubc)
  drawBox(4, 5, 18, 1, " ", menutc, menubc)
  printA("ADD", 5, 18, false, menutc, menubc)
  drawBox(28, 21, 18, 1, " ", menutc, menubc)
  printA("Right-Click Deletes", 29, 18, false, menutc, menubc)
  countY = 6

  for k, v in ipairs(addresses[1]) do
    printA(v, 3, countY, false, texttc, textbc)
    countY = countY + 1
  end

  countY = 6
  for k, v in ipairs(addresses[2]) do
    printA(v, 27, countY, false, texttc, textbc)
    countY = countY + 1
  end

  while true do
    local args = { os.pullEvent() }
    if args[1] == "timer" then
      drawMenuBar()
    end
    if args[1] == "mouse_click" then
      if (args[3] >= 2 and args[3] <= 6) and (args[4] == 1) then
        drawDropdown("new")
      elseif (args[3] >= 2 and args[3] <= 11) and (args[4] == 2) then
        blaze_send()
        break
      elseif (args[3] >= 2 and args[3] <= 11) and (args[4] == 3) then
        addressBook("view")
        break
      elseif (args[3] >= 8 and args[3] <= 14) and (args[4] == 1) then
        blaze_inbox(1)
        break
      elseif (args[3] >= 16 and args[3] <= 25) and (args[4] == 1) then
        blaze_options()
        break
      elseif (args[3] >= 27 and args[3] <= 32) and (args[4] == 1) then
        blaze_help()
        break
      end
      if args[2] == 1 then
        -- Do touch buttons here
        if (args[3] >= 3 and args[3] <= 49) and (args[4] >= 6 and args[4] <= 17) then
          -- Option 1
          intPos = args[4] - 5
          if #addresses[2] == intPos then
            sendRecipient = addresses[2][intPos]
            blaze_send()
            break
          end
        elseif (args[3] >= 4 and args[3] <= 9) and (args[4] == 18) then
          cs()
          colourScreen()
          term.setCursorPos(1,1)
          setCol(texttc, textbc)
          print("Address Book -> Add User")
          print(" ")
          print("> Custom Name: ")
          write(": ")
          local customName = tostring(read())
          print("> Address Name: ")
          write(": ")
          local addressName = tostring(read())
          table.insert(addresses[1], customName)
          table.insert(addresses[2], addressName)
          saveConfig(addresses, abPath)
          addressBook()
        end
      elseif args[2] == 2 then
        if (args[3] >= 4 and args[3] <= 8) and (args[4] >= 6 and args[4] <= 17) then
         intPos = args[4] - 5
         if #addresses[2] == intPos then
            table.remove(addresses[1], intPos)
            table.remove(addresses[2], intPos)
            saveConfig(addresses, abPath)
            addressBook()
          end
        end
      end
    end
  end
end

function drawMenuBar()
  menutc = "blue"
  menubc = "lightGrey"
  selectedtc = "lime"
  inboxbc = "white"
  gridbc = "grey"
  drawBox(1, 51, 1, 1, " ", tc, gridbc)
  drawBox(2, 5, 1, 1, " ", menutc, menubc)
  printA("NEW", 3, 1, false, menutc, menubc)
  drawBox(8, 7, 1, 1, " ", menutc, menubc)
  printA("INBOX", 9, 1, false, menutc, menubc)
  drawBox(16, 10, 1, 1, " ", menutc, menubc)
  printA("SETTINGS", 17, 1, false, menutc, menubc)
  drawBox(27, 6, 1, 1, " ", menutc, menubc)
  printA("HELP", 28, 1, false, menutc, menubc)
  drawBox(44, 7, 1, 1, " ", menutc, menubc)
  printA(time(), 45, 1, false, menutc, menubc)
end

function blaze_inbox(inboxNumber)
  refreshCount = 300
  menutc = "blue"
  menubc = "lightGrey"
  selectedtc = "lime"
  inboxbc = "white"
  gridbc = "grey"
  cs()
  colourScreen()
  printA("No Message Selected!", 28, 11, false, "black", "white")
  drawMenuBar()
  drawBox(8, 7, 1, 1, " ", menutc, menubc)
  printA("INBOX", 9, 1, false, selectedtc, menubc)

  -- Attempt to grab the users inbox:
  local tData = BlazeInbox(username, password)
  inbox = tData
  inbox = inbox.readAll()
  inbox = textutils.unserialize(inbox)
  local status, err = pcall(function() test123 = #inbox end)
  if status then
    inboxEmpty = false
  else
    inboxEmpty = true
  end

  -- Draw Inbox Grid
  drawBox(20, 1, 2, 18, " ", tc, gridbc)
  drawBox(1, 20, 2, 1, " ", tc, gridbc)
  drawBox(1, 20, 6, 1, " ", tc, gridbc)
  drawBox(1, 20, 10, 1, " ", tc, gridbc)
  drawBox(1, 20, 14, 1, " ", tc, gridbc)
  drawBox(1, 20, 18, 1, " ", tc, gridbc)
  drawBox(1, 20, 19, 1, " ", tc, gridbc)
  drawBox(2, 4, 19, 1, " ", menutc, menubc)
  drawBox(16, 4, 19, 1, " ", menutc, menubc)
  printA("<-", 3, 19, false, menutc, menubc)
  printA("->", 17, 19, false, menutc, menubc)

  -- Draw refresh timer
  drawBox(34, 5, 1, 1, " ", menutc, menubc)
  printA(tostring(refreshCount), 35, 1, false, menutc, menubc)

  -- Page Logic Counter
  if inboxEmpty == false then
    inboxCount = #inbox
    if inboxCount >= 1 then
      inboxPages = 1
    elseif inboxCount > 4 and inboxCount <= 8 then
      inboxPages = 2
    elseif inboxCount > 8 and inboxCount <= 12 then
      inboxPages = 3
    elseif inboxCount > 12 and inboxCount <= 16 then
      inboxPages = 4
    elseif inboxCount > 16 and inboxCount <= 20 then
      inboxPages = 5
    end

    if inboxNumber == 1 then
      if inboxCount >= 1 then
        printA(inbox[1][1], 1, 3, false, selectedtc, inboxbc)
        printA(inbox[1][3], 1, 4, false, menutc, inboxbc)
        printA(inbox[1][4], 1, 5, false, menutc, inboxbc)
      end
      if inboxCount >= 2 then
        printA(inbox[2][1], 1, 7, false, selectedtc, inboxbc)
        printA(inbox[2][3], 1, 8, false, menutc, inboxbc)
        printA(inbox[2][4], 1, 9, false, menutc, inboxbc)
      end
      if inboxCount >= 3 then
        printA(inbox[3][1], 1, 11, false, selectedtc, inboxbc)
        printA(inbox[3][3], 1, 12, false, menutc, inboxbc)
        printA(inbox[3][4], 1, 13, false, menutc, inboxbc)
      end
      if inboxCount >= 4 then
        printA(inbox[4][1], 1, 15, false, selectedtc, inboxbc)
        printA(inbox[4][3], 1, 16, false, menutc, inboxbc)
        printA(inbox[4][4], 1, 17, false, menutc, inboxbc)
      end
    elseif inboxNumber == 2 then
      -- Draw Page 1
      if inboxCount >= 5 then
        printA(inbox[5][1], 1, 3, false, selectedtc, inboxbc)
        printA(inbox[5][3], 5, 4, false, menutc, inboxbc)
        printA(inbox[5][4], 5, 5, false, menutc, inboxbc)
      end
      if inboxCount >= 6 then
        printA(inbox[6][1], 1, 7, false, selectedtc, inboxbc)
        printA(inbox[6][3], 1, 8, false, menutc, inboxbc)
        printA(inbox[6][4], 1, 9, false, menutc, inboxbc)
      end
      if inboxCount >= 7 then
        printA(inbox[7][1], 1, 11, false, selectedtc, inboxbc)
        printA(inbox[7][3], 1, 12, false, menutc, inboxbc)
        printA(inbox[7][4], 1, 13, false, menutc, inboxbc)
      end
      if inboxCount >= 8 then
        printA(inbox[8][1], 1, 15, false, selectedtc, inboxbc)
        printA(inbox[8][3], 1, 16, false, menutc, inboxbc)
        printA(inbox[8][4], 1, 17, false, menutc, inboxbc)
      end
    elseif inboxNumber == 3 then
      -- Draw Page 1
      if inboxCount >= 9 then
        printA(inbox[9][1], 1, 3, false, selectedtc, inboxbc)
        printA(inbox[9][3], 5, 4, false, menutc, inboxbc)
        printA(inbox[9][4], 5, 5, false, menutc, inboxbc)
      end
      if inboxCount >= 10 then
        printA(inbox[10][1], 1, 7, false, selectedtc, inboxbc)
        printA(inbox[10][3], 1, 8, false, menutc, inboxbc)
        printA(inbox[10][4], 1, 9, false, menutc, inboxbc)
      end
      if inboxCount >= 11 then
        printA(inbox[11][1], 1, 11, false, selectedtc, inboxbc)
        printA(inbox[11][3], 1, 12, false, menutc, inboxbc)
        printA(inbox[11][4], 1, 13, false, menutc, inboxbc)
      end
      if inboxCount >= 12 then
        printA(inbox[12][1], 1, 15, false, selectedtc, inboxbc)
        printA(inbox[12][3], 1, 16, false, menutc, inboxbc)
        printA(inbox[12][4], 1, 17, false, menutc, inboxbc)
      end
    elseif inboxNumber == 4 then
      -- Draw Page 1
      if inboxCount >= 13 then
        printA(inbox[13][1], 1, 3, false, selectedtc, inboxbc)
        printA(inbox[13][3], 5, 4, false, menutc, inboxbc)
        printA(inbox[13][4], 5, 5, false, menutc, inboxbc)
      end
      if inboxCount >= 14 then
        printA(inbox[14][1], 1, 7, false, selectedtc, inboxbc)
        printA(inbox[14][3], 1, 8, false, menutc, inboxbc)
        printA(inbox[14][4], 1, 9, false, menutc, inboxbc)
      end
      if inboxCount >= 15 then
        printA(inbox[15][1], 1, 11, false, selectedtc, inboxbc)
        printA(inbox[15][3], 1, 12, false, menutc, inboxbc)
        printA(inbox[15][4], 1, 13, false, menutc, inboxbc)
      end
      if inboxCount >= 16 then
        printA(inbox[16][1], 1, 15, false, selectedtc, inboxbc)
        printA(inbox[16][3], 1, 16, false, menutc, inboxbc)
        printA(inbox[16][4], 1, 17, false, menutc, inboxbc)
      end
    elseif inboxNumber == 5 then
      -- Draw Page 1
      if inboxCount >= 17 then
        printA(inbox[17][1], 1, 3, false, selectedtc, inboxbc)
        printA(inbox[17][3], 5, 4, false, menutc, inboxbc)
        printA(inbox[17][4], 5, 5, false, menutc, inboxbc)
      end
      if inboxCount >= 18 then
        printA(inbox[18][1], 1, 7, false, selectedtc, inboxbc)
        printA(inbox[18][3], 1, 8, false, menutc, inboxbc)
        printA(inbox[18][4], 1, 9, false, menutc, inboxbc)
      end
      if inboxCount >= 19 then
        printA(inbox[19][1], 1, 11, false, selectedtc, inboxbc)
        printA(inbox[19][3], 1, 12, false, menutc, inboxbc)
        printA(inbox[19][4], 1, 13, false, menutc, inboxbc)
      end
      if inboxCount >= 20 then
        printA(inbox[20][1], 1, 15, false, selectedtc, inboxbc)
        printA(inbox[20][3], 1, 16, false, menutc, inboxbc)
        printA(inbox[20][4], 1, 17, false, menutc, inboxbc)
      end
    end
  end
  drawBox(8, 6, 19, 1, " ", menutc, menubc)
  printA(inboxNumber.."/5", 9, 19, false, menutc, menubc)
  while true do
    local args = { os.pullEvent() }
    if args[1] == "timer" then
      drawBox(44, 7, 1, 1, " ", menutc, menubc)
      printA(time(), 45, 1, false, menutc, menubc)
      drawBox(34, 5, 1, 1, " ", menutc, menubc)
      printA(tostring(refreshCount), 35, 1, false, menutc, menubc)
      refreshCount = refreshCount - 1
      if refreshCount == 0 then
        refreshCount = 300
        blaze_inbox(1)
      end
    elseif args[1] == "mouse_click" then
      if (args[3] >= 2 and args[3] <= 6) and (args[4] == 1) then
        drawDropdown("new")
      elseif (args[3] >= 2 and args[3] <= 11) and (args[4] == 2) then
        blaze_send()
        break
      elseif (args[3] >= 2 and args[3] <= 11) and (args[4] == 3) then
        addressBook("view")
        break
      elseif (args[3] >= 8 and args[3] <= 14) and (args[4] == 1) then
        blaze_inbox(1)
        break
      elseif (args[3] >= 16 and args[3] <= 25) and (args[4] == 1) then
        blaze_options()
        break
      elseif (args[3] >= 27 and args[3] <= 32) and (args[4] == 1) then
        blaze_help()
        break
      elseif (args[3] >= 3 and args[3] <= 48) and (args[4] == 7) then
        -- Do Update
        blaze_update()
        break
      elseif (args[3] >= 16 and args[3] <= 19) and (args[4] == 19) then
        if inboxNumber <= 4 then
          blaze_inbox(inboxNumber + 1)
        end
      elseif (args[3] >= 2 and args[3] <= 5) and (args[4] == 19) then
        if inboxNumber >= 2 then
          blaze_inbox(inboxNumber - 1)
        end
      elseif (args[3] >= 23 and args[3] <= 29) and (args[4] == 18) then
        sendRecipient = inbox[msgID1][3]
        blaze_send()
        break
      elseif (args[3] >= 42 and args[3] <= 48) and (args[4] == 18) then
        BlazeDelete(username, password, msgID)
        blaze_inbox(1)
        break
      end
      -- Do Inbox Logic
      if inboxNumber == 1 then
        if (args[3] >= 1 and args[3] <= 19) and (args[4] >= 3 and args[4] <= 5) then
          openMessage(1)
          msgID = inbox[1][1]
        elseif (args[3] >= 1 and args[3] <= 19) and (args[4] >= 7 and args[4] <= 9) then
          openMessage(2)
          msgID = inbox[2][1]
        elseif (args[3] >= 1 and args[3] <= 19) and (args[4] >= 11 and args[4] <= 13) then
          openMessage(3)
          msgID = inbox[3][1]
        elseif (args[3] >= 1 and args[3] <= 19) and (args[4] >= 15 and args[4] <= 17) then
          openMessage(4)
          msgID = inbox[4][1]
        end
      elseif inboxNumber == 2 then
        -- Allow Message Choosing for Page 2
        if (args[3] >= 1 and args[3] <= 19) and (args[4] >= 3 and args[4] <= 5) then
          openMessage(5)
          msgID = inbox[5][1]
        elseif (args[3] >= 1 and args[3] <= 19) and (args[4] >= 7 and args[4] <= 9) then
          openMessage(6)
          msgID = inbox[6][1]
        elseif (args[3] >= 1 and args[3] <= 19) and (args[4] >= 11 and args[4] <= 13) then
          openMessage(7)
          msgID = inbox[7][1]
        elseif (args[3] >= 1 and args[3] <= 19) and (args[4] >= 15 and args[4] <= 17) then
          openMessage(8)
          msgID = inbox[8][1]
        end
      elseif inboxNumber == 3 then
        -- Allow Message Choosing for Page 3
        if (args[3] >= 1 and args[3] <= 19) and (args[4] >= 3 and args[4] <= 5) then
          openMessage(9)
          msgID = inbox[9][1]
        elseif (args[3] >= 1 and args[3] <= 19) and (args[4] >= 7 and args[4] <= 9) then
          openMessage(10)
          msgID = inbox[10][1]
        elseif (args[3] >= 1 and args[3] <= 19) and (args[4] >= 11 and args[4] <= 13) then
          openMessage(11)
          msgID = inbox[11][1]
        elseif (args[3] >= 1 and args[3] <= 19) and (args[4] >= 15 and args[4] <= 17) then
          openMessage(12)
          msgID = inbox[12][1]
        end
      elseif inboxNumber == 4 then
        -- Allow Message Choosing for Page 4
        if (args[3] >= 1 and args[3] <= 19) and (args[4] >= 3 and args[4] <= 5) then
          openMessage(13)
          msgID = inbox[13][1]
        elseif (args[3] >= 1 and args[3] <= 19) and (args[4] >= 7 and args[4] <= 9) then
          openMessage(14)
          msgID = inbox[14][1]
        elseif (args[3] >= 1 and args[3] <= 19) and (args[4] >= 11 and args[4] <= 13) then
          openMessage(15)
          msgID = inbox[15][1]
        elseif (args[3] >= 1 and args[3] <= 19) and (args[4] >= 15 and args[4] <= 17) then
          openMessage(16)
          msgID = inbox[16][1]
        end
      elseif inboxNumber == 5 then
        -- Allow Message Choosing for Page 5
        if (args[3] >= 1 and args[3] <= 19) and (args[4] >= 3 and args[4] <= 5) then
          openMessage(17)
          msgID = inbox[17][1]
        elseif (args[3] >= 1 and args[3] <= 19) and (args[4] >= 7 and args[4] <= 9) then
          openMessage(18)
          msgID = inbox[18][1]
        elseif (args[3] >= 1 and args[3] <= 19) and (args[4] >= 11 and args[4] <= 13) then
          openMessage(19)
          msgID = inbox[19][1]
        elseif (args[3] >= 1 and args[3] <= 19) and (args[4] >= 15 and args[4] <= 17) then
          openMessage(20)
          msgID = inbox[20][1]
        end
      end
    end
  end
end

function openMessage(intID)
  msgID1 = intID
  local texttc = "black"
  local textbc = "white"
  local gridtc = "white"
  local gridbc = "grey"
  local menutc = "blue"
  local menubc = "lightGrey"
  setCol(texttc, textbc)
  local count1 = 2
  repeat
    term.setCursorPos(21, count1)
    write("                               ")
    count1 = count1 + 1
  until count1 == 19
  drawBox(21, 31, 2, 18, " ", "black", "black")
  drawBox(22, 29, 3, 16, " ", gridtc, gridbc)
  drawBox(22, 29, 7, 1, " ", gridtc, gridbc)
  drawBox(22, 29, 18, 1, " ", gridtc, gridbc)
  drawBox(23, 7, 18, 1, " ", menutc, menubc)
  drawBox(42, 8, 18, 1, " ", menutc, menubc)
  drawBox(31, 1, 4, 3, " ", gridtc, gridbc)
  printA("REPLY", 24, 18, false, menutc, menubc)
  printA("DELETE", 43, 18, false, menutc, menubc)
  printA("Sender:", 23, 4, false, texttc, textbc)
  printA("Subject:", 23, 5, false, texttc, textbc)
  printA(inbox[intID][3], 32, 4, false, texttc, textbc)
  local count1 = 5
  local tSubject = wordwrap(inbox[intID][4], 18)
  for _, v in ipairs(tSubject) do
    term.setCursorPos(32, count1)
    write(v)
    count1 = count1 + 1
  end
  printA(inbox[intID][4], 32, 5, false, texttc, textbc)
  setCol(texttc, textbc)
  local count1 = 8
  local tMessage = wordwrap(inbox[intID][5], 27)
  for _,v in ipairs(tMessage) do
    term.setCursorPos(23, count1)
    write(v)
    count1 = count1 + 1
  end
  printA("Message ID: "..inbox[intID][1], 23, 3, false, "lime", gridbc)
end

function drawDropdown(sMenu, intY)
  if sMenu == "new" then
    drawBox(2, 9, 2, 2, " ", menutc, menubc)
    printA("Message", 3, 2, false, menutc, menubc)
    printA("Contact", 3, 3, false, menutc, menubc)
  end
end

function blaze_send()
  gridtc = "white"
  gridbc = "grey"
  texttc = "black"
  textbc = "white"
  menutc = "blue"
  menubc = "lightgrey"
  cs()
  colourScreen()
  drawMenuBar()
  printA("NEW", 3, 1, false, selectedtc, menubc)
  drawBox(1, 51, 4, 1, " ", gridtc, gridbc)
  drawBox(12, 1, 2, 3, " ", gridtc, gridbc)
  printA("To:", 1, 2, false, texttc, textbc)
  if sendRecipient then
    printA(sendRecipient, 14, 2, false, texttc, textbc)
  end
  sendSubject = nil
  printA("Subject:", 1, 3, false, texttc, textbc)
  printC("Message Contents (MAX 200 CHARS)", 4, false, gridtc, gridbc)
  drawBox(46, 1, 2, 3, " ", gridtc, gridbc)
  printA("MAX:1", 47, 2, false, texttc, textbc)
  printA("<= 16", 47, 3, false, texttc, textbc)

  drawBox(1, 51, 19, 1, " ", gridtc, gridbc)
  drawBox(2, 6, 19, 1, " ", menutc, menubc)
  printA("SEND", 3, 19, false, menutc, menubc)
  drawBox(10, 7, 19, 1, " ", menutc, menubc)
  printA("CLEAR", 11, 19, false, menutc, menubc)
  drawBox(42, 8, 19, 1, " ", menutc, menubc)
  printA("CANCEL", 43, 19, false, menutc, menubc)

  while true do
    local args = { os.pullEvent() }
    if args[1] == "timer" then
      drawMenuBar()
      printA("NEW", 3, 1, false, selectedtc, menubc)
    elseif args[1] == "mouse_click" then
      if (args[3] >= 42 and args[3] <= 50) and (args[4] == 19) then
        blaze_inbox(1)
        break
      elseif (args[3] >= 2 and args[3] <= 8) and (args[4] == 19) then
        BlazeSend(username, password, sendRecipient, sendSubject, sendMessage)
        drawPopup("Message Sent")
        sleep(1.5)
        blaze_inbox(1)
        break
      elseif args[1] == "mouse_click" then
        if (args[3] >= 2 and args[3] <= 6) and (args[4] == 1) then
        drawDropdown("new")
      elseif (args[3] >= 2 and args[3] <= 11) and (args[4] == 2) then
        blaze_send()
        break
      elseif (args[3] >= 2 and args[3] <= 11) and (args[4] == 3) then
        addressBook("view")
        break
      elseif (args[3] >= 8 and args[3] <= 14) and (args[4] == 1) then
        blaze_inbox(1)
        break
      elseif (args[3] >= 16 and args[3] <= 25) and (args[4] == 1) then
        blaze_options()
        break
      elseif (args[3] >= 27 and args[3] <= 32) and (args[4] == 1) then
        blaze_help()
        break
      elseif (args[3] >= 3 and args[3] <= 48) and (args[4] == 7) then
        -- Do Update
        blaze_update()
        break
      elseif (args[3] >= 23 and args[3] <= 29) and (args[4] == 18) then
        -- Do Back button
        blaze_inbox(1)
        break
        elseif (args[3] >= 13 and args[3] <= 45) and (args[4] == 2) then
          -- Start Recipient Input
          if sendRecipientExist then
            setCol(texttc, textbc)
            term.setCursorPos(13,2)
            write("                                 ")
          end
          setCol(texttc, textbc)
          term.setCursorPos(14,2)
          sendRecipient = read()
          sendRecipientExist = true
        elseif (args[3] >= 13 and args[3] <= 45) and (args[4] == 3) then
          -- Start Subject Input
          if sendSubjectExist then
            setCol(texttc, textbc)
            term.setCursorPos(13,3)
            write("                                 ")
          end
          setCol(texttc, textbc)
          term.setCursorPos(14,3)
          sendSubject = read()
          sendSubjectExist = true
        elseif (args[3] >= 1 and args[3] <= 51) and (args[4] >= 5 and args[4] <= 18) then
          -- Start Message Input
          if sendMessageExist then
            count2 = 5
            repeat
              term.setCursorPos(1, count2)
              setCol("white", "white")
              write("                                                   ")
              count2 = count2 + 1
            until count2 == 19
          end
          setCol("black", "white")
          term.setCursorPos(1, 5)
          sendMessage = read()
          sendMessageExist = true
          term.setCursorPos(1, 5)
          for _, v in ipairs(wordwrap(sendMessage)) do
            print(v)
          end
        end
      end
    end
  end
end

function blaze_options()
  texttc = "black"
  textbc = "white"
  selectedtc = "lime"
  gridtc = "white"
  gridbc = "grey"
  menutc = "blue"
  menubc = "lightGrey"
  cs()
  colourScreen()
  drawMenuBar()
  drawBox(16, 10, 1, 1, " ", menutc, menubc)
  printA("SETTINGS", 17, 1, false, selectedtc, menubc)
  local tOptions = {"1. Register New User", "2. Update Blaze"}
  drawBox(1, 51, 2, 18, " ", "black", "black")
  drawBox(2, 49, 3, 16, " ", gridtc, gridbc)
  drawBox(35, 1, 3, 13, " ", gridtc, gridbc)
  drawBox(2, 49, 15, 1, " ", gridtc, gridbc)
  drawBox(2, 49, 5, 1, " ", gridtc, gridbc)
  drawBox(3, 32, 4, 1, " ", menutc, menubc)
  drawBox(36, 14, 4, 1, " ", menutc, menubc)
  printA("OPTION/FUNCTION NAME", 4, 4, false, menutc, menubc)
  printA("VALUE", 37, 4, false, menutc, menubc)
  printA(tOptions[1], 4, 6, false, menubc, textbc)
  printA(tOptions[2], 4, 7, false, texttc, textbc)
  printA("N/A", 37, 6, false, texttc, textbc)
  printA("N/A", 37, 7, false, texttc, textbc)
  printA("Greyed out options are not yet functional.", 3, 16, false, texttc, textbc)
  printA("N/A applies to functions that can't be changed.", 3, 17, false, texttc, textbc)
  printA(" BACK ", 23, 18, false, menutc, menubc)

  while true do
    local args = { os.pullEvent() }
    if args[1] == "timer" then
      drawMenuBar()
      drawBox(16, 10, 1, 1, " ", menutc, menubc)
      printA("SETTINGS", 17, 1, false, selectedtc, menubc)
      settings1 = true
    elseif args[1] == "mouse_click" then
      if (args[3] >= 2 and args[3] <= 6) and (args[4] == 1) then
        if settings1 then
          settings1 = false
          drawDropdown("new")
        end
      elseif (args[3] >= 2 and args[3] <= 11) and (args[4] == 2) then
        if settings1 then
          settings1 = false
          blaze_send()
          break
        end
      elseif (args[3] >= 2 and args[3] <= 11) and (args[4] == 3) then
        if settings1 then
          settings1 = false
          addressBook("view")
          break
        end
      elseif (args[3] >= 8 and args[3] <= 14) and (args[4] == 1) then
        if settings1 then
          settings1 = false
          blaze_inbox(1)
          break
        end
      elseif (args[3] >= 16 and args[3] <= 25) and (args[4] == 1) then
        if settings1 then
          settings1 = false
          blaze_options()
          break
        end
      elseif (args[3] >= 27 and args[3] <= 32) and (args[4] == 1) then
        if settings1 then
          settings1 = false
          blaze_help()
          break
        end
      elseif (args[3] >= 3 and args[3] <= 48) and (args[4] == 7) then
        -- Do Update
        if settings1 then
          settings1 = false
          blaze_update()
          break
        end
      elseif (args[3] >= 23 and args[3] <= 29) and (args[4] == 18) then
        -- Do Back button
        if settings1 then
          settings1 = false
          blaze_inbox(1)
          break
        end
      end
    end
  end
end

function blaze_update()
  cs()
  colourScreen()
  -- Do Update Stuff Here
  bartc = "blue"
  barbc = "lightGrey"
  texttc = "black"
  textbc = "white"
  drawBox(1, 51, 1, 2, " ", bartc, barbc)
  printA("Blaze Email Client", 1, 1, false, bartc, barbc)
  printC("UPDATING BLAZE", 2, false, bartc, barbc)
  term.setCursorPos(1,4)
  setCol(texttc, textbc)
  print("> Update in progress, please wait")
  sleep(1)
  print("> Grabbing Blaze")
  shell.run("pastebin get VehDCxwR updateBlaze")
  print("> Deleting old file")
  fs.delete("blaze")
  print("> Saving new file")
  shell.run("mv updateBlaze blaze")
  print("> Restarting...")
  sleep(1.5)
  os.reboot()
end

function blaze_help()
  texttc = "black"
  textbc = "white"
  selectedtc = "lime"
  gridtc = "white"
  gridbc = "grey"
  menutc = "blue"
  menubc = "lightGrey"
  cs()
  colourScreen()
  drawMenuBar()
  drawBox(27, 6, 1, 1, " ", menutc, menubc)
  printA("HELP", 28, 1, false, selectedtc, menubc)
  drawBox(1, 51, 2, 18, " ", "black", "black")
  drawBox(2, 49, 3, 16, " ", gridtc, gridbc)
  local sHelp1 = "Created and hosted by DannySMc, Contacts: danny.smc95@gmail.com, Website: http://dannysmc.com. Questions? Contact Danny! Want to use the API? Check on my blog to when it is published. Passwords are secured with SHA265 Hashing algorithm for extra security. This is a beta, so there will likely be many bugs! Please submit them on the ComputerCraft Forums post in the comments."
  local tHelp1 = wordwrap(sHelp1, 47)
  drawBox(22, 6, 3, 1, " ", menutc, menubc)
  printA("HELP", 23, 3, false, menutc, menubc)
  setCol(texttc, textbc)
  local count1 = 4
  for _,v in ipairs(tHelp1) do
    term.setCursorPos(3, count1)
    write(v)
    count1 = count1 + 1
  end

  while true do
    local args = { os.pullEvent() }
    if args[1] == "timer" then
      drawMenuBar()
      drawBox(27, 6, 1, 1, " ", menutc, menubc)
      printA("HELP", 28, 1, false, selectedtc, menubc)
    elseif args[1] == "mouse_click" then
      if (args[3] >= 2 and args[3] <= 6) and (args[4] == 1) then
        drawDropdown("new")
      elseif (args[3] >= 2 and args[3] <= 11) and (args[4] == 2) then
        blaze_send()
        break
      elseif (args[3] >= 2 and args[3] <= 11) and (args[4] == 3) then
        addressBook("view")
        break
      elseif (args[3] >= 8 and args[3] <= 14) and (args[4] == 1) then
        blaze_inbox(1)
        break
      elseif (args[3] >= 16 and args[3] <= 25) and (args[4] == 1) then
        blaze_options()
        break
      elseif (args[3] >= 27 and args[3] <= 32) and (args[4] == 1) then
        blaze_help()
        break
      elseif (args[3] >= 3 and args[3] <= 48) and (args[4] == 7) then
        -- Do Update
        blaze_update()
        break
      elseif (args[3] >= 23 and args[3] <= 29) and (args[4] == 18) then
        -- Do Back button
        blaze_inbox(1)
        break
      end
    end
  end
end

function filebrowser()
    local tArgs = {}
    local ver = "1.4"
    local sTitle = "File Browser"
    local bugTest, norun, dir, showAll
    local _tArgs = {}
    local config = "config/mouse.cfg"

    local temp
    if shell and shell.getRunningProgram then
        temp = shell.getRunningProgram()
    end

    temp = temp or "/bla"
    local localPath = string.sub(temp,1,#temp-string.len(fs.getName(temp)))
    temp = nil -- just because not needed

    -- load config file

    local configSet = {}
    local cnf = {}

    if fs.exists(localPath.."/"..config) then
        local file = fs.open(localPath.."/"..config,"r")
        if file then
            local item = file.readLine()
            while item do
                table.insert(cnf,item)
                item = file.readLine()
            end
            file.close()
        end
    end

    for i = 1,10 do
        local test,data = pcall(textutils.unserialize,cnf[i])
        if test then
            configSet[i] = data
        else
            configSet[i] = nil
        end
    end
    cnf = nil

    -- color configuration work in progress
    local titleBar = configSet[1] or {txt = colors.black,back = colors.blue}
    local addressBar = configSet[2] or {txt = colors.black,back = colors.lightGray}
    local itemWindo = configSet[3] or {txt = colors.black,back = colors.cyan}
    local rcmList = configSet[4] or {txt = colors.black,back = colors.lightGray} -- rcm = Right Click Menu List
    local rcmTitle = configSet[5] or {txt = colors.black,back = colors.blue}
    local dialogTitle = configSet[6] or {txt = colors.black,back = colors.blue}
    local dialogWindo = configSet[7] or {txt = colors.black,back = colors.white}
    local scrollCol = configSet[8] or {off = colors.gray, button = colors.gray,back = colors.lightGray}

    local tIcons = configSet[9] or {
        back = {tCol = "lightGray",bCol = "blue",txt = " < "},
        disk = {tCol = "lime",bCol = "green",txt = "[*]"},
        audio = {tCol = "yellow",bCol = "red",txt = "(o)"},
        folder = {tCol = "lightGray",bCol = "blue",txt = "[=]"},
        file = {tCol = nil ,bCol = nil ,txt = nil}
    }

    local customLaunch = configSet[10] or {
        ["Edit"] = "rom/programs/edit",
        ["Paint"] = "rom/programs/color/paint"
    }

    local function saveCFG(overWrite)
        if not fs.exists(localPath.."/"..config) or overWrite then
            local cnf = {}
            local file = fs.open(localPath.."/"..config,"w")
            if file then
                file.write(textutils.serialize(titleBar).."\n")
                file.write(textutils.serialize(addressBar).."\n")
                file.write(textutils.serialize(itemWindo).."\n")
                file.write(textutils.serialize(rcmList).."\n")
                file.write(textutils.serialize(rcmTitle).."\n")
                file.write(textutils.serialize(dialogTitle).."\n")
                file.write(textutils.serialize(dialogWindo).."\n")
                file.write(textutils.serialize(scrollCol).."\n")
                file.write(textutils.serialize(tIcons).."\n")
                file.write(textutils.serialize(customLaunch).."\n")
                file.close()
            elseif overWrite then
            end
        end
    end

    saveCFG()

    -- end configuration

    local function help()
        print([[Usage: browser [-d] [-h] [-a] [-u] [--debug] [--help] [--dir <dir>] [--all] [--update]
    --debug or -d: enable debug mode
    --help or -h: display this screen
    --dir: define initial directory
    --all or -a: show hidden files
    --update -u: update]])
    end

    local function inBouwndry(clickX,clickY,boxX,boxY,width,hight)
        return ( clickX >= boxX and clickX < boxX + width and clickY >= boxY and clickY < boxY + hight )
    end

    local function update()
        print("Checking for Updates")
        local isHTTP = false
        local response
        if http then
            isHTTP = true
            print("http on")
            response = http.get("http://pastebin.com/raw.php?i=rLbnyM1U")
        end
        local flag = false
        local isNewFlag = false
        local newVerID
        if response and isHTTP then
            print("recived")
            local sInfo = response.readLine()
            print(sInfo)
            while sInfo do
                print(sInfo)
                if flag then
                    if sInfo == ver then
                        print("Mouse File Browser is up to date")
                        break
                    else
                        newVerID = sInfo
                        flag = false
                        isNewFlag = true
                    end
                elseif sInfo == sTitle then
                    flag = true
                elseif isNewFlag then
                    isNewFlag = sInfo
                    response.close()
                    break
                end
                sInfo = response.readLine()
            end
            if isNewFlag then
                print("New vershion avalible "..newVerID)
                print('downloading to Browser')
                if fs.exists("Browser") then
                    write("Browser exists OverWrite Browser Y/N : ")
                    local input = string.lower(read())
                    while input ~= "y" and input ~= "n" do
                        print("y or n required")
                        input = string.lower(read())
                    end
                    if input == "y" then
                        print("Over Writeing Browser")
                        print("Downloading new File")
                        local response = http.get("http://pastebin.com/raw.php?i="..isNewFlag)
                        if response then
                            print("file downloaded")
                            print("installing")
                            fs.delete("Browser")
                            local handel = fs.open("Browser","w")
                            if handel then
                                handel.write(response.readAll())
                                handel.close()
                                print("Update Complete")
                            end
                            response.close()
                        end
                    else
                        print("Update aborted")
                    end
                else
                    print("Downloading new File")
                    local response = http.get("http://pastebin.com/raw.php?i="..isNewFlag)
                    if response then
                        print("file downloaded")
                        print("installing")
                        local handel = fs.open("Browser","w")
                        if handel then
                            handel.write(response.readAll())
                            handel.close()
                            print("Update Complete")
                        end
                        response.close()
                    end
                end
            end
        elseif isHTTP then
            print("Error downloading update file Please contact BigSHinyToys on the CC forums")
            print("http://www.computercraft.info/forums2/index.php?/topic/5509-advanced-computer-mouse-file-browser/")
        elseif not isHTTP then
            print("HTTP API is turned off")
            print("Access Computer Craft Configer and change line")
            print([[enableapi_http {
    # Enable the "http" API on Computers
    general=false
    }
    TO THIS :
    enableapi_http {
    # Enable the "http" API on Computers
    general=true
    }]])
        end
        notCMD = false
        norun = true
    end

    for a = 1, #tArgs do
        if tArgs[a]:sub(1,2) == "--" then
            local cmd = tArgs[a]:sub(3):lower()
            if cmd == "debug" then
                bugTest = true
            elseif cmd == "help" then
                help()
                norun = true
            elseif cmd == "dir" then
                dir = tArgs[a+1]
                a = a + 1
            elseif cmd == "all" then
                showAll = true
            elseif cmd == "update" then
                update()
            end
        elseif tArgs[a]:sub(1,1) == "-" then
            for b = 2, #tArgs[a] do
                cmd = tArgs[a]:sub(b, b)
                if cmd == "d" then
                    bugTest = true
                elseif cmd == "h" then
                    help()
                    norun = true
                elseif cmd == "p" then
                    dir = tArgs[a+1]
                    a = a + 1
                elseif cmd == "a" then
                    showAll = true
                elseif cmd == "u" then
                    update()
                end
            end
        else
            table.insert(_tArgs, tArgs[a])
        end
    end

    if (not dir) and shell and shell.dir then
        dir = shell.dir()
    end

    if dir and shell and shell.resolve then
        dir = shell.resolve(dir)
    end

    dir = dir or "/"

    if bugTest then -- this is that the var is for testing
        print("Dir: "..dir)
        os.startTimer(4)
        os.pullEvent()
    end

    local function clear()
        term.setBackgroundColor(colors.black)
        term.setTextColor(colors.white)
        term.clear()
        term.setCursorBlink(false)
        term.setCursorPos(1,1)
    end

    --[[
            Code thanks to Cruor
            http://www.computercraft.info/forums2/index.php?/topic/5802-support-for-shell/
    ]]--

    local function fixArgs(...)
        local tReturn={}
        local str=table.concat({...}," ")
        local sMatch
        while str and #str>0 do
            if string.sub(str,1,1)=="\"" then
                sMatch, str=string.match(str, "\"(.-)\"%s*(.*)")
            else
                sMatch, str=string.match(str, "(%S+)%s*(.*)")
            end
            table.insert(tReturn,sMatch)
        end
        return tReturn
    end

    --[[ end Cruor function ]]--


    -- modified read made to play nice with coroutines

    local function readMOD( _sReplaceChar, _tHistory,_wdth)
        local sLine = ""
        term.setCursorBlink( true )

        local nHistoryPos = nil
        local nPos = 0
        if _sReplaceChar then
            _sReplaceChar = string.sub( _sReplaceChar, 1, 1 )
        end

        local sx, sy = term.getCursorPos()

        local w, h = term.getSize()
        if _wdth and type(_wdth) == "number" then
            w = sx + _wdth - 1
        end

        local function redraw( _sCustomReplaceChar )
            local nScroll = 0
            if sx + nPos >= w then
                nScroll = (sx + nPos) - w
            end

            term.setCursorPos( sx + _wdth - 1, sy )
            term.write(" ")
            term.setCursorPos( sx, sy )
            local sReplace = _sCustomReplaceChar or _sReplaceChar
            if sReplace then
                term.write( string.rep(sReplace,_wdth) )
            else
                term.write( string.sub( sLine, nScroll + 1 ,nScroll + _wdth) )
            end
            term.setCursorPos( sx + nPos - nScroll, sy )
        end

        while true do
            local sEvent, param = os.pullEvent()
            if sEvent == "char" then
                sLine = string.sub( sLine, 1, nPos ) .. param .. string.sub( sLine, nPos + 1 )
                nPos = nPos + 1
                redraw()

            elseif sEvent == "key" then

                if param == keys.left then
                    -- Left
                    if nPos > 0 then
                        nPos = nPos - 1
                        redraw()
                    end

                elseif param == keys.right then
                    -- Right
                    if nPos < string.len(sLine) then
                        nPos = nPos + 1
                        redraw()
                    end

                elseif param == keys.up or param == keys.down then
                    -- Up or down
                    if _tHistory then
                        redraw(" ");
                        if param == keys.up then
                            -- Up
                            if nHistoryPos == nil then
                                if #_tHistory > 0 then
                                    nHistoryPos = #_tHistory
                                end
                            elseif nHistoryPos > 1 then
                                nHistoryPos = nHistoryPos - 1
                            end
                        else
                            -- Down
                            if nHistoryPos == #_tHistory then
                                nHistoryPos = nil
                            elseif nHistoryPos ~= nil then
                                nHistoryPos = nHistoryPos + 1
                            end
                        end

                        if nHistoryPos then
                            sLine = _tHistory[nHistoryPos]
                            nPos = string.len( sLine )
                        else
                            sLine = ""
                            nPos = 0
                        end
                        redraw()
                    end
                elseif param == keys.backspace then
                    -- Backspace
                    if nPos > 0 then
                        redraw(" ");
                        sLine = string.sub( sLine, 1, nPos - 1 ) .. string.sub( sLine, nPos + 1 )
                        nPos = nPos - 1
                        redraw()
                    end
                elseif param == keys.home then
                    -- Home
                    nPos = 0
                    redraw()
                elseif param == keys.delete then
                    if nPos < string.len(sLine) then
                        redraw(" ");
                        sLine = string.sub( sLine, 1, nPos ) .. string.sub( sLine, nPos + 2 )
                        redraw()
                    end
                elseif param == keys["end"] then
                    -- End
                    nPos = string.len(sLine)
                    redraw()
                end
            elseif sEvent == "redraw" then
                redraw()
            elseif sEvent == "return" then
                term.setCursorBlink( false )
                return sLine
            end
        end

        term.setCursorBlink( false )

        return sLine
    end

    -- end modified read


    local function printC(posX,posY,textCol,backCol,text)
        term.setCursorPos(posX,posY)
        term.setTextColor(colors[textCol] or textCol)
        term.setBackgroundColor(colors[backCol] or backCol)
        term.write(text)
    end

    local function InputBox(title)
        local boxW,boxH = 26,3
        local termX,termY = term.getSize()
        local ofsX,ofsY = math.ceil((termX/2) - (boxW/2)) , math.ceil((termY/2) - (boxH/2)) -- offset from top left
        local options = {"ok","cancel"}

        local selected = 1
        local space = 0
        local range = {}
        for i = 1,#options do
            range[i] = {s = space,f = space + string.len(options[i])}
            space = space + string.len(options[i])+3
        end
        local ofC = (boxW/2) - (space/2)

        local function drawBox()
            printC(ofsX,ofsY,colors.black,colors.blue,string.rep(" ",boxW))
            printC(ofsX+1,ofsY,colors.black,colors.blue,(title or "User Input"))
            printC(ofsX,ofsY+1,colors.black,colors.white,string.rep(" ",boxW))
            printC(ofsX,ofsY+2,colors.black,colors.white,string.rep(" ",boxW))
            printC(ofsX,ofsY+3,colors.black,colors.white,string.rep(" ",boxW))

            for i = 1,#options do
                if i == selected then
                    term.setBackgroundColor(colors.lightGray)
                    term.setCursorPos(range[i].s + ofC + ofsX - 1,ofsY + 3)
                    term.write("["..options[i].."]")
                    term.setBackgroundColor(colors.white)
                    term.write(" ")
                else
                    term.setCursorPos(range[i].s + ofC + ofsX - 1,ofsY + 3)
                    term.write(" "..options[i].." ")
                end
            end

            printC(ofsX+2,ofsY+2,colors.black,colors.lightGray,string.rep(" ",boxW-4))
        end
        drawBox()
        term.setCursorPos(ofsX+2,ofsY+2)
        local co = coroutine.create(function() return readMOD(nil,nil,boxW - 4) end)
        while true do
            local event = {os.pullEvent()}
            if event[1] == "key" or event[1] == "char" then
                if event[2] == 28 then
                    local test,data = coroutine.resume(co,"return")
                    return data
                else
                    coroutine.resume(co,unpack(event))
                end
            elseif event[1] == "mouse_click" then
                if event[4] == ofsY + 3 then
                    for i = 1,#options do
                        if event[3] >= range[i].s + ofC + ofsX - 1 and event[3] <= range[i].f + ofC + ofsX then
                            if options[i] == "ok" then
                                local test,data = coroutine.resume(co,"return")
                                return data
                            elseif options[i] == "cancel" then
                                return false
                            end
                        end
                    end
                end
            end
        end
    end

    local function dialogBox(title,message,options, h, w)
        term.setCursorBlink(false)
        local selected = 1
        title = title or ""
        message = message or ""
        options = options or {}
        local boxW,boxH = (w or 26), (h or 3)
        local termX,termY = term.getSize()
        local ofsX,ofsY = math.ceil((termX/2) - (boxW/2)) , math.ceil((termY/2) - (boxH/2)) -- offset from top left

        local space = 0
        local range = {}
        for i = 1,#options do
            range[i] = {s = space,f = space + string.len(options[i])}
            space = space + string.len(options[i])+3
        end
        local ofC = math.ceil((boxW/2)) - math.ceil((space/2))

        local function drawBox()
            printC(ofsX,ofsY,dialogTitle.txt,dialogTitle.back," "..title..string.rep(" ",boxW-#title-5).."_[]")
            term.setBackgroundColor(colors.red)
            term.setTextColor(colors.white)
            term.write("X")
            printC(ofsX,ofsY+1,dialogWindo.txt,dialogWindo.back,string.sub(" "..message..string.rep(" ",boxW),1,boxW))
            term.setCursorPos(ofsX,ofsY+2)
            term.write(string.rep(" ",boxW))
            term.setCursorPos(ofsX,ofsY+3)
            term.write(string.rep(" ",boxW))
            for i = 1,#options do
                if i == selected then
                    printC(range[i].s + ofC + ofsX - 1,ofsY + 3,"black","lightGray","["..options[i].."]")
                    term.setBackgroundColor(dialogWindo.back)
                    term.setTextColor(dialogWindo.txt)
                    term.write(" ")
                else
                    term.setCursorPos(range[i].s + ofC + ofsX - 1,ofsY + 3)
                    term.write(" "..options[i].." ")
                end
            end
            term.setCursorPos(ofsX + ofC + space,ofsY + 3)
            term.write(string.rep(" ",boxW - (ofC + space)))
            term.setBackgroundColor(colors.black)
            term.setTextColor(colors.white)
        end
        while true do
            drawBox()
            event = {os.pullEvent()}
            if event[1] == "key" then
                if event[2] == 203 then -- left
                    selected = selected - 1
                    if selected < 1 then
                        selected = #options
                    end
                elseif event[2] == 205 then -- right
                    selected = selected + 1
                    if selected > #options then
                        selected = 1
                    end
                elseif event[2] == 28 then -- enter
                    return selected , options[selected]
                end
            elseif event[1] == "mouse_click" then

                if bugTest then term.write("M "..event[2].." X "..event[3].." Y "..event[4].."    ") end

                if event[2] == 1 then
                    if event[4] == ofsY + 3 then
                        for i = 1,#options do
                            if event[3] >= range[i].s + ofC + ofsX - 1 and event[3] <= range[i].f + ofC + ofsX then
                                return i , options[i]
                            end
                        end
                    end
                end
            end
        end
    end

    local flag = true
    local fSlash = "/"
    local path = {dir:match("[^/]+")}
    local function stringPath() -- compacted this a lot
        return fSlash..table.concat(path,fSlash)
    end

    local function osRunSpaces(sFileLocation,...) -- getRunningProgram() ["shell"] = shell
        clear()
        if os.newThread then
            os.newThread(false,...)
        else
        local fProg,probblem = loadfile(sFileLocation)
            if fProg then
                local tEnv = {["shell"] = {}}
                setmetatable(tEnv.shell,{ __index = shell})
                tEnv.shell.getRunningProgram = function()
                    return sFileLocation
                end
                setmetatable(tEnv,{ __index = _G})
                setfenv(fProg,tEnv)
                local test,probblem = pcall(fProg,...)
                if not test then
                    print(probblem)
                    dialogBox("ERROR",tostring(probblem),{"ok"},3,30)
                else
                    return true
                end
            else
                print(probblem)
                dialogBox("ERROR",tostring(probblem),{"ok"},3,30)
            end
        end
    end

    local function rClickMenu(title,tList,tItem,posX,posY)

        term.setCursorBlink(false)
        local BoxTitle = title
        local choices = {}
        local termX,termY = term.getSize()
        local offX,offY

        local width = #BoxTitle + 2
        local hight

        for k,v in pairs(tList) do
            if v ~= nil then
                table.insert(choices,k)
            end
            if width < #k + 2 then
                width = #k + 2
            end
        end

        if #choices == 0 then
            return
        end

        hight = #choices + 1
        table.sort(choices)

        offX,offY = math.ceil((termX/2) - (width/2)),math.ceil((termY/2) - (hight/2))

        if posX and posY then -- offX,offY = posX,posY
            if posX >= termX - width - 1 then
                offX = termX - width - 1
            else
                offX = posX
            end
            if posY >= termY - hight then
                offY = termY - hight
            else
                offY = posY
            end
        end

        local function reDrawer()
            printC(offX,offY,rcmTitle.txt,rcmTitle.back," "..BoxTitle..string.rep(" ",width - #BoxTitle - 1))
            for i = 1,#choices do
                printC(offX,offY + i,rcmList.txt,rcmList.back," "..choices[i]..string.rep(" ",width - #choices[i] - 1))
            end
        end

        while true do
            reDrawer()
            local event = {os.pullEvent()}
            if event[1] == "mouse_click" then
                if event[2] == 1 then -- event[3] = x event[4] = y
                    if event[4] > offY and event[4] < hight + offY and event[3] >= offX and event[3] < width + offX then
                        --dialogBox("ERROR:",type(tList[choices[event[4] - offY]]),{"ok"})
                        if type(tList[choices[event[4] - offY]]) == "function" then
                            return tList[choices[event[4] - offY]](tItem)
                        elseif type(tList[choices[event[4] - offY]]) == "table" then
                            return rClickMenu("Options",tList[choices[event[4] - offY]],tItem,event[3],event[4])
                        elseif type(tList[choices[event[4] - offY]]) == "string" then
                            return osRunSpaces(
                                    unpack(
                                        fixArgs(
                                            tList[choices[event[4] - offY]].." \""..stringPath()..fSlash..tItem.n.."\""
                                        )
                                    )
                                )
                        else
                            dialogBox("ERROR:","somthing up with new rMenu",{"ok"})
                        end
                    else
                        return
                    end
                elseif event[2] == 2 then
                    return
                end
            end
        end

    end

    local function preferences()
        local tItem = {
            {txt = "Title Bar",it = titleBar},
            {txt = "Address Bar",it = addressBar},
            {txt = "Item Windo", it = itemWindo},
            {txt = "Title Right Click Title",it = rcmTitle},
            {txt = "Right Click Menu",it = rcmList},
            {txt = "Title Dialog Box",it = dialogTitle},
            {txt = "Dialog Box",it = dialogWindo},
            {txt = "Scroll Bar",it = scrollCol}
        }
        local topL,topR = 13,5
        local width,hight = 23,6
        local bottomL,bottomR = topL + width,topR + hight

        local listOffset = 0
        local sel = 1
        local otherSel = 1
        local otherItems = {}

        if tItem[sel] then
            for k,v in pairs(tItem[sel].it) do
                table.insert(otherItems,{txt = k,it = v})
            end
        end

        local function draw()
            printC(topL,topR,titleBar.txt,titleBar.back,string.sub(" Preferences "..string.rep(" ",width),1,width))
            for i = 0,12,4 do
                for a = 1,4 do
                    --printC(topL + (a*12)-12 ,topR + ((i+4)/4),4,2^(a+i-1)," "..tostring(2^(a+i-1)))
                    printC(topL + a-1 ,topR + ((i+4)/4),4,2^(a+i-1)," ")
                end
            end
            local sSel = " "
            for i = 1,hight - 2 do
                if i == sel - listOffset then
                    sSel = ">"
                end
                if tItem[i+listOffset] then
                    printC(topL + 4 ,topR + i,colors.black,colors.white,string.sub(sSel..tItem[i+listOffset].txt..string.rep(" ",width),1,width - 4))
                else
                    printC(topL + 4 ,topR + i,colors.black,colors.white,sSel..string.rep(" ",width-5))
                end
                if i == sel - listOffset then
                    sSel = " "
                end
            end
            term.setCursorPos(topL,topR + hight - 1)
            local loop = 1
            local length = 0
                for i = 1,#otherItems do
                    if otherSel == i then
                        sSel = ">"
                    end
                    if colors.black == otherItems[i].it or colors.gray == otherItems[i].it then
                        term.setTextColor(colors.white)
                    else
                        term.setTextColor(colors.black)
                    end
                    term.setBackgroundColor(otherItems[i].it)
                    term.write(sSel..tostring(otherItems[i].txt).." ")
                    length = length + #otherItems[i].txt + 2
                    if otherSel == i then
                        sSel = " "
                    end
                    loop = loop+1
                end
            term.setBackgroundColor(colors.white)
            term.write(string.rep(" ",width - length))
        end
        while true do
            draw()
            local event = {os.pullEvent()}
            if event[1] == "mouse_click" and event[2] == 1 then
                if inBouwndry(event[3],event[4],topL,topR,width,hight) then
                    local inSideX,inSideY = event[3] - topL,event[4] - topR
                    if inBouwndry(inSideX+1,inSideY,1,1,4,4) and tItem[sel] then
                        --[[
                        term.setCursorPos(1,1)
                        term.setBackgroundColor(2^(inSideX + ((inSideY*4)-4)))
                        print(2^(inSideX + ((inSideY*4)-4))," ",inSideX + ((inSideY*4)-4),"     ")
                        ]]--
                        tItem[sel]["it"][otherItems[otherSel].txt] = (2^(inSideX + ((inSideY*4)-4)))
                    end
                end
            elseif event[1] == "key" then
                if event[2] == 200 then
                    sel = sel - 1
                elseif event[2] == 208 then
                    sel = sel + 1
                elseif event[2] == 203 then
                    otherSel = otherSel - 1
                elseif event[2] == 205 then
                    otherSel = otherSel + 1
                elseif event[2] == 28 then
                    if dialogBox("Confirm","Save prefrences?",{"Yes","No"}) == 1 then
                        saveCFG(true)
                    end
                    return
                end
            end
            if sel < 1 then
                sel = 1
            elseif sel > #tItem then
                sel = #tItem
            end
            if sel > listOffset + hight - 2 then
                listOffset = listOffset + 1
            elseif sel - listOffset < 1 then
                listOffset = listOffset - 1
            end

            otherItems = {}
            if tItem[sel] then
                for k,v in pairs(tItem[sel].it) do
                    table.insert(otherItems,{txt = k,it = v})
                end
            end

            if otherSel < 1 then
                otherSel = 1
            elseif otherSel > #otherItems then
                otherSel = #otherItems
            end

            if bugTest then
                term.setBackgroundColor(colors.black)
                term.setTextColor(colors.white)
                term.setCursorPos(1,1)
                term.clearLine()
                term.write("sel "..sel.." offset "..listOffset)
            end
        end
    end

    local function fileSelect(mode) -- save_file open_file browse < not yet implemented

        local title = sTitle.." "..ver
        local bRun = true
        local clipboard = nil
        local cut = false

        local termX,termY = term.getSize()
        local offsetX,offsetY = 1,1
        local hight,width = math.ceil(termY-2),math.ceil(termX-2)
        local oldHight,oldWidth

        -- offsets
        local boxOffX,boxOffY = offsetX,offsetY + 2
        local boxH,boxW = hight - 2 ,width - 2

        local barX,barY = offsetX + 1,offsetY + 2
        local barH,barW = 1,width - 1

        local tbarX,tbarY = offsetX + 1,offsetY + 1
        local tbarH,tbarW = 1,width - 1

        local exitX,exitY = offsetX + width - 1 ,offsetY + 1

        local pading = string.rep(" ",boxW)
        local list

        local listOff = 0

        local sPath
        local tItemList = {}

        local function newList()
            listOff = 0
            flag = true
            tItemList = {{n = "..", id = "back"}} -- adds a back item at top of list
            sPath = stringPath()
            local folders = {}
            local files = {}
            local disks = {}
            if not fs.exists(sPath) then
                path = {}
                sPath = stringPath()
                dialogBox("ERROR:","Path no longer exists",{"ok"})
            end
            local test,list = pcall(fs.list,sPath) -- stopes fs.list crash
            if list == nil then
                list = {}
                dialogBox("ERROR : ","fs.list crashed",{"ok"})
            end
            if #path == 0 then
                for i,v in pairs(rs.getSides()) do
                    if disk.isPresent(v) then
                        if disk.hasData(v) then
                            table.insert(tItemList,{n = disk.getMountPath(v), id = "disk",s = v})
                            disks[disk.getMountPath(v)] = true
                        elseif disk.hasAudio(v) then
                            table.insert(tItemList,{n = disk.getAudioTitle(v), id = "audio",s = v})
                        end
                    end
                end
            end
            for i,v in pairs(list) do
                if fs.isDir(sPath..fSlash..v) then
                    table.insert(folders,v)
                else
                    table.insert(files,v)
                end
            end
            table.sort(folders)
            table.sort(files)
            for i,v in pairs(folders) do
                if disks[v] == nil then
                    table.insert(tItemList,{n = v, id = "folder"})
                end
            end
            for i,v in pairs(files) do
                table.insert(tItemList,{n = v, id = "file"})
            end
        end

        local function paste()
            if cut then
                local s, m = pcall(
                    function()
                        fs.move(clipboard[1]..fSlash..clipboard[2], stringPath()..fSlash..clipboard[2])
                        cut = false
                        clipboard = nil
                    end)
                if not s then
                    dialogBox("Error", (m or "Couldn't move"), {"ok"}, 4, 30)
                end
                if bugTest then
                    local x, y = term.getCursorPos()
                    term.setCursorPos(1, ({term.getSize()})[2])
                    write("from "..clipboard[1]..fSlash..clipboard[2].." to "..stringPath()..fSlash..clipboard[2])
                end
            else
                local s, m = pcall(function()
                    if fs.exists(stringPath()..fSlash..clipboard[2]) then
                        fs.copy(clipboard[1]..fSlash..clipboard[2], stringPath()..fSlash.."copy-"..clipboard[2])
                    else
                        fs.copy(clipboard[1]..fSlash..clipboard[2], stringPath()..fSlash..clipboard[2])
                    end
                end)
                if not s then
                    dialogBox("Error", (m or "Couldn't copy"), {"ok"}, 4, 30)
                end
                if bugTest then
                    local x, y = term.getCursorPos()
                    term.setCursorPos(1, ({term.getSize()})[2])
                    write("from "..clipboard[1]..fSlash..clipboard[2].." to "..stringPath()..fSlash..clipboard[2])
                end
            end
            newList()
        end

        -- this section bellow handles the right click menu

        local tmenu = {
            disk = {
                ["Open"] = function(tItem)
                    table.insert(path,tItem.n)
                    newList()
                end,
                ["Copy"] = function(tItem)
                    clipboard = {stringPath(), tItem.n}
                    cut = false
                end,
                ["Eject"] = function(tItem)
                    if dialogBox("Confirm","Eject "..fSlash..tItem.n.." "..tItem.s,{"yes","no"}) == 1 then
                        disk.eject(tItem.s)
                        newList()
                    end
                end,
                ["ID label"] = function(tItem)
                    dialogBox("ID label",disk.getDiskID(tItem.s).." "..tostring(disk.getLabel(tItem.s)),{"ok"})
                end,
                ["Set label"] = function(tItem)
                    local name = InputBox("Label?")
                    if name then
                        disk.setLabel(tItem.s,name)
                    end
                end,
                ["Clear label"] = function(tItem)
                    if dialogBox("Confirm","Cleal Label from "..tItem.s,{"yes","no"}) == 1 then
                        disk.setLabel(tItem.s)
                    end
                end
            },
            folder = {
                ["Open"] = function(temp)
                    table.insert(path,temp.n)
                    newList()
                end,
                ["Copy"] = function(tItem)
                    clipboard = {stringPath(), tItem.n}
                    cut = false
                end,
                ["Cut"] = function(tItem)
                    clipboard = {stringPath(), tItem.n}
                    cut = true
                end,
                ["Delete"] = function(tItem)
                    if dialogBox("Confirm","Delete "..tItem.id.." "..tItem.n,{"yes","no"}) == 1 then
                        if fs.isReadOnly(stringPath()..fSlash..tItem.n) then
                            dialogBox("ERROR",tItem.id.." Is read Only",{"ok"})
                        else
                            fs.delete(stringPath()..fSlash..tItem.n)
                            newList()
                        end
                    end
                end,
                ["Rename"] = function(tItem)
                    local sName = InputBox("New Name")
                    if type(sName) == "string" and sName ~= "" then
                        local s, m = pcall(function()
                            fs.move(stringPath()..fSlash..tItem.n,stringPath()..fSlash..sName)
                        end)
                        if not s then
                            dialogBox("Error", (m or "Rename failed"), {"ok"})
                        end
                    end
                    newList()
                end
            },
            file = {
                ["Run"] = {
                    ["Run"] = function(tItem)
                        osRunSpaces(stringPath()..fSlash..tItem.n)
                    end,
                    ["Run CMD"] = function(tItem)
                        local cmd = InputBox("Commands")
                        if cmd then
                            osRunSpaces(stringPath()..fSlash..tItem.n,unpack(fixArgs(cmd)))
                        end
                    end,
                },
                ["Open With"] = customLaunch,
                ["Rename"] = function(tItem)
                    local sName = InputBox("New Name")
                    if type(sName) == "string" and sName ~= "" then
                        local s, m = pcall(function()
                            fs.move(stringPath()..fSlash..tItem.n,stringPath()..fSlash..sName)
                        end)
                        if not s then
                            dialogBox("Error", (m or "Rename failed"), {"ok"})
                        end
                    end
                    newList()
                end,
                ["Delete"] = function(tItem)
                    if dialogBox("Confirm","Delete "..tItem.id.." "..tItem.n,{"yes","no"}) == 1 then
                        if fs.isReadOnly(stringPath()..fSlash..tItem.n) then
                            dialogBox("ERROR",tItem.id.." Is read Only",{"ok"})
                        else
                            fs.delete(stringPath()..fSlash..tItem.n)
                            newList()
                        end
                    end
                end,
                ["Cut"] = function(tItem)
                    clipboard = {stringPath(), tItem.n}
                    cut = true
                end,
                ["Copy"] = function(tItem)
                    clipboard = {stringPath(), tItem.n}
                    cut = false
                end
            },
            audio = {
                ["Play"] = 1,
                ["Eject"] = 1
            },
            back = {
            },
            blank = { -- tmenu.blank.Paste =
                ["Paste"] = nil,
                ["New File"] = function()
                    local name = InputBox()
                    if name then
                        if fs.exists(stringPath()..fSlash..name) then
                            dialogBox("ERROR","Name exists",{"ok"})
                        else
                            local file = fs.open(stringPath()..fSlash..name,"w")
                            if file then
                                file.write("")
                                file.close()
                                newList()
                            else
                                dialogBox("ERROR","File not created",{"ok"})
                            end
                        end
                    end
                end,
                ["New Folder"] = function()
                    local name = InputBox()
                    if name then
                        if fs.exists(stringPath()..fSlash..name) then
                            dialogBox("ERROR","Name exists",{"ok"})
                        else
                            if pcall(fs.makeDir,stringPath()..fSlash..name) then
                                newList()
                            else
                                dialogBox("ERROR","Access Denied",{"ok"})
                            end
                        end
                    end
                end,
                ["Preferences"] = preferences
            },
        }

        -- end right click menu

        local function scrollBar(posX,posY)
            if posX == boxOffX+boxW+1 and posY > boxOffY and posY <= boxOffY+boxH then
                if #tItemList > boxH then
                    if posY == boxOffY + 1 then
                        listOff = 0
                    elseif posY == boxOffY+boxH then
                        listOff = #tItemList + 1 - boxH
                    else
                        listOff = math.ceil((posY - boxOffY - 1 )*(((#tItemList - boxH+2)/boxH)))
                    end
                    flag = true
                end
            end
        end

        newList()

        while bRun do
            if flag then
                flag = false
                -- clear
                if oldHight ~= hight and oldWidth ~= width then
                    term.setBackgroundColor(colors.black)
                    term.clear()
                    oldHight,oldWidth = hight,width
                end
                -- draw top title bar
                local b = tbarW - #title -2
                if b < 0 then
                    b = 0
                end
                printC(tbarX,tbarY,titleBar.txt,titleBar.back,string.sub(" "..title,1,tbarW)..string.rep(" ",b))
                term.setTextColor(colors.white)
                term.setBackgroundColor(colors.red)
                term.write("X")

                -- draw location bar
                local a = barW - #sPath - 1
                if a < 0 then
                    a = 0
                end
                local tmppath = sPath
                if shell and shell.getDisplayName then
                    tmppath = shell.getDisplayName(sPath)
                    --dialogBox("yay")
                else
                    --dialogBox("moop")
                end
                tmppath = tmppath or sPath
                local a = barW - #tmppath - 1
                if a < 0 then
                    a = 0
                end
                printC(barX,barY,addressBar.txt,addressBar.back,string.sub(" "..tmppath,1,barW)..string.rep(" ",a))

                -- draw scroll bar
                if #tItemList > boxH then
                    term.setBackgroundColor(scrollCol.back)
                    for i = 1,boxH do
                        term.setCursorPos(boxOffX+boxW+1,i + boxOffY)
                        local scroll = math.floor( boxH* (listOff/(#tItemList-boxH+2)) )+1
                        if i == scroll then
                            term.setBackgroundColor(scrollCol.button)
                            term.write(" ")
                            term.setBackgroundColor(scrollCol.back)
                        else
                            term.write(" ")
                        end
                    end
                else
                    term.setBackgroundColor(scrollCol.off)
                    for i = 1,boxH do
                        term.setCursorPos(boxOffX+boxW+1,i + boxOffY)
                        term.write(" ")
                    end
                end

                -- draw main section

                for i = 1,boxH do -- listOff
                    local sel = i+listOff
                    if tItemList[sel] then
                        printC(1+boxOffX,i+boxOffY,(tIcons[tItemList[sel].id].tCol or itemWindo.txt),(tIcons[tItemList[sel].id].bCol or itemWindo.back),( tIcons[tItemList[sel].id].txt or "   "))
                        printC(4+boxOffX,i+boxOffY,itemWindo.txt,itemWindo.back,string.sub(" "..tItemList[sel].n..pading,1,boxW-3))
                    else
                        printC(1+boxOffX,i+boxOffY,itemWindo.txt,itemWindo.back,pading)
                    end
                end

                if bugTest then
                    printC(1,1,"black","white",listOff.." "..boxOffY.." "..boxH)
                end

            end

            -- react to events
            local event = {os.pullEvent()}

            if event[1] == "mouse_click" then
                if inBouwndry(event[3],event[4],boxOffX+1,boxOffY+1,boxW,boxH) then
                    local selected = tItemList[event[4]+listOff-boxOffY]
                    if selected and inBouwndry(event[3],event[4],boxOffX+1,event[4],#selected.n + 4,1) then
                        if event[2] == 1 then -- left mouse
                            if selected.id == "back" then
                                table.remove(path,#path)
                                newList()
                            elseif selected.id == "folder" or selected.id == "disk" then
                                table.insert(path,selected.n)
                                newList()
                            elseif selected.id == "file" then
                                if dialogBox("Run file ?",selected.n,{"yes","no"}) == 1 then
                                    osRunSpaces(stringPath()..fSlash..selected.n)
                                end
                            flag = true
                            end
                        elseif event[2] == 2 then -- right mouse
                            rClickMenu("Options",tmenu[selected.id],selected,event[3],event[4])
                            flag = true
                        end
                    elseif event[2] == 2 then -- right clicking not on object
                        if clipboard then
                            tmenu.blank.Paste = paste
                        else
                            tmenu.blank.Paste = nil
                        end
                        rClickMenu("Options",tmenu["blank"],selected,event[3],event[4])
                        flag = true
                    end
                elseif event[2] == 1 and event[3] == exitX and event[4] == exitY then
                    if dialogBox("Confirm","Exit application",{"yes","no"}) == 1 then
                        bRun = false
                    end
                    flag = true
                elseif event[2] == 1 then
                    scrollBar(event[3],event[4])
                end
            elseif event[1] == "mouse_scroll" then -- flag this needs new math
                local old = listOff
                listOff = listOff + event[2]
                if listOff < 0 then
                    listOff = 0
                end
                if #tItemList + 1 - boxH > 0 and listOff > #tItemList + 1 - boxH then
                    listOff = #tItemList + 1 - boxH
                elseif listOff > 0 and #tItemList + 1 - boxH < 0 then
                    listOff = 0
                end
                if listOff ~= old then
                    flag = true
                end

            elseif event[1] == "mouse_drag" then -- scroll bar
                scrollBar(event[3],event[4])
            elseif event[1] == "disk" or event[1] == "disk_eject" then
                newList()
            elseif event[1] == "window_resize" then
                termX,termY = term.getSize()
                offsetX,offsetY = 1,1
                hight,width = math.ceil(termY-2),math.ceil(termX-2)

                boxOffX,boxOffY = offsetX,offsetY + 2
                boxH,boxW = hight - 2 ,width - 2

                barX,barY = offsetX + 1,offsetY + 2
                barH,barW = 1,width - 1

                tbarX,tbarY = offsetX + 1,offsetY + 1
                tbarH,tbarW = 1,width - 1

                exitX,exitY = offsetX + width - 1 ,offsetY + 1
                pading = string.rep(" ",boxW)

                flag = true
            elseif event[1] == "redraw" then
                flag = true
            end
        end
    end

    local function main()
        if term.isColor() then
            clear()
            fileSelect()
            clear()
        else
            error("Not an Advanced Computer (gold) ")
        end
    end

    local trash = (norun or main())
    home()
end

function chat()
    local chatTable = { [1] = "Welcome to uChat V1.2 (/help for commands)" }
    local chatLine = 1
    local message = ""
    local compID = os.computerID()
    local toID = ""
    local msgMessage = ""
    local msgSent = ""

    function drawLine()
    term.setCursorPos( 1, 17 )
    term.clearLine()
    for n=1,49 do
    io.write("=")
    end
    term.setCursorPos(1,18)
    term.clearLine()
    write(username)
    write(": ")
    write(message)
    end
    function addChat(str)
    if chatLine < 16 then
      table.insert(chatTable, str)
      chatLine = chatLine + 1
    else
      for n=1,15 do
       chatTable[n] = chatTable[n+1]
      end
       chatTable[16] = str
      end
    end
    function quit()
    os.exit()
    end
    function showChat()
    term.setCursorPos( 1, 1 )
    for n=1,chatLine do
      term.clearLine()
      print(chatTable[n])
    end
    end

    -- Opens rednet
        username = user

        print("Starting chat...")
        sleep(1)

        term.clear()
        drawLine()
        rednet.broadcast("")
        rednet.broadcast(username .. " enters the room!")

        repeat
        term.setCursorPos(1,1)
        write(chatTable[chatLine] or "")
        drawLine()
        showChat()
        term.setCursorPos((3 + string.len(username) + string.len(message)),18)
        term.setCursorBlink( true )

        event, param = os.pullEventRaw()
        if event == "key" then
          if param == 28 then
           if string.sub(message,1,1) == "/" then
                if string.sub(message,1,6) == "/name " then
                 if string.len(message) > 6 then
                  if string.len(message) < 16 then
                   user = username
                   username = string.sub(message,7,string.len(message))
                   message = "User '" .. user .. "' is now called '" .. username .. "'!"
                   rednet.broadcast("")
                   rednet.broadcast(message)
                   addChat(message)
                   message = ""
                   drawLine()
                  else
                   addChat("<SYS> Name too long! Maximum 9 characters.")
                   message = ""
                  end
                 end
                elseif string.sub(message,1,4) == "/me " then
                 local meMessage = string.sub(message,4,string.len(message))
                 message = "*" .. username .. meMessage
                 rednet.broadcast("")
                 rednet.broadcast(message)
                 addChat(message)
                 message = ""
                 drawLine()
                elseif string.sub(message,1,5) == "/list" then
                 rednet.broadcast("")
                 rednet.broadcast(message)
                 message = ""
                elseif string.sub(message,1,5) == "/exit" then
                 addChat("<SYS> Goodbye!")
                 rednet.broadcast("")
                 rednet.broadcast("User '" .. username .. "' exits the room.")
                 sleep(1.0)
                 term.clear()
                 term.setCursorPos(1,1)
                 programs()
                 break
                elseif string.sub(message,1,5) == "/quit" then
                 addChat("<SYS> Goodbye!")
                 rednet.broadcast("")
                 rednet.broadcast("User '" .. username .. "' exits the room.")
                 sleep(1.0)
                 term.clear()
                 term.setCursorPos(1,1)
                 programs()
                 break
                elseif string.sub(message,1,5) == "/help" then
                 addChat("/help - lists programs")
                 addChat("/name <name> - changes username")
                 addChat("/list - lists connected users, and console IDs")
                 addChat("/me - used as emote")
                 addChat("/clear - clears the screen")
                 addChat("/msg <ID> <message> - sends a private message")
                 addChat("/exit - exits the program")
                 message = ""
                elseif string.sub(message,1,5) == "/msg " then
                 if string.len(message) > 5 then
                  if string.sub(message,7,7) == " " then
                   toID = string.sub(message,6,6)
                   msgMessage = string.sub(message,8,string.len(message))
                   addChat("You whisper to #" .. toID .. ": " .. msgMessage)
                   message = username .. " whispers to you: " .. msgMessage
                   toID = tonumber(toID)
                   rednet.send(toID,"")
                   rednet.send(toID,message)
                   message = ""
                  elseif string.sub(message, 8,8) == " " then
                   toID = string.sub(message,6,7)
                   msgMessage = string.sub(message,9,string.len(message))
                   addChat("You whisper to #" .. toID .. ": " .. msgMessage)
                   message = username .. " whispers to you: " .. msgMessage
                   toID = tonumber(toID)
                   rednet.send(toID,"")
                   rednet.send(toID,message)
                   message = ""
                  elseif string.sub(message, 9,9) == " " then
                   toID = string.sub(message,6,8)
                   msgMessage = string.sub(message,10,string.len(message))
                   addChat("You whisper to #" .. toID .. ": " .. msgMessage)
                   message = username .. " whispers to you: " .. msgMessage
                   toID = tonumber(toID)
                   rednet.send(toID,"")
                   rednet.send(toID,message)
                   message = ""
                  elseif string.sub(message,10,10) == " " then
                   toID = string.sub(message,6,9)
                   msgMessage = string.sub(message,11,string.len(message))
                   addChat("You whisper to #" .. toID .. ": " .. msgMessage)
                   message = username .. " whispers to you: " .. msgMessage
                   toID = tonumber(toID)
                   rednet.send(toID,"")
                   rednet.send(toID,message)
                   message = ""
                  end
                 end
                elseif string.sub(message,1,3) == "/m " then
                 if string.len(message) > 3 then
                  if string.sub(message,5,5) == " " then
                   toID = string.sub(message,4,4)
                   msgMessage = string.sub(message,6,string.len(message))
                   addChat("You whisper to #" .. toID .. ": " .. msgMessage)
                   message = username .. " whispers to you: " .. msgMessage
                   toID = tonumber(toID)
                   rednet.send(toID,"")
                   rednet.send(toID,message)
                   message = ""
                  elseif string.sub(message, 6,6) == " " then
                   toID = string.sub(message,4,5)
                   msgMessage = string.sub(message,7,string.len(message))
                   addChat("You whisper to #" .. toID .. ": " .. msgMessage)
                   message = username .. " whispers to you: " .. msgMessage
                   toID = tonumber(toID)
                   rednet.send(toID,"")
                   rednet.send(toID,message)
                   message = ""
                  elseif string.sub(message, 7,7) == " " then
                   toID = string.sub(message,4,6)
                   msgMessage = string.sub(message,8,string.len(message))
                   addChat("You whisper to #" .. toID .. ": " .. msgMessage)
                   message = username .. " whispers to you: " .. msgMessage
                   toID = tonumber(toID)
                   rednet.send(toID,"")
                   rednet.send(toID,message)
                   message = ""
                  elseif string.sub(message,8,8) == " " then
                   toID = string.sub(message,4,7)
                   msgMessage = string.sub(message,9,string.len(message))
                   addChat("You whisper to #" .. toID .. ": " .. msgMessage)
                   message = username .. " whispers to you: " .. msgMessage
                   toID = tonumber(toID)
                   rednet.send(toID,"")
                   rednet.send(toID,message)
                   message = ""
                  end
                 end
                elseif string.sub(message,1,6) == "/clear" then
                 term.clear()
                 for n=1,16 do
                  addChat(" ")
                 end
                 chatTable = {}
                 chatLine = 1
                 message = ""
                else
                 message = ""
                end
           else
                if string.len(message) > 0 then
                  username = tostring(username)
                  message = tostring(message)
                  message = "<" .. username .. "> " .. message
                  rednet.broadcast("")
                  rednet.broadcast(message)
                  addChat(message)
                  message = ""
                  drawLine()
                end
           end
          elseif param == 14 then
           message = string.sub(message,1,string.len(message)-1)
           drawLine()
          end
        end

        if event == "char" then
          if string.len(message) < 40 then
                message = message .. param
          end
          drawLine()
        end

        if event == "rednet_message" then
          id, incoming = rednet.receive(0.5)

          if incoming == "/list" then
           rednet.send(id,"")
           rednet.send(id,"User '" .. username .. "' is connected at terminal #" .. compID)
          else
           addChat(incoming)
          end
        end

        until message == "override"
end

-- Ink (OEED)
function ink()
        tArgs = {}

    if OneOS then
        --running under OneOS
        OneOS.ToolBarColour = colours.grey
        OneOS.ToolBarTextColour = colours.white
    end

    local _w, _h = term.getSize()

    local round = function(num, idp)
        local mult = 10^(idp or 0)
        return math.floor(num * mult + 0.5) / mult
    end

    UIColours = {
        Toolbar = colours.grey,
        ToolbarText = colours.lightGrey,
        ToolbarSelected = colours.lightBlue,
        ControlText = colours.white,
        ToolbarItemTitle = colours.black,
        Background = colours.lightGrey,
        MenuBackground = colours.white,
        MenuText = colours.black,
        MenuSeparatorText = colours.grey,
        MenuDisabledText = colours.lightGrey,
        Shadow = colours.grey,
        TransparentBackgroundOne = colours.white,
        TransparentBackgroundTwo = colours.lightGrey,
        MenuBarActive = colours.white
    }

    local getNames = peripheral.getNames or function()
        local tResults = {}
        for n,sSide in ipairs( rs.getSides() ) do
            if peripheral.isPresent( sSide ) then
                table.insert( tResults, sSide )
                local isWireless = false
                if not pcall(function()isWireless = peripheral.call(sSide, 'isWireless') end) then
                    isWireless = true
                end
                if peripheral.getType( sSide ) == "modem" and not isWireless then
                    local tRemote = peripheral.call( sSide, "getNamesRemote" )
                    for n,sName in ipairs( tRemote ) do
                        table.insert( tResults, sName )
                    end
                end
            end
        end
        return tResults
    end

    Peripheral = {
        GetPeripheral = function(_type)
            for i, p in ipairs(Peripheral.GetPeripherals()) do
                if p.Type == _type then
                    return p
                end
            end
        end,

        Call = function(type, ...)
            local tArgs = {...}
            local p = Peripheral.GetPeripheral(type)
            peripheral.call(p.Side, unpack(tArgs))
        end,

        GetPeripherals = function(filterType)
            local peripherals = {}
            for i, side in ipairs(getNames()) do
                local name = peripheral.getType(side):gsub("^%l", string.upper)
                local code = string.upper(side:sub(1,1))
                if side:find('_') then
                    code = side:sub(side:find('_')+1)
                end

                local dupe = false
                for i, v in ipairs(peripherals) do
                    if v[1] == name .. ' ' .. code then
                        dupe = true
                    end
                end

                if not dupe then
                    local _type = peripheral.getType(side)
                    local isWireless = false
                    if _type == 'modem' then
                        if not pcall(function()isWireless = peripheral.call(sSide, 'isWireless') end) then
                            isWireless = true
                        end
                        if isWireless then
                            _type = 'wireless_modem'
                            name = 'W '..name
                        end
                    end
                    if not filterType or _type == filterType then
                        table.insert(peripherals, {Name = name:sub(1,8) .. ' '..code, Fullname = name .. ' ('..side:sub(1, 1):upper() .. side:sub(2, -1)..')', Side = side, Type = _type, Wireless = isWireless})
                    end
                end
            end
            return peripherals
        end,

        PresentNamed = function(name)
            return peripheral.isPresent(name)
        end,

        CallType = function(type, ...)
            local tArgs = {...}
            local p = GetPeripheral(type)
            return peripheral.call(p.Side, unpack(tArgs))
        end,

        CallNamed = function(name, ...)
            local tArgs = {...}
            return peripheral.call(name, unpack(tArgs))
        end
    }

    TextLine = {
        Text = "",
        Alignment = AlignmentLeft,

        Initialise = function(self, text, alignment)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Text = text
            new.Alignment = alignment or AlignmentLeft
            return new
        end
    }

    local StripColours = function(str)
        return str:gsub('['..string.char(14)..'-'..string.char(29)..']','')
    end

    Printer = {
        Name = nil,
        PeripheralType = 'printer',

        paperLevel = function(self)
            return Peripheral.CallNamed(self.Name, 'getPaperLevel')
        end,

        newPage = function(self)
            return Peripheral.CallNamed(self.Name, 'newPage')
        end,

        endPage = function(self)
            return Peripheral.CallNamed(self.Name, 'endPage')
        end,

        pageWrite = function(self, text)
            return Peripheral.CallNamed(self.Name, 'write', text)
        end,

        setPageTitle = function(self, title)
            return Peripheral.CallNamed(self.Name, 'setPageTitle', title)
        end,

        inkLevel = function(self)
            return Peripheral.CallNamed(self.Name, 'getInkLevel')
        end,

        getCursorPos = function(self)
            return Peripheral.CallNamed(self.Name, 'getCursorPos')
        end,

        setCursorPos = function(self, x, y)
            return Peripheral.CallNamed(self.Name, 'setCursorPos', x, y)
        end,

        pageSize = function(self)
            return Peripheral.CallNamed(self.Name, 'getPageSize')
        end,

        Present = function()
            if Peripheral.GetPeripheral(Printer.PeripheralType) == nil then
                return false
            else
                return true
            end
        end,

        PrintLines = function(self, lines, title, copies)
            local pages = {}
            local pageLines = {}
            for i, line in ipairs(lines) do
                table.insert(pageLines, TextLine:Initialise(StripColours(line)))
                if i % 25 == 0 then
                    table.insert(pages, pageLines)
                    pageLines = {}
                end
            end
            if #pageLines ~= 0 then
                    table.insert(pages, pageLines)
            end
            return self:PrintPages(pages, title, copies)
        end,

        PrintPages = function(self, pages, title, copies)
            copies = copies or 1
            for c = 1, copies do
                for p, page in ipairs(pages) do
                    if self:paperLevel() < #pages * copies then
                        return 'Add more paper to the printer'
                    end
                    if self:inkLevel() < #pages * copies then
                        return 'Add more ink to the printer'
                    end
                    self:newPage()
                    for i, line in ipairs(page) do
                        self:setCursorPos(1, i)
                        self:pageWrite(StripColours(line.Text))
                    end
                    if title then
                        self:setPageTitle(title)
                    end
                    self:endPage()
                end
            end
        end,

        Initialise = function(self, name)
            if Printer.Present() then --fix
                local new = {}    -- the new instance
                setmetatable( new, {__index = self} )
                if name and Peripheral.PresentNamed(name) then
                    new.Name = name
                else
                    new.Name = Peripheral.GetPeripheral(Printer.PeripheralType).Side
                end
                return new
            end
        end
    }

    Clipboard = {
        Content = nil,
        Type = nil,
        IsCut = false,

        Empty = function()
            Clipboard.Content = nil
            Clipboard.Type = nil
            Clipboard.IsCut = false
        end,

        isEmpty = function()
            return Clipboard.Content == nil
        end,

        Copy = function(content, _type)
            Clipboard.Content = content
            Clipboard.Type = _type or 'generic'
            Clipboard.IsCut = false
        end,

        Cut = function(content, _type)
            Clipboard.Content = content
            Clipboard.Type = _type or 'generic'
            Clipboard.IsCut = true
        end,

        Paste = function()
            local c, t = Clipboard.Content, Clipboard.Type
            if Clipboard.IsCut then
                Clipboard.Empty()
            end
            return c, t
        end
    }

    if OneOS and OneOS.Clipboard then
        Clipboard = OneOS.Clipboard
    end

    Drawing = {

        Screen = {
            Width = _w,
            Height = _h
        },

        DrawCharacters = function (x, y, characters, textColour,bgColour)
            Drawing.WriteStringToBuffer(x, y, characters, textColour, bgColour)
        end,

        DrawBlankArea = function (x, y, w, h, colour)
            Drawing.DrawArea (x, y, w, h, " ", 1, colour)
        end,

        DrawArea = function (x, y, w, h, character, textColour, bgColour)
            --width must be greater than 1, other wise we get a stack overflow
            if w < 0 then
                w = w * -1
            elseif w == 0 then
                w = 1
            end

            for ix = 1, w do
                local currX = x + ix - 1
                for iy = 1, h do
                    local currY = y + iy - 1
                    Drawing.WriteToBuffer(currX, currY, character, textColour, bgColour)
                end
            end
        end,

        DrawImage = function(_x,_y,tImage, w, h)
            if tImage then
                for y = 1, h do
                    if not tImage[y] then
                        break
                    end
                    for x = 1, w do
                        if not tImage[y][x] then
                            break
                        end
                        local bgColour = tImage[y][x]
                        local textColour = tImage.textcol[y][x] or colours.white
                        local char = tImage.text[y][x]
                        Drawing.WriteToBuffer(x+_x-1, y+_y-1, char, textColour, bgColour)
                    end
                end
            elseif w and h then
                Drawing.DrawBlankArea(x, y, w, h, colours.green)
            end
        end,
        --using .nft
        LoadImage = function(path)
            local image = {
                text = {},
                textcol = {}
            }
            local fs = fs
            if OneOS then
                fs = OneOS.FS
            end
            if fs.exists(path) then
                local _open = io.open
                if OneOS then
                    _open = OneOS.IO.open
                end
                local file = _open(path, "r")
                local sLine = file:read()
                local num = 1
                while sLine do
                        table.insert(image, num, {})
                        table.insert(image.text, num, {})
                        table.insert(image.textcol, num, {})

                        --As we're no longer 1-1, we keep track of what index to write to
                        local writeIndex = 1
                        --Tells us if we've hit a 30 or 31 (BG and FG respectively)- next char specifies the curr colour
                        local bgNext, fgNext = false, false
                        --The current background and foreground colours
                        local currBG, currFG = nil,nil
                        for i=1,#sLine do
                                local nextChar = string.sub(sLine, i, i)
                                if nextChar:byte() == 30 then
                                    bgNext = true
                                elseif nextChar:byte() == 31 then
                                    fgNext = true
                                elseif bgNext then
                                    currBG = Drawing.GetColour(nextChar)
                                    bgNext = false
                                elseif fgNext then
                                    currFG = Drawing.GetColour(nextChar)
                                    fgNext = false
                                else
                                    if nextChar ~= " " and currFG == nil then
                                           currFG = colours.white
                                    end
                                    image[num][writeIndex] = currBG
                                    image.textcol[num][writeIndex] = currFG
                                    image.text[num][writeIndex] = nextChar
                                    writeIndex = writeIndex + 1
                                end
                        end
                        num = num+1
                        sLine = file:read()
                end
                file:close()
            end
            return image
        end,

        DrawCharactersCenter = function(x, y, w, h, characters, textColour,bgColour)
            w = w or Drawing.Screen.Width
            h = h or Drawing.Screen.Height
            x = x or 0
            y = y or 0
            x = math.ceil((w - #characters) / 2) + x
            y = math.floor(h / 2) + y

            Drawing.DrawCharacters(x, y, characters, textColour, bgColour)
        end,

        GetColour = function(hex)
            if hex == ' ' then
                return colours.transparent
            end
            local value = tonumber(hex, 16)
            if not value then return nil end
            value = math.pow(2,value)
            return value
        end,

        Clear = function (_colour)
            _colour = _colour or colours.black
            Drawing.ClearBuffer()
            Drawing.DrawBlankArea(1, 1, Drawing.Screen.Width, Drawing.Screen.Height, _colour)
        end,

        Buffer = {},
        BackBuffer = {},

        DrawBuffer = function()
            for y,row in pairs(Drawing.Buffer) do
                for x,pixel in pairs(row) do
                    local shouldDraw = true
                    local hasBackBuffer = true
                    if Drawing.BackBuffer[y] == nil or Drawing.BackBuffer[y][x] == nil or #Drawing.BackBuffer[y][x] ~= 3 then
                        hasBackBuffer = false
                    end
                    if hasBackBuffer and Drawing.BackBuffer[y][x][1] == Drawing.Buffer[y][x][1] and Drawing.BackBuffer[y][x][2] == Drawing.Buffer[y][x][2] and Drawing.BackBuffer[y][x][3] == Drawing.Buffer[y][x][3] then
                        shouldDraw = false
                    end
                    if shouldDraw then
                        term.setBackgroundColour(pixel[3])
                        term.setTextColour(pixel[2])
                        term.setCursorPos(x, y)
                        term.write(pixel[1])
                    end
                end
            end
            Drawing.BackBuffer = Drawing.Buffer
            Drawing.Buffer = {}
            term.setCursorPos(1,1)
        end,

        ClearBuffer = function()
            Drawing.Buffer = {}
        end,

        WriteStringToBuffer = function (x, y, characters, textColour,bgColour)
            for i = 1, #characters do
                local character = characters:sub(i,i)
                Drawing.WriteToBuffer(x + i - 1, y, character, textColour, bgColour)
            end
        end,

        WriteToBuffer = function(x, y, character, textColour,bgColour)
            x = round(x)
            y = round(y)
            if bgColour == colours.transparent then
                Drawing.Buffer[y] = Drawing.Buffer[y] or {}
                Drawing.Buffer[y][x] = Drawing.Buffer[y][x] or {"", colours.white, colours.black}
                Drawing.Buffer[y][x][1] = character
                Drawing.Buffer[y][x][2] = textColour
            else
                Drawing.Buffer[y] = Drawing.Buffer[y] or {}
                Drawing.Buffer[y][x] = {character, textColour, bgColour}
            end
        end,
    }

    Current = {
        Document = nil,
        TextInput = nil,
        CursorPos = {1,1},
        CursorColour = colours.black,
        Selection = {8, 36},
        Window = nil,
        Modified = false,
    }

    local isQuitting = false

    function OrderSelection()
        if Current.Selection then
            if Current.Selection[1] <= Current.Selection[2] then
                return Current.Selection
            else
                return {Current.Selection[2], Current.Selection[1]}
            end
        end
    end

    function StripColours(str)
        return str:gsub('['..string.char(14)..'-'..string.char(29)..']','')
    end

    function FindColours(str)
        local _, count = str:gsub('['..string.char(14)..'-'..string.char(29)..']','')
        return count
    end

    ColourFromCharacter = function(character)
        local n = character:byte() - 14
        if n > 16 then
            return nil
        else
            return 2^n
        end
    end

    CharacterFromColour = function(colour)
        return string.char(math.floor(math.log(colour)/math.log(2))+14)
    end

    Events = {}

    Button = {
        X = 1,
        Y = 1,
        Width = 0,
        Height = 0,
        BackgroundColour = colours.lightGrey,
        TextColour = colours.white,
        ActiveBackgroundColour = colours.lightGrey,
        Text = "",
        Parent = nil,
        _Click = nil,
        Toggle = nil,

        AbsolutePosition = function(self)
            return self.Parent:AbsolutePosition()
        end,

        Draw = function(self)
            local bg = self.BackgroundColour
            local tc = self.TextColour
            if type(bg) == 'function' then
                bg = bg()
            end

            if self.Toggle then
                tc = UIColours.MenuBarActive
                bg = self.ActiveBackgroundColour
            end

            local pos = GetAbsolutePosition(self)
            Drawing.DrawBlankArea(pos.X, pos.Y, self.Width, self.Height, bg)
            Drawing.DrawCharactersCenter(pos.X, pos.Y, self.Width, self.Height, self.Text, tc, bg)
        end,

        Initialise = function(self, x, y, width, height, backgroundColour, parent, click, text, textColour, toggle, activeBackgroundColour)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            height = height or 1
            new.Width = width or #text + 2
            new.Height = height
            new.Y = y
            new.X = x
            new.Text = text or ""
            new.BackgroundColour = backgroundColour or colours.lightGrey
            new.TextColour = textColour or colours.white
            new.ActiveBackgroundColour = activeBackgroundColour or colours.lightGrey
            new.Parent = parent
            new._Click = click
            new.Toggle = toggle
            return new
        end,

        Click = function(self, side, x, y)
            if self._Click then
                if self:_Click(side, x, y, not self.Toggle) ~= false and self.Toggle ~= nil then
                    self.Toggle = not self.Toggle
                    Draw()
                end
                return true
            else
                return false
            end
        end
    }

    TextBox = {
        X = 1,
        Y = 1,
        Width = 0,
        Height = 0,
        BackgroundColour = colours.lightGrey,
        TextColour = colours.black,
        Parent = nil,
        TextInput = nil,
        Placeholder = '',

        AbsolutePosition = function(self)
            return self.Parent:AbsolutePosition()
        end,

        Draw = function(self)
            local pos = GetAbsolutePosition(self)
            Drawing.DrawBlankArea(pos.X, pos.Y, self.Width, self.Height, self.BackgroundColour)
            local text = self.TextInput.Value
            if #tostring(text) > (self.Width - 2) then
                text = text:sub(#text-(self.Width - 3))
                if Current.TextInput == self.TextInput then
                    Current.CursorPos = {pos.X + 1 + self.Width-2, pos.Y}
                end
            else
                if Current.TextInput == self.TextInput then
                    Current.CursorPos = {pos.X + 1 + self.TextInput.CursorPos, pos.Y}
                end
            end

            if #tostring(text) == 0 then
                Drawing.DrawCharacters(pos.X + 1, pos.Y, self.Placeholder, colours.lightGrey, self.BackgroundColour)
            else
                Drawing.DrawCharacters(pos.X + 1, pos.Y, text, self.TextColour, self.BackgroundColour)
            end

            term.setCursorBlink(true)

            Current.CursorColour = self.TextColour
        end,

        Initialise = function(self, x, y, width, height, parent, text, backgroundColour, textColour, done, numerical)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            height = height or 1
            new.Width = width or #text + 2
            new.Height = height
            new.Y = y
            new.X = x
            new.TextInput = TextInput:Initialise(text or '', function(key)
                if done then
                    done(key)
                end
                Draw()
            end, numerical)
            new.BackgroundColour = backgroundColour or colours.lightGrey
            new.TextColour = textColour or colours.black
            new.Parent = parent
            return new
        end,

        Click = function(self, side, x, y)
            Current.Input = self.TextInput
            self:Draw()
        end
    }

    TextInput = {
        Value = "",
        Change = nil,
        CursorPos = nil,
        Numerical = false,
        IsDocument = nil,

        Initialise = function(self, value, change, numerical, isDocument)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Value = tostring(value)
            new.Change = change
            new.CursorPos = #tostring(value)
            new.Numerical = numerical
            new.IsDocument = isDocument or false
            return new
        end,

        Insert = function(self, str)
            if self.Numerical then
                str = tostring(tonumber(str))
            end

            local selection = OrderSelection()

            if self.IsDocument and selection then
                self.Value = string.sub(self.Value, 1, selection[1]-1) .. str .. string.sub( self.Value, selection[2]+2)
                self.CursorPos = selection[1]
                Current.Selection = nil
            else
                local _, newLineAdjust = string.gsub(self.Value:sub(1, self.CursorPos), '\n','')

                self.Value = string.sub(self.Value, 1, self.CursorPos + newLineAdjust) .. str .. string.sub( self.Value, self.CursorPos + 1  + newLineAdjust)
                self.CursorPos = self.CursorPos + 1
            end

            self.Change(key)
        end,

        Extract = function(self, remove)
            local selection = OrderSelection()
            if self.IsDocument and selection then
                local _, newLineAdjust = string.gsub(self.Value:sub(selection[1], selection[2]), '\n','')
                local str = string.sub(self.Value, selection[1], selection[2]+1+newLineAdjust)
                if remove then
                    self.Value = string.sub(self.Value, 1, selection[1]-1) .. string.sub( self.Value, selection[2]+2+newLineAdjust)
                    self.CursorPos = selection[1] - 1
                    Current.Selection = nil
                end
                return str
            end
        end,

        Char = function(self, char)
            if char == 'nil' then
                return
            end
            self:Insert(char)
        end,

        Key = function(self, key)
            if key == keys.enter then
                if self.IsDocument then
                    self.Value = string.sub(self.Value, 1, self.CursorPos ) .. '\n' .. string.sub( self.Value, self.CursorPos + 1 )
                    self.CursorPos = self.CursorPos + 1
                end
                self.Change(key)
            elseif key == keys.left then
                -- Left
                if self.CursorPos > 0 then
                    local colShift = FindColours(string.sub( self.Value, self.CursorPos, self.CursorPos))
                    self.CursorPos = self.CursorPos - 1 - colShift
                    self.Change(key)
                end

            elseif key == keys.right then
                -- Right
                if self.CursorPos < string.len(self.Value) then
                    local colShift = FindColours(string.sub( self.Value, self.CursorPos+1, self.CursorPos+1))
                    self.CursorPos = self.CursorPos + 1 + colShift
                    self.Change(key)
                end

            elseif key == keys.backspace then
                -- Backspace
                if self.IsDocument and Current.Selection then
                    self:Extract(true)
                    self.Change(key)
                elseif self.CursorPos > 0 then
                    local colShift = FindColours(string.sub( self.Value, self.CursorPos, self.CursorPos))
                    local _, newLineAdjust = string.gsub(self.Value:sub(1, self.CursorPos), '\n','')

                    self.Value = string.sub( self.Value, 1, self.CursorPos - 1 - colShift + newLineAdjust) .. string.sub( self.Value, self.CursorPos + 1 - colShift + newLineAdjust)
                    self.CursorPos = self.CursorPos - 1 - colShift
                    self.Change(key)
                end
            elseif key == keys.home then
                -- Home
                self.CursorPos = 0
                self.Change(key)
            elseif key == keys.delete then
                if self.IsDocument and Current.Selection then
                    self:Extract(true)
                    self.Change(key)
                elseif self.CursorPos < string.len(self.Value) then
                    self.Value = string.sub( self.Value, 1, self.CursorPos ) .. string.sub( self.Value, self.CursorPos + 2 )
                    self.Change(key)
                end
            elseif key == keys["end"] then
                -- End
                self.CursorPos = string.len(self.Value)
                self.Change(key)
            elseif key == keys.up and self.IsDocument then
                -- Up
                if Current.Document.CursorPos then
                    local page = Current.Document.Pages[Current.Document.CursorPos.Page]
                    self.CursorPos = page:GetCursorPosFromPoint(Current.Document.CursorPos.Collum + page.MarginX, Current.Document.CursorPos.Line - page.MarginY - 1 + Current.Document.ScrollBar.Scroll, true)
                    self.Change(key)
                end
            elseif key == keys.down and self.IsDocument then
                -- Down
                if Current.Document.CursorPos then
                    local page = Current.Document.Pages[Current.Document.CursorPos.Page]
                    self.CursorPos = page:GetCursorPosFromPoint(Current.Document.CursorPos.Collum + page.MarginX, Current.Document.CursorPos.Line - page.MarginY + 1 + Current.Document.ScrollBar.Scroll, true)
                    self.Change(key)
                end
            end
        end
    }

    Menu = {
        X = 0,
        Y = 0,
        Width = 0,
        Height = 0,
        Owner = nil,
        Items = {},
        RemoveTop = false,

        Draw = function(self)
            Drawing.DrawBlankArea(self.X + 1, self.Y + 1, self.Width, self.Height, UIColours.Shadow)
            if not self.RemoveTop then
                Drawing.DrawBlankArea(self.X, self.Y, self.Width, self.Height, UIColours.MenuBackground)
                for i, item in ipairs(self.Items) do
                    if item.Separator then
                        Drawing.DrawArea(self.X, self.Y + i, self.Width, 1, '-', colours.grey, UIColours.MenuBackground)
                    else
                        local textColour = item.Colour or UIColours.MenuText
                        if (item.Enabled and type(item.Enabled) == 'function' and item.Enabled() == false) or item.Enabled == false then
                            textColour = UIColours.MenuDisabledText
                        end
                        Drawing.DrawCharacters(self.X + 1, self.Y + i, item.Title, textColour, UIColours.MenuBackground)
                    end
                end
            else
                Drawing.DrawBlankArea(self.X, self.Y, self.Width, self.Height, UIColours.MenuBackground)
                for i, item in ipairs(self.Items) do
                    if item.Separator then
                        Drawing.DrawArea(self.X, self.Y + i - 1, self.Width, 1, '-', colours.grey, UIColours.MenuBackground)
                    else
                        local textColour = item.Colour or UIColours.MenuText
                        if (item.Enabled and type(item.Enabled) == 'function' and item.Enabled() == false) or item.Enabled == false then
                            textColour = UIColours.MenuDisabledText
                        end
                        Drawing.DrawCharacters(self.X + 1, self.Y + i - 1, item.Title, textColour, UIColours.MenuBackground)

                        Drawing.DrawCharacters(self.X - 1 + self.Width-#item.KeyName, self.Y + i - 1, item.KeyName, textColour, UIColours.MenuBackground)
                    end
                end
            end
        end,

        NameForKey = function(self, key)
            if key == keys.leftCtrl then
                return '^'
            elseif key == keys.tab then
                return 'Tab'
            elseif key == keys.delete then
                return 'Delete'
            elseif key == keys.n then
                return 'N'
            elseif key == keys.a then
                return 'A'
            elseif key == keys.s then
                return 'S'
            elseif key == keys.o then
                return 'O'
            elseif key == keys.z then
                return 'Z'
            elseif key == keys.y then
                return 'Y'
            elseif key == keys.c then
                return 'C'
            elseif key == keys.x then
                return 'X'
            elseif key == keys.v then
                return 'V'
            elseif key == keys.r then
                return 'R'
            elseif key == keys.l then
                return 'L'
            elseif key == keys.t then
                return 'T'
            elseif key == keys.h then
                return 'H'
            elseif key == keys.e then
                return 'E'
            elseif key == keys.p then
                return 'P'
            elseif key == keys.f then
                return 'F'
            elseif key == keys.m then
                return 'M'
            elseif key == keys.q then
                return 'Q'
            else
                return '?'
            end
        end,

        Initialise = function(self, x, y, items, owner, removeTop)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            if not owner then
                return
            end

            local keyNames = {}

            for i, v in ipairs(items) do
                items[i].KeyName = ''
                if v.Keys then
                    for _i, key in ipairs(v.Keys) do
                        items[i].KeyName = items[i].KeyName .. self:NameForKey(key)
                    end
                end
                if items[i].KeyName ~= '' then
                    table.insert(keyNames, items[i].KeyName)
                end
            end
            local keysLength = LongestString(keyNames)
            if keysLength > 0 then
                keysLength = keysLength + 2
            end

            new.Width = LongestString(items, 'Title') + 2 + keysLength
            if new.Width < 10 then
                new.Width = 10
            end
            new.Height = #items + 2
            new.RemoveTop = removeTop or false
            if removeTop then
                new.Height = new.Height - 1
            end

            if y < 1 then
                y = 1
            end
            if x < 1 then
                x = 1
            end

            if y + new.Height > Drawing.Screen.Height + 1 then
                y = Drawing.Screen.Height - new.Height
            end
            if x + new.Width > Drawing.Screen.Width + 1 then
                x = Drawing.Screen.Width - new.Width
            end


            new.Y = y
            new.X = x
            new.Items = items
            new.Owner = owner
            return new
        end,

        New = function(self, x, y, items, owner, removeTop)
            if Current.Menu and Current.Menu.Owner == owner then
                Current.Menu = nil
                return
            end

            local new = self:Initialise(x, y, items, owner, removeTop)
            Current.Menu = new
            return new
        end,

        Click = function(self, side, x, y)
            local i = y-1
            if self.RemoveTop then
                i = y
            end
            if i >= 1 and y < self.Height then
                if not ((self.Items[i].Enabled and type(self.Items[i].Enabled) == 'function' and self.Items[i].Enabled() == false) or self.Items[i].Enabled == false) and self.Items[i].Click then
                    self.Items[i]:Click()
                    if Current.Menu.Owner and Current.Menu.Owner.Toggle then
                        Current.Menu.Owner.Toggle = false
                    end
                    Current.Menu = nil
                    self = nil
                end
                return true
            end
        end
    }

    MenuBar = {
        X = 1,
        Y = 1,
        Width = Drawing.Screen.Width,
        Height = 1,
        MenuBarItems = {},

        AbsolutePosition = function(self)
            return {X = self.X, Y = self.Y}
        end,

        Draw = function(self)
            --Drawing.DrawArea(self.X - 1, self.Y, 1, self.Height, "|", UIColours.ToolbarText, UIColours.Background)

            Drawing.DrawBlankArea(self.X, self.Y, self.Width, self.Height, colours.grey)
            for i, button in ipairs(self.MenuBarItems) do
                button:Draw()
            end
        end,

        Initialise = function(self, items)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.X = 1
            new.Y = 1
            new.MenuBarItems = items
            return new
        end,

        AddToolbarItem = function(self, item)
            table.insert(self.ToolbarItems, item)
            self:CalculateToolbarItemPositions()
        end,

        CalculateToolbarItemPositions = function(self)
            local currY = 1
            for i, toolbarItem in ipairs(self.ToolbarItems) do
                toolbarItem.Y = currY
                currY = currY + toolbarItem.Height
            end
        end,

        Click = function(self, side, x, y)
            for i, item in ipairs(self.MenuBarItems) do
                if item.X <= x and item.X + item.Width > x then
                    if item:Click(item, side, x - item.X + 1, 1) then
                        return true
                    end
                end
            end
            return false
        end
    }

    TextFormatPlainText = 1
    TextFormatInkText = 2

    Document = {
        X = 1,
        Y = 1,
        PageSize = {Width = 25, Height = 21},
        TextInput = nil,
        Pages = {},
        Format = TextFormatPlainText,
        Title = '',
        Path = nil,
        ScrollBar = nil,
        Lines = {},
        CursorPos = nil,

        CalculateLineWrapping = function(self)
            local limit = self.PageSize.Width
            local text = self.TextInput.Value
            local lines = {''}
            local words = {}

            for word, space in text:gmatch('(%S+)(%s*)') do
                for i = 1, math.ceil(#word/limit) do
                    local _space = ''
                    if i == math.ceil(#word/limit) then
                        _space = space
                    end
                    table.insert(words, {word:sub(1+limit*(i-1), limit*i), _space})
                end
            end

            for i, ws in ipairs(words) do
                    local word = ws[1]
                    local space = ws[2]
                    local temp = lines[#lines] .. word .. space:gsub('\n','')
                    if #temp > limit then
                        table.insert(lines, '')
                    end
                    if space:find('\n') then
                        lines[#lines] = lines[#lines] .. word

                        space = space:gsub('\n', function()
                                table.insert(lines, '')
                                return ''
                        end)
                    else
                        lines[#lines] = lines[#lines] .. word .. space
                    end
            end
            return lines
        end,

        CalculateCursorPos = function(self)
            local passedCharacters = 0
            Current.CursorPos = nil
            for p, page in ipairs(self.Pages) do
                page:Draw()
                if not Current.CursorPos then
                    for i, line in ipairs(page.Lines) do
                        local relCursor = self.TextInput.CursorPos - FindColours(self.TextInput.Value:sub(1,self.TextInput.CursorPos))
                        if passedCharacters + #StripColours(line.Text:gsub('\n','')) >= relCursor then
                            Current.CursorPos = {self.X + page.MarginX + (relCursor - passedCharacters), page.Y + 1 + i}
                            self.CursorPos = {Page = p, Line = i, Collum = relCursor - passedCharacters - FindColours(self.TextInput.Value:sub(1,self.TextInput.CursorPos-1))}
                            break
                        end
                        passedCharacters = passedCharacters + #StripColours(line.Text:gsub('\n',''))
                    end
                end
            end
        end,

        Draw = function(self)
            self:CalculatePages()
            self:CalculateCursorPos()
            self.ScrollBar:Draw()
        end,

        CalculatePages = function(self)
            self.Pages = {}
            local lines = self:CalculateLineWrapping()
            self.Lines = lines
            local pageLines = {}
            local totalPageHeight = (3 + self.PageSize.Height + 2 * Page.MarginY)
            for i, line in ipairs(lines) do
                table.insert(pageLines, TextLine:Initialise(line))
                if i % self.PageSize.Height == 0 then
                    table.insert(self.Pages, Page:Initialise(self, pageLines, 3 - self.ScrollBar.Scroll + totalPageHeight*(#self.Pages)))
                    pageLines = {}
                end
            end
            if #pageLines ~= 0 then
                table.insert(self.Pages, Page:Initialise(self, pageLines, 3 - self.ScrollBar.Scroll + totalPageHeight*(#self.Pages)))
            end

            self.ScrollBar.MaxScroll = totalPageHeight*(#self.Pages) - Drawing.Screen.Height + 1
        end,

        ScrollToCursor = function(self)
            self:CalculateCursorPos()
            if Current.CursorPos and
                (Current.CursorPos[2] > Drawing.Screen.Height
                or Current.CursorPos[2] < 2) then
                self.ScrollBar:DoScroll(Current.CursorPos[2] - Drawing.Screen.Height)
            end
        end,

        SetSelectionColour = function(self, colour)
            local selection = OrderSelection()
            local text = self.TextInput:Extract(true)
            local colChar = CharacterFromColour(colour)
            local precedingColour = ''
            if FindColours(self.TextInput.Value:sub(self.TextInput.CursorPos+1, self.TextInput.CursorPos+1)) == 0 then
                for i = 1, self.TextInput.CursorPos do
                    local c = self.TextInput.Value:sub(self.TextInput.CursorPos - i,self.TextInput.CursorPos - i)
                    if FindColours(c) == 1 then
                        precedingColour = c
                        break
                    end
                end
                if precedingColour == '' then
                    precedingColour = CharacterFromColour(colours.black)
                end
            end

            self.TextInput:Insert(colChar..StripColours(text)..precedingColour)
            --text = text:gsub('['..string.char(14)..'-'..string.char(29)..']','')
        end,

        Initialise = function(self, text, title, path)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Title = title or 'New Document'
            new.Path = path
            new.X = (Drawing.Screen.Width - (new.PageSize.Width + 2*(Page.MarginX)))/2
            new.Y = 2
            new.TextInput = TextInput:Initialise(text, function()
                new:ScrollToCursor()
                Current.Modified = true
                Draw()
            end, false, true)
            new.ScrollBar = ScrollBar:Initialise(Drawing.Screen.Width, new.Y, Drawing.Screen.Height-1, 0, nil, nil, nil, function()end)
            Current.TextInput = new.TextInput
            Current.ScrollBar = new.ScrollBar
            return new
        end
    }

    ScrollBar = {
        X = 1,
        Y = 1,
        Width = 1,
        Height = 1,
        BackgroundColour = colours.grey,
        BarColour = colours.lightBlue,
        Parent = nil,
        Change = nil,
        Scroll = 0,
        MaxScroll = 0,
        ClickPoint = nil,

        AbsolutePosition = function(self)
            return self.Parent:AbsolutePosition()
        end,

        Draw = function(self)
            local pos = GetAbsolutePosition(self)
            local barHeight = self.Height - self.MaxScroll
            if barHeight < 3 then
              barHeight = 3
            end
            local percentage = (self.Scroll/self.MaxScroll)

            Drawing.DrawBlankArea(pos.X, pos.Y, self.Width, self.Height, self.BackgroundColour)
            Drawing.DrawBlankArea(pos.X, pos.Y + round(self.Height*percentage - barHeight*percentage), self.Width, barHeight, self.BarColour)
        end,

        Initialise = function(self, x, y, height, maxScroll, backgroundColour, barColour, parent, change)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Width = 1
            new.Height = height
            new.Y = y
            new.X = x
            new.BackgroundColour = backgroundColour or colours.grey
            new.BarColour = barColour or colours.lightBlue
            new.Parent = parent
            new.Change = change or function()end
            new.MaxScroll = maxScroll
            new.Scroll = 0
            return new
        end,

        DoScroll = function(self, amount)
            amount = round(amount)
            if self.Scroll < 0 or self.Scroll > self.MaxScroll then
                return false
            end
            self.Scroll = self.Scroll + amount
            if self.Scroll < 0 then
                self.Scroll = 0
            elseif self.Scroll > self.MaxScroll then
                self.Scroll = self.MaxScroll
            end
            self.Change()
            return true
        end,

        Click = function(self, side, x, y, drag)
            local percentage = (self.Scroll/self.MaxScroll)
            local barHeight = (self.Height - self.MaxScroll)
            if barHeight < 3 then
                barHeight = 3
            end
            local relScroll = (self.MaxScroll*(y + barHeight*percentage)/self.Height)
            if not drag then
                self.ClickPoint = self.Scroll - relScroll + 1
            end

            if self.Scroll-1 ~= relScroll then
                self:DoScroll(relScroll-self.Scroll-1 + self.ClickPoint)
            end
            return true
        end
    }

    AlignmentLeft = 1
    AlignmentCentre = 2
    AlignmentRight = 3

    TextLine = {
        Text = "",
        Alignment = AlignmentLeft,

        Initialise = function(self, text, alignment)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Text = text
            new.Alignment = alignment or AlignmentLeft
            return new
        end
    }

    local clickPos = 1
    Page = {
        X = 1,
        Y = 1,
        Width = 1,
        Height = 1,
        MarginX = 3,
        MarginY = 2,
        BackgroundColour = colours.white,
        TextColour = colours.white,
        ActiveBackgroundColour = colours.lightGrey,
        Lines = {},
        Parent = nil,

        AbsolutePosition = function(self)
            return self.Parent:AbsolutePosition()
        end,

        Draw = function(self)
            local pos = GetAbsolutePosition(self)

            if pos.Y > Drawing.Screen.Height or pos.Y + self.Height < 1 then
                return
            end

            Drawing.DrawBlankArea(pos.X+self.Width,pos.Y -1 + 1, 1, self.Height, UIColours.Shadow)
            Drawing.DrawBlankArea(pos.X+1, pos.Y -1 + self.Height, self.Width, 1, UIColours.Shadow)
            Drawing.DrawBlankArea(pos.X, pos.Y -1, self.Width, self.Height, self.BackgroundColour)

            local textColour = self.TextColour
            if not Current.Selection then
                for i, line in ipairs(self.Lines) do
                    local _c = 1
                    for c = 1, #line.Text do
                        local col = ColourFromCharacter(line.Text:sub(c,c))
                        if col then
                            textColour = col
                        else
                            Drawing.WriteToBuffer(pos.X + self.MarginX - 1 + _c, pos.Y -2 + i + self.MarginY, line.Text:sub(c,c), textColour, self.BackgroundColour)
                            _c = _c + 1
                        end
                    end
                end
            else
                local selection = OrderSelection()
                local char = 1
                local textColour = self.TextColour
                for i, line in ipairs(self.Lines) do
                    local _c = 1
                    for c = 1, #line.Text do
                        local col = ColourFromCharacter(line.Text:sub(c,c))
                        if col then
                            textColour = col
                        else
                            local tc = textColour
                            local colour = colours.white
                            if char >= selection[1] and char <= selection[2] then
                                colour = colours.lightBlue
                                tc = colours.white
                            end

                            Drawing.WriteToBuffer(pos.X + self.MarginX - 1 + _c, pos.Y -2 + i + self.MarginY, line.Text:sub(c,c), tc, colour)
                            _c = _c + 1
                        end
                        char = char + 1
                    end
                end
            end
        end,

        Initialise = function(self, parent, lines, y)
            local new = {}    -- the new instanc
            setmetatable( new, {__index = self} )
            new.Height = parent.PageSize.Height + 2 * self.MarginY
            new.Width = parent.PageSize.Width + 2 * self.MarginX
            new.X = 1
            new.Y = y or 1
            new.Lines = lines or {}
            new.BackgroundColour = colours.white
            new.TextColour = colours.black
            new.Parent = parent
            new.ClickPos = 1
            return new
        end,

        GetCursorPosFromPoint = function(self, x, y, rel)
            local pos = GetAbsolutePosition(self)
            if rel then
                pos = {Y = 0, X = 0}
            end
            local row = y - pos.Y + self.MarginY - self.Parent.ScrollBar.Scroll
            local col = x - self.MarginX - pos.X + 1
            local cursorPos = 0
            if row <= 0 or col <= 0 then
                return 0
            end

            if row > #self.Lines then
                for i, v in ipairs(self.Lines) do
                    cursorPos = cursorPos + #v.Text-- - FindColours(v.Text)
                end
                return cursorPos
            end

            --term.setCursorPos(1,3)
            local prevLineCount = 0
            for i, v in ipairs(self.Lines) do
                if i == row then
                    if col > #v.Text then
                        col = #v.Text-- + FindColours(v.Text)
                    else
                        col = col + FindColours(v.Text:sub(1, col))
                    end
                    --term.setCursorPos(1,2)
                    --print(prevLineCount)
                    cursorPos = cursorPos + col + 2 - i - prevLineCount
                    break
                else
                    prevLineCount = FindColours(v.Text)
                    if prevLineCount ~= 0 then
                        prevLineCount = prevLineCount
                    end
                    cursorPos = cursorPos + #v.Text + 2 - i + FindColours(v.Text)
                end
            end

            return cursorPos - 2
        end,

        Click = function(self, side, x, y, drag)
            local cursorPos = self:GetCursorPosFromPoint(x, y)
            self.Parent.TextInput.CursorPos = cursorPos
            if drag == nil then
                Current.Selection = nil
                clickPos = x
            else
                local relCursor = cursorPos-- - FindColours(self.Parent.TextInput.Value:sub(1,cursorPos)) + 1
                if not Current.Selection then
                    local adder = 1
                    if clickPos and clickPos < x then
                        adder = 0
                    end
                    Current.Selection = {relCursor + adder, relCursor + 1 + adder}
                else
                    Current.Selection[2] = relCursor + 1
                end
            end
            Draw()
            return true
        end
    }

    function GetAbsolutePosition(object)
        local obj = object
        local i = 0
        local x = 1
        local y = 1
        while true do
            x = x + obj.X - 1
            y = y + obj.Y - 1

            if not obj.Parent then
                return {X = x, Y = y}
            end

            obj = obj.Parent

            if i > 32 then
                return {X = 1, Y = 1}
            end

            i = i + 1
        end

    end

    function Draw()
        if not Current.Window then
            Drawing.Clear(colours.lightGrey)
        else
            Drawing.DrawArea(1, 2, Drawing.Screen.Width, Drawing.Screen.Height, '|', colours.black, colours.lightGrey)
        end

        if Current.Document then
            Current.Document:Draw()
        end

        Current.MenuBar:Draw()

        if Current.Window then
            Current.Window:Draw()
        end

        if Current.Menu then
            Current.Menu:Draw()
        end

        Drawing.DrawBuffer()

        if Current.TextInput and Current.CursorPos and not Current.Menu and not(Current.Window and Current.Document and Current.TextInput == Current.Document.TextInput) and Current.CursorPos[2] > 1 then
            term.setCursorPos(Current.CursorPos[1], Current.CursorPos[2])
            term.setCursorBlink(true)
            term.setTextColour(Current.CursorColour)
        else
            term.setCursorBlink(false)
        end
    end
    MainDraw = Draw

    LongestString = function(input, key)
        local length = 0
        for i = 1, #input do
            local value = input[i]
            if key then
                if value[key] then
                    value = value[key]
                else
                    value = ''
                end
            end
            local titleLength = string.len(value)
            if titleLength > length then
                length = titleLength
            end
        end
        return length
    end

    function LoadMenuBar()
        Current.MenuBar = MenuBar:Initialise({
            Button:Initialise(1, 1, nil, nil, colours.grey, Current.MenuBar, function(self, side, x, y, toggle)
                if toggle then
                    Menu:New(1, 2, {
                        {
                            Title = "New...",
                            Click = function()
                                Current.Document = Document:Initialise('')
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.n
                            }
                        },
                        {
                            Title = 'Open...',
                            Click = function()
                                DisplayOpenDocumentWindow()
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.o
                            }
                        },
                        {
                            Separator = true
                        },
                        {
                            Title = 'Save...',
                            Click = function()
                                SaveDocument()
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.s
                            },
                            Enabled = function()
                                return true
                            end
                        },
                        {
                            Separator = true
                        },
                        {
                            Title = 'Print...',
                            Click = function()
                                PrintDocument()
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.p
                            },
                            Enabled = function()
                                return true
                            end
                        },
                        {
                            Separator = true
                        },
                        {
                            Title = 'Quit',
                            Click = function()
                                Close()
                            end
                        },
                --[[
                        {
                            Title = 'Save As...',
                            Click = function()

                            end
                        }
                ]]--
                    }, self, true)
                else
                    Current.Menu = nil
                end
                return true
            end, 'File', colours.lightGrey, false),
            Button:Initialise(7, 1, nil, nil, colours.grey, Current.MenuBar, function(self, side, x, y, toggle)
                if not self.Toggle then
                    Menu:New(7, 2, {
                --[[
                        {
                            Title = "Undo",
                            Click = function()
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.z
                            },
                            Enabled = function()
                                return false
                            end
                        },
                        {
                            Title = 'Redo',
                            Click = function()

                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.y
                            },
                            Enabled = function()
                                return false
                            end
                        },
                        {
                            Separator = true
                        },
                ]]--
                        {
                            Title = 'Cut',
                            Click = function()
                                Clipboard.Cut(Current.Document.TextInput:Extract(true), 'text')
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.x
                            },
                            Enabled = function()
                                return Current.Document ~= nil and Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil
                            end
                        },
                        {
                            Title = 'Copy',
                            Click = function()
                                Clipboard.Copy(Current.Document.TextInput:Extract(), 'text')
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.c
                            },
                            Enabled = function()
                                return Current.Document ~= nil and Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil
                            end
                        },
                        {
                            Title = 'Paste',
                            Click = function()
                                local paste = Clipboard.Paste()
                                Current.Document.TextInput:Insert(paste)
                                Current.Document.TextInput.CursorPos = Current.Document.TextInput.CursorPos + #paste - 1
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.v
                            },
                            Enabled = function()
                                return Current.Document ~= nil and (not Clipboard.isEmpty()) and Clipboard.Type == 'text'
                            end
                        },
                        {
                            Separator = true,
                        },
                        {
                            Title = 'Select All',
                            Click = function()
                                Current.Selection = {1, #Current.Document.TextInput.Value:gsub('\n','')}
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.a
                            },
                            Enabled = function()
                                return Current.Document ~= nil
                            end
                        }
                    }, self, true)
                else
                    Current.Menu = nil
                end
                return true
            end, 'Edit', colours.lightGrey, false)
        })
    end

    function LoadMenuBar()
        Current.MenuBar = MenuBar:Initialise({
            Button:Initialise(1, 1, nil, nil, colours.grey, Current.MenuBar, function(self, side, x, y, toggle)
                if toggle then
                    Menu:New(1, 2, {
                        {
                            Title = "New...",
                            Click = function()
                                Current.Document = Document:Initialise('')
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.n
                            }
                        },
                        {
                            Title = 'Open...',
                            Click = function()
                                DisplayOpenDocumentWindow()
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.o
                            }
                        },
                        {
                            Separator = true
                        },
                        {
                            Title = 'Save...',
                            Click = function()
                                SaveDocument()
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.s
                            },
                            Enabled = function()
                                return Current.Document ~= nil
                            end
                        },
                        {
                            Separator = true
                        },
                        {
                            Title = 'Print...',
                            Click = function()
                                PrintDocument()
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.p
                            },
                            Enabled = function()
                                return true
                            end
                        },
                        {
                            Separator = true
                        },
                        {
                            Title = 'Quit',
                            Click = function()
                                if Close() and OneOS then
                                    OneOS.Close()
                                end
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.q
                            }
                        },
                --[[
                        {
                            Title = 'Save As...',
                            Click = function()

                            end
                        }
                ]]--
                    }, self, true)
                else
                    Current.Menu = nil
                end
                return true
            end, 'File', colours.lightGrey, false),
            Button:Initialise(7, 1, nil, nil, colours.grey, Current.MenuBar, function(self, side, x, y, toggle)
                if not self.Toggle then
                    Menu:New(7, 2, {
                --[[
                        {
                            Title = "Undo",
                            Click = function()
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.z
                            },
                            Enabled = function()
                                return false
                            end
                        },
                        {
                            Title = 'Redo',
                            Click = function()

                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.y
                            },
                            Enabled = function()
                                return false
                            end
                        },
                        {
                            Separator = true
                        },
                ]]--
                        {
                            Title = 'Cut',
                            Click = function()
                                Clipboard.Cut(Current.Document.TextInput:Extract(true), 'text')
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.x
                            },
                            Enabled = function()
                                return Current.Document ~= nil and Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil
                            end
                        },
                        {
                            Title = 'Copy',
                            Click = function()
                                Clipboard.Copy(Current.Document.TextInput:Extract(), 'text')
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.c
                            },
                            Enabled = function()
                                return Current.Document ~= nil and Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil
                            end
                        },
                        {
                            Title = 'Paste',
                            Click = function()
                                local paste = Clipboard.Paste()
                                Current.Document.TextInput:Insert(paste)
                                Current.Document.TextInput.CursorPos = Current.Document.TextInput.CursorPos + #paste - 1
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.v
                            },
                            Enabled = function()
                                return Current.Document ~= nil and (not Clipboard.isEmpty()) and Clipboard.Type == 'text'
                            end
                        },
                        {
                            Separator = true,
                        },
                        {
                            Title = 'Select All',
                            Click = function()
                                Current.Selection = {1, #Current.Document.TextInput.Value:gsub('\n','')}
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.a
                            },
                            Enabled = function()
                                return Current.Document ~= nil
                            end
                        }
                    }, self, true)
                else
                    Current.Menu = nil
                end
                return true
            end, 'Edit', colours.lightGrey, false),
            Button:Initialise(13, 1, nil, nil, colours.grey, Current.MenuBar, function(self, side, x, y, toggle)
                if not self.Toggle then
                    Menu:New(13, 2, {
                        {
                            Title = 'Red',
                            Click = function(item)
                                Current.Document:SetSelectionColour(item.Colour)
                            end,
                            Colour = colours.red,
                            Enabled = function()
                                return (Current.Document ~= nil and Current.Selection ~= nil and Current.Selection[1] ~= nil and Current.Selection[2] ~= nil)
                            end
                        },
                        {
                            Title = 'Orange',
                            Click = function(item)
                                Current.Document:SetSelectionColour(item.Colour)
                            end,
                            Colour = colours.orange,
                            Enabled = function()
                                return (Current.Document ~= nil and Current.Selection ~= nil and Current.Selection[1] ~= nil and Current.Selection[2] ~= nil)
                            end
                        },
                        {
                            Title = 'Yellow',
                            Click = function(item)
                                Current.Document:SetSelectionColour(item.Colour)
                            end,
                            Colour = colours.yellow,
                            Enabled = function()
                                return (Current.Document ~= nil and Current.Selection ~= nil and Current.Selection[1] ~= nil and Current.Selection[2] ~= nil)
                            end
                        },
                        {
                            Title = 'Pink',
                            Click = function(item)
                                Current.Document:SetSelectionColour(item.Colour)
                            end,
                            Colour = colours.pink,
                            Enabled = function()
                                return (Current.Document ~= nil and Current.Selection ~= nil and Current.Selection[1] ~= nil and Current.Selection[2] ~= nil)
                            end
                        },
                        {
                            Title = 'Magenta',
                            Click = function(item)
                                Current.Document:SetSelectionColour(item.Colour)
                            end,
                            Colour = colours.magenta,
                            Enabled = function()
                                return (Current.Document ~= nil and Current.Selection ~= nil and Current.Selection[1] ~= nil and Current.Selection[2] ~= nil)
                            end
                        },
                        {
                            Title = 'Purple',
                            Click = function(item)
                                Current.Document:SetSelectionColour(item.Colour)
                            end,
                            Colour = colours.purple,
                            Enabled = function()
                                return (Current.Document ~= nil and Current.Selection ~= nil and Current.Selection[1] ~= nil and Current.Selection[2] ~= nil)
                            end
                        },
                        {
                            Title = 'Light Blue',
                            Click = function(item)
                                Current.Document:SetSelectionColour(item.Colour)
                            end,
                            Colour = colours.lightBlue,
                            Enabled = function()
                                return (Current.Document ~= nil and Current.Selection ~= nil and Current.Selection[1] ~= nil and Current.Selection[2] ~= nil)
                            end
                        },
                        {
                            Title = 'Cyan',
                            Click = function(item)
                                Current.Document:SetSelectionColour(item.Colour)
                            end,
                            Colour = colours.cyan,
                            Enabled = function()
                                return (Current.Document ~= nil and Current.Selection ~= nil and Current.Selection[1] ~= nil and Current.Selection[2] ~= nil)
                            end
                        },
                        {
                            Title = 'Blue',
                            Click = function(item)
                                Current.Document:SetSelectionColour(item.Colour)
                            end,
                            Colour = colours.blue,
                            Enabled = function()
                                return (Current.Document ~= nil and Current.Selection ~= nil and Current.Selection[1] ~= nil and Current.Selection[2] ~= nil)
                            end
                        },
                        {
                            Title = 'Green',
                            Click = function(item)
                                Current.Document:SetSelectionColour(item.Colour)
                            end,
                            Colour = colours.green,
                            Enabled = function()
                                return (Current.Document ~= nil and Current.Selection ~= nil and Current.Selection[1] ~= nil and Current.Selection[2] ~= nil)
                            end
                        },
                        {
                            Title = 'Light Grey',
                            Click = function(item)
                                Current.Document:SetSelectionColour(item.Colour)
                            end,
                            Colour = colours.lightGrey,
                            Enabled = function()
                                return (Current.Document ~= nil and Current.Selection ~= nil and Current.Selection[1] ~= nil and Current.Selection[2] ~= nil)
                            end
                        },
                        {
                            Title = 'Grey',
                            Click = function(item)
                                Current.Document:SetSelectionColour(item.Colour)
                            end,
                            Colour = colours.grey,
                            Enabled = function()
                                return (Current.Document ~= nil and Current.Selection ~= nil and Current.Selection[1] ~= nil and Current.Selection[2] ~= nil)
                            end
                        },
                        {
                            Title = 'Black',
                            Click = function(item)
                                Current.Document:SetSelectionColour(item.Colour)
                            end,
                            Colour = colours.black,
                            Enabled = function()
                                return (Current.Document ~= nil and Current.Selection ~= nil and Current.Selection[1] ~= nil and Current.Selection[2] ~= nil)
                            end
                        },
                        {
                            Title = 'Brown',
                            Click = function(item)
                                Current.Document:SetSelectionColour(item.Colour)
                            end,
                            Colour = colours.brown,
                            Enabled = function()
                                return (Current.Document ~= nil and Current.Selection ~= nil and Current.Selection[1] ~= nil and Current.Selection[2] ~= nil)
                            end
                        }
                    }, self, true)
                else
                    Current.Menu = nil
                end
                return true
            end, 'Colour', colours.lightGrey, false)
        })
    end

    function SplashScreen()
        local w = colours.white
        local b = colours.black
        local u = colours.blue
        local lb = colours.lightBlue
        local splashIcon = {{w,w,w,b,w,w,w,b,w,w,w,},{w,w,w,b,w,w,w,b,w,w,w,},{w,w,w,b,u,u,u,b,w,w,w,},{w,b,b,u,u,u,u,u,b,b,w,},{b,u,u,lb,lb,u,u,u,u,u,b,},{b,u,lb,lb,u,u,u,u,u,u,b,},{b,u,lb,lb,u,u,u,u,u,u,b,},{b,u,u,u,u,u,u,u,u,u,b,},{w,b,b,b,b,b,b,b,b,b,w,},
        ["text"]={{" "," "," "," "," "," "," "," "," "," "," ",},{" "," "," "," "," "," "," "," "," "," "," ",},{" "," "," "," "," "," "," "," "," "," "," ",},{" "," "," "," "," "," "," "," "," "," "," ",},{" "," "," "," "," "," "," "," "," "," "," ",},{" "," "," "," ","I","n","k"," "," "," "," ",},{" "," "," "," "," "," "," "," "," "," "," ",},{" "," ","b","y"," ","o","e","e","d"," "," "},{" "," "," "," "," "," "," "," "," "," "," ",},},
        ["textcol"]={{w,w,w,w,w,w,w,w,w,w,w,},{w,w,w,w,w,w,w,w,w,w,w,},{w,w,w,w,w,w,w,w,w,w,w,},{w,w,w,w,w,w,w,w,w,w,w,},{w,w,w,w,w,w,w,w,w,w,w,},{w,w,w,w,w,w,w,w,w,w,w,},{w,w,w,w,w,w,w,w,w,w,w,},{lb,lb,lb,lb,lb,lb,lb,lb,lb,lb,lb,},{w,w,w,w,w,w,w,w,w,w,w,},},}
        Drawing.Clear(colours.white)
        Drawing.DrawImage((Drawing.Screen.Width - 11)/2, (Drawing.Screen.Height - 9)/2, splashIcon, 11, 9)
        Drawing.DrawBuffer()
        Drawing.Clear(colours.black)
        parallel.waitForAny(function()sleep(1)end, function()os.pullEvent('mouse_click')end)
    end

    function Initialise(arg)
        if OneOS then
            fs = OneOS.FS
        end

        if not OneOS then
            SplashScreen()
        end
        EventRegister('mouse_click', TryClick)
        EventRegister('mouse_drag', function(event, side, x, y)TryClick(event, side, x, y, true)end)
        EventRegister('mouse_scroll', Scroll)
        EventRegister('key', HandleKey)
        EventRegister('char', HandleKey)
        EventRegister('timer', Timer)
        EventRegister('terminate', function(event) if Close() then error( "Terminated", 0 ) end end)

        LoadMenuBar()

        --Current.Document = Document:Initialise('abcdefghijklmnopqrtuvwxy')--'Hello everybody!')
        if tArgs[1] then
            if fs.exists(tArgs[1]) then
                OpenDocument(tArgs[1])
            else
                --new
            end
        else
            Current.Document = Document:Initialise('')--'Hello everybody!')
        end

        --[[
        if arg and fs.exists(arg) then
                OpenDocument(arg)
            else
                DisplayNewDocumentWindow()
            end
        ]]--
        Draw()

        EventHandler()
    end

    local isControlPushed = false
    controlPushedTimer = nil
    closeWindowTimer = nil
    function Timer(event, timer)
        if timer == closeWindowTimer then
            if Current.Window then
                Current.Window:Close()
            end
            Draw()
        elseif timer == controlPushedTimer then
            isControlPushed = false
        end
    end

    local ignoreNextChar = false
    function HandleKey(...)
        local args = {...}
        local event = args[1]
        local keychar = args[2]
                                                                                                --Mac left command character
        if event == 'key' and keychar == keys.leftCtrl or keychar == keys.rightCtrl or keychar == 219 then
            isControlPushed = true
            controlPushedTimer = os.startTimer(0.5)
        elseif isControlPushed then
            if event == 'key' then
                if CheckKeyboardShortcut(keychar) then
                    isControlPushed = false
                    ignoreNextChar = true
                end
            end
        elseif ignoreNextChar then
            ignoreNextChar = false
        elseif Current.TextInput then
            if event == 'char' then
                Current.TextInput:Char(keychar)
            elseif event == 'key' then
                Current.TextInput:Key(keychar)
            end
        end
    end

    function CheckKeyboardShortcut(key)
        local shortcuts = {}
        shortcuts[keys.n] = function() Current.Document = Document:Initialise('') end
        shortcuts[keys.o] = function() DisplayOpenDocumentWindow() end
        shortcuts[keys.s] = function() if Current.Document ~= nil then SaveDocument() end end
        shortcuts[keys.left] = function() if Current.TextInput then Current.TextInput:Key(keys.home) end end
        shortcuts[keys.right] = function() if Current.TextInput then Current.TextInput:Key(keys["end"]) end end
    --  shortcuts[keys.q] = function() DisplayOpenDocumentWindow() end
        if Current.Document ~= nil then
            shortcuts[keys.s] = function() SaveDocument() end
            shortcuts[keys.p] = function() PrintDocument() end
            if Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil then
                shortcuts[keys.x] = function() Clipboard.Cut(Current.Document.TextInput:Extract(true), 'text') end
                shortcuts[keys.c] = function() Clipboard.Copy(Current.Document.TextInput:Extract(), 'text') end
            end
            if (not Clipboard.isEmpty()) and Clipboard.Type == 'text' then
                shortcuts[keys.v] = function() local paste = Clipboard.Paste()
                                        Current.Document.TextInput:Insert(paste)
                                        Current.Document.TextInput.CursorPos = Current.Document.TextInput.CursorPos + #paste - 1
                                    end
            end
            shortcuts[keys.a] = function() Current.Selection = {1, #Current.Document.TextInput.Value:gsub('\n','')} end
        end

        if shortcuts[key] then
            shortcuts[key]()
            Draw()
            return true
        else
            return false
        end
    end

    --[[
        Check if the given object falls under the click coordinates
    ]]--
    function CheckClick(object, x, y)
        if object.X <= x and object.Y <= y and object.X + object.Width > x and object.Y + object.Height > y then
            return true
        end
    end

    --[[
        Attempt to clicka given object
    ]]--
    function DoClick(object, side, x, y, drag)
        local obj = GetAbsolutePosition(object)
        obj.Width = object.Width
        obj.Height = object.Height
        if object and CheckClick(obj, x, y) then
            return object:Click(side, x - object.X + 1, y - object.Y + 1, drag)
        end
    end

    --[[
        Try to click at the given coordinates
    ]]--
    function TryClick(event, side, x, y, drag)
        if Current.Menu then
            if DoClick(Current.Menu, side, x, y, drag) then
                Draw()
                return
            else
                if Current.Menu.Owner and Current.Menu.Owner.Toggle then
                    Current.Menu.Owner.Toggle = false
                end
                Current.Menu = nil
                Draw()
                return
            end
        elseif Current.Window then
            if DoClick(Current.Window, side, x, y, drag) then
                Draw()
                return
            else
                Current.Window:Flash()
                return
            end
        end
        local interfaceElements = {}

        table.insert(interfaceElements, Current.MenuBar)
        table.insert(interfaceElements, Current.ScrollBar)
        for i, page in ipairs(Current.Document.Pages) do
            table.insert(interfaceElements, page)
        end

        for i, object in ipairs(interfaceElements) do
            if DoClick(object, side, x, y, drag) then
                Draw()
                return
            end
        end
        Draw()
    end

    function Scroll(event, direction, x, y)
        if Current.Window and Current.Window.OpenButton then
            Current.Document.Scroll = Current.Document.Scroll + direction
            if Current.Window.Scroll < 0 then
                Current.Window.Scroll = 0
            elseif Current.Window.Scroll > Current.Window.MaxScroll then
                Current.Window.Scroll = Current.Window.MaxScroll
            end
            Draw()
        elseif Current.ScrollBar then
            if Current.ScrollBar:DoScroll(direction*2) then
                Draw()
            end
        end
    end


    --[[
        Registers functions to run on certain events
    ]]--
    function EventRegister(event, func)
        if not Events[event] then
            Events[event] = {}
        end

        table.insert(Events[event], func)
    end

    --[[
        The main loop event handler, runs registered event functinos
    ]]--
    function EventHandler()
        while true do
            local event, arg1, arg2, arg3, arg4 = os.pullEventRaw()
            if Events[event] then
                for i, e in ipairs(Events[event]) do
                    e(event, arg1, arg2, arg3, arg4)
                end
            end
        end
    end


    local function Extension(path, addDot)
        if not path then
            return nil
        elseif not string.find(fs.getName(path), '%.') then
            if not addDot then
                return fs.getName(path)
            else
                return ''
            end
        else
            local _path = path
            if path:sub(#path) == '/' then
                _path = path:sub(1,#path-1)
            end
            local extension = _path:gmatch('%.[0-9a-z]+$')()
            if extension then
                extension = extension:sub(2)
            else
                --extension = nil
                return ''
            end
            if addDot then
                extension = '.'..extension
            end
            return extension:lower()
        end
    end

    local RemoveExtension = function(path)
        if path:sub(1,1) == '.' then
            return path
        end
        local extension = Extension(path)
        if extension == path then
            return fs.getName(path)
        end
        return string.gsub(path, extension, ''):sub(1, -2)
    end

    local acknowledgedColour = false
    function PrintDocument()
        if OneOS then
            OneOS.LoadAPI('/System/API/Helpers.lua')
            OneOS.LoadAPI('/System/API/Peripheral.lua')
            OneOS.LoadAPI('/System/API/Printer.lua')
        end

        local doPrint = function()
            local window = PrintDocumentWindow:Initialise():Show()
        end

        if Peripheral.GetPeripheral('printer') == nil then
            ButtonDialougeWindow:Initialise('No Printer Found', 'Please place a printer next to your computer. Ensure you also insert dye (left slot) and paper (top slots)', 'Ok', nil, function(window, ok)
                window:Close()
            end):Show()
        elseif not acknowledgedColour and FindColours(Current.Document.TextInput.Value) ~= 0 then
            ButtonDialougeWindow:Initialise('Important', 'Due to the way printers work, you can\'t print in more than one colour. The dye you use will be the colour of the text.', 'Ok', nil, function(window, ok)
                acknowledgedColour = true
                window:Close()
                doPrint()
            end):Show()
        else
            doPrint()
        end
    end

    function SaveDocument()
        local function save()
            local h = fs.open(Current.Document.Path, 'w')
            if h then
                if Current.Document.Format == TextFormatPlainText then
                    h.write(Current.Document.TextInput.Value)
                else
                    local lines = {}
                    for p, page in ipairs(Current.Document.Pages) do
                        for i, line in ipairs(page.Lines) do
                            table.insert(lines, line)
                        end
                    end
                    h.write(textutils.serialize(lines))
                end
                Current.Modified = false
            else
                ButtonDialougeWindow:Initialise('Error', 'An error occured while saving the file, try again.', 'Ok', nil, function(window, ok)
                    window:Close()
                end):Show()
            end
            h.close()
        end

        if not Current.Document.Path then
            SaveDocumentWindow:Initialise(function(self, success, path)
                self:Close()
                if success then
                    local extension = ''
                    if Current.Document.Format == TextFormatPlainText then
                        extension = '.txt'
                    elseif Current.Document.Format == TextFormatInkText then
                        extension = '.ink'
                    end

                    if path:sub(-4) ~= extension then
                        path = path .. extension
                    end

                    Current.Document.Path = path
                    Current.Document.Title = fs.getName(path)
                    save()
                end
                if Current.Document then
                    Current.TextInput = Current.Document.TextInput
                end
            end):Show()
        else
            save()
        end
    end

    function DisplayOpenDocumentWindow()
        OpenDocumentWindow:Initialise(function(self, success, path)
            self:Close()
            if success then
                OpenDocument(path)
            end
        end):Show()
    end

    function OpenDocument(path)
        Current.Selection = nil
        local h = fs.open(path, 'r')
        if h then
            Current.Document = Document:Initialise(h.readAll(), RemoveExtension(fs.getName(path)), path)
        else
            ButtonDialougeWindow:Initialise('Error', 'An error occured while opening the file, try again.', 'Ok', nil, function(window, ok)
                window:Close()
                if Current.Document then
                    Current.TextInput = Current.Document.TextInput
                end
            end):Show()
        end
        h.close()
    end

    local TidyPath = function(path)
        path = '/'..path
        local fs = fs
        if OneOS then
            fs = OneOS.FS
        end
        if fs.isDir(path) then
            path = path .. '/'
        end

        path, n = path:gsub("//", "/")
        while n > 0 do
            path, n = path:gsub("//", "/")
        end
        return path
    end

    OpenDocumentWindow = {
        X = 1,
        Y = 1,
        Width = 0,
        Height = 0,
        CursorPos = 1,
        Visible = true,
        Return = nil,
        OpenButton = nil,
        PathTextBox = nil,
        CurrentDirectory = '/',
        Scroll = 0,
        MaxScroll = 0,
        GoUpButton = nil,
        SelectedFile = '',
        Files = {},
        Typed = false,

        AbsolutePosition = function(self)
            return {X = self.X, Y = self.Y}
        end,

        Draw = function(self)
            if not self.Visible then
                return
            end
            Drawing.DrawBlankArea(self.X + 1, self.Y+1, self.Width, self.Height, colours.grey)
            Drawing.DrawBlankArea(self.X, self.Y, self.Width, 3, colours.lightGrey)
            Drawing.DrawBlankArea(self.X, self.Y+1, self.Width, self.Height-6, colours.white)
            Drawing.DrawCharactersCenter(self.X, self.Y, self.Width, 1, self.Title, colours.black, colours.lightGrey)
            Drawing.DrawBlankArea(self.X, self.Y + self.Height - 5, self.Width, 5, colours.lightGrey)
            self:DrawFiles()

            if (fs.exists(self.PathTextBox.TextInput.Value)) or (self.SelectedFile and #self.SelectedFile > 0 and fs.exists(self.CurrentDirectory .. self.SelectedFile)) then
                self.OpenButton.TextColour = colours.black
            else
                self.OpenButton.TextColour = colours.lightGrey
            end

            self.PathTextBox:Draw()
            self.OpenButton:Draw()
            self.CancelButton:Draw()
            self.GoUpButton:Draw()
        end,

        DrawFiles = function(self)
            for i, file in ipairs(self.Files) do
                if i > self.Scroll and i - self.Scroll <= 11 then
                    if file == self.SelectedFile then
                        Drawing.DrawCharacters(self.X + 1, self.Y + i - self.Scroll, file, colours.white, colours.lightBlue)
                    elseif string.find(file, '%.txt') or string.find(file, '%.text') or string.find(file, '%.ink') or fs.isDir(self.CurrentDirectory .. file) then
                        Drawing.DrawCharacters(self.X + 1, self.Y + i - self.Scroll, file, colours.black, colours.white)
                    else
                        Drawing.DrawCharacters(self.X + 1, self.Y + i - self.Scroll, file, colours.grey, colours.white)
                    end
                end
            end
            self.MaxScroll = #self.Files - 11
            if self.MaxScroll < 0 then
                self.MaxScroll = 0
            end
        end,

        Initialise = function(self, returnFunc)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Width = 32
            new.Height = 17
            new.Return = returnFunc
            new.X = math.ceil((Drawing.Screen.Width - new.Width) / 2)
            new.Y = math.ceil((Drawing.Screen.Height - new.Height) / 2)
            new.Title = 'Open Document'
            new.Visible = true
            new.CurrentDirectory = '/'
            new.SelectedFile = nil
            if OneOS and fs.exists('/Desktop/Documents/') then
                new.CurrentDirectory = '/Desktop/Documents/'
            end
            new.OpenButton = Button:Initialise(new.Width - 6, new.Height - 1, nil, nil, colours.white, new, function(self, side, x, y, toggle)
                if fs.exists(new.PathTextBox.TextInput.Value) and self.TextColour == colours.black and not fs.isDir(new.PathTextBox.TextInput.Value) then
                    returnFunc(new, true, TidyPath(new.PathTextBox.TextInput.Value))
                elseif new.SelectedFile and self.TextColour == colours.black and fs.isDir(new.CurrentDirectory .. new.SelectedFile) then
                    new:GoToDirectory(new.CurrentDirectory .. new.SelectedFile)
                elseif new.SelectedFile and self.TextColour == colours.black then
                    returnFunc(new, true, TidyPath(new.CurrentDirectory .. '/' .. new.SelectedFile))
                end
            end, 'Open', colours.black)
            new.CancelButton = Button:Initialise(new.Width - 15, new.Height - 1, nil, nil, colours.white, new, function(self, side, x, y, toggle)
                returnFunc(new, false)
            end, 'Cancel', colours.black)
            new.GoUpButton = Button:Initialise(2, new.Height - 1, nil, nil, colours.white, new, function(self, side, x, y, toggle)
                local folderName = fs.getName(new.CurrentDirectory)
                local parentDirectory = new.CurrentDirectory:sub(1, #new.CurrentDirectory-#folderName-1)
                new:GoToDirectory(parentDirectory)
            end, 'Go Up', colours.black)
            new.PathTextBox = TextBox:Initialise(2, new.Height - 3, new.Width - 2, 1, new, new.CurrentDirectory, colours.white, colours.black)
            new:GoToDirectory(new.CurrentDirectory)
            return new
        end,

        Show = function(self)
            Current.Window = self
            return self
        end,

        Close = function(self)
            Current.Input = nil
            Current.Window = nil
            self = nil
        end,

        GoToDirectory = function(self, path)
            path = TidyPath(path)
            self.CurrentDirectory = path
            self.Scroll = 0
            self.SelectedFile = nil
            self.Typed = false
            self.PathTextBox.TextInput.Value = path
            local fs = fs
            if OneOS then
                fs = OneOS.FS
            end
            self.Files = fs.list(self.CurrentDirectory)
            Draw()
        end,

        Flash = function(self)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
            sleep(0.15)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
        end,

        Click = function(self, side, x, y)
            local items = {self.OpenButton, self.CancelButton, self.PathTextBox, self.GoUpButton}
            local found = false
            for i, v in ipairs(items) do
                if CheckClick(v, x, y) then
                    v:Click(side, x, y)
                    found = true
                end
            end

            if not found then
                if y <= 12 then
                    local fs = fs
                    if OneOS then
                        fs = OneOS.FS
                    end
                    self.SelectedFile = fs.list(self.CurrentDirectory)[y-1]
                    self.PathTextBox.TextInput.Value = TidyPath(self.CurrentDirectory .. '/' .. self.SelectedFile)
                    Draw()
                end
            end
            return true
        end
    }

    PrintDocumentWindow = {
        X = 1,
        Y = 1,
        Width = 0,
        Height = 0,
        CursorPos = 1,
        Visible = true,
        Return = nil,
        PrintButton = nil,
        CopiesTextBox = nil,
        Scroll = 0,
        MaxScroll = 0,
        PrinterSelectButton = nil,
        Title = '',
        Status = 0, --0 = neutral, 1 = good, -1 = error
        StatusText = '',
        SelectedPrinter = nil,

        AbsolutePosition = function(self)
            return {X = self.X, Y = self.Y}
        end,

        Draw = function(self)
            if not self.Visible then
                return
            end
            Drawing.DrawBlankArea(self.X + 1, self.Y+1, self.Width, self.Height, colours.grey)
            Drawing.DrawBlankArea(self.X, self.Y, self.Width, 1, colours.lightGrey)
            Drawing.DrawBlankArea(self.X, self.Y+1, self.Width, self.Height-1, colours.white)
            Drawing.DrawCharactersCenter(self.X, self.Y, self.Width, 1, self.Title, colours.black, colours.lightGrey)

            self.PrinterSelectButton:Draw()
            Drawing.DrawCharactersCenter(self.X,  self.Y + self.PrinterSelectButton.Y - 2, self.Width, 1, 'Printer', colours.black, colours.white)
            Drawing.DrawCharacters(self.X + self.Width - 3, self.Y + self.PrinterSelectButton.Y - 1, '\\/', colours.black, colours.lightGrey)
            Drawing.DrawCharacters(self.X + 1, self.Y + self.CopiesTextBox.Y - 1, 'Copies', colours.black, colours.white)
            local statusColour = colours.grey
            if self.Status == -1 then
                statusColour = colours.red
            elseif self.Status == 1 then
                statusColour = colours.green
            end
            Drawing.DrawCharacters(self.X + 1, self.Y + self.CopiesTextBox.Y + 1, self.StatusText, statusColour, colours.white)

            self.CopiesTextBox:Draw()
            self.PrintButton:Draw()
            self.CancelButton:Draw()
        end,

        Initialise = function(self)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Width = 32
            new.Height = 11
            new.Return = returnFunc
            new.X = math.ceil((Drawing.Screen.Width - new.Width) / 2)
            new.Y = math.ceil((Drawing.Screen.Height - new.Height) / 2)
            new.Title = 'Print Document'
            new.Visible = true
            new.PrintButton = Button:Initialise(new.Width - 7, new.Height - 1, nil, nil, colours.lightGrey, new, function(self, side, x, y, toggle)
                local doPrint = true
                if new.SelectedPrinter == nil then
                    local p = Peripheral.GetPeripheral('printer')
                    if p then
                        new.SelectedPrinter = p.Side
                        new.PrinterSelectButton.Text = p.Fullname
                    else
                        new.StatusText = 'No Connected Printer'
                        new.Status = -1
                        doPrint = false
                    end
                end
                if doPrint then
                    local printer = Printer:Initialise(new.SelectedPrinter)
                    local err = printer:PrintLines(Current.Document.Lines, Current.Document.Title, tonumber(new.CopiesTextBox.TextInput.Value))
                    if not err then
                        new.StatusText = 'Document Printed!'
                        new.Status = 1
                        closeWindowTimer = os.startTimer(1)
                    else
                        new.StatusText = err
                        new.Status = -1
                    end
                end
            end, 'Print', colours.black)
            new.CancelButton = Button:Initialise(new.Width - 15, new.Height - 1, nil, nil, colours.lightGrey, new, function(self, side, x, y, toggle)
                new:Close()
                Draw()
            end, 'Close', colours.black)
            new.PrinterSelectButton = Button:Initialise(2, 4, new.Width - 2, nil, colours.lightGrey, new, function(self, side, x, y, toggle)
                local printers = {
                        {
                            Title = "Automatic",
                            Click = function()
                                new.SelectedPrinter = nil
                                new.PrinterSelectButton.Text = 'Automatic'
                            end
                        },
                        {
                            Separator = true
                        }
                    }
                for i, p in ipairs(Peripheral.GetPeripherals('printer')) do
                    table.insert(printers, {
                        Title = p.Fullname,
                        Click = function(self)
                            new.SelectedPrinter = p.Side
                            new.PrinterSelectButton.Text = p.Fullname
                        end
                    })
                end
                Current.Menu = Menu:New(x, y+4, printers, self, true)
            end, 'Automatic', colours.black)
            new.CopiesTextBox = TextBox:Initialise(9, 6, 4, 1, new, 1, colours.lightGrey, colours.black, nil, true)
            Current.TextInput = new.CopiesTextBox.TextInput
            new.StatusText = 'Waiting...'
            new.Status = 0
            return new
        end,

        Show = function(self)
            Current.Window = self
            return self
        end,

        Close = function(self)
            Current.Input = nil
            Current.Window = nil
            self = nil
        end,

        Flash = function(self)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
            sleep(0.15)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
        end,

        Click = function(self, side, x, y)
            local items = {self.PrintButton, self.CancelButton, self.CopiesTextBox, self.PrinterSelectButton}
            for i, v in ipairs(items) do
                if CheckClick(v, x, y) then
                    v:Click(side, x, y)
                end
            end
            return true
        end
    }

    SaveDocumentWindow = {
        X = 1,
        Y = 1,
        Width = 0,
        Height = 0,
        CursorPos = 1,
        Visible = true,
        Return = nil,
        SaveButton = nil,
        PathTextBox = nil,
        CurrentDirectory = '/',
        Scroll = 0,
        MaxScroll = 0,
        ScrollBar = nil,
        GoUpButton = nil,
        Files = {},
        Typed = false,

        AbsolutePosition = function(self)
            return {X = self.X, Y = self.Y}
        end,

        Draw = function(self)
            if not self.Visible then
                return
            end
            Drawing.DrawBlankArea(self.X + 1, self.Y+1, self.Width, self.Height, colours.grey)
            Drawing.DrawBlankArea(self.X, self.Y, self.Width, 3, colours.lightGrey)
            Drawing.DrawBlankArea(self.X, self.Y+1, self.Width, self.Height-6, colours.white)
            Drawing.DrawCharactersCenter(self.X, self.Y, self.Width, 1, self.Title, colours.black, colours.lightGrey)
            Drawing.DrawBlankArea(self.X, self.Y + self.Height - 5, self.Width, 5, colours.lightGrey)
            Drawing.DrawCharacters(self.X + 1, self.Y + self.Height - 5, self.CurrentDirectory, colours.grey, colours.lightGrey)
            self:DrawFiles()

            if (self.PathTextBox.TextInput.Value) then
                self.SaveButton.TextColour = colours.black
            else
                self.SaveButton.TextColour = colours.lightGrey
            end

            self.PathTextBox:Draw()
            self.SaveButton:Draw()
            self.CancelButton:Draw()
            self.GoUpButton:Draw()
        end,

        DrawFiles = function(self)
            for i, file in ipairs(self.Files) do
                if i > self.Scroll and i - self.Scroll <= 10 then
                    if file == self.SelectedFile then
                        Drawing.DrawCharacters(self.X + 1, self.Y + i - self.Scroll, file, colours.white, colours.lightBlue)
                    elseif fs.isDir(self.CurrentDirectory .. file) then
                        Drawing.DrawCharacters(self.X + 1, self.Y + i - self.Scroll, file, colours.black, colours.white)
                    else
                        Drawing.DrawCharacters(self.X + 1, self.Y + i - self.Scroll, file, colours.lightGrey, colours.white)
                    end
                end
            end
            self.MaxScroll = #self.Files - 11
            if self.MaxScroll < 0 then
                self.MaxScroll = 0
            end
        end,

        Initialise = function(self, returnFunc)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Width = 32
            new.Height = 16
            new.Return = returnFunc
            new.X = math.ceil((Drawing.Screen.Width - new.Width) / 2)
            new.Y = math.ceil((Drawing.Screen.Height - new.Height) / 2)
            new.Title = 'Save Document'
            new.Visible = true
            new.CurrentDirectory = '/'
            if OneOS and fs.exists('/Desktop/Documents/') then
                new.CurrentDirectory = '/Desktop/Documents/'
            end
            new.SaveButton = Button:Initialise(new.Width - 6, new.Height - 1, nil, nil, colours.white, new, function(self, side, x, y, toggle)
                if self.TextColour == colours.black and not fs.isDir(new.CurrentDirectory ..'/' .. new.PathTextBox.TextInput.Value) then
                    returnFunc(new, true, TidyPath(new.CurrentDirectory ..'/' .. new.PathTextBox.TextInput.Value))
                elseif new.SelectedFile and self.TextColour == colours.black and fs.isDir(new.CurrentDirectory .. new.SelectedFile) then
                    new:GoToDirectory(new.CurrentDirectory .. new.SelectedFile)
                end
            end, 'Save', colours.black)
            new.CancelButton = Button:Initialise(new.Width - 15, new.Height - 1, nil, nil, colours.white, new, function(self, side, x, y, toggle)
                returnFunc(new, false)
            end, 'Cancel', colours.black)
            new.GoUpButton = Button:Initialise(2, new.Height - 1, nil, nil, colours.white, new, function(self, side, x, y, toggle)
                local folderName = fs.getName(new.CurrentDirectory)
                local parentDirectory = new.CurrentDirectory:sub(1, #new.CurrentDirectory-#folderName-1)
                new:GoToDirectory(parentDirectory)
            end, 'Go Up', colours.black)
            new.PathTextBox = TextBox:Initialise(2, new.Height - 3, new.Width - 2, 1, new, '', colours.white, colours.black, function(key)
                if key == keys.enter then
                    new.SaveButton:Click()
                end
            end)
            new.PathTextBox.Placeholder = 'Document Name'
            Current.TextInput = new.PathTextBox.TextInput
            new:GoToDirectory(new.CurrentDirectory)
            return new
        end,

        Show = function(self)
            Current.Window = self
            return self
        end,

        Close = function(self)
            Current.Input = nil
            Current.Window = nil
            self = nil
        end,

        GoToDirectory = function(self, path)
            path = TidyPath(path)
            self.CurrentDirectory = path
            self.Scroll = 0
            self.Typed = false
            local fs = fs
            if OneOS then
                fs = OneOS.FS
            end
            self.Files = fs.list(self.CurrentDirectory)
            Draw()
        end,

        Flash = function(self)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
            sleep(0.15)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
        end,

        Click = function(self, side, x, y)
            local items = {self.SaveButton, self.CancelButton, self.PathTextBox, self.GoUpButton}
            local found = false
            for i, v in ipairs(items) do
                if CheckClick(v, x, y) then
                    v:Click(side, x, y)
                    found = true
                end
            end

            if not found then
                if y <= 11 then
                    local files = fs.list(self.CurrentDirectory)
                    if files[y-1] then
                        self:GoToDirectory(self.CurrentDirectory..files[y-1])
                        Draw()
                    end
                end
            end
            return true
        end
    }

    local WrapText = function(text, maxWidth)
        local lines = {''}
        for word, space in text:gmatch('(%S+)(%s*)') do
                local temp = lines[#lines] .. word .. space:gsub('\n','')
                if #temp > maxWidth then
                        table.insert(lines, '')
                end
                if space:find('\n') then
                        lines[#lines] = lines[#lines] .. word

                        space = space:gsub('\n', function()
                                table.insert(lines, '')
                                return ''
                        end)
                else
                        lines[#lines] = lines[#lines] .. word .. space
                end
        end
        return lines
    end

    ButtonDialougeWindow = {
        X = 1,
        Y = 1,
        Width = 0,
        Height = 0,
        CursorPos = 1,
        Visible = true,
        CancelButton = nil,
        OkButton = nil,
        Lines = {},

        AbsolutePosition = function(self)
            return {X = self.X, Y = self.Y}
        end,

        Draw = function(self)
            if not self.Visible then
                return
            end
            Drawing.DrawBlankArea(self.X + 1, self.Y+1, self.Width, self.Height, colours.grey)
            Drawing.DrawBlankArea(self.X, self.Y, self.Width, 1, colours.lightGrey)
            Drawing.DrawBlankArea(self.X, self.Y+1, self.Width, self.Height-1, colours.white)
            Drawing.DrawCharactersCenter(self.X, self.Y, self.Width, 1, self.Title, colours.black, colours.lightGrey)

            for i, text in ipairs(self.Lines) do
                Drawing.DrawCharacters(self.X + 1, self.Y + 1 + i, text, colours.black, colours.white)
            end

            self.OkButton:Draw()
            if self.CancelButton then
                self.CancelButton:Draw()
            end
        end,

        Initialise = function(self, title, message, okText, cancelText, returnFunc)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Width = 28
            new.Lines = WrapText(message, new.Width - 2)
            new.Height = 5 + #new.Lines
            new.Return = returnFunc
            new.X = math.ceil((Drawing.Screen.Width - new.Width) / 2)
            new.Y = math.ceil((Drawing.Screen.Height - new.Height) / 2)
            new.Title = title
            new.Visible = true
            new.Visible = true
            new.OkButton = Button:Initialise(new.Width - #okText - 2, new.Height - 1, nil, 1, nil, new, function()
                returnFunc(new, true)
            end, okText)
            if cancelText then
                new.CancelButton = Button:Initialise(new.Width - #okText - 2 - 1 - #cancelText - 2, new.Height - 1, nil, 1, nil, new, function()
                    returnFunc(new, false)
                end, cancelText)
            end

            return new
        end,

        Show = function(self)
            Current.Window = self
            return self
        end,

        Close = function(self)
            Current.Window = nil
            self = nil
        end,

        Flash = function(self)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
            sleep(0.15)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
        end,

        Click = function(self, side, x, y)
            local items = {self.OkButton, self.CancelButton}
            local found = false
            for i, v in ipairs(items) do
                if CheckClick(v, x, y) then
                    v:Click(side, x, y)
                    found = true
                end
            end
            return true
        end
    }

    TextDialougeWindow = {
        X = 1,
        Y = 1,
        Width = 0,
        Height = 0,
        CursorPos = 1,
        Visible = true,
        CancelButton = nil,
        OkButton = nil,
        Lines = {},
        TextInput = nil,

        AbsolutePosition = function(self)
            return {X = self.X, Y = self.Y}
        end,

        Draw = function(self)
            if not self.Visible then
                return
            end
            Drawing.DrawBlankArea(self.X + 1, self.Y+1, self.Width, self.Height, colours.grey)
            Drawing.DrawBlankArea(self.X, self.Y, self.Width, 1, colours.lightGrey)
            Drawing.DrawBlankArea(self.X, self.Y+1, self.Width, self.Height-1, colours.white)
            Drawing.DrawCharactersCenter(self.X, self.Y, self.Width, 1, self.Title, colours.black, colours.lightGrey)

            for i, text in ipairs(self.Lines) do
                Drawing.DrawCharacters(self.X + 1, self.Y + 1 + i, text, colours.black, colours.white)
            end


            Drawing.DrawBlankArea(self.X + 1, self.Y + self.Height - 4, self.Width - 2, 1, colours.lightGrey)
            Drawing.DrawCharacters(self.X + 2, self.Y + self.Height - 4, self.TextInput.Value, colours.black, colours.lightGrey)
            Current.CursorPos = {self.X + 2 + self.TextInput.CursorPos, self.Y + self.Height - 4}
            Current.CursorColour = colours.black

            self.OkButton:Draw()
            if self.CancelButton then
                self.CancelButton:Draw()
            end
        end,

        Initialise = function(self, title, message, okText, cancelText, returnFunc, numerical)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Width = 28
            new.Lines = WrapText(message, new.Width - 2)
            new.Height = 7 + #new.Lines
            new.Return = returnFunc
            new.X = math.ceil((Drawing.Screen.Width - new.Width) / 2)
            new.Y = math.ceil((Drawing.Screen.Height - new.Height) / 2)
            new.Title = title
            new.Visible = true
            new.Visible = true
            new.OkButton = Button:Initialise(new.Width - #okText - 2, new.Height - 1, nil, 1, nil, new, function()
                if #new.TextInput.Value > 0 then
                    returnFunc(new, true, new.TextInput.Value)
                end
            end, okText)
            if cancelText then
                new.CancelButton = Button:Initialise(new.Width - #okText - 2 - 1 - #cancelText - 2, new.Height - 1, nil, 1, nil, new, function()
                    returnFunc(new, false)
                end, cancelText)
            end
            new.TextInput = TextInput:Initialise('', function(enter)
                if enter then
                    new.OkButton:Click()
                end
                Draw()
            end, numerical)

            Current.Input = new.TextInput

            return new
        end,

        Show = function(self)
            Current.Window = self
            return self
        end,

        Close = function(self)
            Current.Window = nil
            Current.Input = nil
            self = nil
        end,

        Flash = function(self)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
            sleep(0.15)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
        end,

        Click = function(self, side, x, y)
            local items = {self.OkButton, self.CancelButton}
            local found = false
            for i, v in ipairs(items) do
                if CheckClick(v, x, y) then
                    v:Click(side, x, y)
                    found = true
                end
            end
            return true
        end
    }

    function PrintCentered(text, y)
        local w, h = term.getSize()
        x = math.ceil(math.ceil((w / 2) - (#text / 2)), 0)+1
        term.setCursorPos(x, y)
        print(text)
    end

    function DoVanillaClose()
        term.setBackgroundColour(colours.black)
        term.setTextColour(colours.white)
        term.clear()
        term.setCursorPos(1, 1)
        PrintCentered("Thanks for using Ink!", (Drawing.Screen.Height/2)-1)
        term.setTextColour(colours.lightGrey)
        PrintCentered("Word Proccessor for ComputerCraft", (Drawing.Screen.Height/2))
        term.setTextColour(colours.white)
        PrintCentered("(c) oeed 2014", (Drawing.Screen.Height/2)+3)
        term.setCursorPos(1, Drawing.Screen.Height)
        home()
    end

    function Close()
        if isQuitting or not Current.Document or not Current.Modified then
            if not OneOS then
                DoVanillaClose()
            end
            return true
        else
            local _w = ButtonDialougeWindow:Initialise('Quit Ink?', 'You have unsaved changes, do you want to quit anyway?', 'Quit', 'Cancel', function(window, success)
                if success then
                    if OneOS then
                        OneOS.Close(true)
                    else
                        DoVanillaClose()
                    end
                end
                window:Close()
                Draw()
            end):Show()
            --it's hacky but it works
            os.queueEvent('mouse_click', 1, _w.X, _w.Y)
            return false
        end
    end

    if OneOS then
        OneOS.CanClose = function()
            return Close()
        end
    end

    Initialise()
end

-- Sketch (OEED)
function sketch()
    if OneOS then
        --running under OneOS
        OneOS.ToolBarColour = colours.grey
        OneOS.ToolBarTextColour = colours.white
    end

    colours.transparent = -1
    colors.transparent = -1

    --APIS--

    --This is my drawing API, is is pretty much identical to what drives OneOS, PearOS, etc.
    local _w, _h = term.getSize()

    local round = function(num, idp)
        local mult = 10^(idp or 0)
        return math.floor(num * mult + 0.5) / mult
    end

    Clipboard = {
        Content = nil,
        Type = nil,
        IsCut = false,

        Empty = function()
            Clipboard.Content = nil
            Clipboard.Type = nil
            Clipboard.IsCut = false
        end,

        isEmpty = function()
            return Clipboard.Content == nil
        end,

        Copy = function(content, _type)
            Clipboard.Content = content
            Clipboard.Type = _type or 'generic'
            Clipboard.IsCut = false
        end,

        Cut = function(content, _type)
            Clipboard.Content = content
            Clipboard.Type = _type or 'generic'
            Clipboard.IsCut = true
        end,

        Paste = function()
            local c, t = Clipboard.Content, Clipboard.Type
            if Clipboard.IsCut then
                Clipboard.Empty()
            end
            return c, t
        end
    }

    if OneOS and OneOS.Clipboard then
        Clipboard = OneOS.Clipboard
    end

    Drawing = {

        Screen = {
            Width = _w,
            Height = _h
        },

        DrawCharacters = function (x, y, characters, textColour,bgColour)
            Drawing.WriteStringToBuffer(x, y, characters, textColour, bgColour)
        end,

        DrawBlankArea = function (x, y, w, h, colour)
            Drawing.DrawArea (x, y, w, h, " ", 1, colour)
        end,

        DrawArea = function (x, y, w, h, character, textColour, bgColour)
            --width must be greater than 1, other wise we get a stack overflow
            if w < 0 then
                w = w * -1
            elseif w == 0 then
                w = 1
            end

            for ix = 1, w do
                local currX = x + ix - 1
                for iy = 1, h do
                    local currY = y + iy - 1
                    Drawing.WriteToBuffer(currX, currY, character, textColour, bgColour)
                end
            end
        end,

        DrawImage = function(_x,_y,tImage, w, h)
            if tImage then
                for y = 1, h do
                    if not tImage[y] then
                        break
                    end
                    for x = 1, w do
                        if not tImage[y][x] then
                            break
                        end
                        local bgColour = tImage[y][x]
                        local textColour = tImage.textcol[y][x] or colours.white
                        local char = tImage.text[y][x]
                        Drawing.WriteToBuffer(x+_x-1, y+_y-1, char, textColour, bgColour)
                    end
                end
            elseif w and h then
                Drawing.DrawBlankArea(x, y, w, h, colours.green)
            end
        end,
        --using .nft
        LoadImage = function(path)
            local image = {
                text = {},
                textcol = {}
            }
            local _fs = fs
            if OneOS then
                _fs = OneOS.FS
            end
            if _fs.exists(path) then
                local _open = io.open
                if OneOS then
                    _open = OneOS.IO.open
                end
                local file = _open(path, "r")
                local sLine = file:read()
                local num = 1
                while sLine do
                        table.insert(image, num, {})
                        table.insert(image.text, num, {})
                        table.insert(image.textcol, num, {})

                        --As we're no longer 1-1, we keep track of what index to write to
                        local writeIndex = 1
                        --Tells us if we've hit a 30 or 31 (BG and FG respectively)- next char specifies the curr colour
                        local bgNext, fgNext = false, false
                        --The current background and foreground colours
                        local currBG, currFG = nil,nil
                        for i=1,#sLine do
                                local nextChar = string.sub(sLine, i, i)
                                if nextChar:byte() == 30 then
                                    bgNext = true
                                elseif nextChar:byte() == 31 then
                                    fgNext = true
                                elseif bgNext then
                                    currBG = Drawing.GetColour(nextChar)
                                    bgNext = false
                                elseif fgNext then
                                    currFG = Drawing.GetColour(nextChar)
                                    fgNext = false
                                else
                                    if nextChar ~= " " and currFG == nil then
                                           currFG = colours.white
                                    end
                                    image[num][writeIndex] = currBG
                                    image.textcol[num][writeIndex] = currFG
                                    image.text[num][writeIndex] = nextChar
                                    writeIndex = writeIndex + 1
                                end
                        end
                        num = num+1
                        sLine = file:read()
                end
                file:close()
            end
            return image
        end,

        DrawCharactersCenter = function(x, y, w, h, characters, textColour,bgColour)
            w = w or Drawing.Screen.Width
            h = h or Drawing.Screen.Height
            x = x or 0
            y = y or 0
            x = math.ceil((w - #characters) / 2) + x
            y = math.floor(h / 2) + y

            Drawing.DrawCharacters(x, y, characters, textColour, bgColour)
        end,

        GetColour = function(hex)
            if hex == ' ' then
                return colours.transparent
            end
            local value = tonumber(hex, 16)
            if not value then return nil end
            value = math.pow(2,value)
            return value
        end,

        Clear = function (_colour)
            _colour = _colour or colours.black
            Drawing.ClearBuffer()
            Drawing.DrawBlankArea(1, 1, Drawing.Screen.Width, Drawing.Screen.Height, _colour)
        end,

        Buffer = {},
        BackBuffer = {},

        DrawBuffer = function()
            for y,row in pairs(Drawing.Buffer) do
                for x,pixel in pairs(row) do
                    local shouldDraw = true
                    local hasBackBuffer = true
                    if Drawing.BackBuffer[y] == nil or Drawing.BackBuffer[y][x] == nil or #Drawing.BackBuffer[y][x] ~= 3 then
                        hasBackBuffer = false
                    end
                    if hasBackBuffer and Drawing.BackBuffer[y][x][1] == Drawing.Buffer[y][x][1] and Drawing.BackBuffer[y][x][2] == Drawing.Buffer[y][x][2] and Drawing.BackBuffer[y][x][3] == Drawing.Buffer[y][x][3] then
                        shouldDraw = false
                    end
                    if shouldDraw then
                        term.setBackgroundColour(pixel[3])
                        term.setTextColour(pixel[2])
                        term.setCursorPos(x, y)
                        term.write(pixel[1])
                    end
                end
            end
            Drawing.BackBuffer = Drawing.Buffer
            Drawing.Buffer = {}
            term.setCursorPos(1,1)
        end,

        ClearBuffer = function()
            Drawing.Buffer = {}
        end,

        WriteStringToBuffer = function (x, y, characters, textColour,bgColour)
            for i = 1, #characters do
                local character = characters:sub(i,i)
                Drawing.WriteToBuffer(x + i - 1, y, character, textColour, bgColour)
            end
        end,

        WriteToBuffer = function(x, y, character, textColour,bgColour)
            x = round(x)
            y = round(y)
            if bgColour == colours.transparent then
                Drawing.Buffer[y] = Drawing.Buffer[y] or {}
                Drawing.Buffer[y][x] = Drawing.Buffer[y][x] or {"", colours.white, colours.black}
                Drawing.Buffer[y][x][1] = character
                Drawing.Buffer[y][x][2] = textColour
            else
                Drawing.Buffer[y] = Drawing.Buffer[y] or {}
                Drawing.Buffer[y][x] = {character, textColour, bgColour}
            end
        end,
    }

    --Colour Deffitions--
    UIColours = {
        Toolbar = colours.grey,
        ToolbarText = colours.lightGrey,
        ToolbarSelected = colours.lightBlue,
        ControlText = colours.white,
        ToolbarItemTitle = colours.black,
        Background = colours.lightGrey,
        MenuBackground = colours.white,
        MenuText = colours.black,
        MenuSeparatorText = colours.grey,
        MenuDisabledText = colours.lightGrey,
        Shadow = colours.grey,
        TransparentBackgroundOne = colours.white,
        TransparentBackgroundTwo = colours.lightGrey,
        MenuBarActive = colours.white
    }

    --Lists--
    Current = {
        Artboard = nil,
        Layer = nil,
        Tool = nil,
        ToolSize = 1,
        Toolbar = nil,
        Colour = colours.lightBlue,
        Menu = nil,
        MenuBar = nil,
        Window = nil,
        Input = nil,
        CursorPos = {1,1},
        CursorColour = colours.black,
        InterfaceVisible = true,
        Selection = {},
        SelectionDrawTimer = nil,
        HandDragStart = {},
        Modified = false,
    }

    local isQuitting = false

    function PrintCentered(text, y)
        local w, h = term.getSize()
        x = math.ceil(math.ceil((w / 2) - (#text / 2)), 0)+1
        term.setCursorPos(x, y)
        print(text)
    end

    function DoVanillaClose()
        term.setBackgroundColour(colours.black)
        term.setTextColour(colours.white)
        term.clear()
        term.setCursorPos(1, 1)
        PrintCentered("Thanks for using Sketch!", (Drawing.Screen.Height/2)-1)
        term.setTextColour(colours.lightGrey)
        PrintCentered("Photoshop Inspired Image Editor for ComputerCraft", (Drawing.Screen.Height/2))
        term.setTextColour(colours.white)
        PrintCentered("(c) oeed 2013 - 2014", (Drawing.Screen.Height/2)+3)
        term.setCursorPos(1, Drawing.Screen.Height)
        home()
    end

    function Close()
        if isQuitting or not Current.Artboard or not Current.Modified then
            if not OneOS then
                DoVanillaClose()
            end
            return true
        else
            local _w = ButtonDialougeWindow:Initialise('Quit Sketch?', 'You have unsaved changes, do you want to quit anyway?', 'Quit', 'Cancel', function(window, success)
                if success then
                    if OneOS then
                        OneOS.Close(true)
                    else
                        DoVanillaClose()
                    end
                end
                window:Close()
                Draw()
            end):Show()
            --it's hacky but it works
            os.queueEvent('mouse_click', 1, _w.X, _w.Y)
            return false
        end
    end

    if OneOS then
        OneOS.CanClose = function()
            return Close()
        end
    end

    Lists = {
        Artboards = {},
        Interface = {
            Toolbars = {}
        }
    }

    Events = {

    }

    --Setters--

    function SetColour(colour)
        Current.Colour = colour
        Draw()
    end

    function SetTool(tool)
        if tool and tool.Select and tool:Select() then
            Current.Input = nil
            Current.Tool = tool
            return true
        end
        return false
    end

    function GetAbsolutePosition(object)
        local obj = object
        local i = 0
        local x = 1
        local y = 1
        while true do
            x = x + obj.X - 1
            y = y + obj.Y - 1

            if not obj.Parent then
                return {X = x, Y = y}
            end

            obj = obj.Parent

            if i > 32 then
                return {X = 1, Y = 1}
            end

            i = i + 1
        end

    end

    --Object Defintions--

    Pixel = {
        TextColour = colours.black,
        BackgroundColour = colours.white,
        Character = " ",
        Layer = nil,

        Draw = function(self, x, y)
            if self.BackgroundColour ~= colours.transparent or self.Character ~= ' ' then
                Drawing.WriteToBuffer(self.Layer.Artboard.X + x - 1, self.Layer.Artboard.Y + y - 1, self.Character, self.TextColour, self.BackgroundColour)
            end
        end,

        Initialise = function(self, textColour, backgroundColour, character, layer)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.TextColour = textColour or self.TextColour
            new.BackgroundColour = backgroundColour or self.BackgroundColour
            new.Character = character or self.Character
            new.Layer = layer
            return new
        end,

        Set = function(self, textColour, backgroundColour, character)
            self.TextColour = textColour or self.TextColour
            self.BackgroundColour = backgroundColour or self.BackgroundColour
            self.Character = character or self.Character
        end
    }

    Layer = {
        Name = "",
        Pixels = {

        },
        Artboard = nil,
        BackgroundColour = colours.white,
        Visible = true,
        Index = 1,

        Draw = function(self)
            if self.Visible then
                for x = 1, self.Artboard.Width do
                    for y = 1, self.Artboard.Height do
                        self.Pixels[x][y]:Draw(x, y)
                    end
                end
            end
        end,

        Remove = function(self)
            for i, v in ipairs(self.Artboard.Layers) do
                if v == Current.Layer then
                    Current.Artboard.Layers[i] = nil
                    Current.Layer = Current.Artboard.Layers[1]
                    ModuleNamed('Layers'):Update()
                end
            end
        end,

        Initialise = function(self, name, backgroundColour, artboard, index, pixels)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Name = name
            new.Pixels = {}
            new.BackgroundColour = backgroundColour
            new.Artboard = artboard
            new.Index = index or #artboard.Layers + 1
            if not pixels then
                new:MakeAllBlankPixels()
            else
                new:MakeAllBlankPixels()
                for x, col in ipairs(pixels) do
                    for y, pixel in ipairs(col) do
                        new:SetPixel(x, y, pixel.TextColour, pixel.BackgroundColour, pixel.Character)
                    end
                end
            end

            return new
        end,

        SetPixel = function(self, x, y, textColour, backgroundColour, character)
            textColour = textColour or Current.Colour
            backgroundColour = backgroundColour or Current.Colour
            character = character or " "

            if x < 1 or y < 1 or x > self.Artboard.Width or y > self.Artboard.Height then
                return
            end

            if self.Pixels[x][y] then
                self.Pixels[x][y]:Set(textColour, backgroundColour, character)
                self.Pixels[x][y]:Draw(x,y)
            end
        end,

        MakePixel = function(self, x, y, backgroundColour)
            backgroundColour = backgroundColour or self.BackgroundColour
            self.Pixels[x][y] = Pixel:Initialise(nil, backgroundColour, nil, self)
        end,

        MakeColumn = function(self, x)
            self.Pixels[x] = {}
        end,

        MakeAllBlankPixels = function(self)
            for x = 1, self.Artboard.Width do
                if not self.Pixels[x] then
                    self:MakeColumn(x)
                end

                for y = 1, self.Artboard.Height do

                    if not self.Pixels[x][y] then
                        self:MakePixel(x, y)
                    end

                end
            end
        end,

        PixelsInSelection = function(self, cut)
            local pixels = {}
            if Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil then
                local point1 = Current.Selection[1]
                local point2 = Current.Selection[2]

                local size = point2 - point1
                local cornerX = point1.x
                local cornerY = point1.y
                for x = 1, size.x + 1 do
                    for y = 1, size.y + 1 do
                        if not pixels[x] then
                            pixels[x] = {}
                        end
                        if not self.Pixels[cornerX + x - 1] or not self.Pixels[cornerX + x - 1][cornerY + y - 1] then
                            break
                        end
                        local pixel =  self.Pixels[cornerX + x - 1][cornerY + y - 1]
                        pixels[x][y] = Pixel:Initialise(pixel.TextColour, pixel.BackgroundColour, pixel.Character, Current.Layer)
                        if cut then
                            Current.Layer:SetPixel(cornerX + x - 1, cornerY + y - 1, nil, Current.Layer.BackgroundColour, nil)
                        end
                    end
                end
            end
            return pixels
        end,

        EraseSelection = function(self)
            if Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil then
                local point1 = Current.Selection[1]
                local point2 = Current.Selection[2]

                local size = point2 - point1
                local cornerX = point1.x
                local cornerY = point1.y
                for x = 1, size.x + 1 do
                    for y = 1, size.y + 1 do
                        Current.Layer:SetPixel(cornerX + x - 1, cornerY + y - 1, nil, Current.Layer.BackgroundColour, nil)
                    end
                end
            end
        end,

        InsertPixels = function(self, pixels)
            local cornerX = Current.Selection[1].x
            local cornerY = Current.Selection[1].y
            for x, col in ipairs(pixels) do
                for y, pixel in ipairs(col) do
                    Current.Layer:SetPixel(cornerX + x - 1, cornerY + y - 1, pixel.TextColour, pixel.BackgroundColour, pixel.Character)
                end
            end
        end
    }

    Artboard = {
        X = 0,
        Y = 0,
        Name = "",
        Path = "",
        Width = 1,
        Height = 1,
        Layers = {},
        Format = nil,
        SelectionIsBlack = true,

        Draw = function(self)
            Drawing.DrawBlankArea(self.X + 1, self.Y + 1, self.Width, self.Height, UIColours.Shadow)

            local odd
            for x = 1, self.Width do
                odd = x % 2
                if odd == 1 then
                    odd = true
                else
                    odd = false
                end
                for y = 1, self.Height do
                    if odd then
                        Drawing.WriteToBuffer(self.X + x - 1, self.Y + y - 1, ":", UIColours.TransparentBackgroundTwo, UIColours.TransparentBackgroundOne)
                    else
                        Drawing.WriteToBuffer(self.X + x - 1, self.Y + y - 1, ":", UIColours.TransparentBackgroundOne, UIColours.TransparentBackgroundTwo)
                    end

                    odd = not odd
                end
            end

            for i, layer in ipairs(self.Layers) do
                layer:Draw()
            end

            if Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil then
                local point1 = Current.Selection[1]
                local point2 = Current.Selection[2]

                local size = point2 - point1

                local isBlack = self.SelectionIsBlack

                local function c()
                    local c = colours.white
                    if isBlack then
                        c = colours.black
                    end
                    isBlack = not isBlack
                    return c
                end

                function horizontal(y)
                    Drawing.WriteToBuffer(self.X - 1 + point1.x, self.Y - 1 + y, '+', c(), colours.transparent)
                    if size.x > 0 then
                        for i = 1, size.x - 1 do
                            Drawing.WriteToBuffer(self.X - 1 + point1.x + i, self.Y - 1 + y, '-', c(), colours.transparent)
                        end
                    else
                        for i = 1, (-1 * size.x) - 1 do
                            Drawing.WriteToBuffer(self.X - 1 + point1.x - i, self.Y - 1 + y, '-', c(), colours.transparent)
                        end
                    end

                    Drawing.WriteToBuffer(self.X - 1 + point1.x + size.x, self.Y - 1 + y, '+', c(), colours.transparent)
                end

                function vertical(x)
                    if size.y < 0 then
                        for i = 1, (-1 * size.y) - 1 do
                            Drawing.WriteToBuffer(self.X - 1 + x, self.Y - 1 + point1.y  - i, '|', c(), colours.transparent)
                        end
                    else
                        for i = 1, size.y - 1 do
                            Drawing.WriteToBuffer(self.X - 1 + x, self.Y - 1 + point1.y  + i, '|', c(), colours.transparent)
                        end
                    end
                end

                horizontal(point1.y)
                vertical(point1.x)
                horizontal(point1.y + size.y)
                vertical(point1.x + size.x)
            end
        end,

        Initialise = function(self, name, path, width, height, format, backgroundColour, layers)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Y = 3
            new.X = 2
            new.Name = name
            new.Path = path
            new.Width = width
            new.Height = height
            new.Format = format
            new.Layers = {}
            if not layers then
                new:MakeLayer('Background', backgroundColour)
            else
                for i, layer in ipairs(layers) do
                    new:MakeLayer(layer.Name, layer.BackgroundColour, layer.Index, layer.Pixels)
                    new.Layers[i].Visible = layer.Visible
                end
                Current.Layer = new.Layers[#new.Layers]
            end
            return new
        end,

        Resize = function(self, top, bottom, left, right)
            self.Height = self.Height + top + bottom
            self.Width = self.Width + left + right

            for i, layer in ipairs(self.Layers) do

                if left < 0 then
                    for x = 1, -left do
                        table.remove(layer.Pixels, 1)
                    end
                end

                if right < 0 then
                    for x = 1, -right do
                        table.remove(layer.Pixels, #layer.Pixels)
                    end
                end

                for x = 1, left do
                    table.insert(layer.Pixels, 1, {})
                    for y = 1, self.Height do
                        layer:MakePixel(1, y)
                    end
                end

                for x = 1, right do
                    table.insert(layer.Pixels, {})
                    for y = 1, self.Height do
                        layer:MakePixel(#layer.Pixels, y)
                    end
                end

                for y = 1, top do
                    for x = 1, self.Width do
                        table.insert(layer.Pixels[x], 1, {})
                        layer:MakePixel(x, 1)
                    end
                end

                for y = 1, bottom do
                    for x = 1, self.Width do
                        table.insert(layer.Pixels[x], {})
                        layer:MakePixel(x, #layer.Pixels[x])
                    end
                end

                if top < 0 then
                    for y = 1, -top do
                        for x = 1, self.Width do
                            table.remove(layer.Pixels[x], 1)
                        end
                    end
                end

                if bottom < 0 then
                    for y = 1, -bottom do
                        for x = 1, self.Width do
                            table.remove(layer.Pixels[x], #layer.Pixels[x])
                        end
                    end
                end
            end
        end,

        MakeLayer = function(self, name, backgroundColour, index, pixels)
            backgroundColour = backgroundColour or colours.white
            name = name or "Layer"
            local layer = Layer:Initialise(name, backgroundColour, self, index, pixels)
            table.insert(self.Layers, layer)
            Current.Layer = layer
            ModuleNamed('Layers'):Update()
            return layer
        end,

        New = function(self, name, path, width, height, format, backgroundColour, layers)
            local new = self:Initialise(name, path, width, height, format, backgroundColour, layers)
            table.insert(Lists.Artboards, new)
            Current.Artboard = new
            --new:Save()
            return new
        end,

        Save = function(self, path)
            Current.Artboard = self
            path = path or self.Path
            local _open = io.open
            if OneOS then
                _open = OneOS.IO.open
            end
            local file = _open(path, "w", true)
            if self.Format == '.skch' then
                file:write(textutils.serialize(SaveSKCH()))
            else
                local lines = {}
                if self.Format == '.nfp' then
                    lines = SaveNFP()
                elseif self.Format == '.nft' then
                    lines = SaveNFT()
                end

                for i, line in ipairs(lines) do
                    file:write(line.."\n")
                end
            end
            file:close()
            Current.Modified = false
        end,

        Click = function(self, side, x, y, drag)
            if Current.Tool and Current.Layer and Current.Layer.Visible then
                Current.Tool:Use(x, y, side, drag)
                Current.Modified = true
                return true
            end
        end
    }

    Toolbar = {
        X = 0,
        Y = 0,
        Width = 0,
        ExpandedWidth = 14,
        ClosedWidth = 2,
        Height = 0,
        Expanded = true,
        ToolbarItems = {},

        AbsolutePosition = function(self)
            return {X = self.X, Y = self.Y}
        end,

        Draw = function(self)
            self:CalculateToolbarItemPositions()
            --Drawing.DrawArea(self.X - 1, self.Y, 1, self.Height, "|", UIColours.ToolbarText, UIColours.Background)



            --if not Current.Window then
                Drawing.DrawBlankArea(self.X, self.Y, self.Width, self.Height, UIColours.Toolbar)
            --else
            --  Drawing.DrawArea(self.X, self.Y, self.Width, self.Height, '|', colours.lightGrey, UIColours.Toolbar)
            --end
            for i, toolbarItem in ipairs(self.ToolbarItems) do
                toolbarItem:Draw()
            end
        end,

        Initialise = function(self, side, expanded)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Expanded = expanded

            if expanded then
                new.Width = new.ExpandedWidth
            else
                new.Width = new.ClosedWidth
            end

            if side == 'right' then
                new.X = Drawing.Screen.Width - new.Width + 1
            end

            if side == 'right' or side == 'left' then
                new.Height = Drawing.Screen.Width
            end

            new.Y = 1

            return new
        end,

        AddToolbarItem = function(self, item)
            table.insert(self.ToolbarItems, item)
            self:CalculateToolbarItemPositions()
        end,

        CalculateToolbarItemPositions = function(self)
            local currY = 1
            for i, toolbarItem in ipairs(self.ToolbarItems) do
                toolbarItem.Y = currY
                currY = currY + toolbarItem.Height
            end
        end,

        Update = function(self)
            for i, toolbarItem in ipairs(self.ToolbarItems) do
                if toolbarItem.Module.Update then
                    toolbarItem.Module:Update(toolbarItem)
                end
            end
        end,

        New = function(self, side, expanded)
            local new = self:Initialise(side, expanded)

            --new:AddToolbarItem(ToolbarItem:Initialise("Colours", nil, true, new))
            --new:AddToolbarItem(ToolbarItem:Initialise("IDK", true, new))

            table.insert(Lists.Interface.Toolbars, new)
            return new
        end,

        Click = function(self, side, x, y)
            return false
        end
    }

    ToolbarItem = {
        X = 0,
        Y = 0,
        Width = 0,
        Height = 0,
        ExpandedHeight = 5,
        Expanded = true,
        Toolbar = nil,
        Title = "",
        MenuIcon = "=",
        ExpandedIcon = "+",
        ContractIcon = "-",
        ContentView = nil,
        Module = nil,
        MenuItems = nil,

        Draw = function(self)
            Drawing.DrawBlankArea(self.X, self.Y, self.Width, 1, UIColours.ToolbarItemTitle)
            Drawing.DrawCharacters(self.X + 1, self.Y, self.Title, UIColours.ToolbarText, UIColours.ToolbarItemTitle)

            Drawing.DrawCharacters(self.X + self.Width - 1, self.Y, self.MenuIcon, UIColours.ToolbarText, UIColours.ToolbarItemTitle)

            local expandContractIcon = self.ContractIcon
            if not self.Expanded then
                expandContractIcon = self.ExpandedIcon
            end

            if self.Expanded and self.ContentView then
                self.ContentView:Draw()
            end

            Drawing.DrawCharacters(self.X + self.Width - 2, self.Y, expandContractIcon, UIColours.ToolbarText, UIColours.ToolbarItemTitle)
        end,

        Initialise = function(self, module, height, expanded, toolbar, menuItems)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Expanded = expanded
            new.Title = module.Title
            new.Width = toolbar.Width
            new.Height = height or 5
            new.Module = module
            new.MenuItems = menuItems or {}
            table.insert(new.MenuItems,
                {
                    Title = 'Shrink',
                    Click = function()
                        new:ToggleExpanded()
                    end
                })
            new.ExpandedHeight = height or 5
            new.Y = 1
            new.X = toolbar.X
            new.ContentView = ContentView:Initialise(1, 2, new.Width, new.Height - 1, nil, new)
            new.Toolbar = toolbar

            return new
        end,

        ToggleExpanded = function(self)
            self.Expanded = not self.Expanded
            if self.Expanded then
                self.Height = self.ExpandedHeight
            else
                self.Height = 1
            end
        end,

        Click = function(self, side, x, y)
            local pos = GetAbsolutePosition(self)
            if x == self.Width and y == 1 then
                local expandContract = "Shrink"

                if not self.Expanded then
                    expandContract = "Expand"
                end
                self.MenuItems[#self.MenuItems].Title = expandContract
                Menu:New(pos.X + x, pos.Y + y, self.MenuItems, self)
                return true
            elseif x == self.Width - 1 and y == 1 then
                self:ToggleExpanded()
                return true
            elseif y ~= 1 then
                return self.ContentView:Click(side,  x - self.ContentView.X + 1,  y - self.ContentView.Y + 1)
            end

            return false
        end
    }

    ContentView = {
        X = 1,
        Y = 1,
        Width = 0,
        Height = 0,
        Parent = nil,
        Views = {},

        AbsolutePosition = function(self)
            return self.Parent:AbsolutePosition()
        end,

        Draw = function(self)
            for i, view in ipairs(self.Views) do
                view:Draw()
            end
        end,

        Initialise = function(self, x, y, width, height, views, parent)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Width = width
            new.Height = height
            new.Y = y
            new.X = x
            new.Views = views or {}
            new.Parent = parent
            return new
        end,

        Click = function(self, side, x, y)
            for k, view in pairs(self.Views) do
                if DoClick(view, side, x, y) then
                    return true
                end
            end
        end
    }

    Button = {
        X = 1,
        Y = 1,
        Width = 0,
        Height = 0,
        BackgroundColour = colours.lightGrey,
        TextColour = colours.white,
        ActiveBackgroundColour = colours.lightGrey,
        Text = "",
        Parent = nil,
        _Click = nil,
        Toggle = nil,

        AbsolutePosition = function(self)
            return self.Parent:AbsolutePosition()
        end,

        Draw = function(self)
            local bg = self.BackgroundColour
            local tc = self.TextColour
            if type(bg) == 'function' then
                bg = bg()
            end

            if self.Toggle then
                tc = UIColours.MenuBarActive
                bg = self.ActiveBackgroundColour
            end

            local pos = GetAbsolutePosition(self)
            Drawing.DrawBlankArea(pos.X, pos.Y, self.Width, self.Height, bg)
            Drawing.DrawCharactersCenter(pos.X, pos.Y, self.Width, self.Height, self.Text, tc, bg)
        end,

        Initialise = function(self, x, y, width, height, backgroundColour, parent, click, text, textColour, toggle, activeBackgroundColour)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            height = height or 1
            new.Width = width or #text + 2
            new.Height = height
            new.Y = y
            new.X = x
            new.Text = text or ""
            new.BackgroundColour = backgroundColour or colours.lightGrey
            new.TextColour = textColour or colours.white
            new.ActiveBackgroundColour = activeBackgroundColour or colours.lightGrey
            new.Parent = parent
            new._Click = click
            new.Toggle = toggle
            return new
        end,

        Click = function(self, side, x, y)
            if self._Click then
                if self:_Click(side, x, y, not self.Toggle) ~= false and self.Toggle ~= nil then
                    self.Toggle = not self.Toggle
                    Draw()
                end
                return true
            else
                return false
            end
        end
    }

    TextBox = {
        X = 1,
        Y = 1,
        Width = 0,
        Height = 0,
        BackgroundColour = colours.lightGrey,
        TextColour = colours.black,
        Parent = nil,
        TextInput = nil,

        AbsolutePosition = function(self)
            return self.Parent:AbsolutePosition()
        end,

        Draw = function(self)
            local pos = GetAbsolutePosition(self)
            Drawing.DrawBlankArea(pos.X, pos.Y, self.Width, self.Height, self.BackgroundColour)
            local text = self.TextInput.Value
            if #text > (self.Width - 2) then
                text = text:sub(#text-(self.Width - 3))
                if Current.Input == self.TextInput then
                    Current.CursorPos = {pos.X + 1 + self.Width-2, pos.Y}
                end
            else
                if Current.Input == self.TextInput then
                    Current.CursorPos = {pos.X + 1 + self.TextInput.CursorPos, pos.Y}
                end
            end
            Drawing.DrawCharacters(pos.X + 1, pos.Y, text, self.TextColour, self.BackgroundColour)

            term.setCursorBlink(true)

            Current.CursorColour = self.TextColour
        end,

        Initialise = function(self, x, y, width, height, parent, text, backgroundColour, textColour, done, numerical)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            height = height or 1
            new.Width = width or #text + 2
            new.Height = height
            new.Y = y
            new.X = x
            new.TextInput = TextInput:Initialise(text or '', function(key)
                if done then
                    done(key)
                end
                Draw()
            end, numerical)
            new.BackgroundColour = backgroundColour or colours.lightGrey
            new.TextColour = textColour or colours.black
            new.Parent = parent
            return new
        end,

        Click = function(self, side, x, y)
            Current.Input = self.TextInput
            self:Draw()
        end
    }

    TextInput = {
        Value = "",
        Change = nil,
        CursorPos = nil,
        Numerical = false,

        Initialise = function(self, value, change, numerical)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Value = value
            new.Change = change
            new.CursorPos = #value
            new.Numerical = numerical
            return new
        end,

        Char = function(self, char)
            if self.Numerical then
                char = tostring(tonumber(char))
            end
            if char == 'nil' then
                return
            end
            self.Value = string.sub(self.Value, 1, self.CursorPos ) .. char .. string.sub( self.Value, self.CursorPos + 1 )

            self.CursorPos = self.CursorPos + 1
            self.Change(key)
        end,

        Key = function(self, key)
            if key == keys.enter then
                self.Change(key)
            elseif key == keys.left then
                -- Left
                if self.CursorPos > 0 then
                    self.CursorPos = self.CursorPos - 1
                    self.Change(key)
                end

            elseif key == keys.right then
                -- Right
                if self.CursorPos < string.len(self.Value) then
                    self.CursorPos = self.CursorPos + 1
                    self.Change(key)
                end

            elseif key == keys.backspace then
                -- Backspace
                if self.CursorPos > 0 then
                    self.Value = string.sub( self.Value, 1, self.CursorPos - 1 ) .. string.sub( self.Value, self.CursorPos + 1 )
                    self.CursorPos = self.CursorPos - 1
                end
                self.Change(key)
            elseif key == keys.home then
                -- Home
                self.CursorPos = 0
                self.Change(key)
            elseif key == keys.delete then
                if self.CursorPos < string.len(self.Value) then
                    self.Value = string.sub( self.Value, 1, self.CursorPos ) .. string.sub( self.Value, self.CursorPos + 2 )
                    self.Change(key)
                end
            elseif key == keys["end"] then
                -- End
                self.CursorPos = string.len(self.Value)
                self.Change(key)
            end
        end
    }

    LayerItem = {
        X = 1,
        Y = 1,
        Parent = nil,
        Layer = nil,

        Draw = function(self)
            self.Y = self.Layer.Index

            local pos = GetAbsolutePosition(self)

            local tc = colours.lightGrey

            if Current.Layer == self.Layer then
                tc = colours.white
            end

            Drawing.DrawBlankArea(pos.X, pos.Y, self.Width, self.Height, UIColours.Toolbar)

            Drawing.DrawCharacters(pos.X + 3, pos.Y, self.Layer.Name, tc, UIColours.Toolbar)

            if self.Layer.Visible then
                Drawing.DrawCharacters(pos.X + 1, pos.Y, "@", tc, UIColours.Toolbar)
            else
                Drawing.DrawCharacters(pos.X + 1, pos.Y, "X", tc, UIColours.Toolbar)
            end

        end,

        Initialise = function(self, layer, parent)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Width = parent.Width
            new.Height = 1
            new.Y = 1
            new.X = 1
            new.Layer = layer
            new.Parent = parent
            return new
        end,

        Click = function(self, side, x, y)
            if x == 2 then
                self.Layer.Visible = not self.Layer.Visible
            else
                Current.Layer = self.Layer
            end
            return true
        end
    }

    Menu = {
        X = 0,
        Y = 0,
        Width = 0,
        Height = 0,
        Owner = nil,
        Items = {},
        RemoveTop = false,

        Draw = function(self)
            Drawing.DrawBlankArea(self.X + 1, self.Y + 1, self.Width, self.Height, UIColours.Shadow)
            if not self.RemoveTop then
                Drawing.DrawBlankArea(self.X, self.Y, self.Width, self.Height, UIColours.MenuBackground)
                for i, item in ipairs(self.Items) do
                    if item.Separator then
                        Drawing.DrawArea(self.X, self.Y + i, self.Width, 1, '-', colours.grey, UIColours.MenuBackground)
                    else
                        local textColour = UIColours.MenuText
                        if (item.Enabled and type(item.Enabled) == 'function' and item.Enabled() == false) or item.Enabled == false then
                            textColour = UIColours.MenuDisabledText
                        end
                        Drawing.DrawCharacters(self.X + 1, self.Y + i, item.Title, textColour, UIColours.MenuBackground)
                    end
                end
            else
                Drawing.DrawBlankArea(self.X, self.Y, self.Width, self.Height, UIColours.MenuBackground)
                for i, item in ipairs(self.Items) do
                    if item.Separator then
                        Drawing.DrawArea(self.X, self.Y + i - 1, self.Width, 1, '-', colours.grey, UIColours.MenuBackground)
                    else
                        local textColour = UIColours.MenuText
                        if (item.Enabled and type(item.Enabled) == 'function' and item.Enabled() == false) or item.Enabled == false then
                            textColour = UIColours.MenuDisabledText
                        end
                        Drawing.DrawCharacters(self.X + 1, self.Y + i - 1, item.Title, textColour, UIColours.MenuBackground)

                        Drawing.DrawCharacters(self.X - 1 + self.Width-#item.KeyName, self.Y + i - 1, item.KeyName, textColour, UIColours.MenuBackground)
                    end
                end
            end
        end,

        NameForKey = function(self, key)
            if key == keys.leftCtrl then
                return '^'
            elseif key == keys.tab then
                return 'Tab'
            elseif key == keys.delete then
                return 'Delete'
            elseif key == keys.n then
                return 'N'
            elseif key == keys.s then
                return 'S'
            elseif key == keys.o then
                return 'O'
            elseif key == keys.z then
                return 'Z'
            elseif key == keys.y then
                return 'Y'
            elseif key == keys.c then
                return 'C'
            elseif key == keys.x then
                return 'X'
            elseif key == keys.v then
                return 'V'
            elseif key == keys.r then
                return 'R'
            elseif key == keys.l then
                return 'L'
            elseif key == keys.t then
                return 'T'
            elseif key == keys.h then
                return 'H'
            elseif key == keys.e then
                return 'E'
            elseif key == keys.p then
                return 'P'
            elseif key == keys.f then
                return 'F'
            elseif key == keys.m then
                return 'M'
            else
                return '?'
            end
        end,

        Initialise = function(self, x, y, items, owner, removeTop)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            if not owner then
                return
            end

            local keyNames = {}

            for i, v in ipairs(items) do
                items[i].KeyName = ''
                if v.Keys then
                    for _i, key in ipairs(v.Keys) do
                        items[i].KeyName = items[i].KeyName .. self:NameForKey(key)
                    end
                end
                if items[i].KeyName ~= '' then
                    table.insert(keyNames, items[i].KeyName)
                end
            end
            local keysLength = LongestString(keyNames)
            if keysLength > 0 then
                keysLength = keysLength + 2
            end

            new.Width = LongestString(items, 'Title') + 2 + keysLength
            if new.Width < 10 then
                new.Width = 10
            end
            new.Height = #items + 2
            new.RemoveTop = removeTop or false
            if removeTop then
                new.Height = new.Height - 1
            end

            if y < 1 then
                y = 1
            end
            if x < 1 then
                x = 1
            end

            if y + new.Height > Drawing.Screen.Height + 1 then
                y = Drawing.Screen.Height - new.Height
            end
            if x + new.Width > Drawing.Screen.Width + 1 then
                x = Drawing.Screen.Width - new.Width
            end


            new.Y = y
            new.X = x
            new.Items = items
            new.Owner = owner
            return new
        end,

        New = function(self, x, y, items, owner, removeTop)
            if Current.Menu and Current.Menu.Owner == owner then
                Current.Menu = nil
                return
            end

            local new = self:Initialise(x, y, items, owner, removeTop)
            Current.Menu = new
            return new
        end,

        Click = function(self, side, x, y)
            local i = y-1
            if self.RemoveTop then
                i = y
            end
            if i >= 1 and y < self.Height then
                if not ((self.Items[i].Enabled and type(self.Items[i].Enabled) == 'function' and self.Items[i].Enabled() == false) or self.Items[i].Enabled == false) and self.Items[i].Click then
                    self.Items[i]:Click()
                    if Current.Menu.Owner and Current.Menu.Owner.Toggle then
                        Current.Menu.Owner.Toggle = false
                    end
                    Current.Menu = nil
                    self = nil
                end
                return true
            end
        end
    }

    MenuBar = {
        X = 1,
        Y = 1,
        Width = Drawing.Screen.Width,
        Height = 1,
        MenuBarItems = {},

        AbsolutePosition = function(self)
            return {X = self.X, Y = self.Y}
        end,

        Draw = function(self)
            --Drawing.DrawArea(self.X - 1, self.Y, 1, self.Height, "|", UIColours.ToolbarText, UIColours.Background)

            Drawing.DrawBlankArea(self.X, self.Y, self.Width, self.Height, UIColours.Toolbar)
            for i, button in ipairs(self.MenuBarItems) do
                button:Draw()
            end
        end,

        Initialise = function(self, items)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.X = 1
            new.Y = 1
            new.MenuBarItems = items
            return new
        end,

        AddToolbarItem = function(self, item)
            table.insert(self.ToolbarItems, item)
            self:CalculateToolbarItemPositions()
        end,

        CalculateToolbarItemPositions = function(self)
            local currY = 1
            for i, toolbarItem in ipairs(self.ToolbarItems) do
                toolbarItem.Y = currY
                currY = currY + toolbarItem.Height
            end
        end,

        Click = function(self, side, x, y)
            for i, item in ipairs(self.MenuBarItems) do
                if item.X <= x and item.X + item.Width > x then
                    if item:Click(item, side, x - item.X + 1, 1) then
                        break
                    end
                end
            end
            return false
        end
    }

    --Modules--

    Modules = {
        {
            Title = "Colours",
            ToolbarItem = nil,
            Initialise = function(self)
                self.ToolbarItem = ToolbarItem:Initialise(self, nil, true, Current.Toolbar)

                local buttons = {}

                local i = 0

                local coloursWidth = 8
                local _colours = {
                    colours.brown,
                    colours.yellow,
                    colours.orange,
                    colours.red,
                    colours.green,
                    colours.lime,
                    colours.magenta,
                    colours.pink,
                    colours.purple,
                    colours.blue,
                    colours.cyan,
                    colours.lightBlue,
                    colours.lightGrey,
                    colours.grey,
                    colours.black,
                    colours.white
                }

                for k, colour in pairs(_colours) do
                    if type(colour) == 'number' and colour ~= -1 then
                        i = i + 1

                        local y = math.floor(i/(coloursWidth/2))

                        local x = (i%(coloursWidth/2))
                        if x == 0 then
                            x = (coloursWidth/2)
                            y = y -1
                        end

                        table.insert(buttons,
                            {
                                X = x*2 - 2 + self.ToolbarItem.Width - coloursWidth,
                                Y = y+1,
                                Width = 2,
                                Height = 1,
                                BackgroundColour = colour,
                                Click = function(self, side, x, y)
                                    SetColour(self.BackgroundColour)
                                end
                            }
                        )
                    end
                end

                for i, button in ipairs(buttons) do
                    table.insert(self.ToolbarItem.ContentView.Views,
                        Button:Initialise(button.X, button.Y, button.Width, button.Height, button.BackgroundColour, self.ToolbarItem.ContentView, button.Click))
                end

                table.insert(self.ToolbarItem.ContentView.Views,
                        Button:Initialise(1, 1, 4, 3, function()return Current.Colour end, self.ToolbarItem.ContentView, nil))

                Current.Toolbar:AddToolbarItem(self.ToolbarItem)
            end
        },

        {
            Title = "Tools",
            ToolbarItem = nil,
            Update = function(self)
                for i, view in ipairs(self.ToolbarItem.ContentView.Views) do
                    if (Current.Tool and Current.Tool.Name == view.Text) then
                        view.TextColour = colours.white
                    else
                        view.TextColour = colours.lightGrey
                    end
                end
                self.ToolbarItem.ContentView.Views[1].Text = 'Size: '..Current.ToolSize
            end,

            Initialise = function(self)
                self.ToolbarItem = ToolbarItem:Initialise(self, #Tools+2, true, Current.Toolbar,
                    {{
                        Title = "Change Tool Size",
                        Click = function()
                            DisplayToolSizeWindow()
                        end,
                    }})

                table.insert(self.ToolbarItem.ContentView.Views, Button:Initialise(1, 1, self.ToolbarItem.Width, 1, UIColours.Toolbar, self.ToolbarItem.ContentView, DisplayToolSizeWindow, 'Size: '..Current.ToolSize))

                local y = 2
                for i, tool in ipairs(Tools) do
                    table.insert(self.ToolbarItem.ContentView.Views, Button:Initialise(1, y, self.ToolbarItem.Width, 1, UIColours.Toolbar, self.ToolbarItem.ContentView, function() SetTool(tool) self:Update(self.ToolbarItem) end, tool.Name))
                    y = y + 1
                end

                self:Update(self.ToolbarItem)

                Current.Toolbar:AddToolbarItem(self.ToolbarItem)
            end
        },

        {
            Title = "Layers",
            ToolbarItem = nil,
            Update = function(self)
                if Current.Artboard then
                    self.ToolbarItem.ContentView.Views = {}
                    for i = 1, #Current.Artboard.Layers do
                        table.insert(self.ToolbarItem.ContentView.Views, LayerItem:Initialise(Current.Artboard.Layers[#Current.Artboard.Layers-i+1], self.ToolbarItem.ContentView))
                    end
                end
            end,

            Initialise = function(self)
                self.ToolbarItem = ToolbarItem:Initialise(self, nil, true, Current.Toolbar,
                    {{
                        Title = "New Layer",
                        Click = function()
                            MakeNewLayer()
                        end,
                        Enabled = function()
                            return CheckOpenArtboard()
                        end
                    },
                    {
                        Title = 'Delete Layer',
                        Click = function()
                            DeleteLayer()
                        end,
                        Enabled = function()
                            return CheckSelectedLayer()
                        end
                    },
                    {
                        Title = 'Rename Layer...',
                        Click = function()
                            RenameLayer()
                        end,
                        Enabled = function()
                            return CheckSelectedLayer()
                        end
                    }})

                self:Update()

                Current.Toolbar:AddToolbarItem(self.ToolbarItem)
            end
        }

    }

    function ModuleNamed(name)
        for i, v in ipairs(Modules) do
            if v.Title == name then
                return v
            end
        end
    end

    --Tools--

    function ToolAffectedPixels(x, y)
        if not CheckSelectedLayer() then
            return {}
        end
        if Current.ToolSize == 1 then
            if Current.Layer.Pixels[x] and Current.Layer.Pixels[x][y] then
                return {{Current.Layer.Pixels[x][y], x, y}}
            end
        else
            local pixels = {}
            local cornerX = x - math.ceil(Current.ToolSize/2)
            local cornerY = y - math.ceil(Current.ToolSize/2)
            for _x = 1, Current.ToolSize do
                for _y = 1, Current.ToolSize do
                    if Current.Layer.Pixels[cornerX + _x] and Current.Layer.Pixels[cornerX + _x][cornerY + _y] then
                        table.insert(pixels, {Current.Layer.Pixels[cornerX + _x][cornerY + _y], cornerX + _x, cornerY + _y})
                    end
                end
            end
            return pixels
        end
    end
    local moveStartPoint = {}
    Tools = {
        {
            Name = "Hand",
            Use = function(self, x, y, side, drag)
                Current.Input = nil
                if drag and Current.HandDragStart and Current.HandDragStart[1] and Current.HandDragStart[2] then
                    local deltaX = x - Current.HandDragStart[1]
                    local deltaY = y - Current.HandDragStart[2]
                    Current.Artboard.X = Current.Artboard.X + deltaX
                    Current.Artboard.Y = Current.Artboard.Y + deltaY
                else
                    Current.HandDragStart = {x, y}
                end
                sleep(0)
            end,
            Select = function(self)
                return true
            end
        },

        {
            Name = "Pencil",
            Use = function(self, _x, _y, side, artboard)
                Current.Input = nil
                for i, pixel in ipairs(ToolAffectedPixels(_x, _y)) do
                    if side == 1 then
                        pixel[1].BackgroundColour = Current.Colour
                    elseif side == 2 then
                        pixel[1].TextColour = Current.Colour
                    end
                    pixel[1]:Draw(pixel[2], pixel[3])
                end
            end,
            Select = function(self)
                return true
            end
        },

        {
            Name = "Eraser",
            Use = function(self, x, y, side)
                Current.Input = nil
                Current.Layer:SetPixel(x, y, nil, Current.Layer.BackgroundColour, nil)
                for i, pixel in ipairs(ToolAffectedPixels(x, y)) do
                    Current.Layer:SetPixel(pixel[2], pixel[3], nil, Current.Layer.BackgroundColour, nil)
                end
            end,
            Select = function(self)
                return true
            end
        },

        {
            Name = "Fill Bucket",
            Use = function(self, x, y, side)
                local replaceColour = Current.Layer.Pixels[x][y].BackgroundColour
                if side == 2 then
                    replaceColour = Current.Layer.Pixels[x][y].TextColour
                end

                local nodes = {{X = x, Y = y}}

                while #nodes > 0 do
                    local node = nodes[1]
                    if Current.Layer.Pixels[node.X] and Current.Layer.Pixels[node.X][node.Y] then
                        local replacing = Current.Layer.Pixels[node.X][node.Y].BackgroundColour
                        if side == 2 then
                            replacing = Current.Layer.Pixels[node.X][node.Y].TextColour
                        end
                        if replacing == replaceColour and replacing ~= Current.Colour then
                            if side == 1 then
                                Current.Layer.Pixels[node.X][node.Y].BackgroundColour = Current.Colour
                            elseif side == 2 then
                                Current.Layer.Pixels[node.X][node.Y].TextColour = Current.Colour
                            end
                            table.insert(nodes, {X = node.X, Y = node.Y + 1})
                            table.insert(nodes, {X = node.X + 1, Y = node.Y})
                            if x > 1 then
                                table.insert(nodes, {X = node.X - 1, Y = node.Y})
                            end
                            if y > 1 then
                                table.insert(nodes, {X = node.X, Y = node.Y - 1})
                            end
                        end
                    end
                    table.remove(nodes, 1)
                end
                Draw()
            end,
            Select = function(self)
                return true
            end
        },

        {
            Name = "Select",
            Use = function(self, x, y, side, drag)
                Current.Input = nil
                if not drag then
                    Current.Selection[1] = vector.new(x, y, 0)
                    Current.Selection[2] = nil
                else
                    Current.Selection[2] = vector.new(x, y, 0)
                end
            end,
            Select = function(self)
                return true
            end
        },

        {
            Name = "Move",
            Use = function(self, x, y, side, drag)
                Current.Input = nil

                if Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil then
                    if drag and moveStartPoint then
                        local pixels = Current.Layer:PixelsInSelection(true)
                        local size = Current.Selection[1] - Current.Selection[2]
                        Current.Selection[1] = vector.new(x-moveStartPoint[1], y-moveStartPoint[2], 0)
                        Current.Selection[2] = vector.new(x-moveStartPoint[1]-size.x, y-moveStartPoint[2]-size.y, 0)
                        Current.Layer:InsertPixels(pixels)
                    else
                        moveStartPoint = {x-Current.Selection[1].x, y-Current.Selection[1].y}
                    end
                end
            end,
            Select = function(self)
                return true
            end
        },

        {
            Name = "Text",
            Use = function(self, x, y)
                Current.Input = TextInput:Initialise('', function(key)
                    if key == keys.delete or key == keys.backspace then
                        if #Current.Input.Value == 0 then
                            if Current.Layer.Pixels[x] and Current.Layer.Pixels[x][y] then
                                Current.Layer.Pixels[x][y]:Set(nil, nil, ' ')
                                local newPos = Current.CursorPos[1] - Current.Artboard.X
                                if newPos < Current.Artboard.X - 1 then
                                    newPos = Current.Artboard.X - 1
                                end
                                Current.Tool:Use(newPos, Current.CursorPos[2] - Current.Artboard.Y + 1)
                                Draw()
                            end
                            return
                        else
                            if Current.Layer.Pixels[x+#Current.Input.Value] and Current.Layer.Pixels[x+#Current.Input.Value][y] then
                                Current.Layer.Pixels[x+#Current.Input.Value][y]:Set(nil, nil, ' ')
                            end
                        end
                    else
                        local i = #Current.Input.Value
                        if Current.Layer.Pixels[x+i-1] then
                            Current.Layer.Pixels[x+i-1][y]:Set(Current.Colour, nil, Current.Input.Value:sub(i,i))
                            Current.Layer.Pixels[x+i-1][y]:Draw(x+i-1, y)
                        end
                    end

                    local newPos = x+Current.Input.CursorPos

                    if newPos > Current.Artboard.Width then
                        Current.Input.CursorPos = Current.Input.CursorPos - 1
                    end

                    Current.CursorPos = {x+Current.Input.CursorPos + Current.Artboard.X - 1, y + Current.Artboard.Y - 1}
                    Current.CursorColour = Current.Colour
                    Draw()
                end)

                Current.CursorPos = {x + Current.Artboard.X - 1, y + Current.Artboard.Y - 1}
                Current.CursorColour = Current.Colour
            end,
            Select = function(self)
                if Current.Artboard.Format == '.nfp' then
                    ButtonDialougeWindow:Initialise('NFP does not support text!', 'The format you are using, NFP, does not support text. Use NFT or SKCH to use text.', 'Ok', nil, function(window)
                        window:Close()
                    end):Show()
                    return false
                else
                    return true
                end
            end
        }
    }


    function ToolNamed(name)
        for i, v in ipairs(Tools) do
            if v.Name == name then
                return v
            end
        end
    end

    --Windows--

    NewDocumentWindow = {
        X = 1,
        Y = 1,
        Width = 0,
        Height = 0,
        CursorPos = 1,
        Visible = true,
        Return = nil,
        OkButton = nil,
        Format = '.skch',
        ImageBackgroundColour = colours.white,
        NameLabelHighlight = false,
        SizeLabelHighlight = false,


        AbsolutePosition = function(self)
            return {X = self.X, Y = self.Y}
        end,

        Draw = function(self)
            if not self.Visible then
                return
            end
            Drawing.DrawBlankArea(self.X + 1, self.Y+1, self.Width, self.Height, colours.grey)
            Drawing.DrawBlankArea(self.X, self.Y, self.Width, 1, colours.lightGrey)
            Drawing.DrawBlankArea(self.X, self.Y+1, self.Width, self.Height-1, colours.white)
            Drawing.DrawCharactersCenter(self.X, self.Y, self.Width, 1, self.Title, colours.black, colours.lightGrey)

            local nameLabelColour = colours.black
            if self.NameLabelHighlight then
                nameLabelColour = colours.red
            end

            Drawing.DrawCharacters(self.X+1, self.Y+2, "Name", nameLabelColour, colours.white)
            Drawing.DrawCharacters(self.X+1, self.Y+4, "Type", colours.black, colours.white)

            local sizeLabelColour = colours.black
            if self.SizeLabelHighlight then
                sizeLabelColour = colours.red
            end
            Drawing.DrawCharacters(self.X+1, self.Y+6, "Size", sizeLabelColour, colours.white)
            Drawing.DrawCharacters(self.X+11, self.Y+6, "x", colours.black, colours.white)
            Drawing.DrawCharacters(self.X+1, self.Y+8, "Background", colours.black, colours.white)

            self.OkButton:Draw()
            self.CancelButton:Draw()
            self.SKCHButton:Draw()
            self.NFTButton:Draw()
            self.NFPButton:Draw()
            self.PathTextBox:Draw()
            self.WidthTextBox:Draw()
            self.HeightTextBox:Draw()
            self.WhiteButton:Draw()
            self.BlackButton:Draw()
            self.TransparentButton:Draw()
        end,

        Initialise = function(self, returnFunc)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Width = 32
            new.Height = 13
            new.Return = returnFunc
            new.X = math.ceil((Drawing.Screen.Width - new.Width) / 2)
            new.Y = math.ceil((Drawing.Screen.Height - new.Height) / 2)
            new.Title = 'New Document'
            new.Visible = true
            new.NameLabelHighlight = false
            new.SizeLabelHighlight = false
            new.Format = '.skch'
            new.OkButton = Button:Initialise(new.Width - 4, new.Height - 1, nil, nil, colours.lightGrey, new, function(self, side, x, y, toggle)
                local path = new.PathTextBox.TextInput.Value
                local ok = true
                new.NameLabelHighlight = false
                new.SizeLabelHighlight = false
                local _fs = fs
                if OneOS then
                    _fs = OneOS.FS
                end
                if path:sub(-1) == '/' or _fs.isDir(path) or #path == 0 then
                    ok = false
                    new.NameLabelHighlight = true
                end

                if #new.WidthTextBox.TextInput.Value == 0 or tonumber(new.WidthTextBox.TextInput.Value) <= 0 then
                    ok = false
                    new.SizeLabelHighlight = true
                end

                if #new.HeightTextBox.TextInput.Value == 0 or tonumber(new.HeightTextBox.TextInput.Value) <= 0 then
                    ok = false
                    new.SizeLabelHighlight = true
                end

                if ok then
                    returnFunc(new, true, path, tonumber(new.WidthTextBox.TextInput.Value), tonumber(new.HeightTextBox.TextInput.Value), new.Format, new.ImageBackgroundColour)
                else
                    Draw()
                end
            end, 'Ok', colours.black)
            new.CancelButton = Button:Initialise(new.Width - 13, new.Height - 1, nil, nil, colours.lightGrey, new, function(self, side, x, y, toggle)returnFunc(new, false)end, 'Cancel', colours.black)

            new.SKCHButton = Button:Initialise(7, 5, nil, nil, colours.lightGrey, new, function(self, side, x, y, toggle)
                new.NFTButton.Toggle = false
                new.NFPButton.Toggle = false
                self.Toggle = false
                new.Format = '.skch'
            end, '.skch', colours.black, true, colours.lightBlue)
            new.NFTButton = Button:Initialise(15, 5, nil, nil, colours.lightGrey, new, function(self, side, x, y, toggle)
                new.SKCHButton.Toggle = false
                new.NFPButton.Toggle = false
                self.Toggle = false
                new.Format = '.nft'
            end, '.nft', colours.black, false, colours.lightBlue)
            new.NFPButton = Button:Initialise(22, 5, nil, nil, colours.lightGrey, new, function(self, side, x, y, toggle)
                new.SKCHButton.Toggle = false
                new.NFTButton.Toggle = false
                self.Toggle = false
                new.Format = '.nfp'
            end, '.nfp', colours.black, false, colours.lightBlue)

            local path = ''
            if OneOS then
                path = '/Desktop/'
            end
            new.PathTextBox = TextBox:Initialise(7, 3, new.Width - 7, 1, new, path, nil, nil, function(key)
                if key == keys.enter or key == keys.tab then
                    Current.Input = new.WidthTextBox.TextInput
                end
            end)
            new.WidthTextBox = TextBox:Initialise(7, 7, 4, 1, new, tostring(15), nil, nil, function()
                if key == keys.enter or key == keys.tab then
                    Current.Input = new.HeightTextBox.TextInput
                end
            end, true)
            new.HeightTextBox = TextBox:Initialise(14, 7, 4, 1, new, tostring(10), nil, nil, function()
                if key == keys.enter or key == keys.tab then
                    Current.Input = new.PathTextBox.TextInput
                end
            end, true)
            Current.Input = new.PathTextBox.TextInput


            new.WhiteButton = Button:Initialise(2, 10, nil, nil, colours.lightGrey, new, function(self, side, x, y, toggle)
                new.TransparentButton.Toggle = false
                new.BlackButton.Toggle = false
                self.Toggle = false
                new.ImageBackgroundColour = colours.white
            end, 'White', colours.black, true, colours.lightBlue)
            new.BlackButton = Button:Initialise(10, 10, nil, nil, colours.lightGrey, new, function(self, side, x, y, toggle)
                new.TransparentButton.Toggle = false
                new.WhiteButton.Toggle = false
                self.Toggle = false
                new.ImageBackgroundColour = colours.black
            end, 'Black', colours.black, false, colours.lightBlue)
            new.TransparentButton = Button:Initialise(18, 10, nil, nil, colours.lightGrey, new, function(self, side, x, y, toggle)
                new.WhiteButton.Toggle = false
                new.BlackButton.Toggle = false
                self.Toggle = false
                new.ImageBackgroundColour = colours.transparent
            end, 'Transparent', colours.black, false, colours.lightBlue)

            return new
        end,

        Show = function(self)
            Current.Window = self
            return self
        end,

        Close = function(self)
            Current.Input = nil
            Current.Window = nil
            self = nil
        end,

        Flash = function(self)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
            sleep(0.15)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
        end,

        ButtonClick = function(self, button, x, y)
            if button.X <= x and button.Y <= y and button.X + button.Width > x and button.Y + button.Height > y then
                button:Click()
            end
        end,

        Click = function(self, side, x, y)
            local items = {self.OkButton, self.CancelButton, self.SKCHButton, self.NFTButton, self.NFPButton, self.PathTextBox, self.WidthTextBox, self.HeightTextBox, self.WhiteButton, self.BlackButton, self.TransparentButton}
            for i, v in ipairs(items) do
                if CheckClick(v, x, y) then
                    v:Click(side, x, y)
                end
            end
            return true
        end
    }

    local TidyPath = function(path)
        path = '/'..path
        local _fs = fs
        if OneOS then
            _fs = OneOS.FS
        end
        if _fs.isDir(path) then
            path = path .. '/'
        end

        path, n = path:gsub("//", "/")
        while n > 0 do
            path, n = path:gsub("//", "/")
        end
        return path
    end

    local WrapText = function(text, maxWidth)
        local lines = {''}
        for word, space in text:gmatch('(%S+)(%s*)') do
                local temp = lines[#lines] .. word .. space:gsub('\n','')
                if #temp > maxWidth then
                        table.insert(lines, '')
                end
                if space:find('\n') then
                        lines[#lines] = lines[#lines] .. word

                        space = space:gsub('\n', function()
                                table.insert(lines, '')
                                return ''
                        end)
                else
                        lines[#lines] = lines[#lines] .. word .. space
                end
        end
        return lines
    end

    OpenDocumentWindow = {
        X = 1,
        Y = 1,
        Width = 0,
        Height = 0,
        CursorPos = 1,
        Visible = true,
        Return = nil,
        OpenButton = nil,
        PathTextBox = nil,
        CurrentDirectory = '/',
        Scroll = 0,
        MaxScroll = 0,
        GoUpButton = nil,
        SelectedFile = '',
        Files = {},
        Typed = false,

        AbsolutePosition = function(self)
            return {X = self.X, Y = self.Y}
        end,

        Draw = function(self)
            if not self.Visible then
                return
            end
            Drawing.DrawBlankArea(self.X + 1, self.Y+1, self.Width, self.Height, colours.grey)
            Drawing.DrawBlankArea(self.X, self.Y, self.Width, 3, colours.lightGrey)
            Drawing.DrawBlankArea(self.X, self.Y+1, self.Width, self.Height-6, colours.white)
            Drawing.DrawCharactersCenter(self.X, self.Y, self.Width, 1, self.Title, colours.black, colours.lightGrey)
            Drawing.DrawBlankArea(self.X, self.Y + self.Height - 5, self.Width, 5, colours.lightGrey)
            self:DrawFiles()

            local _fs = fs
            if OneOS then
                _fs = OneOS.FS
            end
            if (_fs.exists(self.PathTextBox.TextInput.Value)) or (self.SelectedFile and #self.SelectedFile > 0 and _fs.exists(self.CurrentDirectory .. self.SelectedFile)) then
                self.OpenButton.TextColour = colours.black
            else
                self.OpenButton.TextColour = colours.lightGrey
            end

            self.PathTextBox:Draw()
            self.OpenButton:Draw()
            self.CancelButton:Draw()
            self.GoUpButton:Draw()
        end,

        DrawFiles = function(self)
            local _fs = fs
            if OneOS then
                _fs = OneOS.FS
            end
            for i, file in ipairs(self.Files) do
                if i > self.Scroll and i - self.Scroll <= 11 then
                    if file == self.SelectedFile then
                        Drawing.DrawCharacters(self.X + 1, self.Y + i - self.Scroll, file, colours.white, colours.lightBlue)
                    elseif string.find(file, '%.skch') or string.find(file, '%.nft') or string.find(file, '%.nfp') or _fs.isDir(self.CurrentDirectory .. file) then
                        Drawing.DrawCharacters(self.X + 1, self.Y + i - self.Scroll, file, colours.black, colours.white)
                    else
                        Drawing.DrawCharacters(self.X + 1, self.Y + i - self.Scroll, file, colours.grey, colours.white)
                    end
                end
            end
            self.MaxScroll = #self.Files - 11
            if self.MaxScroll < 0 then
                self.MaxScroll = 0
            end
        end,

        Initialise = function(self, returnFunc)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Width = 32
            new.Height = 17
            new.Return = returnFunc
            new.X = math.ceil((Drawing.Screen.Width - new.Width) / 2)
            new.Y = math.ceil((Drawing.Screen.Height - new.Height) / 2)
            new.Title = 'Open Document'
            new.Visible = true
            new.CurrentDirectory = '/'
            new.SelectedFile = nil
            if OneOS then
                new.CurrentDirectory = '/Desktop/'
            end
            local _fs = fs
            if OneOS then
                _fs = OneOS.FS
            end
            new.OpenButton = Button:Initialise(new.Width - 6, new.Height - 1, nil, nil, colours.white, new, function(self, side, x, y, toggle)
                if _fs.exists(new.PathTextBox.TextInput.Value) and self.TextColour == colours.black and not _fs.isDir(new.PathTextBox.TextInput.Value) then
                    returnFunc(new, true, TidyPath(new.PathTextBox.TextInput.Value))
                elseif new.SelectedFile and self.TextColour == colours.black and _fs.isDir(new.CurrentDirectory .. new.SelectedFile) then
                    new:GoToDirectory(new.CurrentDirectory .. new.SelectedFile)
                elseif new.SelectedFile and self.TextColour == colours.black then
                    returnFunc(new, true, TidyPath(new.CurrentDirectory .. '/' .. new.SelectedFile))
                end
            end, 'Open', colours.black)
            new.CancelButton = Button:Initialise(new.Width - 15, new.Height - 1, nil, nil, colours.white, new, function(self, side, x, y, toggle)
                returnFunc(new, false)
            end, 'Cancel', colours.black)
            new.GoUpButton = Button:Initialise(2, new.Height - 1, nil, nil, colours.white, new, function(self, side, x, y, toggle)
                local folderName = _fs.getName(new.CurrentDirectory)
                local parentDirectory = new.CurrentDirectory:sub(1, #new.CurrentDirectory-#folderName-1)
                new:GoToDirectory(parentDirectory)
            end, 'Go Up', colours.black)
            new.PathTextBox = TextBox:Initialise(2, new.Height - 3, new.Width - 2, 1, new, new.CurrentDirectory, colours.white, colours.black)
            new:GoToDirectory(new.CurrentDirectory)
            return new
        end,

        Show = function(self)
            Current.Window = self
            return self
        end,

        Close = function(self)
            Current.Input = nil
            Current.Window = nil
            self = nil
        end,

        GoToDirectory = function(self, path)
            path = TidyPath(path)
            self.CurrentDirectory = path
            self.Scroll = 0
            self.SelectedFile = nil
            self.Typed = false
            self.PathTextBox.TextInput.Value = path
            local _fs = fs
            if OneOS then
                _fs = OneOS.FS
            end
            self.Files = _fs.list(self.CurrentDirectory)
            Draw()
        end,

        Flash = function(self)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
            sleep(0.15)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
        end,

        Click = function(self, side, x, y)
            local items = {self.OpenButton, self.CancelButton, self.PathTextBox, self.GoUpButton}
            local found = false
            for i, v in ipairs(items) do
                if CheckClick(v, x, y) then
                    v:Click(side, x, y)
                    found = true
                end
            end

            if not found then
                if y <= 12 then
                    local _fs = fs
                    if OneOS then
                        _fs = OneOS.FS
                    end
                    self.SelectedFile = _fs.list(self.CurrentDirectory)[y-1]
                    self.PathTextBox.TextInput.Value = TidyPath(self.CurrentDirectory .. '/' .. self.SelectedFile)
                    Draw()
                end
            end
            return true
        end
    }

    ButtonDialougeWindow = {
        X = 1,
        Y = 1,
        Width = 0,
        Height = 0,
        CursorPos = 1,
        Visible = true,
        CancelButton = nil,
        OkButton = nil,
        Lines = {},

        AbsolutePosition = function(self)
            return {X = self.X, Y = self.Y}
        end,

        Draw = function(self)
            if not self.Visible then
                return
            end
            Drawing.DrawBlankArea(self.X + 1, self.Y+1, self.Width, self.Height, colours.grey)
            Drawing.DrawBlankArea(self.X, self.Y, self.Width, 1, colours.lightGrey)
            Drawing.DrawBlankArea(self.X, self.Y+1, self.Width, self.Height-1, colours.white)
            Drawing.DrawCharactersCenter(self.X, self.Y, self.Width, 1, self.Title, colours.black, colours.lightGrey)

            for i, text in ipairs(self.Lines) do
                Drawing.DrawCharacters(self.X + 1, self.Y + 1 + i, text, colours.black, colours.white)
            end

            self.OkButton:Draw()
            if self.CancelButton then
                self.CancelButton:Draw()
            end
        end,

        Initialise = function(self, title, message, okText, cancelText, returnFunc)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Width = 28
            new.Lines = WrapText(message, new.Width - 2)
            new.Height = 5 + #new.Lines
            new.Return = returnFunc
            new.X = math.ceil((Drawing.Screen.Width - new.Width) / 2)
            new.Y = math.ceil((Drawing.Screen.Height - new.Height) / 2)
            new.Title = title
            new.Visible = true
            new.Visible = true
            new.OkButton = Button:Initialise(new.Width - #okText - 2, new.Height - 1, nil, 1, nil, new, function()
                returnFunc(new, true)
            end, okText)
            if cancelText then
                new.CancelButton = Button:Initialise(new.Width - #okText - 2 - 1 - #cancelText - 2, new.Height - 1, nil, 1, nil, new, function()
                    returnFunc(new, false)
                end, cancelText)
            end

            return new
        end,

        Show = function(self)
            Current.Window = self
            return self
        end,

        Close = function(self)
            Current.Window = nil
            self = nil
        end,

        Flash = function(self)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
            sleep(0.15)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
        end,

        Click = function(self, side, x, y)
            local items = {self.OkButton, self.CancelButton}
            local found = false
            for i, v in ipairs(items) do
                if CheckClick(v, x, y) then
                    v:Click(side, x, y)
                    found = true
                end
            end
            return true
        end
    }

    TextDialougeWindow = {
        X = 1,
        Y = 1,
        Width = 0,
        Height = 0,
        CursorPos = 1,
        Visible = true,
        CancelButton = nil,
        OkButton = nil,
        Lines = {},
        TextInput = nil,

        AbsolutePosition = function(self)
            return {X = self.X, Y = self.Y}
        end,

        Draw = function(self)
            if not self.Visible then
                return
            end
            Drawing.DrawBlankArea(self.X + 1, self.Y+1, self.Width, self.Height, colours.grey)
            Drawing.DrawBlankArea(self.X, self.Y, self.Width, 1, colours.lightGrey)
            Drawing.DrawBlankArea(self.X, self.Y+1, self.Width, self.Height-1, colours.white)
            Drawing.DrawCharactersCenter(self.X, self.Y, self.Width, 1, self.Title, colours.black, colours.lightGrey)

            for i, text in ipairs(self.Lines) do
                Drawing.DrawCharacters(self.X + 1, self.Y + 1 + i, text, colours.black, colours.white)
            end


            Drawing.DrawBlankArea(self.X + 1, self.Y + self.Height - 4, self.Width - 2, 1, colours.lightGrey)
            Drawing.DrawCharacters(self.X + 2, self.Y + self.Height - 4, self.TextInput.Value, colours.black, colours.lightGrey)
            Current.CursorPos = {self.X + 2 + self.TextInput.CursorPos, self.Y + self.Height - 4}
            Current.CursorColour = colours.black

            self.OkButton:Draw()
            if self.CancelButton then
                self.CancelButton:Draw()
            end
        end,

        Initialise = function(self, title, message, okText, cancelText, returnFunc, numerical)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Width = 28
            new.Lines = WrapText(message, new.Width - 2)
            new.Height = 7 + #new.Lines
            new.Return = returnFunc
            new.X = math.ceil((Drawing.Screen.Width - new.Width) / 2)
            new.Y = math.ceil((Drawing.Screen.Height - new.Height) / 2)
            new.Title = title
            new.Visible = true
            new.Visible = true
            new.OkButton = Button:Initialise(new.Width - #okText - 2, new.Height - 1, nil, 1, nil, new, function()
                if #new.TextInput.Value > 0 then
                    returnFunc(new, true, new.TextInput.Value)
                end
            end, okText)
            if cancelText then
                new.CancelButton = Button:Initialise(new.Width - #okText - 2 - 1 - #cancelText - 2, new.Height - 1, nil, 1, nil, new, function()
                    returnFunc(new, false)
                end, cancelText)
            end
            new.TextInput = TextInput:Initialise('', function(enter)
                if enter then
                    new.OkButton:Click()
                end
                Draw()
            end, numerical)

            Current.Input = new.TextInput

            return new
        end,

        Show = function(self)
            Current.Window = self
            return self
        end,

        Close = function(self)
            Current.Window = nil
            Current.Input = nil
            self = nil
        end,

        Flash = function(self)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
            sleep(0.15)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
        end,

        Click = function(self, side, x, y)
            local items = {self.OkButton, self.CancelButton}
            local found = false
            for i, v in ipairs(items) do
                if CheckClick(v, x, y) then
                    v:Click(side, x, y)
                    found = true
                end
            end
            return true
        end
    }

    ResizeDocumentWindow = {
        X = 1,
        Y = 1,
        Width = 0,
        Height = 0,
        CursorPos = 1,
        Visible = true,
        Return = nil,
        OkButton = nil,
        AnchorPosition = 5,
        WidthLabelHighlight = false,
        HeightLabelHighlight = false,

        AbsolutePosition = function(self)
            return {X = self.X, Y = self.Y}
        end,

        Draw = function(self)
            if not self.Visible then
                return
            end
            Drawing.DrawBlankArea(self.X + 1, self.Y+1, self.Width, self.Height, colours.grey)
            Drawing.DrawBlankArea(self.X, self.Y, self.Width, 1, colours.lightGrey)
            Drawing.DrawBlankArea(self.X, self.Y+1, self.Width, self.Height-1, colours.white)
            Drawing.DrawCharactersCenter(self.X, self.Y, self.Width, 1, self.Title, colours.black, colours.lightGrey)

            Drawing.DrawCharacters(self.X+1, self.Y+2, "New Size", colours.lightGrey, colours.white)
            if (#self.WidthTextBox.TextInput.Value > 0 and tonumber(self.WidthTextBox.TextInput.Value) < Current.Artboard.Width) or (#self.HeightTextBox.TextInput.Value > 0 and tonumber(self.HeightTextBox.TextInput.Value) < Current.Artboard.Height) then
                Drawing.DrawCharacters(self.X+1, self.Y+8, "Clipping will occur!", colours.red, colours.white)
            end

            local widthLabelColour = colours.black
            if self.WidthLabelHighlight then
                widthLabelColour = colours.red
            end

            local heightLabelColour = colours.black
            if self.HeightLabelHighlight then
                heightLabelColour = colours.red
            end

            Drawing.DrawCharacters(self.X+1, self.Y+4, "Width", widthLabelColour, colours.white)
            Drawing.DrawCharacters(self.X+1, self.Y+6, "Height", heightLabelColour, colours.white)

            Drawing.DrawCharacters(self.X+14, self.Y+2, "Anchor", colours.lightGrey, colours.white)

            self.WidthTextBox:Draw()
            self.HeightTextBox:Draw()
            self.OkButton:Draw()
            self.Anchor1:Draw()
            self.Anchor2:Draw()
            self.Anchor3:Draw()
            self.Anchor4:Draw()
            self.Anchor5:Draw()
            self.Anchor6:Draw()
            self.Anchor7:Draw()
            self.Anchor8:Draw()
            self.Anchor9:Draw()
        end,

        Initialise = function(self, returnFunc)
            local new = {}    -- the new instance
            setmetatable( new, {__index = self} )
            new.Width = 27
            new.Height = 10
            new.Return = returnFunc
            new.X = math.ceil((Drawing.Screen.Width - new.Width) / 2)
            new.Y = math.ceil((Drawing.Screen.Height - new.Height) / 2)
            new.Title = 'Resize Document'
            new.Visible = true

            new.WidthTextBox = TextBox:Initialise(9, 5, 4, 1, new, tostring(Current.Artboard.Width), nil, nil, function()
                new:UpdateAnchorButtons()
            end, true)
            new.HeightTextBox = TextBox:Initialise(9, 7, 4, 1, new, tostring(Current.Artboard.Height), nil, nil, function()
                new:UpdateAnchorButtons()
            end, true)
            new.OkButton = Button:Initialise(new.Width - 4, new.Height - 1, nil, nil, colours.lightGrey, new, function(self, side, x, y, toggle)
                local ok = true
                new.WidthLabelHighlight = false
                new.HeightLabelHighlight = false

                if #new.WidthTextBox.TextInput.Value == 0 or tonumber(new.WidthTextBox.TextInput.Value) <= 0 then
                    ok = false
                    new.WidthLabelHighlight = true
                end

                if #new.HeightTextBox.TextInput.Value == 0 or tonumber(new.HeightTextBox.TextInput.Value) <= 0 then
                    ok = false
                    new.HeightLabelHighlight = true
                end

                if ok then
                    returnFunc(new, tonumber(new.WidthTextBox.TextInput.Value), tonumber(new.HeightTextBox.TextInput.Value), new.AnchorPosition)
                else
                    Draw()
                end
            end, 'Ok', colours.black)

            local anchorX = 15
            local anchorY = 5
            new.Anchor1 = Button:Initialise(anchorX, anchorY, 1, 1, colours.lightGrey, new, function(self, side, x, y, toggle)new.AnchorPosition = 1 new:UpdateAnchorButtons() end, ' ', colours.black)
            new.Anchor2 = Button:Initialise(anchorX+1, anchorY, 1, 1, colours.lightGrey, new, function(self, side, x, y, toggle)new.AnchorPosition = 2 new:UpdateAnchorButtons() end, '^', colours.black)
            new.Anchor3 = Button:Initialise(anchorX+2, anchorY, 1, 1, colours.lightGrey, new, function(self, side, x, y, toggle)new.AnchorPosition = 3 new:UpdateAnchorButtons() end, ' ', colours.black)
            new.Anchor4 = Button:Initialise(anchorX, anchorY+1, 1, 1, colours.lightGrey, new, function(self, side, x, y, toggle)new.AnchorPosition = 4 new:UpdateAnchorButtons() end, '<', colours.black)
            new.Anchor5 = Button:Initialise(anchorX+1, anchorY+1, 1, 1, colours.lightGrey, new, function(self, side, x, y, toggle)new.AnchorPosition = 5 new:UpdateAnchorButtons() end, '#', colours.black)
            new.Anchor6 = Button:Initialise(anchorX+2, anchorY+1, 1, 1, colours.lightGrey, new, function(self, side, x, y, toggle)new.AnchorPosition = 6 new:UpdateAnchorButtons() end, '>', colours.black)
            new.Anchor7 = Button:Initialise(anchorX, anchorY+2, 1, 1, colours.lightGrey, new, function(self, side, x, y, toggle)new.AnchorPosition = 7 new:UpdateAnchorButtons() end, ' ', colours.black)
            new.Anchor8 = Button:Initialise(anchorX+1, anchorY+2, 1, 1, colours.lightGrey, new, function(self, side, x, y, toggle)new.AnchorPosition = 8 new:UpdateAnchorButtons() end, 'v', colours.black)
            new.Anchor9 = Button:Initialise(anchorX+2, anchorY+2, 1, 1, colours.lightGrey, new, function(self, side, x, y, toggle)new.AnchorPosition = 9 new:UpdateAnchorButtons() end, ' ', colours.black)

            return new
        end,

        UpdateAnchorButtons = function(self)
            local anchor1 = ' '
            local anchor2 = ' '
            local anchor3 = ' '
            local anchor4 = ' '
            local anchor5 = ' '
            local anchor6 = ' '
            local anchor7 = ' '
            local anchor8 = ' '
            local anchor9 = ' '
            self.AnchorPosition = self.AnchorPosition or 5
            if self.AnchorPosition == 1 then
                anchor1 = '#'
                anchor2 = '>'
                anchor4 = 'v'
            elseif self.AnchorPosition == 2 then
                anchor1 = '<'
                anchor2 = '#'
                anchor3 = '>'
                anchor5 = 'v'
            elseif self.AnchorPosition == 3 then
                anchor2 = '<'
                anchor3 = '#'
                anchor6 = 'v'
            elseif self.AnchorPosition == 4 then
                anchor1 = '^'
                anchor4 = '#'
                anchor5 = '>'
                anchor7 = 'v'
            elseif self.AnchorPosition == 5 then
                anchor2 = '^'
                anchor4 = '<'
                anchor5 = '#'
                anchor6 = '>'
                anchor8 = 'v'
            elseif self.AnchorPosition == 6 then
                anchor3 = '^'
                anchor6 = '#'
                anchor5 = '<'
                anchor9 = 'v'
            elseif self.AnchorPosition == 7 then
                anchor4 = '^'
                anchor7 = '#'
                anchor8 = '>'
            elseif self.AnchorPosition == 8 then
                anchor5 = '^'
                anchor8 = '#'
                anchor7 = '<'
                anchor9 = '>'
            elseif self.AnchorPosition == 9 then
                anchor6 = '^'
                anchor9 = '#'
                anchor8 = '<'
            end

            if #self.HeightTextBox.TextInput.Value > 0 and Current.Artboard.Height > tonumber(self.HeightTextBox.TextInput.Value) then
                local r = function(str)
                    if string.find(str, "%^") then
                        str = str:gsub('%^','v')
                    elseif string.find(str, "v") then
                        str = str:gsub('v','%^')
                    end
                    return str
                end
                anchor1 = r(anchor1)
                anchor2 = r(anchor2)
                anchor3 = r(anchor3)
                anchor4 = r(anchor4)
                anchor5 = r(anchor5)
                anchor6 = r(anchor6)
                anchor7 = r(anchor7)
                anchor8 = r(anchor8)
                anchor9 = r(anchor9)
            end

            if #self.WidthTextBox.TextInput.Value > 0 and Current.Artboard.Width > tonumber(self.WidthTextBox.TextInput.Value) then
                local r = function(str)
                    if string.find(str, ">") then
                        str = str:gsub('>','<')
                    elseif string.find(str, "<") then
                        str = str:gsub('<','>')
                    end
                    return str
                end
                anchor1 = r(anchor1)
                anchor2 = r(anchor2)
                anchor3 = r(anchor3)
                anchor4 = r(anchor4)
                anchor5 = r(anchor5)
                anchor6 = r(anchor6)
                anchor7 = r(anchor7)
                anchor8 = r(anchor8)
                anchor9 = r(anchor9)
            end

            self.Anchor1.Text = anchor1
            self.Anchor2.Text = anchor2
            self.Anchor3.Text = anchor3
            self.Anchor4.Text = anchor4
            self.Anchor5.Text = anchor5
            self.Anchor6.Text = anchor6
            self.Anchor7.Text = anchor7
            self.Anchor8.Text = anchor8
            self.Anchor9.Text = anchor9
        end,

        Show = function(self)
            Current.Window = self
            return self
        end,

        Close = function(self)
            Current.Input = nil
            Current.Window = nil
            self = nil
        end,

        Flash = function(self)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
            sleep(0.15)
            self.Visible = false
            Draw()
            sleep(0.15)
            self.Visible = true
            Draw()
        end,

        ButtonClick = function(self, button, x, y)
            if button.X <= x and button.Y <= y and button.X + button.Width > x and button.Y + button.Height > y then
                button:Click()
            end
        end,

        Click = function(self, side, x, y)
            local items = {self.OkButton, self.WidthTextBox, self.HeightTextBox, self.Anchor1, self.Anchor2, self.Anchor3, self.Anchor4, self.Anchor5, self.Anchor6, self.Anchor7, self.Anchor8, self.Anchor9}
            for i, v in ipairs(items) do
                if CheckClick(v, x, y) then
                    v:Click(side, x, y)
                end
            end
            return true
        end
    }

    ----------------------

    function CheckOpenArtboard()
        if Current.Artboard then
            return true
        else
            return false
        end
    end

    function CheckSelectedLayer()
        if Current.Artboard and Current.Layer then
            return true
        else
            return false
        end
    end

    function DisplayNewDocumentWindow()
        NewDocumentWindow:Initialise(function(self, success, path, width, height, format, backgroundColour)
            if success then
                if path:sub(-4) ~= format then
                    path = path .. format
                end
                local oldWindow = self
                Current.Input = nil
                Current.Window = nil
                makeDocument = function()oldWindow:Close()NewDocument(path, width, height, format, backgroundColour)end
                local _fs = fs
                if OneOS then
                    _fs = OneOS.FS
                end
                if _fs.exists(path) then
                    ButtonDialougeWindow:Initialise('File Exists', path..' already exists! Use a different name and try again.', 'Ok', nil, function(window, ok)
                        window:Close()
                        oldWindow:Show()
                    end):Show()
                elseif format == '.nfp' then
                    Current.Window = nil
                    ButtonDialougeWindow:Initialise('Use NFP?', 'The NFT format does not support text or layers, if you use it you will only be able to use 1 layer and not have any text.', 'Use NFP', 'Cancel', function(window, ok)
                        window:Close()
                        if ok then
                            makeDocument()
                        else
                            oldWindow:Show()
                        end
                    end):Show()
                elseif format == '.nft' then
                    ButtonDialougeWindow:Initialise('Use NFT?', 'The NFT format does not support layers, if you use it you will only be able to use 1 layer.', 'Use NFT', 'Cancel', function(window, ok)
                        window:Close()
                        if ok then
                            makeDocument()
                        else
                            oldWindow:Show()
                        end
                    end):Show()
                else
                    makeDocument()
                end


            else
                self:Close()
            end
        end):Show()
    end

    function NewDocument(path, width, height, format, backgroundColour)
        local _fs = fs
        if OneOS then
            _fs = OneOS.FS
        end
        ab = Artboard:New(_fs.getName(path), path, width, height, format, backgroundColour)
        Current.Tool = Tools[2]
        Current.Toolbar:Update()
        Current.Modified = false
        Draw()
    end

    function DisplayToolSizeWindow()
        if not CheckOpenArtboard() then
            return
        end
        TextDialougeWindow:Initialise('Change Tool Size', 'Enter the new tool size you\'d like to use.', 'Ok', 'Cancel', function(window, success, value)
            if success then
                Current.ToolSize = math.ceil(tonumber(value))
                if Current.ToolSize < 1 then
                    Current.ToolSize = 1
                elseif Current.ToolSize > 50 then
                    Current.ToolSize = 50
                end
                ModuleNamed('Tools'):Update()
            end
            window:Close()
        end, true):Show()
    end

    --[[
        Attempt to figure out what format the image is if it doesn't have an extension
    ]]--
    function GetFormat(path)
        local _fs = fs
        if OneOS then
            _fs = OneOS.FS
        end
        local file = _fs.open(path, 'r')
        local content = file.readAll()
        file.close()
        if type(textutils.unserialize(content)) == 'table' then
            -- It's a serlized table, asume sketch
            return '.skch'
        elseif string.find(content, string.char(30)) or string.find(content, string.char(31)) then
            -- Contains the characters that set colours, asume nft
            return '.nft'
        else
            -- Otherwise asume nfp
            return '.nfp'
        end
    end

    function DisplayOpenDocumentWindow()
        OpenDocumentWindow:Initialise(function(self, success, path)
            self:Close()
            if success then
                OpenDocument(path)
            end
        end):Show()
    end


    local function Extension(path, addDot)
        if not path then
            return nil
        elseif not string.find(fs.getName(path), '%.') then
            if not addDot then
                return fs.getName(path)
            else
                return ''
            end
        else
            local _path = path
            if path:sub(#path) == '/' then
                _path = path:sub(1,#path-1)
            end
            local extension = _path:gmatch('[0-9a-z]+$')()
            if extension then
                extension = extension:sub(2)
            else
                --extension = nil
                return ''
            end
            if addDot then
                extension = '.'..extension
            end
            return extension:lower()
        end
    end

    local RemoveExtension = function(path)
        if path:sub(1,1) == '.' then
            return path
        end
        local extension = Extension(path)
        if extension == path then
            return fs.getName(path)
        end
        return string.gsub(path, extension, ''):sub(1, -2)
    end
    --[[
        Open a documet at a given path
    ]]--
    function OpenDocument(path)
        local _fs = fs
        if OneOS then
            _fs = OneOS.FS
        end
        if _fs.exists(path) and not _fs.isDir(path) then
            local format = Extension(path, true)
            if (not format or format == '') and (format ~= '.nfp' and format ~= '.nft' and format ~= '.skch') then
                format = GetFormat(path)
            end
            local layers = {}
            if format == '.nfp' then
                layers = ReadNFP(path)
            elseif format == '.nft' then
                layers = ReadNFT(path)
            elseif format == '.skch' then
                layers = ReadSKCH(path)
            end

            for i, layer in ipairs(layers) do
                if layer.Visible == nil then
                    layer.Visible = true
                end
                if layer.Index == nil then
                    layer.Index = 1
                end
                if layer.Name == nil then
                    if layer.Index == 1 then
                        layer.Name = 'Background'
                    else
                        layer.Name = 'Layer'
                    end
                end
                if layer.BackgroundColour == nil then
                    layer.BackgroundColour = colours.white
                end
            end

            if not layers[1] then
                --log('File could not be read.')
                return
            end

            local width = #layers[1].Pixels
            local height = #layers[1].Pixels[1]

            Current.Artboard = nil
            local _fs = fs
            if OneOS then
                _fs = OneOS.FS
            end
            ab = Artboard:New(_fs.getName('Image'), path, width, height, format, nil, layers)
            Current.Tool = Tools[2]
            Current.Toolbar:Update()
            Current.Modified = false
            Draw()
        end
    end

    function MakeNewLayer()
        if not CheckOpenArtboard() then
            return
        end
        if Current.Artboard.Format == '.skch' then
            TextDialougeWindow:Initialise('New Layer Name', 'Enter the name you want for the next layer.', 'Ok', 'Cancel', function(window, success, value)
                if success then
                    Current.Artboard:MakeLayer(value, colours.transparent)
                end
                window:Close()
            end):Show()
        else
            local format = 'NFP'
            if Current.Artboard.Format == '.nft' then
                format = 'NFT'
            end
            ButtonDialougeWindow:Initialise(format..' does not support layers!', 'The format you are using, '..format..', does not support multiple layers. Use SKCH to have more than one layer.', 'Ok', nil, function(window)
                window:Close()
            end):Show()
        end
    end

    function ResizeDocument()
        if not CheckOpenArtboard() then
            return
        end
        ResizeDocumentWindow:Initialise(function(window, width, height, anchor)
            window:Close()
            local topResize = 0
            local rightResize = 0
            local bottomResize = 0
            local leftResize = 0

            if anchor == 1 then
                rightResize = 1
                bottomResize = 1
            elseif anchor == 2 then
                rightResize = 0.5
                leftResize = 0.5
                bottomResize = 1
            elseif anchor == 3 then
                leftResize = 1
                bottomResize = 1
            elseif anchor == 4 then
                rightResize = 1
                bottomResize = 0.5
                topResize = 0.5
            elseif anchor == 5 then
                rightResize = 0.5
                leftResize = 0.5
                bottomResize = 0.5
                topResize = 0.5
            elseif anchor == 6 then
                leftResize = 1
                bottomResize = 0.5
                topResize = 0.5
            elseif anchor == 7 then
                rightResize = 1
                topResize = 1
            elseif anchor == 8 then
                rightResize = 0.5
                leftResize = 0.5
                topResize = 1
            elseif anchor == 9 then
                leftResize = 1
                topResize = 1
            end

            topResize = topResize * (height - Current.Artboard.Height)
            if topResize > 0 then
                topResize = math.floor(topResize)
            else
                topResize = math.ceil(topResize)
            end

            bottomResize = bottomResize * (height - Current.Artboard.Height)
            if bottomResize > 0 then
                bottomResize = math.ceil(bottomResize)
            else
                bottomResize = math.floor(bottomResize)
            end

            leftResize = leftResize * (width - Current.Artboard.Width)
            if leftResize > 0 then
                leftResize = math.floor(leftResize)
            else
                leftResize = math.ceil(leftResize)
            end

            rightResize = rightResize * (width - Current.Artboard.Width)
            if rightResize > 0 then
                rightResize = math.ceil(rightResize)
            else
                rightResize = math.floor(rightResize)
            end

            Current.Artboard:Resize(topResize, bottomResize, leftResize, rightResize)
        end):Show()
    end

    function RenameLayer()
        if not CheckOpenArtboard() then
            return
        end
        if Current.Artboard.Format == '.skch' then
            TextDialougeWindow:Initialise("Rename Layer '"..Current.Layer.Name.."'", 'Enter the new name you want the layer to be called.', 'Ok', 'Cancel', function(window, success, value)
                if success then
                    Current.Layer.Name = value
                end
                window:Close()
            end):Show()
        else
            local format = 'NFP'
            if Current.Artboard.Format == '.nft' then
                format = 'NFT'
            end
            ButtonDialougeWindow:Initialise(format..' does not support layers!', 'The format you are using, '..format..', does not support renaming layers. Use SKCH to rename layers.', 'Ok', nil, function(window)
                window:Close()
            end):Show()
        end
    end

    function DeleteLayer()
        if not CheckOpenArtboard() then
            return
        end
        if Current.Artboard.Format == '.skch' then
            if #Current.Artboard.Layers > 1 then
                ButtonDialougeWindow:Initialise("Delete Layer '"..Current.Layer.Name.."'?", 'Are you sure you want delete the layer?', 'Ok', 'Cancel', function(window, success)
                    if success then
                        Current.Layer:Remove()
                    end
                    window:Close()
                end):Show()
            else
                ButtonDialougeWindow:Initialise('Can not delete layer!', 'You can not delete the last layer of an image! Make another layer to delete this one.', 'Ok', nil, function(window)
                    window:Close()
                end):Show()
            end
        else
            local format = 'NFP'
            if Current.Artboard.Format == '.nft' then
                format = 'NFT'
            end
            ButtonDialougeWindow:Initialise(format..' does not support layers!', 'The format you are using, '..format..', does not support deleting layers. Use SKCH to deleting layers.', 'Ok', nil, function(window)
                window:Close()
            end):Show()
        end
    end

    needsDraw = false
    isDrawing = false
    function Draw()
        if isDrawing then
            needsDraw = true
            return
        end
        needsDraw = false
        isDrawing = true
        if not Current.Window then
            Drawing.Clear(UIColours.Background)
        else
            Drawing.DrawArea(1, 2, Drawing.Screen.Width, Drawing.Screen.Height, '|', colours.black, colours.lightGrey)
        end

        if Current.Artboard then
            ab:Draw()
        end

        if Current.InterfaceVisible then
            Current.MenuBar:Draw()
            Current.Toolbar.Width = Current.Toolbar.ExpandedWidth
            Current.Toolbar:Draw()
        else
            Current.Toolbar.Width = Current.Toolbar.ExpandedWidth
        end

        if Current.InterfaceVisible and Current.Menu then
            Current.Menu:Draw()
        end

        if Current.Window then
            Current.Window:Draw()
        end

        if not Current.InterfaceVisible then
            ShowInterfaceButton:Draw()
        end

        Drawing.DrawBuffer()
        if Current.Input and not Current.Menu then
            term.setCursorPos(Current.CursorPos[1], Current.CursorPos[2])
            term.setCursorBlink(true)
            term.setTextColour(Current.CursorColour)
        else
            term.setCursorBlink(false)
        end

        if Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil then
            Current.SelectionDrawTimer = os.startTimer(0.5)
        end
        isDrawing = false
        if needsDraw then
            Draw()
        end
    end

    function LoadMenuBar()
        Current.MenuBar = MenuBar:Initialise({
            Button:Initialise(1, 1, nil, nil, colours.grey, Current.MenuBar, function(self, side, x, y, toggle)
                if toggle then
                    Menu:New(1, 2, {
                        {
                            Title = "New...",
                            Click = function()
                                DisplayNewDocumentWindow()
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.n
                            }
                        },
                        {
                            Title = 'Open...',
                            Click = function()
                                DisplayOpenDocumentWindow()
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.o
                            }
                        },
                        {
                            Separator = true
                        },
                        {
                            Title = 'Save...',
                            Click = function()
                                Current.Artboard:Save()
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.s
                            },
                            Enabled = function()
                                return CheckOpenArtboard()
                            end
                        },
                        {
                            Separator = true
                        },
                        {
                            Title = 'Quit',
                            Click = function()
                                if Close() then
                                    OneOS.Close()
                                end
                            end
                        },
                --[[
                        {
                            Title = 'Save As...',
                            Click = function()

                            end
                        }
                ]]--
                    }, self, true)
                else
                    Current.Menu = nil
                end
                return true
            end, 'File', colours.lightGrey, false),
            Button:Initialise(7, 1, nil, nil, colours.grey, Current.MenuBar, function(self, side, x, y, toggle)
                if not self.Toggle then
                    Menu:New(7, 2, {
                --[[
                        {
                            Title = "Undo",
                            Click = function()
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.z
                            },
                            Enabled = function()
                                return false
                            end
                        },
                        {
                            Title = 'Redo',
                            Click = function()

                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.y
                            },
                            Enabled = function()
                                return false
                            end
                        },
                        {
                            Separator = true
                        },
                ]]--
                        {
                            Title = 'Cut',
                            Click = function()
                                Clipboard.Cut(Current.Layer:PixelsInSelection(true), 'sketchpixels')
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.x
                            },
                            Enabled = function()
                                return Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil
                            end
                        },
                        {
                            Title = 'Copy',
                            Click = function()
                                Clipboard.Copy(Current.Layer:PixelsInSelection(), 'sketchpixels')
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.c
                            },
                            Enabled = function()
                                return Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil
                            end
                        },
                        {
                            Title = 'Paste',
                            Click = function()
                                Current.Layer:InsertPixels(Clipboard.Paste())
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.v
                            },
                            Enabled = function()
                                return (not Clipboard.isEmpty()) and Clipboard.Type == 'sketchpixels'
                            end
                        }
                    }, self, true)
                else
                    Current.Menu = nil
                end
                return true
            end, 'Edit', colours.lightGrey, false),
            Button:Initialise(13, 1, nil, nil, colours.grey, Current.MenuBar, function(self, side, x, y, toggle)
                if toggle then
                    Menu:New(13, 2, {
                        {
                            Title = "Resize...",
                            Click = function()
                                ResizeDocument()
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.r
                            },
                            Enabled = function()
                                return CheckOpenArtboard()
                            end
                        },
                        {
                            Title = "Crop",
                            Click = function()
                                local top = 0
                                local left = 0
                                local bottom = 0
                                local right = 0
                                if Current.Selection[1].x < Current.Selection[2].x then
                                    left = Current.Selection[1].x - 1
                                    right = Current.Artboard.Width - Current.Selection[2].x
                                else
                                    left = Current.Selection[2].x - 1
                                    right = Current.Artboard.Width - Current.Selection[1].x
                                end
                                if Current.Selection[1].y < Current.Selection[2].y then
                                    top = Current.Selection[1].y - 1
                                    bottom = Current.Artboard.Height - Current.Selection[2].y
                                else
                                    top = Current.Selection[2].y - 1
                                    bottom = Current.Artboard.Height - Current.Selection[1].y
                                end
                                Current.Artboard:Resize(-1*top, -1*bottom, -1*left, -1*right)

                                Current.Selection[2] = nil
                            end,
                            Enabled = function()
                                if CheckSelectedLayer() and Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil then
                                    return true
                                else
                                    return false
                                end
                            end
                        },
                        {
                            Separator = true
                        },
                        {
                            Title = 'New Layer...',
                            Click = function()
                                MakeNewLayer()
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.l
                            },
                            Enabled = function()
                                return CheckOpenArtboard()
                            end
                        },
                        {
                            Title = 'Delete Layer',
                            Click = function()
                                DeleteLayer()
                            end,
                            Enabled = function()
                                return CheckSelectedLayer()
                            end
                        },
                        {
                            Title = 'Rename Layer...',
                            Click = function()
                                RenameLayer()
                            end,
                            Enabled = function()
                                return CheckSelectedLayer()
                            end
                        },
                        {
                            Separator = true
                        },
                        {
                            Title = 'Erase Selection',
                            Click = function()
                                Current.Layer:EraseSelection()
                            end,
                            Keys = {
                                keys.delete
                            },
                            Enabled = function()
                                if CheckSelectedLayer() and Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil then
                                    return true
                                else
                                    return false
                                end
                            end
                        },
                        {
                            Separator = true
                        },
                        {
                            Title = 'Hide Interface',
                            Click = function()
                                Current.InterfaceVisible = not Current.InterfaceVisible
                            end,
                            Keys = {
                                keys.tab
                            }
                        }
                    }, self, true)
                else
                    Current.Menu = nil
                end
                return true
            end, 'Image', colours.lightGrey, false),

            Button:Initialise(20, 1, nil, nil, colours.grey, Current.MenuBar, function(self, side, x, y, toggle)
                if toggle then
                    local menuItems = {{
                            Title = "Change Size",
                            Click = function()
                                DisplayToolSizeWindow()
                            end,
                            Keys = {
                                keys.leftCtrl,
                                keys.t
                            }
                        },
                        {
                            Separator = true
                        }
                    }

                    local _keys = {'h','p','e','f','s','m','t'}
                    for i, tool in ipairs(Tools) do
                        table.insert(menuItems, {
                            Title = tool.Name,
                            Click = function()
                                SetTool(tool)
                                local m = ModuleNamed('Tools')
                                m:Update(m.ToolbarItem)
                            end,
                            Keys = {
                                keys[_keys[i]]
                            },
                            Enabled = function()
                                return CheckOpenArtboard()
                            end
                        })
                    end

                    Menu:New(20, 2, menuItems, self, true)
                else
                    Current.Menu = nil
                end
                return true
            end, 'Tools', colours.lightGrey, false),
        })
    end

    function Timer(event, timer)
        if timer == Current.ControlPressedTimer then
            Current.ControlPressedTimer = nil
        elseif timer == Current.SelectionDrawTimer then
            if Current.Artboard then
                Current.Artboard.SelectionIsBlack = not Current.Artboard.SelectionIsBlack
                Draw()
            end
        end
    end

    function Initialise(arg)
        if not OneOS then
            SplashScreen()
        end
        EventRegister('mouse_click', TryClick)
        EventRegister('mouse_drag', function(event, side, x, y)TryClick(event, side, x, y, true)end)
        EventRegister('mouse_scroll', Scroll)
        EventRegister('key', HandleKey)
        EventRegister('char', HandleKey)
        EventRegister('timer', Timer)
        EventRegister('terminate', function(event) if Close() then error( "Terminated", 0 ) end end)


        Current.Toolbar = Toolbar:New('right', true)

        for k, v in pairs(Modules) do
            v:Initialise()
        end

        --term.setBackgroundColour(UIColours.Background)
        --term.clear()

        LoadMenuBar()

        local _fs = fs
        if OneOS then
            _fs = OneOS.FS
        end
        if arg and _fs.exists(arg) then
            OpenDocument(arg)
        else
            DisplayNewDocumentWindow()
            Current.Window.Visible = false
        end

        ShowInterfaceButton = Button:Initialise(Drawing.Screen.Width - 15, 1, nil, 1, colours.grey, nil, function(self)
            Current.InterfaceVisible = true
            Draw()
        end, 'Show Interface')

        Draw()
        if Current.Window then
            Current.Window.Visible = true
            Draw()
        end

        EventHandler()
    end

    function SplashScreen()
        local splashIcon = {{1,1,1,256,256,256,256,256,256,256,256,1,1,1,},{1,256,256,8,8,8,8,8,8,8,8,256,256,1,},{256,8,8,8,8,8,8,8,8,8,8,8,8,256,},{256,256,256,8,8,8,8,8,8,8,8,256,256,256,},{256,256,256,256,256,256,256,256,256,256,256,256,256,256,},{2048,2048,256,256,256,256,256,256,256,256,256,256,2048,2048,},{2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,},{2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,},{2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,},{2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,},{256,256,2048,2048,2048,2048,2048,2048,2048,2048,2048,2048,256,256,},{1,256,256,256,256,256,256,256,256,256,256,256,256,1,},{1,1,1,256,256,256,256,256,256,256,256,1,1,1,},["text"]={{" "," "," "," "," "," "," "," "," "," "," "," "," "," ",},{" "," "," "," "," "," "," "," "," "," "," "," "," "," ",},{" "," "," "," "," "," "," "," "," "," "," "," "," "," ",},{" "," "," "," "," "," "," "," "," "," "," "," "," "," ",},{" "," "," "," "," "," "," "," "," "," "," "," "," "," ",},{" "," "," "," "," "," "," "," "," "," "," "," "," "," ",},{" "," "," "," "," "," "," "," "," "," "," "," "," "," ",},{" "," "," "," ","S","k","e","t","c","h"," "," "," "," ",},{" "," "," "," "," "," ","b","y"," "," "," "," "," "," ",},{" "," "," "," "," ","o","e","e","d"," "," "," "," "," ",},{" "," "," "," "," "," "," "," "," "," "," "," "," "," ",},{" "," "," "," "," "," "," "," "," "," "," "," "," "," ",},{" "," "," "," "," "," "," "," "," "," "," "," "," "," ",},},["textcol"]={{32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,},{32768,32768,32768,256,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,},{32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,},{32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,},{32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,},{32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,},{32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,},{32768,32768,32768,32768,1,1,1,1,1,1,32768,32768,32768,32768,},{32768,32768,32768,32768,8,8,8,8,8,8,8,32768,32768,32768,},{32768,32768,32768,32768,1,1,1,1,1,32768,8,32768,32768,32768,},{32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,},{32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,},{32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,32768,},},}
        Drawing.Clear(colours.white)
        Drawing.DrawImage((Drawing.Screen.Width - 14)/2, (Drawing.Screen.Height - 13)/2, splashIcon, 14, 13)
        Drawing.DrawBuffer()
        parallel.waitForAny(function()sleep(1)end, function()os.pullEvent('mouse_click')end)
    end

    LongestString = function(input, key)
        local length = 0
        for i = 1, #input do
            local value = input[i]
            if key then
                if value[key] then
                    value = value[key]
                else
                    value = ''
                end
            end
            local titleLength = string.len(value)
            if titleLength > length then
                length = titleLength
            end
        end
        return length
    end

    function HandleKey(...)
        local args = {...}
        local event = args[1]
        local keychar = args[2]
        if event == 'key' and Current.Tool and Current.Tool.Name == 'Text' and Current.Input and (keychar == keys.up or keychar == keys.down or keychar == keys.left or keychar == keys.right) then
            local currentPos = {Current.CursorPos[1] - Current.Artboard.X + 1, Current.CursorPos[2] - Current.Artboard.Y + 1}
            if keychar == keys.up then
                currentPos[2] = currentPos[2] - 1
            elseif keychar == keys.down then
                currentPos[2] = currentPos[2] + 1
            elseif keychar == keys.left then
                currentPos[1] = currentPos[1] - 1
            elseif keychar == keys.right then
                currentPos[1] = currentPos[1] + 1
            end

            if currentPos[1] < 1 then
                currentPos[1] = 1
            end

            if currentPos[1] > Current.Artboard.Width then
                currentPos[1] = Current.Artboard.Width
            end

            if currentPos[2] < 1 then
                currentPos[2] = 1
            end

            if currentPos[2] > Current.Artboard.Height then
                currentPos[2] = Current.Artboard.Height
            end

            Current.Tool:Use(currentPos[1], currentPos[2])
            Current.Modified = true
            Draw()
        elseif Current.Input then
            if event == 'char' then
                Current.Input:Char(keychar)
            elseif event == 'key' then
                Current.Input:Key(keychar)
            end
        elseif event == 'key' then
            CheckKeyboardShortcut(keychar)
        end
    end

    function Scroll(event, direction, x, y)
        if Current.Window and Current.Window.OpenButton then
            Current.Window.Scroll = Current.Window.Scroll + direction
            if Current.Window.Scroll < 0 then
                Current.Window.Scroll = 0
            elseif Current.Window.Scroll > Current.Window.MaxScroll then
                Current.Window.Scroll = Current.Window.MaxScroll
            end
        end
        Draw()
    end

    function CheckKeyboardShortcut(key)
        local shortcuts = {}

        if key == keys.leftCtrl then
            Current.ControlPressedTimer = os.startTimer(0.5)
            return
        end
        if Current.ControlPressedTimer then
            shortcuts[keys.n] = function() DisplayNewDocumentWindow() end
            shortcuts[keys.o] = function() DisplayOpenDocumentWindow() end
            shortcuts[keys.s] = function() Current.Artboard:Save() end
            shortcuts[keys.x] = function() if Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil then Clipboard.Cut(Current.Layer:PixelsInSelection(true), 'sketchpixels') end end
            shortcuts[keys.c] = function() if Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil then Clipboard.Copy(Current.Layer:PixelsInSelection(), 'sketchpixels') end end
            shortcuts[keys.v] = function() if (not Clipboard.isEmpty()) and Clipboard.Type == 'sketchpixels' then Current.Layer:InsertPixels(Clipboard.Paste()) end end
            shortcuts[keys.r] = function() ResizeDocument() end
            shortcuts[keys.l] = function() MakeNewLayer() end
        end

        shortcuts[keys.delete] = function() if CheckSelectedLayer() and Current.Selection and Current.Selection[1] and Current.Selection[2] ~= nil then Current.Layer:EraseSelection() Draw() end end
        shortcuts[keys.backspace] = shortcuts[keys.delete]
        shortcuts[keys.tab] = function() Current.InterfaceVisible = not Current.InterfaceVisible Draw() end

        shortcuts[keys.h] = function() SetTool(ToolNamed('Hand')) ModuleNamed('Tools'):Update() Draw() end
        shortcuts[keys.e] = function() SetTool(ToolNamed('Eraser')) ModuleNamed('Tools'):Update() Draw() end
        shortcuts[keys.p] = function() SetTool(ToolNamed('Pencil')) ModuleNamed('Tools'):Update() Draw() end
        shortcuts[keys.f] = function() SetTool(ToolNamed('Fill Bucket')) ModuleNamed('Tools'):Update() Draw() end
        shortcuts[keys.m] = function() SetTool(ToolNamed('Move')) ModuleNamed('Tools'):Update() Draw() end
        shortcuts[keys.s] = function() SetTool(ToolNamed('Select')) ModuleNamed('Tools'):Update() Draw() end
        shortcuts[keys.t] = function() SetTool(ToolNamed('Text')) ModuleNamed('Tools'):Update() Draw() end

        if shortcuts[key] then
            shortcuts[key]()
            return true
        else
            return false
        end
    end

    --[[
        Check if the given object falls under the click coordinates
    ]]--
    function CheckClick(object, x, y)
        if object.X <= x and object.Y <= y and object.X + object.Width > x and object.Y + object.Height > y then
            return true
        end
    end

    --[[
        Attempt to clicka given object
    ]]--
    function DoClick(object, side, x, y, drag)
        if object and CheckClick(object, x, y) then
            return object:Click(side, x - object.X + 1, y - object.Y + 1, drag)
        end
    end

    --[[
        Try to click at the given coordinates
    ]]--
    function TryClick(event, side, x, y, drag)
        if Current.InterfaceVisible and Current.Menu then
            if DoClick(Current.Menu, side, x, y, drag) then
                Draw()
                return
            else
                if Current.Menu.Owner and Current.Menu.Owner.Toggle then
                    Current.Menu.Owner.Toggle = false
                end
                Current.Menu = nil
                Draw()
                return
            end
        elseif Current.Window then
            if DoClick(Current.Window, side, x, y, drag) then
                Draw()
                return
            else
                Current.Window:Flash()
                return
            end
        end
        local interfaceElements = {}

        if Current.InterfaceVisible then
            table.insert(interfaceElements, Current.MenuBar)
        else
            table.insert(interfaceElements, ShowInterfaceButton)
        end

        for i, v in ipairs(Lists.Interface.Toolbars) do
            for i, v2 in ipairs(v.ToolbarItems) do
                table.insert(interfaceElements, v2)
            end
            table.insert(interfaceElements, v)
        end

        table.insert(interfaceElements, Current.Artboard)

        for i, object in ipairs(interfaceElements) do
            if DoClick(object, side, x, y, drag) then
                Draw()
                return
            end
        end
        Draw()
    end

    --[[
        Registers functions to run on certain events
    ]]--
    function EventRegister(event, func)
        if not Events[event] then
            Events[event] = {}
        end

        table.insert(Events[event], func)
    end

    --[[
        The main loop event handler, runs registered event functinos
    ]]--
    function EventHandler()
        while true do
            local event, arg1, arg2, arg3, arg4 = os.pullEventRaw()
            if Events[event] then
                for i, e in ipairs(Events[event]) do
                    e(event, arg1, arg2, arg3, arg4)
                end
            end
        end
    end

    --[[
        Thanks to NitrogenFingers for the colour functions and NFT + NFP read/write functions
    ]]--

    --[[
        Gets the hex value from a colour
    ]]--
    local hexnums = { [10] = "a", [11] = "b", [12] = "c", [13] = "d", [14] = "e" , [15] = "f" }
    local function getHexOf(colour)
        if colour == colours.transparent or not colour or not tonumber(colour) then
                return " "
        end
        local value = math.log(colour)/math.log(2)
        if value > 9 then
                value = hexnums[value]
        end
        return value
    end

    --[[
        Gets the colour from a hex value
    ]]--
    local function getColourOf(hex)
        if hex == ' ' then
            return colours.transparent
        end
        local value = tonumber(hex, 16)
        if not value then return nil end
        value = math.pow(2,value)
        return value
    end

    --[[
        Saves the current artboard in .skch format
    ]]--
    function SaveSKCH()
        local layers = {}
        for i, l in ipairs(Current.Artboard.Layers) do
            local pixels = SaveNFT(i)
            local layer = {
                Name = l.Name,
                Pixels = pixels,
                BackgroundColour = l.BackgroundColour,
                Visible = l.Visible,
                Index = l.Index,
            }
            table.insert(layers, layer)
        end
        return layers
    end

    --[[
        Saves the current artboard in .nft format
    ]]--
    function SaveNFT(layer)
        layer = layer or 1
        local lines = {}
        local width = Current.Artboard.Width
        local height = Current.Artboard.Height
        for y = 1, height do
            local line = ''
            local currentBackgroundColour = nil
            local currentTextColour = nil
            for x = 1, width do
                local pixel = Current.Artboard.Layers[layer].Pixels[x][y]
                if pixel.BackgroundColour ~= currentBackgroundColour then
                    line = line..string.char(30)..getHexOf(pixel.BackgroundColour)
                    currentBackgroundColour = pixel.BackgroundColour
                end
                if pixel.TextColour ~= currentTextColour then
                    line = line..string.char(31)..getHexOf(pixel.TextColour)
                    currentTextColour = pixel.TextColour
                end
                line = line .. pixel.Character
            end
            table.insert(lines, line)
        end
        return lines
    end

    --[[
        Saves the current artboard in .nfp format
    ]]--
    function SaveNFP()
        local lines = {}
        local width = Current.Artboard.Width
        local height = Current.Artboard.Height
        for y = 1, height do
            local line = ''
            for x = 1, width do
                line = line .. getHexOf(Current.Artboard.Layers[1].Pixels[x][y].BackgroundColour)
            end
            table.insert(lines, line)
        end
        return lines
    end

    --[[
        Reads a .nfp file from the given path
    ]]--
    function ReadNFP(path)
        local pixels = {}
        local _fs = fs
        if OneOS then
            _fs = OneOS.FS
        end
        local file = _fs.open(path, 'r')
        local line = file.readLine()
        local y = 1
        while line do
            for x = 1, #line do
                if not pixels[x] then
                    pixels[x] = {}
                end
                pixels[x][y] = {BackgroundColour = getColourOf(line:sub(x,x))}
            end
            y = y + 1
            line = file.readLine()
        end
        file.close()
        return {{Pixels = pixels}}
    end

    --[[
        Reads a .nft file from the given path
    ]]--
    function ReadNFT(path)
        local _fs = fs
        if OneOS then
            _fs = OneOS.FS
        end
        local file = _fs.open(path, 'r')
        local line = file.readLine()
        local lines = {}
        while line do
            table.insert(lines, line)
            line = file.readLine()
        end
        file.close()
        return {{Pixels = ParseNFT(lines)}}
    end

    --[[
        Converts the lines of an .nft document to readble pixel data
    ]]--
    function ParseNFT(lines)
        local pixels = {}
        for y, line in ipairs(lines) do
            local bgNext, fgNext = false, false
            local currBG, currFG = nil,nil
            local writePosition = 1
            for x = 1, #line do
                if not pixels[writePosition] then
                    pixels[writePosition] = {}
                end

                local nextChar = string.sub(line, x, x)
                if nextChar:byte() == 30 then
                        bgNext = true
                elseif nextChar:byte() == 31 then
                        fgNext = true
                elseif bgNext then
                        currBG = getColourOf(nextChar)
                        if currBG == nil then
                            currBG = colours.transparent
                        end
                        bgNext = false
                elseif fgNext then
                        currFG = getColourOf(nextChar)
                        fgNext = false
                else
                        if nextChar ~= " " and currFG == nil then
                                currFG = colours.white
                        end
                        pixels[writePosition][y] = {BackgroundColour = currBG, TextColour = currFG, Character = nextChar}
                        writePosition = writePosition + 1
                end
            end
        end
        return pixels
    end

    --[[
        Read a .skch file from the given path
    ]]--
    function ReadSKCH(path)
        local _fs = fs
        if OneOS then
            _fs = OneOS.FS
        end
        local file = _fs.open(path, 'r')
        local _layers = textutils.unserialize(file.readAll())
        file.close()
        local layers = {}

        for i, l in ipairs(_layers) do
            local layer = {
                Name = l.Name,
                Pixels = ParseNFT(l.Pixels),
                BackgroundColour = l.BackgroundColour,
                Visible = l.Visible,
                Index = l.Index,
            }
            table.insert(layers, layer)
        end
        return layers
    end

    --[[
        Start the program after all functions and tables are loaded
    ]]--
    if term.isColor and term.isColor() then
        Initialise()
    else
        print('Sorry, but Sketch only works on Advanced (gold) Computers')
    end
end

function flowoffice()
        -- Table

    cells = {}
    pageAmount = 1
    currentPage = 1
    letters = {"A", "B", "C", "D", "E", "F", "G", "H", "I"}
    menu = false
    exit = false
    w, h = term.getSize()

    -- Table Variable Syntax: table[page][column][row][value/position][x/y (only if position is selected before)]
    x5 = 5
    page = 1
    for y = 2, 18 do
        for x = 1, #letters do
            cells[#cells + 1] = {page, "", x5, y}
            x5 = x5 + 5
        end
        x5 = 5
    end

    function drawScreen(page)
        term.clear()
        term.setTextColor(colors.white)
        for y = 2, h - 1 do
            if (y % 2) == 0 then
                white = true
            else
                white = false
            end
            for x = 5, w - 1, 5 do
                term.setCursorPos(x, y)
                if white then
                    term.setBackgroundColor(colors.white)
                else
                    term.setBackgroundColor(colors.lightGray)
                end
                write("     ")
                white = not white
            end
        end
        term.setBackgroundColor(colors.gray)
        for x = 1, w do
            term.setCursorPos(x, 1)
            write(" ")
            term.setCursorPos(x, h)
            write(" ")
        end
        for y = 1, h do
            term.setCursorPos(1, y)
            write("    ")
            term.setCursorPos(w - 1, y)
            write("  ")
        end
        term.setBackgroundColor(colors.black)
        term.setCursorPos(w - 1, 2)
        write("UP")
        term.setCursorPos(w - 1, h - 1)
        write("DN")
        term.setBackgroundColor(colors.gray)
        pagetext = {"P", " ", "A", " ", "G", " ", "E", " ", page}
        for i = 1, #pagetext do
            term.setCursorPos(w, 3 + i)
            write(pagetext[i])
        end
        x = 7
        for i = 1, #letters do
            term.setCursorPos(x, 1)
            write(letters[i])
            x = x + 5
        end
        yaxistext = (page * 17) - 17
        y = 2
        for i = 1, 17 do
            if yaxistext + i < 10 then
                term.setCursorPos(4, y)
            elseif yaxistext + i >= 10 and yaxistext + i < 100 then
                term.setCursorPos(3, y)
            elseif yaxistext + i >= 100 then
                term.setCursorPos(2, y)
            end
            write(yaxistext + i)
            y = y + 1
        end
        term.setBackgroundColor(colors.black)
        term.setCursorPos(1, h)
        write("MENU")
        term.setBackgroundColor(colors.gray)
        term.setCursorPos(6, h)
        write("Cell:")
        cellsonpage = (page * 153) - 153
        term.setTextColor(colors.black)
        for i = cellsonpage + 1, cellsonpage + 153 do
            if (cells[i][3] % 2) ~= 0 then
                term.setBackgroundColor(colors.white)
            else
                term.setBackgroundColor(colors.lightGray)
            end
            term.setCursorPos(cells[i][3], cells[i][4])
            term.write(string.sub(cells[i][2], 1, 4))
        end
    end

    function click(p1, p2, p3)
        if p2 > 0 and p2 < 5 and p3 == h then
            menu = true
        end
        for i = 1, #cells do
            if cells[i][1] == 1 and p2 >= cells[i][3] and p2 <= cells[i][3] + 4 and cells[i][4] == p3 then
                term.setCursorPos(w - 8, h)
                term.setBackgroundColor(colors.black)
                term.setTextColor(colors.white)
                write("OK")
                term.setCursorPos(w - 5, h)
                write("CANCEL")
                term.setTextColor(colors.white)
                term.setBackgroundColor(colors.gray)
                if cells[i][2] == "" then
                    text = ""
                else
                    text = cells[i][2]
                end
                while true do
                    event, param1, param2, param3 = os.pullEvent()
                    if event == "char" then
                        text = text .. param1
                        term.setCursorPos(13, h)
                        write(text)
                    elseif event == "mouse_click" then
                        if param2 > w - 9 and param2 < w - 6 and param3 == h then
                            cells[i][2] = text
                            break
                        elseif param2 > w - 6 and param2 < w + 1 and param3 == h then
                            break
                        end
                    end
                end
            end
        end
    end

    drawScreen(currentPage)

    while not exit do
        event, param1, param2, param3 = os.pullEvent()
        if event == "mouse_click" then
            click(param1, param2, param3)
        end
        drawScreen(currentPage)
        if menu then
            menu = false
            term.setTextColor(colors.black)
            term.setBackgroundColor(colors.white)
            term.clear()
            term.setBackgroundColor(colors.lightGray)
            term.setCursorPos(2, 2)
            write("    ")
            term.setCursorPos(2, 4)
            write("    ")
            term.setCursorPos(2, 6)
            write("     ")
            term.setBackgroundColor(colors.white)
            term.setCursorPos(2, 2)
            write("Save")
            term.setCursorPos(2, 4)
            write("Open")
            term.setCursorPos(2, 6)
            write("Close")
            term.setCursorPos(2, 8)
            write("Menu will be better in next version!")
            event, param1, param2, param3 = os.pullEvent()
            while true do
                if event == "mouse_click" then
                    if param3 == 2 then
                        term.clear()
                        term.setCursorPos(2, 2)
                        write("File name: ")
                        filename = read()
                        file = fs.open(filename, "w")
                        file.write(textutils.serialize(cells))
                        file.close()
                        drawScreen(currentPage)
                        break
                    elseif param3 == 4 then
                        term.clear()
                        term.setCursorPos(2, 2)
                        write("File name: ")
                        filename = read()
                        file = fs.open(filename, "r")
                        filelines = file.readAll()
                        cells = textutils.unserialize(filelines)
                        file.close()
                        drawScreen(currentPage)
                        break
                    elseif param3 == 6 then
                        home()
                        break
                    end
                end
            end
        end
    end
end

function luaide()

    --
    --  Lua IDE
    --  Made by GravityScore
    --


    --  -------- Variables

    -- Version
    local version = "1.0"
    local args = {}

    -- Editing
    local w, h = term.getSize()
    local tabWidth = 2

    local autosaveInterval = 20
    local allowEditorEvent = true
    local keyboardShortcutTimeout = 0.4

    -- Clipboard
    local clipboard = nil

    -- Theme
    local theme = {}

    -- Language
    local languages = {}
    local curLanguage = {}

    -- Events
    local event_distract = "luaide_distractionEvent"

    -- Locations
    local updateURL = "https://raw.github.com/GravityScore/LuaIDE/master/luaide.lua"
    local ideLocation = "/" .. shell.getRunningProgram()
    local themeLocation = "/.LuaIDE-Theme"

    local function isAdvanced() return term.isColor and term.isColor() end


    --  -------- Utilities

    local function modRead(properties)
        local w, h = term.getSize()
        local defaults = {replaceChar = nil, history = nil, visibleLength = nil, textLength = nil,
            liveUpdates = nil, exitOnKey = nil}
        if not properties then properties = {} end
        for k, v in pairs(defaults) do if not properties[k] then properties[k] = v end end
        if properties.replaceChar then properties.replaceChar = properties.replaceChar:sub(1, 1) end
        if not properties.visibleLength then properties.visibleLength = w end

        local sx, sy = term.getCursorPos()
        local line = ""
        local pos = 0
        local historyPos = nil

        local function redraw(repl)
            local scroll = 0
            if properties.visibleLength and sx + pos > properties.visibleLength + 1 then
                scroll = (sx + pos) - (properties.visibleLength + 1)
            end

            term.setCursorPos(sx, sy)
            local a = repl or properties.replaceChar
            if a then term.write(string.rep(a, line:len() - scroll))
            else term.write(line:sub(scroll + 1, -1)) end
            term.setCursorPos(sx + pos - scroll, sy)
        end

        local function sendLiveUpdates(event, ...)
            if type(properties.liveUpdates) == "function" then
                local ox, oy = term.getCursorPos()
                local a, data = properties.liveUpdates(line, event, ...)
                if a == true and data == nil then
                    term.setCursorBlink(false)
                    return line
                elseif a == true and data ~= nil then
                    term.setCursorBlink(false)
                    return data
                end
                term.setCursorPos(ox, oy)
            end
        end

        term.setCursorBlink(true)
        while true do
            local e, but, x, y, p4, p5 = os.pullEvent()

            if e == "char" then
                local s = false
                if properties.textLength and line:len() < properties.textLength then s = true
                elseif not properties.textLength then s = true end

                local canType = true
                if not properties.grantPrint and properties.refusePrint then
                    local canTypeKeys = {}
                    if type(properties.refusePrint) == "table" then
                        for _, v in pairs(properties.refusePrint) do
                            table.insert(canTypeKeys, tostring(v):sub(1, 1))
                        end
                    elseif type(properties.refusePrint) == "string" then
                        for char in properties.refusePrint:gmatch(".") do
                            table.insert(canTypeKeys, char)
                        end
                    end
                    for _, v in pairs(canTypeKeys) do if but == v then canType = false end end
                elseif properties.grantPrint then
                    canType = false
                    local canTypeKeys = {}
                    if type(properties.grantPrint) == "table" then
                        for _, v in pairs(properties.grantPrint) do
                            table.insert(canTypeKeys, tostring(v):sub(1, 1))
                        end
                    elseif type(properties.grantPrint) == "string" then
                        for char in properties.grantPrint:gmatch(".") do
                            table.insert(canTypeKeys, char)
                        end
                    end
                    for _, v in pairs(canTypeKeys) do if but == v then canType = true end end
                end

                if s and canType then
                    line = line:sub(1, pos) .. but .. line:sub(pos + 1, -1)
                    pos = pos + 1
                    redraw()
                end
            elseif e == "key" then
                if but == keys.enter then break
                elseif but == keys.left then if pos > 0 then pos = pos - 1 redraw() end
                elseif but == keys.right then if pos < line:len() then pos = pos + 1 redraw() end
                elseif (but == keys.up or but == keys.down) and properties.history then
                    redraw(" ")
                    if but == keys.up then
                        if historyPos == nil and #properties.history > 0 then
                            historyPos = #properties.history
                        elseif historyPos > 1 then
                            historyPos = historyPos - 1
                        end
                    elseif but == keys.down then
                        if historyPos == #properties.history then historyPos = nil
                        elseif historyPos ~= nil then historyPos = historyPos + 1 end
                    end

                    if properties.history and historyPos then
                        line = properties.history[historyPos]
                        pos = line:len()
                    else
                        line = ""
                        pos = 0
                    end

                    redraw()
                    local a = sendLiveUpdates("history")
                    if a then return a end
                elseif but == keys.backspace and pos > 0 then
                    redraw(" ")
                    line = line:sub(1, pos - 1) .. line:sub(pos + 1, -1)
                    pos = pos - 1
                    redraw()
                    local a = sendLiveUpdates("delete")
                    if a then return a end
                elseif but == keys.home then
                    pos = 0
                    redraw()
                elseif but == keys.delete and pos < line:len() then
                    redraw(" ")
                    line = line:sub(1, pos) .. line:sub(pos + 2, -1)
                    redraw()
                    local a = sendLiveUpdates("delete")
                    if a then return a end
                elseif but == keys["end"] then
                    pos = line:len()
                    redraw()
                elseif properties.exitOnKey then
                    if but == properties.exitOnKey or (properties.exitOnKey == "control" and
                            (but == 29 or but == 157)) then
                        term.setCursorBlink(false)
                        return nil
                    end
                end
            end
            local a = sendLiveUpdates(e, but, x, y, p4, p5)
            if a then return a end
        end

        term.setCursorBlink(false)
        if line ~= nil then line = line:gsub("^%s*(.-)%s*$", "%1") end
        return line
    end


    --  -------- Themes

    local defaultTheme = {
        background = "gray",
        backgroundHighlight = "lightGray",
        prompt = "cyan",
        promptHighlight = "lightBlue",
        err = "red",
        errHighlight = "pink",

        editorBackground = "gray",
        editorLineHightlight = "lightBlue",
        editorLineNumbers = "gray",
        editorLineNumbersHighlight = "lightGray",
        editorError = "pink",
        editorErrorHighlight = "red",

        textColor = "white",
        conditional = "yellow",
        constant = "orange",
        ["function"] = "magenta",
        string = "red",
        comment = "lime"
    }

    local normalTheme = {
        background = "black",
        backgroundHighlight = "black",
        prompt = "black",
        promptHighlight = "black",
        err = "black",
        errHighlight = "black",

        editorBackground = "black",
        editorLineHightlight = "black",
        editorLineNumbers = "black",
        editorLineNumbersHighlight = "white",
        editorError = "black",
        editorErrorHighlight = "black",

        textColor = "white",
        conditional = "white",
        constant = "white",
        ["function"] = "white",
        string = "white",
        comment = "white"
    }

    local availableThemes = {
        {"Water (Default)", "https://raw.github.com/GravityScore/LuaIDE/master/themes/default.txt"},
        {"Fire", "https://raw.github.com/GravityScore/LuaIDE/master/themes/fire.txt"},
        {"Sublime Text 2", "https://raw.github.com/GravityScore/LuaIDE/master/themes/st2.txt"},
        {"Midnight", "https://raw.github.com/GravityScore/LuaIDE/master/themes/midnight.txt"},
        {"TheOriginalBIT", "https://raw.github.com/GravityScore/LuaIDE/master/themes/bit.txt"},
        {"Superaxander", "https://raw.github.com/GravityScore/LuaIDE/master/themes/superaxander.txt"},
        {"Forest", "https://raw.github.com/GravityScore/LuaIDE/master/themes/forest.txt"},
        {"Night", "https://raw.github.com/GravityScore/LuaIDE/master/themes/night.txt"},
        {"Original", "https://raw.github.com/GravityScore/LuaIDE/master/themes/original.txt"},
    }

    local function loadTheme(path)
        local f = io.open(path)
        local l = f:read("*l")
        local config = {}
        while l ~= nil do
            local k, v = string.match(l, "^(%a+)=(%a+)")
            if k and v then config[k] = v end
            l = f:read("*l")
        end
        f:close()
        return config
    end

    -- Load Theme
    if isAdvanced() then theme = defaultTheme
    else theme = normalTheme end


    --  -------- Drawing

    local function centerPrint(text, ny)
        if type(text) == "table" then for _, v in pairs(text) do centerPrint(v) end
        else
            local x, y = term.getCursorPos()
            local w, h = term.getSize()
            term.setCursorPos(w/2 - text:len()/2 + (#text % 2 == 0 and 1 or 0), ny or y)
            print(text)
        end
    end

    local function title(t)
        term.setTextColor(colors[theme.textColor])
        term.setBackgroundColor(colors[theme.background])
        term.clear()

        term.setBackgroundColor(colors[theme.backgroundHighlight])
        for i = 2, 4 do term.setCursorPos(1, i) term.clearLine() end
        term.setCursorPos(3, 3)
        term.write(t)
    end

    local function centerRead(wid, begt)
        local function liveUpdate(line, e, but, x, y, p4, p5)
            if isAdvanced() and e == "mouse_click" and x >= w/2 - wid/2 and x <= w/2 - wid/2 + 10
                    and y >= 13 and y <= 15 then
                return true, ""
            end
        end

        if not begt then begt = "" end
        term.setTextColor(colors[theme.textColor])
        term.setBackgroundColor(colors[theme.promptHighlight])
        for i = 8, 10 do
            term.setCursorPos(w/2 - wid/2, i)
            term.write(string.rep(" ", wid))
        end

        if isAdvanced() then
            term.setBackgroundColor(colors[theme.errHighlight])
            for i = 13, 15 do
                term.setCursorPos(w/2 - wid/2 + 1, i)
                term.write(string.rep(" ", 10))
            end
            term.setCursorPos(w/2 - wid/2 + 2, 14)
            term.write("> Cancel")
        end

        term.setBackgroundColor(colors[theme.promptHighlight])
        term.setCursorPos(w/2 - wid/2 + 1, 9)
        term.write("> " .. begt)
        return modRead({visibleLength = w/2 + wid/2, liveUpdates = liveUpdate})
    end


    --  -------- Prompt

    local function prompt(list, dir, isGrid)
        local function draw(sel)
            for i, v in ipairs(list) do
                if i == sel then term.setBackgroundColor(v.highlight or colors[theme.promptHighlight])
                else term.setBackgroundColor(v.bg or colors[theme.prompt]) end
                term.setTextColor(v.tc or colors[theme.textColor])
                for i = -1, 1 do
                    term.setCursorPos(v[2], v[3] + i)
                    term.write(string.rep(" ", v[1]:len() + 4))
                end

                term.setCursorPos(v[2], v[3])
                if i == sel then
                    term.setBackgroundColor(v.highlight or colors[theme.promptHighlight])
                    term.write(" > ")
                else term.write(" - ") end
                term.write(v[1] .. " ")
            end
        end

        local key1 = dir == "horizontal" and 203 or 200
        local key2 = dir == "horizontal" and 205 or 208
        local sel = 1
        draw(sel)

        while true do
            local e, but, x, y = os.pullEvent()
            if e == "key" and but == 28 then
                return list[sel][1]
            elseif e == "key" and but == key1 and sel > 1 then
                sel = sel - 1
                draw(sel)
            elseif e == "key" and but == key2 and ((err == true and sel < #list - 1) or (sel < #list)) then
                sel = sel + 1
                draw(sel)
            elseif isGrid and e == "key" and but == 203 and sel > 2 then
                sel = sel - 2
                draw(sel)
            elseif isGrid and e == "key" and but == 205 and sel < 3 then
                sel = sel + 2
                draw(sel)
            elseif e == "mouse_click" then
                for i, v in ipairs(list) do
                    if x >= v[2] - 1 and x <= v[2] + v[1]:len() + 3 and y >= v[3] - 1 and y <= v[3] + 1 then
                        return list[i][1]
                    end
                end
            end
        end
    end

    local function scrollingPrompt(list)
        local function draw(items, sel, loc)
            for i, v in ipairs(items) do
                local bg = colors[theme.prompt]
                local bghigh = colors[theme.promptHighlight]
                if v:find("Back") or v:find("Return") then
                    bg = colors[theme.err]
                    bghigh = colors[theme.errHighlight]
                end

                if i == sel then term.setBackgroundColor(bghigh)
                else term.setBackgroundColor(bg) end
                term.setTextColor(colors[theme.textColor])
                for x = -1, 1 do
                    term.setCursorPos(3, (i * 4) + x + 4)
                    term.write(string.rep(" ", w - 13))
                end

                term.setCursorPos(3, i * 4 + 4)
                if i == sel then
                    term.setBackgroundColor(bghigh)
                    term.write(" > ")
                else term.write(" - ") end
                term.write(v .. " ")
            end
        end

        local function updateDisplayList(items, loc, len)
            local ret = {}
            for i = 1, len do
                local item = items[i + loc - 1]
                if item then table.insert(ret, item) end
            end
            return ret
        end

        -- Variables
        local sel = 1
        local loc = 1
        local len = 3
        local disList = updateDisplayList(list, loc, len)
        draw(disList, sel, loc)

        -- Loop
        while true do
            local e, key, x, y = os.pullEvent()

            if e == "mouse_click" then
                for i, v in ipairs(disList) do
                    if x >= 3 and x <= w - 11 and y >= i * 4 + 3 and y <= i * 4 + 5 then return v end
                end
            elseif e == "key" and key == 200 then
                if sel > 1 then
                    sel = sel - 1
                    draw(disList, sel, loc)
                elseif loc > 1 then
                    loc = loc - 1
                    disList = updateDisplayList(list, loc, len)
                    draw(disList, sel, loc)
                end
            elseif e == "key" and key == 208 then
                if sel < len then
                    sel = sel + 1
                    draw(disList, sel, loc)
                elseif loc + len - 1 < #list then
                    loc = loc + 1
                    disList = updateDisplayList(list, loc, len)
                    draw(disList, sel, loc)
                end
            elseif e == "mouse_scroll" then
                os.queueEvent("key", key == -1 and 200 or 208)
            elseif e == "key" and key == 28 then
                return disList[sel]
            end
        end
    end

    function monitorKeyboardShortcuts()
        local ta, tb = nil, nil
        local allowChar = false
        local shiftPressed = false
        while true do
            local event, char = os.pullEvent()
            if event == "key" and (char == 42 or char == 52) then
                shiftPressed = true
                tb = os.startTimer(keyboardShortcutTimeout)
            elseif event == "key" and (char == 29 or char == 157 or char == 219 or char == 220) then
                allowEditorEvent = false
                allowChar = true
                ta = os.startTimer(keyboardShortcutTimeout)
            elseif event == "key" and allowChar then
                local name = nil
                for k, v in pairs(keys) do
                    if v == char then
                        if shiftPressed then os.queueEvent("shortcut", "ctrl shift", k:lower())
                        else os.queueEvent("shortcut", "ctrl", k:lower()) end
                        sleep(0.005)
                        allowEditorEvent = true
                    end
                end
                if shiftPressed then os.queueEvent("shortcut", "ctrl shift", char)
                else os.queueEvent("shortcut", "ctrl", char) end
            elseif event == "timer" and char == ta then
                allowEditorEvent = true
                allowChar = false
            elseif event == "timer" and char == tb then
                shiftPressed = false
            end
        end
    end


    --  -------- Saving and Loading

    local function download(url, path)
        for i = 1, 3 do
            local response = http.get(url)
            if response then
                local data = response.readAll()
                response.close()
                if path then
                    local f = io.open(path, "w")
                    f:write(data)
                    f:close()
                end
                return true
            end
        end

        return false
    end

    local function saveFile(path, lines)
        local dir = path:sub(1, path:len() - fs.getName(path):len())
        if not fs.exists(dir) then fs.makeDir(dir) end
        if not fs.isDir(path) and not fs.isReadOnly(path) then
            local a = ""
            for _, v in pairs(lines) do a = a .. v .. "\n" end

            local f = io.open(path, "w")
            f:write(a)
            f:close()
            return true
        else return false end
    end

    local function loadFile(path)
        if not fs.exists(path) then
            local dir = path:sub(1, path:len() - fs.getName(path):len())
            if not fs.exists(dir) then fs.makeDir(dir) end
            local f = io.open(path, "w")
            f:write("")
            f:close()
        end

        local l = {}
        if fs.exists(path) and not fs.isDir(path) then
            local f = io.open(path, "r")
            if f then
                local a = f:read("*l")
                while a do
                    table.insert(l, a)
                    a = f:read("*l")
                end
                f:close()
            end
        else return nil end

        if #l < 1 then table.insert(l, "") end
        return l
    end


    --  -------- Languages

    languages.lua = {}
    languages.brainfuck = {}
    languages.none = {}

    --  Lua

    languages.lua.helpTips = {
        "A function you tried to call doesn't exist.",
        "You made a typo.",
        "The index of an array is nil.",
        "The wrong variable type was passed.",
        "A function/variable doesn't exist.",
        "You missed an 'end'.",
        "You missed a 'then'.",
        "You declared a variable incorrectly.",
        "One of your variables is mysteriously nil."
    }

    languages.lua.defaultHelpTips = {
        2, 5
    }

    languages.lua.errors = {
        ["Attempt to call nil."] = {1, 2},
        ["Attempt to index nil."] = {3, 2},
        [".+ expected, got .+"] = {4, 2, 9},
        ["'end' expected"] = {6, 2},
        ["'then' expected"] = {7, 2},
        ["'=' expected"] = {8, 2}
    }

    languages.lua.keywords = {
        ["and"] = "conditional",
        ["break"] = "conditional",
        ["do"] = "conditional",
        ["else"] = "conditional",
        ["elseif"] = "conditional",
        ["end"] = "conditional",
        ["for"] = "conditional",
        ["function"] = "conditional",
        ["if"] = "conditional",
        ["in"] = "conditional",
        ["local"] = "conditional",
        ["not"] = "conditional",
        ["or"] = "conditional",
        ["repeat"] = "conditional",
        ["return"] = "conditional",
        ["then"] = "conditional",
        ["until"] = "conditional",
        ["while"] = "conditional",

        ["true"] = "constant",
        ["false"] = "constant",
        ["nil"] = "constant",

        ["print"] = "function",
        ["write"] = "function",
        ["sleep"] = "function",
        ["pairs"] = "function",
        ["ipairs"] = "function",
        ["loadstring"] = "function",
        ["loadfile"] = "function",
        ["dofile"] = "function",
        ["rawset"] = "function",
        ["rawget"] = "function",
        ["setfenv"] = "function",
        ["getfenv"] = "function",
    }

    languages.lua.parseError = function(e)
        local ret = {filename = "unknown", line = -1, display = "Unknown!", err = ""}
        if e and e ~= "" then
            ret.err = e
            if e:find(":") then
                ret.filename = e:sub(1, e:find(":") - 1):gsub("^%s*(.-)%s*$", "%1")
                -- The "" is needed to circumvent a CC bug
                e = (e:sub(e:find(":") + 1) .. ""):gsub("^%s*(.-)%s*$", "%1")
                if e:find(":") then
                    ret.line = e:sub(1, e:find(":") - 1)
                    e = e:sub(e:find(":") + 2):gsub("^%s*(.-)%s*$", "%1") .. ""
                end
            end
            ret.display = e:sub(1, 1):upper() .. e:sub(2, -1) .. "."
        end

        return ret
    end

    languages.lua.getCompilerErrors = function(code)
        code = "local function ee65da6af1cb6f63fee9a081246f2fd92b36ef2(...)\n\n" .. code .. "\n\nend"
        local fn, err = loadstring(code)
        if not err then
            local _, e = pcall(fn)
            if e then err = e end
        end

        if err then
            local a = err:find("]", 1, true)
            if a then err = "string" .. err:sub(a + 1, -1) end
            local ret = languages.lua.parseError(err)
            if tonumber(ret.line) then ret.line = tonumber(ret.line) end
            return ret
        else return languages.lua.parseError(nil) end
    end

    languages.lua.run = function(path, ar)
        local fn, err = loadfile(path)
        setfenv(fn, getfenv())
        if not err then
            _, err = pcall(function() fn(unpack(ar)) end)
        end
        return err
    end


    --  Brainfuck

    languages.brainfuck.helpTips = {
        "Well idk...",
        "Isn't this the whole point of the language?",
        "Ya know... Not being able to debug it?",
        "You made a typo."
    }

    languages.brainfuck.defaultHelpTips = {
        1, 2, 3
    }

    languages.brainfuck.errors = {
        ["No matching '['"] = {1, 2, 3, 4}
    }

    languages.brainfuck.keywords = {}

    languages.brainfuck.parseError = function(e)
        local ret = {filename = "unknown", line = -1, display = "Unknown!", err = ""}
        if e and e ~= "" then
            ret.err = e
            ret.line = e:sub(1, e:find(":") - 1)
            e = e:sub(e:find(":") + 2):gsub("^%s*(.-)%s*$", "%1") .. ""
            ret.display = e:sub(1, 1):upper() .. e:sub(2, -1) .. "."
        end

        return ret
    end

    languages.brainfuck.mapLoops = function(code)
        -- Map loops
        local loopLocations = {}
        local loc = 1
        local line = 1
        for let in string.gmatch(code, ".") do
            if let == "[" then
                loopLocations[loc] = true
            elseif let == "]" then
                local found = false
                for i = loc, 1, -1 do
                    if loopLocations[i] == true then
                        loopLocations[i] = loc
                        found = true
                    end
                end

                if not found then
                    return line .. ": No matching '['"
                end
            end

            if let == "\n" then line = line + 1 end
            loc = loc + 1
        end
        return loopLocations
    end

    languages.brainfuck.getCompilerErrors = function(code)
        local a = languages.brainfuck.mapLoops(code)
        if type(a) == "string" then return languages.brainfuck.parseError(a)
        else return languages.brainfuck.parseError(nil) end
    end

    languages.brainfuck.run = function(path)
        -- Read from file
        local f = io.open(path, "r")
        local content = f:read("*a")
        f:close()

        -- Define environment
        local dataCells = {}
        local dataPointer = 1
        local instructionPointer = 1

        -- Map loops
        local loopLocations = languages.brainfuck.mapLoops(content)
        if type(loopLocations) == "string" then return loopLocations end

        -- Execute code
        while true do
            local let = content:sub(instructionPointer, instructionPointer)

            if let == ">" then
                dataPointer = dataPointer + 1
                if not dataCells[tostring(dataPointer)] then dataCells[tostring(dataPointer)] = 0 end
            elseif let == "<" then
                if not dataCells[tostring(dataPointer)] then dataCells[tostring(dataPointer)] = 0 end
                dataPointer = dataPointer - 1
                if not dataCells[tostring(dataPointer)] then dataCells[tostring(dataPointer)] = 0 end
            elseif let == "+" then
                if not dataCells[tostring(dataPointer)] then dataCells[tostring(dataPointer)] = 0 end
                dataCells[tostring(dataPointer)] = dataCells[tostring(dataPointer)] + 1
            elseif let == "-" then
                if not dataCells[tostring(dataPointer)] then dataCells[tostring(dataPointer)] = 0 end
                dataCells[tostring(dataPointer)] = dataCells[tostring(dataPointer)] - 1
            elseif let == "." then
                if not dataCells[tostring(dataPointer)] then dataCells[tostring(dataPointer)] = 0 end
                if term.getCursorPos() >= w then print("") end
                write(string.char(math.max(1, dataCells[tostring(dataPointer)])))
            elseif let == "," then
                if not dataCells[tostring(dataPointer)] then dataCells[tostring(dataPointer)] = 0 end
                term.setCursorBlink(true)
                local e, but = os.pullEvent("char")
                term.setCursorBlink(false)
                dataCells[tostring(dataPointer)] = string.byte(but)
                if term.getCursorPos() >= w then print("") end
                write(but)
            elseif let == "/" then
                if not dataCells[tostring(dataPointer)] then dataCells[tostring(dataPointer)] = 0 end
                if term.getCursorPos() >= w then print("") end
                write(dataCells[tostring(dataPointer)])
            elseif let == "[" then
                if dataCells[tostring(dataPointer)] == 0 then
                    for k, v in pairs(loopLocations) do
                        if k == instructionPointer then instructionPointer = v end
                    end
                end
            elseif let == "]" then
                for k, v in pairs(loopLocations) do
                    if v == instructionPointer then instructionPointer = k - 1 end
                end
            end

            instructionPointer = instructionPointer + 1
            if instructionPointer > content:len() then print("") break end
        end
    end

    --  None

    languages.none.helpTips = {}
    languages.none.defaultHelpTips = {}
    languages.none.errors = {}
    languages.none.keywords = {}

    languages.none.parseError = function(err)
        return {filename = "", line = -1, display = "", err = ""}
    end

    languages.none.getCompilerErrors = function(code)
        return languages.none.parseError(nil)
    end

    languages.none.run = function(path) end


    -- Load language
    curLanguage = languages.lua


    --  -------- Run GUI

    local function viewErrorHelp(e)
        title("LuaIDE - Error Help")

        local tips = nil
        for k, v in pairs(curLanguage.errors) do
            if e.display:find(k) then tips = v break end
        end

        term.setBackgroundColor(colors[theme.err])
        for i = 6, 8 do
            term.setCursorPos(5, i)
            term.write(string.rep(" ", 35))
        end

        term.setBackgroundColor(colors[theme.prompt])
        for i = 10, 18 do
            term.setCursorPos(5, i)
            term.write(string.rep(" ", 46))
        end

        if tips then
            term.setBackgroundColor(colors[theme.err])
            term.setCursorPos(6, 7)
            term.write("Error Help")

            term.setBackgroundColor(colors[theme.prompt])
            for i, v in ipairs(tips) do
                term.setCursorPos(7, i + 10)
                term.write("- " .. curLanguage.helpTips[v])
            end
        else
            term.setBackgroundColor(colors[theme.err])
            term.setCursorPos(6, 7)
            term.write("No Error Tips Available!")

            term.setBackgroundColor(colors[theme.prompt])
            term.setCursorPos(6, 11)
            term.write("There are no error tips available, but")
            term.setCursorPos(6, 12)
            term.write("you could see if it was any of these:")

            for i, v in ipairs(curLanguage.defaultHelpTips) do
                term.setCursorPos(7, i + 12)
                term.write("- " .. curLanguage.helpTips[v])
            end
        end

        prompt({{"Back", w - 8, 7}}, "horizontal")
    end

    local function run(path, lines, useArgs)
        local ar = {}
        if useArgs then
            title("LuaIDE - Run " .. fs.getName(path))
            local s = centerRead(w - 13, fs.getName(path) .. " ")
            for m in string.gmatch(s, "[^ \t]+") do ar[#ar + 1] = m:gsub("^%s*(.-)%s*$", "%1") end
        end

        saveFile(path, lines)
        term.setCursorBlink(false)
        term.setBackgroundColor(colors.black)
        term.setTextColor(colors.white)
        term.clear()
        term.setCursorPos(1, 1)
        local err = curLanguage.run(path, ar)

        term.setBackgroundColor(colors.black)
        print("\n")
        if err then
            if isAdvanced() then term.setTextColor(colors.red) end
            centerPrint("The program has crashed!")
        end
        term.setTextColor(colors.white)
        centerPrint("Press any key to return to LuaIDE...")
        while true do
            local e = os.pullEvent()
            if e == "key" then break end
        end

        -- To prevent key from showing up in editor
        os.queueEvent(event_distract)
        os.pullEvent()

        if err then
            if curLanguage == languages.lua and err:find("]") then
                err = fs.getName(path) .. err:sub(err:find("]", 1, true) + 1, -1)
            end

            while true do
                title("LuaIDE - Error!")

                term.setBackgroundColor(colors[theme.err])
                for i = 6, 8 do
                    term.setCursorPos(3, i)
                    term.write(string.rep(" ", w - 5))
                end
                term.setCursorPos(4, 7)
                term.write("The program has crashed!")

                term.setBackgroundColor(colors[theme.prompt])
                for i = 10, 14 do
                    term.setCursorPos(3, i)
                    term.write(string.rep(" ", w - 5))
                end

                local formattedErr = curLanguage.parseError(err)
                term.setCursorPos(4, 11)
                term.write("Line: " .. formattedErr.line)
                term.setCursorPos(4, 12)
                term.write("Error:")
                term.setCursorPos(5, 13)

                local a = formattedErr.display
                local b = nil
                if a:len() > w - 8 then
                    for i = a:len(), 1, -1 do
                        if a:sub(i, i) == " " then
                            b = a:sub(i + 1, -1)
                            a = a:sub(1, i)
                            break
                        end
                    end
                end

                term.write(a)
                if b then
                    term.setCursorPos(5, 14)
                    term.write(b)
                end

                local opt = prompt({{"Error Help", w/2 - 15, 17}, {"Go To Line", w/2 + 2, 17}},
                    "horizontal")
                if opt == "Error Help" then
                    viewErrorHelp(formattedErr)
                elseif opt == "Go To Line" then
                    -- To prevent key from showing up in editor
                    os.queueEvent(event_distract)
                    os.pullEvent()

                    return "go to", tonumber(formattedErr.line)
                end
            end
        end
    end


    --  -------- Functions

    local function goto()
        term.setBackgroundColor(colors[theme.backgroundHighlight])
        term.setCursorPos(2, 1)
        term.clearLine()
        term.write("Line: ")
        local line = modRead({visibleLength = w - 2})

        local num = tonumber(line)
        if num and num > 0 then return num
        else
            term.setCursorPos(2, 1)
            term.clearLine()
            term.write("Not a line number!")
            sleep(1.6)
            return nil
        end
    end

    local function setsyntax()
        local opts = {
            "[Lua]   Brainfuck    None ",
            " Lua   [Brainfuck]   None ",
            " Lua    Brainfuck   [None]"
        }
        local sel = 1

        term.setCursorBlink(false)
        term.setBackgroundColor(colors[theme.backgroundHighlight])
        term.setCursorPos(2, 1)
        term.clearLine()
        term.write(opts[sel])
        while true do
            local e, but, x, y = os.pullEvent("key")
            if but == 203 then
                sel = math.max(1, sel - 1)
                term.setCursorPos(2, 1)
                term.clearLine()
                term.write(opts[sel])
            elseif but == 205 then
                sel = math.min(#opts, sel + 1)
                term.setCursorPos(2, 1)
                term.clearLine()
                term.write(opts[sel])
            elseif but == 28 then
                if sel == 1 then curLanguage = languages.lua
                elseif sel == 2 then curLanguage = languages.brainfuck
                elseif sel == 3 then curLanguage = languages.none end
                term.setCursorBlink(true)
                return
            end
        end
    end


    --  -------- Re-Indenting

    local tabWidth = 2

    local comments = {}
    local strings = {}

    local increment = {
        "if%s+.+%s+then%s*$",
        "for%s+.+%s+do%s*$",
        "while%s+.+%s+do%s*$",
        "repeat%s*$",
        "function%s+[a-zA-Z_0-9](.*)%s*$"
    }

    local decrement = {
        "end",
        "until%s+.+"
    }

    local special = {
        "else%s*$",
        "elseif%s+.+%s+then%s*$"
    }

    local function check(func)
        for _, v in pairs(func) do
            local cLineStart = v["lineStart"]
            local cLineEnd = v["lineEnd"]
            local cCharStart = v["charStart"]
            local cCharEnd = v["charEnd"]

            if line >= cLineStart and line <= cLineEnd then
                if line == cLineStart then return cCharStart < charNumb
                elseif line == cLineEnd then return cCharEnd > charNumb
                else return true end
            end
        end
    end

    local function isIn(line, loc)
        if check(comments) then return true end
        if check(strings) then return true end
        return false
    end

    local function setComment(ls, le, cs, ce)
        comments[#comments + 1] = {}
        comments[#comments].lineStart = ls
        comments[#comments].lineEnd = le
        comments[#comments].charStart = cs
        comments[#comments].charEnd = ce
    end

    local function setString(ls, le, cs, ce)
        strings[#strings + 1] = {}
        strings[#strings].lineStart = ls
        strings[#strings].lineEnd = le
        strings[#strings].charStart = cs
        strings[#strings].charEnd = ce
    end

    local function map(contents)
        local inCom = false
        local inStr = false

        for i = 1, #contents do
            if content[i]:find("%-%-%[%[") and not inStr and not inCom then
                local cStart = content[i]:find("%-%-%[%[")
                setComment(i, nil, cStart, nil)
                inCom = true
            elseif content[i]:find("%-%-%[=%[") and not inStr and not inCom then
                local cStart = content[i]:find("%-%-%[=%[")
                setComment(i, nil, cStart, nil)
                inCom = true
            elseif content[i]:find("%[%[") and not inStr and not inCom then
                local cStart = content[i]:find("%[%[")
                setString(i, nil, cStart, nil)
                inStr = true
            elseif content[i]:find("%[=%[") and not inStr and not inCom then
                local cStart = content[i]:find("%[=%[")
                setString(i, nil, cStart, nil)
                inStr = true
            end

            if content[i]:find("%]%]") and inStr and not inCom then
                local cStart, cEnd = content[i]:find("%]%]")
                strings[#strings].lineEnd = i
                strings[#strings].charEnd = cEnd
                inStr = false
            elseif content[i]:find("%]=%]") and inStr and not inCom then
                local cStart, cEnd = content[i]:find("%]=%]")
                strings[#strings].lineEnd = i
                strings[#strings].charEnd = cEnd
                inStr = false
            end

            if content[i]:find("%]%]") and not inStr and inCom then
                local cStart, cEnd = content[i]:find("%]%]")
                comments[#comments].lineEnd = i
                comments[#comments].charEnd = cEnd
                inCom = false
            elseif content[i]:find("%]=%]") and not inStr and inCom then
                local cStart, cEnd = content[i]:find("%]=%]")
                comments[#comments].lineEnd = i
                comments[#comments].charEnd = cEnd
                inCom = false
            end

            if content[i]:find("%-%-") and not inStr and not inCom then
                local cStart = content[i]:find("%-%-")
                setComment(i, i, cStart, -1)
            elseif content[i]:find("'") and not inStr and not inCom then
                local cStart, cEnd = content[i]:find("'")
                local nextChar = content[i]:sub(cEnd + 1, string.len(content[i]))
                local _, cEnd = nextChar:find("'")
                setString(i, i, cStart, cEnd)
            elseif content[i]:find('"') and not inStr and not inCom then
                local cStart, cEnd = content[i]:find('"')
                local nextChar = content[i]:sub(cEnd + 1, string.len(content[i]))
                local _, cEnd = nextChar:find('"')
                setString(i, i, cStart, cEnd)
            end
        end
    end

    local function reindent(contents)
        local err = nil
        if curLanguage ~= languages.lua then
            err = "Cannot indent languages other than Lua!"
        elseif curLanguage.getCompilerErrors(table.concat(contents, "\n")).line ~= -1 then
            err = "Cannot indent a program with errors!"
        end

        if err then
            term.setCursorBlink(false)
            term.setCursorPos(2, 1)
            term.setBackgroundColor(colors[theme.backgroundHighlight])
            term.clearLine()
            term.write(err)
            sleep(1.6)
            return contents
        end

        local new = {}
        local level = 0
        for k, v in pairs(contents) do
            local incrLevel = false
            local foundIncr = false
            for _, incr in pairs(increment) do
                if v:find(incr) and not isIn(k, v:find(incr)) then
                    incrLevel = true
                end
                if v:find(incr:sub(1, -2)) and not isIn(k, v:find(incr)) then
                    foundIncr = true
                end
            end

            local decrLevel = false
            if not incrLevel then
                for _, decr in pairs(decrement) do
                    if v:find(decr) and not isIn(k, v:find(decr)) and not foundIncr then
                        level = math.max(0, level - 1)
                        decrLevel = true
                    end
                end
            end

            if not decrLevel then
                for _, sp in pairs(special) do
                    if v:find(sp) and not isIn(k, v:find(sp)) then
                        incrLevel = true
                        level = math.max(0, level - 1)
                    end
                end
            end

            new[k] = string.rep(" ", level * tabWidth) .. v
            if incrLevel then level = level + 1 end
        end

        return new
    end


    --  -------- Menu

    local menu = {
        [1] = {"File",
    --      "About",
    --      "Settings",
    --      "",
            "New File  ^+N",
            "Open File ^+O",
            "Save File ^+S",
            "Close     ^+W",
            "Print     ^+P",
            "Quit      ^+Q"
        }, [2] = {"Edit",
            "Cut Line   ^+X",
            "Copy Line  ^+C",
            "Paste Line ^+V",
            "Delete Line",
            "Clear Line"
        }, [3] = {"Functions",
            "Go To Line    ^+G",
            "Re-Indent     ^+I",
            "Set Syntax    ^+E",
            "Start of Line ^+<",
            "End of Line   ^+>"
        }, [4] = {"Run",
            "Run Program       ^+R",
            "Run w/ Args ^+Shift+R"
        }
    }

    local shortcuts = {
        -- File
        ["ctrl n"] = "New File  ^+N",
        ["ctrl o"] = "Open File ^+O",
        ["ctrl s"] = "Save File ^+S",
        ["ctrl w"] = "Close     ^+W",
        ["ctrl p"] = "Print     ^+P",
        ["ctrl q"] = "Quit      ^+Q",

        -- Edit
        ["ctrl x"] = "Cut Line   ^+X",
        ["ctrl c"] = "Copy Line  ^+C",
        ["ctrl v"] = "Paste Line ^+V",

        -- Functions
        ["ctrl g"] = "Go To Line    ^+G",
        ["ctrl i"] = "Re-Indent     ^+I",
        ["ctrl e"] = "Set Syntax    ^+E",
        ["ctrl 203"] = "Start of Line ^+<",
        ["ctrl 205"] = "End of Line   ^+>",

        -- Run
        ["ctrl r"] = "Run Program       ^+R",
        ["ctrl shift r"] = "Run w/ Args ^+Shift+R"
    }

    local menuFunctions = {
        -- File
    --  ["About"] = function() end,
    --  ["Settings"] = function() end,
        ["New File  ^+N"] = function(path, lines) saveFile(path, lines) return "new" end,
        ["Open File ^+O"] = function(path, lines) saveFile(path, lines) return "open" end,
        ["Save File ^+S"] = function(path, lines) saveFile(path, lines) end,
        ["Close     ^+W"] = function(path, lines) saveFile(path, lines) return "menu" end,
        ["Print     ^+P"] = function(path, lines) saveFile(path, lines) return nil end,
        ["Quit      ^+Q"] = function(path, lines) saveFile(path, lines) return "exit" end,

        -- Edit
        ["Cut Line   ^+X"] = function(path, lines, y)
            clipboard = lines[y] table.remove(lines, y) return nil, lines end,
        ["Copy Line  ^+C"] = function(path, lines, y) clipboard = lines[y] end,
        ["Paste Line ^+V"] = function(path, lines, y)
            if clipboard then table.insert(lines, y, clipboard) end return nil, lines end,
        ["Delete Line"] = function(path, lines, y) table.remove(lines, y) return nil, lines end,
        ["Clear Line"] = function(path, lines, y) lines[y] = "" return nil, lines, "cursor" end,

        -- Functions
        ["Go To Line    ^+G"] = function() return nil, "go to", goto() end,
        ["Re-Indent     ^+I"] = function(path, lines)
            local a = reindent(lines) saveFile(path, lines) return nil, a
        end,
        ["Set Syntax    ^+E"] = function(path, lines)
            setsyntax()
            if curLanguage == languages.brainfuck and lines[1] ~= "-- Syntax: Brainfuck" then
                table.insert(lines, 1, "-- Syntax: Brainfuck")
                return nil, lines
            end
        end,
        ["Start of Line ^+<"] = function() os.queueEvent("key", 199) end,
        ["End of Line   ^+>"] = function() os.queueEvent("key", 207) end,

        -- Run
        ["Run Program       ^+R"] = function(path, lines)
            saveFile(path, lines)
            return nil, run(path, lines, false)
        end,
        ["Run w/ Args ^+Shift+R"] = function(path, lines)
            saveFile(path, lines)
            return nil, run(path, lines, true)
        end,
    }

    local function drawMenu(open)
        term.setCursorPos(1, 1)
        term.setTextColor(colors[theme.textColor])
        term.setBackgroundColor(colors[theme.backgroundHighlight])
        term.clearLine()
        local curX = 0
        for _, v in pairs(menu) do
            term.setCursorPos(3 + curX, 1)
            term.write(v[1])
            curX = curX + v[1]:len() + 3
        end

        if open then
            local it = {}
            local x = 1
            for _, v in pairs(menu) do
                if open == v[1] then
                    it = v
                    break
                end
                x = x + v[1]:len() + 3
            end
            x = x + 1

            local items = {}
            for i = 2, #it do
                table.insert(items, it[i])
            end

            local len = 1
            for _, v in pairs(items) do if v:len() + 2 > len then len = v:len() + 2 end end

            for i, v in ipairs(items) do
                term.setCursorPos(x, i + 1)
                term.write(string.rep(" ", len))
                term.setCursorPos(x + 1, i + 1)
                term.write(v)
            end
            term.setCursorPos(x, #items + 2)
            term.write(string.rep(" ", len))
            return items, len
        end
    end

    local function triggerMenu(cx, cy)
        -- Determine clicked menu
        local curX = 0
        local open = nil
        for _, v in pairs(menu) do
            if cx >= curX + 3 and cx <= curX + v[1]:len() + 2 then
                open = v[1]
                break
            end
            curX = curX + v[1]:len() + 3
        end
        local menux = curX + 2
        if not open then return false end

        -- Flash menu item
        term.setCursorBlink(false)
        term.setCursorPos(menux, 1)
        term.setBackgroundColor(colors[theme.background])
        term.write(string.rep(" ", open:len() + 2))
        term.setCursorPos(menux + 1, 1)
        term.write(open)
        sleep(0.1)
        local items, len = drawMenu(open)

        local ret = true

        -- Pull events on menu
        local ox, oy = term.getCursorPos()
        while type(ret) ~= "string" do
            local e, but, x, y = os.pullEvent()
            if e == "mouse_click" then
                -- If clicked outside menu
                if x < menux - 1 or x > menux + len - 1 then break
                elseif y > #items + 2 then break
                elseif y == 1 then break end

                for i, v in ipairs(items) do
                    if y == i + 1 and x >= menux and x <= menux + len - 2 then
                        -- Flash when clicked
                        term.setCursorPos(menux, y)
                        term.setBackgroundColor(colors[theme.background])
                        term.write(string.rep(" ", len))
                        term.setCursorPos(menux + 1, y)
                        term.write(v)
                        sleep(0.1)
                        drawMenu(open)

                        -- Return item
                        ret = v
                        break
                    end
                end
            end
        end

        term.setCursorPos(ox, oy)
        term.setCursorBlink(true)
        return ret
    end


    --  -------- Editing

    local standardsCompletions = {
        "if%s+.+%s+then%s*$",
        "for%s+.+%s+do%s*$",
        "while%s+.+%s+do%s*$",
        "repeat%s*$",
        "function%s+[a-zA-Z_0-9]?(.*)%s*$",
        "=%s*function%s*(.*)%s*$",
        "else%s*$",
        "elseif%s+.+%s+then%s*$"
    }

    local liveCompletions = {
        ["("] = ")",
        ["{"] = "}",
        ["["] = "]",
        ["\""] = "\"",
        ["'"] = "'",
    }

    local x, y = 0, 0
    local edw, edh = 0, h - 1
    local offx, offy = 0, 1
    local scrollx, scrolly = 0, 0
    local lines = {}
    local liveErr = curLanguage.parseError(nil)
    local displayCode = true
    local lastEventClock = os.clock()

    local function attemptToHighlight(line, regex, col)
        local match = string.match(line, regex)
        if match then
            if type(col) == "number" then term.setTextColor(col)
            elseif type(col) == "function" then term.setTextColor(col(match)) end
            term.write(match)
            term.setTextColor(colors[theme.textColor])
            return line:sub(match:len() + 1, -1)
        end
        return nil
    end

    local function writeHighlighted(line)
        if curLanguage == languages.lua then
            while line:len() > 0 do
                line = attemptToHighlight(line, "^%-%-%[%[.-%]%]", colors[theme.comment]) or
                    attemptToHighlight(line, "^%-%-.*", colors[theme.comment]) or
                    attemptToHighlight(line, "^\".*[^\\]\"", colors[theme.string]) or
                    attemptToHighlight(line, "^\'.*[^\\]\'", colors[theme.string]) or
                    attemptToHighlight(line, "^%[%[.-%]%]", colors[theme.string]) or
                    attemptToHighlight(line, "^[%w_]+", function(match)
                        if curLanguage.keywords[match] then
                            return colors[theme[curLanguage.keywords[match]]]
                        end
                        return colors[theme.textColor]
                    end) or
                    attemptToHighlight(line, "^[^%w_]", colors[theme.textColor])
            end
        else term.write(line) end
    end

    local function draw()
        -- Menu
        term.setTextColor(colors[theme.textColor])
        term.setBackgroundColor(colors[theme.editorBackground])
        term.clear()
        drawMenu()

        -- Line numbers
        offx, offy = tostring(#lines):len() + 1, 1
        edw, edh = w - offx, h - 1

        -- Draw text
        for i = 1, edh do
            local a = lines[scrolly + i]
            if a then
                local ln = string.rep(" ", offx - 1 - tostring(scrolly + i):len()) .. tostring(scrolly + i)
                local l = a:sub(scrollx + 1, edw + scrollx + 1)
                ln = ln .. ":"

                if liveErr.line == scrolly + i then ln = string.rep(" ", offx - 2) .. "!:" end

                term.setCursorPos(1, i + offy)
                term.setBackgroundColor(colors[theme.editorBackground])
                if scrolly + i == y then
                    if scrolly + i == liveErr.line and os.clock() - lastEventClock > 3 then
                        term.setBackgroundColor(colors[theme.editorErrorHighlight])
                    else term.setBackgroundColor(colors[theme.editorLineHightlight]) end
                    term.clearLine()
                elseif scrolly + i == liveErr.line then
                    term.setBackgroundColor(colors[theme.editorError])
                    term.clearLine()
                end

                term.setCursorPos(1 - scrollx + offx, i + offy)
                if scrolly + i == y then
                    if scrolly + i == liveErr.line and os.clock() - lastEventClock > 3 then
                        term.setBackgroundColor(colors[theme.editorErrorHighlight])
                    else term.setBackgroundColor(colors[theme.editorLineHightlight]) end
                elseif scrolly + i == liveErr.line then term.setBackgroundColor(colors[theme.editorError])
                else term.setBackgroundColor(colors[theme.editorBackground]) end
                if scrolly + i == liveErr.line then
                    if displayCode then term.write(a)
                    else term.write(liveErr.display) end
                else writeHighlighted(a) end

                term.setCursorPos(1, i + offy)
                if scrolly + i == y then
                    if scrolly + i == liveErr.line and os.clock() - lastEventClock > 3 then
                        term.setBackgroundColor(colors[theme.editorError])
                    else term.setBackgroundColor(colors[theme.editorLineNumbersHighlight]) end
                elseif scrolly + i == liveErr.line then
                    term.setBackgroundColor(colors[theme.editorErrorHighlight])
                else term.setBackgroundColor(colors[theme.editorLineNumbers]) end
                term.write(ln)
            end
        end
        term.setCursorPos(x - scrollx + offx, y - scrolly + offy)
    end

    local function drawLine(...)
        local ls = {...}
        offx = tostring(#lines):len() + 1
        for _, ly in pairs(ls) do
            local a = lines[ly]
            if a then
                local ln = string.rep(" ", offx - 1 - tostring(ly):len()) .. tostring(ly)
                local l = a:sub(scrollx + 1, edw + scrollx + 1)
                ln = ln .. ":"

                if liveErr.line == ly then ln = string.rep(" ", offx - 2) .. "!:" end

                term.setCursorPos(1, (ly - scrolly) + offy)
                term.setBackgroundColor(colors[theme.editorBackground])
                if ly == y then
                    if ly == liveErr.line and os.clock() - lastEventClock > 3 then
                        term.setBackgroundColor(colors[theme.editorErrorHighlight])
                    else term.setBackgroundColor(colors[theme.editorLineHightlight]) end
                elseif ly == liveErr.line then
                    term.setBackgroundColor(colors[theme.editorError])
                end
                term.clearLine()

                term.setCursorPos(1 - scrollx + offx, (ly - scrolly) + offy)
                if ly == y then
                    if ly == liveErr.line and os.clock() - lastEventClock > 3 then
                        term.setBackgroundColor(colors[theme.editorErrorHighlight])
                    else term.setBackgroundColor(colors[theme.editorLineHightlight]) end
                elseif ly == liveErr.line then term.setBackgroundColor(colors[theme.editorError])
                else term.setBackgroundColor(colors[theme.editorBackground]) end
                if ly == liveErr.line then
                    if displayCode then term.write(a)
                    else term.write(liveErr.display) end
                else writeHighlighted(a) end

                term.setCursorPos(1, (ly - scrolly) + offy)
                if ly == y then
                    if ly == liveErr.line and os.clock() - lastEventClock > 3 then
                        term.setBackgroundColor(colors[theme.editorError])
                    else term.setBackgroundColor(colors[theme.editorLineNumbersHighlight]) end
                elseif ly == liveErr.line then
                    term.setBackgroundColor(colors[theme.editorErrorHighlight])
                else term.setBackgroundColor(colors[theme.editorLineNumbers]) end
                term.write(ln)
            end
        end
        term.setCursorPos(x - scrollx + offx, y - scrolly + offy)
    end

    local function cursorLoc(x, y, force)
        local sx, sy = x - scrollx, y - scrolly
        local redraw = false
        if sx < 1 then
            scrollx = x - 1
            sx = 1
            redraw = true
        elseif sx > edw then
            scrollx = x - edw
            sx = edw
            redraw = true
        end if sy < 1 then
            scrolly = y - 1
            sy = 1
            redraw = true
        elseif sy > edh then
            scrolly = y - edh
            sy = edh
            redraw = true
        end if redraw or force then draw() end
        term.setCursorPos(sx + offx, sy + offy)
    end

    local function executeMenuItem(a, path)
        if type(a) == "string" and menuFunctions[a] then
            local opt, nl, gtln = menuFunctions[a](path, lines, y)
            if type(opt) == "string" then term.setCursorBlink(false) return opt end
            if type(nl) == "table" then
                if #lines < 1 then table.insert(lines, "") end
                y = math.min(y, #lines)
                x = math.min(x, lines[y]:len() + 1)
                lines = nl
            elseif type(nl) == "string" then
                if nl == "go to" and gtln then
                    x, y = 1, math.min(#lines, gtln)
                    cursorLoc(x, y)
                end
            end
        end
        term.setCursorBlink(true)
        draw()
        term.setCursorPos(x - scrollx + offx, y - scrolly + offy)
    end

    local function edit(path)
        -- Variables
        x, y = 1, 1
        offx, offy = 0, 1
        scrollx, scrolly = 0, 0
        lines = loadFile(path)
        if not lines then return "menu" end

        -- Enable brainfuck
        if lines[1] == "-- Syntax: Brainfuck" then
            curLanguage = languages.brainfuck
        end

        -- Clocks
        local autosaveClock = os.clock()
        local scrollClock = os.clock() -- To prevent redraw flicker
        local liveErrorClock = os.clock()
        local hasScrolled = false

        -- Draw
        draw()
        term.setCursorPos(x + offx, y + offy)
        term.setCursorBlink(true)

        -- Main loop
        local tid = os.startTimer(3)
        while true do
            local e, key, cx, cy = os.pullEvent()
            if e == "key" and allowEditorEvent then
                if key == 200 and y > 1 then
                    -- Up
                    x, y = math.min(x, lines[y - 1]:len() + 1), y - 1
                    drawLine(y, y + 1)
                    cursorLoc(x, y)
                elseif key == 208 and y < #lines then
                    -- Down
                    x, y = math.min(x, lines[y + 1]:len() + 1), y + 1
                    drawLine(y, y - 1)
                    cursorLoc(x, y)
                elseif key == 203 and x > 1 then
                    -- Left
                    x = x - 1
                    local force = false
                    if y - scrolly + offy < offy + 1 then force = true end
                    cursorLoc(x, y, force)
                elseif key == 205 and x < lines[y]:len() + 1 then
                    -- Right
                    x = x + 1
                    local force = false
                    if y - scrolly + offy < offy + 1 then force = true end
                    cursorLoc(x, y, force)
                elseif (key == 28 or key == 156) and (displayCode and true or y + scrolly - 1 ==
                        liveErr.line) then
                    -- Enter
                    local f = nil
                    for _, v in pairs(standardsCompletions) do
                        if lines[y]:find(v) then f = v end
                    end

                    local _, spaces = lines[y]:find("^[ ]+")
                    if not spaces then spaces = 0 end
                    if f then
                        table.insert(lines, y + 1, string.rep(" ", spaces + 2))
                        if not f:find("else", 1, true) and not f:find("elseif", 1, true) then
                            table.insert(lines, y + 2, string.rep(" ", spaces) ..
                                (f:find("repeat", 1, true) and "until " or f:find("{", 1, true) and "}" or
                                "end"))
                        end
                        x, y = spaces + 3, y + 1
                        cursorLoc(x, y, true)
                    else
                        local oldLine = lines[y]

                        lines[y] = lines[y]:sub(1, x - 1)
                        table.insert(lines, y + 1, string.rep(" ", spaces) .. oldLine:sub(x, -1))

                        x, y = spaces + 1, y + 1
                        cursorLoc(x, y, true)
                    end
                elseif key == 14 and (displayCode and true or y + scrolly - 1 == liveErr.line) then
                    -- Backspace
                    if x > 1 then
                        local f = false
                        for k, v in pairs(liveCompletions) do
                            if lines[y]:sub(x - 1, x - 1) == k then f = true end
                        end

                        lines[y] = lines[y]:sub(1, x - 2) .. lines[y]:sub(x + (f and 1 or 0), -1)
                        drawLine(y)
                        x = x - 1
                        cursorLoc(x, y)
                    elseif y > 1 then
                        local prevLen = lines[y - 1]:len() + 1
                        lines[y - 1] = lines[y - 1] .. lines[y]
                        table.remove(lines, y)
                        x, y = prevLen, y - 1
                        cursorLoc(x, y, true)
                    end
                elseif key == 199 then
                    -- Home
                    x = 1
                    local force = false
                    if y - scrolly + offy < offy + 1 then force = true end
                    cursorLoc(x, y, force)
                elseif key == 207 then
                    -- End
                    x = lines[y]:len() + 1
                    local force = false
                    if y - scrolly + offy < offy + 1 then force = true end
                    cursorLoc(x, y, force)
                elseif key == 211 and (displayCode and true or y + scrolly - 1 == liveErr.line) then
                    -- Forward Delete
                    if x < lines[y]:len() + 1 then
                        lines[y] = lines[y]:sub(1, x - 1) .. lines[y]:sub(x + 1)
                        local force = false
                        if y - scrolly + offy < offy + 1 then force = true end
                        drawLine(y)
                        cursorLoc(x, y, force)
                    elseif y < #lines then
                        lines[y] = lines[y] .. lines[y + 1]
                        table.remove(lines, y + 1)
                        draw()
                        cursorLoc(x, y)
                    end
                elseif key == 15 and (displayCode and true or y + scrolly - 1 == liveErr.line) then
                    -- Tab
                    lines[y] = string.rep(" ", tabWidth) .. lines[y]
                    x = x + 2
                    local force = false
                    if y - scrolly + offy < offy + 1 then force = true end
                    drawLine(y)
                    cursorLoc(x, y, force)
                elseif key == 201 then
                    -- Page up
                    y = math.min(math.max(y - edh, 1), #lines)
                    x = math.min(lines[y]:len() + 1, x)
                    cursorLoc(x, y, true)
                elseif key == 209 then
                    -- Page down
                    y = math.min(math.max(y + edh, 1), #lines)
                    x = math.min(lines[y]:len() + 1, x)
                    cursorLoc(x, y, true)
                end
            elseif e == "char" and allowEditorEvent and (displayCode and true or
                    y + scrolly - 1 == liveErr.line) then
                local shouldIgnore = false
                for k, v in pairs(liveCompletions) do
                    if key == v and lines[y]:find(k, 1, true) and lines[y]:sub(x, x) == v then
                        shouldIgnore = true
                    end
                end

                local addOne = false
                if not shouldIgnore then
                    for k, v in pairs(liveCompletions) do
                        if key == k and lines[y]:sub(x, x) ~= k then key = key .. v addOne = true end
                    end
                    lines[y] = lines[y]:sub(1, x - 1) .. key .. lines[y]:sub(x, -1)
                end

                x = x + (addOne and 1 or key:len())
                local force = false
                if y - scrolly + offy < offy + 1 then force = true end
                drawLine(y)
                cursorLoc(x, y, force)
            elseif e == "mouse_click" and key == 1 then
                if cy > 1 then
                    if cx <= offx and cy - offy == liveErr.line - scrolly then
                        displayCode = not displayCode
                        drawLine(liveErr.line)
                    else
                        local oldy = y
                        y = math.min(math.max(scrolly + cy - offy, 1), #lines)
                        x = math.min(math.max(scrollx + cx - offx, 1), lines[y]:len() + 1)
                        if oldy ~= y then drawLine(oldy, y) end
                        cursorLoc(x, y)
                    end
                else
                    local a = triggerMenu(cx, cy)
                    if a then
                        local opt = executeMenuItem(a, path)
                        if opt then return opt end
                    end
                end
            elseif e == "shortcut" then
                local a = shortcuts[key .. " " .. cx]
                if a then
                    local parent = nil
                    local curx = 0
                    for i, mv in ipairs(menu) do
                        for _, iv in pairs(mv) do
                            if iv == a then
                                parent = menu[i][1]
                                break
                            end
                        end
                        if parent then break end
                        curx = curx + mv[1]:len() + 3
                    end
                    local menux = curx + 2

                    -- Flash menu item
                    term.setCursorBlink(false)
                    term.setCursorPos(menux, 1)
                    term.setBackgroundColor(colors[theme.background])
                    term.write(string.rep(" ", parent:len() + 2))
                    term.setCursorPos(menux + 1, 1)
                    term.write(parent)
                    sleep(0.1)
                    drawMenu()

                    -- Execute item
                    local opt = executeMenuItem(a, path)
                    if opt then return opt end
                end
            elseif e == "mouse_scroll" then
                if key == -1 and scrolly > 0 then
                    scrolly = scrolly - 1
                    if os.clock() - scrollClock > 0.0005 then
                        draw()
                        term.setCursorPos(x - scrollx + offx, y - scrolly + offy)
                    end
                    scrollClock = os.clock()
                    hasScrolled = true
                elseif key == 1 and scrolly < #lines - edh then
                    scrolly = scrolly + 1
                    if os.clock() - scrollClock > 0.0005 then
                        draw()
                        term.setCursorPos(x - scrollx + offx, y - scrolly + offy)
                    end
                    scrollClock = os.clock()
                    hasScrolled = true
                end
            elseif e == "timer" and key == tid then
                drawLine(y)
                tid = os.startTimer(3)
            end

            -- Draw
            if hasScrolled and os.clock() - scrollClock > 0.1 then
                draw()
                term.setCursorPos(x - scrollx + offx, y - scrolly + offy)
                hasScrolled = false
            end

            -- Autosave
            if os.clock() - autosaveClock > autosaveInterval then
                saveFile(path, lines)
                autosaveClock = os.clock()
            end

            -- Errors
            if os.clock() - liveErrorClock > 1 then
                local prevLiveErr = liveErr
                liveErr = curLanguage.parseError(nil)
                local code = ""
                for _, v in pairs(lines) do code = code .. v .. "\n" end

                liveErr = curLanguage.getCompilerErrors(code)
                liveErr.line = math.min(liveErr.line - 2, #lines)
                if liveErr ~= prevLiveErr then draw() end
                liveErrorClock = os.clock()
            end
        end

        return "menu"
    end


    --  -------- Open File

    local function newFile()
        local wid = w - 13

        -- Get name
        title("Lua IDE - New File")
        local name = centerRead(wid, "/")
        if not name or name == "" then return "menu" end
        name = "/" .. name

        -- Clear
        title("Lua IDE - New File")
        term.setTextColor(colors[theme.textColor])
        term.setBackgroundColor(colors[theme.promptHighlight])
        for i = 8, 10 do
            term.setCursorPos(w/2 - wid/2, i)
            term.write(string.rep(" ", wid))
        end
        term.setCursorPos(1, 9)
        if fs.isDir(name) then
            centerPrint("Cannot Edit a Directory!")
            sleep(1.6)
            return "menu"
        elseif fs.exists(name) then
            centerPrint("File Already Exists!")
            local opt = prompt({{"Open", w/2 - 9, 14}, {"Cancel", w/2 + 2, 14}}, "horizontal")
            if opt == "Open" then return "edit", name
            elseif opt == "Cancel" then return "menu" end
        else return "edit", name end
    end

    local function openFile()
        local wid = w - 13

        -- Get name
        title("Lua IDE - Open File")
        local name = centerRead(wid, "/")
        if not name or name == "" then return "menu" end
        name = "/" .. name

        -- Clear
        title("Lua IDE - New File")
        term.setTextColor(colors[theme.textColor])
        term.setBackgroundColor(colors[theme.promptHighlight])
        for i = 8, 10 do
            term.setCursorPos(w/2 - wid/2, i)
            term.write(string.rep(" ", wid))
        end
        term.setCursorPos(1, 9)
        if fs.isDir(name) then
            centerPrint("Cannot Open a Directory!")
            sleep(1.6)
            return "menu"
        elseif not fs.exists(name) then
            centerPrint("File Doesn't Exist!")
            local opt = prompt({{"Create", w/2 - 11, 14}, {"Cancel", w/2 + 2, 14}}, "horizontal")
            if opt == "Create" then return "edit", name
            elseif opt == "Cancel" then return "menu" end
        else return "edit", name end
    end


    --  -------- Settings

    local function update()
        local function draw(status)
            title("LuaIDE - Update")
            term.setBackgroundColor(colors[theme.prompt])
            term.setTextColor(colors[theme.textColor])
            for i = 8, 10 do
                term.setCursorPos(w/2 - (status:len() + 4), i)
                write(string.rep(" ", status:len() + 4))
            end
            term.setCursorPos(w/2 - (status:len() + 4), 9)
            term.write(" - " .. status .. " ")

            term.setBackgroundColor(colors[theme.errHighlight])
            for i = 8, 10 do
                term.setCursorPos(w/2 + 2, i)
                term.write(string.rep(" ", 10))
            end
            term.setCursorPos(w/2 + 2, 9)
            term.write(" > Cancel ")
        end

        if not http then
            draw("HTTP API Disabled!")
            sleep(1.6)
            return "settings"
        end

        draw("Updating...")
        local tID = os.startTimer(10)
        http.request(updateURL)
        while true do
            local e, but, x, y = os.pullEvent()
            if (e == "key" and but == 28) or
                    (e == "mouse_click" and x >= w/2 + 2 and x <= w/2 + 12 and y == 9) then
                draw("Cancelled")
                sleep(1.6)
                break
            elseif e == "http_success" and but == updateURL then
                local new = x.readAll()
                local curf = io.open(ideLocation, "r")
                local cur = curf:read("*a")
                curf:close()

                if cur ~= new then
                    draw("Update Found")
                    sleep(1.6)
                    local f = io.open(ideLocation, "w")
                    f:write(new)
                    f:close()

                    draw("Click to Exit")
                    while true do
                        local e = os.pullEvent()
                        if e == "mouse_click" or (not isAdvanced() and e == "key") then break end
                    end
                    return "exit"
                else
                    draw("No Updates Found!")
                    sleep(1.6)
                    break
                end
            elseif e == "http_failure" or (e == "timer" and but == tID) then
                draw("Update Failed!")
                sleep(1.6)
                break
            end
        end

        return "settings"
    end

    local function changeTheme()
        title("LuaIDE - Theme")

        if isAdvanced() then
            local disThemes = {"Back"}
            for _, v in pairs(availableThemes) do table.insert(disThemes, v[1]) end
            local t = scrollingPrompt(disThemes)
            local url = nil
            for _, v in pairs(availableThemes) do if v[1] == t then url = v[2] end end

            if not url then return "settings" end
            if t == "Dawn (Default)" then
                term.setBackgroundColor(colors[theme.backgroundHighlight])
                term.setCursorPos(3, 3)
                term.clearLine()
                term.write("LuaIDE - Loaded Theme!")
                sleep(1.6)

                fs.delete(themeLocation)
                theme = defaultTheme
                return "menu"
            end

            term.setBackgroundColor(colors[theme.backgroundHighlight])
            term.setCursorPos(3, 3)
            term.clearLine()
            term.write("LuaIDE - Downloading...")

            fs.delete("/.LuaIDE_temp_theme_file")
            download(url, "/.LuaIDE_temp_theme_file")
            local a = loadTheme("/.LuaIDE_temp_theme_file")

            term.setCursorPos(3, 3)
            term.clearLine()
            if a then
                term.write("LuaIDE - Loaded Theme!")
                fs.delete(themeLocation)
                fs.move("/.LuaIDE_temp_theme_file", themeLocation)
                theme = a
                sleep(1.6)
                return "menu"
            end

            term.write("LuaIDE - Could Not Load Theme!")
            fs.delete("/.LuaIDE_temp_theme_file")
            sleep(1.6)
            return "settings"
        else
            term.setCursorPos(1, 8)
            centerPrint("Themes are not available on")
            centerPrint("normal computers!")
        end
    end

    local function settings()
        title("LuaIDE - Settings")

        local opt = prompt({{"Change Theme", w/2 - 17, 8}, {"Return to Menu", w/2 - 22, 13},
            {"Check for Updates", w/2 + 2, 8}, {"Exit IDE", w/2 + 2, 13, bg = colors[theme.err],
            highlight = colors[theme.errHighlight]}}, "vertical", true)
        if opt == "Change Theme" then return changeTheme()
        elseif opt == "Check for Updates" then return update()
        elseif opt == "Return to Menu" then return "menu"
        elseif opt == "Exit IDE" then return "exit" end
    end


    --  -------- Menu

    local function menu()
        title("Welcome to LuaIDE " .. version)

        local opt = prompt({{"New File", w/2 - 13, 8}, {"Open File", w/2 - 14, 13},
            {"Settings", w/2 + 2, 8}, {"Exit IDE", w/2 + 2, 13, bg = colors[theme.err],
            highlight = colors[theme.errHighlight]}}, "vertical", true)
        if opt == "New File" then return "new"
        elseif opt == "Open File" then return "open"
        elseif opt == "Settings" then return "settings"
        elseif opt == "Exit IDE" then return "exit" end
    end


    --  -------- Main

    local function main(arguments)
        local opt, data = "menu", nil

        -- Check arguments
        if type(arguments) == "table" and #arguments > 0 then
            local f = "/" .. shell.resolve(arguments[1])
            if fs.isDir(f) then print("Cannot edit a directory.") end
            opt, data = "edit", f
        end

        -- Main run loop
        while true do
            -- Menu
            if opt == "menu" then opt = menu() end

            -- Other
            if opt == "new" then opt, data = newFile()
            elseif opt == "open" then opt, data = openFile()
            elseif opt == "settings" then opt = settings()
            end if opt == "exit" then break end

            -- Edit
            if opt == "edit" and data then opt = edit(data) end
        end
    end

    -- Load Theme
    if fs.exists(themeLocation) then theme = loadTheme(themeLocation) end
    if not theme and isAdvanced() then theme = defaultTheme
    elseif not theme then theme = normalTheme end

    -- Run
    local _, err = pcall(function()
        parallel.waitForAny(function() main(args) end, monitorKeyboardShortcuts)
    end)

    -- Catch errors
    if err and not err:find("Terminated") then
        term.setCursorBlink(false)
        title("LuaIDE - Crash! D:")

        term.setBackgroundColor(colors[theme.err])
        for i = 6, 8 do
            term.setCursorPos(5, i)
            term.write(string.rep(" ", 36))
        end
        term.setCursorPos(6, 7)
        term.write("LuaIDE Has Crashed! D:")

        term.setBackgroundColor(colors[theme.background])
        term.setCursorPos(2, 10)
        print(err)

        term.setBackgroundColor(colors[theme.prompt])
        local _, cy = term.getCursorPos()
        for i = cy + 1, cy + 4 do
            term.setCursorPos(5, i)
            term.write(string.rep(" ", 36))
        end
        term.setCursorPos(6, cy + 2)
        term.write("Please report this error to")
        term.setCursorPos(6, cy + 3)
        term.write("GravityScore! ")

        term.setBackgroundColor(colors[theme.background])
        if isAdvanced() then centerPrint("Click to Exit...", h - 1)
        else centerPrint("Press Any Key to Exit...", h - 1) end
        while true do
            local e = os.pullEvent()
            if e == "mouse_click" or (not isAdvanced() and e == "key") then break end
        end

        -- Prevent key from being shown
        os.queueEvent(event_distract)
        os.pullEvent()
    end

    -- Exit
    term.setBackgroundColor(colors.black)
    term.setTextColor(colors.white)
    term.clear()
    term.setCursorPos(1, 1)
    centerPrint("Thank You for Using Lua IDE " .. version)
    centerPrint("Made by GravityScore")
    sleep(1)
    home()
end

main()