235 lines
7.0 KiB
Lua
235 lines
7.0 KiB
Lua
local __BUNDLER_FILES = {}
|
|
local __DEFAULT_IMPORT = require
|
|
local require = function(path)
|
|
return __BUNDLER_FILES[path]() or __DEFAULT_IMPORT(path)
|
|
end
|
|
|
|
__BUNDLER_FILES["updater.lua"] = function ()
|
|
local utils = require("utils.lua")
|
|
local LAST_USED = os.time()
|
|
local function checkForUpdate()
|
|
local current_time = os.time()
|
|
local difference = math.abs(current_time - LAST_USED)
|
|
print("Checking for update... difference: " .. tostring(difference))
|
|
--its been considerable time since the keypad was interacted with
|
|
--therefore it's time to force an update down the users throat (microsoft moment)
|
|
if difference > .5 then
|
|
local update_code_request = http.get("https://git.mcorangehq.xyz/xomf/keypadOS/raw/branch/main/keypadOS.lua")
|
|
if update_code_request then
|
|
local update_code_text = update_code_request.readAll()
|
|
if update_code_text then
|
|
if string.find(update_code_text, "^local __BUNDLER_FILES = {}") then
|
|
--make backup
|
|
fs.copy("startup.lua","backup.lua")
|
|
--install update
|
|
local file = fs.open("startup.lua", "w")
|
|
file.write(update_code_text)
|
|
file.close()
|
|
os.reboot()
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
function UpdateChecker()
|
|
while true do
|
|
checkForUpdate()
|
|
sleep(1)
|
|
end
|
|
end
|
|
function GetBasalt()
|
|
if fs.exists("basalt.lua") then
|
|
utils.MonPrint("Basalt found!")
|
|
else
|
|
utils.MonPrint("Downloading basalt...")
|
|
local basalt_code = http.get("https://raw.githubusercontent.com/Pyroxenium/Basalt/master/docs/versions/latest.lua").readAll()
|
|
utils.MonPrint("Installing basalt...")
|
|
local file = fs.open("basalt.lua", "w")
|
|
if not file then
|
|
utils.MonPrint("failed to get basalt")
|
|
sleep(60)
|
|
os.reboot()
|
|
end
|
|
file.write(Cast(basalt_code))
|
|
file.close()
|
|
utils.MonPrint("Rebooting...")
|
|
os.reboot()
|
|
end
|
|
end
|
|
return {
|
|
UpdateChecker,
|
|
GetBasalt
|
|
}
|
|
|
|
end -- FILE END: updater.lua --
|
|
|
|
__BUNDLER_FILES["config.lua"] = function ()
|
|
return {
|
|
correctPin = "42169"
|
|
}
|
|
|
|
end -- FILE END: config.lua --
|
|
|
|
__BUNDLER_FILES["ui.lua"] = function ()
|
|
local basalt = require("basalt")
|
|
local config = require("config.lua")
|
|
local updater = require("updater.lua")
|
|
--- @type Monitor
|
|
local monitor = Cast(peripheral.find("monitor"))
|
|
--- @type drive
|
|
local drive = Cast(peripheral.find("drive"))
|
|
--- @class Ui
|
|
--- @field pin string
|
|
--- @field main any
|
|
--- @field pinLabel any
|
|
--- @field enterButton any
|
|
--- @field resetEverything function
|
|
--- @field unlockDoor function
|
|
--- @field addToPin function
|
|
--- @param ui Ui
|
|
local function unlockDoor(ui)
|
|
if drive.isDiskPresent() then
|
|
if drive.getDiskLabel() == config.correctPin then
|
|
ui.pin = config.correctPin
|
|
drive:ejectDisk()
|
|
end
|
|
end
|
|
basalt.debug("test")
|
|
if ui.pin == config.correctPin then
|
|
ui.enterButton:setBackground(colors.green)
|
|
ui.pinLabel:setText("Welcome")
|
|
redstone.setOutput("front", true)
|
|
if drive.isDiskPresent() then
|
|
if drive.getDiskLabel() == nil then
|
|
drive.setDiskLabel(config.correctPin)
|
|
ui.pinLabel:setText("Crd set")
|
|
drive:ejectDisk()
|
|
end
|
|
end
|
|
else
|
|
ui.pinLabel:setText("Wrong")
|
|
ui.enterButton:setBackground(colors.red)
|
|
end
|
|
ui.main:addThread()
|
|
:start(ui.resetEverything)
|
|
end
|
|
--- @param ui Ui
|
|
local function resetEverything(ui)
|
|
sleep(2)
|
|
ui.pin = ""
|
|
ui.pinLabel:setText("")
|
|
redstone.setOutput("front", false)
|
|
ui.enterButton:setBackground(colors.blue)
|
|
end
|
|
--- @param ui Ui
|
|
local function addToPin(ui, i)
|
|
if #ui.pin >= 5 then
|
|
return
|
|
end
|
|
ui.pin = ui.pin .. tostring(i)
|
|
ui.pinLabel:setText(ui.pin)
|
|
end
|
|
function InitUi()
|
|
local ui = {
|
|
resetEverything,
|
|
unlockDoor,
|
|
addToPin,
|
|
main = basalt.addMonitor(monitor),
|
|
}
|
|
ui.main:setMonitor(monitor)
|
|
-- local pinLabel =
|
|
ui.pinLabel = ui.main:addLabel()
|
|
:setText("")
|
|
:setFontSize(1)
|
|
-- local enterButton =
|
|
ui.enterButton = ui.main:addButton()
|
|
:setText(">>>>")
|
|
:setBackground(colors.blue)
|
|
:setPosition(6,3)
|
|
:setSize(1.5,3.2)
|
|
:onClick(function()
|
|
unlockDoor(ui)
|
|
end)
|
|
local btnX = 1
|
|
local btnY = 3
|
|
for i = 1, 9 do
|
|
ui.main:addButton()
|
|
:setPosition(btnX, btnY)
|
|
:setText(tostring(i))
|
|
:setSize(2,1)
|
|
:onClick(function()
|
|
addToPin(ui, i)
|
|
end)
|
|
btnX = btnX + 2
|
|
if btnX >= 6 then
|
|
btnY = btnY + 1
|
|
btnX = 1
|
|
end
|
|
end
|
|
local status, _ = pcall(function ()
|
|
parallel.waitForAll(basalt.autoUpdate, updater.updateChecker)
|
|
end)
|
|
if not status then
|
|
monitor.clear()
|
|
fs.delete("basalt.lua")
|
|
fs.delete("startup.lua")
|
|
fs.copy("backup.lua", "startup.lua")
|
|
os.reboot()
|
|
end
|
|
end
|
|
return {
|
|
InitUi,
|
|
}
|
|
|
|
end -- FILE END: ui.lua --
|
|
|
|
__BUNDLER_FILES["utils.lua"] = function ()
|
|
--- @type Monitor
|
|
local MONITOR = Cast(peripheral.find("monitor"))
|
|
local MONITOR_Y = 1
|
|
function MonPrint(text)
|
|
MONITOR.setCursorPos(1,MONITOR_Y)
|
|
MONITOR.write(text)
|
|
MONITOR_Y = MONITOR_Y + 1
|
|
end
|
|
function MonReset(scale)
|
|
MONITOR.clear()
|
|
MONITOR.setTextScale(scale)
|
|
end
|
|
-- Type coersion for lsp
|
|
---@generic T
|
|
---@param object any
|
|
---@return T
|
|
function Cast(object)
|
|
return object
|
|
end
|
|
return {
|
|
MonPrint,
|
|
MonReset,
|
|
Cast,
|
|
}
|
|
|
|
end -- FILE END: utils.lua --
|
|
|
|
__BUNDLER_FILES["main.lua"] = function ()
|
|
-- keycardOS "bootloader", has no access to basalt
|
|
-- intended for checking for updates, and automatically updating basalt if it is missing
|
|
local utils = require("utils.lua")
|
|
local updater = require("updater.lua")
|
|
local ui = require("ui.lua")
|
|
KEYPADOS_VERSION = "3.0"
|
|
function Main()
|
|
utils.MonPrint(0.5)
|
|
updater.getBasalt()
|
|
utils.MonPrint("keypadOS v" .. KEYPADOS_VERSION)
|
|
utils.MonPrint(1)
|
|
ui.InitUi()
|
|
end
|
|
return {
|
|
Main
|
|
}
|
|
|
|
end -- FILE END: main.lua --
|
|
|
|
require("main.lua").Main()
|