Upload System Image

Program_Files/LevelOS/Lua/icon.limg

@@ -0,0 +1 @@
+{{{"Ÿˆ","  b","bb ",},{"€‚•"," 0b","bb ",},{"‚ƒ€","bb ","   ",},},}

Program_Files/LevelOS/Lua/main.lua

@@ -0,0 +1,172 @@
+local tArgs = {...}
+if type(tArgs[1]) == "string" and fs.exists(tArgs[1]) then
+	lOS.execute(table.concat(tArgs," "))
+	return
+end
+if LevelOS then LevelOS.self.window.icon = {"\3","b"} end
+local lex = "LevelOS/modules/lex.lua"
+local docs = "Program_Files/Slime_Text/highlight/lua/docs.json"
+local docstable
+if not fs.exists(lex) then
+	-- oh no
+end
+if not fs.exists(docs) then
+	local webres = http.get("http://tweaked.cc/index.json")
+	if webres then
+		docstable = textutils.unserializeJSON(webres.readAll())
+	end
+	--[[if webres then
+		lUtils.fwrite(docs,webres.readAll())
+	end]]
+end
+if fs.exists(docs) then
+	docstable = textutils.unserializeJSON(lUtils.fread(docs))
+end
+local pretty = require "cc.pretty"
+
+local tCommandHistory = {}
+local hCur = 0
+local bRunning = true
+local tEnv = {
+    ["exit"] = setmetatable({}, {
+        __tostring = function() return "Call exit() to exit." end,
+        __call = function() bRunning = false end,
+        __type = "function",
+    }),
+    ["_echo"] = function(...)
+        return ...
+    end,
+}
+setmetatable(tEnv, { __index = _ENV })
+term.setTextColor(colors.yellow)
+print("LevelOS interactive Lua prompt.\nCall exit() to exit.")
+term.setTextColor(colors.white)
+while bRunning do
+	hCur = #tCommandHistory+1
+	write("lua> ")
+	local w,h = term.getSize()
+	local x,y = term.getCursorPos()
+	local self = lUtils.input(x,y,w,y)
+	self.opt.cursorColor = colors.white
+	self.opt.overflowY = "scroll"
+	self.scrollY = 0
+	self.opt.syntax = {
+		type="lua",
+		keyword=colors.yellow,
+		comment=colors.green,
+		string=colors.red,
+		number=colors.purple,
+		symbol=colors.white, 
+		operator=colors.lightGray,
+		value=colors.purple,
+		ident=colors.white,
+		["function"]=colors.cyan,
+		nfunction=colors.lime,
+		arg=colors.orange,
+		lexer=lex,
+		whitespace=colors.lightGray,
+	}
+	self.opt.complete = {
+		docs = docstable,
+		env = tEnv,
+		overlay = true,
+		LevelOS = LevelOS,
+	}
+	self.opt.selectColor=colors.gray
+	self.opt.overflowY="stretch"
+	self.opt.overflowX="scroll"
+	_G.debugeditor = self
+	while true do
+		tCommandHistory[hCur] = self.txt
+		self.state = true
+		local doUpdate = true
+		local e = {os.pullEvent()}
+		if e[1] == "term_resize" then
+			local w,h = term.getSize()
+			self.x2 = w
+		elseif e[1] == "key" and (e[2] == keys.up or e[2] == keys.down) and not self.opt.complete.list then
+			doUpdate = false
+			local o = 1
+			if e[2] == keys.up then
+				o = -1
+			end
+			if tCommandHistory[hCur+o] then
+				hCur = hCur+o
+				self.txt = tCommandHistory[hCur]
+				self.cursor.x = #self.txt+1
+				self.cursor.a = #self.txt+1
+			end
+			self.update("term_resize")
+		elseif e[1] == "key" and e[2] == keys.enter and not lUtils.isHolding(keys.leftShift) then
+			if hCur < #tCommandHistory then
+				hCur = #tCommandHistory
+				tCommandHistory[hCur] = self.txt
+			end
+			doUpdate = false
+			term.setCursorBlink(false)
+			LevelOS.overlay = nil
+			print("")
+			local s = self.txt
+			local nForcePrint = 0
+			local func, e = load(s, "=lua", "t", tEnv)
+			local func2 = load("return _echo(" .. s .. ");", "=lua", "t", tEnv)
+			if not func then
+				if func2 then
+					func = func2
+					e = nil
+					nForcePrint = 1
+				end
+			else
+				if func2 then
+					func = func2
+				end
+			end
+			
+			if func then
+				local tResults = table.pack(pcall(func))
+				if tResults[1] then
+					local n = 1
+					while n < tResults.n or n <= nForcePrint do
+						local value = tResults[n + 1]
+						local ok, serialised = pcall(pretty.pretty, value, {
+							function_args = settings.get("lua.function_args"),
+							function_source = settings.get("lua.function_source"),
+						})
+						if ok then
+							pretty.print(serialised)
+						else
+							print(tostring(value))
+						end
+						n = n + 1	
+					end
+				else
+					printError(tResults[2])
+				end
+			else
+				printError(e)
+			end
+			break
+		elseif e[1] == "key" or e[1] == "char" or e[1] == "paste" then
+			if hCur < #tCommandHistory then
+				hCur = #tCommandHistory
+				tCommandHistory[hCur] = self.txt
+			end
+		end
+		if doUpdate then
+			self.update(unpack(e))
+		end
+		local w,h = term.getSize()
+		while self.y2 > h do
+			if self.y1 > 1 then
+				term.scroll(1)
+				self.y2 = self.y2-1
+				self.y1 = self.y1-1
+			else
+				self.y1 = 1
+				self.y2 = h
+				self.opt.overflowY = "scroll"
+			end
+		end
+		self.render()
+	end
+end

Program_Files/LevelOS/Lua/taskbar.limg

@@ -0,0 +1 @@
+{{{"Ÿœ’"," 00","0  ",},{"‚","000","   ",},},}