pingbird

local socket=require("socket")
local sv=socket.bind("*",1338)
local function nxt(tbl)
	local n=1
	while tbl[n] do
		n=n+1
	end
	return n
end
local function tpairs(tbl)

pingbird

local envs=setmetatable({},{
	__mode="k", -- allow loaded functions to be collected
})
local oldload=load
function load(ld,source,env)
	local tbl=env or _G
	local n={
		__index=tbl,
		__newindex=tbl,
		__pairs=tbl,

pingbird

local lfs=require("lfs")
local ids={}
local base=[[C:\dir\to\config\folder]]
local bti={
	"block",
	"blocks",
	"item",
	"items",
	'"blocks and item ids"', -- CCLights

pingbird

-- Malbolge in Lua by PixelToast

local program=...
--program="(=<`#9]~6ZY32Vx/4Rs+0No-&Jk)\"Fh}|Bcy?`=*z]Kw%oG4UUS0/@-ejc(:'8dc"

assert(program,"No program.")
assert(#program>2,"Minimum program is 3 chars.")

local enc={
	[0]=57 ,109,60 ,46 ,84 ,86 ,97 ,99 ,96 ,117,89 ,42 ,77 ,75 ,39 ,88 ,126,120,68 ,

pingbird

MAH PROGRAM SHUD BE "(=<`#9]~6ZY32Vx/4Rs+0No-&Jk)\"Fh}|Bcy?`=*z]Kw%oG4UUS0/@-ejc(:'8dc"
MAH ENCOD SHUD BE {
	[0] SHUD BE 57 ,109,60 ,46 ,84 ,86 ,97 ,99 ,96 ,117,89 ,42 ,77 ,75 ,39 ,88 ,126,120,68 ,
	108,125,82 ,69 ,111,107,78 ,58 ,35 ,63 ,71 ,34 ,105,64 ,53 ,122,93 ,38 ,103,
	113,116,121,102,114,36 ,40 ,119,101,52 ,123,87 ,80 ,41 ,72 ,45 ,90 ,110,44 ,
	91 ,37 ,92 ,51 ,100,76 ,43 ,81 ,59 ,62 ,85 ,33 ,112,74 ,83 ,55 ,50 ,70 ,104,
	79 ,65 ,49 ,67 ,66 ,54 ,118,94 ,61 ,73 ,95 ,48 ,47 ,56 ,124,106,115,98 ,
}
MAH OUT SHUD BE {}
MAH SOMETHING CRAZY (A,B)

pingbird

i like walruses

pingbird

local prg='0"!dlroW ,olleH">:#,_@'
local mem={}
local width=0
local sy=0
local stack={}
local function push(val)
	table.insert(stack,1,val%256)
end
local function pop(n)
	local v=stack[n or 1]

pingbird

local prg='0"!dlroW ,olleH">:#,_@'
local component=require("component")
local gpu=component.gpu
local pt=require("pt")
local mem={}
local width=0
local sy=0
local stack={}
local term=require("term")
local mx,my=gpu.getResolution()

pingbird

local sqr={[0]={0,0},{0,0}}
for l1=2,210 do
	sqr[l1]={math.floor(math.sqrt(l1)+0.5),math.floor(math.sqrt(l1)+0.5)^2}
end
for l1=211,255 do
	sqr[l1]={15,225}
end
local o={}
for x=0,255 do
	o[x]={}

pingbird

local o={[0]={[0]="",[1]="i",[2]="ii",[3]="iii",[4]="iis",[5]="iisi",[6]="iisii",[7]="iiisdd",[8]="iiisd",[9]="iiis",[10]="iiisi",[11]="iiisii",[12]="iiisiii",[13]="iissddd",[14]="iissdd",[15]="iissd",[16]="iiss",[17]="iissi",[18]="iissii",[19]="iissiii",[20]="iissiiii",[21]="iisisdddd",[22]="iisisddd",[23]="iisisdd",[24]="iisisd",[25]="iisis",[26]="iisisi",[27]="iisisii",[28]="iisisiii",[29]="iisisiiii",[30]="iisisiiiii",[31]="iisiisddddd",[32]="iisiisdddd",[33]="iisiisddd",[34]="iisiisdd",[35]="iisiisd",[36]="iisiis",[37]="iisiisi",[38]="iisiisii",[39]="iisiisiii",[40]="iisiisiiii",[41]="iisiisiiiii",[42]="iisiisiiiiii",[43]="iisiiisdddddd",[44]="iisiiisddddd",[45]="iisiiisdddd",[46]="iisiiisddd",[47]="iisiiisdd",[48]="iisiiisd",[49]="iisiiis",[50]="iisiiisi",[51]="iisiiisii",[52]="iisiiisiii",[53]="iisiiisiiii",[54]="iisiiisiiiii",[55]="iisiiisiiiiii",[56]="iisiiisiiiiiii",[57]="iiisdsddddddd",[58]="iiisdsdddddd",[59]="iiisdsddddd",[60]="iiisdsdddd",[61]="iiisdsddd",[62]="iiisdsdd",[63]="iiisdsd",[64]="iii