Quest

--  Hideously Smashed Together by Compilr, a Hideous Smash-Stuff-Togetherer, (c) 2014 oeed  --

--  This file REALLLLLLLY isn't suitable to be used for anything other than being executed --

--  To extract all the files, run: "<filename> --extract" in the Shell --
local files = {["Wireless"]="--This is just the OneOS Wireless API\
\
--OneOS uses channels between 4200 and 4300, avoid use where possible\
\
Channels = {\
    Ignored = 4299,\
    Ping = 4200,\
    PingReply = 4201,\
    QuestServerRequest = 4250,\
    QuestServerRequestReply = 4251,\
    QuestServerNameAvailable = 4252,\
    QuestServerNameAvailableReply = 4253,\
}\
\
local function isOpen(channel)\
    return Peripheral.CallType('wireless_modem', 'isOpen', channel)\
end\
\
local function open(channel)\
    if not isOpen(channel) then\
        Peripheral.CallType('wireless_modem', 'open', channel)\
    end\
end\
\
Open = open\
\
local function close(channel)\
    Peripheral.CallType('wireless_modem', 'close', channel)\
end\
\
local function closeAll()\
    Peripheral.CallType('wireless_modem', 'closeAll')\
end\
\
local function transmit(channel, replyChannel, message)\
    Peripheral.CallType('wireless_modem', 'transmit', channel, replyChannel, textutils.serialize(message))\
end\
\
function Present()\
    if Peripheral.GetPeripheral('wireless_modem') == nil then\
        return false\
    else\
        return true\
    end\
end\
\
local function FormatMessage(message, messageID, destinationID)\
    return {\
        content = textutils.serialize(message),\
        senderID = os.getComputerID(),\
        senderName = os.getComputerLabel(),\
        channel = channel,\
        replyChannel = reply,\
        messageID = messageID or math.random(10000),\
        destinationID = destinationID\
    }\
end\
\
local Timeout = function(func, time)\
    time = time or 1\
    parallel.waitForAny(func, function()\
        sleep(time)\
        --log('Timeout!'..time)\
    end)\
end\
\
RecieveMessage = function(_channel, messageID, timeout)\
    open(_channel)\
    local done = false\
    local event, side, channel, replyChannel, message = nil\
    Timeout(function()\
        while not done do\
            event, side, channel, replyChannel, message = os.pullEvent('modem_message')\
            if channel ~= _channel then\
                event, side, channel, replyChannel, message = nil\
            else\
                message = textutils.unserialize(message)\
                message.content = textutils.unserialize(message.content)\
                if messageID and messageID ~= message.messageID or (message.destinationID ~= nil and message.destinationID ~= os.getComputerID()) then\
                    event, side, channel, replyChannel, message = nil\
                else\
                    done = true\
                end\
            end\
        end\
    end,\
    timeout)\
    return event, side, channel, replyChannel, message\
end\
\
Initialise = function()\
    if Present() then\
        for i, c in pairs(Channels) do\
            open(c)\
        end\
    end\
end\
\
HandleMessage = function(event, side, channel, replyChannel, message, distance)\
    message = textutils.unserialize(message)\
    message.content = textutils.unserialize(message.content)\
\
    if channel == Channels.Ping then\
        if message.content == 'Ping!' then\
            SendMessage(replyChannel, 'Pong!', nil, message.messageID)\
        end\
    elseif message.destinationID ~= nil and message.destinationID ~= os.getComputerID() then\
    elseif Wireless.Responder then\
        Wireless.Responder(event, side, channel, replyChannel, message, distance)\
    end\
end\
\
SendMessage = function(channel, message, reply, messageID, destinationID)\
    reply = reply or channel + 1\
    open(channel)\
    open(reply)\
    local _message = FormatMessage(message, messageID, destinationID)\
    transmit(channel, reply, _message)\
    return _message\
end\
\
Ping = function()\
    local message = SendMessage(Channels.Ping, 'Ping!', Channels.PingReply)\
    RecieveMessage(Channels.PingReply, message.messageID)\
end",["parser"]="--[[\
    This API was not created by myself, it was copied from https://github.com/voidfiles/webscript-lua-modules/tree/master/html\
\
    It has been modified slightly to be more suitable for CCML (removed unused tags, cleaned up returned table a little, etc)\
\
    Original License:\
\
    Copyright (c) 2007 T. Kobayashi\
\
    Permission is hereby granted, free of charge, to any person obtaining a \
    copy of this software and associated documentation files (the \
    \"Software\"), to deal in the Software without restriction, including \
    without limitation the rights to use, copy, modify, merge, publish, \
    distribute, sublicense, and/or sell copies of the Software, and to \
    permit persons to whom the Software is furnished to do so, subject to \
    the following conditions: \
\
    The above copyright notice and this permission notice shall be included \
    in all copies or substantial portions of the Software. \
\
    THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS \
    OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF \
    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. \
    IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY \
    CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, \
    TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE \
    SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. \
\
]]\
\
entity = {\
  nbsp = \" \",\
  lt = \"<\",\
  gt = \">\",\
  quot = \"\\\"\",\
  amp = \"&\",\
}\
\
-- keep unknown entity as is\
setmetatable(entity, {\
  __index = function (t, key)\
    return \"&\" .. key .. \";\"\
  end\
})\
\
block = {\
  \"address\",\
  \"blockquote\",\
  \"center\",\
  \"dir\", \"div\", \"dl\",\
  \"fieldset\", \"form\",\
  \"h\", \"h1\", \"h2\", \"h3\", \"h4\", \"h5\", \"h6\", \"hr\", \
  \"isindex\",\
  \"menu\",\
  \"noframes\",\
  \"ol\",\
  \"p\",\
  \"pre\",\
  \"table\",\
  \"ul\",\
}\
\
inline = {\
  \"a\", \"abbr\", \"acronym\", \"applet\",\
  \"b\", \"basefont\", \"bdo\", \"big\", \"br\", \"button\",\
  \"cite\", \"code\",\
  \"dfn\",\
  \"em\",\
  \"font\",\
  \"i\", \"iframe\", \"img\", \"input\",\
  \"kbd\",\
  \"label\",\
  \"map\",\
  \"object\",\
  \"q\",\
  \"s\", \"samp\", \"select\", \"small\", \"span\", \"strike\", \"strong\", \"sub\", \"sup\",\
  \"textarea\", \"tt\",\
  \"u\",\
  \"var\",\
}\
\
tags = {\
  a = { empty = false },\
  abbr = {empty = false} ,\
  acronym = {empty = false} ,\
  address = {empty = false} ,\
  applet = {empty = false} ,\
  area = {empty = true} ,\
  b = {empty = false} ,\
  base = {empty = true} ,\
  basefont = {empty = true} ,\
  bdo = {empty = false} ,\
  big = {empty = false} ,\
  blockquote = {empty = false} ,\
  body = { empty = false, },\
  br = {empty = true} ,\
  button = {empty = false} ,\
  caption = {empty = false} ,\
  center = {empty = false} ,\
  cite = {empty = false} ,\
  code = {empty = false} ,\
  col = {empty = true} ,\
  colgroup = {\
    empty = false,\
    optional_end = true,\
    child = {\"col\",},\
  },\
  dd = {empty = false} ,\
  del = {empty = false} ,\
  dfn = {empty = false} ,\
  dir = {empty = false} ,\
  div = {empty = false} ,\
  dl = {empty = false} ,\
  dt = {\
    empty = false,\
    optional_end = true,\
    child = {\
      inline,\
      \"del\",\
      \"ins\",\
      \"noscript\",\
      \"script\",\
    },\
  },\
  em = {empty = false} ,\
  fieldset = {empty = false} ,\
  font = {empty = false} ,\
  form = {empty = false} ,\
  frame = {empty = true} ,\
  frameset = {empty = false} ,\
  h1 = {empty = false} ,\
  h2 = {empty = false} ,\
  h3 = {empty = false} ,\
  h4 = {empty = false} ,\
  h5 = {empty = false} ,\
  h6 = {empty = false} ,\
  head = {empty = false} ,\
  hr = {empty = true} ,\
  html = {empty = false} ,\
  i = {empty = false} ,\
  iframe = {empty = false} ,\
  img = {empty = true} ,\
  input = {empty = true} ,\
  ins = {empty = false} ,\
  isindex = {empty = true} ,\
  kbd = {empty = false} ,\
  label = {empty = false} ,\
  legend = {empty = false} ,\
  li = {\
    empty = false,\
    optional_end = true,\
    child = {\
      inline,\
      block,\
      \"del\",\
      \"ins\",\
      \"noscript\",\
      \"script\",\
    },\
  },\
  link = {empty = true} ,\
  map = {empty = false} ,\
  menu = {empty = false} ,\
  meta = {empty = true} ,\
  noframes = {empty = false} ,\
  noscript = {empty = false} ,\
  object = {empty = false} ,\
  ol = {empty = false} ,\
  optgroup = {empty = false} ,\
  option = {\
    empty = false,\
    optional_end = true,\
    child = {},\
  },\
  p = {\
    empty = false,\
    optional_end = true,\
    child = {\
      inline,\
      \"del\",\
      \"ins\",\
      \"noscript\",\
      \"script\",\
    },\
  } ,\
  param = {empty = true} ,\
  pre = {empty = false} ,\
  q = {empty = false} ,\
  s =  {empty = false} ,\
  samp = {empty = false} ,\
  script = {empty = false} ,\
  select = {empty = false} ,\
  small = {empty = false} ,\
  span = {empty = false} ,\
  strike = {empty = false} ,\
  strong = {empty = false} ,\
  style = {empty = false} ,\
  sub = {empty = false} ,\
  sup = {empty = false} ,\
  table = {empty = false} ,\
  tbody = {empty = false} ,\
  td = {\
    empty = false,\
    optional_end = true,\
    child = {\
      inline,\
      block,\
      \"del\",\
      \"ins\",\
      \"noscript\",\
      \"script\",\
    },\
  },\
  textarea = {empty = false} ,\
  tfoot = {\
    empty = false,\
    optional_end = true,\
    child = {\"tr\",},\
  },\
  th = {\
    empty = false,\
    optional_end = true,\
    child = {\
      inline,\
      block,\
      \"del\",\
      \"ins\",\
      \"noscript\",\
      \"script\",\
    },\
  },\
  thead = {\
    empty = false,\
    optional_end = true,\
    child = {\"tr\",},\
  },\
  title = {empty = false} ,\
  tr = {\
    empty = false,\
    optional_end = true,\
    child = {\
      \"td\", \"th\",\
    },\
  },\
  tt = {empty = false} ,\
  u = {empty = false} ,\
  ul = {empty = false} ,\
  var = {empty = false} ,\
}\
\
setmetatable(tags, {\
  __index = function (t, key)\
    return {empty = false}\
  end\
})\
\
-- string buffer implementation\
function newbuf ()\
  local buf = {\
    _buf = {},\
    clear =   function (self) self._buf = {}; return self end,\
    content = function (self) return table.concat(self._buf) end,\
    append =  function (self, s)\
      self._buf[#(self._buf) + 1] = s\
      return self\
    end,\
    set =     function (self, s) self._buf = {s}; return self end,\
  }\
  return buf\
end\
\
-- unescape character entities\
function unescape (s)\
  function entity2string (e)\
    return entity[e]\
  end\
  return s.gsub(s, \"&(#?%w+);\", entity2string)\
end\
\
-- iterator factory\
function makeiter (f)\
  local co = coroutine.create(f)\
  return function ()\
    local code, res = coroutine.resume(co)\
    return res\
  end\
end\
\
-- constructors for token\
function Tag (s) \
  return string.find(s, \"^</\") and\
    {type = \"End\",   value = s} or\
    {type = \"Start\", value = s}\
end\
\
function Text (s)\
  local unescaped = unescape(s) \
  return {type = \"Text\", value = unescaped} \
end\
\
-- lexer: text mode\
function text (f, buf)\
  local c = f:read(1)\
  if c == \"<\" then\
    if buf:content() ~= \"\" then coroutine.yield(Text(buf:content())) end\
    buf:set(c)\
    return tag(f, buf)\
  elseif c then\
    buf:append(c)\
    return text(f, buf)\
  else\
    if buf:content() ~= \"\" then coroutine.yield(Text(buf:content())) end\
  end\
end\
\
-- lexer: tag mode\
function tag (f, buf)\
  local c = f:read(1)\
  if c == \">\" then\
    coroutine.yield(Tag(buf:append(c):content()))\
    buf:clear()\
    return text(f, buf)\
  elseif c then\
    buf:append(c)\
    return tag(f, buf)\
  else\
    if buf:content() ~= \"\" then coroutine.yield(Tag(buf:content())) end\
  end\
end\
\
function parse_starttag(tag)\
  local tagname = string.match(tag, \"<%s*(%w+)\")\
  local elem = {_attr = {}}\
  elem._tag = tagname\
  for key, _, val in string.gmatch(tag, \"(%w+)%s*=%s*([\\\"'])(.-)%2\", i) do\
    local unescaped = unescape(val)\
    elem._attr[key] = unescaped\
  end\
  return elem\
end\
\
function parse_endtag(tag)\
  local tagname = string.match(tag, \"<%s*/%s*(%w+)\")\
  return tagname\
end\
\
-- find last element that satisfies given predicate\
function rfind(t, pred)\
  local length = #t\
  for i=length,1,-1 do\
    if pred(t[i]) then\
      return i, t[i]\
    end\
  end\
end\
\
function flatten(t, acc)\
  acc = acc or {}\
  for i,v in ipairs(t) do\
    if type(v) == \"table\" then\
      flatten(v, acc)\
    else\
      acc[#acc + 1] = v\
    end\
  end\
  return acc\
end\
\
function optional_end_p(elem)\
  if tags[elem._tag].optional_end then\
    return true\
  else\
    return false\
  end\
end\
\
function valid_child_p(child, parent)\
  local schema = tags[parent._tag].child\
  if not schema then return true end\
\
  for i,v in ipairs(flatten(schema)) do\
    if v == child._tag then\
      return true\
    end\
  end\
\
  return false\
end\
\
-- tree builder\
function parse(f)\
  local root = {_tag = \"#document\", _attr = {}}\
  local stack = {root}\
  for i in makeiter(function () return text(f, newbuf()) end) do\
    if i.type == \"Start\" then\
      local new = parse_starttag(i.value)\
      local top = stack[#stack]\
\
      while\
        top._tag ~= \"#document\" and \
        optional_end_p(top) and\
        not valid_child_p(new, top)\
      do\
        stack[#stack] = nil \
        top = stack[#stack]\
      end\
\
      top[#top+1] = new -- appendchild\
      if not tags[new._tag].empty then \
        stack[#stack+1] = new -- push\
      end\
    elseif i.type == \"End\" then\
      local tag = parse_endtag(i.value)\
      local openingpos = rfind(stack, function(v) \
          if v._tag == tag then\
            return true\
          else\
            return false\
          end\
        end)\
      if openingpos then\
        local length = #stack\
        for j=length,openingpos,-1 do\
          table.remove(stack, j)\
        end\
      end\
    else -- Text\
        if #string.gsub(string.gsub(i.value, \"%s+\", \"\"), '\\n', '') ~= 0 then\
            local top = stack[#stack]\
            top[#top+1] = i.value\
        end\
    end\
  end\
  return root\
end\
\
function parsestr(s)\
  local handle = {\
    _content = s,\
    _pos = 1,\
    read = function (self, length)\
      if self._pos > string.len(self._content) then return end\
      local ret = string.sub(self._content, self._pos, self._pos + length - 1)\
      self._pos = self._pos + length\
      return ret\
    end\
  }\
  return parse(handle)\
end",["Elements"]={["SecureTextInput.lua"]="Inherit = 'TextInput'\
\
UpdateValue = function(self)\
    self.Value = hash.sha256(self.Object.Text)\
end\
\
OnCreateObject = function(self, parentObject, y)\
    return {\
        Element = self,\
        Y = y,\
        X = 1,\
        Width = self.Width,\
        Type = \"SecureTextBox\",\
        Text = self.Value,\
        TextColour = self.TextColour,\
        BackgroundColour = self.BackgroundColour,\
        SelectedBackgroundColour = self.SelectedBackgroundColour,\
        SelectedTextColour = self.SelectedTextColour,\
        PlaceholderTextColour = self.PlaceholderTextColour,\
        Placeholder = self.Placeholder,\
        InputName = self.InputName,\
        OnChange = function(_self, event, keychar)\
            if keychar == keys.tab or keychar == keys.enter then\
                local form = self\
                local step = 0\
                while form.Tag ~= 'form' and step < 50 do\
                    form = form.Parent\
                end\
                if keychar == keys.tab then\
                    if form and form.Object and form.Object.OnTab then\
                        form.Object:OnTab()\
                    end\
                else\
                    if form and form.Submit then\
                        form:Submit(true)\
                    end\
                end\
            end\
        end\
    }\
end",["Image.lua"]="URL = nil\
Format = nil\
\
OnInitialise = function(self, node)\
    local attr = self.Attributes\
    if attr.src then\
        self.URL = attr.src\
    end\
\
    if attr.type then\
        self.Format = attr.type\
    end\
\
    if attr.height then\
        self.Height = attr.height\
    end\
\
    if attr.width then\
        self.Width = attr.width\
    end\
end\
\
OnCreateObject = function(self, parentObject, y)\
    return {\
        Element = self,\
        Y = y,\
        X = 1,\
        Width = self.Width,\
        Height = self.Height,\
        URL = self.URL,\
        Format = self.Format,\
        Type = \"WebImageView\"\
    }\
end",["Script.lua"]="Text = nil\
URL = nil\
\
OnInitialise = function(self, node)\
    local attr = self.Attributes\
    self.Text = table.concat(node, '\\n')\
\
    if attr.src then\
        self.URL = attr.src\
        self.Text = nil\
    end\
end\
\
InsertScript = function(self, webView)\
    if self.Text then\
        webView:LoadScript(self.Text)\
    elseif self.URL then\
        fetchHTTPAsync(resolveFullUrl(self.URL), function(ok, event, response)\
            if ok then\
                self.Text = response.readAll()\
                webView:LoadScript(self.Text)\
            end\
        end)\
\
    end\
    return nil\
end",["Select.lua"]="Width = 20\
InputName = ''\
\
OnInitialise = function(self, node)\
    if attr.value then\
        new.Text = attr.value\
    end\
\
    if attr.name then\
        new.InputName = attr.name\
    end\
end\
\
UpdateValue = function(self)\
    self.Value = self.Object.MenuItems[self.Object.Selected].Value\
end\
\
OnCreateObject = function(self, parentObject, y)\
    return {\
        Element = self,\
        Y = y,\
        X = 1,\
        Width = self.Width,\
        Type = \"SelectView\",\
        TextColour = self.TextColour,\
        BackgroundColour = self.BackgroundColour,\
        InputName = self.InputName,\
    }\
end",["Paragraph.lua"]="Align = \"Left\"\
\
OnInitialise = function(self, node)\
    local attr = self.Attributes\
    self.Text = self.Text or ''\
    if attr.align then\
        if attr.align:lower() == 'left' or attr.align:lower() == 'center' or attr.align:lower() == 'right' then\
            self.Align = attr.align:lower():gsub(\"^%l\", string.upper)\
        end\
    end\
end\
\
OnCreateObject = function(self, parentObject, y)\
    return {\
        Element = self,\
        Y = y,\
        X = 1,\
        Width = self.Width,\
        Height = self.Height,\
        Align = self.Align,\
        Type = \"Label\",\
        Text = self.Text,\
        TextColour = self.TextColour,\
        BackgroundColour = self.BackgroundColour,\
        OnUpdate = function(_self, value)\
            if value == 'Text' then\
                if not self.Attributes.height then\
                    _self.Height = #_self.Bedrock.Helpers.WrapText(_self.Text, _self.Width)\
                    _self.Bedrock:GetObject('WebView'):RepositionLayout()\
                end\
            end\
        end\
    }\
end",["HiddenInput.lua"]="InputName = ''\
\
OnInitialise = function(self, node)\
    local attr = self.Attributes\
    if attr.value then\
        self.Value = attr.value\
    end\
\
    if attr.name then\
        self.InputName = attr.name\
    end\
end",["ButtonInput.lua"]="BackgroundColour = colours.lightGrey\
TextColour = colours.black\
Text = 'Submit'\
InputName = ''\
\
OnInitialise = function(self, node)\
    local attr = self.Attributes\
    if attr.value then\
        self.Text = attr.value\
    end\
\
    if attr.name then\
        self.InputName = attr.name\
    end\
\
    if not attr.width then\
        self.Width = #self.Text + 2\
    end\
end\
\
UpdateValue = function(self, force)\
    if force then\
        self.Value = self.Object.Text\
    end\
end\
\
CreateObject = function(self, parentObject, y)\
    return parentObject:AddObject({\
        Element = self,\
        Y = y,\
        X = 1,\
        Width = self.Width,\
        Type = \"Button\",\
        Text = self.Text,\
        TextColour = self.TextColour,\
        BackgroundColour = self.BackgroundColour,\
        InputName = self.InputName,\
        OnClick = function(_self, event, side, x, y)\
            local form = self\
            local step = 0\
            while form.Tag ~= 'form' and step < 50 do\
                form = form.Parent\
            end\
            self.Value = _self.Text\
            if form and form.Submit then\
                form:Submit()\
            end\
        end\
    })\
end",["Float.lua"]="Align = \"Left\"\
\
OnInitialise = function(self, node)\
    local attr = self.Attributes\
    if attr.align then\
        if attr.align:lower() == 'left' or attr.align:lower() == 'right' then\
            self.Align = attr.align:lower():gsub(\"^%l\", string.upper)\
        end\
    end\
end\
\
OnCreateObject = function(self, parentObject, y)\
    return {\
        Element = self,\
        Y = y,\
        X = 1,\
        Width = self.Width,\
        Height = self.Height,\
        Align = self.Align,\
        BackgroundColour = self.BackgroundColour,\
        Type = \"FloatView\"\
    }\
end",["Element.lua"]="HasChildren = true\
Children = nil\
Tag = nil\
TextColour = colours.black\
BackgroundColour = colours.transparent\
Text = nil\
Attributes = nil\
Width = \"100%\"\
\
Initialise = function(self, node)\
    local new = {}    -- the new instance\
    setmetatable( new, {__index = self} )\
    local attr = node._attr\
    new.Tag = node._tag\
    new.Attributes = attr\
    if new.HasChildren then\
        new.Children = {}\
    end\
\
    if type(node[1]) == 'string' then\
        new.Text = node[1]\
    end\
    \
    if attr.colour then\
        new.TextColour = self:ParseColour(attr.colour)\
    elseif attr.color then\
        new.TextColour = self:ParseColour(attr.color)\
    end\
\
    if attr.bgcolour then\
        new.BackgroundColour = self:ParseColour(attr.bgcolour)\
    elseif attr.bgcolor then\
        new.BackgroundColour = self:ParseColour(attr.bgcolor)\
    end\
\
    if attr.height then\
        new.Height = attr.height\
    end\
\
    if attr.width then\
        new.Width = attr.width\
    end\
\
    if new.OnInitialise then\
        new:OnInitialise(node)\
    end\
\
    return new\
end\
\
ParseColour = function(self, str)\
    if str and type(str) == 'string' then\
        if colours[str] and type(colours[str]) == 'number' then\
            return colours[str]\
        elseif colors[str] and type(colors[str]) == 'number' then\
            return colors[str]\
        end\
    end\
end\
\
CreateObject = function(self, parentObject, y)\
    local object\
    if self.OnCreateObject then\
        object = self:OnCreateObject()\
    else\
        object = {\
            Element = self,\
            Y = y,\
            X = 1,\
            Width = self.Width,\
            Height = self.Height,\
            BackgroundColour = self.BackgroundColour,\
            Type = \"View\"\
        }\
    end\
\
    if object then\
        return parentObject:AddObject(object, parentObject, y)\
    end\
end",["Divider.lua"]="Char = nil\
\
OnInitialise = function(self, node)\
    local attr = self.Attributes\
    self.Text = self.Text or ''\
    if attr.char then\
        if #attr.char == 1 then\
            self.Char = attr.char\
        end\
    end\
end\
\
OnCreateObject = function(self, parentObject, y)\
    return {\
        Element = self,\
        Y = y,\
        X = 1,\
        Width = self.Width,\
        Height = self.Height,\
        BackgroundColour = self.BackgroundColour,\
        TextColour = self.TextColour,\
        Type = \"DividerView\",\
        Char = self.Char\
    }\
end",["Link.lua"]="Align = 'Left'\
Width = \"100%\"\
TextColour = colours.blue\
UnderlineColour = nil\
UnderlineVisible = true\
URL = nil\
\
OnInitialise = function(self, node)\
    local attr = self.Attributes\
    if attr.href then\
        self.URL = attr.href\
    end\
    \
    if attr.ulcolour then\
        if attr.ulcolour == 'none' then\
            self.UnderlineVisible = false\
        else\
            self.UnderlineColour = self:ParseColour(attr.ulcolour)\
        end\
    elseif attr.ulcolor then\
        if attr.ulcolor == 'none' then\
            self.UnderlineVisible = false\
        else\
            self.UnderlineColour = self:ParseColour(attr.ulcolor)\
        end\
    end\
\
    if attr.align then\
        if attr.align:lower() == 'left' or attr.align:lower() == 'center' or attr.align:lower() == 'right' then\
            self.Align = attr.align:lower():gsub(\"^%l\", string.upper)\
        end\
    end\
end\
\
OnCreateObject = function(self, parentObject, y)\
    return {\
        Element = self,\
        Y = y,\
        X = 1,\
        Width = self.Width,\
        Align = self.Align,\
        Type = \"LinkView\",\
        Text = self.Text,\
        TextColour = self.TextColour,\
        UnderlineColour = self.UnderlineColour,\
        BackgroundColour = self.BackgroundColour,\
        URL = resolveFullUrl(self.URL),\
        UnderlineVisible = self.UnderlineVisible\
    }\
end",["Center.lua"]="OnCreateObject = function(self, parentObject, y)\
    return {\
        Element = self,\
        Y = y,\
        X = 1,\
        Width = \"100%\",\
        Height = self.Height,\
        BackgroundColour = self.BackgroundColour,\
        Type = \"CenterView\"\
    }\
end",["Form.lua"]="Submit = function(self, onEnter)\
    local values = {}\
    \
    local node = false\
    node = function(elem)\
        if (elem.Tag == 'input' or elem.Tag == 'select') and elem.InputName then\
            local findSubmit = (onEnter and elem.Attributes and elem.Attributes.type == 'submit')\
            if elem.UpdateValue then\
                elem:UpdateValue(findSubmit)\
            end\
\
            if findSubmit then\
                onEnter = false\
            end\
\
            if elem.Value then\
                values[elem.InputName] = elem.Value\
            end\
        end\
\
        if elem.Children then\
            for i, child in ipairs(elem.Children) do\
                node(child)\
            end\
        end\
    end\
\
    node(self)\
\
    local url = false\
    if self.Attributes.action and #self.Attributes.action > 0 then\
        url = resolveFullUrl(self.Attributes.action) --TODO: this needs to show the fake url to the user\
    else\
        url = getCurrentFakeUrl()\
    end\
    local data = ''\
    for k, v in pairs(values) do\
        data = data .. textutils.urlEncode(k) .. '=' .. textutils.urlEncode(v) .. '&'\
    end\
    data = data:sub(1, #data - 1)\
\
    if self.Attributes.method and self.Attributes.method:lower() == 'post' then\
        goToUrl(url, data)\
    else\
        goToUrl(url .. '?' .. data)\
    end\
end\
\
OnCreateObject = function(self, parentObject, y)\
    return {\
        Element = self,\
        Y = y,\
        X = 1,\
        Width = \"100%\",\
        Height = self.Height,\
        Type = \"FormView\"\
    }\
end",["FileInput.lua"]="BackgroundColour = colours.lightGrey\
TextColour = colours.black\
Text = 'Choose File...'\
InputName = ''\
FilePath = 'test'\
\
OnInitialise = function(self, node)\
    local attr = self.Attributes\
    if attr.value then\
        self.Text = attr.value\
    end\
\
    if attr.name then\
        self.InputName = attr.name\
    end\
\
    if not attr.width then\
        self.Width = #self.Text + 2\
    end\
end\
\
UpdateValue = function(self, force)\
    if self.FilePath then\
        local f = fs.open(self.FilePath, 'r')\
        if f then\
            local content = f.readAll()\
            self.Value = '{\"name\": \"' .. fs.getName(self.FilePath):gsub('\"', '\\\\\"') .. '\", \"content\": \"' .. content:gsub('\"', '\\\\\"') .. '\"}'\
            f.close()\
        end\
    end\
end\
\
CreateObject = function(self, parentObject, y)\
    return parentObject:AddObject({\
        Element = self,\
        Y = y,\
        X = 1,\
        Width = self.Width,\
        Type = \"Button\",\
        Text = self.Text,\
        TextColour = self.TextColour,\
        BackgroundColour = self.BackgroundColour,\
        InputName = self.InputName,\
        OnClick = function(_self, event, side, x, y)\
            _self.Bedrock:DisplayOpenFileWindow(nil, function(success, path)\
                if success then\
                    self.FilePath = path\
                    _self.Text = 'File: '..fs.getName(path)\
                    _self.Align = 'Left'\
                end\
            end)\
        end\
    })\
end",["Heading.lua"]="Align = \"Center\"\
\
OnInitialise = function(self, node)\
    local attr = self.Attributes\
    self.Text = self.Text or ''\
    if attr.align then\
        if attr.align:lower() == 'left' or attr.align:lower() == 'center' or attr.align:lower() == 'right' then\
            self.Align = attr.align:lower():gsub(\"^%l\", string.upper)\
        end\
    end\
end\
\
OnCreateObject = function(self, parentObject, y)\
    return {\
        Element = self,\
        Y = y,\
        X = 1,\
        Width = \"100%\",\
        Align = self.Align,\
        Type = \"HeadingView\",\
        Text = self.Text,\
        TextColour = self.TextColour,\
        BackgroundColour = self.BackgroundColour\
    }\
end",["TextInput.lua"]="SelectedBackgroundColour = colours.blue\
SelectedTextColour = colours.white\
PlaceholderTextColour = colours.grey\
Placeholder = ''\
Value = nil\
Attributes = nil\
Children = nil\
Tag = nil\
Width = 20\
InputName = ''\
\
OnInitialise = function(self, node)\
    local attr = self.Attributes\
    if attr.selbgcolour then\
        self.SelectedBackgroundColour = self:ParseColour(attr.selbgcolour)\
    elseif attr.selbgcolor then\
        self.SelectedBackgroundColour = self:ParseColour(attr.selbgcolor)\
    end\
\
    if attr.selcolour then\
        self.SelectedTextColour = self:ParseColour(attr.selcolour)\
    elseif attr.selcolor then\
        self.SelectedTextColour = self:ParseColour(attr.selcolor)\
    end\
\
    if attr.plcolour then\
        self.PlaceholderTextColour = self:ParseColour(attr.plcolour)\
    elseif attr.plcolour then\
        self.PlaceholderTextColour = self:ParseColour(attr.plcolour)\
    end\
\
    if attr.value then\
        self.Value = attr.value\
    end\
\
    if attr.placeholder then\
        self.Placeholder = attr.placeholder\
    end\
\
    if attr.name then\
        self.InputName = attr.name\
    end\
end\
\
UpdateValue = function(self)\
    self.Value = self.Object.Text\
end\
\
OnCreateObject = function(self, parentObject, y)\
    return {\
        Element = self,\
        Y = y,\
        X = 1,\
        Width = self.Width,\
        Type = \"TextBox\",\
        Text = self.Value,\
        TextColour = self.TextColour,\
        BackgroundColour = self.BackgroundColour,\
        SelectedBackgroundColour = self.SelectedBackgroundColour,\
        SelectedTextColour = self.SelectedTextColour,\
        PlaceholderTextColour = self.PlaceholderTextColour,\
        Placeholder = self.Placeholder,\
        InputName = self.InputName,\
        OnChange = function(_self, event, keychar)\
            if keychar == keys.tab or keychar == keys.enter then\
                local form = self\
                local step = 0\
                while form.Tag ~= 'form' and step < 50 do\
                    form = form.Parent\
                end\
                if keychar == keys.tab then\
                    if form and form.Object and form.Object.OnTab then\
                        form.Object:OnTab()\
                    end\
                else\
                    if form and form.Submit then\
                        form:Submit(true)\
                    end\
                end\
            end\
        end\
    }\
end",["ElementTree.lua"]="Tree = nil\
FailHandler = nil\
\
Initialise = function(self, html)\
    local new = {}    -- the new instance\
    setmetatable( new, {__index = self} )\
    local err = nil\
    if html:sub(1,15) ~= '<!DOCTYPE ccml>' then\
        err = Errors.InvalidDoctype\
    end\
\
    html = html:gsub(\"<!%-%-*.-%-%->\",\"\")\
\
    local rawTree\
    if not err then\
        rawTree = parser.parsestr(html)[1]\
    end\
\
    if not err then\
        _, notok = pcall(function() new:LoadTree(rawTree) end)\
        if notok then\
            error(notok)\
            err = Errors.ParseFailed\
        end\
    end\
\
    if err then\
        return nil, err\
    end\
    return new\
end\
\
LoadTree = function(self, rawTree)\
    local tree = {}\
    local node = true\
    node = function (tbl, tr, parent)\
        for i, v in ipairs(tbl) do\
            if type(v) == 'table' and v._tag then\
                local class = self:GetElementClass(v._tag, v._attr)\
                if not class or not class.Initialise then\
                    error('Unknown class: '..v._attr.type)\
                end\
                local element = class:Initialise(v)\
                element.Parent = parent\
                table.insert(tr, element)\
                if element.Children then\
                    node(v, element.Children, element)\
                end\
            end\
        end\
    end\
\
    node(rawTree, tree)\
    self.Tree = tree\
end\
\
GetElement = function(self, tag)\
    local node = true\
    node = function(tbl)\
        for i,v in ipairs(tbl) do\
            if type(v) == 'table' and v.Tag then\
                if v.Tag == tag then\
                    return v\
                end\
                if v.Children then\
                    local r = node(v.Children)\
                    if r then\
                        return r\
                    end\
                end\
            end\
        end\
    end\
    return node(self.Tree)\
end\
\
GetElementClass = function(self, tag, attr)\
    if tag == 'h' then\
        return Heading\
    elseif tag == 'div' then\
        return Divider\
    elseif tag == 'p' then\
        return Paragraph\
    elseif tag == 'center' then\
        return Center\
    elseif tag == 'img' then\
        return Image\
    elseif tag == 'a' then\
        return Link\
    elseif tag == 'float' then\
        return Float\
    elseif tag == 'br' then\
        return Element\
    elseif tag == 'input' then\
        if attr.type == 'text' then\
            return TextInput\
        elseif attr.type == 'password' then\
            return SecureTextInput\
        elseif attr.type == 'submit' or attr.type == 'button' then\
            return ButtonInput\
        elseif attr.type == 'file' then\
            return FileInput\
        elseif attr.type == 'hidden' then\
            return HiddenInput\
        else\
            return Element\
        end\
    elseif tag == 'select' then\
        return Select\
    elseif tag == 'option' then\
        return SelectOption\
    elseif tag == 'form' then\
        return Form\
    elseif tag == 'script' then\
        return Script\
    else\
        return Element\
    end\
end",["SelectOption.lua"]="Value = nil\
\
OnInitialise = function(self, node)\
    if attr.value then\
        new.Value = attr.value\
    end\
end\
\
OnCreateObject = function(self, parentObject, y)\
    if parentObject.AddMenuItem then\
        parentObject:AddMenuItem({\
            Value = self.Value,\
            Text = self.Text,\
            Type = \"Button\"\
        })\
    end\
end",},["startup"]="local QuestVersion = 'v0.9.0 Private Beta'\
if OneOS then\
    QuestVersion = QuestVersion .. '-OneOS ' .. OneOS.Version\
end\
\
-- TODO: have a much simpler API loader... not a 70+ line one\
local Extension = function(path, addDot)\
    if not path then\
        return nil\
    elseif not string.find(fs.getName(path), '%.') then\
        if not addDot then\
            return fs.getName(path)\
        else\
            return ''\
        end\
    else\
        local _path = path\
        if path:sub(#path) == '/' then\
            _path = path:sub(1,#path-1)\
        end\
        local extension = _path:gmatch('%.[0-9a-z]+$')()\
        if extension then\
            extension = extension:sub(2)\
        else\
            --extension = nil\
            return ''\
        end\
        if addDot then\
            extension = '.'..extension\
        end\
        return extension:lower()\
    end\
end\
\
local RemoveExtension = function(path)\
    if path:sub(1,1) == '.' then\
        return path\
    end\
    local extension = Extension(path)\
    if extension == path then\
        return fs.getName(path)\
    end\
    return string.gsub(path, extension, ''):sub(1, -2)\
end\
\
local tAPIsLoading = {}\
local function LoadAPI(_sPath)\
    local sName = RemoveExtension(fs.getName( _sPath ))\
    if tAPIsLoading[sName] == true then\
    end\
    tAPIsLoading[sName] = true\
        \
    local tEnv = {isStartup = true }\
    setmetatable( tEnv, { __index = getfenv()} )\
    local fnAPI, err = loadfile( _sPath )\
    if fnAPI then\
        setfenv( fnAPI, tEnv )\
        fnAPI()\
    else\
        printError( err )\
        log('Error: '..err)\
        tAPIsLoading[sName] = nil\
        return false\
    end\
    \
    local tAPI = {}\
    for k,v in pairs( tEnv ) do\
        tAPI[k] =  v\
    end\
    \
    _G[sName] = tAPI\
end\
\
_G.Errors = {\
    Unknown = 1,\
    InvalidDoctype = 2,\
    ParseFailed = 3,\
    NotFound = 404,\
    TimeoutStop = 408,\
}\
\
local bedrockPath='/' if OneOS then OneOS.LoadAPI('/System/API/Bedrock.lua', false)elseif fs.exists(bedrockPath..'/Bedrock')then os.loadAPI(bedrockPath..'/Bedrock')else if http then print('Downloading Bedrock...')local h=http.get('http://pastebin.com/raw.php?i=0MgKNqpN')if h then local f=fs.open(bedrockPath..'/Bedrock','w')f.write(h.readAll())f.close()h.close()os.loadAPI(bedrockPath..'/Bedrock')else error('Failed to download Bedrock. Is your internet working?') end else error('This program needs to download Bedrock to work. Please enable HTTP.') end end if Bedrock then Bedrock.BasePath = bedrockPath Bedrock.ProgramPath = shell.getRunningProgram() end\
\
os.loadAPI('parser')\
os.loadAPI('hash')\
os.loadAPI('lQuery')\
os.loadAPI('Peripheral')\
os.loadAPI('Wireless')\
\
LoadAPI('Elements/Element.lua')\
\
LoadAPI('Elements/ElementTree.lua')\
\
local elements = {\
    'Script',\
    'Center',\
    'Link',\
    'Image',\
    'Divider',\
    'Heading',\
    'Paragraph',\
    'Float',\
    'TextInput',\
    'FileInput',\
    'SecureTextInput',\
    'Select',\
    'Form',\
    'SelectOption',\
    'ButtonInput',\
    'HiddenInput',\
}\
\
for i, v in ipairs(elements) do\
    LoadAPI('Elements/' .. v .. '.lua')\
    local env = getfenv()\
    local super = Element\
    if env[v].Inherit then\
        super = env[env[v].Inherit]\
    end\
    env[v].__index = super\
    setmetatable(env[v], env[v])\
end\
\
local program = Bedrock:Initialise()\
\
local function split(str, pat)\
   local t = {}\
   local fpat = \"(.-)\" .. pat\
   local last_end = 1\
   local s, e, cap = str:find(fpat, 1)\
   while s do\
      if s ~= 1 or cap ~= \"\" then\
     table.insert(t,cap)\
      end\
      last_end = e+1\
      s, e, cap = str:find(fpat, last_end)\
   end\
   if last_end <= #str then\
      cap = str:sub(last_end)\
      table.insert(t, cap)\
   end\
   return t\
end\
\
local httpQueue = {}\
\
program:RegisterEvent('http_success', function(self, event, url, response)\
    for i, request in ipairs(httpQueue) do\
        if request[3] == url then\
            request[2](true, url, response)\
            table.remove(httpQueue, i)\
            break\
        end\
    end\
end)\
\
program:RegisterEvent('http_failure', function(self, event, url)\
    for i, request in ipairs(httpQueue) do\
        if request[3] == url then\
            request[2](false, Errors.Unknown)\
            table.remove(httpQueue, i)\
            break\
        end\
    end\
end)\
\
program:RegisterEvent('modem_message', function(self, event, side, channel, replyChannel, message, distance)\
    Wireless.HandleMessage(event, side, channel, replyChannel, message, distance)\
end)\
\
local wifiQueue = {}\
\
Wireless.Responder = function(event, side, channel, replyChannel, message, distance)\
    if channel == Wireless.Channels.QuestServerRequestReply then\
        for i, request in ipairs(wifiQueue) do\
            if request[1] == message.content.url then\
                if message.content.content then\
                    local line = 0\
                    local lines = split(message.content.content, '\\n')\
                    local handle = {\
                        readAll = function()return message.content.content end,\
                        readLine = function()\
                            line = line + 1\
                            return lines[line]\
                        end,\
                        close = function()end\
                    }\
                    request[2](true, message.content.url, handle)\
                else\
                    request[2](false, 404)\
                end\
                table.remove(wifiQueue, i)\
                break\
            end\
        end\
    end\
end\
\
local function cancelHTTPAsync(url)\
    for i, request in ipairs(httpQueue) do\
        if request[1] == url then\
            request[2](false, Errors.TimeoutStop)\
            table.remove(httpQueue, i)\
            break\
        end\
    end\
end\
\
local settings = false\
\
local function fetchHTTPAsync(url, callback, post)\
    local components = urlComponents(url)\
    if components.protocol == 'quest' then\
        local file = fs.open(program.ProgramPath .. '/Pages/' .. components.filepathsansget, 'r')\
        callback(true, url, file)\
    elseif components.protocol == 'file' then\
        local file = fs.open(components.sansprotocol, 'r')\
        if file then\
            callback(true, url, file)\
        else\
            callback(false)\
        end\
    elseif components.protocol == 'wifi' then\
        if Wireless.Present() then\
            table.insert(wifiQueue, {url, callback})\
            Wireless.SendMessage(Wireless.Channels.QuestServerRequest, url)\
        else\
            callback(false, 7)\
        end\
    elseif components.protocol == 'http' then\
        local _url = resolveQuestHostUrl(url)\
        table.insert(httpQueue, {url, callback, _url})\
\
        if not post then\
            post = 'questClientIdentifier=' .. textutils.urlEncode(settings.ClientIdentifier)\
        else\
            post = post .. '&questClientIdentifier=' .. textutils.urlEncode(settings.ClientIdentifier)\
        end\
        http.request(_url, post, {\
            ['User-Agent'] = 'Quest/'..QuestVersion\
        })\
    end\
end\
\
local questHost = 'http://quest.net76.net/sites/'\
\
local function findLast(haystack, needle)\
    local i=haystack:match(\".*\"..needle..\"()\")\
    if i==nil then return nil else return i-1 end\
end\
\
local hex_to_char = function(x)\
  return string.char(tonumber(x, 16))\
end\
\
local function urlUnencode( str )\
    -- essentially reverses textutils.urlDecode\
    if str then\
        str = string.gsub(str, \"+\", \" \")\
        str = string.gsub(str, \"\\r\\n\", \"\\n\")\
        term.setTextColor(colors.black)\
        str = str:gsub(\"%%(%x%x)\", hex_to_char)\
    end\
    return str    \
end\
\
local function urlComponents(url)\
    if url then\
        urlUnencode(textutils.urlEncode(url))\
        local components = {}\
        local parts = split(url, '[\\\\/]+')\
        if url:find('://') and parts[1]:sub(#parts[1]) == ':' then\
            components.protocol = parts[1]:sub(1, #parts[1]-1)\
            components.sansprotocol = url:sub(#components.protocol + 4)\
            components.host = parts[2]\
            components.fullhost = components.protocol .. '://' .. parts[2] .. '/'\
            components.filepath = url:sub(#components.fullhost)\
            if components.filepath:sub(#components.filepath) ~= '/' and components.filepath:find('?') then\
                components.filename = fs.getName(components.filepath:sub(1, components.filepath:find('?') - 1))\
            else\
                components.filename = fs.getName(components.filepath)\
            end\
            if components.filename == 'root' or components.filename == components.host then\
                components.filename = ''\
            end\
            components.base = url:sub(1, findLast(url, '/'))\
            components.get = {}\
            components.filepathsansget = components.sansprotocol\
            if url:find('?') then\
                local start = url:find('?')\
                components.filepathsansget = url:sub(#components.protocol + 4, start - 1)\
                local getString = url:sub(start + 1)\
                local values = split(getString, '&')\
                for i, v in ipairs(values) do\
                    local keyvalue = split(v, '=')\
                    components.get[keyvalue[1]] =  urlUnencode(keyvalue[2])\
                end\
            end\
            return components\
        end\
    end\
end\
\
local function resolveQuestHostUrl(url)\
    local components = urlComponents(url)\
    local hostParts = split(components.host, '%.')\
    local tld = hostParts[#hostParts]\
    if tld == 'qst' and #hostParts == 2 then\
        return questHost .. hostParts[1] .. components.filepath\
    end\
    return url\
end\
\
local function resolveFullUrl(url)\
    if url and type(url) ~= 'string' then\
    elseif url:find('://') then\
        return url\
    else\
        local components = urlComponents(program:GetObject('WebView').URL)\
        if components then\
            if url:sub(1,1) == '/' then\
                return components.fullhost .. url:sub(2)\
            else\
                return components.base .. url\
            end\
        end\
    end\
end\
\
local function getCurrentUrl()\
    return program:GetObject('WebView').URL\
end\
\
local function getCurrentFakeUrl()\
    return program:GetObject('WebView').FakeURL\
end\
\
local function goToUrl(url, post)\
    program:GetObject('WebView'):GoToURL(url, nil, nil, post)\
end\
\
--  Yes, it's evil and terrible, etc. But I'll hopefully change it later.\
_G.cancelHTTPAsync = cancelHTTPAsync\
_G.fetchHTTPAsync = fetchHTTPAsync\
_G.resolveFullUrl = resolveFullUrl\
_G.resolveQuestHostUrl = resolveQuestHostUrl\
_G.getCurrentUrl = getCurrentUrl\
_G.getCurrentFakeUrl = getCurrentFakeUrl\
_G.goToUrl = goToUrl\
_G.split = split\
_G.urlComponents = urlComponents\
_G.QuestVersion = QuestVersion\
\
local history = {}\
local historyItem = 0\
\
local function updateHistoryButtons()\
    if history[historyItem-1] then\
        program:GetObject('BackButton').Enabled = true\
    else\
        program:GetObject('BackButton').Enabled = false\
    end\
\
    if history[historyItem+1] then\
        program:GetObject('ForwardButton').Enabled = true\
    else\
        program:GetObject('ForwardButton').Enabled = false\
    end\
end\
\
local function addHistoryURL(url)\
    for i, v in ipairs(history) do\
        if i > historyItem then\
            history[i] = nil\
        end\
    end\
    table.insert(history, url)\
    historyItem = #history\
    updateHistoryButtons()\
end\
\
local defaultSettings = {\
    Home = 'http://thehub.qst/',\
    ClientIdentifier = nil\
}\
\
local function quit()\
    term.setBackgroundColour(colors.black)\
    shell.run('clear')\
    print('Thanks for using Quest, created by oeed.')\
    program:Quit()\
end\
\
local function goHome()\
    goToUrl(settings.Home)\
end\
\
local function saveSettings()\
    local f = fs.open('.Quest.settings', 'w')\
    if f then\
        f.write(textutils.serialize(settings))\
        f.close()\
    end\
end\
\
local function generateClientIdentifier()\
    program:DisplayWindow({\
        Children = {{\
            X = 2,\
            Y = 2,\
            Type = \"Label\",\
            Width = \"100%,-2\",\
            Height = 2,\
            Text = \"Registering computer with central server...\"\
        }},\
        Width = 28,\
        Height = 4\
    }, \"Please Wait\", false)\
    program:Draw()\
    local h = http.get('http://quest.net76.net/registerClient.php')\
    program.Window:Close()\
\
    if h then\
        settings.ClientIdentifier = h.readAll()\
        saveSettings()\
        h.close()\
        goHome()\
    else\
        program:DisplayAlertWindow(\"Register Failed\", \"Quest couldn't register your computer. There was something wrong with your internet connection. Please quit and try again.\", {'Quit'}, function(value)\
            quit()\
        end)\
    end\
\
end\
\
local function loadSettings()\
    if fs.exists('.Quest.settings') then\
        local f = fs.open('.Quest.settings', 'r')\
        if f then\
            settings = textutils.unserialize(f.readAll())\
            if not settings.ClientIdentifier then\
                generateClientIdentifier()\
            end\
            return settings\
        end\
    end\
\
    settings = defaultSettings\
    generateClientIdentifier()\
end\
\
program:Run(function()\
    local timeoutTimer = false\
\
    program:LoadView('main')\
\
    Wireless.Initialise()\
\
    loadSettings()\
\
    program:GetObject('BackButton').OnClick = function(self)\
        if history[historyItem-1] then\
            historyItem = historyItem - 1\
            program:GetObject('WebView'):GoToURL(history[historyItem], nil, true)\
            updateHistoryButtons()\
        end\
    end\
\
    program:GetObject('ForwardButton').OnClick = function(self)\
        if history[historyItem+1] then\
            historyItem = historyItem + 1\
            program:GetObject('WebView'):GoToURL(history[historyItem], nil, true)\
            updateHistoryButtons()\
        end\
    end\
\
    program:GetObject('URLTextBox').OnChange = function(self, event, keychar)\
        if keychar == keys.enter then\
            local url = self.Text\
            if not url:find('://') then\
                if url:find(' ') or not url:find('%.') then\
                    url = 'http://thehub.qst/search.php?q='..textutils.urlEncode(url)\
                else\
                    url = 'http://' .. url \
                end\
                self.Text = url\
            end\
            program:GetObject('WebView'):GoToURL(url)\
        end\
    end\
\
    program:GetObject('OptionsButton').OnClick = function(self, event, side, x, y)\
        if self:ToggleMenu('optionsmenu', x, y) then\
            program:GetObject('StopMenuItem').OnClick = function(self, event, side, x, y)\
                program:GetObject('WebView'):Stop()\
            end\
\
            program:GetObject('ReloadMenuItem').OnClick = function(self, event, side, x, y)\
                program:GetObject('WebView'):GoToURL(program:GetObject('WebView').URL)\
            end\
\
            program:GetObject('GoHomeMenuItem').OnClick = function(self, event, side, x, y)\
                goHome()\
            end\
\
            program:GetObject('SetHomeMenuItem').OnClick = function(self, event, side, x, y)\
                settings.Home = program:GetObject('WebView').FakeURL\
                saveSettings()\
            end\
\
            program:GetObject('QuitMenuItem').OnClick = function(self, event, side, x, y)\
                quit()\
            end\
        end\
    end\
\
    program:GetObject('WebView').OnPageLoadStart = function(self, url)\
        program:SetActiveObject()\
        -- program:GetObject('GoButton').Text = 'x'\
        program:GetObject('URLTextBox').Visible = false\
        program:GetObject('LoadingLabel').Visible = true\
        program:GetObject('PageTitleLabel').Text = ''\
\
        if url:find('http://') or url:find('https://') then\
            timeoutTimer = program:StartTimer(function()\
                program:GetObject('WebView'):Stop()\
            end, 20)\
        else\
            timeoutTimer = program:StartTimer(function()\
                program:GetObject('WebView'):Stop()\
            end, 1)\
        end\
    end\
\
    program:GetObject('WebView').OnPageLoadEnd = function(self, url, noHistory)\
        program:GetObject('URLTextBox').Text = url\
        program:GetObject('URLTextBox').Visible = true\
        program:GetObject('LoadingLabel').Visible = false\
\
        if self.Tree:GetElement('title') then\
            program:GetObject('PageTitleLabel').Text = self.Tree:GetElement('title').Text\
        end\
\
        if not noHistory then\
            addHistoryURL(url)\
        end\
\
        program.Timers[timeoutTimer] = nil\
    end\
\
    program:GetObject('WebView').OnPageLoadFailed = function(self, url, _error, noHistory)\
        program:GetObject('URLTextBox').Text = url\
        program:GetObject('URLTextBox').Visible = true\
        program:GetObject('LoadingLabel').Visible = false\
        program.Timers[timeoutTimer] = nil\
\
        if not noHistory then\
            addHistoryURL(url)\
        end\
\
        local get = ''\
        _error = _error or 1\
        if type(_error) == 'string' then\
            get = '?reason='..textutils.urlEncode(_error)\
            _error = 'text'\
        end\
\
        program:GetObject('WebView'):GoToURL('quest://'.._error..'.ccml'..get, true, true)\
    end\
\
    program:GetObject('Toolbar').OnClick = function(self, event, side, x, y)\
        program:SetActiveObject()\
    end\
\
    program:GetObject('WebView').OnClick = function(self, event, side, x, y)\
        program:SetActiveObject()\
    end\
\
    if settings.ClientIdentifier then\
        goHome()\
    end\
end)\
\
",["Bedrock"]="--Bedrock Build: 262\
--This code is squished down in to one, rather hard to read file.\
--As such it is not much good for anything other than being loaded as an API.\
--If you want to look at the code to learn from it, copy parts or just take a look,\
--you should go to the GitHub repo. http://github.com/oeed/Bedrock/\
\
--\
--      Bedrock is the core program framework used by all OneOS and OneCode programs.\
--                          Inspired by Apple's Cocoa framework.\
--                                     (c) oeed 2014\
--\
--        For documentation see the Bedrock wiki, github.com/oeed/Bedrock/wiki/\
--\
\
local apis = {\
[\"Drawing\"] = [[\
local round = function(num, idp)\
    local mult = 10^(idp or 0)\
    return math.floor(num * mult + 0.5) / mult\
end\
\
local _w, _h = term.getSize()\
local copyBuffer = nil\
\
Screen = {\
    Width = _w,\
    Height = _h\
}\
\
Constraints = {\
    \
}\
\
CurrentConstraint = {1,1,_w,_h}\
IgnoreConstraint = false\
\
function AddConstraint(x, y, width, height)\
    local x2 = x + width - 1\
    local y2 = y + height - 1\
    table.insert(Drawing.Constraints, {x, y, x2, y2})\
    Drawing.GetConstraint()\
end\
\
function RemoveConstraint()\
    --table.remove(Drawing.Constraints, #Drawing.Constraints)\
    Drawing.Constraints[#Drawing.Constraints] = nil\
    Drawing.GetConstraint()\
end\
\
function GetConstraint()\
    local x = 1\
    local y = 1\
    local x2 = Drawing.Screen.Width\
    local y2 = Drawing.Screen.Height\
    for i, c in ipairs(Drawing.Constraints) do\
        if x < c[1] then\
            x = c[1]\
        end\
        if y < c[2] then\
            y = c[2]\
        end\
        if x2 > c[3] then\
            x2 = c[3]\
        end\
        if y2 > c[4] then\
            y2 = c[4]\
        end\
    end\
    Drawing.CurrentConstraint = {x, y, x2, y2}\
end\
\
function WithinContraint(x, y)\
    return Drawing.IgnoreConstraint or\
          (x >= Drawing.CurrentConstraint[1] and\
           y >= Drawing.CurrentConstraint[2] and\
           x <= Drawing.CurrentConstraint[3] and\
           y <= Drawing.CurrentConstraint[4])\
end\
\
colours.transparent = 0\
colors.transparent = 0\
\
DrawCharacters = function (x, y, characters, textColour, bgColour)\
    Drawing.WriteStringToBuffer(x, y, tostring(characters), textColour, bgColour)\
end\
\
DrawBlankArea = function (x, y, w, h, colour)\
    if colour ~= colours.transparent then\
        Drawing.DrawArea (x, y, w, h, \" \", 1, colour)\
    end\
end\
\
DrawArea = function (x, y, w, h, character, textColour, bgColour)\
    --width must be greater than 1, otherwise we get problems\
    if w < 0 then\
        w = w * -1\
    elseif w == 0 then\
        w = 1\
    end\
\
    for ix = 1, w do\
        local currX = x + ix - 1\
        for iy = 1, h do\
            local currY = y + iy - 1\
            Drawing.WriteToBuffer(currX, currY, character, textColour, bgColour)\
        end\
    end\
end\
\
DrawImage = function(_x,_y,tImage, w, h)\
    if tImage then\
        for y = 1, h do\
            if not tImage[y] then\
                break\
            end\
            for x = 1, w do\
                if not tImage[y][x] then\
                    break\
                end\
                local bgColour = tImage[y][x]\
                local textColour = tImage.textcol[y][x] or colours.white\
                local char = tImage.text[y][x]\
                Drawing.WriteToBuffer(x+_x-1, y+_y-1, char, textColour, bgColour)\
            end\
        end\
    elseif w and h then\
        Drawing.DrawBlankArea(_x, _y, w, h, colours.lightGrey)\
    end\
end\
\
--using .nft\
LoadImage = function(path, global)\
    local image = {\
        text = {},\
        textcol = {}\
    }\
    if fs.exists(path) then\
        local _io = io\
        if OneOS and global then\
            _io = OneOS.IO\
        end\
        local file = _io.open(path, \"r\")\
        if not file then\
            error('Error Occured. _io:'..tostring(_io)..' OneOS: '..tostring(OneOS)..' OneOS.IO'..tostring(OneOS.IO)..' io: '..tostring(io))\
        end\
        local sLine = file:read()\
        local num = 1\
        while sLine do  \
            table.insert(image, num, {})\
            table.insert(image.text, num, {})\
            table.insert(image.textcol, num, {})\
                                        \
            --As we're no longer 1-1, we keep track of what index to write to\
            local writeIndex = 1\
            --Tells us if we've hit a 30 or 31 (BG and FG respectively)- next char specifies the curr colour\
            local bgNext, fgNext = false, false\
            --The current background and foreground colours\
            local currBG, currFG = nil,nil\
            for i=1,#sLine do\
                    local nextChar = string.sub(sLine, i, i)\
                    if nextChar:byte() == 30 then\
                            bgNext = true\
                    elseif nextChar:byte() == 31 then\
                            fgNext = true\
                    elseif bgNext then\
                            currBG = Drawing.GetColour(nextChar)\
                            if currBG == nil then\
                                currBG = colours.transparent\
                            end\
                            bgNext = false\
                    elseif fgNext then\
                            currFG = Drawing.GetColour(nextChar)\
                            if currFG == nil or currFG == colours.transparent then\
                                currFG = colours.white\
                            end\
                            fgNext = false\
                    else\
                            if nextChar ~= \" \" and currFG == nil then\
                                    currFG = colours.white\
                            end\
                            image[num][writeIndex] = currBG\
                            image.textcol[num][writeIndex] = currFG\
                            image.text[num][writeIndex] = nextChar\
                            writeIndex = writeIndex + 1\
                    end\
            end\
            num = num+1\
            sLine = file:read()\
        end\
        file:close()\
    else\
        return nil\
    end\
    return image\
end\
\
DrawCharactersCenter = function(x, y, w, h, characters, textColour,bgColour)\
    w = w or Drawing.Screen.Width\
    h = h or Drawing.Screen.Height\
    x = x or 0\
    y = y or 0\
    x = math.floor((w - #characters) / 2) + x\
    y = math.floor(h / 2) + y\
\
    Drawing.DrawCharacters(x, y, characters, textColour, bgColour)\
end\
\
GetColour = function(hex)\
    if hex == ' ' then\
        return colours.transparent\
    end\
    local value = tonumber(hex, 16)\
    if not value then return nil end\
    value = math.pow(2,value)\
    return value\
end\
\
Clear = function (_colour)\
    _colour = _colour or colours.black\
    Drawing.DrawBlankArea(1, 1, Drawing.Screen.Width, Drawing.Screen.Height, _colour)\
end\
\
Buffer = {}\
BackBuffer = {}\
\
TryRestore = false\
\
\
--TODO: make this quicker\
-- maybe sort the pixels in order of colour so it doesn't have to set the colour each time\
DrawBuffer = function()\
    if TryRestore and Restore then\
        Restore()\
    end\
\
    for y,row in pairs(Drawing.Buffer) do\
        for x,pixel in pairs(row) do\
            local shouldDraw = true\
            local hasBackBuffer = true\
            if Drawing.BackBuffer[y] == nil or Drawing.BackBuffer[y][x] == nil or #Drawing.BackBuffer[y][x] ~= 3 then\
                hasBackBuffer = false\
            end\
            if hasBackBuffer and Drawing.BackBuffer[y][x][1] == Drawing.Buffer[y][x][1] and Drawing.BackBuffer[y][x][2] == Drawing.Buffer[y][x][2] and Drawing.BackBuffer[y][x][3] == Drawing.Buffer[y][x][3] then\
                shouldDraw = false\
            end\
            if shouldDraw then\
                term.setBackgroundColour(pixel[3])\
                term.setTextColour(pixel[2])\
                term.setCursorPos(x, y)\
                term.write(pixel[1])\
            end\
        end\
    end\
    Drawing.BackBuffer = Drawing.Buffer\
    Drawing.Buffer = {}\
end\
\
ClearBuffer = function()\
    Drawing.Buffer = {}\
end\
\
WriteStringToBuffer = function (x, y, characters, textColour,bgColour)\
    for i = 1, #characters do\
        local character = characters:sub(i,i)\
        Drawing.WriteToBuffer(x + i - 1, y, character, textColour, bgColour)\
    end\
end\
\
WriteToBuffer = function(x, y, character, textColour,bgColour, cached)\
    if not cached and not Drawing.WithinContraint(x, y) then\
        return\
    end\
    x = round(x)\
    y = round(y)\
\
    if textColour == colours.transparent then\
        character = ' '\
    end\
\
    if bgColour == colours.transparent then\
        Drawing.Buffer[y] = Drawing.Buffer[y] or {}\
        Drawing.Buffer[y][x] = Drawing.Buffer[y][x] or {\"\", colours.white, colours.black}\
        Drawing.Buffer[y][x][1] = character\
        Drawing.Buffer[y][x][2] = textColour\
    else\
        Drawing.Buffer[y] = Drawing.Buffer[y] or {}\
        Drawing.Buffer[y][x] = {character, textColour, bgColour}\
    end\
\
    if copyBuffer then\
        copyBuffer[y] = copyBuffer[y] or {}\
        copyBuffer[y][x] = {character, textColour, bgColour}        \
    end\
end\
\
DrawCachedBuffer = function(buffer)\
    for y, row in pairs(buffer) do\
        for x, pixel in pairs(row) do\
            WriteToBuffer(x, y, pixel[1], pixel[2], pixel[3], true)\
        end\
    end\
end\
\
StartCopyBuffer = function()\
    copyBuffer = {}\
end\
\
EndCopyBuffer = function()\
    local tmpCopy = copyBuffer\
    copyBuffer = nil\
    return tmpCopy\
end\
]],\
[\"Helpers\"] = [[\
LongestString = function(input, key, isKey)\
    local length = 0\
    if isKey then\
        for k, v in pairs(input) do\
            local titleLength = string.len(k)\
            if titleLength > length then\
                length = titleLength\
            end\
        end\
    else\
        for i = 1, #input do\
            local value = input[i]\
            if key then\
                if value[key] then\
                    value = value[key]\
                else\
                    value = ''\
                end\
            end\
            local titleLength = string.len(value)\
            if titleLength > length then\
                length = titleLength\
            end\
        end\
    end\
    return length\
end\
\
Split = function(str,sep)\
    sep=sep or'/'\
    return str:match(\"(.*\"..sep..\")\")\
end\
\
Extension = function(path, addDot)\
    if not path then\
        return nil\
    elseif not string.find(fs.getName(path), '%.') then\
        if not addDot then\
            return fs.getName(path)\
        else\
            return ''\
        end\
    else\
        local _path = path\
        if path:sub(#path) == '/' then\
            _path = path:sub(1,#path-1)\
        end\
        local extension = _path:gmatch('%.[0-9a-z]+$')()\
        if extension then\
            extension = extension:sub(2)\
        else\
            --extension = nil\
            return ''\
        end\
        if addDot then\
            extension = '.'..extension\
        end\
        return extension:lower()\
    end\
end\
\
RemoveExtension = function(path)\
--local name = string.match(fs.getName(path), '(%a+)%.?.-')\
    if path:sub(1,1) == '.' then\
        return path\
    end\
    local extension = Helpers.Extension(path)\
    if extension == path then\
        return fs.getName(path)\
    end\
    return string.gsub(path, extension, ''):sub(1, -2)\
end\
\
RemoveFileName = function(path)\
    if string.sub(path, -1) == '/' then\
        path = string.sub(path, 1, -2)\
    end\
    local v = string.match(path, \"(.-)([^\\\\/]-%.?([^%.\\\\/]*))$\")\
    if type(v) == 'string' then\
        return v\
    end\
    return v[1]\
end\
\
TruncateString = function(sString, maxLength)\
    if #sString > maxLength then\
        sString = sString:sub(1,maxLength-3)\
        if sString:sub(-1) == ' ' then\
            sString = sString:sub(1,maxLength-4)\
        end\
        sString = sString  .. '...'\
    end\
    return sString\
end\
\
TruncateStringStart = function(sString, maxLength)\
    local len = #sString\
    if #sString > maxLength then\
        sString = sString:sub(len - maxLength, len - 3)\
        if sString:sub(-1) == ' ' then\
            sString = sString:sub(len - maxLength, len - 4)\
        end\
        sString = '...' .. sString\
    end\
    return sString\
end\
\
WrapText = function(text, maxWidth)\
    local lines = {''}\
    for word, space in text:gmatch('(%S+)(%s*)') do\
            local temp = lines[#lines] .. word .. space:gsub('\\n','')\
            if #temp > maxWidth then\
                    table.insert(lines, '')\
            end\
            if space:find('\\n') then\
                    lines[#lines] = lines[#lines] .. word\
                    \
                    space = space:gsub('\\n', function()\
                            table.insert(lines, '')\
                            return ''\
                    end)\
            else\
                    lines[#lines] = lines[#lines] .. word .. space\
            end\
    end\
    return lines\
end\
\
TidyPath = function(path)\
    path = '/'..path\
    if fs.exists(path) and fs.isDir(path) then\
        path = path .. '/'\
    end\
\
    path, n = path:gsub(\"//\", \"/\")\
    while n > 0 do\
        path, n = path:gsub(\"//\", \"/\")\
    end\
    return path\
end\
\
Capitalise = function(str)\
    return str:sub(1, 1):upper() .. str:sub(2, -1)\
end\
\
Round = function(num, idp)\
    local mult = 10^(idp or 0)\
    return math.floor(num * mult + 0.5) / mult\
end\
]],\
[\"Object\"] = [[\
X = 1\
Y = 1\
Width = 1\
Height = 1\
Parent = nil\
OnClick = nil\
Visible = true\
IgnoreClick = false\
Name = nil \
ClipDrawing = true\
UpdateDrawBlacklist = {}\
Fixed = false\
\
DrawCache = {}\
\
NeedsDraw = function(self)\
    if not self.Visible then\
        return false\
    end\
    \
    if not self.DrawCache.Buffer or self.DrawCache.AlwaysDraw or self.DrawCache.NeedsDraw then\
        return true\
    end\
\
    if self.OnNeedsUpdate then\
        if self.OnNeedsUpdate() then\
            return true\
        end\
    end\
\
    if self.Children then\
        for i, v in ipairs(self.Children) do\
            if v:NeedsDraw() then\
                return true\
            end\
        end\
    end\
end\
\
GetPosition = function(self)\
    return self.Bedrock:GetAbsolutePosition(self)\
end\
\
GetOffsetPosition = function(self)\
    if not self.Parent then\
        return {X = 1, Y = 1}\
    end\
\
    local offset = {X = 0, Y = 0}\
    if not self.Fixed and self.Parent.ChildOffset then\
        offset = self.Parent.ChildOffset\
    end\
\
    return {X = self.X + offset.X, Y = self.Y + offset.Y}\
end\
\
Draw = function(self)\
    if not self.Visible then\
        return\
    end\
\
    self.DrawCache.NeedsDraw = false\
    local pos = self:GetPosition()\
    Drawing.StartCopyBuffer()\
\
    if self.ClipDrawing then\
        Drawing.AddConstraint(pos.X, pos.Y, self.Width, self.Height)\
    end\
\
    if self.OnDraw then\
        self:OnDraw(pos.X, pos.Y)\
    end\
\
    self.DrawCache.Buffer = Drawing.EndCopyBuffer()\
    \
    if self.Children then\
        for i, child in ipairs(self.Children) do\
            local pos = child:GetOffsetPosition()\
            if pos.Y + self.Height > 1 and pos.Y <= self.Height and pos.X + self.Width > 1 and pos.X <= self.Width then\
                child:Draw()\
            end\
        end\
    end\
\
    if self.ClipDrawing then\
        Drawing.RemoveConstraint()\
    end \
end\
\
ForceDraw = function(self, ignoreChildren, ignoreParent, ignoreBedrock)\
    if not ignoreBedrock and self.Bedrock then\
        self.Bedrock:ForceDraw()\
    end\
    self.DrawCache.NeedsDraw = true\
    if not ignoreParent and self.Parent then\
        self.Parent:ForceDraw(true, nil, true)\
    end\
    if not ignoreChildren and self.Children then\
        for i, child in ipairs(self.Children) do\
            child:ForceDraw(nil, true, true)\
        end\
    end\
end\
\
OnRemove = function(self)\
    if self == self.Bedrock:GetActiveObject() then\
        self.Bedrock:SetActiveObject()\
    end\
end\
\
local function ParseColour(value)\
    if type(value) == 'string' then\
        if colours[value] and type(colours[value]) == 'number' then\
            return colours[value]\
        elseif colors[value] and type(colors[value]) == 'number' then\
            return colors[value]\
        end\
    elseif type(value) == 'number' and (value == colours.transparent or (value >= colours.white and value <= colours.black)) then\
        return value\
    end\
    error('Invalid colour: \"'..tostring(value)..'\"')\
end\
\
Initialise = function(self, values)\
    local _new = values    -- the new instance\
    _new.DrawCache = {\
        NeedsDraw = true,\
        AlwaysDraw = false,\
        Buffer = nil\
    }\
    setmetatable(_new, {__index = self} )\
\
    local new = {} -- the proxy\
    setmetatable(new, {\
        __index = function(t, k)\
            if k:find('Color') then\
                k = k:gsub('Color', 'Colour')\
            end\
\
            if k:find('Colour') then\
                if _new[k] then\
                    return ParseColour(_new[k])\
                end\
            elseif _new[k] ~= nil then\
                return _new[k]\
            end\
        end,\
\
        __newindex = function (t,k,v)\
            if k:find('Color') then\
                k = k:gsub('Color', 'Colour')\
            end\
\
            if k == 'Width' or k == 'X' or k == 'Height' or k == 'Y' then\
                v = new.Bedrock:ParseStringSize(new.Parent, k, v)\
            end\
\
            if v ~= _new[k] then\
                _new[k] = v\
                if t.OnUpdate then\
                    t:OnUpdate(k)\
                end\
\
                if t.UpdateDrawBlacklist[k] == nil then\
                    t:ForceDraw()\
                end\
            end\
        end\
    })\
    if new.OnInitialise then\
        new:OnInitialise()\
    end\
\
    return new\
end\
\
Click = function(self, event, side, x, y)\
    if self.Visible and not self.IgnoreClick then\
        if event == 'mouse_click' and self.OnClick and self:OnClick(event, side, x, y) ~= false then\
            return true\
        elseif event == 'mouse_drag' and self.OnDrag and self:OnDrag(event, side, x, y) ~= false then\
            return true\
        elseif event == 'mouse_scroll' and self.OnScroll and self:OnScroll(event, side, x, y) ~= false then\
            return true\
        else\
            return false\
        end\
    else\
        return false\
    end\
\
end\
\
ToggleMenu = function(self, name, x, y)\
    return self.Bedrock:ToggleMenu(name, self, x, y)\
end\
\
function OnUpdate(self, value)\
    if value == 'Z' then\
        self.Bedrock:ReorderObjects()\
    end\
end\
]],\
}\
local objects = {\
[\"Button\"] = [[\
BackgroundColour = colours.lightGrey\
ActiveBackgroundColour = colours.blue\
ActiveTextColour = colours.white\
TextColour = colours.black\
DisabledTextColour = colours.lightGrey\
Text = \"\"\
Toggle = nil\
Momentary = true\
AutoWidthAutoWidth = true\
Align = 'Center'\
Enabled = true\
\
OnUpdate = function(self, value)\
    if value == 'Text' and self.AutoWidth then\
        self.Width = #self.Text + 2\
    end\
end\
\
OnDraw = function(self, x, y)\
    local bg = self.BackgroundColour\
\
    if self.Toggle then\
        bg = self.ActiveBackgroundColour\
    end\
\
    local txt = self.TextColour\
    if self.Toggle then\
        txt = self.ActiveTextColour\
    end\
    if not self.Enabled then\
        txt = self.DisabledTextColour\
    end\
    Drawing.DrawBlankArea(x, y, self.Width, self.Height, bg)\
\
    local _x = 1\
    if self.Align == 'Right' then\
        _x = self.Width - #self.Text - 1\
    elseif self.Align == 'Center' then\
        _x = math.floor((self.Width - #self.Text) / 2)\
    end\
    Drawing.DrawCharacters(x + _x, y, self.Text, txt, bg)\
end\
\
OnLoad = function(self)\
    if self.Toggle ~= nil then\
        self.Momentary = false\
    end\
end\
\
Click = function(self, event, side, x, y)\
    if self.Visible and not self.IgnoreClick and self.Enabled and event ~= 'mouse_scroll' then\
        if self.OnClick then\
            if self.Momentary then\
                self.Toggle = true\
                self.Bedrock:StartTimer(function()self.Toggle = false end,0.25)\
            elseif self.Toggle ~= nil then\
                self.Toggle = not self.Toggle\
            end\
\
            self:OnClick(event, side, x, y, self.Toggle)\
        else\
            self.Toggle = not self.Toggle\
        end\
        return true\
    else\
        return false\
    end\
end\
]],\
[\"CollectionView\"] = [[\
Inherit = 'ScrollView'\
UpdateDrawBlacklist = {['NeedsItemUpdate']=true}\
\
TextColour = colours.black\
BackgroundColour = colours.white\
Items = false\
NeedsItemUpdate = false\
SpacingX = 2\
SpacingY = 1\
\
OnDraw = function(self, x, y)\
    if self.NeedsItemUpdate then\
        self:UpdateItems()\
        self.NeedsItemUpdate = false\
    end\
    Drawing.DrawBlankArea(x, y, self.Width, self.Height, self.BackgroundColour)\
end\
\
local function MaxIcons(self, obj)\
    local x, y = 2, 1\
    if not obj.Height or not obj.Width then\
        error('You must provide each object\\'s height when adding to a CollectionView.')\
    end\
    local slotHeight = obj.Height + self.SpacingY\
    local slotWidth = obj.Width + self.SpacingX\
    local maxX = math.floor((self.Width - 2) / slotWidth)\
    return x, y, maxX, slotWidth, slotHeight\
end\
\
local function IconLocation(self, obj, i)\
    local x, y, maxX, slotWidth, slotHeight = MaxIcons(self, obj)\
    local rowPos = ((i - 1) % maxX)\
    local colPos = math.ceil(i / maxX) - 1\
    x = x + (slotWidth * rowPos)\
    y = y + colPos * slotHeight\
    return x, y\
end\
\
local function AddItem(self, v, i)\
    local toggle = false\
    if not self.CanSelect then\
        toggle = nil\
    end\
    local x, y = IconLocation(self, v, i)\
    local item = {\
        [\"X\"]=x,\
        [\"Y\"]=y,\
        [\"Name\"]=\"CollectionViewItem\",\
        [\"Type\"]=\"View\",\
        [\"TextColour\"]=self.TextColour,\
        [\"BackgroundColour\"]=0F,\
        OnClick = function(itm)\
            if self.CanSelect then\
                for i2, _v in ipairs(self.Children) do\
                    _v.Toggle = false\
                end\
                self.Selected = itm\
            end\
        end\
    }\
    for k, _v in pairs(v) do\
        item[k] = _v\
    end\
    self:AddObject(item)\
end\
\
\
UpdateItems = function(self)\
    self:RemoveAllObjects()\
    local groupMode = false\
    for k, v in pairs(self.Items) do\
        if type(k) == 'string' then\
            groupMode = true\
            break\
        end\
    end\
\
    for i, v in ipairs(self.Items) do\
        AddItem(self, v, i)\
    end\
    self:UpdateScroll()\
end\
\
OnUpdate = function(self, value)\
    if value == 'Items' then\
        self.NeedsItemUpdate = true\
    end\
end\
]],\
[\"ImageView\"] = [[\
Image = false\
\
OnDraw = function(self, x, y)\
    Drawing.DrawImage(x, y, self.Image, self.Width, self.Height)\
end\
\
OnLoad = function(self)\
    if self.Path and fs.exists(self.Path) then\
        self.Image = Drawing.LoadImage(self.Path)\
    end\
end\
\
OnUpdate = function(self, value)\
    if value == 'Path' then\
        if self.Path and fs.exists(self.Path) then\
            self.Image = Drawing.LoadImage(self.Path)\
        end\
    end\
end\
]],\
[\"Label\"] = [[\
TextColour = colours.black\
BackgroundColour = colours.transparent\
Text = \"\"\
AutoWidth = false\
Align = 'Left'\
\
local wrapText = function(text, maxWidth)\
    local lines = {''}\
    for word, space in text:gmatch('(%S+)(%s*)') do\
        local temp = lines[#lines] .. word .. space:gsub('\\n','')\
        if #temp > maxWidth then\
            table.insert(lines, '')\
        end\
        if space:find('\\n') then\
            lines[#lines] = lines[#lines] .. word\
            \
            space = space:gsub('\\n', function()\
                    table.insert(lines, '')\
                    return ''\
            end)\
        else\
            lines[#lines] = lines[#lines] .. word .. space\
        end\
    end\
    if #lines[1] == 0 then\
        table.remove(lines,1)\
    end\
    return lines\
end\
\
OnUpdate = function(self, value)\
    if value == 'Text' then\
        if self.AutoWidth then\
            self.Width = #self.Text\
        else\
            self.Height = #wrapText(self.Text, self.Width)\
        end\
    end\
end\
\
OnDraw = function(self, x, y)\
    for i, v in ipairs(wrapText(self.Text, self.Width)) do\
        local _x = 0\
        if self.Align == 'Right' then\
            _x = self.Width - #v\
        elseif self.Align == 'Center' then\
            _x = math.floor((self.Width - #v) / 2)\
        end\
        Drawing.DrawCharacters(x + _x, y + i - 1, v, self.TextColour, self.BackgroundColour)\
    end\
end\
]],\
[\"ListView\"] = [[\
Inherit = 'ScrollView'\
UpdateDrawBlacklist = {['NeedsItemUpdate']=true}\
\
TextColour = colours.black\
BackgroundColour = colours.white\
HeadingColour = colours.lightGrey\
SelectionBackgroundColour = colours.blue\
SelectionTextColour = colours.white\
Items = false\
CanSelect = false\
Selected = nil\
NeedsItemUpdate = false\
ItemMargin = 1\
HeadingMargin = 0\
TopMargin = 0\
\
OnDraw = function(self, x, y)\
    if self.NeedsItemUpdate then\
        self:UpdateItems()\
    end\
    Drawing.DrawBlankArea(x, y, self.Width, self.Height, self.BackgroundColour)\
end\
\
local function AddItem(self, v, x, y, group)\
    local toggle = false\
    if not self.CanSelect then\
        toggle = nil\
    elseif v.Selected then\
        toggle = true\
    end\
    local item = {\
        [\"Width\"]=self.Width,\
        [\"X\"]=x,\
        [\"Y\"]=y,\
        [\"Name\"]=\"ListViewItem\",\
        [\"Type\"]=\"Button\",\
        [\"TextColour\"]=self.TextColour,\
        [\"BackgroundColour\"]=0,\
        [\"ActiveTextColour\"]=self.SelectionTextColour,\
        [\"ActiveBackgroundColour\"]=self.SelectionBackgroundColour,\
        [\"Align\"]='Left',\
        [\"Toggle\"]=toggle,\
        [\"Group\"]=group,\
        OnClick = function(itm)\
            if self.CanSelect then\
                self:SelectItem(itm)\
            elseif self.OnSelect then\
                self:OnSelect(itm.Text)\
            end\
        end\
    }\
    if type(v) == 'table' then\
        for k, _v in pairs(v) do\
            item[k] = _v\
        end\
    else\
        item.Text = v\
    end\
    \
    local itm = self:AddObject(item)\
    if v.Selected then\
        self:SelectItem(itm)\
    end\
end\
\
UpdateItems = function(self)\
    if not self.Items or type(self.Items) ~= 'table' then\
        self.Items = {}\
    end\
    self.Selected = nil\
    self:RemoveAllObjects()\
    local groupMode = false\
    for k, v in pairs(self.Items) do\
        if type(k) == 'string' then\
            groupMode = true\
            break\
        end\
    end\
\
    if not groupMode then\
        for i, v in ipairs(self.Items) do\
            AddItem(self, v, self.ItemMargin, i)\
        end\
    else\
        local y = self.TopMargin\
        for k, v in pairs(self.Items) do\
            y = y + 1\
            AddItem(self, {Text = k, TextColour = self.HeadingColour, IgnoreClick = true}, self.HeadingMargin, y)\
            for i, _v in ipairs(v) do\
                y = y + 1\
                AddItem(self, _v, 1, y, k)\
            end\
            y = y + 1\
        end\
    end\
    self:UpdateScroll()\
    self.NeedsItemUpdate = false\
end\
\
OnKeyChar = function(self, event, keychar)\
    if keychar == keys.up or keychar == keys.down then\
        local n = self:GetIndex(self.Selected)\
        if keychar == keys.up then\
            n = n - 1\
        else\
            n = n + 1\
        end\
        local new = self:GetNth(n)\
        if new then\
            self:SelectItem(new)\
        end\
    elseif keychar == keys.enter and self.Selected then\
        self.Selected:Click('mouse_click', 1, 1, 1)\
    end\
end\
\
--returns the index/'n' of the given item\
GetIndex = function(self, obj)\
    local n = 1\
    for i, v in ipairs(self.Children) do\
        if not v.IgnoreClick then\
            if obj == v then\
                return n\
            end\
            n = n + 1\
        end\
    end\
end\
\
--gets the 'nth' list item (does not include headings)\
GetNth = function(self, n)\
    local _n = 1\
    for i, v in ipairs(self.Children) do\
        if not v.IgnoreClick then\
            if n == _n then\
                return v\
            end\
            _n = _n + 1\
        end\
    end\
end\
\
SelectItem = function(self, item)\
    for i, v in ipairs(self.Children) do\
        v.Toggle = false\
    end\
    self.Selected = item\
    item.Toggle = true\
    if self.OnSelect then\
        self:OnSelect(item.Text)\
    end\
end\
\
OnUpdate = function(self, value)\
    if value == 'Items' then\
        self.NeedsItemUpdate = true\
    end\
end\
]],\
[\"Menu\"] = [[\
Inherit = 'View'\
\
TextColour = colours.black\
BackgroundColour = colours.white\
HideTop = false\
\
OnDraw = function(self, x, y)\
    Drawing.IgnoreConstraint = true\
    Drawing.DrawBlankArea(x + 1, y + (self.HideTop and 0 or 1), self.Width, self.Height + (self.HideTop and 1 or 0), colours.grey)\
    Drawing.IgnoreConstraint = false\
    Drawing.DrawBlankArea(x, y, self.Width, self.Height, self.BackgroundColour)\
end\
\
OnLoad = function(self)\
    local owner = self.Owner\
    if type(owner) == 'string' then\
        owner = self.Bedrock:GetObject(self.Owner)\
    end\
\
    if owner then\
        if self.X == 0 and self.Y == 0 then\
            local pos = owner:GetPosition()\
            self.X = pos.X\
            self.Y = pos.Y + owner.Height\
        end\
        self.Owner = owner\
    else\
        self.Owner = nil\
    end\
end\
\
OnUpdate = function(self, value)\
    if value == 'Children' then\
        self.Width = self.Bedrock.Helpers.LongestString(self.Children, 'Text') + 2\
        self.Height = #self.Children + 1 + (self.HideTop and 0 or 1)\
        if not self.BaseY then\
            self.BaseY = self.Y\
        end\
\
        for i, v in ipairs(self.Children) do\
            if v.TextColour then\
                v.TextColour = self.TextColour\
            end\
            if v.BackgroundColour then\
                v.BackgroundColour = colours.transparent\
            end\
            if v.Colour then\
                v.Colour = colours.lightGrey\
            end\
            v.Align = 'Left'\
            v.X = 1\
            v.Y = i + (self.HideTop and 0 or 1)\
            v.Width = self.Width\
            v.Height = 1\
        end\
\
        self.Y = self.BaseY\
        local pos = self:GetPosition()\
        if pos.Y + self.Height + 1 > Drawing.Screen.Height then\
            self.Y = self.BaseY - ((self.Height +  pos.Y) - Drawing.Screen.Height)\
        end\
        \
        if pos.X + self.Width > Drawing.Screen.Width then\
            self.X = Drawing.Screen.Width - self.Width\
        end\
    end\
end\
\
Close = function(self, isBedrockCall)\
    self.Bedrock.Menu = nil\
    self.Parent:RemoveObject(self)\
    if self.Owner and self.Owner.Toggle then\
        self.Owner.Toggle = false\
    end\
    self.Parent:ForceDraw()\
    self = nil\
end\
\
OnChildClick = function(self, child, event, side, x, y)\
    self:Close()\
end\
]],\
[\"ProgressBar\"] = [[\
BackgroundColour = colours.lightGrey\
BarColour = colours.blue\
TextColour = colours.white\
ShowText = false\
Value = 0\
Maximum = 1\
Indeterminate = false\
AnimationStep = 0\
\
OnDraw = function(self, x, y)\
    Drawing.DrawBlankArea(x, y, self.Width, self.Height, self.BackgroundColour)\
\
    -- if self.Indeterminate then\
    --  for i = 1, self.Width do\
    --      local s = x + i - 1 + self.AnimationStep\
    --      if s % 4 == 1 or s % 4 == 2 then\
    --          Drawing.DrawBlankArea(s, y, 1, self.Height, self.BarColour)\
    --      end\
    --  end\
    --  self.AnimationStep = self.AnimationStep + 1\
    --  if self.AnimationStep >= 4 then\
    --      self.AnimationStep = 0\
    --  end\
    --  self.Bedrock:StartTimer(function()\
    --      self:Draw()\
    --  end, 0.25)\
    -- else\
        local values = self.Value\
        local barColours = self.BarColour\
        if type(values) == 'number' then\
            values = {values}\
        end\
        if type(barColours) == 'number' then\
            barColours = {barColours}\
        end\
        local total = 0\
        local _x = x\
        for i, v in ipairs(values) do\
            local width = self.Bedrock.Helpers.Round((v / self.Maximum) * self.Width)\
            total = total + v\
            Drawing.DrawBlankArea(_x, y, width, self.Height, barColours[((i-1)%#barColours)+1])\
            _x = _x + width\
        end\
\
        if self.ShowText then\
            local text = self.Bedrock.Helpers.Round((total / self.Maximum) * 100) .. '%'\
            Drawing.DrawCharactersCenter(x, y, self.Width, self.Height, text, self.TextColour, colours.transparent)\
        end\
    -- end\
end\
]],\
[\"ScrollBar\"] = [[\
BackgroundColour = colours.lightGrey\
BarColour = colours.lightBlue\
Scroll = 0\
MaxScroll = 0\
ClickPoint = nil\
Fixed = true\
\
OnUpdate = function(self, value)\
    if value == 'Text' and self.AutoWidth then\
        self.Width = #self.Text + 2\
    end\
end\
\
OnDraw = function(self, x, y)\
    local barHeight = self.Height * (self.Height / (self.Height + self.MaxScroll))\
    if barHeight < 3 then\
      barHeight = 3\
    end\
    local percentage = (self.Scroll/self.MaxScroll)\
\
    Drawing.DrawBlankArea(x, y, self.Width, self.Height, self.BackgroundColour)\
    Drawing.DrawBlankArea(x, y + math.ceil(self.Height*percentage - barHeight*percentage), self.Width, barHeight, self.BarColour)\
end\
\
OnScroll = function(self, event, direction, x, y)\
    if event == 'mouse_scroll' then\
        direction = self.Bedrock.Helpers.Round(direction * 3)\
    end\
    if self.Scroll < 0 or self.Scroll > self.MaxScroll then\
        return false\
    end\
    local old = self.Scroll\
    self.Scroll = self.Bedrock.Helpers.Round(self.Scroll + direction)\
    if self.Scroll < 0 then\
        self.Scroll = 0\
    elseif self.Scroll > self.MaxScroll then\
        self.Scroll = self.MaxScroll\
    end\
\
    if self.Scroll ~= old and self.OnChange then\
        self:OnChange()\
    end\
end\
\
OnClick = function(self, event, side, x, y)\
    if event == 'mouse_click' then\
        self.ClickPoint = y\
    else\
        local gapHeight = self.Height - (self.Height * (self.Height / (self.Height + self.MaxScroll)))\
        local barHeight = self.Height * (self.Height / (self.Height + self.MaxScroll))\
        --local delta = (self.Height + self.MaxScroll) * ((y - self.ClickPoint) / barHeight)\
        local delta = ((y - self.ClickPoint)/gapHeight)*self.MaxScroll\
        --l(((y - self.ClickPoint)/gapHeight))\
        --l(delta)\
        self.Scroll = self.Bedrock.Helpers.Round(delta)\
        --l(self.Scroll)\
        --l('----')\
        if self.Scroll < 0 then\
            self.Scroll = 0\
        elseif self.Scroll > self.MaxScroll then\
            self.Scroll = self.MaxScroll\
        end\
        if self.OnChange then\
            self:OnChange()\
        end\
    end\
\
    local relScroll = self.MaxScroll * ((y-1)/self.Height)\
    if y == self.Height then\
        relScroll = self.MaxScroll\
    end\
    self.Scroll = self.Bedrock.Helpers.Round(relScroll)\
\
\
end\
\
OnDrag = OnClick\
]],\
[\"ScrollView\"] = [[\
Inherit = 'View'\
ChildOffset = false\
ContentWidth = 0\
ContentHeight = 0\
\
CalculateContentSize = function(self)\
    local function calculateObject(obj)\
        local pos = obj:GetPosition()\
        local x2 = pos.X + obj.Width - 1\
        local y2 = pos.Y + obj.Height - 1\
        if obj.Children then\
            for i, child in ipairs(obj.Children) do\
                local _x2, _y2 = calculateObject(child)\
                if _x2 > x2 then\
                    x2 = _x2\
                end\
                if _y2 > y2 then\
                    y2 = _y2\
                end\
            end\
        end\
        return x2, y2\
    end\
\
    local pos = self:GetPosition()\
    local x2, y2 = calculateObject(self)\
    self.ContentWidth = x2 - pos.X + 1\
    self.ContentHeight = y2 - pos.Y + 1\
end\
\
UpdateScroll = function(self)\
    self.ChildOffset.Y = 0\
    self:CalculateContentSize()\
    if self.ContentHeight > self.Height then\
        if not self:GetObject('ScrollViewScrollBar') then\
            local _scrollBar = self:AddObject({\
                [\"Name\"] = 'ScrollViewScrollBar',\
                [\"Type\"] = 'ScrollBar',\
                [\"X\"] = self.Width,\
                [\"Y\"] = 1,\
                [\"Width\"] = 1,\
                [\"Height\"] = self.Height,\
                [\"Z\"]=999\
            })\
\
            _scrollBar.OnChange = function(scrollBar)\
                self.ChildOffset.Y = -scrollBar.Scroll\
                for i, child in ipairs(self.Children) do\
                    child:ForceDraw()\
                end\
            end\
        end\
        self:GetObject('ScrollViewScrollBar').MaxScroll = self.ContentHeight - self.Height\
    else\
        self:RemoveObject('ScrollViewScrollBar')\
    end\
end\
\
OnScroll = function(self, event, direction, x, y)\
    if self:GetObject('ScrollViewScrollBar') then\
        self:GetObject('ScrollViewScrollBar'):OnScroll(event, direction, x, y)\
    end\
end\
\
OnLoad = function(self)\
    if not self.ChildOffset or not self.ChildOffset.X or not self.ChildOffset.Y then\
        self.ChildOffset = {X = 0, Y = 0}\
    end\
end\
]],\
[\"SecureTextBox\"] = [[\
Inherit = 'TextBox'\
MaskCharacter = '*'\
\
OnDraw = function(self, x, y)\
    Drawing.DrawBlankArea(x, y, self.Width, self.Height, self.BackgroundColour)\
    if self.CursorPos > #self.Text then\
        self.CursorPos = #self.Text\
    elseif self.CursorPos < 0 then\
        self.CursorPos = 0\
    end\
    local text = ''\
\
    for i = 1, #self.Text do\
        text = text .. self.MaskCharacter\
    end\
\
    if self.Bedrock:GetActiveObject() == self then\
        if #text > (self.Width - 2) then\
            text = text:sub(#text-(self.Width - 3))\
            self.Bedrock.CursorPos = {x + 1 + self.Width-2, y}\
        else\
            self.Bedrock.CursorPos = {x + 1 + self.CursorPos, y}\
        end\
        self.Bedrock.CursorColour = self.TextColour\
    end\
\
    if #tostring(text) == 0 then\
        Drawing.DrawCharacters(x + 1, y, self.Placeholder, self.PlaceholderTextColour, self.BackgroundColour)\
    else\
        if not self.Selected then\
            Drawing.DrawCharacters(x + 1, y, text, self.TextColour, self.BackgroundColour)\
        else\
            for i = 1, #text do\
                local char = text:sub(i, i)\
                local textColour = self.TextColour\
                local backgroundColour = self.BackgroundColour\
                if i > self.DragStart and i - 1 <= self.CursorPos then\
                    textColour = self.SelectedTextColour\
                    backgroundColour = self.SelectedBackgroundColour\
                end\
                Drawing.DrawCharacters(x + i, y, char, textColour, backgroundColour)\
            end\
        end\
    end\
end\
]],\
[\"Separator\"] = [[\
Colour = colours.grey\
\
OnDraw = function(self, x, y)\
    local char = \"|\"\
    if self.Width > self.Height then\
        char = '-'\
    end\
    Drawing.DrawArea(x, y, self.Width, self.Height, char, self.Colour, colours.transparent)\
end\
]],\
[\"TextBox\"] = [[\
BackgroundColour = colours.lightGrey\
SelectedBackgroundColour = colours.blue\
SelectedTextColour = colours.white\
TextColour = colours.black\
PlaceholderTextColour = colours.grey\
Placeholder = ''\
AutoWidth = false\
Text = \"\"\
CursorPos = nil\
Numerical = false\
DragStart = nil\
Selected = false\
SelectOnClick = false\
ActualDragStart = nil\
\
OnDraw = function(self, x, y)\
    Drawing.DrawBlankArea(x, y, self.Width, self.Height, self.BackgroundColour)\
    if self.CursorPos > #self.Text then\
        self.CursorPos = #self.Text\
    elseif self.CursorPos < 0 then\
        self.CursorPos = 0\
    end\
    local text = self.Text\
    local offset = self:TextOffset()\
    if #text > (self.Width - 2) then\
        text = text:sub(offset+1, offset + self.Width - 2)\
        -- self.Bedrock.CursorPos = {x + 1 + self.Width-2, y}\
    -- else\
    end\
    if self.Bedrock:GetActiveObject() == self then\
        self.Bedrock.CursorPos = {x + 1 + self.CursorPos - offset, y}\
        self.Bedrock.CursorColour = self.TextColour\
    else\
        self.Selected = false\
    end\
\
    if #tostring(text) == 0 then\
        Drawing.DrawCharacters(x + 1, y, self.Placeholder, self.PlaceholderTextColour, self.BackgroundColour)\
    else\
        if not self.Selected then\
            Drawing.DrawCharacters(x + 1, y, text, self.TextColour, self.BackgroundColour)\
        else\
            local startPos = self.DragStart - offset\
            local endPos = self.CursorPos - offset\
            if startPos > endPos then\
                startPos = self.CursorPos - offset\
                endPos = self.DragStart - offset\
            end\
            for i = 1, #text do\
                local char = text:sub(i, i)\
                local textColour = self.TextColour\
                local backgroundColour = self.BackgroundColour\
\
                if i > startPos and i - 1 <= endPos then\
                    textColour = self.SelectedTextColour\
                    backgroundColour = self.SelectedBackgroundColour\
                end\
                Drawing.DrawCharacters(x + i, y, char, textColour, backgroundColour)\
            end\
        end\
    end\
end\
\
TextOffset = function(self)\
    if #self.Text < (self.Width - 2) then\
        return 0\
    elseif self.Bedrock:GetActiveObject() ~= self then\
        return 0\
    else\
        local textWidth = (self.Width - 2)\
        local offset = self.CursorPos - textWidth\
        if offset < 0 then\
            offset = 0\
        end\
        return offset\
    end\
end\
\
OnLoad = function(self)\
    if not self.CursorPos then\
        self.CursorPos = #self.Text\
    end\
end\
\
OnClick = function(self, event, side, x, y)\
    if self.Bedrock:GetActiveObject() ~= self and self.SelectOnClick then\
        self.CursorPos = #self.Text - 1\
        self.DragStart = 0\
        self.ActualDragStart = x - 2 + self:TextOffset()\
        self.Selected = true\
    else\
        self.CursorPos = x - 2 + self:TextOffset()\
        self.DragStart = self.CursorPos\
        self.Selected = false\
    end\
    self.Bedrock:SetActiveObject(self)\
end\
\
OnDrag = function(self, event, side, x, y)\
    self.CursorPos = x - 2 + self:TextOffset()\
    if self.ActualDragStart then\
        self.DragStart = self.ActualDragStart\
        self.ActualDragStart = nil\
    end\
    if self.DragStart then\
        self.Selected = true\
    end\
end\
\
OnKeyChar = function(self, event, keychar)\
    local deleteSelected = function()\
        if self.Selected then\
            local startPos = self.DragStart\
            local endPos = self.CursorPos\
            if startPos > endPos then\
                startPos = self.CursorPos\
                endPos = self.DragStart\
            end\
            self.Text = self.Text:sub(1, startPos) .. self.Text:sub(endPos + 2)\
            self.CursorPos = startPos\
            self.DragStart = nil\
            self.Selected = false\
            return true\
        end\
    end\
\
    if event == 'char' then\
        deleteSelected()\
        if self.Numerical then\
            keychar = tostring(tonumber(keychar))\
        end\
        if keychar == 'nil' then\
            return\
        end\
        self.Text = string.sub(self.Text, 1, self.CursorPos ) .. keychar .. string.sub( self.Text, self.CursorPos + 1 )\
        if self.Numerical then\
            self.Text = tostring(tonumber(self.Text))\
            if self.Text == 'nil' then\
                self.Text = '1'\
            end\
        end\
        \
        self.CursorPos = self.CursorPos + 1\
        if self.OnChange then\
            self:OnChange(event, keychar)\
        end\
        return false\
    elseif event == 'key' then\
        if keychar == keys.enter then\
            if self.OnChange then\
                self:OnChange(event, keychar)\
            end\
        elseif keychar == keys.left then\
            -- Left\
            if self.CursorPos > 0 then\
                if self.Selected then\
                    self.CursorPos = self.DragStart\
                    self.DragStart = nil\
                    self.Selected = false\
                else\
                    self.CursorPos = self.CursorPos - 1\
                end\
                if self.OnChange then\
                    self:OnChange(event, keychar)\
                end\
            end\
            \
        elseif keychar == keys.right then\
            -- Right                \
            if self.CursorPos < string.len(self.Text) then\
                if self.Selected then\
                    self.CursorPos = self.CursorPos\
                    self.DragStart = nil\
                    self.Selected = false\
                else\
                    self.CursorPos = self.CursorPos + 1\
                end\
                if self.OnChange then\
                    self:OnChange(event, keychar)\
                end\
            end\
        \
        elseif keychar == keys.backspace then\
            -- Backspace\
            if not deleteSelected() and self.CursorPos > 0 then\
                self.Text = string.sub( self.Text, 1, self.CursorPos - 1 ) .. string.sub( self.Text, self.CursorPos + 1 )\
                self.CursorPos = self.CursorPos - 1                 \
                if self.Numerical then\
                    self.Text = tostring(tonumber(self.Text))\
                    if self.Text == 'nil' then\
                        self.Text = '1'\
                    end\
                end\
                if self.OnChange then\
                    self:OnChange(event, keychar)\
                end\
            end\
        elseif keychar == keys.home then\
            -- Home\
            self.CursorPos = 0\
            if self.OnChange then\
                self:OnChange(event, keychar)\
            end\
        elseif keychar == keys.delete then\
            if not deleteSelected() and self.CursorPos < string.len(self.Text) then\
                self.Text = string.sub( self.Text, 1, self.CursorPos ) .. string.sub( self.Text, self.CursorPos + 2 )       \
                if self.Numerical then\
                    self.Text = tostring(tonumber(self.Text))\
                    if self.Text == 'nil' then\
                        self.Text = '1'\
                    end\
                end\
                if self.OnChange then\
                    self:OnChange(keychar)\
                end\
            end\
        elseif keychar == keys[\"end\"] then\
            -- End\
            self.CursorPos = string.len(self.Text)\
        else\
            if self.OnChange then\
                self:OnChange(event, keychar)\
            end\
            return false\
        end\
    end\
end\
]],\
[\"View\"] = [[\
BackgroundColour = colours.transparent\
Children = {}\
\
OnDraw = function(self, x, y)\
    if self.BackgroundColour then\
        Drawing.DrawBlankArea(x, y, self.Width, self.Height, self.BackgroundColour)\
    end\
end\
\
OnInitialise = function(self)\
    self.Children = {}\
end\
\
InitialiseFile = function(self, bedrock, file, name)\
    local _new = {}\
    _new.X = 1\
    _new.Y = 1\
    _new.Width = Drawing.Screen.Width\
    _new.Height = Drawing.Screen.Height\
    _new.BackgroundColour = file.BackgroundColour\
    _new.Name = name\
    _new.Children = {}\
    _new.Bedrock = bedrock\
    local new = self:Initialise(_new)\
    for i, obj in ipairs(file.Children) do\
        local view = bedrock:ObjectFromFile(obj, new)\
        if not view.Z then\
            view.Z = i\
        end\
        view.Parent = new\
        table.insert(new.Children, view)\
    end\
    return new\
end\
\
function CheckClick(self, object, x, y)\
    local offset = {X = 0, Y = 0}\
    if not object.Fixed and self.ChildOffset then\
        offset = self.ChildOffset\
    end\
    if object.X + offset.X <= x and object.Y + offset.Y <= y and  object.X + offset.X + object.Width > x and object.Y + offset.Y + object.Height > y then\
        return true\
    end\
end\
\
function DoClick(self, object, event, side, x, y)\
    if object then\
        if self:CheckClick(object, x, y) then\
            local offset = {X = 0, Y = 0}\
            if not object.Fixed and self.ChildOffset then\
                offset = self.ChildOffset\
            end\
            return object:Click(event, side, x - object.X - offset.X + 1, y - object.Y + 1 - offset.Y)\
        end\
    end \
end\
\
Click = function(self, event, side, x, y, z)\
    if self.Visible and not self.IgnoreClick then\
        for i = #self.Children, 1, -1 do --children are ordered from smallest Z to highest, so this is done in reverse\
            local child = self.Children[i]\
            if self:DoClick(child, event, side, x, y) then\
                if self.OnChildClick then\
                    self:OnChildClick(child, event, side, x, y)\
                end\
                return true\
            end\
        end\
        if event == 'mouse_click' and self.OnClick and self:OnClick(event, side, x, y) ~= false then\
            return true\
        elseif event == 'mouse_drag' and self.OnDrag and self:OnDrag(event, side, x, y) ~= false then\
            return true\
        elseif event == 'mouse_scroll' and self.OnScroll and self:OnScroll(event, side, x, y) ~= false then\
            return true\
        else\
            return false\
        end\
    else\
        return false\
    end\
end\
\
OnRemove = function(self)\
    if self == self.Bedrock:GetActiveObject() then\
        self.Bedrock:SetActiveObject()\
    end\
    for i, child in ipairs(self.Children) do\
        child:OnRemove()\
    end\
end\
\
local function findObjectNamed(view, name, minI)\
    local minI = minI or 0\
    if view and view.Children then\
        for i, child in ipairs(view.Children) do\
            if child.Name == name or child == name then\
                return child, i, view\
            elseif child.Children then\
                local found, index, foundView = findObjectNamed(child, name)\
                if found and minI <= index then\
                    return found, index, foundView\
                end\
            end\
        end\
    end\
end\
\
function AddObject(self, info, extra)\
    if type(info) == 'string' then\
        local h = fs.open(self.Bedrock.ViewPath..info..'.view', 'r')\
        if h then\
            info = textutils.unserialize(h.readAll())\
            h.close()\
        else\
            error('Error in opening object: '..info)\
        end\
    end\
\
    if extra then\
        for k, v in pairs(extra) do\
            if v then\
                info[k] = v\
            end\
        end\
    end\
\
    local view = self.Bedrock:ObjectFromFile(info, self)\
    if not view.Z then\
        view.Z = #self.Children + 1\
    end\
    \
    table.insert(self.Children, view)\
    if self.Bedrock.View then\
        self.Bedrock:ReorderObjects()\
    end\
    self:ForceDraw()\
    return view\
end\
\
function GetObject(self, name)\
    return findObjectNamed(self, name)\
end\
\
local function findObjects(view, name)\
    local objects = {}\
    if view and view.Children then\
        for i, child in ipairs(view.Children) do\
            if child.Name == name or child == name then\
                table.insert(objects, child)\
            elseif child.Children then\
                local objs = findObjects(child, name)\
                if objs then\
                    for i2, v in ipairs(objs) do\
                        table.insert(objects, v)\
                    end\
                end\
            end\
        end\
    end\
    return objects\
end\
\
function GetObjects(self, name)\
    return findObjects(self, name)\
end\
\
function RemoveObject(self, name)\
    local obj, index, view = findObjectNamed(self, name, minI)\
    if index then\
        view.Children[index]:OnRemove()\
        table.remove(view.Children, index)\
        if view.OnUpdate then\
            view:OnUpdate('Children')\
        end\
        return true\
    end\
    return false\
end\
\
function RemoveObjects(self, name)\
    local i = 1\
    while self:RemoveObject(name) and i < 100 do\
        i = i + 1\
    end\
    \
end\
\
function RemoveAllObjects(self)\
    for i, child in ipairs(self.Children) do\
        child:OnRemove()\
        self.Children[i] = nil\
    end\
    self:ForceDraw()\
end\
]],\
[\"Window\"] = [[\
Inherit = 'View'\
\
ToolBarColour = colours.lightGrey\
ToolBarTextColour = colours.black\
ShadowColour = colours.grey\
Title = ''\
Flashing = false\
CanClose = true\
OnCloseButton = nil\
\
OnLoad = function(self)\
    --self:GetObject('View') = self.Bedrock:ObjectFromFile({Type = 'View',Width = 10, Height = 5, BackgroundColour = colours.red}, self)\
end\
\
LoadView = function(self)\
    local view = self:GetObject('View')\
    if view.ToolBarColour then\
        window.ToolBarColour = view.ToolBarColour\
    end\
    if view.ToolBarTextColour then\
        window.ToolBarTextColour = view.ToolBarTextColour\
    end\
    view.X = 1\
    view.Y = 2\
\
    view:ForceDraw()\
    self:OnUpdate('View')\
    if self.OnViewLoad then\
        self.OnViewLoad(view)\
    end\
    self.Bedrock:SetActiveObject(view)\
end\
\
SetView = function(self, view)\
    self:RemoveObject('View')\
    table.insert(self.Children, view)\
    view.Parent = self\
    self:LoadView()\
end\
\
Flash = function(self)\
    self.Flashing = true\
    self:ForceDraw()\
    self.Bedrock:StartTimer(function()self.Flashing = false end, 0.4)\
end\
\
OnDraw = function(self, x, y)\
    local toolBarColour = (self.Flashing and colours.white or self.ToolBarColour)\
    local toolBarTextColour = (self.Flashing and colours.black or self.ToolBarTextColour)\
    if toolBarColour then\
        Drawing.DrawBlankArea(x, y, self.Width, 1, toolBarColour)\
    end\
    if toolBarTextColour then\
        local title = self.Bedrock.Helpers.TruncateString(self.Title, self.Width - 2)\
        Drawing.DrawCharactersCenter(self.X, self.Y, self.Width, 1, title, toolBarTextColour, toolBarColour)\
    end\
    Drawing.IgnoreConstraint = true\
    Drawing.DrawBlankArea(x + 1, y + 1, self.Width, self.Height, self.ShadowColour)\
    Drawing.IgnoreConstraint = false\
end\
\
Close = function(self)\
    self.Bedrock.Window = nil\
    self.Bedrock:RemoveObject(self)\
    if self.OnClose then\
        self:OnClose()\
    end\
    self = nil\
end\
\
OnUpdate = function(self, value)\
    if value == 'View' and self:GetObject('View') then\
        self.Width = self:GetObject('View').Width\
        self.Height = self:GetObject('View').Height + 1\
        self.X = math.ceil((Drawing.Screen.Width - self.Width) / 2)\
        self.Y = math.ceil((Drawing.Screen.Height - self.Height) / 2)\
    elseif value == 'CanClose' then\
        self:RemoveObject('CloseButton')\
        if self.CanClose then\
            local button = self:AddObject({X = 1, Y = 1, Width = 1, Height = 1, Type = 'Button', BackgroundColour = colours.red, TextColour = colours.white, Text = 'x', Name = 'CloseButton'})\
            button.OnClick = function(btn)\
                if self.OnCloseButton then\
                    self:OnCloseButton()\
                end\
                self:Close()\
            end\
        end\
    end\
end\
]],\
}\
\
BasePath = ''\
ProgramPath = nil\
\
-- Program functions...\
\
local function main(...)\
    -- Code here...\
end\
\
-- Run\
local args = {...}\
local _, err = pcall(function() main(unpack(args)) end)\
if err then\
    -- Make a nice error handling screen here...\
    term.setBackgroundColor(colors.black)\
    term.setTextColor(colors.white)\
    term.clear()\
    term.setCursorPos(1, 3)\
    print(\" An Error Has Occured! D:\\n\\n\")\
    print(\" \" .. tostring(err) .. \"\\n\\n\")\
    print(\" Press any key to exit...\")\
    os.pullEvent(\"key\")\
end\
\
\
\
function LoadAPIs(self)\
    local function loadAPI(name, content)\
        local env = setmetatable({}, { __index = getfenv() })\
        local func, err = loadstring(content, name..' (Bedrock API)')\
        if not func then\
            return false, printError(err)\
        end\
        setfenv(func, env)\
        func()\
        local api = {}\
        for k,v in pairs(env) do\
            api[k] = v\
        end\
        _G[name] = api\
        return true\
    end\
\
    local env = getfenv()\
    local function loadObject(name, content)\
        loadAPI(name, content)\
        if env[name].Inherit then\
            if not getfenv()[env[name].Inherit] then    \
                if objects[env[name].Inherit] then\
                    loadObject(env[name].Inherit, objects[env[name].Inherit])\
                elseif fs.exists(self.ProgramPath..'/Objects/'..env[name].Inherit..'.lua') then\
                end\
            end\
            env[name].__index = getfenv()[env[name].Inherit]\
        else\
            env[name].__index = Object\
        end\
        setmetatable(env[name], env[name])\
    end\
\
    for k, v in pairs(apis) do\
        loadAPI(k, v)\
        if k == 'Helpers' then\
            self.Helpers = Helpers\
        end\
    end\
\
    for k, v in pairs(objects) do\
        loadObject(k, v)\
    end\
    \
    local privateObjPath = self.ProgramPath..'/Objects/'\
    if fs.exists(privateObjPath) and fs.isDir(privateObjPath) then\
        for i, v in ipairs(fs.list(privateObjPath)) do\
            if v ~= '.DS_Store' then\
                local name = string.match(v, '(%a+)%.?.-')\
                local h = fs.open(privateObjPath..v, 'r')\
                loadObject(name, h.readAll())\
                h.close()\
            end\
        end\
    end\
end\
\
AllowTerminate = true\
\
View = nil\
Menu = nil\
\
ActiveObject = nil\
\
DrawTimer = nil\
DrawTimerExpiry = 0\
\
IsDrawing = false\
\
Running = true\
\
DefaultView = 'main'\
\
EventHandlers = {\
    \
}\
\
ObjectClickHandlers = {\
    \
}\
\
ObjectUpdateHandlers = {\
    \
}\
\
Timers = {\
    \
}\
\
function Initialise(self, programPath)\
    self.ProgramPath = programPath or self.ProgramPath\
    if not programPath then\
        if self.ProgramPath then\
            local prgPath = self.ProgramPath\
            local prgName = fs.getName(prgPath)\
            if prgPath:find('/') then \
                self.ProgramPath = prgPath:sub(1, #prgPath-#prgName-1)\
                self.ProgramPath = prgPath:sub(1, #prgPath-#prgName-1) \
            else \
                self.ProgramPath = '' \
            end\
        else\
            self.ProgramPath = ''\
        end\
    end\
    self:LoadAPIs()\
    self.ViewPath = self.ProgramPath .. '/Views/'\
    --first, check that the barebones APIs are available\
    local requiredApis = {\
        'Drawing',\
        'View'\
    }\
    local env = getfenv()\
    for i,v in ipairs(requiredApis) do\
        if not env[v] then\
            error('The API: '..v..' is not loaded. Please make sure you load it to use Bedrock.')\
        end\
    end\
\
    local copy = { }\
    for k, v in pairs(self) do\
        if k ~= 'Initialise' then\
            copy[k] = v\
        end\
    end\
    return setmetatable(copy, getmetatable(self))\
end\
\
function HandleClick(self, event, side, x, y)\
    if self.Window then\
        if not self.View:CheckClick(self.Window, x, y) then\
            self.Window:Flash()\
        else\
            self.View:DoClick(self.Window, event, side, x, y)\
        end\
    elseif self.Menu then\
        if not self.View:DoClick(self.Menu, event, side, x, y) then\
            self.Menu:Close()\
        end\
    elseif self.View then\
        if self.View:Click(event, side, x, y) ~= false then\
        end     \
    end\
end\
\
function HandleKeyChar(self, event, keychar)\
    if self:GetActiveObject() then\
        local activeObject = self:GetActiveObject()\
        if activeObject.OnKeyChar then\
            if activeObject:OnKeyChar(event, keychar) ~= false then\
                --self:Draw()\
            end\
        end\
    end\
end\
\
function ToggleMenu(self, name, owner, x, y)\
    if self.Menu then\
        self.Menu:Close()\
        return false\
    else\
        self:SetMenu(name, owner, x, y)\
        return true\
    end\
end\
\
function SetMenu(self, menu, owner, x, y)\
    x = x or 1\
    y = y or 1\
    if self.Menu then\
        self.Menu:Close()\
    end \
    if menu then\
        local pos = owner:GetPosition()\
        self.Menu = self:AddObject(menu, {Type = 'Menu', Owner = owner, X = pos.X + x - 1, Y = pos.Y + y})\
    end\
end\
\
function ObjectClick(self, name, func)\
    self.ObjectClickHandlers[name] = func\
end\
\
function ClickObject(self, object, event, side, x, y)\
    if self.ObjectClickHandlers[object.Name] then\
        return self.ObjectClickHandlers[object.Name](object, event, side, x, y)\
    end\
    return false\
end\
\
function ObjectUpdate(self, name, func)\
    self.ObjectUpdateHandlers[name] = func\
end\
\
function UpdateObject(self, object, ...)\
    if self.ObjectUpdateHandlers[object.Name] then\
        self.ObjectUpdateHandlers[object.Name](object, ...)\
        --self:Draw()\
    end\
end\
\
function GetAbsolutePosition(self, obj)\
    if not obj.Parent then\
        return {X = obj.X, Y = obj.Y}\
    else\
        local pos = self:GetAbsolutePosition(obj.Parent)\
        local x = pos.X + obj.X - 1\
        local y = pos.Y + obj.Y - 1\
        if not obj.Fixed and obj.Parent.ChildOffset then\
            x = x + obj.Parent.ChildOffset.X\
            y = y + obj.Parent.ChildOffset.Y\
        end\
        return {X = x, Y = y}\
    end\
end\
\
function LoadView(self, name, draw)\
    if self.View and self.OnViewClose then\
        self.OnViewClose(self.View.Name)\
    end\
    if self.View then\
        self.View:OnRemove()\
    end\
    local success = false\
\
    if not fs.exists(self.ViewPath..name..'.view') then\
        error('The view: '..name..'.view does not exist.')\
    end\
\
    local h = fs.open(self.ViewPath..name..'.view', 'r')\
    if h then\
        local view = textutils.unserialize(h.readAll())\
        h.close()\
        if view then\
            self.View = View:InitialiseFile(self, view, name)\
            self:ReorderObjects()\
\
            if OneOS and view.ToolBarColour then\
                OneOS.ToolBarColour = view.ToolBarColour\
            end\
            if OneOS and view.ToolBarTextColour then\
                OneOS.ToolBarTextColour = view.ToolBarTextColour\
            end\
            if not self:GetActiveObject() then\
                self:SetActiveObject()\
            end\
            success = true\
        end\
    end\
\
    if success and self.OnViewLoad then\
        self.OnViewLoad(name)\
    end\
\
    if draw ~= false then\
        self:Draw()\
    end\
\
    if not success then\
        error('Failed to load view: '..name..'. It probably isn\\'t formatted correctly. Did you forget a } or ,?')\
    end\
\
    return success\
end\
\
function InheritFile(self, file, name)\
    local h = fs.open(self.ViewPath..name..'.view', 'r')\
    if h then\
        local super = textutils.unserialize(h.readAll())\
        if super then\
            if type(super) ~= 'table' then\
                error('View: \"'..name..'.view\" is not formatted correctly.')\
            end\
\
            for k, v in pairs(super) do\
                if not file[k] then\
                    file[k] = v\
                end\
            end\
            return file\
        end\
    end\
    return file\
end\
\
function ParseStringSize(self, parent, k, v)\
        local parentSize = parent.Width\
        if k == 'Height' or k == 'Y' then\
            parentSize = parent.Height\
        end\
        local parts = {v}\
        if type(v) == 'string' and string.find(v, ',') then\
            parts = {}\
            for word in string.gmatch(v, '([^,]+)') do\
                table.insert(parts, word)\
            end\
        end\
\
        v = 0\
        for i2, part in ipairs(parts) do\
            if type(part) == 'string' and part:sub(#part) == '%' then\
                v = v + math.ceil(parentSize * (tonumber(part:sub(1, #part-1)) / 100))\
            else\
                v = v + tonumber(part)\
            end\
        end\
        return v\
end\
\
function ObjectFromFile(self, file, view)\
    local env = getfenv()\
    if env[file.Type] then\
        if not env[file.Type].Initialise then\
            error('Malformed Object: '..file.Type)\
        end\
        local object = {}\
\
        if file.InheritView then\
            file = self:InheritFile(file, file.InheritView)\
        end\
        \
        object.AutoWidth = true\
        for k, v in pairs(file) do\
            if k == 'Width' or k == 'X' or k == 'Height' or k == 'Y' then\
                v = self:ParseStringSize(view, k, v)\
            end\
\
            if k == 'Width' then\
                object.AutoWidth = false\
            end\
            if k ~= 'Children' then\
                object[k] = v\
            else\
                object[k] = {}\
            end\
        end\
\
        object.Parent = view\
        object.Bedrock = self\
        if not object.Name then\
            object.Name = file.Type\
        end\
\
        object = env[file.Type]:Initialise(object)\
\
        if file.Children then\
            for i, obj in ipairs(file.Children) do\
                local _view = self:ObjectFromFile(obj, object)\
                if not _view.Z then\
                    _view.Z = i\
                end\
                _view.Parent = object\
                table.insert(object.Children, _view)\
            end\
        end\
\
        if not object.OnClick then\
            object.OnClick = function(...) return self:ClickObject(...) end\
        end\
        --object.OnUpdate = function(...) self:UpdateObject(...) end\
\
        if object.OnUpdate then\
            for k, v in pairs(env[file.Type]) do\
                object:OnUpdate(k)\
            end\
\
            for k, v in pairs(object.__index) do\
                object:OnUpdate(k)\
            end\
        end\
\
        if object.Active then\
            object.Bedrock:SetActiveObject(object)\
        end\
        if object.OnLoad then\
            object:OnLoad()\
        end\
        return object\
    elseif not file.Type then\
        error('No object type specified. (e.g. Type = \"Button\")')\
    else\
        error('No Object: '..file.Type..'. The API probably isn\\'t loaded')\
    end\
end\
\
function ReorderObjects(self)\
    if self.View and self.View.Children then\
        table.sort(self.View.Children, function(a,b)\
            return a.Z < b.Z \
        end)\
    end\
end\
\
function AddObject(self, info, extra)\
    return self.View:AddObject(info, extra)\
end\
\
function GetObject(self, name)\
    return self.View:GetObject(name)\
end\
\
function GetObjects(self, name)\
    return self.View:GetObjects(name)\
end\
\
function RemoveObject(self, name)\
    return self.View:RemoveObject(name)\
end\
\
function RemoveObjects(self, name)\
    return self.View:RemoveObjects(name)\
end\
\
function ForceDraw(self)\
    if not self.DrawTimer or self.DrawTimerExpiry <= os.clock() then\
        self.DrawTimer = self:StartTimer(function()\
            self.DrawTimer = nil\
            self:Draw()\
        end, 0.05)\
        self.DrawTimerExpiry = os.clock() + 0.1\
    end\
end\
\
function DisplayWindow(self, _view, title, canClose)\
    if canClose == nil then\
        canClose = true\
    end\
    if type(_view) == 'string' then\
        local h = fs.open(self.ViewPath.._view..'.view', 'r')\
        if h then\
            _view = textutils.unserialize(h.readAll())\
            h.close()\
        end\
    end\
\
    self.Window = self:AddObject({Type = 'Window', Z = 999, Title = title, CanClose = canClose})\
    _view.Type = 'View'\
    _view.Name = 'View'\
    _view.BackgroundColour = _view.BackgroundColour or colours.white\
    self.Window:SetView(self:ObjectFromFile(_view, self.Window))\
end\
\
function DisplayAlertWindow(self, title, text, buttons, callback)\
    local func = function(btn)\
        self.Window:Close()\
        if callback then\
            callback(btn.Text)\
        end\
    end\
    local children = {}\
    local usedX = -1\
    if buttons then\
        for i, text in ipairs(buttons) do\
            usedX = usedX + 3 + #text\
            table.insert(children, {\
                [\"Y\"]=\"100%,-1\",\
                [\"X\"]=\"100%,-\"..usedX,\
                [\"Name\"]=text..\"Button\",\
                [\"Type\"]=\"Button\",\
                [\"Text\"]=text,\
                OnClick = func\
            })\
        end\
    end\
\
    local width = usedX + 2\
    if width < 28 then\
        width = 28\
    end\
\
    local canClose = true\
    if buttons and #buttons~=0 then\
        canClose = false\
    end\
\
    local height = 0\
    if text then\
        height = #Helpers.WrapText(text, width - 2)\
        table.insert(children, {\
            [\"Y\"]=2,\
            [\"X\"]=2,\
            [\"Width\"]=\"100%,-2\",\
            [\"Height\"]=height,\
            [\"Name\"]=\"Label\",\
            [\"Type\"]=\"Label\",\
            [\"Text\"]=text\
        })\
    end\
    local view = {\
        Children = children,\
        Width=width,\
        Height=3+height+(canClose and 0 or 1),\
        OnKeyChar = function(_view, keychar)\
            func({Text=buttons[1]})\
        end\
    }\
    self:DisplayWindow(view, title, canClose)\
end\
\
function DisplayTextBoxWindow(self, title, text, callback, textboxText, cursorAtEnd)\
    textboxText = textboxText or ''\
    local func = function(btn)\
        self.Window:Close()\
        if callback then\
            callback(btn.Text)\
        end\
    end\
    local children = {\
        {\
            [\"Y\"]=\"100%,-1\",\
            [\"X\"]=\"100%,-4\",\
            [\"Name\"]=\"OkButton\",\
            [\"Type\"]=\"Button\",\
            [\"Text\"]=\"Ok\",\
            OnClick = function()\
                local text = self.Window:GetObject('TextBox').Text\
                self.Window:Close()\
                callback(true, text)\
            end\
        },\
        {\
            [\"Y\"]=\"100%,-1\",\
            [\"X\"]=\"100%,-13\",\
            [\"Name\"]=\"CancelButton\",\
            [\"Type\"]=\"Button\",\
            [\"Text\"]=\"Cancel\",\
            OnClick = function()\
                self.Window:Close()\
                callback(false)\
            end\
        }\
    }\
\
    local height = -1\
    if text and #text ~= 0 then\
        height = #Helpers.WrapText(text, 26)\
        table.insert(children, {\
            [\"Y\"]=2,\
            [\"X\"]=2,\
            [\"Width\"]=\"100%,-2\",\
            [\"Height\"]=height,\
            [\"Name\"]=\"Label\",\
            [\"Type\"]=\"Label\",\
            [\"Text\"]=text\
        })\
    end\
    table.insert(children,\
        {\
            [\"Y\"]=3+height,\
            [\"X\"]=2,\
            [\"Width\"]=\"100%,-2\",\
            [\"Name\"]=\"TextBox\",\
            [\"Type\"]=\"TextBox\",\
            [\"Text\"]=textboxText,\
            [\"CursorPos\"]=(cursorAtEnd and 0 or nil)\
        })\
    local view = {\
        Children = children,\
        Width=28,\
        Height=5+height+(canClose and 0 or 1),\
    }\
    self:DisplayWindow(view, title)\
    self.Window:GetObject('TextBox').OnUpdate = function(txtbox, keychar)\
        if keychar == keys.enter then\
            self.Window:Close()\
            callback(true, txtbox.Text)\
        end\
    end\
    self:SetActiveObject(self.Window:GetObject('TextBox'))\
    self.Window.OnCloseButton = function()callback(false)end\
end\
\
function DisplayOpenFileWindow(self, title, callback)\
    title = title or 'Open File'\
    local func = function(btn)\
        self.Window:Close()\
        if callback then\
            callback(btn.Text)\
        end\
    end\
\
    local sidebarItems = {}\
\
    --this is a really, really super bad way of doing it\
    local separator = '                               !'\
\
    local function addFolder(path, level)\
        for i, v in ipairs(fs.list(path)) do\
            local fPath = path .. '/' .. v\
            if fPath ~= '/rom' and fs.isDir(fPath) then\
                table.insert(sidebarItems, level .. v..separator..fPath)\
                addFolder(fPath, level .. '  ')\
            end\
        end\
    end\
    addFolder('','')\
\
    local currentFolder = ''\
    local selectedPath = nil\
\
    local goToFolder = nil\
\
    local children = {\
        {\
            [\"Y\"]=\"100%,-2\",\
            [\"X\"]=1,\
            [\"Height\"]=3,\
            [\"Width\"]=\"100%\",\
            [\"BackgroundColour\"]=colours.lightGrey,\
            [\"Name\"]=\"SidebarListView\",\
            [\"Type\"]=\"View\"\
        },\
        {\
            [\"Y\"]=\"100%,-1\",\
            [\"X\"]=\"100%,-4\",\
            [\"Name\"]=\"OkButton\",\
            [\"Type\"]=\"Button\",\
            [\"Text\"]=\"Ok\",\
            [\"BackgroundColour\"]=colours.white,\
            [\"Enabled\"]=false,\
            OnClick = function()\
                if selectedPath then\
                    self.Window:Close()\
                    callback(true, Helpers.TidyPath(selectedPath))\
                end\
            end\
        },\
        {\
            [\"Y\"]=\"100%,-1\",\
            [\"X\"]=\"100%,-13\",\
            [\"Name\"]=\"CancelButton\",\
            [\"Type\"]=\"Button\",\
            [\"Text\"]=\"Cancel\",\
            [\"BackgroundColour\"]=colours.white,\
            OnClick = function()\
                self.Window:Close()\
                callback(false)\
            end\
        },\
        {\
            [\"Y\"]=1,\
            [\"X\"]=1,\
            [\"Height\"]=\"100%,-3\",\
            [\"Width\"]=\"40%,-1\",\
            [\"Name\"]=\"SidebarListView\",\
            [\"Type\"]=\"ListView\",\
            [\"CanSelect\"]=true,\
            [\"Items\"]={\
                [\"Computer\"] = sidebarItems\
            },\
            OnSelect = function(listView, text)\
                local _,s = text:find(separator)\
                if s then\
                    local path = text:sub(s + 1)\
                    goToFolder(path)\
                end\
            end,\
            OnClick = function(listView, event, side, x, y)\
                if y == 1 then\
                    goToFolder('/')\
                end\
            end\
        },\
        {\
            [\"Y\"]=1,\
            [\"X\"]=\"40%\",\
            [\"Height\"]=\"100%,-3\",\
            [\"Width\"]=1,\
            [\"Type\"]=\"Separator\"\
        },\
        {\
            [\"Y\"]=1,\
            [\"X\"]=\"40%,2\",\
            [\"Width\"]=\"65%,-3\",\
            [\"Height\"]=1,\
            [\"Type\"]=\"Label\",\
            [\"Name\"]=\"PathLabel\",\
            [\"TextColour\"]=colours.lightGrey,\
            [\"Text\"]='/hello/there'\
        },\
        {\
            [\"Y\"]=2,\
            [\"X\"]=\"40%,1\",\
            [\"Height\"]=\"100%,-4\",\
            [\"Width\"]=\"65%,-1\",\
            [\"Name\"]=\"FilesListView\",\
            [\"Type\"]=\"ListView\",\
            [\"CanSelect\"]=true,\
            [\"Items\"]={},\
            OnSelect = function(listView, text)\
                selectedPath = Helpers.TidyPath(currentFolder .. '/' .. text)\
                self.Window:GetObject('OkButton').Enabled = true\
            end,\
            OnClick = function(listView, event, side, x, y)\
                if y == 1 then\
                    goToFolder('/')\
                end\
            end\
        },\
    }\
    local view = {\
        Children = children,\
        Width=40,\
        Height= Drawing.Screen.Height - 4\
    }\
    self:DisplayWindow(view, title)\
\
    goToFolder = function(path)\
        path = Helpers.TidyPath(path)\
        self.Window:GetObject('PathLabel').Text = path\
        currentFolder = path\
\
        local filesListItems = {}\
        for i, v in ipairs(fs.list(path)) do\
            if not fs.isDir(currentFolder .. v) then\
                table.insert(filesListItems, v)\
            end\
        end\
        self.Window:GetObject('OkButton').Enabled = false\
        selectedPath = nil\
        self.Window:GetObject('FilesListView').Items = filesListItems\
\
    end\
\
    goToFolder('')\
\
    self.Window.OnCloseButton = function()callback(false)end\
end\
\
function RegisterEvent(self, event, func)\
    if not self.EventHandlers[event] then\
        self.EventHandlers[event] = {}\
    end\
    table.insert(self.EventHandlers[event], func)\
end\
\
function StartRepeatingTimer(self, func, interval)\
    local int = interval\
    if type(int) == 'function' then\
        int = int()\
    end\
    if not int or int <= 0 then\
        return\
    end\
    local timer = os.startTimer(int)\
\
    self.Timers[timer] = {func, true, interval}\
    return timer\
end\
\
function StartTimer(self, func, delay)\
    local timer = os.startTimer(delay)\
    self.Timers[timer] = {func, false}\
    return timer\
end\
\
function StopTimer(self, timer)\
    if self.Timers[timer] then\
        self.Timers[timer] = nil\
    end\
end\
\
function HandleTimer(self, event, timer)\
    if self.Timers[timer] then\
        local oldTimer = self.Timers[timer]\
        self.Timers[timer] = nil\
        local new = nil\
        if oldTimer[2] then\
            new = self:StartRepeatingTimer(oldTimer[1], oldTimer[3])\
        end\
        if oldTimer and oldTimer[1] then\
            oldTimer[1](new)\
        end\
    elseif self.OnTimer then\
        self.OnTimer(self, event, timer)\
    end\
end\
\
function SetActiveObject(self, object)\
    if object then\
        if object ~= self.ActiveObject then\
            self.ActiveObject = object\
            object:ForceDraw()\
        end\
    elseif self.ActiveObject ~= nil then\
        self.ActiveObject = nil\
        self.CursorPos = nil\
        self.View:ForceDraw()\
    end\
end\
\
function GetActiveObject(self)\
    return self.ActiveObject\
end\
\
OnTimer = nil\
OnClick = nil\
OnKeyChar = nil\
OnDrag = nil\
OnScroll = nil\
OnViewLoad = nil\
OnViewClose = nil\
OnDraw = nil\
OnQuit = nil\
\
local eventFuncs = {\
    OnClick = {'mouse_click'},\
    OnKeyChar = {'key', 'char'},\
    OnDrag = {'mouse_drag'},\
    OnScroll = {'mouse_scroll'},\
    HandleClick = {'mouse_click', 'mouse_drag', 'mouse_scroll'},\
    HandleKeyChar = {'key', 'char'},\
    HandleTimer = {'timer'}\
}\
\
local drawCalls = 0\
local ignored = 0\
function Draw(self)\
    self.IsDrawing = true\
    if self.OnDraw then\
        self:OnDraw()\
    end\
\
    if self.View and self.View:NeedsDraw() then\
        self.View:Draw()\
        Drawing.DrawBuffer()\
        if isDebug then\
            drawCalls = drawCalls + 1\
        end\
    elseif not self.View then\
        print('No loaded view. You need to do program:LoadView first.')\
    end \
\
    if self:GetActiveObject() and self.CursorPos and type(self.CursorPos[1]) == 'number' and type(self.CursorPos[2]) == 'number' then\
        term.setCursorPos(self.CursorPos[1], self.CursorPos[2])\
        term.setTextColour(self.CursorColour)\
        term.setCursorBlink(true)\
    else\
        term.setCursorBlink(false)\
    end\
\
    self.IsDrawing = false\
end\
\
function EventHandler(self)\
    local event = { os.pullEventRaw() }\
    \
    if self.EventHandlers[event[1]] then\
        for i, e in ipairs(self.EventHandlers[event[1]]) do\
            e(self, unpack(event))\
        end\
    end\
end\
\
function Quit(self)\
    self.Running = false\
    if self.OnQuit then\
        self:OnQuit()\
    end\
    if OneOS then\
        OneOS.Close()\
    end\
end\
\
function Run(self, ready)\
    for name, events in pairs(eventFuncs) do\
        if self[name] then\
            for i, event in ipairs(events) do\
                self:RegisterEvent(event, self[name])\
            end\
        end\
    end\
\
    if self.AllowTerminate then\
        self:RegisterEvent('terminate', function()error('Terminated', 0) end)\
    end\
\
    if self.DefaultView and self.DefaultView ~= '' and fs.exists(self.ViewPath..self.DefaultView..'.view') then\
        self:LoadView(self.DefaultView)\
    end\
\
    if ready then\
        ready()\
    end\
    \
    self:Draw()\
\
    while self.Running do\
        self:EventHandler()\
    end\
end",[".gitignore"]=".DS_Store\
.Desktop.settings\
.OneOS.settings\
*.settings\
\
Desktop/.Desktop.settings\
\
.version",["hash"]="--\
--  Thanks to GravityScore for this!\
--  http://www.computercraft.info/forums2/index.php?/topic/8169-sha-256-in-pure-lua/\
--\
--  This is used to hash passwords sent with the secure text field. It just reduces the chance of people getting hacked.\
--\
\
--  \
--  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\
--  \
\
local MOD = 2^32\
local MODM = MOD-1\
\
local function memoize(f)\
    local mt = {}\
    local t = setmetatable({}, mt)\
    function mt:__index(k)\
        local v = f(k)\
        t[k] = v\
        return v\
    end\
    return t\
end\
\
local function make_bitop_uncached(t, m)\
    local function bitop(a, b)\
        local res,p = 0,1\
        while a ~= 0 and b ~= 0 do\
            local am, bm = a % m, b % m\
            res = res + t[am][bm] * p\
            a = (a - am) / m\
            b = (b - bm) / m\
            p = p*m\
        end\
        res = res + (a + b) * p\
        return res\
    end\
    return bitop\
end\
\
local function make_bitop(t)\
    local op1 = make_bitop_uncached(t,2^1)\
    local op2 = memoize(function(a) return memoize(function(b) return op1(a, b) end) end)\
    return make_bitop_uncached(op2, 2 ^ (t.n or 1))\
end\
\
local bxor1 = make_bitop({[0] = {[0] = 0,[1] = 1}, [1] = {[0] = 1, [1] = 0}, n = 4})\
\
local function bxor(a, b, c, ...)\
    local z = nil\
    if b then\
        a = a % MOD\
        b = b % MOD\
        z = bxor1(a, b)\
        if c then z = bxor(z, c, ...) end\
        return z\
    elseif a then return a % MOD\
    else return 0 end\
end\
\
local function band(a, b, c, ...)\
    local z\
    if b then\
        a = a % MOD\
        b = b % MOD\
        z = ((a + b) - bxor1(a,b)) / 2\
        if c then z = bit32_band(z, c, ...) end\
        return z\
    elseif a then return a % MOD\
    else return MODM end\
end\
\
local function bnot(x) return (-1 - x) % MOD end\
\
local function rshift1(a, disp)\
    if disp < 0 then return lshift(a,-disp) end\
    return math.floor(a % 2 ^ 32 / 2 ^ disp)\
end\
\
local function rshift(x, disp)\
    if disp > 31 or disp < -31 then return 0 end\
    return rshift1(x % MOD, disp)\
end\
\
local function lshift(a, disp)\
    if disp < 0 then return rshift(a,-disp) end \
    return (a * 2 ^ disp) % 2 ^ 32\
end\
\
local function rrotate(x, disp)\
    x = x % MOD\
    disp = disp % 32\
    local low = band(x, 2 ^ disp - 1)\
    return rshift(x, disp) + lshift(low, 32 - disp)\
end\
\
local k = {\
    0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5,\
    0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,\
    0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3,\
    0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174,\
    0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc,\
    0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,\
    0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7,\
    0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,\
    0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13,\
    0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85,\
    0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3,\
    0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070,\
    0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5,\
    0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3,\
    0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208,\
    0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2,\
}\
\
local function str2hexa(s)\
    return (string.gsub(s, \".\", function(c) return string.format(\"%02x\", string.byte(c)) end))\
end\
\
local function num2s(l, n)\
    local s = \"\"\
    for i = 1, n do\
        local rem = l % 256\
        s = string.char(rem) .. s\
        l = (l - rem) / 256\
    end\
    return s\
end\
\
local function s232num(s, i)\
    local n = 0\
    for i = i, i + 3 do n = n*256 + string.byte(s, i) end\
    return n\
end\
\
local function preproc(msg, len)\
    local extra = 64 - ((len + 9) % 64)\
    len = num2s(8 * len, 8)\
    msg = msg .. \"\\128\" .. string.rep(\"\\0\", extra) .. len\
    assert(#msg % 64 == 0)\
    return msg\
end\
\
local function initH256(H)\
    H[1] = 0x6a09e667\
    H[2] = 0xbb67ae85\
    H[3] = 0x3c6ef372\
    H[4] = 0xa54ff53a\
    H[5] = 0x510e527f\
    H[6] = 0x9b05688c\
    H[7] = 0x1f83d9ab\
    H[8] = 0x5be0cd19\
    return H\
end\
\
local function digestblock(msg, i, H)\
    local w = {}\
    for j = 1, 16 do w[j] = s232num(msg, i + (j - 1)*4) end\
    for j = 17, 64 do\
        local v = w[j - 15]\
        local s0 = bxor(rrotate(v, 7), rrotate(v, 18), rshift(v, 3))\
        v = w[j - 2]\
        w[j] = w[j - 16] + s0 + w[j - 7] + bxor(rrotate(v, 17), rrotate(v, 19), rshift(v, 10))\
    end\
\
    local a, b, c, d, e, f, g, h = H[1], H[2], H[3], H[4], H[5], H[6], H[7], H[8]\
    for i = 1, 64 do\
        local s0 = bxor(rrotate(a, 2), rrotate(a, 13), rrotate(a, 22))\
        local maj = bxor(band(a, b), band(a, c), band(b, c))\
        local t2 = s0 + maj\
        local s1 = bxor(rrotate(e, 6), rrotate(e, 11), rrotate(e, 25))\
        local ch = bxor (band(e, f), band(bnot(e), g))\
        local t1 = h + s1 + ch + k[i] + w[i]\
        h, g, f, e, d, c, b, a = g, f, e, d + t1, c, b, a, t1 + t2\
    end\
\
    H[1] = band(H[1] + a)\
    H[2] = band(H[2] + b)\
    H[3] = band(H[3] + c)\
    H[4] = band(H[4] + d)\
    H[5] = band(H[5] + e)\
    H[6] = band(H[6] + f)\
    H[7] = band(H[7] + g)\
    H[8] = band(H[8] + h)\
end\
\
function sha256(msg)\
    msg = preproc(msg, #msg)\
    local H = initH256({})\
    for i = 1, #msg, 64 do digestblock(msg, i, H) end\
    return str2hexa(num2s(H[1], 4) .. num2s(H[2], 4) .. num2s(H[3], 4) .. num2s(H[4], 4) ..\
        num2s(H[5], 4) .. num2s(H[6], 4) .. num2s(H[7], 4) .. num2s(H[8], 4))\
end",["Pages"]={["404.ccml"]="<!DOCTYPE ccml>\
<html>\
    <head>\
      <title>Page Not Found</title>\
    </head>\
    <body>\
        <br/>\
        <br/>\
        <h colour=\"red\">404 Page Not Found</h>\
        <br/>\
        <center>\
            <p width=\"38\" align=\"center\">The page was not found on the server. Check the address and try again.</p>\
        </center>\
    </body>\
</html>",["6.ccml"]="<!DOCTYPE ccml>\
<html>\
    <head>\
      <title>Download Failed</title>\
    </head>\
    <body>\
        <br/>\
        <br/>\
        <h colour=\"red\">Download Failed</h>\
        <br/>\
        <center>\
            <br>\
            <p width=\"38\" align=\"center\">The file you wanted failed to download. Try again or contact the file owner.</p>\
        </center>\
    </body>\
</html>",["7.ccml"]="<!DOCTYPE ccml>\
<html>\
    <head>\
      <title>No Modem Connected</title>\
    </head>\
    <body>\
        <br/>\
        <br/>\
        <h colour=\"red\">No Modem Connected</h>\
        <br/>\
        <center>\
            <br>\
            <p width=\"38\" align=\"center\">Please attach a wirelss modem and restart Quest.</p>\
        </center>\
    </body>\
</html>",["download.ccml"]="<!DOCTYPE ccml>\
<html>\
    <head>\
        <title>Downloading File</title>\
        <script type=\"lua\">\
            if window.get.path then\
                l('p').text('Quest is downloading your file to ' .. window.get.path .. '. Please wait a moment. Leaving this page will cancel the download.')\
            end\
        </script>\
    </head>\
    <body>\
        <br/>\
        <br/>\
        <h colour=\"blue\">Downloading File</h>\
\
        <center>\
            <br>\
            <p width=\"48\" align=\"center\"></p>\
        </center>\
    </body>\
</html>",["408.ccml"]="<!DOCTYPE ccml>\
<html>\
    <head>\
      <title>Page Not Found</title>\
    </head>\
    <body>\
        <br/>\
        <br/>\
        <h colour=\"red\">Page Load Cancelled</h>\
        <br/>\
        <center>\
            <p width=\"38\" align=\"center\">The page either took too long to load or you cancelled loading it.</p>\
        </center>\
    </body>\
</html>",["text.ccml"]="<!DOCTYPE ccml>\
<html>\
    <head>\
        <title>An Error Occured</title>\
        <script type=\"lua\">\
            if window.get.reason then\
                l('p').text(window.get.reason)\
            end\
        </script>\
    </head>\
    <body>\
        <br/>\
        <br/>\
        <h colour=\"red\">An Error Occured</h>\
        <br/>\
        <center>\
            <br>\
            <p width=\"48\" align=\"center\">Unknown Reason</p>\
        </center>\
    </body>\
</html>",["downloaded.ccml"]="<!DOCTYPE ccml>\
<html>\
    <head>\
        <title>Download Complete</title>\
        <script type=\"lua\">\
            if window.get.path then\
                l('p').text('Your file has been saved to ' .. window.get.path .. '. You can now leave this page (use the back button).')\
            end\
        </script>\
    </head>\
    <body>\
        <br/>\
        <br/>\
        <h colour=\"blue\">Download Complete</h>\
\
        <center>\
            <br>\
            <p width=\"48\" align=\"center\"></p>\
        </center>\
    </body>\
</html>",["1.ccml"]="<!DOCTYPE ccml>\
<html>\
    <head>\
      <title>Failed to Download Page</title>\
    </head>\
    <body>\
        <br/>\
        <br/>\
        <h colour=\"red\">Failed to Download Page</h>\
        <br/>\
        <center>\
            <br>\
            <p width=\"38\" align=\"center\">The page you requested failed to download. The page may not exist, the server may be experiencing problems or you have connection issues.</p>\
        </center>\
    </body>\
</html>",["2.ccml"]="<!DOCTYPE ccml>\
<html>\
    <head>\
      <title>Doctype Incorrect</title>\
    </head>\
    <body>\
        <br/>\
        <br/>\
        <h colour=\"red\">Doctype Incorrect</h>\
        <br/>\
        <center>\
            <br>\
            <p width=\"38\" align=\"center\">This page has an incorrect doctype and can not be rendered. Quest can not view standard web pages.</p>\
            <br>\
            <p width=\"38\" align=\"center\" color=\"grey\">If you made this page make sure the file starts with \"&lt;!DOCTYPE ccml&gt;\"</p>\
        </center>\
    </body>\
</html>",["3.ccml"]="<!DOCTYPE ccml>\
<html>\
    <head>\
      <title>Failed to Parse Page</title>\
    </head>\
    <body>\
        <br/>\
        <br/>\
        <h colour=\"red\">Failed to Parse Page</h>\
        <br/>\
        <center>\
            <br>\
            <p width=\"38\" align=\"center\">The page you requested failed to parse. It is either malformed or your browser is out of date.</p>\
        </center>\
    </body>\
</html>",["4.ccml"]="<!DOCTYPE ccml>\
<html>\
    <head>\
      <title>HTTP Not Enabled</title>\
    </head>\
    <body>\
        <br/>\
        <br/>\
        <h colour=\"red\">HTTP Not Enabled</h>\
        <br/>\
        <center>\
            <br>\
            <p width=\"38\" align=\"center\">You haven't enabled the HTTP API. To do so, take a look on the HTTP API page on the wiki for a link to a tutorial.</p>\
        </center>\
    </body>\
</html>",["5.ccml"]="<!DOCTYPE ccml>\
<html>\
    <head>\
      <title>Page Not Whitelisted</title>\
    </head>\
    <body>\
        <br/>\
        <br/>\
        <h colour=\"red\">Page Not Whitelisted</h>\
        <br/>\
        <center>\
            <br>\
            <p width=\"38\" align=\"center\">The page you are trying to open isn't whitelisted. Please take a look on the forums or the wiki as to how to fix this.</p>\
        </center>\
    </body>\
</html>",},["lQuery"]="function fn(selector)\
    if not selector then\
    else\
        local elements = lQuery.webView:ResolveElements(selector)\
        local function relayout()\
            lQuery.webView:RepositionLayout()\
        end\
        if elements and #elements > 0 then\
            local each = function(func)\
                for i, v in ipairs(elements) do\
                    func(v, i)\
                end\
            end\
\
            local response = {\
                text = function(text)\
                    each(function(elem)\
                        if elem.Text then\
                            elem.Text = tostring(text)\
                        end\
                    end)\
                end,\
\
                width = function(width)\
                    if type(width) == 'number' then\
                        each(function(elem)\
                            elem.Width = width\
                        end)\
                        relayout()\
                    end\
                end,\
\
                height = function(height)\
                    if type(height) == 'number' then\
                        each(function(elem)\
                            elem.Height = height\
                        end)\
                        relayout()\
                    end\
                end,\
\
                colour = function(colour)\
                    if type(colour) == 'number' then\
                        each(function(elem)\
                            if elem.TextColour then\
                                elem.TextColour = colour\
                            end\
                        end)\
                    end\
                end,\
\
                bgcolour = function(bgcolour)\
                    if type(bgcolour) == 'number' then\
                        each(function(elem)\
                            if elem.BackgroundColour then\
                                elem.BackgroundColour = bgcolour\
                            end\
                        end)\
                    end\
                end,\
\
                align = function(align)\
                    if type(align) == 'string' and align:lower() == 'left' or align:lower() == 'center' or align:lower() == 'right'  then\
                        each(function(elem)\
                            if elem.Align then\
                                elem.Align = align:lower():gsub(\"^%l\", string.upper)\
                            end\
                        end)\
                    end\
                end,\
\
                attr = function(name)\
                    local values = {}\
                    each(function(elem)\
                        if elem.Element.Attributes and elem.Element.Attributes[name] then\
                            table.insert(values, elem.Element.Attributes[name])\
                        end\
                    end)\
                    return values\
                end,\
\
                remove = function()\
                    each(function(elem)\
                        lQuery.webView:RemoveElement(elem)\
                        relayout()\
                    end)\
                end,\
\
                focus = function()\
                    each(function(elem)\
                        elem.Bedrock:SetActiveObject(elem)\
                    end)\
                end\
            }\
            response.color = response.colour\
            response.bgcolor = response.bgcolour\
\
            return response\
        end\
    end\
end",["Peripheral"]="GetPeripheral = function(_type)\
    for i, p in ipairs(GetPeripherals()) do\
        if p.Type == _type then\
            return p\
        end\
    end\
end\
\
Call = function(type, ...)\
    local tArgs = {...}\
    local p = GetPeripheral(type)\
    peripheral.call(p.Side, unpack(tArgs))\
end\
\
local getNames = peripheral.getNames or function()\
    local tResults = {}\
    for n,sSide in ipairs( rs.getSides() ) do\
        if peripheral.isPresent( sSide ) then\
            table.insert( tResults, sSide )\
            local isWireless = false\
            if pcall(function()isWireless = peripheral.call(sSide, 'isWireless') end) then\
                isWireless = true\
            end     \
            if peripheral.getType( sSide ) == \"modem\" and not isWireless then\
                local tRemote = peripheral.call( sSide, \"getNamesRemote\" )\
                for n,sName in ipairs( tRemote ) do\
                    table.insert( tResults, sName )\
                end\
            end\
        end\
    end\
    return tResults\
end\
\
GetPeripherals = function(filterType)\
    local peripherals = {}\
    for i, side in ipairs(getNames()) do\
        local name = peripheral.getType(side):gsub(\"^%l\", string.upper)\
        local code = string.upper(side:sub(1,1))\
        if side:find('_') then\
            code = side:sub(side:find('_')+1)\
        end\
\
        local dupe = false\
        for i, v in ipairs(peripherals) do\
            if v[1] == name .. ' ' .. code then\
                dupe = true\
            end\
        end\
\
        if not dupe then\
            local _type = peripheral.getType(side)\
            local formattedType = _type:sub(1, 1):upper() .. _type:sub(2, -1)\
            local isWireless = false\
            if _type == 'modem' then\
                if not pcall(function()isWireless = peripheral.call(side, 'isWireless') end) then\
                    isWireless = true\
                end     \
                if isWireless then\
                    _type = 'wireless_modem'\
                    formattedType = 'Wireless Modem'\
                    name = 'W '..name\
                end\
            end\
            if not filterType or _type == filterType then\
                table.insert(peripherals, {Name = name:sub(1,8) .. ' '..code, Fullname = name .. ' ('..side:sub(1, 1):upper() .. side:sub(2, -1)..')', Side = side, Type = _type, Wireless = isWireless, FormattedType = formattedType})\
            end\
        end\
    end\
    return peripherals\
end\
\
GetSide = function(side)\
    for i, p in ipairs(GetPeripherals()) do\
        if p.Side == side then\
            return p\
        end\
    end\
end\
\
PresentNamed = function(name)\
    return peripheral.isPresent(name)\
end\
\
CallType = function(type, ...)\
    local tArgs = {...}\
    local p = GetPeripheral(type)\
    return peripheral.call(p.Side, unpack(tArgs))\
end\
\
CallNamed = function(name, ...)\
    local tArgs = {...}\
    return peripheral.call(name, unpack(tArgs))\
end\
\
GetInfo = function(p)\
    local info = {}\
    local buttons = {}\
    if p.Type == 'computer' then\
        local id = peripheral.call(p.Side:lower(),'getID')\
        if id then\
            info = {\
                ID = tostring(id)\
            }\
        else\
            info = {}\
        end\
    elseif p.Type == 'drive' then\
        local discType = 'No Disc'\
        local discID = nil\
        local mountPath = nil\
        local discLabel = nil\
        local songName = nil\
        if peripheral.call(p.Side:lower(), 'isDiskPresent') then\
            if peripheral.call(p.Side:lower(), 'hasData') then\
                discType = 'Data'\
                discID = peripheral.call(p.Side:lower(), 'getDiskID')\
                if discID then\
                    discID = tostring(discID)\
                else\
                    discID = 'None'\
                end\
                mountPath = '/'..peripheral.call(p.Side:lower(), 'getMountPath')..'/'\
                discLabel = peripheral.call(p.Side:lower(), 'getDiskLabel')\
            else\
                discType = 'Audio'\
                songName = peripheral.call(p.Side:lower(), 'getAudioTitle')\
            end\
        end\
        if mountPath then\
            table.insert(buttons, {Text = 'View Files', OnClick = function(self, event, side, x, y)GoToPath(mountPath)end})\
        elseif discType == 'Audio' then\
            table.insert(buttons, {Text = 'Play', OnClick = function(self, event, side, x, y)\
                if self.Text == 'Play' then\
                    disk.playAudio(p.Side:lower())\
                    self.Text = 'Stop'\
                else\
                    disk.stopAudio(p.Side:lower())\
                    self.Text = 'Play'\
                end\
            end})\
        else\
            diskOpenButton = nil\
        end\
        if discType ~= 'No Disc' then\
            table.insert(buttons, {Text = 'Eject', OnClick = function(self, event, side, x, y)disk.eject(p.Side:lower()) sleep(0) RefreshFiles() end})\
        end\
\
        info = {\
            ['Disc Type'] = discType,\
            ['Disc Label'] = discLabel,\
            ['Song Title'] = songName,\
            ['Disc ID'] = discID,\
            ['Mount Path'] = mountPath\
        }\
    elseif p.Type == 'printer' then\
        local pageSize = 'No Loaded Page'\
        local _, err = pcall(function() return tostring(peripheral.call(p.Side:lower(), 'getPgaeSize')) end)\
        if not err then\
            pageSize = tostring(peripheral.call(p.Side:lower(), 'getPageSize'))\
        end\
        info = {\
            ['Paper Level'] = tostring(peripheral.call(p.Side:lower(), 'getPaperLevel')),\
            ['Paper Size'] = pageSize,\
            ['Ink Level'] = tostring(peripheral.call(p.Side:lower(), 'getInkLevel'))\
        }\
    elseif p.Type == 'modem' then\
        info = {\
            ['Connected Peripherals'] = tostring(#peripheral.call(p.Side:lower(), 'getNamesRemote'))\
        }\
    elseif p.Type == 'monitor' then\
        local w, h = peripheral.call(p.Side:lower(), 'getSize')\
        local screenType = 'Black and White'\
        if peripheral.call(p.Side:lower(), 'isColour') then\
            screenType = 'Colour'\
        end\
        local buttonTitle = 'Use as Screen'\
        if OneOS.Settings:GetValues()['Monitor'] == p.Side:lower() then\
            buttonTitle = 'Use Computer Screen'\
        end\
        table.insert(buttons, {Text = buttonTitle, OnClick = function(self, event, side, x, y)\
                self.Bedrock:DisplayAlertWindow('Reboot Required', \"To change screen you'll need to reboot your computer.\", {'Reboot', 'Cancel'}, function(value)\
                    if value == 'Reboot' then\
                        if buttonTitle == 'Use Computer Screen' then\
                            OneOS.Settings:SetValue('Monitor', nil)\
                        else\
                            OneOS.Settings:SetValue('Monitor', p.Side:lower())\
                        end\
                        OneOS.Reboot()\
                    end\
                end)\
            end\
        })\
        info = {\
            ['Type'] = screenType,\
            ['Width'] = tostring(w),\
            ['Height'] = tostring(h),\
        }\
    end\
    info.Buttons = buttons\
    return info\
end",["Objects"]={["HeadingView.lua"]="Inherit = 'View'\
Height = 3\
\
OnLoad = function(self)\
    self:OnUpdate('Text')\
end\
\
OnUpdate = function(self, value)\
    if value == 'Text' then\
        self:RemoveAllObjects()\
        self:AddObject({\
            Y = 1,\
            X = 1,\
            Width = \"100%\",\
            Align = \"Center\",\
            Type = \"Label\",\
            Text = self.Text,\
            TextColour = self.TextColour,\
            BackgroundColour = self.BackgroundColour\
        })\
\
        local underline = ''\
        for i = 1, #self.Text + 2 do\
            underline = underline .. '='\
        end\
        self:AddObject({\
            Y = 2,\
            X = 1,\
            Width = \"100%\",\
            Align = \"Center\",\
            Type = \"Label\",\
            Text = underline,\
            TextColour = self.TextColour,\
            BackgroundColour = self.BackgroundColour\
        })\
    end\
end",["WebImageView.lua"]="URL = false\
Image = false\
\
OnDraw = function(self, x, y)\
    if not self.Image then\
        Drawing.DrawBlankArea(x, y, self.Width, self.Height, colours.lightGrey)\
    elseif self.Format == 'nft' then\
        Drawing.DrawImage(x, y, self.Image, self.Width, self.Height)\
    elseif self.Format == 'nfp' or self.Format == 'paint' then\
        for _x, col in ipairs(self.Image) do\
            for _y, colour in ipairs(col) do\
                Drawing.WriteToBuffer(x+_x-1, y+_y-1, ' ', colours.white, colour)\
            end\
        end\
    elseif self.Format == 'skch' or self.Format == 'sketch' then\
        Drawing.DrawImage(x, y, self.Image, self.Width, self.Height)\
    end\
end\
\
OnUpdate = function(self, value)\
    if value == 'URL' and self.URL then\
        fetchHTTPAsync(resolveFullUrl(self.URL), function(ok, event, response)\
            if ok then\
                local width, height = self.Width, self.Height\
\
                local lines = {}\
                for line in response.readLine do\
                    table.insert(lines, line)\
                end\
                response.close()\
                local content = table.concat(lines, '\\n')\
\
                if not self.Format then\
                    self.Format = self:DetermineFormat(content)\
                end\
\
                if self.Format == 'nft' then\
                    self.Image, self.Width, self.Height = self:ReadNFT(lines)\
                elseif self.Format == 'nfp' or self.Format == 'paint' then\
                    self.Image, self.Width, self.Height = self:ReadNFP(lines)\
                elseif self.Format == 'skch' or self.Format == 'sketch' then\
                    self.Image, self.Width, self.Height = self:ReadSKCH(content)\
                end\
                if (width ~= self.Width or height ~= self.Height) then\
                    self.Bedrock:GetObject('WebView'):RepositionLayout()\
                end\
            end\
        end)\
    end\
end\
\
DetermineFormat = function(self, content)\
    if type(textutils.unserialize(content)) == 'table' then\
        -- It's a serlized table, asume sketch\
        return 'skch'\
    elseif string.find(content, string.char(30)) or string.find(content, string.char(31)) then\
        -- Contains the characters that set colours, asume nft\
        return 'nft'\
    else\
        -- Otherwise asume nfp\
        return 'nfp'\
    end\
end\
\
ReadSKCH = function(self, content)\
    local _layers = textutils.unserialize(content)\
    local layers = {}\
\
    local width, height = 1, 1\
\
    for i, layer in ipairs(_layers) do\
        if layer.Visible then\
            local nft, w, h = self:ReadNFT(layer.Pixels)\
            if w > width then\
                width = w\
            end\
            if h > height then\
                height = h\
            end\
            table.insert(layers, nft)\
        end\
    end\
\
    --flatten the layers\
    local image = {\
        text = {},\
        textcol = {}\
    }\
\
    for i, layer in ipairs(layers) do\
        for y, row in ipairs(layer) do\
            if not image[y] then\
                image[y] = {}\
            end\
            for x, pixel in ipairs(row) do\
                if not image[y][x] or pixel ~= colours.transparent then\
                    image[y][x] = pixel\
                end\
            end\
        end\
        for y, row in ipairs(layer.text) do\
            if not image.text[y] then\
                image.text[y] = {}\
            end\
            for x, pixel in ipairs(row) do\
                if not image.text[y][x] or pixel ~= ' ' then\
                    image.text[y][x] = pixel\
                end\
            end\
        end\
        for y, row in ipairs(layer.textcol) do\
            if not image.textcol[y] then\
                image.textcol[y] = {}\
            end\
            for x, pixel in ipairs(row) do\
                if not image.textcol[y][x] or layer.text[y][x] ~= ' ' then\
                    image.textcol[y][x] = pixel\
                end\
            end\
        end\
    end\
\
    return image, width, height\
end\
\
local function getColourOf(hex)\
    if hex == ' ' then\
        return colours.transparent\
    end\
    local value = tonumber(hex, 16)\
    if not value then return nil end\
    value = math.pow(2,value)\
    return value\
end\
\
ReadNFP = function(self, lines)\
    local image = {}\
    local y = 1\
    for y, line in ipairs(lines) do\
        for x = 1, #line do\
            if not image[x] then\
                image[x] = {}\
            end\
            image[x][y] = getColourOf(line:sub(x,x))\
        end\
        line = file.readLine()\
    end\
    file.close()\
    return image, #image, #image[1]\
end\
\
ReadNFT = function(self, lines)\
    local image = {\
        text = {},\
        textcol = {}\
    }\
    for num, sLine in ipairs(lines) do\
        table.insert(image, num, {})\
        table.insert(image.text, num, {})\
        table.insert(image.textcol, num, {})\
        local writeIndex = 1\
        local bgNext, fgNext = false, false\
        local currBG, currFG = nil,nil\
        for i=1,#sLine do\
                local nextChar = string.sub(sLine, i, i)\
                if nextChar:byte() == 30 then\
                        bgNext = true\
                elseif nextChar:byte() == 31 then\
                        fgNext = true\
                elseif bgNext then\
                        currBG = Drawing.GetColour(nextChar)\
                        if currBG == nil then\
                            currBG = colours.transparent\
                        end\
                        bgNext = false\
                elseif fgNext then\
                        currFG = Drawing.GetColour(nextChar)\
                        if currFG == nil or currFG == colours.transparent then\
                            currFG = colours.white\
                        end\
                        fgNext = false\
                else\
                        if nextChar ~= \" \" and currFG == nil then\
                                currFG = colours.white\
                        end\
                        image[num][writeIndex] = currBG\
                        image.textcol[num][writeIndex] = currFG\
                        image.text[num][writeIndex] = nextChar\
                        writeIndex = writeIndex + 1\
                end\
        end\
    end\
    return image, #image[1], #image\
end",["CenterView.lua"]="Inherit = 'View'\
\
OnUpdate = function(self, value)\
    if value == 'Children' or value == 'Width' then\
        local y = 1\
        for i, v in ipairs(self.Children) do\
            v.Y = y\
            y = y + v.Height\
            v.X = math.floor((self.Width - v.Width) / 2) + 1\
        end\
        self.Height = y - 1\
    end\
end",["DividerView.lua"]="Inherit = 'View'\
Char = nil\
\
OnDraw = function(self, x, y)\
    if self.BackgroundColour then\
        if self.Char then\
            Drawing.DrawArea (x, y, self.Width, self.Height, self.Char, self.TextColour, self.BackgroundColour)\
        else\
            Drawing.DrawBlankArea(x, y, self.Width, self.Height, self.BackgroundColour)\
        end\
    end\
end",["LinkView.lua"]="Inherit = 'View'\
Height = 2\
UnderlineColour = colours.blue\
UnderlineVisible = true\
\
OnLoad = function(self)\
    if self.Text and #self.Text > 0 then\
        self:AddObject({\
            Y = 1,\
            X = 1,\
            Width = self.Width,\
            Align = self.Align,\
            Type = \"Label\",\
            Text = self.Text,\
            TextColour = self.TextColour,\
            BackgroundColour = self.BackgroundColour\
        })\
    end\
end\
\
OnRecalculateStart = function(self)\
    self:RemoveObject('UnderlineLabel')\
end\
\
OnRecalculateEnd = function(self, currentY)\
    if self.UnderlineVisible then\
        local underline = ''\
        local len = self.Width\
        if self.Text then\
            len = #self.Text\
        end\
\
        for i = 1, len do\
            underline = underline .. '-'\
        end\
        local col = self.UnderlineColour\
        if self.UnderlineColour == nil then\
            col = self.TextColour\
        end\
\
        local ul = self:AddObject({\
            Y = currentY,\
            X = 1,\
            Width = self.Width,\
            Align = self.Align,\
            Type = \"Label\",\
            Name = \"UnderlineLabel\",\
            Text = underline,\
            TextColour = col,\
            BackgroundColour = self.BackgroundColour\
        })  \
        return currentY + 1\
    else\
        return currentY\
    end\
end\
\
OnClick = function(self)\
    self.Bedrock:GetObject('WebView'):GoToURL(self.URL)\
end",["SelectView.lua"]="Inherit = 'Button'\
MenuItems = nil\
Children = {}\
Selected = nil\
\
OnUpdate = function(self, value)\
    if value == 'Height' and self.Height ~= 1 then\
        self.Height = 1\
    end\
end\
\
Select = function(self, index)\
    if self.MenuItems[index] then\
        local text = self.MenuItems[index].Text\
        for i = 1, self.Width - 3 - #text do\
            text = text .. ' '\
        end\
        text = text .. 'V'\
        self.Text = text\
        self.Selected = index\
    end\
end\
\
OnInitialise = function(self)\
    self:ClearMenuItems()\
end\
\
ClearMenuItems = function(self)\
    self.MenuItems = {}\
end\
\
AddMenuItem = function(self, item)\
    table.insert(self.MenuItems, item)\
    if not self.Selected then\
        if #self.MenuItems ~= 0 then\
            self:Select(1)\
        end\
    end\
end\
\
OnClick = function(self, event, side, x, y)\
    if self:ToggleMenu({\
        Type = \"Menu\",\
        HideTop = true,\
        Children = self.MenuItems\
    }, x, 1) then\
        for i, child in ipairs(self.Bedrock.Menu.Children) do\
            child.OnClick = function(_self, event, side, x, y)\
                self:Select(i)\
            end\
        end\
    end\
end",["WebView.lua"]="Inherit = 'ScrollView'\
URL = nil\
FakeURL = nil\
LoadingURL = nil\
Tree = nil\
BackgroundColour = colours.white\
ScriptEnvironment = nil\
Timers = nil\
Download = nil\
\
-- TODO: strip this down to remove positioning stuff\
UpdateLayout = function(self)\
    self:RemoveAllObjects()\
    self.BackgroundColour = colours.white\
    local body = self.Tree:GetElement('body')\
\
    --TODO: check that body exists, if not redirect to an error page\
\
    if body.BackgroundColour then\
        self.BackgroundColour = body.BackgroundColour\
    end\
\
    local node = true\
    node = function(children, parentObject)\
        local currentY = 1\
        for i, v in ipairs(children) do\
            local object = v:CreateObject(parentObject, currentY)\
            if object then\
                v.Object = object\
                if v.Children and #v.Children > 0 and object.Children then\
                    local usedY = node(v.Children, object)\
                    if not v.Attributes.height then\
                        object.Height = usedY\
                    end\
                    object:OnUpdate('Children')\
                end\
                -- if not object.Height then\
                --  for k, v in pairs(object) do\
                --      error(v)\
                --  end \
                --  error('Nope')\
                -- end\
                currentY = currentY + object.Height\
            end\
        end\
        return currentY - 1\
    end\
    node(body.Children, self)\
    \
    self:RepositionLayout()\
\
    local head = self.Tree:GetElement('head')\
    if head then\
        for i, child in ipairs(head.Children) do\
            if child.Tag == 'script' then\
                child:InsertScript(self)\
            end\
        end\
    end\
end\
\
RepositionLayout = function(self)\
    local node = true\
    node = function(children, isFloat, parent)\
        if parent.OnRecalculateStart then\
            parent:OnRecalculateStart()\
        end\
\
        local currentY = 1\
        local currentX = 1\
        local tallestChild = 1\
        for i, child in ipairs(children) do\
            if child.Type ~= 'ScrollBar' then\
                if isFloat then\
                    if currentX ~= 1 and parent.Width - currentX + 1 < child.Width then\
                        currentX = 1\
                        currentY = currentY + tallestChild\
                        tallestChild = 1\
                    end\
\
                    if parent.Align == \"Left\" then\
                        child.X = currentX\
                    elseif parent.Align == \"Right\" then\
                        child.X = parent.Width - currentX - child.Width + 2\
                    end\
                end\
                child.Y = currentY\
\
                if child.Children and #child.Children > 0 then\
                    local usedY = node(child.Children, child.IsFloat, child)\
                    child:OnUpdate('Children')\
                    if not child.Element.Attributes.height then\
                        child.Height = usedY\
                    end\
                end\
\
                if child.Height > tallestChild then\
                    tallestChild = child.Height\
                end\
\
                if isFloat then\
                    currentX = currentX + child.Width\
                else\
                    currentY = currentY + child.Height\
                end\
            end\
        end\
        if isFloat then\
            currentY = currentY + tallestChild\
        end\
        if parent.OnRecalculateEnd then\
            currentY = parent:OnRecalculateEnd(currentY)\
        end\
        return currentY - 1\
    end\
    node(self.Children, self.IsFloat, self)\
\
    self:UpdateScroll()\
end\
\
GoToURL = function(self, url, nonVerbose, noHistory, post)\
    self.BackgroundColour = colours.white\
    self:RemoveAllObjects()\
    if self.OnPageLoadStart and not nonVerbose then\
        self:OnPageLoadStart(url, noHistory)\
    end\
    self.LoadingURL = url\
    self.FakeURL = url\
    self:InitialiseScriptEnvironment()\
\
    if not http and url:find('http://') then\
        if self.OnPageLoadFailed then\
            self:OnPageLoadFailed(url, 4, noHistory)\
        end\
        return\
    end\
\
    -- error(fs.getName(url))\
    local parts = urlComponents(url)\
    -- if url:sub(#url) ~= '/' and url:find('?') then\
    --  fileName = fs.getName(url:sub(1, url:find('?') - 1))\
    -- else\
    --  fileName = fs.getName(url)\
    -- end\
\
    local fileName = parts.filename\
    local extension\
    if fileName == '' or url:sub(#url) == '/' then\
        extension = true\
    else\
        extension = fileName:match('%.[0-9a-z%?%%]+$')\
        if extension then\
            extension = extension:sub(2)\
        end\
    end\
\
    if not url:find('quest://download.ccml') and not url:find('quest://downloaded.ccml') then\
        self.Download = nil\
    else\
        extension = true\
    end\
\
    -- TODO: 404s are counted as downloads\
\
    if not extension or (extension ~= true and extension ~= '' and extension ~= 'ccml' and extension ~= 'html' and extension ~= 'php' and extension ~= 'asp' and extension ~= 'aspx' and extension ~= 'jsp' and extension ~= 'qst' and extension ~= 'com' and extension ~= 'me' and extension ~= 'net' and extension ~= 'info' and extension ~= 'au' and extension ~= 'nz') then\
        local downloadsFolder = '/Downloads/'\
        if OneOS then\
            downloadsFolder = '/Desktop/Documents/Downloads/'\
        end\
        if not fs.exists(downloadsFolder) then\
            fs.makeDir(downloadsFolder)\
        end\
\
        local downloadPath = downloadsFolder..fileName\
        local i = 1\
        while fs.exists(downloadPath) do\
            i = i + 1\
            downloadPath = downloadsFolder..fileName .. ' (' .. i .. ')'\
        end\
\
        self.Download = url\
        fetchHTTPAsync(url, function(ok, event, response)\
            if self.Download == url then\
                self.Download = nil\
                if ok then\
                    if response.getResponseCode then\
                        local code = response.getResponseCode()\
                        if code ~= 200 then\
                            self:OnPageLoadFailed(url, 6, noHistory)\
                            response.close()\
                            return\
                        end\
                    end\
                    local f = fs.open(downloadPath, 'w')\
                    if f then\
                        f.write(response.readAll())\
                        f.close()\
                        self:GoToURL('quest://downloaded.ccml?path='..textutils.urlEncode(downloadPath), true, true)\
                    else\
                        self:OnPageLoadFailed(url, 6, noHistory)\
                    end\
                    response.close()\
                else\
                    self:OnPageLoadFailed(url, 6, noHistory)\
                end\
            end\
        end)\
\
        self:GoToURL('quest://download.ccml?path='..textutils.urlEncode(downloadPath), true, true)\
        self:OnPageLoadEnd(url, noHistory)\
    else\
        fetchHTTPAsync(url, function(ok, event, response)\
            self.LoadingURL = nil\
            if ok then\
                if response.getResponseCode then\
                    local code = response.getResponseCode()\
                    if code ~= 200 then\
                        if self.OnPageLoadFailed then\
                            self:OnPageLoadFailed(url, code, noHistory)\
                        end\
                        response.close()\
                        return\
                    end\
                end\
\
                self.Tree, err = ElementTree:Initialise(response.readAll())\
                response.close()\
                if not err then\
                    self.URL = url\
                    self:UpdateLayout()\
                    if self.OnPageLoadEnd and not nonVerbose then\
                        self:OnPageLoadEnd(url, noHistory)\
                    end\
                else\
                    if self.OnPageLoadFailed then\
                        self:OnPageLoadFailed(url, err, noHistory)\
                    end\
                end\
            elseif self.OnPageLoadFailed and not nonVerbose then\
                self:OnPageLoadFailed(url, event, noHistory)\
            end\
        end, post)\
    end\
end\
\
Stop = function(self)\
    cancelHTTPAsync(self.LoadingURL)\
    if self.OnPageLoadFailed then\
        self:OnPageLoadFailed(url, Errors.TimeoutStop)\
    end\
end\
\
ResolveElements = function(self, selector)\
    local elements = {}\
    local node = true\
    local isClass = false\
    if selector:sub(1,1) == '.' then\
        isClass = true\
    end\
\
    node = function(tbl)\
        for i,v in ipairs(tbl) do\
            if type(v) == 'table' and v.Tag then\
                if not isClass and v.Tag:lower() == selector:lower() then\
                    table.insert(elements, v.Object)\
                elseif isClass and v.Attributes.class and v.Attributes.class:lower() == selector:lower():sub(2) then\
                    table.insert(elements, v.Object)\
                end\
                if v.Children then\
                    local r = node(v.Children)\
                end\
            end\
        end\
    end\
    node(self.Tree.Tree)\
    return elements\
end\
\
InitialiseScriptEnvironment = function(self)\
    lQuery.webView = self\
    if self.Timers then\
        for i, timer in ipairs(self.Timers) do\
            -- error('clear '..timer)\
            self.Bedrock.Timers[timer] = nil\
        end\
    end\
    self.Timers = {}\
\
    local getValues = urlComponents(self.LoadingURL).get\
\
    self.ScriptEnvironment = {\
        keys = keys,\
        printError = printError, -- maybe don't have this\
        assert = assert,\
        getfenv = getfenv,\
        bit = bit,\
        rawset = rawset,\
        tonumber = tonumber,\
        loadstring = loadstring,\
        error = error, -- maybe don't have this\
        tostring = tostring,\
        type = type,\
        coroutine = coroutine,\
        next = next,\
        unpack = unpack,\
        colours = colours,\
        pcall = pcall,\
        math = math,\
        pairs = pairs,\
        rawget = rawget,\
        _G = _G,\
        __inext = __inext,\
        read = read,\
        ipairs = ipairs,\
        xpcall = xpcall,\
        rawequal = rawequal,\
        setfenv = setfenv,\
        http = http, --create an ajax thing to replace this\
        string = string,\
        setmetatable = setmetatable,\
        getmetatable = getmetatable,\
        table = table,\
        parallel = parallel, -- this mightn't work properly\
        textutils = textutils,\
        colors = colors,\
        vector = vector,\
        select = select,\
        os = {\
            version = os.version,\
            getComputerID = os.getComputerID,\
            getComputerLabel = os.getComputerLabel,\
            clock = os.clock,\
            time = os.time,\
            day = os.day,\
        },\
        lQuery = lQuery.fn,\
        l = lQuery.fn,\
        setTimeout = function(func, delay)\
            if type(func) == 'function' and type(delay) == 'number' then\
                local t = self.Bedrock:StartTimer(func, delay)\
                table.insert(self.Timers, t)\
                return t\
            end\
        end,\
        setInterval = function(func, interval)\
            if type(func) == 'function' and type(interval) == 'number' then\
                local t = self.Bedrock:StartRepeatingTimer(function(timer)\
                    table.insert(self.Timers, timer)\
                    func()\
                end, interval)\
                table.insert(self.Timers, t)\
                return t\
            end\
        end,\
        clearTimeout = function(timer)\
            self.Bedrock.Timers[timer] = nil\
        end,\
        clearInterval = function(timer)\
            self.Bedrock.Timers[timer] = nil\
        end,\
        window = {\
            location = self.URL,\
            realLocation = self.LoadingURL,\
            get = getValues,\
            version = QuestVersion\
        }\
    }\
end\
\
LoadScript = function(self, script)\
    local fn, err = loadstring(script, 'Script Tag Error: '..self.URL)\
    if fn then\
        setfenv(fn, self.ScriptEnvironment)\
        fn()\
    else\
        local start = err:find(': ')\
        self:OnPageLoadFailed(url, err:sub(start + 2), noHistory)\
    end\
end\
\
RemoveElement = function(self, elem)\
    local elements = {}\
    local node = true\
    node = function(tbl)\
        for i,v in ipairs(tbl) do\
            if type(v) == 'table' then\
                if v == elem.Element then\
                    elem.Parent:RemoveObject(elem)\
                    v = nil\
                    return\
                end\
                if v.Children then\
                    local r = node(v.Children)\
                end\
            end\
        end\
    end\
    node(self.Tree.Tree)\
end",["FloatView.lua"]="Inherit = 'View'\
IsFloat = true\
Align = \"Left\"",["FormView.lua"]="Inherit = 'View'\
\
OnTab = function(self)\
    local active = self.Bedrock:GetActiveObject()\
    local selected = nil\
    local selectNext = false\
    local function node(tree)\
        for i, v in ipairs(tree) do\
            if selectNext then\
                if v.Type == 'TextBox' or v.Type == 'SecureTextBox' then\
                    selected = v\
                    return\
                end\
            elseif v == active then\
                selectNext = true\
            end\
            if v.Children then\
                node(v.Children)\
            end\
        end\
    end\
    node(self.Children)\
\
    if selected then\
        self.Bedrock:SetActiveObject(selected)\
    end\
end",},["Views"]={["main.view"]="{\
  [\"Children\"]={\
    [1]={\
      [\"Y\"]=1,\
      [\"X\"]=1,\
      [\"Name\"]=\"Toolbar\",\
      [\"Type\"]=\"View\",\
      [\"InheritView\"]=\"toolbar\"\
    },\
    [2]={\
      [\"Y\"]=4,\
      [\"X\"]=1,\
      [\"Height\"]=\"100%,-3\",\
      [\"Width\"]=\"100%\",\
      [\"Name\"]=\"WebView\",\
      [\"Type\"]=\"WebView\"\
    },\
    [3]={\
      [\"Y\"]=1,\
      [\"X\"]=1,\
      [\"Height\"]=1,\
      [\"Width\"]=\"100%\",\
      [\"Name\"]=\"PageTitleLabel\",\
      [\"Type\"]=\"Label\",\
      [\"Align\"]=\"Center\",\
      [\"TextColour\"]=128,\
    },\
  },\
  [\"BackgroundColour\"]=1,\
  [\"ToolBarColour\"]=256,\
  [\"ToolBarTextColour\"]=1\
}",["optionsmenu.view"]="{\
  [\"Type\"]=\"Menu\",\
  [\"Owner\"]=\"OptionsButton\",\
  [\"Children\"]={\
    [1]={\
      [\"Name\"]=\"StopMenuItem\",\
      [\"Type\"]=\"Button\",\
      [\"Text\"]=\"Stop\"\
    },\
    [2]={\
      [\"Name\"]=\"ReloadMenuItem\",\
      [\"Type\"]=\"Button\",\
      [\"Text\"]=\"Reload\"\
    },\
    [3]={\
      [\"Name\"]=\"GoHomeMenuItem\",\
      [\"Type\"]=\"Button\",\
      [\"Text\"]=\"Go Home\"\
    },\
    [4]={\
      [\"Name\"]=\"SetHomeMenuItem\",\
      [\"Type\"]=\"Button\",\
      [\"Text\"]=\"Set Home\"\
    },\
    [5]={\
      [\"Name\"]=\"Separator\",\
      [\"Type\"]=\"Separator\"\
    },\
    [6]={\
      [\"Name\"]=\"QuitMenuItem\",\
      [\"Type\"]=\"Button\",\
      [\"Text\"]=\"Quit\"\
    }\
  },\
}",["toolbar.view"]="{\
  [\"Width\"]=\"100%\",\
  [\"Height\"]=3,\
  [\"Type\"]=\"View\",\
  [\"BackgroundColour\"]=256,\
  [\"Children\"]={\
    [1]={\
      [\"Y\"]=2,\
      [\"X\"]=2,\
      [\"Name\"]=\"BackButton\",\
      [\"Type\"]=\"Button\",\
      [\"Enabled\"]=false,\
      [\"TextColour\"]=128,\
      [\"Text\"]=\"<\",\
      [\"BackgroundColour\"]=1\
    },\
    [2]={\
      [\"Y\"]=2,\
      [\"X\"]=6,\
      [\"Name\"]=\"ForwardButton\",\
      [\"Type\"]=\"Button\",\
      [\"Enabled\"]=false,\
      [\"TextColour\"]=128,\
      [\"Text\"]=\">\",\
      [\"BackgroundColour\"]=1\
    },\
    [3]={\
      [\"Y\"]=2,\
      [\"X\"]=10,\
      [\"Width\"]=\"100%,-14\",\
      [\"Type\"]=\"View\",\
      [\"BackgroundColour\"]=1\
    },\
    [4]={\
      [\"Y\"]=2,\
      [\"X\"]=10,\
      [\"Width\"]=\"100%,-14\",\
      [\"Name\"]=\"URLTextBox\",\
      [\"Type\"]=\"TextBox\",\
      [\"TextColour\"]=128,\
      [\"Placeholder\"]=\"Website URL...\",\
      [\"PlaceholderTextColour\"]=256,\
      [\"BackgroundColour\"]=0,\
      [\"SelectOnClick\"]=true\
    },\
    [5]={\
      [\"Y\"]=2,\
      [\"X\"]=10,\
      [\"Width\"]=\"100%,-14\",\
      [\"Name\"]=\"LoadingLabel\",\
      [\"Type\"]=\"Label\",\
      [\"TextColour\"]=256,\
      [\"Text\"]=\"Loading...\",\
      [\"BackgroundColour\"]=1,\
      [\"Align\"]=\"Center\",\
      [\"Visible\"]=false\
    },\
    [6]={\
      [\"Y\"]=2,\
      [\"X\"]=\"100%,-3\",\
      [\"Name\"]=\"OptionsButton\",\
      [\"Type\"]=\"Button\",\
      [\"Text\"]=\"V\",\
      [\"TextColour\"]=128,\
      [\"BackgroundColour\"]=1\
    },\
  },\
}",},}

local function run(tArgs)

  local fnFile, err = loadstring(files['startup'], 'startup')
  if err then
    error(err)
  end

  local function split(str, pat)
     local t = {}
     local fpat = "(.-)" .. pat
     local last_end = 1
     local s, e, cap = str:find(fpat, 1)
     while s do
        if s ~= 1 or cap ~= "" then
     table.insert(t,cap)
        end
        last_end = e+1
        s, e, cap = str:find(fpat, last_end)
     end
     if last_end <= #str then
        cap = str:sub(last_end)
        table.insert(t, cap)
     end
     return t
  end

  local function resolveTreeForPath(path, single)
    local _files = files
    local parts = split(path, '/')
    if parts then
      for i, v in ipairs(parts) do
        if #v > 0 then
          if _files[v] then
            _files = _files[v]
          else
            _files = nil
            break
          end
        end
      end
    elseif #path > 0 and path ~= '/' then
      _files = _files[path]
    end
    if not single or type(_files) == 'string' then
      return _files
    end
  end

  local oldFs = fs
  local env
  env = {
    fs = {
      list = function(path)
              local list = {}
              if fs.exists(path) then
            list = fs.list(path)
              end
        for k, v in pairs(resolveTreeForPath(path)) do
          if not fs.exists(path .. '/' ..k) then
            table.insert(list, k)
          end
        end
        return list
      end,

      exists = function(path)
        if fs.exists(path) then
          return true
        elseif resolveTreeForPath(path) then
          return true
        else
          return false
        end
      end,

      isDir = function(path)
        if fs.isDir(path) then
          return true
        else
          local tree = resolveTreeForPath(path)
          if tree and type(tree) == 'table' then
            return true
          else
            return false
          end
        end
      end,

      isReadOnly = function(path)
        if not fs.isReadOnly(path) then
          return false
        else
          return true
        end
      end,

      getName = fs.getName,

      getSize = fs.getSize,

      getFreespace = fs.getFreespace,

      makeDir = fs.makeDir,

      move = fs.move,

      copy = fs.copy,

      delete = fs.delete,

      combine = fs.combine,

      open = function(path, mode)
        if fs.exists(path) then
          return fs.open(path, mode)
        elseif type(resolveTreeForPath(path)) == 'string' then
          local handle = {close = function()end}
          if mode == 'r' then
            local content = resolveTreeForPath(path)
            handle.readAll = function()
              return content
            end

            local line = 1
            local lines = split(content, '\n')
            handle.readLine = function()
              if line > #lines then
                return nil
              else
                return lines[line]
              end
              line = line + 1
            end
                      return handle
          else
            error('Cannot write to read-only file (compilr archived).')
          end
        else
          return fs.open(path, mode)
        end
      end
    },

    loadfile = function( _sFile )
        local file = env.fs.open( _sFile, "r" )
        if file then
            local func, err = loadstring( file.readAll(), fs.getName( _sFile ) )
            file.close()
            return func, err
        end
        return nil, "File not found: ".._sFile
    end,

    dofile = function( _sFile )
        local fnFile, e = env.loadfile( _sFile )
        if fnFile then
            setfenv( fnFile, getfenv(2) )
            return fnFile()
        else
            error( e, 2 )
        end
    end
  }

  setmetatable( env, { __index = _G } )

  local tAPIsLoading = {}
  env.os.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 = env.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

  env.shell = shell

  setfenv( fnFile, env )
  fnFile(unpack(tArgs))
end

local function extract()
    local function node(path, tree)
        if type(tree) == 'table' then
            fs.makeDir(path)
            for k, v in pairs(tree) do
                node(path .. '/' .. k, v)
            end
        else
            local f = fs.open(path, 'w')
            if f then
                f.write(tree)
                f.close()
            end
        end
    end
    node('', files)
end

local tArgs = {...}
if #tArgs == 1 and tArgs[1] == '--extract' then
  extract()
else
  run(tArgs)
end