Plastic, as fixed by Kd8lvt

    -- Plastic Beta v0.12 As edited by: Kd8lvt
    -- [0.12] Bug fixes
    -- [0.11] Support for latest version of OpenPeripheral
    -- A Google Glass like OS/Programs/Whatever you want to call it
    -- That runs on Terminal Glasses in OpenPeripheral
    -- Just stick in a computer with a Terminal Glass Peripheral and run it!
    -- Have fun using it!
    -- Feel free to use my code in anyway you want!
    -- HOWEVER as stated by the policies of the APIs I used
    -- Please do not use my API keys. Just register for them
    -- Yourself! It's free and World Weather Online is instant!

    function sync()
      plastic.sync()
    end

    local tArgs = {...}

    local function searchArgs(text)
            for k,v in pairs(tArgs) do
                    if v == text then return true end
            end
            return false
    end

    if not http then print("Sorry, Plastic requires HTTP to run!") return end

    local plasticInstallation = shell.getRunningProgram()

    -- Find glass bridge
    local plastic = false
    local worldSensor = false

    if fs.exists("/ocs/apis/sensor") then
            os.loadAPI("ocs/apis/sensor")
    end

    for k,v in pairs(rs.getSides()) do
            if (peripheral.getType(v) == "openperipheral_glassesbridge") then
                    plastic = peripheral.wrap(v)
                    break
            elseif (peripheral.getType(v) == "sensor") and (not worldSensor) then
                    worldSensor = sensor.wrap(v)
                    if not (worldSensor.getSensorName() == "worldCard") then
                            worldSensor = false
                    end
            end
    end

    if not plastic then print("Could not find Glass Bridge!") error() end

    local rootApps = nil

    if searchArgs("root") then
            rootApps = {}
            if term.isColor() then
                    term.setTextColor(colors.red)
            end
            print("-- [[ ROOT MODE ENABLED ]] --")
            print("PLASTIC MAY BECOME UNSTABLE AND")
            print("MAY CRASH. USE AT YOUR OWN RISK!")
            if fs.isDir("/plasticApps") then

            else
                    print("Creating /plasticApps folder")
                    fs.delete("/plasticApps")
                    fs.makeDir("/plasticApps")
            end
            -- Example plastic root app
            --       --[[Plastic Root App]]--
            --       --NAME: Example App
            --       if cmd == "hello" then
            --       print("HELLO!")
            --       end

            print("Searching for apps in /plasticApps")
            print("")
            for k,v in pairs(fs.list("/plasticApps")) do
                    if not(fs.isDir("/plasticApps/"..v)) then
                            local f = io.open("/plasticApps/"..v, "r")
                            if f:read("*l") == "--[[Plastic Root App]]--" then
                                    local name = f:read("*l"):match("%-%-NAME%: (.+)")
                                    dofile("/plasticApps/"..v)
                                    print("-- Application registered: ", name, " --")
                                    local data = f:read("*a")
                                    rootApps[name] = data
                            end
                            f:close()
                    end
            end
            print("")
            print("Search completed!")
            print("Starting Plastic...")
    end

    if not(searchArgs("nodaemon")) and not(searchArgs("root")) then
            term.clear()
            term.setCursorPos(1,1)

            print("Plastic daemon now running. Use exit to exit")
    end

    local function reliableSleep(time)
            sleep(time)
    end


    -- Setup the actual "plastic"
    local gColors = {}
    gColors.red = 0xff3333
    gColors.blue = 0x7dd2e4
    gColors.yellow = 0xffff4d
    gColors.green = 0x4dff4d
    gColors.gray = 0xe0e0e0
    gColors.textGray = 0x818181
    gColors.text = 0x5a5a5a
    gColors.rain = 0x2e679f

    plastic.clear()
    local mainBox = plastic.addBox(20, 20, 1, 48, gColors.gray, 0.7)
    local outlineT = plastic.addBox(18,18,2,2,gColors.blue,0.7)
    local outlineB = plastic.addBox(18,68,2,2,gColors.blue,0.7)
    sync()
    --Startup Animation
    if not(searchArgs("lite")) then
            -- 120, Edge is 140, Center is 80
            for i = 0, 17 do
                    mainBox.setWidth(i*8)
                    outlineT.setWidth(i*8+4)
                    outlineB.setWidth(i*8+4)
                    reliableSleep(0.01)
            sync()
            end
    else
            mainBox.setWidth(136)
            outlineT.setWidth(140)
            outlineB.setWidth(140)
            mainBox.setHeight(48)
        sync()
    end
    local header = plastic.addText(75, 25, "", gColors.textGray)
    local secondText = plastic.addText(50, 40, "", gColors.blue)
    local thirdText = plastic.addText(40, 55, "", gColors.blue)
    local mainText = plastic.addText(40, 27, "", gColors.blue)
    local forthText = plastic.addText(40, 55, "", gColors.text)
    local tempText = plastic.addText(40, 70, "", gColors.text)
    sync()
    header.setZ(5)
    mainText.setZ(5)
    secondText.setZ(5)
    thirdText.setZ(5)
    tempText.setZ(5)
    forthText.setZ(5)
    sync()

    local function closeAnimation()
            if mainBox then
                    pcall(mainText.delete)
                    pcall(secondText.delete)
                    pcall(header.delete)
                    pcall(thirdText.delete)
                    pcall(tempText.delete)
                    pcall(forthText.delete)
                    os.queueEvent("plastic_clock_manager", "kill")
            sync()
                    reliableSleep(0.1)
                    if not(searchArgs("lite")) then
                            pcall(function()
                            for i = 17, 0, -1 do
                                    mainBox.setWidth(i*8)
                                    outlineT.setWidth(i*8+2)
                                    outlineB.setWidth(i*8+2)
                    sync()
                                    reliableSleep(0.01)
                            end
                            end)
                    end
                    pcall(outlineT.delete)
                    pcall(outlineB.delete)
                    pcall(mainBox.delete)
            sync()
            end
    end

    local oldShutdown = os.shutdown
    local oldReboot = os.reboot

    function os.shutdown()
            closeAnimation()
            return oldShutdown()
    end

    function os.reboot()
            closeAnimation()
            return oldReboot()
    end

    local function runPlastic()
            -- Variables & Stuff
            local corruption = false
            local firstTime = true
            local showClock = false

            -- Fancy functions
            local gWidth = 24
            local extraSupport = 0

            local function trimText(s)
                    return s:match("^%s*(.-)%s*$")
            sync()
            end

            local function plasticGet(url, noCancel)
                    http.request(url)
                    while true do
                            local e, rUrl, rmsg = os.pullEvent()
                            if (e == "http_success") and (rUrl == url) then
                                    if rmsg then
                                            local data = rmsg.readAll()
                                            rmsg.close()
                                            if data then
                                                    return "success", data
                                            else
                                                    sleep(1)
                                                    http.request(url)
                                            end
                                    else
                                            sleep(1)
                                            http.request(url)
                                    end
                            elseif (e == "http_failure") and (rUrl == url) then
                                    return "failure"
                            elseif (e == "chat_command") and ((trimText(rUrl:lower()) == "cancel") or (trimText(rUrl:lower()) == "home")) and not(noCancel) then
                                    return "cancel"
                            end
                    end
            end

            local function slowText(text, object)
                    if not(searchArgs("lite")) then
                            object.setText("")
                            for i = 1, #text do
                                    object.setText(string.sub(text, 1, i))
                    sync()
                                    reliableSleep(0.01)
                            end
                    else
                            object.setText(text)
                sync()
                    end
            end

            local function getCenter(text)
                    return math.ceil(((136/2)-(plastic.getStringWidth(text)*(0.65)/2))+20-0.5)
            sync()
            end

            local function centerText(text, object)
                    object.setText("")
                    object.setX(getCenter(text))
                    slowText(text, object)
            sync()
            end

            local function copyTable(tb)
                    local newTable = {}
                    for k,v in pairs(tb) do
                            newTable[k] = v
                    end
                    return newTable
            end

            -- Load settings
            local settings = {}
            if fs.exists("/plasticOptions") and not(fs.isDir("/plasticOptions")) then
                    local f = io.open("/plasticOptions", "r")
                    local data = f:read("*a")
                    settings = textutils.unserialize(data)
                    f:close()
                    firstTime = false
            end

            if not(settings) or not((type(settings["name"]) == "string") and (type(settings["use12hour"]) == "boolean") and
                    (type(settings["city"]) == "string") and (type(settings["showtime"]) == "string") and
                    ((settings["temperature"] == "c") or (settings["temperature"] == "f"))) and not(firstTime) then
                    corruption = true
                    header.setY(25)
                    header.setColor(gColors.red)
                    centerText("Error: Corruption", header)
                    mainText.setY(37)
                    mainText.setColor(gColors.yellow)
                    centerText("Options data is", mainText)
                    secondText.setY(47)
                    secondText.setColor(gColors.yellow)
                    centerText("corrupted.", secondText)
                    thirdText.setY(57)
                    thirdText.setColor(gColors.yellow)
                    thirdText.setX(40)
                    slowText("Resetting Plastic...", thirdText)
                    reliableSleep(2)
                    fs.delete("/plasticOptions")
                    closeAnimation()
                    reliableSleep(1)
                    shell.run(plasticInstallation, "nodaemon", unpack(tArgs))
                    error()
            end

            local function getWT(city, canceller)
                    local function getRawWT(city, canceller) --f or c for unit
                            local unit = settings["temperature"]
                            local use12hour = settings["use12hour"]
                            local months = {"Jan", "Feb", "March", "Apr", "May", "June", "July", "Aug", "Sept", "Oct", "Nov", "Dec"}
                            local resp, webData = nil
                            if canceller then
                                    resp, webData = plasticGet("http://api.worldweatheronline.com/free/v1/weather.ashx?q="..textutils.urlEncode(city).."&format=xml&extra=localObsTime&num_of_days=1&includelocation=yes&key=uyp4r5ekjns64pmpvv3qkynj", true)
                            else
                                    resp, webData = plasticGet("http://api.worldweatheronline.com/free/v1/weather.ashx?q="..textutils.urlEncode(city).."&format=xml&extra=localObsTime&num_of_days=1&includelocation=yes&key=uyp4r5ekjns64pmpvv3qkynj")
                            end
                            if resp == "cancel" then
                                    return "cancel"
                            elseif resp == "success" then
                            else
                                    error()
                            end
                            if webData:find("<error>") then
                                    return "invalid"
                            end
                            local city, country = webData:match([[<areaName><!%[CDATA%[([^>]+)%]%]></areaName><country><!%[CDATA%[([^>]+)%]%]></country>]])
                            if trimText(country) == "United States Of America" then
                                    country = "USA"
                            end
                            city = trimText(city):gsub(" City", "")
                            local resolvedLocation = city .. ", " .. country

                            local currentTemp = nil
                            if unit == "c" then
                                    currentTemp = webData:match([[<current_condition>.+<temp_C>([^<]+)</temp_C>.+</current_condition>]])
                            elseif unit == "f" then
                                    currentTemp = webData:match([[<current_condition>.+<temp_F>([^<]+)</temp_F>.+</current_condition>]])
                            end
                            local currentHumidity = webData:match([[<current_condition>.+<humidity>([^<]+)</humidity>.+</current_condition>]])
                        local currentWeather = trimText(webData:match([[<current_condition>.+<weatherDesc><!%[CDATA%[([^>]+)%]%]></weatherDesc>.+</current_condition>]]))
                        local lowTemp, highTemp = nil
                            if unit == "c" then
                                    highTemp = webData:match([[<weather>.+<tempMaxC>([^<]+)</tempMaxC>.+</weather>]])
                                    lowTemp = webData:match([[<weather>.+<tempMinC>([^<]+)</tempMinC>.+</weather>]])
                            elseif unit == "f" then
                                    highTemp = webData:match([[<weather>.+<tempMaxF>([^<]+)</tempMaxF>.+</weather>]])
                                    lowTemp = webData:match([[<weather>.+<tempMinF>([^<]+)</tempMinF>.+</weather>]])
                            end
                            dayWeather = trimText(webData:match([[<weather>.+<weatherDesc><!%[CDATA%[([^<]+)%]%]></weatherDesc>.+</weather>]]))

                            local time = nil
                            local year, month, day, rawTime, timeFormat = webData:match("<localObsDateTime>(%d+)%-(%d+)%-(%d+) (%d+:%d+) (%u+)</localObsDateTime>")
                            local resolvedDate = day .. " " .. months[tonumber(month)] .. " " .. year
                            if not use12hour then
                                    if timeFormat == "AM" then
                                            if rawTime:sub(1,2) == "12" then
                                                    time = "0" .. rawTime:sub(3,-1)
                                            else
                                                    time = rawTime
                                            end
                                    elseif timeFormat == "PM" then
                                            if rawTime:sub(1,2) == "12" then
                                                    time = rawTime
                                            else
                                                    time = tostring(tonumber(rawTime:sub(1,2))+12) .. rawTime:sub(3,-1)
                                            end
                                    else
                                            error()
                                    end
                            else
                                    time = rawTime .. " " .. timeFormat
                            end
                            if time:sub(1,1) == "0" then time = time:sub(2,-1) end
                            local current = {}
                            current["temp"] = currentTemp
                            current["weather"] = currentWeather
                            current["humidity"] = currentHumidity
                            current["time"] = time
                            current["date"] = resolvedDate
                            current["url"] = timeURL
                            current["location"] = resolvedLocation

                            local day = {}
                            day["high"] = highTemp
                            day["low"] = lowTemp
                            day["weather"] = dayWeather

                            return "success", current, day
                    end
                    local result = nil
                    result = {pcall(getRawWT, city, canceller)}
                    if result[1] then
                            table.remove(result, 1)
                    end
                    if result[1] then
                            return unpack(result)
                    else
                            return "failure"
                    end
            end

            -- Get the time and weather!
            local function getTime(city)
                    --local resp, time = getTime(settings["city"])
                    local resp, cur, today = getWT(city)
                    if resp == "success" then
                            return "success", cur["time"]
                    else return "failure" end
            end

            local function displayTime(time)
                    if time then
                            if #time == 4 then
                                    mainText.setX(60)
                    sync()
                            elseif #time == 5 then
                                    mainText.setX(50)
                                    sync()
                            elseif #time == 7 then
                                    mainText.setX(36)
                    sync()
                            elseif #time == 8 then
                                    mainText.setX(27)
                    sync()
                            end
                            mainText.setText(time)
                sync()
                    end
            end

            local function resetScreen()
                    thirdText.setText("")
                    header.setText("")
                    forthText.setText("")
                    tempText.setText("")
                    mainText.setText("")
                    mainText.setColor(gColors.text)
                    mainText.setScale(3)
                    mainText.setY(32)
                    secondText.setText("")
                    secondText.setColor(gColors.blue)
                    secondText.setY(57)
                    os.queueEvent("plastic_clock_manager", "show")
                    centerText("Welcome, " .. settings["name"], secondText)
            sync()
            end

            local function textScreen()
                    thirdText.setText("")
                    header.setText("")
                    mainText.setText("")
                    secondText.setText("")
                    os.queueEvent("plastic_clock_manager", "hide")
                    reliableSleep(0.05)
                    header.setScale(1)
                    mainText.setScale(1)
                    secondText.setScale(1)
                    thirdText.setScale(1)
                    header.setColor(gColors.text)
                    mainText.setColor(gColors.text)
                    secondText.setColor(gColors.text)
                    thirdText.setColor(gColors.text)
                    header.setY(25)
                    mainText.setY(37)
                    secondText.setY(47)
                    thirdText.setY(57)
            sync()
                    reliableSleep(0.1)
            end

            local function squeezeScreen()
                    thirdText.setText("")
                    header.setText("")
                    mainText.setText("")
                    secondText.setText("")
                    forthText.setText("")
                    os.queueEvent("plastic_clock_manager", "hide")
                    reliableSleep(0.05)
                    header.setScale(1)
                    mainText.setScale(1)
                    secondText.setScale(1)
                    thirdText.setScale(1)
                    forthText.setScale(1)
                    header.setColor(gColors.text)
                    mainText.setColor(gColors.text)
                    secondText.setColor(gColors.text)
                    thirdText.setColor(gColors.text)
                    forthText.setColor(gColors.text)
                    header.setY(22)
                    mainText.setY(31)
                    secondText.setY(40)
                    thirdText.setY(49)
                    forthText.setY(58)
            sync()
                    reliableSleep(0.1)
            end

            -- Setup functions
            local function setupName()
                    thirdText.setY(57)
                    secondText.setText("")
                    mainText.setText("")
                    thirdText.setText("")
                    centerText("What's your name?", mainText)
                    secondText.setY(47)
                    secondText.setScale(1)
                    secondText.setColor(gColors.text)
                    centerText("Ex: $$John", secondText)
                    local e, msg = os.pullEvent("chat_command")
                    local name = msg
                    secondText.setText("")
                    centerText("Your name is", mainText)
                    centerText(name .. "?", secondText)
                    thirdText.setColor(gColors.blue)
                    centerText("Options: $$y/n", thirdText)
            sync()
                    while true do
                            local e, msg = os.pullEvent("chat_command")
                            msg = trimText(msg:lower())
                            if msg:find("y") then
                                    return name
                            elseif msg:find("n") then
                                    return setupName()
                            end
                    end
            end


            local function setupTime()
                    thirdText.setY(57)
                    secondText.setText("")
                    thirdText.setText("")
                    centerText("Use 12h Time Format?", mainText)
                    secondText.setColor(gColors.blue)
                    centerText("Options: $$y/n", secondText)
            sync()
                    while true do
                            local e, msg = os.pullEvent("chat_command")
                            msg = trimText(msg:lower())
                            if msg:find("y") then
                                    return true
                            elseif msg:find("n") then
                                    return false
                            end
                    end
            end

            local function setupTemperature()
                    thirdText.setY(57)
                    secondText.setText("")
                    thirdText.setText("")
                    centerText("Celsius or Farenheit?", mainText)
                    secondText.setColor(gColors.blue)
                    centerText("Options: $$c/f", secondText)
            sync()
                    while true do
                            local e, msg = os.pullEvent("chat_command")
                            msg = trimText(msg:lower())
                            if msg:find("c") then
                                    return "c"
                            elseif msg:find("f") then
                                    return "f"
                            end
                    end
            end

            local function setupLocation()
                    thirdText.setY(57)
                    secondText.setText("")
                    thirdText.setText("")
                    secondText.setColor(gColors.text)
                    thirdText.setColor(gColors.text)
                    centerText("What's your city?", mainText)
                    centerText("(To get time/weather)", secondText)
                    centerText("Ex: $$New York", thirdText)
            sync()
                    while true do
                            local e, city = os.pullEvent("chat_command")
                            thirdText.setColor(gColors.yellow)
                            centerText("Connecting...", thirdText)
                            local resp, cur = getWT(city)
                            if resp == "success" then
                                    mainText.setText("")
                                    secondText.setText("")
                                    thirdText.setText("")
                                    centerText("You're in", mainText)
                                    centerText(cur["location"] .. "?", secondText)
                                    thirdText.setColor(gColors.blue)
                                    centerText("Options: $$y/n", thirdText)
                                    while true do
                                            local e, msg = os.pullEvent("chat_command")
                                            msg = trimText(msg:lower())
                                            if msg:find("y") then
                                                    return city
                                            elseif msg:find("n") then
                                                    return setupLocation()
                                            end
                                    end
                            else
                                    thirdText.setColor(gColors.red)
                                    centerText("Invalid city!", thirdText)
                    sync()
                            end
                    end
            end

            local function mainThread()
                    local function start()
                            local function welcome()
                                    centerText("Welcome to", mainText)
                                    secondText.setScale(3)
                                    secondText.setX(40)
                                    slowText("Plastic", secondText)
                                    reliableSleep(2)
                                    secondText.setText("")
                                    mainText.setText("")
                                    centerText("Setup", header)
                                    mainText.setText("")
                                    mainText.setColor(gColors.text)
                                    mainText.setY(37)
                                    thirdText.setY(57)
                    sync()
                                    return setupName()
                            end

                            if firstTime then
                                    settings["name"] = welcome()
                                    settings["use12hour"] = setupTime()
                                    settings["city"] = setupLocation()
                                    settings["temperature"] = setupTemperature()
                                    settings["showtime"] = "ingame"

                                    local f = io.open("/plasticOptions", "w")
                                    f:write(textutils.serialize(settings))
                                    f:close()
                                    closeAnimation()
                                    reliableSleep(1)
                                    shell.run(plasticInstallation, "nodaemon", unpack(tArgs))
                                    error()
                            else
                                    return
                            end
                    end

                    local function convert(query)
                            secondText.setX(25)
                            slowText("Powered by STANDS4 APIs", secondText)
                sync()
                            --reliableSleep(1)
                            --secondText.setX(35)
                            --slowText("Converting... | cancel", secondText)
                            local resp, msg = plasticGet("http://www.stands4.com/services/v2/conv.php?uid=2464&tokenid=lQAygI15b9x34e2L&expression=" .. textutils.urlEncode(query))
                            if resp == "success" then
                                    if tonumber(msg:match("<errorCode>(%d+)")) > 0 then
                                            centerText(trimText(msg:match("<errorMessage>([^<]+)</errorMessage>")), secondText)
                                            return
                                    else
                                            local response = msg:match("<result>([^<]+)</result>")
                                            local replaceable = {["kilogram"] = "kg", ["nautical mile"] = "nmile" , ["megabyte"] = "mb", ["gigabyte"] = "gb", ["kilobyte"] = "kb"
                                                    ,["millimeter"] = "mm", ["centimeter"] = "cm", ["micrometer"] = "Um", ["nanometer"] = "nm", ["terrabyte"] = "tb", ["exabyte"] = "eb",
                                                    ["British"] = "gb", ["kilometer"] = "km", ["hour"] = "h", [" / "] = "/", ["&amp;"] = "", ["deg;"] = ""}
                                            for k,v in pairs(replaceable) do
                                                    response = response:lower():gsub(k,v)
                                                    response = response:lower():gsub(k .. "s",v)
                                            end
                                            if #response >24 then
                                                    local startSearch = response:find("%=")
                                                    local trim = response:find("%.", startSearch)
                                                    local units = response:find("%s", trim)
                                                    local nresponse = response:sub(1, trim+3) .. response:sub(units,-1)
                                                    response = trimText(nresponse)
                                            end
                                            secondText.setX(25)
                                            if #response > 22 then
                                                    slowText(response, secondText)
                                            else
                                                    centerText(response, secondText)
                                            end
                                            return
                                    end
                            elseif resp == "failure" then
                                    centerText("Service not available", secondText)
                                    return
                            elseif resp == "cancel" then
                                    centerText("Request Cancelled", secondText)
                                    return
                            end
                    end

                    local function renderWeather(city)
                            local resp, cur, day = nil
                            centerText("Src: World Weather Online",secondText)
                            if not city then
                                    resp, cur, day = getWT(settings["city"], true)
                            else
                                    resp, cur, day = getWT(city, true)
                            end
                            if resp == "success" then
                                            squeezeScreen()
                                            header.setColor(gColors.blue)
                                            centerText(cur["location"], header)
                                            mainText.setColor(gColors.textGray)
                                            centerText(cur["weather"], mainText)
                                            tempText.setX(97)
                                            tempText.setScale(3)
                                            tempText.setY(43)
                                            tempText.setColor(gColors.blue)
                                            slowText(cur["temp"]..settings["temperature"]:upper(), tempText)
                                            secondText.setX(23)
                                            slowText("Humidity: " .. cur["humidity"] .. "%", secondText)
                                            thirdText.setX(23)
                                            slowText("Current", thirdText)
                                            forthText.setX(23)
                                            slowText("$$back/day", forthText)
                                    local function loadCurrent()
                                            centerText(cur["weather"], mainText)
                                            slowText(cur["temp"]..settings["temperature"]:upper(), tempText)
                                            slowText("Current", thirdText)
                                            slowText("$$back/day", forthText)
                                            while true do
                                                    local e, msg = os.pullEvent("chat_command")
                                                    msg = trimText(msg:lower())
                                                    if (msg == "back") or msg == "home" then
                                                            return resetScreen()
                                                    elseif (msg == "day") then
                                                            return loadDay()
                                                    end
                                            end
                                    end
                                    local function loadDay()
                                            centerText(day["weather"], mainText)
                                            slowText(day["high"]..settings["temperature"]:upper(), tempText)
                                            slowText("Low: " .. day["low"] .. (settings["temperature"]:upper()), thirdText)
                                            slowText("$$back/cur", forthText)
                                            while true do
                                                    local e, msg = os.pullEvent("chat_command")
                                                    msg = trimText(msg:lower())
                                                    if (msg == "back") or msg == "home" then
                                                            return resetScreen()
                                                    elseif (msg:find("cur")) then
                                                            return loadCurrent()
                                                    end
                                            end
                                    end
                                    while true do
                                            local e, msg = os.pullEvent("chat_command")
                                            msg = trimText(msg:lower())
                                            if (msg == "back") or msg == "home" then
                                                    return resetScreen()
                                            elseif (msg == "day") then
                                                    return loadDay()
                                            end
                                    end
                            elseif resp == "cancel" then
                                    centerText("Request Cancelled", secondText)
                                    return
                            elseif resp == "invalid" then
                                    centerText("Invalid location!", secondText)
                                    return
                            else
                                    centerText("Service not available", secondText)
                                    return
                            end
                    end

                    local function renderDate(city)
                            centerText("Src: World Weather Online",secondText)
                            local resp, cur = getWT(city, true)
                            if resp == "success" then
                                    textScreen()
                                    header.setColor(gColors.blue)
                                    centerText("Current Time/Date", header)
                                    centerText(cur["location"], mainText)
                                    centerText(cur["date"] .. " - " .. cur["time"], secondText)
                                    centerText("$$back", thirdText)
                                    while true do
                                            local e, msg = os.pullEvent("chat_command")
                                            msg = trimText(msg:lower())
                                            if (msg == "back") or (msg == "home") then
                                                    resetScreen()
                                                    return
                                            end
                                    end
                            elseif resp == "cancel" then
                                    centerText("Request Cancelled", secondText)
                                    return
                            elseif resp == "invalid" then
                                    centerText("Invalid location!", secondText)
                                    return
                            else
                                    centerText("Service not available", secondText)
                                    return
                            end
                    end

                    local function getEnvs()
                            local newEnv = getfenv(0)
                            newEnv.secondText = secondText
                            newEnv.thirdText = thirdText
                            newEnv.forthText = forthText
                            newEnv.tempText = tempText
                            newEnv.mainText = mainText
                            newEnv.resetScreen = resetScreen
                            newEnv.squeezeScreen = squeezeScreen
                            newEnv.textScreen = textScreen
                            newEnv.slowText = slowText
                            newEnv.centerText = centerText
                            newEnv.plasticGet = plasticGet
                            newEnv.trimText = trimText
                            newEnv.header = header
                            newEnv.plastic = plastic
                            return newEnv
                    end

                    local function home()
                            local function resetSecond()
                                    secondText.setText("")
                                    secondText.setColor(gColors.blue)
                                    secondText.setY(57)
                                    secondText.setScale(1)
                            end
                            thirdText.setText("")
                            header.setText("")
                            mainText.setText("")
                            mainText.setColor(gColors.text)
                            mainText.setScale(3)
                            mainText.setY(32)
                            secondText.setText("")
                            secondText.setColor(gColors.blue)
                            secondText.setY(57)
                            displayTime("00:00 --")
                            os.queueEvent("plastic_clock_manager", "show")
                            centerText("Welcome, " .. settings["name"], secondText)
                            while true do
                                    local skipAll = false
                                    local e, msg = os.pullEvent()
                                    if e == "chat_command" then
                                            msg = trimText(msg:lower())
                                            if searchArgs("root") then
                                                    for k,v in pairs(rootApps) do
                                                            local a = loadstring("local cmd = [[" .. msg .. "]]\n" .. v)
                                                            if a then
                                                                    local env = getEnvs()
                                                                    setfenv(a, env)
                                                                    if a() then
                                                                            skipAll = true
                                                                    end
                                                            else
                                                                    print("Failed to run application: ", k)
                                                            end
                                                    end
                                            end
                                            if not(skipAll) then
                                                    if (msg:sub(1,1) == "=") then
                                                            local banned = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o",
                                                            "p", "q", "r", "s", "t", "u", "v", "w", "x","y", "z"}
                                                            local formula = msg:sub(2, -1):lower()
                                                            for k,v in pairs(banned) do
                                                                    formula = formula:gsub(v, "")
                                                            end
                                                            local func = loadstring("return " .. formula)
                                                            local e, resp = pcall(func)
                                                            if e and ((type(resp) == "number") or (type(resp) == "string")) then
                                                                    centerText("=" .. resp, secondText)
                                                            else
                                                                    centerText("Syntax Error", secondText)
                                                            end
                                                    elseif msg == "help" then
                                                            squeezeScreen()
                                                            header.setColor(gColors.blue)
                                                            centerText("Help, Try: $$", header)
                                                            centerText("=12*3, home, irl, restart,", mainText)
                                                            centerText("igl, quit, update, weather,", secondText)
                                                            centerText("time/weather for city,", thirdText)
                                                            centerText("convert x to y (back)", forthText)
                                sync()
                                                            while true do
                                                                    local _, msg = os.pullEvent("chat_command")
                                                                    msg = trimText(msg:lower())
                                                                    if (msg == "back") or (msg == "home") then
                                                                            resetScreen()
                                                                            break
                                                                    end
                                                            end
                                                    elseif msg == "about" then
                                                            secondText.setX(32)
                                                            slowText("Plastic B v0.11 by 1lann", secondText)
                                sync()
                                                    elseif (msg:sub(1,8) == "weather ") or msg == "weather" then
                                                            local location = nil
                                                            if msg:sub(1,12) == "weather for " then
                                                                    location = trimText(msg:sub(13, -1))
                                                            elseif msg:sub(1,11) == "weather in " then
                                                                    location = trimText(msg:sub(12, -1))
                                                            elseif msg == "weather" then
                                                                    location = ""
                                                            else
                                                                    location = trimText(msg:sub(9, -1))
                                                            end
                                                            if location == "" then
                                                                    renderWeather()
                                                            else
                                                                    renderWeather(location)
                                                            end
                                                    elseif (msg:sub(1,8) == "time in ") or (msg:sub(1,9) == "time for ") or (msg:sub(1,9) == "date for ") then
                                                            local location = nil
                                                            if (msg:sub(1,8) == "time in ") then
                                                                    location = msg:sub(9,-1)
                                                            else
                                                                    location = msg:sub(10, -1)
                                                            end
                                                            if location == "" then
                                                                    centerText("No city speicifed!", secondText)
                                    sync()
                                                            else
                                                                    renderDate(location)
                                                            end
                                                    elseif msg == "settings" then
                                                            local exit = false
                                                            while true do
                                                                    local noSave = false
                                                                    textScreen()
                                                                    header.setColor(gColors.blue)
                                                                    centerText("Change Settings", header)
                                                                    centerText("Options: temperature,", mainText)
                                                                    centerText("time format, name,", secondText)
                                                                    centerText("location, back", thirdText)
                                    sync()
                                                                    while true do
                                                                            local _, msg = os.pullEvent("chat_command")
                                                                            msg = trimText(msg:lower())
                                                                            if (msg == "back") or (msg == "home") then
                                                                                    resetScreen()
                                                                                    exit = true
                                                                                    break
                                                                            elseif (msg == "temperature") then
                                                                                    mainText.setText("")
                                                                                    secondText.setText("")
                                                                                    thirdText.setText("")
                                                                                    header.setText("")
                                                                                    header.setColor(gColors.textGray)
                                                                                    centerText("Setup", header)
                                                                                    settings["temperature"] = setupTemperature()
                                            sync()
                                                                                    noSave = false
                                                                            elseif (msg == "time format") then
                                                                                    mainText.setText("")
                                                                                    secondText.setText("")
                                                                                    thirdText.setText("")
                                                                                    header.setText("")
                                                                                    header.setColor(gColors.textGray)
                                                                                    centerText("Setup", header)
                                                                                    settings["use12hour"] = setupTime()
                                            sync()
                                                                                    noSave = false
                                                                            elseif (msg == "name") then
                                                                                    mainText.setText("")
                                                                                    secondText.setText("")
                                                                                    thirdText.setText("")
                                                                                    header.setText("")
                                                                                    header.setColor(gColors.textGray)
                                                                                    centerText("Setup", header)
                                                                                    settings["name"] = setupName()
                                                sync()
                                                                                    noSave = false
                                                                            elseif (msg == "location") then
                                                                                    mainText.setText("")
                                                                                    secondText.setText("")
                                                                                    thirdText.setText("")
                                                                                    header.setText("")
                                                                                    header.setColor(gColors.textGray)
                                                                                    centerText("Setup", header)
                                                                                    settings["city"] = setupLocation()
                                            sync()
                                                                                    noSave = false
                                                                            else
                                                                                    noSave = true
                                                                            end
                                                                            if not(noSave) then
                                                                                    local f = io.open("/plasticOptions", "w")
                                                                                    f:write(textutils.serialize(settings))
                                                                                    f:close()
                                                                                    mainText.setText("")
                                                                                    secondText.setText("")
                                                                                    thirdText.setText("")
                                                                                    header.setText("")
                                                                                    mainText.setColor(gColors.green)
                                                                                    centerText("Settings saved!", mainText)
                                            sync()
                                                                                    sleep(2)
                                                                                    break
                                                                            end
                                                                    end
                                                                    if exit then break end
                                                            end
                                                    elseif (msg:sub(1,8) == "convert ") then
                                                            os.queueEvent("plastic_clock_manager", "show")
                                                            resetSecond()
                                                            convert(msg)
                                                    elseif msg == "irl" then
                                                            if not(settings["showtime"] == "irl") then
                                                                    secondText.setX(30)
                                                                    slowText("Changing time... | cancel", secondText)
                                                                    local resp, time = getTime(settings["city"])
                                                                    if resp == "success" then
                                                                            settings["showtime"] = "irl"
                                                                            os.queueEvent("plastic_clock_manager", "force", time)
                                                                            os.queueEvent("plastic_clock_manager", "show")
                                                                            os.queueEvent("plastic_clock_manager", "irl")
                                                                            displayTime(time)
                                                                            local f = io.open("/plasticOptions", "w")
                                                                            f:write(textutils.serialize(settings))
                                                                            f:close()
                                                                            centerText("Time is now IRL", secondText)

                                                                    else
                                                                            centerText("Could not get IRL time!", secondText)
                                                                    end
                                                            else
                                                                    centerText("Time is already IRL!", secondText)
                                                            end
                                                    elseif msg == "ingame" or (msg == "igl") then
                                                            if not(settings["showtime"] == "ingame") then
                                                                    settings["showtime"] = "ingame"
                                                                    os.queueEvent("plastic_clock_manager", "force", textutils.formatTime(os.time(), not(settings["use12hour"])))
                                                                    os.queueEvent("plastic_clock_manager", "show")
                                                                    os.queueEvent("plastic_clock_manager", "ingame")
                                                                    local f = io.open("/plasticOptions", "w")
                                                                    f:write(textutils.serialize(settings))
                                                                    f:close()
                                                                    centerText("Time is now in-game", secondText)
                                                            else
                                                                    secondText.setX(30)
                                                                    slowText("Time is already in-game!", secondText)
                                                            end
                                                    elseif msg == "update" then
                                                            secondText.setX(35)
                                                            centerText("Updating... | cancel", secondText)
                                                            local resp, data = plasticGet("http://pastebin.com/raw.php?i=43nHyKXU")
                                                            if resp == "success" then
                                                                    local f = io.open(plasticInstallation, "w")
                                                                    f:write(data)
                                                                    f:close()
                                                                    closeAnimation()
                                                                    reliableSleep(1)
                                                                    shell.run(plasticInstallation, "nodaemon", unpack(tArgs))
                                                                    error()
                                                            elseif resp == "failure" then
                                                                    centerText("Failed to update!", secondText)
                                                            elseif resp == "cancel" then
                                                                    centerText("Request Cancelled", secondText)
                                                            end
                                                    elseif (msg == "home") or (msg == "clock") or (msg == "time") then
                                                            resetScreen()
                                                    elseif (msg == "restart") then
                                                            closeAnimation()
                                                            reliableSleep(1)
                                                            shell.run(plasticInstallation, "nodaemon", unpack(tArgs))
                                                            error()
                                                    elseif (msg == "exit") or (msg == "quit") or (msg == "stop") then
                                                            closeAnimation()
                                                            error()
                                                    else
                                                            centerText("Unknown Command!", secondText)
                                                    end
                                            end
                                    end
                            end
                    end

                    start()
                    home()
            end

            local function updateWeather()
                    if sensor then
                            if worldSensor then
                                    header.setY(22)
                                    local data = worldSensor.getTargets()["CURRENT"]
                                    if data["Thundering"] then
                                            header.setColor(gColors.textGray)
                                            header.setX(53)
                                            header.setText("Thunderstorm")
                                    elseif data["Raining"] then
                                            header.setColor(gColors.rain)
                                            header.setX(80)
                                            header.setText("Rain")
                                    elseif data["Daytime"] then
                                            header.setColor(gColors.yellow)
                                            header.setX(75)
                                            header.setText("Sunny")
                                    else
                                            header.setColor(gColors.rain)
                                            header.setX(59)
                                            header.setText("Clear Night")
                                    end
                            else
                                    header.setColor(gColors.textGray)
                                    header.setX(35)
                                    header.setText("Missing world sensor!")
                            end
                    end
            end

            local function weatherThread()
                    local timer = os.startTimer(5)
                    while true do
                            local e, id = os.pullEvent()
                            if e == "plastic_clock_manager" then
                                    if id == "hide" then
                                            showClock = false
                                    elseif id == "show" then
                                            updateWeather()
                                            timer = os.startTimer(5)
                                            showClock = true
                                    end
                            elseif (e == "timer") and (timer == id) and showClock then
                                    updateWeather()
                                    timer = os.startTimer(5)
                            end
                    end
            end

            local function backgroundThread()
                    local webUpdate = 0
                    local resp, time = nil
                    local lastTimeUpdate = os.clock()
                    local function updateTime(prevTime, city)
                            if os.clock() >= lastTimeUpdate+60 then
                                    webUpdate  = webUpdate + 1
                                    if webUpdate < 60 then
                                            if prevTime then
                                                    local hour,minute,ampm = prevTime:match("^(%d+):(%d+)(.-)$")
                                                    if ampm == " AM" then
                                                            if settings["use12hour"] == false then
                                                                    return getTime(city)
                                                            end
                                                            lastTimeUpdate = os.clock()
                                                            if minute == "59" then
                                                                    if hour == "11" then
                                                                            return "success","12:00 PM"
                                                                    elseif hour == "12" then
                                                                            return "success","1:00 AM"
                                                                    else
                                                                            return "success",tostring(tonumber(hour)+1)..":00 AM"
                                                                    end
                                                            else
                                                                    if #tostring(tonumber(minute)+1) > 1 then
                                                                            return "success",hour..":"..tostring(tonumber(minute)+1).." AM"
                                                                    else
                                                                            return "success",hour..":0"..tostring(tonumber(minute)+1).." AM"
                                                                    end
                                                            end
                                                    elseif ampm == " PM" then
                                                            if settings["use12hour"] == false then
                                                                    return getTime(city)
                                                            end
                                                            lastTimeUpdate = os.clock()
                                                            if minute == "59" then
                                                                    if hour == "11" then
                                                                            return "success","12:00 AM"
                                                                    elseif hour == "12" then
                                                                            return "success","1:00 PM"
                                                                    else
                                                                            return "success",tostring(tonumber(hour)+1)..":00 PM"
                                                                    end
                                                            else
                                                                    if #tostring(tonumber(minute)+1) > 1 then
                                                                            return "success",hour..":"..tostring(tonumber(minute)+1).." PM"
                                                                    else
                                                                            return "success",hour..":0"..tostring(tonumber(minute)+1).." PM"
                                                                    end
                                                            end
                                                    else
                                                            if settings["use12hour"] == true then
                                                                    return getTime(city)
                                                            end
                                                            lastTimeUpdate = os.clock()
                                                            if minute == "59" then
                                                                    if hour == "23" then
                                                                            return "success", "0:00"
                                                                    else
                                                                            return "success", tostring(tonumber(hour)+1)..":".."00"
                                                                    end
                                                            else
                                                                    if #tostring(tonumber(minute)+1) > 1 then
                                                                            return "success",hour..":"..tostring(tonumber(minute)+1)
                                                                    else
                                                                            return "success",hour..":0"..tostring(tonumber(minute)+1)
                                                                    end
                                                            end
                                                    end
                                            else
                                                    return "failure"
                                            end
                                    else
                                            return getTime(city)
                                    end
                            else
                                    return "success",prevTime
                            end
                    end
                    local clockType = settings["showtime"]
                    local timerID = nil
                    local updateTimer = nil
                    local previousClock = nil
                    local dynamicSleep = nil
                    local resp = nil
                    if settings["showtime"] == "irl" then
                            resp, time = getTime(settings["city"])
                            if resp == "success" then
                                    settings["showtime"] = "irl"
                                    os.queueEvent("plastic_clock_manager", "force", time)
                                    os.queueEvent("plastic_clock_manager", "show")
                                    os.queueEvent("plastic_clock_manager", "irl")
                                    displayTime(time)
                                    local f = io.open("/plasticOptions", "w")
                                    f:write(textutils.serialize(settings))
                                    f:close()

                            else

                            end
                    end
                    if clockType == "ingame" then
                            dynamicSleep = 0.83
                    else
                            dynamicSleep = 60
                    end
                    timerID = os.clock() + dynamicSleep
                    os.startTimer(0.83)
                    updateTimer = 0.83+os.clock()
                    while true do
                            if os.clock() >= updateTimer then
                                            os.startTimer(0.83)
                                            updateTimer = 0.83+os.clock()
                            end
                            local e, command, param =  os.pullEvent()
                            if e == "plastic_clock_manager" then
                                    if command == "show" then
                                            if time then
                                                    displayTime(time)
                                            end
                                            mainText.setColor(gColors.text)
                                            mainText.setScale(3)
                                            mainText.setY(32)
                                            header.setText("")
                                            showClock = true
                                            timerID = os.clock()
                                    elseif command == "hide" then
                                            header.setText("")
                                            mainText.setText("")
                                            timerID = os.clock()+2
                                            showClock = false
                                    elseif command == "irl" then
                                            clockType = "irl"
                                            dynamicSleep = 60
                                            timerID = os.clock() + dynamicSleep
                                    elseif command == "ingame" then
                                            clockType = "ingame"
                                            dynamicSleep = 0.83
                                            timerID = os.clock() + dynamicSleep
                                    elseif command == "force" then
                                            if param then
                                                    time = param
                                            end
                                    elseif command == "kill" then
                                            sleep(100)
                                    end
                            elseif os.clock() >= timerID then
                                    if showClock then
                                            if clockType == "irl" then
                                                    resp, time = updateTime(time,settings["city"])
                                                    if resp ~= "success" then
                                                            displayTime("ERROR")
                                                            webUpdate = 60
                                                    else
                                                            displayTime(time)
                                                    end
                                            elseif clockType == "ingame" then
                                                    time = textutils.formatTime(os.time(), not(settings["use12hour"]))
                                                    displayTime(time)
                                            end
                                    end
                                    timerID = os.clock() + dynamicSleep
                            end
                    end
            end

            local eError, eResp = pcall(function() parallel.waitForAny(mainThread,backgroundThread,weatherThread) end)
            if eError then
                    return
            elseif eResp then
                    if not(fs.exists("/plasticLog")) then
                            local f = io.open("/plasticLog", "w") f:write("-- Plastic Error Logs --\n") f:close()
                    end
                    local f = io.open("/plasticLog", "a")
                    f:write(eResp .. "\n")
                    f:close()
                    mainText.setText("")
                    secondText.setText("")
                    thirdText.setText("")
                    forthText.setText("")
                    tempText.setText("")
                    header.setText("")
                    header.setY(25)
                    header.setColor(gColors.red)
                    centerText("Plastic has crashed", header)
                    mainText.setY(37)
                    mainText.setColor(gColors.yellow)
                    secondText.setColor(gColors.yellow)
                    thirdText.setColor(gColors.yellow)
                    mainText.setScale(1)
                    secondText.setScale(1)
                    thirdText.setScale(1)
                    centerText("and will now restart.", mainText)
                    secondText.setY(47)
                    centerText("See /plasticLog for", secondText)
                    thirdText.setY(57)
                    centerText("more information.", thirdText)
                    reliableSleep(3)
                    closeAnimation()
                    reliableSleep(1)
                    shell.run(plasticInstallation, "nodaemon", unpack(tArgs))
                    error()
            end
    end

    local function plasticWrapper()
            pcall(runPlastic)
    end

    --[[function os.pullEvent(lookfor)
            local data = {os.pullEventRaw()}
            --if not(data[1] == "timer") and not(data[1] == "ocs_success") then
                    print(os.clock(), data[1], tostring(data[2]))
            --end
            if not lookfor then
                    return unpack(data)
            elseif data[1] == lookfor then
                    return unpack(data)
            end
    end]]

    if not(searchArgs("nodaemon")) then
            parallel.waitForAny(plasticWrapper, function() shell.run("/rom/programs/shell") end)
            closeAnimation()
            term.clear()
            term.setCursorPos(1,1)
            print("Thank you for using Plastic Beta v0.11 by 1lann")
    else
            runPlastic()
            closeAnimation()
            term.clear()
            term.setCursorPos(1,1)
            print("Thank you for using Plastic Beta v0.11 by 1lann")
    end