Nova OS Installer [clone] by awsumben13

--[[type="executable_package", name="n"]]
local files = {["App"]={content="\
\
App.public \"name\"\
App.public.name.write = false\
App.public \"session\"\
App.public.session.write = false\
App.public \"runmode\"\
App.public.runmode.write = false\
App.public \"conf\"\
App.public.conf.write = false\
App.public \"icon\"\
App.public.icon.write = false\
App.public \"installpath\"\
App.public.installpath.write = false\
App.public \"single\"\
App.public.single.write = false\
\
function App:App( session, path )\
    local readfile\
    if filesystem.isDirectory( path ) then\
        function readfile( p )\
            local data = filesystem.readfile( path .. \"/\" .. p )\
            if data then\
                return data.content\
            end\
        end\
    elseif filesystem.exists( path ) and filesystem.getType( path ) == \"archive\" then\
        return false, \"cannot load apps from archives just now...\"\
        -- read from an archive\
    elseif filesystem.exists( path ) then\
        function readfile( p )\
            if p == \"main.lua\" then\
                local data = filesystem.readfile( path )\
                if data then\
                    return data.content\
                end\
            else\
                return false\
            end\
        end\
    else\
        return false, \"app not found\"\
    end\
\
    self.single = false\
\
    self.readfile = readfile\
    self.installpath = path\
\
    self.name = filesystem.getName( path, true )\
    local conf = readfile \"appconfig.txt\"\
    if conf then\
        conf = textutils.unserialize( \"{\" .. conf .. \"}\" ) or { }\
    else\
        conf = { }\
    end\
    if type( conf.name ) == \"string\" then\
        self.name = name\
    end\
    self.conf = conf\
    if not readfile \"main.lua\" then\
        return false, \"no main file\"\
    end\
\
    if type( conf.handles ) == \"table\" then\
        for i = 1, #conf.handles do\
            filesystem.addHandler( conf.handles[i], self.name )\
        end\
    end\
    if type( conf.filetypes ) == \"table\" then\
        for k, v in pairs( conf.filetypes ) do\
            filesystem.addTypeDescription( k, v )\
        end\
    end\
    if type( conf.extensions ) == \"table\" then\
        for k, v in pairs( conf.extensions ) do\
            filesystem.addExtension( k, v )\
        end\
    end\
    if conf.runmode == \"compatibility\" then\
        self.runmode = \"compatibility\"\
    elseif conf.runmode == \"single\" then\
        self.single = true\
        self.runmode = \"normal\"\
    else\
        self.runmode = \"normal\"\
    end\
\
    self.session = session\
\
    if type( conf.services ) == \"table\" then\
        for i = 1, #conf.services do\
            local content = readfile( conf.services[i] .. \".lua\" )\
            if content then\
                local f, err = loadstring( content, conf.services[i] )\
                if f then\
                    session:newThread( Thread( function( )\
                        local instance = session:launchBackground( self.name, { } )\
                        if instance then\
                            instance:newThread( Thread( f ) )\
                        end\
                    end ) )\
                else\
                    core.log( \"Service error\", self.name, core.services[i], err )\
                end\
            else\
                core.log( \"Service not found\", self.name, conf.services[i] )\
            end\
        end\
    end\
\
    local icon = readfile \"icon.nim\"\
    if icon then\
        self.icon = Image( 9, 3 )\
        self.icon:loadstr( icon )\
        self.icon:resize( 9, 3, 1, 1, \" \" )\
    end\
\
    return self.public\
end\
\
function App.public:launch( args, noGUI )\
    return AppInstance( self.public, self.session, args, noGUI )\
end\
\
function App.public:readFile( path )\
    return self.readfile( path )\
end", meta={
  type = "class",
}};["Thread"]={content="\
\
local threads = { }\
\
Thread.public \"environment\"\
function Thread.public.environment:read( )\
    return self.env\
end\
function Thread.public.environment:write( value )\
    if type( value ) ~= \"table\" then\
        error( \"expected table\", 3 )\
    end\
    self.env = value\
end\
\
Thread.public \"onException\" \"function\"\
Thread.public \"onFinish\" \"function\"\
\
function Thread:Thread( thread )\
    self.state = \"running\"\
    self.thread = thread\
    self.env = setmetatable( { wait = coroutine.yield, thread = self.public }, { __index = getfenv( ) } )\
    setfenv( self.thread, setmetatable( { }, { __index = function( _, k ) return self.env[k] end, __newindex = function( _, k, v ) self.env[k] = v end } ) )\
    self.co = coroutine.create( thread )\
\
    table.insert( threads, self.public )\
\
    return self.public\
end\
\
function Thread.public:pause( )\
    if self.state == \"running\" then\
        self.state = \"paused\"\
        return true\
    end\
    return false\
end\
\
function Thread.public:resume( )\
    if self.state == \"paused\" then\
        self.state = \"running\"\
        return true\
    end\
    return false\
end\
\
function Thread.public:restart( )\
    self.co = coroutine.create( self.thread )\
    self.state = \"running\"\
end\
\
function Thread.public:stop( )\
    self.state = \"stopped\"\
end\
\
function Thread.public:isRunning( )\
    return self.state == \"running\"\
end\
\
function Thread.public:isPaused( )\
    return self.state == \"paused\"\
end\
\
function Thread.public:update( args )\
    if self.state == \"stopped\" then\
        return false, \"finished\"\
    end\
    if self.state ~= \"running\" then\
        return false, \"not running\"\
    end\
    local ok, data = coroutine.resume( self.co, unpack( args ) )\
    if not ok then\
        self.state = \"stopped\"\
        if type( self.onException ) == \"function\" then\
            pcall( self.onException, self.public, data )\
        end\
        if self.state == \"stopped\" then\
            return false, \"finished\"\
        end\
        return false, \"errored\"\
    end\
    if coroutine.status( self.co ) == \"dead\" then -- give it a chance to restart\
        if type( self.onFinish ) == \"function\" then\
            pcall( self.onFinish, self.public )\
        end\
    end\
    if coroutine.status( self.co ) == \"dead\" then\
        self.state = \"stopped\"\
        return false, \"finished\"\
    end\
    return true, data\
end\
\
function Thread.static.update( args )\
    for i = #threads, 1, -1 do\
        local ok, data = threads[i]:update( args )\
        if not ok and data == \"finished\" then\
            table.remove( threads, i )\
        end\
    end\
end", meta={
  type = "class",
}};["UICode"]={content="\
\
require \"UIElement\"\
\
UICode:extends( UIElement )\
\
UICode.handlesKeys = true\
UICode.handlesScroll = true\
UICode.isScrollTarget = true\
UICode.handlesTab = true\
UICode.scrollDirection = \"vertical\"\
\
UICode.public \"showLines\" \"boolean\"\
UICode.public \"syntax\" \"table\"\
\
UICode.public \"onChange\" \"function\"\
UICode.public \"onCtrlKey\" \"function\"\
\
UICode.public \"selected\"\
UICode.public.selected.write = false\
function UICode.public.selected:read( )\
    return not not self.selection\
end\
\
function UICode:UICode( x, y, w, h, syntax )\
    self:UIElement( x, y, w, h )\
\
    self.showLines = true\
    self.lineWidth = 4\
    self.linechars = { }\
\
    self.selection = false\
\
    self.scrollx = 0\
    self.scrolly = 0\
    self.cursorx = 1\
    self.cursory = 1\
\
    self.lastclick = false\
\
    self.syntax = syntax or {\
        default = { bc = colours.white, tc = colours.black };\
        words = { };\
        blocks = { };\
        linen = { bc = colours.grey, tc = colours.white };\
        string = { tc = colours.lightGrey };\
        symbols = { };\
        selection = { bc = colours.blue, tc = colours.white };\
    }\
\
    self.lines = { \"\" }\
    self.characters = { }\
\
    return self.public\
end\
\
function UICode.public:updateCharacters( )\
    self.linechars = { [1] = 1 }\
    local str = table.concat( self.lines, \"\\n\" )\
    local characters = { }\
    local line = 1\
    local pos = 1\
    local done = true\
    local function nextC( )\
        local char = str:sub( pos, pos )\
        pos = pos + 1\
        done = false\
        return char\
    end\
    local function setC( colour, char, d )\
        if done and not d then return end\
        if char == \"\\n\" then\
            done = true\
            line = line + 1\
            -- self.linechars[line] = pos\
            return\
        end\
        if #char == 0 then return end\
        done = true\
        table.insert( characters, { colour = colour, char = char, line = line } )\
    end\
    while pos <= #str do\
        local c = nextC( )\
        if c == \"\\\"\" then\
            setC( self.syntax.string, c )\
            local escape = false\
            for i = pos, #str do\
                c = nextC( )\
                if escape then\
                    setC( self.syntax.string.escape or self.syntax.string, c )\
                    escape = false\
                else\
                    if c == \"\\\\\" then\
                        setC( self.syntax.string.escape or self.syntax.string, c )\
                        escape = true\
                    elseif c == \"\\\"\" then\
                        setC( self.syntax.string, c )\
                        break\
                    else\
                        setC( self.syntax.string, c )\
                    end\
                end\
            end\
        elseif c:find \"[abcdefghijklmnoparstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_%.]\" then\
            local word = c\
            c = nextC( )\
            while c:find \"[%w_%.]\" do\
                word = word .. c\
                c = nextC( )\
            end\
            for i = 1, #word do\
                if self.syntax.words[word] then\
                    setC( self.syntax.words[word], word:sub( i, i ), true )\
                else\
                    setC( self.syntax.default, word:sub( i, i ), true )\
                end\
            end\
            done = false\
        elseif self.syntax.symbols[c] then\
            setC( self.syntax.symbols[c], c )\
        end\
        if not done then\
            for i = 1, #self.syntax.blocks do\
                if c == self.syntax.blocks[i].start:sub( 1, 1 ) then\
                    if str:sub( pos, pos + #self.syntax.blocks[i].start - 2 ) == self.syntax.blocks[i].start:sub( 2 ) then\
                        local block = self.syntax.blocks[i]\
                        setC( block, c )\
                        for i = 1, #block.start - 1 do\
                            c = nextC( )\
                            setC( block, c )\
                        end\
                        while #c > 0 do\
                            if str:sub( pos, pos + #block.finish - 1 ) == block.finish then\
                                for i = 1, #block.finish do\
                                    c = nextC( )\
                                    setC( block, c )\
                                end\
                                break\
                            end\
                            c = nextC( )\
                            setC( block, c )\
                        end\
                        break\
                    end\
                end\
            end\
        end\
        setC( self.syntax.default, c )\
    end\
    self.characters = characters\
    if self.showLines then\
        self.lineWidth = math.floor( math.log( #self.lines ) / math.log( 10 ) ) + 4\
    else\
        self.lineWidth = 0\
    end\
end\
\
function UICode.public:update( dt )\
    if self.cursory > #self.lines then\
        self.cursory = #self.lines\
    end\
    if self.cursorx > #( self.lines[self.cursory] or \"\" ) + 1 then\
        self.cursorx = #( self.lines[self.cursory] or \"\" ) + 1\
    end\
    local c = { }\
    for i, child in ipairs( self.children ) do\
        c[i] = child\
    end\
    for i, child in ipairs( c ) do\
        child:update( dt )\
    end\
end\
\
local tabsize = 4\
\
function UICode.public:draw( x, y )\
    local layer = stencil.addLayer( x, y, self.w, self.h )\
    local characters = self.characters\
    stencil.rectangle( x, y, self.w, self.h, self.syntax.default.bc, self.syntax.default.tc, \" \" )\
    if self.showLines then\
        for i = 1, self.h do\
            if i + self.scrolly <= #self.lines then\
                local n = tostring( i + self.scrolly )\
                stencil.textLine( x, y + i - 1, self.syntax.linen.bc, self.syntax.linen.tc, (\" \"):rep( self.lineWidth - 2 - #n ) .. n .. \" \" )\
            else\
                stencil.textLine( x, y + i - 1, self.syntax.linen.bc, 1, (\" \"):rep( self.lineWidth - 1 ) )\
            end\
        end\
    end\
    local xx, yy, cx = 1, 1, 1\
    local tabthisline = true\
    local i = self.linechars[self.scrolly + 1] or 1\
    while i <= #characters do\
        if characters[i].line > yy then\
            xx = 1\
            cx = 1\
            yy = characters[i].line\
            tabthisline = true\
        end\
\
        local bc, tc = characters[i].colour.bc or self.syntax.default.bc, characters[i].colour.tc or self.syntax.default.tc\
        if self.cursory == characters[i].line then\
            bc = characters[i].colour.lbc or characters[i].colour.bc or self.syntax.default.lbc or self.syntax.default.bc\
            tc = characters[i].colour.ltc or characters[i].colour.tc or self.syntax.default.ltc or self.syntax.default.tc\
        end\
        if self.selection then\
            local ssx, ssy, sex, sey\
            if self.selection.y < self.cursory then\
                ssy = self.selection.y\
                ssx = self.selection.x\
                sey = self.cursory\
                sex = self.cursorx\
            elseif self.selection.y > self.cursory then\
                ssy = self.cursory\
                ssx = self.cursorx\
                sey = self.selection.y\
                sex = self.selection.x\
            else\
                ssy = self.selection.y\
                ssx = math.min( self.selection.x, self.cursorx )\
                sey = self.cursory\
                sex = math.max( self.selection.x, self.cursorx )\
            end\
            if yy == ssy then\
                if yy == sey then\
                    if cx >= ssx and cx <= sex then\
                        bc = self.syntax.selection.bc\
                        tc = self.syntax.selection.tc\
                    end\
                else\
                    if cx >= ssx then\
                        bc = self.syntax.selection.bc\
                        tc = self.syntax.selection.tc\
                    end\
                end\
            elseif yy == sey then\
                if cx <= sex then\
                    bc = self.syntax.selection.bc\
                    tc = self.syntax.selection.tc\
                end\
            elseif yy > ssy and yy < sey then\
                bc = self.syntax.selection.bc\
                tc = self.syntax.selection.tc\
            end\
        end\
        local rx = xx - self.scrollx\
        local ry = yy - self.scrolly\
        if rx >= 1 and rx <= self.w - self.lineWidth and ry >= 1 and ry <= self.h then\
            if characters[i].char ~= \" \" then\
                tabthisline = false\
                stencil.pixel( x + rx - 1 + self.lineWidth, y + ry - 1, bc, tc, characters[i].char )\
            else\
                for i = 1, ( tabsize - ( xx - 1 ) % tabsize ) - 1 do\
                    stencil.pixel( x + rx - 2 + self.lineWidth + i, y + ry - 1, bc, tc, \" \" )\
                end\
                if self.syntax.tab and tabthisline then\
                    stencil.pixel( x + rx - 2 + self.lineWidth + ( tabsize - ( xx - 1 ) % tabsize ), y + ry - 1, self.syntax.tab.bc or bc, self.syntax.tab.tc or tc, self.syntax.tab.char or \" \" )\
                else\
                    stencil.pixel( x + rx - 2 + self.lineWidth + ( tabsize - ( xx - 1 ) % tabsize ), y + ry - 1, bc, tc, \" \" )\
                end\
            end\
        end\
        if characters[i].char == \" \" then\
            xx = xx + ( tabsize - ( xx - 1 ) % tabsize )\
        else\
            xx = xx + 1\
        end\
        if ry > self.h then\
            break\
        end\
        cx = cx + 1\
        i = i + 1\
    end\
    if self.focussed and not self.selection then\
        local xx, yy = self:getCursorPos( )\
        stencil.setCursorBlink( x + xx - 1 + self.lineWidth, y + yy - 1, self.syntax.default.tc )\
    end\
    local c = { }\
    for i, child in ipairs( self.children ) do\
        c[i] = child\
    end\
    for i, child in ipairs( c ) do\
        child:draw( x + child.x - 1 + self.cx, y + child.y - 1 + self.cy )\
    end\
    stencil.closeLayer( layer )\
end\
\
function UICode:setCursorPos( x, y )\
    self.cursorx = x\
    self.cursory = y\
    local ry = self.cursory\
    local l = self.lines[self.cursory]\
    local rx = 0\
    for i = 1, self.cursorx - 1 do\
        if l:sub( i, i ) == \"  \" then\
            rx = rx + ( tabsize - rx % tabsize )\
        else\
            rx = rx + 1\
        end\
    end\
    rx = rx + 1\
    if ry <= self.scrolly then\
        self.scrolly = ry - 1\
    elseif ry >= self.scrolly + self.h then\
        self.scrolly = ry - self.h\
    end\
    if rx <= self.scrollx then\
        self.scrollx = rx - 1\
    elseif rx >= self.scrollx + ( self.w - self.lineWidth ) then\
        self.scrollx = rx - ( self.w - self.lineWidth )\
    end\
end\
\
function UICode:getCursorPos( )\
    local y = self.cursory - self.scrolly\
    local l = self.lines[self.cursory] or \"\"\
    local x = 0\
    for i = 1, self.cursorx - 1 do\
        if l:sub( i, i ) == \"  \" then\
            x = x + ( tabsize - x % tabsize )\
        else\
            x = x + 1\
        end\
    end\
    return x + 1 - self.scrollx, y\
end\
\
function UICode:coordsToCursor( x, y )\
    if x <= self.lineWidth then\
        return\
    end\
    x = x + self.scrollx - self.lineWidth\
    if self.lines[y+self.scrolly] then\
        local l = self.lines[y + self.scrolly]\
        local cx = 0\
        for i = 1, #l do\
            if l:sub( i, i ) == \"  \" then\
                cx = cx + ( tabsize - ( cx ) % tabsize )\
            else\
                cx = cx + 1\
            end\
            if cx >= x then\
                return i, y + self.scrolly\
            end\
        end\
        return #l + 1, y + self.scrolly\
    end\
    return #self.lines[#self.lines] + 1, #self.lines\
end\
\
function UICode:getSelectionBounds( )\
    local ssx, ssy, sex, sey\
    if self.selection.y < self.cursory then\
        ssy = self.selection.y\
        ssx = self.selection.x\
        sey = self.cursory\
        sex = self.cursorx\
    elseif self.selection.y > self.cursory then\
        ssy = self.cursory\
        ssx = self.cursorx\
        sey = self.selection.y\
        sex = self.selection.x\
    else\
        ssy = self.selection.y\
        ssx = math.min( self.selection.x, self.cursorx )\
        sey = self.cursory\
        sex = math.max( self.selection.x, self.cursorx )\
    end\
    return ssx, ssy, sex, sey\
end\
\
function UICode:write( str )\
    local cx, cy = self.cursorx, self.cursory\
    for i = 1, #str do\
        if str:sub( i, i ) == \"\\n\" then\
            cy = cy + 1\
            cx = 1\
            table.insert( self.lines, cy, \"\" )\
        else\
            self.lines[cy] = self.lines[cy]:sub( 1, cx - 1 ) .. str:sub( i, i ) .. self.lines[cy]:sub( cx )\
            cx = cx + 1\
        end\
    end\
    self:setCursorPos( cx, cy )\
end\
\
function UICode:setSelection( str )\
    local ssx, ssy, sex, sey = self:getSelectionBounds( )\
    local line_end = self.lines[sey]:sub( sex + 1 )\
    self.lines[ssy] = self.lines[ssy]:sub( 1, ssx - 1 )\
    self:setCursorPos( ssx, ssy )\
    for i = ssy + 1, sey do\
        table.remove( self.lines, ssy + 1 )\
    end\
    self:write( str .. line_end )\
    self:setCursorPos( self.cursorx - #line_end, self.cursory )\
    self.selection = false\
end\
\
function UICode.public:getSelection( str )\
    if self.selection then\
        local ssx, ssy, sex, sey = self:getSelectionBounds( )\
        if ssy == sey then\
            return self.lines[ssy]:sub( ssx, sex )\
        end\
        local selected = self.lines[ssy]:sub( ssx )\
        for i = ssy + 1, sey - 1 do\
            selected = selected .. \"\\n\" .. self.lines[i]\
        end\
        selected = selected .. \"\\n\" .. self.lines[sey]:sub( 1, sex )\
        return selected\
    end\
end\
\
function UICode.public:setSelection( str )\
    if self.selection then\
        self:setSelection( str )\
        self.public:updateCharacters( )\
    end\
end\
\
function UICode.public:write( str )\
    self:write( str )\
    self.public:updateCharacters( )\
end\
\
function UICode.public:onMouseClick( rx, ry, button )\
    if self.selection then\
        self.selection = false\
    end\
    local x, y = self:coordsToCursor( rx, ry )\
    if self.lastclick and self.lastclick.x == rx and self.lastclick.y == ry and os.clock( ) - self.lastclick.time <= 0.3 and button == 1 then\
        local bounds = { min = x, max = x }\
        local line = self.lines[y]\
        local c = line:sub( x, x )\
        if c:find \"%s\" then\
            for i = x - 1, 1, -1 do\
                if not line:sub( i, i ):find \"%s\" then\
                    break\
                end\
                bounds.min = i\
            end\
            for i = x + 1, #line do\
                if not line:sub( i, i ):find \"%s\" then\
                    break\
                end\
                bounds.max = i\
            end\
        elseif c:find \"[%w_]\" then\
            for i = x - 1, 1, -1 do\
                if not line:sub( i, i ):find \"[%w_]\" then\
                    break\
                end\
                bounds.min = i\
            end\
            for i = x + 1, #line do\
                if not line:sub( i, i ):find \"[%w_]\" then\
                    break\
                end\
                bounds.max = i\
            end\
        else\
            for i = x - 1, 1, -1 do\
                if line:sub( i, i ):find \"%s\" or line:sub( i, i ):find \"[%w_]\" then\
                    break\
                end\
                bounds.min = i\
            end\
            for i = x + 1, #line do\
                if line:sub( i, i ):find \"%s\" or line:sub( i, i ):find \"[%w_]\" then\
                    break\
                end\
                bounds.max = i\
            end\
        end\
        self.selection = { x = bounds.min, y = y }\
        self.cursorx = bounds.max\
        self.cursory = y\
        self.lastclick = false\
        return\
    elseif button == 1 then\
        self.lastclick = { x = rx, y = ry, time = os.clock( ) }\
    end\
    if x then\
        self:setCursorPos( x, y )\
    end\
end\
\
function UICode.public:onMouseDrag( rx, ry, cx, cy, button )\
    local x, y = self:coordsToCursor( rx, ry )\
    if x then\
        if not self.selection then\
            self.selection = { x = self.cursorx, y = self.cursory }\
        end\
        self:setCursorPos( x, y )\
    end\
end\
\
function UICode.public:onMouseScroll( rx, ry, dir )\
    if self.scrolly > 0 and dir == -1 then\
        self.scrolly = self.scrolly - 1\
    elseif self.scrolly < #self.lines - self.h and dir == 1 then\
        self.scrolly = self.scrolly + 1\
    end\
end\
\
function UICode.public:onKeyPress( key, lastkey )\
    if not self.focussed then\
        return\
    end\
    if lastkey == 29 then\
        if key == keys.c or key == keys.x or key == keys.b then\
            if key == keys.c then\
                if self.selection then\
                    clipboard.set( \"plaintext\", self.public:getSelection( ) )\
                else\
                    clipboard.set( \"plaintext\", self.lines[self.cursory] or \"\" )\
                end\
            elseif key == keys.x then\
                if self.selection then\
                    clipboard.set( \"plaintext\", self.public:getSelection( ) )\
                    self:setSelection \"\"\
                    self.selection = false\
                else\
                    clipboard.set( \"plaintext\", self.lines[self.cursory] or \"\" )\
                    table.remove( self.lines, self.cursory )\
                end\
                self.public:updateCharacters( )\
                if self.onChange then\
                    self.onChange( self.public, \"cut\" )\
                end\
            elseif key == keys.b then\
                local mode, data = clipboard.get( )\
                if mode == \"plaintext\" then\
                    if self.selection then\
                        self:setSelection( data )\
                        self.selection = false\
                    else\
                        self:write( data )\
                    end\
                    self.public:updateCharacters( )\
                elseif self.onCtrlKey then\
                    self.onCtrlKey( self.public, key )\
                end\
                if self.onChange then\
                    self.onChange( self.public, \"paste\" )\
                end\
            end\
            return\
        end\
        if self.onCtrlKey then\
            self.onCtrlKey( self.public, key )\
        end\
        return\
    end\
    if key == keys.left then\
        if self.selection then\
            local ssx, ssy, sex, sey = self:getSelectionBounds( )\
            self:setCursorPos( ssx, ssy )\
            self.selection = false\
        else\
            if self.cursorx == 1 then\
                if self.cursory > 1 then\
                    self:setCursorPos( #self.lines[self.cursory - 1] + 1, self.cursory - 1 )\
                end\
            else\
                self:setCursorPos( self.cursorx - 1, self.cursory )\
            end\
        end\
    elseif key == keys.right then\
        if self.selection then\
            local ssx, ssy, sex, sey = self:getSelectionBounds( )\
            self:setCursorPos( sex, sey )\
            self.selection = false\
        else\
            if self.cursorx >= #self.lines[self.cursory] + 1 then\
                if self.cursory < #self.lines then\
                    self:setCursorPos( 1, self.cursory + 1 )\
                else\
                    self.cursorx = #self.lines[self.cursory] + 1\
                end\
            else\
                self:setCursorPos( self.cursorx + 1, self.cursory )\
            end\
        end\
    elseif key == keys.up and self.cursory > 1 then\
        if self.selection then\
            local ssx, ssy, sex, sey = self:getSelectionBounds( )\
            self:setCursorPos( ssx, ssy )\
            self.selection = false\
        else\
            local x, y = self:getCursorPos( )\
            self:setCursorPos( self:coordsToCursor( x + self.lineWidth, y - 1 ) )\
        end\
    elseif key == keys.down and self.cursory < #self.lines then\
        if self.selection then\
            local ssx, ssy, sex, sey = self:getSelectionBounds( )\
            self:setCursorPos( sex, sey )\
            self.selection = false\
        else\
            local x, y = self:getCursorPos( )\
            self:setCursorPos( self:coordsToCursor( x + self.lineWidth, y + 1 ) )\
        end\
    elseif key == keys.enter then\
        if self.selection then\
            self:setSelection \"\\n\"\
        else\
            local whitespace = self.lines[self.cursory]:match \"^(%s*)\"\
            table.insert( self.lines, self.cursory + 1, whitespace .. self.lines[self.cursory]:sub( self.cursorx ) )\
            self.lines[self.cursory] = self.lines[self.cursory]:sub( 1, self.cursorx - 1 )\
            self:setCursorPos( #whitespace + 1, self.cursory + 1 )\
        end\
        self.public:updateCharacters( )\
        if self.onChange then\
            self.onChange( self.public, \"\\n\" )\
        end\
    elseif key == keys.tab then\
        if self.selection then\
            local ssx, ssy, sex, sey = self:getSelectionBounds( )\
            if ssy == sey then\
                self:setSelection \"    \"\
            else\
                for y = ssy, sey do\
                    if lastkey == keys.leftShift then\
                        self.lines[y] = self.lines[y]:gsub( \"^ \", \"\", 1 )\
                    else\
                        self.lines[y] = \"  \" .. self.lines[y]\
                    end\
                end\
            end\
        else\
            self.lines[self.cursory] = self.lines[self.cursory]:sub( 1, self.cursorx - 1 ) .. \"    \" .. self.lines[self.cursory]:sub( self.cursorx )\
            self:setCursorPos( self.cursorx + 1, self.cursory )\
        end\
        self.public:updateCharacters( )\
        if self.onChange then\
            self.onChange( self.public, \"  \" )\
        end\
    elseif key == keys.delete then\
        if self.selection then\
            self:setSelection \"\"\
        else\
            if self.cursorx == #self.lines[self.cursory] + 1 then\
                if self.lines[self.cursory + 1] then\
                    self.lines[self.cursory] = self.lines[self.cursory] .. self.lines[self.cursory + 1]\
                    table.remove( self.lines, self.cursory + 1 )\
                end\
            else\
                self.lines[self.cursory] = self.lines[self.cursory]:sub( 1, self.cursorx - 1 ) .. self.lines[self.cursory]:sub( self.cursorx + 1 )\
            end\
        end\
        self.public:updateCharacters( )\
        if self.onChange then\
            self.onChange( self.public, \"delete\" )\
        end\
    elseif key == keys.backspace then\
        if self.selection then\
            self:setSelection \"\"\
        else\
            if self.cursorx == 1 then\
                if self.cursory > 1 then\
                    self:setCursorPos( #self.lines[self.cursory - 1] + 1, self.cursory - 1 )\
                    self.lines[self.cursory] = self.lines[self.cursory] .. self.lines[self.cursory + 1]\
                    table.remove( self.lines, self.cursory + 1 )\
                end\
            else\
                self.lines[self.cursory] = self.lines[self.cursory]:sub( 1, self.cursorx - 2 ) .. self.lines[self.cursory]:sub( self.cursorx )\
                self:setCursorPos( self.cursorx - 1, self.cursory )\
            end\
        end\
        self.public:updateCharacters( )\
        if self.onChange then\
            self.onChange( self.public, \"backspace\" )\
        end\
    elseif key == 199 then -- home\
        local tabs = #( self.lines[self.cursory]:match \"^( *)\" )\
        self:setCursorPos( tabs + 1, self.cursory )\
    elseif key == 207 then -- end\
        self:setCursorPos( #self.lines[self.cursory] + 1, self.cursory )\
    end\
end\
\
function UICode.public:onTextInput( text )\
    if not self.focussed then\
        return\
    end\
    if self.selection then\
        self:setSelection( text )\
    else\
        self.lines[self.cursory] = self.lines[self.cursory]:sub( 1, self.cursorx - 1 ) .. text .. self.lines[self.cursory]:sub( self.cursorx )\
        self:setCursorPos( self.cursorx + 1, self.cursory )\
    end\
    self.public:updateCharacters( )\
    if self.onChange then\
        self.onChange( self.public, text )\
    end\
end\
\
function UICode.public:setCode( code )\
    self.lines = { }\
    local last = 1\
    for i = 1, #code do\
        if code:sub( i, i ) == \"\\n\" then\
            table.insert( self.lines, code:sub( last, i - 1 ) )\
            last = i + 1\
        end\
    end\
    table.insert( self.lines, code:sub( last ) )\
    self.public:updateCharacters( )\
end\
\
function UICode.public:getCode( )\
    return table.concat( self.lines, \"\\n\" )\
end\
\
function UICode.public:onFocus( )\
    self.focussed = true\
    self.handlesKeys = true\
    if type( self.whenFocussed ) == \"function\" then\
        self.whenFocussed( self.public )\
    end\
end\
\
function UICode.public:onUnFocus( )\
    self.handlesKeys = false\
    self.focussed = false\
    if type( self.whenUnFocussed ) == \"function\" then\
        self.whenUnFocussed( self.public )\
    end\
end\
\
function UICode.public:focusOn( )\
    local handler = self.public:getHandler( )\
    handler:setFocus( self.public )\
end\
\
function UICode.public:getDisplaySizeH( )\
    return self.w - self.lineWidth\
end\
function UICode.public:getDisplaySizeV( )\
    return self.h\
end\
function UICode.public:getContentSizeH( )\
    local max = 1\
    for i = 1, #self.lines do\
        max = math.max( max, #self.lines[i] )\
    end\
    return max\
end\
function UICode.public:getContentSizeV( )\
    return #self.lines\
end\
function UICode.public:getContentScrollH( )\
    return self.scrollx\
end\
function UICode.public:getContentScrollV( )\
    return self.scrolly\
end\
function UICode.public:setContentScrollH( scroll )\
    self.scrollx = scroll\
end\
function UICode.public:setContentScrollV( scroll )\
    self.scrolly = scroll\
end", meta={
  type = "class",
}};["kernel"]={content="\
\
-- initiate UI\
\
require \"core\"\
require \"nova_markup\"\
require \"Thread\"\
require \"UIHandler\"\
\
core.UI = UIHandler( 1, 1, term.getSize( ) )\
\
local UIThread = Thread( function( ... )\
    local ev = { ... }\
    while true do\
        if ev[1] == \"update\" then\
            core.UI:update( ev[2] )\
            core.UI:draw( )\
        else\
            core.UI:event( ev )\
        end\
        ev = { coroutine.yield( ) }\
    end\
end )\
function UIThread:onException( err )\
    core.log( \"UI error\", err )\
    self:restart( )\
end\
\
-- sessions\
\
function setup( welcome )\
    local w, h = term.getSize( )\
    if welcome then\
        local welcome = core.UI:newChild( UIText( 1, 1, 20, 1, \"Welcome to NovaOS!\" ) )\
        welcome:centre( )\
        welcome.bc = 1\
        welcome.tc = colours.lightGrey\
        local t = os.clock( )\
        while os.clock( ) - t < 1.3 do\
            coroutine.yield( )\
        end\
        welcome:remove( )\
    end\
\
    local finished = false\
\
    local frame = core.UI:newChild( UIFrame( 2, 3, w - 2, h - 3 ) )\
    local title = frame:newChild( UIText( 1, 1, core.UI.w - 2, 2, \"Please set up a user account.\" ) )\
    title.tc = colours.grey\
    title:centreX( )\
    local ut = frame:newChild( UIText( 0, 6, 8, 1, \"username\" ) )\
    ut.tc = colours.lightGrey\
    ut:centreX( )\
    local username = frame:newChild( UIInput( 0, 7, math.floor( w * 2 / 3 ), 1 ) )\
    username.tc = 1\
    username:centreX( )\
    username:focusOn( )\
    local pt = frame:newChild( UIText( 0, 9, 8, 1, \"password\" ) )\
    pt.tc = colours.lightGrey\
    pt:centreX( )\
    local password = frame:newChild( UIInput( 0, 10, math.floor( w * 2 / 3 ), 1, \"*\" ) )\
    password.tc = 1\
    password:centreX( )\
\
    local continue = frame:newChild( UIButton( 0, frame.h - 2, 20, 3, \"continue\" ) )\
    continue:centreX( )\
    continue.tc = 1\
    function continue:onClick( )\
        finished = true\
    end\
    continue.tabIndex = true\
    function continue:whenFocussed( )\
        self.bc = colours.lightBlue\
    end\
    function continue:whenUnFocussed( )\
        self.bc = colours.lightGrey\
    end\
\
    function username:onEnter( )\
        password:focusOn( )\
    end\
    function password:onEnter( )\
        finished = true\
    end\
\
    while not finished do\
        coroutine.yield( )\
    end\
    frame:remove( )\
\
    Account.create( username.text, password.text )\
    core.log( \"created user\", username.text )\
end\
\
if #fs.list( core.path .. \"/user\" ) == 0 then\
    setup( true )\
end\
\
core.session = Session( )", meta={
  type = "lib",
}};["MarkupGenericObject"]={content="\
\
require \"MarkupPage\"\
\
MarkupGenericObject.public \"page\" (MarkupPage)\
MarkupGenericObject.public.etype = \"unknown\"\
MarkupGenericObject.public \"static\"\
MarkupGenericObject.public.static.write = false\
MarkupGenericObject.public \"remove\" \"boolean\"\
\
function MarkupGenericObject:MarkupGenericObject( source )\
    self.width = { type = \"text\", value = \"auto\" }\
    self.height = { type = \"text\", value = \"auto\" }\
\
    self.source = source\
end\
\
function MarkupGenericObject.public:setAttribute( attribute, value )\
    if MarkupGenericObject.attributes[attribute] then\
        MarkupGenericObject.attributes[attribute]( self, value )\
    end\
    -- custom attributes\
    self.page.needsReposition = true\
end\
\
function MarkupGenericObject.public:addObject( object )\
    if self.children then\
        table.insert( self.children, object )\
        return true\
    else\
        return false\
    end\
end\
\
function MarkupGenericObject.public:loadObject( positionHandler )\
    -- generate a list of MarkupLoadedObjects\
end\
\
function MarkupGenericObject.public:applyAreaValues( pw, ph, object )\
    if self.width.type == \"percent\" then\
        object.content.width = math.floor( pw * self.width.value / 100 + .5 )\
    elseif self.width.type == \"pixel\" then\
        object.content.width = self.width.value\
    end\
    if self.height.type == \"percent\" then\
        object.content.height = math.floor( pw * self.height.value / 100 + .5 )\
    elseif self.height.type == \"pixel\" then\
        object.content.height = self.height.value\
    end\
end\
\
function MarkupGenericObject.public:scriptObject( )\
    return setmetatable( {}, {\
        __newindex = function( _, k, v )\
            if type( v ) ~= \"string\" then\
                v = tostring( v )\
            end\
            return self.public:setAttribute( k, v )\
        end;\
        __index = function( _, k )\
            if k == \"width\" then\
                return ( self.width.type == \"percent\" and self.width.value .. \"%\" ) or ( self.width.type == \"pixel\" and self.width.value .. \"px\" ) or ( self.width.type == \"text\" and self.width.value )\
            elseif k == \"height\" then\
                return ( self.height.type == \"percent\" and self.height.value .. \"%\" ) or ( self.height.type == \"pixel\" and self.height.value .. \"px\" ) or ( self.height.type == \"text\" and self.height.value )\
            else\
                return error \"cannot access this attribute\"\
            end\
        end;\
    } )\
end\
\
MarkupGenericObject.static.attributes = { }\
\
function MarkupGenericObject.attributes:width( value )\
    if value:find \"%d+%%\" then\
        self.width = { type = \"percent\", value = tonumber( value:match \"(%d+)%%\" ) }\
    elseif value:find \"%d+px?\" then\
        self.width = { type = \"pixel\", value = tonumber( value:match \"(%d+)px?\" ) }\
    elseif value == \"auto\" then\
        self.width = { type = \"text\", value = \"auto\" }\
    else\
        table.insert( self.page.errors, { source = self.source, level = \"warning\", message = \"expected percentage or pixel for attribute width\" } )\
    end\
end\
\
function MarkupGenericObject.attributes:height( value )\
    if value:find \"%d+%%\" then\
        self.height = { type = \"percent\", value = tonumber( value:match \"(%d+)%%\" ) }\
    elseif value:find \"%d+px?\" then\
        self.height = { type = \"pixel\", value = tonumber( value:match \"(%d+)px?\" ) }\
    elseif value == \"auto\" then\
        self.height = { type = \"text\", value = \"auto\" }\
    else\
        table.insert( self.page.errors, { source = self.source, level = \"warning\", message = \"expected percentage or pixel for attribute height\" } )\
    end\
end\
\
function MarkupGenericObject.attributes:static( value )\
    if tostring( value ) == \"true\" then\
        self.static = true\
    elseif tostring( value ) == \"false\" then\
        self.static = false\
    else\
        table.insert( self.page.errors, { source = self.source, level = \"warning\", message = \"expected boolean for attribute static\" } )\
    end\
end\
\
function MarkupGenericObject.attributes:id( id )\
    if self.id then\
        self.page.ids[self.id] = nil\
    end\
    self.id = id\
    self.page.ids[id] = self.public\
end", meta={
  type = "class",
}};["markup_parse"]={content="\
\
local parse_element\
\
local function getLine( str, i )\
    local line = 1\
    for p = 1, i do\
        if str:sub( p, p ) == \"\\n\" then\
            line = line + 1\
        end\
    end\
    return line\
end\
\
local alias = {\
    p = \"paragraph\";\
    t = \"text\";\
    h = \"header\";\
    img = \"image\";\
    hr = \"rule\";\
    br = \"newline\";\
    nl = \"newline\";\
    s = \"space\";\
    a = \"link\";\
    div = \"frame\";\
    f = \"frame\";\
}\
local s_tags = {\
    rule = true;\
    newline = true;\
    image = true;\
    input = true;\
    space = true;\
    iframe = true;\
}\
\
function parse_element( str, page, i )\
    local name = \"\"\
    local line = getLine( str, i )\
    i = i + 1\
    while str:sub( i, i ):find \"%S\" and str:sub( i, i ) ~= \">\" do\
        name = name .. str:sub( i, i )\
        i = i + 1\
    end\
    if alias[name] then name = alias[name] end\
    local attributes = { }\
    local function loadAttribute( )\
        if i > #str then return end\
        while str:sub( i, i ):find \"%s\" do\
            i = i + 1 -- whitespace\
        end\
        if str:sub( i, i ) == \">\" then\
            i = i + 1\
            return\
        end\
        local a = \"\"\
        local strstarted = false\
        local escape = false\
        while true do\
            if i > #str then break end\
            if escape then\
                a = a .. str:sub( i, i )\
                escape = false\
            elseif str:sub( i, i ) == \"\\\"\" then\
                strstarted = not strstarted\
            elseif str:sub( i, i ) == \"\\\\\" and strstarted then\
                escape = escape\
            elseif str:sub( i, i ):find \"[%s>]\" and not strstarted then\
                break\
            else\
                a = a .. str:sub( i, i )\
            end\
            i = i + 1\
        end\
        for i = 1, #a do\
            if a:sub( i, i ) == \":\" or a:sub( i, i ) == \"=\" then\
                local name = a:sub( 1, i - 1 )\
                local value = a:sub( i + 1 )\
                if value:sub( 1, 1 ) == \"\\\"\" then\
                    value = textutils.unserialize( value )\
                    if not value then\
                        table.insert( page.errors, { source = getLine( str, i - #a + #name + 2 ), level = \"warning\", message = \"syntax error in string value for attribute \" .. name } )\
                    end\
                end\
                if value then\
                    attributes[name] = value\
                end\
                return true\
            end\
        end\
        attributes[a] = \"true\"\
        return true\
    end\
    while loadAttribute( ) do end\
    local pos = i\
    if not s_tags[name] then\
        local content\
        content, pos = parse( str, page, i, name, name == \"script\" )\
        attributes.innerNML = content\
    end\
    local element = {\
        type = name;\
        attributes = attributes;\
        source = line;\
    }\
    return element, pos\
end\
\
function parse( str, page, i, close, blockElements )\
    local i = i or 1\
    local ast = { }\
    while i <= #str do\
        if str:sub( i, i ) == \"<\" then\
            if str:sub( i + 1, i + 1 ) == \"/\" then\
                local name = str:match( \"(%w+)>\", i + 2 )\
                name = alias[name] or name\
                if name == close then\
                    return ast, i + 3 + #str:match( \"(%w+)>\", i + 2 )\
                else\
                    if type( ast[#ast] ) == \"string\" then\
                        ast[#ast] = ast[#ast] .. \"<\"\
                    else\
                        ast[#ast + 1] = \"<\"\
                    end\
                    if not blockElements then\
                        table.insert( page.errors, { source = getLine( str, i ), level = \"warning\", message = \"unexpected ending tag for \" .. name } )\
                    end\
                    i = i + 1\
                end\
            elseif not blockElements then\
                local element\
                element, i = parse_element( str, page, i )\
                ast[#ast + 1] = element\
            else\
                if type( ast[#ast] ) == \"string\" then\
                    ast[#ast] = ast[#ast] .. \"<\"\
                else\
                    ast[#ast + 1] = \"<\"\
                end\
                i = i + 1\
            end\
        else\
            if type( ast[#ast] ) == \"string\" then\
                ast[#ast] = ast[#ast] .. str:sub( i, i )\
            else\
                ast[#ast + 1] = str:sub( i, i )\
            end\
            i = i + 1\
        end\
    end\
    return ast, #str + 1\
end", meta={
  type = "lib",
}};["UIKeyHandler"]={content="\
\
require \"UIElement\"\
UIKeyHandler:extends( UIElement )\
\
UIKeyHandler.handlesMouse = false\
UIKeyHandler.handlesKeys = true\
\
UIKeyHandler.onKey = false\
UIKeyHandler.public \"onKey\" \"function\"\
UIKeyHandler.onChar = false\
UIKeyHandler.public \"onChar\" \"function\"\
\
function UIKeyHandler:UIKeyHandler( )\
    self:UIElement( 0, 0, 0, 0 )\
    return self.public\
end\
\
function UIKeyHandler.public:onKeyPress( key, lastkey )\
    if self.onKey then\
        self.onKey( self.public, key, lastkey )\
    end\
end\
function UIKeyHandler.public:onTextInput( char, lastkey )\
    if self.onChar then\
        self.onChar( self.public, char, lastkey )\
    end\
end", meta={
  type = "class",
}};["UIButton"]={content="\
\
require \"UIElement\"\
\
UIButton:extends( UIElement )\
\
UIButton.text = \"\"\
UIButton.public \"text\"\
\
UIButton.public \"bc\" \"number\"\
UIButton.public \"tc\" \"number\"\
\
UIButton.onClick = false\
UIButton.public \"onClick\" \"function\"\
UIButton.onDrag = false\
UIButton.public \"onDrag\" \"function\"\
\
UIButton.align = true\
UIButton.public \"align\" \"boolean\"\
\
UIButton.handlesEnter = true\
\
function UIButton:UIButton( x, y, w, h, text )\
    self:UIElement( x, y, w, h )\
    self.text = text\
    self.bc = colours.white\
    self.tc = colours.blue\
    return self.public\
end\
\
function UIButton.public:draw( x, y )\
    local layer = stencil.addLayer( x, y, self.w, self.h )\
    local text = tostring( self.text )\
    if type( self.text ) == \"function\" then\
        text = self.text( self.public )\
    end\
    if self.align then\
        stencil.text( x, y, self.w, self.h, self.bc, self.tc, text, function( lines )\
            while #lines < self.h do\
                table.insert( lines, 1, string.rep( \" \", self.w ) )\
                table.insert( lines, string.rep( \" \", self.w ) )\
            end\
            if #lines > self.h then\
                table.remove( lines, 1 )\
            end\
            for i = 1, #lines do\
                lines[i] = string.rep( \" \", math.floor( ( self.w - #lines[i] ) / 2 ) ) .. lines[i]\
            end\
        end )\
    else\
        stencil.text( x, y, self.w, self.h, self.bc, self.tc, text )\
    end\
    local c = { }\
    for i, child in ipairs( self.children ) do\
        c[i] = child\
    end\
    for i, child in ipairs( c ) do\
        child:draw( x + child.x - 1 + self.cx, y + child.y - 1 + self.cy )\
    end\
    stencil.closeLayer( layer )\
end\
\
function UIButton.public:onMouseClick( rx, ry, button )\
    if self.onClick then\
        self.onClick( self.public, rx, ry, button, self.last and self.last.x == rx and self.last.y == ry and os.clock( ) - self.last.time <= 0.5 )\
    end\
    self.last = {\
        x = rx;\
        y = ry;\
        time = os.clock( );\
    }\
end\
\
function UIButton.public:onMouseDrag( x, y, cx, cy, button )\
    if self.onDrag then\
        self.onDrag( self.public, x, y, cx, cy, button )\
    end\
end\
\
function UIButton.public:onKeyPress( key )\
    if key == keys.enter and self.onClick then\
        self.onClick( self.public, 1, 1, \"enter\" )\
    end\
end", meta={
  type = "class",
}};["MarkupButton"]={content="\
\
require \"MarkupGenericObject\"\
\
MarkupButton:extends( MarkupGenericObject )", meta={
  type = "class",
}};["com"]={content="\
\
require \"encryption\"\
require \"network\"\
\
local modem\
local mside\
local messages = { }\
\
function setModem( side )\
    if mside ~= side then\
        modem = peripheral.wrap( side )\
        modem.open( 2514 ) -- messages\
        modem.open( 2515 ) -- pings\
        mside = side\
    end\
end\
\
function updateModems( )\
    for _, side in pairs( peripheral.getNames( ) ) do\
        if peripheral.getType( side ) == \"modem\" then\
            setModem( side )\
            return true\
        end\
    end\
end\
\
function send( id, data, key, seed )\
    local channel = \"public\"\
    if key then\
        data = encryption.encrypt( textutils.serialize( data ), key )\
        math.randomseed( seed )\
        channel = math.random( 1, 32768 )\
    end\
    local t = {\
        target = id;\
        sender = os.getComputerID( );\
        data = data;\
        id = os.time( ) .. \":\" .. os.getComputerID( );\
        channel = channel;\
    }\
    if id == os.getComputerID( ) then\
        os.queueEvent( \"modem_message\", \"top\", 2514, 2514, t, 0 )\
        messages[t.id] = os.clock( )\
        return true\
    end\
    if not modem then\
        if not updateModems( ) then\
            return false, \"no modem\"\
        end\
    end\
    modem.transmit( 2514, 2514, t )\
    messages[t.id] = os.clock( )\
    return true\
end\
\
function receive( id, key, timeout, seed )\
    if not modem then\
        updateModems( )\
    end\
    local timer = timeout and os.startTimer( timeout )\
    while true do\
        local ev = { coroutine.yield( ) }\
        if ev[1] == \"timer\" and ev[2] == timer then\
            return false, \"timeout\"\
        end\
        if ev[1] == \"modem_message\" and ev[3] == 2514 and ev[4] == 2514 and type( ev[5] ) == \"table\" then -- a normal message\
            if ev[5].target == os.getComputerID( ) then\
                if id == ev[5].sender then\
                    local data = ev[5].data\
                    if key then\
                        data = textutils.unserialize( encryption.decrypt( data, key ) )\
                        math.randomseed( seed )\
                        local channel = math.random( 1, 32768 )\
                        if data.channel == channel then\
                            return true, data\
                        end\
                    else\
                        return true, data\
                    end\
                end\
            elseif not messages[ev[5].id] then\
                modem.transmit( 2514, 2514, ev[5] )\
            end\
            messages[ev[5].id] = os.clock( )\
        elseif ev[1] == \"modem_message\" and ev[3] == 2515 and ev[4] == 2515 and type( ev[5] ) == \"string\" and ev[5]:sub( 1, 15 ) then\
            local mode, id = ev[5]:match \":(.-):\", ev[5]:match \":.-:(%d+)\"\
            if mode and id then\
                if not messages[ev[5]] and tonumber( id ) ~= os.getComputerID( ) then\
                    if mode == \"Request\" then\
                        modem.transmit( 2515, 2515, \"NovaNetworkPing:Response:\" .. id .. \":\" .. os.getComputerID( ) )\
                    else\
                        modem.transmit( 2515, 2515, ev[5] )\
                    end\
                    messages[ev[5]] = os.clock( )\
                end\
            end\
        end\
    end\
end\
\
function ping( )\
    if not modem then\
        if not updateModems( ) then\
            return false, \"no modem\"\
        end\
    end\
    modem.transmit( 2515, 2515, \"NovaNetworkPing:Request:\" .. os.getComputerID( ) )\
    local time = os.clock( )\
    local devices = { }\
    while os.clock( ) - time < 1 do\
        local ev = { coroutine.yield( ) }\
        if ev[1] == \"modem_message\" and ev[3] == 2515 and ev[4] == 2515 and type( ev[5] ) == \"string\" and ev[5]:sub( 1, 15 ) then\
            local mode, id, sender = ev[5]:match \":(.-):\", ev[5]:match \":.-:(%d+)\", ev[5]:match \":.-:%d+:(%d+)\"\
            if mode and id and sender then\
                if tonumber( id ) == os.getComputerID( ) then\
                    if mode == \"Response\" then\
                        table.insert( devices, tonumber( sender ) )\
                    end\
                end\
            end\
        end\
    end\
end\
\
function listen( event ) -- waiting for connections to establish, not pings or normal messages...\
    if not modem then\
        updateModems( )\
    end\
    if event[1] == \"modem_message\" and event[3] == 2514 and event[4] == 2514 and type( event[5] ) == \"table\" then\
        if event[5].target == os.getComputerID( ) then\
            local data = event[5].data\
            if type( data ) == \"table\" and data.request == \"connection\" then\
                local response, key = handshake.generateResponseData( data.handshake )\
                if data.insecure then\
                    network.addChannel( event[5].sender, data.protocol )\
                else\
                    network.addChannel( event[5].sender, data.protocol, network.genkey( key ), key )\
                end\
                send( event[5].sender, response )\
                if data.insecure then\
                    core.log( \"Network\", \"Insecure connection established with \" .. tostring( event[5].sender ) )\
                else\
                    core.log( \"Network\", \"Secure connection established with \" .. tostring( event[5].sender ) )\
                end\
            end\
        elseif not messages[event[5].id] then\
            modem.transmit( 2514, 2514, event[5] )\
        end\
        messages[event[5].id] = os.clock( )\
    end\
end\
\
function clear( )\
    local time = os.clock( )\
    local r = { }\
    for k, v in pairs( messages ) do\
        if time - v > 5 then\
            r[#r+1] = k\
        end\
    end\
    for i = 1, #r do\
        messages[r[i]] = nil\
    end\
end", meta={
  type = "lib",
}};["UIImage"]={content="\
\
require \"Image\"\
require \"UIElement\"\
\
UIImage.public \"image\" (Image)\
UIImage.public \"onClick\" \"function\"\
UIImage.public \"onDrag\" \"function\"\
UIImage.public \"onScroll\" \"function\"\
\
UIImage:extends( UIElement )\
\
function UIImage:UIImage( x, y, w, h, image ) -- Image object\
    self:UIElement( x, y, w, h )\
    self.image = image\
    return self.public\
end\
\
function UIImage.public:draw( x, y )\
    local layer = stencil.addLayer( x, y, self.w, self.h )\
    if not self.image then return end\
    for xx = 1, self.w do\
        for yy = 1, self.h do\
            local bc, tc, char = self.image:getPixel( xx, yy )\
            if bc then\
                if bc ~= 0 or char ~= \" \" then\
                    stencil.pixel( x + xx - 1, y + yy - 1, bc, tc, char )\
                end\
            end\
        end\
    end\
    local c = { }\
    for i, child in ipairs( self.children ) do\
        c[i] = child\
    end\
    for i, child in ipairs( c ) do\
        child:draw( x + child.x - 1 + self.cx, y + child.y - 1 + self.cy )\
    end\
    stencil.closeLayer( layer )\
end\
\
function UIImage.public:onMouseClick( rx, ry, button )\
    if self.onClick then\
        self.onClick( self.public, rx, ry, button )\
    end\
end\
\
function UIImage.public:onMouseDrag( rx, ry, cx, cy, button )\
    if self.onDrag then\
        self.onDrag( self.public, rx, ry, cx, cy, button )\
    end\
end\
\
function UIImage.public:onMouseScroll( rx, ry, dir )\
    if self.onScroll then\
        self.onScroll( self.public, rx, ry, dir )\
    end\
end", meta={
  type = "class",
}};["nova_markup"]={content="\
\
require \"markup_parse\"\
\
objects = {\
    text = MarkupText;\
    paragraph = MarkupParagraph;\
    header = MarkupHeader;\
    image = MarkupImage;\
    rule = MarkupRule;\
    frame = MarkupFrame;\
    button = MarkupButton;\
    input = MarkupInput;\
    code = MarkupCode;\
    newline = MarkupNewline;\
    space = MarkupSpace;\
    script = MarkupScript;\
}", meta={
  type = "lib",
}};["FileData"]={content="\
\
FileData.public \"content\" \"string\"\
FileData.public \"meta\"\
FileData.public \"password\" \"string\"\
\
function FileData.public.meta:write( value )\
    if type( value ) == \"table\" then\
        self.metadata = value\
    else\
        error( \"expected table meta\", 3 )\
    end\
end\
function FileData.public.meta:read( )\
    return self.metadata\
end\
\
function FileData:FileData( content, password ) -- string content\
    \
    if content and content:find \"^--%[%[.-%]%]\" then\
        self.content = content:gsub( \"^--%[%[.-%]%]\", \"\", 1 )\
        self.metadata = textutils.unserialize( \"{\" .. content:match \"^--%[%[(.-)%]%]\" .. \"}\" ) or { }\
    else\
        self.content = content or \"\"\
        self.metadata = { }\
    end\
\
    if self.metadata.password then\
        if password then\
            self.content = encryption.decrypt( self.content, password )\
        end\
        self.metadata.password = nil\
    end\
\
    self.password = false\
\
    return self.public\
end\
\
function FileData.public:compile( )\
    local content = self.content\
    if self.password then\
        content = encryption.encrypt( content, self.password )\
        self.metadata.password = true\
    end\
    if not next( self.metadata ) then\
        return content\
    end\
    local metadata = \"--[[\" .. textutils.serialize( self.metadata ):sub( 2, -2 ) .. \"]]\"\
    return metadata .. \"\" .. content\
end", meta={
  type = "class",
}};["AppInstance"]={content="\
\
AppInstance.public \"app\"\
AppInstance.public.app.write = false\
AppInstance.public \"session\"\
AppInstance.public.session.write = false\
AppInstance.public \"UI\"\
AppInstance.public.UI.write = false\
AppInstance.public \"events\"\
AppInstance.public.events.write = false\
AppInstance.public \"content\"\
AppInstance.public.content.write = false\
AppInstance.public \"sandbox\"\
AppInstance.public.sandbox.write = false\
AppInstance.public \"public_variables\"\
AppInstance.public.public_variables.write = false\
AppInstance.public \"title\" \"string\"\
\
function AppInstance:AppInstance( app, session, args, noGUI )\
    if not noGUI then\
        self.UI = session.UI:newChild( UIFrame( 1, 1, term.getSize( ) ) )\
        self.content = self.UI:newChild( UIFrame( 1, 2, self.UI.w, self.UI.h - 1 ) )\
    end\
    self.app = app\
    self.session = session\
    self.title = app.name\
    self.events = { }\
    self.sandbox = Sandbox( self.public, args )\
    self.threads = { }\
    self.public_variables = { }\
\
    if self.UI then\
        local nova = self.UI:newChild( UIButton( 1, 1, 4, 1, \"Nova\" ) )\
        nova.bc = colours.grey\
        nova.tc = colours.white\
        function nova.onClick( )\
            self.session:showOverlay( )\
        end\
\
        local title = self.UI:newChild( UIText( 5, 1, self.UI.w - 5, 1, function( )\
            return \" \" .. self.title\
        end ) )\
        title.bc = colours.grey\
        title.tc = colours.lightGrey\
\
        local close = self.UI:newChild( UIButton( self.UI.w, 1, 1, 1, \"x\" ) )\
        close.bc = colours.grey\
        close.tc = colours.cyan\
        function close.onClick( )\
            self.public:close \"user\"\
        end\
\
        local nextapp = self.UI:newChild( UIButton( self.UI.w - 2, 1, 1, 1, \"<\" ) )\
        nextapp.bc = colours.grey\
        nextapp.tc = colours.cyan\
        function nextapp.onClick( )\
            self.session:hide( )\
            self.session:show( )\
        end\
\
        if app.runmode == \"compatibility\" then\
            if app.conf.fullscreen then\
                self.canvas = self.UI:newChild( UICanvas( 1, 1, self.UI.w, self.UI.h ) )\
            else\
                self.canvas = self.content:newChild( UICanvas( 1, 1, self.content.w, self.content.h ) )\
            end\
        end\
    end\
\
    self.public:newThread( Thread( function( )\
        while true do\
            for i = #self.threads, 1, -1 do\
                if not self.threads[i]:isRunning( ) and not self.threads[i]:isPaused( ) then\
                    self.threads[i]:stop( ) -- just to make sure it stops\
                    table.remove( self.threads, i )\
                end\
            end\
            coroutine.yield( )\
        end\
    end ) )\
\
    if self.UI then\
        if app.runmode == \"compatibility\" then\
            local s = app:readFile( app.conf.filename or \"main.lua\" )\
            if s then\
                local f, err = loadstring( s, filesystem.getName( app.conf.filename or \"main.lua\", true ) )\
                if f then\
                    self.canvas:setTask( function( ... )\
                        setfenv( f, getfenv( ) )\
                        local ok, err = pcall( f, ... )\
                        if not ok and err ~= nil then\
                            self.public:showError( err )\
                            return\
                        end\
                        print( \"App has finished,\" .. \" press any key to exit.\" )\
                        parallel.waitForAny( function( ) os.pullEvent \"key\" end, function( ) os.pullEvent \"mouse_click\" end )\
                        self.public:close( )\
                    end )\
                    self.canvas:passEvent( unpack( args ) )\
                else\
                    self.public:showError( err:gsub( \"AppInstance.lua:74: \", \"\" ) )\
                end\
            else\
                self.public:showError \"Could not load main file\"\
            end\
        else\
            self.sandbox.environment.Nova.app.require \"main\"\
        end\
    end\
\
    return self.public\
end\
\
function AppInstance.public:event( name, data )\
    if self.events[name] then\
        local ok, data = pcall( self.events[name], data )\
        if ok and ( data or data == nil ) then\
            return true\
        end\
        return false\
    end\
    return true\
end\
\
function AppInstance.public:showUI( )\
    self.public:event \"onFocusPre\"\
    if self.UI then\
        self.session.UI:newChild( self.UI )\
    end\
    self.public:event \"onFocusPost\"\
end\
\
function AppInstance.public:hideUI( )\
    self.public:event \"onUnFocusPre\"\
    if self.UI then\
        self.UI:remove( )\
    end\
    self.public:event \"onUnFocusPost\"\
end\
\
function AppInstance.public:close( reason )\
    if self.public:canClose( reason ) then\
        if self.public:event( \"onClose\", reason ) then\
            self.session:close( self.public )\
            for i = 1, #self.threads do\
                self.threads[i]:stop( )\
            end\
            if self.UI then\
                self.UI:remove( )\
            end\
            return true\
        end\
    end\
    return false\
end\
\
function AppInstance.public:newThread( thread )\
    table.insert( self.threads, thread )\
    thread.environment = self.sandbox.environment\
    function thread.onException( _, err )\
        if self.UI then\
            self.public:showError( err )\
        else\
            core.log( \"Thread error\", self.app.name, err )\
        end\
    end\
    return thread\
end\
\
function AppInstance.public:showError( err )\
    if self.UI then\
        local msg = self.UI:newChild( UIButton( 1, 2, self.UI.w, self.UI.h - 1, tostring( err ) .. \"\\nClick to close\" ) )\
        msg.tc = colours.red\
        function msg.onClick( )\
            self.public:close( )\
        end\
    end\
end\
\
function AppInstance.public:canClose( reason )\
    local env = self.sandbox.environment\
    if type( env.Nova ) == \"table\" and type( env.Nova.app ) == \"table\" and type( env.Nova.app.canClose ) == \"function\" then\
        local ok, data = pcall( env.Nova.app.canClose, reason )\
        if not ok or data or data == nil then\
            return true\
        end\
        return false\
    end\
    return true\
end", meta={
  type = "class",
}};["Archive"]={content="\
\
require \"Drive\"\
\
local rfs = fs\
\
function Archive:Archive( savepath )\
    self.files = { }\
    self.savepath = savepath\
\
    return self.public\
end\
\
function Archive.public:loadDirectory( path )\
    if not filesystem.isDirectory( path ) then\
        return false, \"not a directory\"\
    end\
    local function loadDirectory( path, t )\
        local files = filesystem.listFiles( path )\
        for i = 1, #files do\
            if filesystem.isDirectory( path .. \"/\" .. files[i] ) then\
                t[files[i]] = { }\
                loadDirectory( path .. \"/\" .. files[i], t[files[i]] )\
            else\
                local filedata, err = filesystem.readfile( path .. \"/\" .. files[i] )\
                if filedata then\
                    t[files[i]] = filedata:compile( )\
                end\
            end\
        end\
    end\
    self.files = { }\
    loadDirectory( path, self.files )\
end\
\
function Archive.public:loadFile( path, password )\
    if not filesystem.isFile( path ) then\
        return false, \"not a file\"\
    end\
    local filedata, err = filesystem.readfile( path, password )\
    if not filedata then\
        return false, err\
    end\
    if filedata.meta.password then\
        return false, \"password protected\"\
    end\
    local files = textutils.unserialize( filedata.content )\
    if type( files ) == \"table\" then\
        self.files = files\
        return true\
    end\
    return false, \"corrupted archive\"\
end\
\
function Archive.public:saveDirectory( path )\
    if filesystem.isFile( path ) then\
        return false, \"path exists\"\
    elseif not filesystem.exists( path ) then\
        filesystem.newDirectory( path )\
    end\
    local function saveFile( file, p )\
        if type( file ) == \"table\" then\
            for k, v in pairs( file ) do\
                saveFile( v, p .. \"/\" .. k )\
            end\
        else\
            filesystem.writefile( path .. p, FileData( file ) )\
        end\
    end\
    saveFile( self.files, \"\" )\
    return true\
end\
\
function Archive.public:saveFile( path, password )\
    if filesystem.exists( path ) then\
        return false, \"file exists\"\
    end\
    local content = \"--[[type=\\\"archive\\\"]]\" .. textutils.serialize( self.files )\
    local filedata = FileData( content )\
    if password then\
        filedata.password = password\
    end\
    return filesystem.writefile( path, filedata )\
end\
\
function Archive.public:createDrive( )\
    \
    local fs = { }\
    local function splitPath( path )\
        local parts = { }\
        for part in path:gmatch \"([^/]+)\" do\
            table.insert( parts, part )\
        end\
        return parts\
    end\
    local function getDir( path )\
        if type( path ) ~= \"string\" then\
            return false, \"string expected\"\
        end\
        if path == \"\" or path == \"/\" then\
            return true, { [\"\"] = self.files }, \"\"\
        end\
        local parts = splitPath( path )\
        local f = self.files\
        for i = 1, #parts - 1 do\
            if type( f[parts[i]] ) == \"nil\" then\
                f[parts[i]] = { }\
            end\
            if type( f[parts[i]] ) == \"table\" then\
                f = f[parts[i]]\
            else\
                return false, \"invalid path\"\
            end\
        end\
        return true, f, parts[#parts]\
    end\
\
    function fs.open( path, mode )\
        local ok, data, file = getDir( path )\
        if not ok then\
            return false, data\
        end\
        if type( data[file] ) == \"table\" then\
            return false, \"cannot open directory\"\
        elseif mode == \"r\" and data[file] == nil then\
            return false, \"file doesn't exist\"\
        end\
        local handle = { }\
        local open = true\
        function handle.close( )\
            open = false\
        end\
\
        if mode == \"w\" then\
            data[file] = \"\"\
        elseif mode == \"a\" then\
            data[file] = data[file] or \"\"\
        elseif mode ~= \"r\" then\
            return false, \"unsupported mode\"\
        end\
        local filedata = FileData( data[file] )\
\
        if mode == \"w\" or mode == \"a\" then\
            function handle.write( str )\
                if not open then return end\
                filedata.content = filedata.content .. tostring( str )\
            end\
            function handle.writeLine( )\
                if not open then return end\
                filedata.content = filedata.content .. tostring( str ) .. \"\\n\"\
            end\
            function handle.flush( )\
                if not open then return end\
                data[file] = filedata:compile( )\
                if self.savepath then\
                    filesystem.delete( self.savepath )\
                    self.public:saveFile( self.savepath )\
                end\
            end\
            function handle.close( )\
                if not open then return end\
                handle.flush( )\
                open = false\
            end\
        elseif mode == \"r\" then\
            local lcontent = filedata.content\
            function handle.readLine( )\
                if not open then return end\
                local line = lcontent:match \"(.-)\\n\"\
                if line then\
                    lcontent = lcontent:gsub( \".-\\n\", \"\" )\
                else\
                    if #lcontent > 0 then\
                        line = lcontent\
                        lcontent = \"\"\
                    else\
                        line = nil\
                    end\
                end\
                return line\
            end\
            function handle.readAll( )\
                if not open then return end\
                return filedata.content\
            end\
        end\
\
        return handle\
    end\
\
    function fs.list( path )\
        local ok, data, file = getDir( path )\
        if not ok then\
            return false, data\
        end\
        if type( data[file] ) ~= \"table\" then\
            return false, \"not a directory\"\
        end\
        local t = { }\
        for k, v in pairs( data[file] ) do\
            t[#t+1] = k\
        end\
        return t\
    end\
    function fs.exists( p )\
        local ok, data, file = getDir( p )\
        if not ok then\
            return false, data\
        end\
        return data[file] ~= nil\
    end\
    function fs.isDir( p )\
        local ok, data, file = getDir( p )\
        if not ok then\
            return false, data\
        end\
        return type( data[file] ) == \"table\"\
    end\
    function fs.isReadOnly( p )\
        return false\
    end\
    function fs.getDrive( )\
        return \"archive\"\
    end\
    function fs.getSize( path )\
        local ok, data, file = getDir( path )\
        if not ok then\
            return false, data\
        end\
        if not data[file] then\
            return false, \"file doesn't exist\"\
        end\
        if type( data[file] ) == \"table\" then\
            local n = 0\
            for k, v in pairs( data[file] ) do\
                n = n + fs.getSize( path .. \"/\" .. k )\
            end\
            return n\
        end\
        return #data[file] + #path -- each character is a byte right? 2^8 (a byte) = 256, ascii is 256 characters\
    end\
    function fs.getFreeSpace( )\
        return math.huge\
    end\
    function fs.makeDir( path )\
        local ok, data, file = getDir( path )\
        if not ok then\
            return false, data\
        end\
        if type( data[file] ) == \"string\" then\
            return false, \"path is a file\"\
        end\
        data[file] = data[file] or { }\
        if self.savepath then\
            filesystem.delete( self.savepath )\
            self.public:saveFile( self.savepath )\
        end\
        return true\
    end\
    function fs.move( path1, path2 )\
        local ok, data, file = getDir( path )\
        if not ok then\
            return false, data\
        end\
        local ok, data2, file2 = getDir( path )\
        if not ok then\
            return false, data2\
        end\
        if data[file] then\
            data2[file2] = data[file]\
            data[file] = nil\
        end\
        if self.savepath then\
            filesystem.delete( self.savepath )\
            self.public:saveFile( self.savepath )\
        end\
        return true\
    end\
    function fs.copy( path1, path2 )\
        local ok, data, file = getDir( path )\
        if not ok then\
            return false, data\
        end\
        local ok, data2, file2 = getDir( path )\
        if not ok then\
            return false, data2\
        end\
        if data[file] then\
            data2[file2] = data[file]\
        end\
        if self.savepath then\
            filesystem.delete( self.savepath )\
            self.public:saveFile( self.savepath )\
        end\
        return true\
    end\
    function fs.delete( path )\
        local ok, data, file = getDir( path )\
        if not ok then\
            return false, data\
        end\
        data[file] = nil\
        if self.savepath then\
            filesystem.delete( self.savepath )\
            self.public:saveFile( self.savepath )\
        end\
        return true\
    end\
    function fs.find( path )\
        error( \"not supported\", 2 )\
    end\
    fs.combine = rfs.combine\
    fs.getDir = rfs.getDir\
    fs.getName = rfs.getName\
\
    return Drive( fs )\
end", meta={
  type = "class",
}};["markup"]={content="\
\
require \"parser\"\
\
local function loadStandardAttributes( class, attributes, scripts, ids, errors, parent )\
    local x = type( attributes.x ) == \"number\" and attributes.x or 1\
    local y = type( attributes.y ) == \"number\" and attributes.y or 1\
    local w = type( attributes.width ) == \"number\" and attributes.width or 19\
    local h = type( attributes.height ) == \"number\" and attributes.height or 1\
    if not attributes.x or not attributes.y then\
        local children = parent:getChildren( )\
        if children[#children] then\
            if attributes.float == \"below\" then\
                x = children[#children].x\
                y = children[#children].y + children[#children].h\
            else\
                x = children[#children].x + children[#children].w\
                y = children[#children].y\
            end\
        end\
    end\
    if attributes.width == \"expand\" then\
        w = parent.w - x + 1\
    end\
    if attributes.height == \"expand\" then\
        h = parent.h - y + 1\
    end\
    if attributes.x == \"right\" then\
        x = parent.w - w + 1\
    end\
    if attributes.y == \"bottom\" then\
        y = parent.h - h + 1\
    end\
    if not ( attributes.x or attributes.y ) and ( attributes.float == \"right\" or not attributes.float ) and x + w > parent.w then\
        local c = parent:getChildren( )\
        if c[#c] then\
            x = c[#c].x\
            y = c[#c].y + c[#c].h\
        end\
    end\
    local ob = parent:newChild( class( x, y, w, h ) )\
    if attributes.x == \"centre\" then\
        ob:centreX( )\
    end\
    if attributes.y == \"centre\" then\
        ob:centreY( )\
    end\
    if attributes.id then\
        ids[attributes.id] = ob\
    end\
    if attributes.onFocus then\
        local f, err = loadstring( attributes.onFocus, \"onFocus\" )\
        if f then\
            ob.whenFocussed = f\
            table.insert( scripts, { script = f } )\
        else\
            table.insert( errors, err )\
        end\
    end\
    if attributes.onUnFocus then\
        local f, err = loadstring( attributes.onUnFocus, \"onUnFocus\" )\
        if f then\
            ob.whenUnFocussed = f\
            table.insert( scripts, { script = f } )\
        else\
            table.insert( errors, err )\
        end\
    end\
    if type( attributes.align ) == \"string\" then\
        local children = parent:getChildren( )\
        if #children > 1 then\
            ob:alignTo( attributes.align, children[#children-1], tonumber( attributes.spacing ) )\
            ob.w = w\
            ob.h = h\
        end\
    end\
    return ob\
end\
\
local function loadColours( ob, attributes )\
    local bc = type( attributes.bc ) == \"number\" and attributes.bc\
    local tc = type( attributes.tc ) == \"number\" and attributes.tc\
    if colours[attributes.bc] then bc = colours[attributes.bc] end\
    if attributes.bc == \"transparent\" then bc = 0 end\
    if colours[attributes.tc] then tc = colours[attributes.tc] end\
    if attributes.tc == \"transparent\" then tc = 0 end\
    if bc then\
        ob.bc = bc\
    end\
    if tc then\
        ob.tc = tc\
    end\
end\
\
parser.registerTag( \"text\", true, false, function( parent, attributes, content, scripts, ids, errors )\
    if attributes.width == \"auto\" or not attributes.width then\
        attributes.width = #content\
    end\
    local ob = loadStandardAttributes( UIText, attributes, scripts, ids, errors, parent )\
    loadColours( ob, attributes )\
    ob.text = content\
    return ob\
end, nil, nil )\
\
parser.registerTag( \"frame\", true, true, function( parent, attributes, content, scripts, ids, errors )\
    local ob = loadStandardAttributes( UIFrame, attributes, scripts, ids, errors, parent )\
    return ob\
end, nil, nil )\
\
parser.registerTag( \"button\", true, false, function( parent, attributes, content, scripts, ids, errors )\
    if attributes.width == \"auto\" or not attributes.width then\
        attributes.width = #content\
    end\
    local ob = loadStandardAttributes( UIButton, attributes, scripts, ids, errors, parent )\
    loadColours( ob, attributes )\
    ob.text = content\
    if attributes.onClick then\
        local f, err = loadstring( attributes.onClick, \"onClick\" )\
        if f then\
            ob.onClick = f\
            table.insert( scripts, { script = f } )\
        else\
            table.insert( errors, err )\
        end\
    end\
    return ob\
end, nil, nil )\
\
parser.registerTag( \"input\", false, false, function( parent, attributes, content, scripts, ids, errors )\
    local ob = loadStandardAttributes( UIInput, attributes, scripts, ids, errors, parent )\
    loadColours( ob, attributes )\
    local fbc = type( attributes.fbc ) == \"number\" and attributes.fbc\
    if colours[attributes.fbc] then fbc = colours[attributes.fbc] end\
    if attributes.fbc == \"transparent\" then fbc = 0 end\
    if fbc then\
        ob.fbc = fbc\
    end\
    if attributes.mask then\
        ob.mask = tostring( attributes.mask )\
    end\
    return ob\
end, nil, nil )\
\
parser.registerTag( \"image\", false, false, function( parent, attributes, content, scripts, ids, errors )\
    local ob = loadStandardAttributes( UIImage, attributes, scripts, ids, errors, parent )\
    if attributes.source then\
        local source = tostring( attributes.source )\
        local h = fs.open( source, \"r\" )\
        if h then\
            local content = h.readAll( )\
            h.close( )\
            ob.image = Image( )\
            ob.image:loadstr( content )\
            ob.w, ob.h = ob.image:getSize( )\
        else\
            ob:remove( )\
            ob = UIButton( ob.x, ob.y, ob.w, ob.h, attributes.alt or \"could not load image\" )\
            ob.tc = colours.lightGrey\
        end\
    else\
        ob.image = Image( ob.w, ob.h )\
        ob.image:foreach( function( )\
            return colours.white, 1, \" \"\
        end )\
    end\
    return ob\
end, nil, nil )\
\
function load( str, frame, penv )\
    local body, scripts, ids, errors = parser.load( str, frame or UIFrame( 1, 1, term.getSize( ) ) )\
\
    ids.body = body\
\
    local env = { }\
    env.document = { }\
    local meta = { __index = penv or { } }\
    if penv then meta.__newindex = penv end\
    setmetatable( env, meta )\
\
    function env.document.getElementById( id )\
        return ids[id]\
    end\
    function env.document.addContent( str, id )\
        if not id then id = \"body\" end\
        if ids[id] then\
            local _, errs = load( str, ids[id], penv )\
            for i = 1, #errs do\
                table.insert( errors, errs[i] )\
            end\
            return true\
        else\
            return false, \"no such id\"\
        end\
    end\
\
    for i = 1,#scripts do\
        setfenv( scripts[i].script, env )\
        if scripts[i].run then\
            scripts[i].script( )\
        end\
    end\
\
    return frame, errors, env.document\
end", meta={
  type = "lib",
}};["UIText"]={content="\
\
require \"UIElement\"\
\
UIText:extends( UIElement )\
\
UIText.text = \"\"\
UIText.public \"text\"\
\
UIText.public \"bc\" \"number\"\
UIText.public \"tc\" \"number\"\
\
function UIText:UIText( x, y, w, h, text )\
    self:UIElement( x, y, w, h )\
    self.text = text\
    self.bc = colours.white\
    self.tc = colours.grey\
    return self.public\
end\
\
function UIText.public:draw( x, y )\
    local layer = stencil.addLayer( x, y, self.w, self.h )\
    local text = tostring( self.text )\
    if type( self.text ) == \"function\" then\
        text = self.text( self.public )\
    end\
    stencil.text( x, y, self.w, self.h, self.bc, self.tc, text )\
    local c = { }\
    for i, child in ipairs( self.children ) do\
        c[i] = child\
    end\
    for i, child in ipairs( c ) do\
        child:draw( x + child.x - 1 + self.cx, y + child.y - 1 + self.cy )\
    end\
    stencil.closeLayer( layer )\
end", meta={
  type = "class",
}};["network"]={content="\
\
require \"com\"\
require \"handshake\"\
\
local buffers = {\
    established = { }; -- .listen()\
}\
local channels = { }\
local opening = false\
local channelID = 0\
\
function genkey( seed )\
    math.randomseed( seed )\
    local s = \"\"\
    for i = 1, 64 do\
        s = s .. string.char( math.random( 0, 255 ) )\
    end\
    return s\
end\
\
function open( peer, protocol, insecure ) -- opens a secure channel with peer with [protocol]\
    if peer == os.getComputerID( ) then\
        local key = math.random( 1, 2^16 )\
        local t = { }\
        if insecure then\
            channels[t] = { peer = peer }\
        else\
            channels[t] = { peer = peer, key = genkey( key ), rawkey = key }\
        end\
        table.insert( buffers.established, { protocol = protocol, id = t } )\
        return t\
    end\
    local ok, err = com.send( peer, {\
        request = \"connection\";\
        protocol = type( protocol ) == \"string\" and protocol or \"none\";\
        handshake = handshake.generateInitiatorData( );\
        insecure = insecure\
    } )\
    if not ok then return false, err end\
    local ok, message = com.receive( peer, nil, 1 )\
    if ok then\
        local key = handshake.generateResponseData( message )\
        local t = { }\
        if insecure then\
            channels[t] = { peer = peer }\
        else\
            channels[t] = { peer = peer, key = genkey( key ), rawkey = key }\
        end\
        if insecure then\
            core.log( \"Network\", \"Insecure connection established with \" .. tostring( peer ) )\
        else\
            core.log( \"Network\", \"Secure connection established with \" .. tostring( peer ) )\
        end\
        return t\
    end\
    return false, message\
end\
\
function close( channel, reason ) -- closes an open channel with [reason]\
    if not channels[channel] then\
        return false, \"channel not open\"\
    end\
    local ok, data = com.send( channels[channel].peer, {\
        request = \"ConnectionClose\";\
        reason = type( reason ) == \"string\" and reason or \"unknown\";\
    }, channels[channel].key, channels[channel].rawkey )\
    if ok then\
        channels[channel] = nil\
    end\
    return ok, data\
end\
\
function send( channel, data ) -- sends a message over an open channel\
    if not channels[channel] then\
        return false, \"channel not open\"\
    end\
    return com.send( channels[channel].peer, data, channels[channel].key, channels[channel].rawkey )\
end\
\
function receive( channel, timeout ) -- waits for messages on an open channel for [timeout] seconds\
    if not channels[channel] then\
        return false, \"channel not open\"\
    end\
    local ok, data = com.receive( channels[channel].peer, channels[channel].key, timeout, channels[channel].rawkey )\
    if not ok then\
        return false, data\
    end\
    if type( data ) == \"table\" and data.request == \"ConnectionClose\" then\
        return false, \"closed\", data.reason\
    end\
    return true, data\
end\
\
function listen( protocol, timeout ) -- waits for a channel to be opened with [protocol] for [timeout] seconds\
    local time = os.clock( )\
    while not timeout or os.clock( ) - time <= timeout do\
        for i = #buffers.established, 1, -1 do\
            local channel = buffers.established[i]\
            if channel.protocol == protocol then\
                table.remove( buffers.established, i )\
                return channel.id\
            end\
        end\
        coroutine.yield( )\
    end\
    return false\
end\
\
-- internal functions\
\
function addToBuffer( buffer, data )\
    buffers[buffer] = buffers[buffer] or { }\
    table.insert( buffers[buffer], data )\
end\
\
function addChannel( peer, protocol, key, rawkey )\
    local t = { }\
    channels[t] = {\
        peer = peer;\
        key = key;\
        rawkey = rawkey;\
    }\
    addToBuffer( \"established\", { protocol = protocol, id = t } )\
end\
\
function clearBuffers( )\
    for key in pairs( buffers ) do\
        buffers[key] = { }\
    end\
end", meta={
  type = "lib",
}};["MarkupParagraph"]={content="\
\
require \"MarkupGenericObject\"\
\
MarkupParagraph:extends( MarkupGenericObject )\
\
MarkupParagraph.public.etype = \"paragraph\"\
\
function MarkupParagraph:MarkupParagraph( ... )\
    self:MarkupGenericObject( ... )\
\
    self.innerNML = { }\
\
    return self.public\
end\
\
function MarkupParagraph.public:setAttribute( attribute, value ) -- protected objects should do innerNML stuff\
    if MarkupGenericObject.attributes[attribute] then\
        MarkupGenericObject.attributes[attribute]( self, value )\
    end\
    if attribute == \"tc\" or attribute == \"textColour\" then\
        if colours[value] or value == \"transparent\" then\
            self.tc = colours[value] or 0\
        end\
    end\
    if attribute == \"bc\" or attribute == \"backgroundColour\" or attribute == \"colour\" then\
        if colours[value] or value == \"transparent\" then\
            self.bc = colours[value] or 0\
        end\
    end\
    if attribute == \"align\" then\
        if value == \"left\" or value == \"right\" or value == \"centre\" then\
            self.align = value\
        end\
    end\
    if attribute == \"innerNML\" then\
        self.innerNML = self.page:loadAST( value )\
    end\
    self.page.needsReposition = true\
end\
\
function MarkupParagraph.public:loadObject( positionHandler )\
\
    self.page:newStyle {\
        bc = self.bc;\
        tc = self.tc;\
        align = self.align;\
    }\
    for i = #self.innerNML, 1, -1 do\
        if self.innerNML[i].remove then\
            table.remove( self.objects, i )\
        end\
    end\
    local objects = { }\
    if self.width.type == \"text\" and self.width.value == \"auto\" and self.height.type == \"text\" and self.height.value == \"auto\" then\
        for i = 1, #self.innerNML do\
            local o = positionHandler:newObject( self.innerNML[i], self.page )\
            for i = 1, #o do\
                table.insert( objects, o[i] )\
            end\
        end\
        local ob = MarkupLoadedObject( )\
        ob:initialise( UIText, \"\" )\
        ob.x = positionHandler.x\
        ob.y = positionHandler.y\
        table.insert( objects, ob )\
    else\
        local w, h = 0, 0\
        if self.width.type == \"text\" and self.width.value == \"auto\" then\
            w = positionHandler.w - positionHandler.x + 1\
        elseif self.width.type == \"percent\" then\
            w = self.width.value / 100 * positionHandler.w\
        elseif self.width.type == \"pixel\" then\
            w = self.width.value\
        end\
        if self.height.type == \"text\" and self.height.value == \"auto\" then\
            h = positionHandler.h - positionHandler.y + 1\
        elseif self.height.type == \"percent\" then\
            h = self.height.value / 100 * positionHandler.h\
        elseif self.height.type == \"pixel\" then\
            h = self.height.value\
        end\
        local pos = MarkupPositionHandler( w, h )\
        for i = 1, #self.innerNML do\
            local o = pos:newObject( self.innerNML[i], self.page )\
            for i = 1, #o do\
                table.insert( objects, o[i] )\
            end\
        end\
        if self.height.type == \"text\" and self.height.value == \"auto\" then\
            h = 0\
            for i = 1, #objects do\
                if objects[i].y + objects[i].content.height - 1 > h then\
                    h = objects[i].y + objects[i].content.height - 1\
                end\
            end\
        end\
        local rw, rh = w, h\
        local scrollbarv, scrollbarh = false, false\
        for i = 1, #objects do\
            if objects[i].y + objects[i].content.height - 1 > h and not scrollbarv then\
                w = w - 1\
            end\
            if objects[i].x + objects[i].content.width - 1 > w and not scrollbarh then\
                h = h - 1\
                scrollbarh = true\
            end\
            if objects[i].y + objects[i].content.height - 1 > h and not scrollbarv then\
                scrollbarv = true\
            end\
            if scrollbarv and scrollbarh then\
                break\
            end\
        end\
        local loadedObject = MarkupLoadedObject( )\
        loadedObject.x = positionHandler.x\
        loadedObject.y = positionHandler.y\
        loadedObject.content.width = rw\
        loadedObject.content.height = rh\
        loadedObject:initialise( UIFrame )\
        local f = loadedObject.element\
        f:newChild( UIText( 1, 1, rw, rh, \"\" ) ).bc = self.page:getStyle \"bc\"\
        local cf\
        if not scrollbarv and not scrollbarh then\
            cf = f\
        else\
            cf = f:newChild( UIFrame( 1, 1, w, h ) )\
        end\
        for i = 1, #objects do\
            cf:newChild( objects[i].element )\
        end\
        if scrollbarv then\
            f:newChild( UIScrollBar( rw, 1, 1, h, cf ) )\
        end\
        if scrollbarh then\
            f:newChild( UIScrollBar( 1, rh, rw, 1, cf, \"horizontal\" ) )\
        end\
        objects = { loadedObject }\
    end\
\
    self.page:removeStyle( )\
    return objects\
    -- generate a list of MarkupLoadedObjects\
end", meta={
  type = "class",
}};["DocumentEnvironment"]={content="\
\
function DocumentEnvironment:DocumentEnvironment( page, rawpage )\
\
    local env = { }\
    env._G = env\
\
    env._VERSION = _VERSION;\
    env.pairs = pairs;\
    env.ipairs = ipairs;\
    env.select = select;\
    env.unpack = unpack;\
    env.setfenv = setfenv;\
    env.getfenv = getfenv;\
    env.setmetatable = setmetatable;\
    env.getmetatable = getmetatable;\
    env.next = next;\
    env.rawset = rawset;\
    env.rawget = rawget;\
    env.rawequal = rawequal;\
    env.type = type;\
    env.tostring = tostring;\
    env.tonumber = tonumber;\
    env.pcall = pcall;\
    env.xpcall = xpcall;\
    env.loadstring = loadstring;\
    env.assert = assert;\
    env.error = error;\
    env.sleep = function( n )\
        local t = os.clock()\
        coroutine.yield()\
        while os.clock() - t < n do\
            coroutine.yield()\
        end\
    end;\
    env.__inext = __inext;\
\
    env.math = math;\
    env.string = string;\
    env.table = table;\
    env.coroutine = coroutine;\
    env.sha256 = sha256;\
    env.encryption = encryption;\
    env.stringutils = stringutils;\
    env.keys = keys;\
    env.colours = colours;\
    env.colors = colors;\
    env.vector = vector;\
    env.bit = bit;\
    env.http = http;\
    env.textutils = textutils;\
    env.rednet = rednet;\
    env.os = {\
        clock = os.clock;\
        time = os.time;\
        sleep = function( n )\
            env.sleep( n )\
        end;\
    }\
\
    env.class = class;\
\
    env.clipboard = clipboard\
\
    env.document = { }\
    function env.document.getElementById( id )\
        if page.ids[id] then\
            local s = page.ids[id]:scriptObject( )\
            rawpage.scriptelements[s] = page.ids[id]\
            return s\
        end\
        return false\
    end\
    function env.document.addObject( object, id )\
        if id and page.ids[id] then\
            if type( object ) == \"string\" or rawpage.scriptelements[object] then\
                if not page.ids[id]:addObject( rawpage.scriptelements[object] or object ) then\
                    return error \"cannot add objects to this element\"\
                end\
                page.needsReposition = true\
            else\
                return error \"invalid object\"\
            end\
        else\
            if type( object ) == \"string\" or rawpage.scriptelements[object] then\
                table.insert( rawpage.objects, rawpage.scriptelements[object] or object )\
                page.needsReposition = true\
            else\
                return error \"invalid object\"\
            end\
        end\
    end\
    function env.document.createObject( name )\
        if nova_markup.objects[name] then\
            local ob = nova_markup.objects[name] \"script\"\
            ob.page = page\
            local rawob = ob:scriptObject( )\
            rawpage.scriptelements[rawob] = ob\
            return rawob\
        else\
            return error \"no such object\"\
        end\
    end\
    function env.document.removeObject( id )\
        if page.ids[id] then\
            page.ids[id].remove = true\
            page.needsReposition = true\
            return true\
        end\
    end\
\
    env.page = { }\
\
    env.randomColour = function( min, max )\
        local n = 2 ^ math.random( min or 0, max or 15 )\
        for name, col in pairs( colours ) do\
            if col == n then\
                return name\
            end\
        end\
    end\
\
    return env\
end", meta={
  type = "class",
}};["buffer"]={content="\
\
local screen = { }\
local last = { }\
local w, h = term.getSize( )\
local bgc = colours.white\
local cb\
\
for y = 1, h do\
    screen[y] = { }\
    last[y] = { }\
    for x = 1, w do\
        screen[y][x] = { bc = 1, tc = 32768, char = \" \" }\
        last[y][x] = { }\
    end\
end\
\
function setPixel( x, y, bc, tc, char )\
    if screen[y] and screen[y][x] then\
        if bc ~= 0 then\
            screen[y][x].bc = bc\
        end\
        if tc == 0 then\
            char = \"\"\
        else\
            screen[y][x].tc = tc\
        end\
        if char ~= \"\" then\
            screen[y][x].char = char\
        end\
        return true\
    end\
    return false\
end\
\
function getPixel( x, y )\
    if last[y] and last[y][x] then\
        return last[y][x].bc, last[y][x].tc, last[y][x].char\
    end\
    return false\
end\
\
function hasChanged( x, y )\
    if screen[y] and screen[y][x] then\
        return screen[y][x].bc ~= last[y][x].bc or screen[y][x].tc ~= last[y][x].tc or screen[y][x].char ~= last[y][x].char\
    end\
    return false\
end\
\
function setCursorBlink( x, y, col )\
    cb = { x = x, y = y, col = col }\
end\
\
function drawChanges( )\
    local lasts = last\
    for y = 1, h do\
        local last\
        for x = 1, w do\
            if hasChanged( x, y ) then\
                if last then\
                    if last.bc == screen[y][x].bc and ( last.tc == screen[y][x].tc or screen[y][x].char == \" \" ) then\
                        last.char = last.char .. screen[y][x].char\
                    else\
                        term.setCursorPos( last.x, last.y )\
                        term.setBackgroundColour( last.bc )\
                        term.setTextColour( last.tc )\
                        term.write( last.char )\
                        last = { x = x, y = y, bc = screen[y][x].bc, tc = screen[y][x].tc, char = screen[y][x].char }\
                    end\
                else\
                    last = { x = x, y = y, bc = screen[y][x].bc, tc = screen[y][x].tc, char = screen[y][x].char }\
                end\
                lasts[y][x] = { bc = screen[y][x].bc, tc = screen[y][x].tc, char = screen[y][x].char }\
            elseif last then\
                term.setCursorPos( last.x, last.y )\
                term.setBackgroundColour( last.bc )\
                term.setTextColour( last.tc )\
                term.write( last.char )\
                last = nil\
            end\
        end\
        if last then\
            term.setCursorPos( last.x, last.y )\
            term.setBackgroundColour( last.bc )\
            term.setTextColour( last.tc )\
            term.write( last.char )\
        end\
    end\
    if cb then\
        if cb.col then\
            term.setTextColour( cb.col )\
        end\
        term.setCursorPos( cb.x, cb.y )\
        term.setCursorBlink( true )\
    else\
        term.setCursorBlink( false )\
    end\
end\
\
function clear( )\
    for x = 1, w do\
        for y = 1, h do\
            screen[y][x].bc = bgc\
            screen[y][x].char = \" \"\
        end\
    end\
    cb = false\
end\
\
function setBackgroundColour( col )\
    bgc = col\
end\
\
function reset( )\
    for y = 1, h do\
        last[y] = { }\
        for x = 1, w do\
            last[y][x] = { }\
        end\
    end\
end", meta={
  type = "lib",
}};["sha256"]={content="\
-- Adaptation of the Secure Hashing Algorithm (SHA-244/256)\
-- Found Here: http://lua-users.org/wiki/SecureHashAlgorithm\
-- Using an adapted version of the bit library\
-- Found Here: https://bitbucket.org/Boolsheet/bslf/src/1ee664885805/bit.lua\
-- Compressed using Lua Minifier (https://mothereff.in/lua-minifier)\
local a=2^32;local b=a-1;local function c(d)local mt={}local e=setmetatable({},mt)function mt:__index(f)local g=d(f)e[f]=g;return g end;return e end;local function h(e,i)local function j(k,l)local m,o=0,1;while k~=0 and l~=0 do local p,q=k%i,l%i;m=m+e[p][q]*o;k=(k-p)/i;l=(l-q)/i;o=o*i end;m=m+(k+l)*o;return m end;return j end;local function r(e)local s=h(e,2^1)local t=c(function(k)return c(function(l)return s(k,l)end)end)return h(t,2^e.n or 1)end;local u=r({[0]={[0]=0,[1]=1},[1]={[0]=1,[1]=0},n=4})local function v(k,l,w,...)local x=nil;if l then k=k%a;l=l%a;x=u(k,l)if w then x=v(x,w,...)end;return x elseif k then return k%a else return 0 end end;local function y(k,l,w,...)local x;if l then k=k%a;l=l%a;x=(k+l-u(k,l))/2;if w then x=bit32_band(x,w,...)end;return x elseif k then return k%a else return b end end;local function z(A)return(-1-A)%a end;local function B(k,C)if C<0 then return lshift(k,-C)end;return math.floor(k%2^32/2^C)end;local function D(A,C)if C>31 or C<-31 then return 0 end;return B(A%a,C)end;local function lshift(k,C)if C<0 then return D(k,-C)end;return k*2^C%2^32 end;local function E(A,C)A=A%a;C=C%32;local F=y(A,2^C-1)return D(A,C)+lshift(F,32-C)end;local f={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 G(H)return string.gsub(H,\".\",function(w)return string.format(\"%02x\",string.byte(w))end)end;local function I(J,n)local H=\"\"for K=1,n do local L=J%256;H=string.char(L)..H;J=(J-L)/256 end;return H end;local function M(H,K)local n=0;for K=K,K+3 do n=n*256+string.byte(H,K)end;return n end;local function N(O,len)local P=64-(len+9)%64;len=I(8*len,8)O=O..\"\\128\"..string.rep(\"\\0\",P)..len;assert(#O%64==0)return O end;local function Q(R)R[1]=0x6a09e667;R[2]=0xbb67ae85;R[3]=0x3c6ef372;R[4]=0xa54ff53a;R[5]=0x510e527f;R[6]=0x9b05688c;R[7]=0x1f83d9ab;R[8]=0x5be0cd19;return R end;local function S(O,K,R)local T={}for U=1,16 do T[U]=M(O,K+(U-1)*4)end;for U=17,64 do local g=T[U-15]local V=v(E(g,7),E(g,18),D(g,3))g=T[U-2]T[U]=T[U-16]+V+T[U-7]+v(E(g,17),E(g,19),D(g,10))end;local k,l,w,W,X,d,Y,Z=R[1],R[2],R[3],R[4],R[5],R[6],R[7],R[8]for K=1,64 do local V=v(E(k,2),E(k,13),E(k,22))local _=v(y(k,l),y(k,w),y(l,w))local a0=V+_;local a1=v(E(X,6),E(X,11),E(X,25))local a2=v(y(X,d),y(z(X),Y))local a3=Z+a1+a2+f[K]+T[K]Z,Y,d,X,W,w,l,k=Y,d,X,W+a3,w,l,k,a3+a0 end;R[1]=y(R[1]+k)R[2]=y(R[2]+l)R[3]=y(R[3]+w)R[4]=y(R[4]+W)R[5]=y(R[5]+X)R[6]=y(R[6]+d)R[7]=y(R[7]+Y)R[8]=y(R[8]+Z)end;local function a4(O)O=N(O,string.len(O))local R=Q({})for K=1,#O,64 do S(O,K,R)end;return G(I(R[1],4)..I(R[2],4)..I(R[3],4)..I(R[4],4)..I(R[5],4)..I(R[6],4)..I(R[7],4)..I(R[8],4))end;return a4", meta={
  type = "lib",
}};["parser"]={content="\
\
local function split( str, pat )\
    local sopened = false\
    local opened = false\
    local parts = { }\
    local last = 1\
    for i = 1,#str do\
        if str:sub( i, i ) == \"\\\"\" then\
            local count = 0\
            for ii = i - 1, 1, -1 do\
                if str:sub( ii, ii ) ~= \"\\\\\" then\
                    break\
                end\
                count = count + 1\
            end\
            if math.floor( count / 2 ) == count / 2 then -- an even number of \\s therefore a string opener\
                if sopened and sopened == str:sub( i, i ) then\
                    sopened = false\
                elseif not sopened then\
                    sopened = str:sub( i, i )\
                end\
            end\
        elseif not sopened then\
            if str:sub( i, i + #pat - 1 ) == pat then\
                table.insert( parts, str:sub( last, i - 1 ) )\
                last = i + #pat\
            end\
        end\
    end\
    table.insert( parts, str:sub( last ) )\
    return parts\
end\
\
local function findTags( str )\
    local sopened = false\
    local opened = false\
    local tags = { }\
    for i = 1,#str do\
        if str:sub( i, i ) == \"\\\"\" then\
            local count = 0\
            for ii = i - 1, 1, -1 do\
                if str:sub( ii, ii ) ~= \"\\\\\" then\
                    break\
                end\
                count = count + 1\
            end\
            if math.floor( count / 2 ) == count / 2 then -- an even number of \\s therefore a string opener\
                if sopened and sopened == str:sub( i, i ) then\
                    sopened = false\
                elseif not sopened then\
                    sopened = str:sub( i, i )\
                end\
            end\
        elseif not sopened then\
            if str:sub( i, i ) == \"<\" then\
                opened = i\
            elseif str:sub( i, i ) == \">\" then\
                table.insert( tags, { start = opened, finish = i, content = str:sub( opened + 1, i - 1 ) } )\
            end\
        end\
    end\
    return tags\
end\
\
local function readTags( tags )\
    for i = 1,#tags do\
        local c = tags[i].content\
        tags[i].content = nil\
        if c:sub( 1, 1 ) == \"/\" then\
            tags[i].type = \"close\"\
            tags[i].name = c:sub( 2 )\
        else\
            local parts = split( c, \" \" )\
            tags[i].type = \"open\"\
            tags[i].name = parts[1]\
            tags[i].attributes = { }\
            for ii = 2,#parts do\
                local s, f, name, value = parts[ii]:find( \"([%w_]-)[:=](.+)\" )\
                if s then\
                    tags[i].attributes[name] = value\
                end\
            end\
        end\
    end\
    return tags\
end\
\
local function loadAttributes( at )\
    local vals = { }\
    for k, v in pairs( at ) do\
        if v:sub( 1, 1 ) == \"\\\"\" and v:sub( #v ) == \"\\\"\" then\
            local str = loadstring( \"return \" .. v, \"string\" )\
            if str then\
                vals[k] = str( )\
            end\
        else\
            if v == \"true\" or v == \"false\" then\
                vals[k] = v == \"true\"\
            elseif tonumber( v ) then\
                vals[k] = tonumber( v )\
            else\
                vals[k] = v\
            end\
        end\
    end\
    return vals\
end\
\
local _tags = {\
    [\"script\"] = {\
        content = true;\
        children = false;\
        whenloaded = function( parent, attributes, content, scripts, ids, errors )\
            local name = attributes.name or \"script\"\
            local f, err = loadstring( content, name )\
            if f then\
                table.insert( scripts, { run = true, script = f } )\
            else\
                table.insert( errors, err )\
            end\
        end;\
    };\
    [\"style\"] = {\
        content = true;\
        children = false;\
        whenloaded = function( parent, attributes, content, scripts, ids )\
            local s = Style( content )\
            s:save( attributes.name or \"default\" )\
        end;\
    };\
}\
\
function registerTag( name, content, children, whenloaded, parents, childrenallowed )\
    _tags[name] = { content = content, children = children, whenloaded = whenloaded, parents = parents, childrenallowed = childrenallowed }\
end\
\
local loadString\
\
local function groupTags( tags, str, parenttype )\
    local t = { }\
    local i = 1\
    while i <= #tags do\
        local name = tags[i].name\
        if _tags[name] then\
            if tags[i].type == \"open\" then\
                if _tags[name].parents then\
                    local ok = false\
                    for i = 1,#_tags[name].parents do\
                        if _tags[name].parents[i] == parenttype then\
                            ok = true\
                            break\
                        end\
                    end\
                    if not ok then\
                        error( \"cannot have \" .. parenttype .. \" as a parent to \" .. name, 0 )\
                    end\
                end\
                local tag = {\
                    name = name;\
                    attributes = loadAttributes( tags[i].attributes );\
                    whenloaded = _tags[name].whenloaded;\
                }\
                if _tags[name].content then\
                    local layer = 1\
                    local found = false\
                    for c = i + 1, #tags do\
                        if tags[c].name == name then\
                            if tags[c].type == \"open\" then\
                                layer = layer + 1\
                            else\
                                layer = layer - 1\
                                if layer == 0 then\
                                    found = c\
                                    break\
                                end\
                            end\
                        end\
                    end\
                    if found then\
                        tag.content = str:sub( tags[i].finish + 1, tags[found].start - 1 )\
                        i = found\
                    else\
                        error( \"ending tag expected for \" .. name, 0 )\
                    end\
                end\
                if tag.content and _tags[name].children then\
                    tag.children = loadString( tag.content, tag.name )\
                    tag.content = nil\
                    if _tags[name].childrenallowed then\
                        for i = 1,#tag.children do\
                            local ok = false\
                            for ii = 1,#_tags[name].childrenallowed do\
                                if _tags[name].childrenallowed[ii] == tag.children[i].name then\
                                    ok = true\
                                    break\
                                end\
                            end\
                            if not ok then\
                                error( \"not allowed \" .. tag.children[i].name .. \" inside a \" .. tag.name, 0 )\
                            end\
                        end\
                    end\
                end\
                table.insert( t, tag )\
                i = i + 1\
            else\
                error( \"expected opening tag before closing tag for \" .. name, 0 )\
            end\
        else\
            error( \"unknown tag: \" .. name, 0 )\
        end\
    end\
    return t\
end\
\
function loadString( str, parent )\
    return groupTags( readTags( findTags( str ) ), str, parent or \"frame\" )\
end\
\
local loadElements\
function loadElements( children, parent, scripts, ids, errors )\
    if not scripts then\
        scripts = { }\
        ids = { }\
        errors = { }\
    end\
    for i = 1,#children do\
        local child = children[i].whenloaded( parent, children[i].attributes, children[i].content, scripts, ids, errors )\
        if children[i].children then\
            loadElements( children[i].children, child, scripts, ids, errors )\
        end\
    end\
    return parent, scripts, ids, errors\
end\
\
function load( str, frame )\
    local tags = loadString( str )\
    return loadElements( tags, frame )\
end", meta={
  type = "lib",
}};["UITextbox"]={content="\
\
local function linewrap( str, w )\
    for i = 1, w + 1 do\
        if str:sub( i, i ) == \"\\n\" then\
            return str:sub( 1, i - 1 ), str:sub( i + 1 )\
        end\
    end\
    if #str <= w then\
        return str, \"\"\
    end\
    if str:sub( w + 1, w + 1 ):find \"%s\" then\
        return str:sub( 1, w ), str:sub( w + 1 ):gsub( \"^%s+\", \"\" )\
    end\
    for i = w, 1, -1 do\
        if str:sub( i, i ):find \"%s\" then\
            return str:sub( 1, i ), str:sub( i + 1 )\
        end\
    end\
    return str:sub( 1, w ), str:sub( w + 1 )\
end\
\
local function wordwrap( str, w, h )\
    local lines = { }\
    local line\
    while #str > 0 do\
        line, str = linewrap( str, w )\
        table.insert( lines, line )\
    end\
    if h then\
        while #lines > h do\
            lines[#lines] = nil\
        end\
    end\
    return lines\
end\
\
require \"UIElement\"\
UITextbox:extends( UIElement )\
\
UITextbox.handlesKeys = true\
UITextbox.tabIndex =  true\
\
UITextbox.public \"text\"\
\
UITextbox.public \"onChange\" \"function\"\
function UITextbox.public.text:write( value )\
    local t = tostring( value )\
    t = t:sub( 1, self.w * self.h )\
    while true do\
        local lines = wordwrap( t, self.w )\
        if #lines <= self.h then\
            break\
        end\
        t = t:sub( 1, -2 )\
    end\
    self.text = t\
end\
\
UITextbox.bc = colours.lightGrey\
UITextbox.fbc = colours.white\
UITextbox.tc = colours.black\
\
UITextbox.public \"bc\" \"number\"\
UITextbox.public \"fbc\" \"number\"\
UITextbox.public \"tc\" \"number\"\
\
UITextbox.onEnter = false\
UITextbox.public \"onEnter\" \"function\"\
\
function UITextbox:UITextbox( x, y, w, h, text, session )\
    self:UIElement( x, y, w, h )\
\
    self.public.text = text\
    self.cursor = cursor\
\
    return self.public\
end\
\
function UITextbox:getCursorXY( )\
    local lines = wordwrap( self.text, self.w, self.h )\
    local c = self.cursor\
    for i = 1, #lines do\
        if #lines[i] <= c then\
            c = c - #lines[i]\
        else\
            return c, i\
        end\
    end\
    if #lines == 0 then\
        return 1, 1\
    elseif self.text:sub( -1, -1 ) == \"\\n\" then\
        return 1, #lines + 1\
    else\
        return #lines[#lines] + 1, #lines\
    end\
end\
\
function UITextbox:getCursorPos( x, y )\
    local lines = wordwrap( self.text, self.w, self.h )\
    if lines[y] then\
        local pos = 0\
        for i = 1, y - 1 do\
            pos = pos + #lines[i]\
        end\
        if #lines[y] >= x then\
            pos = pos + x\
        else\
            pos = pos + #lines[y] + 1\
        end\
        return pos\
    else\
        return #self.text + 1\
    end\
end\
\
function UITextbox.public:draw( x, y )\
    local layer = stencil.addLayer( x, y, self.w, self.h )\
    local text = tostring( self.text )\
    local bc = self.bc\
    if self.focussed then\
        bc = self.fbc\
    end\
    stencil.text( x, y, self.w, self.h, bc, self.tc, self.text )\
    if self.focussed then\
        local cx, cy = self:getCursorXY( )\
        stencil.setCursorBlink( x + cx - 1, y + cy - 1 )\
    end\
    local c = { }\
    for i, child in ipairs( self.children ) do\
        c[i] = child\
    end\
    for i, child in ipairs( c ) do\
        child:draw( x + child.x - 1 + self.cx, y + child.y - 1 + self.cy )\
    end\
    stencil.closeLayer( layer )\
end\
\
function UITextbox.public:onMouseClick( rx, ry, button )\
    local pos = self:getCursorPos( rx, ry )\
    self.cursor = pos\
end\
\
function UITextbox.public:onKeyPress( key, lastkey )\
    if not self.focussed then\
        return\
    end\
    if key == keys.enter then\
        local c = self.cursor\
        local t = self.text\
        self.text = self.text:sub( 1, self.cursor - 1 ) .. \"\\n\" .. self.text:sub( self.cursor )\
        self.cursor = self.cursor + 1\
        if type( self.onChange ) == \"function\" then\
            self.onChange( self.public )\
        end\
        local lines = wordwrap( self.text, self.w )\
        if #lines > self.h then\
            self.text = t\
            self.cursor = c\
        end\
    elseif key == keys.left and self.cursor > 1 then\
        self.cursor = self.cursor - 1\
    elseif key == keys.right and self.cursor <= #self.text then\
        self.cursor = self.cursor + 1\
    elseif key == keys.backspace and self.cursor > 1 then\
        self.text = self.text:sub( 1, self.cursor - 2 ) .. self.text:sub( self.cursor )\
        self.cursor = self.cursor - 1\
    elseif key == keys.delete then\
        self.text = self.text:sub( 1, self.cursor - 1 ) .. self.text:sub( self.cursor + 1 )\
    end\
end\
\
function UITextbox.public:onTextInput( text, lastkey )\
    if not self.focussed then\
        return\
    end\
    if lastkey ~= keys.leftCtrl then\
        local c = self.cursor\
        local t = self.text\
        self.text = self.text:sub( 1, self.cursor - 1 ) .. text .. self.text:sub( self.cursor )\
        self.cursor = self.cursor + 1\
        if type( self.onChange ) == \"function\" then\
            self.onChange( self.public )\
        end\
        local lines = wordwrap( self.text, self.w )\
        if #lines > self.h then\
            self.text = t\
            self.cursor = c\
        end\
    end\
end\
\
function UITextbox.public:onFocus( )\
    self.focussed = true\
    self.handlesKeys = true\
    if type( self.whenFocussed ) == \"function\" then\
        self.whenFocussed( self.public )\
    end\
end\
\
function UITextbox.public:onUnFocus( )\
    self.focussed = false\
    self.handlesKeys = false\
    if type( self.whenUnFocussed ) == \"function\" then\
        self.whenUnFocussed( self.public )\
    end\
end\
\
function UITextbox.public:focusOn( )\
    local handler = self.public:getHandler( )\
    handler:setFocus( self.public )\
end", meta={
  type = "class",
}};["UIScrollBar"]={content="\
\
require \"UIElement\"\
\
UIScrollBar:extends( UIElement )\
\
UIScrollBar.public \"bc\"  \"number\"\
UIScrollBar.public \"tc\"  \"number\"\
\
UIScrollBar.handlesScroll = true\
\
function UIScrollBar:UIScrollBar( x, y, w, h, target, direction )\
    self:UIElement( x, y, w, h )\
\
    self.bc = colours.lightGrey\
    self.tc = colours.grey\
    self.direction = direction or \"vertical\"\
\
    if target then\
        if class.typeOf( target, UIElement ) then\
            if target.isScrollTarget then\
                self.target = target\
            else\
                error( \"cannot set \" .. target:type( ) .. \" as scroll target\", 3 )\
            end\
        else\
            error( \"expected UIElement target\", 3 )\
        end\
    end\
    return self.public\
end\
\
function UIScrollBar.public:setScrollTarget( target )\
    if class.typeOf( target, UIElement ) then\
        if target.isScrollTarget then\
            self.target = target\
        else\
            error( \"cannot set \" .. target:type( ) .. \" as scroll target\", 2 )\
        end\
    else\
        error( \"expected UIElement target\", 2 )\
    end\
end\
\
--[[\
    barsize/traysize = framesize/contentsize\
    barposition = traysize * contentscroll / contentsize\
]]\
\
function UIScrollBar:getBar( )\
    if not self.target then\
        return 0, self.direction == \"vertical\" and self.h or self.w\
    end\
    local traysize\
    if self.direction == \"vertical\" then\
        traysize = self.h\
    else\
        traysize = self.w\
    end\
    local framesize, contentsize, contentscroll\
    if self.direction == \"vertical\" then\
        framesize = self.target:getDisplaySizeV( )\
        contentsize = self.target:getContentSizeV( )\
        contentscroll = self.target:getContentScrollV( )\
    else\
        framesize = self.target:getDisplaySizeH( )\
        contentsize = self.target:getContentSizeH( )\
        contentscroll = self.target:getContentScrollH( )\
    end\
\
    local barsize = math.max( math.floor( traysize * framesize / contentsize ), 1 )\
\
    local barpos = traysize * contentscroll / contentsize\
    return math.ceil( barpos ), barsize\
end\
\
function UIScrollBar.public:draw( x, y )\
    local layer = stencil.addLayer( x, y, self.w, self.h )\
    if self.target then\
        local pos, size = self:getBar( )\
        stencil.rectangle( x, y, self.w, self.h, self.tc, 1, \" \" )\
        if self.direction == \"vertical\" then\
            stencil.rectangle( x, y + pos, self.w, size, self.bc, 1, \" \" )\
        else\
            stencil.rectangle( x + pos, y, size, self.h, self.bc, 1, \" \" )\
        end\
    else\
        stencil.rectangle( x, y, self.w, self.h, self.bc, 1, \" \" )\
    end\
    local c = { }\
    for i, child in ipairs( self.children ) do\
        c[i] = child\
    end\
    for i, child in ipairs( c ) do\
        child:draw( x + child.x - 1 + self.cx, y + child.y - 1 + self.cy )\
    end\
    stencil.closeLayer( layer )\
end\
\
function UIScrollBar.public:onMouseClick( rx, ry, button )\
    if not self.target then return end\
    local pos, size = self:getBar( )\
    local traysize\
    if self.direction == \"vertical\" then\
        self.downoffset = ry - pos\
        if ry > pos and ry < pos + size - 1 then return end\
        pos = ry - 1\
        traysize = self.h\
    else\
        self.downoffset = rx - pos\
        if rx > pos and rx < pos + size - 1 then return end\
        pos = rx - 1\
        traysize = self.w\
    end\
    pos = math.max( math.min( pos, traysize - size), 0 )\
    if self.direction == \"vertical\" then\
        self.target:setContentScrollV( math.floor( pos / traysize * self.target:getContentSizeV( ) ) )\
    else\
        self.target:setContentScrollH( math.floor( pos / traysize * self.target:getContentSizeH( ) ) )\
    end\
end\
\
function UIScrollBar.public:onMouseDrag( rx, ry, cx, cy, button )\
    if not self.target then return end\
    local pos, size = self:getBar( )\
    local traysize\
    if self.direction == \"vertical\" then\
        pos = ry - self.downoffset\
        traysize = self.h\
    else\
        pos = rx - self.downoffset\
        traysize = self.w\
    end\
    pos = math.max( math.min( pos, traysize - size), 0 )\
    if self.direction == \"vertical\" then\
        self.target:setContentScrollV( math.floor( pos / traysize * self.target:getContentSizeV( ) ) )\
    else\
        self.target:setContentScrollH( math.floor( pos / traysize * self.target:getContentSizeH( ) ) )\
    end\
end\
\
function UIScrollBar.public:onMouseScroll( rx, ry, dir )\
    if not self.target then return end\
    local pos, size = self:getBar( )\
    local traysize\
    if self.direction == \"vertical\" then\
        traysize = self.h\
    else\
        traysize = self.w\
    end\
    pos = math.max( math.min( pos + dir, traysize - size), 0 )\
    if self.direction == \"vertical\" then\
        self.target:setContentScrollV( math.floor( pos / traysize * self.target:getContentSizeV( ) ) )\
    else\
        self.target:setContentScrollH( math.floor( pos / traysize * self.target:getContentSizeH( ) ) )\
    end\
end", meta={
  type = "class",
}};["Drive"]={content="\
\
function Drive:Drive( methods ) -- table methods\
    if type( methods ) ~= \"table\" then\
        error( \"expected table methods\", 2 )\
    end\
    for k, v in pairs( fs ) do\
        if not methods[k] then\
            error( \"expected \" .. k .. \" method in table\", 2 )\
        end\
    end\
\
    self.methods = methods\
\
    return self.public\
end\
\
function Drive.meta:index( key )\
    return self.methods[key]\
end\
\
for k, v in pairs( fs ) do\
    Drive.public( k )\
    Drive.public[k].write = false\
    Drive.public[k].read = function( self )\
        return self.methods[k]\
    end\
end\
\
local function combine( p1, p2 )\
    if type( p2 ) ~= \"string\" then\
        return error \"expected string\"\
    end\
    return fs.combine( p1, p2 )\
end\
\
function Drive.static.redirect( path )\
\
    local mfs = setmetatable( { }, { __index = fs } )\
    mfs.open = function( p, mode )\
        return fs.open( combine( path, p ), mode )\
    end\
    mfs.list = function( p )\
        return fs.list( combine( path, p ) )\
    end\
    mfs.exists = function( p )\
        return fs.exists( combine( path, p ) )\
    end\
    mfs.isDir = function( p )\
        return fs.isDir( combine( path, p ) )\
    end\
    mfs.isReadOnly = function( p )\
        return fs.isReadOnly( combine( path, p ) )\
    end\
    mfs.getDrive = function( p )\
        return fs.getDrive( combine( path, p ) )\
    end\
    mfs.getSize = function( p )\
        if mfs.isDir( p ) then\
            local files = mfs.list( p )\
            local n = 0\
            for i = 1, #files do\
                n = n + mfs.getSize( p .. \"/\" .. files[i] )\
            end\
            return n\
        else\
            return fs.getSize( combine( path, p ) )\
        end\
    end\
    mfs.getFreeSpace = function( p )\
        return fs.getFreeSpace( combine( path, p ) )\
    end\
    mfs.makeDir = function( p )\
        return fs.makeDir( combine( path, p ) )\
    end\
    mfs.move = function( p1, p2 )\
        return fs.move( combine( path, p1 ), combine( path, p2 ) )\
    end\
    mfs.copy = function( p1, p2 )\
        return fs.copy( combine( path, p1 ), combine( path, p2 ) )\
    end\
    mfs.delete = function( p )\
        return fs.delete( combine( path, p ) )\
    end\
    mfs.find = function( p )\
        return fs.find( combine( path, p ) )\
    end\
\
    return Drive( mfs )\
\
end", meta={
  type = "class",
}};["MarkupPositionHandler"]={content="\
\
MarkupPositionHandler.public \"x\"\
MarkupPositionHandler.public.x.write = false\
MarkupPositionHandler.public \"y\"\
MarkupPositionHandler.public.y.write = false\
MarkupPositionHandler.public \"w\" \"number\"\
MarkupPositionHandler.public \"h\" \"number\"\
\
function MarkupPositionHandler:MarkupPositionHandler( w, h )\
    self.x = 1\
    self.y = 1\
    self.w = w\
    self.h = h\
\
    self.last = false\
    self.tallest = 0\
\
    return self.public\
end\
\
local inline = {\
    text = true;\
    image = true;\
    frame = true;\
    button = true;\
    input = true;\
    space = true;\
    newline = true;\
}\
\
function MarkupPositionHandler.public:newObject( object, page ) -- MarkupGenericObject\
    if not object.static then\
        if not self.last or self.last.mode == \"block\" or ( not inline[object.etype] and type( object ) ~= \"string\" ) then\
            self.x = 1\
            self.y = self.tallest + 1\
        else\
            self.x = self.last.x + self.last.content.width\
            self.y = self.last.y\
        end\
    end\
    local objects\
    if type( object ) == \"string\" then\
        objects = { }\
        local rem = object  \
        while rem do\
            local x, y, str\
            x, y, str, rem = self.public:addTextContent( rem, page )\
            local ob = MarkupLoadedObject( )\
            ob.mode = \"inline\"\
            ob.x = x\
            ob.y = y\
            ob.content.width = #str\
            ob.content.height = 1\
            ob:initialise( UIText )\
            ob.element.text = str\
            ob.element.bc = page:getStyle \"bc\"\
            ob.element.tc = page:getStyle \"tc\"\
            table.insert( objects, ob )\
        end\
    end\
    if not objects then\
        objects = object:loadObject( self.public )\
    end\
    if not object.static then\
        if #objects > 0 then\
            self.last = objects[#objects]\
        end\
        for i = 1, #objects do\
            if objects[i].y + objects[i].content.height - 1 > self.tallest then\
                self.tallest = objects[i].y + objects[i].content.height - 1\
            end\
        end\
    end\
    return objects\
end\
\
function MarkupPositionHandler.public:addTextContent( text, page )\
    local line, remain\
    local x, y, nx = self.x, self.y, 0\
    for i = 1, self.w - self.x + 1 do\
        if text:sub( i, i ) == \"\\n\" then\
            line = text:sub( 1, i - 1 )\
            remain = text:sub( i + 1 )\
            self.y = self.y + 1\
            if self.y <= self.tallest then\
                nx = self.last.x + self.last.content.width\
            else\
                nx = 1\
            end\
            break\
        end\
    end\
    if not line then\
        if #text > self.w - self.x + 1 then\
            for i = self.w - self.x + 2, 1, -1 do\
                if text:sub( i, i ):find \"%s\" then\
                    line = text:sub( 1, i - 1 )\
                    remain = text:sub( i + 1 )\
                    break\
                end\
            end\
            if not line then\
                line = text:sub( 1, self.w - self.x + 1 )\
                remain = text:sub( self.w - self.x + 2 )\
            end\
            self.y = self.y + 1\
            if self.y <= self.tallest then\
                nx = self.last.x + self.last.content.width\
            else\
                nx = 1\
            end\
        else\
            line = text\
            remain = false\
            nx = self.x + #text\
        end\
    end\
    if page:getStyle \"align\" == \"right\" then\
        x = self.w - x - #line + 2\
    elseif page:getStyle \"align\" == \"centre\" then\
        x = math.ceil( self.w / 2 - ( x + #line - 1 ) / 2 ) + 1\
    end\
    self.x = nx\
    return x, y, line, remain and ( #remain > 0 and remain or false )\
end", meta={
  type = "class",
}};["UI"]={content="\
require \"buffer\"\
require \"display\"\
require \"markup\"\
require \"parser\"\
require \"stencil\"", meta={}};["display"]={content="\
\
local function bluebox( frame, height )\
    local w, h = frame.w, frame.h\
    local f = frame:newChild( UIFrame( 1, math.ceil( h / 2 - height / 2 ) + 1, w, height ) )\
    f:newChild( UIText( 1, 1, f.w, f.h, \"\" ) ).bc = colours.blue\
    return f\
end\
\
function alert( frame, message, wait )\
    local active = true\
    local close = frame:newChild( UIButton( 1, 1, frame.w, frame.h, \"\" ) )\
    close.bc = 0\
    close.align = false\
    local f = bluebox( frame, 6 )\
    function close:onClick( )\
        close:remove( )\
        f:remove( )\
        active = false\
    end\
    local title = f:newChild( UIText( 0, 2, math.min( #message, f.w - 2 ), 2, message ) )\
    title.bc = 0\
    title.tc = colours.lightBlue\
    title:centreX( )\
    local ok = f:newChild( UIButton( 0, 5, 2, 1, \"ok\" ) )\
    ok.bc = 0\
    ok.tc = colours.white\
    ok:centreX( )\
    function ok:onClick( )\
        close:remove( )\
        f:remove( )\
        active = false\
    end\
    if wait then\
        while active do\
            coroutine.yield( )\
        end\
    end\
end\
\
function response( frame, title, mask )\
    local active = true\
    local r = false\
    local close = frame:newChild( UIButton( 1, 1, frame.w, frame.h, \"\" ) )\
    close.bc = 0\
    close.align = false\
    local f = bluebox( frame, 6 )\
    function close:onClick( )\
        close:remove( )\
        f:remove( )\
        active = false\
    end\
    local title = f:newChild( UIText( 0, 2, math.min( #title, f.w - 2 ), 2, title ) )\
    title.bc = 0\
    title.tc = colours.lightBlue\
    title:centreX( )\
    local input = f:newChild( UIInput( 2, 5, frame.w - 2, 1, mask ) )\
    input.bc = 0\
    input.fbc = 0\
    input.tc = colours.white\
    input:focusOn( )\
    function input:onEnter( )\
        close:remove( )\
        f:remove( )\
        active = false\
        r = self.text\
    end\
    while active do\
        coroutine.yield( )\
    end\
    return r\
end\
\
function confirm( frame, title )\
    local result = \"none\"\
    local close = frame:newChild( UIButton( 1, 1, frame.w, frame.h, \"\" ) )\
    close.bc = 0\
    close.align = false\
    local f = bluebox( frame, 6 )\
    function close:onClick( )\
        close:remove( )\
        f:remove( )\
        result = nil\
    end\
    local t = f:newChild( UIText( 2, 2, math.min( #title, f.w - 2 ), 2, title ) )\
    t.bc = colours.blue\
    t.tc = colours.lightBlue\
    t:centreX( )\
    local yes = f:newChild( UIButton( 2, 5, math.floor( ( f.w - 2 ) / 2 ), 1, \"yes\" ) )\
    yes.bc = colours.blue\
    yes.tc = colours.white\
    function yes:onClick( )\
        f:remove( )\
        close:remove( )\
        result = true\
    end\
    local no = f:newChild( UIButton( f.w - yes.w, 5, math.floor( ( f.w - 2 ) / 2 ), 1, \"no\" ) )\
    no.bc = colours.blue\
    no.tc = colours.white\
    function no:onClick( )\
        f:remove( )\
        close:remove( )\
        result = false\
    end\
    while result == \"none\" do\
        coroutine.yield( )\
    end\
    return result\
end\
\
function sframe( frame, x, y, w, h ) -- scrolling frame (auto scrollbar)\
\
end\
\
function help( frame, title, content )\
    local close = frame:newChild( UIButton( 1, 1, frame.w, frame.h, \"\" ) )\
    close.bc = 0\
    close.align = false\
    local f = bluebox( frame, 14 )\
    local t = f:newChild( UIText( 2, 2, #title, 1, title ) )\
    t.bc = colours.blue\
    t.tc = colours.white\
    t:centreX( )\
    f:newChild( UIText( 3, 5, f.w - 3, f.h - 7, \"\" ) ).bc = colours.grey\
    local c = f:newChild( UIText( 2, 4, f.w - 3, f.h - 7, content ) )\
    c.tc = colours.grey\
    local ok = f:newChild( UIButton( 2, f.h - 1, f.w - 2, 1, \"Got it!\" ) )\
    ok.bc = colours.blue\
    ok.tc = colours.white\
    function ok:onClick( )\
        close:remove( )\
        f:remove( )\
    end\
    function close:onClick( )\
        close:remove( )\
        f:remove( )\
    end\
end\
\
function menu( frame, options )\
    frame:clearChildren( )\
    if options.width then\
        frame.w = options.width\
    end\
    if options.height then\
        frame.h = options.height\
    end\
    if options.shadow then\
        frame.w = frame.w - 1\
        frame.h = frame.h - 1\
        frame:newChild( UIText( 2, 2, frame.w, frame.h, \"\" ) ).bc = options.shadow\
    end\
    local sframe = frame\
    local y = 1\
    local bc = options.colour or 1\
    frame:newChild( UIButton( 1, 1, frame.w, frame.h, \"\" ) ).bc = bc\
    if #options > frame.h then\
        sframe = frame:newChild( UIFrame( 1, 1, frame.w - 1, frame.h ) )\
        local scrollbar = frame:newChild( UIScrollBar( frame.w, 1, 1, frame.h, sframe ) )\
    end\
    for i = 1, #options do\
        if options[i] == \"rule\" then\
            local r = sframe:newChild( UIText( 2, y, sframe.w - 2, 1, (\"-\"):rep( math.max( sframe.w - 2, 0 ) ) ) )\
            r.tc = colours.lightGrey\
            r.bc = 0\
        elseif options[i] ~= \"space\" then\
            if options[i].type == \"menu\" then\
                local arrow = sframe:newChild( UIText( sframe.w - 1, y, 1, 1, \">\" ) )\
                arrow.bc = 0\
                arrow.tc = colours.blue\
                local button = sframe:newChild( UIButton( options.spacing == false and 2 or 3, y, sframe.w - ( options.spacing == false and 2 or 3 ), 1, options[i].name ) )\
                button.bc = 0\
                button.tc = colours.grey\
                button.align = false\
                local cx, cy = frame.x + frame.w, y - 1\
                function button:onClick( )\
                    if frame.parent then\
                        local close = frame:newChild( UIButton( 1, 1, frame.w, frame.h, \"\" ) )\
                        close.bc, close.align = 0, false\
                        local f = UIFrame( cx, cy + frame.y + sframe.cy, frame.w, frame.h )\
                        local w, h = frame.parent.w, frame.parent.h\
                        menu( f, options[i].options )\
                        if f.x + f.w > w + 1 then\
                            f.x = w - f.w + 1\
                        end\
                        if f.y + f.h > h + 1 then\
                            f.y = h - f.h + 1\
                        end\
                        frame.parent:newChild( f )\
                        function close:onClick( )\
                            f:remove( )\
                            close:remove( )\
                        end\
                    end\
                end\
            elseif options[i].type == \"button\" then\
                local button = sframe:newChild( UIButton( options.spacing == false and 2 or 4, y, sframe.w - ( options.spacing == false and 2 or 4 ), 1, options[i].name ) )\
                button.bc = 0\
                button.tc = options[i].blue and colours.blue or colours.grey\
                button.align = false\
                function button:onClick( x, y, b )\
                    if type( options[i].onClick ) == \"function\" then\
                        options[i].onClick( button, frame, b )\
                    end\
                end\
            elseif options[i].type == \"display\" then\
                local text = sframe:newChild( UIText( options.spacing == false and 2 or 4, y, sframe.w - ( options.spacing == false and 2 or 4 ), 1, function( )\
                    if type( options[i].getDisplay ) == \"function\" then\
                        return options[i].name .. tostring( options[i].getDisplay( ) )\
                    end\
                    return options[i].name\
                end ) )\
                text.bc = 0\
                text.tc = colours.grey\
            elseif options[i].type == \"input\" then\
                if options[i].label then\
                    local label = sframe:newChild( UIText( options.spacing == false and 2 or 5, y, sframe.w - ( options.spacing == false and 2 or 5 ), 1, options[i].label ) )\
                    label.bc = 0\
                    label.tc = colours.lightGrey\
                    y = y + 1\
                end\
                local input = sframe:newChild( UIInput( options.spacing == false and 2 or 4, y, sframe.w - ( options.spacing == false and 2 or 4 ), 1, options[i].mask ) )\
                input.bc = colours.lightGrey\
                input.fbc = colours.lightGrey\
                function input:onEnter( )\
                    if type( options[i].onEnter ) == \"function\" then\
                        options[i].onEnter( input )\
                    end\
                end\
                function input:whenUnFocussed( )\
                    self.text = \"\"\
                end\
            elseif options[i].type == \"label\" then\
                local text = sframe:newChild( UIText( 2, y, sframe.w - 2, 1, options[i].name ) )\
                text.bc = 0\
                text.tc = colours.lightGrey\
            end\
        end\
        y = y + 1\
    end\
    if options.shadow then\
        frame.w = frame.w + 1\
        frame.h = frame.h + 1\
    end\
    return sframe\
end", meta={
  type = "lib",
}};["UIFrame"]={content="\
\
require \"UIElement\"\
\
UIFrame:extends( UIElement )\
\
UIFrame.handlesMouse = false\
UIFrame.handlesScroll = true\
UIFrame.isScrollTarget = true\
UIFrame.scrollDirection = \"vertical\"\
\
UIFrame.scrolls = true\
UIFrame.public \"scrolls\" \"boolean\"\
\
function UIFrame:UIFrame( x, y, w, h, direction )\
    self:UIElement( x, y, w, h )\
    self.scrollDirection = direction or \"vertical\"\
    return self.public\
end\
\
function UIFrame.public:update( dt )\
    local max = self.scrollDirection == \"vertical\" and self.h or self.w\
    if self.scrollDirection == \"vertical\" then\
        for i = 1, #self.children do\
            max = math.max( max, self.children[i].y + self.children[i].h - 1 )\
        end\
    else\
        for i = 1, #self.children do\
            max = math.max( max, self.children[i].x + self.children[i].w - 1 )\
        end\
    end\
    if self.scrollDirection == \"vertical\" then\
        if max - self.h < -self.cy then\
            self.cy = -max + self.h\
        end\
    else\
        if max - self.w < -self.cx then\
            self.cx = -max + self.w\
        end\
    end\
    if max == ( self.scrollDirection == \"vertical\" and self.h or self.w ) or not self.scrolls then\
        self.handlesScroll = false\
    else\
        self.handlesScroll = true\
    end\
    local c = { }\
    for i, child in ipairs( self.children ) do\
        c[i] = child\
    end\
    for i, child in ipairs( c ) do\
        child:update( dt )\
    end\
end\
\
function UIFrame.public:onMouseScroll( rx, ry, dir )\
    if self.scrollDirection == \"vertical\" then\
        self.cy = self.cy - dir\
        local max = 0\
        for i = 1, #self.children do\
            max = math.max( max, self.children[i].y + self.children[i].h )\
        end\
        max = max - self.h - 1\
        if self.cy < -max then\
            self.cy = -max\
        end\
        if self.cy > 0 then self.cy = 0 end\
    else\
        self.cx = self.cx - dir\
        local max = 0\
        for i = 1, #self.children do\
            max = math.max( max, self.children[i].x + self.children[i].w )\
        end\
        max = max - self.w - 1\
        if self.cx < -max then\
            self.cx = -max\
        end\
        if self.cx > 0 then self.cx = 0 end\
    end\
end\
\
function UIFrame.public:getDisplaySizeH( )\
    return self.w\
end\
function UIFrame.public:getDisplaySizeV( )\
    return self.h\
end\
\
function UIFrame.public:getContentSizeH( )\
    local max = self.w\
    for i = 1, #self.children do\
        max = math.max( max, self.children[i].x + self.children[i].w - 1 )\
    end\
    return max\
end\
function UIFrame.public:getContentSizeV( )\
    local max = self.h\
    for i = 1, #self.children do\
        max = math.max( max, self.children[i].y + self.children[i].h - 1 )\
    end\
    return max\
end\
\
function UIFrame.public:getContentScrollH( )\
    return -self.cx\
end\
function UIFrame.public:getContentScrollV( )\
    return -self.cy\
end\
\
function UIFrame.public:setContentScrollH( scroll )\
    self.cx = -scroll\
end\
function UIFrame.public:setContentScrollV( scroll )\
    self.cy = -scroll\
end", meta={
  type = "class",
}};["UIInput"]={content="\
\
require \"UIElement\"\
\
UIInput:extends( UIElement )\
\
UIInput.handlesKeys = true\
UIInput.handlesScroll = true\
UIInput.tabIndex =  true\
\
UIInput.bc = colours.grey\
UIInput.fbc = colours.lightGrey\
UIInput.tc = colours.black\
UIInput.hbc = colours.blue\
UIInput.htc = colours.white\
\
UIInput.public \"bc\" \"number\"\
UIInput.public \"fbc\" \"number\"\
UIInput.public \"tc\" \"number\"\
UIInput.public \"hbc\" \"number\"\
UIInput.public \"htc\" \"number\"\
\
UIInput.onEnter = false\
UIInput.public \"onEnter\" \"function\"\
UIInput.public \"onCtrlKey\" \"function\"\
\
UIInput.public \"text\" \"string\"\
UIInput.public \"mask\" \"string\"\
\
UIInput.public \"scroll\" \"number\"\
\
UIInput.public \"mask\"\
function UIInput.public.mask:write( value )\
    if not value or type( value ) == \"string\" then\
        self.mask = value\
    else\
        error( \"expected string mask\", 3 )\
    end\
end\
\
function UIInput:UIInput( x, y, w, h, mask )\
    self:UIElement( x, y, w, h )\
    self.mask = mask\
    self.cursor = 1\
    self.scroll = 0\
    self.text = \"\"\
    self.focussed = false\
    self.selection = false\
    return self.public\
end\
\
function UIInput.public:draw( x, y )\
    if self.cursor > #self.text + 1 then\
        self.cursor = #self.text + 1\
    end\
    local layer = stencil.addLayer( x, y, self.w, self.h )\
    local bc = self.bc\
    if self.focussed then\
        bc = self.fbc\
    end\
    local text = self.text\
    if self.mask then\
        text = text:gsub( \".\", self.mask:sub( 1, 1 ) )\
    end\
    if self.selection then\
        text = text .. string.rep( \" \", math.max( self.w - #text, 0 ) )\
        for i = 1, #text do\
            local bc = self.bc\
            local tc = self.tc\
            if i >= math.min( self.selection, self.cursor ) and i <= math.max( self.selection, self.cursor ) then\
                bc = self.hbc\
                tc = self.htc\
            elseif self.focussed then\
                bc = self.fbc\
            end\
            stencil.pixel( x + i - self.scroll - 1, y, bc, tc, text:sub( i, i ) )\
        end\
    else\
        text = text:sub( self.scroll + 1 )\
        text = text:sub( 1, self.w )\
        text = text .. string.rep( \" \", self.w - #text )\
        stencil.textLine( x, y, bc, self.tc, text )\
        if self.focussed then\
            stencil.setCursorBlink( x + self.cursor - 1 - self.scroll, y, self.tc )\
        end\
    end\
    local c = { }\
    for i, child in ipairs( self.children ) do\
        c[i] = child\
    end\
    for i, child in ipairs( c ) do\
        child:draw( x + child.x - 1 + self.cx, y + child.y - 1 + self.cy )\
    end\
    stencil.closeLayer( layer )\
end\
\
function UIInput:setCursorPos( n )\
    self.cursor = math.max( math.min( n, #self.text + 1 ), 1 )\
    if self.cursor > self.scroll + self.w then\
        self.scroll = self.cursor - self.w\
    end\
    if self.cursor - 1 <= self.scroll then\
        self.scroll = math.max( self.cursor - 1, 1 ) - 1\
    end\
end\
\
function UIInput:write( str )\
    self.text = self.text:sub( 1, self.cursor - 1 ) .. str:gsub( \"\\n\", \" \" ) .. self.text:sub( self.cursor )\
    self:setCursorPos( self.cursor + #str )\
end\
\
function UIInput:setSelection( text )\
    self.text = self.text:sub( 1, math.min( self.selection, self.cursor ) - 1 ) .. self.text:sub( math.max( self.selection, self.cursor ) + 1 )\
    self.cursor = math.min( self.selection, self.cursor )\
    self:write( text )\
end\
\
function UIInput:getSelection( )\
    return self.text:sub( math.min( self.selection, self.cursor ), math.max( self.selection, self.cursor ) )\
end\
\
function UIInput.public:select( min, max )\
    self.selection = min\
    self.cursor = max\
end\
\
function UIInput.public:onMouseClick( rx, ry, button )\
    self.selection = false\
    self:setCursorPos( rx + self.scroll )\
end\
\
function UIInput.public:onMouseDrag( rx, ry )\
    if not self.selection then\
        self.selection = self.cursor\
    end\
    self:setCursorPos( rx + self.scroll )\
end\
\
function UIInput.public:onMouseScroll( rx, ry, dir )\
    self.scroll = math.max( math.min( self.scroll + dir, #self.text - self.w + 1 ), 0 )\
end\
\
function UIInput.public:onKeyPress( key, lastkey )\
    if not self.focussed then\
        return\
    end\
    if lastkey == 29 then\
        if ( ( key == keys.c or key == keys.x ) and not self.mask ) or key == keys.b then\
            if key == keys.c then\
                if self.selection then\
                    clipboard.set( \"plaintext\", self:getSelection( ) )\
                else\
                    clipboard.set( \"plaintext\", self.text )\
                end\
            elseif key == keys.x then\
                if self.selection then\
                    clipboard.set( \"plaintext\", self:getSelection( ) )\
                    self:setSelection \"\"\
                    self.selection = false\
                else\
                    clipboard.set( \"plaintext\", self.text )\
                    self.text = \"\"\
                end\
            elseif key == keys.b then\
                local mode, data = clipboard.get( )\
                if mode == \"plaintext\" then\
                    if self.selection then\
                        self:setSelection( data )\
                        self.selection = false\
                    else\
                        self:write( data )\
                    end\
                elseif self.onCtrlKey then\
                    self.onCtrlKey( self.public, key )\
                end\
            end\
            return\
        end\
        if self.onCtrlKey then\
            self.onCtrlKey( self.public, key )\
        end\
        return\
    end\
    if key == keys.enter then\
        if type( self.onEnter ) == \"function\" then\
            self.onEnter( self.public )\
        end\
        local handler = self.public:getHandler( )\
        if handler and handler.focus == self.public then\
            handler:unFocus( )\
        end\
    elseif key == keys.left then\
        if self.selection then\
            self:setCursorPos( math.min( self.selection, self.cursor ) - 1 )\
            self.selection = false\
        elseif self.cursor > 1 then\
            self:setCursorPos( self.cursor - 1 )\
        end\
    elseif key == keys.right then\
        if self.selection then\
            self:setCursorPos( math.max( self.selection, self.cursor ) + 1 )\
            self.selection = false\
        else\
            self:setCursorPos( self.cursor + 1 )\
        end\
    elseif key == keys.backspace and self.cursor > 1 then\
        if self.selection then\
            self:setSelection \"\"\
            self.selection = false\
        else\
            self.text = self.text:sub( 1, self.cursor - 2 ) .. self.text:sub( self.cursor )\
            self:setCursorPos( self.cursor - 1 )\
        end\
    elseif key == keys.delete then\
        if self.selection then\
            self:setSelection \"\"\
            self.selection = false\
        else\
            self.text = self.text:sub( 1, self.cursor - 1 ) .. self.text:sub( self.cursor + 1 )\
        end\
    end\
end\
\
function UIInput.public:onTextInput( text, lastkey )\
    if not self.focussed then\
        return\
    end\
    if self.selection then\
        self:setSelection( text )\
        self.selection = false\
    else\
        self.text = self.text:sub( 1, self.cursor - 1 ) .. text .. self.text:sub( self.cursor )\
        self:setCursorPos( self.cursor + 1 )\
    end\
end\
\
function UIInput.public:onFocus( )\
    self.focussed = true\
    self.handlesKeys = true\
    if type( self.whenFocussed ) == \"function\" then\
        self.whenFocussed( self.public )\
    end\
end\
\
function UIInput.public:onUnFocus( )\
    self.focussed = false\
    self.handlesKeys = false\
    self.selection = false\
    if type( self.whenUnFocussed ) == \"function\" then\
        self.whenUnFocussed( self.public )\
    end\
end\
\
function UIInput.public:focusOn( )\
    local handler = self.public:getHandler( )\
    if handler then\
        handler:setFocus( self.public )\
    end\
end", meta={
  type = "class",
}};["stringutils"]={content="\
\
function gfind( str, pat, pos )\
    local t = { }\
    local params = { str:find( pat, pos ) }\
    while params[1] do\
        table.insert( t, params )\
        params = { str:find( pat, params[2] + 1 ) }\
    end\
    local i = 0\
    return function( )\
        i = i + 1\
        if t[i] then\
            return unpack( t[i] )\
        end\
    end\
end\
\
function split( str, pat, pos )\
    local last = 1\
    local parts = { }\
    for s, f in gfind( str, pat, pos ) do\
        table.insert( parts, str:sub( last, s - 1 ) )\
        last = f + 1\
    end\
    table.insert( parts, str:sub( last ) )\
    return parts\
end\
\
local function linewrap( str, w )\
    for i = 1, w do\
        if str:sub( i, i ) == \"\\n\" then\
            return str:sub( 1, i - 1 ), str:sub( i + 1 )\
        end\
    end\
    if #str < w then\
        return str, \"\"\
    end\
    for i = w + 1, 1, -1 do\
        if str:sub( i, i ):find \"%s\" then\
            return str:sub( 1, i - 1 ), str:sub( i + 1 )\
        end\
    end\
    return str:sub( 1, w ), str:sub( w + 1 )\
end\
\
function wordwrap( str, w, h )\
    local s, f = linewrap( str, w )\
    local lines = { s }\
    while #f > 0 do\
        s, f = linewrap( f, w )\
        table.insert( lines, s )\
    end\
    while #lines > h do\
        table.remove( lines, #lines )\
    end\
    return lines\
end", meta={
  type = "lib",
}};["UIElement"]={content="\
\
require \"UIHandler\"\
\
UIElement.public \"x\" \"number\"\
UIElement.public \"y\" \"number\"\
UIElement.public \"w\" \"number\"\
UIElement.public \"h\" \"number\"\
UIElement.public \"cx\" \"number\"\
UIElement.public \"cy\" \"number\"\
\
UIElement.public \"parent\"\
function UIElement.public.parent:write( value )\
    if value == false or class.typeOf( value, UIElement ) or class.typeOf( value, UIHandler ) then\
        self.parent = value\
    else\
        error( \"expected UIElement parent\", 3 )\
    end\
end\
\
UIElement.handlesMouse = true\
UIElement.handlesScroll = false\
UIElement.handlesTab = false\
UIElement.tabIndex = false\
\
UIElement.public \"handlesMouse\"\
UIElement.public.handlesMouse.write = false\
UIElement.public \"handlesKeys\"\
UIElement.public.handlesKeys.write = false\
UIElement.public \"handlesScroll\"\
UIElement.public.handlesScroll.write = false\
UIElement.public \"handlesTab\"\
UIElement.public.handlesTab.write = false\
UIElement.public \"handlesEnter\"\
UIElement.public.handlesEnter.write = false\
UIElement.public \"tabIndex\" \"boolean\"\
\
UIElement.isScrollTarget = false\
UIElement.public \"isScrollTarget\"\
UIElement.public.isScrollTarget.write = false\
UIElement.scrollDirection = \"none\"\
UIElement.public \"scrollDirection\"\
UIElement.public.scrollDirection.write = false\
\
UIElement.public \"whenFocussed\" \"function\"\
UIElement.public \"whenUnFocussed\" \"function\"\
\
function UIElement:UIElement( x, y, w, h )\
    self.x = x\
    self.y = y\
    self.w = w\
    self.h = h\
    self.cx = 0 -- children offset\
    self.cy = 0\
    self.children = { }\
    return self.public\
end\
\
-- children\
\
function UIElement.public:newChild( child )\
    if class.typeOf( child, UIElement ) then\
        table.insert( self.children, child )\
        child.parent = self.public\
        return child\
    else\
        error( \"expected UIElement child\", 2 )\
    end\
end\
\
function UIElement.public:removeChild( child )\
    if class.typeOf( child, UIElement ) then\
        for i = 1, #self.children do\
            if self.children[i] == child then\
                table.remove( self.children, i )\
                child.parent = false\
                return true\
            end\
        end\
        return false\
    else\
        error( \"expected UIElement child\", 3 )\
    end\
end\
\
function UIElement.public:getChildren( )\
    local t = { }\
    for i = 1, #self.children do\
        t[i] = self.children[i]\
    end\
    return t\
end\
\
function UIElement.public:clearChildren( )\
    for i = #self.children, 1, -1 do\
        self.children[i]:remove( )\
    end\
end\
\
local function merge( t1, t2 )\
    local t = { }\
    for i, v in ipairs( t1 ) do\
        table.insert( t, v )\
    end\
    for i, v in ipairs( t2 ) do\
        table.insert( t, v )\
    end\
    return t\
end\
\
function UIElement.public:getTabIndexes( )\
    local t = { }\
    if self.tabIndex then\
        table.insert( t, self.public )\
    end\
    for i = 1, #self.children do\
        local t2 = self.children[i]:getTabIndexes( )\
        if #t2 > 0 then\
            t = merge( t, t2 )\
        end\
    end\
    return t\
end\
\
-- parent dependant\
\
function UIElement.public:positionIn( parent )\
    local x, y = self.x, self.y\
    local p = self.parent\
    while p and p ~= parent and p:type( ) ~= \"UIHandler\" do\
        x = x + p.x\
        y = y + p.y\
        p = p.parent\
    end\
    return x, y\
end\
\
function UIElement.public:remove( )\
    if self.parent then\
        return self.parent:removeChild( self.public )\
    end\
    return false\
end\
\
function UIElement.public:getHandler( )\
    if self.parent then\
        local h = self.parent\
        while h:type( ) ~= \"UIHandler\" do\
            h = h.parent\
            if not h then return false end\
        end\
        return h\
    end\
    return false\
end\
\
function UIElement.public:centreX( )\
    if self.parent then\
        self.x = math.ceil( self.parent.w / 2 - self.w / 2 ) + 1\
    end\
    return self.public\
end\
\
function UIElement.public:centreY( )\
    if self.parent then\
        self.y = math.ceil( self.parent.h / 2 - self.h / 2 ) + 1\
    end\
    return self.public\
end\
\
function UIElement.public:centre( )\
    self.public:centreX( )\
    self.public:centreY( )\
end\
\
-- sibling dependant\
\
function UIElement.public:align( mode, sibling, spacing )\
    if mode == \"above\" then\
        self.x = sibling.x\
        self.w = sibling.w\
        self.y = sibling.y - self.h - ( spacing or 0 )\
    elseif mode == \"below\" then\
        self.x = sibling.x\
        self.w = sibling.w\
        self.y = sibling.y + sibling.h + ( spacing or 0 )\
    elseif mode == \"left\" then\
        self.y = sibling.y\
        self.h = sibling.h\
        self.x = sibling.x - self.w - ( spacing or 0 )\
    elseif mode == \"right\" then\
        self.y = sibling.y\
        self.h = sibling.h\
        self.x = sibling.x + sibling.w + ( spacing or 0 )\
    end\
    return self.public\
end\
\
function UIElement.public:alignTo( mode, sibling, spacing )\
    if mode == \"above\" then\
        self.x = sibling.x\
        self.w = sibling.w\
        self.y = sibling.y - self.h - ( spacing or 0 )\
    elseif mode == \"below\" then\
        self.x = sibling.x\
        self.w = sibling.w\
        self.y = sibling.y + sibling.h + ( spacing or 0 )\
    elseif mode == \"left\" then\
        self.y = sibling.y\
        self.h = sibling.h\
        self.x = sibling.x - self.w - ( spacing or 0 )\
    elseif mode == \"right\" then\
        self.y = sibling.y\
        self.h = sibling.h\
        self.x = sibling.x + sibling.w + ( spacing or 0 )\
    end\
    return self.public\
end\
\
-- callbacks\
\
function UIElement.public:update( dt )\
    local c = { }\
    for i, child in ipairs( self.children ) do\
        c[i] = child\
    end\
    for i, child in ipairs( c ) do\
        child:update( dt )\
    end\
end\
\
function UIElement.public:draw( x, y )\
    local layer = stencil.addLayer( x, y, self.w, self.h )\
    local c = { }\
    for i, child in ipairs( self.children ) do\
        c[i] = child\
    end\
    for i, child in ipairs( c ) do\
        child:draw( x + child.x - 1 + self.cx, y + child.y - 1 + self.cy )\
    end\
    stencil.closeLayer( layer )\
end\
\
function UIElement.public:onMouseClick( rx, ry, button )\
\
end\
\
function UIElement.public:onMouseDrag( rx, ry, cx, cy, button )\
\
end\
\
function UIElement.public:onMouseScroll( rx, ry, dir )\
\
end\
\
function UIElement.public:onKeyPress( key, lastkey )\
\
end\
\
function UIElement.public:onTextInput( text, lastkey )\
\
end\
\
function UIElement.public:onFocus( )\
    if type( self.whenFocussed ) == \"function\" then\
        self.whenFocussed( self.public )\
    end\
end\
\
function UIElement.public:onUnFocus( )\
    if type( self.whenUnFocussed ) == \"function\" then\
        self.whenUnFocussed( self.public )\
    end\
end", meta={
  type = "class",
}};["filesystem"]={content="\
\
-- drives\
\
local drives = { }\
drives.C = Drive.redirect \"\"\
\
local function formatDriveName( name )\
    if type( name ) == \"string\" then\
        return name\
    end\
    return false\
end\
\
local function getDrive( path )\
    if not path:find \":\" then\
        return drives.C, \"no such drive C\"\
    end\
    local drive = formatDriveName( path:gsub( \":.*\", \"\" ) )\
    if drives[drive] then\
        return drives[drive]\
    end\
    return false, \"no such drive \" .. drive\
end\
\
function mount( drive, name )\
    name = formatDriveName( name )\
    if not name then\
        return false, \"expected string name\"\
    end\
    if drives[name] then\
        return false, \"drive already mounted\"\
    end\
    if not class.typeOf( drive, Drive ) then\
        return false, \"expected Drive object\"\
    end\
    drives[name] = drive\
    return true\
end\
\
function unmount( name )\
    drives[formatDriveName( name )] = nil\
end\
\
function getmounted( name )\
    return drives[formatDriveName( name )]\
end\
\
function listmounted( )\
    local t = { }\
    for name in pairs( drives ) do\
        t[#t+1] = name\
    end\
    return t\
end\
\
-- types\
\
local extensions = {\
    txt = \"text\";\
    lua = \"lua\";\
    nim = \"nova_image\";\
    nac = \"archive\";\
}\
local types = {\
    text = \"Plain text file\";\
    lua = \"Lua script file\";\
    unknown = \"Unknown file type\";\
    archive = \"Nova archive\";\
    class = \"Class file\";\
    folder = \"Folder\";\
    lib = \"Lua library\";\
    nova_image = \"Nova image file\";\
    shortcut = \"Shortcut\";\
    -- design_file\
    -- design_project\
}\
local handlers = { }\
\
function addExtension( ext, type )\
    extensions[ext] = type\
end\
\
function addTypeDescription( type, description )\
    types[type] = description\
end\
\
function getTypeDescription( type )\
    return types[type]\
end\
\
function addHandler( type, handler )\
    handlers[type] = handlers[type] or { }\
    for i = 1, #handlers[type] do\
        if handlers[type][i] == handler then\
            return\
        end\
    end\
    table.insert( handlers[type], handler )\
end\
\
function setDefaultHandler( type, handler )\
    handlers[type] = handlers[type] or { }\
    for i = 1, #handlers[type] do\
        if handlers[type][i] == handler then\
            table.remove( handlers[type], i )\
            break\
        end\
    end\
    table.insert( handlers[type], handler )\
end\
\
function getHandlers( type )\
    return { unpack( handlers[type] or { } ) }\
end\
\
function getAllHandlers( )\
    local t = { }\
    for k, v in pairs( handlers ) do\
        for i = 1, #v do\
            t[v[i]] = true\
        end\
    end\
    local t2 = { }\
    for k, v in pairs( t ) do\
        t2[#t2+1] = k\
    end\
    return t2\
end\
\
-- caching\
\
local cache = { }\
local function filecacheset( path, value )\
    path = path:lower( )\
    cache[path] = value\
end\
local function filecacheget( path )\
    path = path:lower( )\
    return cache[path]\
end\
\
function clearCache( )\
    cache = { }\
end\
\
-- read/write stuff (cache stuff!)\
\
local function read( path )\
    if type( filecacheget( path ) ) == \"table\" then return false, \"could not read folder\" end\
    local drive, err = getDrive( path )\
    if not drive then\
        return false, err\
    end\
    local content = filecacheget( path )\
    if content then\
        return content\
    end\
    local h = drive.open( path:gsub( \".-:\", \"\", 1 ), \"r\" )\
    if h then\
        local content = h.readAll( )\
        h.close( )\
        return content\
    else\
        return false, \"could not open file\"\
    end\
end\
local function write( path, content )\
    if type( filecacheget( path ) ) == \"table\" then return false, \"could not write to folder\" end\
    local drive, err = getDrive( path )\
    if not drive then\
        return false, err\
    end\
    local h = drive.open( path:gsub( \".-:\", \"\", 1 ), \"w\" )\
    if h then\
        h.write( content )\
        h.close( )\
        filecacheset( path, content )\
        return true\
    else\
        return false, \"could not open file\"\
    end\
end\
\
-- name operations\
\
function getDirectory( path )\
    if not path:find \"/\" then return \"\" end\
    return path:gsub( \"/.-$\", \"\" ) -- remove filename\
end\
\
function getPath( path )\
    if not path:find \"/\" then return \"\" end\
    return path:gsub( \"/.-$\", \"\" ) -- remove filename\
end\
\
function getName( path, trimExt )\
    path = path:gsub( \"^.+/\", \"\" ) -- remove directories\
    if trimExt and path:sub( 2 ):find \"%.\" then\
        return path:sub( 1, 1 ) .. path:sub( 2 ):gsub( \"%.%w+$\", \"\" ) -- remove extension\
    end\
    return path\
end\
\
function getExtension( path )\
    path = path:gsub( \"^.+/\", \"\" )\
    if not path:sub( 2 ):find \"%.\" then\
        return \"\"\
    end\
    return path:gsub( \".+%.\", \"\" ) -- remove directories, then stuff before the .\
end\
\
function merge( path, ... )\
    local paths = { ... }\
    for i = 1, #paths do\
        path = path .. \"/\" .. tostring( paths[i] )\
    end\
    return path:gsub( \"//+\", \"/\" )\
end\
\
-- file methods\
\
function readfile( path, password )\
    local content, err = read( path )\
    if content then\
        return FileData( content, password )\
    end\
    return false, err\
end\
\
function writefile( path, data, password )\
    if password then\
        data.password = password\
    end\
    return write( path, data:compile( ) )\
end\
\
function appendfile( path, new, password, readpass )\
    local data, err = readfile( path, readpass or password )\
    if data then\
        data.content = data.content .. new\
        if password then\
            data.password = password\
        end\
        return write( path, password, data:compile( ) )\
    end\
    return false, err\
end\
\
function getType( path )\
    if type( filecacheget( path ) ) ~= \"string\" and ( type( filecacheget( path ) ) == \"table\" or isDirectory( path ) ) then\
        filecacheset( path, { } )\
        return \"folder\"\
    end\
    local content, err = read( path )\
    if not content then\
        return \"unknown\"\
    end\
    local data = FileData( content )\
    if data.meta.type then\
        return data.meta.type\
    end\
    local ext = getExtension( path )\
    if #ext == 0 then return \"unknown\" end\
    return extensions[ext] or \".\" .. ext\
end\
\
function getFileMetaValue( path, index )\
    if type( filecacheget( path ) ) == \"table\" or ( type( filecacheget( path ) ) ~= \"string\" and isDirectory( path ) ) then\
        return false, \"folders can't have metadata\"\
    end\
    local content, err = read( path )\
    if not content then\
        return false, err\
    end\
    return true, FileData( content ).meta[index]\
end\
\
function isProtected( path )\
    if type( filecacheget( path ) ) == \"table\" then return false end\
    local content, err = read( path )\
    if content then\
        if content:find \"^--%[%[.-%]%]\" then\
            local metadata = textutils.unserialize( \"{\" .. content:match \"^--%[%[(.-)%]%]\" .. \"}\" ) or { }\
            return metadata.password\
        end\
        return false\
    end\
    return false, err\
end\
\
function newFile( path, content, password )\
    if filecacheget( path ) then return false, \"file exists\" end\
    if exists( path ) then return false, \"file exists\" end\
    local fd = FileData( content )\
    if password then\
        fd.password = password\
    end\
    write( path, fd:compile( ) )\
    return true\
end\
\
-- directory methods\
\
function newDirectory( path )\
    if type( filecacheget( path ) ) == \"string\" then return false, \"file exists\" end\
    if filecacheget( path ) then return true end\
    local drive, err = getDrive( path )\
    if not drive then\
        return false, err\
    end\
    if drive.exists( path:gsub( \"^.-:\", \"\", 1 ) ) then\
        if drive.isDir( path:gsub( \"^.-:\", \"\", 1 ) ) then\
            filecacheset( path, { } )\
        else\
            return false, \"file exists\"\
        end\
    else\
        drive.makeDir( path:gsub( \"^.-:\", \"\", 1 ) )\
        filecacheset( path, { } )\
    end\
end\
\
function listFiles( path, sorter )\
    if type( filecacheget( path ) ) == \"string\" then return false, \"not a directory\" end\
    local drive, err = getDrive( path )\
    if not drive then\
        return false, err\
    end\
    if type( filecacheget( path ) ) == \"string\" or drive.isDir( path:gsub( \"^.-:\", \"\", 1 ) ) then\
        local files = drive.list( path:gsub( \"^.-:\", \"\", 1 ) )\
        if files then\
            if sorter then\
                sorter( files )\
            end\
        end\
        return files\
    end\
    return false, \"not a directory\"\
end\
\
function emptyDirectory( path, filter )\
\
end\
\
-- existance checking\
\
function isFile( path ) -- bool isFile\
    if type( filecacheget( path ) ) == \"string\" then return true end\
    if type( filecacheget( path ) ) == \"table\" then return false end\
    local drive, err = getDrive( path )\
    if not drive then\
        return false\
    end\
    return drive.exists( path:gsub( \"^.-:\", \"\", 1 ) ) and not drive.isDir( path:gsub( \"^.-:\", \"\", 1 ) )\
end\
\
function isDirectory( path )\
    if type( filecacheget( path ) ) == \"string\" then return false end\
    if type( filecacheget( path ) ) == \"table\" then return true end\
    local drive, err = getDrive( path )\
    if not drive then\
        return false\
    end\
    local isdir = drive.isDir( path:gsub( \"^.-:\", \"\", 1 ) )\
    if isdir then filecacheset( path, { } ) end\
    return isdir\
end\
\
function exists( path )\
    if filecacheget( path ) then return true end\
    local drive, err = getDrive( path )\
    if not drive then\
        return false\
    end\
    return drive.exists( path:gsub( \"^.-:\", \"\", 1 ) )\
end\
\
-- space checking\
\
function getSize( path )\
    local drive, err = getDrive( path )\
    if not drive then\
        return 0\
    end\
    return drive.getSize( path:gsub( \"^.-:\", \"\", 1 ) )\
end\
\
function getSpace( path )\
    local drive, err = getDrive( path )\
    if not drive then\
        return 0\
    end\
    return drive.getFreeSpace( path:gsub( \"^.-:\", \"\", 1 ) )\
end\
\
function isReadOnly( path )\
    local drive, err = getDrive( path )\
    if not drive then\
        return false\
    end\
    return drive.isReadOnly( path:gsub( \"^.-:\", \"\", 1 ) )\
end\
\
-- mixed methods\
\
function delete( path )\
    local drive, err = getDrive( path )\
    if not drive then\
        return false, err\
    end\
    filecacheset( path, nil )\
    return drive.delete( path:gsub( \"^.-:\", \"\", 1 ) )\
end\
\
function copy( path )\
    local drive, err = getDrive( path )\
    if not drive then\
        return false, err\
    end\
    if isFile( path ) then\
        local data, err = readfile( path )\
        if data then\
            clipboard.set( \"file\", { name = getName( path ), file = data } )\
        else\
            return false, err\
        end\
    elseif isDirectory( path ) then\
        local a = Archive( )\
        a:loadDirectory( path )\
        clipboard.set( \"file\", { name = getName( path ), file = a } )\
    else\
        return false, \"no such file\"\
    end\
    return true\
end\
\
function cut( path )\
    local drive, err = getDrive( path )\
    if not drive then\
        return false, err\
    end\
    if isFile( path ) then\
        local data, err = readfile( path )\
        if data then\
            clipboard.set( \"file\", { name = getName( path ), file = data } )\
        else\
            return false, err\
        end\
    elseif isDirectory( path ) then\
        local a = Archive( )\
        a:loadDirectory( path )\
        clipboard.set( \"file\", { name = getName( path ), file = a } )\
    else\
        return false, \"no such file\"\
    end\
    delete( path )\
    return true\
end\
\
function paste( up_path )\
    up_path = type( up_path ) == \"string\" and up_path or \"\"\
    local mode, data = clipboard.get( )\
    if mode == \"file\" then\
        local n = up_path .. \"/\" .. data.name\
        if filesystem.exists( n ) then\
            local name = up_path .. \"/\" .. getName( data.name, true ) .. \" - Copy (\"\
            local ext = getExtension( data.name )\
            if #ext > 0 then\
                ext = \".\" .. ext\
            end\
            local i = 1\
            while filesystem.exists( name .. i .. \")\" .. ext ) do\
                i = i + 1\
            end\
            n = name .. i .. \").\" .. ext\
        end\
        if data.file:type( ) == \"Archive\" then\
            data.file:saveDirectory( n )\
        else\
            write( n, data.file:compile( ) )\
        end\
    end\
end\
\
function rename( path, name )\
    local drive, err = getDrive( path )\
    if not drive then\
        return false, err\
    end\
    filecacheset( path, nil )\
    local path = path:gsub( \"^.-:\", \"\", 1 )\
    return drive.move( path, path:gsub( getName( path ) .. \"$\", name, 1 ) )\
end\
\
function move( path, path2 )\
    local drive, err = getDrive( path )\
    if not drive then\
        return false, err\
    end\
    filecacheset( path, nil )\
    local path = path:gsub( \"^.-:\", \"\", 1 )\
    local path2 = path2:gsub( \"^.-:\", \"\", 1 )\
    return drive.move( path, path2 )\
end", meta={
  type = "lib",
}};["Session"]={content="\
\
local imageraw = { }\
imageraw[0] = [[ F BF BF BF  F \
BF  F  F  F BF \
BF  F  F  F BF \
BF  F  F  F BF \
BF  F  F  F BF \
BF  F  F  F BF \
 F BF BF BF  F ]]\
imageraw[1] = [[ F BF BF  F  F \
BF  F BF  F  F \
 F  F BF  F  F \
 F  F BF  F  F \
 F  F BF  F  F \
 F  F BF  F  F \
BF BF BF BF BF ]]\
imageraw[2] = [[ F BF BF BF  F \
BF  F  F  F BF \
 F  F  F  F BF \
 F  F  F BF  F \
 F  F BF  F  F \
 F BF  F  F  F \
BF BF BF BF BF ]]\
imageraw[3] = [[ F BF BF BF  F \
BF  F  F  F BF \
 F  F  F  F BF \
 F BF BF BF  F \
 F  F  F  F BF \
BF  F  F  F BF \
 F BF BF BF  F ]]\
imageraw[4] = [[ F  F  F BF  F \
 F  F BF BF  F \
 F BF  F BF  F \
 F BF  F BF  F \
BF  F  F BF  F \
BF BF BF BF BF \
 F  F  F BF  F ]]\
imageraw[5] = [[BF BF BF BF BF \
BF  F  F  F  F \
BF  F  F  F  F \
BF BF BF BF  F \
 F  F  F  F BF \
BF  F  F  F BF \
 F BF BF BF  F ]]\
imageraw[6] = [[ F BF BF BF  F \
BF  F  F  F BF \
BF  F  F  F  F \
BF BF BF BF  F \
BF  F  F  F BF \
BF  F  F  F BF \
 F BF BF BF  F ]]\
imageraw[7] = [[BF BF BF BF BF \
 F  F  F  F BF \
 F  F  F BF  F \
 F  F BF  F  F \
 F  F BF  F  F \
 F BF  F  F  F \
BF  F  F  F  F ]]\
imageraw[8] = [[ F BF BF BF  F \
BF  F  F  F BF \
BF  F  F  F BF \
 F BF BF BF  F \
BF  F  F  F BF \
BF  F  F  F BF \
 F BF BF BF  F ]]\
imageraw[9] = [[ F BF BF BF  F \
BF  F  F  F BF \
BF  F  F  F BF \
 F BF BF BF BF \
 F  F  F  F BF \
 F  F  F BF  F \
 F BF BF  F  F ]]\
\
local images = { }\
for i = 0, 9 do\
    images[i] = Image( 5, 7 )\
    images[i]:loadstr( imageraw[i] or \"\" )\
end\
\
images.home = Image( 8, 5 ):loadstr [[ F  F CF CF CF CF  F  F \
 F CF CF CF CF CF CF  F \
CF CF CF CF CF CF CF CF \
 F 8F 8F 8F 3F 3F 8F  F \
 F 8F 7F 8F 8F 8F 8F  F ]]\
images.shutdown = Image( 7, 5 ):loadstr [[ F  F  F EF  F  F  F \
 F EF  F EF  F EF  F \
EF  F  F  F  F  F EF \
EF  F  F  F  F  F EF \
 F EF EF EF EF EF  F ]]\
images.screenshot = Image( 8, 5 ):loadstr [[ F  F  F  F  F 7F 7F  F \
7F 7F FF FF 7F 7F 7F 7F \
7F FF 0F 3F FF 7F EF 7F \
7F FF 3F 3F FF 7F DF 7F \
7F 7F FF FF 7F 7F 7F 7F ]]\
\
images.files = Image( 9, 3 ):loadstr [[1F 1F 1F 1F 1F 1F 1F 1F 1F \
4F 4F 47F47i47l47e47s4F 4F \
4F 4F 4F 4F 4F 4F 4F 4F 4F ]]\
images.edit = Image( 9, 3 ):loadstr [[78178:77 0F 07E07d07i07t0F \
78278:77 0F 08-08-08-08-0F \
78378:77 0F 08-08-08-08-0F ]]\
images.paint = Image( 9, 3 ):loadstr [[BF 3F 3B-3B-3B-3B-3B-3F BF \
BF 3F 3EP3Ea3Ei3En3Et3F BF \
BF 3F 3B-3B-3B-3B-3B-3F BF ]]\
images.run = Image( 9, 3 ):loadstr [[F0RF0uF0nF4 F4 F4 F4 F4 F0 \
F4 F4CF4rF4aF4fF4tF4OF4SF0 \
F4>F4 F4_F0 F0 F0 F0 F0 F0 ]]\
images.settings = Image( 9, 4 ):loadstr[[ 7S 7e 7t 7t 7i 7n 7g 7s   \
 7[ Bx 7]    7. 7. 7.      \
 7[    7]    7. 7. 7.      \
 7[ Bx 7]    7. 7. 7.      ]]\
\
images.folder = Image( 5, 3 ):loadstr [[10 10 10 0F 0F \
40 40 40 4F 4F \
40 40 40 40 40 ]]\
\
local function login( name, pass )\
\
    if #( fs.list( core.path .. \"/user\" ) or {} ) == 0 then\
        kernel.setup( )\
    end\
\
    local waiting = true\
    local account\
\
    local frame = core.UI:newChild( UIFrame( 1, 1, term.getSize( ) ) )\
    local input = { }\
    local title = { }\
\
    title = frame:newChild( UIText( 1, 1, frame.w, 3, \"\\n   Login\" ) )\
    title.bc = colours.grey\
    title.tc = colours.white\
\
    local userlist = frame:newChild( UIMenu( 2, 8, frame.w - 2, 4, \"horizontal\" ) )\
    userlist.padding = 1\
    local scrollbar = frame:newChild( UIScrollBar( 2, 13, frame.w - 2, 1, userlist, \"horizontal\" ) )\
    scrollbar.bc = colours.lightGrey\
    scrollbar.tc = colours.grey\
\
    local password = { }\
\
    local cols = { colours.blue, colours.red, colours.green, colours.yellow }\
    local n = 1\
\
    local users = fs.list( core.path .. \"/user\" )\
    for i = 1, #users do\
        local f = userlist:newChild( UIFrame( 0, 0, 10, 4 ) )\
        f:newChild( UIButton( 2, 1, f.w - 2, f.h - 1, \"\" ) ).bc = cols[n]\
        f:newChild( UIText( 1, f.h, #users[i], 1, users[i] ) ):centreX( )\
        c = f:newChild( UIButton( 1, 1, f.w, f.h, \"\" ) )\
        c.bc = 0\
        c.align = false\
        function c:onClick( x )\
            if password.input then\
                password.input:remove( )\
                password.title:remove( )\
            end\
            password.title = frame:newChild( UIText( 0, 15, 8, 1, \"password\" ) )\
            password.title:centreX( )\
            password.input = frame:newChild( UIInput( 0, 16, math.floor( term.getSize( ) / 2 ), 1 ) )\
            password.input.mask = \"*\"\
            password.input:centreX( )\
            password.input:focusOn( )\
            function password.input:whenUnFocussed( )\
                password.input:remove( )\
                password.title:remove( )\
                password = { }\
            end\
            function password.input:onEnter( )\
                local err\
                account, err = Account( users[i], password.input.text )\
                if account then\
                    waiting = false\
                else\
                    Thread( function( )\
                        local alert = frame:newChild( UIText( 0, ({term.getSize()})[2] - 1, #err, 1, err ) )\
                        alert.bc = 0\
                        alert.tc = colours.red\
                        alert:centreX( )\
                        sleep( 1 )\
                        alert:remove( )\
                    end )\
                end\
            end\
            if type( x ) == \"string\" then\
                password.input.text = x\
                password.input:onEnter( )\
            end\
        end\
\
        if users[i] == name then\
            c:onClick( pass )\
        end\
\
        n = n + 1\
        if n == 5 then\
            n = 1\
        end\
\
        if #users == 1 then\
            c:onClick( )\
        end\
    end\
    if #users * 11 <= userlist.w then\
        userlist.w = #users * 11 - 1\
        userlist:centreX( )\
        scrollbar:remove( )\
    end\
\
    local mag_detector = Thread( function( )\
        while true do\
            local ev = { coroutine.yield( ) }\
            if password.input then\
                if ev[1] == \"mag_swipe\" then\
                    password.input.text = ev[2]\
                    password.input:onEnter( )\
                end\
            end\
        end\
    end )\
\
    while waiting do\
        coroutine.yield( )\
    end\
    frame:remove( )\
    mag_detector:stop( )\
    return account\
end\
\
Session.public \"account\"\
Session.public.account.write = false\
Session.public \"UI\"\
Session.public.UI.write = false\
Session.public \"app_paths\"\
Session.public.app_paths.write = false\
Session.public \"apps\"\
Session.public.apps.write = false\
Session.public \"running\"\
Session.public.running.write = false\
Session.public \"background\"\
Session.public.background.write = false\
\
function Session:Session( name, pass )\
    if core.session then\
        core.session:logout( )\
    end\
\
    self.account = login( name, pass )\
    core.log( \"Starting session\", self.account.username )\
\
    filesystem.mount( Drive.redirect( self.account.userpath .. \"/data\" ), \"user\" )\
\
    self.UI = core.UI:newChild( UIFrame( 1, 1, core.UI.w, core.UI.h ) )\
    self.apps = { }\
    self.app_paths = { }\
    self.threads = { }\
    self.running = { }\
    self.background = { }\
\
    local files = fs.list( core.path .. \"/apps\" )\
    for i = 1, #files do\
        local ok, err = self.public:registerApp( core.path .. \"/apps/\" .. files[i] )\
        if not ok then\
            core.log( err )\
        end\
    end\
\
    local t = self.public:newThread( Thread( function( )\
        while true do\
            for i = #self.threads, 1, -1 do\
                if not self.threads[i]:isRunning( ) and not self.threads[i]:isPaused( ) then\
                    self.threads[i]:stop( ) -- just to make sure it stops\
                    table.remove( self.threads, i )\
                end\
            end\
            coroutine.yield( )\
        end\
    end ) )\
    function t:onException( err )\
        core.log( \"Session error\", err )\
    end\
\
    self.public:showHomepage( )\
\
    local updateInfo = core.getUpdateInfo( )\
    if core.compareVersions( updateInfo ) then\
        local response = display.confirm( self.UI, \"Update found, would you like to update?\" )\
        if response then\
            if core.update( ) then\
                if display.confirm( self.UI, \"Updated, would you like to restart?\" ) then\
                    self.public:logout( )\
                    core.finish( )\
                    os.reboot( )\
                end\
            else\
                NovaUI.display.alert( UI, \"Failed to download update\" )\
            end\
        end\
    end\
\
    core.session = self.public\
    return self.public\
end\
\
function Session.public:logout( )\
    filesystem.unmount \"user\"\
    for i = 1, #self.threads do\
        self.threads[i]:stop( )\
    end\
    for i = #self.running, 1, -1 do\
        self.running[i]:close \"logout\"\
    end\
    for i = #self.background, 1, -1 do\
        self.background[i]:close \"logout\"\
    end\
    self.UI:remove( )\
    core.session = false\
end\
\
function Session.public:registerApp( path )\
    local app, err = App( self.public, path )\
    if app then\
        self.apps[app.name] = app\
        self.app_paths[path] = app\
    end\
    return app, err\
end\
\
function Session.public:isRegistered( name )\
    return not not self.apps[name]\
end\
\
function Session.public:launch( name, args )\
    if not self.apps[name] then\
        return false, \"app not found\"\
    end\
\
    if self.apps[name].single then\
        for i = 1, #self.running do\
            if self.running[i].app.name == name then\
                local app = self.running[i]\
                self.public:hide( )\
                self.public:show( app )\
                return true\
            end\
        end\
    end\
\
    -- create the app instance\
    local instance = self.apps[name]:launch( args or { } )\
\
    -- show the UI\
    if self.homepage then\
        self.homepage:remove( )\
        self.homepage = nil\
    elseif self.running[#self.running] then\
        self.running[#self.running]:hideUI( )\
    end\
    if self.overlay then\
        self.overlay:remove( )\
        self.overlay = nil\
    end\
\
    -- add it to the list\
    table.insert( self.running, instance )\
\
    return instance\
end\
\
function Session.public:launchBackground( name, args )\
    if not self.apps[name] then\
        return false, \"app not found\"\
    end\
\
    -- create the app instance\
    local instance = self.apps[name]:launch( args or { }, true )\
\
    -- add it to the list\
    table.insert( self.background, instance )\
\
    return instance\
end\
\
function Session.public:hide( )\
    local instance = self.running[#self.running]\
    if instance then\
        table.remove( self.running, #self.running )\
        table.insert( self.running, 1, instance )\
        instance:hideUI( )\
    end\
end\
\
function Session.public:show( instance )\
    if not instance then\
        instance = self.running[#self.running]\
    end\
    for i = #self.running, 1, -1 do\
        if self.running[i] == instance then\
            if self.overlay then self.overlay:remove( ) self.overlay = nil end\
            if self.homepage then self.homepage:remove( ) self.homepage = nil end\
            instance:showUI( )\
            table.insert( self.running, instance )\
            table.remove( self.running, i )\
            return true\
        end\
    end\
    return false, \"instance not running\"\
end\
\
function Session.public:close( instance, reason )\
    if not instance then\
        instance = self.running[#self.running]\
    end\
    for i = #self.running, 1, -1 do\
        if self.running[i] == instance then\
            table.remove( self.running, i )\
            if #self.running == 0 then\
                self.public:showHomepage( )\
            else\
                self.public:show( )\
            end\
            return true\
        end\
    end\
    for i = #self.background, 1, -1 do\
        if self.background[i] == instance then\
            table.remove( self.background, i )\
            return true\
        end\
    end\
    return false, \"instance not running\"\
end\
\
function Session.public:newThread( thread )\
    table.insert( self.threads, thread )\
    return thread\
end\
\
function Session.public:showOverlay( )\
    if self.overlay then\
        self.overlay:remove( )\
        self.overlay = nil\
    end\
    local frame = self.UI:newChild( UIFrame( 1, 1, self.UI.w, self.UI.h ) )\
    self.overlay = frame\
\
    local timethread\
\
    local close = frame:newChild( UIButton( 1, 1, frame.w, frame.h, \"\" ) )\
    close.bc = 0\
    close.align = false\
    function close:onClick( )\
        timethread:stop( )\
        frame:remove( )\
    end\
    frame:newChild( UIButton( 1, 2, self.UI.w, self.UI.h - 1 ) ).bc = colours.white\
\
    local timebox = frame:newChild( UIFrame( 3, 3, 27, 9 ) )\
    timethread = self.public:newThread( Thread( function( )\
        while true do\
            timebox:clearChildren( )\
            local t = tostring( textutils.formatTime( os.time( ) ) )\
            pcall( function( )\
                local _t = core.getirltime( )\
                if _t then\
                    if _t.m < 10 then _t.m = \"0\" .. _t.m end\
                    if _t.h < 10 then _t.h = \"0\" .. _t.h end\
                    t = _t.h .. \":\" .. _t.m\
                end\
            end )\
            local tb1 = timebox:newChild( UIImage( 2, 2, 5, 7, images[tonumber( t:sub( 1, 1 ) )] ) )\
            local tb2 = timebox:newChild( UIImage( 8, 2, 5, 7, images[tonumber( t:sub( 2, 2 ) )] ) )\
            local tb3 = timebox:newChild( UIImage( 16, 2, 5, 7, images[tonumber( t:sub( 4, 4 ) )] ) )\
            local tb4 = timebox:newChild( UIImage( 22, 2, 5, 7, images[tonumber( t:sub( 5, 5 ) )] ) )\
            timebox:newChild( UIButton( 14, 3, 1, 1, \" \" ) ).bc = colours.blue\
            timebox:newChild( UIButton( 14, 7, 1, 1, \" \" ) ).bc = colours.blue\
            coroutine.yield( )\
        end\
    end ) )\
\
    local home = frame:newChild( UIImage( 0, 0, 8, 5, images.home ) )\
    home:align( \"below\", timebox, 1 )\
    home.w = 8\
    function home.onClick( )\
        if not self.homepage then\
            if self.running[#self.running] then\
                self.running[#self.running]:hideUI( )\
            end\
            self.public:showHomepage( )\
        end\
    end\
    local screenshot = frame:newChild( UIImage( 0, 0, 8, 5, images.screenshot ) )\
    screenshot:align( \"right\", home, 2 )\
    function screenshot.onClick( )\
        frame:remove( )\
        self.overlay = nil\
        Thread( function( )\
            coroutine.yield( )\
            local w, h = term.getSize( )\
            local im = Image( w, h )\
            for x = 1, w do\
                for y = 1, h do\
                    local bc, tc, char = buffer.getPixel( x, y )\
                    if bc then\
                        im:pixel( x, y, bc, tc, char )\
                    end\
                end\
            end\
            local h = fs.open( self.account.userpath .. \"/data/screenshots/\" .. os.time( ) .. \".nim\", \"w\" )\
            if h then\
                h.write( im:savestr( ) )\
                h.close( )\
            end\
        end ).onException = core.log\
    end\
    local power = frame:newChild( UIImage( 0, 0, 7, 5, images.shutdown ) )\
    power:align( \"right\", screenshot, 2 )\
    function power.onClick( )\
        local dropdown = frame:newChild( UIFrame( 0, 0, 10, 3 ) )\
        dropdown:align( \"left\", power )\
        local shutdown = dropdown:newChild( UIButton( 1, 2, 10, 1, \"Shutdown\" ) )\
        local restart = dropdown:newChild( UIButton( 1, 3, 10, 1, \"Restart\" ) )\
        local logout = dropdown:newChild( UIButton( 1, 4, 10, 1, \"Logout\" ) )\
        function shutdown:onClick( )\
            core.finish( )\
            os.shutdown( )\
        end\
        function restart:onClick( )\
            core.finish( )\
            os.reboot( )\
        end\
        function logout.onClick( )\
            Thread( function( )\
                self.public:logout( )\
                core.session = Session( )\
            end )\
        end\
    end\
\
    if core.platform == \"pocket\" then\
        timebox.x = timebox.x - 2\
        home.x = home.x - 2\
        screenshot.x = screenshot.x - 3\
        power.x = power.x - 4\
    end\
\
    -- running apps\
    local w, h = term.getSize( )\
\
    local x, y = timebox.x + timebox.w + 1, timebox.y\
\
    local list = frame:newChild( UIFrame( x, y, 0, 0, \"vertical\" ) )\
    list.w = w - list.x - 1\
    list.h = h - list.y\
\
    if core.platform ~= \"pocket\" then\
        local scrollbar = frame:newChild( UIScrollBar( 0, 0, 1, 0, list, \"vertical\" ) )\
        scrollbar:align( \"right\", list )\
        -- now let's add the list of running apps...\
        self.public:newThread( Thread( function( )\
            while true do\
                -- clear everything in the list\
                list:clearChildren( )\
                if #self.running == 0 then\
                    local m = list:newChild( UIText( 0, 2, 15, 1, \"no running apps\" ) ):centreX( )\
                    m.bc = 0\
                    m.tc = colours.grey\
                end\
                -- add each running app\
                for i = 1, #self.running do\
                    local instance = self.running[i]\
                    local name = instance.app.name\
                    local icon = list:newChild( UIImage( 1, (i-1)*4+1, 9, 3, self.running[i].app.icon ) )\
                    icon:centreX( )\
                    function icon.onClick( )\
                        frame:remove( )\
                        if i ~= #self.running then\
                            self.public:hide( )\
                            self.public:show( instance )\
                        end\
                    end\
                    -- the x, width and y are auto-generated in a UIMenu\
                end\
                coroutine.yield( )\
            end\
        end ) ).onException = core.log -- add a background function that constantly runs\
    end\
end\
\
function Session.public:showHomepage( ) -- this is what brings up the homepage UI\
    if self.homepage then\
        self.homepage:remove( )\
        self.homepage = nil\
    end\
    if self.overlay then\
        self.overlay:remove( )\
        self.overlay = nil\
    end\
    local frame = self.UI:newChild( UIFrame( 1, 1, self.UI.w, self.UI.h ) )\
    self.homepage = frame\
\
    -- background\
    frame:newChild( UIButton( 1, 1, frame.w, 3 ) ).bc = colours.grey\
\
    -- nova button\
    local nova = frame:newChild( UIButton( 1, 1, 4, 1, \"Nova\" ) )\
    nova.bc = 0\
    nova.tc = colours.white\
    function nova.onClick( )\
        self.public:showOverlay( )\
    end\
    -- nova version label\
    local text = core.name:gsub( \"^Nova\", \"\" )\
    local name = frame:newChild( UIText( 5, 1, #text, 1, text ) )\
    name.bc = 0\
    name.tc = colours.lightGrey\
\
    -- time frame\
    local time = frame:newChild( UIText( frame.w - 4, 1, 5, 1, function( )\
        local t = tostring( textutils.formatTime( os.time( ) ) )\
        pcall( function( )\
            local _t = core.getirltime( )\
            if _t then\
                if _t.m < 10 then _t.m = \"0\" .. _t.m end\
                if _t.h < 10 then _t.h = \"0\" .. _t.h end\
                t = _t.h .. \":\" .. _t.m\
            end\
        end )\
        return t\
    end ) )\
    time.bc = 0\
    time.tc = colours.lightGrey\
\
    -- home label\
    local home = frame:newChild( UIText( 0, 2, 4, 1, \"Home\" ) )\
    home:centreX( )\
    home.bc = 0\
    home.tc = colours.cyan\
\
    -- about button\
    local about = frame:newChild( UIButton( 3, frame.h - 1, 5, 1, \"About\" ) )\
    about.tc = colours.grey\
    function about.onClick( )\
        self:showAbout( )\
    end\
\
    -- help button\
    local help = frame:newChild( UIButton( frame.w - 5, frame.h - 1, 4, 1, \"Help\" ) )\
    help.tc = colours.grey\
    function help.onClick( )\
        Thread( function( )\
            display.alert( self.UI, \"Not yet implemented, sorry!\", true )\
            display.alert( self.UI, \"You can always ask for help on the forum post.\" )\
        end )\
    end\
\
    if core.platform == \"computer\" or core.platform == \"turtle\" then\
        -- Files\
        local icon1UI = frame:newChild( UIImage( 5, 6, 9, 3, images.files ) )\
        function icon1UI.onClick( )\
            self.public:launch \"Files\"\
        end\
        -- Edit\
        local icon2UI = frame:newChild( UIImage( 0, 0, 9, 3, images.edit ) )\
        icon2UI:align( \"right\", icon1UI, 2 )\
        function icon2UI.onClick( )\
            self.public:launch \"Edit\"\
        end\
        -- Paint\
        local icon3UI = frame:newChild( UIImage( 0, 0, 9, 3, images.paint ) )\
        icon3UI:align( \"right\", icon2UI, 2 )\
        function icon3UI.onClick( )\
            self.public:launch \"Paint\"\
        end\
        -- Run\
        local icon4UI = frame:newChild( UIImage( 0, 0, 9, 3, images.run ) )\
        icon4UI:align( \"right\", icon3UI, 2 )\
        function icon4UI.onClick( )\
            self.public:launch \"Run\"\
        end\
\
        -- Apps shortcut\
        local icon5UI = frame:newChild( UIImage( 0, 0, 5, 4, images.folder ) )\
        icon5UI:align( \"below\", icon1UI, 2 )\
        icon5UI.x = icon5UI.x + 2\
        function icon5UI.onClick( )\
            self.public:launch( \"Files\", { \"C:\" .. core.path .. \"/apps\" } )\
        end\
        local b = icon5UI:newChild( UIButton( 1, 4, 5, 1, \"apps\" ) )\
        b.bc, b.tc = 0, colours.grey\
        b.onClick = icon5UI.onClick\
\
        -- Screenshots shortcut\
        local icon6UI = frame:newChild( UIImage( 0, 0, 5, 3, images.folder ) )\
        icon6UI:align( \"below\", icon2UI, 2 )\
        icon6UI.x = icon6UI.x + 2\
        function icon6UI.onClick( )\
            self.public:launch( \"Files\", { \"user:/screenshots\" } )\
        end\
        local b = frame:newChild( UIButton( 0, 0, 0, 1, \"screenshots\" ) )\
        b.bc, b.tc = 0, colours.grey\
        b.onClick = icon6UI.onClick\
        b:alignTo( \"below\", icon6UI )\
        b.x = b.x - 3\
        b.w = 11\
\
        -- Files shortcut\
        local icon7UI = frame:newChild( UIImage( 0, 0, 5, 4, images.folder ) )\
        icon7UI:align( \"below\", icon3UI, 2 )\
        icon7UI.x = icon7UI.x + 2\
        function icon7UI.onClick( )\
            self.public:launch( \"Files\", { \"user:\" } )\
        end\
        local b = icon7UI:newChild( UIButton( 1, 4, 5, 1, \"files\" ) )\
        b.bc, b.tc = 0, colours.grey\
        b.onClick = icon7UI.onClick\
\
        local icon8UI = frame:newChild( UIImage( 0, 0, 9, 4, images.settings ) )\
        icon8UI:align( \"below\", icon4UI, 2 )\
        function icon8UI.onClick( )\
            self.public:launch \"Settings\"\
        end\
    else\
        -- Files\
        local icon1UI = frame:newChild( UIImage( 4, 6, 9, 3, images.files ) )\
        function icon1UI.onClick( )\
            self.public:launch \"Files\"\
        end\
        -- Edit\
        local icon2UI = frame:newChild( UIImage( 0, 0, 9, 3, images.paint ) )\
        icon2UI:align( \"right\", icon1UI, 2 )\
        function icon2UI.onClick( )\
            self.public:launch \"Paint\"\
        end\
        -- Paint\
        local icon3UI = frame:newChild( UIImage( 0, 0, 9, 3, images.edit ) )\
        icon3UI:align( \"below\", icon2UI, 2 )\
        function icon3UI.onClick( )\
            self.public:launch \"Edit\"\
        end\
\
        -- Apps shortcut\
        local icon5UI = frame:newChild( UIImage( 0, 0, 5, 4, images.folder ) )\
        icon5UI:align( \"below\", icon1UI, 2 )\
        icon5UI.x = icon5UI.x + 2\
        function icon5UI.onClick( )\
            self.public:launch( \"Files\", { \"C:\" .. core.path .. \"/apps\" } )\
        end\
        local b = icon5UI:newChild( UIButton( 1, 4, 5, 1, \"apps\" ) )\
        b.bc, b.tc = 0, colours.grey\
        b.onClick = icon5UI.onClick\
    end\
end\
\
function Session:showAbout( )\
    local frame = self.UI:newChild( UIFrame( 1, 1, self.UI.w, self.UI.h ) )\
    frame:newChild( UIText( 1, 1, frame.w, frame.h, \"\" ) ).bc = colours.white\
\
    local close = frame:newChild( UIButton( 0, frame.h - 1, 5, 1, \"Close\" ) ):centreX( )\
    close.tc = colours.grey\
    function close.onClick( )\
        frame:remove( )\
    end\
\
    frame:newChild( UIImage( 0, 3, 27, 4, Image( ):loadstr[[B0 B0          B0       B0 B0 B0 B0       B0             B0          B0 B0       \
B0    B0       B0    B0             B0    B0             B0       B0       B0    \
B0       B0    B0    B0             B0       B0       B0       B0 B0 B0 B0 B0 B0 \
B0          B0 B0       B0 B0 B0 B0             B0 B0          B0             B0 ]] ) ):centreX( )\
\
    markup.load( [=[\
        <text x:centre y:8 width:auto tc:lightGrey>]=] .. core.name .. [=[</text>\
        <text x:centre y:9 width:auto tc:lightGrey>]=] .. core.version .. [=[</text>\
        <text x:centre y:10 width:auto tc:lightGrey>by ]=] .. core.author .. [=[</text>\
        <text x:2 y:13 width:expand height:4 tc:grey>Thanks to Bomb Bloke for BBTetris, and thanks to the CC community for all the feedback!</text>\
    ]=], frame, getfenv( ) )\
end", meta={
  type = "class",
}};["Sandbox"]={content="\
\
Sandbox.public \"environment\"\
Sandbox.public.environment.write = false\
Sandbox.public \"instance\"\
Sandbox.public.instance.write = false\
\
function Sandbox:Sandbox( instance, args )\
    self.instance = instance\
    self.environment = { }\
    self.environment.ARGS = args\
    self.environment._G = self.environment\
\
    -- Lua stuff\
    self.environment._VERSION = _VERSION;\
    self.environment.pairs = pairs;\
    self.environment.ipairs = ipairs;\
    self.environment.select = select;\
    self.environment.unpack = unpack;\
    self.environment.setfenv = setfenv;\
    self.environment.getfenv = getfenv;\
    self.environment.setmetatable = setmetatable;\
    self.environment.getmetatable = getmetatable;\
    self.environment.next = next;\
    self.environment.rawset = rawset;\
    self.environment.rawget = rawget;\
    self.environment.rawequal = rawequal;\
    self.environment.type = type;\
    self.environment.tostring = tostring;\
    self.environment.tonumber = tonumber;\
    self.environment.pcall = pcall;\
    self.environment.xpcall = xpcall;\
    self.environment.loadstring = loadstring;\
    self.environment.assert = assert;\
    self.environment.error = error;\
    self.environment.sleep = sleep;\
    self.environment.__inext = __inext;\
\
    if instance.app.runmode ~= \"compatibility\" then\
        -- classes\
        self.environment.class = class;\
        self.environment.Drive = Drive;\
        self.environment.Archive = Archive;\
        self.environment.FileData = FileData;\
\
        -- NovaUI\
        self.environment.NovaUI = { }\
        self.environment.NovaUI.Image = Image;\
        self.environment.NovaUI.UIButton = UIButton;\
        self.environment.NovaUI.UICanvas = UICanvas;\
        self.environment.NovaUI.UICode = UICode;\
        self.environment.NovaUI.UIElement = UIElement;\
        self.environment.NovaUI.UIFrame = UIFrame;\
        self.environment.NovaUI.UIImage = UIImage;\
        self.environment.NovaUI.UIInput = UIInput;\
        self.environment.NovaUI.UIKeyHandler = UIKeyHandler;\
        self.environment.NovaUI.UIMenu = UIMenu;\
        self.environment.NovaUI.UIScrollBar = UIScrollBar;\
        self.environment.NovaUI.UIText = UIText;\
        self.environment.NovaUI.UITextbox = UITextbox;\
        self.environment.NovaUI.buffer = buffer;\
        self.environment.NovaUI.clipboard = clipboard;\
        self.environment.NovaUI.display = display;\
        self.environment.NovaUI.markup = markup;\
        self.environment.NovaUI.stencil = stencil;\
        self.environment.NovaUI.Thread = function( f )\
            return instance:newThread( Thread( f ) );\
        end\
\
        self.environment.markup = setmetatable( { }, { __index = markup } )\
        self.environment.markup.MarkupPage = MarkupPage;\
    end\
\
    -- libs\
    self.environment.math = math;\
    self.environment.string = string;\
    self.environment.table = table;\
    self.environment.coroutine = coroutine;\
    self.environment.sha256 = sha256;\
    self.environment.encryption = encryption;\
    self.environment.stringutils = stringutils;\
    self.environment.keys = keys;\
    self.environment.colours = colours;\
    self.environment.colors = colors;\
    self.environment.vector = vector;\
    self.environment.bit = bit;\
    self.environment.http = http;\
    self.environment.textutils = textutils;\
    self.environment.rednet = rednet;\
    self.environment.os = os;\
\
    if instance.app.runmode ~= \"compatibility\" then\
        -- Nova API\
        self.environment.Nova = { }\
        self.environment.Nova.name = core.name\
        self.environment.Nova.version = core.version\
        self.environment.Nova.platform = core.platform\
        self.environment.Nova.app = { }\
        self.environment.Nova.app.UI = instance.content\
        self.environment.Nova.user = { }\
        self.environment.Nova.filesystem = filesystem\
        self.environment.Nova.clipboard = clipboard\
        self.environment.Nova.name = core.name\
        self.environment.Nova.path = core.path\
        self.environment.Nova.author = core.author\
        self.environment.Nova.network = {\
            open = network.open;\
            close = network.close;\
            send = network.send;\
            receive = network.receive;\
            listen = network.listen;\
            ping = com.ping;\
        }\
\
        function self.environment.Nova.getUpdateInfo( )\
            return core.getUpdateInfo( )\
        end\
        function self.environment.Nova.compareVersions( )\
            return core.compareVersions( )\
        end\
        function self.environment.Nova.update( )\
            return core.update( )\
        end\
        function self.environment.Nova.shutdown( )\
            instance.app.session:logout( )\
            core.finish( )\
            os.shutdown( )\
        end\
        function self.environment.Nova.restart( )\
            instance.app.session:logout( )\
            core.finish( )\
            os.reboot( )\
        end\
        function self.environment.Nova.log( ... )\
            return core.log( instance.app.name, ... )\
        end\
        function self.environment.Nova.time( )\
            return os.time( )\
        end\
        function self.environment.Nova.clock( )\
            return os.clock( )\
        end\
        function self.environment.Nova.irltime( )\
            return core.getirltime( )\
        end\
        function self.environment.Nova.irldate( )\
            return core.getirldate( )\
        end\
        function self.environment.Nova.day( )\
            return os.day( )\
        end\
        function self.environment.Nova.date( )\
            return error \"not yet implemented\"\
        end\
        function self.environment.Nova.sleep( n )\
            return sleep( n )\
        end\
        function self.environment.Nova.pullEvent( )\
            local ev = { coroutine.yield( ) }\
            if ev[1] == \"terminate\" then\
                instance:close \"terminate\"\
            end\
            return unpack( ev )\
        end\
        function self.environment.Nova.pullEventRaw( )\
            return coroutine.yield( )\
        end\
        function self.environment.Nova.versionTable( )\
            return { major = core.version_major, minor = core.version_minor, patch = core.version_patch }\
        end\
        function self.environment.Nova.getLabel( )\
            return os.getComputerLabel( )\
        end\
        function self.environment.Nova.getID( )\
            return os.getComputerID( )\
        end\
\
        function self.environment.Nova.app.launch( name, ... )\
            instance.session:launch( name, { ... } )\
        end\
        function self.environment.Nova.app.register( path )\
            local a, err = instance.session:registerApp( path )\
            if not a then\
                return false, err\
            end\
            return true\
        end\
        function self.environment.Nova.app.isRegistered( path )\
            return instance.session.app_paths[path] and instance.session.app_paths[path].name or false\
        end\
        function self.environment.Nova.app.listNames( )\
            local t = { }\
            for k, v in pairs( instance.session.apps ) do\
                table.insert( t, k )\
            end\
            return t\
        end\
        function self.environment.Nova.app.getInstallPath( name )\
            if instance.session.apps[name] then\
                return instance.session.apps[name].installpath\
            end\
            return false\
        end\
        function self.environment.Nova.app.getIcon( name )\
            if instance.session.apps[name] then\
                return instance.session.apps[name].icon\
            end\
            return false\
        end\
        function self.environment.Nova.app.setData( index, value )\
            return instance.session.account:setData( instance.app.name, index, value )\
        end\
        function self.environment.Nova.app.getData( index )\
            return instance.session.account:getData( instance.app.name, index )\
        end\
        function self.environment.Nova.app.close( reason )\
            return instance:close( reason or \"internal\" )\
        end\
        function self.environment.Nova.app.newThread( func )\
            return instance:newThread( Thread( func ) )\
        end\
        function self.environment.Nova.app.setTitle( title )\
            instance.title = tostring( title )\
        end\
        function self.environment.Nova.app.require( file, ... )\
            file = file:gsub( \"%.\", \"/\" )\
            local content = instance.app:readFile( tostring( file ) .. \".lua\" )\
            if content then\
                local f, err = loadstring( content, filesystem.getName( file ) )\
                if f then\
                    local t = instance:newThread( Thread( f ) )\
                    return t\
                else\
                    instance:showError( err:gsub( \"Sandbox.lua:103: \", \"\" ) )\
                end\
            else\
                instance:showError \"no such file\"\
            end\
        end\
        function self.environment.Nova.app.notifyUser( message, data )\
            local title = instance.session.UI:newChild( UIButton( instance.session.UI.w + 1, 2, 15, 1, instance.app.name ) )\
            local box = instance.session.UI:newChild( UIButton( instance.session.UI.w + 1, 3, 15, 3, message ) )\
            title.bc, box.bc = colours.blue, colours.lightBlue\
            title.tc, box.tc = colours.white, colours.blue\
            box.align = false\
            if data then\
                function title.onClick( )\
                    instance.session:launch( instance.app.name, data )\
                end\
                box.onClick = title.onClick\
            end\
            instance.session:newThread( Thread( function( )\
                for i = 1, 15 do\
                    title.x, box.x = title.x - 1, box.x - 1\
                    sleep( .1 )\
                end\
                sleep( 2 )\
                for i = 1, 15 do\
                    title.x, box.x = title.x + 1, box.x + 1\
                    sleep( .1 )\
                end\
                title:remove( )\
                box:remove( )\
            end ) )\
        end\
        self.environment.Nova.app.public = setmetatable( { }, { __newindex = function( _, k, v )\
            instance.public_variables[k] = v\
        end, __index = function( _, k )\
            return instance.public_variables[k]\
        end } )\
        self.environment.Nova.app.event = setmetatable( { }, { __newindex = function( _, k, v )\
            if type( v ) == \"function\" then\
                instance.events[k] = v\
            else\
                return error \"expected function\"\
            end\
        end, __index = instance.events } )\
        self.environment.Nova.app.running = setmetatable( { }, {\
            __index = function( _, name )\
                local t = { }\
                local apps = { }\
                for i = 1, #instance.session.running do\
                    if instance.session.running[i].app.name == name then\
                        table.insert( apps, instance.session.running[i] )\
                    end\
                end\
                return setmetatable( t, {\
                    __index = function( _, k )\
                        if apps[k] then\
                            return setmetatable( { }, { __index = apps[k].public_variables } )\
                        end\
                    end;\
                } )\
            end;\
            __newindex = { };\
        } )\
        self.environment.Nova.app.service = setmetatable( { }, {\
            __index = function( _, name )\
                local t = { }\
                local apps = { }\
                for i = 1, #instance.session.background do\
                    if instance.session.background[i].app.name == name then\
                        table.insert( apps, instance.session.background[i] )\
                    end\
                end\
                return setmetatable( t, {\
                    __index = function( _, k )\
                        if apps[k] then\
                            return setmetatable( { }, { __index = apps[k].public_variables } )\
                        end\
                    end;\
                } )\
            end;\
            __newindex = { };\
        } )\
\
        function self.environment.Nova.user.getName( )\
            return instance.app.session.account.username\
        end\
        function self.environment.Nova.user.rename( name )\
            return instance.app.session.account:rename( name )\
        end\
        function self.environment.Nova.user.changePassword( pass )\
            return instance.app.session.account:changePassword( pass )\
        end\
        function self.environment.Nova.user.logout( )\
            Thread( function( )\
                instance.app.session:logout( )\
                core.session = Session( )\
            end )\
        end\
        function self.environment.Nova.user.delete( )\
            Thread( function( )\
                fs.delete( instance.app.session.account.userpath )\
                instance.app.session:logout( )\
                core.session = Session( )\
            end )\
        end\
        function self.environment.Nova.user.create( name, pass )\
            return Account.create( name, pass )\
        end\
        function self.environment.Nova.user.switch( name, pass )\
            Thread( function( )\
                instance.app.session:logout( )\
                core.session = Session( name, pass )\
            end )\
        end\
    end\
\
    return self.public\
end\
\
local function a( name )\
        -- user lib\
        self.environment.user.name = self.session.account.name\
        function self.environment.user.checkPassword( pass )\
            return self.session.account:getPassword( ) == sha256( pass )\
        end\
\
        -- running apps\
        function self.environment.app.focus( )\
            self.session:viewApp( self.app )\
        end\
end", meta={
  type = "class",
}};["encryption"]={content="\
\
local function sum( n, ... ) -- number n, number ...additions\
    local t = { ... }\
    for i = 1, #t do\
        n = n + t[i]\
    end\
    return n\
\
    -- number sum\
end\
\
local function loop( n, lim ) -- number n, number limit\
    while n > lim do\
        n = n - lim\
    end\
    while n < 1 do\
        n = n + lim\
    end\
    return n\
    -- number limited\
end\
\
local function shift( str, count )\
    local str = { str:byte( 1, #str ) }\
    for i = 1, #str do\
        str[i] = loop( str[i] + count, 255 )\
    end\
    for i = 1, #str do\
        str[i] = string.char( str[i] )\
    end\
    return table.concat( str, \"\" )\
end\
\
local function tohex( b ) -- string[4] bits\
    local n = 0\
    for i = 1, 4 do\
        n = n * 2\
        n = n + tonumber( b:sub( i, i ) )\
    end\
    if n >= 10 then\
        local hexes = { \"A\", \"B\", \"C\", \"D\", \"E\", \"F\" }\
        return hexes[n - 9]\
    end\
    return tostring( n )\
\
    -- string[1] hex\
end\
\
local function fromhex( h ) -- string[1] hex\
    local n = tonumber( h )\
    if not n then\
        local hexes = { [\"A\"] = 10, [\"B\"] = 11, [\"C\"] = 12, [\"D\"] = 13, [\"E\"] = 14, [\"F\"] = 15 }\
        n = hexes[h]\
    end\
    local str = \"\"\
    for i = 1, 4 do\
        str = str .. n % 2\
        n = math.floor( n / 2 )\
    end\
    return str:reverse( )\
\
    -- string[4] bits\
end\
\
local function xor( n1, n2 )\
    if n1 > 255 or n2 > 255 or n1 < 0 or n2 < 0 then\
        return error \"expected numbers between 0 and 255\"\
    end\
    local bit1, bit2 = { }, { }\
    for i = 1, 8 do\
        bit1[9-i] = n1 % 2 == 1\
        n1 = math.floor( n1 / 2 )\
    end\
    for i = 1, 8 do\
        bit2[9-i] = n2 % 2 == 1\
        n2 = math.floor( n2 / 2 )\
    end\
    local bits = { }\
    for i = 1, 8 do\
        bits[i] = ( bit1[i] and not bit2[i] ) or ( not bit1[i] and bit2[i] )\
    end\
    local n = 0\
    for i = 1, 8 do\
        n = n * 2\
        n = n + ( bits[i] and 1 or 0 )\
    end\
    return n\
end\
\
local function nand( n1, n2 )\
    if n1 > 255 or n2 > 255 or n1 < 0 or n2 < 0 then\
        return error \"expected numbers between 0 and 255\"\
    end\
    local bit1, bit2 = { }, { }\
    for i = 1, 8 do\
        bit1[9-i] = n1 % 2 == 1\
        n1 = math.floor( n1 / 2 )\
    end\
    for i = 1, 8 do\
        bit2[9-i] = n2 % 2 == 1\
        n2 = math.floor( n2 / 2 )\
    end\
    local bits = { }\
    for i = 1, 8 do\
        bits[i] = not bit1[i] == bit2[i]\
    end\
    local n = 0\
    for i = 1, 8 do\
        n = n * 2\
        n = n + ( bits[i] and 1 or 0 )\
    end\
    return n\
end\
\
local function tobits( n )\
    local str = \"\"\
    for i = 1, 8 do\
        str = str .. n % 2\
        n = math.floor( n / 2 )\
    end\
    return str:reverse( )\
end\
\
local function frombits( b )\
    local n = 0\
    for i = 1, 8 do\
        n = n * 2\
        n = n + tonumber( b:sub( i, i ) )\
    end\
    return n\
end\
\
local t = os.clock( )\
local function start( )\
    t = os.clock( )\
end\
local function yield( )\
    if os.clock( ) - t > .1 then\
        coroutine.yield( )\
        start( )\
    end\
end\
\
function encrypt( str, key ) -- string text, string key\
    local enc = \"\"\
    start( )\
    for i = 1, #str do\
        math.randomseed( sum( key:byte( 1, #key ) ) )\
        key = shift( key, math.random( 1, 100 ) )\
        local ki = loop( i, #key )\
        local a = str:sub( i, i ):byte( )\
        local b = key:sub( ki, ki ):byte( )\
        enc = enc .. tobits( xor( a, b ) )\
        yield( )\
    end\
    local enc2 = \"\"\
    for i = 1, #enc / 4 do\
        enc2 = enc2 .. tohex( enc:sub( i * 4 - 3, i * 4 ) )\
        yield( )\
    end\
    return enc2\
\
    -- string cipher\
end\
\
function decrypt( str, key ) -- string cipher, string key\
    start( )\
    local dec2 = \"\"\
    for i = 1, #str do\
        dec2 = dec2 .. fromhex( str:sub( i, i ) )\
        yield( )\
    end\
    str = dec2\
    local dec = \"\"\
    local keys = { }\
    for i = 1, #str / 8 do\
        math.randomseed( sum( key:byte( 1, #key ) ) )\
        keys[i] = shift( key, math.random( 1, 100 ) )\
        key = keys[i]\
        yield( )\
    end\
    for i = 1, #str / 8 do\
        local ki = loop( i, #key )\
        local a = frombits( str:sub( ( i - 1 ) * 8 + 1, i * 8 ) )\
        local b = string.byte( keys[i]:sub( ki, ki ) )\
        dec = dec .. string.char( nand( a, b ) )\
        yield( )\
    end\
    return dec\
\
    -- string text\
end", meta={
  type = "lib",
}};["MarkupLoadedObject"]={content="\
\
MarkupLoadedObject.public \"element\" (UIElement)\
\
MarkupLoadedObject.public \"mode\" \"string\"\
\
MarkupLoadedObject.public \"x\" \"number\"\
MarkupLoadedObject.public \"y\" \"number\"\
MarkupLoadedObject.public \"content\"\
MarkupLoadedObject.public.content.write = false\
\
function MarkupLoadedObject:MarkupLoadedObject( )\
    self.mode = \"block\"\
\
    self.x = 0\
    self.y = 0\
    self.content = {\
        width = 1;\
        height = 1;\
    }\
    self.element = nil\
\
    return self.public\
end\
\
function MarkupLoadedObject.public:initialise( class, ... )\
    self.element = class(\
        self.x,\
        self.y,\
        self.content.width,\
        self.content.height,\
        ...\
    )\
end", meta={
  type = "class",
}};["Image"]={content="\
\
local colourLookup = {\
    [\"0\"] = colours.white;\
    [\"1\"] = colours.orange;\
    [\"2\"] = colours.magenta;\
    [\"3\"] = colours.lightBlue;\
    [\"4\"] = colours.yellow;\
    [\"5\"] = colours.lime;\
    [\"6\"] = colours.pink;\
    [\"7\"] = colours.grey;\
    [\"8\"] = colours.lightGrey;\
    [\"9\"] = colours.cyan;\
    [\"A\"] = colours.purple;\
    [\"B\"] = colours.blue;\
    [\"C\"] = colours.brown;\
    [\"D\"] = colours.green;\
    [\"E\"] = colours.red;\
    [\"F\"] = colours.black;\
    [\" \"] = 0;\
}\
\
local colourSave = { }\
for k, v in pairs( colourLookup ) do\
    colourSave[v] = k\
end\
\
function Image:Image( w, h )\
    self.pixels = { }\
\
    for y = 1, h or 1 do\
        self.pixels[y] = { }\
        for x = 1, w or 1 do\
            self.pixels[y][x] = { bc = 0, tc = 0, char = \"\" }\
        end\
    end\
\
    return self.public\
end\
\
function Image.public:getSize( )\
    return #( self.pixels[1] or { } ), #self.pixels\
end\
\
function Image.public:foreach( f )\
    local w, h = #( self.pixels[1] or { } ), #self.pixels\
    local pixels = { }\
    for y = 1, h do\
        pixels[y] = { }\
        for x = 1, w do\
            pixels[y][x] = { }\
            local bc, tc, char = f( x, y, self.public:getPixel( x, y ) )\
            pixels[y][x].bc = bc or self.pixels[y][x].bc\
            pixels[y][x].tc = tc or self.pixels[y][x].tc\
            pixels[y][x].char = char or self.pixels[y][x].char\
        end\
    end\
    for y = 1, h do\
        for x = 1, w do\
            self.pixels[y][x].bc = pixels[y][x].bc\
            self.pixels[y][x].tc = pixels[y][x].tc\
            self.pixels[y][x].char = pixels[y][x].char\
        end\
    end\
end\
\
function Image.public:pixel( x, y, bc, tc, char )\
    if self.pixels[y] and self.pixels[y][x] then\
        --if bc == 0 then bc = pixels[y][x].bc end\
        --if tc == 0 then char = pixels[y][x].char tc = pixels[y][x].tc end\
        self.pixels[y][x] = { bc = bc, tc = tc, char = char }\
        return true\
    end\
    return false\
end\
\
function Image.public:getPixel( x, y )\
    if self.pixels[y] and self.pixels[y][x] then\
        return self.pixels[y][x].bc, self.pixels[y][x].tc, self.pixels[y][x].char\
    end\
    return false\
end\
\
function Image.public:savestr( str )\
    local w, h = #( self.pixels[1] or { } ), #self.pixels\
    local str = \"\"\
    for y = 1, h do\
        for x = 1, w do\
            local bc = colourSave[self.pixels[y][x].bc]\
            local tc = colourSave[self.pixels[y][x].tc]\
            local char = self.pixels[y][x].char\
            if #char == 0 then\
                char = \" \"\
                bc = colourSave[0]\
            end\
            str = str .. bc .. tc .. char\
        end\
        str = str .. \"\\n\"\
    end\
    return str:sub( 1, -2 )\
end\
\
function Image.public:loadstr( str )\
    local lines = { }\
    local last = 1\
    for i = 1, #str do\
        if str:sub( i, i ) == \"\\n\" then\
            table.insert( lines, str:sub( last, i - 1 ) )\
            last = i + 1\
        end\
    end\
    table.insert( lines, str:sub( last ) )\
    local width = #lines[1] / 3\
    local height = #lines\
    self.public:resize( width, height )\
    for i = 1, #lines do\
        local x = 1\
        for pixel in lines[i]:gmatch( \"[0123456789ABCDEF ][0123456789ABCDEF ].\" ) do\
            local bc = pixel:sub( 1, 1 )\
            local tc = pixel:sub( 2, 2 )\
            local ch = pixel:sub( 3, 3 )\
            self.public:pixel( x, i, colourLookup[bc], colourLookup[tc], ch )\
            x = x + 1\
        end\
    end\
    return self.public\
end\
\
function Image.public:resize( w, h, bc, tc, char )\
    while #self.pixels > h do\
        table.remove( self.pixels, #self.pixels )\
    end\
    while #self.pixels < h do\
        local t = { }\
        for i = 1, #( self.pixels[1] or { } ) do\
            t[i] = { bc = bc or 0, tc = tc or 0, char = char or \"\" }\
        end\
        table.insert( self.pixels, t )\
    end\
    if self.pixels[1] then\
        local cw = #self.pixels[1]\
        while cw > w do\
            for y = 1, h do\
                table.remove( self.pixels[y], #self.pixels[y] )\
            end\
            cw = cw - 1\
        end\
        while cw < w do\
            for y = 1, h do\
                table.insert( self.pixels[y], { bc = bc or 0, tc = tc or 0, char = char or \"\" } )\
            end\
            cw = cw + 1\
        end\
    end\
end", meta={
  type = "class",
}};["MarkupSpace"]={content="\
\
require \"MarkupGenericObject\"\
\
MarkupSpace:extends( MarkupGenericObject )\
\
MarkupSpace.public.etype = \"space\"\
\
function MarkupSpace:MarkupSpace( ... )\
    self:MarkupGenericObject( ... )\
\
    return self.public\
end\
\
function MarkupSpace.public:setAttribute( attribute, value ) -- protected objects should do innerNML stuff\
    if attribute == \"bc\" or attribute == \"backgroundColour\" or attribute == \"colour\" then\
        if colours[value] or value == \"transparent\" then\
            self.bc = colours[value] or 0\
        end\
    end\
    self.page.needsReload = true\
end\
\
function MarkupSpace.public:loadObject( positionHandler )\
    self.page:newStyle {\
        bc = self.bc;\
    }\
    local ob = MarkupLoadedObject( )\
    ob.mode = \"inline\"\
    ob.x, ob.y = positionHandler.x, positionHandler.y\
    ob:initialise( UIText, \"\" )\
    ob.element.bc = self.page:getStyle \"bc\"\
    self.page:removeStyle( )\
    return { ob }\
    -- generate a list of MarkupLoadedObjects\
end", meta={
  type = "class",
}};["MarkupInput"]={content="\
\
require \"MarkupGenericObject\"\
\
MarkupInput:extends( MarkupGenericObject )\
\
MarkupInput.public.etype = \"input\"\
\
function MarkupInput:MarkupInput( ... )\
    self:MarkupGenericObject( ... )\
\
    self.mask = false\
\
    return self.public\
end\
\
function MarkupInput.public:setAttribute( attribute, value )\
    if MarkupGenericObject.attributes[attribute] then\
        MarkupGenericObject.attributes[attribute]( self, value )\
    end\
    if attribute == \"tc\" or attribute == \"textColour\" then\
        if colours[value] or value == \"transparent\" then\
            self.tc = colours[value] or 0\
        end\
    end\
    if attribute == \"bc\" or attribute == \"backgroundColour\" or attribute == \"colour\" then\
        if colours[value] or value == \"transparent\" then\
            self.bc = colours[value] or 0\
        end\
    end\
    if attribute == \"fbc\" or attribute == \"focussedColour\" then\
        if colours[value] or value == \"transparent\" then\
            self.fbc = colours[value] or 0\
        end\
    end\
    if attribute == \"mask\" then\
        if value == false or value == \"false\" then\
            self.mask = false\
        elseif type( value ) == \"string\" then\
            self.mask = value:sub( 1, 1 )\
        end\
    end\
    self.page.needsReposition = true\
end\
\
\
function MarkupInput.public:loadObject( positionHandler )\
\
    local w, h = 0, 1\
    if self.width.type == \"text\" and self.width.value == \"auto\" then\
        w = positionHandler.w - positionHandler.x + 1\
    elseif self.width.type == \"percent\" then\
        w = self.width.value / 100 * positionHandler.w\
    elseif self.width.type == \"pixel\" then\
        w = self.width.value\
    end\
    local loadedObject = MarkupLoadedObject( )\
    loadedObject.x = positionHandler.x\
    loadedObject.y = positionHandler.y\
    loadedObject.mode = \"inline\"\
    loadedObject.content.width = w\
    loadedObject.content.height = h\
    local input\
    if not self.element then\
        loadedObject:initialise( UIInput, self.mask )\
        input = loadedObject.element\
        self.element = loadedObject.element\
    else\
        self.element.x = loadedObject.x\
        self.element.y = loadedObject.y\
        self.element.w = loadedObject.content.width\
        self.element.h = loadedObject.content.height\
        input = self.element\
    end\
    input.bc = self.bc or self.page:getStyle \"bc\"\
    input.tc = self.tc or self.page:getStyle \"tc\"\
    input.fbc = self.fbc or self.page:getStyle \"bc\"\
    loadedObject.element = input\
\
    function input:whenFocussed( )\
        core.log \"Focussed on the input\"\
    end\
    function input:onEnter()\
        core.log( self.text )\
    end\
\
    return { loadedObject }\
    -- generate a list of MarkupLoadedObjects\
end\
\
function MarkupInput.public:scriptObject( )\
    return setmetatable( {}, {\
        __newindex = function( _, k, v )\
            if type( v ) ~= \"string\" then\
                v = tostring( v )\
            end\
            return self.public:setAttribute( k, v )\
        end;\
        __index = function( _, k )\
            if k == \"width\" then\
                return ( self.width.type == \"percent\" and self.width.value .. \"%\" ) or ( self.width.type == \"pixel\" and self.width.value .. \"px\" ) or ( self.width.type == \"text\" and self.width.value )\
            elseif k == \"height\" then\
                return ( self.height.type == \"percent\" and self.height.value .. \"%\" ) or ( self.height.type == \"pixel\" and self.height.value .. \"px\" ) or ( self.height.type == \"text\" and self.height.value )\
            elseif k == \"bc\" or k == \"backgroundColour\" or k == \"colour\" then\
                return self.bc\
            elseif k == \"tc\" or k == \"textColour\" then\
                return self.tc\
            elseif k == \"mask\" then\
                return self.mask\
            elseif k == \"text\" then\
                return self.element and self.element.text or \"\"\
            else\
                return error \"cannot access this attribute\"\
            end\
        end;\
    } )\
end", meta={
  type = "class",
}};["handshake"]={content="\
-- Handshake\
-- Used with permission from 1lann\
-- Compressed using Lua Minifier (https://mothereff.in/lua-minifier)\
local Handshake={}Handshake.prime=625210769;Handshake.base=-1;Handshake.secret=-1;Handshake.sharedSecret=-1;function Handshake.exponentWithModulo(a,b,c)local d=a;for e=1,b-1 do d=d*d;if d>=c then d=d%c end end;return d end;function Handshake.clear()Handshake.base=-1;Handshake.secret=-1;Handshake.sharedSecret=-1 end;function Handshake.generateInitiatorData()Handshake.base=math.random(10,99999)Handshake.secret=math.random(10,99999)return{type=\"initiate\",prime=Handshake.prime,base=Handshake.base,moddedSecret=Handshake.exponentWithModulo(Handshake.base,Handshake.secret,Handshake.prime)}end;function Handshake.generateResponseData(f)local g=type(f.prime)==\"number\"local h=f.prime==Handshake.prime;local i=type(f.base)==\"number\"local j=f.type==\"initiate\"local k=type(f.moddedSecret)==\"number\"local l=g and i and k;if l and h then if j then Handshake.base=f.base;Handshake.secret=math.random(10,99999)Handshake.sharedSecret=Handshake.exponentWithModulo(f.moddedSecret,Handshake.secret,Handshake.prime)return{type=\"response\",prime=Handshake.prime,base=Handshake.base,moddedSecret=Handshake.exponentWithModulo(Handshake.base,Handshake.secret,Handshake.prime)},Handshake.sharedSecret elseif f.type==\"response\"and Handshake.base>0 and Handshake.secret>0 then Handshake.sharedSecret=Handshake.exponentWithModulo(f.moddedSecret,Handshake.secret,Handshake.prime)return Handshake.sharedSecret else return false end else return false end end;return Handshake", meta={
  type = "lib",
}};["MarkupNewline"]={content="\
\
require \"MarkupGenericObject\"\
\
MarkupNewline:extends( MarkupGenericObject )\
\
MarkupNewline.public.etype = \"newline\"\
\
function MarkupNewline:MarkupNewline( ... )\
    self:MarkupGenericObject( ... )\
\
    return self.public\
end\
\
function MarkupNewline.public:setAttribute( attribute, value ) -- protected objects should do innerNML stuff\
    if attribute == \"bc\" or attribute == \"backgroundColour\" or attribute == \"colour\" then\
        if colours[value] or value == \"transparent\" then\
            self.bc = colours[value] or 0\
        end\
    end\
    self.page.needsReload = true\
end\
\
function MarkupNewline.public:loadObject( positionHandler )\
    self.page:newStyle {\
        bc = self.bc;\
    }\
    local ob = MarkupLoadedObject( )\
    ob.x, ob.y = positionHandler.x, positionHandler.y\
    ob:initialise( UIText, \"\" )\
    ob.element.bc = self.page:getStyle \"bc\"\
    self.page:removeStyle( )\
    return { ob }\
    -- generate a list of MarkupLoadedObjects\
end", meta={
  type = "class",
}};["UICanvas"]={content="\
\
local colour = term.isColour( )\
\
require \"UIElement\"\
require \"Image\"\
UICanvas:extends( UIElement )\
\
UICanvas.public \"cx\" \"number\"\
UICanvas.public \"cy\" \"number\"\
UICanvas.public \"cb\" \"boolean\"\
UICanvas.public \"bc\" \"number\"\
UICanvas.public \"tc\" \"number\"\
UICanvas.public \"image\"\
UICanvas.public.image.write = false\
\
UICanvas.handlesKeys = true\
UICanvas.handlesScroll = true\
UICanvas.handlesTab = true\
UICanvas.handlesEnter = true\
\
local function termObject( canvas )\
    local t = { }\
    function t.write( str )\
        if type( str ) ~= \"string\" and type( str ) ~= \"number\" then return error \"expected string\" end\
        str = tostring( str )\
        for x = 1, #str do\
            canvas.image:pixel( canvas.cx, canvas.cy, canvas.bc, canvas.tc, str:sub( x, x ) )\
            canvas.cx = canvas.cx + 1\
        end\
    end\
    function t.clearLine( )\
        canvas.image:foreach( function( x, y, bc, tc, char )\
            if y == canvas.cy then\
                return canvas.bc, canvas.tc, \" \"\
            end\
        end )\
    end\
    function t.clear( )\
        canvas.image:foreach( function( x, y, bc, tc, char )\
            return canvas.bc, canvas.tc, \" \"\
        end )\
    end\
    function t.setCursorPos( x, y )\
        if type( x ) ~= \"number\" or type( y ) ~= \"number\" then\
            return error \"expected number, number\"\
        end\
        canvas.cx = x\
        canvas.cy = y\
    end\
    function t.getCursorPos( )\
        return canvas.cx, canvas.cy\
    end\
    function t.setBackgroundColour( col )\
        if type( col ) ~= \"number\" then\
            return error \"expected number\"\
        end\
        canvas.bc = col\
    end\
    function t.setTextColour( col )\
        if type( col ) ~= \"number\" then\
            return error \"expected number\"\
        end\
        canvas.tc = col\
    end\
    function t.setBackgroundColor( col )\
        if type( col ) ~= \"number\" then\
            return error \"expected number\"\
        end\
        canvas.bc = col\
    end\
    function t.setTextColor( col )\
        if type( col ) ~= \"number\" then\
            return error \"expected number\"\
        end\
        canvas.tc = col\
    end\
    function t.scroll( dir )\
        canvas.image:foreach( function( x, y, bc, tc, char )\
            if canvas.image:getPixel( x, y + dir ) then\
                return canvas.image:getPixel( x, y + dir )\
            else\
                return canvas.bc, canvas.tc, \" \"\
            end\
        end )\
    end\
    function t.setCursorBlink( state )\
        canvas.cb = not not state\
    end\
    function t.isColour( )\
        return colour\
    end\
    function t.isColor( )\
        return colour\
    end\
    function t.getSize( )\
        return canvas.w, canvas.h\
    end\
\
    return t\
end\
\
local function luaEnvironment( canvas )\
    local env = { }\
    env.fs = fs\
    env.term = term\
    env._VERSION = _VERSION\
    env.pairs = pairs\
    env.ipairs = ipairs\
    env.select = select\
    env.unpack = unpack\
    env.setfenv = setfenv\
    env.getfenv = getfenv\
    env.setmetatable = setmetatable\
    env.getmetatable = getmetatable\
    env.next = next\
    env.rawset = rawset\
    env.rawget = rawget\
    env.rawequal = rawequal\
    env.type = type\
    env.tostring = tostring\
    env.tonumber = tonumber\
    env.pcall = pcall\
    env.xpcall = xpcall\
    env.loadstring = loadstring\
    env.assert = assert\
    env.error = error\
    env.sleep = sleep\
    env.__inext = __inext\
    env.math = math\
    env.string = string\
    env.table = table\
    env.coroutine = coroutine\
    env.keys = keys\
    env.colours = colours\
    env.colors = colors\
    env.vector = vector\
    env.bit = bit\
    env.http = http\
    env.write = write\
    env.print = print\
    env.printError = printError\
    env.read = read\
    env.rednet = rednet\
    local tAPIsLoading = { }\
    env.os = setmetatable( {\
        pullEventRaw = function( sFilter )\
            while true do\
                local event = { coroutine.yield( ) }\
                if not sFilter or sFilter == event[1] then\
                    return unpack( event )\
                end\
            end\
        end;\
        pullEvent = function( sFilter )\
            while true do\
                local event = { coroutine.yield( ) }\
                if event[1] == \"terminate\" then\
                    error( \"Terminated\", 0 )\
                end\
                if not sFilter or sFilter == event[1] then\
                    return unpack( event )\
                end\
            end\
        end;\
        run = function( _tEnv, _sPath, ... )\
            local tArgs = { ... }\
            local fnFile, err = env.loadfile( _sPath )\
            if fnFile then\
                local tEnv = _tEnv\
                --setmetatable( tEnv, { __index = function(t,k) return _G[k] end } )\
                setmetatable( tEnv, { __index = env } )\
                setfenv( fnFile, tEnv )\
                local ok, err = pcall( function()\
                    fnFile( unpack( tArgs ) )\
                end )\
                if not ok then\
                    if err and err ~= \"\" then\
                        printError( err )\
                    end\
                    return false\
                end\
                return true\
            end\
            if err and err ~= \"\" then\
                printError( err )\
            end\
            return false\
        end;\
        loadAPI = function( _sPath )\
            local sName = fs.getName( _sPath )\
            if tAPIsLoading[sName] == true then\
                printError( \"API \"..sName..\" is already being loaded\" )\
                return false\
            end\
            tAPIsLoading[sName] = true\
                \
            local tEnv = {}\
            setmetatable( tEnv, { __index = env } )\
            local fnAPI, err = loadfile( _sPath )\
            if fnAPI then\
                setfenv( fnAPI, tEnv )\
                fnAPI()\
            else\
                printError( err )\
                tAPIsLoading[sName] = nil\
                return false\
            end\
            \
            local tAPI = {}\
            for k,v in pairs( tEnv ) do\
                tAPI[k] =  v\
            end\
            \
            env[sName] = tAPI    \
            tAPIsLoading[sName] = nil\
            return true\
        end;\
        unloadAPI = function( _sName )\
            if _sName ~= \"_G\" and type(env[_sName]) == \"table\" then\
                env[_sName] = nil\
            end\
        end;\
    }, { __index = os } );\
    env.help = help\
    env.io = io\
    env.parallel = parallel\
\
    env.loadfile = function( _sFile )\
        local file = env.fs.open( _sFile, \"r\" )\
        if file then\
            local func, err = loadstring( file.readAll(), env.fs.getName( _sFile ) )\
            file.close()\
            return func, err\
        end\
        return nil, \"File not found\"\
    end\
\
    env.dofile = function( _sFile )\
        local fnFile, e = env.loadfile( _sFile )\
        if fnFile then\
            setfenv( fnFile, env )\
            return fnFile()\
        else\
            error( e, 2 )\
        end\
    end\
\
    env.shell = shell\
    env.multishell = multishell\
    env.redstone = redstone -- change in future, use device system\
    env.rs = rs -- change in future, use device system\
    env.gps = gps -- change in future, use Nova gps system\
    env.peripheral = peripheral -- change in future, use device system\
    env.disk = disk -- change in future, use filesystem\
    env.window = window -- oh crap...\
    env.textutils = textutils\
    env.paintutils = paintutils\
    env.term = term\
\
    env._G = env\
\
    return env\
end\
\
function UICanvas:UICanvas( x, y, w, h )\
    self:UIElement( x, y, w, h )\
    self.image = Image( w, h )\
    self.image:foreach( function( x, y, bc, tc, char )\
        return colours.black, colours.white, \" \"\
    end )\
    self.term = termObject( self.public )\
    self.running = false\
    self.co = false\
    self.cx = 1\
    self.cy = 1\
    self.bc = colours.black\
    self.tc = colours.white\
    self.cb = false\
    self.environment = luaEnvironment( )\
    self.thread = Thread( function( )\
        while true do\
            local event = { coroutine.yield( ) }\
            if event[1] ~= \"mouse_click\"\
            and event[1] ~= \"mouse_drag\"\
            and event[1] ~= \"mouse_scroll\"\
            and event[1] ~= \"key\"\
            and event[1] ~= \"char\"\
            and event[1] ~= \"update\" then\
                self.public:passEvent( unpack( event ) )\
            end\
        end\
    end, true )\
    return self.public\
end\
\
function UICanvas.public:setTask( func )\
    setfenv( func, self.environment )\
    self.co = coroutine.create( func )\
    self.running = true\
end\
\
function UICanvas.public:passEvent( ... )\
    if not self.running then return end\
    local prev = term.redirect( self.term )\
    local ok, err = coroutine.resume( self.co, ... )\
    term.redirect( prev )\
    if not ok then\
        self.running = false\
        local prev = term.redirect( self.term )\
        self.environment.printError( err )\
        term.redirect( prev )\
    end\
    if coroutine.status( self.co ) == \"dead\" then\
        self.running = false\
    end\
end\
\
function UICanvas.public:draw( x, y )\
    local layer = stencil.addLayer( x, y, self.w, self.h )\
    self.image:resize( self.w, self.h )\
    self.image:foreach( function( px, py, bc, tc, char )\
        stencil.pixel( x + px - 1, y + py - 1, bc, tc, char )\
        return bc, tc, char\
    end )\
    if self.cb then\
        stencil.setCursorBlink( x + self.cx - 1, y + self.cy - 1, self.tc )\
    end\
    local c = { }\
    for i, child in ipairs( self.children ) do\
        c[i] = child\
    end\
    for i, child in ipairs( c ) do\
        child:draw( x + child.x - 1 + self.cx, y + child.y - 1 + self.cy )\
    end\
    stencil.closeLayer( layer )\
end\
\
function UICanvas.public:onMouseClick( x, y, button )\
    self.public:passEvent( \"mouse_click\", button, x, y )\
end\
\
function UICanvas.public:onMouseDrag( x, y, cx, cy, button )\
    self.public:passEvent( \"mouse_drag\", button, x, y )\
end\
\
function UICanvas.public:onMouseScroll( x, y, dir )\
    self.public:passEvent( \"mouse_scroll\", dir, x, y )\
end\
\
function UICanvas.public:onKeyPress( key, lastkey )\
    self.public:passEvent( \"key\", key )\
end\
\
function UICanvas.public:onTextInput( text, lastkey )\
    self.public:passEvent( \"char\", text )\
end", meta={
  type = "class",
}};["clipboard"]={content="\
local a=false;function set(b,c)a={mode=b,data=c}end;function get()if a then return a.mode,a.data end end", meta={
  type = "lib",
}};["ttf"]={content="\
local pack = {\
Run={\
[\"icon.nim\"]=\"F0RF0uF0nF4 F4 F4 F4 F4 F0 \\nF4 F4CF4rF4aF4fF4tF4OF4SF0 \\nF4>F4 F4_F0 F0 F0 F0 F0 F0 \",\
[\"main.lua\"]=\"\\nif not Nova then\\n error( \\\"Cannot run outside Nova\\\", 0 )\\nend\\n\\nlocal Nova = Nova\\n\\nlocal handler = Nova.app.UI:getHandler( )\\n\\nlocal canvas = Nova.app.UI:newChild( NovaUI.UICanvas( 1, 1, Nova.app.UI.w, Nova.app.UI.h ) )\\nif ARGS[1] then\\n  local data, err = Nova.filesystem.readfile( ARGS[1] )\\n    if data then\\n     local f, err = loadstring( data.content, Nova.filesystem.getName( ARGS[1] ) )\\n        if f then\\n            canvas:setTask( function( ... )\\n              setfenv( f, getfenv( ) )\\n             local ok, err = pcall( f, ... )\\n              if not ok then\\n                   term.setBackgroundColour( colours.black )\\n                    term.setTextColour( colours.red )\\n                    print( err )\\n             end\\n              print \\\"App has finished, press any key to exit.\\\"\\n               os.pullEvent \\\"key\\\"\\n             Nova.app.close( )\\n            end )\\n            handler:setFocus( canvas )\\n           canvas:passEvent( unpack( ARGS, 2 ) )\\n        else\\n         error( err:gsub( \\\"main:12: \\\", \\\"\\\" ), 0 )\\n      end\\n  else\\n     error( err, 0 )\\n  end\\nelse\\n   local data, err = Nova.filesystem.readfile( \\\"rom/programs/shell\\\" )\\n if data then\\n     local f, err = loadstring( data.content, \\\"shell\\\" )\\n     if f then\\n            canvas:setTask( function( )\\n              setfenv( f, getfenv( ) )\\n             local ok, err = pcall( f )\\n               if not ok then\\n                   term.setBackgroundColour( colours.black )\\n                    term.setTextColour( colours.red )\\n                    print( err )\\n             end\\n              print \\\"App has finished, press any key to exit.\\\"\\n               os.pullEvent \\\"key\\\"\\n             Nova.app.close( )\\n            end )\\n            handler:setFocus( canvas )\\n           canvas:passEvent( )\\n      else\\n         error( err:gsub( \\\"main:34: \\\", \\\"\\\" ), 0 )\\n      end\\n  else\\n     error( err, 0 )\\n  end\\nend\",\
[\"appconfig.txt\"]=\"handles = {\\n    \\\"unknown\\\";\\n \\\"lua\\\";\\n};\",\
}\
,\
NetServer={\
[\"responder.lua\"]=\"\\nlocal channels = { }\\n\\nlocal function findFinish( str, pos )\\n local escape = false\\n for i = pos, #str do\\n     if not escape then\\n           if str:sub( i, i ) == \\\"\\\\\\\\\\\" then\\n              escape = true\\n            end\\n          if str:sub( i, i + 1 ) == \\\"?>\\\" then\\n                return i + 1\\n         end\\n      end\\n  end\\nend\\n\\nlocal function loadPluginEnvironment( args, rootpath )\\n    local env = { }\\n  env.ARGS = args\\n  env._G = env\\n\\n  env._VERSION = _VERSION;\\n env.pairs = pairs;\\n   env.ipairs = ipairs;\\n env.select = select;\\n env.unpack = unpack;\\n env.setfenv = setfenv;\\n   env.getfenv = getfenv;\\n   env.setmetatable = setmetatable;\\n env.getmetatable = getmetatable;\\n env.next = next;\\n env.rawset = rawset;\\n env.rawget = rawget;\\n env.rawequal = rawequal;\\n env.type = type;\\n env.tostring = tostring;\\n env.tonumber = tonumber;\\n env.pcall = pcall;\\n   env.xpcall = xpcall;\\n env.loadstring = loadstring;\\n env.assert = assert;\\n env.error = error;\\n   env.sleep = sleep;\\n   env.__inext = __inext;\\n\\n    env.math = math;\\n env.string = string;\\n env.table = table;\\n   env.coroutine = coroutine;\\n   env.sha256 = sha256;\\n env.encryption = encryption;\\n env.stringutils = stringutils;\\n   env.keys = keys;\\n env.colours = colours;\\n   env.colors = colors;\\n env.vector = vector;\\n env.bit = bit;\\n   env.http = http;\\n env.textutils = textutils;\\n   env.rednet = rednet;\\n env.os = os;\\n\\n  env.class = class;\\n   env.Drive = Drive;\\n   env.Archive = Archive;\\n   env.FileData = FileData;\\n\\n  env.filesystem = Nova.filesystem\\n env.clipboard = Nova.clipboard\\n   env.network = Nova.network\\n\\n    env.document = { }\\n   function env.document.write() end -- document.write is given in the readFile function\\n    env.rootpath = rootpath\\n\\n   return env\\nend\\n\\nlocal function parseContent( content, args )\\n   local stream = \\\"\\\"\\n  local plugins = Nova.app.getData \\\"plugins\\\" or { }\\n  for k, v in pairs( plugins ) do\\n      v.loadContent = loadstring( v.loadContent or \\\"\\\" )\\n  end\\n  local escape\\n local i = 1\\n  while i <= #content do\\n       if escape then\\n           stream = stream .. content:sub( i, i )\\n       else\\n         if content:sub( i, i ) == \\\"\\\\\\\\\\\" then\\n              escape = true\\n            end\\n          if content:sub( i, i + 1 ) == \\\"<?\\\" then\\n                local plugin = content:sub( i + 2 ):match \\\"^(%w+)\\\"\\n             if plugin then\\n                   local finish = findFinish( content, i + 3 + #(plugin or \\\"\\\") )\\n                  if not finish then\\n                       stream = stream .. \\\"<text tc:red width:auto>End of <? expected</text>\\\"\\n                 elseif plugins[plugin] then\\n                      local environment = loadPluginEnvironment( args, Nova.app.getData \\\"rootpath\\\" or \\\"user:\\\" )\\n                        environment.document.write = function( str )\\n                         stream = stream .. tostring( str )\\n                       end\\n                      if type( plugins[plugin].loadContent ) == \\\"function\\\" then\\n                          setfenv( plugins[plugin].loadContent, environment )\\n                          local ok, err = pcall( plugins[plugin].loadContent, content:sub( i + 2 + #plugin, finish - 2 ) )\\n                         if not ok then\\n                               stream = stream .. \\\"<text tc:red width:auto>\\\" .. err .. \\\"</text>\\\"\\n                            end\\n                      else\\n                         stream = stream .. \\\"<text tc:red width:auto>Plugin \\\\\\\"\\\" .. plugin .. \\\"\\\\\\\" failed to load</text>\\\"\\n                       end\\n                  else\\n                     stream = stream .. \\\"<text tc:red width:auto>No such plugin \\\\\\\"\\\" .. plugin .. \\\"\\\\\\\"</text>\\\"\\n                  end\\n                  if finish then\\n                       i = finish\\n                   end\\n              else\\n                 stream = stream .. \\\"<\\\"\\n             end\\n          else\\n             stream = stream .. content:sub( i, i )\\n           end\\n      end\\n      i = i + 1\\n    end\\n  return stream\\nend\\n\\nlocal function readFile( file, args, p )\\n    local filedata, err = Nova.filesystem.readfile( file )\\n   if not filedata then\\n     return false, err\\n    end\\n  if p then\\n        return parseContent( filedata.content, args )\\n    end\\n  return filedata.content\\nend\\n\\nlocal function addWebHandler( channel )\\n   table.insert( channels, channel )\\n    Nova.app.newThread( function( )\\n      while true do\\n            local ok, data = Nova.network.receive( channel )\\n         if not ok and data == \\\"closed\\\" then\\n                for i = #channels, 1, -1 do\\n                  if channels[i] == channel then\\n                       table.remove( channels, i )\\n                      break\\n                    end\\n              end\\n              break\\n            end\\n          if Nova.app.getData \\\"online\\\" and ok and type( data ) == \\\"table\\\" then\\n             if data.request == \\\"read\\\" then\\n                 local rootpath = Nova.app.getData \\\"rootpath\\\" or \\\"user:\\\"\\n                  if type( data.file ) == \\\"string\\\" then\\n                      if Nova.filesystem.isDirectory( Nova.filesystem.merge( rootpath, data.file ) ) then\\n                          data.file = Nova.filesystem.merge( data.file, \\\"index.nml\\\" )\\n                        end\\n                      if not Nova.filesystem.isFile( Nova.filesystem.merge( rootpath, data.file ) ) then\\n                           if Nova.filesystem.isFile( Nova.filesystem.merge( rootpath, Nova.filesystem.getDirectory( data.file ), \\\"noindex.nml\\\" ) ) then\\n                              data.args = type( data.args ) == \\\"table\\\" and data.args or { }\\n                              data.args.file = data.file\\n                               data.file = Nova.filesystem.merge( Nova.filesystem.getDirectory( data.file ), \\\"noindex.nml\\\" )\\n                          else\\n                             Nova.network.send( channel, {\\n                                    success = false;\\n                                 reason = \\\"no such file or directory\\\";\\n                              } )\\n                          end\\n                      end\\n                      local path = Nova.filesystem.merge( rootpath, data.file )\\n                        local content, err = readFile( path, type( data.args ) == \\\"table\\\" and data.args or { }, Nova.filesystem.getExtension( path ) == \\\"nml\\\" )\\n                      if content then\\n                          Nova.network.send( channel, {\\n                                success = true;\\n                              content = content;\\n                               endpath = data.file;\\n                         } )\\n                      else\\n                         Nova.network.send( channel, {\\n                                success = false;\\n                             reason = err;\\n                            } )\\n                      end\\n                  else\\n                     Nova.network.send( channel, {\\n                            success = false;\\n                         reason = \\\"malformed packet\\\";\\n                       } )\\n                  end\\n              end\\n          end\\n      end\\n  end )\\nend\\n\\nfunction Nova.app.canClose( )\\n   for i = 1, #channels do\\n      Nova.network.close( channels[i] )\\n    end\\nend\\n\\nwhile true do\\n addWebHandler( Nova.network.listen \\\"NetServer:Request\\\" )\\nend\",\
[\"main.lua\"]=\"\\nlocal UI = Nova.app.UI\\nNova.app.require \\\"LuaPlugin\\\"\\n\\nlocal function registerPlugin( path )\\n   if Nova.filesystem.isFile( path ) then\\n       local pass\\n       if Nova.filesystem.isProtected( path ) then\\n          pass = NovaUI.display.response( UI, \\\"File is protected, please input a password\\\" )\\n         if not pass then return end\\n      end\\n      local filedata, err = Nova.filesystem.readfile( path, pass )\\n     if not filedata then\\n         NovaUI.display.alert( UI, err, true )\\n            return\\n       end\\n      local name = Nova.filesystem.getName( path, true )\\n       local f, err = loadstring( filedata.content, name )\\n      if not f then\\n            NovaUI.display.help( UI, err:gsub( \\\"main:17: \\\", \\\"\\\" ), true )\\n         return\\n       end\\n      local plugins = Nova.app.getData \\\"plugins\\\" or { }\\n      plugins[name] = { loadContent = filedata.content }\\n       Nova.app.setData( \\\"plugins\\\", plugins )\\n     NovaUI.display.alert( UI, \\\"Plugin registered!\\\", true )\\n else\\n     NovaUI.display.alert( UI, \\\"Plugin doesn't exist\\\" )\\n end\\nend\\n\\nif ARGS[1] and ARGS[2] == \\\"NetServerPlugin\\\" then\\n    registerPlugin( ARGS[1] )\\n    Nova.app.close( )\\nend\\n\\nlocal _, _, document = NovaUI.markup.load( [[\\n   <text x:2 y:2>Server control panel.</text>\\n   <text x:2 y:4>Your server is currently</text>\\n    <text x:2 y:6>Root path of server:</text>\\n    <input x:2 y:7 id:rootpath align:below width:expand>\\n <text x:2 y:9>Plugins (run a .nsp file to add the plugin)</text>\\n]], UI, getfenv( ) )\\n\\nlocal running = UI:newChild( NovaUI.UIButton( 27, 4, 7, 1, function( self )\\n local online = Nova.app.getData \\\"online\\\"\\n   self.bc = online and colours.green or colours.red\\n    return online and \\\"online\\\" or \\\"offline\\\"\\nend ) )\\nrunning.tc = colours.black\\n\\nfunction running:onClick( )\\n  Nova.app.setData( \\\"online\\\", not Nova.app.getData \\\"online\\\" )\\nend\\n\\nlocal rootpath = document.getElementById \\\"rootpath\\\"\\nrootpath.w = rootpath.w - 1\\nrootpath.text = Nova.app.getData \\\"rootpath\\\" or \\\"user:\\\"\\nfunction rootpath:onEnter( )\\n   Nova.app.setData( \\\"rootpath\\\", self.text )\\nend\\n\\nlocal plugins = UI:newChild( NovaUI.UIFrame( 3, 10, UI.w - 3, UI.h - 12 ) )\\n\\nlocal plugin_list = Nova.app.getData \\\"plugins\\\" or { }\\nif #plugin_list > plugins.h then\\n   plugins.w = plugins.w - 1\\n    UI:newChild( NovaUI.UIScrollbar( 0, 0, 1, 0, plugins ) ):alignTo( plugins )\\nend\\n\\nlocal y = 1\\nfor k, v in pairs( plugin_list ) do\\n local button = plugins:newChild( NovaUI.UIButton( 1, y, plugins.w, 1, k ) )\\n  button.tc = colours.grey\\n button.align = false\\n\\n  y = y + 1\\nend\\n\\nlocal function installLua( )\\n    local f, err = loadstring( LuaPlugin, \\\"lua\\\" )\\n  if not f then\\n        NovaUI.display.help( UI, err:gsub( \\\"main:81: \\\", \\\"\\\" ) )\\n       return\\n   end\\n  local plugins = Nova.app.getData \\\"plugins\\\" or { }\\n  plugins.lua = { loadContent = LuaPlugin }\\n    Nova.app.setData( \\\"plugins\\\", plugins )\\n NovaUI.display.alert( UI, \\\"Plugin registered!\\\" )\\nend\\n\\nlocal button = UI:newChild( NovaUI.UIButton( 2, UI.h - 1, UI.w - 2, 1, \\\"install Lua plugin\\\" ) )\\nfunction button:onClick( )\\n installLua( )\\nend\",\
[\"LuaPlugin.lua\"]=\"LuaPlugin = [[local content = ...\\n\\nlocal env = { }\\nenv.ARGS = ARGS\\nenv._G = env\\n\\nenv._VERSION = _VERSION;\\nenv.pairs = pairs;\\nenv.ipairs = ipairs;\\nenv.select = select;\\nenv.unpack = unpack;\\nenv.setfenv = setfenv;\\nenv.getfenv = getfenv;\\nenv.setmetatable = setmetatable;\\nenv.getmetatable = getmetatable;\\nenv.next = next;\\nenv.rawset = rawset;\\nenv.rawget = rawget;\\nenv.rawequal = rawequal;\\nenv.type = type;\\nenv.tostring = tostring;\\nenv.tonumber = tonumber;\\nenv.pcall = pcall;\\nenv.xpcall = xpcall;\\nenv.loadstring = loadstring;\\nenv.assert = assert;\\nenv.error = error;\\nenv.sleep = sleep;\\nenv.__inext = __inext;\\n\\nenv.math = math;\\nenv.string = string;\\nenv.table = table;\\nenv.coroutine = coroutine;\\nenv.sha256 = sha256;\\nenv.encryption = encryption;\\nenv.stringutils = stringutils;\\nenv.keys = keys;\\nenv.colours = colours;\\nenv.colors = colors;\\nenv.vector = vector;\\nenv.bit = bit;\\nenv.http = http;\\nenv.textutils = textutils;\\nenv.rednet = rednet;\\n\\nfunction env.write( ... )\\n   local args = { ... }\\n local s =  \\\"\\\"\\n  for i = 1, #args do\\n      s = s .. tostring( args[i] )\\n end\\n  document.write( s )\\nend\\nfunction env.print( ... )\\n    local args = { ... }\\n local s =  \\\"\\\"\\n  for i = 1, #args do\\n      s = s .. tostring( args[i] )\\n end\\n  document.write( s .. \\\"\\\\n\\\" )\\nend\\n\\nlocal function formatPath( path )\\n    path = filesystem.merge( rootpath, path )\\n    local parts = { }\\n    local last = 1\\n   for i = 1, #path do\\n      if path:sub( i, i ) == \\\"/\\\" then\\n            table.insert( parts, path:sub( last, i - 1 ) )\\n           last = i + 1\\n     end\\n  end\\n  table.insert( parts, path:sub( last ) )\\n  local i = 1\\n  while i <= #parts do\\n     if parts[i] == \\\"..\\\" then\\n           table.remove( parts, i )\\n         table.remove( parts, i - 1 )\\n     else\\n         i = i + 1\\n        end\\n  end\\n  if #parts == 0 then\\n      parts[1] = \\\"\\\"\\n  end\\n  return filesystem.merge( unpack( parts ) )\\nend\\n\\nfunction env.readfile( path )\\n  local filedata, err = filesystem.readfile( formatPath( path ) )\\n  if filedata then\\n     return filedata.content\\n  end\\n  return nil\\nend\\n\\nlocal f, err = loadstring( content, \\\"script\\\" )\\nif f then\\n   setfenv( f, env )\\n    f, err = pcall( f )\\nend\\nif not f then\\n    err = err:gsub( \\\"string:97: \\\", \\\"\\\" )\\n  document.write( \\\"<t tc:red>\\\" .. err .. \\\"</t>\\\" )\\nend\\n]]\",\
[\"icon.nim\"]=\"--[[\\n  type = \\\"nova_image\\\",\\n]]07N07e07t07S07e07r07v07e07r\\n08<08p08>08H08i08<08/08p08>\\n08<08p08>08.08.08<08/08p08>\",\
[\"appconfig.txt\"]=\"handles = {\\n    \\\"NetServerPlugin\\\";\\n};\\nextensions = {\\n   [\\\"nsp\\\"] = \\\"NetServerPlugin\\\";\\n};\\nfiletypes = {\\n    [\\\"NetServerPlugin\\\"] = \\\"NetServer plugin file\\\";\\n};\\nservices = {\\n   \\\"responder\\\";\\n};\",\
}\
,\
Files={\
[\"icon.nim\"]=\"1F 1F 1F 1F 1F 1F 1F 1F 1F \\n4F 4F 47F47i47l47e47s4F 4F \\n4F 4F 4F 4F 4F 4F 4F 4F 4F \",\
[\"main.lua\"]=\"\\nif not Nova then\\n error( \\\"Cannot run outside Nova\\\", 0 )\\nend\\n\\nlocal icons = { }\\nicons.app = NovaUI.Image( 5, 3 ):loadstr [[BF BF BF BF BF \\n3F 3Ea3Ep3Ep3F \\n9F 9F 9F 9F 9F ]]\\nicons.archive = NovaUI.Image( 5, 3 ):loadstr [[4F 4F 4F 0F 0F \\n1F 1F 1F 1F 1F \\n1F 1F 1F 1F 1F ]]\\nicons.class = NovaUI.Image( 5, 3 ):loadstr [[01c01l01a01s01s\\n00 08-08-08-00 \\n00 08-08-08-00 ]]\\nicons.design_file = NovaUI.Image( 5, 3 ):loadstr [[ F BF BF  F  F \\n F BF  F BF  F \\n F BF BF  F  F ]]\\nicons.design_project = NovaUI.Image( 5, 3 ):loadstr [[ F BF BF  F  F \\n F BF  3 BF  F \\n 3PB3rB3j 3c 3t]]\\nicons.folder = NovaUI.Image( 5, 3 ):loadstr [[10 10 10 0F 0F \\n40 40 40 4F 4F \\n40 40 40 40 40 ]]\\nicons.lib = NovaUI.Image( 5, 3 ):loadstr [[0F 09l09i09b0F \\n00 08-08-08-00 \\n00 08-08-08-00 ]]\\nicons.lua = NovaUI.Image( 5, 3 ):loadstr [[0F 03l03u03a0F \\n00 08-08-08-00 \\n00 08-08-08-00 ]]\\nicons.nova_image = NovaUI.Image( 5, 3 ):loadstr [[3Bi3Bm3B 3B 4B \\n3B 3B 3B 3B 3B \\nDB DB DB DB DB ]]\\nicons.shortcut = NovaUI.Image( 5, 3 ):loadstr [[08s08h08o08r08t\\n03 08c08u08t08 \\n08-08-08-08-08-]]\\nicons.text = NovaUI.Image( 5, 3 ):loadstr [[0F 0Ft0Fx0Ft08 \\n0F 08-08-08-08 \\n0F 08-08-08-08 ]]\\nicons.unknown = NovaUI.Image( 5, 3 ):loadstr [[0F 08-08-08-0F \\n0F 08-08-08-0F \\n0F 08-08-08-0F ]]\\n\\nlocal UI = Nova.app.UI\\n\\nlocal topbar = UI:newChild( NovaUI.UIFrame( 1, 1, UI.w, 3 ) )\\ntopbar:newChild( NovaUI.UIText( 1, 1, topbar.w, topbar.h, \\\"\\\" ) ).bc = colours.grey\\n\\nlocal sidebar = UI:newChild( NovaUI.UIFrame( 1, 5, 13, UI.h - 5 ) )\\nlocal sidebarborder = UI:newChild( NovaUI.UIText( sidebar.x + sidebar.w + 1, 4, 1, UI.h - 3, \\\"\\\" ) )\\nsidebarborder.bc = colours.lightGrey\\n\\nif Nova.platform ~= \\\"computer\\\" then\\n   sidebar.w = 0\\n    sidebarborder.x = 0\\nend\\n\\nlocal background = UI:newChild( NovaUI.UIButton( sidebar.x + sidebar.w, topbar.y + topbar.h, 0, 0, \\\"\\\" ) )\\nbackground.bc = 0\\nbackground.align = false\\nbackground.w = UI.w - background.x + 1\\nbackground.h = UI.h - background.y + 1\\n\\nlocal filecontent = UI:newChild( NovaUI.UIFrame( sidebarborder.x + sidebarborder.w + 1, topbar.y + topbar.h + 1, 0, 0 ) )\\nfilecontent.w = UI.w - filecontent.x - 1\\nfilecontent.h = UI.h - filecontent.y\\n\\nlocal scrollbar = UI:newChild( NovaUI.UIScrollBar( 0, 0, 1, 0, filecontent ) )\\nscrollbar:align( \\\"right\\\", filecontent )\\n\\nlocal stage = 0\\nlocal loading\\nlocal dir = 1\\nlocal ltime = 0\\nlocal loader = UI:newChild( NovaUI.UIText( UI.w - 4, UI.h, 4, 1, function( )\\n   if not loading then return \\\"\\\" end\\n  if os.clock( ) - ltime > 0.2 then\\n        stage = stage + dir\\n      if stage == 4 then dir = -1 end\\n      if stage == 1 then dir = 1 end\\n       ltime = os.clock( )\\n  end\\n  if stage == 1 then return \\\"o...\\\"\\n   elseif stage == 2 then return \\\".o..\\\"\\n   elseif stage == 3 then return \\\"..o.\\\"\\n   elseif stage == 4 then return \\\"...o\\\"\\n   end\\nend ) )\\n\\nlocal filepath = \\\"C:\\\"\\nlocal history = { }\\nlocal historyindex = 0\\nlocal favourites = Nova.app.getData \\\"favourites\\\" or { }\\n\\nlocal sortorder = Nova.app.getData \\\"sortorder\\\" or { mode = \\\"name\\\", direction = \\\"ascending\\\" }\\nlocal viewhidden = Nova.app.getData \\\"viewhidden\\\"\\nif viewhidden == nil then\\n   viewhidden = false\\nend\\nlocal defaults = Nova.app.getData \\\"defaults\\\" or { }\\nfor k, v in pairs( defaults ) do\\n  Nova.filesystem.setDefaultHandler( k, v )\\nend\\n\\nlocal mount = false\\n\\nlocal function charweight( char )\\n  return string.byte( char:lower( ) )\\nend\\nlocal function compstring( s1, s2 ) -- s1 > s2\\n   for i = 1, #s1 do\\n        if #s2 < i then\\n          return true\\n      end\\n      local c1, c2 = s1:sub( i, i ), s2:sub( i, i )\\n        local w1, w2 = charweight( c1 ), charweight( c2 )\\n        if w1 > w2 then\\n          return true\\n      elseif w1 < w2 then\\n          return false\\n     end\\n  end\\n  return false\\nend\\n\\nlocal function formatSize( s )\\n   if s < 1024 then\\n     return s .. \\\" bytes\\\"\\n   end\\n  s = s / 1024\\n if s < 1024 then\\n     return math.floor( s ) .. \\\"KB\\\"\\n end\\n  s = s / 1024\\n if s < 1024 then\\n     return math.floor( s ) .. \\\"MB\\\"\\n end\\nend\\n\\nlocal activedropdown\\nlocal function dropdown( x, y, options )\\n   local frame = UI:newChild( NovaUI.UIFrame( 1, 1, UI.w, UI.h ) )\\n  local close = frame:newChild( NovaUI.UIButton( 1, 1, frame.w, frame.h, \\\"\\\" ) )\\n  close.bc = 0\\n close.align = false\\n  function close:onClick( )\\n        activedropdown = nil\\n     frame:remove( )\\n  end\\n  local f = frame:newChild( NovaUI.UIFrame( x, y, 15, 10 ) )\\n   activedropdown = frame\\n   NovaUI.display.menu( f, options )\\n    if f.x + f.w > UI.w then\\n     f.x = UI.w - f.w + 1\\n end\\n  if f.y + f.h > UI.h then\\n     f.y = UI.h - f.h + 1\\n end\\nend\\n\\nfunction Nova.app.canClose( reason )\\n  if mount then\\n        Nova.filesystem.unmount( mount )\\n end\\nend\\n\\nlocal showFolderOptions, showFileOptions\\n\\nlocal openPath\\nlocal function listFiles( path, openAs )\\n   local l = loading\\n    loading = true\\n   filecontent:clearChildren( )\\n\\n  if mount and path:sub( 1, #mount ) ~= mount then\\n     Nova.filesystem.unmount( mount )\\n     mount = nil\\n  end\\n\\n   local _dirs, _files = { }, { }\\n   local files = Nova.filesystem.listFiles( path, function( files )\\n     for i = 1, #files do\\n         if files[i]:sub( 1, 1 ) ~= \\\".\\\" or viewhidden then\\n              if Nova.filesystem.isDirectory( Nova.filesystem.merge( path, files[i] ) ) then\\n                   table.insert( _dirs, { name = files[i], size = Nova.filesystem.getSize( Nova.filesystem.merge( path, files[i] ) ) } )\\n                else\\n                 table.insert( _files, { name = files[i], size = Nova.filesystem.getSize( Nova.filesystem.merge( path, files[i] ) ) } )\\n               end\\n          end\\n      end\\n  end )\\n\\n if not files then\\n        loading = false\\n      if not openAs then\\n           openAs = Nova.filesystem.getType( path )\\n     end\\n      if openAs == \\\"shortcut\\\" then\\n           local ok, data = Nova.filesystem.getFileMetaValue( path, \\\"destination\\\" )\\n           if ok then\\n               openPath( data )\\n         else\\n             Nova.app.newThread( function( )\\n                  NovaUI.display.alert( UI, \\\"Malformed shorcut\\\", true )\\n                  Nova.app.close( )\\n                end )\\n            end\\n          return\\n       elseif openAs == \\\"archive\\\" then\\n            local archive = Archive( path )\\n          local pass\\n           if Nova.filesystem.isProtected( path ) then\\n              local r = NovaUI.display.response( UI, \\\"Please enter archive password\\\" )\\n               if r then\\n                    pass = r\\n             else\\n                 return\\n               end\\n          end\\n          archive:loadFile( path, pass )\\n           mount = Nova.filesystem.getName( path, true )\\n            Nova.filesystem.mount( archive:createDrive( ), mount )\\n           openPath( mount .. \\\":\\\" )\\n           return\\n       end\\n      if Nova.filesystem.exists( path ) then\\n           local handlers = Nova.filesystem.getHandlers( openAs )\\n           if handlers[#handlers] then\\n              Nova.app.close( )\\n                Nova.app.launch( handlers[#handlers], path, openAs )\\n         else\\n             Nova.app.newThread( function( )\\n                  NovaUI.display.alert( UI, \\\"Unknown file type.\\\", true )\\n                 Nova.app.close( )\\n                end )\\n            end\\n      else\\n         Nova.app.newThread( function( )\\n              NovaUI.display.alert( UI, \\\"File doesn't exist\\\", true )\\n             Nova.app.close( )\\n            end )\\n        end\\n      return\\n   end\\n\\n   if #files == 0 then\\n      filecontent:newChild( NovaUI.UIText( 0, 2, 9, 1, \\\"No files!\\\" ) ):centreX( )\\n    end\\n\\n   -- sort based on name or size\\n    table.sort( _dirs, function( i1, i2 )\\n        if sortorder.mode == \\\"name\\\" then\\n           return not compstring( i1.name, i2.name )\\n        elseif sortorder.mode == \\\"size\\\" then\\n           return i1.size < i2.size\\n     end\\n  end )\\n    table.sort( _files, function( i1, i2 )\\n       if sortorder.mode == \\\"name\\\" then\\n           return not compstring( i1.name, i2.name )\\n        elseif sortorder.mode == \\\"size\\\" then\\n           return i1.size < i2.size\\n     end\\n  end )\\n\\n -- give each item a full path\\n    for i = 1, #_dirs do\\n     _dirs[i].path = Nova.filesystem.merge( path, _dirs[i].name )\\n end\\n  for i = 1, #_files do\\n        _files[i].path = Nova.filesystem.merge( path, _files[i].name )\\n   end\\n\\n   -- reverse order if neccessary\\n   if sortorder.direction == \\\"descending\\\" then\\n        for i = 1, math.ceil( #_dirs / 2 ) do\\n            _dirs[i], _dirs[#_dirs-i + 1] = _dirs[#_dirs-i + 1], _dirs[i]\\n        end\\n      for i = 1, math.ceil( #_files / 2 ) do\\n           _files[i], _files[#_files-i + 1] = _files[#_files-i + 1], _files[i]\\n      end\\n  end\\n\\n   local y = 1\\n\\n   local function loadDirs( )\\n       for i = 1, #_dirs do\\n         local frame = filecontent:newChild( NovaUI.UIFrame( 1, y, filecontent.w, 3 ) )\\n           local app_registered = not viewhidden and Nova.app.isRegistered( _dirs[i].path:gsub( \\\"^C:/?\\\", \\\"\\\", 1 ) )\\n          if app_registered then\\n               local icon = frame:newChild( NovaUI.UIImage( 1, 1, 5, 3, icons.app ) )\\n           else\\n             local icon = frame:newChild( NovaUI.UIImage( 1, 1, 5, 3, icons.folder ) )\\n            end\\n          local name = frame:newChild( NovaUI.UIText( 7, 1, frame.w - 6, 1, Nova.filesystem.getName( _dirs[i].path ) ) )\\n           local size = frame:newChild( NovaUI.UIText( 7, 2, frame.w - 7, 1, formatSize( _dirs[i].size ) ) )\\n            size.tc = colours.lightGrey\\n          local desc = frame:newChild( NovaUI.UIText( 7, 3, frame.w - 7, 1, app_registered and \\\"Nova app\\\" or \\\"Folder\\\" ) )\\n          desc.tc = colours.lightGrey\\n\\n           local overlay = frame:newChild( NovaUI.UIButton( 1, 1, frame.w, frame.h, \\\"\\\" ) )\\n            overlay.bc = 0\\n           overlay.align = false\\n            function overlay:onClick( x, y, button )\\n             if button == 1 or button == \\\"enter\\\" then\\n                   if app_registered then\\n                       Nova.app.launch( app_registered )\\n                    else\\n                     openPath( _dirs[i].path )\\n                    end\\n              else\\n                 showFolderOptions( filecontent.x + frame.x + x - 2, filecontent.y + frame.y + y - 2 + filecontent.cy, _dirs[i].path, frame )\\n             end\\n          end\\n          y = y + 4\\n        end\\n  end\\n  if sortorder.direction == \\\"ascending\\\" then\\n     loadDirs( )\\n  end\\n  for i = 1, #_files do\\n        local filetype = Nova.filesystem.getType( _files[i].path )\\n\\n        local app_registered = not viewhidden and Nova.app.isRegistered( _files[i].path:gsub( \\\"^C:/?\\\", \\\"\\\", 1 ) )\\n     local frame = filecontent:newChild( NovaUI.UIFrame( 1, y, filecontent.w, 3 ) )\\n       if app_registered then\\n           local icon = frame:newChild( NovaUI.UIImage( 1, 1, 5, 3, icons.app ) )\\n       else\\n         local icon = frame:newChild( NovaUI.UIImage( 1, 1, 5, 3, icons[filetype] or icons.unknown ) )\\n        end\\n      local name = frame:newChild( NovaUI.UIText( 7, 1, frame.w - 6, 1, Nova.filesystem.getName( _files[i].path, true ) ) )\\n        local size = frame:newChild( NovaUI.UIText( 7, 2, frame.w - 7, 1, formatSize( _files[i].size ) ) )\\n       size.tc = colours.lightGrey\\n      local desc = frame:newChild( NovaUI.UIText( 7, 3, frame.w - 7, 1, app_registered and \\\"Nova app\\\" or Nova.filesystem.getTypeDescription( filetype ) or filetype ) )\\n      desc.tc = colours.lightGrey\\n\\n       local overlay = frame:newChild( NovaUI.UIButton( 1, 1, frame.w, frame.h, \\\"\\\" ) )\\n        overlay.bc = 0\\n       overlay.align = false\\n        function overlay:onClick( x, y, button )\\n         if button == 1 or button == \\\"enter\\\" then\\n               if app_registered then\\n                   Nova.app.launch( app_registered )\\n                else\\n                 if filetype == \\\"shortcut\\\" then\\n                     local ok, data = Nova.filesystem.getFileMetaValue( _files[i].path, \\\"destination\\\" )\\n                     if ok then\\n                           if Nova.filesystem.isDirectory( data ) then\\n                              openPath( data )\\n                         else\\n                             Nova.app.launch( \\\"Files\\\", data )\\n                           end\\n                      else\\n                         Nova.app.newThread( function( )\\n                              NovaUI.display.alert( UI, \\\"Malformed shorcut\\\", true )\\n                              Nova.app.close( )\\n                            end )\\n                        end\\n                      return\\n                   elseif filetype == \\\"archive\\\" then\\n                      Nova.app.newThread( function( )\\n                          loading = true\\n                           local archive = Archive( _files[i].path )\\n                            local pass\\n                           if Nova.filesystem.isProtected( _files[i].path ) then\\n                                local r = NovaUI.display.response( UI, \\\"Please enter archive password\\\" )\\n                               if r then\\n                                    pass = r\\n                             else\\n                                 return\\n                               end\\n                          end\\n                          archive:loadFile( _files[i].path, pass )\\n                         mount = Nova.filesystem.getName( _files[i].path, true )\\n                          Nova.filesystem.mount( archive:createDrive( ), mount )\\n                           openPath( mount .. \\\":\\\" )\\n                           loading = false\\n                      end )\\n                        return\\n                   else\\n                     Nova.app.launch( \\\"Files\\\", _files[i].path, filetype )\\n                   end\\n              end\\n          else\\n             showFileOptions( filecontent.x + frame.x + x - 2, filecontent.y + frame.y + y - 2 + filecontent.cy, _files[i].path, frame )\\n          end\\n      end\\n\\n       y = y + 4\\n    end\\n  if sortorder.direction == \\\"descending\\\" then\\n        loadDirs( )\\n  end\\n  loading = l\\nend\\n\\nlocal function refresh( )\\n listFiles( filepath )\\nend\\n\\nlocal pathinput\\n\\nfunction openPath( path, openAs )\\n  if not viewhidden and Nova.app.isRegistered( path:gsub( \\\"^C:/?\\\", \\\"\\\", 1 ) ) then\\n      Nova.app.launch( Nova.app.isRegistered( path:gsub( \\\"^C:/?\\\", \\\"\\\", 1 ) ) )\\n      return\\n   end\\n  filecontent.cy = 0\\n   historyindex = historyindex + 1\\n  while history[historyindex] do\\n       table.remove( history, historyindex )\\n    end\\n  table.insert( history, path )\\n    filepath = path\\n  pathinput.text = path\\n    listFiles( path, openAs )\\nend\\n\\nlocal backbutton = topbar:newChild( NovaUI.UIButton( 2, 2, 3, 1, \\\"<\\\" ) )\\nbackbutton.bc = colours.lightGrey\\nbackbutton.tc = colours.black\\nfunction backbutton:onClick( )\\n if historyindex > 1 then\\n     historyindex = historyindex - 1\\n      listFiles( history[historyindex] )\\n       filepath = history[historyindex]\\n     pathinput.text = history[historyindex]\\n   end\\nend\\n\\nlocal forwardbutton = topbar:newChild( NovaUI.UIButton( 6, 2, 3, 1, \\\">\\\" ) )\\nforwardbutton.bc = colours.lightGrey\\nforwardbutton.tc = colours.black\\nfunction forwardbutton:onClick( )\\n   if historyindex < #history then\\n      historyindex = historyindex + 1\\n      listFiles( history[historyindex] )\\n       filepath = history[historyindex]\\n     pathinput.text = history[historyindex]\\n   end\\nend\\n\\nlocal upbutton = topbar:newChild( NovaUI.UIButton( 10, 2, 3, 1, \\\"^\\\" ) )\\nupbutton.bc = colours.lightGrey\\nupbutton.tc = colours.black\\nfunction upbutton:onClick( )\\n  local up = ( filepath:match \\\"(.+/)\\\" or filepath .. \\\" \\\" ):sub( 1, -2 )\\n    if up == filepath and filepath:find \\\":.\\\" then\\n      up = ( filepath:match \\\"(.+:.)\\\" or filepath .. \\\" \\\" ):sub( 1, -2 )\\n end\\n  openPath( up )\\nend\\n\\npathinput = topbar:newChild( NovaUI.UIInput( 14, 2, topbar.w - 14, 1 ) )\\npathinput.bc = colours.lightGrey\\npathinput.fbc = colours.white\\n\\nfunction pathinput:onEnter( )\\n openPath( self.text )\\nend\\n\\nlocal sidebarcontent\\n\\nNova.app.newThread( function( )\\n   while true do\\n        local cy = sidebarcontent and sidebarcontent.cy or 0\\n     local t = {\\n          { type = \\\"label\\\", name = \\\"Drives\\\" };\\n     }\\n        local drives = Nova.filesystem.listmounted( )\\n        for i = 1, #drives do\\n            t[#t + 1] = {\\n                type = \\\"button\\\";\\n               name = drives[i] .. \\\":\\\";\\n               onClick = function( self, _, button )\\n                    if button == 1 then\\n                      openPath( drives[i] .. \\\":\\\" )\\n                   else\\n                     local x, y = self:positionIn( UI )\\n                       dropdown( x, y, {\\n                            spacing = false;\\n                         shadow = colours.grey;\\n                           height = 5;\\n                          \\\"space\\\";\\n                           { type = \\\"button\\\", name = \\\"open\\\", onClick = function( _, frame )\\n                             if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n                             openPath( drives[i] .. \\\":\\\" )\\n                           end };\\n                           { type = \\\"button\\\", name = \\\"unmount\\\", onClick = function( _, frame )\\n                              if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n                             if drives[i] ~= \\\"C\\\" then\\n                                   Nova.filesystem.unmount( drives[i] )\\n                             else\\n                                 NovaUI.display.alert( UI, \\\"Cannot unmount this drive.\\\" )\\n                               end\\n                          end };\\n                       } )\\n                  end\\n              end;\\n         }\\n        end\\n      table.insert( t, \\\"space\\\" )\\n     table.insert( t, { type = \\\"label\\\", name = \\\"Favourites\\\" } )\\n       for k, v in pairs( favourites ) do\\n           table.insert( t, { type = \\\"button\\\", name = Nova.filesystem.getName( k, true ), onClick = function( self, frame, button )\\n               if button == 1 then\\n                  openPath( k )\\n                else\\n                 local x, y = self:positionIn( UI )\\n                   dropdown( x, y, {\\n                        spacing = false;\\n                     shadow = colours.grey;\\n                       height = 5;\\n                      \\\"space\\\";\\n                       { type = \\\"button\\\", name = \\\"open\\\", onClick = function( _, frame )\\n                         if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n                         openPath( k )\\n                        end };\\n                       { type = \\\"button\\\", name = \\\"remove\\\", onClick = function( _, frame )\\n                           if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n                         favourites[k] = nil;\\n                         Nova.app.setData( \\\"favourites\\\", favourites )\\n                       end };\\n                   } )\\n              end\\n          end } )\\n      end\\n      sidebarcontent = NovaUI.display.menu( sidebar, t )\\n       sidebarcontent.cy = cy\\n       local t = os.clock( )\\n        while os.clock( ) - t < 0.5 do\\n           coroutine.yield( )\\n       end\\n  end\\nend )\\n\\nfunction background:onClick( x, y, button )\\n if button == 2 then\\n      dropdown( background.x + x - 1, background.y + y - 1, {\\n          spacing = false;\\n         shadow = colours.grey;\\n           height = 11;\\n         { type = \\\"button\\\", name = \\\"new file\\\", onClick = function( )\\n              if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n             local p = Nova.filesystem.merge( filepath, \\\"New File\\\" )\\n                if Nova.filesystem.exists( p ) then\\n                  local i = 1\\n                  while Nova.filesystem.exists( p .. \\\" (\\\" .. i .. \\\")\\\" ) do\\n                     i = i + 1\\n                    end\\n                  p = p .. \\\" (\\\" .. i .. \\\")\\\"\\n                end\\n              Nova.filesystem.newFile( p )\\n             refresh( )\\n           end };\\n           { type = \\\"button\\\", name = \\\"new folder\\\", onClick = function( )\\n                if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n             local p = Nova.filesystem.merge( filepath, \\\"New Folder\\\" )\\n              if Nova.filesystem.exists( p ) then\\n                  local i = 1\\n                  while Nova.filesystem.exists( p .. \\\" (\\\" .. i .. \\\")\\\" ) do\\n                     i = i + 1\\n                    end\\n                  p = p .. \\\" (\\\" .. i .. \\\")\\\"\\n                end\\n              Nova.filesystem.newDirectory( p )\\n                refresh( )\\n           end };\\n           \\\"rule\\\";\\n            { type = \\\"button\\\", name = \\\"paste\\\", onClick = function( )\\n             if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n             Nova.filesystem.paste( filepath )\\n                refresh( )\\n           end };\\n           \\\"rule\\\";\\n            { type = \\\"button\\\", name = \\\"refresh\\\", onClick = function( )\\n               if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n             refresh( )\\n           end };\\n           \\\"rule\\\";\\n            { type = \\\"button\\\", name = viewhidden and \\\"hide hidden\\\" or \\\"show hidden\\\", onClick = function( )\\n             if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n             viewhidden = not viewhidden\\n              Nova.app.setData( \\\"viewhidden\\\", viewhidden )\\n               refresh( )\\n           end };\\n           { type = \\\"menu\\\", name = \\\"sort by\\\", options = {\\n               spacing = false;\\n             shadow = colours.grey;\\n               width = 7;\\n               height = 3;\\n              { type = \\\"button\\\", name = \\\"name\\\", onClick = function( )\\n                  if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n                 sortorder.mode = \\\"name\\\"\\n                    Nova.app.setData( \\\"sortorder\\\", sortorder )\\n                 refresh( )\\n               end };\\n               { type = \\\"button\\\", name = \\\"size\\\", onClick = function( )\\n                  if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n                 sortorder.mode = \\\"size\\\"\\n                    Nova.app.setData( \\\"sortorder\\\", sortorder )\\n                 refresh( )\\n               end };\\n           } };\\n         { type = \\\"menu\\\", name = \\\"sort\\\", options = {\\n              spacing = false;\\n             shadow = colours.grey;\\n               width = 13;\\n              height = 3;\\n              { type = \\\"button\\\", name = \\\"ascending\\\", onClick = function( )\\n                 if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n                 sortorder.direction = \\\"ascending\\\"\\n                  Nova.app.setData( \\\"sortorder\\\", sortorder )\\n                 refresh( )\\n               end };\\n               { type = \\\"button\\\", name = \\\"descending\\\", onClick = function( )\\n                    if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n                 sortorder.direction = \\\"descending\\\"\\n                 Nova.app.setData( \\\"sortorder\\\", sortorder )\\n                 refresh( )\\n               end };\\n           } };\\n     } )\\n  end\\nend\\n\\nlocal renaming = false\\n\\nfunction showFileOptions( x, y, path, frame )\\n local archive = Nova.filesystem.getType( path ) == \\\"archive\\\"\\n   local _type = Nova.filesystem.getType( path )\\n    dropdown( x, y, {\\n        spacing = false;\\n     shadow = colours.grey;\\n       height = 14;\\n     { type = \\\"button\\\", name = \\\"open\\\", onClick = function( )\\n          if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         Nova.app.launch( \\\"Files\\\", path, _type )\\n        end };\\n       { type = \\\"button\\\", name = archive and \\\"extract\\\" or \\\"open with\\\", onClick = function( )\\n          if archive then\\n              Nova.app.newThread( function( )\\n                  if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n                 local p = path:gsub( \\\".nac$\\\", \\\"\\\", 1 )\\n                    local archive = Archive( )\\n                   local pass\\n                   if Nova.filesystem.isProtected( path ) then\\n                      pass = NovaUI.display.response( UI, \\\"Please enter password\\\" )\\n                      if not pass then\\n                         Nova.display.response( UI, \\\"Archive is password protected\\\" )\\n                           return\\n                       end\\n                  end\\n                  archive:loadFile( path, pass )\\n                   local i = 1\\n                  while Nova.filesystem.exists( p ) do\\n                     p = path:gsub( \\\".nac$\\\", \\\"\\\", 1 ) .. \\\" (\\\" .. i .. \\\")\\\"\\n                      i = i + 1\\n                    end\\n                  archive:saveDirectory( p )\\n                   refresh( )\\n               end )\\n            else\\n             if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n             local _, _, document = NovaUI.markup.load( [[\\n                    <script>\\n                     function close( )\\n                            document.getElementById( \\\"main\\\" ):remove( )\\n                        end\\n                      function toggleDefault( )\\n                            local d = document.getElementById \\\"default\\\"\\n                            d.text = d.text == \\\"@\\\" and \\\" \\\" or \\\"@\\\"\\n                      end\\n                  </script>\\n                    <frame x:1 y:1 id:main width:expand height:expand>\\n                       <button width:expand height:expand tc:0 bc:0 onClick:\\\"close()\\\"></button>\\n                       <frame width:25 height:12 x:centre y:centre>\\n                         <text x:2 y:2 width:24 height:11 bc:grey></text>\\n                         <text x:1 y:1 width:24 height:11 bc:white></text>\\n                            <text x:centre y:2 width:auto>Open with...</text>\\n                            <text x:2 y:3 width:auto tc:lightGrey>----------------------</text>\\n                          <text id:applist x:2 y:4 width:22 height:5>This is where the app list will be!</text>\\n                            <text x:2 y:9 width:auto tc:lightGrey>----------------------</text>\\n                          <button x:2 y:10 width:3 tc:lightGrey onClick:\\\"toggleDefault()\\\">[ ]</button>\\n                           <button align:right spacing:1 width:auto tc:grey onClick=\\\"toggleDefault()\\\">Default</button>\\n                            <button id:ok x:20 y:10 width:4 bc:lightGrey tc:black>ok</button>\\n                            <button id:default x:3 y:10 width:1 onClick:\\\"toggleDefault()\\\">@</button>\\n                       </frame>\\n                 </frame>\\n             ]], UI, getfenv( ) )\\n             local frame = document.getElementById \\\"main\\\"\\n               local a = document.getElementById \\\"applist\\\"\\n                local default = document.getElementById \\\"default\\\"\\n              local ok = document.getElementById \\\"ok\\\"\\n                local applist = a.parent:newChild( NovaUI.UIFrame( a.x, a.y, a.w, a.h ) )\\n                local handlers = Nova.filesystem.getHandlers( _type )\\n                if #handlers == 0 then\\n                   handlers = Nova.filesystem.getAllHandlers( )\\n             end\\n              if #handlers + 1 > applist.h then\\n                    applist.w = applist.w - 1\\n                    a.parent:newChild( NovaUI.UIScrollBar( 0, 0, 1, 0, applist ) ):align( \\\"right\\\", applist )\\n               end\\n              a:remove( )\\n              local current\\n                for i = 1, #handlers do\\n                  local button = applist:newChild( NovaUI.UIButton( 1, i, applist.w, 1, handlers[i] ) )\\n                    button.tc = colours.grey\\n                 button.align = false\\n                 function button:onClick( )\\n                       if current == button then\\n                            button.bc = colours.white ok.bc = colours.lightGrey current = nil return\\n                     end\\n                      ok.bc = colours.lightBlue\\n                        if current then current.bc = colours.white end\\n                       button.bc = colours.lightBlue\\n                        current = button\\n                 end\\n              end\\n              local showall = applist:newChild( NovaUI.UIButton( 1, #handlers + 1, applist.w, 1, \\\"Show all\\\" ) )\\n              showall.align = false\\n                function showall:onClick( )\\n                  current = nil\\n                    applist:clearChildren( )\\n                 local handlers = Nova.filesystem.getAllHandlers( )\\n                   for i = 1, #handlers do\\n                      local button = applist:newChild( NovaUI.UIButton( 1, i, applist.w, 1, handlers[i] ) )\\n                        button.tc = colours.grey\\n                     button.align = false\\n                     function button:onClick( )\\n                           if current == button then\\n                                button.bc = colours.white ok.bc = colours.lightGrey current = nil return\\n                         end\\n                          ok.bc = colours.lightBlue\\n                            if current then current.bc = colours.white end\\n                           button.bc = colours.lightBlue\\n                            current = button\\n                     end\\n                  end\\n              end\\n              function ok:onClick( )\\n                   if not current then return end\\n                   local app = current.text\\n                 if default.text == \\\"@\\\" then\\n                        if defaults[_type] ~= app then\\n                           defaults[_type] = app\\n                            Nova.app.setData( \\\"defaults\\\", defaults )\\n                       end\\n                      Nova.filesystem.setDefaultHandler( _type, app )\\n                  end\\n                  frame:remove( )\\n                  Nova.app.launch( app, path, _type )\\n              end\\n          end\\n      end };\\n       \\\"rule\\\";\\n        { type = \\\"button\\\", name = \\\"copy\\\", onClick = function( )\\n          if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         Nova.filesystem.copy( path )\\n     end };\\n       { type = \\\"button\\\", name = \\\"cut\\\", onClick = function( )\\n           if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         Nova.filesystem.cut( path )\\n          refresh( )\\n       end };\\n       { type = \\\"button\\\", name = \\\"delete\\\", onClick = function( )\\n            if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         Nova.filesystem.delete( path )\\n           refresh( )\\n       end };\\n       { type = \\\"button\\\", name = \\\"rename\\\", onClick = function( )\\n            if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         renaming = true\\n          local input = filecontent:newChild( NovaUI.UIInput( frame.x + 6, frame.y, frame.w - 7, 1 ) )\\n         input.bc = 0\\n         input.fbc = 0\\n            input.text = Nova.filesystem.getName( path )\\n         input:focusOn( )\\n         input:select( 1, #Nova.filesystem.getName( path, true ) )\\n\\n         function input:onEnter( )\\n                local p = Nova.filesystem.merge( filepath, self.text )\\n               if p == path then return end\\n             if Nova.filesystem.exists( p ) then\\n                  NovaUI.display.alert( UI, \\\"File already exists\\\" )\\n              else\\n                 pcall( Nova.filesystem.move, path, p )\\n                   refresh( )\\n               end\\n          end\\n          function input:whenUnFocussed( )\\n             Nova.log \\\"unfocussed\\\"\\n              input:remove( )\\n              renaming = false\\n         end\\n      end };\\n       \\\"rule\\\";\\n        { type = \\\"button\\\", name = \\\"shortcut\\\", onClick = function( )\\n          if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         local fd = FileData \\\"\\\"\\n         fd.meta.destination = path\\n           fd.meta.type = \\\"shortcut\\\"\\n          local p = Nova.filesystem.merge( Nova.filesystem.getDirectory( path ), Nova.filesystem.getName( path, true ) ) .. \\\" - Shortcut\\\"\\n            if Nova.filesystem.exists( p ) then\\n              local i = 1\\n              while Nova.filesystem.exists( p .. \\\" (\\\" .. i .. \\\")\\\" ) do\\n                 i = i + 1\\n                end\\n              p = p .. \\\" (\\\" .. i .. \\\")\\\"\\n            end\\n          Nova.filesystem.writefile( p, fd )\\n           refresh( )\\n       end };\\n       { type = \\\"button\\\", name = \\\"properties\\\" };\\n        \\\"rule\\\";\\n        { type = \\\"button\\\", name = Nova.filesystem.isProtected( path ) and \\\"unprotect\\\" or \\\"protect\\\", onClick = function( )\\n          if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         Nova.app.newThread( function( )\\n              local r\\n              local p = Nova.filesystem.isProtected( path )\\n                if p then\\n                    r = NovaUI.display.response( UI, \\\"Password to decrypt file with.\\\" )\\n                else\\n                 r = NovaUI.display.response( UI, \\\"Password to encrypt file with.\\\" )\\n                end\\n              loading = true\\n               if r then\\n                    local data, err = Nova.filesystem.readfile( path, p and r )\\n                  if not p then\\n                        data.password = r\\n                    end\\n                  data.meta.password = not p and true or nil\\n                   Nova.filesystem.writefile( path, data )\\n                  refresh( )\\n               end\\n              loading = false\\n          end )\\n        end };\\n       { type = \\\"button\\\", name = \\\"favourite\\\", onClick = function( )\\n         if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         if not favourites[path] then\\n             favourites[path] = true\\n              Nova.app.setData( \\\"favourites\\\", favourites )\\n           end\\n      end };\\n   } )\\nend\\n\\nfunction showFolderOptions( x, y, path, frame )\\n   dropdown( x, y, {\\n        spacing = false;\\n     shadow = colours.grey;\\n       height = 14;\\n     { type = \\\"button\\\", name = \\\"open\\\", onClick = function( )\\n          if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         openPath( path )\\n     end };\\n       { type = \\\"button\\\", name = \\\"open in new\\\", onClick = function( )\\n           if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         Nova.app.launch( \\\"Files\\\", path )\\n       end };\\n       \\\"rule\\\";\\n        { type = \\\"button\\\", name = \\\"copy\\\", onClick = function( )\\n          if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         Nova.filesystem.copy( path )\\n     end };\\n       { type = \\\"button\\\", name = \\\"cut\\\", onClick = function( )\\n           if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         Nova.filesystem.cut( path )\\n          refresh( )\\n       end };\\n       { type = \\\"button\\\", name = \\\"delete\\\", onClick = function( )\\n            if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         Nova.filesystem.delete( path )\\n           refresh( )\\n       end };\\n       { type = \\\"button\\\", name = \\\"rename\\\", onClick = function( )\\n            if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         renaming = true\\n          local input = filecontent:newChild( NovaUI.UIInput( frame.x + 6, frame.y, frame.w - 7, 1 ) )\\n         input.bc = 0\\n         input.fbc = 0\\n            input.text = Nova.filesystem.getName( path )\\n         input:focusOn( )\\n         input:select( 1, #Nova.filesystem.getName( path, true ) )\\n\\n         function input:onEnter( )\\n                local p = Nova.filesystem.merge( filepath, self.text )\\n               if p == path then return end\\n             if Nova.filesystem.exists( p ) then\\n                  NovaUI.display.alert( UI, \\\"File already exists\\\" )\\n              else\\n                 pcall( Nova.filesystem.move, path, p )\\n                   refresh( )\\n               end\\n          end\\n          function input:whenUnFocussed( ) \\n                input:remove( )\\n              renaming = false\\n         end\\n      end };\\n       \\\"rule\\\";\\n        { type = \\\"button\\\", name = \\\"shortcut\\\", onClick = function( )\\n          if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         local fd = FileData \\\"\\\"\\n         fd.meta.destination = path\\n           fd.meta.type = \\\"shortcut\\\"\\n          local p = Nova.filesystem.merge( Nova.filesystem.getDirectory( path ), Nova.filesystem.getName( path, true ) ) .. \\\" - Shortcut\\\"\\n            if Nova.filesystem.exists( p ) then\\n              local i = 1\\n              while Nova.filesystem.exists( p .. \\\" (\\\" .. i .. \\\")\\\" ) do\\n                 i = i + 1\\n                end\\n              p = p .. \\\" (\\\" .. i .. \\\")\\\"\\n            end\\n          Nova.filesystem.writefile( p, fd )\\n           refresh( )\\n       end };\\n       { type = \\\"button\\\", name = \\\"properties\\\" };\\n        \\\"rule\\\";\\n        { type = \\\"button\\\", name = \\\"archive\\\", onClick = function( )\\n           if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         local archive = Archive( )\\n           loading = true\\n           archive:loadDirectory( path )\\n            local p = path .. \\\".nac\\\"\\n           local i = 1\\n          while Nova.filesystem.exists( p ) do\\n             p = path .. \\\" (\\\" .. i .. \\\").nac\\\"\\n             i = i + 1\\n            end\\n          archive:saveFile( p )\\n            refresh( )\\n           loading = false\\n      end };\\n       { type = \\\"button\\\", name = \\\"favourite\\\", onClick = function( )\\n         if activedropdown then activedropdown:remove( ) activedropdown = nil end\\n         if not favourites[path] then\\n             favourites[path] = true\\n              Nova.app.setData( \\\"favourites\\\", favourites )\\n           end\\n      end };\\n   } )\\nend\\n\\nNova.app.newThread( function( )\\n   while true do\\n        local t = os.clock( )\\n        while os.clock( ) - t < 4 do\\n         coroutine.yield( )\\n       end\\n      if not renaming then\\n         refresh( )\\n       end\\n  end\\nend )\\n\\nlocal keyhandler = Nova.app.UI:newChild( NovaUI.UIKeyHandler( ) )\\nfunction keyhandler:onKey( key )\\n    if key == keys.backspace then\\n        if historyindex > 1 then\\n         historyindex = historyindex - 1\\n          listFiles( history[historyindex] )\\n           filepath = history[historyindex]\\n         pathinput.text = history[historyindex]\\n       end\\n  end\\nend\\n\\nif ARGS[1] then\\n   openPath( ARGS[1], ARGS[2] )\\nelse\\n  openPath \\\"C:\\\"\\nend\",\
}\
,\
Browser={\
[\"icon.nim\"]=\"--[[\\n  type = \\\"nova_image\\\",\\n]]B0 40 40 40                \\nB0       D0     7N 7e 7t   \\nE0 E0 E0 D0                \",\
[\"main.lua\"]=\"\\nlocal downloadpath\\nif Nova.filesystem.isDirectory \\\"user:\\\" then\\n   if not Nova.filesystem.isDirectory \\\"user:/downloads\\\" then\\n      Nova.filesystem.newDirectory \\\"user:/downloads\\\"\\n end\\n  downloadpath = \\\"user:/downloads\\\"\\nelse\\n    if not Nova.filesystem.isDirectory \\\"C:/downloads\\\" then\\n     Nova.filesystem.newDirectory \\\"C:/downloads\\\"\\n    end\\n  downloadpath = \\\"C:/downloads\\\"\\nend\\n\\nlocal UI = Nova.app.UI\\n\\nlocal topbar = UI:newChild( NovaUI.UIFrame( 1, 1, UI.w, 3 ) )\\ntopbar:newChild( NovaUI.UIText( 1, 1, topbar.w, topbar.h, \\\"\\\" ) ).bc = colours.grey\\n\\nlocal backbutton = topbar:newChild( NovaUI.UIButton( 2, 2, 3, 1, \\\"<\\\" ) )\\nbackbutton.bc = colours.lightGrey\\nbackbutton.tc = colours.black\\n\\nlocal forwardbutton = topbar:newChild( NovaUI.UIButton( 6, 2, 3, 1, \\\">\\\" ) )\\nforwardbutton.bc = colours.lightGrey\\nforwardbutton.tc = colours.black\\n\\nlocal refresh = topbar:newChild( NovaUI.UIButton( 10, 2, 3, 1, \\\"R\\\" ) )\\nrefresh.bc = colours.lightGrey\\nrefresh.tc = colours.black\\n\\nlocal pathinput = topbar:newChild( NovaUI.UIInput( 14, 2, topbar.w - 18, 1 ) )\\npathinput.bc = colours.lightGrey\\npathinput.fbc = colours.white\\n\\nlocal options = topbar:newChild( NovaUI.UIButton( topbar.w - 3, 2, 3, 1, \\\"=\\\" ) )\\noptions.bc = colours.lightGrey\\noptions.tc = colours.black\\n\\nlocal contentframe = UI:newChild( NovaUI.UIFrame( 1, 4, UI.w, UI.h - 3 ) )\\n\\nlocal browser = { }\\nbrowser.history = { }\\nbrowser.historyindex = 0\\nbrowser.page = markup.MarkupPage( Nova.app.UI.w, Nova.app.UI.h - 3 )\\nbrowser.frame = false\\nbrowser.settingframe = false\\nbrowser.id = false\\nbrowser.connection = false\\nbrowser.loading = false\\nbrowser.log = { }\\n\\nfunction Nova.app.canClose( )\\n   for i = 1, #browser.page.threads do\\n      browser.page.threads[i]:stop( )\\n  end\\n  if browser.connection then\\n       network.close( browser.connection )\\n  end\\nend\\n\\nfunction browser:clearCurrent( )\\n  if self.frame then\\n       self.frame:clearChildren( )\\n      self.frame:remove( )\\n end\\n  for i = 2, #self.page.threads do\\n     self.page.threads[i]:stop( )\\n end\\n  while self.page.errors[1] do\\n     table.remove( self.page.errors, 1 )\\n  end\\n  self.log = { }\\nend\\nfunction browser:addContent( content )\\n    self.page:loadMarkup( content )\\n  local frame = self.page:repositionElements( )\\n    self.frame = frame\\n   contentframe:newChild( frame )\\nend\\nfunction browser:goto( href, noHistory )\\n  while self.loading do\\n        coroutine.yield( )\\n   end\\n  self.loading = true\\n  pathinput.text = \\\"loading...\\\"\\n  local newhref = href\\n if not noHistory then\\n        while self.history[self.historyindex + 1] do\\n         table.remove( self.history, self.historyindex + 1 )\\n      end\\n  end\\n  local content\\n    if href:sub( 1, 5 ) == \\\"file:\\\" then\\n        local history = Nova.app.getData \\\"history\\\" or { }\\n      table.insert( history, { time = Nova.irltime(), date = Nova.irldate(), url = href:sub( 6 ) } )\\n       Nova.app.setData( \\\"history\\\", history )\\n     local pass\\n       if Nova.filesystem.isProtected( href:sub( 6 ) ) then\\n         pass = NovaUI.display.response( UI, \\\"File is password protected\\\" )\\n         if not pass then\\n             content = \\\"<t tc:red>file is password protected</t>\\\"\\n           end\\n      end\\n      if not content then\\n          local filedata, err = Nova.filesystem.readfile( href:sub( 6 ), pass )\\n            if filedata then\\n             content = filedata.content\\n           else\\n             content = \\\"<t tc:red>\\\" .. err .. \\\"</t>\\\"\\n          end\\n      end\\n      if not noHistory then\\n            self.historyindex = self.historyindex + 1\\n            table.insert( self.history, {\\n                href = href:sub( 6 );\\n                content = content;\\n           } )\\n      end\\n  end\\n  if href == \\\"home\\\" then -- or href == ... in the future?\\n        if href == \\\"home\\\" then\\n         content = [[\\n             <br>\\n             <p align:centre>Home</p>\\n             <br>\\n             <p tc:lightGrey>Welcome to Nova Browser!<br>Nova Browser is a website browser which loads NML (Nova Markup Language) and displays it.<br>You can type in the name of the computer ID you want to connect to in the bar at the top and press enter, and it will load that webpage.</p>\\n            ]]\\n       end\\n      if not noHistory then\\n            self.historyindex = self.historyindex + 1\\n            table.insert( self.history, {\\n                href = href;\\n             content = content;\\n           } )\\n      end\\n  elseif not content then\\n      local id = href:match \\\"^(%d+)/?\\\" or href:match \\\"^(local)/?\\\"\\n      if tonumber( id ) or id == \\\"local\\\" then\\n            local path = href:gsub( id, \\\"\\\" ):gsub( \\\"^/\\\", \\\"\\\", 1 )\\n           local args = path:match( \\\"?(.+)\\\" )\\n         local rawargs = args\\n         path = path:gsub( \\\"?(.+)\\\", \\\"\\\" )\\n          local history = Nova.app.getData \\\"history\\\" or { }\\n          table.insert( history, { time = Nova.irltime(), date = Nova.irldate(), url = id .. \\\"/\\\" .. path } )\\n         Nova.app.setData( \\\"history\\\", history )\\n         if args then\\n             local t = { }\\n                local last = 1\\n               for i = 1, #args do\\n                  if args:sub( i, i ) == \\\"&\\\" then\\n                        table.insert( t, args:sub( last, i - 1 ) )\\n                       last = i + 1\\n                 end\\n              end\\n              table.insert( t, args:sub( last ) )\\n              for i = 1, #t do\\n                 local index, value = t[i]:match \\\"(%w+)=(.+)\\\"\\n                   if index then\\n                        t[index] = value\\n                 end\\n                  t[i] = nil\\n               end\\n              args = t\\n         end\\n          if id == \\\"local\\\" then\\n              id = os.getComputerID( )\\n         else\\n             id = tonumber( id )\\n          end\\n          if id ~= self.id and self.connection then\\n                Nova.network.close( self.connection )\\n                self.connection = false\\n          end\\n          local channel = self.connection\\n          self.id = id\\n         if not channel then\\n              channel = Nova.network.open( self.id, \\\"NetServer:Request\\\", true )\\n          end\\n          if channel then\\n              self.connection = channel\\n                Nova.network.send( channel, {\\n                    request = \\\"read\\\";\\n                  file = path;\\n                 args = args or { };\\n              } )\\n              local ok, response = Nova.network.receive( channel, 5 )\\n              if ok then\\n                   if response.success then\\n                     if response.endpath then\\n                         newhref = Nova.filesystem.merge( id, response.endpath )\\n                          if rawargs then\\n                              newhref = newhref .. \\\"?\\\" .. rawargs\\n                            end\\n                      end\\n                      if not noHistory then\\n                            self.historyindex = self.historyindex + 1\\n                            table.insert( self.history, {\\n                                href = newhref;\\n                              content = response.content;\\n                          } )\\n                      end\\n                      content = response.content\\n                   else\\n                     content = \\\"<t tc:red>\\\" .. tostring( response.reason ) .. \\\"</t>\\\"\\n                  end\\n              else\\n                 content = \\\"<t tc:red>Server didn't respond. This usually means the server is offline at the moment.</t>\\\"\\n               end\\n          else\\n             content = \\\"<t tc:red>Couldn't connect. This usually means the server isn't running at the moment, or you entered the wrong ID.</t>\\\"\\n            end\\n      else\\n         content = \\\"<t tc:red>invalid href, no computer id given</t>\\\"\\n       end\\n  end\\n  self:clearCurrent( )\\n self:addContent( content )\\n   pathinput.text = newhref\\n self.loading = false\\nend\\nfunction browser:back( )\\n    while self.loading do coroutine.yield( ) end\\n if self.history[self.historyindex - 1] then\\n      self.historyindex = self.historyindex - 1\\n        self:clearCurrent( )\\n     self:addContent( self.history[self.historyindex].content )\\n       pathinput.text = self.history[self.historyindex].href\\n    end\\nend\\nfunction browser:forward( )\\n  while self.loading do coroutine.yield( ) end\\n if self.history[self.historyindex + 1] then\\n      self.historyindex = self.historyindex + 1\\n        self:clearCurrent( )\\n     self:addContent( self.history[self.historyindex].content )\\n       pathinput.text = self.history[self.historyindex].href\\n    end\\nend\\nfunction browser:refresh( )\\n  while self.loading do coroutine.yield( ) end\\n local h = self.history[self.historyindex].href\\n   while self.history[self.historyindex] do\\n     table.remove( self.history, self.historyindex )\\n  end\\n  self.historyindex = self.historyindex - 1\\n    self:goto( h )\\nend\\n\\nfunction backbutton:onClick( )\\n Nova.app.newThread( function( )\\n      browser:back( )\\n  end )\\nend\\nfunction backbutton:text( )\\n    if browser.history[browser.historyindex - 1] then\\n        self.tc = colours.black\\n  else\\n     self.tc = colours.grey\\n   end\\n  return \\\"<\\\"\\nend\\nfunction forwardbutton:onClick( )\\n   Nova.app.newThread( function( )\\n      browser:forward( )\\n   end )\\nend\\nfunction forwardbutton:text( )\\n if browser.history[browser.historyindex + 1] then\\n        self.tc = colours.black\\n  else\\n     self.tc = colours.grey\\n   end\\n  return \\\">\\\"\\nend\\nfunction refresh:onClick( )\\n Nova.app.newThread( function( )\\n      browser:refresh( )\\n   end )\\nend\\nfunction pathinput:onEnter( )\\n  Nova.app.newThread( function( )\\n      browser:goto( self.text )\\n    end )\\nend\\nfunction pathinput:whenFocussed( )\\n Nova.app.newThread( function( )\\n      self:select( 1, #self.text )\\n end )\\nend\\nfunction pathinput:whenUnFocussed( )\\n   self.scroll = 0\\nend\\n\\nlocal menu\\n\\nlocal function showBookmarks( )\\n\\nend\\n\\nlocal function addBookmark( )\\n\\nend\\n\\nlocal function showHistory( )\\n\\nend\\n\\nlocal function showDownloads( )\\n\\nend\\n\\nlocal function showSettings( )\\n\\nend\\n\\nlocal function showDevelopMenu( )\\n    local frame = UI:newChild( NovaUI.UIFrame( 1, UI.h - 10, UI.w, 11 ) )\\n    menu = frame\\n frame:newChild( NovaUI.UIText( 1, 1, frame.w, frame.h, \\\"\\\" ) )\\n  local title = frame:newChild( NovaUI.UIText( 1, 1, frame.w - 1, 1, \\\"Develop\\\" ) )\\n   title.bc = colours.grey\\n  title.tc = colours.white\\n local close = frame:newChild( NovaUI.UIButton( frame.w, 1, 1, 1, \\\"x\\\" ) )\\n   close.bc = colours.red\\n   close.tc = colours.black\\n function close:onClick( )\\n        frame:remove( )\\n      menu = nil\\n   end\\n  local tabs = {\\n       console = frame:newChild( NovaUI.UIButton( 1, 2, 7, 1, \\\"console\\\" ) );\\n      exceptions = frame:newChild( NovaUI.UIButton( 9, 2, 10, 1, \\\"exceptions\\\" ) );\\n       nml = frame:newChild( NovaUI.UIButton( 20, 2, 3, 1, \\\"NML\\\" ) );\\n }\\n    local currentdisplay\\n local currentcontent\\n local onLoad = {\\n     console = function( )\\n            local f = frame:newChild( NovaUI.UIFrame( 1, 3, frame.w, frame.h - 2 ) )\\n         local f2 = f:newChild( NovaUI.UIFrame( 1, 1, f.w - 1, f.h ) )\\n            local s = f:newChild( NovaUI.UIScrollBar( f.w, 1, 1, f.h, f2 ) )\\n         Nova.app.newThread( function( )\\n              while true do\\n                    for i = 1, #browser.log do\\n                       local message = f2:newChild( NovaUI.UIText( 1, i, f2.w, 1, browser.log[i] ) )\\n                    end\\n                  coroutine.yield( )\\n                   if currentcontent ~= f or menu ~= frame then\\n                     error()\\n                  end\\n                  f2:clearChildren( )\\n              end\\n          end )\\n            return f\\n     end;\\n     exceptions = function( )\\n         local f = frame:newChild( NovaUI.UIFrame( 1, 3, frame.w, frame.h - 2 ) )\\n         local f2 = f:newChild( NovaUI.UIFrame( 1, 1, f.w - 1, f.h, \\\"horizontal\\\" ) )\\n            local s = f:newChild( NovaUI.UIScrollBar( f.w, 1, 1, f.h, f2 ) )\\n         Nova.app.newThread( function( )\\n              while true do\\n                    for i = 1, #browser.page.errors do\\n                       local err = browser.page.errors[i]\\n                       local c = f2:newChild( NovaUI.UIFrame( 1, i, f2.w, 1 ) )\\n                     local source = c:newChild( NovaUI.UIText( 1, 1, #tostring( err.source ) + 1, 1, err.source ) )\\n                       local level = c:newChild( NovaUI.UIText( 0, 1, #err.level + 4, 1, \\\"[\\\" .. err.level .. \\\"]\\\" ) )\\n                        level:alignTo( \\\"right\\\", source )\\n                       level.tc = colours.lightGrey\\n                     c:newChild( NovaUI.UIText( level.x + level.w - 2, 1, 1, 1, \\\":\\\" ) )\\n                     local message = c:newChild( NovaUI.UIText( 0, 1, #err.message, 1, err.message ) )\\n                        message.tc = colours.red\\n                     message:alignTo( \\\"right\\\", level )\\n                  end\\n                  coroutine.yield( )\\n                   if currentcontent ~= f or menu ~= frame then\\n                     error()\\n                  end\\n                  f2:clearChildren( )\\n              end\\n          end )\\n            return f\\n     end;\\n     nml = function( )\\n\\n     end;\\n }\\n    for k, v in pairs( tabs ) do\\n     v.tc = colours.grey\\n      function v:onClick( )\\n            if currentdisplay then\\n               currentdisplay.bc = colours.white\\n            end\\n          if currentcontent then\\n               currentcontent:remove( )\\n         end\\n          currentdisplay = self\\n            self.bc = colours.lightBlue\\n          currentcontent = onLoad[k]( )\\n        end\\n  end\\n  tabs.console:onClick( )\\nend\\n\\nlocal function showHelp( )\\n\\nend\\n\\nfunction options:onClick( )\\n  local menu = {\\n       width = 19;\\n      height = 12;\\n     spacing = false;\\n     shadow = colours.grey;\\n       { type = \\\"button\\\", name = \\\"bookmarks\\\", onClick = function( )\\n         showBookmarks( )\\n         browser.settingframe:remove( )\\n       end };\\n       { type = \\\"button\\\", name = \\\"add to bookmarks\\\", onClick = function( )\\n          addBookmark( )\\n           browser.settingframe:remove( )\\n       end };\\n       \\\"rule\\\";\\n        { type = \\\"button\\\", name = \\\"history\\\", onClick = function( )\\n           showHistory( )\\n           browser.settingframe:remove( )\\n       end };\\n       \\\"rule\\\";\\n        { type = \\\"button\\\", name = \\\"downloads\\\", onClick = function( )\\n         showDownloads( )\\n         browser.settingframe:remove( )\\n       end };\\n       \\\"rule\\\";\\n        { type = \\\"button\\\", name = \\\"settings\\\", onClick = function( )\\n          showSettings( )\\n          browser.settingframe:remove( )\\n       end };\\n       { type = \\\"button\\\", name = \\\"develop\\\", onClick = function( )\\n           showDevelopMenu( )\\n           browser.settingframe:remove( )\\n       end };\\n       \\\"rule\\\";\\n        { type = \\\"button\\\", name = \\\"help\\\", onClick = function( )\\n          showHelp( )\\n          browser.settingframe:remove( )\\n       end };\\n   }\\n    local s = UI:newChild( NovaUI.UIFrame( 1, 1, UI.w, UI.h ) )\\n  local b = s:newChild( NovaUI.UIButton( UI.w - 3, 2, 3, 1, \\\"-\\\" ) )\\n  b.bc = colours.lightBlue\\n b.tc = colours.black\\n local close = s:newChild( NovaUI.UIButton( 1, 1, UI.w, UI.h, \\\"\\\" ) )\\n    close.bc = 0\\n close.align = false\\n  function close:onClick( )\\n        s:remove( )\\n  end\\n  local frame = s:newChild( NovaUI.UIFrame( UI.w - 18, 3, 19, 12 ) )\\n   NovaUI.display.menu( frame, menu )\\n   browser.settingframe = s\\nend\\n\\nlocal env = browser.page.environment\\n\\nenv.browser = { }\\nfunction env.browser.redirect( href, hidden )\\n  if not browser.id then return false end\\n  if type( href ) == \\\"string\\\" then\\n       Nova.app.newThread( function( )\\n          browser:goto( Nova.filesystem.merge( browser.id, href ), hidden )\\n        end )\\n        return true\\n  else\\n     return error \\\"expected string href\\\"\\n    end\\nend\\nfunction env.browser.goto( href, hidden )\\n    if type( href ) == \\\"string\\\" then\\n       browser:goto( href, hidden )\\n     return true\\n  else\\n     return error \\\"expected string href\\\"\\n    end\\nend\\nfunction env.browser.reload( )\\n   browser:refresh( )\\nend\\nfunction env.browser.back( )\\n  browser:back( )\\nend\\nfunction env.browser.forward( )\\n  browser:forward( )\\nend\\nfunction env.browser.download( name, content )\\n    if Nova.filesystem.exists( Nova.filesystem.merge( downloadpath, name ) ) then\\n        local n = 1\\n      while Nova.filesystem.exists( Nova.filesystem.merge( downloadpath, name .. \\\" (\\\" .. n .. \\\")\\\" ) ) do\\n           n = n + 1\\n        end\\n      name = name .. \\\" (\\\" .. n .. \\\")\\\"\\n  end\\n  Nova.filesystem.writefile( Nova.filesystem.merge( downloadpath, name ), FileData( content ) )\\n    local downloads = Nova.app.getData \\\"downloads\\\" or { }\\n  table.insert( downloads, { time = Nova.irltime(), date = Nova.irldate(), name = name } )\\n Nova.app.setData( \\\"downloads\\\", downloads )\\nend\\nfunction env.browser.cookie( name, value )\\n  local cookies = Nova.app.getData \\\"cookies\\\" or { }\\n  cookies[name] = value\\n    Nova.app.setData( \\\"cookies\\\", cookies )\\nend\\nfunction env.browser.getCookie( name )\\n  local cookies = Nova.app.getData \\\"cookies\\\"\\n return cookies[name]\\nend\\nfunction env.browser.log( message )\\n table.insert( browser.log, message )\\nend\\n\\nif type( ARGS[1] ) == \\\"string\\\" then\\n    browser:goto( \\\"file:\\\" .. ARGS[1] )\\nelse\\n  browser:goto \\\"home\\\"\\nend\",\
[\"appconfig.txt\"]=\"extensions = {\\n nml = \\\"NovaMarkupLanguage\\\";\\n};\\nfiletypes = {\\n   NovaMarkupLanguage = \\\"Nova Markup Language file\\\";\\n};\\nhandles = {\\n   \\\"NovaMarkupLanguage\\\";\\n};\",\
}\
,\
Settings={\
[\"icon.nim\"]=\"--[[\\n  type = \\\"nova_image\\\",\\n]]07S07e07t07t07i07n07g07s00 \\n07[0Bx07]00 07.07.07.00 00 \\n07[03 07]00 07.07.07.00 00 \",\
[\"main.lua\"]=\"\\nlocal f = Nova.app.UI:newChild( NovaUI.UIFrame( 1, 2, Nova.app.UI.w - 1, Nova.app.UI.h - 2 ) )\\n\\nlocal function formatSpace( n )\\n  if n < 1024 then\\n     return tostring( n ) .. \\\" bytes\\\"\\n   end\\n  n = n / 1024\\n if n < 1024 then\\n     return tostring( math.floor( n ) ) .. \\\"KB\\\"\\n end\\n  return tostring( math.floor( n / 1024 ) ) .. \\\"MB\\\"\\nend\\n\\nNovaUI.display.menu( f, {\\n { type = \\\"label\\\", name = \\\"Computer\\\" };\\n   \\\"space\\\";\\n   { type = \\\"display\\\", name = \\\"Computer ID:    \\\", getDisplay = function( )\\n      return tostring( os.getComputerID( ) )\\n   end };\\n   { type = \\\"display\\\", name = \\\"Computer label: \\\", getDisplay = function( )\\n      return os.getComputerLabel( ) or \\\"<No label>\\\"\\n  end };\\n   \\\"space\\\";\\n   { type = \\\"input\\\", label = \\\"Change label\\\", onEnter = function( input )\\n        os.setComputerLabel( input.text )\\n    end };\\n   \\\"space\\\", \\\"rule\\\";\\n { type = \\\"label\\\", name = \\\"Nova\\\" };\\n   \\\"space\\\";\\n   { type = \\\"display\\\", name = \\\"Version: \\\", getDisplay = function( )\\n     return Nova.name .. \\\" (v\\\" .. Nova.version .. \\\")\\\"\\n end };\\n   \\\"space\\\";\\n   { type = \\\"button\\\", name = \\\"force update\\\", blue = true, onClick = function( )\\n     Nova.app.newThread( function( )\\n          if Nova.update( ) then\\n               if NovaUI.display.confirm( Nova.app.UI, \\\"Updated, would you like to restart?\\\" ) then\\n                   Nova.restart( )\\n              end\\n          else\\n             NovaUI.display.alert( Nova.app.UI, \\\"Failed to download update\\\" )\\n           end\\n      end )\\n    end };\\n   \\\"space\\\", \\\"rule\\\";\\n { type = \\\"label\\\", name = \\\"Files\\\" };\\n  \\\"space\\\";\\n   { type = \\\"display\\\", name = \\\"Mounted drives: \\\", getDisplay = function( )\\n      local drives = Nova.filesystem.listmounted( )\\n        return tostring( #drives )\\n   end };\\n   { type = \\\"display\\\", name = \\\"Free space:     \\\", getDisplay = function( )\\n      return formatSpace( Nova.filesystem.getSpace \\\"C:\\\" )\\n    end };\\n   \\\"space\\\", \\\"rule\\\";\\n { type = \\\"label\\\", name = \\\"User\\\" };\\n   \\\"space\\\";\\n   { type = \\\"display\\\", name = \\\"Logged in as: \\\", getDisplay = function( )\\n        return Nova.user.getName( )\\n  end };\\n   \\\"space\\\";\\n   { type = \\\"button\\\", name = \\\"change username\\\", blue = true, onClick = function( )\\n      Nova.app.newThread( function( )\\n          local name = NovaUI.display.response( Nova.app.UI, \\\"Your new username:\\\" )\\n          if name then\\n             local ok, err = Nova.user.rename( name )\\n             if ok then\\n                   NovaUI.display.alert( Nova.app.UI, \\\"Username changed\\\" )\\n                elseif err == \\\"user exists\\\" then\\n                   NovaUI.display.alert( Nova.app.UI, \\\"User already exists!\\\" )\\n                end\\n          end\\n      end )\\n    end };\\n   { type = \\\"button\\\", name = \\\"change password\\\", blue = true, onClick = function( )\\n      Nova.app.newThread( function( )\\n          local pass = NovaUI.display.response( Nova.app.UI, \\\"Your new password:\\\", \\\"*\\\" )\\n           if pass then\\n             if Nova.user.changePassword( pass ) then\\n                 NovaUI.display.alert( Nova.app.UI, \\\"Password changed\\\" )\\n                end\\n          end\\n      end )\\n    end };\\n   \\\"space\\\";\\n   { type = \\\"button\\\", name = \\\"create user\\\", blue = true, onClick = function( )\\n      Nova.app.newThread( function( )\\n          local username = NovaUI.display.response( Nova.app.UI, \\\"New username\\\" )\\n            if username then\\n             local password = NovaUI.display.response( Nova.app.UI, \\\"New password\\\" )\\n                if password then\\n                 if Nova.user.create( username, password ) then\\n                       if NovaUI.display.confirm( Nova.app.UI, \\\"Would you like to log in as this user?\\\" ) then\\n                            Nova.user.switch( username, password )\\n                       end\\n                  else\\n                     NovaUI.display.alert( Nova.app.UI, \\\"Could not create account\\\" )\\n                    end\\n                  return\\n               end\\n          end\\n          NovaUI.display.alert( Nova.app.UI, \\\"Cancelled\\\" )\\n       end )\\n    end };\\n   { type = \\\"button\\\", name = \\\"delete this account\\\", blue = true, onClick = function( )\\n      Nova.app.newThread( function( )\\n          if NovaUI.display.confirm( Nova.app.UI, \\\"Are you sure you want to delete your account?\\\" ) then\\n             Nova.user.delete( )\\n          end\\n      end )\\n    end };\\n   \\\"space\\\", \\\"rule\\\";\\n { type = \\\"label\\\", name = \\\"Apps\\\" };\\n   \\\"space\\\";\\n   { type = \\\"display\\\", name = \\\"not yet implemented\\\" };\\n  \\\"space\\\", \\\"rule\\\";\\n { type = \\\"label\\\", name = \\\"Network\\\" };\\n    \\\"space\\\";\\n   { type = \\\"display\\\", name = \\\"not yet implemented\\\" };\\n} )\",\
}\
,\
Paint={\
[\"icon.nim\"]=\"BF 3F 3B-3B-3B-3B-3B-3F BF \\nBF 3F 3EP3Ea3Ei3En3Et3F BF \\nBF 3F 3B-3B-3B-3B-3B-3F BF \",\
[\"main.lua\"]=\"\\nlocal ARGS = ARGS\\nif not Nova then\\n ARGS = { ... }\\nend\\n\\nif not NovaUI then\\n os.loadAPI \\\"NovaUI\\\"\\nend\\nlocal UI = Nova and Nova.app.UI or NovaUI.UIHandler( )\\nlocal running = true\\n\\nif not Nova then\\n    NovaUI.buffer.reset( )\\nelse\\n    UI.scrolls = false\\nend\\n\\nlocal taskbar = UI:newChild( NovaUI.UIFrame( 1, 1, UI.w, 1 ) )\\ntaskbar:newChild( NovaUI.UIButton( 1, 1, taskbar.w, 1, \\\"\\\" ) ).bc = colours.grey\\nlocal imagebody = UI:newChild( NovaUI.UIFrame( 1, 2, UI.w, UI.h - 1 ) )\\nimagebody.scrolls = false\\n\\nlocal background = NovaUI.Image( imagebody.w, imagebody.h )\\nbackground:foreach( function( ) return 32768, 1, \\\" \\\" end )\\nimagebody:newChild( NovaUI.UIImage( 1, 1, imagebody.w, imagebody.h, background ) )\\n\\nlocal image = imagebody:newChild( NovaUI.UIFrame( 1, 1, 1, 1 ) )\\nlocal imageeventh = image:newChild( NovaUI.UIButton( 1, 1, 1, 1, \\\"\\\" ) )\\nimageeventh.bc = 0\\nimageeventh.align = false\\n\\nlocal keyhandler = imagebody:newChild( NovaUI.UIKeyHandler( ) )\\n\\nlocal activedropdown\\nlocal activemenu\\nlocal cx, cy, bc, tc = 1, 1, 1, 1\\n\\nlocal menus\\n\\nlocal savepath\\nlocal changed = false\\nlocal asterix\\nlocal function saved( )\\n  if changed then\\n      local result = NovaUI.display.confirm( UI, \\\"You have unsaved changes, would you like to save?\\\" )\\n       if result then\\n           savefile( true )\\n     end\\n      if result == nil then\\n            return false\\n     end\\n  end\\n  return true\\nend\\nif Nova then\\n function Nova.app.canClose( reason )\\n     if reason == \\\"user\\\" and changed then\\n           NovaUI.Thread( function( )\\n               if saved( ) then\\n                 Nova.app.close( )\\n                end\\n          end )\\n            return false\\n     end\\n      return true\\n  end\\nend\\nlocal function contentChanged( )\\n if changed then return end\\n   changed = true\\n   if Nova then\\n     Nova.app.setTitle \\\"Paint*\\\"\\n else\\n     for k, v in pairs( menus ) do v.x = v.x + 2 end\\n      asterix = taskbar:newChild( NovaUI.UIText( 1, 1, 1, 1, \\\"*\\\" ) )\\n     asterix.bc = 0\\n       asterix.tc = 1\\n   end\\nend\\nlocal function contentSaved( )\\n   if not changed then return end\\n   if asterix then asterix:remove( ) end\\n    changed = false\\n  if Nova then\\n     Nova.app.setTitle \\\"Paint\\\"\\n  else\\n     for k, v in pairs( menus ) do v.x = v.x - 2 end\\n  end\\nend\\nlocal savefile\\nlocal openfile\\n\\nlocal layers = { }\\nlocal layer = 0\\nlocal function newLayer( name, im )\\n  table.insert( layers, { image = im, active = true, name = name, element = NovaUI.UIImage( 1, 1, image.w, image.h, im ) } )\\n   for i = 1, #layers do\\n        layers[i].element:remove( )\\n      if layers[i].active then\\n         image:newChild( layers[i].element )\\n      end\\n  end\\n  im:resize( image.w, image.h )\\n    imageeventh:remove( )\\n    image:newChild( imageeventh )\\n    layer = layer + 1\\nend\\nlocal function setActive( layer, state )\\n   layers[layer].active = state == nil and not layers[layer.active] or state or false\\n   for i = 1, #layers do\\n        layers[i].element:remove( )\\n      if layers[i].active then\\n         image:newChild( layers[i].element )\\n      end\\n  end\\n  imageeventh:remove( )\\n    image:newChild( imageeventh )\\nend\\nlocal function resize( w, h )\\n  if w == image.w and h == image.h then return end\\n for i = 1, #layers do\\n        layers[i].image:resize( w, h, bc, tc, \\\" \\\" )\\n        layers[i].element.w = w\\n      layers[i].element.h = h\\n  end\\n  imageeventh.w = w\\n    imageeventh.h = h\\n    image.w = w\\n  image.h = h\\nend\\n\\nfunction savefile( )\\n  if not savepath then\\n     savepath = NovaUI.display.response( UI, \\\"Where would you like to save?\\\" )\\n      if savepath then\\n         savepath = savepath .. \\\".nim\\\"\\n      else\\n         return false\\n     end\\n  end\\n  local savestr\\n    if #layers > 1 then\\n      savestr = \\\"\\\"\\n       for i = 1, #layers do\\n            savestr = savestr .. \\\"---[\\\" .. layers[i].name .. \\\"]\\\\n\\\" .. layers[i].image:savestr( )\\n          if i ~= #layers then savestr = savestr .. \\\"\\\\n\\\" end\\n      end\\n  elseif layers[1] then\\n        savestr = layers[1].image:savestr( )\\n else\\n     NovaUI.display.alert( UI, \\\"No layers!\\\" )\\n       return\\n   end\\n  if Nova then\\n     local fd = FileData( savestr )\\n       fd.meta.type = \\\"nova_image\\\"\\n        Nova.filesystem.writefile( savepath, fd )\\n    else\\n     local h = fs.open( savepath, \\\"w\\\" )\\n     if h then\\n            h.write( savestr )\\n           h.close( )\\n       else\\n         NovaUI.display.alert( UI, \\\"Could not save file\\\" )\\n          return\\n       end\\n  end\\n  contentSaved( )\\nend\\nlocal function openlayer( str )\\n  if not str then return end\\n   local lt = str:sub( 1, str:find \\\"%-%-%-\\\" ) -- returns nil if it can't find it, causing it to sub to the end\\n    local remaining = str:find \\\"%-%-%-\\\" and str:sub( str:find \\\"%-%-%-\\\" + 3 ) or false\\n    local name = \\\"Un-named Layer\\\"\\n  if lt:sub( 1, 1 ) == \\\"[\\\" and lt:sub( 2 ):find \\\"]\\\" then\\n       name = lt:sub( 2, lt:sub( 2 ):find \\\"]\\\" )\\n       lt = lt:sub( lt:sub( 2 ):find \\\"]\\\" + 2 )\\n        if lt:sub( 1, 1 ) == \\\"\\\\n\\\" then lt = lt:sub( 2 ) end\\n end\\n  local im = NovaUI.Image( )\\n   im:loadstr( lt )\\n if remaining and remaining:sub( 1, 1 ) == \\\"\\\\n\\\" then remaining = remaining:sub( 2 ) end\\n  return name, im, remaining\\nend\\nfunction openfile( path )\\n savepath = path\\n  contentSaved( )\\n  local content\\n    if Nova then\\n     local pass\\n       if Nova.filesystem.isProtected( path ) then\\n          pass = NovaUI.display.response( UI, \\\"Password for file\\\" )\\n          if not pass then\\n             return\\n           end\\n      end\\n      local filedata, err = Nova.filesystem.readfile( path, pass )\\n     if filedata then content = filedata.content else NovaUI.display.alert( UI, err, true ) return end\\n    else\\n     local h = fs.open( path, \\\"r\\\" )\\n     if h then content = h.readAll( ) h.close( ) else NovaUI.display.alert( UI, \\\"could not open file\\\", true ) return end\\n        if content:find \\\"^--%[%[.-%]%]\\\" then\\n           content = content:gsub( \\\"^--%[%[.-%]%]\\\", \\\"\\\", 1 )\\n     end\\n  end\\n  for i = #layers, 1, -1 do\\n        layers[i].element:remove( )\\n  end\\n  layers = { }\\n image.x, image.y = 1, 1\\n  if content:sub( 1, 3 ) == \\\"---\\\" then\\n       local name, im, content = openlayer( content:sub( 4 ) )\\n      while name do\\n            resize( im:getSize( ) )\\n          newLayer( name, im )\\n         name, im, content = openlayer( content )\\n     end\\n  else\\n     local im = NovaUI.Image( ):loadstr( content )\\n        resize( im:getSize( ) )\\n      newLayer( \\\"Layer 1\\\", im )\\n  end\\n  layer = 1\\n    imageeventh:remove( )\\n    image:newChild( imageeventh )\\n    image:centre( )\\n  return true\\nend\\n\\nlocal function copy( )\\n    local im = layers[layer]\\n NovaUI.clipboard.set( \\\"image\\\", im.image )\\nend\\nlocal function cut( )\\n    if #layers > 1 then\\n      local im = layers[layer]\\n     NovaUI.clipboard.set( \\\"image\\\", im.image )\\n      im.element:remove( )\\n     table.remove( layers, layer )\\n        layer = math.max( layer - 1, 1 )\\n     contentChanged( )\\n    end\\nend\\nlocal function paste( )\\n  local mode, data = NovaUI.clipboard.get( )\\n   if mode ~= \\\"image\\\" then\\n        return\\n   end\\n  local im = NovaUI.Image( image.w, image.h )\\n  im:foreach( function( x, y )\\n     local b, t, char = data:getPixel( x, y )\\n     if b then return b, t, char end\\n      return bc, tc, \\\" \\\"\\n end )\\n    newLayer( \\\"Pasted layer\\\", im )\\n contentChanged( )\\nend\\n\\nlocal view = {\\n  colours = { active = true, element = UI:newChild( NovaUI.UIFrame( 1, 2, 11, 5 ) ) };\\n layers = { active = true, element = UI:newChild( NovaUI.UIFrame( UI.w - 14, 11, 15, 10 ) ) };\\n    tools = { active = true, element = UI:newChild( NovaUI.UIFrame( UI.w - 14, 2, 15, 9 ) ) };\\n}\\nif Nova and Nova.platform ~= \\\"computer\\\" then\\n  for k, v in pairs( view ) do\\n     v.active = false\\n     v.element:remove( )\\n  end\\nend\\nlocal title = view.colours.element:newChild( NovaUI.UIButton( 1, 1, 10, 1, \\\"Colour\\\" ) )\\ntitle.bc = colours.grey\\ntitle.tc = colours.white\\nfunction title:onDrag( _, _, cx, cy )\\n   view.colours.element.x = view.colours.element.x + cx\\n view.colours.element.y = view.colours.element.y + cy\\nend\\nlocal close = view.colours.element:newChild( NovaUI.UIButton( 11, 1, 1, 1, \\\"x\\\" ) )\\nclose.bc = colours.grey\\nclose.tc = colours.yellow\\nfunction close:onClick( )\\n  view.colours.active = false\\n  view.colours.element:remove( )\\nend\\nlocal x, y = 1, 1\\nfor i = 0, 15 do\\n  local button = view.colours.element:newChild( NovaUI.UIButton( x * 2 + 2, y + 1, 2, 2, \\\"\\\" ) )\\n  button.bc = 2 ^ i\\n    function button:onClick( _, _, button )\\n      if button == 1 then bc = 2 ^ i\\n       elseif button == 2 then tc = 2 ^ i\\n       end\\n  end\\n  x = x + 1\\n    if x > 4 then x = 1 y = y + 1 end\\nend\\nview.colours.element:newChild( NovaUI.UIButton( 1, 2, 3, 2, function( self )\\n   self.bc = bc\\n return \\\"\\\"\\nend ) )\\nview.colours.element:newChild( NovaUI.UIButton( 1, 4, 3, 2, function( self )\\n self.bc = tc\\n return \\\"\\\"\\nend ) )\\n\\nlocal title = view.layers.element:newChild( NovaUI.UIButton( 1, 1, 14, 1, \\\"Layers\\\" ) )\\ntitle.bc = colours.grey\\ntitle.tc = colours.white\\nfunction title:onDrag( _, _, cx, cy )\\n view.layers.element.x = view.layers.element.x + cx\\n   view.layers.element.y = view.layers.element.y + cy\\nend\\nlocal close = view.layers.element:newChild( NovaUI.UIButton( 15, 1, 1, 1, \\\"x\\\" ) )\\nclose.bc = colours.grey\\nclose.tc = colours.yellow\\nfunction close:onClick( )\\n view.layers.active = false\\n   view.layers.element:remove( )\\nend\\nlocal current = view.layers.element:newChild( NovaUI.UIText( 1, 2, 15, 1, function( )\\n  return layers[layer] and layers[layer].name or \\\"\\\"\\nend ) )\\ncurrent.bc = colours.grey\\ncurrent.tc = colours.white\\nlocal layerlist = view.layers.element:newChild( NovaUI.UIFrame( 1, 3, 15, 8 ) )\\n\\nNovaUI.Thread( function( )\\n while true do\\n        layerlist:clearChildren( )\\n       for i = 1, #layers do\\n            local l = layers[i]\\n          local button = layerlist:newChild( NovaUI.UIButton( 3, i, 15, 1, layers[i].name ) )\\n          button.bc = colours.lightGrey\\n            button.tc = colours.black\\n            function button:onClick( x, y, b )\\n               if b == 1 then\\n                   layer = i\\n                else\\n                 local close = UI:newChild( NovaUI.UIButton( 1, 1, UI.w, UI.h, \\\"\\\" ) )\\n                   close.bc, close.align = 0, false\\n                 local f = UI:newChild( NovaUI.UIFrame( view.layers.element.x + view.layers.element.w, view.layers.element.y + i + layerlist.cy + 1, 10, 5 ) )\\n                    NovaUI.display.menu( f, {\\n                        width = 11, height = 5, spacing = false, shadow = colours.grey;\\n                      { type = \\\"button\\\", name = \\\"delete\\\", onClick = function( )\\n                            if #layers > 1 then\\n                              table.remove( layers, i )\\n                                if layer == i then\\n                                   layer = math.max( i - 1, 1 )\\n                             elseif layer > #layers then\\n                                  layer = layer - 1\\n                                end\\n                              setActive( layer, layers[layer].active ) -- update\\n                               close:remove( )\\n                              f:remove( )\\n                              contentChanged( )\\n                            else\\n                             NovaUI.display.alert( UI, \\\"Cannot delete last layer\\\" )\\n                             close:remove( )\\n                              f:remove( )\\n                          end\\n                      end };\\n                       { type = \\\"button\\\", name = layers[i] and layers[i].active and \\\"hide\\\" or \\\"show\\\", onClick = function( )\\n                           if layers[i] then\\n                                setActive( i, not layers[i].active ) -- update\\n                               close:remove( )\\n                              f:remove( )\\n                          end\\n                      end };\\n                       { type = \\\"button\\\", name = \\\"rename\\\", onClick = function( )\\n                            NovaUI.Thread( function( )\\n                               close:remove( )\\n                              f:remove( )\\n                              local r = NovaUI.display.response( UI, \\\"New layer name\\\" )\\n                              if r then\\n                                    layers[i].name = r\\n                                   contentChanged( )\\n                                end\\n                          end )\\n                        end };\\n                       { type = \\\"button\\\", name = \\\"merge up\\\", onClick = function( )\\n                          close:remove( )\\n                          f:remove( )\\n                          if layers[i - 1] then\\n                                local im = layers[i-1].image\\n                             local im2 = layers[i].image\\n                              im:foreach( function( x, y, bc, tc, char )\\n                                   local b, t, c = im2:getPixel( x, y )\\n                                 if b == 0 then\\n                                       b = bc\\n                                   end\\n                                  if t == 0 or c == \\\"\\\" then\\n                                      t, c = tc, char\\n                                  end\\n                                  return b, t, c\\n                               end )\\n                                layers[i].element:remove( )\\n                              table.remove( layers, i )\\n                                if layer >= i then\\n                                   layer = layer - 1\\n                                end\\n                              contentChanged( )\\n                            else\\n                             NovaUI.display.alert( UI, \\\"Nothing to merge to (top layer)\\\" )\\n                          end\\n                      end };\\n                   } )\\n                  if f.x + f.w > UI.w then\\n                     f.x = UI.w - f.w + 1\\n                 end\\n                  if f.y + f.h > UI.h then\\n                     f.y = UI.h - f.h + 1\\n                 end\\n                  function close:onClick( )\\n                        close:remove( )\\n                      f:remove( )\\n                  end\\n              end\\n          end\\n          function button:onDrag( _, y, _, _, b )\\n              if b == 1 then\\n                   for i = 1, #layers do\\n                        if layers[i] == l then\\n                           local pos = math.min( math.max( y + i - 1, 1 ), #layers )\\n                            table.remove( layers, i )\\n                            table.insert( layers, pos, l )\\n                           Nova.log( y, i, pos )\\n                            if layer == i then\\n                               layer = pos\\n                          elseif layer == pos then\\n                             layer = math.min( math.max( i - y + 1, 1 ), #layers )\\n                            end\\n                          self.y = self.y + y - 1\\n                          setActive( 1, layers[1].active )\\n                     end\\n                  end\\n              end\\n          end\\n          local active = layerlist:newChild( NovaUI.UIButton( 1, i, 2, 1, layers[i].active and \\\" @\\\" or \\\" O\\\" ) )\\n            active.bc = colours.lightGrey\\n            active.tc = colours.black\\n            function active:onClick( )\\n               setActive( i, not layers[i].active )\\n         end\\n      end\\n      coroutine.yield( )\\n   end\\nend )\\n\\nlocal title = view.tools.element:newChild( NovaUI.UIButton( 1, 1, 14, 1, \\\"Tools\\\" ) )\\ntitle.bc = colours.grey\\ntitle.tc = colours.white\\nfunction title:onDrag( _, _, cx, cy )\\n view.tools.element.x = view.tools.element.x + cx\\n view.tools.element.y = view.tools.element.y + cy\\nend\\nlocal close = view.tools.element:newChild( NovaUI.UIButton( 15, 1, 1, 1, \\\"x\\\" ) )\\nclose.bc = colours.grey\\nclose.tc = colours.yellow\\nfunction close:onClick( )\\n    view.tools.active = false\\n    view.tools.element:remove( )\\nend\\n\\nlocal t = {\\n  { name = \\\"Brush\\\", tool = \\\"brush\\\" };\\n  { name = \\\"Rectangle\\\", tool = \\\"rectangle\\\" };\\n  { name = \\\"Ellipse\\\", tool = \\\"ellipse\\\" };\\n  { name = \\\"Line\\\", tool = \\\"line\\\" };\\n    { name = \\\"Fill\\\", tool = \\\"fill\\\" };\\n    { name = \\\"Pick colour\\\", tool = \\\"pick\\\" };\\n { name = \\\"Move\\\", tool = \\\"move\\\" };\\n    { name = \\\"Eraser\\\", tool = \\\"eraser\\\" };\\n}\\n\\nlocal tool = { name = \\\"brush\\\", size = 1, data = { } }\\nlocal function setTool( name )\\n  tool.name = name\\n tool.data = { }\\nend\\n\\nfor i = 1, #t do\\n  local b = view.tools.element:newChild( NovaUI.UIButton( 1, i + 1, 15, 1, function( self )\\n        if tool.name == t[i].tool then\\n           self.tc = colours.white\\n      else\\n         self.tc = colours.grey\\n       end\\n      return t[i].name\\n end ) )\\n  b.bc = colours.lightGrey\\n b.align = false\\n  function b:onClick( )\\n        setTool( t[i].tool )\\n end\\nend\\n\\nlocal tools = { }\\n\\ntools.brush = { }\\nfunction tools.brush.onClick( x, y )\\n   cx = x\\n   cy = y\\n   layers[layer].image:pixel( x, y, bc, tc, \\\" \\\" )\\n if tool.size > 1 then\\n        local r = tool.size ^ 2\\n      for xx = x - tool.size + 1, x + tool.size - 1 do\\n         for yy = y - tool.size + 1, y + tool.size - 1 do\\n             if ( xx - x ) ^ 2 + ( yy - y ) ^ 2 < r then\\n                  layers[layer].image:pixel( xx, yy, bc, tc, \\\" \\\" )\\n               end\\n          end\\n      end\\n  end\\n  cx, cy = x, y\\n    contentChanged( )\\nend\\ntools.brush.onDrag = tools.brush.onClick\\nfunction tools.brush.onChar( char )\\n layers[layer].image:pixel( cx, cy, bc, tc, char )\\n    cx = cx + 1\\n  contentChanged( )\\nend\\n\\ntools.rectangle = { }\\nfunction tools.rectangle.onClick( x, y )\\n    tool.data.x = x\\n  tool.data.y = y\\n  tool.data.x2 = x\\n tool.data.y2 = y\\n tool.data.button = 1\\n tool.data.layer = layers[layer]\\n  tool.data.image = NovaUI.Image( image.w, image.h )\\n   tool.data.image:foreach( function( x, y ) return tool.data.layer.image:getPixel( x, y ) end )\\n    tool.data.layer.image:pixel( x, y, bc, 1, \\\" \\\" )\\n    contentChanged( )\\nend\\nlocal function drawRectangle( im, x, y, x2, y2, char, button )\\n local minx, miny, maxx, maxy = math.min( x, x2 ), math.min( y, y2 ), math.max( x, x2 ), math.max( y, y2 )\\n    if button == 1 then\\n      for x = minx, maxx do\\n            for y = miny, maxy do\\n                im:pixel( x, y, bc, 1, char )\\n            end\\n      end\\n  else\\n     for x = minx, maxx do\\n            im:pixel( x, miny, bc, 1, char )\\n         im:pixel( x, maxy, bc, 1, char )\\n     end\\n      for y = miny + 1, maxy - 1 do\\n            im:pixel( minx, y, bc, 1, char )\\n         im:pixel( maxx, y, bc, 1, char )\\n     end\\n  end\\n  contentChanged( )\\nend\\nfunction tools.rectangle.onDrag( x, y, _, _, button )\\n  local im = tool.data.layer.image\\n local imc = tool.data.image\\n  im:foreach( function( x, y )\\n     return imc:getPixel( x, y )\\n  end )\\n    tool.data.x2 = x\\n tool.data.y2 = y\\n tool.data.button = button\\n    drawRectangle( im, x, y, tool.data.x, tool.data.y, \\\" \\\", button )\\nend\\nfunction tools.rectangle.onChar( char )\\n   if not tool.data.x then return end\\n   drawRectangle( im, tool.data.x2, tool.data.y2, tool.data.x, tool.data.y, char, tool.data.button )\\nend\\nfunction tools.rectangle.onKey( key )\\n  if not tool.data.x then return end\\n   if key == keys.backspace then\\n        local im = tool.data.layer.image\\n     local imc = tool.data.image\\n      im:foreach( function( x, y )\\n         return imc:getPixel( x, y )\\n      end )\\n    end\\nend\\n\\ntools.ellipse = { }\\nfunction tools.ellipse.onClick( x, y )\\n  tool.data.x = x\\n  tool.data.y = y\\n  tool.data.x2 = x\\n tool.data.y2 = y\\n tool.data.layer = layers[layer]\\n  tool.data.image = NovaUI.Image( image.w, image.h )\\n   tool.data.image:foreach( function( x, y ) return tool.data.layer.image:getPixel( x, y ) end )\\nend\\nlocal function drawEllipse( im, originX, originY, w, h, char )\\n local hh = h * h\\n local ww = w * w\\n local hhww = hh*ww\\n   local x0 = w\\n local dx = 0\\n for x = -w, w do\\n     im:pixel(originX + x, originY, bc, 1, char)\\n  end\\n  for y = 1, h do\\n      local x1 = x0 - (dx - 1)\\n     for i = x1, 0, -1 do\\n         if (x1*x1*hh + y*y*ww <= hhww) then\\n              break\\n            end\\n          x1 = x1 - 1\\n      end\\n      dx = x0 - x1\\n     x0 = x1\\n      for x = -x0, x0 do\\n           im:pixel(originX + x, originY - y, bc, 1, char)\\n          im:pixel(originX + x, originY + y, bc, 1, char)\\n      end\\n  end\\n  contentChanged( )\\nend\\nfunction tools.ellipse.onDrag( x, y, _, _, button )\\n    local im = tool.data.layer.image\\n local imc = tool.data.image\\n  im:foreach( function( x, y )\\n     return imc:getPixel( x, y )\\n  end )\\n    local minx, miny, maxx, maxy = math.min( x, tool.data.x ), math.min( y, tool.data.y ), math.max( x, tool.data.x ), math.max( y, tool.data.y )\\n    tool.data.x2 = x\\n tool.data.y2 = y\\n local originX = minx + math.floor( ( maxx - minx ) / 2 + .5 )\\n    local originY = miny + math.floor( ( maxy - miny ) / 2 + .5 )\\n    drawEllipse( im, originX, originY, maxx - originX + 1, maxy - originY + 1, \\\" \\\" )\\nend\\nfunction tools.ellipse.onChar( char )\\n if tool.data.x then\\n      local im = tool.data.layer.image\\n     local imc = tool.data.image\\n      im:foreach( function( x, y )\\n         return imc:getPixel( x, y )\\n      end )\\n        local minx, miny, maxx, maxy = math.min( tool.data.x2, tool.data.x ), math.min( tool.data.y2, tool.data.y ), math.max( tool.data.x2, tool.data.x ), math.max( tool.data.y2, tool.data.y )\\n        local originX = minx + math.floor( ( maxx - minx ) / 2 + .5 )\\n        local originY = miny + math.floor( ( maxy - miny ) / 2 + .5 )\\n        drawEllipse( im, originX, originY, maxx - originX + 1, maxy - originY + 1, char )\\n    end\\nend\\n\\ntools.line = { }\\nfunction tools.line.onClick( x, y )\\n    tool.data.x = x\\n  tool.data.y = y\\n  tool.data.x2 = x\\n tool.data.y2 = y\\n tool.data.layer = layers[layer]\\n  tool.data.image = NovaUI.Image( image.w, image.h )\\n   tool.data.image:foreach( function( x, y ) return tool.data.layer.image:getPixel( x, y ) end )\\n    tool.data.layer.image:pixel( x, y, bc, tc, \\\" \\\" )\\n   contentChanged( )\\nend\\nlocal function drawLine( im, char )\\n    local x1, y1 = tool.data.x, tool.data.y\\n  local x2, y2 = tool.data.x2, tool.data.y2\\n    if math.abs( x2 - x1 ) > math.abs( y2 - y1 ) then\\n        if x2 < x1 then\\n          x1, x2 = x2, x1\\n          y1, y2 = y2, y1\\n      end\\n      local g = ( y2 - y1 ) / ( x2 - x1 )\\n      for x = x1, x2 do\\n            local y = math.floor( y1 + g * ( x - x1 ) + 0.5 )\\n            im:pixel( x, y, bc, tc, char )\\n       end\\n  else\\n     if y2 < y1 then\\n          x1, x2 = x2, x1\\n          y1, y2 = y2, y1\\n      end\\n      local g = ( x2 - x1 ) / ( y2 - y1 )\\n      for y = y1, y2 do\\n            local x = math.floor( x1 + g * ( y - y1 ) + 0.5 )\\n            im:pixel( x, y, bc, tc, char )\\n       end\\n  end\\n  contentChanged( )\\nend\\nfunction tools.line.onDrag( x, y, _, _, button )\\n   local im = tool.data.layer.image\\n local imc = tool.data.image\\n  im:foreach( function( x, y )\\n     return imc:getPixel( x, y )\\n  end )\\n    tool.data.x2 = x\\n tool.data.y2 = y\\n drawLine( im, \\\" \\\" )\\nend\\nfunction tools.line.onKey( key )\\n   if not tool.data.x then return end\\n   if key == keys.backspace then\\n        local im = tool.data.layer.image\\n     local imc = tool.data.image\\n      im:foreach( function( x, y )\\n         return imc:getPixel( x, y )\\n      end )\\n    end\\nend\\nfunction tools.line.onChar( char )\\n   if not tool.data.x then return end\\n   drawLine( tool.data.layer.image, char )\\nend\\n\\ntools.fill = { }\\nlocal function fillarea( x, y, save )\\n  local im = layers[layer].image\\n   local _bc = im:getPixel( x, y )\\n  if _bc then\\n      local pixels = { }\\n       local function pixel( x, y )\\n         if pixels[x] and pixels[x][y] then\\n               return\\n           end\\n          pixels[x] = pixels[x] or { }\\n         pixels[x][y] = true\\n          local b, t, c = im:getPixel( x, y )\\n          if b == _bc then\\n             im:pixel( x, y, bc, tc, save and c or \\\" \\\" )\\n                pixel( x - 1, y )\\n                pixel( x + 1, y )\\n                pixel( x, y - 1 )\\n                pixel( x, y + 1 )\\n            end\\n      end\\n      pixel( x, y )\\n        contentChanged( )\\n    end\\nend\\nfunction tools.fill.onClick( x, y, button )\\n  NovaUI.Thread( function( )\\n       fillarea( x, y, button == 2 )\\n    end )\\nend\\n\\ntools.pick = { }\\nfunction tools.pick.onClick( x, y, button )\\n  local b, t = layers[layer].image:getPixel( x, y )\\n    bc = button == 1 and b or t\\n  tc = button == 1 and t or b\\nend\\n\\ntools.move = { }\\nfunction tools.move.onDrag( _, _, cx, cy )\\n image.x = image.x + cx\\n   image.y = image.y + cy\\nend\\ntools.eraser = { }\\nfunction tools.eraser.onClick( x, y )\\n    layers[layer].image:pixel( x, y, 0, 0, \\\"\\\" )\\n    if tool.size > 1 then\\n        local r = tool.size ^ 2\\n      for xx = x - tool.size + 1, x + tool.size - 1 do\\n         for yy = y - tool.size + 1, y + tool.size - 1 do\\n             if ( xx - x ) ^ 2 + ( yy - y ) ^ 2 < r then\\n                  layers[layer].image:pixel( xx, yy, 0, 0, \\\"\\\" )\\n              end\\n          end\\n      end\\n  end\\n  cx, cy = x, y\\n    contentChanged( )\\nend\\ntools.eraser.onDrag = tools.eraser.onClick\\n\\nmenus = { }\\nmenus.file = taskbar:newChild( NovaUI.UIButton( 1, 1, 4, 1, \\\"File\\\" ) )\\nmenus.edit = taskbar:newChild( NovaUI.UIButton( 7, 1, 4, 1, \\\"Edit\\\" ) )\\nmenus.view = taskbar:newChild( NovaUI.UIButton( 13, 1, 4, 1, \\\"View\\\" ) )\\nmenus.tool = taskbar:newChild( NovaUI.UIButton( 19, 1, 4, 1, \\\"Tool\\\" ) )\\nmenus.image = taskbar:newChild( NovaUI.UIButton( 25, 1, 5, 1, \\\"Image\\\" ) )\\nlocal menuoptions = { }\\n\\nmenuoptions.file = {\\n    width = 10, height = 8, spacing = false, shadow = colours.grey;\\n  { type = \\\"button\\\", name = \\\"New\\\", onClick = function( )\\n       activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n        NovaUI.Thread( function( )\\n           if saved( ) then\\n             for i = 1, #layers do\\n                    layers[i].element:remove( )\\n              end\\n              local im = NovaUI.Image( 5, 5 )\\n              im:foreach( function( ) return 1, 1, \\\" \\\" end )\\n             resize( 5, 5 )\\n               layers = { { image = im, name = \\\"Layer 1\\\", element = image:newChild( NovaUI.UIImage( 1, 1, 5, 5, im ) ) } }\\n                layer = 1\\n                imageeventh:remove( )\\n                image:newChild( imageeventh )\\n                contentChanged( )\\n            end\\n      end )\\n    end };\\n   { type = \\\"button\\\", name = \\\"Open\\\", onClick = function( )\\n      activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n        NovaUI.Thread( function( )\\n           if saved( ) then\\n             local path = NovaUI.display.response( UI, \\\"Path to open from\\\" )\\n                if path then\\n                 openfile( path .. \\\".nim\\\" )\\n             end\\n          end\\n      end )\\n    end };\\n   \\\"rule\\\";\\n    { type = \\\"button\\\", name = \\\"Save\\\", onClick = function( )\\n      activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n        NovaUI.Thread( function( )\\n           savefile( )\\n      end ).onException = function( _, err ) term.setTextColour( colours.black ) print( err ) running = false end\\n  end };\\n   { type = \\\"button\\\", name = \\\"Save As\\\", onClick = function( )\\n       activedropdown:remove( )\\n     NovaUI.Thread( function( )\\n           local path = NovaUI.display.response( UI, \\\"Path to save as\\\" )\\n          if path then\\n             savepath = path .. \\\".nim\\\"\\n              savefile( )\\n          end\\n      end )\\n    end };\\n   \\\"rule\\\";\\n    { type = \\\"button\\\", name = \\\"Exit\\\", onClick = function( )\\n      activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n        NovaUI.Thread( function( )\\n           if saved( ) then\\n             if Nova then\\n                 Nova.app.close( )\\n                else\\n                 running = false\\n              end\\n          end\\n      end )\\n    end };\\n}\\nmenuoptions.edit = {\\n    width = 14, height = 5, spacing = false, shadow = colours.grey;\\n  { type = \\\"button\\\", name = \\\"Copy layer\\\", onClick = function( )\\n        activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n        copy( )\\n  end };\\n   { type = \\\"button\\\", name = \\\"Cut layer\\\", onClick = function( )\\n     activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n        cut( )\\n   end };\\n   \\\"rule\\\";\\n    { type = \\\"button\\\", name = \\\"Paste layer\\\", onClick = function( )\\n       activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n        paste( )\\n end };\\n}\\nmenuoptions.view = {\\n    width = 10, height = 4, spacing = false, shadow = colours.grey;\\n  { type = \\\"button\\\", name = \\\"Layers\\\", onClick = function( )\\n        activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n        if view.layers.active then view.layers.element:remove( ) else UI:newChild( view.layers.element ) end\\n     view.layers.active = not view.layers.active\\n  end };\\n   { type = \\\"button\\\", name = \\\"Colours\\\", onClick = function( )\\n       activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n        if view.colours.active then view.colours.element:remove( ) else UI:newChild( view.colours.element ) end\\n      view.colours.active = not view.colours.active\\n    end };\\n   { type = \\\"button\\\", name = \\\"Tools\\\", onClick = function( )\\n     activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n        if view.tools.active then view.tools.element:remove( ) else UI:newChild( view.tools.element ) end\\n        view.tools.active = not view.tools.active\\n    end };\\n}\\nmenuoptions.tool = {\\n    width = 15, height = 13, spacing = false, shadow = colours.grey;\\n { type = \\\"display\\\", name = \\\"\\\", getDisplay = function( )\\n      return tool.name\\n end };\\n   \\\"rule\\\";\\n    { type = \\\"button\\\", name = \\\"Brush\\\", onClick = function( )\\n     activedropdown:remove( ) if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n       setTool \\\"brush\\\" end };\\n { type = \\\"button\\\", name = \\\"Rectangle\\\", onClick = function( )\\n     activedropdown:remove( ) if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n       setTool \\\"rectangle\\\" end };\\n { type = \\\"button\\\", name = \\\"Ellipse\\\", onClick = function( )\\n       activedropdown:remove( ) if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n       setTool \\\"ellipse\\\" end };\\n   { type = \\\"button\\\", name = \\\"Line\\\", onClick = function( )\\n      activedropdown:remove( ) if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n       setTool \\\"line\\\" end };\\n  { type = \\\"button\\\", name = \\\"Fill\\\", onClick = function( )\\n      activedropdown:remove( ) if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n       setTool \\\"fill\\\" end };\\n  { type = \\\"button\\\", name = \\\"Pick colour\\\", onClick = function( )\\n       activedropdown:remove( ) if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n       setTool \\\"pick\\\" end };\\n  { type = \\\"button\\\", name = \\\"Move\\\", onClick = function( )\\n      activedropdown:remove( ) if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n       setTool \\\"move\\\" end };\\n  { type = \\\"button\\\", name = \\\"Eraser\\\", onClick = function( )\\n        activedropdown:remove( ) if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n       setTool \\\"eraser\\\" end };\\n    \\\"rule\\\";\\n    { type = \\\"menu\\\", name = \\\"size\\\", options = {\\n      shadow = colours.grey, width = 4, height = 6, spacing = false;\\n       { type = \\\"button\\\", name = \\\"1\\\", onClick = function( ) activedropdown:remove( ) if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end tool.size = 1 end };\\n     { type = \\\"button\\\", name = \\\"2\\\", onClick = function( ) activedropdown:remove( ) if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end tool.size = 2 end }; { type = \\\"button\\\", name = \\\"3\\\", onClick = function( ) activedropdown:remove( ) if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end tool.size = 3 end };\\n        { type = \\\"button\\\", name = \\\"4\\\", onClick = function( ) activedropdown:remove( ) if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end tool.size = 4 end };\\n     { type = \\\"button\\\", name = \\\"5\\\", onClick = function( ) activedropdown:remove( ) if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end tool.size = 5 end };\\n } }\\n}\\nmenuoptions.image = {\\n  width = 18, height = 11, spacing = false, shadow = colours.grey;\\n { type = \\\"menu\\\", name = \\\"Background style\\\", options = {\\n      width = 10, height = 5, spacing = false, shadow = colours.grey;\\n      { type = \\\"button\\\", name = \\\"Checker\\\", onClick = function( )\\n           activedropdown:remove( )\\n         if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n            background:foreach( function( x, y )\\n             x = math.floor( ( x + 1 ) / 2 )\\n              y = math.floor( ( y + 1 ) / 2 )\\n              local xm, ym = x % 2 == 1, y % 2 == 1\\n                if ( xm and ym ) or ( not xm and not ym ) then\\n                   return colours.lightGrey, 1, \\\" \\\"\\n               end\\n              return 1, colours.lightGrey, \\\" \\\"\\n           end )\\n        end };\\n       { type = \\\"button\\\", name = \\\"White\\\", onClick = function( )\\n         activedropdown:remove( )\\n         if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n            background:foreach( function( x, y )\\n             return 1, 1, \\\" \\\"\\n           end )\\n        end };\\n       { type = \\\"button\\\", name = \\\"Black\\\", onClick = function( )\\n         activedropdown:remove( )\\n         if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n            background:foreach( function( x, y )\\n             return 32768, 1, \\\" \\\"\\n           end )\\n        end };\\n       { type = \\\"button\\\", name = \\\"Lines\\\", onClick = function( )\\n         activedropdown:remove( )\\n         if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n            background:foreach( function( x, y )\\n             if x % 2 == 1 or y % 2 == 1 then\\n                 return 1, colours.lightGrey, \\\" \\\"\\n               end\\n              return colours.lightGrey, 1, \\\" \\\"\\n           end )\\n        end };\\n   } };\\n \\\"rule\\\";\\n    { type = \\\"button\\\", name = \\\"Resize\\\", onClick = function( )\\n        activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n        local closer = UI:newChild( NovaUI.UIButton( 1, 1, UI.w, UI.h, \\\"\\\" ) )\\n      closer.bc = 0\\n        closer.align = false\\n     local f = UI:newChild( NovaUI.UIFrame( 1, math.ceil( UI.h / 2 ) - 5, UI.w, 10 ) )\\n        f:newChild( NovaUI.UIText( 1, 1, f.w, f.h, \\\"\\\" ) ).bc = colours.blue\\n        local title = f:newChild( NovaUI.UIText( 0, 2, 6, 1, \\\"Resize\\\" ) )\\n      title:centreX( )\\n     title.bc = 0\\n     title.tc = 1\\n     local inputs = f:newChild( NovaUI.UIFrame( 0, 4, 30, 1 ) )\\n       inputs:centreX( )\\n        local buttons = f:newChild( NovaUI.UIFrame( 0, 6, 35, 3 ) )\\n      buttons:centreX( )\\n\\n        local wt = inputs:newChild( NovaUI.UIText( 1, 1, 7, 1, \\\"Width:\\\" ) )\\n        wt.bc = 0\\n        wt.tc = 1\\n        local w = inputs:newChild( NovaUI.UIInput( 0, 1, 5, 1 ) )\\n        w:align( \\\"right\\\", wt )\\n     w.bc, w.fbc = colours.lightBlue, colours.lightBlue\\n       w.text = tostring( image.w )\\n     local ht = inputs:newChild( NovaUI.UIText( 1, 1, 8, 1, \\\"Height:\\\" ) )\\n       ht:align( \\\"right\\\", w, 5 )\\n      ht.bc = 0\\n        ht.tc = 1\\n        local h = inputs:newChild( NovaUI.UIInput( 0, 1, 5, 1 ) )\\n        h:align( \\\"right\\\", ht )\\n     h.bc, h.fbc = colours.lightBlue, colours.lightBlue\\n       h.text = tostring( image.h )\\n\\n      function w:onEnter( )\\n            h:focusOn( )\\n     end\\n\\n       local function done( )\\n           if tonumber( w.text ) and tonumber( h.text ) then\\n                resize( tonumber( w.text ), tonumber( h.text ) )\\n             contentChanged( )\\n            else\\n             NovaUI.display.alert( UI, \\\"Please enter numbers\\\" )\\n         end         \\n     end\\n\\n       function h:onEnter( )\\n            done( )\\n      end\\n\\n       local confirm = buttons:newChild( NovaUI.UIButton( 1, 1, 17, 3, \\\"Confirm\\\" ) )\\n      confirm.bc = colours.lightBlue\\n       function confirm:onClick( )\\n          f:remove( )\\n          closer:remove( )\\n         done( )\\n      end\\n      local cancel = buttons:newChild( NovaUI.UIButton( 0, 1, 16, 3, \\\"Cancel\\\" ) )\\n        cancel.bc = colours.lightBlue\\n        cancel:alignTo( \\\"right\\\", confirm, 2 )\\n      function cancel:onClick( )\\n           f:remove( )\\n          closer:remove( )\\n     end\\n      function closer:onClick( )\\n           f:remove( )\\n          closer:remove( )\\n     end\\n  end };\\n   { type = \\\"display\\\", name = \\\"current: \\\", getDisplay = function( )\\n     return image.w .. \\\"x\\\" .. image.h\\n   end };\\n   \\\"rule\\\";\\n    { type = \\\"menu\\\", name = \\\"Effects\\\", options = {\\n       width = 12, height = 4, spacing = false, shadow = colours.grey;\\n      { type = \\\"button\\\", name = \\\"Greyscale\\\", onClick = function( )\\n         activedropdown:remove( )\\n         if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n            local c = {\\n              [0] = 4, [colours.white] = 0, [colours.orange] = 1, [colours.magenta] = 1, [colours.lightBlue] = 1;\\n              [colours.yellow] = 0, [colours.lime] = 1, [colours.pink] = 0, [colours.grey] = 2, [colours.lightGrey] = 1;\\n               [colours.cyan] = 2, [colours.purple] = 2, [colours.blue] = 3, [colours.brown] = 3, [colours.green] = 2;\\n              [colours.red] = 2, [colours.black] = 3;\\n          }\\n            local d = { [0] = colours.white, [1] = colours.lightGrey, [2] = colours.grey, [3] = colours.black, [4] = 0 }\\n         layers[layer].image:foreach( function( x, y, bc, tc, char )\\n              return d[c[bc]], d[c[tc]], char\\n          end )\\n            contentChanged( )\\n        end };\\n       { type = \\\"button\\\", name = \\\"Inverse\\\", onClick = function( )\\n           activedropdown:remove( )\\n         if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n            NovaUI.display.alert( UI, \\\"Not yet implemented!\\\" )\\n     end };\\n       { type = \\\"button\\\", name = \\\"Sepia\\\", onClick = function( )\\n         activedropdown:remove( )\\n         if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n            local c = {\\n              [0] = 4, [colours.white] = 0, [colours.orange] = 2, [colours.magenta] = 1, [colours.lightBlue] = 1;\\n              [colours.yellow] = 1, [colours.lime] = 1, [colours.pink] = 0, [colours.grey] = 2, [colours.lightGrey] = 1;\\n               [colours.cyan] = 2, [colours.purple] = 2, [colours.blue] = 3, [colours.brown] = 3, [colours.green] = 2;\\n              [colours.red] = 2, [colours.black] = 3;\\n          }\\n            local d = { [0] = colours.white, [1] = colours.yellow, [2] = colours.orange, [3] = colours.brown, [4] = 0 }\\n          layers[layer].image:foreach( function( x, y, bc, tc, char )\\n              return d[c[bc]], d[c[tc]], char\\n          end )\\n            contentChanged( )\\n        end };\\n   } };\\n \\\"rule\\\";\\n    { type = \\\"button\\\", name = \\\"New layer\\\", onClick = function( )\\n     activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n        NovaUI.Thread( function( )\\n           local r = NovaUI.display.response( UI, \\\"New layer name\\\" )\\n          if r then\\n                local im = NovaUI.Image( image.w, image.h )\\n              im:foreach( function( ) return 0, 0, \\\"\\\" end )\\n              newLayer( r, im )\\n                contentChanged( )\\n            end\\n      end )\\n    end };\\n   { type = \\\"button\\\", name = \\\"Remove layer\\\", onClick = function( )\\n      activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n        if #layers > 1 then\\n          table.remove( layers, layer )\\n            layer = math.max( layer - 1, 1 )\\n         setActive( layer, layers[layer].active ) -- update\\n           contentChanged( )\\n        else\\n         NovaUI.display.alert( UI, \\\"Cannot delete last layer\\\" )\\n     end\\n  end };\\n   { type = \\\"button\\\", name = \\\"Rename layer\\\", onClick = function( )\\n      activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.lightBlue activemenu = nil end\\n        NovaUI.Thread( function( )\\n           local r = NovaUI.display.response( UI, \\\"New layer name\\\" )\\n          if r then\\n                layers[layer].name = r\\n               contentChanged( )\\n            end\\n      end )\\n    end };\\n}\\n\\nfunction imageeventh:onClick( x, y, button )\\n if tools[tool.name].onClick then\\n     tools[tool.name].onClick( x, y, button )\\n end\\nend\\nfunction imageeventh:onDrag( rx, ry, cx, cy, button )\\n    if tools[tool.name].onDrag then\\n      tools[tool.name].onDrag( rx, ry, cx, cy, button )\\n    end\\nend\\n\\nfunction keyhandler:onKey( key, lastkey )\\n if lastkey == 29 then\\n        if key == keys.s then\\n            NovaUI.Thread( function( )\\n               savefile( )\\n          end )\\n        elseif key == keys.o then\\n            NovaUI.Thread( function( )\\n               if saved( ) then\\n                 local response = NovaUI.display.response( UI, \\\"Path to open from\\\" )\\n                    if response then\\n                     openfile( response .. \\\".nim\\\" )\\n                 end\\n              end\\n          end )\\n        elseif key == keys.c then\\n            copy( )\\n      elseif key == keys.x then\\n            cut( )\\n       elseif key == keys.b then\\n            paste( )\\n     end\\n  else\\n     if tools[tool.name].onKey then\\n           tools[tool.name].onKey( key )\\n        end\\n  end\\nend\\nfunction keyhandler:onChar( char )\\n   if tools[tool.name].onChar then\\n      tools[tool.name].onChar( char )\\n  end\\nend\\n\\nfor k, v in pairs( menus ) do\\n v.bc, v.tc = 0, colours.lightBlue\\n    function v:onClick( )\\n        if activemenu == v then activedropdown:remove( ) activemenu.tc = colours.lightBlue activemenu = nil return end\\n       activemenu = v\\n       v.tc = colours.white\\n     activedropdown = UI:newChild( NovaUI.UIFrame( 1, 1, UI.w, UI.h ) )\\n       local close = activedropdown:newChild( NovaUI.UIButton( 1, 1, UI.w, UI.h, \\\"\\\" ) )\\n       close.bc, close.align = 0, false\\n     function close:onClick( x, y, button )\\n           v.tc = colours.lightBlue\\n         activedropdown:remove( )\\n         if y == 1 then if Nova then os.queueEvent( \\\"mouse_click\\\", button, x, 2 ) else os.queueEvent( \\\"mouse_click\\\", button, x, 1 ) end else activemenu = nil end\\n     end\\n      local miniframe = activedropdown:newChild( NovaUI.UIFrame( v.x, v.y + 1, 0, 0 ) )\\n        NovaUI.display.menu( miniframe, menuoptions[k] )\\n     if miniframe.x + miniframe.w > activedropdown.w then\\n         miniframe.x = activedropdown.w - miniframe.w + 1\\n     end\\n  end\\nend\\n\\nif ARGS[1] then\\n   if not openfile( ARGS[1] ) then\\n      if Nova then\\n         Nova.app.close( )\\n        else\\n         running = false\\n      end\\n  end\\nelse\\n   image.w = 15\\n image.h = 10\\n imageeventh.w = 15\\n   imageeventh.h = 10\\n   local im = NovaUI.Image( 15, 10 )\\n    im:foreach( function( ) return 1, 1, \\\" \\\" end )\\n newLayer( \\\"Layer 1\\\", im )\\n  image:centre( )\\nend\\n\\nif not Nova then\\n  local function update( event, dt )\\n       if event[1] ~= \\\"update\\\" then\\n           NovaUI.Thread.update( event )\\n            UI:event( event )\\n        else\\n         NovaUI.Thread.update { \\\"update\\\", dt }\\n          UI:update( event[2] )\\n            UI:draw( )\\n           NovaUI.buffer.drawChanges( )\\n         NovaUI.buffer.clear( )\\n       end\\n  end\\n\\n   local ok, err = pcall( function( )\\n       local time = os.clock( )\\n     local timer = os.startTimer( 0 )\\n     os.queueEvent \\\"start\\\"\\n      while running do\\n         local ev = { coroutine.yield( ) }\\n            local dt = os.clock( ) - time\\n            time = os.clock( )\\n           if ev[1] == \\\"timer\\\" and ev[2] == timer then\\n                update( { \\\"update\\\" }, dt )\\n             timer = os.startTimer( 0.05 )\\n            else\\n             update( ev, dt )\\n         end\\n      end\\n  end )\\n    if not ok then\\n       print( err )\\n end\\n  term.setBackgroundColour( colours.black )\\n    term.scroll( 1 )\\n term.setCursorPos( 1, ({ term.getSize( ) })[2] )\\n term.setTextColour( colours.blue )\\n   print \\\"Thank you for using Nova Paint\\\"\\nend\",\
[\"appconfig.txt\"]=\"handles = {\\n    \\\"nova_image\\\";\\n};\",\
}\
,\
Edit={\
[\"icon.nim\"]=\"78178:77 0F 07E07d07i07t0F \\n78278:77 0F 08-08-08-08-0F \\n78378:77 0F 08-08-08-08-0F \",\
[\"main.lua\"]=\"\\nlocal ARGS = ARGS\\nif not Nova then\\n ARGS = { ... }\\nend\\n\\nif not NovaUI then\\n os.loadAPI \\\"NovaUI\\\"\\nend\\nlocal UI = Nova and Nova.app.UI or NovaUI.UIHandler( )\\nlocal running = true\\n\\nif not Nova then\\n    NovaUI.buffer.reset( )\\nend\\n\\nlocal syntax = {\\n   lua = {\\n      blocks = {\\n           { start = \\\"--[[\\\", finish = \\\"]]\\\", tc = colours.green };\\n           { start = \\\"--\\\", finish = \\\"\\\\n\\\", tc = colours.green };\\n      };\\n       words = {\\n            [\\\"while\\\"] = { tc = colours.blue };\\n         [\\\"do\\\"] = { tc = colours.blue };\\n            [\\\"if\\\"] = { tc = colours.blue };\\n            [\\\"elseif\\\"] = { tc = colours.blue };\\n            [\\\"else\\\"] = { tc = colours.blue };\\n          [\\\"then\\\"] = { tc = colours.blue };\\n          [\\\"for\\\"] = { tc = colours.blue };\\n           [\\\"in\\\"] = { tc = colours.blue };\\n            [\\\"end\\\"] = { tc = colours.blue };\\n           [\\\"local\\\"] = { tc = colours.blue };\\n         [\\\"not\\\"] = { tc = colours.blue };\\n           [\\\"and\\\"] = { tc = colours.blue };\\n           [\\\"or\\\"] = { tc = colours.blue };\\n            [\\\"function\\\"] = { tc = colours.blue };\\n          [\\\"return\\\"] = { tc = colours.blue };\\n            [\\\"for\\\"] = { tc = colours.blue };\\n           [\\\"break\\\"] = { tc = colours.blue };\\n\\n          [\\\"true\\\"] = { tc = colours.blue };\\n          [\\\"false\\\"] = { tc = colours.blue };\\n         [\\\"nil\\\"] = { tc = colours.blue };\\n       };\\n       default = { bc = colours.white, tc = colours.grey };\\n     linen = { bc = colours.grey, tc = colours.lightGrey };\\n       string = { tc = colours.red, escape = { tc = colours.brown } };\\n      tab = { tc = colours.lightGrey, char = \\\":\\\" };\\n      symbols = {\\n          [\\\"=\\\"] = { tc = colours.purple };\\n           [\\\"+\\\"] = { tc = colours.purple };\\n           [\\\"*\\\"] = { tc = colours.purple };\\n           [\\\"/\\\"] = { tc = colours.purple };\\n           [\\\"^\\\"] = { tc = colours.purple };\\n           [\\\"%\\\"] = { tc = colours.purple };\\n           [\\\">\\\"] = { tc = colours.purple };\\n           [\\\"<\\\"] = { tc = colours.purple };\\n           [\\\"#\\\"] = { tc = colours.purple };\\n       };\\n       selection = { bc = colours.blue, tc = colours.white };\\n   };\\n   default = {\\n      blocks = { };\\n        words = { a = { colours.orange } };\\n      default = { bc = colours.white, tc = colours.grey };\\n     linen = { bc = colours.grey, tc = colours.lightGrey };\\n       string = { };\\n        symbols = { };\\n       selection = { bc = colours.blue, tc = colours.white };\\n   };\\n}\\n\\nlocal taskbar = UI:newChild( NovaUI.UIFrame( 1, 1, UI.w, 1 ) )\\ntaskbar:newChild( NovaUI.UIButton( 1, 1, taskbar.w, 1, \\\"\\\" ) ).bc = colours.grey\\n\\nlocal codefield = UI:newChild( NovaUI.UICode( 1, 2, UI.w - 1, UI.h - 2, syntax.default ) )\\ncodefield:focusOn( )\\n\\nlocal scrollv = UI:newChild( NovaUI.UIScrollBar( UI.w, 2, 1, UI.h - 2, codefield, \\\"vertical\\\" ) )\\nlocal scrollh = UI:newChild( NovaUI.UIScrollBar( 1, UI.h, UI.w, 1, codefield, \\\"horizontal\\\" ) )\\n\\nlocal savepath\\nlocal activedropdown\\nlocal activemenu\\nlocal history = { \\\"\\\" }\\nlocal historyindex = 1\\nlocal changed = false\\nlocal function final( )\\n while history[historyindex + 1] do\\n       table.remove( history, historyindex + 1 )\\n    end\\nend\\n\\nlocal menus = { }\\nlocal asterix\\n\\nlocal function contentChanged( )\\n   if changed then return end\\n   changed = true\\n   if Nova then\\n     Nova.app.setTitle \\\"Edit*\\\"\\n  else\\n     for k, v in pairs( menus ) do\\n            v.x = v.x + 2\\n        end\\n      asterix = taskbar:newChild( NovaUI.UIText( 1, 1, 1, 1, \\\"*\\\" ) )\\n     asterix.bc = 0\\n       asterix.tc = 1\\n   end\\nend\\nlocal function contentSaved( )\\n   if not changed then return end\\n   if asterix then\\n      asterix:remove( )\\n    end\\n  changed = false\\n  if Nova then\\n     Nova.app.setTitle \\\"Edit\\\"\\n   else\\n     for k, v in pairs( menus ) do\\n            v.x = v.x - 2\\n        end\\n  end\\nend\\n\\nlocal function copy( )\\n    if codefield.selected then\\n       local text = codefield:getSelection( )\\n       NovaUI.clipboard.set( \\\"plaintext\\\", text )\\n  end\\nend\\nlocal function cut( )\\n    if codefield.selected then\\n       local text = codefield:getSelection( )\\n       NovaUI.clipboard.set( \\\"plaintext\\\", text )\\n      codefield:setSelection \\\"\\\"\\n      table.insert( history, codefield:getCode( ) )\\n        historyindex = #history\\n      final( )\\n     contentChanged( )\\n    end\\nend\\nlocal function paste( )\\n  local mode, data = NovaUI.clipboard.get( )\\n   if mode ~= \\\"plaintext\\\" then\\n        return\\n   end\\n  if codefield.selected then\\n       codefield:setSelection( data )\\n   else\\n     codefield:write( data )\\n  end\\n  table.insert( history, codefield:getCode( ) )\\n    historyindex = #history\\n  final( )\\n contentChanged( )\\nend\\n\\nfunction codefield:onChange( mode )\\n if mode == \\\" \\\" or mode == \\\"\\\\n\\\" or mode == \\\" \\\" or mode == \\\"paste\\\" or mode == \\\"cut\\\" or mode == \\\"backspace\\\" or mode == \\\"delete\\\" then\\n       table.insert( history, self:getCode( ) )\\n else\\n     history[math.max( #history, 1 )] = self:getCode( )\\n   end\\n  historyindex = #history\\n  final( )\\n contentChanged( )\\nend\\nlocal function undo( )\\n if historyindex > 1 then\\n     historyindex = historyindex - 1\\n      codefield:setCode( history[historyindex] )\\n       contentChanged( )\\n    end\\nend\\nlocal function redo( )\\n   if historyindex < #history then\\n      historyindex = historyindex + 1\\n      codefield:setCode( history[historyindex] )\\n       contentChanged( )\\n    end\\nend\\n\\nlocal function savefile( wait )\\n   local t = NovaUI.Thread( function( )\\n     if not savepath then\\n         savepath = NovaUI.display.response( UI, \\\"Where would you like to save?\\\" )\\n      end\\n      if not savepath then\\n         return\\n       end\\n      if Nova then\\n         Nova.filesystem.writefile( savepath, FileData( codefield:getCode( ) ) )\\n      else\\n         local h = fs.open( savepath, \\\"w\\\" )\\n         if h then\\n                h.write( codefield:getCode( ) )\\n              h.close( )\\n           else\\n             NovaUI.display.alert( UI, \\\"Could not save file!\\\" )\\n         end\\n      end\\n      contentSaved( )\\n  end )\\n    if wait then\\n     while t:isRunning( ) do\\n          coroutine.yield( )\\n       end\\n  end\\nend\\n\\nlocal function saved( )\\n   if changed then\\n      local result = NovaUI.display.confirm( UI, \\\"You have unsaved changes, would you like to save?\\\" )\\n       if result then\\n           savefile( true )\\n     end\\n      if result == nil then\\n            return false\\n     end\\n  end\\n  return true\\nend\\n\\nif Nova then\\n  function Nova.app.canClose( reason )\\n     if reason == \\\"user\\\" and changed then\\n           NovaUI.Thread( function( )\\n               if saved( ) then\\n                 Nova.app.close( )\\n                end\\n          end )\\n            return false\\n     end\\n      return true\\n  end\\nend\\n\\nlocal function openfile( path, mode )\\n if not mode and Nova then\\n        mode = Nova.filesystem.getType( path )\\n   elseif not mode then\\n     mode = \\\"lua\\\"\\n   end\\n  savepath = path\\n  local content\\n    if Nova then\\n     local filedata, err = Nova.filesystem.readfile( path )\\n       if filedata then\\n         content = filedata.content\\n       else\\n         NovaUI.display.alert( UI, err )\\n          return\\n       end\\n  else\\n     local h = fs.open( path, \\\"r\\\" )\\n     if h then\\n            content = h.readAll( )\\n           h.close( )\\n       else\\n         NovaUI.display.alert( UI, \\\"could not open file\\\" )\\n          return\\n       end\\n  end\\n  if mode == \\\"lua\\\" or mode == \\\"class\\\" or mode == \\\"lib\\\" then\\n      codefield.syntax = syntax.lua\\n    else\\n     codefield.syntax = syntax.default\\n    end\\n  codefield:setCode( content )\\n contentSaved( )\\n  history = { content }\\n    historyindex = 1\\nend\\n\\nmenus.file = taskbar:newChild( NovaUI.UIButton( 1, 1, 4, 1, \\\"File\\\" ) )\\nmenus.edit = taskbar:newChild( NovaUI.UIButton( 7, 1, 4, 1, \\\"Edit\\\" ) )\\nmenus.syntax = taskbar:newChild( NovaUI.UIButton( 13, 1, 6, 1, \\\"Syntax\\\" ) )\\nmenus.debug = taskbar:newChild( NovaUI.UIButton( 21, 1, 5, 1, \\\"Debug\\\" ) )\\nlocal menuoptions = { }\\nmenuoptions.file = {\\n   width = 10;\\n  height = 8;\\n  spacing = false;\\n shadow = colours.grey;\\n   { type = \\\"button\\\", name = \\\"New\\\", onClick = function( )\\n       activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.cyan activemenu = nil end\\n     NovaUI.Thread( function( )\\n           if saved( ) then\\n             codefield:setCode \\\"\\\"\\n               history = { \\\"\\\", \\\"\\\" }\\n             historyindex = 1\\n             contentChanged( )\\n            end\\n      end )\\n    end };\\n   { type = \\\"button\\\", name = \\\"Open\\\", onClick = function( )\\n      activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.cyan activemenu = nil end\\n     NovaUI.Thread( function( )\\n           if saved( ) then\\n             local path = NovaUI.display.response( UI, \\\"Path to open from\\\" )\\n                if path then\\n                 openfile( path )\\n             end\\n          end\\n      end )\\n    end };\\n   \\\"rule\\\";\\n    { type = \\\"button\\\", name = \\\"Save\\\", onClick = function( )\\n      activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.cyan activemenu = nil end\\n     savefile( )\\n  end };\\n   { type = \\\"button\\\", name = \\\"Save As\\\", onClick = function( )\\n       activedropdown:remove( )\\n     NovaUI.Thread( function( )\\n           local path = NovaUI.display.response( UI, \\\"Path to save as\\\" )\\n          if path then\\n             savepath = path\\n              savefile( )\\n          end\\n      end )\\n    end };\\n   \\\"rule\\\";\\n    { type = \\\"button\\\", name = \\\"Exit\\\", onClick = function( )\\n      activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.cyan activemenu = nil end\\n     NovaUI.Thread( function( )\\n           if saved( ) then\\n             if Nova then\\n                 Nova.app.close( )\\n                else\\n                 running = false\\n              end\\n          end\\n      end )\\n    end };\\n}\\nmenuoptions.edit = {\\n    width = 9;\\n   height = 8;\\n  spacing = false;\\n shadow = colours.grey;\\n   { type = \\\"button\\\", name = \\\"Undo\\\", onClick = function( )\\n      undo( )\\n      activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.cyan activemenu = nil end\\n end };\\n   { type = \\\"button\\\", name = \\\"Redo\\\", onClick = function( )\\n      redo( )\\n      activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.cyan activemenu = nil end\\n end };\\n   \\\"rule\\\";\\n    { type = \\\"button\\\", name = \\\"Copy\\\", onClick = function( )\\n      copy( )\\n      activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.cyan activemenu = nil end\\n end };\\n   { type = \\\"button\\\", name = \\\"Cut\\\", onClick = function( )\\n       cut( )\\n       activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.cyan activemenu = nil end\\n end };\\n   \\\"rule\\\";\\n    { type = \\\"button\\\", name = \\\"Paste\\\", onClick = function( )\\n     paste( )\\n     activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.cyan activemenu = nil end\\n end };\\n}\\nmenuoptions.syntax = {\\n  width = 12;\\n  height = 3;\\n  spacing = false;\\n shadow = colours.grey;\\n   { type = \\\"button\\\", name = \\\"Plain text\\\", onClick = function( )\\n        codefield.syntax = syntax.default\\n        codefield:updateCharacters( )\\n        activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.cyan activemenu = nil end\\n end };\\n   { type = \\\"button\\\", name = \\\"Lua\\\", onClick = function( )\\n       codefield.syntax = syntax.lua\\n        codefield:updateCharacters( )\\n        activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.cyan activemenu = nil end\\n end };\\n}\\nmenuoptions.debug = {\\n   width = 18;\\n  height = 5;\\n  spacing = false;\\n shadow = colours.grey;\\n   { type = \\\"button\\\", name = \\\"Run\\\", onClick = function( )\\n       activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.cyan activemenu = nil end\\n     NovaUI.Thread( function( )\\n           local f, err = loadstring( codefield:getCode( ), \\\"program\\\" )\\n           if f then\\n                local frame = UI:newChild( NovaUI.UIFrame( 1, 1, UI.w, UI.h ) )\\n              local title = frame:newChild( NovaUI.UIText( 1, 1, UI.w - 5, 1, \\\"Running...\\\" ) ) title.bc = colours.black title.tc = colours.white\\n             local close = frame:newChild( NovaUI.UIButton( UI.w - 4, 1, 5, 1, \\\"close\\\" ) ) close.bc = colours.black close.tc = colours.red\\n              function close:onClick( ) frame:remove( ) end\\n                local canvas = frame:newChild( NovaUI.UICanvas( 1, 2, UI.w, UI.h - 1 ) ) canvas:setTask( f ) canvas:passEvent( )\\n         else\\n             NovaUI.display.help( UI, \\\"Syntax error\\\", err:gsub( \\\"main:401: \\\", \\\"\\\" ) )\\n            end\\n      end )\\n    end };\\n   { type = \\\"button\\\", name = \\\"Run with params\\\", onClick = function( )\\n       activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.cyan activemenu = nil end\\n     NovaUI.Thread( function( )\\n           local r = NovaUI.display.response( UI, \\\"Please enter params, separated by a space.\\\" )\\n          local p = { }\\n            if r then\\n                local last = 1\\n               for i = 1, #r do\\n                 if r:sub( i, i ) == \\\" \\\" then\\n                       p[#p+1] = r:sub( last, i - 1 )\\n                       last = i + 1\\n                 end\\n              end\\n              p[#p+1] = r:sub( last )\\n          end\\n          local f, err = loadstring( codefield:getCode( ), \\\"program\\\" )\\n           if f then\\n                local frame = UI:newChild( NovaUI.UIFrame( 1, 1, UI.w, UI.h ) )\\n              local title = frame:newChild( NovaUI.UIText( 1, 1, UI.w - 5, 1, \\\"Running...\\\" ) ) title.bc = colours.black title.tc = colours.white\\n             local close = frame:newChild( NovaUI.UIButton( UI.w - 4, 1, 5, 1, \\\"close\\\" ) ) close.bc = colours.black close.tc = colours.red\\n              function close:onClick( ) frame:remove( ) end\\n                local canvas = frame:newChild( NovaUI.UICanvas( 1, 2, UI.w, UI.h - 1 ) ) canvas:setTask( f ) canvas:passEvent( unpack( p ) )\\n         else\\n             NovaUI.display.help( UI, \\\"Syntax error\\\", err:gsub( \\\"main:429: \\\", \\\"\\\" ) )\\n            end\\n      end )\\n    end };\\n   \\\"rule\\\";\\n    { type = \\\"button\\\", name = \\\"Check syntax\\\", onClick = function( )\\n      activedropdown:remove( )\\n     if activemenu then activemenu.tc = colours.cyan activemenu = nil end\\n     NovaUI.Thread( function( )\\n           local f, err = loadstring( codefield:getCode( ), \\\"program\\\" )\\n           if f then\\n                NovaUI.display.alert( UI, \\\"Everything looks good!\\\" )\\n           else\\n             NovaUI.display.help( UI, \\\"Syntax error\\\", err:gsub( \\\"main:446: \\\", \\\"\\\" ) )\\n            end\\n      end )\\n    end };\\n}\\n\\nfor k, v in pairs( menus ) do\\n    v.bc = 0\\n v.tc = colours.cyan\\n  function v:onClick( )\\n        if activemenu == v then\\n          activedropdown:remove( )\\n         activemenu.tc = colours.cyan\\n         activemenu = nil\\n         return\\n       end\\n      activemenu = v\\n       v.tc = colours.lightBlue\\n     local frame = UI:newChild( NovaUI.UIFrame( 1, 1, UI.w, UI.h ) )\\n      activedropdown = frame\\n       local close = frame:newChild( NovaUI.UIButton( 1, 1, UI.w, UI.h, \\\"\\\" ) )\\n        close.bc = 0\\n     close.align = false\\n      function close:onClick( x, y, button )\\n           v.tc = colours.cyan\\n          frame:remove( )\\n          if y == 1 then\\n               if Nova then\\n                 os.queueEvent( \\\"mouse_click\\\", button, x, 2 )\\n               else\\n                 os.queueEvent( \\\"mouse_click\\\", button, x, 1 )\\n               end\\n          else\\n             activemenu = nil\\n         end\\n      end\\n      local miniframe = frame:newChild( NovaUI.UIFrame( v.x, v.y + 1, 0, 0 ) )\\n     NovaUI.display.menu( miniframe, menuoptions[k] )\\n     if miniframe.x + miniframe.w > frame.w then\\n          miniframe.x = frame.w - miniframe.w + 1\\n      end\\n  end\\nend\\n\\nlocal keyhandler = UI:newChild( NovaUI.UIKeyHandler( 0, 0, 0, 0 ) )\\n\\nfunction keyhandler:onKey( key, lastkey )\\n    if lastkey == 29 then\\n        if key == 31 then -- ctrl-s\\n          savefile( )\\n      elseif key == 24 then -- ctrl-o\\n          NovaUI.Thread( function( )\\n               if saved( ) then\\n                 local path = NovaUI.display.response( UI, \\\"Path to open from\\\" )\\n                    if path then\\n                     openfile( path )\\n                 end\\n              end\\n          end )\\n        elseif key == keys.z then\\n            undo( )\\n      elseif key == keys.y then\\n            redo( )\\n      end\\n  end\\nend\\nfunction codefield:onCtrlKey( key )\\n  if key == 31 then -- ctrl-s\\n      savefile( )\\n  elseif key == 24 then -- ctrl-o\\n      NovaUI.Thread( function( )\\n           if saved( ) then\\n             local path = NovaUI.display.response( UI, \\\"Path to open from\\\" )\\n                if path then\\n                 openfile( path )\\n             end\\n          end\\n      end )\\n    elseif key == keys.z then\\n        undo( )\\n  elseif key == keys.y then\\n        redo( )\\n  end\\nend\\n\\nif ARGS[1] then\\n   openfile( ARGS[1], ARGS[2] )\\nend\\n\\nif not Nova then\\n local function update( event, dt )\\n       if event[1] ~= \\\"update\\\" then\\n           NovaUI.Thread.update( event )\\n            UI:event( event )\\n        else\\n         NovaUI.Thread.update { \\\"update\\\", dt }\\n          UI:update( event[2] )\\n            UI:draw( )\\n           NovaUI.buffer.drawChanges( )\\n         NovaUI.buffer.clear( )\\n       end\\n  end\\n\\n   local ok, err = pcall( function( )\\n       local time = os.clock( )\\n     local timer = os.startTimer( 0 )\\n     os.queueEvent \\\"start\\\"\\n      while running do\\n         local ev = { coroutine.yield( ) }\\n            local dt = os.clock( ) - time\\n            time = os.clock( )\\n           if ev[1] == \\\"timer\\\" and ev[2] == timer then\\n                update( { \\\"update\\\" }, dt )\\n             timer = os.startTimer( 0.05 )\\n            else\\n             update( ev, dt )\\n         end\\n      end\\n  end )\\n    if not ok then\\n       print( err )\\n end\\n  term.setBackgroundColour( colours.black )\\n    term.scroll( 1 )\\n term.setCursorPos( 1, ({ term.getSize( ) })[2] )\\n term.setTextColour( colours.blue )\\n   print \\\"Thank you for using Nova Edit\\\"\\nend\",\
[\"appconfig.txt\"]=\"handles = {\\n    \\\"text\\\";\\n    \\\"lua\\\";\\n \\\"unknown\\\";\\n \\\"lib\\\";\\n \\\"class\\\";\\n};\",\
}\
,\
Test={\
[\"main.lua\"]=\"\\nlocal random = Nova.app.service.Desktop[1].misc\\nNovaUI.display.alert( Nova.app.UI, random, true )\\nNova.app.close( )\",\
}\
,\
BBTetris={\
[\"appconfig.txt\"]=\"runmode = \\\"compatibility\\\";\\nfullscreen = true;\",\
[\"main.lua\"]=\"-- +---------------------+------------+---------------------+\\n-- |   ##      #     #   |            |  ##      #     ##   |\\n-- |    ##     #     ##  |  BBTetris  |  ##      ##     #   |\\n-- |          ##     #   |    ####    |           #     #   |\\n-- +---------------------+------------+---------------------+\\n\\nlocal version = \\\"Version 1.0.4\\\"\\n\\n-- Yet another version of Tetris, by Jeffrey Alexander (aka Bomb Bloke).\\n-- Heavily based on the old \\\"Brick Game\\\"s you may've once seen.\\n-- http://www.computercraft.info/forums2/index.php?/topic/15878-bbtetris\\n\\n---------------------------------------------\\n------------Variable Declarations------------\\n---------------------------------------------\\n\\n-- Seven regular blocks, six \\\"advanced\\\" blocks, three \\\"trick\\\" blocks.\\nlocal block = {\\n{{1,1,0},{0,1,1}},{{0,1,0},{0,1,0},{0,1,0},{0,1,0}},{{0,1,1},{1,1,0}},{{1,1},{1,1}},{{1,1,1},{0,1,0},\\n{0,0,0}},{{1,1,1},{0,0,1}},{{1,1,1},{1,0,0}},{{1,1,0},{0,1,0},{0,1,1}},{{1,1},{0,1}},{{1,0,0},{1,1,1},\\n{1,0,0}},{{0,1,0},{1,1,1},{0,1,0}},{{1},{1}},{{1,1,1},{1,0,1}},{{1}},{{1},{1}},{{1},{1},{1}}}\\n\\n-- The menu numerals. Eight in all.\\nlocal number = {\\n{{5,1},{4,1,1},{5,1},{5,1},{5,1},{5,1},{4,1,1,1}},{{4,1,1,1},{3,1,0,0,0,1},{7,1},{6,1},{5,1},{4,1},\\n{3,1,1,1,1,1}},{{4,1,1,1},{3,1,0,0,0,1},{7,1},{4,1,1,1},{7,1},{3,1,0,0,0,1},{4,1,1,1}},{{6,1},{5,1,1},\\n{4,1,0,1},{3,1,0,0,1},{3,1,0,0,1},{3,1,1,1,1,1},{6,1}},{{3,1,1,1,1,1},{3,1},{3,1,1,1,1},{7,1},{7,1},\\n{3,1,0,0,0,1},{4,1,1,1}},{{4,1,1,1},{3,1,0,0,0,1},{3,1},{3,1,1,1,1},{3,1,0,0,0,1},{3,1,0,0,0,1},\\n{4,1,1,1}},{{3,1,1,1,1,1},{7,1},{6,1},{5,1},{5,1},{4,1},{4,1}},{{4,1,1,1},{3,1,0,0,0,1},{3,1,0,0,0,1},\\n{4,1,1,1},{3,1,0,0,0,1},{3,1,0,0,0,1},{4,1,1,1}}}\\n\\nlocal gamemode, speed, level, running, grid, saves, canSave, playMusic = 1, 0, 0, true, {}, {}, true, true\\nlocal highScore, screenx, screeny, myEvent, mon, OGeventPuller, skipIntro, skipMonitor, defaultMonitor\\n\\nlocal musicFile = \\\"rom/songs/Tetris A Theme.nbs\\\"\\n\\n---------------------------------------------\\n------------Function Declarations------------\\n---------------------------------------------\\n\\n-- Return to shell.\\nlocal function exitGame(erroring)\\n  if canSave then\\n    myEvent = fs.open(shell.resolve(\\\".\\\")..\\\"\\\\\\\\bbtetris.dat\\\", \\\"w\\\")\\n    myEvent.writeLine(\\\"Save data file for Bomb Bloke's Tetris game.\\\")\\n    myEvent.writeLine(string.gsub(textutils.serialize(highScore),\\\"\\\\n%s*\\\",\\\"\\\"))\\n    myEvent.writeLine(string.gsub(textutils.serialize(saves),\\\"\\\\n%s*\\\",\\\"\\\"))\\n    myEvent.close()\\n  end\\n\\n  term.setBackgroundColor(colours.black)\\n  term.setTextColor(colours.white)\\n  \\n  if mon then\\n    term.clear()\\n    if term.restore then term.restore() else term.redirect(mon.restoreTo) end\\n  end\\n  \\n  if note then os.unloadAPI(\\\"note\\\") end\\n  \\n  term.clear()\\n  term.setCursorPos(1,1)\\n  if erroring then print(erroring..\\\"\\\\n\\\") end  \\n  print(\\\"Thanks for playing!\\\")\\n  \\n  if (shell.resolve(\\\".\\\") == \\\"disk\\\") and not fs.exists(\\\"\\\\\\\\bbtetris\\\") then\\n    print(\\\"\\\\nIf you wish to copy me to your internal drive (for play without the disk - this allows saving of score data etc), type:\\\\n\\\\ncp \\\\\\\\disk\\\\\\\\bbtetris \\\\\\\\bbtetris\\\\n\\\")\\n  end\\n\\n  os.pullEvent = OGeventPuller\\n  error()\\nend\\n\\n-- Writes regular text at the specified location on the screen.\\nlocal function writeAt(text, x , y)\\n  term.setBackgroundColor(colours.black)\\n  term.setTextColor(colours.white)\\n  term.setCursorPos(screenx+x,screeny+y)\\n  term.write(text)\\nend\\n\\n-- Returns whether a given event was a touch event this program should listen to.\\nlocal function touchedMe()\\n  if myEvent[1] == \\\"mouse_click\\\" then return true\\n  elseif myEvent[1] ~= \\\"monitor_touch\\\" or not mon then return false\\n  else return mon.side == myEvent[2] end\\nend\\n\\n-- Returns whether one of a given set of keys was pressed.\\nlocal function pressedKey(...)\\n  if myEvent[1] ~= \\\"key\\\" then return false end\\n  for i=1,#arg do if arg[i] == myEvent[2] then return true end end\\n  return false\\nend\\n\\n-- Returns whether a click was performed at a given location.\\n-- If two parameters are passed, it checks to see if x is [1] and y is [2].\\n-- If three parameters are passed, it checks to see if x is [1] and y is between [2]/[3] (non-inclusive).\\n-- If four paramaters are passed, it checks to see if x is between [1]/[2] and y is between [3]/[4] (non-inclusive).\\nlocal function clickedAt(...)\\n  if not touchedMe() then return false end\\n  if #arg == 2 then return (myEvent[3] == arg[1]+screenx and myEvent[4] == arg[2]+screeny)\\n  elseif #arg == 3 then return (myEvent[3] == arg[1]+screenx and myEvent[4] > arg[2]+screeny and myEvent[4] < arg[3]+screeny)\\n  else return (myEvent[3] > arg[1]+screenx and myEvent[3] < arg[2]+screenx and myEvent[4] > arg[3]+screeny and myEvent[4] < arg[4]+screeny) end\\nend\\n\\n-- Ensures the wrapped monitor is suitable for play.\\nlocal function enforceScreenSize()\\n  term.setBackgroundColor(colours.black)\\n  term.setTextColor(colours.white)\\n  \\n  while true do\\n    local scale = 5\\n    mon.setTextScale(scale)\\n    screenx,screeny = term.getSize()\\n\\n    term.clear()\\n    term.setCursorPos(1,1)\\n\\n    while (screenx < 50 or screeny < 19) and scale > 0.5 do\\n      scale = scale - 0.5\\n      mon.setTextScale(scale)\\n      screenx,screeny = term.getSize()\\n    end\\n\\n    if screenx > 49 and screeny > 18 then\\n      screenx,screeny = math.floor(screenx/2)-10, math.floor(screeny/2)-9\\n      return\\n    else print(\\\"Make this display out of at least three by two monitor blocks, or tap me to quit.\\\") end\\n    \\n    while true do\\n      myEvent = {os.pullEvent()}\\n    \\n      if myEvent[1] == \\\"monitor_resize\\\" then break\\n      elseif myEvent[1] == \\\"key\\\" or touchedMe() or myEvent[1] == \\\"terminate\\\" then exitGame()\\n      elseif myEvent[1] == \\\"peripheral_detach\\\" and mon then\\n        if myEvent[2] == mon.side then exitGame(\\\"I've lost my monitor - your turtle didn't mine it, I hope?\\\") end\\n      elseif myEvent[1] == \\\"musicFinished\\\" then os.queueEvent(\\\"musicPlay\\\",musicFile) end\\n    end\\n  end\\nend\\n\\n-- Draws the frame around the playing area, along with other static stuff.\\nlocal function drawBorder()\\n  term.setBackgroundColor(colours.black)\\n  term.clear()\\n  \\n  writeAt(\\\"High\\\",14,11)\\n  writeAt(\\\"Level\\\",14,14)\\n  writeAt(\\\"Speed\\\",14,17)\\n  \\n  writeAt(\\\"[H]elp\\\",-6,2)\\n  writeAt(\\\"[Q]uit\\\",22,2)\\n  \\n  writeAt(\\\"[ ] Advanced\\\",22,14)\\n  writeAt(\\\"[ ] Tricks\\\",22,16)\\n  writeAt(\\\"[ ] Quota\\\",22,18)\\n  \\n  term.setBackgroundColor(term.isColor() and colours.yellow or colours.white)\\n  term.setTextColor(term.isColor() and colours.lightGrey or colours.black)\\n  \\n  term.setCursorPos(screenx+1,screeny)\\n  term.write(string.rep(\\\"L\\\",20))\\n  term.setCursorPos(screenx+1,screeny+20)\\n  term.write(string.rep(\\\"L\\\",20))\\n  term.setCursorPos(screenx+13,screeny+6)\\n  term.write(string.rep(\\\"L\\\",7))\\n  \\n  for i=1,19 do\\n    term.setCursorPos(screenx+1,screeny+i)\\n    term.write(\\\"L\\\")\\n    term.setCursorPos(screenx+12,screeny+i)\\n    term.write(\\\"L\\\")\\n    term.setCursorPos(screenx+20,screeny+i)\\n    term.write(\\\"L\\\")\\n  end\\nend\\n\\n-- Draws the big numbers indicating the game mode on the main menu (plus associated data).\\nlocal function drawNumeral()\\n  term.setTextColor(term.isColor() and colours.lightGrey or colours.black)\\n  \\n  for i=1,7 do\\n    term.setCursorPos(screenx+2,screeny+i+6)\\n    term.setBackgroundColor(colours.black)\\n    term.write(string.rep(\\\" \\\",10))\\n    term.setBackgroundColor(term.isColor() and colours.blue or colours.white)\\n    \\n    for j=2,#number[gamemode][i] do if number[gamemode][i][j] == 1 then\\n      term.setCursorPos(screenx+number[gamemode][i][1]+j,screeny+i+6)\\n      term.write(\\\"L\\\")\\n    end end\\n  end\\n  \\n  term.setBackgroundColor(colours.black)\\n  term.setTextColor(term.isColor() and colours.green or colours.white)\\n  \\n  for i=0,2 do\\n    term.setCursorPos(screenx+23,screeny+14+i*2)\\n    term.write(bit.band(gamemode-1,bit.blshift(1,i))==bit.blshift(1,i) and \\\"O\\\" or \\\" \\\")\\n  end\\n  \\n  writeAt(string.rep(\\\" \\\",6-#tostring(highScore[gamemode]))..tostring(highScore[gamemode]),13,12)\\nend\\n\\n-- Fill the grid with random blocks according to the chosen level.\\nlocal function fillGrid()\\n  term.setBackgroundColor(bit.band(gamemode-1,4)==4 and colours.red or colours.white)\\n  term.setTextColor(term.isColor() and colours.lightGrey or colours.black)\\n  \\n  for i=1,level+(bit.band(gamemode-1,4)==4 and 1 or 0) do\\n    grid[i] = {}\\n    for j=1,10 do if math.random(2) > 1 then\\n      term.setCursorPos(screenx+j+1,screeny+20-i)\\n      term.write(\\\"L\\\")\\n      grid[i][j] = bit.band(gamemode-1,4)==4 and 14 or 32\\n    end end\\n  end\\n  \\n  if bit.band(gamemode-1,4)==4 then for i=level+2,19 do grid[i] = {} end end\\nend\\n\\n-- Do the game over animation.\\nlocal function gameover()\\n  term.setBackgroundColor(term.isColor() and colours.black or colours.white)\\n  term.setTextColor(term.isColor() and colours.lightGrey or colours.black)\\n  for i=19,1,-1 do\\n    term.setCursorPos(screenx+2,screeny+i)\\n    term.write(string.rep(\\\"L\\\",10))\\n    blockTimer = os.startTimer(0.1)\\n    while myEvent[2] ~= blockTimer do myEvent = {os.pullEvent(\\\"timer\\\")} end\\n  end\\n  \\n  term.setBackgroundColor(colours.black)\\n  for i=1,19 do\\n    term.setCursorPos(screenx+2,screeny+i)\\n    term.write(string.rep(\\\" \\\",10))\\n    blockTimer = os.startTimer(0.1)\\n    while myEvent[2] ~= blockTimer do myEvent = {os.pullEvent(\\\"timer\\\")} end\\n  end\\nend\\n\\n-- Renders the block (or clears that area of the screen if not \\\"drawing\\\").\\nlocal function drawBlock(thisBlock,rotation,xpos,ypos,drawing,flicker)\\n  if thisBlock > 13 and not drawing then\\n    term.setTextColor(term.isColor() and colours.lightGrey or colours.black)\\n    for y=1,#block[thisBlock] do\\n      term.setCursorPos(screenx+xpos+1,screeny+ypos+y-1)\\n      if grid[21-ypos-y][xpos] ~= nil then\\n        term.setBackgroundColor(term.isColor() and bit.blshift(1,grid[20-ypos][xpos]) or colours.white)\\n        term.write(\\\"L\\\")\\n      else\\n        term.setBackgroundColor(colours.black)\\n        term.write(\\\" \\\")\\n      end\\n    end\\n    return\\n  end\\n  \\n  if drawing and thisBlock > 13 then\\n    term.setBackgroundColor(term.isColor() and (flicker and colours.white or colours.black) or (flicker and colours.black or colours.white))\\n  else\\n    term.setBackgroundColor(drawing and (term.isColor() and bit.blshift(1,thisBlock) or colours.white) or colours.black)\\n  end\\n  \\n  term.setTextColor(term.isColor() and colours.lightGrey or (flicker and colours.white or colours.black))\\n    \\n  for y=1,#block[thisBlock] do for x=1,#block[thisBlock][1] do if block[thisBlock][y][x] == 1 then\\n    if rotation == 0 then\\n      term.setCursorPos(screenx+xpos+x,screeny+ypos+y-1)\\n    elseif rotation == 1 then\\n      term.setCursorPos(screenx+xpos+#block[thisBlock]+1-y,screeny+ypos+x-1)\\n    elseif rotation == 2 then\\n      term.setCursorPos(screenx+xpos+#block[thisBlock][1]+1-x,screeny+ypos+#block[thisBlock]-y)\\n    elseif rotation == 3 then\\n      term.setCursorPos(screenx+xpos+y,screeny+ypos+#block[thisBlock][1]-x)\\n    end\\n    \\n    term.write(drawing and \\\"L\\\" or \\\" \\\")\\n  end end end\\nend\\n\\n-- Returns whether the block can move into the specified position.\\nlocal function checkBlock(thisBlock,rotation,xpos,ypos)\\n  if thisBlock == 14 then\\n    if xpos < 1 or xpos > 10 then return false end\\n    for y = 1,20-ypos do if grid[y][xpos] == nil then return true end end\\n    return false\\n  end      \\n  \\n  local checkX, checkY\\n  \\n  for y=1,#block[thisBlock] do for x=1,#block[thisBlock][1] do if block[thisBlock][y][x] == 1 then\\n    if rotation == 0 then\\n      checkX, checkY = xpos+x-1, ypos+y-1\\n    elseif rotation == 1 then\\n      checkX, checkY = xpos+#block[thisBlock]-y, ypos+x-1\\n    elseif rotation == 2 then\\n      checkX, checkY = xpos+#block[thisBlock][1]-x, ypos+#block[thisBlock]-y\\n    elseif rotation == 3 then\\n      checkX, checkY = xpos+y-1, ypos+#block[thisBlock][1]-x\\n    end\\n    \\n    if checkX < 1 or checkX > 10 or checkY < 1 or checkY > 19 or grid[20-checkY][checkX] ~= nil then return false end\\n  end end end\\n  \\n  return true\\nend\\n\\n-- Redraw the game view after a monitor re-size.\\nlocal function redrawGame(score)\\n  drawBorder()\\n  \\n  writeAt(\\\"[P]ause\\\",22,4)\\n  if note then writeAt(\\\"[M]usic\\\",22,6) end\\n  writeAt(\\\"Next\\\",14,1)\\n  writeAt(\\\"Score\\\",14,8)\\n  writeAt(string.rep(\\\" \\\",6-#tostring(score))..tostring(score),13,9)\\n  writeAt(string.rep(\\\" \\\",6-#tostring(highScore[gamemode]))..tostring(highScore[gamemode]),13,12)\\n  writeAt((level>9 and \\\"\\\" or \\\" \\\")..tostring(level),17,15)\\n  writeAt(tostring(speed),18,18)\\n  \\n  term.setBackgroundColor(colours.black)\\n  term.setTextColor(term.isColor() and colours.green or colours.white)\\n  \\n  for i=0,2 do\\n    term.setCursorPos(screenx+23,screeny+14+i*2)\\n    term.write(bit.band(gamemode-1,bit.blshift(1,i))==bit.blshift(1,i) and \\\"O\\\" or \\\" \\\")\\n  end\\n  \\n  term.setTextColor(term.isColor() and colours.lightGrey or colours.black)\\n  for yy=1,19 do\\n    term.setCursorPos(screenx+2,screeny+yy)\\n    for xx=1,10 do if grid[20-yy][xx] ~= nil then\\n      term.setBackgroundColor(term.isColor() and bit.blshift(1,grid[20-yy][xx]) or colours.white)\\n      term.write(\\\"L\\\")\\n    else\\n      term.setBackgroundColor(colours.black)\\n      term.write(\\\" \\\")\\n    end end\\n  end\\nend\\n\\nlocal function intro()\\n  local temp\\n  \\n  local introBlock = {\\n  {11,2,4},{12,2,4},{13,2,4},{14,2,4},{15,2,4},{16,2,4},{17,2,4},{18,2,4},{19,2,4},{20,2,4},{21,2,4},{22,2,4},{23,2,4},\\n  {24,2,4},{25,2,4},{8,3,4},{9,3,4},{10,3,4},{26,3,4},{27,3,4},{29,3,11},{5,4,4},{6,4,4},{7,4,4},{13,4,11},{14,4,11},\\n  {15,4,11},{16,4,11},{17,4,11},{18,4,11},{29,4,11},{31,4,4},{32,4,4},{33,4,4},{46,4,4},{9,5,11},{10,5,11},{11,5,11},\\n  {12,5,11},{14,5,11},{29,5,11},{34,5,4},{44,5,4},{45,5,4},{14,6,11},{25,6,11},{26,6,11},{27,6,11},{29,6,11},{35,6,4},\\n  {36,6,4},{37,6,4},{43,6,4},{14,7,11},{20,7,11},{21,7,11},{22,7,11},{23,7,11},{28,7,11},{29,7,11},{38,7,4},{39,7,4},\\n  {40,7,4},{41,7,4},{42,7,4},{15,8,11},{19,8,11},{24,8,11},{28,8,11},{30,8,11},{31,8,11},{8,9,14},{9,9,14},{15,9,11},\\n  {19,9,11},{20,9,11},{25,9,11},{28,9,11},{45,9,11},{46,9,11},{47,9,11},{4,10,14},{5,10,14},{7,10,14},{10,10,14},\\n  {15,10,11},{19,10,11},{21,10,11},{22,10,11},{23,10,11},{24,10,11},{28,10,11},{35,10,11},{36,10,11},{37,10,11},\\n  {44,10,11},{48,10,11},{3,11,14},{6,11,14},{8,11,14},{9,11,14},{10,11,14},{11,11,14},{14,11,11},{19,11,11},{29,11,11},\\n  {32,11,11},{34,11,11},{38,11,11},{41,11,11},{44,11,11},{4,12,14},{5,12,14},{6,12,14},{9,12,14},{12,12,14},{14,12,11},\\n  {20,12,11},{23,12,11},{29,12,11},{33,12,11},{44,12,11},{45,12,11},{4,13,14},{7,13,14},{9,13,14},{10,13,14},\\n  {11,13,14},{21,13,11},{22,13,11},{29,13,11},{34,13,11},{39,13,11},{40,13,11},{46,13,11},{47,13,11},{4,14,14},\\n  {5,14,14},{6,14,14},{7,14,14},{29,14,11},{34,14,11},{40,14,11},{48,14,11},{10,15,4},{11,15,4},{12,15,4},{13,15,4},\\n  {14,15,4},{15,15,4},{40,15,11},{44,15,11},{48,15,11},{9,16,4},{16,16,4},{17,16,4},{18,16,4},{19,16,4},{20,16,4},\\n  {21,16,4},{22,16,4},{40,16,11},{45,16,11},{46,16,11},{47,16,11},{6,17,4},{7,17,4},{8,17,4},{23,17,4},{24,17,4},\\n  {25,17,4},{26,17,4},{42,17,4},{43,17,4},{44,17,4},{27,18,4},{28,18,4},{29,18,4},{30,18,4},{31,18,4},{32,18,4},\\n  {33,18,4},{34,18,4},{35,18,4},{36,18,4},{37,18,4},{38,18,4},{39,18,4},{40,18,4},{41,18,4}}\\n\\n  term.setBackgroundColor(colours.black)\\n  term.clear()\\n  \\n  writeAt(version,36-#version,19)\\n  \\n  term.setBackgroundColor(term.isColor() and colours.yellow or colours.white)\\n  term.setTextColor(term.isColor() and colours.lightGrey or colours.black)\\n  \\n  term.setCursorPos(screenx-15,screeny)\\n  term.write(string.rep(\\\"L\\\",53))\\n  term.setCursorPos(screenx-15,screeny+20)\\n  term.write(string.rep(\\\"L\\\",53))\\n  \\n  for i=1,19 do\\n    term.setCursorPos(screenx-15,screeny+i)\\n    term.write(\\\"L\\\")\\n    term.setCursorPos(screenx+37,screeny+i)\\n    term.write(\\\"L\\\")\\n  end\\n\\n  while #introBlock > 0 do\\n    for i=1,5 do if #introBlock > 0 then\\n      temp = math.random(#introBlock)\\n      if term.isColor() then term.setBackgroundColor(math.pow(2,introBlock[temp][3])) end\\n      term.setCursorPos(screenx-15+introBlock[temp][1],screeny+introBlock[temp][2])\\n      term.write(\\\"L\\\")\\n      table.remove(introBlock,temp)\\n    end end\\n    \\n    temp = os.startTimer(0)\\n    \\n    while true do\\n      myEvent = {os.pullEvent()}\\n      \\n      if myEvent[1] == \\\"timer\\\" and myEvent[2] == temp then\\n        break\\n      elseif myEvent[1] ~= \\\"timer\\\" then\\n        return\\n      end\\n    end    \\n  end\\n  \\n  temp = os.startTimer(2)\\n  os.pullEvent()\\nend\\n\\n---------------------------------------------\\n------------      Help Pages     ------------\\n---------------------------------------------\\n\\n-- Draw the frame for the help screen.\\nlocal function prepareHelp()\\n  term.setBackgroundColor(colours.black)\\n  term.clear()\\n  \\n  writeAt(\\\"^\\\",35,2)\\n  writeAt(\\\"|\\\",35,3)\\n  writeAt(\\\"X\\\",35,10)\\n  writeAt(\\\"|\\\",35,17)\\n  writeAt(\\\"v\\\",35,18)\\n  \\n  term.setBackgroundColor(term.isColor() and colours.yellow or colours.white)\\n  term.setTextColor(term.isColor() and colours.lightGrey or colours.black)\\n  \\n  term.setCursorPos(screenx-15,screeny)\\n  term.write(string.rep(\\\"L\\\",53))\\n  term.setCursorPos(screenx-15,screeny+20)\\n  term.write(string.rep(\\\"L\\\",53))\\n  \\n  for i=1,19 do\\n    term.setCursorPos(screenx-15,screeny+i)\\n    term.write(\\\"L\\\")\\n    term.setCursorPos(screenx+37,screeny+i)\\n    term.write(\\\"L\\\")\\n  end\\nend\\n\\n-- Write a given page of the manual.\\nlocal function writeHelp(page)\\n  local manual\\n  \\n  if page == 1 then\\n    manual =\\n    {\\\"BBTetris (\\\"..version..\\\")\\\",\\n    string.rep(\\\"-\\\",11+#version),\\n    \\\"\\\",\\n    \\\"By Jeffrey Alexander, aka Bomb Bloke.\\\",\\n    \\\"\\\",\\n    \\\"Yet another Tetris clone, this one for\\\",\\n    \\\"ComputerCraft.\\\",\\n    \\\"\\\",\\n    \\\"Playable via mouse when used with a touch-\\\",\\n    \\\"capable display. If using an external\\\",\\n    \\\"monitor, at least 3x2 blocks is required,\\\",\\n    \\\"while 5x3 is recommended.\\\"}\\n  elseif page == 2 then\\n    manual =\\n    {\\\"Basic Controls\\\",\\n    \\\"--------------\\\",\\n    \\\"\\\",\\n    \\\"Use your arrow keys (or WSAD) for most\\\",\\n    \\\"actions.\\\",\\n    \\\"\\\",\\n    \\\"On the main menu, left alters your level,\\\",\\n    \\\"whilst right alters your speed. Use up/down\\\",\\n    \\\"to change your game mode and space to start.\\\",\\n    \\\"\\\",\\n    \\\"Mouse-users may instead click the speed /\\\",\\n    \\\"level / game mode toggles to change them,\\\",\\n    \\\"then click the play area to begin.\\\"}\\n  elseif page == 3 then\\n    manual =\\n    {\\\"Playing\\\",\\n    \\\"-------\\\",\\n    \\\"\\\",\\n    \\\"Blocks fall according to the current speed,\\\",\\n    \\\"which increases every 10k points. You win\\\",\\n    \\\"if you somehow manage to reach 100k.\\\",\\n    \\\"\\\",\\n    \\\"Use the down arrow to drop the block\\\",\\n    \\\"quickly, or the up arrow to rotate it.\\\",\\n    \\\"\\\",\\n    \\\"Space / enter can be used to rotate in the\\\",\\n    \\\"opposite direction.\\\",\\n    \\\"\\\",\\n    \\\"100 points for a line, 300 for two, 700 for\\\",\\n    \\\"three and 1500 for a Tetris (four lines)!\\\"}\\n  elseif page == 4 then\\n    manual =\\n    {\\\"Playing (Mouse)\\\",\\n    \\\"---------------\\\",\\n    \\\"\\\",\\n    \\\"Clicking the left side of the grid moves the\\\",\\n    \\\"block to the left, and clicking the right\\\",\\n    \\\"functions in a similar manner.\\\",\\n    \\\"\\\",\\n    \\\"Click the bottom of the grid to move the\\\",\\n    \\\"block down quickly, or on the block itself\\\",\\n    \\\"to rotate. You may click outside the main\\\",\\n    \\\"play area to rotate the other way.\\\",\\n    \\\"\\\",\\n    \\\"The scroll-wheel can also be used to rotate\\\",\\n    \\\"or move downwards quickly.\\\"}\\n  elseif page == 5 then\\n    manual =\\n    {\\\"Alternate Modes\\\",\\n    \\\"---------------\\\",\\n    \\\"\\\",\\n    \\\"There are three optional game modes\\\",\\n    \\\"available, which can be combined together to\\\",\\n    \\\"make your game easier/harder as is your\\\",\\n    \\\"whim.\\\",\\n    \\\"\\\",\\n    \\\"Advanced mode increases the block pool to\\\",\\n    \\\"nearly double, making for a more complex\\\",\\n    \\\"game. Tricks come in the form of one of\\\",\\n    \\\"three rare blocks, each of which has a\\\",\\n    \\\"unique power. Quota mode tasks you to clear\\\",\\n    \\\"pre-filled grids in order to advance levels.\\\"}\\n  end\\n  \\n  for i=1,17 do\\n    if manual[i] then\\n      writeAt(manual[i]..string.rep(\\\" \\\",44-#manual[i]),-13,i+1)\\n    else\\n      writeAt(string.rep(\\\" \\\",44),-13,i+1)\\n    end\\n  end\\nend\\n\\n-- Explain stuff.\\nlocal function help()\\n  local page = 1\\n  prepareHelp()\\n  writeHelp(page)\\n  \\n  while true do\\n    myEvent = {os.pullEvent()}\\n    \\n    if clickedAt(35,10) or pressedKey(keys.h,keys.x,keys.q) then\\n      return\\n    elseif myEvent[1] == \\\"monitor_resize\\\" and mon then\\n      if myEvent[2] == mon.side then\\n        enforceScreenSize()\\n        prepareHelp()\\n        writeHelp(page)\\n      end\\n    elseif clickedAt(35,1,4) or pressedKey(keys.w,keys.up) or (myEvent[1] == \\\"mouse_scroll\\\" and myEvent[2] == -1) then\\n      page = (page==1) and 5 or (page-1)\\n      writeHelp(page)\\n    elseif clickedAt(35,16,19) or pressedKey(keys.s,keys.down) or (myEvent[1] == \\\"mouse_scroll\\\" and myEvent[2] == 1) then\\n      page = (page==5) and 1 or (page+1)\\n      writeHelp(page)\\n    elseif myEvent[1] == \\\"terminate\\\" then\\n      exitGame()\\n    elseif myEvent[1] == \\\"musicFinished\\\" then\\n      os.queueEvent(\\\"musicPlay\\\",musicFile)\\n    end    \\n  end  \\nend\\n\\n---------------------------------------------\\n------------      Main Menu      ------------\\n---------------------------------------------\\n\\nlocal function menu()\\n  running = true\\n  drawNumeral()\\n  writeAt((level>9 and \\\"\\\" or \\\" \\\")..tostring(level),17,15)\\n  writeAt(tostring(speed),18,18)\\n  \\n  while running do\\n    myEvent = {os.pullEvent()}\\n    \\n    if pressedKey(keys.left,keys.a) or clickedAt(13,19,13,16) then\\n      level = (level == 12) and 0 or (level+1)\\n      writeAt((level>9 and \\\"\\\" or \\\" \\\")..tostring(level),17,15)\\n    elseif pressedKey(keys.right,keys.d) or clickedAt(13,19,16,19) then\\n      speed = (speed == 9) and 0 or (speed+1)\\n      writeAt(tostring(speed),18,18)\\n    elseif pressedKey(keys.space,keys.enter) or clickedAt(1,12,0,20) then\\n      running = false\\n    elseif (touchedMe() and myEvent[3] < screenx and myEvent[4] == screeny + 2) or pressedKey(keys.h) then\\n      help()\\n      drawBorder()\\n      drawNumeral()\\n      writeAt((level>9 and \\\"\\\" or \\\" \\\")..tostring(level),17,15)\\n      writeAt(tostring(speed),18,18)\\n    elseif pressedKey(keys.up,keys.w) or (myEvent[1] == \\\"mouse_scroll\\\" and myEvent[2] == -1) then\\n      gamemode = (gamemode == 1) and 8 or (gamemode-1)\\n      drawNumeral()\\n    elseif pressedKey(keys.down,keys.s) or (myEvent[1] == \\\"mouse_scroll\\\" and myEvent[2] == 1) then\\n      gamemode = (gamemode == 8) and 1 or (gamemode+1)\\n      drawNumeral()\\n    elseif pressedKey(keys.x,keys.q) then\\n      os.pullEvent(\\\"char\\\")\\n      exitGame()\\n    elseif myEvent[1] == \\\"terminate\\\" then\\n      exitGame()\\n    elseif touchedMe() and myEvent[3] > screenx+21 then\\n      term.setTextColor(term.isColor() and colours.red or colours.white)\\n      term.setCursorPos(myEvent[3],myEvent[4])\\n      for i=0,2 do if myEvent[4] == screeny + 14 + i * 2 then\\n        gamemode = gamemode + (bit.band(gamemode-1,bit.blshift(1,i))==bit.blshift(1,i) and (-bit.blshift(1,i)) or bit.blshift(1,i))\\n        drawNumeral()\\n        break\\n      end end\\n      if myEvent[4] == screeny + 2 then exitGame() end\\n    elseif myEvent[1] == \\\"monitor_resize\\\" and mon then\\n      if myEvent[2] == mon.side then\\n        enforceScreenSize()\\n        drawBorder()\\n        drawNumeral()\\n        writeAt((level>9 and \\\"\\\" or \\\" \\\")..tostring(level),17,15)\\n        writeAt(tostring(speed),18,18)\\n      end\\n    elseif myEvent[1] == \\\"peripheral_detach\\\" and mon then\\n      if myEvent[2] == mon.side then exitGame(\\\"I've lost my monitor - your turtle didn't mine it, I hope?\\\") end\\n    end\\n  end\\nend\\n\\n---------------------------------------------\\n------------Primary Game Function------------\\n---------------------------------------------\\n\\nlocal function game()\\n  local falling, knocked, score, curBlock, nextSpeed, startSpeed, startLevel, loaded, rotation = true, false, 0, 1, 9999, speed, level, false, 0\\n  local nextBlock = math.random(bit.band(gamemode,1)==1 and 7 or 13)\\n  local x, y, blockTimer, lines, held, flicker, flickerTimer\\n  \\n  os.queueEvent(\\\"musicPlay\\\",musicFile)\\n  os.queueEvent(playMusic and \\\"musicResume\\\" or \\\"musicPause\\\")\\n  \\n  for i=1,19 do grid[i] = {} end\\n  \\n  -- Resume an old game?\\n  if saves[gamemode] then\\n    writeAt(\\\" Load old \\\",2,9)\\n    writeAt(\\\"   game   \\\",2,10)\\n    writeAt(\\\"[Y]es [N]o\\\",2,11)\\n    \\n    while true do\\n      myEvent = {os.pullEvent()}\\n          \\n      if pressedKey(keys.y) or clickedAt(3,11) then\\n        running = true\\n        break\\n      elseif pressedKey(keys.n) or clickedAt(9,11) then\\n        running = false\\n        break\\n      elseif myEvent[1] == \\\"monitor_resize\\\" and mon then\\n        if myEvent[2] == mon.side then\\n          enforceScreenSize()\\n          redrawGame(score)\\n            \\n          writeAt(\\\" Load old \\\",2,9)\\n          writeAt(\\\"   game   \\\",2,10)\\n          writeAt(\\\"[Y]es [N]o\\\",2,11)\\n        end\\n      elseif myEvent[1] == \\\"peripheral_detach\\\" and mon then\\n        if myEvent[2] == mon.side then exitGame(\\\"I've lost my monitor - your turtle didn't mine it, I hope?\\\") end\\n      elseif myEvent[1] == \\\"terminate\\\" then\\n        exitGame()      \\n      end\\n    end\\n    \\n    if running then\\n      x          = saves[gamemode][\\\"x\\\"]\\n      y          = saves[gamemode][\\\"y\\\"]\\n      rotation   = saves[gamemode][\\\"rotation\\\"]\\n      curBlock   = saves[gamemode][\\\"curBlock\\\"]\\n      nextBlock  = saves[gamemode][\\\"nextBlock\\\"]\\n      score      = saves[gamemode][\\\"score\\\"]\\n      speed      = saves[gamemode][\\\"speed\\\"]\\n      nextSpeed  = saves[gamemode][\\\"nextSpeed\\\"]\\n      startSpeed = saves[gamemode][\\\"startSpeed\\\"]\\n      level      = saves[gamemode][\\\"level\\\"]\\n      startLevel = saves[gamemode][\\\"startLevel\\\"]\\n      grid       = saves[gamemode][\\\"grid\\\"]\\n      saves[gamemode] = nil\\n      loaded = true\\n    end\\n  end \\n\\n  running = true\\n\\n  -- Clear off the menu.\\n  term.setBackgroundColor(colours.black)\\n  for i=1,7 do\\n    term.setCursorPos(screenx+2,screeny+i+6)\\n    term.write(string.rep(\\\" \\\",10))\\n  end  \\n  \\n  if loaded then\\n    term.setTextColor(term.isColor() and colours.lightGrey or colours.black)\\n    for yy=1,19 do\\n      term.setCursorPos(screenx+2,screeny+yy)\\n      for xx=1,10 do if grid[20-yy][xx] ~= nil then\\n        term.setBackgroundColor(term.isColor() and bit.blshift(1,grid[20-yy][xx]) or colours.white)\\n        term.write(\\\"L\\\")\\n      else\\n        term.setBackgroundColor(colours.black)\\n        term.write(\\\" \\\")\\n      end end\\n    end  \\n  else fillGrid() end\\n\\n  writeAt(\\\"[P]ause\\\",22,4)\\n  if note then writeAt(\\\"[M]usic\\\",22,6) end\\n  writeAt(\\\"Next\\\",14,1)\\n  writeAt(\\\"Score\\\",14,8)\\n  writeAt(string.rep(\\\" \\\",6-#tostring(score))..tostring(score),13,9)\\n  writeAt((level>9 and \\\"\\\" or \\\" \\\")..tostring(level),17,15)\\n  writeAt(tostring(speed),18,18)\\n  \\n  -- Primary game loop.  \\n  while running do\\n    if rotation < 4 then  -- The last type of block \\\"may\\\" persist after line checks.\\n      if loaded then\\n        loaded = false\\n      else\\n        curBlock = nextBlock\\n      \\n        -- Change the \\\"next block\\\" display.\\n        drawBlock(nextBlock,0,(#block[nextBlock][1] < 3 and 15 or 14),(#block[nextBlock] < 3 and 3 or 2), false, false)\\n        nextBlock = math.random(bit.band(gamemode,1)==1 and 7 or 13)\\n        \\n        -- Trick block will be next!\\n        if bit.band(gamemode-1,2)==2 and math.random(20) == 20 then nextBlock = 13 + math.random(3) end\\n      \\n        -- Prepare a new falling block.\\n        x, y, rotation = (#block[curBlock][1] < 4 and 5 or 4), 1, 0\\n      end\\n      \\n      drawBlock(nextBlock,0,(#block[nextBlock][1] < 3 and 15 or 14),(#block[nextBlock] < 3 and 3 or 2), true, nextBlock>13)\\n      drawBlock(curBlock,rotation,x,y,true,false)\\n          \\n      -- Can play continue?\\n      if checkBlock(curBlock,rotation,x,y) then\\n        falling, knocked, flicker, blockTimer, flickerTimer = true, false, false, os.startTimer((10-speed)/10), os.startTimer(0.3)\\n      else running = false end\\n    else\\n      falling, rotation, flickerTimer = true, 0, os.startTimer(0)\\n      drawBlock(curBlock,rotation,x,y,true,flicker)\\n    end\\n    \\n    -- Stuff that happens while a block falls.\\n    while falling do\\n      myEvent = {os.pullEvent()}\\n      \\n      -- Is the user still holding down \\\"down\\\" after the last block fell?\\n      if held then\\n        if not ((myEvent[1] == \\\"timer\\\" and myEvent[2] ~= blockTimer)\\n          or pressedKey(keys.down,keys.s) or myEvent[1] == \\\"char\\\")\\n          then held = false end\\n      end\\n      \\n      -- Trick blocks flash.\\n      if myEvent[1] == \\\"timer\\\" and myEvent[2] == flickerTimer and curBlock > 13 then\\n        flicker = not flicker\\n        flickerTimer = os.startTimer(0.3)\\n        drawBlock(curBlock,rotation,x,y,true,flicker)\\n\\n      elseif curBlock > 14 and (clickedAt(x,x+1+(bit.band(rotation,1)==1 and #block[curBlock] or #block[curBlock][1]),y-1,y+(bit.band(rotation,1)==1 and #block[curBlock][1] or #block[curBlock])) or pressedKey(keys.up,keys.w,keys.space,keys.enter)) then\\n        \\n        -- Erasure!\\n        if curBlock == 15 then\\n          for i=18-y,1,-1 do if grid[i][x] ~= nil then\\n            term.setCursorPos(screenx+1+x,screeny+20-i)\\n            term.setBackgroundColor(colours.black)\\n            term.write(\\\" \\\")\\n            grid[i][x] = nil\\n            break\\n          end end\\n          \\n          if bit.band(gamemode-1,4)==4 then\\n            -- Possible to fulfil the quota here without creating a line.\\n            lines = 0\\n            for yy=1,19 do for xx=1,10 do if grid[xx][yy] == 14 then\\n              yy=19\\n              xx=10\\n              lines = 1\\n            end end end\\n          \\n            if lines ~= 1 then\\n              score = score + 10000\\n              level = level + 1\\n              rotation = 0\\n              falling = false\\n              gameover()\\n              fillGrid()\\n              \\n              writeAt(string.rep(\\\" \\\",6-#tostring(score))..tostring(score),13,9)\\n        \\n              if score > 99999 then running = false end\\n        \\n              -- Check for a score record.        \\n              if score > highScore[gamemode] then\\n                highScore[gamemode] = score\\n                writeAt(string.rep(\\\" \\\",6-#tostring(highScore[gamemode]))..tostring(highScore[gamemode]),13,12)\\n              end\\n        \\n              writeAt((level>9 and \\\"\\\" or \\\" \\\")..tostring(level),17,15)\\n              \\n              -- Increment speed.\\n              nextSpeed = nextSpeed + 10000\\n              speed = (speed==9) and 9 or (speed+1)\\n              writeAt(tostring(speed),18,18)\\n            end\\n          end\\n          \\n        -- Fill!\\n        elseif curBlock == 16 and grid[17-y][x] == nil then\\n          rotation = 1\\n          for i=1,16-y do if grid[i][x] ~= nil then rotation = i+1 end end\\n          term.setCursorPos(screenx+1+x,screeny+20-rotation)\\n          term.setBackgroundColor(colours.white)\\n          term.setTextColor(term.isColor() and colours.lightGrey or colours.black)\\n          term.write(\\\"L\\\")\\n          grid[rotation][x] = 32\\n          falling, rotation = false, 20 + rotation  -- Rotation used here as a flag to indicate we're still actually falling.\\n        end\\n        \\n      -- Block rotation.\\n      elseif (clickedAt(x,x+1+(bit.band(rotation,1)==1 and #block[curBlock] or #block[curBlock][1]),y-1,y+(bit.band(rotation,1)==1 and #block[curBlock][1] or #block[curBlock])) or pressedKey(keys.up,keys.w) or (myEvent[1] == \\\"mouse_scroll\\\" and myEvent[2] == -1)) and checkBlock(curBlock,rotation==3 and 0 or (rotation+1),x,y) then\\n        drawBlock(curBlock,rotation,x,y,false,flicker)\\n        rotation = (rotation==3) and 0 or (rotation+1)\\n        drawBlock(curBlock,rotation,x,y,true,flicker)  \\n          \\n      elseif (myEvent[1] == \\\"timer\\\" and myEvent[2] == blockTimer) or clickedAt(1,12,17,20) or (pressedKey(keys.down,keys.s) and not held) or (myEvent[1] == \\\"mouse_scroll\\\" and myEvent[2] == 1) then\\n        \\n        -- Move the block down if we can.\\n        if checkBlock(curBlock,rotation,x,y+1) then\\n          drawBlock(curBlock,rotation,x,y,false,flicker)\\n          y = y + 1\\n          drawBlock(curBlock,rotation,x,y,true,flicker)\\n          knocked = false\\n          \\n        -- Brick's stopped moving down, add it to the grid.\\n        elseif knocked then\\n          if curBlock < 15 then\\n            for yy=1,#block[curBlock] do for xx=1,#block[curBlock][1] do if block[curBlock][yy][xx] == 1 then\\n              if rotation == 0 then\\n                grid[21-y-yy][x+xx-1] = (curBlock == 14 and 15 or curBlock)\\n              elseif rotation == 1 then\\n                grid[21-y-xx][x+#block[curBlock]-yy] = (curBlock == 14 and 15 or curBlock)\\n              elseif rotation == 2 then\\n                grid[20-y-#block[curBlock]+yy][x+#block[curBlock][1]-xx] = (curBlock == 14 and 15 or curBlock)\\n              elseif rotation == 3 then\\n                grid[20-y-#block[curBlock][1]+xx][x+yy-1] = (curBlock == 14 and 15 or curBlock)\\n              end\\n            end end end\\n          end\\n          \\n          if curBlock > 13 then drawBlock(curBlock,rotation,x,y,curBlock==14,false) end\\n          falling = false\\n          held = true -- This is used to stop the NEXT block being pelted downwards if you were holding a \\\"down\\\" button.\\n          \\n        -- Brick has \\\"knocked\\\" other bricks, but hasn't yet locked in place.\\n        else knocked = true end\\n        \\n        if falling then blockTimer = os.startTimer((10-speed)/10) end\\n      \\n      -- Pause the game.\\n      elseif (myEvent[1] == \\\"monitor_resize\\\" and mon) or pressedKey(keys.p) or (touchedMe() and myEvent[3] > screenx+21 and myEvent[4] == screeny+4) then\\n        -- Something altered my monitor!\\n        if myEvent[1] == \\\"monitor_resize\\\" and mon then\\n          if myEvent[2] == mon.side then\\n            enforceScreenSize()\\n            redrawGame(score)\\n            drawBlock(curBlock,rotation,x,y,true,flicker)\\n            drawBlock(nextBlock,0,(#block[nextBlock][1] < 3 and 15 or 14),(#block[nextBlock] < 3 and 3 or 2), true, nextBlock>13)\\n          end\\n        end  \\n        \\n        writeAt(\\\"  PAUSED  \\\",2,10)\\n        blockTimer = os.startTimer(1)\\n        \\n        while true do\\n          myEvent = {os.pullEvent()}\\n          \\n          if myEvent[1] == \\\"key\\\" or touchedMe() then\\n            break\\n          elseif myEvent[1] == \\\"monitor_resize\\\" and mon then\\n            if myEvent[2] == mon.side then\\n              enforceScreenSize()\\n              redrawGame(score)\\n              drawBlock(curBlock,rotation,x,y,true,flicker)\\n              drawBlock(nextBlock,0,(#block[nextBlock][1] < 3 and 15 or 14),(#block[nextBlock] < 3 and 3 or 2), true, nextBlock>13)\\n            \\n              falling = not falling\\n              writeAt(falling and \\\"  PAUSED  \\\" or string.rep(\\\" \\\",10),2,10)\\n              blockTimer = os.startTimer(1)\\n            end\\n          elseif myEvent[1] == \\\"timer\\\" and myEvent[2] == blockTimer then\\n            falling = not falling\\n            writeAt(falling and \\\"  PAUSED  \\\" or string.rep(\\\" \\\",10),2,10)\\n            blockTimer = os.startTimer(1)\\n          elseif myEvent[1] == \\\"peripheral_detach\\\" and mon then\\n           if myEvent[2] == mon.side then exitGame(\\\"I've lost my monitor - your turtle didn't mine it, I hope?\\\") end\\n          elseif myEvent[1] == \\\"terminate\\\" then\\n            exitGame()\\n          elseif myEvent[1] == \\\"musicFinished\\\" then\\n            os.queueEvent(\\\"musicPlay\\\",musicFile)\\n          end\\n        end\\n                  \\n        term.setTextColor(term.isColor() and colours.lightGrey or colours.black)\\n        term.setCursorPos(screenx+2,screeny+10)\\n        for xx=1,10 do if grid[10][xx] ~= nil then\\n          term.setBackgroundColor(term.isColor() and bit.blshift(1,grid[10][xx]) or colours.white)\\n          term.write(\\\"L\\\")\\n        else\\n          term.setBackgroundColor(colours.black)\\n          term.write(\\\" \\\")\\n        end end\\n        drawBlock(curBlock,rotation,x,y,true,flicker)\\n        blockTimer, flickerTimer, falling = os.startTimer((10-speed)/10), os.startTimer(0.3), true\\n        \\n      -- Toggle music playback.\\n      elseif pressedKey(keys.m) or (touchedMe() and myEvent[3] > screenx+21 and myEvent[4] == screeny+6) then\\n        playMusic = not playMusic\\n        os.queueEvent(playMusic and \\\"musicResume\\\" or \\\"musicPause\\\")\\n        \\n      -- Repeat music.\\n      elseif myEvent[1] == \\\"musicFinished\\\" then\\n        os.queueEvent(\\\"musicPlay\\\",musicFile)\\n      \\n      -- Display the help screen.\\n      elseif (touchedMe() and myEvent[3] < screenx and myEvent[4] == screeny + 2) or pressedKey(keys.h) then\\n        help()\\n        redrawGame(score)\\n        drawBlock(curBlock,rotation,x,y,true,flicker)\\n        drawBlock(nextBlock,0,(#block[nextBlock][1] < 3 and 15 or 14),(#block[nextBlock] < 3 and 3 or 2), true, nextBlock>13)\\n        blockTimer, flickerTimer = os.startTimer((10-speed)/10), os.startTimer(0.3)\\n      \\n      -- User is attempting to end game.\\n      elseif pressedKey(keys.x,keys.q) or (touchedMe() and myEvent[3] > screenx+21 and myEvent[4] == screeny+2) then\\n        if canSave then\\n          writeAt(\\\" Save the \\\",2,9)\\n          writeAt(\\\"   game   \\\",2,10)\\n          writeAt(\\\"[Y]es [N]o\\\",2,11)\\n\\n          while true do\\n            myEvent = {os.pullEvent()}\\n            \\n            if pressedKey(keys.y) or clickedAt(3,11) then\\n              running = true\\n              break\\n            elseif pressedKey(keys.n) or clickedAt(9,11) then\\n              running = false\\n              break\\n            elseif myEvent[1] == \\\"monitor_resize\\\" and mon then\\n              if myEvent[2] == mon.side then\\n                enforceScreenSize()\\n                redrawGame(score)\\n                drawBlock(curBlock,rotation,x,y,true,flicker)\\n                drawBlock(nextBlock,0,(#block[nextBlock][1] < 3 and 15 or 14),(#block[nextBlock] < 3 and 3 or 2), true, nextBlock>13)\\n            \\n                writeAt(\\\" Save the \\\",2,9)\\n                writeAt(\\\"   game   \\\",2,10)\\n                writeAt(\\\"[Y]es [N]o\\\",2,11)\\n              end\\n            elseif myEvent[1] == \\\"peripheral_detach\\\" and mon then\\n              if myEvent[2] == mon.side then exitGame(\\\"I've lost my monitor - your turtle didn't mine it, I hope?\\\") end\\n            elseif myEvent[1] == \\\"terminate\\\" then\\n              exitGame()\\n            end\\n          end\\n        else running = false end\\n\\n        -- User wants to save current progress.\\n        if running then\\n          saves[gamemode] = {}\\n          saves[gamemode][\\\"x\\\"] = x\\n          saves[gamemode][\\\"y\\\"] = y\\n          saves[gamemode][\\\"rotation\\\"] = rotation\\n          saves[gamemode][\\\"curBlock\\\"] = curBlock\\n          saves[gamemode][\\\"nextBlock\\\"] = nextBlock\\n          saves[gamemode][\\\"score\\\"] = score\\n          saves[gamemode][\\\"speed\\\"] = speed\\n          saves[gamemode][\\\"nextSpeed\\\"] = nextSpeed\\n          saves[gamemode][\\\"startSpeed\\\"] = startSpeed\\n          saves[gamemode][\\\"level\\\"] = level\\n          saves[gamemode][\\\"startLevel\\\"] = startLevel\\n          saves[gamemode][\\\"grid\\\"] = {}\\n          for yy=1,19 do\\n            saves[gamemode][\\\"grid\\\"][yy] = {}\\n            for a,b in pairs(grid[yy]) do saves[gamemode][\\\"grid\\\"][yy][a] = b end\\n          end\\n        end\\n        \\n        falling, running, rotation = false, false, 10  -- Rotation used here as a flag to bypass the \\\"game over\\\" animation.\\n      \\n      -- User is trying to out-right quit the game.\\n      elseif myEvent[1] == \\\"terminate\\\" then\\n        exitGame()\\n      \\n      -- Move block left.\\n      elseif (clickedAt(1,7,0,18) or pressedKey(keys.left,keys.a)) and checkBlock(curBlock,rotation,x-1,y) then\\n        drawBlock(curBlock,rotation,x,y,false,flicker)\\n        x = x - 1\\n        drawBlock(curBlock,rotation,x,y,true,flicker)\\n       \\n      -- Move block right.\\n      elseif (clickedAt(6,12,0,18) or pressedKey(keys.right,keys.d)) and checkBlock(curBlock,rotation,x+1,y) then\\n        drawBlock(curBlock,rotation,x,y,false,flicker)\\n        x = x + 1\\n        drawBlock(curBlock,rotation,x,y,true,flicker)\\n        \\n      -- Rotating the other way.\\n      elseif ((touchedMe() and (myEvent[3] < screenx+1 or myEvent[3] > screenx+12)) or pressedKey(keys.space,keys.enter)) and checkBlock(curBlock,rotation==0 and 3 or (rotation-1),x,y) and curBlock < 14 then\\n        drawBlock(curBlock,rotation,x,y,false,flicker)\\n        rotation = (rotation==0) and 3 or (rotation-1)\\n        drawBlock(curBlock,rotation,x,y,true,flicker)         \\n      \\n      elseif myEvent[1] == \\\"peripheral_detach\\\" and mon then\\n        if myEvent[2] == mon.side then exitGame(\\\"I've lost my monitor - your turtle didn't mine it, I hope?\\\") end\\n      end  \\n    end\\n    \\n    -- Look for complete lines.\\n    if running then\\n      lines = {}\\n      for yy=((rotation>3) and (40-rotation) or y),((rotation>3) and (40-rotation) or y+(bit.band(rotation,1)==1 and #block[curBlock][1] or #block[curBlock])-1) do\\n        falling = true\\n        \\n        for xx=1,10 do if yy < 20 then\\n          if grid[20-yy][xx] == nil then\\n            falling = false\\n            break\\n          end\\n        else falling = false end end\\n        \\n        if falling then\\n          lines[#lines+1] = yy\\n          table.remove(grid,20-yy)\\n          grid[19] = {}\\n        end\\n      end\\n      \\n      if #lines > 0 then\\n        \\n        -- Blink the complete lines a few times.\\n        falling = true\\n        term.setBackgroundColor(term.isColor() and colours.black or colours.white)\\n        term.setTextColor(term.isColor() and colours.lightGrey or colours.black)\\n        for i=1,6 do\\n          if not term.isColor() then term.setBackgroundColor(falling and colours.white or colours.black) end\\n          for j=1,#lines do\\n            term.setCursorPos(screenx+2,screeny+lines[j])\\n            term.write(string.rep(falling and \\\"L\\\" or \\\" \\\",10))\\n          end\\n          falling = not falling\\n          \\n          blockTimer = os.startTimer(0.1)\\n          while myEvent[2] ~= blockTimer do myEvent = {os.pullEvent(\\\"timer\\\")} end\\n        end\\n        \\n        -- Collapse the on-screen grid.\\n        for yy=1,lines[#lines] do\\n          term.setCursorPos(screenx+2,screeny+yy)\\n          for xx=1,10 do if grid[20-yy][xx] ~= nil then\\n            term.setBackgroundColor(term.isColor() and bit.blshift(1,grid[20-yy][xx]) or colours.white)\\n            term.write(\\\"L\\\")\\n          else\\n            term.setBackgroundColor(colours.black)\\n            term.write(\\\" \\\")\\n          end end\\n        end\\n        \\n        if bit.band(gamemode-1,4)==4 then\\n          -- Quota reached?\\n          for yy=1,19 do for xx=1,10 do if grid[xx][yy] == 14 then\\n            yy=19\\n            xx=10\\n            lines = 1\\n          end end end\\n          \\n          if lines ~= 1 then\\n            score = score + 10000\\n            level = level + 1\\n            rotation = 0\\n            falling = false\\n            gameover()\\n            fillGrid()\\n          end\\n        else\\n          -- Increment score in the usual way.\\n          if #lines == 1 then\\n            score = score + 100\\n          elseif #lines == 2 then\\n            score = score + 300\\n          elseif #lines == 3 then\\n            score = score + 700\\n          elseif #lines == 4 then\\n            score = score + 1500\\n          end\\n        end\\n        \\n        writeAt(string.rep(\\\" \\\",6-#tostring(score))..tostring(score),13,9)\\n        \\n        if score > 99999 then running = false end\\n        \\n        -- Check for a score record.        \\n        if score > highScore[gamemode] then\\n          highScore[gamemode] = score\\n          writeAt(string.rep(\\\" \\\",6-#tostring(highScore[gamemode]))..tostring(highScore[gamemode]),13,12)\\n        end\\n        \\n        writeAt((level>9 and \\\"\\\" or \\\" \\\")..tostring(level),17,15)\\n        \\n        -- Increment speed?\\n        if score > nextSpeed then\\n          nextSpeed = nextSpeed + 10000\\n          speed = (speed==9) and 9 or (speed+1)\\n          writeAt(tostring(speed),18,18)\\n        end\\n        \\n        blockTimer = os.startTimer((10-speed)/10)\\n      end\\n    end\\n  end\\n\\n  -- Game over.\\n  if rotation < 4 then\\n    writeAt(score < 100000 and \\\"GAME  OVER\\\" or \\\"!!WINNER!!\\\",2,10)\\n    \\n    -- Assign bonus points.\\n    score = score + (100*startSpeed) + startLevel\\n    writeAt(string.rep(\\\" \\\",6-#tostring(score))..tostring(score),13,9)\\n    \\n    -- Check for a score record.        \\n    if score > highScore[gamemode] then\\n      highScore[gamemode] = score\\n      writeAt(string.rep(\\\" \\\",6-#tostring(highScore[gamemode]))..tostring(highScore[gamemode]),13,12)\\n    end\\n\\n    gameover()\\n  end\\n\\n  speed = startSpeed\\n  level = startLevel\\nend\\n\\n---------------------------------------------\\n------------         Init        ------------\\n---------------------------------------------\\n\\n-- Override the event-puller.\\nOGeventPuller = os.pullEvent\\nos.pullEvent = os.pullEventRaw\\n\\n-- Load the INI file.\\nif fs.exists(shell.resolve(\\\".\\\")..\\\"\\\\\\\\bbtetris.ini\\\") then\\n  local readIn, readTable  \\n  myEvent = fs.open(shell.resolve(\\\".\\\")..\\\"\\\\\\\\bbtetris.ini\\\", \\\"r\\\")\\n  readIn = myEvent.readLine()  \\n  \\n  while readIn do\\n    readTable = {}\\n    readIn = readIn:gsub(\\\"=\\\",\\\" \\\"):lower()\\n    for i in readIn:gmatch(\\\"%S+\\\") do readTable[#readTable+1] = i end    \\n    \\n    if readTable[1] == \\\"nointro\\\" and readTable[2] then\\n      if readTable[2] == \\\"yes\\\" or readTable[2] == \\\"y\\\" or readTable[2] == \\\"true\\\" or readTable[2] == \\\"on\\\" or readTable[2] == \\\"1\\\" then skipIntro = true end\\n    elseif readTable[1] == \\\"nomonitor\\\" and readTable[2] then\\n      if readTable[2] == \\\"yes\\\" or readTable[2] == \\\"y\\\" or readTable[2] == \\\"true\\\" or readTable[2] == \\\"on\\\" or readTable[2] == \\\"1\\\" then skipMonitor = true end\\n    elseif readTable[1] == \\\"defaultmonitorside\\\" and readTable[2] then\\n      defaultMonitor = readTable[2]\\n    elseif readTable[1] == \\\"defaultspeed\\\" and tonumber(readTable[2]) then\\n      if tonumber(readTable[2]) > -1 and tonumber(readTable[2]) < 10 then speed = tonumber(readTable[2]) end\\n    elseif readTable[1] == \\\"defaultlevel\\\" and tonumber(readTable[2]) then\\n      if tonumber(readTable[2]) > -1 and tonumber(readTable[2]) < 13 then level = tonumber(readTable[2]) end\\n    elseif readTable[1] == \\\"defaultmode\\\" and tonumber(readTable[2]) then\\n      if tonumber(readTable[2]) > 0 and tonumber(readTable[2]) < 9 then gamemode = tonumber(readTable[2]) end\\n    elseif readTable[1] == \\\"nomusic\\\" and readTable[2] then\\n      if readTable[2] == \\\"yes\\\" or readTable[2] == \\\"y\\\" or readTable[2] == \\\"true\\\" or readTable[2] == \\\"on\\\" or readTable[2] == \\\"1\\\" then playMusic = false end \\n    end\\n      \\n    readIn = myEvent.readLine()\\n  end\\n  \\n  myEvent.close()\\nelse\\n  myEvent = fs.open(shell.resolve(\\\".\\\")..\\\"\\\\\\\\bbtetris.ini\\\", \\\"w\\\")\\n  \\n  if myEvent then\\n    myEvent.writeLine(\\\"NoIntro = \\\")\\n    myEvent.writeLine(\\\"NoMonitor = \\\")\\n    myEvent.writeLine(\\\"NoMusic = \\\")\\n    myEvent.writeLine(\\\"DefaultMonitorSide = \\\")\\n    myEvent.writeLine(\\\"DefaultSpeed = \\\")\\n    myEvent.writeLine(\\\"DefaultLevel = \\\")\\n    myEvent.writeLine(\\\"DefaultMode = \\\")\\n    myEvent.close()\\n  else canSave = false end\\nend\\n\\n-- Load saved data.\\nif fs.exists(shell.resolve(\\\".\\\")..\\\"\\\\\\\\bbtetris.dat\\\") then\\n  myEvent = fs.open(shell.resolve(\\\".\\\")..\\\"\\\\\\\\bbtetris.dat\\\", \\\"r\\\")\\n  highScore = myEvent.readLine()\\n  highScore = textutils.unserialize(myEvent.readLine())\\n  saves = textutils.unserialize(myEvent.readLine())\\n  myEvent.close()\\nend\\n\\nif type(highScore) == \\\"table\\\" then\\n  for i=#highScore+1,8 do highScore[i] = 0 end\\nelse\\n  highScore = {}\\n  for i=1,8 do highScore[i] = 0 end\\nend\\n\\n-- Look for a monitor to use.\\nif not skipMonitor then\\n  if defaultMonitor then\\n    if peripheral.getType(defaultMonitor) == \\\"monitor\\\" and peripheral.call(defaultMonitor, \\\"isColour\\\") then\\n      term.clear()\\n      term.setCursorPos(1,1)\\n      print(\\\"Game in progress on attached display...\\\")\\n            \\n      mon = peripheral.wrap(defaultMonitor)\\n      mon.side = defaultMonitor\\n      if not term.restore then mon.restoreTo = term.current() end\\n      term.redirect(mon)\\n      enforceScreenSize()\\n    else \\n      exitGame(\\\"The \\\\\\\"monitor\\\\\\\" at location \\\\\\\"\\\"..defaultMonitor..\\\"\\\\\\\" (specified in \\\\\\\"bbtetris.ini\\\\\\\") is invalid. Please fix that.\\\")\\n    end\\n  else\\n    local sides = peripheral.getNames()\\n\\n    for i=1,#sides do if peripheral.getType(sides[i]) == \\\"monitor\\\" and peripheral.call(sides[i], \\\"isColour\\\") then\\n      print(\\\"\\\")\\n      print(\\\"I see a colour monitor attached - do you wish to use it (y/n)?\\\")\\n            \\n      while true do\\n        myEvent = {os.pullEvent(\\\"char\\\")}\\n   \\n        if myEvent[2]:lower() == \\\"y\\\" then\\n          term.clear()\\n          term.setCursorPos(1,1)\\n          print(\\\"Game in progress on attached display...\\\")\\n      \\n          mon = peripheral.wrap(sides[i])\\n          mon.side = sides[i]\\n          if not term.restore then mon.restoreTo = term.current() end\\n          term.redirect(mon)\\n          enforceScreenSize()\\n          break\\n        elseif myEvent[2]:lower() == \\\"n\\\" then\\n          break\\n        end\\n      end\\n\\n      break\\n    end end\\n  end\\nend\\n\\n-- Ensure the display is suitable.\\nscreenx,screeny = term.getSize()\\n\\nif screenx < 50 or screeny < 19 then error(\\\"\\\\nA minimum display resolution of 50 columns by 19 rows is required.\\\\n\\\\nIf you're trying to run me on eg a turtle, please try a regular computer.\\\\n\\\",0) end\\n\\nscreenx,screeny = math.floor(screenx/2)-10, math.floor(screeny/2)-9\\n\\n-- Load the music player, if possible.\\nif peripheral.find and peripheral.find(\\\"iron_note\\\") and fs.exists(\\\"rom/programs/note\\\") and fs.exists(musicFile) then os.loadAPI(\\\"rom/programs/note\\\") end\\n\\n-- Show the splash screen.\\nif not skipIntro then intro() end\\n\\n---------------------------------------------\\n------------  Main Program Loop  ------------\\n---------------------------------------------\\n\\nwhile true do\\n  drawBorder()\\n  menu()\\n  if note then parallel.waitForAny(game, note.songEngine) else game() end\\nend\",\
[\"credit.txt\"]=\"All credit for this program goes to Bomb Bloke\",\
}\
,\
Desktop={\
[\"appconfig.txt\"]=\"services = {\\n   \\\"launcher\\\";\\n}\",\
[\"main.lua\"]=\"\\nlocal backgrounds = {\\n    computer = [[00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 B0 00 00 00 B0 00 00 B0 B0 B0 00 00 B0 00 00 00 B0 00 00 00 B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 B0 B0 00 00 B0 00 B0 00 00 00 B0 00 B0 00 00 00 B0 00 00 B0 00 B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 B0 00 B0 00 B0 00 B0 00 00 00 B0 00 B0 00 00 00 B0 00 B0 00 00 00 B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 B0 00 00 B0 B0 00 B0 00 00 00 B0 00 00 B0 00 B0 00 00 B0 B0 B0 B0 B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 B0 00 00 00 B0 00 00 B0 B0 B0 00 00 00 00 B0 00 00 00 B0 00 00 00 B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \\n00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ]];\\n    turtle = [[]];\\n   pocket = [[]];\\n}\\n\\nlocal folder = [[10 10 10       \\n40 40 40 40 40 \\n40 40 40 40 4F>]]\\nlocal appicon = [[      BF BF BF BF BF       \\n      3F 3Ea3Ep3Ep3F       \\n      9F 9F 9F 9F 9F       ]]\\n\\nlocal UI = Nova.app.UI\\nlocal icons = Nova.app.getData \\\"icons\\\" or { }\\n\\nlocal changed = false\\n\\nfunction Nova.app.canClose( )\\n Nova.app.setData( \\\"icons\\\", icons )\\nend\\n\\nlocal function showIconMenu( x, y, data, icon, bframe )\\n  local close = UI:newChild( NovaUI.UIButton( 1, 1, UI.w, UI.h ) )\\n close.bc = 0\\n close.align = false\\n  local frame = UI:newChild( NovaUI.UIFrame( x, y, 0, 0 ) )\\n    local menu = {\\n       width = 9, height = 4, spacing = false, shadow = colours.grey;\\n       { type = \\\"button\\\", name = \\\"open\\\", onClick = function( )\\n          Nova.app.newThread( function( )\\n              if data.mode == \\\"app\\\" then\\n                 Nova.app.launch( data.name )\\n             else\\n                 Nova.app.launch( \\\"Files\\\", data.path )\\n              end\\n          end )\\n            close:remove( )\\n          frame:remove( )\\n      end };\\n       \\\"rule\\\";\\n        { type = \\\"button\\\", name = \\\"delete\\\", onClick = function( )\\n            bframe:remove( )\\n         for i = 1, #icons do\\n             if icons[i] == icon then\\n                 table.remove( icons, i )\\n                 break\\n                end\\n          end\\n          close:remove( )\\n          frame:remove( )\\n      end };\\n   }\\n    NovaUI.display.menu( frame, menu )\\n   function close:onClick( )\\n        frame:remove( )\\n      close:remove( )\\n  end\\nend\\n\\nlocal function newIcon( x, y, data, icon )\\n    changed = true\\n   local frame = UI:newChild( NovaUI.UIFrame( x, y, data.mode == \\\"app\\\" and 9 or 5, 3 ) )\\n  local image = NovaUI.Image( frame.w, frame.h ):loadstr( data.icon )\\n  frame:newChild( NovaUI.UIImage( 1, 1, frame.w, frame.h, image ) )\\n    local button = frame:newChild( NovaUI.UIButton( 1, 1, frame.w, frame.h, \\\"\\\" ) )\\n button.bc = 0\\n    button.tc = 0\\n    function button:onClick( x, y, button, double )\\n      if button == 1 and double then\\n           Nova.app.newThread( function( )\\n              if data.mode == \\\"app\\\" then\\n                 Nova.app.launch( data.name )\\n             else\\n                 Nova.app.launch( \\\"Files\\\", data.path )\\n              end\\n          end )\\n        elseif button == 2 then\\n          showIconMenu( x + frame.x - 1, y + frame.y - 1, data, icon, frame )\\n      end\\n  end\\n  local label\\n  function button:onDrag( x, y, cx, cy, button )\\n       if button == 1 then\\n          frame.x = frame.x + cx\\n           frame.y = frame.y + cy\\n           label.x = label.x + cx\\n           label.y = label.y + cy\\n           icon.x = frame.x\\n         icon.y = frame.y\\n         changed = true\\n       end\\n  end\\n  label = UI:newChild( NovaUI.UIText( 0, 0, #data.display, 1, function( self )\\n     self.x = frame.x + math.ceil( frame.w / 2 - self.w / 2 )\\n     self.y = frame.y + frame.h\\n       if not frame.parent then\\n         self:remove( )\\n       end\\n      return data.display\\n  end ) )\\n  label.bc = 0\\nend\\n\\nlocal function showBlankMenu( x, y )\\n local close = UI:newChild( NovaUI.UIButton( 1, 1, UI.w, UI.h ) )\\n close.bc = 0\\n close.align = false\\n  local frame = UI:newChild( NovaUI.UIFrame( x, y, 0, 0 ) )\\n    local r = Nova.app.getData \\\"startup\\\"\\n   local menu = {\\n       width = 23, height = 7, spacing = false, shadow = colours.grey;\\n      { type = \\\"button\\\", name = \\\"change background\\\", onClick = function( )\\n         frame:remove( )\\n          close:remove( )\\n          NovaUI.display.alert( UI, \\\"Not yet implemented, sorry\\\" )\\n       end };\\n       \\\"rule\\\";\\n        { type = \\\"button\\\", name = ( r or r == nil ) and \\\"don't run on startup\\\" or \\\"run on startup\\\", onClick = function( )\\n          Nova.app.setData( \\\"startup\\\", not Nova.app.getData \\\"startup\\\" )\\n            frame:remove( )\\n          close:remove( )\\n      end };\\n       \\\"rule\\\";\\n        { type = \\\"button\\\", name = \\\"new shortcut\\\", onClick = function( )\\n          frame:remove( )\\n          close:remove( )\\n          Nova.app.newThread( function( )\\n              local path = NovaUI.display.response( UI, \\\"Path for shortcut\\\" )\\n                if path then\\n                 local t = { x = x, y = y, data = {\\n                       mode = \\\"file\\\";\\n                     path = path;\\n                     display = Nova.filesystem.getName( path, true );\\n                     icon = folder;\\n                   } }\\n                  table.insert( icons, t )\\n                 newIcon( x, y, t.data, t )\\n               end\\n          end )\\n        end };\\n       { type = \\\"button\\\", name = \\\"new app\\\", onClick = function( )\\n           frame:remove( )\\n          close:remove( )\\n          Nova.app.newThread( function( )\\n              local _, _, document = NovaUI.markup.load( [[\\n                    <script>\\n                     function close( )\\n                            document.getElementById( \\\"main\\\" ):remove( )\\n                        end\\n                      function toggleDefault( )\\n                            local d = document.getElementById \\\"default\\\"\\n                            d.text = d.text == \\\"@\\\" and \\\" \\\" or \\\"@\\\"\\n                      end\\n                  </script>\\n                    <frame x:1 y:1 id:main width:expand height:expand>\\n                       <button width:expand height:expand tc:0 bc:0 onClick:\\\"close()\\\"></button>\\n                       <frame width:25 height:12 x:centre y:centre>\\n                         <text x:2 y:2 width:24 height:11 bc:grey></text>\\n                         <text x:1 y:1 width:24 height:11 bc:white></text>\\n                            <text x:centre y:2 width:auto>Select app</text>\\n                          <text x:2 y:3 width:auto tc:lightGrey>----------------------</text>\\n                          <text id:applist x:2 y:4 width:22 height:5>This is where the app list will be!</text>\\n                            <text x:2 y:9 width:auto tc:lightGrey>----------------------</text>\\n                          <button id:ok x:20 y:10 width:4 bc:lightGrey tc:black>ok</button>\\n                        </frame>\\n                 </frame>\\n             ]], UI, getfenv( ) )\\n             local frame = document.getElementById \\\"main\\\"\\n               local a = document.getElementById \\\"applist\\\"\\n                local ok = document.getElementById \\\"ok\\\"\\n                local applist = a.parent:newChild( NovaUI.UIFrame( a.x, a.y, a.w, a.h ) )\\n                local handlers = Nova.app.listNames( )\\n               if #handlers == 0 then\\n                   handlers = Nova.filesystem.getAllHandlers( )\\n             end\\n              if #handlers + 1 > applist.h then\\n                    applist.w = applist.w - 1\\n                    a.parent:newChild( NovaUI.UIScrollBar( 0, 0, 1, 0, applist ) ):align( \\\"right\\\", applist )\\n               end\\n              a:remove( )\\n              local current\\n                for i = 1, #handlers do\\n                  local button = applist:newChild( NovaUI.UIButton( 1, i, applist.w, 1, handlers[i] ) )\\n                    button.tc = colours.grey\\n                 button.align = false\\n                 function button:onClick( )\\n                       if current == button then\\n                            button.bc = colours.white ok.bc = colours.lightGrey current = nil return\\n                     end\\n                      ok.bc = colours.lightBlue\\n                        if current then current.bc = colours.white end\\n                       button.bc = colours.lightBlue\\n                        current = button\\n                 end\\n              end\\n              function ok:onClick( )\\n                   if not current then return end\\n                   local app = current.text\\n                 frame:remove( )\\n                  local p = Nova.app.getIcon( app )\\n                    local icon = appicon\\n                 if p then\\n                        icon = p:savestr( )\\n                  end\\n                  local t = { x = x, y = y, data = {\\n                       mode = \\\"app\\\";\\n                      name = app;\\n                      display = app;\\n                       icon = icon;\\n                 } }\\n                  table.insert( icons, t )\\n                 newIcon( x, y, t.data, t )\\n               end\\n          end )\\n        end };\\n   }\\n    NovaUI.display.menu( frame, menu )\\n   function close:onClick( )\\n        frame:remove( )\\n      close:remove( )\\n  end\\nend\\n\\nlocal image = NovaUI.Image( UI.w, UI.h )\\nlocal background = Nova.app.getData \\\"background\\\"\\nif background then\\n    image:loadstr( background )\\nelse\\n   if Nova.platform == \\\"computer\\\" or Nova.platform == \\\"unknown\\\" then\\n        image:loadstr( backgrounds.computer )\\n    elseif Nova.platform == \\\"turtle\\\" then\\n      image:loadstr( backgrounds.turtle )\\n  elseif Nova.platform == \\\"pocket\\\" then\\n      image:loadstr( backgrounds.pocket )\\n  end\\nend\\n\\nlocal w, h = image:getSize( )\\n\\nlocal back1 = UI:newChild( NovaUI.UIButton( 1, 1, UI.w, UI.h, \\\"\\\" ) )\\nlocal back2 = UI:newChild( NovaUI.UIImage( 1, 1, w, h, image ) )\\nback2:centre( )\\n\\nfunction back1:onClick( x, y, button )\\n    if button == 2 then\\n      showBlankMenu( x, y )\\n    end\\nend\\nfunction back2:onClick( x, y, button )\\n   if button == 2 then\\n      showBlankMenu( x + self.x - 1, y + self.y - 1 )\\n  end\\nend\\n\\nfor i = 1, #icons do\\n  newIcon( icons[i].x, icons[i].y, icons[i].data, icons[i] )\\nend\\n\\nchanged = false\\n\\nlocal t = 0\\n\\nwhile true do\\n    if changed and os.clock( ) - t >= 0.5 then\\n       Nova.app.setData( \\\"icons\\\", icons )\\n     changed = false\\n      t = os.clock( )\\n  end\\n  coroutine.yield( )\\nend\",\
[\"launcher.lua\"]=\"\\nlocal s = Nova.app.getData \\\"startup\\\"\\nif s ~= false then\\n  Nova.app.launch \\\"Desktop\\\"\\nend\",\
}\
,\
}\
 \
function ttf( table, dir )\
    if not fs.isDir( dir ) then\
        fs.makeDir( dir )\
    end\
    for k, v in pairs( table ) do\
        if type( v ) == \"table\" then\
            ttf( v, dir..\"/\"..k )\
        elseif type( v ) == \"string\" then\
            local f = fs.open( dir..\"/\"..k, \"w\" )\
            f.write( v )\
            f.close( )\
        end\
    end\
end\
return function( path )\
    ttf( pack, path )\
end", meta={
  type = "lib",
}};["UIMenu"]={content="\
\
require \"UIElement\"\
\
UIMenu:extends( UIElement )\
\
UIMenu.handlesMouse = false\
UIMenu.handlesScroll = true\
UIMenu.isScrollTarget = true\
UIMenu.scrollDirection = \"vertical\"\
UIMenu.public \"padding\" \"number\"\
\
function UIMenu:UIMenu( x, y, w, h, direction )\
    self:UIElement( x, y, w, h )\
    self.scrollDirection = direction or \"vertical\"\
    self.padding = 0\
    return self.public\
end\
\
function UIMenu.public:update( dt )\
    local max = self.scrollDirection == \"vertical\" and self.h or self.w\
    if self.scrollDirection == \"vertical\" then\
        for i = 1, #self.children do\
            max = math.max( max, self.children[i].y + self.children[i].h - 1 )\
        end\
    else\
        for i = 1, #self.children do\
            max = math.max( max, self.children[i].x + self.children[i].w - 1 )\
        end\
    end\
    if self.scrollDirection == \"vertical\" then\
        if max - self.h < -self.cy then\
            self.cy = -max + self.h\
        end\
    else\
        if max - self.w < -self.cx then\
            self.cx = -max + self.w\
        end\
    end\
    if max == ( self.scrollDirection == \"vertical\" and self.h or self.w ) then\
        self.handlesScroll = false\
    else\
        self.handlesScroll = true\
    end\
    local c = { }\
    for i, child in ipairs( self.children ) do\
        c[i] = child\
    end\
    for i, child in ipairs( c ) do\
        child:update( dt )\
    end\
    local x, y = 1, 1\
    for i, child in ipairs( self.children ) do\
        child.x = x\
        child.y = y\
        if self.scrollDirection == \"vertical\" then\
            child.w = self.w\
            y = y + child.h + self.padding\
        else\
            child.h = self.h\
            x = x + child.w + self.padding\
        end\
    end\
end\
\
function UIMenu.public:onMouseScroll( rx, ry, dir )\
    if self.scrollDirection == \"vertical\" then\
        self.cy = self.cy - dir\
        local max = 0\
        for i = 1, #self.children do\
            max = math.max( max, self.children[i].y + self.children[i].h )\
        end\
        max = max - self.h - 1\
        if self.cy < -max then\
            self.cy = -max\
        end\
        if self.cy > 0 then self.cy = 0 end\
    else\
        self.cx = self.cx - dir\
        local max = 0\
        for i = 1, #self.children do\
            max = math.max( max, self.children[i].x + self.children[i].w )\
        end\
        max = max - self.w - 1\
        if self.cx < -max then\
            self.cx = -max\
        end\
        if self.cx > 0 then self.cx = 0 end\
    end\
end\
\
function UIMenu.public:getDisplaySizeH( )\
    return self.w\
end\
function UIMenu.public:getDisplaySizeV( )\
    return self.h\
end\
\
function UIMenu.public:getContentSizeH( )\
    local max = self.w\
    for i = 1, #self.children do\
        max = math.max( max, self.children[i].x + self.children[i].w - 1 )\
    end\
    return max\
end\
function UIMenu.public:getContentSizeV( )\
    local max = self.h\
    for i = 1, #self.children do\
        max = math.max( max, self.children[i].y + self.children[i].h - 1 )\
    end\
    return max\
end\
\
function UIMenu.public:getContentScrollH( )\
    return -self.cx\
end\
function UIMenu.public:getContentScrollV( )\
    return -self.cy\
end\
\
function UIMenu.public:setContentScrollH( scroll )\
    self.cx = -scroll\
end\
function UIMenu.public:setContentScrollV( scroll )\
    self.cy = -scroll\
end", meta={
  type = "class",
}};["MarkupText"]={content="\
\
require \"MarkupGenericObject\"\
\
MarkupText:extends( MarkupGenericObject )\
\
MarkupText.public.etype = \"text\"\
\
function MarkupText:MarkupText( ... )\
    self:MarkupGenericObject( ... )\
\
    self.innerNML = { }\
\
    return self.public\
end\
\
function MarkupText.public:setAttribute( attribute, value ) -- protected objects should do innerNML stuff\
    if MarkupGenericObject.attributes[attribute] then\
        MarkupGenericObject.attributes[attribute]( self, value )\
    end\
    if attribute == \"tc\" or attribute == \"textColour\" then\
        if colours[value] or value == \"transparent\" then\
            self.tc = colours[value] or 0\
        end\
    end\
    if attribute == \"bc\" or attribute == \"backgroundColour\" or attribute == \"colour\" then\
        if colours[value] or value == \"transparent\" then\
            self.bc = colours[value] or 0\
        end\
    end\
    if attribute == \"align\" then\
        if value == \"left\" or value == \"right\" or value == \"centre\" then\
            self.align = value\
        end\
    end\
    if attribute == \"innerNML\" then\
        self.innerNML = self.page:loadAST( value )\
    end\
    self.page.needsReposition = true\
end\
\
function MarkupText.public:loadObject( positionHandler )\
\
    self.page:newStyle {\
        bc = self.bc;\
        tc = self.tc;\
        align = self.align;\
    }\
    for i = #self.innerNML, 1, -1 do\
        if self.innerNML[i].remove then\
            table.remove( self.objects, i )\
        end\
    end\
    local objects = { }\
    if self.width.type == \"text\" and self.width.value == \"auto\" and self.height.type == \"text\" and self.height.value == \"auto\" then\
        for i = 1, #self.innerNML do\
            local o = positionHandler:newObject( self.innerNML[i], self.page )\
            for i = 1, #o do\
                table.insert( objects, o[i] )\
            end\
        end\
    else\
        local w, h = 0, 0\
        if self.width.type == \"text\" and self.width.value == \"auto\" then\
            w = positionHandler.w - positionHandler.x + 1\
        elseif self.width.type == \"percent\" then\
            w = self.width.value / 100 * positionHandler.w\
        elseif self.width.type == \"pixel\" then\
            w = self.width.value\
        end\
        if self.height.type == \"text\" and self.height.value == \"auto\" then\
            h = positionHandler.h - positionHandler.y + 1\
        elseif self.height.type == \"percent\" then\
            h = self.height.value / 100 * positionHandler.h\
        elseif self.height.type == \"pixel\" then\
            h = self.height.value\
        end\
        local pos = MarkupPositionHandler( w, h )\
        for i = 1, #self.innerNML do\
            local o = pos:newObject( self.innerNML[i], self.page )\
            for i = 1, #o do\
                table.insert( objects, o[i] )\
            end\
        end\
        if self.height.type == \"text\" and self.height.value == \"auto\" then\
            h = 0\
            for i = 1, #objects do\
                if objects[i].y + objects[i].content.height - 1 > h then\
                    h = objects[i].y + objects[i].content.height - 1\
                end\
            end\
        end\
        local rw, rh = w, h\
        local scrollbarv, scrollbarh = false, false\
        for i = 1, #objects do\
            if objects[i].y + objects[i].content.height - 1 > h and not scrollbarv then\
                w = w - 1\
            end\
            if objects[i].x + objects[i].content.width - 1 > w and not scrollbarh then\
                h = h - 1\
                scrollbarh = true\
            end\
            if objects[i].y + objects[i].content.height - 1 > h and not scrollbarv then\
                scrollbarv = true\
            end\
            if scrollbarv and scrollbarh then\
                break\
            end\
        end\
        local loadedObject = MarkupLoadedObject( )\
        loadedObject.x = positionHandler.x\
        loadedObject.y = positionHandler.y\
        loadedObject.mode = \"inline\"\
        loadedObject.content.width = rw\
        loadedObject.content.height = rh\
        loadedObject:initialise( UIFrame )\
        local f = loadedObject.element\
        f:newChild( UIText( 1, 1, rw, rh, \"\" ) ).bc = self.page:getStyle \"bc\"\
        local cf\
        if not scrollbarv and not scrollbarh then\
            cf = f\
        else\
            cf = f:newChild( UIFrame( 1, 1, w, h ) )\
        end\
        for i = 1, #objects do\
            cf:newChild( objects[i].element )\
        end\
        if scrollbarv then\
            f:newChild( UIScrollBar( rw, 1, 1, h, cf ) )\
        end\
        if scrollbarh then\
            f:newChild( UIScrollBar( rh, 1, rw, 1, cf, \"horizontal\" ) )\
        end\
        objects = { loadedObject }\
    end\
\
    self.page:removeStyle( )\
    return objects\
    -- generate a list of MarkupLoadedObjects\
end\
\
function MarkupText.public:scriptObject( )\
    return setmetatable( {}, {\
        __newindex = function( _, k, v )\
            if type( v ) ~= \"string\" then\
                v = tostring( v )\
            end\
            if k == \"innerNML\" then\
                v = v:gsub( \"<!%-%-*.-%-%->\", \"\" )\
                v = markup_parse.parse( v, self.page )\
            end\
            return self.public:setAttribute( k, v )\
        end;\
        __index = function( _, k )\
            if k == \"width\" then\
                return ( self.width.type == \"percent\" and self.width.value .. \"%\" ) or ( self.width.type == \"pixel\" and self.width.value .. \"px\" ) or ( self.width.type == \"text\" and self.width.value )\
            elseif k == \"height\" then\
                return ( self.height.type == \"percent\" and self.height.value .. \"%\" ) or ( self.height.type == \"pixel\" and self.height.value .. \"px\" ) or ( self.height.type == \"text\" and self.height.value )\
            elseif k == \"bc\" or k == \"backgroundColour\" or k == \"colour\" then\
                return self.bc\
            elseif k == \"tc\" or k == \"textColour\" then\
                return self.tc\
            elseif k == \"align\" then\
                return self.align\
            else\
                return error \"cannot access this attribute\"\
            end\
        end;\
    } )\
end", meta={
  type = "class",
}};["main"]={content="\
require \"clipboard\"\
require \"com\"\
require \"core\"\
require \"encryption\"\
require \"filesystem\"\
require \"network\"\
require \"sha256\"\
require \"stringutils\"\
require \"Thread\"\
require \"UI\"\
\
local w, h = term.getSize( )\
\
if _G.NovaRunning then\
    return\
end\
_G.NovaRunning = true\
\
if not term.isColour( ) then\
    error( \"Nova requires an advanced computer\", 0 )\
end\
\
term.setBackgroundColour( colours.black )\
term.clear( )\
sleep( 0.1 )\
term.setBackgroundColour( colours.grey )\
term.clear( )\
sleep( 0.1 )\
term.setBackgroundColour( colours.lightGrey )\
term.clear( )\
sleep( 0.1 )\
\
Thread( function( )\
    require \"kernel\"\
end ).onException = function( _, err )\
    core.error( err )\
end\
\
com.updateModems( )\
\
local function update( event, dt )\
    if event[1] == \"update\" then\
        Thread.update( { \"update\", dt } )\
        buffer.drawChanges( )\
        buffer.clear( )\
    else\
        com.listen( event )\
        com.clear( )\
        Thread.update( { unpack( event ) }, true )\
        network.clearBuffers( )\
    end\
    filesystem.clearCache( )\
end\
\
ok, err = pcall( function( )\
    local time = os.clock( )\
    local timer = os.startTimer( 0 )\
    os.queueEvent \"start\"\
    while core.running and not core.error_message do\
        local ev = { coroutine.yield( ) }\
        local dt = os.clock( ) - time\
        time = os.clock( )\
        if ev[1] == \"timer\" and ev[2] == timer then\
            update( { \"update\" }, dt )\
            timer = os.startTimer( 0.05 )\
        else\
            update( ev, dt )\
        end\
    end\
end )\
\
core.finish( )\
\
if not ok or core.error_message then\
    core.log( \"fatal error\", core.error_message or err )\
    local w, h = term.getSize( )\
    term.setBackgroundColour( colours.blue )\
    term.clear( )\
    term.setTextColour( colours.white )\
    term.setCursorPos( 1, 1 )\
    term.write \"Nova has encountered a fatal error.\"\
    term.setCursorPos( 1, 2 )\
    print \"Please report this message to the creator\\n\"\
    term.setTextColour( colours.white )\
    print( core.error_message or err )\
    parallel.waitForAny( function( )\
        os.pullEvent \"key\"\
    end, function( )\
        os.pullEvent \"mouse_click\"\
    end )\
end", meta={}};["MarkupFrame"]={content="\
\
require \"MarkupGenericObject\"\
\
MarkupFrame:extends( MarkupGenericObject )", meta={
  type = "class",
}};["core"]={content="\
\
require \"ttf\"\
\
name = \"Nova Horizon\"\
version_major = 1\
version_minor = 2\
version_patch = 6\
version = (\"%d.%d.%02d\"):format( version_major, version_minor, version_patch )\
author = \"Benedict Allen\"\
\
platform = \"computer\"\
local w, h = term.getSize( )\
if turtle then\
    platform = \"turtle\"\
elseif pocket or w < 39 then\
    platform = \"pocket\"\
end\
\
running = true\
path = \"Nova\"\
\
session = false\
UI = false\
\
if not fs.isDir( path ) then\
    fs.makeDir( path )\
end\
if not fs.isDir( path .. \"/apps\" ) then\
    fs.makeDir( path .. \"/apps\" )\
    ttf( path .. \"/apps\" )\
end\
if not fs.isDir( path .. \"/user\" ) then\
    fs.makeDir( path .. \"/user\" )\
end\
\
start_time = os.clock( )\
\
error_message = false\
\
function error( message )\
    core.error_message = message\
end\
\
local file = path .. \"/log.txt\"\
local h = fs.open( file, \"w\" )\
if h then\
    h.close( )\
end\
\
function log( pre, ... )\
    local data\
    if ... then\
        local t = { ... }\
        data = tostring( t[1] )\
        for i = 2, #t do\
            data = data .. \", \" .. tostring( t[i] )\
        end\
    end\
    local h = fs.open( file, \"a\" )\
    if h then\
        local time = \"[\" .. os.clock( ) - start_time .. \"] \"\
        if data then\
            h.write( time .. tostring( pre ) .. \": \" .. textutils.serialize( data ) .. \"\\n\" )\
        else\
            h.write( time .. tostring( pre ) .. \"\\n\" )\
        end\
        h.close( )\
        return true\
    end\
    return false\
end\
\
function getRunTime( )\
    return os.clock( ) - start_time\
end\
\
function finish( )\
    if core.session then\
        core.session:logout( )\
    end\
    core.log \"stopping\"\
    _G.NovaRunning = false\
end\
\
function getUpdateInfo( )\
    local t = {\
        name = \"Nova Horizon\";\
        version_major = version_major;\
        version_minor = version_minor;\
        version_patch = version_patch;\
    }\
    pcall( function( )\
        local h = http.get \"http://pastebin.com/raw.php?i=K8MKteNu\"\
        if h then\
            t = textutils.unserialize( h.readAll( ) ) or t\
            h.close( )\
        end\
    end )\
    return t\
end\
\
function compareVersions( t )\
    t = t or getUpdateInfo( )\
    if t.version_major > version_major then\
        return true\
    elseif t.version_major == version_major then\
        if t.version_minor > version_minor then\
            return true\
        elseif t.version_minor == version_minor then\
            return t.version_patch > version_patch\
        end\
    end\
    return false\
end\
\
function update( updateInfo )\
    updateInfo = updateInfo or getUpdateInfo( )\
    local h = http.get( \"http://pastebin.com/raw.php?i=\" .. updateInfo.link )\
    if h then\
        if type( updateInfo.pre_update ) == \"function\" then\
            setfenv( updateInfo.pre_update, getfenv( ) )\
            updateInfo.pre_update( )\
        end\
        local content = h.readAll( )\
        h.close( )\
        filesystem.delete( \"C:/\" .. path .. \"/apps\" )\
        filesystem.delete \"C:/startup\"\
        filesystem.writefile( \"startup\", FileData( content ) )\
        if type( updateInfo.post_update ) == \"function\" then\
            setfenv( updateInfo.post_update, getfenv( ) )\
            updateInfo.post_update( )\
        end\
        return true\
    end\
    return false\
end\
\
-- Credits to lbphacker for code below\
local a=math.floor;local b=24*60*60;local c=365*b;local d=c+b;local e=4*c+b;local f=4;local g=1970;local h={-1,30,58,89,119,150,180,211,242,272,303,333,364}local i={}for j=1,2 do i[j]=h[j]end;for j=3,13 do i[j]=h[j]+1 end;local function gmtime(k)local m,n,o,p,q,r,s,t;local u=h;t=k;m=a(t/e)t=t-m*e;m=m*4+g;if t>=c then m=m+1;t=t-c;if t>=c then m=m+1;t=t-c;if t>=d then m=m+1;t=t-d else u=i end end end;n=a(t/b)t=t-n*b;local o=1;while u[o]<n do o=o+1 end;o=o-1;local p=n-u[o]q=(a(k/b)+f)%7;r=a(t/3600)t=t-r*3600;s=a(t/60)t=t-s*60;return m,n+1,o,p,q,r,s,t end\
--time since last update\
local firstepoch, firstclock, tslu\
function getirltime(gmtoffset)\
    if not firstepoch or os.clock( ) - tslu > 300 then\
        pcall( function( )\
            local httpResponseHandle = http.get \"http://lbphacker.hu/cctime.php\"\
            if not httpResponseHandle then\
                return false\
            end\
            firstepoch = tonumber(httpResponseHandle.readAll())\
            if not firstepoch then\
                return false\
            end\
            firstclock = os.clock()\
            httpResponseHandle.close()\
            tslu = os.clock( )\
        end )\
    end\
    if firstepoch then\
        local y, j, m, d, w, h, n, s = gmtime(firstepoch + math.floor(os.clock() - firstclock) + (gmtoffset or 0) * 3600)\
        return {h = h, m = n, s = s}\
    end\
    return { h = math.floor( os.time( ) / 60 ), m = os.time( ) % 60, s = 0 }\
end\
\
local months = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }\
\
function getirldate(gmtoffset)\
    if not firstepoch or os.clock( ) - tslu > 300 then\
        pcall( function( )\
            local httpResponseHandle = http.get \"http://lbphacker.hu/cctime.php\"\
            if not httpResponseHandle then\
                return false\
            end\
            firstepoch = tonumber(httpResponseHandle.readAll())\
            if not firstepoch then\
                return false\
            end\
            firstclock = os.clock()\
            httpResponseHandle.close()\
            tslu = os.clock( )\
        end )\
    end\
    if firstepoch then\
        local y, j, m, d, w, h, n, s = gmtime(firstepoch + math.floor(os.clock() - firstclock) + (gmtoffset or 0) * 3600)\
        return {y = y, j = j, m = m, d = d, w = w}\
    end\
    local day = os.day( )\
    local month = 12\
    local year = math.floor( day / 365 )\
    day = day - year * 365\
    for i = 1, #months do\
        if day < months[i] then\
            month = i\
            break\
        else\
            day = day - months[i]\
        end\
    end\
    return { y = year, j = 0, m = month, d = day, w = 0 }\
end", meta={
  type = "lib",
}};["stencil"]={content="\
\
local function linewrap( str, w )\
    for i = 1, w + 1 do\
        if str:sub( i, i ) == \"\\n\" then\
            return str:sub( 1, i - 1 ), str:sub( i + 1 )\
        end\
    end\
    if #str <= w then\
        return str, \"\"\
    end\
    if str:sub( w + 1, w + 1 ):find \"%s\" then\
        return str:sub( 1, w ), str:sub( w + 1 ):gsub( \"^%s+\", \"\" )\
    end\
    for i = w, 1, -1 do\
        if str:sub( i, i ):find \"%s\" then\
            return str:sub( 1, i ), str:sub( i + 1 )\
        end\
    end\
    return str:sub( 1, w ), str:sub( w + 1 )\
end\
\
local function wordwrap( str, w, h )\
    if w < 1 then return { } end\
    local lines = { }\
    local line\
    while #str > 0 do\
        line, str = linewrap( str, w )\
        table.insert( lines, line )\
    end\
    while #lines > h do\
        lines[#lines] = nil\
    end\
    return lines\
end\
\
local function bbox( x1, y1, w1, h1, x2, y2, w2, h2 )\
    local x, y, w, h\
    if x1 + w1 <= x2 or y1 + h1 <= y2 or x2 + w2 <= x1 or y2 + h2 <= y1 then\
        return false\
    end\
    x = math.max( x1, x2 )\
    w = math.min( x1 + w1, x2 + w2 ) - x\
    y = math.max( y1, y2 )\
    h = math.min( y1 + h1, y2 + h2 ) - y\
    return x, y, w, h\
end\
\
local layers = { }\
local w, h = term.getSize( )\
local limit = { x = 1, y = 1, w = w, h = h }\
\
function pixel( x, y, bc, tc, char )\
    if limit and x >= limit.x and x < limit.x + limit.w and y >= limit.y and y < limit.y + limit.h then\
        buffer.setPixel( x, y, bc, tc, char )\
        return true\
    end\
    return false\
end\
\
function textLine( x, y, bc, tc, text )\
    for i = 1, #text do\
        pixel( x + i - 1, y, bc, tc, text:sub( i, i ) )\
    end\
end\
\
function rectangle( x, y, w, h, bc, tc, char )\
    for i = 0, h - 1 do\
        textLine( x, y + i, bc, tc, ( char or \" \" ):rep( w ) )\
    end\
end\
\
function text( x, y, w, h, bc, tc, text, pad )\
    local lines = wordwrap( text, w, h )\
    if pad then\
        pad( lines )\
    end\
    if bc ~= 0 then\
        while #lines < h do\
            table.insert( lines, string.rep( \" \", math.max( w, 0 ) ) )\
        end\
    end\
    for i = 1, #lines do\
        local line = lines[i]:sub( 1, w )\
        if bc ~= 0 then\
            line = line .. string.rep( \" \", math.max( w - #line, 0 ) )\
        end\
        textLine( x, y + i - 1, bc, tc, line )\
    end\
end\
\
function setCursorBlink( x, y, col )\
    if limit and x >= limit.x and x < limit.x + limit.w and y >= limit.y and y < limit.y + limit.h then\
        buffer.setCursorBlink( x, y, col )\
        return true\
    end\
    return false\
end\
\
function addLayer( x, y, w, h )\
    table.insert( layers, { x = x, y = y, w = w, h = h } )\
    if limit then\
        x, y, w, h = bbox( x, y, w, h, limit.x, limit.y, limit.w, limit.h )\
        if x then\
            limit = { x = x, y = y, w = w, h = h }\
        else\
            limit = false\
        end\
    end\
    return #layers\
end\
\
function closeLayer( layer )\
    while layers[layer] do\
        table.remove( layers, layer )\
    end\
    limit = { x = 1, y = 1, w = w, h = h }\
    for i, l in ipairs( layers ) do\
        local x, y, w, h = bbox( limit.x, limit.y, limit.w, limit.h, l.x, l.y, l.w, l.h )\
        if x then\
            limit = { x = x, y = y, w = w, h = h }\
        else\
            limit = false\
            break\
        end\
    end\
end\
\
function layerCount( )\
    return #layers\
end\
\
function getDrawArea( )\
    if limit then\
        return limit.x, limit.y, limit.w, limit.h\
    end\
    return 0, 0, 0, 0\
end", meta={
  type = "lib",
}};["Account"]={content="\
\
Account.public \"username\"\
Account.public.username.write = false\
Account.public \"password\"\
Account.public.password.write = false\
Account.public \"shaPassword\"\
Account.public.shaPassword.write = false\
Account.public \"userpath\"\
Account.public.userpath.write = false\
\
function Account:Account( name, pass )\
    if not fs.isDir( core.path .. \"/user/\" .. name ) then\
        return false, \"no such user\"\
    end\
\
    -- try to login\
    local userpath = core.path .. \"/user/\" .. name .. \"/\"\
    local h = fs.open( userpath .. \"passcheck.txt\", \"r\" )\
    if h then\
        local passcheck = h.readAll( )\
        h.close( )\
        if encryption.decrypt( passcheck, sha256( pass ) ) ~= name then\
            return false, \"incorrect password\"\
        end\
    else\
        return false, \"corrupt user\"\
    end\
\
    self.username = name\
    self.password = pass\
    self.shaPassword = sha256( pass )\
    self.userpath = userpath\
\
    return self.public\
end\
\
function Account.public:rename( name )\
    if fs.exists( core.path .. \"/user/\" .. name ) then\
        return false, \"user exists\"\
    end\
    local h = fs.open( self.userpath .. \"passcheck.txt\", \"w\" )\
    if h then\
        h.write( encryption.encrypt( name, self.shaPassword ) )\
        h.close( )\
        if not pcall( function( )\
            fs.move( self.userpath, core.path .. \"/user/\" .. name )\
        end ) then\
            local h = fs.open( self.userpath .. \"passcheck.txt\", \"w\" )\
            if h then\
                h.write( encryption.encrypt( self.username, self.shaPassword ) )\
                h.close( )\
            end\
            return false\
        end\
        self.username = name\
        self.userpath = core.path .. \"/user/\" .. name .. \"/\"\
        return true\
    end\
    return false\
end\
\
function Account.public:changePassword( pass )\
    local h = fs.open( self.userpath .. \"passcheck.txt\", \"w\" )\
    if h then\
        self.password = pass\
        self.shaPassword = sha256( pass )\
        h.write( encryption.encrypt( self.username, self.shaPassword ) )\
        h.close( )\
    end\
    return false\
end\
\
function Account.public:setData( index, entry, value )\
    local data\
    local h = fs.open( self.userpath .. index, \"r\" )\
    if h then\
        data = textutils.unserialize( h.readAll( ) ) or { }\
        h.close( )\
    else\
        data = { }\
    end\
    data[entry] = value\
    local h = fs.open( self.userpath .. index, \"w\" )\
    if h then\
        h.write( textutils.serialize( data ) )\
        h.close( )\
        return true\
    end\
    return false\
end\
\
function Account.public:getData( index, entry )\
    local data\
    local h = fs.open( self.userpath .. index, \"r\" )\
    if h then\
        data = textutils.unserialize( h.readAll( ) ) or { }\
        h.close( )\
        return data[entry]\
    end\
end\
\
function Account.public:hasAccess( request ) -- things like root filesystem access, settings, etc\
    return true\
end\
\
function Account.static.create( name, pass )\
    if fs.exists( core.path .. \"/user/\" .. name ) then\
        return false, \"account already exists\"\
    end\
    fs.makeDir( core.path .. \"/user/\" .. name )\
    local h = fs.open( core.path .. \"/user/\" .. name .. \"/passcheck.txt\", \"w\" )\
    if h then\
        h.write( encryption.encrypt( name, sha256( pass ) ) )\
        h.close( )\
    else\
        fs.delete( core.path .. \"/user/\" .. name )\
    end\
    fs.makeDir( core.path .. \"/user/\" .. name .. \"/data\" )\
    fs.makeDir( core.path .. \"/user/\" .. name .. \"/data/screenshots\" )\
end", meta={
  type = "class",
}};["MarkupPage"]={content="\
\
MarkupPage.public \"errors\"\
MarkupPage.public.errors.write = false\
MarkupPage.public \"ids\"\
MarkupPage.public.ids.write = false\
MarkupPage.public \"environment\"\
MarkupPage.public.environment.write = false\
MarkupPage.public \"threads\"\
MarkupPage.public.threads.write = false\
\
MarkupPage.public \"needsReposition\" \"boolean\"\
\
function MarkupPage:MarkupPage( w, h, content )\
\
    self.w = w\
    self.h = h\
    self.errors = { }\
    self.ids = { }\
    self.objects = { }\
    self.threads = { }\
    self.scriptelements = { }\
\
    self.styles = {\
        { bc = 1, tc = colours.grey, align = \"left\" };\
    }\
\
    self.needsReposition = false\
\
    self.environment = DocumentEnvironment( self.public, self )\
\
    if content then\
        self.public:loadMarkup( tostring( content ) )\
    end\
\
    self.threads[1] = Thread( function( )\
        while true do\
            if self.needsReposition then\
                self.public:repositionElements( )\
            end\
            for i = #self.threads, 1, -1 do\
                if not self.threads[i]:isRunning( ) and not self.threads[i]:isPaused( ) then\
\
                end\
            end\
            coroutine.yield( )\
        end\
    end )\
    self.threads[1].onException = function( _, err )\
        table.insert( self.errors, { source = \"internal\", level = \"fatal\", message = err } )\
        self.threads[1]:restart( )\
    end\
\
    return self.public\
end\
\
function MarkupPage.public:loadMarkup( content )\
    content = content:gsub( \"<!%-%-*.-%-%->\", \"\" )\
    local ast = markup_parse.parse( content, self.public )\
    self.objects = self.public:loadAST( ast )\
    self.needsReposition = true\
end\
\
function MarkupPage.public:loadAST( ast )\
    local t = { }\
    for i = 1, #ast do\
        if type( ast[i] ) == \"table\" then\
            if ast[i].type == \"script\" then\
                if not ast[i].loaded then\
                    local s = ast[i].attributes.innerNML[1]\
                    local source = ast[i].attributes.name and ( \"script \\\"\" .. ast[i].attributes.name .. \"\\\"\" ) or ( \"script on line \" .. ast[i].source )\
                    local f, err = loadstring( s, \"\" )\
                    if f then\
                        local t = Thread( f )\
                        function t.onException( _, err )\
                            table.insert( self.errors, { source = source, level = \"error\", message = err } )\
                        end\
                        t.environment = self.environment\
                        table.insert( self.threads, t )\
                    else\
                        table.insert( self.errors, { source = source, level = \"error\", message = err } )\
                    end\
                    ast[i].loaded = true\
                end\
            else\
                local _type = ast[i].type\
                if nova_markup.objects[_type] then\
                    local object = nova_markup.objects[_type]( ast[i].source ) -- MarkupGenericObject\
                    object.page = self.public\
                    for k, v in pairs( ast[i].attributes ) do\
                        object:setAttribute( k, v, ast[i].source, true )\
                    end\
                    table.insert( t, object )\
                else\
                    table.insert( self.errors, { source = ast[i].source, level = \"warning\", message = \"no such element \\\"\" .. _type .. \"\\\"\" } )\
                end\
            end\
        else\
            ast[i] = ast[i]:gsub( \"^%s+\", \"\" ):gsub( \"%s+$\", \"\" )\
            if #ast[i] > 0 then\
                table.insert( t, ast[i] )\
            end\
        end\
    end\
    return t\
end\
\
function MarkupPage.public:repositionElements( )\
    local elementPositionHandler = MarkupPositionHandler( self.w, self.h )\
    local frame = UIFrame( 1, 1, self.w, self.h )\
    for i = #self.objects, 1, -1 do\
        if self.objects[i].remove then\
            table.remove( self.objects, i )\
        end\
    end\
    for i = 1, #self.objects do\
        local loadedObjects = elementPositionHandler:newObject( self.objects[i], self.public )\
        -- MarkupLoadedObject list\
        for i = 1, #loadedObjects do\
            frame:newChild( loadedObjects[i].element )\
        end\
    end\
    if self.frame then\
        self.frame:clearChildren( )\
        local c = frame:getChildren( )\
        for i = 1, #c do\
            self.frame:newChild( c[i] )\
        end\
    else\
        self.frame = frame\
    end\
    self.needsReposition = false\
    return self.frame\
end\
\
function MarkupPage.public:resize( w, h )\
    self.w = w\
    self.h = h\
    self.public:repositionElements( )\
end\
\
MarkupPage.static.objects = ob\
\
function MarkupPage.public:newStyle( t )\
    table.insert( self.styles, t )\
end\
\
function MarkupPage.public:removeStyle( )\
    table.remove( self.styles, #self.styles )\
end\
\
function MarkupPage.public:getStyle( index, default )\
    for i = #self.styles, 1, -1 do\
        if self.styles[i][index] ~= nil then\
            return self.styles[i][index]\
        end\
    end\
    return default\
end", meta={
  type = "class",
}};["UIHandler"]={content="\
\
require \"stencil\"\
\
UIHandler.public.w, UIHandler.public.h = term.getSize( )\
\
UIHandler.public \"focus\"\
UIHandler.public.focus.write = false\
\
function UIHandler:UIHandler( )\
    self.children = { }\
    self.focus = false\
    self.lastx = 0\
    self.lasty = 0\
    self.lastt = false\
    self.lastkey = nil\
    self.lastkeytime = false\
    return self.public\
end\
\
function UIHandler.public:draw( )\
    local c = { }\
    for i, child in ipairs( self.children ) do\
        c[i] = child\
    end\
    for i, child in ipairs( c ) do\
        child:draw( child.x, child.y )\
    end\
end\
\
function UIHandler.public:update( dt )\
    local c = { }\
    for i, child in ipairs( self.children ) do\
        c[i] = child\
    end\
    for i, child in ipairs( c ) do\
        child:update( dt )\
    end\
    if self.lastkeytime then\
        if os.clock( ) - self.lastkeytime > 0.3 then\
            self.lastkey = nil\
            self.lastkeytime = false\
        end\
    end\
end\
\
local function findMouseTarget( children, parent, handler, x, y )\
    x = x - parent.cx\
    y = y - parent.cy\
    for i = #children, 1, -1 do\
        local child = children[i]\
        if x >= child.x and y >= child.y and x < child.x + child.w and y < child.y + child.h then\
            local ok, c, data = findMouseTarget( child:getChildren( ), child, handler, x - child.x + 1, y - child.y + 1 )\
            if ok then\
                return true, c, data\
            end\
            local ok, data = handler( child, parent, x, y )\
            if ok then\
                return true, child, data\
            end\
        end\
    end\
    return false\
end\
\
local function screenCoords( child )\
    local x, y = child.x, child.y\
    while child.parent and child.parent:type( ) ~= \"UIHandler\" do -- everything but a UIHandler will have a parent\
        child = child.parent\
        x = x + child.x - 1 + child.cx\
        y = y + child.y - 1 + child.cy\
    end\
    return x, y\
end\
\
local function merge( t1, t2 )\
    local t = { }\
    for i, v in ipairs( t1 ) do\
        table.insert( t, v )\
    end\
    for i, v in ipairs( t2 ) do\
        table.insert( t, v )\
    end\
    return t\
end\
\
function UIHandler.public:event( event )\
    if event[1] == \"mouse_click\" then\
        self.lastx = event[3]\
        self.lasty = event[4]\
        local found, child, data = findMouseTarget( self.children, {cx=0, cy=0}, function( child, parent, x, y )\
            if child.handlesMouse then\
                return true, { rx = x - child.x + 1, ry = y - child.y + 1 }\
            end\
        end, event[3], event[4] )\
        if found then\
            if child ~= self.focus and self.focus then\
                self.focus:onUnFocus( )\
            end\
            if child ~= self.focus then\
                child:onFocus( )\
            end\
            self.focus = child\
            child:onMouseClick( data.rx, data.ry, event[2] )\
            local sx, sy = screenCoords( child )\
            self.lastt = { child = child, sx = sx, sy = sy, x = child.x, y = child.y }\
        else\
            self.lastt = false\
            if self.focus then\
                self.focus:onUnFocus( )\
            end\
            self.focus = false\
        end\
    elseif event[1] == \"mouse_scroll\" then\
        local found, child, data = findMouseTarget( self.children, {cx=0, cy=0}, function( child, parent, x, y )\
            if child.handlesScroll then\
                return true, { rx = x - child.x + 1, ry = y - child.y + 1 }\
            end\
        end, event[3], event[4] )\
        if found then\
            child:onMouseScroll( data.rx, data.ry, event[2] )\
        end\
    elseif event[1] == \"mouse_drag\" then\
        if self.lastt then\
            local cx, cy = event[3] - self.lastx, event[4] - self.lasty\
            local sx, sy = self.lastt.sx + ( self.lastt.child.x - self.lastt.x ), self.lastt.sy + ( self.lastt.child.y - self.lastt.y )\
            self.lastt.child:onMouseDrag( event[3] - sx + 1, event[4] - sy + 1, cx, cy, event[2] )\
            self.lastx = event[3]\
            self.lasty = event[4]\
        end\
    elseif event[1] == \"key\" then\
        if event[2] == keys.tab then\
\
            if self.focus and self.focus.handlesTab then\
                self.focus:onKeyPress( keys.tab, self.lastkey )\
            else\
                local tabs = { }\
                for i = 1, #self.children do\
                    local t2 = self.children[i]:getTabIndexes( )\
                    if #t2 > 0 then\
                        tabs = merge( tabs, t2 )\
                    end\
                end\
                local of = self.focus\
                local found = false\
                for i = 1, #tabs do\
                    if tabs[i] == self.focus then\
                        if self.lastkey == keys.leftShift or self.lastkey == keys.rightShift then\
                            if tabs[i-1] then\
                                self.focus = tabs[i-1]\
                            else\
                                self.focus = tabs[#tabs]\
                            end\
                        else\
                            if tabs[i+1] then\
                                self.focus = tabs[i+1]\
                            else\
                                self.focus = tabs[1]\
                            end\
                        end\
                        found = true\
                        break\
                    end\
                end\
                if not found then\
                    self.focus = tabs[1]\
                end\
                if of ~= self.focus then\
                    if of then\
                        of:onUnFocus( )\
                    end\
                    if self.focus then\
                        self.focus:onFocus( )\
                    end\
                end\
            end\
        else\
            if self.focus and ( self.focus.handlesKeys or ( self.focus.handlesEnter and event[2] == keys.enter ) ) then\
                self.focus:onKeyPress( event[2], self.lastkey )\
            else\
                local function find( c )\
                    for i = #c, 1, -1 do\
                        local ok, obj = find( c[i]:getChildren( ) )\
                        if ok then\
                            return true, obj\
                        end\
                        if c[i].handlesKeys then\
                            c[i]:onKeyPress( event[2], self.lastkey )\
                            return true, c[i]\
                        end\
                    end\
                end\
                find( self.children )\
            end\
        end\
    elseif event[1] == \"char\" then\
        if self.focus and self.focus.handlesKeys then\
            self.focus:onTextInput( event[2], self.lastkey )\
        else\
            local function find( c )\
                for i = #c, 1, -1 do\
                    local ok, obj = find( c[i]:getChildren( ) )\
                    if ok then\
                        return true, obj\
                    end\
                    if c[i].handlesKeys then\
                        c[i]:onTextInput( event[2], self.lastkey )\
                        return true, c[i]\
                    end\
                end\
            end\
            find( self.children )\
        end\
    end\
    if event[1] == \"key\" or ( event[1] == \"char\" and self.lastkey ) then\
        if event[1] == \"key\" then\
            self.lastkey = event[2]\
        end\
        self.lastkeytime = os.clock( )\
    else\
        self.lastkey = nil\
        self.lastkeytime = false\
    end\
end\
\
function UIHandler.public:newChild( child )\
    if class.typeOf( child, UIElement ) then\
        table.insert( self.children, child )\
        child.parent = self.public\
        return child\
    else\
        error( \"expected UIElement child\", 2 )\
    end\
end\
\
function UIHandler.public:removeChild( child )\
    local removed = false\
    for i = #self.children, 1, -1 do\
        if self.children[i] == child then\
            table.remove( self.children, i )\
            removed = true\
        end\
    end\
    return removed\
end\
\
function UIHandler.public:unFocus( )\
    if self.focus then\
        self.focus:onUnFocus( )\
        self.focus = false\
    end\
end\
\
function UIHandler.public:setFocus( child )\
    if class.typeOf( child, UIElement ) then\
        if self.focus ~= child then\
            if self.focus then\
                self.focus:onUnFocus( )\
            end\
            child:onFocus( )\
            self.focus = child\
        end\
    else\
        error( \"expected UIElement child\", 3 )\
    end\
end", meta={
  type = "class",
}};}
--/end of files
local autorun = {"App";"Thread";"UICode";"MarkupGenericObject";"UIKeyHandler";"UIButton";"MarkupButton";"UIImage";"FileData";"AppInstance";"Archive";"UIText";"MarkupParagraph";"DocumentEnvironment";"UITextbox";"UIScrollBar";"Drive";"MarkupPositionHandler";"UIFrame";"UIInput";"UIElement";"Session";"Sandbox";"MarkupLoadedObject";"Image";"MarkupSpace";"MarkupInput";"MarkupNewline";"UICanvas";"UIMenu";"MarkupText";"MarkupFrame";"Account";"MarkupPage";"UIHandler";"main"}
--[[type="lib"]]

-- Swift Class Library
-- Made by awsumben13
-- Feel free to use this in any of your projects but keep this at the top and give credit where necessary

--[[
    This class library offers:
        Inheritance "Class:extends( other class )"
        Initialiser methods "function ClassName:ClassName( )"
        Public / private variables with customisable read/write access "Class.public.x.write = false"
        Static variables ( accessed from the class object ) "Class.static.x = 5"
        Custom metamethods including __index and __newindex "Class.meta.index = { }"
]]

local class = { }

function class.new( name )

    local object = { }
    local public = { }

    object.public = { }
    object.private = { }
    object.static = { }
    object.name = name
    object.extends = false
    object.class = public

    public.name = name

    local customindex = false
    local customnewindex = false
    local objectmeta = { }

    function public:new( ... )

        local ob = { }
        local pb = { }

        ob.class = public
        ob.public = pb

        setmetatable( ob, {
            __index = object.private;
        } )

        function pb:type( full )
            return ob.class:type( full )
        end

        function pb:typeOf( class )
            return ob.class:typeOf( class )
        end

        local obmeta = { }
        obmeta.__index = function( _, k )
            if object.public[k] then
                if object.public[k].read then
                    local val
                    if customindex then
                        if type( customindex ) == "function" then
                            return customindex( ob, k )
                        else
                            return customindex[k]
                        end
                    elseif type( object.public[k].read ) == "function" then
                        val = object.public[k].read( ob )
                    elseif object.public[k].value ~= nil then
                        val = object.public[k].value
                    else
                        val = ob[k]
                    end
                    if type( val ) == "function" then
                        return function( self, ... )
                            if self == pb then
                                return val( ob, ... )
                            end
                            return val( self, ... )
                        end
                    end
                    return val
                else
                    error( "variable has no read access", 2 )
                end
            elseif customindex then
                if type( customindex ) == "function" then
                    return customindex( ob, k )
                else
                    return customindex[k]
                end
            else
                error( "no such variable \"" .. tostring( k ) .. "\"", 2 )
            end
        end;
        obmeta.__newindex = function( _, k, v )
            if object.public[k] then
                if object.public[k].write then
                    if customnewindex then
                        if type( customnewindex ) == "function" then
                            return customnewindex( ob, k, v )
                        else
                            customnewindex[k] = v
                        end
                    elseif type( object.public[k].write ) == "function" then
                        object.public[k].write( ob, v )
                    else
                        ob[k] = v
                    end
                else
                    error( "variable has no write access", 2 )
                end
            else
                error( "no such variable \"" .. tostring( k ) .. "\"", 2 )
            end
        end;
        obmeta.__tostring = function( )
            return object.name
        end;
        obmeta.__metatable = "SwiftClassObject";

        for k, v in pairs( objectmeta ) do
            obmeta["__" .. tostring( k )] = v
        end

        setmetatable( pb, obmeta )

        local c = object
        while true do
            if type( c.private[c.name] ) == "function" then
                return c.private[c.name]( ob, ... )
            end
            if c.extends then
                c = c.extends
            else
                break
            end
        end

        return pb
    end

    function public:type( full )
        local str = ""
        if full then
            local c = object.extends
            while c do
                str = c.name .. "." .. str
                c = c.extends
            end
        end
        return str .. object.name
    end

    function public:typeOf( other )
        if type( other ) == "table" then
            if getmetatable( other ) == "SwiftClass" then
                local ob = object
                while ob do
                    if ob.class == other then
                        return true
                    end
                    ob = ob.extends
                end
            end
        end
        return false
    end

    function public:extends( ob )
        ob:extend( object )
    end

    function public:extend( ob )
        setmetatable( ob.static, { __index = object.static } )
        setmetatable( ob.public, { __index = object.public } )
        setmetatable( ob.private, { __index = object.private } )
        ob.extends = object
    end

    local meta = { }
    meta.__index = function( _, k )
        if k == "static" then
            return setmetatable( { }, {
                __newindex = function( _, k, v )
                    object.static[k] = v
                end;
                __metatable = { };
            } )
        elseif k == "public" then
            return setmetatable( { }, {
                __newindex = function( _, k, v )
                    object.public[k] = {
                        read = true;
                        write = false;
                        value = v;
                    }
                end;
                __call = function( _, k )
                    object.public[k] = {
                        read = true;
                        write = true;
                        value = nil;
                    }
                    return function( _type )
                        object.public[k].write = function( ob, value )
                            if type( value ) == _type or class.typeOf( value, _type ) then
                                ob[k] = value
                            else
                                if class.type( _type ) == "Class" then
                                    error( "expected " .. _type:type( ) .. " " .. k, 3 )
                                else
                                    error( "expected " .. _type .. " " .. k, 3 )
                                end
                            end
                        end
                    end
                end;
                __index = function( _, k )
                    if object.public[k] then
                        return setmetatable( { }, {
                            __newindex = function( _, name, v )
                                if name == "read" then
                                    if type( v ) == "boolean" or type( v ) == "function" then
                                        object.public[k].read = v
                                    else
                                        error( "invalid modifier value", 2 )
                                    end
                                elseif name == "write" then
                                    if type( v ) == "boolean" or type( v ) == "function" then
                                        object.public[k].write = v
                                    else
                                        error( "invalid modifier value", 2 )
                                    end
                                else
                                    error( "invalid modifier name", 2 )
                                end
                            end;
                            __metatable = { };
                        } )
                    else
                        error( "public index " .. tostring( k ) .. " not found", 2 )
                    end
                end;
                __metatable = { };
            } )
        elseif k == "meta" then
            return setmetatable( { }, {
                __index = function( _, k )
                    if k == "index" then
                        return customindex
                    elseif k == "newindex" then
                        return customnewindex
                    else
                        return objectmeta[k]
                    end
                end;
                __newindex = function( _, k, v )
                    if k == "metatable" then
                        error( "cannot change this metamethod", 2 )
                    elseif k == "index" then
                        if type( v ) == "function" or type( v ) == "table" or v == nil then
                            customindex = v
                        else
                            error( "cannot use type " .. type( v ) .. " for index metamethod", 2 )
                        end
                    elseif k == "newindex" then
                        if type( v ) == "function" or type( v ) == "table" or v == nil then
                            customnewindex = v
                        else
                            error( "cannot use type " .. type( v ) .. " for newindex metamethod", 2 )
                        end
                    else
                        objectmeta[k] = v
                    end
                end;
                __metatable = { };
            } )
        else
            return object.static[k]
        end
    end
    meta.__newindex = function( _, k, v )
        object.private[k] = v
    end;
    meta.__call = function( self, ... )
        return self:new( ... )
    end;
    meta.__totring = function( )
        return "Class"
    end;
    meta.__metatable = "SwiftClass"

    setmetatable( public, meta )

    return public
end

function class.public( name )
    local object = class.new( name )
    getfenv( )[name] = object
end

function class.type( object )
    if type( object ) == "table" then
        if getmetatable( object ) == "SwiftClass" then
            return "Class"
        end
        if getmetatable( object ) == "SwiftClassObject" then
            return object:type( )
        end
    end
    return type( object )
end

function class.typeOf( object, ... )
    local types = { ... }
    for i = 1, #types do
        if type( object ) == "table" and getmetatable( object ) == "SwiftClassObject" then
            if object:typeOf( types[i] ) then
                return types[i]
            end
        elseif type( object ) == "table" and getmetatable( object ) == "SwiftClass" then
            if types[i] == "Class" then
                return "Class"
            end
        else
            if type( object ) == types[i] then
                return types[i]
            end
        end
    end
    return false
end

setmetatable( class, { __call = function( _, ... ) return class.new( ... ) end } )
local args = { ... }
local global = getfenv( )
local custom = setmetatable( { class = class, ARGS = args }, { __index = global } )
function custom.export( variable, value )
    if custom[variable] ~= nil or value then
        global[variable] = custom[variable] == nil and value or custom[variable]
    end
end
local required = { }
local function require( file, ... )
    if not required[file] and files[file] then
        required[file] = true
        if files[file].meta.type == "class" then
            custom[file] = class( file )
        end
        local fenv = setmetatable( { }, { __index = custom } )
        local f, err = loadstring( files[file].content, file .. ".lua" )
        if f then
            setfenv( f, fenv )
            local ok, data = pcall( f )
            if ok then
                if files[file].meta.type == "lib" then
                    if data ~= nil then
                        custom[file] = data
                        return data
                    else
                        local t = { }
                        for k, v in pairs( fenv ) do
                            t[k] = v
                        end
                        custom[file] = t
                        return t
                    end
                end
                return data
            else
                error( data, 0 )
            end
        else
            error( err, 0 )
        end
    end
end
custom.require = require

for i = 1, #autorun do
    require( autorun[i] )
end