From 01a822672184e5083a28b494cfefbb2bf16543cb Mon Sep 17 00:00:00 2001 From: Robert Jelic <36573031+NoryiE@users.noreply.github.com> Date: Sat, 20 May 2023 13:38:52 +0200 Subject: [PATCH] Small rename --- docs/versions/basalt-1.7.0.lua | 3735 ++++++++++++++++---------------- docs/versions/latest.lua | 3735 ++++++++++++++++---------------- 2 files changed, 3736 insertions(+), 3734 deletions(-) diff --git a/docs/versions/basalt-1.7.0.lua b/docs/versions/basalt-1.7.0.lua index 987e4d3..aa06b20 100644 --- a/docs/versions/basalt-1.7.0.lua +++ b/docs/versions/basalt-1.7.0.lua @@ -50,6 +50,45 @@ if(ad~=nil)then bc[dc]=function(...)local bd=_d(...) for cd,dd in pairs(ad)do local __a=dd(bd,cc,...) __a.__index=__a;bd=setmetatable(__a,bd)end;return bd end end end;return bc end}end;aa["plugins"]={} +aa["plugins"]["dynamicValues"]=function(...) +local ab=da("utils")local bb=ab.tableCount +return +{VisualObject=function(cb,db)local _c={}local ac={} +local bc={x="getX",y="getY",w="getWidth",h="getHeight"} +local function cc(bd) +local cd,dd=pcall(load("return "..bd,"",nil,{math=math}))if not(cd)then +error(bd.." - is not a valid dynamic value string")end;return dd end +local function dc(bd,cd,dd)local __a={}local a_a=bc +for d_a,_aa in pairs(a_a)do for aaa in dd:gmatch("%a+%."..d_a)do +local baa=aaa:gsub("%."..d_a,"") +if(baa~="self")and(baa~="parent")then table.insert(__a,baa)end end end;local b_a=bd:getParent()local c_a={} +for d_a,_aa in pairs(__a)do +c_a[_aa]=b_a:getChild(_aa)if(c_a[_aa]==nil)then +error("Dynamic Values - unable to find object: ".._aa)end end;c_a["self"]=bd;c_a["parent"]=b_a +_c[cd]=function()local d_a=dd +for _aa,aaa in pairs(a_a)do +for baa in +dd:gmatch("%w+%.".._aa)do local caa=c_a[baa:gsub("%.".._aa,"")]if(caa~=nil)then +d_a=d_a:gsub(baa,caa[aaa](caa))else +error("Dynamic Values - unable to find object: "..baa)end end end;ac[cd]=math.floor(cc(d_a)+0.5)end;_c[cd]()end +local function _d(bd) +if(bb(_c)>0)then for dd,__a in pairs(_c)do __a()end +local cd={x="getX",y="getY",w="getWidth",h="getHeight"} +for dd,__a in pairs(cd)do +if(_c[dd]~=nil)then +if(ac[dd]~=bd[__a](bd))then if(dd=="x")or(dd=="y")then +cb.setPosition(bd, +ac["x"]or bd:getX(),ac["y"]or bd:getY())end;if(dd=="w")or(dd=="h")then +cb.setSize(bd, +ac["w"]or bd:getWidth(),ac["h"]or bd:getHeight())end end end end end end +local ad={updatePositions=_d,createDynamicValue=dc,setPosition=function(bd,cd,dd,__a)ac.x=cd;ac.y=dd +if(type(cd)=="string")then dc(bd,"x",cd)else _c["x"]=nil end +if(type(dd)=="string")then dc(bd,"y",dd)else _c["y"]=nil end;cb.setPosition(bd,ac.x,ac.y,__a)return bd end,setSize=function(bd,cd,dd,__a) +ac.w=cd;ac.h=dd +if(type(cd)=="string")then dc(bd,"w",cd)else _c["w"]=nil end +if(type(dd)=="string")then dc(bd,"h",dd)else _c["h"]=nil end;cb.setSize(bd,ac.w,ac.h,__a)return bd end,customEventHandler=function(bd,cd,...) +cb.customEventHandler(bd,cd,...)if +(cd=="basalt_FrameReposition")or(cd=="basalt_FrameResize")then _d(bd)end end}return ad end}end aa["plugins"]["pixelbox"]=function(...) local ab,bb,cb=table.sort,table.concat,string.char;local function db(dc,_d)return dc[2]>_d[2]end local _c={{5,256,16,8,64,32},{4,16,16384,256,128},[4]={4,64,1024,256,128},[8]={4,512,2048,256,1},[16]={4,2,16384,256,1},[32]={4,8192,4096,256,1},[64]={4,4,1024,256,1},[128]={6,32768,256,1024,2048,4096,16384},[256]={6,1,128,2,512,4,8192},[512]={4,8,2048,256,128},[1024]={4,4,64,128,32768},[2048]={4,512,8,128,32768},[4096]={4,8192,32,128,32768},[8192]={3,32,4096,256128},[16384]={4,2,16,128,32768},[32768]={5,128,1024,2048,4096,16384}}local ac={}for i=0,15 do ac[("%x"):format(i)]=2 ^i end @@ -96,45 +135,59 @@ local dd=cc(cd,ad:getBackground()).get()ad:setImage(dd)return ad end,getShrinked local bd=ad:getImageFrame(1)local cd={}for dd,__a in pairs(bd)do if(type(dd)=="number")then table.insert(cd,__a[3])end end;return cc(cd,ad:getBackground()).get()end}end}end -aa["plugins"]["dynamicValues"]=function(...)local ab=da("utils")local bb=ab.tableCount +aa["plugins"]["themes"]=function(...) +local ab={BaseFrameBG=colors.lightGray,BaseFrameText=colors.black,FrameBG=colors.gray,FrameText=colors.black,ButtonBG=colors.gray,ButtonText=colors.black,CheckboxBG=colors.lightGray,CheckboxText=colors.black,InputBG=colors.black,InputText=colors.lightGray,TextfieldBG=colors.black,TextfieldText=colors.white,ListBG=colors.gray,ListText=colors.black,MenubarBG=colors.gray,MenubarText=colors.black,DropdownBG=colors.gray,DropdownText=colors.black,RadioBG=colors.gray,RadioText=colors.black,SelectionBG=colors.black,SelectionText=colors.lightGray,GraphicBG=colors.black,ImageBG=colors.black,PaneBG=colors.black,ProgramBG=colors.black,ProgressbarBG=colors.gray,ProgressbarText=colors.black,ProgressbarActiveBG=colors.black,ScrollbarBG=colors.lightGray,ScrollbarText=colors.gray,ScrollbarSymbolColor=colors.black,SliderBG=false,SliderText=colors.gray,SliderSymbolColor=colors.black,SwitchBG=colors.lightGray,SwitchText=colors.gray,LabelBG=false,LabelText=colors.black,GraphBG=colors.gray,GraphText=colors.black} +local bb={Container=function(cb,db,_c)local ac={} +local bc={getTheme=function(cc,dc)local _d=cc:getParent()return ac[dc]or(_d~=nil and _d:getTheme(dc)or +ab[dc])end,setTheme=function(cc,dc,_d) +if( +type(dc)=="table")then ac=dc elseif(type(dc)=="string")then ac[dc]=_d end;cc:updateDraw()return cc end}return bc end,basalt=function() return -{VisualObject=function(cb,db) -local _c={}local ac={}local bc={x="getX",y="getY",w="getWidth",h="getHeight"} -local function cc(bd) -local cd,dd=pcall(load( -"return "..bd,"",nil,{math=math}))if not(cd)then -error(bd.." - is not a valid dynamic value string")end;return dd end -local function dc(bd,cd,dd)local __a={}local a_a=bc -for d_a,_aa in pairs(a_a)do for aaa in dd:gmatch("%a+%."..d_a)do -local baa=aaa:gsub("%."..d_a,"") -if(baa~="self")and(baa~="parent")then table.insert(__a,baa)end end end;local b_a=bd:getParent()local c_a={} -for d_a,_aa in pairs(__a)do -c_a[_aa]=b_a:getChild(_aa)if(c_a[_aa]==nil)then -error("Dynamic Values - unable to find object: ".._aa)end end;c_a["self"]=bd;c_a["parent"]=b_a -_c[cd]=function()local d_a=dd -for _aa,aaa in pairs(a_a)do -for baa in -dd:gmatch("%w+%.".._aa)do local caa=c_a[baa:gsub("%.".._aa,"")]if(caa~=nil)then -d_a=d_a:gsub(baa,caa[aaa](caa))else -error("Dynamic Values - unable to find object: "..baa)end end end;ac[cd]=math.floor(cc(d_a)+0.5)end;_c[cd]()end -local function _d(bd) -if(bb(_c)>0)then for dd,__a in pairs(_c)do __a()end -local cd={x="getX",y="getY",w="getWidth",h="getHeight"} -for dd,__a in pairs(cd)do -if(_c[dd]~=nil)then -if(ac[dd]~=bd[__a](bd))then if(dd=="x")or(dd=="y")then -cb.setPosition(bd, -ac["x"]or bd:getX(),ac["y"]or bd:getY())end;if(dd=="w")or(dd=="h")then -cb.setSize(bd, -ac["w"]or bd:getWidth(),ac["h"]or bd:getHeight())end end end end end end -local ad={updatePositions=_d,createDynamicValue=dc,setPosition=function(bd,cd,dd,__a)ac.x=cd;ac.y=dd -if(type(cd)=="string")then dc(bd,"x",cd)else _c["x"]=nil end -if(type(dd)=="string")then dc(bd,"y",dd)else _c["y"]=nil end;cb.setPosition(bd,ac.x,ac.y,__a)return bd end,setSize=function(bd,cd,dd,__a) -ac.w=cd;ac.h=dd -if(type(cd)=="string")then dc(bd,"w",cd)else _c["w"]=nil end -if(type(dd)=="string")then dc(bd,"h",dd)else _c["h"]=nil end;cb.setSize(bd,ac.w,ac.h,__a)return bd end,customEventHandler=function(bd,cd,...) -cb.customEventHandler(bd,cd,...)if -(cd=="basalt_FrameReposition")or(cd=="basalt_FrameResize")then _d(bd)end end}return ad end}end +{getTheme=function(cb)return +ab[cb]end,setTheme=function(cb,db)if(type(cb)=="table")then ab=cb elseif(type(cb)=="string")then +ab[cb]=db end end}end} +for cb,db in +pairs({"BaseFrame","Frame","ScrollableFrame","MovableFrame","Button","Checkbox","Dropdown","Graph","Graphic","Input","Label","List","Menubar","Pane","Program","Progressbar","Radio","Scrollbar","Slider","Switch","Textfield"})do +bb[db]=function(_c,ac,bc) +local cc={init=function(dc)if(_c.init(dc))then local _d=dc:getParent()or dc +dc:setBackground(_d:getTheme(db.."BG")) +dc:setForeground(_d:getTheme(db.."Text"))end end}return cc end end;return bb end +aa["plugins"]["textures"]=function(...)local ab=da("images")local bb=da("utils") +local cb=da("xmlParser") +return +{VisualObject=function(db)local _c,ac=1,true;local bc,cc,dc;local _d="default" +local ad={addTexture=function(bd,cd,dd)bc=ab.loadImageAsBimg(cd) +cc=bc[1] +if(dd)then if(bc.animated)then bd:listenEvent("other_event")local __a=bc[_c].duration or +bc.secondsPerFrame or 0.2 +dc=os.startTimer(__a)end end;bd:setBackground(false)bd:setForeground(false) +bd:setDrawState("texture-base",true)bd:updateDraw()return bd end,setTextureMode=function(bd,cd)_d= +cd or _d;bd:updateDraw()return bd end,setInfinitePlay=function(bd,cd)ac=cd +return bd end,eventHandler=function(bd,cd,dd,...)db.eventHandler(bd,cd,dd,...) +if(cd=="timer")then +if +(dd==dc)then +if(bc[_c+1]~=nil)then _c=_c+1;cc=bc[_c]local __a= +bc[_c].duration or bc.secondsPerFrame or 0.2 +dc=os.startTimer(__a)bd:updateDraw()else +if(ac)then _c=1;cc=bc[1]local __a= +bc[_c].duration or bc.secondsPerFrame or 0.2 +dc=os.startTimer(__a)bd:updateDraw()end end end end end,draw=function(bd) +db.draw(bd) +bd:addDraw("texture-base",function()local cd=bd:getParent()or bd +local dd,__a=bd:getPosition()local a_a,b_a=bd:getSize()local c_a,d_a=cd:getSize()local _aa=bc.width or +#bc[_c][1][1]local aaa=bc.height or#bc[_c] +local baa,caa=0,0 +if(_d=="center")then +baa=dd+math.floor((a_a-_aa)/2 +0.5)-1 +caa=__a+math.floor((b_a-aaa)/2 +0.5)-1 elseif(_d=="default")then baa,caa=dd,__a elseif(_d=="right")then +baa,caa=dd+a_a-_aa,__a+b_a-aaa end;local daa=dd-baa;local _ba=__a-caa;if baa
dd+a_a then +_aa=(dd+a_a)-baa end +if caa+aaa>__a+b_a then aaa=(__a+b_a)-caa end +for k=1,aaa do if(cc[k+_ba]~=nil)then local aba,bba,cba=table.unpack(cc[k+_ba]) +bd:addBlit(1,k,aba:sub(daa, +daa+_aa),bba:sub(daa,daa+_aa),cba:sub(daa,daa+_aa))end end end,1)bd:setDrawState("texture-base",false)end}return ad end}end aa["plugins"]["border"]=function(...)local ab=da("xmlParser") return {VisualObject=function(bb)local cb=true @@ -199,7 +252,7 @@ local b_a=function()local c_a=load("return "..a_a,nil,"t",ad)() dd:setProperty(__a,c_a)end;bc.effect(b_a)end end for __a,a_a in ipairs(_d.children)do local b_a=bc.createObjectsFromXMLNode(a_a,ad)for c_a,d_a in ipairs(b_a)do dd:addChild(d_a)end end;return{dd}end -local dc={reactive=function(_d)local ad=_d;local bd={} +local dc={observable=function(_d)local ad=_d;local bd={} local cd=function()if(_c~=nil)then table.insert(bd,_c) table.insert(_c.dependencies,bd)end;return ad end local dd=function(__a)ad=__a;local a_a={}for b_a,c_a in ipairs(bd)do a_a[b_a]=c_a end;for b_a,c_a in ipairs(a_a)do @@ -220,6 +273,17 @@ local dc={loadLayout=function(_d,ad,bd) local cd={}if(bd==nil)then bd={}end for a_a,b_a in pairs(bd)do cd[a_a]=function()return b_a end end;local dd=cc.layout(ad) local __a=cc.createObjectsFromLayout(dd,cd)for a_a,b_a in ipairs(__a)do _d:addChild(b_a)end;return _d end}return dc end}end +aa["plugins"]["shadow"]=function(...)local ab=da("xmlParser") +return +{VisualObject=function(bb)local cb=false +local db={setShadow=function(_c,ac)cb=ac +_c:updateDraw()return _c end,getShadow=function(_c)return cb end,draw=function(_c)bb.draw(_c) +_c:addDraw("shadow",function() +if( +cb~=false)then local ac,bc=_c:getSize() +if(cb)then +_c:addBackgroundBox(ac+1,2,1,bc,cb)_c:addBackgroundBox(2,bc+1,ac,1,cb) +_c:addForegroundBox(ac+1,2,1,bc,cb)_c:addForegroundBox(2,bc+1,ac,1,cb)end end end)end}return db end}end aa["plugins"]["debug"]=function(...)local ab=da("utils")local bb=ab.wrapText return {basalt=function(cb) @@ -255,17 +319,84 @@ if(ac:getItemCount()>50)then ac:removeItem(1)end ac:setValue(ac:getItem(ac:getItemCount())) if(ac.getItemCount()>ac:getHeight())then ac:setOffset(ac:getItemCount()- ac:getHeight())end;bc:show()end}end}end -aa["plugins"]["shadow"]=function(...)local ab=da("xmlParser") +aa["plugins"]["bigfonts"]=function(...)local ab=da("tHex") +local bb={{"\32\32\32\137\156\148\158\159\148\135\135\144\159\139\32\136\157\32\159\139\32\32\143\32\32\143\32\32\32\32\32\32\32\32\147\148\150\131\148\32\32\32\151\140\148\151\140\147","\32\32\32\149\132\149\136\156\149\144\32\133\139\159\129\143\159\133\143\159\133\138\32\133\138\32\133\32\32\32\32\32\32\150\150\129\137\156\129\32\32\32\133\131\129\133\131\132","\32\32\32\130\131\32\130\131\32\32\129\32\32\32\32\130\131\32\130\131\32\32\32\32\143\143\143\32\32\32\32\32\32\130\129\32\130\135\32\32\32\32\131\32\32\131\32\131","\139\144\32\32\143\148\135\130\144\149\32\149\150\151\149\158\140\129\32\32\32\135\130\144\135\130\144\32\149\32\32\139\32\159\148\32\32\32\32\159\32\144\32\148\32\147\131\132","\159\135\129\131\143\149\143\138\144\138\32\133\130\149\149\137\155\149\159\143\144\147\130\132\32\149\32\147\130\132\131\159\129\139\151\129\148\32\32\139\131\135\133\32\144\130\151\32","\32\32\32\32\32\32\130\135\32\130\32\129\32\129\129\131\131\32\130\131\129\140\141\132\32\129\32\32\129\32\32\32\32\32\32\32\131\131\129\32\32\32\32\32\32\32\32\32","\32\32\32\32\149\32\159\154\133\133\133\144\152\141\132\133\151\129\136\153\32\32\154\32\159\134\129\130\137\144\159\32\144\32\148\32\32\32\32\32\32\32\32\32\32\32\151\129","\32\32\32\32\133\32\32\32\32\145\145\132\141\140\132\151\129\144\150\146\129\32\32\32\138\144\32\32\159\133\136\131\132\131\151\129\32\144\32\131\131\129\32\144\32\151\129\32","\32\32\32\32\129\32\32\32\32\130\130\32\32\129\32\129\32\129\130\129\129\32\32\32\32\130\129\130\129\32\32\32\32\32\32\32\32\133\32\32\32\32\32\129\32\129\32\32","\150\156\148\136\149\32\134\131\148\134\131\148\159\134\149\136\140\129\152\131\32\135\131\149\150\131\148\150\131\148\32\148\32\32\148\32\32\152\129\143\143\144\130\155\32\134\131\148","\157\129\149\32\149\32\152\131\144\144\131\148\141\140\149\144\32\149\151\131\148\32\150\32\150\131\148\130\156\133\32\144\32\32\144\32\130\155\32\143\143\144\32\152\129\32\134\32","\130\131\32\131\131\129\131\131\129\130\131\32\32\32\129\130\131\32\130\131\32\32\129\32\130\131\32\130\129\32\32\129\32\32\133\32\32\32\129\32\32\32\130\32\32\32\129\32","\150\140\150\137\140\148\136\140\132\150\131\132\151\131\148\136\147\129\136\147\129\150\156\145\138\143\149\130\151\32\32\32\149\138\152\129\149\32\32\157\152\149\157\144\149\150\131\148","\149\143\142\149\32\149\149\32\149\149\32\144\149\32\149\149\32\32\149\32\32\149\32\149\149\32\149\32\149\32\144\32\149\149\130\148\149\32\32\149\32\149\149\130\149\149\32\149","\130\131\129\129\32\129\131\131\32\130\131\32\131\131\32\131\131\129\129\32\32\130\131\32\129\32\129\130\131\32\130\131\32\129\32\129\131\131\129\129\32\129\129\32\129\130\131\32","\136\140\132\150\131\148\136\140\132\153\140\129\131\151\129\149\32\149\149\32\149\149\32\149\137\152\129\137\152\129\131\156\133\149\131\32\150\32\32\130\148\32\152\137\144\32\32\32","\149\32\32\149\159\133\149\32\149\144\32\149\32\149\32\149\32\149\150\151\129\138\155\149\150\130\148\32\149\32\152\129\32\149\32\32\32\150\32\32\149\32\32\32\32\32\32\32","\129\32\32\130\129\129\129\32\129\130\131\32\32\129\32\130\131\32\32\129\32\129\32\129\129\32\129\32\129\32\131\131\129\130\131\32\32\32\129\130\131\32\32\32\32\140\140\132","\32\154\32\159\143\32\149\143\32\159\143\32\159\144\149\159\143\32\159\137\145\159\143\144\149\143\32\32\145\32\32\32\145\149\32\144\32\149\32\143\159\32\143\143\32\159\143\32","\32\32\32\152\140\149\151\32\149\149\32\145\149\130\149\157\140\133\32\149\32\154\143\149\151\32\149\32\149\32\144\32\149\149\153\32\32\149\32\149\133\149\149\32\149\149\32\149","\32\32\32\130\131\129\131\131\32\130\131\32\130\131\129\130\131\129\32\129\32\140\140\129\129\32\129\32\129\32\137\140\129\130\32\129\32\130\32\129\32\129\129\32\129\130\131\32","\144\143\32\159\144\144\144\143\32\159\143\144\159\138\32\144\32\144\144\32\144\144\32\144\144\32\144\144\32\144\143\143\144\32\150\129\32\149\32\130\150\32\134\137\134\134\131\148","\136\143\133\154\141\149\151\32\129\137\140\144\32\149\32\149\32\149\154\159\133\149\148\149\157\153\32\154\143\149\159\134\32\130\148\32\32\149\32\32\151\129\32\32\32\32\134\32","\133\32\32\32\32\133\129\32\32\131\131\32\32\130\32\130\131\129\32\129\32\130\131\129\129\32\129\140\140\129\131\131\129\32\130\129\32\129\32\130\129\32\32\32\32\32\129\32","\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32","\32\32\32\32\32\32\32\32\32\32\32\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\32\32\32\32\32\32\32\32\32\32\32","\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32","\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32","\32\32\32\32\32\32\32\32\32\32\32\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\32\32\32\32\32\32\32\32\32\32\32","\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32","\32\32\32\32\145\32\159\139\32\151\131\132\155\143\132\134\135\145\32\149\32\158\140\129\130\130\32\152\147\155\157\134\32\32\144\144\32\32\32\32\32\32\152\131\155\131\131\129","\32\32\32\32\149\32\149\32\145\148\131\32\149\32\149\140\157\132\32\148\32\137\155\149\32\32\32\149\154\149\137\142\32\153\153\32\131\131\149\131\131\129\149\135\145\32\32\32","\32\32\32\32\129\32\130\135\32\131\131\129\134\131\132\32\129\32\32\129\32\131\131\32\32\32\32\130\131\129\32\32\32\32\129\129\32\32\32\32\32\32\130\131\129\32\32\32","\150\150\32\32\148\32\134\32\32\132\32\32\134\32\32\144\32\144\150\151\149\32\32\32\32\32\32\145\32\32\152\140\144\144\144\32\133\151\129\133\151\129\132\151\129\32\145\32","\130\129\32\131\151\129\141\32\32\142\32\32\32\32\32\149\32\149\130\149\149\32\143\32\32\32\32\142\132\32\154\143\133\157\153\132\151\150\148\151\158\132\151\150\148\144\130\148","\32\32\32\140\140\132\32\32\32\32\32\32\32\32\32\151\131\32\32\129\129\32\32\32\32\134\32\32\32\32\32\32\32\129\129\32\129\32\129\129\130\129\129\32\129\130\131\32","\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\159\142\32\150\151\129\150\131\132\140\143\144\143\141\145\137\140\148\141\141\144\157\142\32\159\140\32\151\134\32\157\141\32","\157\140\149\157\140\149\157\140\149\157\140\149\157\140\149\157\140\149\151\151\32\154\143\132\157\140\32\157\140\32\157\140\32\157\140\32\32\149\32\32\149\32\32\149\32\32\149\32","\129\32\129\129\32\129\129\32\129\129\32\129\129\32\129\129\32\129\129\131\129\32\134\32\131\131\129\131\131\129\131\131\129\131\131\129\130\131\32\130\131\32\130\131\32\130\131\32","\151\131\148\152\137\145\155\140\144\152\142\145\153\140\132\153\137\32\154\142\144\155\159\132\150\156\148\147\32\144\144\130\145\136\137\32\146\130\144\144\130\145\130\136\32\151\140\132","\151\32\149\151\155\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\152\137\144\157\129\149\149\32\149\149\32\149\149\32\149\149\32\149\130\150\32\32\157\129\149\32\149","\131\131\32\129\32\129\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\32\32\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\129\32\130\131\32\133\131\32","\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\159\142\32\159\159\144\152\140\144\156\143\32\159\141\129\153\140\132\157\141\32\130\145\32\32\147\32\136\153\32\130\146\32","\152\140\149\152\140\149\152\140\149\152\140\149\152\140\149\152\140\149\149\157\134\154\143\132\157\140\133\157\140\133\157\140\133\157\140\133\32\149\32\32\149\32\32\149\32\32\149\32","\130\131\129\130\131\129\130\131\129\130\131\129\130\131\129\130\131\129\130\130\131\32\134\32\130\131\129\130\131\129\130\131\129\130\131\129\32\129\32\32\129\32\32\129\32\32\129\32","\159\134\144\137\137\32\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\32\132\32\159\143\32\147\32\144\144\130\145\136\137\32\146\130\144\144\130\145\130\138\32\146\130\144","\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\131\147\129\138\134\149\149\32\149\149\32\149\149\32\149\149\32\149\154\143\149\32\157\129\154\143\149","\130\131\32\129\32\129\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\32\32\130\131\32\130\131\129\130\131\129\130\131\129\130\131\129\140\140\129\130\131\32\140\140\129"},{"000110000110110000110010101000000010000000100101","000000110110000000000010101000000010000000100101","000000000000000000000000000000000000000000000000","100010110100000010000110110000010100000100000110","000000110000000010110110000110000000000000110000","000000000000000000000000000000000000000000000000","000000110110000010000000100000100000000000000010","000000000110110100010000000010000000000000000100","000000000000000000000000000000000000000000000000","010000000000100110000000000000000000000110010000","000000000000000000000000000010000000010110000000","000000000000000000000000000000000000000000000000","011110110000000100100010110000000100000000000000","000000000000000000000000000000000000000000000000","000000000000000000000000000000000000000000000000","110000110110000000000000000000010100100010000000","000010000000000000110110000000000100010010000000","000000000000000000000000000000000000000000000000","010110010110100110110110010000000100000110110110","000000000000000000000110000000000110000000000000","000000000000000000000000000000000000000000000000","010100010110110000000000000000110000000010000000","110110000000000000110000110110100000000010000000","000000000000000000000000000000000000000000000000","000100011111000100011111000100011111000100011111","000000000000100100100100011011011011111111111111","000000000000000000000000000000000000000000000000","000100011111000100011111000100011111000100011111","000000000000100100100100011011011011111111111111","100100100100100100100100100100100100100100100100","000000110100110110000010000011110000000000011000","000000000100000000000010000011000110000000001000","000000000000000000000000000000000000000000000000","010000100100000000000000000100000000010010110000","000000000000000000000000000000110110110110110000","000000000000000000000000000000000000000000000000","110110110110110110000000110110110110110110110110","000000000000000000000110000000000000000000000000","000000000000000000000000000000000000000000000000","000000000000110110000110010000000000000000010010","000010000000000000000000000000000000000000000000","000000000000000000000000000000000000000000000000","110110110110110110110000110110110110000000000000","000000000000000000000110000000000000000000000000","000000000000000000000000000000000000000000000000","110110110110110110110000110000000000000000010000","000000000000000000000000100000000000000110000110","000000000000000000000000000000000000000000000000"}}local cb={}local db={} +do local cc=0;local dc=#bb[1]local _d=#bb[1][1] +for i=1,dc,3 do +for j=1,_d,3 do +local ad=string.char(cc)local bd={}bd[1]=bb[1][i]:sub(j,j+2) +bd[2]=bb[1][i+1]:sub(j,j+2)bd[3]=bb[1][i+2]:sub(j,j+2)local cd={}cd[1]=bb[2][i]:sub(j, +j+2)cd[2]=bb[2][i+1]:sub(j,j+2)cd[3]=bb[2][ +i+2]:sub(j,j+2)db[ad]={bd,cd}cc=cc+1 end end;cb[1]=db end +local function _c(cc,dc)local _d={["0"]="1",["1"]="0"}if cc<=#cb then return true end +for f=#cb+1,cc do local ad={}local bd=cb[ +f-1] +for char=0,255 do local cd=string.char(char)local dd={}local __a={} +local a_a=bd[cd][1]local b_a=bd[cd][2] +for i=1,#a_a do local c_a,d_a,_aa,aaa,baa,caa={},{},{},{},{},{} +for j=1,#a_a[1]do +local daa=db[a_a[i]:sub(j,j)][1]table.insert(c_a,daa[1]) +table.insert(d_a,daa[2])table.insert(_aa,daa[3]) +local _ba=db[a_a[i]:sub(j,j)][2] +if b_a[i]:sub(j,j)=="1"then +table.insert(aaa,(_ba[1]:gsub("[01]",_d))) +table.insert(baa,(_ba[2]:gsub("[01]",_d))) +table.insert(caa,(_ba[3]:gsub("[01]",_d)))else table.insert(aaa,_ba[1]) +table.insert(baa,_ba[2])table.insert(caa,_ba[3])end end;table.insert(dd,table.concat(c_a)) +table.insert(dd,table.concat(d_a))table.insert(dd,table.concat(_aa)) +table.insert(__a,table.concat(aaa))table.insert(__a,table.concat(baa)) +table.insert(__a,table.concat(caa))end;ad[cd]={dd,__a}if dc then dc="Font"..f.."Yeld"..char +os.queueEvent(dc)os.pullEvent(dc)end end;cb[f]=ad end;return true end +local function ac(cc,dc,_d,ad,bd) +if not type(dc)=="string"then error("Not a String",3)end +local cd=type(_d)=="string"and _d:sub(1,1)or ab[_d]or +error("Wrong Front Color",3) +local dd=type(ad)=="string"and ad:sub(1,1)or ab[ad]or +error("Wrong Back Color",3)if(cb[cc]==nil)then _c(3,false)end;local __a=cb[cc]or +error("Wrong font size selected",3)if dc==""then +return{{""},{""},{""}}end;local a_a={} +for caa in dc:gmatch('.')do table.insert(a_a,caa)end;local b_a={}local c_a=#__a[a_a[1]][1] +for nLine=1,c_a do local caa={}for i=1,#a_a do +caa[i]= +__a[a_a[i]]and __a[a_a[i]][1][nLine]or""end;b_a[nLine]=table.concat(caa)end;local d_a={}local _aa={}local aaa={["0"]=cd,["1"]=dd}local baa={["0"]=dd,["1"]=cd} +for nLine=1,c_a do +local caa={}local daa={} +for i=1,#a_a do +local _ba=__a[a_a[i]]and __a[a_a[i]][2][nLine]or"" +caa[i]=_ba:gsub("[01]", +bd and{["0"]=_d:sub(i,i),["1"]=ad:sub(i,i)}or aaa) +daa[i]=_ba:gsub("[01]", +bd and{["0"]=ad:sub(i,i),["1"]=_d:sub(i,i)}or baa)end;d_a[nLine]=table.concat(caa) +_aa[nLine]=table.concat(daa)end;return{b_a,d_a,_aa}end;local bc=da("xmlParser") return -{VisualObject=function(bb)local cb=false -local db={setShadow=function(_c,ac)cb=ac -_c:updateDraw()return _c end,getShadow=function(_c)return cb end,draw=function(_c)bb.draw(_c) -_c:addDraw("shadow",function() -if( -cb~=false)then local ac,bc=_c:getSize() -if(cb)then -_c:addBackgroundBox(ac+1,2,1,bc,cb)_c:addBackgroundBox(2,bc+1,ac,1,cb) -_c:addForegroundBox(ac+1,2,1,bc,cb)_c:addForegroundBox(2,bc+1,ac,1,cb)end end end)end}return db end}end +{Label=function(cc)local dc=1;local _d +local ad={setFontSize=function(bd,cd) +if(type(cd)=="number")then dc=cd +if(dc>1)then +bd:setDrawState("label",false) +_d=ac(dc-1,bd:getText(),bd:getForeground(),bd:getBackground()or colors.lightGray)if(bd:getAutoSize())then +bd:getBase():setSize(#_d[1][1],#_d[1]-1)end else +bd:setDrawState("label",true)end;bd:updateDraw()end;return bd end,getFontSize=function(bd)return +dc end,getSize=function(bd)local cd,dd=cc.getSize(bd) +if +(dc>1)and(bd:getAutoSize())then +return dc==2 and bd:getText():len()*3 or math.floor( +bd:getText():len()*8.5), +dc==2 and dd*2 or math.floor(dd)else return cd,dd end end,getWidth=function(bd) +local cd=cc.getWidth(bd)if(dc>1)and(bd:getAutoSize())then return dc==2 and +bd:getText():len()*3 or +math.floor(bd:getText():len()*8.5)else +return cd end end,getHeight=function(bd) +local cd=cc.getHeight(bd)if(dc>1)and(bd:getAutoSize())then return +dc==2 and cd*2 or math.floor(cd)else return cd end end,draw=function(bd) +cc.draw(bd) +bd:addDraw("bigfonts",function() +if(dc>1)then local cd,dd=bd:getPosition()local __a=bd:getParent() +local a_a,b_a=__a:getSize()local c_a,d_a=#_d[1][1],#_d[1]cd=cd or +math.floor((a_a-c_a)/2)+1;dd=dd or +math.floor((b_a-d_a)/2)+1 +for i=1,d_a do bd:addFG(1,i,_d[2][i]) +bd:addBG(1,i,_d[3][i])bd:addText(1,i,_d[1][i])end end end)end}return ad end}end aa["plugins"]["animations"]=function(...) local ab,bb,cb,db,_c,ac=math.floor,math.sin,math.cos,math.pi,math.sqrt,math.pow;local function bc(aab,bab,cab)return aab+ (bab-aab)*cab end local function cc(aab)return aab end;local function dc(aab)return 1 -aab end @@ -378,187 +509,20 @@ return cb end,getBackgroundSymbolColor=function(ac)return db end,draw=function(a ac:addDraw("advanced-bg",function() local bc,cc=ac:getSize() if(cb~=false)then ac:addTextBox(1,1,bc,cc,cb:sub(1,1))if(cb~=" ")then -ac:addForegroundBox(1,1,bc,cc,db)end end end,2)end}return _c end}end -aa["plugins"]["bigfonts"]=function(...)local ab=da("tHex") -local bb={{"\32\32\32\137\156\148\158\159\148\135\135\144\159\139\32\136\157\32\159\139\32\32\143\32\32\143\32\32\32\32\32\32\32\32\147\148\150\131\148\32\32\32\151\140\148\151\140\147","\32\32\32\149\132\149\136\156\149\144\32\133\139\159\129\143\159\133\143\159\133\138\32\133\138\32\133\32\32\32\32\32\32\150\150\129\137\156\129\32\32\32\133\131\129\133\131\132","\32\32\32\130\131\32\130\131\32\32\129\32\32\32\32\130\131\32\130\131\32\32\32\32\143\143\143\32\32\32\32\32\32\130\129\32\130\135\32\32\32\32\131\32\32\131\32\131","\139\144\32\32\143\148\135\130\144\149\32\149\150\151\149\158\140\129\32\32\32\135\130\144\135\130\144\32\149\32\32\139\32\159\148\32\32\32\32\159\32\144\32\148\32\147\131\132","\159\135\129\131\143\149\143\138\144\138\32\133\130\149\149\137\155\149\159\143\144\147\130\132\32\149\32\147\130\132\131\159\129\139\151\129\148\32\32\139\131\135\133\32\144\130\151\32","\32\32\32\32\32\32\130\135\32\130\32\129\32\129\129\131\131\32\130\131\129\140\141\132\32\129\32\32\129\32\32\32\32\32\32\32\131\131\129\32\32\32\32\32\32\32\32\32","\32\32\32\32\149\32\159\154\133\133\133\144\152\141\132\133\151\129\136\153\32\32\154\32\159\134\129\130\137\144\159\32\144\32\148\32\32\32\32\32\32\32\32\32\32\32\151\129","\32\32\32\32\133\32\32\32\32\145\145\132\141\140\132\151\129\144\150\146\129\32\32\32\138\144\32\32\159\133\136\131\132\131\151\129\32\144\32\131\131\129\32\144\32\151\129\32","\32\32\32\32\129\32\32\32\32\130\130\32\32\129\32\129\32\129\130\129\129\32\32\32\32\130\129\130\129\32\32\32\32\32\32\32\32\133\32\32\32\32\32\129\32\129\32\32","\150\156\148\136\149\32\134\131\148\134\131\148\159\134\149\136\140\129\152\131\32\135\131\149\150\131\148\150\131\148\32\148\32\32\148\32\32\152\129\143\143\144\130\155\32\134\131\148","\157\129\149\32\149\32\152\131\144\144\131\148\141\140\149\144\32\149\151\131\148\32\150\32\150\131\148\130\156\133\32\144\32\32\144\32\130\155\32\143\143\144\32\152\129\32\134\32","\130\131\32\131\131\129\131\131\129\130\131\32\32\32\129\130\131\32\130\131\32\32\129\32\130\131\32\130\129\32\32\129\32\32\133\32\32\32\129\32\32\32\130\32\32\32\129\32","\150\140\150\137\140\148\136\140\132\150\131\132\151\131\148\136\147\129\136\147\129\150\156\145\138\143\149\130\151\32\32\32\149\138\152\129\149\32\32\157\152\149\157\144\149\150\131\148","\149\143\142\149\32\149\149\32\149\149\32\144\149\32\149\149\32\32\149\32\32\149\32\149\149\32\149\32\149\32\144\32\149\149\130\148\149\32\32\149\32\149\149\130\149\149\32\149","\130\131\129\129\32\129\131\131\32\130\131\32\131\131\32\131\131\129\129\32\32\130\131\32\129\32\129\130\131\32\130\131\32\129\32\129\131\131\129\129\32\129\129\32\129\130\131\32","\136\140\132\150\131\148\136\140\132\153\140\129\131\151\129\149\32\149\149\32\149\149\32\149\137\152\129\137\152\129\131\156\133\149\131\32\150\32\32\130\148\32\152\137\144\32\32\32","\149\32\32\149\159\133\149\32\149\144\32\149\32\149\32\149\32\149\150\151\129\138\155\149\150\130\148\32\149\32\152\129\32\149\32\32\32\150\32\32\149\32\32\32\32\32\32\32","\129\32\32\130\129\129\129\32\129\130\131\32\32\129\32\130\131\32\32\129\32\129\32\129\129\32\129\32\129\32\131\131\129\130\131\32\32\32\129\130\131\32\32\32\32\140\140\132","\32\154\32\159\143\32\149\143\32\159\143\32\159\144\149\159\143\32\159\137\145\159\143\144\149\143\32\32\145\32\32\32\145\149\32\144\32\149\32\143\159\32\143\143\32\159\143\32","\32\32\32\152\140\149\151\32\149\149\32\145\149\130\149\157\140\133\32\149\32\154\143\149\151\32\149\32\149\32\144\32\149\149\153\32\32\149\32\149\133\149\149\32\149\149\32\149","\32\32\32\130\131\129\131\131\32\130\131\32\130\131\129\130\131\129\32\129\32\140\140\129\129\32\129\32\129\32\137\140\129\130\32\129\32\130\32\129\32\129\129\32\129\130\131\32","\144\143\32\159\144\144\144\143\32\159\143\144\159\138\32\144\32\144\144\32\144\144\32\144\144\32\144\144\32\144\143\143\144\32\150\129\32\149\32\130\150\32\134\137\134\134\131\148","\136\143\133\154\141\149\151\32\129\137\140\144\32\149\32\149\32\149\154\159\133\149\148\149\157\153\32\154\143\149\159\134\32\130\148\32\32\149\32\32\151\129\32\32\32\32\134\32","\133\32\32\32\32\133\129\32\32\131\131\32\32\130\32\130\131\129\32\129\32\130\131\129\129\32\129\140\140\129\131\131\129\32\130\129\32\129\32\130\129\32\32\32\32\32\129\32","\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32","\32\32\32\32\32\32\32\32\32\32\32\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\32\32\32\32\32\32\32\32\32\32\32","\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32","\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32","\32\32\32\32\32\32\32\32\32\32\32\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\32\32\32\32\32\32\32\32\32\32\32","\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32","\32\32\32\32\145\32\159\139\32\151\131\132\155\143\132\134\135\145\32\149\32\158\140\129\130\130\32\152\147\155\157\134\32\32\144\144\32\32\32\32\32\32\152\131\155\131\131\129","\32\32\32\32\149\32\149\32\145\148\131\32\149\32\149\140\157\132\32\148\32\137\155\149\32\32\32\149\154\149\137\142\32\153\153\32\131\131\149\131\131\129\149\135\145\32\32\32","\32\32\32\32\129\32\130\135\32\131\131\129\134\131\132\32\129\32\32\129\32\131\131\32\32\32\32\130\131\129\32\32\32\32\129\129\32\32\32\32\32\32\130\131\129\32\32\32","\150\150\32\32\148\32\134\32\32\132\32\32\134\32\32\144\32\144\150\151\149\32\32\32\32\32\32\145\32\32\152\140\144\144\144\32\133\151\129\133\151\129\132\151\129\32\145\32","\130\129\32\131\151\129\141\32\32\142\32\32\32\32\32\149\32\149\130\149\149\32\143\32\32\32\32\142\132\32\154\143\133\157\153\132\151\150\148\151\158\132\151\150\148\144\130\148","\32\32\32\140\140\132\32\32\32\32\32\32\32\32\32\151\131\32\32\129\129\32\32\32\32\134\32\32\32\32\32\32\32\129\129\32\129\32\129\129\130\129\129\32\129\130\131\32","\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\159\142\32\150\151\129\150\131\132\140\143\144\143\141\145\137\140\148\141\141\144\157\142\32\159\140\32\151\134\32\157\141\32","\157\140\149\157\140\149\157\140\149\157\140\149\157\140\149\157\140\149\151\151\32\154\143\132\157\140\32\157\140\32\157\140\32\157\140\32\32\149\32\32\149\32\32\149\32\32\149\32","\129\32\129\129\32\129\129\32\129\129\32\129\129\32\129\129\32\129\129\131\129\32\134\32\131\131\129\131\131\129\131\131\129\131\131\129\130\131\32\130\131\32\130\131\32\130\131\32","\151\131\148\152\137\145\155\140\144\152\142\145\153\140\132\153\137\32\154\142\144\155\159\132\150\156\148\147\32\144\144\130\145\136\137\32\146\130\144\144\130\145\130\136\32\151\140\132","\151\32\149\151\155\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\152\137\144\157\129\149\149\32\149\149\32\149\149\32\149\149\32\149\130\150\32\32\157\129\149\32\149","\131\131\32\129\32\129\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\32\32\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\129\32\130\131\32\133\131\32","\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\159\142\32\159\159\144\152\140\144\156\143\32\159\141\129\153\140\132\157\141\32\130\145\32\32\147\32\136\153\32\130\146\32","\152\140\149\152\140\149\152\140\149\152\140\149\152\140\149\152\140\149\149\157\134\154\143\132\157\140\133\157\140\133\157\140\133\157\140\133\32\149\32\32\149\32\32\149\32\32\149\32","\130\131\129\130\131\129\130\131\129\130\131\129\130\131\129\130\131\129\130\130\131\32\134\32\130\131\129\130\131\129\130\131\129\130\131\129\32\129\32\32\129\32\32\129\32\32\129\32","\159\134\144\137\137\32\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\32\132\32\159\143\32\147\32\144\144\130\145\136\137\32\146\130\144\144\130\145\130\138\32\146\130\144","\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\131\147\129\138\134\149\149\32\149\149\32\149\149\32\149\149\32\149\154\143\149\32\157\129\154\143\149","\130\131\32\129\32\129\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\32\32\130\131\32\130\131\129\130\131\129\130\131\129\130\131\129\140\140\129\130\131\32\140\140\129"},{"000110000110110000110010101000000010000000100101","000000110110000000000010101000000010000000100101","000000000000000000000000000000000000000000000000","100010110100000010000110110000010100000100000110","000000110000000010110110000110000000000000110000","000000000000000000000000000000000000000000000000","000000110110000010000000100000100000000000000010","000000000110110100010000000010000000000000000100","000000000000000000000000000000000000000000000000","010000000000100110000000000000000000000110010000","000000000000000000000000000010000000010110000000","000000000000000000000000000000000000000000000000","011110110000000100100010110000000100000000000000","000000000000000000000000000000000000000000000000","000000000000000000000000000000000000000000000000","110000110110000000000000000000010100100010000000","000010000000000000110110000000000100010010000000","000000000000000000000000000000000000000000000000","010110010110100110110110010000000100000110110110","000000000000000000000110000000000110000000000000","000000000000000000000000000000000000000000000000","010100010110110000000000000000110000000010000000","110110000000000000110000110110100000000010000000","000000000000000000000000000000000000000000000000","000100011111000100011111000100011111000100011111","000000000000100100100100011011011011111111111111","000000000000000000000000000000000000000000000000","000100011111000100011111000100011111000100011111","000000000000100100100100011011011011111111111111","100100100100100100100100100100100100100100100100","000000110100110110000010000011110000000000011000","000000000100000000000010000011000110000000001000","000000000000000000000000000000000000000000000000","010000100100000000000000000100000000010010110000","000000000000000000000000000000110110110110110000","000000000000000000000000000000000000000000000000","110110110110110110000000110110110110110110110110","000000000000000000000110000000000000000000000000","000000000000000000000000000000000000000000000000","000000000000110110000110010000000000000000010010","000010000000000000000000000000000000000000000000","000000000000000000000000000000000000000000000000","110110110110110110110000110110110110000000000000","000000000000000000000110000000000000000000000000","000000000000000000000000000000000000000000000000","110110110110110110110000110000000000000000010000","000000000000000000000000100000000000000110000110","000000000000000000000000000000000000000000000000"}}local cb={}local db={} -do local cc=0;local dc=#bb[1]local _d=#bb[1][1] -for i=1,dc,3 do -for j=1,_d,3 do -local ad=string.char(cc)local bd={}bd[1]=bb[1][i]:sub(j,j+2) -bd[2]=bb[1][i+1]:sub(j,j+2)bd[3]=bb[1][i+2]:sub(j,j+2)local cd={}cd[1]=bb[2][i]:sub(j, -j+2)cd[2]=bb[2][i+1]:sub(j,j+2)cd[3]=bb[2][ -i+2]:sub(j,j+2)db[ad]={bd,cd}cc=cc+1 end end;cb[1]=db end -local function _c(cc,dc)local _d={["0"]="1",["1"]="0"}if cc<=#cb then return true end -for f=#cb+1,cc do local ad={}local bd=cb[ -f-1] -for char=0,255 do local cd=string.char(char)local dd={}local __a={} -local a_a=bd[cd][1]local b_a=bd[cd][2] -for i=1,#a_a do local c_a,d_a,_aa,aaa,baa,caa={},{},{},{},{},{} -for j=1,#a_a[1]do -local daa=db[a_a[i]:sub(j,j)][1]table.insert(c_a,daa[1]) -table.insert(d_a,daa[2])table.insert(_aa,daa[3]) -local _ba=db[a_a[i]:sub(j,j)][2] -if b_a[i]:sub(j,j)=="1"then -table.insert(aaa,(_ba[1]:gsub("[01]",_d))) -table.insert(baa,(_ba[2]:gsub("[01]",_d))) -table.insert(caa,(_ba[3]:gsub("[01]",_d)))else table.insert(aaa,_ba[1]) -table.insert(baa,_ba[2])table.insert(caa,_ba[3])end end;table.insert(dd,table.concat(c_a)) -table.insert(dd,table.concat(d_a))table.insert(dd,table.concat(_aa)) -table.insert(__a,table.concat(aaa))table.insert(__a,table.concat(baa)) -table.insert(__a,table.concat(caa))end;ad[cd]={dd,__a}if dc then dc="Font"..f.."Yeld"..char -os.queueEvent(dc)os.pullEvent(dc)end end;cb[f]=ad end;return true end -local function ac(cc,dc,_d,ad,bd) -if not type(dc)=="string"then error("Not a String",3)end -local cd=type(_d)=="string"and _d:sub(1,1)or ab[_d]or -error("Wrong Front Color",3) -local dd=type(ad)=="string"and ad:sub(1,1)or ab[ad]or -error("Wrong Back Color",3)if(cb[cc]==nil)then _c(3,false)end;local __a=cb[cc]or -error("Wrong font size selected",3)if dc==""then -return{{""},{""},{""}}end;local a_a={} -for caa in dc:gmatch('.')do table.insert(a_a,caa)end;local b_a={}local c_a=#__a[a_a[1]][1] -for nLine=1,c_a do local caa={}for i=1,#a_a do -caa[i]= -__a[a_a[i]]and __a[a_a[i]][1][nLine]or""end;b_a[nLine]=table.concat(caa)end;local d_a={}local _aa={}local aaa={["0"]=cd,["1"]=dd}local baa={["0"]=dd,["1"]=cd} -for nLine=1,c_a do -local caa={}local daa={} -for i=1,#a_a do -local _ba=__a[a_a[i]]and __a[a_a[i]][2][nLine]or"" -caa[i]=_ba:gsub("[01]", -bd and{["0"]=_d:sub(i,i),["1"]=ad:sub(i,i)}or aaa) -daa[i]=_ba:gsub("[01]", -bd and{["0"]=ad:sub(i,i),["1"]=_d:sub(i,i)}or baa)end;d_a[nLine]=table.concat(caa) -_aa[nLine]=table.concat(daa)end;return{b_a,d_a,_aa}end;local bc=da("xmlParser") +ac:addForegroundBox(1,1,bc,cc,db)end end end,2)end}return _c end}end;aa["libraries"]={} +aa["libraries"]["basaltDraw"]=function(...) +local ab=da("tHex")local bb=da("utils")local cb=bb.splitString;local db,_c=string.sub,string.rep return -{Label=function(cc)local dc=1;local _d -local ad={setFontSize=function(bd,cd) -if(type(cd)=="number")then dc=cd -if(dc>1)then -bd:setDrawState("label",false) -_d=ac(dc-1,bd:getText(),bd:getForeground(),bd:getBackground()or colors.lightGray)if(bd:getAutoSize())then -bd:getBase():setSize(#_d[1][1],#_d[1]-1)end else -bd:setDrawState("label",true)end;bd:updateDraw()end;return bd end,getFontSize=function(bd)return -dc end,getSize=function(bd)local cd,dd=cc.getSize(bd) -if -(dc>1)and(bd:getAutoSize())then -return dc==2 and bd:getText():len()*3 or math.floor( -bd:getText():len()*8.5), -dc==2 and dd*2 or math.floor(dd)else return cd,dd end end,getWidth=function(bd) -local cd=cc.getWidth(bd)if(dc>1)and(bd:getAutoSize())then return dc==2 and -bd:getText():len()*3 or -math.floor(bd:getText():len()*8.5)else -return cd end end,getHeight=function(bd) -local cd=cc.getHeight(bd)if(dc>1)and(bd:getAutoSize())then return -dc==2 and cd*2 or math.floor(cd)else return cd end end,draw=function(bd) -cc.draw(bd) -bd:addDraw("bigfonts",function() -if(dc>1)then local cd,dd=bd:getPosition()local __a=bd:getParent() -local a_a,b_a=__a:getSize()local c_a,d_a=#_d[1][1],#_d[1]cd=cd or -math.floor((a_a-c_a)/2)+1;dd=dd or -math.floor((b_a-d_a)/2)+1 -for i=1,d_a do bd:addFG(1,i,_d[2][i]) -bd:addBG(1,i,_d[3][i])bd:addText(1,i,_d[1][i])end end end)end}return ad end}end -aa["plugins"]["themes"]=function(...) -local ab={BaseFrameBG=colors.lightGray,BaseFrameText=colors.black,FrameBG=colors.gray,FrameText=colors.black,ButtonBG=colors.gray,ButtonText=colors.black,CheckboxBG=colors.lightGray,CheckboxText=colors.black,InputBG=colors.black,InputText=colors.lightGray,TextfieldBG=colors.black,TextfieldText=colors.white,ListBG=colors.gray,ListText=colors.black,MenubarBG=colors.gray,MenubarText=colors.black,DropdownBG=colors.gray,DropdownText=colors.black,RadioBG=colors.gray,RadioText=colors.black,SelectionBG=colors.black,SelectionText=colors.lightGray,GraphicBG=colors.black,ImageBG=colors.black,PaneBG=colors.black,ProgramBG=colors.black,ProgressbarBG=colors.gray,ProgressbarText=colors.black,ProgressbarActiveBG=colors.black,ScrollbarBG=colors.lightGray,ScrollbarText=colors.gray,ScrollbarSymbolColor=colors.black,SliderBG=false,SliderText=colors.gray,SliderSymbolColor=colors.black,SwitchBG=colors.lightGray,SwitchText=colors.gray,LabelBG=false,LabelText=colors.black,GraphBG=colors.gray,GraphText=colors.black} -local bb={Container=function(cb,db,_c)local ac={} -local bc={getTheme=function(cc,dc)local _d=cc:getParent()return ac[dc]or(_d~=nil and _d:getTheme(dc)or -ab[dc])end,setTheme=function(cc,dc,_d) -if( -type(dc)=="table")then ac=dc elseif(type(dc)=="string")then ac[dc]=_d end;cc:updateDraw()return cc end}return bc end,basalt=function() -return -{getTheme=function(cb)return -ab[cb]end,setTheme=function(cb,db)if(type(cb)=="table")then ab=cb elseif(type(cb)=="string")then -ab[cb]=db end end}end} -for cb,db in -pairs({"BaseFrame","Frame","ScrollableFrame","MovableFrame","Button","Checkbox","Dropdown","Graph","Graphic","Input","Label","List","Menubar","Pane","Program","Progressbar","Radio","Scrollbar","Slider","Switch","Textfield"})do -bb[db]=function(_c,ac,bc) -local cc={init=function(dc)if(_c.init(dc))then local _d=dc:getParent()or dc -dc:setBackground(_d:getTheme(db.."BG")) -dc:setForeground(_d:getTheme(db.."Text"))end end}return cc end end;return bb end -aa["plugins"]["textures"]=function(...)local ab=da("images")local bb=da("utils") -local cb=da("xmlParser") -return -{VisualObject=function(db)local _c,ac=1,true;local bc,cc,dc;local _d="default" -local ad={addTexture=function(bd,cd,dd)bc=ab.loadImageAsBimg(cd) -cc=bc[1] -if(dd)then if(bc.animated)then bd:listenEvent("other_event")local __a=bc[_c].duration or -bc.secondsPerFrame or 0.2 -dc=os.startTimer(__a)end end;bd:setBackground(false)bd:setForeground(false) -bd:setDrawState("texture-base",true)bd:updateDraw()return bd end,setTextureMode=function(bd,cd)_d= -cd or _d;bd:updateDraw()return bd end,setInfinitePlay=function(bd,cd)ac=cd -return bd end,eventHandler=function(bd,cd,dd,...)db.eventHandler(bd,cd,dd,...) -if(cd=="timer")then -if -(dd==dc)then -if(bc[_c+1]~=nil)then _c=_c+1;cc=bc[_c]local __a= -bc[_c].duration or bc.secondsPerFrame or 0.2 -dc=os.startTimer(__a)bd:updateDraw()else -if(ac)then _c=1;cc=bc[1]local __a= -bc[_c].duration or bc.secondsPerFrame or 0.2 -dc=os.startTimer(__a)bd:updateDraw()end end end end end,draw=function(bd) -db.draw(bd) -bd:addDraw("texture-base",function()local cd=bd:getParent()or bd -local dd,__a=bd:getPosition()local a_a,b_a=bd:getSize()local c_a,d_a=cd:getSize()local _aa=bc.width or -#bc[_c][1][1]local aaa=bc.height or#bc[_c] -local baa,caa=0,0 -if(_d=="center")then -baa=dd+math.floor((a_a-_aa)/2 +0.5)-1 -caa=__a+math.floor((b_a-aaa)/2 +0.5)-1 elseif(_d=="default")then baa,caa=dd,__a elseif(_d=="right")then -baa,caa=dd+a_a-_aa,__a+b_a-aaa end;local daa=dd-baa;local _ba=__a-caa;if baa
dd+a_a then -_aa=(dd+a_a)-baa end -if caa+aaa>__a+b_a then aaa=(__a+b_a)-caa end -for k=1,aaa do if(cc[k+_ba]~=nil)then local aba,bba,cba=table.unpack(cc[k+_ba]) -bd:addBlit(1,k,aba:sub(daa, -daa+_aa),bba:sub(daa,daa+_aa),cba:sub(daa,daa+_aa))end end end,1)bd:setDrawState("texture-base",false)end}return ad end}end;aa["libraries"]={} -aa["libraries"]["process"]=function(...)local ab={}local bb={}local cb=0 -local db=dofile("rom/modules/main/cc/require.lua").make -function bb:new(_c,ac,bc,...)local cc={...} -local dc=setmetatable({path=_c},{__index=self})dc.window=ac;ac.current=term.current;ac.redirect=term.redirect -dc.processId=cb -if(type(_c)=="string")then -dc.coroutine=coroutine.create(function() -local _d=shell.resolveProgram(_c)local ad=setmetatable(bc,{__index=_ENV})ad.shell=shell -ad.basaltProgram=true;ad.arg={[0]=_c,table.unpack(cc)} -if(_d==nil)then error("The path ".._c.. -" does not exist!")end;ad.require,ad.package=db(ad,fs.getDir(_d)) -if(fs.exists(_d))then -local bd=fs.open(_d,"r")local cd=bd.readAll()bd.close()local dd=load(cd,_c,"bt",ad)if(dd~=nil)then return -dd()end end end)elseif(type(_c)=="function")then -dc.coroutine=coroutine.create(function() -_c(table.unpack(cc))end)else return end;ab[cb]=dc;cb=cb+1;return dc end -function bb:resume(_c,...)local ac=term.current()term.redirect(self.window) -if( -self.filter~=nil)then if(_c~=self.filter)then return end;self.filter=nil end;local bc,cc=coroutine.resume(self.coroutine,_c,...)if bc then -self.filter=cc else printError(cc)end;term.redirect(ac) -return bc,cc end -function bb:isDead() -if(self.coroutine~=nil)then -if -(coroutine.status(self.coroutine)=="dead")then table.remove(ab,self.processId)return true end else return true end;return false end -function bb:getStatus()if(self.coroutine~=nil)then -return coroutine.status(self.coroutine)end;return nil end -function bb:start()coroutine.resume(self.coroutine)end;return bb end -aa["libraries"]["basaltLogs"]=function(...)local ab=""local bb="basaltLog.txt"local cb="Debug" -fs.delete( -ab~=""and ab.."/"..bb or bb) -local db={__call=function(_c,ac,bc)if(ac==nil)then return end -local cc=ab~=""and ab.."/"..bb or bb -local dc=fs.open(cc,fs.exists(cc)and"a"or"w") -dc.writeLine("[Basalt][".. -os.date("%Y-%m-%d %H:%M:%S").."][".. (bc and bc or cb).. -"]: "..tostring(ac))dc.close()end}return setmetatable({},db)end -aa["libraries"]["basaltDraw"]=function(...)local ab=da("tHex")local bb=da("utils") -local cb=bb.splitString;local db,_c=string.sub,string.rep -return -function(ac)local bc=ac or term.current() -local cc;local dc,_d=bc.getSize()local ad={}local bd={}local cd={}local dd;local __a={} -local function a_a()dd=_c(" ",dc)for n=0,15 do -local caa=2 ^n;local daa=ab[caa]__a[caa]=_c(daa,dc)end end;a_a() -local function b_a()a_a()local caa=dd;local daa=__a[colors.white] -local _ba=__a[colors.black] +function(ac)local bc=ac or +term.current()local cc;local dc,_d=bc.getSize()local ad={}local bd={}local cd={} +local dd;local __a={}local function a_a()dd=_c(" ",dc) +for n=0,15 do local caa=2 ^n;local daa=ab[caa]__a[caa]=_c(daa,dc)end end;a_a() +local function b_a()a_a()local caa=dd +local daa=__a[colors.white]local _ba=__a[colors.black] for currentY=1,_d do -ad[currentY]=db(ad[currentY]==nil and caa or ad[currentY]..caa:sub(1,dc- -ad[currentY]:len()),1,dc) +ad[currentY]=db( +ad[currentY]==nil and caa or +ad[currentY]..caa:sub(1,dc-ad[currentY]:len()),1,dc) cd[currentY]=db(cd[currentY]==nil and daa or cd[currentY]..daa:sub(1,dc- cd[currentY]:len()),1,dc) bd[currentY]=db(bd[currentY]==nil and _ba or bd[currentY].._ba:sub(1,dc- @@ -612,186 +576,6 @@ bc.setCursorBlink(_ba)bc.setCursorPos(caa,daa) if(cc~=nil)then cc.setBackgroundColor(colors.black)cc.setCursorBlink(_ba)cc.setCursorPos(caa,daa)end end,setTerm=function(caa) bc=caa end}return baa end end -aa["libraries"]["tHex"]=function(...)local ab={} -for i=0,15 do ab[2 ^i]=("%x"):format(i)end;return ab end -aa["libraries"]["images"]=function(...)local ab,bb=string.sub,math.floor;local function cb(ad)return -{[1]={{},{},paintutils.loadImage(ad)}},"bimg"end;local function db(ad)return -paintutils.loadImage(ad),"nfp"end -local function _c(ad,bd) -local cd=fs.open(ad,bd and"rb"or"r")if(cd==nil)then -error("Path - "..ad.." doesn't exist!")end -local dd=textutils.unserialize(cd.readAll())cd.close()if(dd~=nil)then return dd,"bimg"end end;local function ac(ad)end;local function bc(ad)end;local function cc(ad,bd,cd) -if(ab(ad,-4)==".bimg")then return _c(ad,cd)elseif -(ab(ad,-3)==".bbf")then return ac(ad,cd)else return db(ad,cd)end end;local function dc(ad) -if -(ad:find(".bimg"))then return _c(ad)elseif(ad:find(".bbf"))then return bc(ad)else return cb(ad)end end -local function _d(ad,bd,cd)local dd,__a=ad.width or# -ad[1][1][1],ad.height or#ad[1]local a_a={} -for b_a,c_a in -pairs(ad)do -if(type(b_a)=="number")then local d_a={} -for y=1,cd do local _aa,aaa,baa="","","" -local caa=bb(y/cd*__a+0.5) -if(c_a[caa]~=nil)then -for x=1,bd do local daa=bb(x/bd*dd+0.5)_aa=_aa.. -ab(c_a[caa][1],daa,daa) -aaa=aaa..ab(c_a[caa][2],daa,daa)baa=baa..ab(c_a[caa][3],daa,daa)end;table.insert(d_a,{_aa,aaa,baa})end end;table.insert(a_a,b_a,d_a)else a_a[b_a]=c_a end end;a_a.width=bd;a_a.height=cd;return a_a end -return{loadNFP=db,loadBIMG=_c,loadImage=cc,resizeBIMG=_d,loadImageAsBimg=dc}end -aa["libraries"]["basaltEvent"]=function(...) -return -function()local ab={} -local bb={registerEvent=function(cb,db,_c) -if(ab[db]==nil)then ab[db]={}end;table.insert(ab[db],_c)end,removeEvent=function(cb,db,_c)ab[db][_c[db]]= -nil end,hasEvent=function(cb,db)return ab[db]~=nil end,getEventCount=function(cb,db)return -ab[db]~=nil and#ab[db]or 0 end,getEvents=function(cb) -local db={}for _c,ac in pairs(ab)do table.insert(db,_c)end;return db end,clearEvent=function(cb,db)ab[db]= -nil end,clear=function(cb,db)ab={}end,sendEvent=function(cb,db,...)local _c -if(ab[db]~=nil)then for ac,bc in pairs(ab[db])do -local cc=bc(...)if(cc==false)then _c=cc end end end;return _c end}bb.__index=bb;return bb end end -aa["libraries"]["utils"]=function(...)local ab=da("tHex") -local bb,cb,db,_c,ac,bc=string.sub,string.find,string.reverse,string.rep,table.insert,string.len -local function cc(cd,dd)local __a={}if cd==""or dd==""then return __a end;local a_a=1 -local b_a,c_a=cb(cd,dd,a_a)while b_a do ac(__a,bb(cd,a_a,b_a-1))a_a=c_a+1 -b_a,c_a=cb(cd,dd,a_a)end;ac(__a,bb(cd,a_a))return __a end;local function dc(cd)return cd:gsub("{[^}]+}","")end -local function _d(cd,dd)cd=dc(cd)if -(cd=="")or(dd==0)then return{""}end;local __a=cc(cd,"\n")local a_a={} -for b_a,c_a in -pairs(__a)do -if#c_a==0 then table.insert(a_a,"")else -while#c_a>dd do local d_a=dd;for i=dd,1,-1 do if bb(c_a,i,i)==" "then -d_a=i;break end end -if d_a==dd then -local _aa=bb(c_a,1,d_a-1).."-"table.insert(a_a,_aa)c_a=bb(c_a,d_a)else -local _aa=bb(c_a,1,d_a-1)table.insert(a_a,_aa)c_a=bb(c_a,d_a+1)end;if#c_a<=dd then break end end;if#c_a>0 then table.insert(a_a,c_a)end end end;return a_a end -local function ad(cd)local dd={}local __a=1;local a_a=1 -while __a<=#cd do local b_a,c_a;local d_a,_aa;local aaa,baa -for _ba,aba in pairs(colors)do -local bba="{fg:".._ba.."}"local cba="{bg:".._ba.."}"local dba,_ca=cd:find(bba,__a) -local aca,bca=cd:find(cba,__a) -if dba and(not b_a or dba0 then -table.insert(dd,{color=nil,bgColor=nil,text=daa,position=a_a})a_a=a_a+#daa;__a=__a+#daa end -if b_a and(not c_a or b_a1 then if b_a+1 +bba<=dd then aaa({text=" "})b_a=b_a+1 else b_a=1;c_a=c_a+ -1 end end;while bba>0 do local cba=aba:sub(1,dd-b_a+1) -aba=aba:sub(dd-b_a+2)bba=#aba;aaa({text=cba}) -if bba>0 then b_a=1;c_a=c_a+1 else b_a=b_a+#cba end end end end;if b_a>dd then b_a=1;c_a=c_a+1 end end;return a_a end -return -{getTextHorizontalAlign=function(cd,dd,__a,a_a)cd=bb(cd,1,dd)local b_a=dd-bc(cd) -if(__a=="right")then -cd=_c(a_a or" ",b_a)..cd elseif(__a=="center")then -cd=_c(a_a or" ",math.floor(b_a/2))..cd.._c(a_a or" ",math.floor( -b_a/2)) -cd=cd.. (bc(cd)
c_a)then break end -if(aaa.text~=nil)then cd:addText(dd+aaa.x-1,__a+ -aaa.y-1,aaa.text)end;if(aaa.color~=nil)then -cd:addFG(dd+aaa.x-1,__a+aaa.y-1,ab[colors[aaa.color]]:rep( -#aaa.text))end;if(aaa.bgColor~=nil)then -cd:addBG(dd+ -aaa.x-1,__a+aaa.y-1,ab[colors[aaa.bgColor]]:rep(# -aaa.text))end end end,uuid=function() -return -string.gsub(string.format('%x-%x-%x-%x-%x',math.random(0,0xffff),math.random(0,0xffff),math.random(0,0xffff), -math.random(0,0x0fff)+0x4000,math.random(0,0x3fff)+0x8000),' ','0')end}end -aa["libraries"]["basaltMon"]=function(...) -local ab={[colors.white]="0",[colors.orange]="1",[colors.magenta]="2",[colors.lightBlue]="3",[colors.yellow]="4",[colors.lime]="5",[colors.pink]="6",[colors.gray]="7",[colors.lightGray]="8",[colors.cyan]="9",[colors.purple]="a",[colors.blue]="b",[colors.brown]="c",[colors.green]="d",[colors.red]="e",[colors.black]="f"}local bb,cb,db,_c=type,string.len,string.rep,string.sub -return -function(ac)local bc={} -for _ba,aba in pairs(ac)do -bc[_ba]={} -for bba,cba in pairs(aba)do local dba=peripheral.wrap(cba)if(dba==nil)then -error("Unable to find monitor "..cba)end;bc[_ba][bba]=dba -bc[_ba][bba].name=cba end end;local cc,dc,_d,ad,bd,cd,dd,__a=1,1,1,1,0,0,0,0;local a_a,b_a=false,1 -local c_a,d_a=colors.white,colors.black -local function _aa()local _ba,aba=0,0 -for bba,cba in pairs(bc)do local dba,_ca=0,0 -for aca,bca in pairs(cba)do local cca,dca=bca.getSize() -dba=dba+cca;_ca=dca>_ca and dca or _ca end;_ba=_ba>dba and _ba or dba;aba=aba+_ca end;dd,__a=_ba,aba end;_aa() -local function aaa()local _ba=0;local aba,bba=0,0 -for cba,dba in pairs(bc)do local _ca=0;local aca=0 -for bca,cca in pairs(dba)do -local dca,_da=cca.getSize()if(cc-_ca>=1)and(cc-_ca<=dca)then aba=bca end;cca.setCursorPos( -cc-_ca,dc-_ba)_ca=_ca+dca -if(aca<_da)then aca=_da end end;if(dc-_ba>=1)and(dc-_ba<=aca)then bba=cba end -_ba=_ba+aca end;_d,ad=aba,bba end;aaa() -local function baa(_ba,...)local aba={...}return -function()for bba,cba in pairs(bc)do for dba,_ca in pairs(cba)do -_ca[_ba](table.unpack(aba))end end end end -local function caa()baa("setCursorBlink",false)() -if not(a_a)then return end;if(bc[ad]==nil)then return end;local _ba=bc[ad][_d] -if(_ba==nil)then return end;_ba.setCursorBlink(a_a)end -local function daa(_ba,aba,bba)if(bc[ad]==nil)then return end;local cba=bc[ad][_d] -if(cba==nil)then return end;cba.blit(_ba,aba,bba)local dba,_ca=cba.getSize() -if -(cb(_ba)+cc>dba)then local aca=bc[ad][_d+1]if(aca~=nil)then aca.blit(_ba,aba,bba)_d=_d+1;cc=cc+ -cb(_ba)end end;aaa()end -return -{clear=baa("clear"),setCursorBlink=function(_ba)a_a=_ba;caa()end,getCursorBlink=function()return a_a end,getCursorPos=function()return cc,dc end,setCursorPos=function(_ba,aba) -cc,dc=_ba,aba;aaa()caa()end,setTextScale=function(_ba) -baa("setTextScale",_ba)()_aa()aaa()b_a=_ba end,getTextScale=function()return b_a end,blit=function(_ba,aba,bba) -daa(_ba,aba,bba)end,write=function(_ba)_ba=tostring(_ba)local aba=cb(_ba) -daa(_ba,db(ab[c_a],aba),db(ab[d_a],aba))end,getSize=function()return dd,__a end,setBackgroundColor=function(_ba) -baa("setBackgroundColor",_ba)()d_a=_ba end,setTextColor=function(_ba) -baa("setTextColor",_ba)()c_a=_ba end,calculateClick=function(_ba,aba,bba)local cba=0 -for dba,_ca in pairs(bc)do local aca=0;local bca=0 -for cca,dca in pairs(_ca)do -local _da,ada=dca.getSize()if(dca.name==_ba)then return aba+aca,bba+cba end -aca=aca+_da;if(ada>bca)then bca=ada end end;cba=cba+bca end;return aba,bba end}end end -aa["libraries"]["xmlParser"]=function(...) -local ab={new=function(db) -return -{tag=db,value=nil,attributes={},children={},addChild=function(_c,ac) -table.insert(_c.children,ac)end,addAttribute=function(_c,ac,bc)_c.attributes[ac]=bc end}end} -local bb=function(db,_c) -local ac,bc=string.gsub(_c,"(%w+)=([\"'])(.-)%2",function(_d,ad,bd) -db:addAttribute(_d,"\""..bd.."\"")end) -local cc,dc=string.gsub(_c,"(%w+)={(.-)}",function(_d,ad)db:addAttribute(_d,ad)end)end -local cb={parseText=function(db)local _c={}local ac=ab.new()table.insert(_c,ac)local bc,cc,dc,_d,ad;local bd,cd=1,1 -while true do -bc,cd,cc,dc,_d,ad=string.find(db,"<(%/?)([%w_:]+)(.-)(%/?)>",bd)if not bc then break end;local __a=string.sub(db,bd,bc-1)if not -string.find(__a,"^%s*$")then local a_a=(ac.value or"")..__a -_c[#_c].value=a_a end -if ad=="/"then local a_a=ab.new(dc) -bb(a_a,_d)ac:addChild(a_a)elseif cc==""then local a_a=ab.new(dc)bb(a_a,_d) -table.insert(_c,a_a)ac=a_a else local a_a=table.remove(_c)ac=_c[#_c] -if#_c<1 then error("XMLParser: nothing to close with ".. -dc)end;if a_a.tag~=dc then -error("XMLParser: trying to close "..a_a.tag.." with "..dc)end;ac:addChild(a_a)end;bd=cd+1 end;local dd=string.sub(db,bd)if#_c>1 then -error("XMLParser: unclosed ".._c[#_c].tag)end;return ac.children end}return cb end aa["libraries"]["bimg"]=function(...)local ab,bb=string.sub,string.rep local function cb(db,_c)local ac,bc=0,0 local cc,dc,_d={},{},{}local ad,bd=1,1;local cd={} @@ -883,6 +667,223 @@ for cd,dd in pairs(db)do if(type(cd)=="string")then ac[cd]=dd end end if(ac.width==nil)or(ac.height==nil)then bc=ac.width or#db[1][1][1]cc=ac.height or#db[1]dc.updateSize(bc,cc,true)end for cd,dd in pairs(db)do if(type(cd)=="number")then _d(cd,dd)end end else _d(1)end;return dc end end +aa["libraries"]["process"]=function(...)local ab={}local bb={}local cb=0 +local db=dofile("rom/modules/main/cc/require.lua").make +function bb:new(_c,ac,bc,...)local cc={...} +local dc=setmetatable({path=_c},{__index=self})dc.window=ac;ac.current=term.current;ac.redirect=term.redirect +dc.processId=cb +if(type(_c)=="string")then +dc.coroutine=coroutine.create(function() +local _d=shell.resolveProgram(_c)local ad=setmetatable(bc,{__index=_ENV})ad.shell=shell +ad.basaltProgram=true;ad.arg={[0]=_c,table.unpack(cc)} +if(_d==nil)then error("The path ".._c.. +" does not exist!")end;ad.require,ad.package=db(ad,fs.getDir(_d)) +if(fs.exists(_d))then +local bd=fs.open(_d,"r")local cd=bd.readAll()bd.close()local dd=load(cd,_c,"bt",ad)if(dd~=nil)then return +dd()end end end)elseif(type(_c)=="function")then +dc.coroutine=coroutine.create(function() +_c(table.unpack(cc))end)else return end;ab[cb]=dc;cb=cb+1;return dc end +function bb:resume(_c,...)local ac=term.current()term.redirect(self.window) +if( +self.filter~=nil)then if(_c~=self.filter)then return end;self.filter=nil end;local bc,cc=coroutine.resume(self.coroutine,_c,...)if bc then +self.filter=cc else printError(cc)end;term.redirect(ac) +return bc,cc end +function bb:isDead() +if(self.coroutine~=nil)then +if +(coroutine.status(self.coroutine)=="dead")then table.remove(ab,self.processId)return true end else return true end;return false end +function bb:getStatus()if(self.coroutine~=nil)then +return coroutine.status(self.coroutine)end;return nil end +function bb:start()coroutine.resume(self.coroutine)end;return bb end +aa["libraries"]["basaltEvent"]=function(...) +return +function()local ab={} +local bb={registerEvent=function(cb,db,_c) +if(ab[db]==nil)then ab[db]={}end;table.insert(ab[db],_c)end,removeEvent=function(cb,db,_c)ab[db][_c[db]]= +nil end,hasEvent=function(cb,db)return ab[db]~=nil end,getEventCount=function(cb,db)return +ab[db]~=nil and#ab[db]or 0 end,getEvents=function(cb) +local db={}for _c,ac in pairs(ab)do table.insert(db,_c)end;return db end,clearEvent=function(cb,db)ab[db]= +nil end,clear=function(cb,db)ab={}end,sendEvent=function(cb,db,...)local _c +if(ab[db]~=nil)then for ac,bc in pairs(ab[db])do +local cc=bc(...)if(cc==false)then _c=cc end end end;return _c end}bb.__index=bb;return bb end end +aa["libraries"]["basaltLogs"]=function(...)local ab=""local bb="basaltLog.txt"local cb="Debug" +fs.delete( +ab~=""and ab.."/"..bb or bb) +local db={__call=function(_c,ac,bc)if(ac==nil)then return end +local cc=ab~=""and ab.."/"..bb or bb +local dc=fs.open(cc,fs.exists(cc)and"a"or"w") +dc.writeLine("[Basalt][".. +os.date("%Y-%m-%d %H:%M:%S").."][".. (bc and bc or cb).. +"]: "..tostring(ac))dc.close()end}return setmetatable({},db)end +aa["libraries"]["images"]=function(...)local ab,bb=string.sub,math.floor;local function cb(ad)return +{[1]={{},{},paintutils.loadImage(ad)}},"bimg"end;local function db(ad)return +paintutils.loadImage(ad),"nfp"end +local function _c(ad,bd) +local cd=fs.open(ad,bd and"rb"or"r")if(cd==nil)then +error("Path - "..ad.." doesn't exist!")end +local dd=textutils.unserialize(cd.readAll())cd.close()if(dd~=nil)then return dd,"bimg"end end;local function ac(ad)end;local function bc(ad)end;local function cc(ad,bd,cd) +if(ab(ad,-4)==".bimg")then return _c(ad,cd)elseif +(ab(ad,-3)==".bbf")then return ac(ad,cd)else return db(ad,cd)end end;local function dc(ad) +if +(ad:find(".bimg"))then return _c(ad)elseif(ad:find(".bbf"))then return bc(ad)else return cb(ad)end end +local function _d(ad,bd,cd)local dd,__a=ad.width or# +ad[1][1][1],ad.height or#ad[1]local a_a={} +for b_a,c_a in +pairs(ad)do +if(type(b_a)=="number")then local d_a={} +for y=1,cd do local _aa,aaa,baa="","","" +local caa=bb(y/cd*__a+0.5) +if(c_a[caa]~=nil)then +for x=1,bd do local daa=bb(x/bd*dd+0.5)_aa=_aa.. +ab(c_a[caa][1],daa,daa) +aaa=aaa..ab(c_a[caa][2],daa,daa)baa=baa..ab(c_a[caa][3],daa,daa)end;table.insert(d_a,{_aa,aaa,baa})end end;table.insert(a_a,b_a,d_a)else a_a[b_a]=c_a end end;a_a.width=bd;a_a.height=cd;return a_a end +return{loadNFP=db,loadBIMG=_c,loadImage=cc,resizeBIMG=_d,loadImageAsBimg=dc}end +aa["libraries"]["basaltMon"]=function(...) +local ab={[colors.white]="0",[colors.orange]="1",[colors.magenta]="2",[colors.lightBlue]="3",[colors.yellow]="4",[colors.lime]="5",[colors.pink]="6",[colors.gray]="7",[colors.lightGray]="8",[colors.cyan]="9",[colors.purple]="a",[colors.blue]="b",[colors.brown]="c",[colors.green]="d",[colors.red]="e",[colors.black]="f"}local bb,cb,db,_c=type,string.len,string.rep,string.sub +return +function(ac)local bc={} +for _ba,aba in pairs(ac)do +bc[_ba]={} +for bba,cba in pairs(aba)do local dba=peripheral.wrap(cba)if(dba==nil)then +error("Unable to find monitor "..cba)end;bc[_ba][bba]=dba +bc[_ba][bba].name=cba end end;local cc,dc,_d,ad,bd,cd,dd,__a=1,1,1,1,0,0,0,0;local a_a,b_a=false,1 +local c_a,d_a=colors.white,colors.black +local function _aa()local _ba,aba=0,0 +for bba,cba in pairs(bc)do local dba,_ca=0,0 +for aca,bca in pairs(cba)do local cca,dca=bca.getSize() +dba=dba+cca;_ca=dca>_ca and dca or _ca end;_ba=_ba>dba and _ba or dba;aba=aba+_ca end;dd,__a=_ba,aba end;_aa() +local function aaa()local _ba=0;local aba,bba=0,0 +for cba,dba in pairs(bc)do local _ca=0;local aca=0 +for bca,cca in pairs(dba)do +local dca,_da=cca.getSize()if(cc-_ca>=1)and(cc-_ca<=dca)then aba=bca end;cca.setCursorPos( +cc-_ca,dc-_ba)_ca=_ca+dca +if(aca<_da)then aca=_da end end;if(dc-_ba>=1)and(dc-_ba<=aca)then bba=cba end +_ba=_ba+aca end;_d,ad=aba,bba end;aaa() +local function baa(_ba,...)local aba={...}return +function()for bba,cba in pairs(bc)do for dba,_ca in pairs(cba)do +_ca[_ba](table.unpack(aba))end end end end +local function caa()baa("setCursorBlink",false)() +if not(a_a)then return end;if(bc[ad]==nil)then return end;local _ba=bc[ad][_d] +if(_ba==nil)then return end;_ba.setCursorBlink(a_a)end +local function daa(_ba,aba,bba)if(bc[ad]==nil)then return end;local cba=bc[ad][_d] +if(cba==nil)then return end;cba.blit(_ba,aba,bba)local dba,_ca=cba.getSize() +if +(cb(_ba)+cc>dba)then local aca=bc[ad][_d+1]if(aca~=nil)then aca.blit(_ba,aba,bba)_d=_d+1;cc=cc+ +cb(_ba)end end;aaa()end +return +{clear=baa("clear"),setCursorBlink=function(_ba)a_a=_ba;caa()end,getCursorBlink=function()return a_a end,getCursorPos=function()return cc,dc end,setCursorPos=function(_ba,aba) +cc,dc=_ba,aba;aaa()caa()end,setTextScale=function(_ba) +baa("setTextScale",_ba)()_aa()aaa()b_a=_ba end,getTextScale=function()return b_a end,blit=function(_ba,aba,bba) +daa(_ba,aba,bba)end,write=function(_ba)_ba=tostring(_ba)local aba=cb(_ba) +daa(_ba,db(ab[c_a],aba),db(ab[d_a],aba))end,getSize=function()return dd,__a end,setBackgroundColor=function(_ba) +baa("setBackgroundColor",_ba)()d_a=_ba end,setTextColor=function(_ba) +baa("setTextColor",_ba)()c_a=_ba end,calculateClick=function(_ba,aba,bba)local cba=0 +for dba,_ca in pairs(bc)do local aca=0;local bca=0 +for cca,dca in pairs(_ca)do +local _da,ada=dca.getSize()if(dca.name==_ba)then return aba+aca,bba+cba end +aca=aca+_da;if(ada>bca)then bca=ada end end;cba=cba+bca end;return aba,bba end}end end +aa["libraries"]["utils"]=function(...)local ab=da("tHex") +local bb,cb,db,_c,ac,bc=string.sub,string.find,string.reverse,string.rep,table.insert,string.len +local function cc(cd,dd)local __a={}if cd==""or dd==""then return __a end;local a_a=1 +local b_a,c_a=cb(cd,dd,a_a)while b_a do ac(__a,bb(cd,a_a,b_a-1))a_a=c_a+1 +b_a,c_a=cb(cd,dd,a_a)end;ac(__a,bb(cd,a_a))return __a end;local function dc(cd)return cd:gsub("{[^}]+}","")end +local function _d(cd,dd)cd=dc(cd)if +(cd=="")or(dd==0)then return{""}end;local __a=cc(cd,"\n")local a_a={} +for b_a,c_a in +pairs(__a)do +if#c_a==0 then table.insert(a_a,"")else +while#c_a>dd do local d_a=dd;for i=dd,1,-1 do if bb(c_a,i,i)==" "then +d_a=i;break end end +if d_a==dd then +local _aa=bb(c_a,1,d_a-1).."-"table.insert(a_a,_aa)c_a=bb(c_a,d_a)else +local _aa=bb(c_a,1,d_a-1)table.insert(a_a,_aa)c_a=bb(c_a,d_a+1)end;if#c_a<=dd then break end end;if#c_a>0 then table.insert(a_a,c_a)end end end;return a_a end +local function ad(cd)local dd={}local __a=1;local a_a=1 +while __a<=#cd do local b_a,c_a;local d_a,_aa;local aaa,baa +for _ba,aba in pairs(colors)do +local bba="{fg:".._ba.."}"local cba="{bg:".._ba.."}"local dba,_ca=cd:find(bba,__a) +local aca,bca=cd:find(cba,__a) +if dba and(not b_a or dba0 then +table.insert(dd,{color=nil,bgColor=nil,text=daa,position=a_a})a_a=a_a+#daa;__a=__a+#daa end +if b_a and(not c_a or b_a1 then if b_a+1 +bba<=dd then aaa({text=" "})b_a=b_a+1 else b_a=1;c_a=c_a+ +1 end end;while bba>0 do local cba=aba:sub(1,dd-b_a+1) +aba=aba:sub(dd-b_a+2)bba=#aba;aaa({text=cba}) +if bba>0 then b_a=1;c_a=c_a+1 else b_a=b_a+#cba end end end end;if b_a>dd then b_a=1;c_a=c_a+1 end end;return a_a end +return +{getTextHorizontalAlign=function(cd,dd,__a,a_a)cd=bb(cd,1,dd)local b_a=dd-bc(cd) +if(__a=="right")then +cd=_c(a_a or" ",b_a)..cd elseif(__a=="center")then +cd=_c(a_a or" ",math.floor(b_a/2))..cd.._c(a_a or" ",math.floor( +b_a/2)) +cd=cd.. (bc(cd)
c_a)then break end +if(aaa.text~=nil)then cd:addText(dd+aaa.x-1,__a+ +aaa.y-1,aaa.text)end;if(aaa.color~=nil)then +cd:addFG(dd+aaa.x-1,__a+aaa.y-1,ab[colors[aaa.color]]:rep( +#aaa.text))end;if(aaa.bgColor~=nil)then +cd:addBG(dd+ +aaa.x-1,__a+aaa.y-1,ab[colors[aaa.bgColor]]:rep(# +aaa.text))end end end,uuid=function() +return +string.gsub(string.format('%x-%x-%x-%x-%x',math.random(0,0xffff),math.random(0,0xffff),math.random(0,0xffff), +math.random(0,0x0fff)+0x4000,math.random(0,0x3fff)+0x8000),' ','0')end}end +aa["libraries"]["tHex"]=function(...)local ab={} +for i=0,15 do ab[2 ^i]=("%x"):format(i)end;return ab end +aa["libraries"]["xmlParser"]=function(...) +local ab={new=function(db) +return +{tag=db,value=nil,attributes={},children={},addChild=function(_c,ac) +table.insert(_c.children,ac)end,addAttribute=function(_c,ac,bc)_c.attributes[ac]=bc end}end} +local bb=function(db,_c) +local ac,bc=string.gsub(_c,"(%w+)=([\"'])(.-)%2",function(_d,ad,bd) +db:addAttribute(_d,"\""..bd.."\"")end) +local cc,dc=string.gsub(_c,"(%w+)={(.-)}",function(_d,ad)db:addAttribute(_d,ad)end)end +local cb={parseText=function(db)local _c={}local ac=ab.new()table.insert(_c,ac)local bc,cc,dc,_d,ad;local bd,cd=1,1 +while true do +bc,cd,cc,dc,_d,ad=string.find(db,"<(%/?)([%w_:]+)(.-)(%/?)>",bd)if not bc then break end;local __a=string.sub(db,bd,bc-1)if not +string.find(__a,"^%s*$")then local a_a=(ac.value or"")..__a +_c[#_c].value=a_a end +if ad=="/"then local a_a=ab.new(dc) +bb(a_a,_d)ac:addChild(a_a)elseif cc==""then local a_a=ab.new(dc)bb(a_a,_d) +table.insert(_c,a_a)ac=a_a else local a_a=table.remove(_c)ac=_c[#_c] +if#_c<1 then error("XMLParser: nothing to close with ".. +dc)end;if a_a.tag~=dc then +error("XMLParser: trying to close "..a_a.tag.." with "..dc)end;ac:addChild(a_a)end;bd=cd+1 end;local dd=string.sub(db,bd)if#_c>1 then +error("XMLParser: unclosed ".._c[#_c].tag)end;return ac.children end}return cb end aa["main"]=function(...)local ab=da("basaltEvent")() local bb=da("loadObjects")local cb;local db=da("plugin")local _c=da("utils")local ac=da("basaltLogs") local bc=_c.uuid;local cc=_c.wrapText;local dc=_c.tableCount;local _d=300;local ad=0;local bd=0;local cd={} @@ -1017,54 +1018,54 @@ for adb,bdb in pairs(dcb)do for cdb,ddb in pairs(bdb(aba))do aba[cdb]=ddb;_da[cdb]=ddb end end end local _db=db.get("basaltInternal")if(_db~=nil)then for adb,bdb in pairs(_db)do for cdb,ddb in pairs(bdb(aba))do _da[cdb]=ddb end end end;return aba end;aa["objects"]={} -aa["objects"]["Slider"]=function(...)local ab=da("tHex") +aa["objects"]["ScrollableFrame"]=function(...) +local ab,bb,cb,db=math.max,math.min,string.sub,string.rep return -function(bb,cb) -local db=cb.getObject("ChangeableObject")(bb,cb)local _c="Slider"db:setSize(12,1)db:setValue(1) -db:setBackground(false,"\140",colors.black)local ac="horizontal"local bc=" "local cc=colors.black;local dc=colors.gray;local _d=12;local ad=1 -local bd=1 -local function cd(__a,a_a,b_a,c_a)local d_a,_aa=__a:getPosition()local aaa,baa=__a:getSize()local caa= -ac=="vertical"and baa or aaa -for i=0,caa do +function(_c,ac)local bc=ac.getObject("Frame")(_c,ac) +local cc="ScrollableFrame"local dc;local _d=0;local ad=0;local bd=true +local function cd(b_a)local c_a=0;local d_a=b_a:getChildren() +for _aa,aaa in pairs(d_a)do +if( +aaa.element.getWidth~=nil)and(aaa.element.getX~=nil)then +local baa,caa=aaa.element:getWidth(),aaa.element:getX()local daa=b_a:getWidth() if - -( -(ac=="vertical"and _aa+i==c_a)or(ac=="horizontal"and d_a+i==b_a))and(d_a<=b_a)and(d_a+aaa>b_a)and(_aa<=c_a)and -(_aa+baa>c_a)then ad=math.min(i+1,caa- (# -bc+bd-2)) -__a:setValue(_d/caa*ad)__a:updateDraw()end end end -local dd={getType=function(__a)return _c end,load=function(__a)__a:listenEvent("mouse_click") -__a:listenEvent("mouse_drag")__a:listenEvent("mouse_scroll")end,setSymbol=function(__a,a_a) -bc=a_a:sub(1,1)__a:updateDraw()return __a end,getSymbol=function(__a)return bc end,setIndex=function(__a,a_a) -ad=a_a;if(ad<1)then ad=1 end;local b_a,c_a=__a:getSize() -ad=math.min(ad,( -ac=="vertical"and c_a or b_a)- (bd-1)) -__a:setValue(_d/ (ac=="vertical"and c_a or b_a)*ad)__a:updateDraw()return __a end,getIndex=function(__a)return -ad end,setMaxValue=function(__a,a_a)_d=a_a;return __a end,getMaxValue=function(__a)return _d end,setSymbolColor=function(__a,a_a) -symbolColor=a_a;__a:updateDraw()return __a end,getSymbolColor=function(__a) -return symbolColor end,setBarType=function(__a,a_a)ac=a_a:lower()__a:updateDraw()return __a end,getBarType=function(__a)return -ac end,mouseHandler=function(__a,a_a,b_a,c_a)if(db.mouseHandler(__a,a_a,b_a,c_a))then cd(__a,a_a,b_a,c_a)return -true end;return false end,dragHandler=function(__a,a_a,b_a,c_a)if -(db.dragHandler(__a,a_a,b_a,c_a))then cd(__a,a_a,b_a,c_a)return true end -return false end,scrollHandler=function(__a,a_a,b_a,c_a) +(aaa.element:getType()=="Dropdown")then if(aaa.element:isOpened())then +local _ba=aaa.element:getDropdownSize() +if(_ba+caa-daa>=c_a)then c_a=ab(_ba+caa-daa,0)end end end +if(baa+caa-daa>=c_a)then c_a=ab(baa+caa-daa,0)end end end;return c_a end +local function dd(b_a)local c_a=0;local d_a=b_a:getChildren() +for _aa,aaa in pairs(d_a)do if -(db.scrollHandler(__a,a_a,b_a,c_a))then local d_a,_aa=__a:getSize()ad=ad+a_a;if(ad<1)then ad=1 end -ad=math.min(ad,( -ac=="vertical"and _aa or d_a)- (bd-1)) -__a:setValue(_d/ (ac=="vertical"and _aa or d_a)*ad)__a:updateDraw()return true end;return false end,draw=function(__a) -db.draw(__a) -__a:addDraw("slider",function()local a_a,b_a=__a:getSize() -local c_a,d_a=__a:getBackground(),__a:getForeground() -if(ac=="horizontal")then __a:addText(ad,oby,bc:rep(bd)) -if(dc~=false)then __a:addBG(ad,1,ab[dc]:rep( -#bc*bd))end;if(cc~=false)then -__a:addFG(ad,1,ab[cc]:rep(#bc*bd))end end -if(ac=="vertical")then -for n=0,b_a-1 do -if(ad==n+1)then for curIndexOffset=0,math.min(bd-1,b_a)do -__a:addBlit(1,1 +n+curIndexOffset,bc,ab[symbolColor],ab[symbolColor])end else if(n+1 -ad-1 +bd)then -__a:addBlit(1,1 +n,bgSymbol,ab[d_a],ab[c_a])end end end end end)end}dd.__index=dd;return setmetatable(dd,db)end end +(aaa.element.getHeight~=nil)and(aaa.element.getY~=nil)then +local baa,caa=aaa.element:getHeight(),aaa.element:getY()local daa=b_a:getHeight() +if +(aaa.element:getType()=="Dropdown")then if(aaa.element:isOpened())then +local _ba,aba=aaa.element:getDropdownSize() +if(aba+caa-daa>=c_a)then c_a=ab(aba+caa-daa,0)end end end +if(baa+caa-daa>=c_a)then c_a=ab(baa+caa-daa,0)end end end;return c_a end +local function __a(b_a,c_a)local d_a,_aa=b_a:getOffset()local aaa +if(_d==1)then +aaa=bd and cd(b_a)or ad +b_a:setOffset(bb(aaa,ab(0,d_a+c_a)),_aa)elseif(_d==0)then aaa=bd and dd(b_a)or ad +b_a:setOffset(d_a,bb(aaa,ab(0,_aa+c_a)))end;b_a:updateDraw()end +local a_a={getType=function()return cc end,isType=function(b_a,c_a)return +cc==c_a or bc.isType~=nil and bc.isType(c_a)or false end,setDirection=function(b_a,c_a)_d= +c_a=="horizontal"and 1 or c_a=="vertical"and 0 or +_d;return b_a end,setScrollAmount=function(b_a,c_a) +ad=c_a;bd=false;return b_a end,getBase=function(b_a)return bc end,load=function(b_a)bc.load(b_a) +b_a:listenEvent("mouse_scroll")end,removeChildren=function(b_a)bc.removeChildren(b_a) +b_a:listenEvent("mouse_scroll")end,setParent=function(b_a,c_a,...)bc.setParent(b_a,c_a,...) +dc=c_a;return b_a end,scrollHandler=function(b_a,c_a,d_a,_aa) +if +(bc:getBase().scrollHandler(b_a,c_a,d_a,_aa))then b_a:sortChildren() +for aaa,baa in +ipairs(b_a:getEvents("mouse_scroll"))do +if(baa.element.scrollHandler~=nil)then local caa,daa=0,0;if(b_a.getOffset~=nil)then +caa,daa=b_a:getOffset()end +if(baa.element.getIgnoreOffset())then caa,daa=0,0 end;if(baa.element.scrollHandler(baa.element,c_a,d_a+caa,_aa+daa))then +return true end end end;__a(b_a,c_a,d_a,_aa)b_a:clearFocusedChild()return true end end,draw=function(b_a) +bc.draw(b_a) +b_a:addDraw("scrollableFrame",function()if(bd)then __a(b_a,0)end end,0)end}a_a.__index=a_a;return setmetatable(a_a,bc)end end aa["objects"]["Scrollbar"]=function(...)local ab=da("tHex") return function(bb,cb) @@ -1126,47 +1127,148 @@ for curIndexOffset=0,math.min( bd-1,_aa)do b_a:addBlit(1,ad+curIndexOffset,bc:rep(math.max(#bc,d_a)),ab[dc]:rep(math.max( #bc,d_a)),ab[cc]:rep(math.max(#bc,d_a)))end end end end end)end}a_a.__index=a_a;return setmetatable(a_a,db)end end -aa["objects"]["MonitorFrame"]=function(...)local ab=da("basaltMon") -local bb,cb,db,_c=math.max,math.min,string.sub,string.rep +aa["objects"]["Slider"]=function(...)local ab=da("tHex") return -function(ac,bc)local cc=bc.getObject("BaseFrame")(ac,bc) -local dc="MonitorFrame"cc:setTerm(nil)local _d=false;local ad -local bd={getType=function()return dc end,isType=function(cd,dd) -return dc==dd or cc.isType~=nil and -cc.isType(dd)or false end,getBase=function(cd)return cc end,setMonitor=function(cd,dd) +function(bb,cb) +local db=cb.getObject("ChangeableObject")(bb,cb)local _c="Slider"db:setSize(12,1)db:setValue(1) +db:setBackground(false,"\140",colors.black)local ac="horizontal"local bc=" "local cc=colors.black;local dc=colors.gray;local _d=12;local ad=1 +local bd=1 +local function cd(__a,a_a,b_a,c_a)local d_a,_aa=__a:getPosition()local aaa,baa=__a:getSize()local caa= +ac=="vertical"and baa or aaa +for i=0,caa do if -(type(dd)=="string")then local __a=peripheral.wrap(dd) -if(__a~=nil)then cd:setTerm(__a)end elseif(type(dd)=="table")then cd:setTerm(dd)end;return cd end,setMonitorGroup=function(cd,dd) -ad=ab(dd)cd:setTerm(ad)_d=true;return cd end,render=function(cd)if(cd:getTerm()~= -nil)then cc.render(cd)end end,show=function(cd) -cc:getBase().show(cd)bc.setActiveFrame(cd) -for dd,__a in pairs(colors)do if(type(__a)=="number")then -termObject.setPaletteColor(__a,colors.packRGB(term.nativePaletteColor((__a))))end end -for dd,__a in pairs(colorTheme)do -if(type(__a)=="number")then -termObject.setPaletteColor( -type(dd)=="number"and dd or colors[dd],__a)else local a_a,b_a,c_a=table.unpack(__a) -termObject.setPaletteColor( -type(dd)=="number"and dd or colors[dd],a_a,b_a,c_a)end end;return cd end} -bd.mouseHandler=function(cd,dd,__a,a_a,b_a,c_a,...) -if(_d)then __a,a_a=ad.calculateClick(c_a,__a,a_a)end;cc.mouseHandler(cd,dd,__a,a_a,b_a,c_a,...)end;bd.__index=bd;return setmetatable(bd,cc)end end -aa["objects"]["Switch"]=function(...) + +( +(ac=="vertical"and _aa+i==c_a)or(ac=="horizontal"and d_a+i==b_a))and(d_a<=b_a)and(d_a+aaa>b_a)and(_aa<=c_a)and +(_aa+baa>c_a)then ad=math.min(i+1,caa- (# +bc+bd-2)) +__a:setValue(_d/caa*ad)__a:updateDraw()end end end +local dd={getType=function(__a)return _c end,load=function(__a)__a:listenEvent("mouse_click") +__a:listenEvent("mouse_drag")__a:listenEvent("mouse_scroll")end,setSymbol=function(__a,a_a) +bc=a_a:sub(1,1)__a:updateDraw()return __a end,getSymbol=function(__a)return bc end,setIndex=function(__a,a_a) +ad=a_a;if(ad<1)then ad=1 end;local b_a,c_a=__a:getSize() +ad=math.min(ad,( +ac=="vertical"and c_a or b_a)- (bd-1)) +__a:setValue(_d/ (ac=="vertical"and c_a or b_a)*ad)__a:updateDraw()return __a end,getIndex=function(__a)return +ad end,setMaxValue=function(__a,a_a)_d=a_a;return __a end,getMaxValue=function(__a)return _d end,setSymbolColor=function(__a,a_a) +symbolColor=a_a;__a:updateDraw()return __a end,getSymbolColor=function(__a) +return symbolColor end,setBarType=function(__a,a_a)ac=a_a:lower()__a:updateDraw()return __a end,getBarType=function(__a)return +ac end,mouseHandler=function(__a,a_a,b_a,c_a)if(db.mouseHandler(__a,a_a,b_a,c_a))then cd(__a,a_a,b_a,c_a)return +true end;return false end,dragHandler=function(__a,a_a,b_a,c_a)if +(db.dragHandler(__a,a_a,b_a,c_a))then cd(__a,a_a,b_a,c_a)return true end +return false end,scrollHandler=function(__a,a_a,b_a,c_a) +if +(db.scrollHandler(__a,a_a,b_a,c_a))then local d_a,_aa=__a:getSize()ad=ad+a_a;if(ad<1)then ad=1 end +ad=math.min(ad,( +ac=="vertical"and _aa or d_a)- (bd-1)) +__a:setValue(_d/ (ac=="vertical"and _aa or d_a)*ad)__a:updateDraw()return true end;return false end,draw=function(__a) +db.draw(__a) +__a:addDraw("slider",function()local a_a,b_a=__a:getSize() +local c_a,d_a=__a:getBackground(),__a:getForeground() +if(ac=="horizontal")then __a:addText(ad,oby,bc:rep(bd)) +if(dc~=false)then __a:addBG(ad,1,ab[dc]:rep( +#bc*bd))end;if(cc~=false)then +__a:addFG(ad,1,ab[cc]:rep(#bc*bd))end end +if(ac=="vertical")then +for n=0,b_a-1 do +if(ad==n+1)then for curIndexOffset=0,math.min(bd-1,b_a)do +__a:addBlit(1,1 +n+curIndexOffset,bc,ab[symbolColor],ab[symbolColor])end else if(n+1 +ad-1 +bd)then +__a:addBlit(1,1 +n,bgSymbol,ab[d_a],ab[c_a])end end end end end)end}dd.__index=dd;return setmetatable(dd,db)end end +aa["objects"]["Dropdown"]=function(...)local ab=da("utils")local bb=da("tHex") return -function(ab,bb) -local cb=bb.getObject("ChangeableObject")(ab,bb)local db="Switch"cb:setSize(4,1)cb:setValue(false) -cb:setZIndex(5)local _c=colors.black;local ac=colors.red;local bc=colors.green -local cc={getType=function(dc)return db end,setSymbol=function(dc,_d) -_c=_d;return dc end,getSymbol=function(dc)return _c end,setActiveBackground=function(dc,_d)bc=_d;return dc end,getActiveBackground=function(dc)return bc end,setInactiveBackground=function(dc,_d) -ac=_d;return dc end,getInactiveBackground=function(dc)return ac end,load=function(dc) -dc:listenEvent("mouse_click")end,mouseHandler=function(dc,...) -if(cb.mouseHandler(dc,...))then -dc:setValue(not dc:getValue())dc:updateDraw()return true end end,draw=function(dc)cb.draw(dc) -dc:addDraw("switch",function() -local _d=dc:getParent()local ad,bd=dc:getBackground(),dc:getForeground() -local cd,dd=dc:getSize() -if(dc:getValue())then dc:addBackgroundBox(1,1,cd,dd,bc) -dc:addBackgroundBox(cd,1,1,dd,_c)else dc:addBackgroundBox(1,1,cd,dd,ac) -dc:addBackgroundBox(1,1,1,dd,_c)end end)end}cc.__index=cc;return setmetatable(cc,cb)end end +function(cb,db) +local _c=db.getObject("List")(cb,db)local ac="Dropdown"_c:setSize(12,1)_c:setZIndex(6)local bc=true +local cc="left"local dc=0;local _d=0;local ad=0;local bd=true;local cd="\16"local dd="\31"local __a=false +local a_a={getType=function(b_a)return ac end,isType=function(b_a,c_a)return + +ac==c_a or _c.isType~=nil and _c.isType(c_a)or false end,load=function(b_a) +b_a:listenEvent("mouse_click",b_a)b_a:listenEvent("mouse_up",b_a) +b_a:listenEvent("mouse_scroll",b_a)b_a:listenEvent("mouse_drag",b_a)end,setOffset=function(b_a,c_a) +dc=c_a;b_a:updateDraw()return b_a end,getOffset=function(b_a)return dc end,addItem=function(b_a,c_a,...) +_c.addItem(b_a,c_a,...)if(bd)then _d=math.max(_d,#c_a)ad=ad+1 end;return b_a end,removeItem=function(b_a,c_a) +_c.removeItem(b_a,c_a)if(bd)then _d=0;ad=0 +for n=1,#list do _d=math.max(_d,#list[n].text)end;ad=#list end end,isOpened=function(b_a)return +__a end,setOpened=function(b_a,c_a)__a=c_a;b_a:updateDraw()return b_a end,setDropdownSize=function(b_a,c_a,d_a) +_d,ad=c_a,d_a;bd=false;b_a:updateDraw()return b_a end,setDropdownWidth=function(b_a,c_a)return +b_a:setDropdownSize(c_a,ad)end,setDropdownHeight=function(b_a,c_a) +return b_a:setDropdownSize(_d,c_a)end,getDropdownSize=function(b_a)return _d,ad end,getDropdownWidth=function(b_a)return _d end,getDropdownHeight=function(b_a)return ad end,mouseHandler=function(b_a,c_a,d_a,_aa,aaa) +if +(__a)then local caa,daa=b_a:getAbsolutePosition() +if(c_a==1)then local _ba=b_a:getAll() +if(# +_ba>0)then +for n=1,ad do +if(_ba[n+dc]~=nil)then +if +(caa<=d_a)and(caa+_d>d_a)and(daa+n==_aa)then b_a:setValue(_ba[n+dc])b_a:updateDraw() +local aba=b_a:sendEvent("mouse_click",b_a,"mouse_click",c_a,d_a,_aa)if(aba==false)then return aba end;if(aaa)then +db.schedule(function()sleep(0.1) +b_a:mouseUpHandler(c_a,d_a,_aa)end)()end;return true end end end end end end;local baa=_c:getBase() +if(baa.mouseHandler(b_a,c_a,d_a,_aa))then __a=not __a +b_a:getParent():setImportant(b_a)b_a:updateDraw()return true else +if(__a)then b_a:updateDraw()__a=false end;return false end end,mouseUpHandler=function(b_a,c_a,d_a,_aa) +if +(__a)then local aaa,baa=b_a:getAbsolutePosition() +if(c_a==1)then local caa=b_a:getAll() +if(# +caa>0)then +for n=1,ad do +if(caa[n+dc]~=nil)then +if +(aaa<=d_a)and(aaa+_d>d_a)and(baa+n==_aa)then __a=false;b_a:updateDraw() +local daa=b_a:sendEvent("mouse_up",b_a,"mouse_up",c_a,d_a,_aa)if(daa==false)then return daa end;return true end end end end end end end,dragHandler=function(b_a,c_a,d_a,_aa)if +(_c.dragHandler(b_a,c_a,d_a,_aa))then __a=true end end,scrollHandler=function(b_a,c_a,d_a,_aa) +if +(__a)then local aaa,baa=b_a:getAbsolutePosition()if +(d_a>=aaa)and(d_a<=aaa+_d)and(_aa>=baa)and(_aa<=baa+ad)then +b_a:setFocus()end end +if(__a)and(b_a:isFocused())then +local aaa,baa=b_a:getAbsolutePosition()if +(d_aaaa+_d)or(_aabaa+ad)then return false end;if(#b_a:getAll()<=ad)then return +false end;local caa=b_a:getAll()dc=dc+c_a +if(dc<0)then dc=0 end +if(c_a==1)then if(#caa>ad)then if(dc>#caa-ad)then dc=#caa-ad end else +dc=math.min(#caa-1,0)end end +local daa=b_a:sendEvent("mouse_scroll",b_a,"mouse_scroll",c_a,d_a,_aa)if(daa==false)then return daa end;b_a:updateDraw()return true end end,draw=function(b_a) +_c.draw(b_a)b_a:setDrawState("list",false) +b_a:addDraw("dropdown",function() +local c_a,d_a=b_a:getPosition()local _aa,aaa=b_a:getSize()local baa=b_a:getValue() +local caa=b_a:getAll()local daa,_ba=b_a:getBackground(),b_a:getForeground() +local aba=ab.getTextHorizontalAlign(( +baa~=nil and baa.text or""),_aa,cc):sub(1, +_aa-1).. (__a and dd or cd) +b_a:addBlit(1,1,aba,bb[_ba]:rep(#aba),bb[daa]:rep(#aba)) +if(__a)then b_a:addTextBox(1,2,_d,ad," ") +b_a:addBackgroundBox(1,2,_d,ad,daa)b_a:addForegroundBox(1,2,_d,ad,_ba) +for n=1,ad do +if(caa[n+dc]~=nil)then local bba=ab.getTextHorizontalAlign(caa[ +n+dc].text,_d,cc) +if( +caa[n+dc]==baa)then +if(bc)then local cba,dba=b_a:getSelectionColor() +b_a:addBlit(1,n+1,bba,bb[dba]:rep( +#bba),bb[cba]:rep(#bba))else +b_a:addBlit(1,n+1,bba,bb[caa[n+dc].fgCol]:rep(#bba),bb[caa[n+dc].bgCol]:rep( +#bba))end else +b_a:addBlit(1,n+1,bba,bb[caa[n+dc].fgCol]:rep(#bba),bb[caa[n+dc].bgCol]:rep( +#bba))end end end end end)end}a_a.__index=a_a;return setmetatable(a_a,_c)end end +aa["objects"]["Button"]=function(...)local ab=da("utils")local bb=da("tHex") +return +function(cb,db) +local _c=db.getObject("VisualObject")(cb,db)local ac="Button"local bc="center"local cc="center"local dc="Button"_c:setSize(12,3) +_c:setZIndex(5) +local _d={getType=function(ad)return ac end,isType=function(ad,bd)return +ac==bd or _c.isType~=nil and _c.isType(bd)or false end,getBase=function(ad)return +_c end,getHorizontalAlign=function(ad)return bc end,setHorizontalAlign=function(ad,bd)bc=bd;ad:updateDraw()return ad end,getVerticalAlign=function(ad)return +cc end,setVerticalAlign=function(ad,bd)cc=bd;ad:updateDraw()return ad end,getText=function(ad) +return dc end,setText=function(ad,bd)dc=bd;ad:updateDraw()return ad end,draw=function(ad) +_c.draw(ad) +ad:addDraw("button",function()local bd,cd=ad:getSize() +local dd=ab.getTextVerticalAlign(cd,cc)local __a +if(bc=="center")then +__a=math.floor((bd-dc:len())/2)elseif(bc=="right")then __a=bd-dc:len()end;ad:addText(__a+1,dd,dc) +ad:addFG(__a+1,dd,bb[ad:getForeground()or colors.white]:rep(dc:len()))end)end}_d.__index=_d;return setmetatable(_d,_c)end end aa["objects"]["MovableFrame"]=function(...) local ab,bb,cb,db=math.max,math.min,string.sub,string.rep return @@ -1200,6 +1302,295 @@ d_a+_ba-1)and(b_a<=d_a+aba-1)and(c_a>=_aa+bba-1)and(c_a<=_aa+cba-1)then bd=true _d=d_a-b_a;ad=_aa-c_a;return true end end;return true end end,mouseUpHandler=function(__a,...) bd=false;return bc.mouseUpHandler(__a,...)end,setParent=function(__a,a_a,...) bc.setParent(__a,a_a,...)dc=a_a;return __a end}dd.__index=dd;return setmetatable(dd,bc)end end +aa["objects"]["Menubar"]=function(...)local ab=da("utils")local bb=da("tHex") +return +function(cb,db) +local _c=db.getObject("List")(cb,db)local ac="Menubar"local bc={}_c:setSize(30,1)_c:setZIndex(5)local cc=0 +local dc,_d=1,1;local ad=true +local function bd()local cd=0;local dd=_c:getWidth()local __a=_c:getAll()for n=1,#__a do cd=cd+ +__a[n].text:len()+dc*2 end;return +math.max(cd-dd,0)end +bc={init=function(cd)local dd=cd:getParent()cd:listenEvent("mouse_click") +cd:listenEvent("mouse_drag")cd:listenEvent("mouse_scroll")return _c.init(cd)end,getType=function(cd)return +ac end,getBase=function(cd)return _c end,setSpace=function(cd,dd)dc=dd or dc;cd:updateDraw() +return cd end,getSpace=function(cd)return dc end,setScrollable=function(cd,dd)ad=dd +if(dd==nil)then ad=true end;return cd end,getScrollable=function(cd)return ad end,mouseHandler=function(cd,dd,__a,a_a) +if +(_c:getBase().mouseHandler(cd,dd,__a,a_a))then local b_a,c_a=cd:getAbsolutePosition()local d_a,_aa=cd:getSize()local aaa=0 +local baa=cd:getAll() +for n=1,#baa do +if(baa[n]~=nil)then +if +(b_a+aaa<=__a+cc)and( +b_a+aaa+baa[n].text:len()+ (dc*2)>__a+cc)and(c_a==a_a)then +cd:setValue(baa[n])cd:sendEvent(event,cd,event,0,__a,a_a,baa[n])end;aaa=aaa+baa[n].text:len()+dc*2 end end;cd:updateDraw()return true end end,scrollHandler=function(cd,dd,__a,a_a) +if +(_c:getBase().scrollHandler(cd,dd,__a,a_a))then if(ad)then cc=cc+dd;if(cc<0)then cc=0 end;local b_a=bd()if(cc>b_a)then cc=b_a end +cd:updateDraw()end;return true end;return false end,draw=function(cd) +_c.draw(cd) +cd:addDraw("list",function()local dd=cd:getParent()local __a,a_a=cd:getSize()local b_a=""local c_a="" +local d_a=""local _aa,aaa=cd:getSelectionColor() +for baa,caa in pairs(cd:getAll())do +local daa= +(" "):rep(dc)..caa.text.. (" "):rep(dc)b_a=b_a..daa +if(caa==cd:getValue())then c_a=c_a.. +bb[_aa or caa.bgCol or +cd:getBackground()]:rep(daa:len())d_a=d_a.. +bb[aaa or +caa.FgCol or cd:getForeground()]:rep(daa:len())else c_a=c_a.. +bb[caa.bgCol or +cd:getBackground()]:rep(daa:len())d_a=d_a.. +bb[caa.FgCol or +cd:getForeground()]:rep(daa:len())end end +cd:addBlit(1,1,b_a:sub(cc+1,__a+cc),d_a:sub(cc+1,__a+cc),c_a:sub(cc+1,__a+cc))end)end}bc.__index=bc;return setmetatable(bc,_c)end end +aa["objects"]["Textfield"]=function(...)local ab=da("tHex") +local bb,cb,db,_c,ac=string.rep,string.find,string.gmatch,string.sub,string.len +return +function(bc,cc) +local dc=cc.getObject("ChangeableObject")(bc,cc)local _d="Textfield"local ad,bd,cd,dd=1,1,1,1;local __a={""}local a_a={""}local b_a={""}local c_a={}local d_a={} +local _aa,aaa,baa,caa;local daa,_ba=colors.lightBlue,colors.black;dc:setSize(30,12) +dc:setZIndex(5) +local function aba()if +(_aa~=nil)and(aaa~=nil)and(baa~=nil)and(caa~=nil)then return true end;return false end +local function bba()local cca,dca,_da,ada=_aa,aaa,baa,caa +if aba()then +if _aaaaa and baa>=caa then +cca=aaa;dca=_aa;if baa>caa then _da=caa;ada=baa else _da=baa;ada=caa end elseif baa>caa then +cca=aaa;dca=_aa;_da=caa;ada=baa end;return cca,dca,_da,ada end end +local function cba(cca)local dca,_da,ada,bda=bba(cca)local cda=__a[ada]local dda=__a[bda] +__a[ada]= +cda:sub(1,dca-1)..dda:sub(_da+1,dda:len())a_a[ada]=a_a[ada]:sub(1,dca-1).. +a_a[bda]:sub(_da+1,a_a[bda]:len()) +b_a[ada]=b_a[ada]:sub(1, +dca-1)..b_a[bda]:sub(_da+1,b_a[bda]:len()) +for i=bda,ada+1,-1 do if i~=ada then table.remove(__a,i)table.remove(a_a,i) +table.remove(b_a,i)end end;cd,dd=dca,ada;_aa,aaa,baa,caa=nil,nil,nil,nil;return cca end +local function dba(cca,dca)local _da={} +if(cca:len()>0)then +for ada in db(cca,dca)do local bda,cda=cb(cca,ada) +if +(bda~=nil)and(cda~=nil)then table.insert(_da,bda)table.insert(_da,cda) +local dda=_c(cca,1,(bda-1))local __b=_c(cca,cda+1,cca:len())cca=dda.. (":"):rep(ada:len()).. +__b end end end;return _da end +local function _ca(cca,dca)dca=dca or dd +local _da=ab[cca:getForeground()]:rep(b_a[dca]:len()) +local ada=ab[cca:getBackground()]:rep(a_a[dca]:len()) +for bda,cda in pairs(d_a)do local dda=dba(__a[dca],cda[1]) +if(#dda>0)then +for x=1,#dda/2 do +local __b=x*2 -1;if(cda[2]~=nil)then +_da=_da:sub(1,dda[__b]-1)..ab[cda[2]]:rep(dda[__b+1]- ( +dda[__b]-1)).. +_da:sub(dda[__b+1]+1,_da:len())end;if +(cda[3]~=nil)then +ada=ada:sub(1,dda[__b]-1).. + +ab[cda[3]]:rep(dda[__b+1]- (dda[__b]-1))..ada:sub(dda[__b+1]+1,ada:len())end end end end +for bda,cda in pairs(c_a)do +for dda,__b in pairs(cda)do local a_b=dba(__a[dca],__b) +if(#a_b>0)then for x=1,#a_b/2 do +local b_b=x*2 -1 +_da=_da:sub(1,a_b[b_b]-1).. + +ab[bda]:rep(a_b[b_b+1]- (a_b[b_b]-1)).._da:sub(a_b[b_b+1]+1,_da:len())end end end end;b_a[dca]=_da;a_a[dca]=ada;cca:updateDraw()end;local function aca(cca)for n=1,#__a do _ca(cca,n)end end +local bca={getType=function(cca)return _d end,setBackground=function(cca,dca) +dc.setBackground(cca,dca)aca(cca)return cca end,setForeground=function(cca,dca) +dc.setForeground(cca,dca)aca(cca)return cca end,setSelection=function(cca,dca,_da)_ba=dca or _ba +daa=_da or daa;return cca end,setSelectionFG=function(cca,dca) +return cca:setSelection(dca,nil)end,setSelectionBG=function(cca,dca)return cca:setSelection(nil,dca)end,getSelection=function(cca)return +_ba,daa end,getSelectionFG=function(cca)return _ba end,getSelectionBG=function(cca)return daa end,getLines=function(cca)return __a end,getLine=function(cca,dca)return +__a[dca]end,editLine=function(cca,dca,_da)__a[dca]=_da or __a[dca] +_ca(cca,dca)cca:updateDraw()return cca end,clear=function(cca) +__a={""}a_a={""}b_a={""}_aa,aaa,baa,caa=nil,nil,nil,nil;ad,bd,cd,dd=1,1,1,1 +cca:updateDraw()return cca end,addLine=function(cca,dca,_da) +if(dca~=nil)then +local ada=cca:getBackground()local bda=cca:getForeground() +if(#__a==1)and(__a[1]=="")then +__a[1]=dca;a_a[1]=ab[ada]:rep(dca:len()) +b_a[1]=ab[bda]:rep(dca:len())_ca(cca,1)return cca end +if(_da~=nil)then table.insert(__a,_da,dca) +table.insert(a_a,_da,ab[ada]:rep(dca:len())) +table.insert(b_a,_da,ab[bda]:rep(dca:len()))else table.insert(__a,dca) +table.insert(a_a,ab[ada]:rep(dca:len())) +table.insert(b_a,ab[bda]:rep(dca:len()))end end;_ca(cca,_da or#__a)cca:updateDraw()return cca end,addKeywords=function(cca,dca,_da)if( +c_a[dca]==nil)then c_a[dca]={}end;for ada,bda in pairs(_da)do +table.insert(c_a[dca],bda)end;cca:updateDraw()return cca end,addRule=function(cca,dca,_da,ada) +table.insert(d_a,{dca,_da,ada})cca:updateDraw()return cca end,editRule=function(cca,dca,_da,ada)for bda,cda in +pairs(d_a)do +if(cda[1]==dca)then d_a[bda][2]=_da;d_a[bda][3]=ada end end;cca:updateDraw()return cca end,removeRule=function(cca,dca) +for _da,ada in +pairs(d_a)do if(ada[1]==dca)then table.remove(d_a,_da)end end;cca:updateDraw()return cca end,setKeywords=function(cca,dca,_da) +c_a[dca]=_da;cca:updateDraw()return cca end,removeLine=function(cca,dca) +if(#__a>1)then table.remove(__a, +dca or#__a) +table.remove(a_a,dca or#a_a)table.remove(b_a,dca or#b_a)else __a={""}a_a={""}b_a={""}end;cca:updateDraw()return cca end,getTextCursor=function(cca)return +cd,dd end,getOffset=function(cca)return bd,ad end,setOffset=function(cca,dca,_da)bd=dca or bd;ad=_da or ad +cca:updateDraw()return cca end,getXOffset=function(cca,dca)return bd end,setXOffset=function(cca,dca)return +cca:setOffset(dca,nil)end,getYOffset=function(cca,dca)return ad end,setYOffset=function(cca,dca)return +cca:setOffset(nil,dca)end,getFocusHandler=function(cca)dc.getFocusHandler(cca) +local dca,_da=cca:getPosition() +cca:getParent():setCursor(true,dca+cd-bd,_da+dd-ad,cca:getForeground())end,loseFocusHandler=function(cca) +dc.loseFocusHandler(cca)cca:getParent():setCursor(false)end,keyHandler=function(cca,dca) +if +(dc.keyHandler(cca,event,dca))then local _da=cca:getParent()local ada,bda=cca:getPosition() +local cda,dda=cca:getSize() +if(dca==keys.backspace)then +if(aba())then cba(cca)else +if(__a[dd]=="")then +if(dd>1)then +table.remove(__a,dd)table.remove(b_a,dd)table.remove(a_a,dd)cd= +__a[dd-1]:len()+1;bd=cd-cda+1;if(bd<1)then bd=1 end;dd=dd-1 end elseif(cd<=1)then +if(dd>1)then cd=__a[dd-1]:len()+1;bd=cd-cda+1;if(bd<1)then +bd=1 end;__a[dd-1]=__a[dd-1]..__a[dd]b_a[dd-1]= +b_a[dd-1]..b_a[dd] +a_a[dd-1]=a_a[dd-1]..a_a[dd]table.remove(__a,dd)table.remove(b_a,dd) +table.remove(a_a,dd)dd=dd-1 end else __a[dd]=__a[dd]:sub(1,cd-2).. +__a[dd]:sub(cd,__a[dd]:len()) +b_a[dd]= +b_a[dd]:sub(1,cd-2)..b_a[dd]:sub(cd,b_a[dd]:len())a_a[dd]=a_a[dd]:sub(1,cd-2).. +a_a[dd]:sub(cd,a_a[dd]:len()) +if(cd>1)then cd=cd-1 end;if(bd>1)then if(cd +__a[dd]:len())then if(__a[dd+1]~=nil)then __a[dd]=__a[dd]..__a[dd+1]table.remove(__a, +dd+1)table.remove(a_a,dd+1) +table.remove(b_a,dd+1)end else +__a[dd]=__a[dd]:sub(1, +cd-1)..__a[dd]:sub(cd+1,__a[dd]:len())b_a[dd]=b_a[dd]:sub(1,cd-1).. +b_a[dd]:sub(cd+1,b_a[dd]:len()) +a_a[dd]=a_a[dd]:sub(1, +cd-1)..a_a[dd]:sub(cd+1,a_a[dd]:len())end end;_ca(cca)elseif(dca==keys.enter)then if(aba())then cba(cca)end +table.insert(__a,dd+1,__a[dd]:sub(cd,__a[dd]:len())) +table.insert(b_a,dd+1,b_a[dd]:sub(cd,b_a[dd]:len())) +table.insert(a_a,dd+1,a_a[dd]:sub(cd,a_a[dd]:len()))__a[dd]=__a[dd]:sub(1,cd-1) +b_a[dd]=b_a[dd]:sub(1,cd-1)a_a[dd]=a_a[dd]:sub(1,cd-1)dd=dd+1;cd=1;bd=1;if(dd-ad>=dda)then +ad=ad+1 end;cca:setValue("")elseif(dca==keys.up)then +_aa,baa,aaa,caa=nil,nil,nil,nil +if(dd>1)then dd=dd-1;if(cd>__a[dd]:len()+1)then +cd=__a[dd]:len()+1 end;if(bd>1)then +if(cd1)then if(dd +__a[dd]:len()+1)then cd=__a[dd]:len()+1 end +if(bd>1)then if(cd=ad+dda)then ad=ad+1 end end elseif(dca==keys.right)then _aa,baa,aaa,caa=nil,nil,nil,nil;cd=cd+1 +if(dd<#__a)then if(cd> +__a[dd]:len()+1)then cd=1;dd=dd+1 end elseif +(cd>__a[dd]:len())then cd=__a[dd]:len()+1 end;if(cd<1)then cd=1 end +if(cd=cda+bd)then bd=cd-cda+1 end;if(bd<1)then bd=1 end elseif(dca==keys.left)then _aa,baa,aaa,caa=nil,nil,nil,nil;cd=cd-1 +if(cd>=1)then if( +cd=cda+bd)then bd=cd end end;if(dd>1)then +if(cd<1)then dd=dd-1;cd=__a[dd]:len()+1;bd=cd-cda+1 end end;if(cd<1)then cd=1 end;if(bd<1)then bd=1 end elseif(dca== +keys.tab)then +if(cd%3 ==0)then +__a[dd]=__a[dd]:sub(1,cd-1).." ".. +__a[dd]:sub(cd,__a[dd]:len()) +b_a[dd]=b_a[dd]:sub(1,cd-1)..ab[cca:getForeground()].. +b_a[dd]:sub(cd,b_a[dd]:len()) +a_a[dd]=a_a[dd]:sub(1,cd-1)..ab[cca:getBackground()].. +a_a[dd]:sub(cd,a_a[dd]:len())cd=cd+1 end +while cd%3 ~=0 do +__a[dd]=__a[dd]:sub(1,cd-1).." ".. +__a[dd]:sub(cd,__a[dd]:len()) +b_a[dd]=b_a[dd]:sub(1,cd-1)..ab[cca:getForeground()].. +b_a[dd]:sub(cd,b_a[dd]:len()) +a_a[dd]=a_a[dd]:sub(1,cd-1)..ab[cca:getBackground()].. +a_a[dd]:sub(cd,a_a[dd]:len())cd=cd+1 end end +if not +( (ada+cd-bd>=ada and ada+cd-bd=bda and bda+dd-adcca:getX()+ +cda-1)then __b=cca:getX()+cda-1 end;local a_b=(dd-ad=cda+bd)then bd=bd+1 end;_ca(cca) +cca:setValue("") +if not +( (ada+cd-bd>=ada and ada+cd-bd=bda and bda+dd-adcca:getX()+ +cda-1)then __b=cca:getX()+cda-1 end;local a_b=(dd-ad_da-cda+bd then cd=_da-cda+bd;dd=ada-dda+ +ad;if cd>__a[dd]:len()then +cd=__a[dd]:len()+1 end;aaa=cd;caa=dd +if cd#__a- (c_b-1))then +ad=#__a- (c_b-1)end;if(ad<1)then ad=1 end +if(cda+cd-bd>=cda and cda+cd-bd< +cda+b_b)and +(a_b+dd-ad>=a_b and a_b+dd-ad__a[dd]:len())then +cd=__a[dd]:len()+1;_aa=cd end +if(cd__a[caa]:len())then aaa=__a[caa]:len()+1 end +if(_aa==aaa)and(baa==caa)then _aa,aaa,baa,caa=nil,nil,nil,nil end;cca:updateDraw()end;return true end end,eventHandler=function(cca,dca,_da,ada,bda,cda) +if +(dc.eventHandler(cca,dca,_da,ada,bda,cda))then +if(dca=="paste")then +if(cca:isFocused())then local dda=cca:getParent() +local __b,a_b=cca:getForeground(),cca:getBackground()local b_b,c_b=cca:getSize() +__a[dd]=__a[dd]:sub(1,cd-1).._da.. +__a[dd]:sub(cd,__a[dd]:len()) +b_a[dd]=b_a[dd]:sub(1,cd-1)..ab[__b]:rep(_da:len()).. +b_a[dd]:sub(cd,b_a[dd]:len()) +a_a[dd]=a_a[dd]:sub(1,cd-1)..ab[a_b]:rep(_da:len()).. +a_a[dd]:sub(cd,a_a[dd]:len())cd=cd+_da:len()if(cd>=b_b+bd)then bd=(cd+1)-b_b end +local d_b,_ab=cca:getPosition() +dda:setCursor(true,d_b+cd-bd,_ab+dd-ad,__b)_ca(cca)cca:updateDraw()end end end end,draw=function(cca) +dc.draw(cca) +cca:addDraw("textfield",function()local dca=cca:getParent()local _da,ada=cca:getPosition() +local bda,cda=cca:getSize()local dda=ab[cca:getBackground()] +local __b=ab[cca:getForeground()] +for n=1,cda do local a_b=""local b_b=""local c_b=""if __a[n+ad-1]then a_b=__a[n+ad-1] +c_b=b_a[n+ad-1]b_b=a_a[n+ad-1]end +a_b=_c(a_b,bd,bda+bd-1)b_b=bb(dda,bda)c_b=bb(__b,bda)cca:addText(1,n,a_b) +cca:addBG(1,n,b_b)cca:addFG(1,n,c_b)cca:addBlit(1,n,a_b,c_b,b_b)end +if _aa and aaa and baa and caa then local a_b,b_b,c_b,d_b=bba(cca) +for n=c_b,d_b do +local _ab=#__a[n]local aab=0 +if n==c_b and n==d_b then aab=a_b-1 +_ab=_ab- (a_b-1)- (_ab-b_b)elseif n==d_b then _ab=_ab- (_ab-b_b)elseif n==c_b then _ab=_ab- (a_b-1)aab=a_b-1 end;cca:addBG(1 +aab,n,bb(ab[daa],_ab)) +cca:addFG(1 +aab,n,bb(ab[_ba],_ab))end end end)end,load=function(cca) +cca:listenEvent("mouse_click")cca:listenEvent("mouse_up") +cca:listenEvent("mouse_scroll")cca:listenEvent("mouse_drag") +cca:listenEvent("key")cca:listenEvent("char") +cca:listenEvent("other_event")end}bca.__index=bca;return setmetatable(bca,dc)end end aa["objects"]["Flexbox"]=function(...) local function ab(bb,cb)local db=0;local _c=0;local ac=12;local bc,cc=bb:getSize() local dc={getFlexGrow=function(_d) @@ -1212,13 +1603,13 @@ function(bb,cb) local db=cb.getObject("ScrollableFrame")(bb,cb)local _c="Flexbox"local ac="row"local bc=1;local cc="flex-start"local dc="nowrap"local _d={}local ad={} local bd=false local cd=ab({getHeight=function(d_a)return 0 end,getWidth=function(d_a)return 0 end,getPosition=function(d_a)return 0,0 end,getSize=function(d_a)return 0,0 end,isType=function(d_a)return -false end,getType=function(d_a)return"lineBreakFakeObject"end,setPosition=function(d_a)end,setSize=function(d_a)end})cd:setFlexBasis(0) +false end,getType=function(d_a)return"lineBreakFakeObject"end,setPosition=function(d_a)end,setSize=function(d_a)end}) +cd:setFlexBasis(0):setFlexGrow(0):setFlexShrink(0) local function dd(d_a) if(dc=="nowrap")then ad={}local _aa=1;local aaa=1;local baa=1 -for caa,daa in pairs(_d)do if( -ad[_aa]==nil)then ad[_aa]={offset=1}end;local _ba= -ac=="row"and daa:getHeight()or daa:getWidth()if _ba>aaa then -aaa=_ba end +for caa,daa in pairs(_d)do if(ad[_aa]==nil)then +ad[_aa]={offset=1}end +local _ba=ac=="row"and daa:getHeight()or daa:getWidth()if _ba>aaa then aaa=_ba end if(daa==cd)then baa=baa+aaa+bc;aaa=1;_aa=_aa+1 ad[_aa]={offset=baa}else table.insert(ad[_aa],daa)end end elseif(dc=="wrap")then ad={}local _aa=1;local aaa=1;local baa=ac=="row"and d_a:getWidth()or d_a:getHeight()local caa=0;local daa=1 @@ -1304,95 +1695,297 @@ d_a:addDraw("flexboxDraw",function()if bd then b_a(d_a)end end,1)end} for d_a,_aa in pairs(cb.getObjects())do c_a["add"..d_a]=function(aaa,baa) local caa=db["add"..d_a](aaa,baa)local daa=ab(caa,cb)table.insert(_d,daa)bd=true;return daa end end;c_a.__index=c_a;return setmetatable(c_a,db)end end -aa["objects"]["ScrollableFrame"]=function(...) -local ab,bb,cb,db=math.max,math.min,string.sub,string.rep +aa["objects"]["Object"]=function(...)local ab=da("basaltEvent") +local bb=da("utils")local cb=bb.uuid;local db,_c=table.unpack,string.sub return -function(_c,ac)local bc=ac.getObject("Frame")(_c,ac) -local cc="ScrollableFrame"local dc;local _d=0;local ad=0;local bd=true -local function cd(b_a)local c_a=0;local d_a=b_a:getChildren() -for _aa,aaa in pairs(d_a)do -if( -aaa.element.getWidth~=nil)and(aaa.element.getX~=nil)then -local baa,caa=aaa.element:getWidth(),aaa.element:getX()local daa=b_a:getWidth() -if -(aaa.element:getType()=="Dropdown")then if(aaa.element:isOpened())then -local _ba=aaa.element:getDropdownSize() -if(_ba+caa-daa>=c_a)then c_a=ab(_ba+caa-daa,0)end end end -if(baa+caa-daa>=c_a)then c_a=ab(baa+caa-daa,0)end end end;return c_a end -local function dd(b_a)local c_a=0;local d_a=b_a:getChildren() -for _aa,aaa in pairs(d_a)do -if -(aaa.element.getHeight~=nil)and(aaa.element.getY~=nil)then -local baa,caa=aaa.element:getHeight(),aaa.element:getY()local daa=b_a:getHeight() -if -(aaa.element:getType()=="Dropdown")then if(aaa.element:isOpened())then -local _ba,aba=aaa.element:getDropdownSize() -if(aba+caa-daa>=c_a)then c_a=ab(aba+caa-daa,0)end end end -if(baa+caa-daa>=c_a)then c_a=ab(baa+caa-daa,0)end end end;return c_a end -local function __a(b_a,c_a)local d_a,_aa=b_a:getOffset()local aaa -if(_d==1)then -aaa=bd and cd(b_a)or ad -b_a:setOffset(bb(aaa,ab(0,d_a+c_a)),_aa)elseif(_d==0)then aaa=bd and dd(b_a)or ad -b_a:setOffset(d_a,bb(aaa,ab(0,_aa+c_a)))end;b_a:updateDraw()end -local a_a={getType=function()return cc end,isType=function(b_a,c_a)return -cc==c_a or bc.isType~=nil and bc.isType(c_a)or false end,setDirection=function(b_a,c_a)_d= -c_a=="horizontal"and 1 or c_a=="vertical"and 0 or -_d;return b_a end,setScrollAmount=function(b_a,c_a) -ad=c_a;bd=false;return b_a end,getBase=function(b_a)return bc end,load=function(b_a)bc.load(b_a) -b_a:listenEvent("mouse_scroll")end,removeChildren=function(b_a)bc.removeChildren(b_a) -b_a:listenEvent("mouse_scroll")end,setParent=function(b_a,c_a,...)bc.setParent(b_a,c_a,...) -dc=c_a;return b_a end,scrollHandler=function(b_a,c_a,d_a,_aa) -if -(bc:getBase().scrollHandler(b_a,c_a,d_a,_aa))then b_a:sortChildren() -for aaa,baa in -ipairs(b_a:getEvents("mouse_scroll"))do -if(baa.element.scrollHandler~=nil)then local caa,daa=0,0;if(b_a.getOffset~=nil)then -caa,daa=b_a:getOffset()end -if(baa.element.getIgnoreOffset())then caa,daa=0,0 end;if(baa.element.scrollHandler(baa.element,c_a,d_a+caa,_aa+daa))then -return true end end end;__a(b_a,c_a,d_a,_aa)b_a:clearFocusedChild()return true end end,draw=function(b_a) -bc.draw(b_a) -b_a:addDraw("scrollableFrame",function()if(bd)then __a(b_a,0)end end,0)end}a_a.__index=a_a;return setmetatable(a_a,bc)end end -aa["objects"]["Menubar"]=function(...)local ab=da("utils")local bb=da("tHex") +function(ac,bc)ac=ac or cb() +assert(bc~=nil, +"Unable to find basalt instance! ID: "..ac)local cc="Object"local dc,_d=true,false;local ad=ab()local bd={}local cd={}local dd +local __a={init=function(a_a) +if(_d)then return false end;_d=true;return true end,load=function(a_a)end,getType=function(a_a)return cc end,isType=function(a_a,b_a)return cc== +b_a end,getProperty=function(a_a,b_a) +local c_a=a_a["get"..b_a:gsub("^%l",string.upper)]if(c_a~=nil)then return c_a(a_a)end end,setProperty=function(a_a,b_a,...) +local c_a=a_a[ +"set"..b_a:gsub("^%l",string.upper)]if(c_a~=nil)then return c_a(a_a,...)end end,getName=function(a_a)return +ac end,getParent=function(a_a)return dd end,setParent=function(a_a,b_a,c_a)if(c_a)then dd=b_a;return a_a end +if(b_a.getType~= +nil and b_a:isType("Container"))then a_a:remove() +b_a:addChild(a_a)if(a_a.show)then a_a:show()end;dd=b_a end;return a_a end,updateEvents=function(a_a)for b_a,c_a in +pairs(cd)do dd:removeEvent(b_a,a_a) +if(c_a)then dd:addEvent(b_a,a_a)end end;return a_a end,listenEvent=function(a_a,b_a,c_a)if( +dd~=nil)then +if(c_a)or(c_a==nil)then cd[b_a]=true;dd:addEvent(b_a,a_a)elseif +(c_a==false)then cd[b_a]=false;dd:removeEvent(b_a,a_a)end end +return a_a end,getZIndex=function(a_a)return +1 end,enable=function(a_a)dc=true;return a_a end,disable=function(a_a)dc=false;return a_a end,isEnabled=function(a_a)return +dc end,remove=function(a_a)if(dd~=nil)then dd:removeChild(a_a)end +a_a:updateDraw()return a_a end,getBaseFrame=function(a_a)if(dd~=nil)then +return dd:getBaseFrame()end;return a_a end,onEvent=function(a_a,...) +for b_a,c_a in +pairs(table.pack(...))do if(type(c_a)=="function")then +a_a:registerEvent("other_event",c_a)end end;return a_a end,getEventSystem=function(a_a)return +ad end,getRegisteredEvents=function(a_a)return bd end,registerEvent=function(a_a,b_a,c_a) +if(dd~=nil)then dd:addEvent(b_a,a_a)end;ad:registerEvent(b_a,c_a) +if(bd[b_a]==nil)then bd[b_a]={}end;table.insert(bd[b_a],c_a)end,removeEvent=function(a_a,b_a,c_a)if( +ad:getEventCount(b_a)<1)then +if(dd~=nil)then dd:removeEvent(b_a,a_a)end end;ad:removeEvent(b_a,c_a)if( +bd[b_a]~=nil)then table.remove(bd[b_a],c_a)if(#bd[b_a]==0)then +bd[b_a]=nil end end end,eventHandler=function(a_a,b_a,...) +local c_a=a_a:sendEvent("other_event",b_a,...)if(c_a~=nil)then return c_a end end,customEventHandler=function(a_a,b_a,...) +local c_a=a_a:sendEvent("custom_event",b_a,...)if(c_a~=nil)then return c_a end;return true end,sendEvent=function(a_a,b_a,...)if( +b_a=="other_event")or(b_a=="custom_event")then return +ad:sendEvent(b_a,a_a,...)end;return +ad:sendEvent(b_a,a_a,b_a,...)end,onClick=function(a_a,...) +for b_a,c_a in +pairs(table.pack(...))do if(type(c_a)=="function")then +a_a:registerEvent("mouse_click",c_a)end end;return a_a end,onClickUp=function(a_a,...)for b_a,c_a in +pairs(table.pack(...))do +if(type(c_a)=="function")then a_a:registerEvent("mouse_up",c_a)end end;return a_a end,onRelease=function(a_a,...) +for b_a,c_a in +pairs(table.pack(...))do if(type(c_a)=="function")then +a_a:registerEvent("mouse_release",c_a)end end;return a_a end,onScroll=function(a_a,...) +for b_a,c_a in +pairs(table.pack(...))do if(type(c_a)=="function")then +a_a:registerEvent("mouse_scroll",c_a)end end;return a_a end,onHover=function(a_a,...) +for b_a,c_a in +pairs(table.pack(...))do if(type(c_a)=="function")then +a_a:registerEvent("mouse_hover",c_a)end end;return a_a end,onLeave=function(a_a,...) +for b_a,c_a in +pairs(table.pack(...))do if(type(c_a)=="function")then +a_a:registerEvent("mouse_leave",c_a)end end;return a_a end,onDrag=function(a_a,...) +for b_a,c_a in +pairs(table.pack(...))do if(type(c_a)=="function")then +a_a:registerEvent("mouse_drag",c_a)end end;return a_a end,onKey=function(a_a,...)for b_a,c_a in +pairs(table.pack(...))do +if(type(c_a)=="function")then a_a:registerEvent("key",c_a)end end;return a_a end,onChar=function(a_a,...)for b_a,c_a in +pairs(table.pack(...))do +if(type(c_a)=="function")then a_a:registerEvent("char",c_a)end end;return a_a end,onKeyUp=function(a_a,...)for b_a,c_a in +pairs(table.pack(...))do +if(type(c_a)=="function")then a_a:registerEvent("key_up",c_a)end end;return a_a end}__a.__index=__a;return __a end end +aa["objects"]["Input"]=function(...)local ab=da("utils")local bb=da("tHex") return function(cb,db) -local _c=db.getObject("List")(cb,db)local ac="Menubar"local bc={}_c:setSize(30,1)_c:setZIndex(5)local cc=0 -local dc,_d=1,1;local ad=true -local function bd()local cd=0;local dd=_c:getWidth()local __a=_c:getAll()for n=1,#__a do cd=cd+ -__a[n].text:len()+dc*2 end;return -math.max(cd-dd,0)end -bc={init=function(cd)local dd=cd:getParent()cd:listenEvent("mouse_click") -cd:listenEvent("mouse_drag")cd:listenEvent("mouse_scroll")return _c.init(cd)end,getType=function(cd)return -ac end,getBase=function(cd)return _c end,setSpace=function(cd,dd)dc=dd or dc;cd:updateDraw() -return cd end,getSpace=function(cd)return dc end,setScrollable=function(cd,dd)ad=dd -if(dd==nil)then ad=true end;return cd end,getScrollable=function(cd)return ad end,mouseHandler=function(cd,dd,__a,a_a) +local _c=db.getObject("ChangeableObject")(cb,db)local ac="Input"local bc="text"local cc=0;_c:setZIndex(5)_c:setValue("") +_c:setSize(12,1)local dc=1;local _d=1;local ad=""local bd=colors.black;local cd=colors.lightGray;local dd=ad +local __a=false +local a_a={load=function(b_a)b_a:listenEvent("mouse_click") +b_a:listenEvent("key")b_a:listenEvent("char") +b_a:listenEvent("other_event")b_a:listenEvent("mouse_drag")end,getType=function(b_a)return +ac end,isType=function(b_a,c_a)return +ac==c_a or _c.isType~=nil and _c.isType(c_a)or false end,setDefaultFG=function(b_a,c_a)return b_a:setDefaultText(b_a,ad,c_a, +nil)end,setDefaultBG=function(b_a,c_a)return b_a:setDefaultText(b_a,ad, +nil,c_a)end,setDefaultText=function(b_a,c_a,d_a,_aa) +ad=c_a;cd=d_a or cd;bd=_aa or bd;if(b_a:isFocused())then dd=""else dd=ad end +b_a:updateDraw()return b_a end,getDefaultText=function(b_a)return ad,cd, +bd end,setOffset=function(b_a,c_a)_d=c_a;b_a:updateDraw()return b_a end,getOffset=function(b_a)return +_d end,setTextOffset=function(b_a,c_a)dc=c_a;b_a:updateDraw()return b_a end,getTextOffset=function(b_a)return +dc end,setInputType=function(b_a,c_a)bc=c_a;b_a:updateDraw()return b_a end,getInputType=function(b_a)return +bc end,setValue=function(b_a,c_a)_c.setValue(b_a,tostring(c_a)) +if not(__a)then dc= +tostring(c_a):len()+1 +_d=math.max(1,dc-b_a:getWidth()+1) +if(b_a:isFocused())then local d_a=b_a:getParent() +local _aa,aaa=b_a:getPosition() +d_a:setCursor(true,_aa+dc-_d,aaa+math.floor(b_a:getHeight()/2),b_a:getForeground())end end;b_a:updateDraw()return b_a end,getValue=function(b_a) +local c_a=_c.getValue(b_a) +return bc=="number"and tonumber(c_a)or c_a end,setInputLimit=function(b_a,c_a) +cc=tonumber(c_a)or cc;b_a:updateDraw()return b_a end,getInputLimit=function(b_a)return cc end,getFocusHandler=function(b_a) +_c.getFocusHandler(b_a)local c_a=b_a:getParent() +if(c_a~=nil)then local d_a,_aa=b_a:getPosition()dd=""if(ad~= +"")then b_a:updateDraw()end +c_a:setCursor(true,d_a+dc-_d,_aa+math.max(math.ceil( +b_a:getHeight()/2 -1,1)),b_a:getForeground())end end,loseFocusHandler=function(b_a) +_c.loseFocusHandler(b_a)local c_a=b_a:getParent()dd=ad +if(ad~="")then b_a:updateDraw()end;c_a:setCursor(false)end,keyHandler=function(b_a,c_a) if -(_c:getBase().mouseHandler(cd,dd,__a,a_a))then local b_a,c_a=cd:getAbsolutePosition()local d_a,_aa=cd:getSize()local aaa=0 -local baa=cd:getAll() -for n=1,#baa do -if(baa[n]~=nil)then +(_c.keyHandler(b_a,c_a))then local d_a,_aa=b_a:getSize()local aaa=b_a:getParent()__a=true if -(b_a+aaa<=__a+cc)and( -b_a+aaa+baa[n].text:len()+ (dc*2)>__a+cc)and(c_a==a_a)then -cd:setValue(baa[n])cd:sendEvent(event,cd,event,0,__a,a_a,baa[n])end;aaa=aaa+baa[n].text:len()+dc*2 end end;cd:updateDraw()return true end end,scrollHandler=function(cd,dd,__a,a_a) +(c_a==keys.backspace)then local _ba=tostring(_c.getValue()) +if(dc>1)then b_a:setValue(_ba:sub(1,dc-2).. +_ba:sub(dc,_ba:len()))dc=math.max( +dc-1,1)if(dc<_d)then _d=math.max(_d-1,1)end end end +if(c_a==keys.enter)then aaa:clearFocusedChild(b_a)end +if(c_a==keys.right)then +local _ba=tostring(_c.getValue()):len()dc=dc+1;if(dc>_ba)then dc=_ba+1 end;dc=math.max(dc,1)if(dc<_d)or +(dc>=d_a+_d)then _d=dc-d_a+1 end;_d=math.max(_d,1)end;if(c_a==keys.left)then dc=dc-1;if(dc>=1)then +if(dc<_d)or(dc>=d_a+_d)then _d=dc end end;dc=math.max(dc,1) +_d=math.max(_d,1)end +local baa,caa=b_a:getPosition()local daa=tostring(_c.getValue())b_a:updateDraw() +__a=false;return true end end,charHandler=function(b_a,c_a) if -(_c:getBase().scrollHandler(cd,dd,__a,a_a))then if(ad)then cc=cc+dd;if(cc<0)then cc=0 end;local b_a=bd()if(cc>b_a)then cc=b_a end -cd:updateDraw()end;return true end;return false end,draw=function(cd) -_c.draw(cd) -cd:addDraw("list",function()local dd=cd:getParent()local __a,a_a=cd:getSize()local b_a=""local c_a="" -local d_a=""local _aa,aaa=cd:getSelectionColor() -for baa,caa in pairs(cd:getAll())do -local daa= -(" "):rep(dc)..caa.text.. (" "):rep(dc)b_a=b_a..daa -if(caa==cd:getValue())then c_a=c_a.. -bb[_aa or caa.bgCol or -cd:getBackground()]:rep(daa:len())d_a=d_a.. -bb[aaa or -caa.FgCol or cd:getForeground()]:rep(daa:len())else c_a=c_a.. -bb[caa.bgCol or -cd:getBackground()]:rep(daa:len())d_a=d_a.. -bb[caa.FgCol or -cd:getForeground()]:rep(daa:len())end end -cd:addBlit(1,1,b_a:sub(cc+1,__a+cc),d_a:sub(cc+1,__a+cc),c_a:sub(cc+1,__a+cc))end)end}bc.__index=bc;return setmetatable(bc,_c)end end +(_c.charHandler(b_a,c_a))then __a=true;local d_a,_aa=b_a:getSize()local aaa=_c.getValue() +if( +aaa:len()0)then +if( +tonumber(_c.getValue())==nil)then b_a:setValue(_ba)dc=dc-1 end end end else +b_a:setValue(aaa:sub(1,dc-1)..c_a..aaa:sub(dc,aaa:len()))dc=dc+1 end;if(dc>=d_a+_d)then _d=_d+1 end end;local baa,caa=b_a:getPosition() +local daa=tostring(_c.getValue())__a=false;b_a:updateDraw()return true end end,mouseHandler=function(b_a,c_a,d_a,_aa) +if +(_c.mouseHandler(b_a,c_a,d_a,_aa))then local aaa=b_a:getParent()local baa,caa=b_a:getPosition() +local daa,_ba=b_a:getAbsolutePosition(baa,caa)local aba,bba=b_a:getSize()dc=d_a-daa+_d;local cba=_c.getValue()if(dc> +cba:len())then dc=cba:len()+1 end;if(dc<_d)then _d=dc-1 +if(_d<1)then _d=1 end end +aaa:setCursor(true,baa+dc-_d,caa+ +math.max(math.ceil(bba/2 -1,1)),b_a:getForeground())return true end end,dragHandler=function(b_a,c_a,d_a,_aa,aaa,baa) +if +(b_a:isFocused())then if(b_a:isCoordsInObject(d_a,_aa))then +if(_c.dragHandler(b_a,c_a,d_a,_aa,aaa,baa))then return true end end +local caa=b_a:getParent()caa:clearFocusedChild()end end,draw=function(b_a) +_c.draw(b_a) +b_a:addDraw("input",function()local c_a=b_a:getParent()local d_a,_aa=b_a:getPosition() +local aaa,baa=b_a:getSize()local caa=ab.getTextVerticalAlign(baa,textVerticalAlign) +local daa=tostring(_c.getValue())local _ba=b_a:getBackground()local aba=b_a:getForeground()local bba;if( +daa:len()<=0)then bba=dd;_ba=bd or _ba;aba=cd or aba end +bba=dd;if(daa~="")then bba=daa end;bba=bba:sub(_d,aaa+_d-1)local cba=aaa- +bba:len()if(cba<0)then cba=0 end +if +(bc=="password")and(daa~="")then bba=string.rep("*",bba:len())end;bba=bba..string.rep(" ",cba) +b_a:addBlit(1,caa,bba,bb[aba]:rep(bba:len()),bb[_ba]:rep(bba:len()))if(b_a:isFocused())then +c_a:setCursor(true,d_a+dc-_d,_aa+ +math.floor(b_a:getHeight()/2),b_a:getForeground())end end)end}a_a.__index=a_a;return setmetatable(a_a,_c)end end +aa["objects"]["Thread"]=function(...) +return +function(ab,bb) +local cb=bb.getObject("Object")(ab,bb)local db="Thread"local _c;local ac;local bc=false;local cc +local dc={getType=function(_d)return db end,start=function(_d,ad)if(ad==nil)then +error("Function provided to thread is nil")end;_c=ad;ac=coroutine.create(_c) +bc=true;cc=nil;local bd,cd=coroutine.resume(ac)cc=cd;if not(bd)then +if(cd~="Terminated")then error( +"Thread Error Occurred - "..cd)end end +_d:listenEvent("mouse_click")_d:listenEvent("mouse_up") +_d:listenEvent("mouse_scroll")_d:listenEvent("mouse_drag")_d:listenEvent("key") +_d:listenEvent("key_up")_d:listenEvent("char") +_d:listenEvent("other_event")return _d end,getStatus=function(_d,ad)if( +ac~=nil)then return coroutine.status(ac)end;return nil end,stop=function(_d,ad) +bc=false;_d:listenEvent("mouse_click",false) +_d:listenEvent("mouse_up",false)_d:listenEvent("mouse_scroll",false) +_d:listenEvent("mouse_drag",false)_d:listenEvent("key",false) +_d:listenEvent("key_up",false)_d:listenEvent("char",false) +_d:listenEvent("other_event",false)return _d end,mouseHandler=function(_d,...) +_d:eventHandler("mouse_click",...)end,mouseUpHandler=function(_d,...)_d:eventHandler("mouse_up",...)end,mouseScrollHandler=function(_d,...) +_d:eventHandler("mouse_scroll",...)end,mouseDragHandler=function(_d,...) +_d:eventHandler("mouse_drag",...)end,mouseMoveHandler=function(_d,...) +_d:eventHandler("mouse_move",...)end,keyHandler=function(_d,...)_d:eventHandler("key",...)end,keyUpHandler=function(_d,...) +_d:eventHandler("key_up",...)end,charHandler=function(_d,...)_d:eventHandler("char",...)end,eventHandler=function(_d,ad,...) +cb.eventHandler(_d,ad,...) +if(bc)then +if(coroutine.status(ac)=="suspended")then if(cc~=nil)then +if(ad~=cc)then return end;cc=nil end +local bd,cd=coroutine.resume(ac,ad,...)cc=cd;if not(bd)then if(cd~="Terminated")then +error("Thread Error Occurred - "..cd)end end else +_d:stop()end end end}dc.__index=dc;return setmetatable(dc,cb)end end +aa["objects"]["Image"]=function(...)local ab=da("images")local bb=da("bimg") +local cb,db,_c,ac=table.unpack,string.sub,math.max,math.min +return +function(bc,cc)local dc=cc.getObject("VisualObject")(bc,cc) +local _d="Image"local ad=bb()local bd=ad.getFrameObject(1)local cd;local dd;local __a=1;local a_a=false;local b_a +local c_a=false;local d_a=true;local _aa,aaa=0,0;dc:setSize(24,8)dc:setZIndex(2) +local function baa(_ba)local aba={} +for dba,_ca in +pairs(colors)do if(type(_ca)=="number")then +aba[dba]={term.nativePaletteColor(_ca)}end end;local bba=ad.getMetadata("palette")if(bba~=nil)then for dba,_ca in pairs(bba)do +aba[dba]=tonumber(_ca)end end +local cba=ad.getFrameData("palette")cc.log(cba)if(cba~=nil)then +for dba,_ca in pairs(cba)do aba[dba]=tonumber(_ca)end end;return aba end;local function caa() +if(d_a)then if(ad~=nil)then dc:setSize(ad.getSize())end end end +local daa={getType=function(_ba)return _d end,isType=function(_ba,aba)return +_d==aba or +dc.isType~=nil and dc.isType(aba)or false end,setOffset=function(_ba,aba,bba,cba) +if(cba)then _aa=_aa+ +aba or 0;aaa=aaa+bba or 0 else _aa=aba or _aa;aaa=bba or aaa end;_ba:updateDraw()return _ba end,setXOffset=function(_ba,aba)return _ba:setOffset(_ba,aba, +nil)end,setYOffset=function(_ba,aba)return +_ba:setOffset(_ba,nil,aba)end,setSize=function(_ba,aba,bba)dc:setSize(aba,bba) +d_a=false;return _ba end,getOffset=function(_ba)return _aa,aaa end,getXOffset=function(_ba)return _aa end,getYOffset=function(_ba)return +aaa end,selectFrame=function(_ba,aba)if(ad.getFrameObject(aba)==nil)then +ad.addFrame(aba)end;bd=ad.getFrameObject(aba) +dd=bd.getImage(aba)__a=aba;_ba:updateDraw()end,addFrame=function(_ba,aba) +ad.addFrame(aba)return _ba end,getFrame=function(_ba,aba)return ad.getFrame(aba)end,getFrameObject=function(_ba,aba)return +ad.getFrameObject(aba)end,removeFrame=function(_ba,aba)ad.removeFrame(aba)return _ba end,moveFrame=function(_ba,aba,bba) +ad.moveFrame(aba,bba)return _ba end,getFrames=function(_ba)return ad.getFrames()end,getFrameCount=function(_ba)return +#ad.getFrames()end,getActiveFrame=function(_ba)return __a end,loadImage=function(_ba,aba)if +(fs.exists(aba))then local bba=ab.loadBIMG(aba)ad=bb(bba)__a=1 +bd=ad.getFrameObject(1)cd=ad.createBimg()dd=bd.getImage()caa() +_ba:updateDraw()end;return +_ba end,setPath=function(_ba,aba)return +_ba:loadImage(aba)end,setImage=function(_ba,aba)if(type(aba)=="table")then ad=bb(aba)__a=1 +bd=ad.getFrameObject(1)cd=ad.createBimg()dd=bd.getImage()caa() +_ba:updateDraw()end;return _ba end,clear=function(_ba) +ad=bb()bd=ad.getFrameObject(1)dd=nil;_ba:updateDraw()return _ba end,getImage=function(_ba)return +ad.createBimg()end,getImageFrame=function(_ba,aba)return bd.getImage(aba)end,usePalette=function(_ba,aba)c_a= +aba~=nil and aba or true;return _ba end,getUsePalette=function(_ba)return +c_a end,setUsePalette=function(_ba,aba)return _ba:usePalette(aba)end,play=function(_ba,aba) +if +(ad.getMetadata("animated"))then +local bba= +ad.getMetadata("duration")or ad.getMetadata("secondsPerFrame")or 0.2;_ba:listenEvent("other_event") +b_a=os.startTimer(bba)a_a=aba or false end;return _ba end,setPlay=function(_ba,aba)return +_ba:play(aba)end,stop=function(_ba)os.cancelTimer(b_a)b_a=nil;a_a=false +return _ba end,eventHandler=function(_ba,aba,bba,...) +dc.eventHandler(_ba,aba,bba,...) +if(aba=="timer")then +if(bba==b_a)then +if(ad.getFrame(__a+1)~=nil)then __a=__a+1 +_ba:selectFrame(__a) +local cba= +ad.getFrameData(__a,"duration")or ad.getMetadata("secondsPerFrame")or 0.2;b_a=os.startTimer(cba)else +if(a_a)then __a=1;_ba:selectFrame(__a) +local cba= +ad.getFrameData(__a,"duration")or ad.getMetadata("secondsPerFrame")or 0.2;b_a=os.startTimer(cba)end end;_ba:updateDraw()end end end,setMetadata=function(_ba,aba,bba) +ad.setMetadata(aba,bba)return _ba end,getMetadata=function(_ba,aba)return ad.getMetadata(aba)end,getFrameMetadata=function(_ba,aba,bba)return +ad.getFrameData(aba,bba)end,setFrameMetadata=function(_ba,aba,bba,cba) +ad.setFrameData(aba,bba,cba)return _ba end,blit=function(_ba,aba,bba,cba,dba,_ca)x=dba or x;y=_ca or y +bd.blit(aba,bba,cba,x,y)dd=bd.getImage()_ba:updateDraw()return _ba end,setText=function(_ba,aba,bba,cba)x= +bba or x;y=cba or y;bd.text(aba,x,y)dd=bd.getImage() +_ba:updateDraw()return _ba end,setBg=function(_ba,aba,bba,cba)x=bba or x;y= +cba or y;bd.bg(aba,x,y)dd=bd.getImage() +_ba:updateDraw()return _ba end,setFg=function(_ba,aba,bba,cba)x=bba or x +y=cba or y;bd.fg(aba,x,y)dd=bd.getImage()_ba:updateDraw()return _ba end,getImageSize=function(_ba)return +ad.getSize()end,setImageSize=function(_ba,aba,bba)ad.setSize(aba,bba) +dd=bd.getImage()_ba:updateDraw()return _ba end,resizeImage=function(_ba,aba,bba) +local cba=ab.resizeBIMG(cd,aba,bba)ad=bb(cba)__a=1;bd=ad.getFrameObject(1)dd=bd.getImage() +_ba:updateDraw()return _ba end,draw=function(_ba) +dc.draw(_ba) +_ba:addDraw("image",function()local aba,bba=_ba:getSize()local cba,dba=_ba:getPosition() +local _ca,aca=_ba:getParent():getSize()local bca,cca=_ba:getParent():getOffset() +if +(cba-bca>_ca)or(dba-cca>aca)or(cba-bca+aba<1)or(dba- +cca+bba<1)then return end +if(c_a)then _ba:getParent():setPalette(baa(__a))end +if(dd~=nil)then +for dca,_da in pairs(dd)do +if(dca+aaa<=bba)and(dca+aaa>=1)then +local ada,bda,cda=_da[1],_da[2],_da[3]local dda=_c(1 -_aa,1)local __b=ac(aba-_aa,#ada) +ada=db(ada,dda,__b)bda=db(bda,dda,__b)cda=db(cda,dda,__b) +_ba:addBlit(_c(1 +_aa,1),dca+aaa,ada,bda,cda)end end end end)end}daa.__index=daa;return setmetatable(daa,dc)end end +aa["objects"]["MonitorFrame"]=function(...)local ab=da("basaltMon") +local bb,cb,db,_c=math.max,math.min,string.sub,string.rep +return +function(ac,bc)local cc=bc.getObject("BaseFrame")(ac,bc) +local dc="MonitorFrame"cc:setTerm(nil)local _d=false;local ad +local bd={getType=function()return dc end,isType=function(cd,dd) +return dc==dd or cc.isType~=nil and +cc.isType(dd)or false end,getBase=function(cd)return cc end,setMonitor=function(cd,dd) +if +(type(dd)=="string")then local __a=peripheral.wrap(dd) +if(__a~=nil)then cd:setTerm(__a)end elseif(type(dd)=="table")then cd:setTerm(dd)end;return cd end,setMonitorGroup=function(cd,dd) +ad=ab(dd)cd:setTerm(ad)_d=true;return cd end,render=function(cd)if(cd:getTerm()~= +nil)then cc.render(cd)end end,show=function(cd) +cc:getBase().show(cd)bc.setActiveFrame(cd) +for dd,__a in pairs(colors)do if(type(__a)=="number")then +termObject.setPaletteColor(__a,colors.packRGB(term.nativePaletteColor((__a))))end end +for dd,__a in pairs(colorTheme)do +if(type(__a)=="number")then +termObject.setPaletteColor( +type(dd)=="number"and dd or colors[dd],__a)else local a_a,b_a,c_a=table.unpack(__a) +termObject.setPaletteColor( +type(dd)=="number"and dd or colors[dd],a_a,b_a,c_a)end end;return cd end} +bd.mouseHandler=function(cd,dd,__a,a_a,b_a,c_a,...) +if(_d)then __a,a_a=ad.calculateClick(c_a,__a,a_a)end;cc.mouseHandler(cd,dd,__a,a_a,b_a,c_a,...)end;bd.__index=bd;return setmetatable(bd,cc)end end aa["objects"]["Radio"]=function(...)local ab=da("utils")local bb=da("tHex") return function(cb,db) @@ -1431,84 +2024,704 @@ a_a:addBlit(bc[_aa].x+2,bc[_aa].y,aaa.text,bb[c_a]:rep(#aaa.text),bb[b_a]:rep( a_a:addBackgroundBox(bc[_aa].x,bc[_aa].y,1,1,_d or colors.black) a_a:addBlit(bc[_aa].x+2,bc[_aa].y,aaa.text,bb[aaa.fgCol]:rep(#aaa.text),bb[aaa.bgCol]:rep( #aaa.text))end end;return true end)end}__a.__index=__a;return setmetatable(__a,_c)end end -aa["objects"]["Dropdown"]=function(...)local ab=da("utils")local bb=da("tHex") +aa["objects"]["Pane"]=function(...) +return +function(ab,bb) +local cb=bb.getObject("VisualObject")(ab,bb)local db="Pane"cb:setSize(25,10) +local _c={getType=function(ac)return db end}_c.__index=_c;return setmetatable(_c,cb)end end +aa["objects"]["Progressbar"]=function(...) +return +function(ab,bb) +local cb=bb.getObject("ChangeableObject")(ab,bb)local db="Progressbar"local _c=0;cb:setZIndex(5)cb:setValue(false) +cb:setSize(25,3)local ac=colors.black;local bc=""local cc=colors.white;local dc=""local _d=0 +local ad={getType=function(bd)return db end,setDirection=function(bd,cd) +_d=cd;bd:updateDraw()return bd end,getDirection=function(bd)return _d end,setProgressBar=function(bd,cd,dd,__a) +ac=cd or ac;bc=dd or bc;cc=__a or cc;bd:updateDraw()return bd end,getProgressBar=function(bd)return +ac,bc,cc end,setActiveBarColor=function(bd,cd)return bd:setProgressBar(cd,nil,nil)end,getActiveBarColor=function(bd)return +ac end,setActiveBarSymbol=function(bd,cd)return bd:setProgressBar(nil,cd,nil)end,getActiveBarSymbol=function(bd)return +bc end,setActiveBarSymbolColor=function(bd,cd)return bd:setProgressBar(nil,nil,cd)end,getActiveBarSymbolColor=function(bd)return +cc end,setBackgroundSymbol=function(bd,cd)dc=cd:sub(1,1)bd:updateDraw()return bd end,getBackgroundSymbol=function(bd)return +dc end,setProgress=function(bd,cd) +if(cd>=0)and(cd<=100)and(_c~=cd)then _c=cd +bd:setValue(_c)if(_c==100)then bd:progressDoneHandler()end end;bd:updateDraw()return bd end,getProgress=function(bd)return +_c end,onProgressDone=function(bd,cd)bd:registerEvent("progress_done",cd) +return bd end,progressDoneHandler=function(bd) +bd:sendEvent("progress_done")end,draw=function(bd)cb.draw(bd) +bd:addDraw("progressbar",function() +local cd,dd=bd:getPosition()local __a,a_a=bd:getSize() +local b_a,c_a=bd:getBackground(),bd:getForeground() +if(b_a~=false)then bd:addBackgroundBox(1,1,__a,a_a,b_a)end;if(dc~="")then bd:addTextBox(1,1,__a,a_a,dc)end +if +(c_a~=false)then bd:addForegroundBox(1,1,__a,a_a,c_a)end +if(_d==1)then bd:addBackgroundBox(1,1,__a,a_a/100 *_c,ac)bd:addForegroundBox(1,1,__a, +a_a/100 *_c,cc) +bd:addTextBox(1,1,__a,a_a/100 *_c,bc)elseif(_d==3)then +bd:addBackgroundBox(1,1 +math.ceil(a_a-a_a/100 *_c),__a, +a_a/100 *_c,ac) +bd:addForegroundBox(1,1 +math.ceil(a_a-a_a/100 *_c),__a, +a_a/100 *_c,cc) +bd:addTextBox(1,1 +math.ceil(a_a-a_a/100 *_c),__a,a_a/100 *_c,bc)elseif(_d==2)then +bd:addBackgroundBox(1 +math.ceil(__a-__a/100 *_c),1,__a/ +100 *_c,a_a,ac) +bd:addForegroundBox(1 +math.ceil(__a-__a/100 *_c),1,__a/100 *_c,a_a,cc) +bd:addTextBox(1 +math.ceil(__a-__a/100 *_c),1,__a/100 *_c,a_a,bc)else +bd:addBackgroundBox(1,1,math.ceil(__a/100 *_c),a_a,ac) +bd:addForegroundBox(1,1,math.ceil(__a/100 *_c),a_a,cc) +bd:addTextBox(1,1,math.ceil(__a/100 *_c),a_a,bc)end end)end}ad.__index=ad;return setmetatable(ad,cb)end end +aa["objects"]["Switch"]=function(...) +return +function(ab,bb) +local cb=bb.getObject("ChangeableObject")(ab,bb)local db="Switch"cb:setSize(4,1)cb:setValue(false) +cb:setZIndex(5)local _c=colors.black;local ac=colors.red;local bc=colors.green +local cc={getType=function(dc)return db end,setSymbol=function(dc,_d) +_c=_d;return dc end,getSymbol=function(dc)return _c end,setActiveBackground=function(dc,_d)bc=_d;return dc end,getActiveBackground=function(dc)return bc end,setInactiveBackground=function(dc,_d) +ac=_d;return dc end,getInactiveBackground=function(dc)return ac end,load=function(dc) +dc:listenEvent("mouse_click")end,mouseHandler=function(dc,...) +if(cb.mouseHandler(dc,...))then +dc:setValue(not dc:getValue())dc:updateDraw()return true end end,draw=function(dc)cb.draw(dc) +dc:addDraw("switch",function() +local _d=dc:getParent()local ad,bd=dc:getBackground(),dc:getForeground() +local cd,dd=dc:getSize() +if(dc:getValue())then dc:addBackgroundBox(1,1,cd,dd,bc) +dc:addBackgroundBox(cd,1,1,dd,_c)else dc:addBackgroundBox(1,1,cd,dd,ac) +dc:addBackgroundBox(1,1,1,dd,_c)end end)end}cc.__index=cc;return setmetatable(cc,cb)end end +aa["objects"]["Program"]=function(...)local ab=da("tHex")local bb=da("process") +local cb=string.sub +return +function(db,_c)local ac=_c.getObject("VisualObject")(db,_c) +local bc="Program"local cc;local dc;local _d={} +local function ad(_aa,aaa,baa,caa)local daa,_ba=1,1;local aba,bba=colors.black,colors.white;local cba=false +local dba=false;local _ca={}local aca={}local bca={}local cca={}local dca;local _da={}for i=0,15 do local cab=2 ^i +cca[cab]={_c.getTerm().getPaletteColour(cab)}end;local function ada()dca=(" "):rep(baa) +for n=0,15 do +local cab=2 ^n;local dab=ab[cab]_da[cab]=dab:rep(baa)end end +local function bda()ada()local cab=dca +local dab=_da[colors.white]local _bb=_da[colors.black] +for n=1,caa do +_ca[n]=cb(_ca[n]==nil and cab or _ca[n]..cab:sub(1, +baa-_ca[n]:len()),1,baa) +bca[n]=cb(bca[n]==nil and dab or bca[n].. +dab:sub(1,baa-bca[n]:len()),1,baa) +aca[n]=cb(aca[n]==nil and _bb or aca[n].. +_bb:sub(1,baa-aca[n]:len()),1,baa)end;ac.updateDraw(ac)end;bda()local function cda()if +daa>=1 and _ba>=1 and daa<=baa and _ba<=caa then else end end +local function dda(cab,dab,_bb)if + +_ba<1 or _ba>caa or daa<1 or daa+#cab-1 >baa then return end +_ca[_ba]=cb(_ca[_ba],1,daa-1)..cab..cb(_ca[_ba], +daa+#cab,baa)bca[_ba]=cb(bca[_ba],1,daa-1).. +dab..cb(bca[_ba],daa+#cab,baa) +aca[_ba]= +cb(aca[_ba],1,daa-1).._bb..cb(aca[_ba],daa+#cab,baa)daa=daa+#cab;if dba then cda()end;cc:updateDraw()end +local function __b(cab,dab,_bb) +if(_bb~=nil)then local abb=_ca[dab]if(abb~=nil)then +_ca[dab]=cb(abb:sub(1,cab-1).._bb..abb:sub(cab+ +(_bb:len()),baa),1,baa)end end;cc:updateDraw()end +local function a_b(cab,dab,_bb) +if(_bb~=nil)then local abb=aca[dab]if(abb~=nil)then +aca[dab]=cb(abb:sub(1,cab-1).._bb..abb:sub(cab+ +(_bb:len()),baa),1,baa)end end;cc:updateDraw()end +local function b_b(cab,dab,_bb) +if(_bb~=nil)then local abb=bca[dab]if(abb~=nil)then +bca[dab]=cb(abb:sub(1,cab-1).._bb..abb:sub(cab+ +(_bb:len()),baa),1,baa)end end;cc:updateDraw()end +local c_b=function(cab) +if type(cab)~="number"then +error("bad argument #1 (expected number, got "..type(cab)..")",2)elseif ab[cab]==nil then +error("Invalid color (got "..cab..")",2)end;bba=cab end +local d_b=function(cab) +if type(cab)~="number"then +error("bad argument #1 (expected number, got "..type(cab)..")",2)elseif ab[cab]==nil then +error("Invalid color (got "..cab..")",2)end;aba=cab end +local _ab=function(cab,dab,_bb,abb)if type(cab)~="number"then +error("bad argument #1 (expected number, got "..type(cab)..")",2)end +if ab[cab]==nil then error("Invalid color (got ".. +cab..")",2)end;local bbb +if +type(dab)=="number"and _bb==nil and abb==nil then bbb={colours.rgb8(dab)}cca[cab]=bbb else if +type(dab)~="number"then +error("bad argument #2 (expected number, got "..type(dab)..")",2)end;if type(_bb)~="number"then +error( +"bad argument #3 (expected number, got "..type(_bb)..")",2)end;if type(abb)~="number"then +error( +"bad argument #4 (expected number, got "..type(abb)..")",2)end;bbb=cca[cab]bbb[1]=dab +bbb[2]=_bb;bbb[3]=abb end end +local aab=function(cab)if type(cab)~="number"then +error("bad argument #1 (expected number, got "..type(cab)..")",2)end +if ab[cab]==nil then error("Invalid color (got ".. +cab..")",2)end;local dab=cca[cab]return dab[1],dab[2],dab[3]end +local bab={setCursorPos=function(cab,dab)if type(cab)~="number"then +error("bad argument #1 (expected number, got "..type(cab)..")",2)end;if type(dab)~="number"then +error( +"bad argument #2 (expected number, got "..type(dab)..")",2)end;daa=math.floor(cab) +_ba=math.floor(dab)if(dba)then cda()end end,getCursorPos=function()return +daa,_ba end,setCursorBlink=function(cab)if type(cab)~="boolean"then +error("bad argument #1 (expected boolean, got ".. +type(cab)..")",2)end;cba=cab end,getCursorBlink=function()return +cba end,getPaletteColor=aab,getPaletteColour=aab,setBackgroundColor=d_b,setBackgroundColour=d_b,setTextColor=c_b,setTextColour=c_b,setPaletteColor=_ab,setPaletteColour=_ab,getBackgroundColor=function()return aba end,getBackgroundColour=function()return aba end,getSize=function() +return baa,caa end,getTextColor=function()return bba end,getTextColour=function()return bba end,basalt_resize=function(cab,dab)baa,caa=cab,dab;bda()end,basalt_reposition=function(cab,dab) +_aa,aaa=cab,dab end,basalt_setVisible=function(cab)dba=cab end,drawBackgroundBox=function(cab,dab,_bb,abb,bbb)for n=1,abb do +a_b(cab,dab+ (n-1),ab[bbb]:rep(_bb))end end,drawForegroundBox=function(cab,dab,_bb,abb,bbb) +for n=1,abb do b_b(cab, +dab+ (n-1),ab[bbb]:rep(_bb))end end,drawTextBox=function(cab,dab,_bb,abb,bbb)for n=1,abb do +__b(cab,dab+ (n-1),bbb:rep(_bb))end end,basalt_update=function()for n=1,caa do +cc:addBlit(1,n,_ca[n],bca[n],aca[n])end end,scroll=function(cab) +assert(type(cab)== +"number","bad argument #1 (expected number, got "..type(cab)..")") +if cab~=0 then +for newY=1,caa do local dab=newY+cab;if dab<1 or dab>caa then _ca[newY]=dca +bca[newY]=_da[bba]aca[newY]=_da[aba]else _ca[newY]=_ca[dab]aca[newY]=aca[dab] +bca[newY]=bca[dab]end end end;if(dba)then cda()end end,isColor=function()return +_c.getTerm().isColor()end,isColour=function() +return _c.getTerm().isColor()end,write=function(cab)cab=tostring(cab)if(dba)then +dda(cab,ab[bba]:rep(cab:len()),ab[aba]:rep(cab:len()))end end,clearLine=function() +if +(dba)then __b(1,_ba,(" "):rep(baa)) +a_b(1,_ba,ab[aba]:rep(baa))b_b(1,_ba,ab[bba]:rep(baa))end;if(dba)then cda()end end,clear=function() +for n=1,caa +do __b(1,n,(" "):rep(baa)) +a_b(1,n,ab[aba]:rep(baa))b_b(1,n,ab[bba]:rep(baa))end;if(dba)then cda()end end,blit=function(cab,dab,_bb)if +type(cab)~="string"then +error("bad argument #1 (expected string, got "..type(cab)..")",2)end;if type(dab)~="string"then +error( +"bad argument #2 (expected string, got "..type(dab)..")",2)end;if type(_bb)~="string"then +error( +"bad argument #3 (expected string, got "..type(_bb)..")",2)end +if +#dab~=#cab or#_bb~=#cab then error("Arguments must be the same length",2)end;if(dba)then dda(cab,dab,_bb)end end}return bab end;ac:setZIndex(5)ac:setSize(30,12)local bd=ad(1,1,30,12)local cd +local dd=false;local __a={} +local function a_a(_aa)local aaa=_aa:getParent()local baa,caa=bd.getCursorPos() +local daa,_ba=_aa:getPosition()local aba,bba=_aa:getSize() +if(daa+baa-1 >=1 and +daa+baa-1 <=daa+aba-1 and caa+_ba-1 >=1 and +caa+_ba-1 <=_ba+bba-1)then +aaa:setCursor( +_aa:isFocused()and bd.getCursorBlink(),daa+baa-1,caa+_ba-1,bd.getTextColor())end end +local function b_a(_aa,aaa,...)local baa,caa=cd:resume(aaa,...) +if(baa==false)and(caa~=nil)and +(caa~="Terminated")then +local daa=_aa:sendEvent("program_error",caa) +if(daa~=false)then error("Basalt Program - "..caa)end end +if(cd:getStatus()=="dead")then _aa:sendEvent("program_done")end end +local function c_a(_aa,aaa,baa,caa,daa)if(cd==nil)then return false end +if not(cd:isDead())then if not(dd)then +local _ba,aba=_aa:getAbsolutePosition()b_a(_aa,aaa,baa,caa-_ba+1,daa-aba+1) +a_a(_aa)end end end +local function d_a(_aa,aaa,baa,caa)if(cd==nil)then return false end +if not(cd:isDead())then if not(dd)then if(_aa.draw)then +b_a(_aa,aaa,baa,caa)a_a(_aa)end end end end +cc={getType=function(_aa)return bc end,show=function(_aa)ac.show(_aa) +bd.setBackgroundColor(_aa:getBackground())bd.setTextColor(_aa:getForeground()) +bd.basalt_setVisible(true)return _aa end,hide=function(_aa) +ac.hide(_aa)bd.basalt_setVisible(false)return _aa end,setPosition=function(_aa,aaa,baa,caa) +ac.setPosition(_aa,aaa,baa,caa)bd.basalt_reposition(_aa:getPosition())return _aa end,getBasaltWindow=function()return +bd end,getBasaltProcess=function()return cd end,setSize=function(_aa,aaa,baa,caa)ac.setSize(_aa,aaa,baa,caa) +bd.basalt_resize(_aa:getWidth(),_aa:getHeight())return _aa end,getStatus=function(_aa)if(cd~=nil)then return +cd:getStatus()end;return"inactive"end,setEnviroment=function(_aa,aaa)_d= +aaa or{}return _aa end,execute=function(_aa,aaa,...)dc=aaa or dc +cd=bb:new(dc,bd,_d,...)bd.setBackgroundColor(colors.black) +bd.setTextColor(colors.white)bd.clear()bd.setCursorPos(1,1) +bd.setBackgroundColor(_aa:getBackground()) +bd.setTextColor(_aa:getForeground()or colors.white)bd.basalt_setVisible(true)b_a(_aa)dd=false +_aa:listenEvent("mouse_click",_aa)_aa:listenEvent("mouse_up",_aa) +_aa:listenEvent("mouse_drag",_aa)_aa:listenEvent("mouse_scroll",_aa) +_aa:listenEvent("key",_aa)_aa:listenEvent("key_up",_aa) +_aa:listenEvent("char",_aa)_aa:listenEvent("other_event",_aa)return _aa end,setExecute=function(_aa,aaa,...)return +_aa:execute(aaa,...)end,stop=function(_aa)local aaa=_aa:getParent() +if(cd~=nil)then if not +(cd:isDead())then b_a(_aa,"terminate")if(cd:isDead())then +aaa:setCursor(false)end end end;aaa:removeEvents(_aa)return _aa end,pause=function(_aa,aaa)dd= +aaa or(not dd)if(cd~=nil)then +if not(cd:isDead())then if not(dd)then +_aa:injectEvents(table.unpack(__a))__a={}end end end;return _aa end,isPaused=function(_aa)return +dd end,injectEvent=function(_aa,aaa,baa,...) +if(cd~=nil)then if not(cd:isDead())then +if(dd==false)or(baa)then +b_a(_aa,aaa,...)else table.insert(__a,{event=aaa,args={...}})end end end;return _aa end,getQueuedEvents=function(_aa)return +__a end,updateQueuedEvents=function(_aa,aaa)__a=aaa or __a;return _aa end,injectEvents=function(_aa,...)if(cd~=nil)then +if not +(cd:isDead())then for aaa,baa in pairs({...})do +b_a(_aa,baa.event,table.unpack(baa.args))end end end;return _aa end,mouseHandler=function(_aa,aaa,baa,caa) +if +(ac.mouseHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_click",aaa,baa,caa)return true end;return false end,mouseUpHandler=function(_aa,aaa,baa,caa) +if +(ac.mouseUpHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_up",aaa,baa,caa)return true end;return false end,scrollHandler=function(_aa,aaa,baa,caa) +if +(ac.scrollHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_scroll",aaa,baa,caa)return true end;return false end,dragHandler=function(_aa,aaa,baa,caa) +if +(ac.dragHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_drag",aaa,baa,caa)return true end;return false end,keyHandler=function(_aa,aaa,baa)if +(ac.keyHandler(_aa,aaa,baa))then d_a(_aa,"key",aaa,baa)return true end;return +false end,keyUpHandler=function(_aa,aaa)if +(ac.keyUpHandler(_aa,aaa))then d_a(_aa,"key_up",aaa)return true end +return false end,charHandler=function(_aa,aaa)if +(ac.charHandler(_aa,aaa))then d_a(_aa,"char",aaa)return true end +return false end,getFocusHandler=function(_aa) +ac.getFocusHandler(_aa) +if(cd~=nil)then +if not(cd:isDead())then +if not(dd)then local aaa=_aa:getParent() +if(aaa~=nil)then +local baa,caa=bd.getCursorPos()local daa,_ba=_aa:getPosition()local aba,bba=_aa:getSize() +if +( + +daa+baa-1 >=1 and daa+baa-1 <=daa+aba-1 and caa+_ba-1 >=1 and caa+_ba-1 <=_ba+bba-1)then +aaa:setCursor(bd.getCursorBlink(),daa+baa-1,caa+_ba-1,bd.getTextColor())end end end end end end,loseFocusHandler=function(_aa) +ac.loseFocusHandler(_aa) +if(cd~=nil)then if not(cd:isDead())then local aaa=_aa:getParent()if(aaa~=nil)then +aaa:setCursor(false)end end end end,eventHandler=function(_aa,aaa,...) +ac.eventHandler(_aa,aaa,...)if cd==nil then return end +if not cd:isDead()then +if not dd then b_a(_aa,aaa,...) +if +_aa:isFocused()then local baa=_aa:getParent()local caa,daa=_aa:getPosition() +local _ba,aba=bd.getCursorPos()local bba,cba=_aa:getSize() +if caa+_ba-1 >=1 and +caa+_ba-1 <=caa+bba-1 and aba+daa-1 >=1 and +aba+daa-1 <=daa+cba-1 then +baa:setCursor(bd.getCursorBlink(), +caa+_ba-1,aba+daa-1,bd.getTextColor())end end else table.insert(__a,{event=aaa,args={...}})end end end,resizeHandler=function(_aa,...) +ac.resizeHandler(_aa,...) +if(cd~=nil)then +if not(cd:isDead())then +if not(dd)then +bd.basalt_resize(_aa:getSize())b_a(_aa,"term_resize",_aa:getSize())else +bd.basalt_resize(_aa:getSize()) +table.insert(__a,{event="term_resize",args={_aa:getSize()}})end end end end,repositionHandler=function(_aa,...) +ac.repositionHandler(_aa,...) +if(cd~=nil)then if not(cd:isDead())then +bd.basalt_reposition(_aa:getPosition())end end end,draw=function(_aa) +ac.draw(_aa) +_aa:addDraw("program",function()local aaa=_aa:getParent()local baa,caa=_aa:getPosition() +local daa,_ba=bd.getCursorPos()local aba,bba=_aa:getSize()bd.basalt_update()end)end,onError=function(_aa,...) +for baa,caa in +pairs(table.pack(...))do if(type(caa)=="function")then +_aa:registerEvent("program_error",caa)end end;local aaa=_aa:getParent()_aa:listenEvent("other_event") +return _aa end,onDone=function(_aa,...) +for baa,caa in +pairs(table.pack(...))do if(type(caa)=="function")then +_aa:registerEvent("program_done",caa)end end;local aaa=_aa:getParent()_aa:listenEvent("other_event") +return _aa end}cc.__index=cc;return setmetatable(cc,ac)end end +aa["objects"]["Label"]=function(...)local ab=da("utils")local bb=ab.wrapText +local cb=ab.writeWrappedText;local db=da("tHex") +return +function(_c,ac) +local bc=ac.getObject("VisualObject")(_c,ac)local cc="Label"bc:setZIndex(3)bc:setSize(5,1) +bc:setBackground(false)local dc=true;local _d,ad="Label","left" +local bd={getType=function(cd)return cc end,getBase=function(cd)return bc end,setText=function(cd,dd) +_d=tostring(dd) +if(dc)then local __a=bb(_d,#_d)local a_a,b_a=1,1;for c_a,d_a in pairs(__a)do b_a=b_a+1 +a_a=math.max(a_a,d_a:len())end;cd:setSize(a_a,b_a)dc=true end;cd:updateDraw()return cd end,getAutoSize=function(cd)return +dc end,setAutoSize=function(cd,dd)dc=dd;return cd end,getText=function(cd)return _d end,setSize=function(cd,dd,__a) +bc.setSize(cd,dd,__a)dc=false;return cd end,getTextAlign=function(cd)return ad end,setTextAlign=function(cd,dd)ad=dd or ad;return +cd end,draw=function(cd)bc.draw(cd) +cd:addDraw("label",function()local dd,__a=cd:getSize() +local a_a= + + +ad=="center"and math.floor(dd/2 -_d:len()/2 +0.5)or ad=="right"and dd- (_d:len()-1)or 1;cb(cd,a_a,1,_d,dd+1,__a)end)end,init=function(cd) +bc.init(cd)local dd=cd:getParent() +cd:setForeground(dd:getForeground())end}bd.__index=bd;return setmetatable(bd,bc)end end +aa["objects"]["Graph"]=function(...) +return +function(ab,bb) +local cb=bb.getObject("ChangeableObject")(ab,bb)local db="Graph"cb:setZIndex(5)cb:setSize(30,10)local _c={} +local ac=colors.gray;local bc="\7"local cc=colors.black;local dc=100;local _d=0;local ad="line"local bd=10 +local cd={getType=function(dd)return db end,setGraphColor=function(dd,__a)ac= +__a or ac;dd:updateDraw()return dd end,setGraphSymbol=function(dd,__a,a_a) +bc=__a or bc;cc=a_a or cc;dd:updateDraw()return dd end,setGraphSymbolColor=function(dd,__a)return dd:setGraphSymbolColor( +nil,__a)end,getGraphSymbol=function(dd) +return bc,cc end,getGraphSymbolColor=function(dd)return cc end,addDataPoint=function(dd,__a)if __a>=_d and __a<=dc then +table.insert(_c,__a)dd:updateDraw()end;if(#_c>100)then +table.remove(_c,1)end;return dd end,setMaxValue=function(dd,__a) +dc=__a;dd:updateDraw()return dd end,getMaxValue=function(dd)return dc end,setMinValue=function(dd,__a) +_d=__a;dd:updateDraw()return dd end,getMinValue=function(dd)return _d end,setGraphType=function(dd,__a)if __a== +"scatter"or __a=="line"or __a=="bar"then ad=__a +dd:updateDraw()end;return dd end,getGraphType=function(dd)return +ad end,setMaxEntries=function(dd,__a)bd=__a;dd:updateDraw()return dd end,getMaxEntries=function(dd)return +bd end,clear=function(dd)_c={}dd:updateDraw()return dd end,draw=function(dd) +cb.draw(dd) +dd:addDraw("graph",function()local __a,a_a=dd:getPosition()local b_a,c_a=dd:getSize() +local d_a,_aa=dd:getBackground(),dd:getForeground()local aaa=dc-_d;local baa,caa;local daa=#_c-bd+1;if daa<1 then daa=1 end +for i=daa,#_c do local _ba=_c[i] +local aba=math.floor(( ( +b_a-1)/ (bd-1))* (i-daa)+1.5) +local bba=math.floor((c_a-1)- ( (c_a-1)/aaa)* (_ba-_d)+1.5) +if ad=="scatter"then dd:addBackgroundBox(aba,bba,1,1,ac) +dd:addForegroundBox(aba,bba,1,1,cc)dd:addTextBox(aba,bba,1,1,bc)elseif ad=="line"then +if baa and caa then +local cba=math.abs(aba-baa)local dba=math.abs(bba-caa)local _ca=baa-dba then +bca=bca-dba;baa=baa+_ca end +if cca0)then -for n=1,ad do -if(_ba[n+dc]~=nil)then -if -(caa<=d_a)and(caa+_d>d_a)and(daa+n==_aa)then b_a:setValue(_ba[n+dc])b_a:updateDraw() -local aba=b_a:sendEvent("mouse_click",b_a,"mouse_click",c_a,d_a,_aa)if(aba==false)then return aba end;if(aaa)then -db.schedule(function()sleep(0.1) -b_a:mouseUpHandler(c_a,d_a,_aa)end)()end;return true end end end end end end;local baa=_c:getBase() -if(baa.mouseHandler(b_a,c_a,d_a,_aa))then __a=not __a -b_a:getParent():setImportant(b_a)b_a:updateDraw()return true else -if(__a)then b_a:updateDraw()__a=false end;return false end end,mouseUpHandler=function(b_a,c_a,d_a,_aa) -if -(__a)then local aaa,baa=b_a:getAbsolutePosition() -if(c_a==1)then local caa=b_a:getAll() -if(# -caa>0)then -for n=1,ad do -if(caa[n+dc]~=nil)then -if -(aaa<=d_a)and(aaa+_d>d_a)and(baa+n==_aa)then __a=false;b_a:updateDraw() -local daa=b_a:sendEvent("mouse_up",b_a,"mouse_up",c_a,d_a,_aa)if(daa==false)then return daa end;return true end end end end end end end,dragHandler=function(b_a,c_a,d_a,_aa)if -(_c.dragHandler(b_a,c_a,d_a,_aa))then __a=true end end,scrollHandler=function(b_a,c_a,d_a,_aa) -if -(__a)then local aaa,baa=b_a:getAbsolutePosition()if -(d_a>=aaa)and(d_a<=aaa+_d)and(_aa>=baa)and(_aa<=baa+ad)then -b_a:setFocus()end end -if(__a)and(b_a:isFocused())then -local aaa,baa=b_a:getAbsolutePosition()if -(d_aaaa+_d)or(_aabaa+ad)then return false end;if(#b_a:getAll()<=ad)then return -false end;local caa=b_a:getAll()dc=dc+c_a -if(dc<0)then dc=0 end -if(c_a==1)then if(#caa>ad)then if(dc>#caa-ad)then dc=#caa-ad end else -dc=math.min(#caa-1,0)end end -local daa=b_a:sendEvent("mouse_scroll",b_a,"mouse_scroll",c_a,d_a,_aa)if(daa==false)then return daa end;b_a:updateDraw()return true end end,draw=function(b_a) -_c.draw(b_a)b_a:setDrawState("list",false) -b_a:addDraw("dropdown",function() -local c_a,d_a=b_a:getPosition()local _aa,aaa=b_a:getSize()local baa=b_a:getValue() -local caa=b_a:getAll()local daa,_ba=b_a:getBackground(),b_a:getForeground() -local aba=ab.getTextHorizontalAlign(( -baa~=nil and baa.text or""),_aa,cc):sub(1, -_aa-1).. (__a and dd or cd) -b_a:addBlit(1,1,aba,bb[_ba]:rep(#aba),bb[daa]:rep(#aba)) -if(__a)then b_a:addTextBox(1,2,_d,ad," ") -b_a:addBackgroundBox(1,2,_d,ad,daa)b_a:addForegroundBox(1,2,_d,ad,_ba) -for n=1,ad do -if(caa[n+dc]~=nil)then local bba=ab.getTextHorizontalAlign(caa[ -n+dc].text,_d,cc) +local _c=db.getObject("ChangeableObject")(cb,db)local ac="List"local bc={}local cc=colors.black;local dc=colors.lightGray;local _d=true +local ad="left"local bd=0;local cd=true;_c:setSize(16,8)_c:setZIndex(5) +local dd={init=function(__a) +local a_a=__a:getParent()__a:listenEvent("mouse_click") +__a:listenEvent("mouse_drag")__a:listenEvent("mouse_scroll")return _c.init(__a)end,getBase=function(__a)return +_c end,setTextAlign=function(__a,a_a)ad=a_a;return __a end,getTextAlign=function(__a)return ad end,getBase=function(__a)return _c end,getType=function(__a)return +ac end,isType=function(__a,a_a)return +ac==a_a or _c.isType~=nil and _c.isType(a_a)or false end,addItem=function(__a,a_a,b_a,c_a,...) +table.insert(bc,{text=a_a,bgCol= +b_a or __a:getBackground(),fgCol=c_a or __a:getForeground(),args={...}})if(#bc<=1)then __a:setValue(bc[1],false)end +__a:updateDraw()return __a end,setOptions=function(__a,...) +bc={} +for a_a,b_a in pairs(...)do +if(type(b_a)=="string")then +table.insert(bc,{text=b_a,bgCol=__a:getBackground(),fgCol=__a:getForeground(),args={}})else +table.insert(bc,{text=b_a[1],bgCol=b_a[2]or __a:getBackground(),fgCol=b_a[3]or +__a:getForeground(),args=b_a[4]or{}})end end;__a:setValue(bc[1],false)__a:updateDraw()return __a end,setOffset=function(__a,a_a) +bd=a_a;__a:updateDraw()return __a end,getOffset=function(__a)return bd end,removeItem=function(__a,a_a) if( -caa[n+dc]==baa)then -if(bc)then local cba,dba=b_a:getSelectionColor() -b_a:addBlit(1,n+1,bba,bb[dba]:rep( -#bba),bb[cba]:rep(#bba))else -b_a:addBlit(1,n+1,bba,bb[caa[n+dc].fgCol]:rep(#bba),bb[caa[n+dc].bgCol]:rep( -#bba))end else -b_a:addBlit(1,n+1,bba,bb[caa[n+dc].fgCol]:rep(#bba),bb[caa[n+dc].bgCol]:rep( -#bba))end end end end end)end}a_a.__index=a_a;return setmetatable(a_a,_c)end end +type(a_a)=="number")then table.remove(bc,a_a)elseif(type(a_a)=="table")then +for b_a,c_a in +pairs(bc)do if(c_a==a_a)then table.remove(bc,b_a)break end end end;__a:updateDraw()return __a end,getItem=function(__a,a_a)return +bc[a_a]end,getAll=function(__a)return bc end,getOptions=function(__a)return bc end,getItemIndex=function(__a) +local a_a=__a:getValue()for b_a,c_a in pairs(bc)do if(c_a==a_a)then return b_a end end end,clear=function(__a) +bc={}__a:setValue({},false)__a:updateDraw()return __a end,getItemCount=function(__a)return +#bc end,editItem=function(__a,a_a,b_a,c_a,d_a,...)table.remove(bc,a_a) +table.insert(bc,a_a,{text=b_a,bgCol=c_a or +__a:getBackground(),fgCol=d_a or __a:getForeground(),args={...}})__a:updateDraw()return __a end,selectItem=function(__a,a_a)__a:setValue( +bc[a_a]or{},false)__a:updateDraw()return __a end,setSelectionColor=function(__a,a_a,b_a,c_a)cc= +a_a or __a:getBackground() +dc=b_a or __a:getForeground()_d=c_a~=nil and c_a or true;__a:updateDraw() +return __a end,setSelectionBG=function(__a,a_a)return __a:setSelectionColor(a_a, +nil,_d)end,setSelectionFG=function(__a,a_a)return __a:setSelectionColor( +nil,a_a,_d)end,getSelectionColor=function(__a) +return cc,dc end,getSelectionBG=function(__a)return cc end,getSelectionFG=function(__a)return dc end,isSelectionColorActive=function(__a)return _d end,setScrollable=function(__a,a_a) +cd=a_a;if(a_a==nil)then cd=true end;__a:updateDraw()return __a end,getScrollable=function(__a)return +cd end,scrollHandler=function(__a,a_a,b_a,c_a) +if(_c.scrollHandler(__a,a_a,b_a,c_a))then +if(cd)then +local d_a,_aa=__a:getSize()bd=bd+a_a;if(bd<0)then bd=0 end;if(a_a>=1)then +if(#bc>_aa)then +if(bd>#bc-_aa)then bd=#bc-_aa end;if(bd>=#bc)then bd=#bc-1 end else bd=bd-1 end end +__a:updateDraw()end;return true end;return false end,mouseHandler=function(__a,a_a,b_a,c_a) +if +(_c.mouseHandler(__a,a_a,b_a,c_a))then local d_a,_aa=__a:getAbsolutePosition()local aaa,baa=__a:getSize() +if +(#bc>0)then +for n=1,baa do +if(bc[n+bd]~=nil)then if +(d_a<=b_a)and(d_a+aaa>b_a)and(_aa+n-1 ==c_a)then __a:setValue(bc[n+bd])__a:selectHandler() +__a:updateDraw()end end end end;return true end;return false end,dragHandler=function(__a,a_a,b_a,c_a)return +__a:mouseHandler(a_a,b_a,c_a)end,touchHandler=function(__a,a_a,b_a)return +__a:mouseHandler(1,a_a,b_a)end,onSelect=function(__a,...) +for a_a,b_a in +pairs(table.pack(...))do if(type(b_a)=="function")then +__a:registerEvent("select_item",b_a)end end;return __a end,selectHandler=function(__a) +__a:sendEvent("select_item",__a:getValue())end,draw=function(__a)_c.draw(__a) +__a:addDraw("list",function() +local a_a,b_a=__a:getSize() +for n=1,b_a do +if bc[n+bd]then local c_a=bc[n+bd].text +local d_a,_aa=bc[n+bd].fgCol,bc[n+bd].bgCol +if bc[n+bd]==__a:getValue()and _d then d_a,_aa=dc,cc end;__a:addText(1,n,c_a:sub(1,a_a)) +__a:addBG(1,n,bb[_aa]:rep(a_a))__a:addFG(1,n,bb[d_a]:rep(a_a))end end end)end}dd.__index=dd;return setmetatable(dd,_c)end end +aa["objects"]["Checkbox"]=function(...)local ab=da("utils")local bb=da("tHex") +return +function(cb,db) +local _c=db.getObject("ChangeableObject")(cb,db)local ac="Checkbox"_c:setZIndex(5)_c:setValue(false) +_c:setSize(1,1)local bc,cc,dc,_d="\42"," ","","right" +local ad={load=function(bd)bd:listenEvent("mouse_click",bd) +bd:listenEvent("mouse_up",bd)end,getType=function(bd)return ac end,isType=function(bd,cd)return +ac==cd or +_c.isType~=nil and _c.isType(cd)or false end,setSymbol=function(bd,cd,dd) +bc=cd or bc;cc=dd or cc;bd:updateDraw()return bd end,setActiveSymbol=function(bd,cd)return bd:setSymbol(cd, +nil)end,setInactiveSymbol=function(bd,cd) +return bd:setSymbol(nil,cd)end,getSymbol=function(bd)return bc,cc end,getActiveSymbol=function(bd)return bc end,getInactiveSymbol=function(bd)return cc end,setText=function(bd,cd) +dc=cd;return bd end,getText=function(bd)return dc end,setTextPosition=function(bd,cd)_d=cd or _d;return bd end,getTextPosition=function(bd)return +_d end,setChecked=_c.setValue,getChecked=_c.getValue,mouseHandler=function(bd,cd,dd,__a) +if(_c.mouseHandler(bd,cd,dd,__a))then +if(cd==1)then +if( +bd:getValue()~=true)and(bd:getValue()~=false)then +bd:setValue(false)else bd:setValue(not bd:getValue())end;bd:updateDraw()return true end end;return false end,draw=function(bd) +_c.draw(bd) +bd:addDraw("checkbox",function()local cd,dd=bd:getPosition()local __a,a_a=bd:getSize() +local b_a=ab.getTextVerticalAlign(a_a,"center")local c_a,d_a=bd:getBackground(),bd:getForeground() +if +(bd:getValue())then +bd:addBlit(1,b_a,ab.getTextHorizontalAlign(bc,__a,"center"),bb[d_a],bb[c_a])else +bd:addBlit(1,b_a,ab.getTextHorizontalAlign(cc,__a,"center"),bb[d_a],bb[c_a])end;if(dc~="")then local _aa=_d=="left"and-dc:len()or 3 +bd:addText(_aa,b_a,dc)end end)end}ad.__index=ad;return setmetatable(ad,_c)end end +aa["objects"]["ChangeableObject"]=function(...) +return +function(ab,bb) +local cb=bb.getObject("VisualObject")(ab,bb)local db="ChangeableObject"local _c +local ac={setValue=function(bc,cc,dc)if(_c~=cc)then _c=cc;bc:updateDraw()if(dc~=false)then +bc:valueChangedHandler()end end;return bc end,getValue=function(bc)return +_c end,onChange=function(bc,...) +for cc,dc in pairs(table.pack(...))do if(type(dc)=="function")then +bc:registerEvent("value_changed",dc)end end;return bc end,valueChangedHandler=function(bc) +bc:sendEvent("value_changed",_c)end}ac.__index=ac;return setmetatable(ac,cb)end end +aa["objects"]["Container"]=function(...)local ab=da("utils")local bb=ab.tableCount +return +function(cb,db) +local _c=db.getObject("VisualObject")(cb,db)local ac="Container"local bc={}local cc={}local dc={}local _d;local ad=true;local bd,cd=0,0 +local dd=function(cba,dba) +if +cba.zIndex==dba.zIndex then return cba.objIddba.evId else return +cba.zIndex>dba.zIndex end end;local function a_a(cba)cba:sortChildren()return bc end +local function b_a(cba,dba)if +(type(dba)=="table")then dba=dba:getName()end +for _ca,aca in ipairs(bc)do if +aca.element:getName()==dba then return aca.element end end end +local function c_a(cba,dba)local _ca=b_a(dba)if(_ca~=nil)then return _ca end;for aca,bca in ipairs(bc)do +if +(bca:getType()=="Container")then local cca=bca:getDeepChild(dba)if(cca~=nil)then return cca end end end end +local function d_a(cba,dba)if(b_a(dba:getName())~=nil)then return end;bd=bd+1 +local _ca=dba:getZIndex() +table.insert(bc,{element=dba,zIndex=_ca,objId=bd})ad=false;dba:setParent(cba,true)for aca,bca in +pairs(dba:getRegisteredEvents())do cba:addEvent(aca,dba)end;if(dba.init~= +nil)then dba:init()end +if(dba.load~=nil)then dba:load()end;if(dba.draw~=nil)then dba:draw()end;return dba end +local function _aa(cba,dba) +if(type(dba)=="string")then dba=b_a(dba:getName())end;if(dba==nil)then return end +for _ca,aca in ipairs(bc)do if aca.element==dba then +table.remove(bc,_ca)return true end end;cba:removeEvents(dba)ad=false end;local function aaa(cba)local dba=cba:getParent()bc={}cc={}ad=false;bd=0;cd=0;_d=nil +dba:removeEvents(cba)end +local function baa(cba,dba,_ca)bd=bd+1;cd=cd+1;for aca,bca in +pairs(bc)do +if(bca.element==dba)then bca.zIndex=_ca;bca.objId=bd;break end end;for aca,bca in pairs(cc)do +for cca,dca in pairs(bca)do if +(dca.element==dba)then dca.zIndex=_ca;dca.evId=cd end end end;ad=false +cba:updateDraw()end +local function caa(cba,dba)local _ca=cba:getParent() +for aca,bca in pairs(cc)do for cca,dca in pairs(bca)do if(dca.element==dba)then +table.remove(cc[aca],cca)end end +if( +bb(cc[aca])<=0)then if(_ca~=nil)then _ca:removeEvent(aca,cba)end end end;ad=false end +local function daa(cba,dba,_ca)if(type(_ca)=="table")then _ca=_ca:getName()end +if(cc[dba]~= +nil)then for aca,bca in pairs(cc[dba])do +if(bca.element:getName()==_ca)then return bca end end end end +local function _ba(cba,dba,_ca) +if(daa(cba,dba,_ca:getName())~=nil)then return end;local aca=_ca:getZIndex()cd=cd+1 +if(cc[dba]==nil)then cc[dba]={}end +table.insert(cc[dba],{element=_ca,zIndex=aca,evId=cd})ad=false;cba:listenEvent(dba)return _ca end +local function aba(cba,dba,_ca) +if(cc[dba]~=nil)then for aca,bca in pairs(cc[dba])do if(bca.element==_ca)then +table.remove(cc[dba],aca)end end;if( +bb(cc[dba])<=0)then cba:listenEvent(dba,false)end end;ad=false end +local function bba(cba,dba)return dba~=nil and cc[dba]or cc end +dc={getType=function()return ac end,getBase=function(cba)return _c end,isType=function(cba,dba) +return ac==dba or +_c.isType~=nil and _c.isType(dba)or false end,setSize=function(cba,...)_c.setSize(cba,...) +cba:customEventHandler("basalt_FrameResize")return cba end,setPosition=function(cba,...) +_c.setPosition(cba,...)cba:customEventHandler("basalt_FrameReposition") +return cba end,searchChildren=function(cba,dba)local _ca={} +for aca,bca in pairs(bc)do if +(string.find(bca.element:getName(),dba))then table.insert(_ca,bca)end end;return _ca end,getChildrenByType=function(cba,dba) +local _ca={}for aca,bca in pairs(bc)do +if(bca.element:isType(dba))then table.insert(_ca,bca)end end;return _ca end,setImportant=function(cba,dba)bd= +bd+1;cd=cd+1 +for _ca,aca in pairs(cc)do for bca,cca in pairs(aca)do +if(cca.element==dba)then cca.evId=cd +table.remove(cc[_ca],bca)table.insert(cc[_ca],cca)break end end end +for _ca,aca in ipairs(bc)do if aca.element==dba then aca.objId=bd;table.remove(bc,_ca) +table.insert(bc,aca)break end end;if(cba.updateDraw~=nil)then cba:updateDraw()end +ad=false end,sortChildren=function(cba)if +(ad)then return end;table.sort(bc,dd)for dba,_ca in pairs(cc)do +table.sort(cc[dba],__a)end;ad=true end,clearFocusedChild=function(cba)if( +_d~=nil)then +if(b_a(cba,_d)~=nil)then _d:loseFocusHandler()end end;_d=nil;return cba end,setFocusedChild=function(cba,dba) +if( +_d~=dba)then if(_d~=nil)then +if(b_a(cba,_d)~=nil)then _d:loseFocusHandler()end end;if(dba~=nil)then if(b_a(cba,dba)~=nil)then +dba:getFocusHandler()end end;_d=dba;return true end;return false end,getFocused=function(cba)return +_d end,getChild=b_a,getChildren=a_a,getDeepChildren=c_a,addChild=d_a,removeChild=_aa,removeChildren=aaa,getEvents=bba,getEvent=daa,addEvent=_ba,removeEvent=aba,removeEvents=caa,updateZIndex=baa,listenEvent=function(cba,dba,_ca)_c.listenEvent(cba,dba,_ca)if( +cc[dba]==nil)then cc[dba]={}end;return cba end,customEventHandler=function(cba,...) +_c.customEventHandler(cba,...) +for dba,_ca in pairs(bc)do if(_ca.element.customEventHandler~=nil)then +_ca.element:customEventHandler(...)end end end,loseFocusHandler=function(cba) +_c.loseFocusHandler(cba)if(_d~=nil)then _d:loseFocusHandler()_d=nil end end,getBasalt=function(cba)return +db end,setPalette=function(cba,dba,...)local _ca=cba:getParent() +_ca:setPalette(dba,...)return cba end,eventHandler=function(cba,...) +if(_c.eventHandler~=nil)then +_c.eventHandler(cba,...) +if(cc["other_event"]~=nil)then cba:sortChildren() +for dba,_ca in +ipairs(cc["other_event"])do if(_ca.element.eventHandler~=nil)then +_ca.element.eventHandler(_ca.element,...)end end end end end} +for cba,dba in +pairs({mouse_click={"mouseHandler",true},mouse_up={"mouseUpHandler",false},mouse_drag={"dragHandler",false},mouse_scroll={"scrollHandler",true},mouse_hover={"hoverHandler",false}})do +dc[dba[1]]=function(_ca,aca,bca,cca,...) +if(_c[dba[1]]~=nil)then +if(_c[dba[1]](_ca,aca,bca,cca,...))then +if +(cc[cba]~=nil)then _ca:sortChildren() +for dca,_da in ipairs(cc[cba])do +if +(_da.element[dba[1]]~=nil)then local ada,bda=0,0 +if(_ca.getOffset~=nil)then ada,bda=_ca:getOffset()end +if(_da.element.getIgnoreOffset~=nil)then if(_da.element.getIgnoreOffset())then +ada,bda=0,0 end end;if(_da.element[dba[1]](_da.element,aca,bca+ada,cca+bda,...))then return +true end end end;if(dba[2])then _ca:clearFocusedChild()end end;return true end end end end +for cba,dba in +pairs({key="keyHandler",key_up="keyUpHandler",char="charHandler"})do +dc[dba]=function(_ca,...) +if(_c[dba]~=nil)then +if(_c[dba](_ca,...))then +if(cc[cba]~=nil)then +_ca:sortChildren()for aca,bca in ipairs(cc[cba])do +if(bca.element[dba]~=nil)then if +(bca.element[dba](bca.element,...))then return true end end end end end end end end;for cba,dba in pairs(db.getObjects())do +dc["add"..cba]=function(_ca,aca)return +_ca:addChild(db:createObject(cba,aca))end end +dc.__index=dc;return setmetatable(dc,_c)end end +aa["objects"]["BaseFrame"]=function(...)local ab=da("basaltDraw") +local bb=da("utils")local cb,db,_c,ac=math.max,math.min,string.sub,string.rep +return +function(bc,cc) +local dc=cc.getObject("Container")(bc,cc)local _d="BaseFrame"local ad,bd=0,0;local cd={}local dd=true;local __a=cc.getTerm() +local a_a=ab(__a)local b_a,c_a,d_a,_aa=1,1,false,colors.white +local aaa={getType=function()return _d end,isType=function(baa,caa) +return _d==caa or dc.isType~=nil and +dc.isType(caa)or false end,getBase=function(baa)return dc end,getOffset=function(baa)return ad,bd end,setOffset=function(baa,caa,daa)ad= +caa or ad;bd=daa or bd;baa:updateDraw()return baa end,getXOffset=function(baa)return +ad end,setXOffset=function(baa,caa)return baa:setOffset(caa,nil)end,getYOffset=function(baa)return +bd end,setYOffset=function(baa,caa)return baa:setOffset(nil,caa)end,setPalette=function(baa,caa,...) +if( +baa==cc.getActiveFrame())then +if(type(caa)=="string")then cd[caa]=... +__a.setPaletteColor( +type(caa)=="number"and caa or colors[caa],...)elseif(type(caa)=="table")then +for daa,_ba in pairs(caa)do cd[daa]=_ba +if(type(_ba)=="number")then +__a.setPaletteColor( +type(daa)=="number"and daa or colors[daa],_ba)else local aba,bba,cba=table.unpack(_ba) +__a.setPaletteColor( +type(daa)=="number"and daa or colors[daa],aba,bba,cba)end end end end;return baa end,setSize=function(baa,...) +dc.setSize(baa,...)a_a=ab(__a)return baa end,getSize=function()return __a.getSize()end,getWidth=function(baa)return +({__a.getSize()})[1]end,getHeight=function(baa) +return({__a.getSize()})[2]end,show=function(baa)dc.show(baa)cc.setActiveFrame(baa) +for caa,daa in +pairs(colors)do if(type(daa)=="number")then +__a.setPaletteColor(daa,colors.packRGB(term.nativePaletteColor((daa))))end end +for caa,daa in pairs(cd)do +if(type(daa)=="number")then +__a.setPaletteColor( +type(caa)=="number"and caa or colors[caa],daa)else local _ba,aba,bba=table.unpack(daa) +__a.setPaletteColor( +type(caa)=="number"and caa or colors[caa],_ba,aba,bba)end end;cc.setMainFrame(baa)return baa end,render=function(baa) +if( +dc.render~=nil)then +if(baa:isVisible())then +if(dd)then dc.render(baa) +local caa=baa:getChildren()for daa,_ba in ipairs(caa)do if(_ba.element.render~=nil)then +_ba.element:render()end end +dd=false end end end end,updateDraw=function(baa) +dd=true;return baa end,eventHandler=function(baa,caa,...)dc.eventHandler(baa,caa,...)if +(caa=="term_resize")then baa:setSize(__a.getSize())end end,updateTerm=function(baa)if( +a_a~=nil)then a_a.update()end end,setTerm=function(baa,caa)__a=caa;if(caa== +nil)then a_a=nil else a_a=ab(__a)end;return baa end,getTerm=function()return +__a end,blit=function(baa,caa,daa,_ba,aba,bba)local cba,dba=baa:getPosition() +local _ca,aca=baa:getSize() +if daa>=1 and daa<=aca then +local bca=_c(_ba,cb(1 -caa+1,1),cb(_ca-caa+1,1)) +local cca=_c(aba,cb(1 -caa+1,1),cb(_ca-caa+1,1)) +local dca=_c(bba,cb(1 -caa+1,1),cb(_ca-caa+1,1)) +a_a.blit(cb(caa+ (cba-1),cba),dba+daa-1,bca,cca,dca)end end,setCursor=function(baa,caa,daa,_ba,aba) +local bba,cba=baa:getAbsolutePosition()local dba,_ca=baa:getOffset()d_a=caa or false;if(daa~=nil)then +b_a=bba+daa-1 -dba end +if(_ba~=nil)then c_a=cba+_ba-1 -_ca end;_aa=aba or _aa +if(d_a)then __a.setTextColor(_aa) +__a.setCursorPos(b_a,c_a)__a.setCursorBlink(d_a)else __a.setCursorBlink(false)end;return baa end} +for baa,caa in +pairs({mouse_click={"mouseHandler",true},mouse_up={"mouseUpHandler",false},mouse_drag={"dragHandler",false},mouse_scroll={"scrollHandler",true},mouse_hover={"hoverHandler",false}})do +aaa[caa[1]]=function(daa,_ba,aba,bba,...)if(dc[caa[1]](daa,_ba,aba,bba,...))then +cc.setActiveFrame(daa)end end end +for baa,caa in +pairs({"drawBackgroundBox","drawForegroundBox","drawTextBox"})do +aaa[caa]=function(daa,_ba,aba,bba,cba,dba)local _ca,aca=daa:getPosition()local bca,cca=daa:getSize() +cba=(aba<1 and(cba+ +aba>daa:getHeight()and daa:getHeight()or cba+aba- +1)or(cba+aba> +daa:getHeight()and daa:getHeight()-aba+1 or +cba)) +bba=(_ba<1 and(bba+_ba>daa:getWidth()and daa:getWidth()or bba+ +_ba-1)or( + +bba+_ba>daa:getWidth()and daa:getWidth()-_ba+1 or bba)) +a_a[caa](cb(_ba+ (_ca-1),_ca),cb(aba+ (aca-1),aca),bba,cba,dba)end end +for baa,caa in pairs({"setBG","setFG","setText"})do +aaa[caa]=function(daa,_ba,aba,bba) +local cba,dba=daa:getPosition()local _ca,aca=daa:getSize()if(aba>=1)and(aba<=aca)then +a_a[caa](cb(_ba+ (cba-1),cba), +dba+aba-1,_c(bba,cb(1 -_ba+1,1),cb(_ca-_ba+1,1)))end end end;aaa.__index=aaa;return setmetatable(aaa,dc)end end +aa["objects"]["Frame"]=function(...)local ab=da("utils") +local bb,cb,db,_c,ac=math.max,math.min,string.sub,string.rep,string.len +return +function(bc,cc)local dc=cc.getObject("Container")(bc,cc)local _d="Frame" +local ad;local bd=true;local cd,dd=0,0;dc:setSize(30,10)dc:setZIndex(10) +local __a={getType=function()return _d end,isType=function(a_a,b_a)return + +_d==b_a or dc.isType~=nil and dc.isType(b_a)or false end,getBase=function(a_a) +return dc end,getOffset=function(a_a)return cd,dd end,setOffset=function(a_a,b_a,c_a)cd=b_a or cd;dd=c_a or dd +a_a:updateDraw()return a_a end,getXOffset=function(a_a)return cd end,setXOffset=function(a_a,b_a)return +a_a:setOffset(b_a,nil)end,getYOffset=function(a_a)return dd end,setYOffset=function(a_a,b_a)return +a_a:setOffset(nil,b_a)end,setParent=function(a_a,b_a,...) +dc.setParent(a_a,b_a,...)ad=b_a;return a_a end,render=function(a_a) +if(dc.render~=nil)then +if +(a_a:isVisible())then dc.render(a_a)local b_a=a_a:getChildren()for c_a,d_a in ipairs(b_a)do +if( +d_a.element.render~=nil)then d_a.element:render()end end end end end,updateDraw=function(a_a)if( +ad~=nil)then ad:updateDraw()end;return a_a end,blit=function(a_a,b_a,c_a,d_a,_aa,aaa) +local baa,caa=a_a:getPosition()local daa,_ba=ad:getOffset()baa=baa-daa;caa=caa-_ba +local aba,bba=a_a:getSize() +if c_a>=1 and c_a<=bba then +local cba=db(d_a,bb(1 -b_a+1,1),bb(aba-b_a+1,1)) +local dba=db(_aa,bb(1 -b_a+1,1),bb(aba-b_a+1,1)) +local _ca=db(aaa,bb(1 -b_a+1,1),bb(aba-b_a+1,1)) +ad:blit(bb(b_a+ (baa-1),baa),caa+c_a-1,cba,dba,_ca)end end,setCursor=function(a_a,b_a,c_a,d_a,_aa) +local aaa,baa=a_a:getPosition()local caa,daa=a_a:getOffset() +ad:setCursor(b_a or false,(c_a or 0)+aaa-1 -caa,( +d_a or 0)+baa-1 -daa,_aa or colors.white)return a_a end} +for a_a,b_a in +pairs({"drawBackgroundBox","drawForegroundBox","drawTextBox"})do +__a[b_a]=function(c_a,d_a,_aa,aaa,baa,caa)local daa,_ba=c_a:getPosition()local aba,bba=ad:getOffset() +daa=daa-aba;_ba=_ba-bba +baa=(_aa<1 and( +baa+_aa>c_a:getHeight()and c_a:getHeight()or baa+_aa-1)or( +baa+ +_aa>c_a:getHeight()and c_a:getHeight()-_aa+1 or baa)) +aaa=(d_a<1 and(aaa+d_a>c_a:getWidth()and c_a:getWidth()or aaa+ +d_a-1)or( + +aaa+d_a>c_a:getWidth()and c_a:getWidth()-d_a+1 or aaa)) +ad[b_a](ad,bb(d_a+ (daa-1),daa),bb(_aa+ (_ba-1),_ba),aaa,baa,caa)end end +for a_a,b_a in pairs({"setBG","setFG","setText"})do +__a[b_a]=function(c_a,d_a,_aa,aaa) +local baa,caa=c_a:getPosition()local daa,_ba=ad:getOffset()baa=baa-daa;caa=caa-_ba +local aba,bba=c_a:getSize()if(_aa>=1)and(_aa<=bba)then +ad[b_a](ad,bb(d_a+ (baa-1),baa),caa+_aa-1,db(aaa,bb( +1 -d_a+1,1),bb(aba-d_a+1,1)))end end end;__a.__index=__a;return setmetatable(__a,dc)end end +aa["objects"]["Timer"]=function(...) +return +function(ab,bb) +local cb=bb.getObject("Object")(ab,bb)local db="Timer"local _c=0;local ac=0;local bc=0;local cc;local dc=false +local _d={getType=function(ad)return db end,setTime=function(ad,bd,cd)_c=bd or 0 +ac=cd or 1;return ad end,getTime=function(ad)return _c end,start=function(ad)if(dc)then +os.cancelTimer(cc)end;bc=ac;cc=os.startTimer(_c)dc=true +ad:listenEvent("other_event")return ad end,isActive=function(ad)return dc end,cancel=function(ad)if( +cc~=nil)then os.cancelTimer(cc)end;dc=false +ad:removeEvent("other_event")return ad end,setStart=function(ad,bd)if(bd==true)then +return ad:start()else return ad:cancel()end end,onCall=function(ad,bd) +ad:registerEvent("timed_event",bd)return ad end,eventHandler=function(ad,bd,...)cb.eventHandler(ad,bd,...) +if +bd=="timer"and tObj==cc and dc then +ad:sendEvent("timed_event")if(bc>=1)then bc=bc-1;if(bc>=1)then cc=os.startTimer(_c)end elseif(bc==-1)then +cc=os.startTimer(_c)end end end}_d.__index=_d;return setmetatable(_d,cb)end end aa["objects"]["Treeview"]=function(...)local ab=da("utils")local bb=da("tHex") return function(cb,db) @@ -1767,1216 +2980,4 @@ ada.f(dca)end end;return true end,draw=function(dca) dca:addDraw("base",function() local _da,ada=dca:getSize()if(daa~=false)then dca:addTextBox(1,1,_da,ada," ") dca:addBackgroundBox(1,1,_da,ada,daa)end;if(_ba~=false)then -dca:addForegroundBox(1,1,_da,ada,_ba)end end,1)end}cca.__index=cca;return setmetatable(cca,cc)end end -aa["objects"]["Thread"]=function(...) -return -function(ab,bb) -local cb=bb.getObject("Object")(ab,bb)local db="Thread"local _c;local ac;local bc=false;local cc -local dc={getType=function(_d)return db end,start=function(_d,ad)if(ad==nil)then -error("Function provided to thread is nil")end;_c=ad;ac=coroutine.create(_c) -bc=true;cc=nil;local bd,cd=coroutine.resume(ac)cc=cd;if not(bd)then -if(cd~="Terminated")then error( -"Thread Error Occurred - "..cd)end end -_d:listenEvent("mouse_click")_d:listenEvent("mouse_up") -_d:listenEvent("mouse_scroll")_d:listenEvent("mouse_drag")_d:listenEvent("key") -_d:listenEvent("key_up")_d:listenEvent("char") -_d:listenEvent("other_event")return _d end,getStatus=function(_d,ad)if( -ac~=nil)then return coroutine.status(ac)end;return nil end,stop=function(_d,ad) -bc=false;_d:listenEvent("mouse_click",false) -_d:listenEvent("mouse_up",false)_d:listenEvent("mouse_scroll",false) -_d:listenEvent("mouse_drag",false)_d:listenEvent("key",false) -_d:listenEvent("key_up",false)_d:listenEvent("char",false) -_d:listenEvent("other_event",false)return _d end,mouseHandler=function(_d,...) -_d:eventHandler("mouse_click",...)end,mouseUpHandler=function(_d,...)_d:eventHandler("mouse_up",...)end,mouseScrollHandler=function(_d,...) -_d:eventHandler("mouse_scroll",...)end,mouseDragHandler=function(_d,...) -_d:eventHandler("mouse_drag",...)end,mouseMoveHandler=function(_d,...) -_d:eventHandler("mouse_move",...)end,keyHandler=function(_d,...)_d:eventHandler("key",...)end,keyUpHandler=function(_d,...) -_d:eventHandler("key_up",...)end,charHandler=function(_d,...)_d:eventHandler("char",...)end,eventHandler=function(_d,ad,...) -cb.eventHandler(_d,ad,...) -if(bc)then -if(coroutine.status(ac)=="suspended")then if(cc~=nil)then -if(ad~=cc)then return end;cc=nil end -local bd,cd=coroutine.resume(ac,ad,...)cc=cd;if not(bd)then if(cd~="Terminated")then -error("Thread Error Occurred - "..cd)end end else -_d:stop()end end end}dc.__index=dc;return setmetatable(dc,cb)end end -aa["objects"]["Button"]=function(...)local ab=da("utils")local bb=da("tHex") -return -function(cb,db) -local _c=db.getObject("VisualObject")(cb,db)local ac="Button"local bc="center"local cc="center"local dc="Button"_c:setSize(12,3) -_c:setZIndex(5) -local _d={getType=function(ad)return ac end,isType=function(ad,bd)return -ac==bd or _c.isType~=nil and _c.isType(bd)or false end,getBase=function(ad)return -_c end,getHorizontalAlign=function(ad)return bc end,setHorizontalAlign=function(ad,bd)bc=bd;ad:updateDraw()return ad end,getVerticalAlign=function(ad)return -cc end,setVerticalAlign=function(ad,bd)cc=bd;ad:updateDraw()return ad end,getText=function(ad) -return dc end,setText=function(ad,bd)dc=bd;ad:updateDraw()return ad end,draw=function(ad) -_c.draw(ad) -ad:addDraw("button",function()local bd,cd=ad:getSize() -local dd=ab.getTextVerticalAlign(cd,cc)local __a -if(bc=="center")then -__a=math.floor((bd-dc:len())/2)elseif(bc=="right")then __a=bd-dc:len()end;ad:addText(__a+1,dd,dc) -ad:addFG(__a+1,dd,bb[ad:getForeground()or colors.white]:rep(dc:len()))end)end}_d.__index=_d;return setmetatable(_d,_c)end end -aa["objects"]["Image"]=function(...)local ab=da("images")local bb=da("bimg") -local cb,db,_c,ac=table.unpack,string.sub,math.max,math.min -return -function(bc,cc)local dc=cc.getObject("VisualObject")(bc,cc) -local _d="Image"local ad=bb()local bd=ad.getFrameObject(1)local cd;local dd;local __a=1;local a_a=false;local b_a -local c_a=false;local d_a=true;local _aa,aaa=0,0;dc:setSize(24,8)dc:setZIndex(2) -local function baa(_ba)local aba={} -for dba,_ca in -pairs(colors)do if(type(_ca)=="number")then -aba[dba]={term.nativePaletteColor(_ca)}end end;local bba=ad.getMetadata("palette")if(bba~=nil)then for dba,_ca in pairs(bba)do -aba[dba]=tonumber(_ca)end end -local cba=ad.getFrameData("palette")cc.log(cba)if(cba~=nil)then -for dba,_ca in pairs(cba)do aba[dba]=tonumber(_ca)end end;return aba end;local function caa() -if(d_a)then if(ad~=nil)then dc:setSize(ad.getSize())end end end -local daa={getType=function(_ba)return _d end,isType=function(_ba,aba)return -_d==aba or -dc.isType~=nil and dc.isType(aba)or false end,setOffset=function(_ba,aba,bba,cba) -if(cba)then _aa=_aa+ -aba or 0;aaa=aaa+bba or 0 else _aa=aba or _aa;aaa=bba or aaa end;_ba:updateDraw()return _ba end,setXOffset=function(_ba,aba)return _ba:setOffset(_ba,aba, -nil)end,setYOffset=function(_ba,aba)return -_ba:setOffset(_ba,nil,aba)end,setSize=function(_ba,aba,bba)dc:setSize(aba,bba) -d_a=false;return _ba end,getOffset=function(_ba)return _aa,aaa end,getXOffset=function(_ba)return _aa end,getYOffset=function(_ba)return -aaa end,selectFrame=function(_ba,aba)if(ad.getFrameObject(aba)==nil)then -ad.addFrame(aba)end;bd=ad.getFrameObject(aba) -dd=bd.getImage(aba)__a=aba;_ba:updateDraw()end,addFrame=function(_ba,aba) -ad.addFrame(aba)return _ba end,getFrame=function(_ba,aba)return ad.getFrame(aba)end,getFrameObject=function(_ba,aba)return -ad.getFrameObject(aba)end,removeFrame=function(_ba,aba)ad.removeFrame(aba)return _ba end,moveFrame=function(_ba,aba,bba) -ad.moveFrame(aba,bba)return _ba end,getFrames=function(_ba)return ad.getFrames()end,getFrameCount=function(_ba)return -#ad.getFrames()end,getActiveFrame=function(_ba)return __a end,loadImage=function(_ba,aba)if -(fs.exists(aba))then local bba=ab.loadBIMG(aba)ad=bb(bba)__a=1 -bd=ad.getFrameObject(1)cd=ad.createBimg()dd=bd.getImage()caa() -_ba:updateDraw()end;return -_ba end,setPath=function(_ba,aba)return -_ba:loadImage(aba)end,setImage=function(_ba,aba)if(type(aba)=="table")then ad=bb(aba)__a=1 -bd=ad.getFrameObject(1)cd=ad.createBimg()dd=bd.getImage()caa() -_ba:updateDraw()end;return _ba end,clear=function(_ba) -ad=bb()bd=ad.getFrameObject(1)dd=nil;_ba:updateDraw()return _ba end,getImage=function(_ba)return -ad.createBimg()end,getImageFrame=function(_ba,aba)return bd.getImage(aba)end,usePalette=function(_ba,aba)c_a= -aba~=nil and aba or true;return _ba end,getUsePalette=function(_ba)return -c_a end,setUsePalette=function(_ba,aba)return _ba:usePalette(aba)end,play=function(_ba,aba) -if -(ad.getMetadata("animated"))then -local bba= -ad.getMetadata("duration")or ad.getMetadata("secondsPerFrame")or 0.2;_ba:listenEvent("other_event") -b_a=os.startTimer(bba)a_a=aba or false end;return _ba end,setPlay=function(_ba,aba)return -_ba:play(aba)end,stop=function(_ba)os.cancelTimer(b_a)b_a=nil;a_a=false -return _ba end,eventHandler=function(_ba,aba,bba,...) -dc.eventHandler(_ba,aba,bba,...) -if(aba=="timer")then -if(bba==b_a)then -if(ad.getFrame(__a+1)~=nil)then __a=__a+1 -_ba:selectFrame(__a) -local cba= -ad.getFrameData(__a,"duration")or ad.getMetadata("secondsPerFrame")or 0.2;b_a=os.startTimer(cba)else -if(a_a)then __a=1;_ba:selectFrame(__a) -local cba= -ad.getFrameData(__a,"duration")or ad.getMetadata("secondsPerFrame")or 0.2;b_a=os.startTimer(cba)end end;_ba:updateDraw()end end end,setMetadata=function(_ba,aba,bba) -ad.setMetadata(aba,bba)return _ba end,getMetadata=function(_ba,aba)return ad.getMetadata(aba)end,getFrameMetadata=function(_ba,aba,bba)return -ad.getFrameData(aba,bba)end,setFrameMetadata=function(_ba,aba,bba,cba) -ad.setFrameData(aba,bba,cba)return _ba end,blit=function(_ba,aba,bba,cba,dba,_ca)x=dba or x;y=_ca or y -bd.blit(aba,bba,cba,x,y)dd=bd.getImage()_ba:updateDraw()return _ba end,setText=function(_ba,aba,bba,cba)x= -bba or x;y=cba or y;bd.text(aba,x,y)dd=bd.getImage() -_ba:updateDraw()return _ba end,setBg=function(_ba,aba,bba,cba)x=bba or x;y= -cba or y;bd.bg(aba,x,y)dd=bd.getImage() -_ba:updateDraw()return _ba end,setFg=function(_ba,aba,bba,cba)x=bba or x -y=cba or y;bd.fg(aba,x,y)dd=bd.getImage()_ba:updateDraw()return _ba end,getImageSize=function(_ba)return -ad.getSize()end,setImageSize=function(_ba,aba,bba)ad.setSize(aba,bba) -dd=bd.getImage()_ba:updateDraw()return _ba end,resizeImage=function(_ba,aba,bba) -local cba=ab.resizeBIMG(cd,aba,bba)ad=bb(cba)__a=1;bd=ad.getFrameObject(1)dd=bd.getImage() -_ba:updateDraw()return _ba end,draw=function(_ba) -dc.draw(_ba) -_ba:addDraw("image",function()local aba,bba=_ba:getSize()local cba,dba=_ba:getPosition() -local _ca,aca=_ba:getParent():getSize()local bca,cca=_ba:getParent():getOffset() -if -(cba-bca>_ca)or(dba-cca>aca)or(cba-bca+aba<1)or(dba- -cca+bba<1)then return end -if(c_a)then _ba:getParent():setPalette(baa(__a))end -if(dd~=nil)then -for dca,_da in pairs(dd)do -if(dca+aaa<=bba)and(dca+aaa>=1)then -local ada,bda,cda=_da[1],_da[2],_da[3]local dda=_c(1 -_aa,1)local __b=ac(aba-_aa,#ada) -ada=db(ada,dda,__b)bda=db(bda,dda,__b)cda=db(cda,dda,__b) -_ba:addBlit(_c(1 +_aa,1),dca+aaa,ada,bda,cda)end end end end)end}daa.__index=daa;return setmetatable(daa,dc)end end -aa["objects"]["Timer"]=function(...) -return -function(ab,bb) -local cb=bb.getObject("Object")(ab,bb)local db="Timer"local _c=0;local ac=0;local bc=0;local cc;local dc=false -local _d={getType=function(ad)return db end,setTime=function(ad,bd,cd)_c=bd or 0 -ac=cd or 1;return ad end,getTime=function(ad)return _c end,start=function(ad)if(dc)then -os.cancelTimer(cc)end;bc=ac;cc=os.startTimer(_c)dc=true -ad:listenEvent("other_event")return ad end,isActive=function(ad)return dc end,cancel=function(ad)if( -cc~=nil)then os.cancelTimer(cc)end;dc=false -ad:removeEvent("other_event")return ad end,setStart=function(ad,bd)if(bd==true)then -return ad:start()else return ad:cancel()end end,onCall=function(ad,bd) -ad:registerEvent("timed_event",bd)return ad end,eventHandler=function(ad,bd,...)cb.eventHandler(ad,bd,...) -if -bd=="timer"and tObj==cc and dc then -ad:sendEvent("timed_event")if(bc>=1)then bc=bc-1;if(bc>=1)then cc=os.startTimer(_c)end elseif(bc==-1)then -cc=os.startTimer(_c)end end end}_d.__index=_d;return setmetatable(_d,cb)end end -aa["objects"]["Input"]=function(...)local ab=da("utils")local bb=da("tHex") -return -function(cb,db) -local _c=db.getObject("ChangeableObject")(cb,db)local ac="Input"local bc="text"local cc=0;_c:setZIndex(5)_c:setValue("") -_c:setSize(12,1)local dc=1;local _d=1;local ad=""local bd=colors.black;local cd=colors.lightGray;local dd=ad -local __a=false -local a_a={load=function(b_a)b_a:listenEvent("mouse_click") -b_a:listenEvent("key")b_a:listenEvent("char") -b_a:listenEvent("other_event")b_a:listenEvent("mouse_drag")end,getType=function(b_a)return -ac end,isType=function(b_a,c_a)return -ac==c_a or _c.isType~=nil and _c.isType(c_a)or false end,setDefaultFG=function(b_a,c_a)return b_a:setDefaultText(b_a,ad,c_a, -nil)end,setDefaultBG=function(b_a,c_a)return b_a:setDefaultText(b_a,ad, -nil,c_a)end,setDefaultText=function(b_a,c_a,d_a,_aa) -ad=c_a;cd=d_a or cd;bd=_aa or bd;if(b_a:isFocused())then dd=""else dd=ad end -b_a:updateDraw()return b_a end,getDefaultText=function(b_a)return ad,cd, -bd end,setOffset=function(b_a,c_a)_d=c_a;b_a:updateDraw()return b_a end,getOffset=function(b_a)return -_d end,setTextOffset=function(b_a,c_a)dc=c_a;b_a:updateDraw()return b_a end,getTextOffset=function(b_a)return -dc end,setInputType=function(b_a,c_a)bc=c_a;b_a:updateDraw()return b_a end,getInputType=function(b_a)return -bc end,setValue=function(b_a,c_a)_c.setValue(b_a,tostring(c_a)) -if not(__a)then dc= -tostring(c_a):len()+1 -_d=math.max(1,dc-b_a:getWidth()+1) -if(b_a:isFocused())then local d_a=b_a:getParent() -local _aa,aaa=b_a:getPosition() -d_a:setCursor(true,_aa+dc-_d,aaa+math.floor(b_a:getHeight()/2),b_a:getForeground())end end;b_a:updateDraw()return b_a end,getValue=function(b_a) -local c_a=_c.getValue(b_a) -return bc=="number"and tonumber(c_a)or c_a end,setInputLimit=function(b_a,c_a) -cc=tonumber(c_a)or cc;b_a:updateDraw()return b_a end,getInputLimit=function(b_a)return cc end,getFocusHandler=function(b_a) -_c.getFocusHandler(b_a)local c_a=b_a:getParent() -if(c_a~=nil)then local d_a,_aa=b_a:getPosition()dd=""if(ad~= -"")then b_a:updateDraw()end -c_a:setCursor(true,d_a+dc-_d,_aa+math.max(math.ceil( -b_a:getHeight()/2 -1,1)),b_a:getForeground())end end,loseFocusHandler=function(b_a) -_c.loseFocusHandler(b_a)local c_a=b_a:getParent()dd=ad -if(ad~="")then b_a:updateDraw()end;c_a:setCursor(false)end,keyHandler=function(b_a,c_a) -if -(_c.keyHandler(b_a,c_a))then local d_a,_aa=b_a:getSize()local aaa=b_a:getParent()__a=true -if -(c_a==keys.backspace)then local _ba=tostring(_c.getValue()) -if(dc>1)then b_a:setValue(_ba:sub(1,dc-2).. -_ba:sub(dc,_ba:len()))dc=math.max( -dc-1,1)if(dc<_d)then _d=math.max(_d-1,1)end end end -if(c_a==keys.enter)then aaa:clearFocusedChild(b_a)end -if(c_a==keys.right)then -local _ba=tostring(_c.getValue()):len()dc=dc+1;if(dc>_ba)then dc=_ba+1 end;dc=math.max(dc,1)if(dc<_d)or -(dc>=d_a+_d)then _d=dc-d_a+1 end;_d=math.max(_d,1)end;if(c_a==keys.left)then dc=dc-1;if(dc>=1)then -if(dc<_d)or(dc>=d_a+_d)then _d=dc end end;dc=math.max(dc,1) -_d=math.max(_d,1)end -local baa,caa=b_a:getPosition()local daa=tostring(_c.getValue())b_a:updateDraw() -__a=false;return true end end,charHandler=function(b_a,c_a) -if -(_c.charHandler(b_a,c_a))then __a=true;local d_a,_aa=b_a:getSize()local aaa=_c.getValue() -if( -aaa:len()0)then -if( -tonumber(_c.getValue())==nil)then b_a:setValue(_ba)dc=dc-1 end end end else -b_a:setValue(aaa:sub(1,dc-1)..c_a..aaa:sub(dc,aaa:len()))dc=dc+1 end;if(dc>=d_a+_d)then _d=_d+1 end end;local baa,caa=b_a:getPosition() -local daa=tostring(_c.getValue())__a=false;b_a:updateDraw()return true end end,mouseHandler=function(b_a,c_a,d_a,_aa) -if -(_c.mouseHandler(b_a,c_a,d_a,_aa))then local aaa=b_a:getParent()local baa,caa=b_a:getPosition() -local daa,_ba=b_a:getAbsolutePosition(baa,caa)local aba,bba=b_a:getSize()dc=d_a-daa+_d;local cba=_c.getValue()if(dc> -cba:len())then dc=cba:len()+1 end;if(dc<_d)then _d=dc-1 -if(_d<1)then _d=1 end end -aaa:setCursor(true,baa+dc-_d,caa+ -math.max(math.ceil(bba/2 -1,1)),b_a:getForeground())return true end end,dragHandler=function(b_a,c_a,d_a,_aa,aaa,baa) -if -(b_a:isFocused())then if(b_a:isCoordsInObject(d_a,_aa))then -if(_c.dragHandler(b_a,c_a,d_a,_aa,aaa,baa))then return true end end -local caa=b_a:getParent()caa:clearFocusedChild()end end,draw=function(b_a) -_c.draw(b_a) -b_a:addDraw("input",function()local c_a=b_a:getParent()local d_a,_aa=b_a:getPosition() -local aaa,baa=b_a:getSize()local caa=ab.getTextVerticalAlign(baa,textVerticalAlign) -local daa=tostring(_c.getValue())local _ba=b_a:getBackground()local aba=b_a:getForeground()local bba;if( -daa:len()<=0)then bba=dd;_ba=bd or _ba;aba=cd or aba end -bba=dd;if(daa~="")then bba=daa end;bba=bba:sub(_d,aaa+_d-1)local cba=aaa- -bba:len()if(cba<0)then cba=0 end -if -(bc=="password")and(daa~="")then bba=string.rep("*",bba:len())end;bba=bba..string.rep(" ",cba) -b_a:addBlit(1,caa,bba,bb[aba]:rep(bba:len()),bb[_ba]:rep(bba:len()))if(b_a:isFocused())then -c_a:setCursor(true,d_a+dc-_d,_aa+ -math.floor(b_a:getHeight()/2),b_a:getForeground())end end)end}a_a.__index=a_a;return setmetatable(a_a,_c)end end -aa["objects"]["Textfield"]=function(...)local ab=da("tHex") -local bb,cb,db,_c,ac=string.rep,string.find,string.gmatch,string.sub,string.len -return -function(bc,cc) -local dc=cc.getObject("ChangeableObject")(bc,cc)local _d="Textfield"local ad,bd,cd,dd=1,1,1,1;local __a={""}local a_a={""}local b_a={""}local c_a={}local d_a={} -local _aa,aaa,baa,caa;local daa,_ba=colors.lightBlue,colors.black;dc:setSize(30,12) -dc:setZIndex(5) -local function aba()if -(_aa~=nil)and(aaa~=nil)and(baa~=nil)and(caa~=nil)then return true end;return false end -local function bba()local cca,dca,_da,ada=_aa,aaa,baa,caa -if aba()then -if _aaaaa and baa>=caa then -cca=aaa;dca=_aa;if baa>caa then _da=caa;ada=baa else _da=baa;ada=caa end elseif baa>caa then -cca=aaa;dca=_aa;_da=caa;ada=baa end;return cca,dca,_da,ada end end -local function cba(cca)local dca,_da,ada,bda=bba(cca)local cda=__a[ada]local dda=__a[bda] -__a[ada]= -cda:sub(1,dca-1)..dda:sub(_da+1,dda:len())a_a[ada]=a_a[ada]:sub(1,dca-1).. -a_a[bda]:sub(_da+1,a_a[bda]:len()) -b_a[ada]=b_a[ada]:sub(1, -dca-1)..b_a[bda]:sub(_da+1,b_a[bda]:len()) -for i=bda,ada+1,-1 do if i~=ada then table.remove(__a,i)table.remove(a_a,i) -table.remove(b_a,i)end end;cd,dd=dca,ada;_aa,aaa,baa,caa=nil,nil,nil,nil;return cca end -local function dba(cca,dca)local _da={} -if(cca:len()>0)then -for ada in db(cca,dca)do local bda,cda=cb(cca,ada) -if -(bda~=nil)and(cda~=nil)then table.insert(_da,bda)table.insert(_da,cda) -local dda=_c(cca,1,(bda-1))local __b=_c(cca,cda+1,cca:len())cca=dda.. (":"):rep(ada:len()).. -__b end end end;return _da end -local function _ca(cca,dca)dca=dca or dd -local _da=ab[cca:getForeground()]:rep(b_a[dca]:len()) -local ada=ab[cca:getBackground()]:rep(a_a[dca]:len()) -for bda,cda in pairs(d_a)do local dda=dba(__a[dca],cda[1]) -if(#dda>0)then -for x=1,#dda/2 do -local __b=x*2 -1;if(cda[2]~=nil)then -_da=_da:sub(1,dda[__b]-1)..ab[cda[2]]:rep(dda[__b+1]- ( -dda[__b]-1)).. -_da:sub(dda[__b+1]+1,_da:len())end;if -(cda[3]~=nil)then -ada=ada:sub(1,dda[__b]-1).. - -ab[cda[3]]:rep(dda[__b+1]- (dda[__b]-1))..ada:sub(dda[__b+1]+1,ada:len())end end end end -for bda,cda in pairs(c_a)do -for dda,__b in pairs(cda)do local a_b=dba(__a[dca],__b) -if(#a_b>0)then for x=1,#a_b/2 do -local b_b=x*2 -1 -_da=_da:sub(1,a_b[b_b]-1).. - -ab[bda]:rep(a_b[b_b+1]- (a_b[b_b]-1)).._da:sub(a_b[b_b+1]+1,_da:len())end end end end;b_a[dca]=_da;a_a[dca]=ada;cca:updateDraw()end;local function aca(cca)for n=1,#__a do _ca(cca,n)end end -local bca={getType=function(cca)return _d end,setBackground=function(cca,dca) -dc.setBackground(cca,dca)aca(cca)return cca end,setForeground=function(cca,dca) -dc.setForeground(cca,dca)aca(cca)return cca end,setSelection=function(cca,dca,_da)_ba=dca or _ba -daa=_da or daa;return cca end,setSelectionFG=function(cca,dca) -return cca:setSelection(dca,nil)end,setSelectionBG=function(cca,dca)return cca:setSelection(nil,dca)end,getSelection=function(cca)return -_ba,daa end,getSelectionFG=function(cca)return _ba end,getSelectionBG=function(cca)return daa end,getLines=function(cca)return __a end,getLine=function(cca,dca)return -__a[dca]end,editLine=function(cca,dca,_da)__a[dca]=_da or __a[dca] -_ca(cca,dca)cca:updateDraw()return cca end,clear=function(cca) -__a={""}a_a={""}b_a={""}_aa,aaa,baa,caa=nil,nil,nil,nil;ad,bd,cd,dd=1,1,1,1 -cca:updateDraw()return cca end,addLine=function(cca,dca,_da) -if(dca~=nil)then -local ada=cca:getBackground()local bda=cca:getForeground() -if(#__a==1)and(__a[1]=="")then -__a[1]=dca;a_a[1]=ab[ada]:rep(dca:len()) -b_a[1]=ab[bda]:rep(dca:len())_ca(cca,1)return cca end -if(_da~=nil)then table.insert(__a,_da,dca) -table.insert(a_a,_da,ab[ada]:rep(dca:len())) -table.insert(b_a,_da,ab[bda]:rep(dca:len()))else table.insert(__a,dca) -table.insert(a_a,ab[ada]:rep(dca:len())) -table.insert(b_a,ab[bda]:rep(dca:len()))end end;_ca(cca,_da or#__a)cca:updateDraw()return cca end,addKeywords=function(cca,dca,_da)if( -c_a[dca]==nil)then c_a[dca]={}end;for ada,bda in pairs(_da)do -table.insert(c_a[dca],bda)end;cca:updateDraw()return cca end,addRule=function(cca,dca,_da,ada) -table.insert(d_a,{dca,_da,ada})cca:updateDraw()return cca end,editRule=function(cca,dca,_da,ada)for bda,cda in -pairs(d_a)do -if(cda[1]==dca)then d_a[bda][2]=_da;d_a[bda][3]=ada end end;cca:updateDraw()return cca end,removeRule=function(cca,dca) -for _da,ada in -pairs(d_a)do if(ada[1]==dca)then table.remove(d_a,_da)end end;cca:updateDraw()return cca end,setKeywords=function(cca,dca,_da) -c_a[dca]=_da;cca:updateDraw()return cca end,removeLine=function(cca,dca) -if(#__a>1)then table.remove(__a, -dca or#__a) -table.remove(a_a,dca or#a_a)table.remove(b_a,dca or#b_a)else __a={""}a_a={""}b_a={""}end;cca:updateDraw()return cca end,getTextCursor=function(cca)return -cd,dd end,getOffset=function(cca)return bd,ad end,setOffset=function(cca,dca,_da)bd=dca or bd;ad=_da or ad -cca:updateDraw()return cca end,getXOffset=function(cca,dca)return bd end,setXOffset=function(cca,dca)return -cca:setOffset(dca,nil)end,getYOffset=function(cca,dca)return ad end,setYOffset=function(cca,dca)return -cca:setOffset(nil,dca)end,getFocusHandler=function(cca)dc.getFocusHandler(cca) -local dca,_da=cca:getPosition() -cca:getParent():setCursor(true,dca+cd-bd,_da+dd-ad,cca:getForeground())end,loseFocusHandler=function(cca) -dc.loseFocusHandler(cca)cca:getParent():setCursor(false)end,keyHandler=function(cca,dca) -if -(dc.keyHandler(cca,event,dca))then local _da=cca:getParent()local ada,bda=cca:getPosition() -local cda,dda=cca:getSize() -if(dca==keys.backspace)then -if(aba())then cba(cca)else -if(__a[dd]=="")then -if(dd>1)then -table.remove(__a,dd)table.remove(b_a,dd)table.remove(a_a,dd)cd= -__a[dd-1]:len()+1;bd=cd-cda+1;if(bd<1)then bd=1 end;dd=dd-1 end elseif(cd<=1)then -if(dd>1)then cd=__a[dd-1]:len()+1;bd=cd-cda+1;if(bd<1)then -bd=1 end;__a[dd-1]=__a[dd-1]..__a[dd]b_a[dd-1]= -b_a[dd-1]..b_a[dd] -a_a[dd-1]=a_a[dd-1]..a_a[dd]table.remove(__a,dd)table.remove(b_a,dd) -table.remove(a_a,dd)dd=dd-1 end else __a[dd]=__a[dd]:sub(1,cd-2).. -__a[dd]:sub(cd,__a[dd]:len()) -b_a[dd]= -b_a[dd]:sub(1,cd-2)..b_a[dd]:sub(cd,b_a[dd]:len())a_a[dd]=a_a[dd]:sub(1,cd-2).. -a_a[dd]:sub(cd,a_a[dd]:len()) -if(cd>1)then cd=cd-1 end;if(bd>1)then if(cd -__a[dd]:len())then if(__a[dd+1]~=nil)then __a[dd]=__a[dd]..__a[dd+1]table.remove(__a, -dd+1)table.remove(a_a,dd+1) -table.remove(b_a,dd+1)end else -__a[dd]=__a[dd]:sub(1, -cd-1)..__a[dd]:sub(cd+1,__a[dd]:len())b_a[dd]=b_a[dd]:sub(1,cd-1).. -b_a[dd]:sub(cd+1,b_a[dd]:len()) -a_a[dd]=a_a[dd]:sub(1, -cd-1)..a_a[dd]:sub(cd+1,a_a[dd]:len())end end;_ca(cca)elseif(dca==keys.enter)then if(aba())then cba(cca)end -table.insert(__a,dd+1,__a[dd]:sub(cd,__a[dd]:len())) -table.insert(b_a,dd+1,b_a[dd]:sub(cd,b_a[dd]:len())) -table.insert(a_a,dd+1,a_a[dd]:sub(cd,a_a[dd]:len()))__a[dd]=__a[dd]:sub(1,cd-1) -b_a[dd]=b_a[dd]:sub(1,cd-1)a_a[dd]=a_a[dd]:sub(1,cd-1)dd=dd+1;cd=1;bd=1;if(dd-ad>=dda)then -ad=ad+1 end;cca:setValue("")elseif(dca==keys.up)then -_aa,baa,aaa,caa=nil,nil,nil,nil -if(dd>1)then dd=dd-1;if(cd>__a[dd]:len()+1)then -cd=__a[dd]:len()+1 end;if(bd>1)then -if(cd1)then if(dd -__a[dd]:len()+1)then cd=__a[dd]:len()+1 end -if(bd>1)then if(cd=ad+dda)then ad=ad+1 end end elseif(dca==keys.right)then _aa,baa,aaa,caa=nil,nil,nil,nil;cd=cd+1 -if(dd<#__a)then if(cd> -__a[dd]:len()+1)then cd=1;dd=dd+1 end elseif -(cd>__a[dd]:len())then cd=__a[dd]:len()+1 end;if(cd<1)then cd=1 end -if(cd=cda+bd)then bd=cd-cda+1 end;if(bd<1)then bd=1 end elseif(dca==keys.left)then _aa,baa,aaa,caa=nil,nil,nil,nil;cd=cd-1 -if(cd>=1)then if( -cd=cda+bd)then bd=cd end end;if(dd>1)then -if(cd<1)then dd=dd-1;cd=__a[dd]:len()+1;bd=cd-cda+1 end end;if(cd<1)then cd=1 end;if(bd<1)then bd=1 end elseif(dca== -keys.tab)then -if(cd%3 ==0)then -__a[dd]=__a[dd]:sub(1,cd-1).." ".. -__a[dd]:sub(cd,__a[dd]:len()) -b_a[dd]=b_a[dd]:sub(1,cd-1)..ab[cca:getForeground()].. -b_a[dd]:sub(cd,b_a[dd]:len()) -a_a[dd]=a_a[dd]:sub(1,cd-1)..ab[cca:getBackground()].. -a_a[dd]:sub(cd,a_a[dd]:len())cd=cd+1 end -while cd%3 ~=0 do -__a[dd]=__a[dd]:sub(1,cd-1).." ".. -__a[dd]:sub(cd,__a[dd]:len()) -b_a[dd]=b_a[dd]:sub(1,cd-1)..ab[cca:getForeground()].. -b_a[dd]:sub(cd,b_a[dd]:len()) -a_a[dd]=a_a[dd]:sub(1,cd-1)..ab[cca:getBackground()].. -a_a[dd]:sub(cd,a_a[dd]:len())cd=cd+1 end end -if not -( (ada+cd-bd>=ada and ada+cd-bd=bda and bda+dd-adcca:getX()+ -cda-1)then __b=cca:getX()+cda-1 end;local a_b=(dd-ad=cda+bd)then bd=bd+1 end;_ca(cca) -cca:setValue("") -if not -( (ada+cd-bd>=ada and ada+cd-bd=bda and bda+dd-adcca:getX()+ -cda-1)then __b=cca:getX()+cda-1 end;local a_b=(dd-ad_da-cda+bd then cd=_da-cda+bd;dd=ada-dda+ -ad;if cd>__a[dd]:len()then -cd=__a[dd]:len()+1 end;aaa=cd;caa=dd -if cd#__a- (c_b-1))then -ad=#__a- (c_b-1)end;if(ad<1)then ad=1 end -if(cda+cd-bd>=cda and cda+cd-bd< -cda+b_b)and -(a_b+dd-ad>=a_b and a_b+dd-ad__a[dd]:len())then -cd=__a[dd]:len()+1;_aa=cd end -if(cd__a[caa]:len())then aaa=__a[caa]:len()+1 end -if(_aa==aaa)and(baa==caa)then _aa,aaa,baa,caa=nil,nil,nil,nil end;cca:updateDraw()end;return true end end,eventHandler=function(cca,dca,_da,ada,bda,cda) -if -(dc.eventHandler(cca,dca,_da,ada,bda,cda))then -if(dca=="paste")then -if(cca:isFocused())then local dda=cca:getParent() -local __b,a_b=cca:getForeground(),cca:getBackground()local b_b,c_b=cca:getSize() -__a[dd]=__a[dd]:sub(1,cd-1).._da.. -__a[dd]:sub(cd,__a[dd]:len()) -b_a[dd]=b_a[dd]:sub(1,cd-1)..ab[__b]:rep(_da:len()).. -b_a[dd]:sub(cd,b_a[dd]:len()) -a_a[dd]=a_a[dd]:sub(1,cd-1)..ab[a_b]:rep(_da:len()).. -a_a[dd]:sub(cd,a_a[dd]:len())cd=cd+_da:len()if(cd>=b_b+bd)then bd=(cd+1)-b_b end -local d_b,_ab=cca:getPosition() -dda:setCursor(true,d_b+cd-bd,_ab+dd-ad,__b)_ca(cca)cca:updateDraw()end end end end,draw=function(cca) -dc.draw(cca) -cca:addDraw("textfield",function()local dca=cca:getParent()local _da,ada=cca:getPosition() -local bda,cda=cca:getSize()local dda=ab[cca:getBackground()] -local __b=ab[cca:getForeground()] -for n=1,cda do local a_b=""local b_b=""local c_b=""if __a[n+ad-1]then a_b=__a[n+ad-1] -c_b=b_a[n+ad-1]b_b=a_a[n+ad-1]end -a_b=_c(a_b,bd,bda+bd-1)b_b=bb(dda,bda)c_b=bb(__b,bda)cca:addText(1,n,a_b) -cca:addBG(1,n,b_b)cca:addFG(1,n,c_b)cca:addBlit(1,n,a_b,c_b,b_b)end -if _aa and aaa and baa and caa then local a_b,b_b,c_b,d_b=bba(cca) -for n=c_b,d_b do -local _ab=#__a[n]local aab=0 -if n==c_b and n==d_b then aab=a_b-1 -_ab=_ab- (a_b-1)- (_ab-b_b)elseif n==d_b then _ab=_ab- (_ab-b_b)elseif n==c_b then _ab=_ab- (a_b-1)aab=a_b-1 end;cca:addBG(1 +aab,n,bb(ab[daa],_ab)) -cca:addFG(1 +aab,n,bb(ab[_ba],_ab))end end end)end,load=function(cca) -cca:listenEvent("mouse_click")cca:listenEvent("mouse_up") -cca:listenEvent("mouse_scroll")cca:listenEvent("mouse_drag") -cca:listenEvent("key")cca:listenEvent("char") -cca:listenEvent("other_event")end}bca.__index=bca;return setmetatable(bca,dc)end end -aa["objects"]["Progressbar"]=function(...) -return -function(ab,bb) -local cb=bb.getObject("ChangeableObject")(ab,bb)local db="Progressbar"local _c=0;cb:setZIndex(5)cb:setValue(false) -cb:setSize(25,3)local ac=colors.black;local bc=""local cc=colors.white;local dc=""local _d=0 -local ad={getType=function(bd)return db end,setDirection=function(bd,cd) -_d=cd;bd:updateDraw()return bd end,getDirection=function(bd)return _d end,setProgressBar=function(bd,cd,dd,__a) -ac=cd or ac;bc=dd or bc;cc=__a or cc;bd:updateDraw()return bd end,getProgressBar=function(bd)return -ac,bc,cc end,setActiveBarColor=function(bd,cd)return bd:setProgressBar(cd,nil,nil)end,getActiveBarColor=function(bd)return -ac end,setActiveBarSymbol=function(bd,cd)return bd:setProgressBar(nil,cd,nil)end,getActiveBarSymbol=function(bd)return -bc end,setActiveBarSymbolColor=function(bd,cd)return bd:setProgressBar(nil,nil,cd)end,getActiveBarSymbolColor=function(bd)return -cc end,setBackgroundSymbol=function(bd,cd)dc=cd:sub(1,1)bd:updateDraw()return bd end,getBackgroundSymbol=function(bd)return -dc end,setProgress=function(bd,cd) -if(cd>=0)and(cd<=100)and(_c~=cd)then _c=cd -bd:setValue(_c)if(_c==100)then bd:progressDoneHandler()end end;bd:updateDraw()return bd end,getProgress=function(bd)return -_c end,onProgressDone=function(bd,cd)bd:registerEvent("progress_done",cd) -return bd end,progressDoneHandler=function(bd) -bd:sendEvent("progress_done")end,draw=function(bd)cb.draw(bd) -bd:addDraw("progressbar",function() -local cd,dd=bd:getPosition()local __a,a_a=bd:getSize() -local b_a,c_a=bd:getBackground(),bd:getForeground() -if(b_a~=false)then bd:addBackgroundBox(1,1,__a,a_a,b_a)end;if(dc~="")then bd:addTextBox(1,1,__a,a_a,dc)end -if -(c_a~=false)then bd:addForegroundBox(1,1,__a,a_a,c_a)end -if(_d==1)then bd:addBackgroundBox(1,1,__a,a_a/100 *_c,ac)bd:addForegroundBox(1,1,__a, -a_a/100 *_c,cc) -bd:addTextBox(1,1,__a,a_a/100 *_c,bc)elseif(_d==3)then -bd:addBackgroundBox(1,1 +math.ceil(a_a-a_a/100 *_c),__a, -a_a/100 *_c,ac) -bd:addForegroundBox(1,1 +math.ceil(a_a-a_a/100 *_c),__a, -a_a/100 *_c,cc) -bd:addTextBox(1,1 +math.ceil(a_a-a_a/100 *_c),__a,a_a/100 *_c,bc)elseif(_d==2)then -bd:addBackgroundBox(1 +math.ceil(__a-__a/100 *_c),1,__a/ -100 *_c,a_a,ac) -bd:addForegroundBox(1 +math.ceil(__a-__a/100 *_c),1,__a/100 *_c,a_a,cc) -bd:addTextBox(1 +math.ceil(__a-__a/100 *_c),1,__a/100 *_c,a_a,bc)else -bd:addBackgroundBox(1,1,math.ceil(__a/100 *_c),a_a,ac) -bd:addForegroundBox(1,1,math.ceil(__a/100 *_c),a_a,cc) -bd:addTextBox(1,1,math.ceil(__a/100 *_c),a_a,bc)end end)end}ad.__index=ad;return setmetatable(ad,cb)end end -aa["objects"]["Pane"]=function(...) -return -function(ab,bb) -local cb=bb.getObject("VisualObject")(ab,bb)local db="Pane"cb:setSize(25,10) -local _c={getType=function(ac)return db end}_c.__index=_c;return setmetatable(_c,cb)end end -aa["objects"]["Program"]=function(...)local ab=da("tHex")local bb=da("process") -local cb=string.sub -return -function(db,_c)local ac=_c.getObject("VisualObject")(db,_c) -local bc="Program"local cc;local dc;local _d={} -local function ad(_aa,aaa,baa,caa)local daa,_ba=1,1;local aba,bba=colors.black,colors.white;local cba=false -local dba=false;local _ca={}local aca={}local bca={}local cca={}local dca;local _da={}for i=0,15 do local cab=2 ^i -cca[cab]={_c.getTerm().getPaletteColour(cab)}end;local function ada()dca=(" "):rep(baa) -for n=0,15 do -local cab=2 ^n;local dab=ab[cab]_da[cab]=dab:rep(baa)end end -local function bda()ada()local cab=dca -local dab=_da[colors.white]local _bb=_da[colors.black] -for n=1,caa do -_ca[n]=cb(_ca[n]==nil and cab or _ca[n]..cab:sub(1, -baa-_ca[n]:len()),1,baa) -bca[n]=cb(bca[n]==nil and dab or bca[n].. -dab:sub(1,baa-bca[n]:len()),1,baa) -aca[n]=cb(aca[n]==nil and _bb or aca[n].. -_bb:sub(1,baa-aca[n]:len()),1,baa)end;ac.updateDraw(ac)end;bda()local function cda()if -daa>=1 and _ba>=1 and daa<=baa and _ba<=caa then else end end -local function dda(cab,dab,_bb)if - -_ba<1 or _ba>caa or daa<1 or daa+#cab-1 >baa then return end -_ca[_ba]=cb(_ca[_ba],1,daa-1)..cab..cb(_ca[_ba], -daa+#cab,baa)bca[_ba]=cb(bca[_ba],1,daa-1).. -dab..cb(bca[_ba],daa+#cab,baa) -aca[_ba]= -cb(aca[_ba],1,daa-1).._bb..cb(aca[_ba],daa+#cab,baa)daa=daa+#cab;if dba then cda()end;cc:updateDraw()end -local function __b(cab,dab,_bb) -if(_bb~=nil)then local abb=_ca[dab]if(abb~=nil)then -_ca[dab]=cb(abb:sub(1,cab-1).._bb..abb:sub(cab+ -(_bb:len()),baa),1,baa)end end;cc:updateDraw()end -local function a_b(cab,dab,_bb) -if(_bb~=nil)then local abb=aca[dab]if(abb~=nil)then -aca[dab]=cb(abb:sub(1,cab-1).._bb..abb:sub(cab+ -(_bb:len()),baa),1,baa)end end;cc:updateDraw()end -local function b_b(cab,dab,_bb) -if(_bb~=nil)then local abb=bca[dab]if(abb~=nil)then -bca[dab]=cb(abb:sub(1,cab-1).._bb..abb:sub(cab+ -(_bb:len()),baa),1,baa)end end;cc:updateDraw()end -local c_b=function(cab) -if type(cab)~="number"then -error("bad argument #1 (expected number, got "..type(cab)..")",2)elseif ab[cab]==nil then -error("Invalid color (got "..cab..")",2)end;bba=cab end -local d_b=function(cab) -if type(cab)~="number"then -error("bad argument #1 (expected number, got "..type(cab)..")",2)elseif ab[cab]==nil then -error("Invalid color (got "..cab..")",2)end;aba=cab end -local _ab=function(cab,dab,_bb,abb)if type(cab)~="number"then -error("bad argument #1 (expected number, got "..type(cab)..")",2)end -if ab[cab]==nil then error("Invalid color (got ".. -cab..")",2)end;local bbb -if -type(dab)=="number"and _bb==nil and abb==nil then bbb={colours.rgb8(dab)}cca[cab]=bbb else if -type(dab)~="number"then -error("bad argument #2 (expected number, got "..type(dab)..")",2)end;if type(_bb)~="number"then -error( -"bad argument #3 (expected number, got "..type(_bb)..")",2)end;if type(abb)~="number"then -error( -"bad argument #4 (expected number, got "..type(abb)..")",2)end;bbb=cca[cab]bbb[1]=dab -bbb[2]=_bb;bbb[3]=abb end end -local aab=function(cab)if type(cab)~="number"then -error("bad argument #1 (expected number, got "..type(cab)..")",2)end -if ab[cab]==nil then error("Invalid color (got ".. -cab..")",2)end;local dab=cca[cab]return dab[1],dab[2],dab[3]end -local bab={setCursorPos=function(cab,dab)if type(cab)~="number"then -error("bad argument #1 (expected number, got "..type(cab)..")",2)end;if type(dab)~="number"then -error( -"bad argument #2 (expected number, got "..type(dab)..")",2)end;daa=math.floor(cab) -_ba=math.floor(dab)if(dba)then cda()end end,getCursorPos=function()return -daa,_ba end,setCursorBlink=function(cab)if type(cab)~="boolean"then -error("bad argument #1 (expected boolean, got ".. -type(cab)..")",2)end;cba=cab end,getCursorBlink=function()return -cba end,getPaletteColor=aab,getPaletteColour=aab,setBackgroundColor=d_b,setBackgroundColour=d_b,setTextColor=c_b,setTextColour=c_b,setPaletteColor=_ab,setPaletteColour=_ab,getBackgroundColor=function()return aba end,getBackgroundColour=function()return aba end,getSize=function() -return baa,caa end,getTextColor=function()return bba end,getTextColour=function()return bba end,basalt_resize=function(cab,dab)baa,caa=cab,dab;bda()end,basalt_reposition=function(cab,dab) -_aa,aaa=cab,dab end,basalt_setVisible=function(cab)dba=cab end,drawBackgroundBox=function(cab,dab,_bb,abb,bbb)for n=1,abb do -a_b(cab,dab+ (n-1),ab[bbb]:rep(_bb))end end,drawForegroundBox=function(cab,dab,_bb,abb,bbb) -for n=1,abb do b_b(cab, -dab+ (n-1),ab[bbb]:rep(_bb))end end,drawTextBox=function(cab,dab,_bb,abb,bbb)for n=1,abb do -__b(cab,dab+ (n-1),bbb:rep(_bb))end end,basalt_update=function()for n=1,caa do -cc:addBlit(1,n,_ca[n],bca[n],aca[n])end end,scroll=function(cab) -assert(type(cab)== -"number","bad argument #1 (expected number, got "..type(cab)..")") -if cab~=0 then -for newY=1,caa do local dab=newY+cab;if dab<1 or dab>caa then _ca[newY]=dca -bca[newY]=_da[bba]aca[newY]=_da[aba]else _ca[newY]=_ca[dab]aca[newY]=aca[dab] -bca[newY]=bca[dab]end end end;if(dba)then cda()end end,isColor=function()return -_c.getTerm().isColor()end,isColour=function() -return _c.getTerm().isColor()end,write=function(cab)cab=tostring(cab)if(dba)then -dda(cab,ab[bba]:rep(cab:len()),ab[aba]:rep(cab:len()))end end,clearLine=function() -if -(dba)then __b(1,_ba,(" "):rep(baa)) -a_b(1,_ba,ab[aba]:rep(baa))b_b(1,_ba,ab[bba]:rep(baa))end;if(dba)then cda()end end,clear=function() -for n=1,caa -do __b(1,n,(" "):rep(baa)) -a_b(1,n,ab[aba]:rep(baa))b_b(1,n,ab[bba]:rep(baa))end;if(dba)then cda()end end,blit=function(cab,dab,_bb)if -type(cab)~="string"then -error("bad argument #1 (expected string, got "..type(cab)..")",2)end;if type(dab)~="string"then -error( -"bad argument #2 (expected string, got "..type(dab)..")",2)end;if type(_bb)~="string"then -error( -"bad argument #3 (expected string, got "..type(_bb)..")",2)end -if -#dab~=#cab or#_bb~=#cab then error("Arguments must be the same length",2)end;if(dba)then dda(cab,dab,_bb)end end}return bab end;ac:setZIndex(5)ac:setSize(30,12)local bd=ad(1,1,30,12)local cd -local dd=false;local __a={} -local function a_a(_aa)local aaa=_aa:getParent()local baa,caa=bd.getCursorPos() -local daa,_ba=_aa:getPosition()local aba,bba=_aa:getSize() -if(daa+baa-1 >=1 and -daa+baa-1 <=daa+aba-1 and caa+_ba-1 >=1 and -caa+_ba-1 <=_ba+bba-1)then -aaa:setCursor( -_aa:isFocused()and bd.getCursorBlink(),daa+baa-1,caa+_ba-1,bd.getTextColor())end end -local function b_a(_aa,aaa,...)local baa,caa=cd:resume(aaa,...) -if(baa==false)and(caa~=nil)and -(caa~="Terminated")then -local daa=_aa:sendEvent("program_error",caa) -if(daa~=false)then error("Basalt Program - "..caa)end end -if(cd:getStatus()=="dead")then _aa:sendEvent("program_done")end end -local function c_a(_aa,aaa,baa,caa,daa)if(cd==nil)then return false end -if not(cd:isDead())then if not(dd)then -local _ba,aba=_aa:getAbsolutePosition()b_a(_aa,aaa,baa,caa-_ba+1,daa-aba+1) -a_a(_aa)end end end -local function d_a(_aa,aaa,baa,caa)if(cd==nil)then return false end -if not(cd:isDead())then if not(dd)then if(_aa.draw)then -b_a(_aa,aaa,baa,caa)a_a(_aa)end end end end -cc={getType=function(_aa)return bc end,show=function(_aa)ac.show(_aa) -bd.setBackgroundColor(_aa:getBackground())bd.setTextColor(_aa:getForeground()) -bd.basalt_setVisible(true)return _aa end,hide=function(_aa) -ac.hide(_aa)bd.basalt_setVisible(false)return _aa end,setPosition=function(_aa,aaa,baa,caa) -ac.setPosition(_aa,aaa,baa,caa)bd.basalt_reposition(_aa:getPosition())return _aa end,getBasaltWindow=function()return -bd end,getBasaltProcess=function()return cd end,setSize=function(_aa,aaa,baa,caa)ac.setSize(_aa,aaa,baa,caa) -bd.basalt_resize(_aa:getWidth(),_aa:getHeight())return _aa end,getStatus=function(_aa)if(cd~=nil)then return -cd:getStatus()end;return"inactive"end,setEnviroment=function(_aa,aaa)_d= -aaa or{}return _aa end,execute=function(_aa,aaa,...)dc=aaa or dc -cd=bb:new(dc,bd,_d,...)bd.setBackgroundColor(colors.black) -bd.setTextColor(colors.white)bd.clear()bd.setCursorPos(1,1) -bd.setBackgroundColor(_aa:getBackground()) -bd.setTextColor(_aa:getForeground()or colors.white)bd.basalt_setVisible(true)b_a(_aa)dd=false -_aa:listenEvent("mouse_click",_aa)_aa:listenEvent("mouse_up",_aa) -_aa:listenEvent("mouse_drag",_aa)_aa:listenEvent("mouse_scroll",_aa) -_aa:listenEvent("key",_aa)_aa:listenEvent("key_up",_aa) -_aa:listenEvent("char",_aa)_aa:listenEvent("other_event",_aa)return _aa end,setExecute=function(_aa,aaa,...)return -_aa:execute(aaa,...)end,stop=function(_aa)local aaa=_aa:getParent() -if(cd~=nil)then if not -(cd:isDead())then b_a(_aa,"terminate")if(cd:isDead())then -aaa:setCursor(false)end end end;aaa:removeEvents(_aa)return _aa end,pause=function(_aa,aaa)dd= -aaa or(not dd)if(cd~=nil)then -if not(cd:isDead())then if not(dd)then -_aa:injectEvents(table.unpack(__a))__a={}end end end;return _aa end,isPaused=function(_aa)return -dd end,injectEvent=function(_aa,aaa,baa,...) -if(cd~=nil)then if not(cd:isDead())then -if(dd==false)or(baa)then -b_a(_aa,aaa,...)else table.insert(__a,{event=aaa,args={...}})end end end;return _aa end,getQueuedEvents=function(_aa)return -__a end,updateQueuedEvents=function(_aa,aaa)__a=aaa or __a;return _aa end,injectEvents=function(_aa,...)if(cd~=nil)then -if not -(cd:isDead())then for aaa,baa in pairs({...})do -b_a(_aa,baa.event,table.unpack(baa.args))end end end;return _aa end,mouseHandler=function(_aa,aaa,baa,caa) -if -(ac.mouseHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_click",aaa,baa,caa)return true end;return false end,mouseUpHandler=function(_aa,aaa,baa,caa) -if -(ac.mouseUpHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_up",aaa,baa,caa)return true end;return false end,scrollHandler=function(_aa,aaa,baa,caa) -if -(ac.scrollHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_scroll",aaa,baa,caa)return true end;return false end,dragHandler=function(_aa,aaa,baa,caa) -if -(ac.dragHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_drag",aaa,baa,caa)return true end;return false end,keyHandler=function(_aa,aaa,baa)if -(ac.keyHandler(_aa,aaa,baa))then d_a(_aa,"key",aaa,baa)return true end;return -false end,keyUpHandler=function(_aa,aaa)if -(ac.keyUpHandler(_aa,aaa))then d_a(_aa,"key_up",aaa)return true end -return false end,charHandler=function(_aa,aaa)if -(ac.charHandler(_aa,aaa))then d_a(_aa,"char",aaa)return true end -return false end,getFocusHandler=function(_aa) -ac.getFocusHandler(_aa) -if(cd~=nil)then -if not(cd:isDead())then -if not(dd)then local aaa=_aa:getParent() -if(aaa~=nil)then -local baa,caa=bd.getCursorPos()local daa,_ba=_aa:getPosition()local aba,bba=_aa:getSize() -if -( - -daa+baa-1 >=1 and daa+baa-1 <=daa+aba-1 and caa+_ba-1 >=1 and caa+_ba-1 <=_ba+bba-1)then -aaa:setCursor(bd.getCursorBlink(),daa+baa-1,caa+_ba-1,bd.getTextColor())end end end end end end,loseFocusHandler=function(_aa) -ac.loseFocusHandler(_aa) -if(cd~=nil)then if not(cd:isDead())then local aaa=_aa:getParent()if(aaa~=nil)then -aaa:setCursor(false)end end end end,eventHandler=function(_aa,aaa,...) -ac.eventHandler(_aa,aaa,...)if cd==nil then return end -if not cd:isDead()then -if not dd then b_a(_aa,aaa,...) -if -_aa:isFocused()then local baa=_aa:getParent()local caa,daa=_aa:getPosition() -local _ba,aba=bd.getCursorPos()local bba,cba=_aa:getSize() -if caa+_ba-1 >=1 and -caa+_ba-1 <=caa+bba-1 and aba+daa-1 >=1 and -aba+daa-1 <=daa+cba-1 then -baa:setCursor(bd.getCursorBlink(), -caa+_ba-1,aba+daa-1,bd.getTextColor())end end else table.insert(__a,{event=aaa,args={...}})end end end,resizeHandler=function(_aa,...) -ac.resizeHandler(_aa,...) -if(cd~=nil)then -if not(cd:isDead())then -if not(dd)then -bd.basalt_resize(_aa:getSize())b_a(_aa,"term_resize",_aa:getSize())else -bd.basalt_resize(_aa:getSize()) -table.insert(__a,{event="term_resize",args={_aa:getSize()}})end end end end,repositionHandler=function(_aa,...) -ac.repositionHandler(_aa,...) -if(cd~=nil)then if not(cd:isDead())then -bd.basalt_reposition(_aa:getPosition())end end end,draw=function(_aa) -ac.draw(_aa) -_aa:addDraw("program",function()local aaa=_aa:getParent()local baa,caa=_aa:getPosition() -local daa,_ba=bd.getCursorPos()local aba,bba=_aa:getSize()bd.basalt_update()end)end,onError=function(_aa,...) -for baa,caa in -pairs(table.pack(...))do if(type(caa)=="function")then -_aa:registerEvent("program_error",caa)end end;local aaa=_aa:getParent()_aa:listenEvent("other_event") -return _aa end,onDone=function(_aa,...) -for baa,caa in -pairs(table.pack(...))do if(type(caa)=="function")then -_aa:registerEvent("program_done",caa)end end;local aaa=_aa:getParent()_aa:listenEvent("other_event") -return _aa end}cc.__index=cc;return setmetatable(cc,ac)end end -aa["objects"]["Checkbox"]=function(...)local ab=da("utils")local bb=da("tHex") -return -function(cb,db) -local _c=db.getObject("ChangeableObject")(cb,db)local ac="Checkbox"_c:setZIndex(5)_c:setValue(false) -_c:setSize(1,1)local bc,cc,dc,_d="\42"," ","","right" -local ad={load=function(bd)bd:listenEvent("mouse_click",bd) -bd:listenEvent("mouse_up",bd)end,getType=function(bd)return ac end,isType=function(bd,cd)return -ac==cd or -_c.isType~=nil and _c.isType(cd)or false end,setSymbol=function(bd,cd,dd) -bc=cd or bc;cc=dd or cc;bd:updateDraw()return bd end,setActiveSymbol=function(bd,cd)return bd:setSymbol(cd, -nil)end,setInactiveSymbol=function(bd,cd) -return bd:setSymbol(nil,cd)end,getSymbol=function(bd)return bc,cc end,getActiveSymbol=function(bd)return bc end,getInactiveSymbol=function(bd)return cc end,setText=function(bd,cd) -dc=cd;return bd end,getText=function(bd)return dc end,setTextPosition=function(bd,cd)_d=cd or _d;return bd end,getTextPosition=function(bd)return -_d end,setChecked=_c.setValue,getChecked=_c.getValue,mouseHandler=function(bd,cd,dd,__a) -if(_c.mouseHandler(bd,cd,dd,__a))then -if(cd==1)then -if( -bd:getValue()~=true)and(bd:getValue()~=false)then -bd:setValue(false)else bd:setValue(not bd:getValue())end;bd:updateDraw()return true end end;return false end,draw=function(bd) -_c.draw(bd) -bd:addDraw("checkbox",function()local cd,dd=bd:getPosition()local __a,a_a=bd:getSize() -local b_a=ab.getTextVerticalAlign(a_a,"center")local c_a,d_a=bd:getBackground(),bd:getForeground() -if -(bd:getValue())then -bd:addBlit(1,b_a,ab.getTextHorizontalAlign(bc,__a,"center"),bb[d_a],bb[c_a])else -bd:addBlit(1,b_a,ab.getTextHorizontalAlign(cc,__a,"center"),bb[d_a],bb[c_a])end;if(dc~="")then local _aa=_d=="left"and-dc:len()or 3 -bd:addText(_aa,b_a,dc)end end)end}ad.__index=ad;return setmetatable(ad,_c)end end -aa["objects"]["Object"]=function(...)local ab=da("basaltEvent") -local bb=da("utils")local cb=bb.uuid;local db,_c=table.unpack,string.sub -return -function(ac,bc)ac=ac or cb() -assert(bc~=nil, -"Unable to find basalt instance! ID: "..ac)local cc="Object"local dc,_d=true,false;local ad=ab()local bd={}local cd={}local dd -local __a={init=function(a_a) -if(_d)then return false end;_d=true;return true end,load=function(a_a)end,getType=function(a_a)return cc end,isType=function(a_a,b_a)return cc== -b_a end,getProperty=function(a_a,b_a) -local c_a=a_a["get"..b_a:gsub("^%l",string.upper)]if(c_a~=nil)then return c_a(a_a)end end,setProperty=function(a_a,b_a,...) -local c_a=a_a[ -"set"..b_a:gsub("^%l",string.upper)]if(c_a~=nil)then return c_a(a_a,...)end end,getName=function(a_a)return -ac end,getParent=function(a_a)return dd end,setParent=function(a_a,b_a,c_a)if(c_a)then dd=b_a;return a_a end -if(b_a.getType~= -nil and b_a:isType("Container"))then a_a:remove() -b_a:addChild(a_a)if(a_a.show)then a_a:show()end;dd=b_a end;return a_a end,updateEvents=function(a_a)for b_a,c_a in -pairs(cd)do dd:removeEvent(b_a,a_a) -if(c_a)then dd:addEvent(b_a,a_a)end end;return a_a end,listenEvent=function(a_a,b_a,c_a)if( -dd~=nil)then -if(c_a)or(c_a==nil)then cd[b_a]=true;dd:addEvent(b_a,a_a)elseif -(c_a==false)then cd[b_a]=false;dd:removeEvent(b_a,a_a)end end -return a_a end,getZIndex=function(a_a)return -1 end,enable=function(a_a)dc=true;return a_a end,disable=function(a_a)dc=false;return a_a end,isEnabled=function(a_a)return -dc end,remove=function(a_a)if(dd~=nil)then dd:removeChild(a_a)end -a_a:updateDraw()return a_a end,getBaseFrame=function(a_a)if(dd~=nil)then -return dd:getBaseFrame()end;return a_a end,onEvent=function(a_a,...) -for b_a,c_a in -pairs(table.pack(...))do if(type(c_a)=="function")then -a_a:registerEvent("other_event",c_a)end end;return a_a end,getEventSystem=function(a_a)return -ad end,getRegisteredEvents=function(a_a)return bd end,registerEvent=function(a_a,b_a,c_a) -if(dd~=nil)then dd:addEvent(b_a,a_a)end;ad:registerEvent(b_a,c_a) -if(bd[b_a]==nil)then bd[b_a]={}end;table.insert(bd[b_a],c_a)end,removeEvent=function(a_a,b_a,c_a)if( -ad:getEventCount(b_a)<1)then -if(dd~=nil)then dd:removeEvent(b_a,a_a)end end;ad:removeEvent(b_a,c_a)if( -bd[b_a]~=nil)then table.remove(bd[b_a],c_a)if(#bd[b_a]==0)then -bd[b_a]=nil end end end,eventHandler=function(a_a,b_a,...) -local c_a=a_a:sendEvent("other_event",b_a,...)if(c_a~=nil)then return c_a end end,customEventHandler=function(a_a,b_a,...) -local c_a=a_a:sendEvent("custom_event",b_a,...)if(c_a~=nil)then return c_a end;return true end,sendEvent=function(a_a,b_a,...)if( -b_a=="other_event")or(b_a=="custom_event")then return -ad:sendEvent(b_a,a_a,...)end;return -ad:sendEvent(b_a,a_a,b_a,...)end,onClick=function(a_a,...) -for b_a,c_a in -pairs(table.pack(...))do if(type(c_a)=="function")then -a_a:registerEvent("mouse_click",c_a)end end;return a_a end,onClickUp=function(a_a,...)for b_a,c_a in -pairs(table.pack(...))do -if(type(c_a)=="function")then a_a:registerEvent("mouse_up",c_a)end end;return a_a end,onRelease=function(a_a,...) -for b_a,c_a in -pairs(table.pack(...))do if(type(c_a)=="function")then -a_a:registerEvent("mouse_release",c_a)end end;return a_a end,onScroll=function(a_a,...) -for b_a,c_a in -pairs(table.pack(...))do if(type(c_a)=="function")then -a_a:registerEvent("mouse_scroll",c_a)end end;return a_a end,onHover=function(a_a,...) -for b_a,c_a in -pairs(table.pack(...))do if(type(c_a)=="function")then -a_a:registerEvent("mouse_hover",c_a)end end;return a_a end,onLeave=function(a_a,...) -for b_a,c_a in -pairs(table.pack(...))do if(type(c_a)=="function")then -a_a:registerEvent("mouse_leave",c_a)end end;return a_a end,onDrag=function(a_a,...) -for b_a,c_a in -pairs(table.pack(...))do if(type(c_a)=="function")then -a_a:registerEvent("mouse_drag",c_a)end end;return a_a end,onKey=function(a_a,...)for b_a,c_a in -pairs(table.pack(...))do -if(type(c_a)=="function")then a_a:registerEvent("key",c_a)end end;return a_a end,onChar=function(a_a,...)for b_a,c_a in -pairs(table.pack(...))do -if(type(c_a)=="function")then a_a:registerEvent("char",c_a)end end;return a_a end,onKeyUp=function(a_a,...)for b_a,c_a in -pairs(table.pack(...))do -if(type(c_a)=="function")then a_a:registerEvent("key_up",c_a)end end;return a_a end}__a.__index=__a;return __a end end -aa["objects"]["List"]=function(...)local ab=da("utils")local bb=da("tHex") -return -function(cb,db) -local _c=db.getObject("ChangeableObject")(cb,db)local ac="List"local bc={}local cc=colors.black;local dc=colors.lightGray;local _d=true -local ad="left"local bd=0;local cd=true;_c:setSize(16,8)_c:setZIndex(5) -local dd={init=function(__a) -local a_a=__a:getParent()__a:listenEvent("mouse_click") -__a:listenEvent("mouse_drag")__a:listenEvent("mouse_scroll")return _c.init(__a)end,getBase=function(__a)return -_c end,setTextAlign=function(__a,a_a)ad=a_a;return __a end,getTextAlign=function(__a)return ad end,getBase=function(__a)return _c end,getType=function(__a)return -ac end,isType=function(__a,a_a)return -ac==a_a or _c.isType~=nil and _c.isType(a_a)or false end,addItem=function(__a,a_a,b_a,c_a,...) -table.insert(bc,{text=a_a,bgCol= -b_a or __a:getBackground(),fgCol=c_a or __a:getForeground(),args={...}})if(#bc<=1)then __a:setValue(bc[1],false)end -__a:updateDraw()return __a end,setOptions=function(__a,...) -bc={} -for a_a,b_a in pairs(...)do -if(type(b_a)=="string")then -table.insert(bc,{text=b_a,bgCol=__a:getBackground(),fgCol=__a:getForeground(),args={}})else -table.insert(bc,{text=b_a[1],bgCol=b_a[2]or __a:getBackground(),fgCol=b_a[3]or -__a:getForeground(),args=b_a[4]or{}})end end;__a:setValue(bc[1],false)__a:updateDraw()return __a end,setOffset=function(__a,a_a) -bd=a_a;__a:updateDraw()return __a end,getOffset=function(__a)return bd end,removeItem=function(__a,a_a) -if( -type(a_a)=="number")then table.remove(bc,a_a)elseif(type(a_a)=="table")then -for b_a,c_a in -pairs(bc)do if(c_a==a_a)then table.remove(bc,b_a)break end end end;__a:updateDraw()return __a end,getItem=function(__a,a_a)return -bc[a_a]end,getAll=function(__a)return bc end,getOptions=function(__a)return bc end,getItemIndex=function(__a) -local a_a=__a:getValue()for b_a,c_a in pairs(bc)do if(c_a==a_a)then return b_a end end end,clear=function(__a) -bc={}__a:setValue({},false)__a:updateDraw()return __a end,getItemCount=function(__a)return -#bc end,editItem=function(__a,a_a,b_a,c_a,d_a,...)table.remove(bc,a_a) -table.insert(bc,a_a,{text=b_a,bgCol=c_a or -__a:getBackground(),fgCol=d_a or __a:getForeground(),args={...}})__a:updateDraw()return __a end,selectItem=function(__a,a_a)__a:setValue( -bc[a_a]or{},false)__a:updateDraw()return __a end,setSelectionColor=function(__a,a_a,b_a,c_a)cc= -a_a or __a:getBackground() -dc=b_a or __a:getForeground()_d=c_a~=nil and c_a or true;__a:updateDraw() -return __a end,setSelectionBG=function(__a,a_a)return __a:setSelectionColor(a_a, -nil,_d)end,setSelectionFG=function(__a,a_a)return __a:setSelectionColor( -nil,a_a,_d)end,getSelectionColor=function(__a) -return cc,dc end,getSelectionBG=function(__a)return cc end,getSelectionFG=function(__a)return dc end,isSelectionColorActive=function(__a)return _d end,setScrollable=function(__a,a_a) -cd=a_a;if(a_a==nil)then cd=true end;__a:updateDraw()return __a end,getScrollable=function(__a)return -cd end,scrollHandler=function(__a,a_a,b_a,c_a) -if(_c.scrollHandler(__a,a_a,b_a,c_a))then -if(cd)then -local d_a,_aa=__a:getSize()bd=bd+a_a;if(bd<0)then bd=0 end;if(a_a>=1)then -if(#bc>_aa)then -if(bd>#bc-_aa)then bd=#bc-_aa end;if(bd>=#bc)then bd=#bc-1 end else bd=bd-1 end end -__a:updateDraw()end;return true end;return false end,mouseHandler=function(__a,a_a,b_a,c_a) -if -(_c.mouseHandler(__a,a_a,b_a,c_a))then local d_a,_aa=__a:getAbsolutePosition()local aaa,baa=__a:getSize() -if -(#bc>0)then -for n=1,baa do -if(bc[n+bd]~=nil)then if -(d_a<=b_a)and(d_a+aaa>b_a)and(_aa+n-1 ==c_a)then __a:setValue(bc[n+bd])__a:selectHandler() -__a:updateDraw()end end end end;return true end;return false end,dragHandler=function(__a,a_a,b_a,c_a)return -__a:mouseHandler(a_a,b_a,c_a)end,touchHandler=function(__a,a_a,b_a)return -__a:mouseHandler(1,a_a,b_a)end,onSelect=function(__a,...) -for a_a,b_a in -pairs(table.pack(...))do if(type(b_a)=="function")then -__a:registerEvent("select_item",b_a)end end;return __a end,selectHandler=function(__a) -__a:sendEvent("select_item",__a:getValue())end,draw=function(__a)_c.draw(__a) -__a:addDraw("list",function() -local a_a,b_a=__a:getSize() -for n=1,b_a do -if bc[n+bd]then local c_a=bc[n+bd].text -local d_a,_aa=bc[n+bd].fgCol,bc[n+bd].bgCol -if bc[n+bd]==__a:getValue()and _d then d_a,_aa=dc,cc end;__a:addText(1,n,c_a:sub(1,a_a)) -__a:addBG(1,n,bb[_aa]:rep(a_a))__a:addFG(1,n,bb[d_a]:rep(a_a))end end end)end}dd.__index=dd;return setmetatable(dd,_c)end end -aa["objects"]["Label"]=function(...)local ab=da("utils")local bb=ab.wrapText -local cb=ab.writeWrappedText;local db=da("tHex") -return -function(_c,ac) -local bc=ac.getObject("VisualObject")(_c,ac)local cc="Label"bc:setZIndex(3)bc:setSize(5,1) -bc:setBackground(false)local dc=true;local _d,ad="Label","left" -local bd={getType=function(cd)return cc end,getBase=function(cd)return bc end,setText=function(cd,dd) -_d=tostring(dd) -if(dc)then local __a=bb(_d,#_d)local a_a,b_a=1,1;for c_a,d_a in pairs(__a)do b_a=b_a+1 -a_a=math.max(a_a,d_a:len())end;cd:setSize(a_a,b_a)dc=true end;cd:updateDraw()return cd end,getAutoSize=function(cd)return -dc end,setAutoSize=function(cd,dd)dc=dd;return cd end,getText=function(cd)return _d end,setSize=function(cd,dd,__a) -bc.setSize(cd,dd,__a)dc=false;return cd end,getTextAlign=function(cd)return ad end,setTextAlign=function(cd,dd)ad=dd or ad;return -cd end,draw=function(cd)bc.draw(cd) -cd:addDraw("label",function()local dd,__a=cd:getSize() -local a_a= - - -ad=="center"and math.floor(dd/2 -_d:len()/2 +0.5)or ad=="right"and dd- (_d:len()-1)or 1;cb(cd,a_a,1,_d,dd+1,__a)end)end,init=function(cd) -bc.init(cd)local dd=cd:getParent() -cd:setForeground(dd:getForeground())end}bd.__index=bd;return setmetatable(bd,bc)end end -aa["objects"]["Graph"]=function(...) -return -function(ab,bb) -local cb=bb.getObject("ChangeableObject")(ab,bb)local db="Graph"cb:setZIndex(5)cb:setSize(30,10)local _c={} -local ac=colors.gray;local bc="\7"local cc=colors.black;local dc=100;local _d=0;local ad="line"local bd=10 -local cd={getType=function(dd)return db end,setGraphColor=function(dd,__a)ac= -__a or ac;dd:updateDraw()return dd end,setGraphSymbol=function(dd,__a,a_a) -bc=__a or bc;cc=a_a or cc;dd:updateDraw()return dd end,setGraphSymbolColor=function(dd,__a)return dd:setGraphSymbolColor( -nil,__a)end,getGraphSymbol=function(dd) -return bc,cc end,getGraphSymbolColor=function(dd)return cc end,addDataPoint=function(dd,__a)if __a>=_d and __a<=dc then -table.insert(_c,__a)dd:updateDraw()end;if(#_c>100)then -table.remove(_c,1)end;return dd end,setMaxValue=function(dd,__a) -dc=__a;dd:updateDraw()return dd end,getMaxValue=function(dd)return dc end,setMinValue=function(dd,__a) -_d=__a;dd:updateDraw()return dd end,getMinValue=function(dd)return _d end,setGraphType=function(dd,__a)if __a== -"scatter"or __a=="line"or __a=="bar"then ad=__a -dd:updateDraw()end;return dd end,getGraphType=function(dd)return -ad end,setMaxEntries=function(dd,__a)bd=__a;dd:updateDraw()return dd end,getMaxEntries=function(dd)return -bd end,clear=function(dd)_c={}dd:updateDraw()return dd end,draw=function(dd) -cb.draw(dd) -dd:addDraw("graph",function()local __a,a_a=dd:getPosition()local b_a,c_a=dd:getSize() -local d_a,_aa=dd:getBackground(),dd:getForeground()local aaa=dc-_d;local baa,caa;local daa=#_c-bd+1;if daa<1 then daa=1 end -for i=daa,#_c do local _ba=_c[i] -local aba=math.floor(( ( -b_a-1)/ (bd-1))* (i-daa)+1.5) -local bba=math.floor((c_a-1)- ( (c_a-1)/aaa)* (_ba-_d)+1.5) -if ad=="scatter"then dd:addBackgroundBox(aba,bba,1,1,ac) -dd:addForegroundBox(aba,bba,1,1,cc)dd:addTextBox(aba,bba,1,1,bc)elseif ad=="line"then -if baa and caa then -local cba=math.abs(aba-baa)local dba=math.abs(bba-caa)local _ca=baa-dba then -bca=bca-dba;baa=baa+_ca end -if cca=1 and daa<=aca then -local bca=_c(_ba,cb(1 -caa+1,1),cb(_ca-caa+1,1)) -local cca=_c(aba,cb(1 -caa+1,1),cb(_ca-caa+1,1)) -local dca=_c(bba,cb(1 -caa+1,1),cb(_ca-caa+1,1)) -a_a.blit(cb(caa+ (cba-1),cba),dba+daa-1,bca,cca,dca)end end,setCursor=function(baa,caa,daa,_ba,aba) -local bba,cba=baa:getAbsolutePosition()local dba,_ca=baa:getOffset()d_a=caa or false;if(daa~=nil)then -b_a=bba+daa-1 -dba end -if(_ba~=nil)then c_a=cba+_ba-1 -_ca end;_aa=aba or _aa -if(d_a)then __a.setTextColor(_aa) -__a.setCursorPos(b_a,c_a)__a.setCursorBlink(d_a)else __a.setCursorBlink(false)end;return baa end} -for baa,caa in -pairs({mouse_click={"mouseHandler",true},mouse_up={"mouseUpHandler",false},mouse_drag={"dragHandler",false},mouse_scroll={"scrollHandler",true},mouse_hover={"hoverHandler",false}})do -aaa[caa[1]]=function(daa,_ba,aba,bba,...)if(dc[caa[1]](daa,_ba,aba,bba,...))then -cc.setActiveFrame(daa)end end end -for baa,caa in -pairs({"drawBackgroundBox","drawForegroundBox","drawTextBox"})do -aaa[caa]=function(daa,_ba,aba,bba,cba,dba)local _ca,aca=daa:getPosition()local bca,cca=daa:getSize() -cba=(aba<1 and(cba+ -aba>daa:getHeight()and daa:getHeight()or cba+aba- -1)or(cba+aba> -daa:getHeight()and daa:getHeight()-aba+1 or -cba)) -bba=(_ba<1 and(bba+_ba>daa:getWidth()and daa:getWidth()or bba+ -_ba-1)or( - -bba+_ba>daa:getWidth()and daa:getWidth()-_ba+1 or bba)) -a_a[caa](cb(_ba+ (_ca-1),_ca),cb(aba+ (aca-1),aca),bba,cba,dba)end end -for baa,caa in pairs({"setBG","setFG","setText"})do -aaa[caa]=function(daa,_ba,aba,bba) -local cba,dba=daa:getPosition()local _ca,aca=daa:getSize()if(aba>=1)and(aba<=aca)then -a_a[caa](cb(_ba+ (cba-1),cba), -dba+aba-1,_c(bba,cb(1 -_ba+1,1),cb(_ca-_ba+1,1)))end end end;aaa.__index=aaa;return setmetatable(aaa,dc)end end -aa["objects"]["Frame"]=function(...)local ab=da("utils") -local bb,cb,db,_c,ac=math.max,math.min,string.sub,string.rep,string.len -return -function(bc,cc)local dc=cc.getObject("Container")(bc,cc)local _d="Frame" -local ad;local bd=true;local cd,dd=0,0;dc:setSize(30,10)dc:setZIndex(10) -local __a={getType=function()return _d end,isType=function(a_a,b_a)return - -_d==b_a or dc.isType~=nil and dc.isType(b_a)or false end,getBase=function(a_a) -return dc end,getOffset=function(a_a)return cd,dd end,setOffset=function(a_a,b_a,c_a)cd=b_a or cd;dd=c_a or dd -a_a:updateDraw()return a_a end,getXOffset=function(a_a)return cd end,setXOffset=function(a_a,b_a)return -a_a:setOffset(b_a,nil)end,getYOffset=function(a_a)return dd end,setYOffset=function(a_a,b_a)return -a_a:setOffset(nil,b_a)end,setParent=function(a_a,b_a,...) -dc.setParent(a_a,b_a,...)ad=b_a;return a_a end,render=function(a_a) -if(dc.render~=nil)then -if -(a_a:isVisible())then dc.render(a_a)local b_a=a_a:getChildren()for c_a,d_a in ipairs(b_a)do -if( -d_a.element.render~=nil)then d_a.element:render()end end end end end,updateDraw=function(a_a)if( -ad~=nil)then ad:updateDraw()end;return a_a end,blit=function(a_a,b_a,c_a,d_a,_aa,aaa) -local baa,caa=a_a:getPosition()local daa,_ba=ad:getOffset()baa=baa-daa;caa=caa-_ba -local aba,bba=a_a:getSize() -if c_a>=1 and c_a<=bba then -local cba=db(d_a,bb(1 -b_a+1,1),bb(aba-b_a+1,1)) -local dba=db(_aa,bb(1 -b_a+1,1),bb(aba-b_a+1,1)) -local _ca=db(aaa,bb(1 -b_a+1,1),bb(aba-b_a+1,1)) -ad:blit(bb(b_a+ (baa-1),baa),caa+c_a-1,cba,dba,_ca)end end,setCursor=function(a_a,b_a,c_a,d_a,_aa) -local aaa,baa=a_a:getPosition()local caa,daa=a_a:getOffset() -ad:setCursor(b_a or false,(c_a or 0)+aaa-1 -caa,( -d_a or 0)+baa-1 -daa,_aa or colors.white)return a_a end} -for a_a,b_a in -pairs({"drawBackgroundBox","drawForegroundBox","drawTextBox"})do -__a[b_a]=function(c_a,d_a,_aa,aaa,baa,caa)local daa,_ba=c_a:getPosition()local aba,bba=ad:getOffset() -daa=daa-aba;_ba=_ba-bba -baa=(_aa<1 and( -baa+_aa>c_a:getHeight()and c_a:getHeight()or baa+_aa-1)or( -baa+ -_aa>c_a:getHeight()and c_a:getHeight()-_aa+1 or baa)) -aaa=(d_a<1 and(aaa+d_a>c_a:getWidth()and c_a:getWidth()or aaa+ -d_a-1)or( - -aaa+d_a>c_a:getWidth()and c_a:getWidth()-d_a+1 or aaa)) -ad[b_a](ad,bb(d_a+ (daa-1),daa),bb(_aa+ (_ba-1),_ba),aaa,baa,caa)end end -for a_a,b_a in pairs({"setBG","setFG","setText"})do -__a[b_a]=function(c_a,d_a,_aa,aaa) -local baa,caa=c_a:getPosition()local daa,_ba=ad:getOffset()baa=baa-daa;caa=caa-_ba -local aba,bba=c_a:getSize()if(_aa>=1)and(_aa<=bba)then -ad[b_a](ad,bb(d_a+ (baa-1),baa),caa+_aa-1,db(aaa,bb( -1 -d_a+1,1),bb(aba-d_a+1,1)))end end end;__a.__index=__a;return setmetatable(__a,dc)end end -aa["objects"]["ChangeableObject"]=function(...) -return -function(ab,bb) -local cb=bb.getObject("VisualObject")(ab,bb)local db="ChangeableObject"local _c -local ac={setValue=function(bc,cc,dc)if(_c~=cc)then _c=cc;bc:updateDraw()if(dc~=false)then -bc:valueChangedHandler()end end;return bc end,getValue=function(bc)return -_c end,onChange=function(bc,...) -for cc,dc in pairs(table.pack(...))do if(type(dc)=="function")then -bc:registerEvent("value_changed",dc)end end;return bc end,valueChangedHandler=function(bc) -bc:sendEvent("value_changed",_c)end}ac.__index=ac;return setmetatable(ac,cb)end end -aa["objects"]["Container"]=function(...)local ab=da("utils")local bb=ab.tableCount -return -function(cb,db) -local _c=db.getObject("VisualObject")(cb,db)local ac="Container"local bc={}local cc={}local dc={}local _d;local ad=true;local bd,cd=0,0 -local dd=function(cba,dba) -if -cba.zIndex==dba.zIndex then return cba.objIddba.evId else return -cba.zIndex>dba.zIndex end end;local function a_a(cba)cba:sortChildren()return bc end -local function b_a(cba,dba)if -(type(dba)=="table")then dba=dba:getName()end -for _ca,aca in ipairs(bc)do if -aca.element:getName()==dba then return aca.element end end end -local function c_a(cba,dba)local _ca=b_a(dba)if(_ca~=nil)then return _ca end;for aca,bca in ipairs(bc)do -if -(bca:getType()=="Container")then local cca=bca:getDeepChild(dba)if(cca~=nil)then return cca end end end end -local function d_a(cba,dba)if(b_a(dba:getName())~=nil)then return end;bd=bd+1 -local _ca=dba:getZIndex() -table.insert(bc,{element=dba,zIndex=_ca,objId=bd})ad=false;dba:setParent(cba,true)for aca,bca in -pairs(dba:getRegisteredEvents())do cba:addEvent(aca,dba)end;if(dba.init~= -nil)then dba:init()end -if(dba.load~=nil)then dba:load()end;if(dba.draw~=nil)then dba:draw()end;return dba end -local function _aa(cba,dba) -if(type(dba)=="string")then dba=b_a(dba:getName())end;if(dba==nil)then return end -for _ca,aca in ipairs(bc)do if aca.element==dba then -table.remove(bc,_ca)return true end end;cba:removeEvents(dba)ad=false end;local function aaa(cba)local dba=cba:getParent()bc={}cc={}ad=false;bd=0;cd=0;_d=nil -dba:removeEvents(cba)end -local function baa(cba,dba,_ca)bd=bd+1;cd=cd+1;for aca,bca in -pairs(bc)do -if(bca.element==dba)then bca.zIndex=_ca;bca.objId=bd;break end end;for aca,bca in pairs(cc)do -for cca,dca in pairs(bca)do if -(dca.element==dba)then dca.zIndex=_ca;dca.evId=cd end end end;ad=false -cba:updateDraw()end -local function caa(cba,dba)local _ca=cba:getParent() -for aca,bca in pairs(cc)do for cca,dca in pairs(bca)do if(dca.element==dba)then -table.remove(cc[aca],cca)end end -if( -bb(cc[aca])<=0)then if(_ca~=nil)then _ca:removeEvent(aca,cba)end end end;ad=false end -local function daa(cba,dba,_ca)if(type(_ca)=="table")then _ca=_ca:getName()end -if(cc[dba]~= -nil)then for aca,bca in pairs(cc[dba])do -if(bca.element:getName()==_ca)then return bca end end end end -local function _ba(cba,dba,_ca) -if(daa(cba,dba,_ca:getName())~=nil)then return end;local aca=_ca:getZIndex()cd=cd+1 -if(cc[dba]==nil)then cc[dba]={}end -table.insert(cc[dba],{element=_ca,zIndex=aca,evId=cd})ad=false;cba:listenEvent(dba)return _ca end -local function aba(cba,dba,_ca) -if(cc[dba]~=nil)then for aca,bca in pairs(cc[dba])do if(bca.element==_ca)then -table.remove(cc[dba],aca)end end;if( -bb(cc[dba])<=0)then cba:listenEvent(dba,false)end end;ad=false end -local function bba(cba,dba)return dba~=nil and cc[dba]or cc end -dc={getType=function()return ac end,getBase=function(cba)return _c end,isType=function(cba,dba) -return ac==dba or -_c.isType~=nil and _c.isType(dba)or false end,setSize=function(cba,...)_c.setSize(cba,...) -cba:customEventHandler("basalt_FrameResize")return cba end,setPosition=function(cba,...) -_c.setPosition(cba,...)cba:customEventHandler("basalt_FrameReposition") -return cba end,searchChildren=function(cba,dba)local _ca={} -for aca,bca in pairs(bc)do if -(string.find(bca.element:getName(),dba))then table.insert(_ca,bca)end end;return _ca end,getChildrenByType=function(cba,dba) -local _ca={}for aca,bca in pairs(bc)do -if(bca.element:isType(dba))then table.insert(_ca,bca)end end;return _ca end,setImportant=function(cba,dba)bd= -bd+1;cd=cd+1 -for _ca,aca in pairs(cc)do for bca,cca in pairs(aca)do -if(cca.element==dba)then cca.evId=cd -table.remove(cc[_ca],bca)table.insert(cc[_ca],cca)break end end end -for _ca,aca in ipairs(bc)do if aca.element==dba then aca.objId=bd;table.remove(bc,_ca) -table.insert(bc,aca)break end end;if(cba.updateDraw~=nil)then cba:updateDraw()end -ad=false end,sortChildren=function(cba)if -(ad)then return end;table.sort(bc,dd)for dba,_ca in pairs(cc)do -table.sort(cc[dba],__a)end;ad=true end,clearFocusedChild=function(cba)if( -_d~=nil)then -if(b_a(cba,_d)~=nil)then _d:loseFocusHandler()end end;_d=nil;return cba end,setFocusedChild=function(cba,dba) -if( -_d~=dba)then if(_d~=nil)then -if(b_a(cba,_d)~=nil)then _d:loseFocusHandler()end end;if(dba~=nil)then if(b_a(cba,dba)~=nil)then -dba:getFocusHandler()end end;_d=dba;return true end;return false end,getFocused=function(cba)return -_d end,getChild=b_a,getChildren=a_a,getDeepChildren=c_a,addChild=d_a,removeChild=_aa,removeChildren=aaa,getEvents=bba,getEvent=daa,addEvent=_ba,removeEvent=aba,removeEvents=caa,updateZIndex=baa,listenEvent=function(cba,dba,_ca)_c.listenEvent(cba,dba,_ca)if( -cc[dba]==nil)then cc[dba]={}end;return cba end,customEventHandler=function(cba,...) -_c.customEventHandler(cba,...) -for dba,_ca in pairs(bc)do if(_ca.element.customEventHandler~=nil)then -_ca.element:customEventHandler(...)end end end,loseFocusHandler=function(cba) -_c.loseFocusHandler(cba)if(_d~=nil)then _d:loseFocusHandler()_d=nil end end,getBasalt=function(cba)return -db end,setPalette=function(cba,dba,...)local _ca=cba:getParent() -_ca:setPalette(dba,...)return cba end,eventHandler=function(cba,...) -if(_c.eventHandler~=nil)then -_c.eventHandler(cba,...) -if(cc["other_event"]~=nil)then cba:sortChildren() -for dba,_ca in -ipairs(cc["other_event"])do if(_ca.element.eventHandler~=nil)then -_ca.element.eventHandler(_ca.element,...)end end end end end} -for cba,dba in -pairs({mouse_click={"mouseHandler",true},mouse_up={"mouseUpHandler",false},mouse_drag={"dragHandler",false},mouse_scroll={"scrollHandler",true},mouse_hover={"hoverHandler",false}})do -dc[dba[1]]=function(_ca,aca,bca,cca,...) -if(_c[dba[1]]~=nil)then -if(_c[dba[1]](_ca,aca,bca,cca,...))then -if -(cc[cba]~=nil)then _ca:sortChildren() -for dca,_da in ipairs(cc[cba])do -if -(_da.element[dba[1]]~=nil)then local ada,bda=0,0 -if(_ca.getOffset~=nil)then ada,bda=_ca:getOffset()end -if(_da.element.getIgnoreOffset~=nil)then if(_da.element.getIgnoreOffset())then -ada,bda=0,0 end end;if(_da.element[dba[1]](_da.element,aca,bca+ada,cca+bda,...))then return -true end end end;if(dba[2])then _ca:clearFocusedChild()end end;return true end end end end -for cba,dba in -pairs({key="keyHandler",key_up="keyUpHandler",char="charHandler"})do -dc[dba]=function(_ca,...) -if(_c[dba]~=nil)then -if(_c[dba](_ca,...))then -if(cc[cba]~=nil)then -_ca:sortChildren()for aca,bca in ipairs(cc[cba])do -if(bca.element[dba]~=nil)then if -(bca.element[dba](bca.element,...))then return true end end end end end end end end;for cba,dba in pairs(db.getObjects())do -dc["add"..cba]=function(_ca,aca)return -_ca:addChild(db:createObject(cba,aca))end end -dc.__index=dc;return setmetatable(dc,_c)end end;return aa["main"]() \ No newline at end of file +dca:addForegroundBox(1,1,_da,ada,_ba)end end,1)end}cca.__index=cca;return setmetatable(cca,cc)end end;return aa["main"]() \ No newline at end of file diff --git a/docs/versions/latest.lua b/docs/versions/latest.lua index 987e4d3..aa06b20 100644 --- a/docs/versions/latest.lua +++ b/docs/versions/latest.lua @@ -50,6 +50,45 @@ if(ad~=nil)then bc[dc]=function(...)local bd=_d(...) for cd,dd in pairs(ad)do local __a=dd(bd,cc,...) __a.__index=__a;bd=setmetatable(__a,bd)end;return bd end end end;return bc end}end;aa["plugins"]={} +aa["plugins"]["dynamicValues"]=function(...) +local ab=da("utils")local bb=ab.tableCount +return +{VisualObject=function(cb,db)local _c={}local ac={} +local bc={x="getX",y="getY",w="getWidth",h="getHeight"} +local function cc(bd) +local cd,dd=pcall(load("return "..bd,"",nil,{math=math}))if not(cd)then +error(bd.." - is not a valid dynamic value string")end;return dd end +local function dc(bd,cd,dd)local __a={}local a_a=bc +for d_a,_aa in pairs(a_a)do for aaa in dd:gmatch("%a+%."..d_a)do +local baa=aaa:gsub("%."..d_a,"") +if(baa~="self")and(baa~="parent")then table.insert(__a,baa)end end end;local b_a=bd:getParent()local c_a={} +for d_a,_aa in pairs(__a)do +c_a[_aa]=b_a:getChild(_aa)if(c_a[_aa]==nil)then +error("Dynamic Values - unable to find object: ".._aa)end end;c_a["self"]=bd;c_a["parent"]=b_a +_c[cd]=function()local d_a=dd +for _aa,aaa in pairs(a_a)do +for baa in +dd:gmatch("%w+%.".._aa)do local caa=c_a[baa:gsub("%.".._aa,"")]if(caa~=nil)then +d_a=d_a:gsub(baa,caa[aaa](caa))else +error("Dynamic Values - unable to find object: "..baa)end end end;ac[cd]=math.floor(cc(d_a)+0.5)end;_c[cd]()end +local function _d(bd) +if(bb(_c)>0)then for dd,__a in pairs(_c)do __a()end +local cd={x="getX",y="getY",w="getWidth",h="getHeight"} +for dd,__a in pairs(cd)do +if(_c[dd]~=nil)then +if(ac[dd]~=bd[__a](bd))then if(dd=="x")or(dd=="y")then +cb.setPosition(bd, +ac["x"]or bd:getX(),ac["y"]or bd:getY())end;if(dd=="w")or(dd=="h")then +cb.setSize(bd, +ac["w"]or bd:getWidth(),ac["h"]or bd:getHeight())end end end end end end +local ad={updatePositions=_d,createDynamicValue=dc,setPosition=function(bd,cd,dd,__a)ac.x=cd;ac.y=dd +if(type(cd)=="string")then dc(bd,"x",cd)else _c["x"]=nil end +if(type(dd)=="string")then dc(bd,"y",dd)else _c["y"]=nil end;cb.setPosition(bd,ac.x,ac.y,__a)return bd end,setSize=function(bd,cd,dd,__a) +ac.w=cd;ac.h=dd +if(type(cd)=="string")then dc(bd,"w",cd)else _c["w"]=nil end +if(type(dd)=="string")then dc(bd,"h",dd)else _c["h"]=nil end;cb.setSize(bd,ac.w,ac.h,__a)return bd end,customEventHandler=function(bd,cd,...) +cb.customEventHandler(bd,cd,...)if +(cd=="basalt_FrameReposition")or(cd=="basalt_FrameResize")then _d(bd)end end}return ad end}end aa["plugins"]["pixelbox"]=function(...) local ab,bb,cb=table.sort,table.concat,string.char;local function db(dc,_d)return dc[2]>_d[2]end local _c={{5,256,16,8,64,32},{4,16,16384,256,128},[4]={4,64,1024,256,128},[8]={4,512,2048,256,1},[16]={4,2,16384,256,1},[32]={4,8192,4096,256,1},[64]={4,4,1024,256,1},[128]={6,32768,256,1024,2048,4096,16384},[256]={6,1,128,2,512,4,8192},[512]={4,8,2048,256,128},[1024]={4,4,64,128,32768},[2048]={4,512,8,128,32768},[4096]={4,8192,32,128,32768},[8192]={3,32,4096,256128},[16384]={4,2,16,128,32768},[32768]={5,128,1024,2048,4096,16384}}local ac={}for i=0,15 do ac[("%x"):format(i)]=2 ^i end @@ -96,45 +135,59 @@ local dd=cc(cd,ad:getBackground()).get()ad:setImage(dd)return ad end,getShrinked local bd=ad:getImageFrame(1)local cd={}for dd,__a in pairs(bd)do if(type(dd)=="number")then table.insert(cd,__a[3])end end;return cc(cd,ad:getBackground()).get()end}end}end -aa["plugins"]["dynamicValues"]=function(...)local ab=da("utils")local bb=ab.tableCount +aa["plugins"]["themes"]=function(...) +local ab={BaseFrameBG=colors.lightGray,BaseFrameText=colors.black,FrameBG=colors.gray,FrameText=colors.black,ButtonBG=colors.gray,ButtonText=colors.black,CheckboxBG=colors.lightGray,CheckboxText=colors.black,InputBG=colors.black,InputText=colors.lightGray,TextfieldBG=colors.black,TextfieldText=colors.white,ListBG=colors.gray,ListText=colors.black,MenubarBG=colors.gray,MenubarText=colors.black,DropdownBG=colors.gray,DropdownText=colors.black,RadioBG=colors.gray,RadioText=colors.black,SelectionBG=colors.black,SelectionText=colors.lightGray,GraphicBG=colors.black,ImageBG=colors.black,PaneBG=colors.black,ProgramBG=colors.black,ProgressbarBG=colors.gray,ProgressbarText=colors.black,ProgressbarActiveBG=colors.black,ScrollbarBG=colors.lightGray,ScrollbarText=colors.gray,ScrollbarSymbolColor=colors.black,SliderBG=false,SliderText=colors.gray,SliderSymbolColor=colors.black,SwitchBG=colors.lightGray,SwitchText=colors.gray,LabelBG=false,LabelText=colors.black,GraphBG=colors.gray,GraphText=colors.black} +local bb={Container=function(cb,db,_c)local ac={} +local bc={getTheme=function(cc,dc)local _d=cc:getParent()return ac[dc]or(_d~=nil and _d:getTheme(dc)or +ab[dc])end,setTheme=function(cc,dc,_d) +if( +type(dc)=="table")then ac=dc elseif(type(dc)=="string")then ac[dc]=_d end;cc:updateDraw()return cc end}return bc end,basalt=function() return -{VisualObject=function(cb,db) -local _c={}local ac={}local bc={x="getX",y="getY",w="getWidth",h="getHeight"} -local function cc(bd) -local cd,dd=pcall(load( -"return "..bd,"",nil,{math=math}))if not(cd)then -error(bd.." - is not a valid dynamic value string")end;return dd end -local function dc(bd,cd,dd)local __a={}local a_a=bc -for d_a,_aa in pairs(a_a)do for aaa in dd:gmatch("%a+%."..d_a)do -local baa=aaa:gsub("%."..d_a,"") -if(baa~="self")and(baa~="parent")then table.insert(__a,baa)end end end;local b_a=bd:getParent()local c_a={} -for d_a,_aa in pairs(__a)do -c_a[_aa]=b_a:getChild(_aa)if(c_a[_aa]==nil)then -error("Dynamic Values - unable to find object: ".._aa)end end;c_a["self"]=bd;c_a["parent"]=b_a -_c[cd]=function()local d_a=dd -for _aa,aaa in pairs(a_a)do -for baa in -dd:gmatch("%w+%.".._aa)do local caa=c_a[baa:gsub("%.".._aa,"")]if(caa~=nil)then -d_a=d_a:gsub(baa,caa[aaa](caa))else -error("Dynamic Values - unable to find object: "..baa)end end end;ac[cd]=math.floor(cc(d_a)+0.5)end;_c[cd]()end -local function _d(bd) -if(bb(_c)>0)then for dd,__a in pairs(_c)do __a()end -local cd={x="getX",y="getY",w="getWidth",h="getHeight"} -for dd,__a in pairs(cd)do -if(_c[dd]~=nil)then -if(ac[dd]~=bd[__a](bd))then if(dd=="x")or(dd=="y")then -cb.setPosition(bd, -ac["x"]or bd:getX(),ac["y"]or bd:getY())end;if(dd=="w")or(dd=="h")then -cb.setSize(bd, -ac["w"]or bd:getWidth(),ac["h"]or bd:getHeight())end end end end end end -local ad={updatePositions=_d,createDynamicValue=dc,setPosition=function(bd,cd,dd,__a)ac.x=cd;ac.y=dd -if(type(cd)=="string")then dc(bd,"x",cd)else _c["x"]=nil end -if(type(dd)=="string")then dc(bd,"y",dd)else _c["y"]=nil end;cb.setPosition(bd,ac.x,ac.y,__a)return bd end,setSize=function(bd,cd,dd,__a) -ac.w=cd;ac.h=dd -if(type(cd)=="string")then dc(bd,"w",cd)else _c["w"]=nil end -if(type(dd)=="string")then dc(bd,"h",dd)else _c["h"]=nil end;cb.setSize(bd,ac.w,ac.h,__a)return bd end,customEventHandler=function(bd,cd,...) -cb.customEventHandler(bd,cd,...)if -(cd=="basalt_FrameReposition")or(cd=="basalt_FrameResize")then _d(bd)end end}return ad end}end +{getTheme=function(cb)return +ab[cb]end,setTheme=function(cb,db)if(type(cb)=="table")then ab=cb elseif(type(cb)=="string")then +ab[cb]=db end end}end} +for cb,db in +pairs({"BaseFrame","Frame","ScrollableFrame","MovableFrame","Button","Checkbox","Dropdown","Graph","Graphic","Input","Label","List","Menubar","Pane","Program","Progressbar","Radio","Scrollbar","Slider","Switch","Textfield"})do +bb[db]=function(_c,ac,bc) +local cc={init=function(dc)if(_c.init(dc))then local _d=dc:getParent()or dc +dc:setBackground(_d:getTheme(db.."BG")) +dc:setForeground(_d:getTheme(db.."Text"))end end}return cc end end;return bb end +aa["plugins"]["textures"]=function(...)local ab=da("images")local bb=da("utils") +local cb=da("xmlParser") +return +{VisualObject=function(db)local _c,ac=1,true;local bc,cc,dc;local _d="default" +local ad={addTexture=function(bd,cd,dd)bc=ab.loadImageAsBimg(cd) +cc=bc[1] +if(dd)then if(bc.animated)then bd:listenEvent("other_event")local __a=bc[_c].duration or +bc.secondsPerFrame or 0.2 +dc=os.startTimer(__a)end end;bd:setBackground(false)bd:setForeground(false) +bd:setDrawState("texture-base",true)bd:updateDraw()return bd end,setTextureMode=function(bd,cd)_d= +cd or _d;bd:updateDraw()return bd end,setInfinitePlay=function(bd,cd)ac=cd +return bd end,eventHandler=function(bd,cd,dd,...)db.eventHandler(bd,cd,dd,...) +if(cd=="timer")then +if +(dd==dc)then +if(bc[_c+1]~=nil)then _c=_c+1;cc=bc[_c]local __a= +bc[_c].duration or bc.secondsPerFrame or 0.2 +dc=os.startTimer(__a)bd:updateDraw()else +if(ac)then _c=1;cc=bc[1]local __a= +bc[_c].duration or bc.secondsPerFrame or 0.2 +dc=os.startTimer(__a)bd:updateDraw()end end end end end,draw=function(bd) +db.draw(bd) +bd:addDraw("texture-base",function()local cd=bd:getParent()or bd +local dd,__a=bd:getPosition()local a_a,b_a=bd:getSize()local c_a,d_a=cd:getSize()local _aa=bc.width or +#bc[_c][1][1]local aaa=bc.height or#bc[_c] +local baa,caa=0,0 +if(_d=="center")then +baa=dd+math.floor((a_a-_aa)/2 +0.5)-1 +caa=__a+math.floor((b_a-aaa)/2 +0.5)-1 elseif(_d=="default")then baa,caa=dd,__a elseif(_d=="right")then +baa,caa=dd+a_a-_aa,__a+b_a-aaa end;local daa=dd-baa;local _ba=__a-caa;if baa
dd+a_a then +_aa=(dd+a_a)-baa end +if caa+aaa>__a+b_a then aaa=(__a+b_a)-caa end +for k=1,aaa do if(cc[k+_ba]~=nil)then local aba,bba,cba=table.unpack(cc[k+_ba]) +bd:addBlit(1,k,aba:sub(daa, +daa+_aa),bba:sub(daa,daa+_aa),cba:sub(daa,daa+_aa))end end end,1)bd:setDrawState("texture-base",false)end}return ad end}end aa["plugins"]["border"]=function(...)local ab=da("xmlParser") return {VisualObject=function(bb)local cb=true @@ -199,7 +252,7 @@ local b_a=function()local c_a=load("return "..a_a,nil,"t",ad)() dd:setProperty(__a,c_a)end;bc.effect(b_a)end end for __a,a_a in ipairs(_d.children)do local b_a=bc.createObjectsFromXMLNode(a_a,ad)for c_a,d_a in ipairs(b_a)do dd:addChild(d_a)end end;return{dd}end -local dc={reactive=function(_d)local ad=_d;local bd={} +local dc={observable=function(_d)local ad=_d;local bd={} local cd=function()if(_c~=nil)then table.insert(bd,_c) table.insert(_c.dependencies,bd)end;return ad end local dd=function(__a)ad=__a;local a_a={}for b_a,c_a in ipairs(bd)do a_a[b_a]=c_a end;for b_a,c_a in ipairs(a_a)do @@ -220,6 +273,17 @@ local dc={loadLayout=function(_d,ad,bd) local cd={}if(bd==nil)then bd={}end for a_a,b_a in pairs(bd)do cd[a_a]=function()return b_a end end;local dd=cc.layout(ad) local __a=cc.createObjectsFromLayout(dd,cd)for a_a,b_a in ipairs(__a)do _d:addChild(b_a)end;return _d end}return dc end}end +aa["plugins"]["shadow"]=function(...)local ab=da("xmlParser") +return +{VisualObject=function(bb)local cb=false +local db={setShadow=function(_c,ac)cb=ac +_c:updateDraw()return _c end,getShadow=function(_c)return cb end,draw=function(_c)bb.draw(_c) +_c:addDraw("shadow",function() +if( +cb~=false)then local ac,bc=_c:getSize() +if(cb)then +_c:addBackgroundBox(ac+1,2,1,bc,cb)_c:addBackgroundBox(2,bc+1,ac,1,cb) +_c:addForegroundBox(ac+1,2,1,bc,cb)_c:addForegroundBox(2,bc+1,ac,1,cb)end end end)end}return db end}end aa["plugins"]["debug"]=function(...)local ab=da("utils")local bb=ab.wrapText return {basalt=function(cb) @@ -255,17 +319,84 @@ if(ac:getItemCount()>50)then ac:removeItem(1)end ac:setValue(ac:getItem(ac:getItemCount())) if(ac.getItemCount()>ac:getHeight())then ac:setOffset(ac:getItemCount()- ac:getHeight())end;bc:show()end}end}end -aa["plugins"]["shadow"]=function(...)local ab=da("xmlParser") +aa["plugins"]["bigfonts"]=function(...)local ab=da("tHex") +local bb={{"\32\32\32\137\156\148\158\159\148\135\135\144\159\139\32\136\157\32\159\139\32\32\143\32\32\143\32\32\32\32\32\32\32\32\147\148\150\131\148\32\32\32\151\140\148\151\140\147","\32\32\32\149\132\149\136\156\149\144\32\133\139\159\129\143\159\133\143\159\133\138\32\133\138\32\133\32\32\32\32\32\32\150\150\129\137\156\129\32\32\32\133\131\129\133\131\132","\32\32\32\130\131\32\130\131\32\32\129\32\32\32\32\130\131\32\130\131\32\32\32\32\143\143\143\32\32\32\32\32\32\130\129\32\130\135\32\32\32\32\131\32\32\131\32\131","\139\144\32\32\143\148\135\130\144\149\32\149\150\151\149\158\140\129\32\32\32\135\130\144\135\130\144\32\149\32\32\139\32\159\148\32\32\32\32\159\32\144\32\148\32\147\131\132","\159\135\129\131\143\149\143\138\144\138\32\133\130\149\149\137\155\149\159\143\144\147\130\132\32\149\32\147\130\132\131\159\129\139\151\129\148\32\32\139\131\135\133\32\144\130\151\32","\32\32\32\32\32\32\130\135\32\130\32\129\32\129\129\131\131\32\130\131\129\140\141\132\32\129\32\32\129\32\32\32\32\32\32\32\131\131\129\32\32\32\32\32\32\32\32\32","\32\32\32\32\149\32\159\154\133\133\133\144\152\141\132\133\151\129\136\153\32\32\154\32\159\134\129\130\137\144\159\32\144\32\148\32\32\32\32\32\32\32\32\32\32\32\151\129","\32\32\32\32\133\32\32\32\32\145\145\132\141\140\132\151\129\144\150\146\129\32\32\32\138\144\32\32\159\133\136\131\132\131\151\129\32\144\32\131\131\129\32\144\32\151\129\32","\32\32\32\32\129\32\32\32\32\130\130\32\32\129\32\129\32\129\130\129\129\32\32\32\32\130\129\130\129\32\32\32\32\32\32\32\32\133\32\32\32\32\32\129\32\129\32\32","\150\156\148\136\149\32\134\131\148\134\131\148\159\134\149\136\140\129\152\131\32\135\131\149\150\131\148\150\131\148\32\148\32\32\148\32\32\152\129\143\143\144\130\155\32\134\131\148","\157\129\149\32\149\32\152\131\144\144\131\148\141\140\149\144\32\149\151\131\148\32\150\32\150\131\148\130\156\133\32\144\32\32\144\32\130\155\32\143\143\144\32\152\129\32\134\32","\130\131\32\131\131\129\131\131\129\130\131\32\32\32\129\130\131\32\130\131\32\32\129\32\130\131\32\130\129\32\32\129\32\32\133\32\32\32\129\32\32\32\130\32\32\32\129\32","\150\140\150\137\140\148\136\140\132\150\131\132\151\131\148\136\147\129\136\147\129\150\156\145\138\143\149\130\151\32\32\32\149\138\152\129\149\32\32\157\152\149\157\144\149\150\131\148","\149\143\142\149\32\149\149\32\149\149\32\144\149\32\149\149\32\32\149\32\32\149\32\149\149\32\149\32\149\32\144\32\149\149\130\148\149\32\32\149\32\149\149\130\149\149\32\149","\130\131\129\129\32\129\131\131\32\130\131\32\131\131\32\131\131\129\129\32\32\130\131\32\129\32\129\130\131\32\130\131\32\129\32\129\131\131\129\129\32\129\129\32\129\130\131\32","\136\140\132\150\131\148\136\140\132\153\140\129\131\151\129\149\32\149\149\32\149\149\32\149\137\152\129\137\152\129\131\156\133\149\131\32\150\32\32\130\148\32\152\137\144\32\32\32","\149\32\32\149\159\133\149\32\149\144\32\149\32\149\32\149\32\149\150\151\129\138\155\149\150\130\148\32\149\32\152\129\32\149\32\32\32\150\32\32\149\32\32\32\32\32\32\32","\129\32\32\130\129\129\129\32\129\130\131\32\32\129\32\130\131\32\32\129\32\129\32\129\129\32\129\32\129\32\131\131\129\130\131\32\32\32\129\130\131\32\32\32\32\140\140\132","\32\154\32\159\143\32\149\143\32\159\143\32\159\144\149\159\143\32\159\137\145\159\143\144\149\143\32\32\145\32\32\32\145\149\32\144\32\149\32\143\159\32\143\143\32\159\143\32","\32\32\32\152\140\149\151\32\149\149\32\145\149\130\149\157\140\133\32\149\32\154\143\149\151\32\149\32\149\32\144\32\149\149\153\32\32\149\32\149\133\149\149\32\149\149\32\149","\32\32\32\130\131\129\131\131\32\130\131\32\130\131\129\130\131\129\32\129\32\140\140\129\129\32\129\32\129\32\137\140\129\130\32\129\32\130\32\129\32\129\129\32\129\130\131\32","\144\143\32\159\144\144\144\143\32\159\143\144\159\138\32\144\32\144\144\32\144\144\32\144\144\32\144\144\32\144\143\143\144\32\150\129\32\149\32\130\150\32\134\137\134\134\131\148","\136\143\133\154\141\149\151\32\129\137\140\144\32\149\32\149\32\149\154\159\133\149\148\149\157\153\32\154\143\149\159\134\32\130\148\32\32\149\32\32\151\129\32\32\32\32\134\32","\133\32\32\32\32\133\129\32\32\131\131\32\32\130\32\130\131\129\32\129\32\130\131\129\129\32\129\140\140\129\131\131\129\32\130\129\32\129\32\130\129\32\32\32\32\32\129\32","\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32","\32\32\32\32\32\32\32\32\32\32\32\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\32\32\32\32\32\32\32\32\32\32\32","\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32","\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32","\32\32\32\32\32\32\32\32\32\32\32\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\32\32\32\32\32\32\32\32\32\32\32","\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32","\32\32\32\32\145\32\159\139\32\151\131\132\155\143\132\134\135\145\32\149\32\158\140\129\130\130\32\152\147\155\157\134\32\32\144\144\32\32\32\32\32\32\152\131\155\131\131\129","\32\32\32\32\149\32\149\32\145\148\131\32\149\32\149\140\157\132\32\148\32\137\155\149\32\32\32\149\154\149\137\142\32\153\153\32\131\131\149\131\131\129\149\135\145\32\32\32","\32\32\32\32\129\32\130\135\32\131\131\129\134\131\132\32\129\32\32\129\32\131\131\32\32\32\32\130\131\129\32\32\32\32\129\129\32\32\32\32\32\32\130\131\129\32\32\32","\150\150\32\32\148\32\134\32\32\132\32\32\134\32\32\144\32\144\150\151\149\32\32\32\32\32\32\145\32\32\152\140\144\144\144\32\133\151\129\133\151\129\132\151\129\32\145\32","\130\129\32\131\151\129\141\32\32\142\32\32\32\32\32\149\32\149\130\149\149\32\143\32\32\32\32\142\132\32\154\143\133\157\153\132\151\150\148\151\158\132\151\150\148\144\130\148","\32\32\32\140\140\132\32\32\32\32\32\32\32\32\32\151\131\32\32\129\129\32\32\32\32\134\32\32\32\32\32\32\32\129\129\32\129\32\129\129\130\129\129\32\129\130\131\32","\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\159\142\32\150\151\129\150\131\132\140\143\144\143\141\145\137\140\148\141\141\144\157\142\32\159\140\32\151\134\32\157\141\32","\157\140\149\157\140\149\157\140\149\157\140\149\157\140\149\157\140\149\151\151\32\154\143\132\157\140\32\157\140\32\157\140\32\157\140\32\32\149\32\32\149\32\32\149\32\32\149\32","\129\32\129\129\32\129\129\32\129\129\32\129\129\32\129\129\32\129\129\131\129\32\134\32\131\131\129\131\131\129\131\131\129\131\131\129\130\131\32\130\131\32\130\131\32\130\131\32","\151\131\148\152\137\145\155\140\144\152\142\145\153\140\132\153\137\32\154\142\144\155\159\132\150\156\148\147\32\144\144\130\145\136\137\32\146\130\144\144\130\145\130\136\32\151\140\132","\151\32\149\151\155\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\152\137\144\157\129\149\149\32\149\149\32\149\149\32\149\149\32\149\130\150\32\32\157\129\149\32\149","\131\131\32\129\32\129\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\32\32\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\129\32\130\131\32\133\131\32","\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\159\142\32\159\159\144\152\140\144\156\143\32\159\141\129\153\140\132\157\141\32\130\145\32\32\147\32\136\153\32\130\146\32","\152\140\149\152\140\149\152\140\149\152\140\149\152\140\149\152\140\149\149\157\134\154\143\132\157\140\133\157\140\133\157\140\133\157\140\133\32\149\32\32\149\32\32\149\32\32\149\32","\130\131\129\130\131\129\130\131\129\130\131\129\130\131\129\130\131\129\130\130\131\32\134\32\130\131\129\130\131\129\130\131\129\130\131\129\32\129\32\32\129\32\32\129\32\32\129\32","\159\134\144\137\137\32\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\32\132\32\159\143\32\147\32\144\144\130\145\136\137\32\146\130\144\144\130\145\130\138\32\146\130\144","\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\131\147\129\138\134\149\149\32\149\149\32\149\149\32\149\149\32\149\154\143\149\32\157\129\154\143\149","\130\131\32\129\32\129\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\32\32\130\131\32\130\131\129\130\131\129\130\131\129\130\131\129\140\140\129\130\131\32\140\140\129"},{"000110000110110000110010101000000010000000100101","000000110110000000000010101000000010000000100101","000000000000000000000000000000000000000000000000","100010110100000010000110110000010100000100000110","000000110000000010110110000110000000000000110000","000000000000000000000000000000000000000000000000","000000110110000010000000100000100000000000000010","000000000110110100010000000010000000000000000100","000000000000000000000000000000000000000000000000","010000000000100110000000000000000000000110010000","000000000000000000000000000010000000010110000000","000000000000000000000000000000000000000000000000","011110110000000100100010110000000100000000000000","000000000000000000000000000000000000000000000000","000000000000000000000000000000000000000000000000","110000110110000000000000000000010100100010000000","000010000000000000110110000000000100010010000000","000000000000000000000000000000000000000000000000","010110010110100110110110010000000100000110110110","000000000000000000000110000000000110000000000000","000000000000000000000000000000000000000000000000","010100010110110000000000000000110000000010000000","110110000000000000110000110110100000000010000000","000000000000000000000000000000000000000000000000","000100011111000100011111000100011111000100011111","000000000000100100100100011011011011111111111111","000000000000000000000000000000000000000000000000","000100011111000100011111000100011111000100011111","000000000000100100100100011011011011111111111111","100100100100100100100100100100100100100100100100","000000110100110110000010000011110000000000011000","000000000100000000000010000011000110000000001000","000000000000000000000000000000000000000000000000","010000100100000000000000000100000000010010110000","000000000000000000000000000000110110110110110000","000000000000000000000000000000000000000000000000","110110110110110110000000110110110110110110110110","000000000000000000000110000000000000000000000000","000000000000000000000000000000000000000000000000","000000000000110110000110010000000000000000010010","000010000000000000000000000000000000000000000000","000000000000000000000000000000000000000000000000","110110110110110110110000110110110110000000000000","000000000000000000000110000000000000000000000000","000000000000000000000000000000000000000000000000","110110110110110110110000110000000000000000010000","000000000000000000000000100000000000000110000110","000000000000000000000000000000000000000000000000"}}local cb={}local db={} +do local cc=0;local dc=#bb[1]local _d=#bb[1][1] +for i=1,dc,3 do +for j=1,_d,3 do +local ad=string.char(cc)local bd={}bd[1]=bb[1][i]:sub(j,j+2) +bd[2]=bb[1][i+1]:sub(j,j+2)bd[3]=bb[1][i+2]:sub(j,j+2)local cd={}cd[1]=bb[2][i]:sub(j, +j+2)cd[2]=bb[2][i+1]:sub(j,j+2)cd[3]=bb[2][ +i+2]:sub(j,j+2)db[ad]={bd,cd}cc=cc+1 end end;cb[1]=db end +local function _c(cc,dc)local _d={["0"]="1",["1"]="0"}if cc<=#cb then return true end +for f=#cb+1,cc do local ad={}local bd=cb[ +f-1] +for char=0,255 do local cd=string.char(char)local dd={}local __a={} +local a_a=bd[cd][1]local b_a=bd[cd][2] +for i=1,#a_a do local c_a,d_a,_aa,aaa,baa,caa={},{},{},{},{},{} +for j=1,#a_a[1]do +local daa=db[a_a[i]:sub(j,j)][1]table.insert(c_a,daa[1]) +table.insert(d_a,daa[2])table.insert(_aa,daa[3]) +local _ba=db[a_a[i]:sub(j,j)][2] +if b_a[i]:sub(j,j)=="1"then +table.insert(aaa,(_ba[1]:gsub("[01]",_d))) +table.insert(baa,(_ba[2]:gsub("[01]",_d))) +table.insert(caa,(_ba[3]:gsub("[01]",_d)))else table.insert(aaa,_ba[1]) +table.insert(baa,_ba[2])table.insert(caa,_ba[3])end end;table.insert(dd,table.concat(c_a)) +table.insert(dd,table.concat(d_a))table.insert(dd,table.concat(_aa)) +table.insert(__a,table.concat(aaa))table.insert(__a,table.concat(baa)) +table.insert(__a,table.concat(caa))end;ad[cd]={dd,__a}if dc then dc="Font"..f.."Yeld"..char +os.queueEvent(dc)os.pullEvent(dc)end end;cb[f]=ad end;return true end +local function ac(cc,dc,_d,ad,bd) +if not type(dc)=="string"then error("Not a String",3)end +local cd=type(_d)=="string"and _d:sub(1,1)or ab[_d]or +error("Wrong Front Color",3) +local dd=type(ad)=="string"and ad:sub(1,1)or ab[ad]or +error("Wrong Back Color",3)if(cb[cc]==nil)then _c(3,false)end;local __a=cb[cc]or +error("Wrong font size selected",3)if dc==""then +return{{""},{""},{""}}end;local a_a={} +for caa in dc:gmatch('.')do table.insert(a_a,caa)end;local b_a={}local c_a=#__a[a_a[1]][1] +for nLine=1,c_a do local caa={}for i=1,#a_a do +caa[i]= +__a[a_a[i]]and __a[a_a[i]][1][nLine]or""end;b_a[nLine]=table.concat(caa)end;local d_a={}local _aa={}local aaa={["0"]=cd,["1"]=dd}local baa={["0"]=dd,["1"]=cd} +for nLine=1,c_a do +local caa={}local daa={} +for i=1,#a_a do +local _ba=__a[a_a[i]]and __a[a_a[i]][2][nLine]or"" +caa[i]=_ba:gsub("[01]", +bd and{["0"]=_d:sub(i,i),["1"]=ad:sub(i,i)}or aaa) +daa[i]=_ba:gsub("[01]", +bd and{["0"]=ad:sub(i,i),["1"]=_d:sub(i,i)}or baa)end;d_a[nLine]=table.concat(caa) +_aa[nLine]=table.concat(daa)end;return{b_a,d_a,_aa}end;local bc=da("xmlParser") return -{VisualObject=function(bb)local cb=false -local db={setShadow=function(_c,ac)cb=ac -_c:updateDraw()return _c end,getShadow=function(_c)return cb end,draw=function(_c)bb.draw(_c) -_c:addDraw("shadow",function() -if( -cb~=false)then local ac,bc=_c:getSize() -if(cb)then -_c:addBackgroundBox(ac+1,2,1,bc,cb)_c:addBackgroundBox(2,bc+1,ac,1,cb) -_c:addForegroundBox(ac+1,2,1,bc,cb)_c:addForegroundBox(2,bc+1,ac,1,cb)end end end)end}return db end}end +{Label=function(cc)local dc=1;local _d +local ad={setFontSize=function(bd,cd) +if(type(cd)=="number")then dc=cd +if(dc>1)then +bd:setDrawState("label",false) +_d=ac(dc-1,bd:getText(),bd:getForeground(),bd:getBackground()or colors.lightGray)if(bd:getAutoSize())then +bd:getBase():setSize(#_d[1][1],#_d[1]-1)end else +bd:setDrawState("label",true)end;bd:updateDraw()end;return bd end,getFontSize=function(bd)return +dc end,getSize=function(bd)local cd,dd=cc.getSize(bd) +if +(dc>1)and(bd:getAutoSize())then +return dc==2 and bd:getText():len()*3 or math.floor( +bd:getText():len()*8.5), +dc==2 and dd*2 or math.floor(dd)else return cd,dd end end,getWidth=function(bd) +local cd=cc.getWidth(bd)if(dc>1)and(bd:getAutoSize())then return dc==2 and +bd:getText():len()*3 or +math.floor(bd:getText():len()*8.5)else +return cd end end,getHeight=function(bd) +local cd=cc.getHeight(bd)if(dc>1)and(bd:getAutoSize())then return +dc==2 and cd*2 or math.floor(cd)else return cd end end,draw=function(bd) +cc.draw(bd) +bd:addDraw("bigfonts",function() +if(dc>1)then local cd,dd=bd:getPosition()local __a=bd:getParent() +local a_a,b_a=__a:getSize()local c_a,d_a=#_d[1][1],#_d[1]cd=cd or +math.floor((a_a-c_a)/2)+1;dd=dd or +math.floor((b_a-d_a)/2)+1 +for i=1,d_a do bd:addFG(1,i,_d[2][i]) +bd:addBG(1,i,_d[3][i])bd:addText(1,i,_d[1][i])end end end)end}return ad end}end aa["plugins"]["animations"]=function(...) local ab,bb,cb,db,_c,ac=math.floor,math.sin,math.cos,math.pi,math.sqrt,math.pow;local function bc(aab,bab,cab)return aab+ (bab-aab)*cab end local function cc(aab)return aab end;local function dc(aab)return 1 -aab end @@ -378,187 +509,20 @@ return cb end,getBackgroundSymbolColor=function(ac)return db end,draw=function(a ac:addDraw("advanced-bg",function() local bc,cc=ac:getSize() if(cb~=false)then ac:addTextBox(1,1,bc,cc,cb:sub(1,1))if(cb~=" ")then -ac:addForegroundBox(1,1,bc,cc,db)end end end,2)end}return _c end}end -aa["plugins"]["bigfonts"]=function(...)local ab=da("tHex") -local bb={{"\32\32\32\137\156\148\158\159\148\135\135\144\159\139\32\136\157\32\159\139\32\32\143\32\32\143\32\32\32\32\32\32\32\32\147\148\150\131\148\32\32\32\151\140\148\151\140\147","\32\32\32\149\132\149\136\156\149\144\32\133\139\159\129\143\159\133\143\159\133\138\32\133\138\32\133\32\32\32\32\32\32\150\150\129\137\156\129\32\32\32\133\131\129\133\131\132","\32\32\32\130\131\32\130\131\32\32\129\32\32\32\32\130\131\32\130\131\32\32\32\32\143\143\143\32\32\32\32\32\32\130\129\32\130\135\32\32\32\32\131\32\32\131\32\131","\139\144\32\32\143\148\135\130\144\149\32\149\150\151\149\158\140\129\32\32\32\135\130\144\135\130\144\32\149\32\32\139\32\159\148\32\32\32\32\159\32\144\32\148\32\147\131\132","\159\135\129\131\143\149\143\138\144\138\32\133\130\149\149\137\155\149\159\143\144\147\130\132\32\149\32\147\130\132\131\159\129\139\151\129\148\32\32\139\131\135\133\32\144\130\151\32","\32\32\32\32\32\32\130\135\32\130\32\129\32\129\129\131\131\32\130\131\129\140\141\132\32\129\32\32\129\32\32\32\32\32\32\32\131\131\129\32\32\32\32\32\32\32\32\32","\32\32\32\32\149\32\159\154\133\133\133\144\152\141\132\133\151\129\136\153\32\32\154\32\159\134\129\130\137\144\159\32\144\32\148\32\32\32\32\32\32\32\32\32\32\32\151\129","\32\32\32\32\133\32\32\32\32\145\145\132\141\140\132\151\129\144\150\146\129\32\32\32\138\144\32\32\159\133\136\131\132\131\151\129\32\144\32\131\131\129\32\144\32\151\129\32","\32\32\32\32\129\32\32\32\32\130\130\32\32\129\32\129\32\129\130\129\129\32\32\32\32\130\129\130\129\32\32\32\32\32\32\32\32\133\32\32\32\32\32\129\32\129\32\32","\150\156\148\136\149\32\134\131\148\134\131\148\159\134\149\136\140\129\152\131\32\135\131\149\150\131\148\150\131\148\32\148\32\32\148\32\32\152\129\143\143\144\130\155\32\134\131\148","\157\129\149\32\149\32\152\131\144\144\131\148\141\140\149\144\32\149\151\131\148\32\150\32\150\131\148\130\156\133\32\144\32\32\144\32\130\155\32\143\143\144\32\152\129\32\134\32","\130\131\32\131\131\129\131\131\129\130\131\32\32\32\129\130\131\32\130\131\32\32\129\32\130\131\32\130\129\32\32\129\32\32\133\32\32\32\129\32\32\32\130\32\32\32\129\32","\150\140\150\137\140\148\136\140\132\150\131\132\151\131\148\136\147\129\136\147\129\150\156\145\138\143\149\130\151\32\32\32\149\138\152\129\149\32\32\157\152\149\157\144\149\150\131\148","\149\143\142\149\32\149\149\32\149\149\32\144\149\32\149\149\32\32\149\32\32\149\32\149\149\32\149\32\149\32\144\32\149\149\130\148\149\32\32\149\32\149\149\130\149\149\32\149","\130\131\129\129\32\129\131\131\32\130\131\32\131\131\32\131\131\129\129\32\32\130\131\32\129\32\129\130\131\32\130\131\32\129\32\129\131\131\129\129\32\129\129\32\129\130\131\32","\136\140\132\150\131\148\136\140\132\153\140\129\131\151\129\149\32\149\149\32\149\149\32\149\137\152\129\137\152\129\131\156\133\149\131\32\150\32\32\130\148\32\152\137\144\32\32\32","\149\32\32\149\159\133\149\32\149\144\32\149\32\149\32\149\32\149\150\151\129\138\155\149\150\130\148\32\149\32\152\129\32\149\32\32\32\150\32\32\149\32\32\32\32\32\32\32","\129\32\32\130\129\129\129\32\129\130\131\32\32\129\32\130\131\32\32\129\32\129\32\129\129\32\129\32\129\32\131\131\129\130\131\32\32\32\129\130\131\32\32\32\32\140\140\132","\32\154\32\159\143\32\149\143\32\159\143\32\159\144\149\159\143\32\159\137\145\159\143\144\149\143\32\32\145\32\32\32\145\149\32\144\32\149\32\143\159\32\143\143\32\159\143\32","\32\32\32\152\140\149\151\32\149\149\32\145\149\130\149\157\140\133\32\149\32\154\143\149\151\32\149\32\149\32\144\32\149\149\153\32\32\149\32\149\133\149\149\32\149\149\32\149","\32\32\32\130\131\129\131\131\32\130\131\32\130\131\129\130\131\129\32\129\32\140\140\129\129\32\129\32\129\32\137\140\129\130\32\129\32\130\32\129\32\129\129\32\129\130\131\32","\144\143\32\159\144\144\144\143\32\159\143\144\159\138\32\144\32\144\144\32\144\144\32\144\144\32\144\144\32\144\143\143\144\32\150\129\32\149\32\130\150\32\134\137\134\134\131\148","\136\143\133\154\141\149\151\32\129\137\140\144\32\149\32\149\32\149\154\159\133\149\148\149\157\153\32\154\143\149\159\134\32\130\148\32\32\149\32\32\151\129\32\32\32\32\134\32","\133\32\32\32\32\133\129\32\32\131\131\32\32\130\32\130\131\129\32\129\32\130\131\129\129\32\129\140\140\129\131\131\129\32\130\129\32\129\32\130\129\32\32\32\32\32\129\32","\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32","\32\32\32\32\32\32\32\32\32\32\32\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\32\32\32\32\32\32\32\32\32\32\32","\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32","\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32","\32\32\32\32\32\32\32\32\32\32\32\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\32\32\32\32\32\32\32\32\32\32\32","\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32","\32\32\32\32\145\32\159\139\32\151\131\132\155\143\132\134\135\145\32\149\32\158\140\129\130\130\32\152\147\155\157\134\32\32\144\144\32\32\32\32\32\32\152\131\155\131\131\129","\32\32\32\32\149\32\149\32\145\148\131\32\149\32\149\140\157\132\32\148\32\137\155\149\32\32\32\149\154\149\137\142\32\153\153\32\131\131\149\131\131\129\149\135\145\32\32\32","\32\32\32\32\129\32\130\135\32\131\131\129\134\131\132\32\129\32\32\129\32\131\131\32\32\32\32\130\131\129\32\32\32\32\129\129\32\32\32\32\32\32\130\131\129\32\32\32","\150\150\32\32\148\32\134\32\32\132\32\32\134\32\32\144\32\144\150\151\149\32\32\32\32\32\32\145\32\32\152\140\144\144\144\32\133\151\129\133\151\129\132\151\129\32\145\32","\130\129\32\131\151\129\141\32\32\142\32\32\32\32\32\149\32\149\130\149\149\32\143\32\32\32\32\142\132\32\154\143\133\157\153\132\151\150\148\151\158\132\151\150\148\144\130\148","\32\32\32\140\140\132\32\32\32\32\32\32\32\32\32\151\131\32\32\129\129\32\32\32\32\134\32\32\32\32\32\32\32\129\129\32\129\32\129\129\130\129\129\32\129\130\131\32","\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\159\142\32\150\151\129\150\131\132\140\143\144\143\141\145\137\140\148\141\141\144\157\142\32\159\140\32\151\134\32\157\141\32","\157\140\149\157\140\149\157\140\149\157\140\149\157\140\149\157\140\149\151\151\32\154\143\132\157\140\32\157\140\32\157\140\32\157\140\32\32\149\32\32\149\32\32\149\32\32\149\32","\129\32\129\129\32\129\129\32\129\129\32\129\129\32\129\129\32\129\129\131\129\32\134\32\131\131\129\131\131\129\131\131\129\131\131\129\130\131\32\130\131\32\130\131\32\130\131\32","\151\131\148\152\137\145\155\140\144\152\142\145\153\140\132\153\137\32\154\142\144\155\159\132\150\156\148\147\32\144\144\130\145\136\137\32\146\130\144\144\130\145\130\136\32\151\140\132","\151\32\149\151\155\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\152\137\144\157\129\149\149\32\149\149\32\149\149\32\149\149\32\149\130\150\32\32\157\129\149\32\149","\131\131\32\129\32\129\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\32\32\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\129\32\130\131\32\133\131\32","\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\159\142\32\159\159\144\152\140\144\156\143\32\159\141\129\153\140\132\157\141\32\130\145\32\32\147\32\136\153\32\130\146\32","\152\140\149\152\140\149\152\140\149\152\140\149\152\140\149\152\140\149\149\157\134\154\143\132\157\140\133\157\140\133\157\140\133\157\140\133\32\149\32\32\149\32\32\149\32\32\149\32","\130\131\129\130\131\129\130\131\129\130\131\129\130\131\129\130\131\129\130\130\131\32\134\32\130\131\129\130\131\129\130\131\129\130\131\129\32\129\32\32\129\32\32\129\32\32\129\32","\159\134\144\137\137\32\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\32\132\32\159\143\32\147\32\144\144\130\145\136\137\32\146\130\144\144\130\145\130\138\32\146\130\144","\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\131\147\129\138\134\149\149\32\149\149\32\149\149\32\149\149\32\149\154\143\149\32\157\129\154\143\149","\130\131\32\129\32\129\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\32\32\130\131\32\130\131\129\130\131\129\130\131\129\130\131\129\140\140\129\130\131\32\140\140\129"},{"000110000110110000110010101000000010000000100101","000000110110000000000010101000000010000000100101","000000000000000000000000000000000000000000000000","100010110100000010000110110000010100000100000110","000000110000000010110110000110000000000000110000","000000000000000000000000000000000000000000000000","000000110110000010000000100000100000000000000010","000000000110110100010000000010000000000000000100","000000000000000000000000000000000000000000000000","010000000000100110000000000000000000000110010000","000000000000000000000000000010000000010110000000","000000000000000000000000000000000000000000000000","011110110000000100100010110000000100000000000000","000000000000000000000000000000000000000000000000","000000000000000000000000000000000000000000000000","110000110110000000000000000000010100100010000000","000010000000000000110110000000000100010010000000","000000000000000000000000000000000000000000000000","010110010110100110110110010000000100000110110110","000000000000000000000110000000000110000000000000","000000000000000000000000000000000000000000000000","010100010110110000000000000000110000000010000000","110110000000000000110000110110100000000010000000","000000000000000000000000000000000000000000000000","000100011111000100011111000100011111000100011111","000000000000100100100100011011011011111111111111","000000000000000000000000000000000000000000000000","000100011111000100011111000100011111000100011111","000000000000100100100100011011011011111111111111","100100100100100100100100100100100100100100100100","000000110100110110000010000011110000000000011000","000000000100000000000010000011000110000000001000","000000000000000000000000000000000000000000000000","010000100100000000000000000100000000010010110000","000000000000000000000000000000110110110110110000","000000000000000000000000000000000000000000000000","110110110110110110000000110110110110110110110110","000000000000000000000110000000000000000000000000","000000000000000000000000000000000000000000000000","000000000000110110000110010000000000000000010010","000010000000000000000000000000000000000000000000","000000000000000000000000000000000000000000000000","110110110110110110110000110110110110000000000000","000000000000000000000110000000000000000000000000","000000000000000000000000000000000000000000000000","110110110110110110110000110000000000000000010000","000000000000000000000000100000000000000110000110","000000000000000000000000000000000000000000000000"}}local cb={}local db={} -do local cc=0;local dc=#bb[1]local _d=#bb[1][1] -for i=1,dc,3 do -for j=1,_d,3 do -local ad=string.char(cc)local bd={}bd[1]=bb[1][i]:sub(j,j+2) -bd[2]=bb[1][i+1]:sub(j,j+2)bd[3]=bb[1][i+2]:sub(j,j+2)local cd={}cd[1]=bb[2][i]:sub(j, -j+2)cd[2]=bb[2][i+1]:sub(j,j+2)cd[3]=bb[2][ -i+2]:sub(j,j+2)db[ad]={bd,cd}cc=cc+1 end end;cb[1]=db end -local function _c(cc,dc)local _d={["0"]="1",["1"]="0"}if cc<=#cb then return true end -for f=#cb+1,cc do local ad={}local bd=cb[ -f-1] -for char=0,255 do local cd=string.char(char)local dd={}local __a={} -local a_a=bd[cd][1]local b_a=bd[cd][2] -for i=1,#a_a do local c_a,d_a,_aa,aaa,baa,caa={},{},{},{},{},{} -for j=1,#a_a[1]do -local daa=db[a_a[i]:sub(j,j)][1]table.insert(c_a,daa[1]) -table.insert(d_a,daa[2])table.insert(_aa,daa[3]) -local _ba=db[a_a[i]:sub(j,j)][2] -if b_a[i]:sub(j,j)=="1"then -table.insert(aaa,(_ba[1]:gsub("[01]",_d))) -table.insert(baa,(_ba[2]:gsub("[01]",_d))) -table.insert(caa,(_ba[3]:gsub("[01]",_d)))else table.insert(aaa,_ba[1]) -table.insert(baa,_ba[2])table.insert(caa,_ba[3])end end;table.insert(dd,table.concat(c_a)) -table.insert(dd,table.concat(d_a))table.insert(dd,table.concat(_aa)) -table.insert(__a,table.concat(aaa))table.insert(__a,table.concat(baa)) -table.insert(__a,table.concat(caa))end;ad[cd]={dd,__a}if dc then dc="Font"..f.."Yeld"..char -os.queueEvent(dc)os.pullEvent(dc)end end;cb[f]=ad end;return true end -local function ac(cc,dc,_d,ad,bd) -if not type(dc)=="string"then error("Not a String",3)end -local cd=type(_d)=="string"and _d:sub(1,1)or ab[_d]or -error("Wrong Front Color",3) -local dd=type(ad)=="string"and ad:sub(1,1)or ab[ad]or -error("Wrong Back Color",3)if(cb[cc]==nil)then _c(3,false)end;local __a=cb[cc]or -error("Wrong font size selected",3)if dc==""then -return{{""},{""},{""}}end;local a_a={} -for caa in dc:gmatch('.')do table.insert(a_a,caa)end;local b_a={}local c_a=#__a[a_a[1]][1] -for nLine=1,c_a do local caa={}for i=1,#a_a do -caa[i]= -__a[a_a[i]]and __a[a_a[i]][1][nLine]or""end;b_a[nLine]=table.concat(caa)end;local d_a={}local _aa={}local aaa={["0"]=cd,["1"]=dd}local baa={["0"]=dd,["1"]=cd} -for nLine=1,c_a do -local caa={}local daa={} -for i=1,#a_a do -local _ba=__a[a_a[i]]and __a[a_a[i]][2][nLine]or"" -caa[i]=_ba:gsub("[01]", -bd and{["0"]=_d:sub(i,i),["1"]=ad:sub(i,i)}or aaa) -daa[i]=_ba:gsub("[01]", -bd and{["0"]=ad:sub(i,i),["1"]=_d:sub(i,i)}or baa)end;d_a[nLine]=table.concat(caa) -_aa[nLine]=table.concat(daa)end;return{b_a,d_a,_aa}end;local bc=da("xmlParser") +ac:addForegroundBox(1,1,bc,cc,db)end end end,2)end}return _c end}end;aa["libraries"]={} +aa["libraries"]["basaltDraw"]=function(...) +local ab=da("tHex")local bb=da("utils")local cb=bb.splitString;local db,_c=string.sub,string.rep return -{Label=function(cc)local dc=1;local _d -local ad={setFontSize=function(bd,cd) -if(type(cd)=="number")then dc=cd -if(dc>1)then -bd:setDrawState("label",false) -_d=ac(dc-1,bd:getText(),bd:getForeground(),bd:getBackground()or colors.lightGray)if(bd:getAutoSize())then -bd:getBase():setSize(#_d[1][1],#_d[1]-1)end else -bd:setDrawState("label",true)end;bd:updateDraw()end;return bd end,getFontSize=function(bd)return -dc end,getSize=function(bd)local cd,dd=cc.getSize(bd) -if -(dc>1)and(bd:getAutoSize())then -return dc==2 and bd:getText():len()*3 or math.floor( -bd:getText():len()*8.5), -dc==2 and dd*2 or math.floor(dd)else return cd,dd end end,getWidth=function(bd) -local cd=cc.getWidth(bd)if(dc>1)and(bd:getAutoSize())then return dc==2 and -bd:getText():len()*3 or -math.floor(bd:getText():len()*8.5)else -return cd end end,getHeight=function(bd) -local cd=cc.getHeight(bd)if(dc>1)and(bd:getAutoSize())then return -dc==2 and cd*2 or math.floor(cd)else return cd end end,draw=function(bd) -cc.draw(bd) -bd:addDraw("bigfonts",function() -if(dc>1)then local cd,dd=bd:getPosition()local __a=bd:getParent() -local a_a,b_a=__a:getSize()local c_a,d_a=#_d[1][1],#_d[1]cd=cd or -math.floor((a_a-c_a)/2)+1;dd=dd or -math.floor((b_a-d_a)/2)+1 -for i=1,d_a do bd:addFG(1,i,_d[2][i]) -bd:addBG(1,i,_d[3][i])bd:addText(1,i,_d[1][i])end end end)end}return ad end}end -aa["plugins"]["themes"]=function(...) -local ab={BaseFrameBG=colors.lightGray,BaseFrameText=colors.black,FrameBG=colors.gray,FrameText=colors.black,ButtonBG=colors.gray,ButtonText=colors.black,CheckboxBG=colors.lightGray,CheckboxText=colors.black,InputBG=colors.black,InputText=colors.lightGray,TextfieldBG=colors.black,TextfieldText=colors.white,ListBG=colors.gray,ListText=colors.black,MenubarBG=colors.gray,MenubarText=colors.black,DropdownBG=colors.gray,DropdownText=colors.black,RadioBG=colors.gray,RadioText=colors.black,SelectionBG=colors.black,SelectionText=colors.lightGray,GraphicBG=colors.black,ImageBG=colors.black,PaneBG=colors.black,ProgramBG=colors.black,ProgressbarBG=colors.gray,ProgressbarText=colors.black,ProgressbarActiveBG=colors.black,ScrollbarBG=colors.lightGray,ScrollbarText=colors.gray,ScrollbarSymbolColor=colors.black,SliderBG=false,SliderText=colors.gray,SliderSymbolColor=colors.black,SwitchBG=colors.lightGray,SwitchText=colors.gray,LabelBG=false,LabelText=colors.black,GraphBG=colors.gray,GraphText=colors.black} -local bb={Container=function(cb,db,_c)local ac={} -local bc={getTheme=function(cc,dc)local _d=cc:getParent()return ac[dc]or(_d~=nil and _d:getTheme(dc)or -ab[dc])end,setTheme=function(cc,dc,_d) -if( -type(dc)=="table")then ac=dc elseif(type(dc)=="string")then ac[dc]=_d end;cc:updateDraw()return cc end}return bc end,basalt=function() -return -{getTheme=function(cb)return -ab[cb]end,setTheme=function(cb,db)if(type(cb)=="table")then ab=cb elseif(type(cb)=="string")then -ab[cb]=db end end}end} -for cb,db in -pairs({"BaseFrame","Frame","ScrollableFrame","MovableFrame","Button","Checkbox","Dropdown","Graph","Graphic","Input","Label","List","Menubar","Pane","Program","Progressbar","Radio","Scrollbar","Slider","Switch","Textfield"})do -bb[db]=function(_c,ac,bc) -local cc={init=function(dc)if(_c.init(dc))then local _d=dc:getParent()or dc -dc:setBackground(_d:getTheme(db.."BG")) -dc:setForeground(_d:getTheme(db.."Text"))end end}return cc end end;return bb end -aa["plugins"]["textures"]=function(...)local ab=da("images")local bb=da("utils") -local cb=da("xmlParser") -return -{VisualObject=function(db)local _c,ac=1,true;local bc,cc,dc;local _d="default" -local ad={addTexture=function(bd,cd,dd)bc=ab.loadImageAsBimg(cd) -cc=bc[1] -if(dd)then if(bc.animated)then bd:listenEvent("other_event")local __a=bc[_c].duration or -bc.secondsPerFrame or 0.2 -dc=os.startTimer(__a)end end;bd:setBackground(false)bd:setForeground(false) -bd:setDrawState("texture-base",true)bd:updateDraw()return bd end,setTextureMode=function(bd,cd)_d= -cd or _d;bd:updateDraw()return bd end,setInfinitePlay=function(bd,cd)ac=cd -return bd end,eventHandler=function(bd,cd,dd,...)db.eventHandler(bd,cd,dd,...) -if(cd=="timer")then -if -(dd==dc)then -if(bc[_c+1]~=nil)then _c=_c+1;cc=bc[_c]local __a= -bc[_c].duration or bc.secondsPerFrame or 0.2 -dc=os.startTimer(__a)bd:updateDraw()else -if(ac)then _c=1;cc=bc[1]local __a= -bc[_c].duration or bc.secondsPerFrame or 0.2 -dc=os.startTimer(__a)bd:updateDraw()end end end end end,draw=function(bd) -db.draw(bd) -bd:addDraw("texture-base",function()local cd=bd:getParent()or bd -local dd,__a=bd:getPosition()local a_a,b_a=bd:getSize()local c_a,d_a=cd:getSize()local _aa=bc.width or -#bc[_c][1][1]local aaa=bc.height or#bc[_c] -local baa,caa=0,0 -if(_d=="center")then -baa=dd+math.floor((a_a-_aa)/2 +0.5)-1 -caa=__a+math.floor((b_a-aaa)/2 +0.5)-1 elseif(_d=="default")then baa,caa=dd,__a elseif(_d=="right")then -baa,caa=dd+a_a-_aa,__a+b_a-aaa end;local daa=dd-baa;local _ba=__a-caa;if baa
dd+a_a then -_aa=(dd+a_a)-baa end -if caa+aaa>__a+b_a then aaa=(__a+b_a)-caa end -for k=1,aaa do if(cc[k+_ba]~=nil)then local aba,bba,cba=table.unpack(cc[k+_ba]) -bd:addBlit(1,k,aba:sub(daa, -daa+_aa),bba:sub(daa,daa+_aa),cba:sub(daa,daa+_aa))end end end,1)bd:setDrawState("texture-base",false)end}return ad end}end;aa["libraries"]={} -aa["libraries"]["process"]=function(...)local ab={}local bb={}local cb=0 -local db=dofile("rom/modules/main/cc/require.lua").make -function bb:new(_c,ac,bc,...)local cc={...} -local dc=setmetatable({path=_c},{__index=self})dc.window=ac;ac.current=term.current;ac.redirect=term.redirect -dc.processId=cb -if(type(_c)=="string")then -dc.coroutine=coroutine.create(function() -local _d=shell.resolveProgram(_c)local ad=setmetatable(bc,{__index=_ENV})ad.shell=shell -ad.basaltProgram=true;ad.arg={[0]=_c,table.unpack(cc)} -if(_d==nil)then error("The path ".._c.. -" does not exist!")end;ad.require,ad.package=db(ad,fs.getDir(_d)) -if(fs.exists(_d))then -local bd=fs.open(_d,"r")local cd=bd.readAll()bd.close()local dd=load(cd,_c,"bt",ad)if(dd~=nil)then return -dd()end end end)elseif(type(_c)=="function")then -dc.coroutine=coroutine.create(function() -_c(table.unpack(cc))end)else return end;ab[cb]=dc;cb=cb+1;return dc end -function bb:resume(_c,...)local ac=term.current()term.redirect(self.window) -if( -self.filter~=nil)then if(_c~=self.filter)then return end;self.filter=nil end;local bc,cc=coroutine.resume(self.coroutine,_c,...)if bc then -self.filter=cc else printError(cc)end;term.redirect(ac) -return bc,cc end -function bb:isDead() -if(self.coroutine~=nil)then -if -(coroutine.status(self.coroutine)=="dead")then table.remove(ab,self.processId)return true end else return true end;return false end -function bb:getStatus()if(self.coroutine~=nil)then -return coroutine.status(self.coroutine)end;return nil end -function bb:start()coroutine.resume(self.coroutine)end;return bb end -aa["libraries"]["basaltLogs"]=function(...)local ab=""local bb="basaltLog.txt"local cb="Debug" -fs.delete( -ab~=""and ab.."/"..bb or bb) -local db={__call=function(_c,ac,bc)if(ac==nil)then return end -local cc=ab~=""and ab.."/"..bb or bb -local dc=fs.open(cc,fs.exists(cc)and"a"or"w") -dc.writeLine("[Basalt][".. -os.date("%Y-%m-%d %H:%M:%S").."][".. (bc and bc or cb).. -"]: "..tostring(ac))dc.close()end}return setmetatable({},db)end -aa["libraries"]["basaltDraw"]=function(...)local ab=da("tHex")local bb=da("utils") -local cb=bb.splitString;local db,_c=string.sub,string.rep -return -function(ac)local bc=ac or term.current() -local cc;local dc,_d=bc.getSize()local ad={}local bd={}local cd={}local dd;local __a={} -local function a_a()dd=_c(" ",dc)for n=0,15 do -local caa=2 ^n;local daa=ab[caa]__a[caa]=_c(daa,dc)end end;a_a() -local function b_a()a_a()local caa=dd;local daa=__a[colors.white] -local _ba=__a[colors.black] +function(ac)local bc=ac or +term.current()local cc;local dc,_d=bc.getSize()local ad={}local bd={}local cd={} +local dd;local __a={}local function a_a()dd=_c(" ",dc) +for n=0,15 do local caa=2 ^n;local daa=ab[caa]__a[caa]=_c(daa,dc)end end;a_a() +local function b_a()a_a()local caa=dd +local daa=__a[colors.white]local _ba=__a[colors.black] for currentY=1,_d do -ad[currentY]=db(ad[currentY]==nil and caa or ad[currentY]..caa:sub(1,dc- -ad[currentY]:len()),1,dc) +ad[currentY]=db( +ad[currentY]==nil and caa or +ad[currentY]..caa:sub(1,dc-ad[currentY]:len()),1,dc) cd[currentY]=db(cd[currentY]==nil and daa or cd[currentY]..daa:sub(1,dc- cd[currentY]:len()),1,dc) bd[currentY]=db(bd[currentY]==nil and _ba or bd[currentY].._ba:sub(1,dc- @@ -612,186 +576,6 @@ bc.setCursorBlink(_ba)bc.setCursorPos(caa,daa) if(cc~=nil)then cc.setBackgroundColor(colors.black)cc.setCursorBlink(_ba)cc.setCursorPos(caa,daa)end end,setTerm=function(caa) bc=caa end}return baa end end -aa["libraries"]["tHex"]=function(...)local ab={} -for i=0,15 do ab[2 ^i]=("%x"):format(i)end;return ab end -aa["libraries"]["images"]=function(...)local ab,bb=string.sub,math.floor;local function cb(ad)return -{[1]={{},{},paintutils.loadImage(ad)}},"bimg"end;local function db(ad)return -paintutils.loadImage(ad),"nfp"end -local function _c(ad,bd) -local cd=fs.open(ad,bd and"rb"or"r")if(cd==nil)then -error("Path - "..ad.." doesn't exist!")end -local dd=textutils.unserialize(cd.readAll())cd.close()if(dd~=nil)then return dd,"bimg"end end;local function ac(ad)end;local function bc(ad)end;local function cc(ad,bd,cd) -if(ab(ad,-4)==".bimg")then return _c(ad,cd)elseif -(ab(ad,-3)==".bbf")then return ac(ad,cd)else return db(ad,cd)end end;local function dc(ad) -if -(ad:find(".bimg"))then return _c(ad)elseif(ad:find(".bbf"))then return bc(ad)else return cb(ad)end end -local function _d(ad,bd,cd)local dd,__a=ad.width or# -ad[1][1][1],ad.height or#ad[1]local a_a={} -for b_a,c_a in -pairs(ad)do -if(type(b_a)=="number")then local d_a={} -for y=1,cd do local _aa,aaa,baa="","","" -local caa=bb(y/cd*__a+0.5) -if(c_a[caa]~=nil)then -for x=1,bd do local daa=bb(x/bd*dd+0.5)_aa=_aa.. -ab(c_a[caa][1],daa,daa) -aaa=aaa..ab(c_a[caa][2],daa,daa)baa=baa..ab(c_a[caa][3],daa,daa)end;table.insert(d_a,{_aa,aaa,baa})end end;table.insert(a_a,b_a,d_a)else a_a[b_a]=c_a end end;a_a.width=bd;a_a.height=cd;return a_a end -return{loadNFP=db,loadBIMG=_c,loadImage=cc,resizeBIMG=_d,loadImageAsBimg=dc}end -aa["libraries"]["basaltEvent"]=function(...) -return -function()local ab={} -local bb={registerEvent=function(cb,db,_c) -if(ab[db]==nil)then ab[db]={}end;table.insert(ab[db],_c)end,removeEvent=function(cb,db,_c)ab[db][_c[db]]= -nil end,hasEvent=function(cb,db)return ab[db]~=nil end,getEventCount=function(cb,db)return -ab[db]~=nil and#ab[db]or 0 end,getEvents=function(cb) -local db={}for _c,ac in pairs(ab)do table.insert(db,_c)end;return db end,clearEvent=function(cb,db)ab[db]= -nil end,clear=function(cb,db)ab={}end,sendEvent=function(cb,db,...)local _c -if(ab[db]~=nil)then for ac,bc in pairs(ab[db])do -local cc=bc(...)if(cc==false)then _c=cc end end end;return _c end}bb.__index=bb;return bb end end -aa["libraries"]["utils"]=function(...)local ab=da("tHex") -local bb,cb,db,_c,ac,bc=string.sub,string.find,string.reverse,string.rep,table.insert,string.len -local function cc(cd,dd)local __a={}if cd==""or dd==""then return __a end;local a_a=1 -local b_a,c_a=cb(cd,dd,a_a)while b_a do ac(__a,bb(cd,a_a,b_a-1))a_a=c_a+1 -b_a,c_a=cb(cd,dd,a_a)end;ac(__a,bb(cd,a_a))return __a end;local function dc(cd)return cd:gsub("{[^}]+}","")end -local function _d(cd,dd)cd=dc(cd)if -(cd=="")or(dd==0)then return{""}end;local __a=cc(cd,"\n")local a_a={} -for b_a,c_a in -pairs(__a)do -if#c_a==0 then table.insert(a_a,"")else -while#c_a>dd do local d_a=dd;for i=dd,1,-1 do if bb(c_a,i,i)==" "then -d_a=i;break end end -if d_a==dd then -local _aa=bb(c_a,1,d_a-1).."-"table.insert(a_a,_aa)c_a=bb(c_a,d_a)else -local _aa=bb(c_a,1,d_a-1)table.insert(a_a,_aa)c_a=bb(c_a,d_a+1)end;if#c_a<=dd then break end end;if#c_a>0 then table.insert(a_a,c_a)end end end;return a_a end -local function ad(cd)local dd={}local __a=1;local a_a=1 -while __a<=#cd do local b_a,c_a;local d_a,_aa;local aaa,baa -for _ba,aba in pairs(colors)do -local bba="{fg:".._ba.."}"local cba="{bg:".._ba.."}"local dba,_ca=cd:find(bba,__a) -local aca,bca=cd:find(cba,__a) -if dba and(not b_a or dba0 then -table.insert(dd,{color=nil,bgColor=nil,text=daa,position=a_a})a_a=a_a+#daa;__a=__a+#daa end -if b_a and(not c_a or b_a1 then if b_a+1 +bba<=dd then aaa({text=" "})b_a=b_a+1 else b_a=1;c_a=c_a+ -1 end end;while bba>0 do local cba=aba:sub(1,dd-b_a+1) -aba=aba:sub(dd-b_a+2)bba=#aba;aaa({text=cba}) -if bba>0 then b_a=1;c_a=c_a+1 else b_a=b_a+#cba end end end end;if b_a>dd then b_a=1;c_a=c_a+1 end end;return a_a end -return -{getTextHorizontalAlign=function(cd,dd,__a,a_a)cd=bb(cd,1,dd)local b_a=dd-bc(cd) -if(__a=="right")then -cd=_c(a_a or" ",b_a)..cd elseif(__a=="center")then -cd=_c(a_a or" ",math.floor(b_a/2))..cd.._c(a_a or" ",math.floor( -b_a/2)) -cd=cd.. (bc(cd)
c_a)then break end -if(aaa.text~=nil)then cd:addText(dd+aaa.x-1,__a+ -aaa.y-1,aaa.text)end;if(aaa.color~=nil)then -cd:addFG(dd+aaa.x-1,__a+aaa.y-1,ab[colors[aaa.color]]:rep( -#aaa.text))end;if(aaa.bgColor~=nil)then -cd:addBG(dd+ -aaa.x-1,__a+aaa.y-1,ab[colors[aaa.bgColor]]:rep(# -aaa.text))end end end,uuid=function() -return -string.gsub(string.format('%x-%x-%x-%x-%x',math.random(0,0xffff),math.random(0,0xffff),math.random(0,0xffff), -math.random(0,0x0fff)+0x4000,math.random(0,0x3fff)+0x8000),' ','0')end}end -aa["libraries"]["basaltMon"]=function(...) -local ab={[colors.white]="0",[colors.orange]="1",[colors.magenta]="2",[colors.lightBlue]="3",[colors.yellow]="4",[colors.lime]="5",[colors.pink]="6",[colors.gray]="7",[colors.lightGray]="8",[colors.cyan]="9",[colors.purple]="a",[colors.blue]="b",[colors.brown]="c",[colors.green]="d",[colors.red]="e",[colors.black]="f"}local bb,cb,db,_c=type,string.len,string.rep,string.sub -return -function(ac)local bc={} -for _ba,aba in pairs(ac)do -bc[_ba]={} -for bba,cba in pairs(aba)do local dba=peripheral.wrap(cba)if(dba==nil)then -error("Unable to find monitor "..cba)end;bc[_ba][bba]=dba -bc[_ba][bba].name=cba end end;local cc,dc,_d,ad,bd,cd,dd,__a=1,1,1,1,0,0,0,0;local a_a,b_a=false,1 -local c_a,d_a=colors.white,colors.black -local function _aa()local _ba,aba=0,0 -for bba,cba in pairs(bc)do local dba,_ca=0,0 -for aca,bca in pairs(cba)do local cca,dca=bca.getSize() -dba=dba+cca;_ca=dca>_ca and dca or _ca end;_ba=_ba>dba and _ba or dba;aba=aba+_ca end;dd,__a=_ba,aba end;_aa() -local function aaa()local _ba=0;local aba,bba=0,0 -for cba,dba in pairs(bc)do local _ca=0;local aca=0 -for bca,cca in pairs(dba)do -local dca,_da=cca.getSize()if(cc-_ca>=1)and(cc-_ca<=dca)then aba=bca end;cca.setCursorPos( -cc-_ca,dc-_ba)_ca=_ca+dca -if(aca<_da)then aca=_da end end;if(dc-_ba>=1)and(dc-_ba<=aca)then bba=cba end -_ba=_ba+aca end;_d,ad=aba,bba end;aaa() -local function baa(_ba,...)local aba={...}return -function()for bba,cba in pairs(bc)do for dba,_ca in pairs(cba)do -_ca[_ba](table.unpack(aba))end end end end -local function caa()baa("setCursorBlink",false)() -if not(a_a)then return end;if(bc[ad]==nil)then return end;local _ba=bc[ad][_d] -if(_ba==nil)then return end;_ba.setCursorBlink(a_a)end -local function daa(_ba,aba,bba)if(bc[ad]==nil)then return end;local cba=bc[ad][_d] -if(cba==nil)then return end;cba.blit(_ba,aba,bba)local dba,_ca=cba.getSize() -if -(cb(_ba)+cc>dba)then local aca=bc[ad][_d+1]if(aca~=nil)then aca.blit(_ba,aba,bba)_d=_d+1;cc=cc+ -cb(_ba)end end;aaa()end -return -{clear=baa("clear"),setCursorBlink=function(_ba)a_a=_ba;caa()end,getCursorBlink=function()return a_a end,getCursorPos=function()return cc,dc end,setCursorPos=function(_ba,aba) -cc,dc=_ba,aba;aaa()caa()end,setTextScale=function(_ba) -baa("setTextScale",_ba)()_aa()aaa()b_a=_ba end,getTextScale=function()return b_a end,blit=function(_ba,aba,bba) -daa(_ba,aba,bba)end,write=function(_ba)_ba=tostring(_ba)local aba=cb(_ba) -daa(_ba,db(ab[c_a],aba),db(ab[d_a],aba))end,getSize=function()return dd,__a end,setBackgroundColor=function(_ba) -baa("setBackgroundColor",_ba)()d_a=_ba end,setTextColor=function(_ba) -baa("setTextColor",_ba)()c_a=_ba end,calculateClick=function(_ba,aba,bba)local cba=0 -for dba,_ca in pairs(bc)do local aca=0;local bca=0 -for cca,dca in pairs(_ca)do -local _da,ada=dca.getSize()if(dca.name==_ba)then return aba+aca,bba+cba end -aca=aca+_da;if(ada>bca)then bca=ada end end;cba=cba+bca end;return aba,bba end}end end -aa["libraries"]["xmlParser"]=function(...) -local ab={new=function(db) -return -{tag=db,value=nil,attributes={},children={},addChild=function(_c,ac) -table.insert(_c.children,ac)end,addAttribute=function(_c,ac,bc)_c.attributes[ac]=bc end}end} -local bb=function(db,_c) -local ac,bc=string.gsub(_c,"(%w+)=([\"'])(.-)%2",function(_d,ad,bd) -db:addAttribute(_d,"\""..bd.."\"")end) -local cc,dc=string.gsub(_c,"(%w+)={(.-)}",function(_d,ad)db:addAttribute(_d,ad)end)end -local cb={parseText=function(db)local _c={}local ac=ab.new()table.insert(_c,ac)local bc,cc,dc,_d,ad;local bd,cd=1,1 -while true do -bc,cd,cc,dc,_d,ad=string.find(db,"<(%/?)([%w_:]+)(.-)(%/?)>",bd)if not bc then break end;local __a=string.sub(db,bd,bc-1)if not -string.find(__a,"^%s*$")then local a_a=(ac.value or"")..__a -_c[#_c].value=a_a end -if ad=="/"then local a_a=ab.new(dc) -bb(a_a,_d)ac:addChild(a_a)elseif cc==""then local a_a=ab.new(dc)bb(a_a,_d) -table.insert(_c,a_a)ac=a_a else local a_a=table.remove(_c)ac=_c[#_c] -if#_c<1 then error("XMLParser: nothing to close with ".. -dc)end;if a_a.tag~=dc then -error("XMLParser: trying to close "..a_a.tag.." with "..dc)end;ac:addChild(a_a)end;bd=cd+1 end;local dd=string.sub(db,bd)if#_c>1 then -error("XMLParser: unclosed ".._c[#_c].tag)end;return ac.children end}return cb end aa["libraries"]["bimg"]=function(...)local ab,bb=string.sub,string.rep local function cb(db,_c)local ac,bc=0,0 local cc,dc,_d={},{},{}local ad,bd=1,1;local cd={} @@ -883,6 +667,223 @@ for cd,dd in pairs(db)do if(type(cd)=="string")then ac[cd]=dd end end if(ac.width==nil)or(ac.height==nil)then bc=ac.width or#db[1][1][1]cc=ac.height or#db[1]dc.updateSize(bc,cc,true)end for cd,dd in pairs(db)do if(type(cd)=="number")then _d(cd,dd)end end else _d(1)end;return dc end end +aa["libraries"]["process"]=function(...)local ab={}local bb={}local cb=0 +local db=dofile("rom/modules/main/cc/require.lua").make +function bb:new(_c,ac,bc,...)local cc={...} +local dc=setmetatable({path=_c},{__index=self})dc.window=ac;ac.current=term.current;ac.redirect=term.redirect +dc.processId=cb +if(type(_c)=="string")then +dc.coroutine=coroutine.create(function() +local _d=shell.resolveProgram(_c)local ad=setmetatable(bc,{__index=_ENV})ad.shell=shell +ad.basaltProgram=true;ad.arg={[0]=_c,table.unpack(cc)} +if(_d==nil)then error("The path ".._c.. +" does not exist!")end;ad.require,ad.package=db(ad,fs.getDir(_d)) +if(fs.exists(_d))then +local bd=fs.open(_d,"r")local cd=bd.readAll()bd.close()local dd=load(cd,_c,"bt",ad)if(dd~=nil)then return +dd()end end end)elseif(type(_c)=="function")then +dc.coroutine=coroutine.create(function() +_c(table.unpack(cc))end)else return end;ab[cb]=dc;cb=cb+1;return dc end +function bb:resume(_c,...)local ac=term.current()term.redirect(self.window) +if( +self.filter~=nil)then if(_c~=self.filter)then return end;self.filter=nil end;local bc,cc=coroutine.resume(self.coroutine,_c,...)if bc then +self.filter=cc else printError(cc)end;term.redirect(ac) +return bc,cc end +function bb:isDead() +if(self.coroutine~=nil)then +if +(coroutine.status(self.coroutine)=="dead")then table.remove(ab,self.processId)return true end else return true end;return false end +function bb:getStatus()if(self.coroutine~=nil)then +return coroutine.status(self.coroutine)end;return nil end +function bb:start()coroutine.resume(self.coroutine)end;return bb end +aa["libraries"]["basaltEvent"]=function(...) +return +function()local ab={} +local bb={registerEvent=function(cb,db,_c) +if(ab[db]==nil)then ab[db]={}end;table.insert(ab[db],_c)end,removeEvent=function(cb,db,_c)ab[db][_c[db]]= +nil end,hasEvent=function(cb,db)return ab[db]~=nil end,getEventCount=function(cb,db)return +ab[db]~=nil and#ab[db]or 0 end,getEvents=function(cb) +local db={}for _c,ac in pairs(ab)do table.insert(db,_c)end;return db end,clearEvent=function(cb,db)ab[db]= +nil end,clear=function(cb,db)ab={}end,sendEvent=function(cb,db,...)local _c +if(ab[db]~=nil)then for ac,bc in pairs(ab[db])do +local cc=bc(...)if(cc==false)then _c=cc end end end;return _c end}bb.__index=bb;return bb end end +aa["libraries"]["basaltLogs"]=function(...)local ab=""local bb="basaltLog.txt"local cb="Debug" +fs.delete( +ab~=""and ab.."/"..bb or bb) +local db={__call=function(_c,ac,bc)if(ac==nil)then return end +local cc=ab~=""and ab.."/"..bb or bb +local dc=fs.open(cc,fs.exists(cc)and"a"or"w") +dc.writeLine("[Basalt][".. +os.date("%Y-%m-%d %H:%M:%S").."][".. (bc and bc or cb).. +"]: "..tostring(ac))dc.close()end}return setmetatable({},db)end +aa["libraries"]["images"]=function(...)local ab,bb=string.sub,math.floor;local function cb(ad)return +{[1]={{},{},paintutils.loadImage(ad)}},"bimg"end;local function db(ad)return +paintutils.loadImage(ad),"nfp"end +local function _c(ad,bd) +local cd=fs.open(ad,bd and"rb"or"r")if(cd==nil)then +error("Path - "..ad.." doesn't exist!")end +local dd=textutils.unserialize(cd.readAll())cd.close()if(dd~=nil)then return dd,"bimg"end end;local function ac(ad)end;local function bc(ad)end;local function cc(ad,bd,cd) +if(ab(ad,-4)==".bimg")then return _c(ad,cd)elseif +(ab(ad,-3)==".bbf")then return ac(ad,cd)else return db(ad,cd)end end;local function dc(ad) +if +(ad:find(".bimg"))then return _c(ad)elseif(ad:find(".bbf"))then return bc(ad)else return cb(ad)end end +local function _d(ad,bd,cd)local dd,__a=ad.width or# +ad[1][1][1],ad.height or#ad[1]local a_a={} +for b_a,c_a in +pairs(ad)do +if(type(b_a)=="number")then local d_a={} +for y=1,cd do local _aa,aaa,baa="","","" +local caa=bb(y/cd*__a+0.5) +if(c_a[caa]~=nil)then +for x=1,bd do local daa=bb(x/bd*dd+0.5)_aa=_aa.. +ab(c_a[caa][1],daa,daa) +aaa=aaa..ab(c_a[caa][2],daa,daa)baa=baa..ab(c_a[caa][3],daa,daa)end;table.insert(d_a,{_aa,aaa,baa})end end;table.insert(a_a,b_a,d_a)else a_a[b_a]=c_a end end;a_a.width=bd;a_a.height=cd;return a_a end +return{loadNFP=db,loadBIMG=_c,loadImage=cc,resizeBIMG=_d,loadImageAsBimg=dc}end +aa["libraries"]["basaltMon"]=function(...) +local ab={[colors.white]="0",[colors.orange]="1",[colors.magenta]="2",[colors.lightBlue]="3",[colors.yellow]="4",[colors.lime]="5",[colors.pink]="6",[colors.gray]="7",[colors.lightGray]="8",[colors.cyan]="9",[colors.purple]="a",[colors.blue]="b",[colors.brown]="c",[colors.green]="d",[colors.red]="e",[colors.black]="f"}local bb,cb,db,_c=type,string.len,string.rep,string.sub +return +function(ac)local bc={} +for _ba,aba in pairs(ac)do +bc[_ba]={} +for bba,cba in pairs(aba)do local dba=peripheral.wrap(cba)if(dba==nil)then +error("Unable to find monitor "..cba)end;bc[_ba][bba]=dba +bc[_ba][bba].name=cba end end;local cc,dc,_d,ad,bd,cd,dd,__a=1,1,1,1,0,0,0,0;local a_a,b_a=false,1 +local c_a,d_a=colors.white,colors.black +local function _aa()local _ba,aba=0,0 +for bba,cba in pairs(bc)do local dba,_ca=0,0 +for aca,bca in pairs(cba)do local cca,dca=bca.getSize() +dba=dba+cca;_ca=dca>_ca and dca or _ca end;_ba=_ba>dba and _ba or dba;aba=aba+_ca end;dd,__a=_ba,aba end;_aa() +local function aaa()local _ba=0;local aba,bba=0,0 +for cba,dba in pairs(bc)do local _ca=0;local aca=0 +for bca,cca in pairs(dba)do +local dca,_da=cca.getSize()if(cc-_ca>=1)and(cc-_ca<=dca)then aba=bca end;cca.setCursorPos( +cc-_ca,dc-_ba)_ca=_ca+dca +if(aca<_da)then aca=_da end end;if(dc-_ba>=1)and(dc-_ba<=aca)then bba=cba end +_ba=_ba+aca end;_d,ad=aba,bba end;aaa() +local function baa(_ba,...)local aba={...}return +function()for bba,cba in pairs(bc)do for dba,_ca in pairs(cba)do +_ca[_ba](table.unpack(aba))end end end end +local function caa()baa("setCursorBlink",false)() +if not(a_a)then return end;if(bc[ad]==nil)then return end;local _ba=bc[ad][_d] +if(_ba==nil)then return end;_ba.setCursorBlink(a_a)end +local function daa(_ba,aba,bba)if(bc[ad]==nil)then return end;local cba=bc[ad][_d] +if(cba==nil)then return end;cba.blit(_ba,aba,bba)local dba,_ca=cba.getSize() +if +(cb(_ba)+cc>dba)then local aca=bc[ad][_d+1]if(aca~=nil)then aca.blit(_ba,aba,bba)_d=_d+1;cc=cc+ +cb(_ba)end end;aaa()end +return +{clear=baa("clear"),setCursorBlink=function(_ba)a_a=_ba;caa()end,getCursorBlink=function()return a_a end,getCursorPos=function()return cc,dc end,setCursorPos=function(_ba,aba) +cc,dc=_ba,aba;aaa()caa()end,setTextScale=function(_ba) +baa("setTextScale",_ba)()_aa()aaa()b_a=_ba end,getTextScale=function()return b_a end,blit=function(_ba,aba,bba) +daa(_ba,aba,bba)end,write=function(_ba)_ba=tostring(_ba)local aba=cb(_ba) +daa(_ba,db(ab[c_a],aba),db(ab[d_a],aba))end,getSize=function()return dd,__a end,setBackgroundColor=function(_ba) +baa("setBackgroundColor",_ba)()d_a=_ba end,setTextColor=function(_ba) +baa("setTextColor",_ba)()c_a=_ba end,calculateClick=function(_ba,aba,bba)local cba=0 +for dba,_ca in pairs(bc)do local aca=0;local bca=0 +for cca,dca in pairs(_ca)do +local _da,ada=dca.getSize()if(dca.name==_ba)then return aba+aca,bba+cba end +aca=aca+_da;if(ada>bca)then bca=ada end end;cba=cba+bca end;return aba,bba end}end end +aa["libraries"]["utils"]=function(...)local ab=da("tHex") +local bb,cb,db,_c,ac,bc=string.sub,string.find,string.reverse,string.rep,table.insert,string.len +local function cc(cd,dd)local __a={}if cd==""or dd==""then return __a end;local a_a=1 +local b_a,c_a=cb(cd,dd,a_a)while b_a do ac(__a,bb(cd,a_a,b_a-1))a_a=c_a+1 +b_a,c_a=cb(cd,dd,a_a)end;ac(__a,bb(cd,a_a))return __a end;local function dc(cd)return cd:gsub("{[^}]+}","")end +local function _d(cd,dd)cd=dc(cd)if +(cd=="")or(dd==0)then return{""}end;local __a=cc(cd,"\n")local a_a={} +for b_a,c_a in +pairs(__a)do +if#c_a==0 then table.insert(a_a,"")else +while#c_a>dd do local d_a=dd;for i=dd,1,-1 do if bb(c_a,i,i)==" "then +d_a=i;break end end +if d_a==dd then +local _aa=bb(c_a,1,d_a-1).."-"table.insert(a_a,_aa)c_a=bb(c_a,d_a)else +local _aa=bb(c_a,1,d_a-1)table.insert(a_a,_aa)c_a=bb(c_a,d_a+1)end;if#c_a<=dd then break end end;if#c_a>0 then table.insert(a_a,c_a)end end end;return a_a end +local function ad(cd)local dd={}local __a=1;local a_a=1 +while __a<=#cd do local b_a,c_a;local d_a,_aa;local aaa,baa +for _ba,aba in pairs(colors)do +local bba="{fg:".._ba.."}"local cba="{bg:".._ba.."}"local dba,_ca=cd:find(bba,__a) +local aca,bca=cd:find(cba,__a) +if dba and(not b_a or dba0 then +table.insert(dd,{color=nil,bgColor=nil,text=daa,position=a_a})a_a=a_a+#daa;__a=__a+#daa end +if b_a and(not c_a or b_a1 then if b_a+1 +bba<=dd then aaa({text=" "})b_a=b_a+1 else b_a=1;c_a=c_a+ +1 end end;while bba>0 do local cba=aba:sub(1,dd-b_a+1) +aba=aba:sub(dd-b_a+2)bba=#aba;aaa({text=cba}) +if bba>0 then b_a=1;c_a=c_a+1 else b_a=b_a+#cba end end end end;if b_a>dd then b_a=1;c_a=c_a+1 end end;return a_a end +return +{getTextHorizontalAlign=function(cd,dd,__a,a_a)cd=bb(cd,1,dd)local b_a=dd-bc(cd) +if(__a=="right")then +cd=_c(a_a or" ",b_a)..cd elseif(__a=="center")then +cd=_c(a_a or" ",math.floor(b_a/2))..cd.._c(a_a or" ",math.floor( +b_a/2)) +cd=cd.. (bc(cd)
c_a)then break end +if(aaa.text~=nil)then cd:addText(dd+aaa.x-1,__a+ +aaa.y-1,aaa.text)end;if(aaa.color~=nil)then +cd:addFG(dd+aaa.x-1,__a+aaa.y-1,ab[colors[aaa.color]]:rep( +#aaa.text))end;if(aaa.bgColor~=nil)then +cd:addBG(dd+ +aaa.x-1,__a+aaa.y-1,ab[colors[aaa.bgColor]]:rep(# +aaa.text))end end end,uuid=function() +return +string.gsub(string.format('%x-%x-%x-%x-%x',math.random(0,0xffff),math.random(0,0xffff),math.random(0,0xffff), +math.random(0,0x0fff)+0x4000,math.random(0,0x3fff)+0x8000),' ','0')end}end +aa["libraries"]["tHex"]=function(...)local ab={} +for i=0,15 do ab[2 ^i]=("%x"):format(i)end;return ab end +aa["libraries"]["xmlParser"]=function(...) +local ab={new=function(db) +return +{tag=db,value=nil,attributes={},children={},addChild=function(_c,ac) +table.insert(_c.children,ac)end,addAttribute=function(_c,ac,bc)_c.attributes[ac]=bc end}end} +local bb=function(db,_c) +local ac,bc=string.gsub(_c,"(%w+)=([\"'])(.-)%2",function(_d,ad,bd) +db:addAttribute(_d,"\""..bd.."\"")end) +local cc,dc=string.gsub(_c,"(%w+)={(.-)}",function(_d,ad)db:addAttribute(_d,ad)end)end +local cb={parseText=function(db)local _c={}local ac=ab.new()table.insert(_c,ac)local bc,cc,dc,_d,ad;local bd,cd=1,1 +while true do +bc,cd,cc,dc,_d,ad=string.find(db,"<(%/?)([%w_:]+)(.-)(%/?)>",bd)if not bc then break end;local __a=string.sub(db,bd,bc-1)if not +string.find(__a,"^%s*$")then local a_a=(ac.value or"")..__a +_c[#_c].value=a_a end +if ad=="/"then local a_a=ab.new(dc) +bb(a_a,_d)ac:addChild(a_a)elseif cc==""then local a_a=ab.new(dc)bb(a_a,_d) +table.insert(_c,a_a)ac=a_a else local a_a=table.remove(_c)ac=_c[#_c] +if#_c<1 then error("XMLParser: nothing to close with ".. +dc)end;if a_a.tag~=dc then +error("XMLParser: trying to close "..a_a.tag.." with "..dc)end;ac:addChild(a_a)end;bd=cd+1 end;local dd=string.sub(db,bd)if#_c>1 then +error("XMLParser: unclosed ".._c[#_c].tag)end;return ac.children end}return cb end aa["main"]=function(...)local ab=da("basaltEvent")() local bb=da("loadObjects")local cb;local db=da("plugin")local _c=da("utils")local ac=da("basaltLogs") local bc=_c.uuid;local cc=_c.wrapText;local dc=_c.tableCount;local _d=300;local ad=0;local bd=0;local cd={} @@ -1017,54 +1018,54 @@ for adb,bdb in pairs(dcb)do for cdb,ddb in pairs(bdb(aba))do aba[cdb]=ddb;_da[cdb]=ddb end end end local _db=db.get("basaltInternal")if(_db~=nil)then for adb,bdb in pairs(_db)do for cdb,ddb in pairs(bdb(aba))do _da[cdb]=ddb end end end;return aba end;aa["objects"]={} -aa["objects"]["Slider"]=function(...)local ab=da("tHex") +aa["objects"]["ScrollableFrame"]=function(...) +local ab,bb,cb,db=math.max,math.min,string.sub,string.rep return -function(bb,cb) -local db=cb.getObject("ChangeableObject")(bb,cb)local _c="Slider"db:setSize(12,1)db:setValue(1) -db:setBackground(false,"\140",colors.black)local ac="horizontal"local bc=" "local cc=colors.black;local dc=colors.gray;local _d=12;local ad=1 -local bd=1 -local function cd(__a,a_a,b_a,c_a)local d_a,_aa=__a:getPosition()local aaa,baa=__a:getSize()local caa= -ac=="vertical"and baa or aaa -for i=0,caa do +function(_c,ac)local bc=ac.getObject("Frame")(_c,ac) +local cc="ScrollableFrame"local dc;local _d=0;local ad=0;local bd=true +local function cd(b_a)local c_a=0;local d_a=b_a:getChildren() +for _aa,aaa in pairs(d_a)do +if( +aaa.element.getWidth~=nil)and(aaa.element.getX~=nil)then +local baa,caa=aaa.element:getWidth(),aaa.element:getX()local daa=b_a:getWidth() if - -( -(ac=="vertical"and _aa+i==c_a)or(ac=="horizontal"and d_a+i==b_a))and(d_a<=b_a)and(d_a+aaa>b_a)and(_aa<=c_a)and -(_aa+baa>c_a)then ad=math.min(i+1,caa- (# -bc+bd-2)) -__a:setValue(_d/caa*ad)__a:updateDraw()end end end -local dd={getType=function(__a)return _c end,load=function(__a)__a:listenEvent("mouse_click") -__a:listenEvent("mouse_drag")__a:listenEvent("mouse_scroll")end,setSymbol=function(__a,a_a) -bc=a_a:sub(1,1)__a:updateDraw()return __a end,getSymbol=function(__a)return bc end,setIndex=function(__a,a_a) -ad=a_a;if(ad<1)then ad=1 end;local b_a,c_a=__a:getSize() -ad=math.min(ad,( -ac=="vertical"and c_a or b_a)- (bd-1)) -__a:setValue(_d/ (ac=="vertical"and c_a or b_a)*ad)__a:updateDraw()return __a end,getIndex=function(__a)return -ad end,setMaxValue=function(__a,a_a)_d=a_a;return __a end,getMaxValue=function(__a)return _d end,setSymbolColor=function(__a,a_a) -symbolColor=a_a;__a:updateDraw()return __a end,getSymbolColor=function(__a) -return symbolColor end,setBarType=function(__a,a_a)ac=a_a:lower()__a:updateDraw()return __a end,getBarType=function(__a)return -ac end,mouseHandler=function(__a,a_a,b_a,c_a)if(db.mouseHandler(__a,a_a,b_a,c_a))then cd(__a,a_a,b_a,c_a)return -true end;return false end,dragHandler=function(__a,a_a,b_a,c_a)if -(db.dragHandler(__a,a_a,b_a,c_a))then cd(__a,a_a,b_a,c_a)return true end -return false end,scrollHandler=function(__a,a_a,b_a,c_a) +(aaa.element:getType()=="Dropdown")then if(aaa.element:isOpened())then +local _ba=aaa.element:getDropdownSize() +if(_ba+caa-daa>=c_a)then c_a=ab(_ba+caa-daa,0)end end end +if(baa+caa-daa>=c_a)then c_a=ab(baa+caa-daa,0)end end end;return c_a end +local function dd(b_a)local c_a=0;local d_a=b_a:getChildren() +for _aa,aaa in pairs(d_a)do if -(db.scrollHandler(__a,a_a,b_a,c_a))then local d_a,_aa=__a:getSize()ad=ad+a_a;if(ad<1)then ad=1 end -ad=math.min(ad,( -ac=="vertical"and _aa or d_a)- (bd-1)) -__a:setValue(_d/ (ac=="vertical"and _aa or d_a)*ad)__a:updateDraw()return true end;return false end,draw=function(__a) -db.draw(__a) -__a:addDraw("slider",function()local a_a,b_a=__a:getSize() -local c_a,d_a=__a:getBackground(),__a:getForeground() -if(ac=="horizontal")then __a:addText(ad,oby,bc:rep(bd)) -if(dc~=false)then __a:addBG(ad,1,ab[dc]:rep( -#bc*bd))end;if(cc~=false)then -__a:addFG(ad,1,ab[cc]:rep(#bc*bd))end end -if(ac=="vertical")then -for n=0,b_a-1 do -if(ad==n+1)then for curIndexOffset=0,math.min(bd-1,b_a)do -__a:addBlit(1,1 +n+curIndexOffset,bc,ab[symbolColor],ab[symbolColor])end else if(n+1 -ad-1 +bd)then -__a:addBlit(1,1 +n,bgSymbol,ab[d_a],ab[c_a])end end end end end)end}dd.__index=dd;return setmetatable(dd,db)end end +(aaa.element.getHeight~=nil)and(aaa.element.getY~=nil)then +local baa,caa=aaa.element:getHeight(),aaa.element:getY()local daa=b_a:getHeight() +if +(aaa.element:getType()=="Dropdown")then if(aaa.element:isOpened())then +local _ba,aba=aaa.element:getDropdownSize() +if(aba+caa-daa>=c_a)then c_a=ab(aba+caa-daa,0)end end end +if(baa+caa-daa>=c_a)then c_a=ab(baa+caa-daa,0)end end end;return c_a end +local function __a(b_a,c_a)local d_a,_aa=b_a:getOffset()local aaa +if(_d==1)then +aaa=bd and cd(b_a)or ad +b_a:setOffset(bb(aaa,ab(0,d_a+c_a)),_aa)elseif(_d==0)then aaa=bd and dd(b_a)or ad +b_a:setOffset(d_a,bb(aaa,ab(0,_aa+c_a)))end;b_a:updateDraw()end +local a_a={getType=function()return cc end,isType=function(b_a,c_a)return +cc==c_a or bc.isType~=nil and bc.isType(c_a)or false end,setDirection=function(b_a,c_a)_d= +c_a=="horizontal"and 1 or c_a=="vertical"and 0 or +_d;return b_a end,setScrollAmount=function(b_a,c_a) +ad=c_a;bd=false;return b_a end,getBase=function(b_a)return bc end,load=function(b_a)bc.load(b_a) +b_a:listenEvent("mouse_scroll")end,removeChildren=function(b_a)bc.removeChildren(b_a) +b_a:listenEvent("mouse_scroll")end,setParent=function(b_a,c_a,...)bc.setParent(b_a,c_a,...) +dc=c_a;return b_a end,scrollHandler=function(b_a,c_a,d_a,_aa) +if +(bc:getBase().scrollHandler(b_a,c_a,d_a,_aa))then b_a:sortChildren() +for aaa,baa in +ipairs(b_a:getEvents("mouse_scroll"))do +if(baa.element.scrollHandler~=nil)then local caa,daa=0,0;if(b_a.getOffset~=nil)then +caa,daa=b_a:getOffset()end +if(baa.element.getIgnoreOffset())then caa,daa=0,0 end;if(baa.element.scrollHandler(baa.element,c_a,d_a+caa,_aa+daa))then +return true end end end;__a(b_a,c_a,d_a,_aa)b_a:clearFocusedChild()return true end end,draw=function(b_a) +bc.draw(b_a) +b_a:addDraw("scrollableFrame",function()if(bd)then __a(b_a,0)end end,0)end}a_a.__index=a_a;return setmetatable(a_a,bc)end end aa["objects"]["Scrollbar"]=function(...)local ab=da("tHex") return function(bb,cb) @@ -1126,47 +1127,148 @@ for curIndexOffset=0,math.min( bd-1,_aa)do b_a:addBlit(1,ad+curIndexOffset,bc:rep(math.max(#bc,d_a)),ab[dc]:rep(math.max( #bc,d_a)),ab[cc]:rep(math.max(#bc,d_a)))end end end end end)end}a_a.__index=a_a;return setmetatable(a_a,db)end end -aa["objects"]["MonitorFrame"]=function(...)local ab=da("basaltMon") -local bb,cb,db,_c=math.max,math.min,string.sub,string.rep +aa["objects"]["Slider"]=function(...)local ab=da("tHex") return -function(ac,bc)local cc=bc.getObject("BaseFrame")(ac,bc) -local dc="MonitorFrame"cc:setTerm(nil)local _d=false;local ad -local bd={getType=function()return dc end,isType=function(cd,dd) -return dc==dd or cc.isType~=nil and -cc.isType(dd)or false end,getBase=function(cd)return cc end,setMonitor=function(cd,dd) +function(bb,cb) +local db=cb.getObject("ChangeableObject")(bb,cb)local _c="Slider"db:setSize(12,1)db:setValue(1) +db:setBackground(false,"\140",colors.black)local ac="horizontal"local bc=" "local cc=colors.black;local dc=colors.gray;local _d=12;local ad=1 +local bd=1 +local function cd(__a,a_a,b_a,c_a)local d_a,_aa=__a:getPosition()local aaa,baa=__a:getSize()local caa= +ac=="vertical"and baa or aaa +for i=0,caa do if -(type(dd)=="string")then local __a=peripheral.wrap(dd) -if(__a~=nil)then cd:setTerm(__a)end elseif(type(dd)=="table")then cd:setTerm(dd)end;return cd end,setMonitorGroup=function(cd,dd) -ad=ab(dd)cd:setTerm(ad)_d=true;return cd end,render=function(cd)if(cd:getTerm()~= -nil)then cc.render(cd)end end,show=function(cd) -cc:getBase().show(cd)bc.setActiveFrame(cd) -for dd,__a in pairs(colors)do if(type(__a)=="number")then -termObject.setPaletteColor(__a,colors.packRGB(term.nativePaletteColor((__a))))end end -for dd,__a in pairs(colorTheme)do -if(type(__a)=="number")then -termObject.setPaletteColor( -type(dd)=="number"and dd or colors[dd],__a)else local a_a,b_a,c_a=table.unpack(__a) -termObject.setPaletteColor( -type(dd)=="number"and dd or colors[dd],a_a,b_a,c_a)end end;return cd end} -bd.mouseHandler=function(cd,dd,__a,a_a,b_a,c_a,...) -if(_d)then __a,a_a=ad.calculateClick(c_a,__a,a_a)end;cc.mouseHandler(cd,dd,__a,a_a,b_a,c_a,...)end;bd.__index=bd;return setmetatable(bd,cc)end end -aa["objects"]["Switch"]=function(...) + +( +(ac=="vertical"and _aa+i==c_a)or(ac=="horizontal"and d_a+i==b_a))and(d_a<=b_a)and(d_a+aaa>b_a)and(_aa<=c_a)and +(_aa+baa>c_a)then ad=math.min(i+1,caa- (# +bc+bd-2)) +__a:setValue(_d/caa*ad)__a:updateDraw()end end end +local dd={getType=function(__a)return _c end,load=function(__a)__a:listenEvent("mouse_click") +__a:listenEvent("mouse_drag")__a:listenEvent("mouse_scroll")end,setSymbol=function(__a,a_a) +bc=a_a:sub(1,1)__a:updateDraw()return __a end,getSymbol=function(__a)return bc end,setIndex=function(__a,a_a) +ad=a_a;if(ad<1)then ad=1 end;local b_a,c_a=__a:getSize() +ad=math.min(ad,( +ac=="vertical"and c_a or b_a)- (bd-1)) +__a:setValue(_d/ (ac=="vertical"and c_a or b_a)*ad)__a:updateDraw()return __a end,getIndex=function(__a)return +ad end,setMaxValue=function(__a,a_a)_d=a_a;return __a end,getMaxValue=function(__a)return _d end,setSymbolColor=function(__a,a_a) +symbolColor=a_a;__a:updateDraw()return __a end,getSymbolColor=function(__a) +return symbolColor end,setBarType=function(__a,a_a)ac=a_a:lower()__a:updateDraw()return __a end,getBarType=function(__a)return +ac end,mouseHandler=function(__a,a_a,b_a,c_a)if(db.mouseHandler(__a,a_a,b_a,c_a))then cd(__a,a_a,b_a,c_a)return +true end;return false end,dragHandler=function(__a,a_a,b_a,c_a)if +(db.dragHandler(__a,a_a,b_a,c_a))then cd(__a,a_a,b_a,c_a)return true end +return false end,scrollHandler=function(__a,a_a,b_a,c_a) +if +(db.scrollHandler(__a,a_a,b_a,c_a))then local d_a,_aa=__a:getSize()ad=ad+a_a;if(ad<1)then ad=1 end +ad=math.min(ad,( +ac=="vertical"and _aa or d_a)- (bd-1)) +__a:setValue(_d/ (ac=="vertical"and _aa or d_a)*ad)__a:updateDraw()return true end;return false end,draw=function(__a) +db.draw(__a) +__a:addDraw("slider",function()local a_a,b_a=__a:getSize() +local c_a,d_a=__a:getBackground(),__a:getForeground() +if(ac=="horizontal")then __a:addText(ad,oby,bc:rep(bd)) +if(dc~=false)then __a:addBG(ad,1,ab[dc]:rep( +#bc*bd))end;if(cc~=false)then +__a:addFG(ad,1,ab[cc]:rep(#bc*bd))end end +if(ac=="vertical")then +for n=0,b_a-1 do +if(ad==n+1)then for curIndexOffset=0,math.min(bd-1,b_a)do +__a:addBlit(1,1 +n+curIndexOffset,bc,ab[symbolColor],ab[symbolColor])end else if(n+1 +ad-1 +bd)then +__a:addBlit(1,1 +n,bgSymbol,ab[d_a],ab[c_a])end end end end end)end}dd.__index=dd;return setmetatable(dd,db)end end +aa["objects"]["Dropdown"]=function(...)local ab=da("utils")local bb=da("tHex") return -function(ab,bb) -local cb=bb.getObject("ChangeableObject")(ab,bb)local db="Switch"cb:setSize(4,1)cb:setValue(false) -cb:setZIndex(5)local _c=colors.black;local ac=colors.red;local bc=colors.green -local cc={getType=function(dc)return db end,setSymbol=function(dc,_d) -_c=_d;return dc end,getSymbol=function(dc)return _c end,setActiveBackground=function(dc,_d)bc=_d;return dc end,getActiveBackground=function(dc)return bc end,setInactiveBackground=function(dc,_d) -ac=_d;return dc end,getInactiveBackground=function(dc)return ac end,load=function(dc) -dc:listenEvent("mouse_click")end,mouseHandler=function(dc,...) -if(cb.mouseHandler(dc,...))then -dc:setValue(not dc:getValue())dc:updateDraw()return true end end,draw=function(dc)cb.draw(dc) -dc:addDraw("switch",function() -local _d=dc:getParent()local ad,bd=dc:getBackground(),dc:getForeground() -local cd,dd=dc:getSize() -if(dc:getValue())then dc:addBackgroundBox(1,1,cd,dd,bc) -dc:addBackgroundBox(cd,1,1,dd,_c)else dc:addBackgroundBox(1,1,cd,dd,ac) -dc:addBackgroundBox(1,1,1,dd,_c)end end)end}cc.__index=cc;return setmetatable(cc,cb)end end +function(cb,db) +local _c=db.getObject("List")(cb,db)local ac="Dropdown"_c:setSize(12,1)_c:setZIndex(6)local bc=true +local cc="left"local dc=0;local _d=0;local ad=0;local bd=true;local cd="\16"local dd="\31"local __a=false +local a_a={getType=function(b_a)return ac end,isType=function(b_a,c_a)return + +ac==c_a or _c.isType~=nil and _c.isType(c_a)or false end,load=function(b_a) +b_a:listenEvent("mouse_click",b_a)b_a:listenEvent("mouse_up",b_a) +b_a:listenEvent("mouse_scroll",b_a)b_a:listenEvent("mouse_drag",b_a)end,setOffset=function(b_a,c_a) +dc=c_a;b_a:updateDraw()return b_a end,getOffset=function(b_a)return dc end,addItem=function(b_a,c_a,...) +_c.addItem(b_a,c_a,...)if(bd)then _d=math.max(_d,#c_a)ad=ad+1 end;return b_a end,removeItem=function(b_a,c_a) +_c.removeItem(b_a,c_a)if(bd)then _d=0;ad=0 +for n=1,#list do _d=math.max(_d,#list[n].text)end;ad=#list end end,isOpened=function(b_a)return +__a end,setOpened=function(b_a,c_a)__a=c_a;b_a:updateDraw()return b_a end,setDropdownSize=function(b_a,c_a,d_a) +_d,ad=c_a,d_a;bd=false;b_a:updateDraw()return b_a end,setDropdownWidth=function(b_a,c_a)return +b_a:setDropdownSize(c_a,ad)end,setDropdownHeight=function(b_a,c_a) +return b_a:setDropdownSize(_d,c_a)end,getDropdownSize=function(b_a)return _d,ad end,getDropdownWidth=function(b_a)return _d end,getDropdownHeight=function(b_a)return ad end,mouseHandler=function(b_a,c_a,d_a,_aa,aaa) +if +(__a)then local caa,daa=b_a:getAbsolutePosition() +if(c_a==1)then local _ba=b_a:getAll() +if(# +_ba>0)then +for n=1,ad do +if(_ba[n+dc]~=nil)then +if +(caa<=d_a)and(caa+_d>d_a)and(daa+n==_aa)then b_a:setValue(_ba[n+dc])b_a:updateDraw() +local aba=b_a:sendEvent("mouse_click",b_a,"mouse_click",c_a,d_a,_aa)if(aba==false)then return aba end;if(aaa)then +db.schedule(function()sleep(0.1) +b_a:mouseUpHandler(c_a,d_a,_aa)end)()end;return true end end end end end end;local baa=_c:getBase() +if(baa.mouseHandler(b_a,c_a,d_a,_aa))then __a=not __a +b_a:getParent():setImportant(b_a)b_a:updateDraw()return true else +if(__a)then b_a:updateDraw()__a=false end;return false end end,mouseUpHandler=function(b_a,c_a,d_a,_aa) +if +(__a)then local aaa,baa=b_a:getAbsolutePosition() +if(c_a==1)then local caa=b_a:getAll() +if(# +caa>0)then +for n=1,ad do +if(caa[n+dc]~=nil)then +if +(aaa<=d_a)and(aaa+_d>d_a)and(baa+n==_aa)then __a=false;b_a:updateDraw() +local daa=b_a:sendEvent("mouse_up",b_a,"mouse_up",c_a,d_a,_aa)if(daa==false)then return daa end;return true end end end end end end end,dragHandler=function(b_a,c_a,d_a,_aa)if +(_c.dragHandler(b_a,c_a,d_a,_aa))then __a=true end end,scrollHandler=function(b_a,c_a,d_a,_aa) +if +(__a)then local aaa,baa=b_a:getAbsolutePosition()if +(d_a>=aaa)and(d_a<=aaa+_d)and(_aa>=baa)and(_aa<=baa+ad)then +b_a:setFocus()end end +if(__a)and(b_a:isFocused())then +local aaa,baa=b_a:getAbsolutePosition()if +(d_aaaa+_d)or(_aabaa+ad)then return false end;if(#b_a:getAll()<=ad)then return +false end;local caa=b_a:getAll()dc=dc+c_a +if(dc<0)then dc=0 end +if(c_a==1)then if(#caa>ad)then if(dc>#caa-ad)then dc=#caa-ad end else +dc=math.min(#caa-1,0)end end +local daa=b_a:sendEvent("mouse_scroll",b_a,"mouse_scroll",c_a,d_a,_aa)if(daa==false)then return daa end;b_a:updateDraw()return true end end,draw=function(b_a) +_c.draw(b_a)b_a:setDrawState("list",false) +b_a:addDraw("dropdown",function() +local c_a,d_a=b_a:getPosition()local _aa,aaa=b_a:getSize()local baa=b_a:getValue() +local caa=b_a:getAll()local daa,_ba=b_a:getBackground(),b_a:getForeground() +local aba=ab.getTextHorizontalAlign(( +baa~=nil and baa.text or""),_aa,cc):sub(1, +_aa-1).. (__a and dd or cd) +b_a:addBlit(1,1,aba,bb[_ba]:rep(#aba),bb[daa]:rep(#aba)) +if(__a)then b_a:addTextBox(1,2,_d,ad," ") +b_a:addBackgroundBox(1,2,_d,ad,daa)b_a:addForegroundBox(1,2,_d,ad,_ba) +for n=1,ad do +if(caa[n+dc]~=nil)then local bba=ab.getTextHorizontalAlign(caa[ +n+dc].text,_d,cc) +if( +caa[n+dc]==baa)then +if(bc)then local cba,dba=b_a:getSelectionColor() +b_a:addBlit(1,n+1,bba,bb[dba]:rep( +#bba),bb[cba]:rep(#bba))else +b_a:addBlit(1,n+1,bba,bb[caa[n+dc].fgCol]:rep(#bba),bb[caa[n+dc].bgCol]:rep( +#bba))end else +b_a:addBlit(1,n+1,bba,bb[caa[n+dc].fgCol]:rep(#bba),bb[caa[n+dc].bgCol]:rep( +#bba))end end end end end)end}a_a.__index=a_a;return setmetatable(a_a,_c)end end +aa["objects"]["Button"]=function(...)local ab=da("utils")local bb=da("tHex") +return +function(cb,db) +local _c=db.getObject("VisualObject")(cb,db)local ac="Button"local bc="center"local cc="center"local dc="Button"_c:setSize(12,3) +_c:setZIndex(5) +local _d={getType=function(ad)return ac end,isType=function(ad,bd)return +ac==bd or _c.isType~=nil and _c.isType(bd)or false end,getBase=function(ad)return +_c end,getHorizontalAlign=function(ad)return bc end,setHorizontalAlign=function(ad,bd)bc=bd;ad:updateDraw()return ad end,getVerticalAlign=function(ad)return +cc end,setVerticalAlign=function(ad,bd)cc=bd;ad:updateDraw()return ad end,getText=function(ad) +return dc end,setText=function(ad,bd)dc=bd;ad:updateDraw()return ad end,draw=function(ad) +_c.draw(ad) +ad:addDraw("button",function()local bd,cd=ad:getSize() +local dd=ab.getTextVerticalAlign(cd,cc)local __a +if(bc=="center")then +__a=math.floor((bd-dc:len())/2)elseif(bc=="right")then __a=bd-dc:len()end;ad:addText(__a+1,dd,dc) +ad:addFG(__a+1,dd,bb[ad:getForeground()or colors.white]:rep(dc:len()))end)end}_d.__index=_d;return setmetatable(_d,_c)end end aa["objects"]["MovableFrame"]=function(...) local ab,bb,cb,db=math.max,math.min,string.sub,string.rep return @@ -1200,6 +1302,295 @@ d_a+_ba-1)and(b_a<=d_a+aba-1)and(c_a>=_aa+bba-1)and(c_a<=_aa+cba-1)then bd=true _d=d_a-b_a;ad=_aa-c_a;return true end end;return true end end,mouseUpHandler=function(__a,...) bd=false;return bc.mouseUpHandler(__a,...)end,setParent=function(__a,a_a,...) bc.setParent(__a,a_a,...)dc=a_a;return __a end}dd.__index=dd;return setmetatable(dd,bc)end end +aa["objects"]["Menubar"]=function(...)local ab=da("utils")local bb=da("tHex") +return +function(cb,db) +local _c=db.getObject("List")(cb,db)local ac="Menubar"local bc={}_c:setSize(30,1)_c:setZIndex(5)local cc=0 +local dc,_d=1,1;local ad=true +local function bd()local cd=0;local dd=_c:getWidth()local __a=_c:getAll()for n=1,#__a do cd=cd+ +__a[n].text:len()+dc*2 end;return +math.max(cd-dd,0)end +bc={init=function(cd)local dd=cd:getParent()cd:listenEvent("mouse_click") +cd:listenEvent("mouse_drag")cd:listenEvent("mouse_scroll")return _c.init(cd)end,getType=function(cd)return +ac end,getBase=function(cd)return _c end,setSpace=function(cd,dd)dc=dd or dc;cd:updateDraw() +return cd end,getSpace=function(cd)return dc end,setScrollable=function(cd,dd)ad=dd +if(dd==nil)then ad=true end;return cd end,getScrollable=function(cd)return ad end,mouseHandler=function(cd,dd,__a,a_a) +if +(_c:getBase().mouseHandler(cd,dd,__a,a_a))then local b_a,c_a=cd:getAbsolutePosition()local d_a,_aa=cd:getSize()local aaa=0 +local baa=cd:getAll() +for n=1,#baa do +if(baa[n]~=nil)then +if +(b_a+aaa<=__a+cc)and( +b_a+aaa+baa[n].text:len()+ (dc*2)>__a+cc)and(c_a==a_a)then +cd:setValue(baa[n])cd:sendEvent(event,cd,event,0,__a,a_a,baa[n])end;aaa=aaa+baa[n].text:len()+dc*2 end end;cd:updateDraw()return true end end,scrollHandler=function(cd,dd,__a,a_a) +if +(_c:getBase().scrollHandler(cd,dd,__a,a_a))then if(ad)then cc=cc+dd;if(cc<0)then cc=0 end;local b_a=bd()if(cc>b_a)then cc=b_a end +cd:updateDraw()end;return true end;return false end,draw=function(cd) +_c.draw(cd) +cd:addDraw("list",function()local dd=cd:getParent()local __a,a_a=cd:getSize()local b_a=""local c_a="" +local d_a=""local _aa,aaa=cd:getSelectionColor() +for baa,caa in pairs(cd:getAll())do +local daa= +(" "):rep(dc)..caa.text.. (" "):rep(dc)b_a=b_a..daa +if(caa==cd:getValue())then c_a=c_a.. +bb[_aa or caa.bgCol or +cd:getBackground()]:rep(daa:len())d_a=d_a.. +bb[aaa or +caa.FgCol or cd:getForeground()]:rep(daa:len())else c_a=c_a.. +bb[caa.bgCol or +cd:getBackground()]:rep(daa:len())d_a=d_a.. +bb[caa.FgCol or +cd:getForeground()]:rep(daa:len())end end +cd:addBlit(1,1,b_a:sub(cc+1,__a+cc),d_a:sub(cc+1,__a+cc),c_a:sub(cc+1,__a+cc))end)end}bc.__index=bc;return setmetatable(bc,_c)end end +aa["objects"]["Textfield"]=function(...)local ab=da("tHex") +local bb,cb,db,_c,ac=string.rep,string.find,string.gmatch,string.sub,string.len +return +function(bc,cc) +local dc=cc.getObject("ChangeableObject")(bc,cc)local _d="Textfield"local ad,bd,cd,dd=1,1,1,1;local __a={""}local a_a={""}local b_a={""}local c_a={}local d_a={} +local _aa,aaa,baa,caa;local daa,_ba=colors.lightBlue,colors.black;dc:setSize(30,12) +dc:setZIndex(5) +local function aba()if +(_aa~=nil)and(aaa~=nil)and(baa~=nil)and(caa~=nil)then return true end;return false end +local function bba()local cca,dca,_da,ada=_aa,aaa,baa,caa +if aba()then +if _aaaaa and baa>=caa then +cca=aaa;dca=_aa;if baa>caa then _da=caa;ada=baa else _da=baa;ada=caa end elseif baa>caa then +cca=aaa;dca=_aa;_da=caa;ada=baa end;return cca,dca,_da,ada end end +local function cba(cca)local dca,_da,ada,bda=bba(cca)local cda=__a[ada]local dda=__a[bda] +__a[ada]= +cda:sub(1,dca-1)..dda:sub(_da+1,dda:len())a_a[ada]=a_a[ada]:sub(1,dca-1).. +a_a[bda]:sub(_da+1,a_a[bda]:len()) +b_a[ada]=b_a[ada]:sub(1, +dca-1)..b_a[bda]:sub(_da+1,b_a[bda]:len()) +for i=bda,ada+1,-1 do if i~=ada then table.remove(__a,i)table.remove(a_a,i) +table.remove(b_a,i)end end;cd,dd=dca,ada;_aa,aaa,baa,caa=nil,nil,nil,nil;return cca end +local function dba(cca,dca)local _da={} +if(cca:len()>0)then +for ada in db(cca,dca)do local bda,cda=cb(cca,ada) +if +(bda~=nil)and(cda~=nil)then table.insert(_da,bda)table.insert(_da,cda) +local dda=_c(cca,1,(bda-1))local __b=_c(cca,cda+1,cca:len())cca=dda.. (":"):rep(ada:len()).. +__b end end end;return _da end +local function _ca(cca,dca)dca=dca or dd +local _da=ab[cca:getForeground()]:rep(b_a[dca]:len()) +local ada=ab[cca:getBackground()]:rep(a_a[dca]:len()) +for bda,cda in pairs(d_a)do local dda=dba(__a[dca],cda[1]) +if(#dda>0)then +for x=1,#dda/2 do +local __b=x*2 -1;if(cda[2]~=nil)then +_da=_da:sub(1,dda[__b]-1)..ab[cda[2]]:rep(dda[__b+1]- ( +dda[__b]-1)).. +_da:sub(dda[__b+1]+1,_da:len())end;if +(cda[3]~=nil)then +ada=ada:sub(1,dda[__b]-1).. + +ab[cda[3]]:rep(dda[__b+1]- (dda[__b]-1))..ada:sub(dda[__b+1]+1,ada:len())end end end end +for bda,cda in pairs(c_a)do +for dda,__b in pairs(cda)do local a_b=dba(__a[dca],__b) +if(#a_b>0)then for x=1,#a_b/2 do +local b_b=x*2 -1 +_da=_da:sub(1,a_b[b_b]-1).. + +ab[bda]:rep(a_b[b_b+1]- (a_b[b_b]-1)).._da:sub(a_b[b_b+1]+1,_da:len())end end end end;b_a[dca]=_da;a_a[dca]=ada;cca:updateDraw()end;local function aca(cca)for n=1,#__a do _ca(cca,n)end end +local bca={getType=function(cca)return _d end,setBackground=function(cca,dca) +dc.setBackground(cca,dca)aca(cca)return cca end,setForeground=function(cca,dca) +dc.setForeground(cca,dca)aca(cca)return cca end,setSelection=function(cca,dca,_da)_ba=dca or _ba +daa=_da or daa;return cca end,setSelectionFG=function(cca,dca) +return cca:setSelection(dca,nil)end,setSelectionBG=function(cca,dca)return cca:setSelection(nil,dca)end,getSelection=function(cca)return +_ba,daa end,getSelectionFG=function(cca)return _ba end,getSelectionBG=function(cca)return daa end,getLines=function(cca)return __a end,getLine=function(cca,dca)return +__a[dca]end,editLine=function(cca,dca,_da)__a[dca]=_da or __a[dca] +_ca(cca,dca)cca:updateDraw()return cca end,clear=function(cca) +__a={""}a_a={""}b_a={""}_aa,aaa,baa,caa=nil,nil,nil,nil;ad,bd,cd,dd=1,1,1,1 +cca:updateDraw()return cca end,addLine=function(cca,dca,_da) +if(dca~=nil)then +local ada=cca:getBackground()local bda=cca:getForeground() +if(#__a==1)and(__a[1]=="")then +__a[1]=dca;a_a[1]=ab[ada]:rep(dca:len()) +b_a[1]=ab[bda]:rep(dca:len())_ca(cca,1)return cca end +if(_da~=nil)then table.insert(__a,_da,dca) +table.insert(a_a,_da,ab[ada]:rep(dca:len())) +table.insert(b_a,_da,ab[bda]:rep(dca:len()))else table.insert(__a,dca) +table.insert(a_a,ab[ada]:rep(dca:len())) +table.insert(b_a,ab[bda]:rep(dca:len()))end end;_ca(cca,_da or#__a)cca:updateDraw()return cca end,addKeywords=function(cca,dca,_da)if( +c_a[dca]==nil)then c_a[dca]={}end;for ada,bda in pairs(_da)do +table.insert(c_a[dca],bda)end;cca:updateDraw()return cca end,addRule=function(cca,dca,_da,ada) +table.insert(d_a,{dca,_da,ada})cca:updateDraw()return cca end,editRule=function(cca,dca,_da,ada)for bda,cda in +pairs(d_a)do +if(cda[1]==dca)then d_a[bda][2]=_da;d_a[bda][3]=ada end end;cca:updateDraw()return cca end,removeRule=function(cca,dca) +for _da,ada in +pairs(d_a)do if(ada[1]==dca)then table.remove(d_a,_da)end end;cca:updateDraw()return cca end,setKeywords=function(cca,dca,_da) +c_a[dca]=_da;cca:updateDraw()return cca end,removeLine=function(cca,dca) +if(#__a>1)then table.remove(__a, +dca or#__a) +table.remove(a_a,dca or#a_a)table.remove(b_a,dca or#b_a)else __a={""}a_a={""}b_a={""}end;cca:updateDraw()return cca end,getTextCursor=function(cca)return +cd,dd end,getOffset=function(cca)return bd,ad end,setOffset=function(cca,dca,_da)bd=dca or bd;ad=_da or ad +cca:updateDraw()return cca end,getXOffset=function(cca,dca)return bd end,setXOffset=function(cca,dca)return +cca:setOffset(dca,nil)end,getYOffset=function(cca,dca)return ad end,setYOffset=function(cca,dca)return +cca:setOffset(nil,dca)end,getFocusHandler=function(cca)dc.getFocusHandler(cca) +local dca,_da=cca:getPosition() +cca:getParent():setCursor(true,dca+cd-bd,_da+dd-ad,cca:getForeground())end,loseFocusHandler=function(cca) +dc.loseFocusHandler(cca)cca:getParent():setCursor(false)end,keyHandler=function(cca,dca) +if +(dc.keyHandler(cca,event,dca))then local _da=cca:getParent()local ada,bda=cca:getPosition() +local cda,dda=cca:getSize() +if(dca==keys.backspace)then +if(aba())then cba(cca)else +if(__a[dd]=="")then +if(dd>1)then +table.remove(__a,dd)table.remove(b_a,dd)table.remove(a_a,dd)cd= +__a[dd-1]:len()+1;bd=cd-cda+1;if(bd<1)then bd=1 end;dd=dd-1 end elseif(cd<=1)then +if(dd>1)then cd=__a[dd-1]:len()+1;bd=cd-cda+1;if(bd<1)then +bd=1 end;__a[dd-1]=__a[dd-1]..__a[dd]b_a[dd-1]= +b_a[dd-1]..b_a[dd] +a_a[dd-1]=a_a[dd-1]..a_a[dd]table.remove(__a,dd)table.remove(b_a,dd) +table.remove(a_a,dd)dd=dd-1 end else __a[dd]=__a[dd]:sub(1,cd-2).. +__a[dd]:sub(cd,__a[dd]:len()) +b_a[dd]= +b_a[dd]:sub(1,cd-2)..b_a[dd]:sub(cd,b_a[dd]:len())a_a[dd]=a_a[dd]:sub(1,cd-2).. +a_a[dd]:sub(cd,a_a[dd]:len()) +if(cd>1)then cd=cd-1 end;if(bd>1)then if(cd +__a[dd]:len())then if(__a[dd+1]~=nil)then __a[dd]=__a[dd]..__a[dd+1]table.remove(__a, +dd+1)table.remove(a_a,dd+1) +table.remove(b_a,dd+1)end else +__a[dd]=__a[dd]:sub(1, +cd-1)..__a[dd]:sub(cd+1,__a[dd]:len())b_a[dd]=b_a[dd]:sub(1,cd-1).. +b_a[dd]:sub(cd+1,b_a[dd]:len()) +a_a[dd]=a_a[dd]:sub(1, +cd-1)..a_a[dd]:sub(cd+1,a_a[dd]:len())end end;_ca(cca)elseif(dca==keys.enter)then if(aba())then cba(cca)end +table.insert(__a,dd+1,__a[dd]:sub(cd,__a[dd]:len())) +table.insert(b_a,dd+1,b_a[dd]:sub(cd,b_a[dd]:len())) +table.insert(a_a,dd+1,a_a[dd]:sub(cd,a_a[dd]:len()))__a[dd]=__a[dd]:sub(1,cd-1) +b_a[dd]=b_a[dd]:sub(1,cd-1)a_a[dd]=a_a[dd]:sub(1,cd-1)dd=dd+1;cd=1;bd=1;if(dd-ad>=dda)then +ad=ad+1 end;cca:setValue("")elseif(dca==keys.up)then +_aa,baa,aaa,caa=nil,nil,nil,nil +if(dd>1)then dd=dd-1;if(cd>__a[dd]:len()+1)then +cd=__a[dd]:len()+1 end;if(bd>1)then +if(cd1)then if(dd +__a[dd]:len()+1)then cd=__a[dd]:len()+1 end +if(bd>1)then if(cd=ad+dda)then ad=ad+1 end end elseif(dca==keys.right)then _aa,baa,aaa,caa=nil,nil,nil,nil;cd=cd+1 +if(dd<#__a)then if(cd> +__a[dd]:len()+1)then cd=1;dd=dd+1 end elseif +(cd>__a[dd]:len())then cd=__a[dd]:len()+1 end;if(cd<1)then cd=1 end +if(cd=cda+bd)then bd=cd-cda+1 end;if(bd<1)then bd=1 end elseif(dca==keys.left)then _aa,baa,aaa,caa=nil,nil,nil,nil;cd=cd-1 +if(cd>=1)then if( +cd=cda+bd)then bd=cd end end;if(dd>1)then +if(cd<1)then dd=dd-1;cd=__a[dd]:len()+1;bd=cd-cda+1 end end;if(cd<1)then cd=1 end;if(bd<1)then bd=1 end elseif(dca== +keys.tab)then +if(cd%3 ==0)then +__a[dd]=__a[dd]:sub(1,cd-1).." ".. +__a[dd]:sub(cd,__a[dd]:len()) +b_a[dd]=b_a[dd]:sub(1,cd-1)..ab[cca:getForeground()].. +b_a[dd]:sub(cd,b_a[dd]:len()) +a_a[dd]=a_a[dd]:sub(1,cd-1)..ab[cca:getBackground()].. +a_a[dd]:sub(cd,a_a[dd]:len())cd=cd+1 end +while cd%3 ~=0 do +__a[dd]=__a[dd]:sub(1,cd-1).." ".. +__a[dd]:sub(cd,__a[dd]:len()) +b_a[dd]=b_a[dd]:sub(1,cd-1)..ab[cca:getForeground()].. +b_a[dd]:sub(cd,b_a[dd]:len()) +a_a[dd]=a_a[dd]:sub(1,cd-1)..ab[cca:getBackground()].. +a_a[dd]:sub(cd,a_a[dd]:len())cd=cd+1 end end +if not +( (ada+cd-bd>=ada and ada+cd-bd=bda and bda+dd-adcca:getX()+ +cda-1)then __b=cca:getX()+cda-1 end;local a_b=(dd-ad=cda+bd)then bd=bd+1 end;_ca(cca) +cca:setValue("") +if not +( (ada+cd-bd>=ada and ada+cd-bd=bda and bda+dd-adcca:getX()+ +cda-1)then __b=cca:getX()+cda-1 end;local a_b=(dd-ad_da-cda+bd then cd=_da-cda+bd;dd=ada-dda+ +ad;if cd>__a[dd]:len()then +cd=__a[dd]:len()+1 end;aaa=cd;caa=dd +if cd#__a- (c_b-1))then +ad=#__a- (c_b-1)end;if(ad<1)then ad=1 end +if(cda+cd-bd>=cda and cda+cd-bd< +cda+b_b)and +(a_b+dd-ad>=a_b and a_b+dd-ad__a[dd]:len())then +cd=__a[dd]:len()+1;_aa=cd end +if(cd__a[caa]:len())then aaa=__a[caa]:len()+1 end +if(_aa==aaa)and(baa==caa)then _aa,aaa,baa,caa=nil,nil,nil,nil end;cca:updateDraw()end;return true end end,eventHandler=function(cca,dca,_da,ada,bda,cda) +if +(dc.eventHandler(cca,dca,_da,ada,bda,cda))then +if(dca=="paste")then +if(cca:isFocused())then local dda=cca:getParent() +local __b,a_b=cca:getForeground(),cca:getBackground()local b_b,c_b=cca:getSize() +__a[dd]=__a[dd]:sub(1,cd-1).._da.. +__a[dd]:sub(cd,__a[dd]:len()) +b_a[dd]=b_a[dd]:sub(1,cd-1)..ab[__b]:rep(_da:len()).. +b_a[dd]:sub(cd,b_a[dd]:len()) +a_a[dd]=a_a[dd]:sub(1,cd-1)..ab[a_b]:rep(_da:len()).. +a_a[dd]:sub(cd,a_a[dd]:len())cd=cd+_da:len()if(cd>=b_b+bd)then bd=(cd+1)-b_b end +local d_b,_ab=cca:getPosition() +dda:setCursor(true,d_b+cd-bd,_ab+dd-ad,__b)_ca(cca)cca:updateDraw()end end end end,draw=function(cca) +dc.draw(cca) +cca:addDraw("textfield",function()local dca=cca:getParent()local _da,ada=cca:getPosition() +local bda,cda=cca:getSize()local dda=ab[cca:getBackground()] +local __b=ab[cca:getForeground()] +for n=1,cda do local a_b=""local b_b=""local c_b=""if __a[n+ad-1]then a_b=__a[n+ad-1] +c_b=b_a[n+ad-1]b_b=a_a[n+ad-1]end +a_b=_c(a_b,bd,bda+bd-1)b_b=bb(dda,bda)c_b=bb(__b,bda)cca:addText(1,n,a_b) +cca:addBG(1,n,b_b)cca:addFG(1,n,c_b)cca:addBlit(1,n,a_b,c_b,b_b)end +if _aa and aaa and baa and caa then local a_b,b_b,c_b,d_b=bba(cca) +for n=c_b,d_b do +local _ab=#__a[n]local aab=0 +if n==c_b and n==d_b then aab=a_b-1 +_ab=_ab- (a_b-1)- (_ab-b_b)elseif n==d_b then _ab=_ab- (_ab-b_b)elseif n==c_b then _ab=_ab- (a_b-1)aab=a_b-1 end;cca:addBG(1 +aab,n,bb(ab[daa],_ab)) +cca:addFG(1 +aab,n,bb(ab[_ba],_ab))end end end)end,load=function(cca) +cca:listenEvent("mouse_click")cca:listenEvent("mouse_up") +cca:listenEvent("mouse_scroll")cca:listenEvent("mouse_drag") +cca:listenEvent("key")cca:listenEvent("char") +cca:listenEvent("other_event")end}bca.__index=bca;return setmetatable(bca,dc)end end aa["objects"]["Flexbox"]=function(...) local function ab(bb,cb)local db=0;local _c=0;local ac=12;local bc,cc=bb:getSize() local dc={getFlexGrow=function(_d) @@ -1212,13 +1603,13 @@ function(bb,cb) local db=cb.getObject("ScrollableFrame")(bb,cb)local _c="Flexbox"local ac="row"local bc=1;local cc="flex-start"local dc="nowrap"local _d={}local ad={} local bd=false local cd=ab({getHeight=function(d_a)return 0 end,getWidth=function(d_a)return 0 end,getPosition=function(d_a)return 0,0 end,getSize=function(d_a)return 0,0 end,isType=function(d_a)return -false end,getType=function(d_a)return"lineBreakFakeObject"end,setPosition=function(d_a)end,setSize=function(d_a)end})cd:setFlexBasis(0) +false end,getType=function(d_a)return"lineBreakFakeObject"end,setPosition=function(d_a)end,setSize=function(d_a)end}) +cd:setFlexBasis(0):setFlexGrow(0):setFlexShrink(0) local function dd(d_a) if(dc=="nowrap")then ad={}local _aa=1;local aaa=1;local baa=1 -for caa,daa in pairs(_d)do if( -ad[_aa]==nil)then ad[_aa]={offset=1}end;local _ba= -ac=="row"and daa:getHeight()or daa:getWidth()if _ba>aaa then -aaa=_ba end +for caa,daa in pairs(_d)do if(ad[_aa]==nil)then +ad[_aa]={offset=1}end +local _ba=ac=="row"and daa:getHeight()or daa:getWidth()if _ba>aaa then aaa=_ba end if(daa==cd)then baa=baa+aaa+bc;aaa=1;_aa=_aa+1 ad[_aa]={offset=baa}else table.insert(ad[_aa],daa)end end elseif(dc=="wrap")then ad={}local _aa=1;local aaa=1;local baa=ac=="row"and d_a:getWidth()or d_a:getHeight()local caa=0;local daa=1 @@ -1304,95 +1695,297 @@ d_a:addDraw("flexboxDraw",function()if bd then b_a(d_a)end end,1)end} for d_a,_aa in pairs(cb.getObjects())do c_a["add"..d_a]=function(aaa,baa) local caa=db["add"..d_a](aaa,baa)local daa=ab(caa,cb)table.insert(_d,daa)bd=true;return daa end end;c_a.__index=c_a;return setmetatable(c_a,db)end end -aa["objects"]["ScrollableFrame"]=function(...) -local ab,bb,cb,db=math.max,math.min,string.sub,string.rep +aa["objects"]["Object"]=function(...)local ab=da("basaltEvent") +local bb=da("utils")local cb=bb.uuid;local db,_c=table.unpack,string.sub return -function(_c,ac)local bc=ac.getObject("Frame")(_c,ac) -local cc="ScrollableFrame"local dc;local _d=0;local ad=0;local bd=true -local function cd(b_a)local c_a=0;local d_a=b_a:getChildren() -for _aa,aaa in pairs(d_a)do -if( -aaa.element.getWidth~=nil)and(aaa.element.getX~=nil)then -local baa,caa=aaa.element:getWidth(),aaa.element:getX()local daa=b_a:getWidth() -if -(aaa.element:getType()=="Dropdown")then if(aaa.element:isOpened())then -local _ba=aaa.element:getDropdownSize() -if(_ba+caa-daa>=c_a)then c_a=ab(_ba+caa-daa,0)end end end -if(baa+caa-daa>=c_a)then c_a=ab(baa+caa-daa,0)end end end;return c_a end -local function dd(b_a)local c_a=0;local d_a=b_a:getChildren() -for _aa,aaa in pairs(d_a)do -if -(aaa.element.getHeight~=nil)and(aaa.element.getY~=nil)then -local baa,caa=aaa.element:getHeight(),aaa.element:getY()local daa=b_a:getHeight() -if -(aaa.element:getType()=="Dropdown")then if(aaa.element:isOpened())then -local _ba,aba=aaa.element:getDropdownSize() -if(aba+caa-daa>=c_a)then c_a=ab(aba+caa-daa,0)end end end -if(baa+caa-daa>=c_a)then c_a=ab(baa+caa-daa,0)end end end;return c_a end -local function __a(b_a,c_a)local d_a,_aa=b_a:getOffset()local aaa -if(_d==1)then -aaa=bd and cd(b_a)or ad -b_a:setOffset(bb(aaa,ab(0,d_a+c_a)),_aa)elseif(_d==0)then aaa=bd and dd(b_a)or ad -b_a:setOffset(d_a,bb(aaa,ab(0,_aa+c_a)))end;b_a:updateDraw()end -local a_a={getType=function()return cc end,isType=function(b_a,c_a)return -cc==c_a or bc.isType~=nil and bc.isType(c_a)or false end,setDirection=function(b_a,c_a)_d= -c_a=="horizontal"and 1 or c_a=="vertical"and 0 or -_d;return b_a end,setScrollAmount=function(b_a,c_a) -ad=c_a;bd=false;return b_a end,getBase=function(b_a)return bc end,load=function(b_a)bc.load(b_a) -b_a:listenEvent("mouse_scroll")end,removeChildren=function(b_a)bc.removeChildren(b_a) -b_a:listenEvent("mouse_scroll")end,setParent=function(b_a,c_a,...)bc.setParent(b_a,c_a,...) -dc=c_a;return b_a end,scrollHandler=function(b_a,c_a,d_a,_aa) -if -(bc:getBase().scrollHandler(b_a,c_a,d_a,_aa))then b_a:sortChildren() -for aaa,baa in -ipairs(b_a:getEvents("mouse_scroll"))do -if(baa.element.scrollHandler~=nil)then local caa,daa=0,0;if(b_a.getOffset~=nil)then -caa,daa=b_a:getOffset()end -if(baa.element.getIgnoreOffset())then caa,daa=0,0 end;if(baa.element.scrollHandler(baa.element,c_a,d_a+caa,_aa+daa))then -return true end end end;__a(b_a,c_a,d_a,_aa)b_a:clearFocusedChild()return true end end,draw=function(b_a) -bc.draw(b_a) -b_a:addDraw("scrollableFrame",function()if(bd)then __a(b_a,0)end end,0)end}a_a.__index=a_a;return setmetatable(a_a,bc)end end -aa["objects"]["Menubar"]=function(...)local ab=da("utils")local bb=da("tHex") +function(ac,bc)ac=ac or cb() +assert(bc~=nil, +"Unable to find basalt instance! ID: "..ac)local cc="Object"local dc,_d=true,false;local ad=ab()local bd={}local cd={}local dd +local __a={init=function(a_a) +if(_d)then return false end;_d=true;return true end,load=function(a_a)end,getType=function(a_a)return cc end,isType=function(a_a,b_a)return cc== +b_a end,getProperty=function(a_a,b_a) +local c_a=a_a["get"..b_a:gsub("^%l",string.upper)]if(c_a~=nil)then return c_a(a_a)end end,setProperty=function(a_a,b_a,...) +local c_a=a_a[ +"set"..b_a:gsub("^%l",string.upper)]if(c_a~=nil)then return c_a(a_a,...)end end,getName=function(a_a)return +ac end,getParent=function(a_a)return dd end,setParent=function(a_a,b_a,c_a)if(c_a)then dd=b_a;return a_a end +if(b_a.getType~= +nil and b_a:isType("Container"))then a_a:remove() +b_a:addChild(a_a)if(a_a.show)then a_a:show()end;dd=b_a end;return a_a end,updateEvents=function(a_a)for b_a,c_a in +pairs(cd)do dd:removeEvent(b_a,a_a) +if(c_a)then dd:addEvent(b_a,a_a)end end;return a_a end,listenEvent=function(a_a,b_a,c_a)if( +dd~=nil)then +if(c_a)or(c_a==nil)then cd[b_a]=true;dd:addEvent(b_a,a_a)elseif +(c_a==false)then cd[b_a]=false;dd:removeEvent(b_a,a_a)end end +return a_a end,getZIndex=function(a_a)return +1 end,enable=function(a_a)dc=true;return a_a end,disable=function(a_a)dc=false;return a_a end,isEnabled=function(a_a)return +dc end,remove=function(a_a)if(dd~=nil)then dd:removeChild(a_a)end +a_a:updateDraw()return a_a end,getBaseFrame=function(a_a)if(dd~=nil)then +return dd:getBaseFrame()end;return a_a end,onEvent=function(a_a,...) +for b_a,c_a in +pairs(table.pack(...))do if(type(c_a)=="function")then +a_a:registerEvent("other_event",c_a)end end;return a_a end,getEventSystem=function(a_a)return +ad end,getRegisteredEvents=function(a_a)return bd end,registerEvent=function(a_a,b_a,c_a) +if(dd~=nil)then dd:addEvent(b_a,a_a)end;ad:registerEvent(b_a,c_a) +if(bd[b_a]==nil)then bd[b_a]={}end;table.insert(bd[b_a],c_a)end,removeEvent=function(a_a,b_a,c_a)if( +ad:getEventCount(b_a)<1)then +if(dd~=nil)then dd:removeEvent(b_a,a_a)end end;ad:removeEvent(b_a,c_a)if( +bd[b_a]~=nil)then table.remove(bd[b_a],c_a)if(#bd[b_a]==0)then +bd[b_a]=nil end end end,eventHandler=function(a_a,b_a,...) +local c_a=a_a:sendEvent("other_event",b_a,...)if(c_a~=nil)then return c_a end end,customEventHandler=function(a_a,b_a,...) +local c_a=a_a:sendEvent("custom_event",b_a,...)if(c_a~=nil)then return c_a end;return true end,sendEvent=function(a_a,b_a,...)if( +b_a=="other_event")or(b_a=="custom_event")then return +ad:sendEvent(b_a,a_a,...)end;return +ad:sendEvent(b_a,a_a,b_a,...)end,onClick=function(a_a,...) +for b_a,c_a in +pairs(table.pack(...))do if(type(c_a)=="function")then +a_a:registerEvent("mouse_click",c_a)end end;return a_a end,onClickUp=function(a_a,...)for b_a,c_a in +pairs(table.pack(...))do +if(type(c_a)=="function")then a_a:registerEvent("mouse_up",c_a)end end;return a_a end,onRelease=function(a_a,...) +for b_a,c_a in +pairs(table.pack(...))do if(type(c_a)=="function")then +a_a:registerEvent("mouse_release",c_a)end end;return a_a end,onScroll=function(a_a,...) +for b_a,c_a in +pairs(table.pack(...))do if(type(c_a)=="function")then +a_a:registerEvent("mouse_scroll",c_a)end end;return a_a end,onHover=function(a_a,...) +for b_a,c_a in +pairs(table.pack(...))do if(type(c_a)=="function")then +a_a:registerEvent("mouse_hover",c_a)end end;return a_a end,onLeave=function(a_a,...) +for b_a,c_a in +pairs(table.pack(...))do if(type(c_a)=="function")then +a_a:registerEvent("mouse_leave",c_a)end end;return a_a end,onDrag=function(a_a,...) +for b_a,c_a in +pairs(table.pack(...))do if(type(c_a)=="function")then +a_a:registerEvent("mouse_drag",c_a)end end;return a_a end,onKey=function(a_a,...)for b_a,c_a in +pairs(table.pack(...))do +if(type(c_a)=="function")then a_a:registerEvent("key",c_a)end end;return a_a end,onChar=function(a_a,...)for b_a,c_a in +pairs(table.pack(...))do +if(type(c_a)=="function")then a_a:registerEvent("char",c_a)end end;return a_a end,onKeyUp=function(a_a,...)for b_a,c_a in +pairs(table.pack(...))do +if(type(c_a)=="function")then a_a:registerEvent("key_up",c_a)end end;return a_a end}__a.__index=__a;return __a end end +aa["objects"]["Input"]=function(...)local ab=da("utils")local bb=da("tHex") return function(cb,db) -local _c=db.getObject("List")(cb,db)local ac="Menubar"local bc={}_c:setSize(30,1)_c:setZIndex(5)local cc=0 -local dc,_d=1,1;local ad=true -local function bd()local cd=0;local dd=_c:getWidth()local __a=_c:getAll()for n=1,#__a do cd=cd+ -__a[n].text:len()+dc*2 end;return -math.max(cd-dd,0)end -bc={init=function(cd)local dd=cd:getParent()cd:listenEvent("mouse_click") -cd:listenEvent("mouse_drag")cd:listenEvent("mouse_scroll")return _c.init(cd)end,getType=function(cd)return -ac end,getBase=function(cd)return _c end,setSpace=function(cd,dd)dc=dd or dc;cd:updateDraw() -return cd end,getSpace=function(cd)return dc end,setScrollable=function(cd,dd)ad=dd -if(dd==nil)then ad=true end;return cd end,getScrollable=function(cd)return ad end,mouseHandler=function(cd,dd,__a,a_a) +local _c=db.getObject("ChangeableObject")(cb,db)local ac="Input"local bc="text"local cc=0;_c:setZIndex(5)_c:setValue("") +_c:setSize(12,1)local dc=1;local _d=1;local ad=""local bd=colors.black;local cd=colors.lightGray;local dd=ad +local __a=false +local a_a={load=function(b_a)b_a:listenEvent("mouse_click") +b_a:listenEvent("key")b_a:listenEvent("char") +b_a:listenEvent("other_event")b_a:listenEvent("mouse_drag")end,getType=function(b_a)return +ac end,isType=function(b_a,c_a)return +ac==c_a or _c.isType~=nil and _c.isType(c_a)or false end,setDefaultFG=function(b_a,c_a)return b_a:setDefaultText(b_a,ad,c_a, +nil)end,setDefaultBG=function(b_a,c_a)return b_a:setDefaultText(b_a,ad, +nil,c_a)end,setDefaultText=function(b_a,c_a,d_a,_aa) +ad=c_a;cd=d_a or cd;bd=_aa or bd;if(b_a:isFocused())then dd=""else dd=ad end +b_a:updateDraw()return b_a end,getDefaultText=function(b_a)return ad,cd, +bd end,setOffset=function(b_a,c_a)_d=c_a;b_a:updateDraw()return b_a end,getOffset=function(b_a)return +_d end,setTextOffset=function(b_a,c_a)dc=c_a;b_a:updateDraw()return b_a end,getTextOffset=function(b_a)return +dc end,setInputType=function(b_a,c_a)bc=c_a;b_a:updateDraw()return b_a end,getInputType=function(b_a)return +bc end,setValue=function(b_a,c_a)_c.setValue(b_a,tostring(c_a)) +if not(__a)then dc= +tostring(c_a):len()+1 +_d=math.max(1,dc-b_a:getWidth()+1) +if(b_a:isFocused())then local d_a=b_a:getParent() +local _aa,aaa=b_a:getPosition() +d_a:setCursor(true,_aa+dc-_d,aaa+math.floor(b_a:getHeight()/2),b_a:getForeground())end end;b_a:updateDraw()return b_a end,getValue=function(b_a) +local c_a=_c.getValue(b_a) +return bc=="number"and tonumber(c_a)or c_a end,setInputLimit=function(b_a,c_a) +cc=tonumber(c_a)or cc;b_a:updateDraw()return b_a end,getInputLimit=function(b_a)return cc end,getFocusHandler=function(b_a) +_c.getFocusHandler(b_a)local c_a=b_a:getParent() +if(c_a~=nil)then local d_a,_aa=b_a:getPosition()dd=""if(ad~= +"")then b_a:updateDraw()end +c_a:setCursor(true,d_a+dc-_d,_aa+math.max(math.ceil( +b_a:getHeight()/2 -1,1)),b_a:getForeground())end end,loseFocusHandler=function(b_a) +_c.loseFocusHandler(b_a)local c_a=b_a:getParent()dd=ad +if(ad~="")then b_a:updateDraw()end;c_a:setCursor(false)end,keyHandler=function(b_a,c_a) if -(_c:getBase().mouseHandler(cd,dd,__a,a_a))then local b_a,c_a=cd:getAbsolutePosition()local d_a,_aa=cd:getSize()local aaa=0 -local baa=cd:getAll() -for n=1,#baa do -if(baa[n]~=nil)then +(_c.keyHandler(b_a,c_a))then local d_a,_aa=b_a:getSize()local aaa=b_a:getParent()__a=true if -(b_a+aaa<=__a+cc)and( -b_a+aaa+baa[n].text:len()+ (dc*2)>__a+cc)and(c_a==a_a)then -cd:setValue(baa[n])cd:sendEvent(event,cd,event,0,__a,a_a,baa[n])end;aaa=aaa+baa[n].text:len()+dc*2 end end;cd:updateDraw()return true end end,scrollHandler=function(cd,dd,__a,a_a) +(c_a==keys.backspace)then local _ba=tostring(_c.getValue()) +if(dc>1)then b_a:setValue(_ba:sub(1,dc-2).. +_ba:sub(dc,_ba:len()))dc=math.max( +dc-1,1)if(dc<_d)then _d=math.max(_d-1,1)end end end +if(c_a==keys.enter)then aaa:clearFocusedChild(b_a)end +if(c_a==keys.right)then +local _ba=tostring(_c.getValue()):len()dc=dc+1;if(dc>_ba)then dc=_ba+1 end;dc=math.max(dc,1)if(dc<_d)or +(dc>=d_a+_d)then _d=dc-d_a+1 end;_d=math.max(_d,1)end;if(c_a==keys.left)then dc=dc-1;if(dc>=1)then +if(dc<_d)or(dc>=d_a+_d)then _d=dc end end;dc=math.max(dc,1) +_d=math.max(_d,1)end +local baa,caa=b_a:getPosition()local daa=tostring(_c.getValue())b_a:updateDraw() +__a=false;return true end end,charHandler=function(b_a,c_a) if -(_c:getBase().scrollHandler(cd,dd,__a,a_a))then if(ad)then cc=cc+dd;if(cc<0)then cc=0 end;local b_a=bd()if(cc>b_a)then cc=b_a end -cd:updateDraw()end;return true end;return false end,draw=function(cd) -_c.draw(cd) -cd:addDraw("list",function()local dd=cd:getParent()local __a,a_a=cd:getSize()local b_a=""local c_a="" -local d_a=""local _aa,aaa=cd:getSelectionColor() -for baa,caa in pairs(cd:getAll())do -local daa= -(" "):rep(dc)..caa.text.. (" "):rep(dc)b_a=b_a..daa -if(caa==cd:getValue())then c_a=c_a.. -bb[_aa or caa.bgCol or -cd:getBackground()]:rep(daa:len())d_a=d_a.. -bb[aaa or -caa.FgCol or cd:getForeground()]:rep(daa:len())else c_a=c_a.. -bb[caa.bgCol or -cd:getBackground()]:rep(daa:len())d_a=d_a.. -bb[caa.FgCol or -cd:getForeground()]:rep(daa:len())end end -cd:addBlit(1,1,b_a:sub(cc+1,__a+cc),d_a:sub(cc+1,__a+cc),c_a:sub(cc+1,__a+cc))end)end}bc.__index=bc;return setmetatable(bc,_c)end end +(_c.charHandler(b_a,c_a))then __a=true;local d_a,_aa=b_a:getSize()local aaa=_c.getValue() +if( +aaa:len()0)then +if( +tonumber(_c.getValue())==nil)then b_a:setValue(_ba)dc=dc-1 end end end else +b_a:setValue(aaa:sub(1,dc-1)..c_a..aaa:sub(dc,aaa:len()))dc=dc+1 end;if(dc>=d_a+_d)then _d=_d+1 end end;local baa,caa=b_a:getPosition() +local daa=tostring(_c.getValue())__a=false;b_a:updateDraw()return true end end,mouseHandler=function(b_a,c_a,d_a,_aa) +if +(_c.mouseHandler(b_a,c_a,d_a,_aa))then local aaa=b_a:getParent()local baa,caa=b_a:getPosition() +local daa,_ba=b_a:getAbsolutePosition(baa,caa)local aba,bba=b_a:getSize()dc=d_a-daa+_d;local cba=_c.getValue()if(dc> +cba:len())then dc=cba:len()+1 end;if(dc<_d)then _d=dc-1 +if(_d<1)then _d=1 end end +aaa:setCursor(true,baa+dc-_d,caa+ +math.max(math.ceil(bba/2 -1,1)),b_a:getForeground())return true end end,dragHandler=function(b_a,c_a,d_a,_aa,aaa,baa) +if +(b_a:isFocused())then if(b_a:isCoordsInObject(d_a,_aa))then +if(_c.dragHandler(b_a,c_a,d_a,_aa,aaa,baa))then return true end end +local caa=b_a:getParent()caa:clearFocusedChild()end end,draw=function(b_a) +_c.draw(b_a) +b_a:addDraw("input",function()local c_a=b_a:getParent()local d_a,_aa=b_a:getPosition() +local aaa,baa=b_a:getSize()local caa=ab.getTextVerticalAlign(baa,textVerticalAlign) +local daa=tostring(_c.getValue())local _ba=b_a:getBackground()local aba=b_a:getForeground()local bba;if( +daa:len()<=0)then bba=dd;_ba=bd or _ba;aba=cd or aba end +bba=dd;if(daa~="")then bba=daa end;bba=bba:sub(_d,aaa+_d-1)local cba=aaa- +bba:len()if(cba<0)then cba=0 end +if +(bc=="password")and(daa~="")then bba=string.rep("*",bba:len())end;bba=bba..string.rep(" ",cba) +b_a:addBlit(1,caa,bba,bb[aba]:rep(bba:len()),bb[_ba]:rep(bba:len()))if(b_a:isFocused())then +c_a:setCursor(true,d_a+dc-_d,_aa+ +math.floor(b_a:getHeight()/2),b_a:getForeground())end end)end}a_a.__index=a_a;return setmetatable(a_a,_c)end end +aa["objects"]["Thread"]=function(...) +return +function(ab,bb) +local cb=bb.getObject("Object")(ab,bb)local db="Thread"local _c;local ac;local bc=false;local cc +local dc={getType=function(_d)return db end,start=function(_d,ad)if(ad==nil)then +error("Function provided to thread is nil")end;_c=ad;ac=coroutine.create(_c) +bc=true;cc=nil;local bd,cd=coroutine.resume(ac)cc=cd;if not(bd)then +if(cd~="Terminated")then error( +"Thread Error Occurred - "..cd)end end +_d:listenEvent("mouse_click")_d:listenEvent("mouse_up") +_d:listenEvent("mouse_scroll")_d:listenEvent("mouse_drag")_d:listenEvent("key") +_d:listenEvent("key_up")_d:listenEvent("char") +_d:listenEvent("other_event")return _d end,getStatus=function(_d,ad)if( +ac~=nil)then return coroutine.status(ac)end;return nil end,stop=function(_d,ad) +bc=false;_d:listenEvent("mouse_click",false) +_d:listenEvent("mouse_up",false)_d:listenEvent("mouse_scroll",false) +_d:listenEvent("mouse_drag",false)_d:listenEvent("key",false) +_d:listenEvent("key_up",false)_d:listenEvent("char",false) +_d:listenEvent("other_event",false)return _d end,mouseHandler=function(_d,...) +_d:eventHandler("mouse_click",...)end,mouseUpHandler=function(_d,...)_d:eventHandler("mouse_up",...)end,mouseScrollHandler=function(_d,...) +_d:eventHandler("mouse_scroll",...)end,mouseDragHandler=function(_d,...) +_d:eventHandler("mouse_drag",...)end,mouseMoveHandler=function(_d,...) +_d:eventHandler("mouse_move",...)end,keyHandler=function(_d,...)_d:eventHandler("key",...)end,keyUpHandler=function(_d,...) +_d:eventHandler("key_up",...)end,charHandler=function(_d,...)_d:eventHandler("char",...)end,eventHandler=function(_d,ad,...) +cb.eventHandler(_d,ad,...) +if(bc)then +if(coroutine.status(ac)=="suspended")then if(cc~=nil)then +if(ad~=cc)then return end;cc=nil end +local bd,cd=coroutine.resume(ac,ad,...)cc=cd;if not(bd)then if(cd~="Terminated")then +error("Thread Error Occurred - "..cd)end end else +_d:stop()end end end}dc.__index=dc;return setmetatable(dc,cb)end end +aa["objects"]["Image"]=function(...)local ab=da("images")local bb=da("bimg") +local cb,db,_c,ac=table.unpack,string.sub,math.max,math.min +return +function(bc,cc)local dc=cc.getObject("VisualObject")(bc,cc) +local _d="Image"local ad=bb()local bd=ad.getFrameObject(1)local cd;local dd;local __a=1;local a_a=false;local b_a +local c_a=false;local d_a=true;local _aa,aaa=0,0;dc:setSize(24,8)dc:setZIndex(2) +local function baa(_ba)local aba={} +for dba,_ca in +pairs(colors)do if(type(_ca)=="number")then +aba[dba]={term.nativePaletteColor(_ca)}end end;local bba=ad.getMetadata("palette")if(bba~=nil)then for dba,_ca in pairs(bba)do +aba[dba]=tonumber(_ca)end end +local cba=ad.getFrameData("palette")cc.log(cba)if(cba~=nil)then +for dba,_ca in pairs(cba)do aba[dba]=tonumber(_ca)end end;return aba end;local function caa() +if(d_a)then if(ad~=nil)then dc:setSize(ad.getSize())end end end +local daa={getType=function(_ba)return _d end,isType=function(_ba,aba)return +_d==aba or +dc.isType~=nil and dc.isType(aba)or false end,setOffset=function(_ba,aba,bba,cba) +if(cba)then _aa=_aa+ +aba or 0;aaa=aaa+bba or 0 else _aa=aba or _aa;aaa=bba or aaa end;_ba:updateDraw()return _ba end,setXOffset=function(_ba,aba)return _ba:setOffset(_ba,aba, +nil)end,setYOffset=function(_ba,aba)return +_ba:setOffset(_ba,nil,aba)end,setSize=function(_ba,aba,bba)dc:setSize(aba,bba) +d_a=false;return _ba end,getOffset=function(_ba)return _aa,aaa end,getXOffset=function(_ba)return _aa end,getYOffset=function(_ba)return +aaa end,selectFrame=function(_ba,aba)if(ad.getFrameObject(aba)==nil)then +ad.addFrame(aba)end;bd=ad.getFrameObject(aba) +dd=bd.getImage(aba)__a=aba;_ba:updateDraw()end,addFrame=function(_ba,aba) +ad.addFrame(aba)return _ba end,getFrame=function(_ba,aba)return ad.getFrame(aba)end,getFrameObject=function(_ba,aba)return +ad.getFrameObject(aba)end,removeFrame=function(_ba,aba)ad.removeFrame(aba)return _ba end,moveFrame=function(_ba,aba,bba) +ad.moveFrame(aba,bba)return _ba end,getFrames=function(_ba)return ad.getFrames()end,getFrameCount=function(_ba)return +#ad.getFrames()end,getActiveFrame=function(_ba)return __a end,loadImage=function(_ba,aba)if +(fs.exists(aba))then local bba=ab.loadBIMG(aba)ad=bb(bba)__a=1 +bd=ad.getFrameObject(1)cd=ad.createBimg()dd=bd.getImage()caa() +_ba:updateDraw()end;return +_ba end,setPath=function(_ba,aba)return +_ba:loadImage(aba)end,setImage=function(_ba,aba)if(type(aba)=="table")then ad=bb(aba)__a=1 +bd=ad.getFrameObject(1)cd=ad.createBimg()dd=bd.getImage()caa() +_ba:updateDraw()end;return _ba end,clear=function(_ba) +ad=bb()bd=ad.getFrameObject(1)dd=nil;_ba:updateDraw()return _ba end,getImage=function(_ba)return +ad.createBimg()end,getImageFrame=function(_ba,aba)return bd.getImage(aba)end,usePalette=function(_ba,aba)c_a= +aba~=nil and aba or true;return _ba end,getUsePalette=function(_ba)return +c_a end,setUsePalette=function(_ba,aba)return _ba:usePalette(aba)end,play=function(_ba,aba) +if +(ad.getMetadata("animated"))then +local bba= +ad.getMetadata("duration")or ad.getMetadata("secondsPerFrame")or 0.2;_ba:listenEvent("other_event") +b_a=os.startTimer(bba)a_a=aba or false end;return _ba end,setPlay=function(_ba,aba)return +_ba:play(aba)end,stop=function(_ba)os.cancelTimer(b_a)b_a=nil;a_a=false +return _ba end,eventHandler=function(_ba,aba,bba,...) +dc.eventHandler(_ba,aba,bba,...) +if(aba=="timer")then +if(bba==b_a)then +if(ad.getFrame(__a+1)~=nil)then __a=__a+1 +_ba:selectFrame(__a) +local cba= +ad.getFrameData(__a,"duration")or ad.getMetadata("secondsPerFrame")or 0.2;b_a=os.startTimer(cba)else +if(a_a)then __a=1;_ba:selectFrame(__a) +local cba= +ad.getFrameData(__a,"duration")or ad.getMetadata("secondsPerFrame")or 0.2;b_a=os.startTimer(cba)end end;_ba:updateDraw()end end end,setMetadata=function(_ba,aba,bba) +ad.setMetadata(aba,bba)return _ba end,getMetadata=function(_ba,aba)return ad.getMetadata(aba)end,getFrameMetadata=function(_ba,aba,bba)return +ad.getFrameData(aba,bba)end,setFrameMetadata=function(_ba,aba,bba,cba) +ad.setFrameData(aba,bba,cba)return _ba end,blit=function(_ba,aba,bba,cba,dba,_ca)x=dba or x;y=_ca or y +bd.blit(aba,bba,cba,x,y)dd=bd.getImage()_ba:updateDraw()return _ba end,setText=function(_ba,aba,bba,cba)x= +bba or x;y=cba or y;bd.text(aba,x,y)dd=bd.getImage() +_ba:updateDraw()return _ba end,setBg=function(_ba,aba,bba,cba)x=bba or x;y= +cba or y;bd.bg(aba,x,y)dd=bd.getImage() +_ba:updateDraw()return _ba end,setFg=function(_ba,aba,bba,cba)x=bba or x +y=cba or y;bd.fg(aba,x,y)dd=bd.getImage()_ba:updateDraw()return _ba end,getImageSize=function(_ba)return +ad.getSize()end,setImageSize=function(_ba,aba,bba)ad.setSize(aba,bba) +dd=bd.getImage()_ba:updateDraw()return _ba end,resizeImage=function(_ba,aba,bba) +local cba=ab.resizeBIMG(cd,aba,bba)ad=bb(cba)__a=1;bd=ad.getFrameObject(1)dd=bd.getImage() +_ba:updateDraw()return _ba end,draw=function(_ba) +dc.draw(_ba) +_ba:addDraw("image",function()local aba,bba=_ba:getSize()local cba,dba=_ba:getPosition() +local _ca,aca=_ba:getParent():getSize()local bca,cca=_ba:getParent():getOffset() +if +(cba-bca>_ca)or(dba-cca>aca)or(cba-bca+aba<1)or(dba- +cca+bba<1)then return end +if(c_a)then _ba:getParent():setPalette(baa(__a))end +if(dd~=nil)then +for dca,_da in pairs(dd)do +if(dca+aaa<=bba)and(dca+aaa>=1)then +local ada,bda,cda=_da[1],_da[2],_da[3]local dda=_c(1 -_aa,1)local __b=ac(aba-_aa,#ada) +ada=db(ada,dda,__b)bda=db(bda,dda,__b)cda=db(cda,dda,__b) +_ba:addBlit(_c(1 +_aa,1),dca+aaa,ada,bda,cda)end end end end)end}daa.__index=daa;return setmetatable(daa,dc)end end +aa["objects"]["MonitorFrame"]=function(...)local ab=da("basaltMon") +local bb,cb,db,_c=math.max,math.min,string.sub,string.rep +return +function(ac,bc)local cc=bc.getObject("BaseFrame")(ac,bc) +local dc="MonitorFrame"cc:setTerm(nil)local _d=false;local ad +local bd={getType=function()return dc end,isType=function(cd,dd) +return dc==dd or cc.isType~=nil and +cc.isType(dd)or false end,getBase=function(cd)return cc end,setMonitor=function(cd,dd) +if +(type(dd)=="string")then local __a=peripheral.wrap(dd) +if(__a~=nil)then cd:setTerm(__a)end elseif(type(dd)=="table")then cd:setTerm(dd)end;return cd end,setMonitorGroup=function(cd,dd) +ad=ab(dd)cd:setTerm(ad)_d=true;return cd end,render=function(cd)if(cd:getTerm()~= +nil)then cc.render(cd)end end,show=function(cd) +cc:getBase().show(cd)bc.setActiveFrame(cd) +for dd,__a in pairs(colors)do if(type(__a)=="number")then +termObject.setPaletteColor(__a,colors.packRGB(term.nativePaletteColor((__a))))end end +for dd,__a in pairs(colorTheme)do +if(type(__a)=="number")then +termObject.setPaletteColor( +type(dd)=="number"and dd or colors[dd],__a)else local a_a,b_a,c_a=table.unpack(__a) +termObject.setPaletteColor( +type(dd)=="number"and dd or colors[dd],a_a,b_a,c_a)end end;return cd end} +bd.mouseHandler=function(cd,dd,__a,a_a,b_a,c_a,...) +if(_d)then __a,a_a=ad.calculateClick(c_a,__a,a_a)end;cc.mouseHandler(cd,dd,__a,a_a,b_a,c_a,...)end;bd.__index=bd;return setmetatable(bd,cc)end end aa["objects"]["Radio"]=function(...)local ab=da("utils")local bb=da("tHex") return function(cb,db) @@ -1431,84 +2024,704 @@ a_a:addBlit(bc[_aa].x+2,bc[_aa].y,aaa.text,bb[c_a]:rep(#aaa.text),bb[b_a]:rep( a_a:addBackgroundBox(bc[_aa].x,bc[_aa].y,1,1,_d or colors.black) a_a:addBlit(bc[_aa].x+2,bc[_aa].y,aaa.text,bb[aaa.fgCol]:rep(#aaa.text),bb[aaa.bgCol]:rep( #aaa.text))end end;return true end)end}__a.__index=__a;return setmetatable(__a,_c)end end -aa["objects"]["Dropdown"]=function(...)local ab=da("utils")local bb=da("tHex") +aa["objects"]["Pane"]=function(...) +return +function(ab,bb) +local cb=bb.getObject("VisualObject")(ab,bb)local db="Pane"cb:setSize(25,10) +local _c={getType=function(ac)return db end}_c.__index=_c;return setmetatable(_c,cb)end end +aa["objects"]["Progressbar"]=function(...) +return +function(ab,bb) +local cb=bb.getObject("ChangeableObject")(ab,bb)local db="Progressbar"local _c=0;cb:setZIndex(5)cb:setValue(false) +cb:setSize(25,3)local ac=colors.black;local bc=""local cc=colors.white;local dc=""local _d=0 +local ad={getType=function(bd)return db end,setDirection=function(bd,cd) +_d=cd;bd:updateDraw()return bd end,getDirection=function(bd)return _d end,setProgressBar=function(bd,cd,dd,__a) +ac=cd or ac;bc=dd or bc;cc=__a or cc;bd:updateDraw()return bd end,getProgressBar=function(bd)return +ac,bc,cc end,setActiveBarColor=function(bd,cd)return bd:setProgressBar(cd,nil,nil)end,getActiveBarColor=function(bd)return +ac end,setActiveBarSymbol=function(bd,cd)return bd:setProgressBar(nil,cd,nil)end,getActiveBarSymbol=function(bd)return +bc end,setActiveBarSymbolColor=function(bd,cd)return bd:setProgressBar(nil,nil,cd)end,getActiveBarSymbolColor=function(bd)return +cc end,setBackgroundSymbol=function(bd,cd)dc=cd:sub(1,1)bd:updateDraw()return bd end,getBackgroundSymbol=function(bd)return +dc end,setProgress=function(bd,cd) +if(cd>=0)and(cd<=100)and(_c~=cd)then _c=cd +bd:setValue(_c)if(_c==100)then bd:progressDoneHandler()end end;bd:updateDraw()return bd end,getProgress=function(bd)return +_c end,onProgressDone=function(bd,cd)bd:registerEvent("progress_done",cd) +return bd end,progressDoneHandler=function(bd) +bd:sendEvent("progress_done")end,draw=function(bd)cb.draw(bd) +bd:addDraw("progressbar",function() +local cd,dd=bd:getPosition()local __a,a_a=bd:getSize() +local b_a,c_a=bd:getBackground(),bd:getForeground() +if(b_a~=false)then bd:addBackgroundBox(1,1,__a,a_a,b_a)end;if(dc~="")then bd:addTextBox(1,1,__a,a_a,dc)end +if +(c_a~=false)then bd:addForegroundBox(1,1,__a,a_a,c_a)end +if(_d==1)then bd:addBackgroundBox(1,1,__a,a_a/100 *_c,ac)bd:addForegroundBox(1,1,__a, +a_a/100 *_c,cc) +bd:addTextBox(1,1,__a,a_a/100 *_c,bc)elseif(_d==3)then +bd:addBackgroundBox(1,1 +math.ceil(a_a-a_a/100 *_c),__a, +a_a/100 *_c,ac) +bd:addForegroundBox(1,1 +math.ceil(a_a-a_a/100 *_c),__a, +a_a/100 *_c,cc) +bd:addTextBox(1,1 +math.ceil(a_a-a_a/100 *_c),__a,a_a/100 *_c,bc)elseif(_d==2)then +bd:addBackgroundBox(1 +math.ceil(__a-__a/100 *_c),1,__a/ +100 *_c,a_a,ac) +bd:addForegroundBox(1 +math.ceil(__a-__a/100 *_c),1,__a/100 *_c,a_a,cc) +bd:addTextBox(1 +math.ceil(__a-__a/100 *_c),1,__a/100 *_c,a_a,bc)else +bd:addBackgroundBox(1,1,math.ceil(__a/100 *_c),a_a,ac) +bd:addForegroundBox(1,1,math.ceil(__a/100 *_c),a_a,cc) +bd:addTextBox(1,1,math.ceil(__a/100 *_c),a_a,bc)end end)end}ad.__index=ad;return setmetatable(ad,cb)end end +aa["objects"]["Switch"]=function(...) +return +function(ab,bb) +local cb=bb.getObject("ChangeableObject")(ab,bb)local db="Switch"cb:setSize(4,1)cb:setValue(false) +cb:setZIndex(5)local _c=colors.black;local ac=colors.red;local bc=colors.green +local cc={getType=function(dc)return db end,setSymbol=function(dc,_d) +_c=_d;return dc end,getSymbol=function(dc)return _c end,setActiveBackground=function(dc,_d)bc=_d;return dc end,getActiveBackground=function(dc)return bc end,setInactiveBackground=function(dc,_d) +ac=_d;return dc end,getInactiveBackground=function(dc)return ac end,load=function(dc) +dc:listenEvent("mouse_click")end,mouseHandler=function(dc,...) +if(cb.mouseHandler(dc,...))then +dc:setValue(not dc:getValue())dc:updateDraw()return true end end,draw=function(dc)cb.draw(dc) +dc:addDraw("switch",function() +local _d=dc:getParent()local ad,bd=dc:getBackground(),dc:getForeground() +local cd,dd=dc:getSize() +if(dc:getValue())then dc:addBackgroundBox(1,1,cd,dd,bc) +dc:addBackgroundBox(cd,1,1,dd,_c)else dc:addBackgroundBox(1,1,cd,dd,ac) +dc:addBackgroundBox(1,1,1,dd,_c)end end)end}cc.__index=cc;return setmetatable(cc,cb)end end +aa["objects"]["Program"]=function(...)local ab=da("tHex")local bb=da("process") +local cb=string.sub +return +function(db,_c)local ac=_c.getObject("VisualObject")(db,_c) +local bc="Program"local cc;local dc;local _d={} +local function ad(_aa,aaa,baa,caa)local daa,_ba=1,1;local aba,bba=colors.black,colors.white;local cba=false +local dba=false;local _ca={}local aca={}local bca={}local cca={}local dca;local _da={}for i=0,15 do local cab=2 ^i +cca[cab]={_c.getTerm().getPaletteColour(cab)}end;local function ada()dca=(" "):rep(baa) +for n=0,15 do +local cab=2 ^n;local dab=ab[cab]_da[cab]=dab:rep(baa)end end +local function bda()ada()local cab=dca +local dab=_da[colors.white]local _bb=_da[colors.black] +for n=1,caa do +_ca[n]=cb(_ca[n]==nil and cab or _ca[n]..cab:sub(1, +baa-_ca[n]:len()),1,baa) +bca[n]=cb(bca[n]==nil and dab or bca[n].. +dab:sub(1,baa-bca[n]:len()),1,baa) +aca[n]=cb(aca[n]==nil and _bb or aca[n].. +_bb:sub(1,baa-aca[n]:len()),1,baa)end;ac.updateDraw(ac)end;bda()local function cda()if +daa>=1 and _ba>=1 and daa<=baa and _ba<=caa then else end end +local function dda(cab,dab,_bb)if + +_ba<1 or _ba>caa or daa<1 or daa+#cab-1 >baa then return end +_ca[_ba]=cb(_ca[_ba],1,daa-1)..cab..cb(_ca[_ba], +daa+#cab,baa)bca[_ba]=cb(bca[_ba],1,daa-1).. +dab..cb(bca[_ba],daa+#cab,baa) +aca[_ba]= +cb(aca[_ba],1,daa-1).._bb..cb(aca[_ba],daa+#cab,baa)daa=daa+#cab;if dba then cda()end;cc:updateDraw()end +local function __b(cab,dab,_bb) +if(_bb~=nil)then local abb=_ca[dab]if(abb~=nil)then +_ca[dab]=cb(abb:sub(1,cab-1).._bb..abb:sub(cab+ +(_bb:len()),baa),1,baa)end end;cc:updateDraw()end +local function a_b(cab,dab,_bb) +if(_bb~=nil)then local abb=aca[dab]if(abb~=nil)then +aca[dab]=cb(abb:sub(1,cab-1).._bb..abb:sub(cab+ +(_bb:len()),baa),1,baa)end end;cc:updateDraw()end +local function b_b(cab,dab,_bb) +if(_bb~=nil)then local abb=bca[dab]if(abb~=nil)then +bca[dab]=cb(abb:sub(1,cab-1).._bb..abb:sub(cab+ +(_bb:len()),baa),1,baa)end end;cc:updateDraw()end +local c_b=function(cab) +if type(cab)~="number"then +error("bad argument #1 (expected number, got "..type(cab)..")",2)elseif ab[cab]==nil then +error("Invalid color (got "..cab..")",2)end;bba=cab end +local d_b=function(cab) +if type(cab)~="number"then +error("bad argument #1 (expected number, got "..type(cab)..")",2)elseif ab[cab]==nil then +error("Invalid color (got "..cab..")",2)end;aba=cab end +local _ab=function(cab,dab,_bb,abb)if type(cab)~="number"then +error("bad argument #1 (expected number, got "..type(cab)..")",2)end +if ab[cab]==nil then error("Invalid color (got ".. +cab..")",2)end;local bbb +if +type(dab)=="number"and _bb==nil and abb==nil then bbb={colours.rgb8(dab)}cca[cab]=bbb else if +type(dab)~="number"then +error("bad argument #2 (expected number, got "..type(dab)..")",2)end;if type(_bb)~="number"then +error( +"bad argument #3 (expected number, got "..type(_bb)..")",2)end;if type(abb)~="number"then +error( +"bad argument #4 (expected number, got "..type(abb)..")",2)end;bbb=cca[cab]bbb[1]=dab +bbb[2]=_bb;bbb[3]=abb end end +local aab=function(cab)if type(cab)~="number"then +error("bad argument #1 (expected number, got "..type(cab)..")",2)end +if ab[cab]==nil then error("Invalid color (got ".. +cab..")",2)end;local dab=cca[cab]return dab[1],dab[2],dab[3]end +local bab={setCursorPos=function(cab,dab)if type(cab)~="number"then +error("bad argument #1 (expected number, got "..type(cab)..")",2)end;if type(dab)~="number"then +error( +"bad argument #2 (expected number, got "..type(dab)..")",2)end;daa=math.floor(cab) +_ba=math.floor(dab)if(dba)then cda()end end,getCursorPos=function()return +daa,_ba end,setCursorBlink=function(cab)if type(cab)~="boolean"then +error("bad argument #1 (expected boolean, got ".. +type(cab)..")",2)end;cba=cab end,getCursorBlink=function()return +cba end,getPaletteColor=aab,getPaletteColour=aab,setBackgroundColor=d_b,setBackgroundColour=d_b,setTextColor=c_b,setTextColour=c_b,setPaletteColor=_ab,setPaletteColour=_ab,getBackgroundColor=function()return aba end,getBackgroundColour=function()return aba end,getSize=function() +return baa,caa end,getTextColor=function()return bba end,getTextColour=function()return bba end,basalt_resize=function(cab,dab)baa,caa=cab,dab;bda()end,basalt_reposition=function(cab,dab) +_aa,aaa=cab,dab end,basalt_setVisible=function(cab)dba=cab end,drawBackgroundBox=function(cab,dab,_bb,abb,bbb)for n=1,abb do +a_b(cab,dab+ (n-1),ab[bbb]:rep(_bb))end end,drawForegroundBox=function(cab,dab,_bb,abb,bbb) +for n=1,abb do b_b(cab, +dab+ (n-1),ab[bbb]:rep(_bb))end end,drawTextBox=function(cab,dab,_bb,abb,bbb)for n=1,abb do +__b(cab,dab+ (n-1),bbb:rep(_bb))end end,basalt_update=function()for n=1,caa do +cc:addBlit(1,n,_ca[n],bca[n],aca[n])end end,scroll=function(cab) +assert(type(cab)== +"number","bad argument #1 (expected number, got "..type(cab)..")") +if cab~=0 then +for newY=1,caa do local dab=newY+cab;if dab<1 or dab>caa then _ca[newY]=dca +bca[newY]=_da[bba]aca[newY]=_da[aba]else _ca[newY]=_ca[dab]aca[newY]=aca[dab] +bca[newY]=bca[dab]end end end;if(dba)then cda()end end,isColor=function()return +_c.getTerm().isColor()end,isColour=function() +return _c.getTerm().isColor()end,write=function(cab)cab=tostring(cab)if(dba)then +dda(cab,ab[bba]:rep(cab:len()),ab[aba]:rep(cab:len()))end end,clearLine=function() +if +(dba)then __b(1,_ba,(" "):rep(baa)) +a_b(1,_ba,ab[aba]:rep(baa))b_b(1,_ba,ab[bba]:rep(baa))end;if(dba)then cda()end end,clear=function() +for n=1,caa +do __b(1,n,(" "):rep(baa)) +a_b(1,n,ab[aba]:rep(baa))b_b(1,n,ab[bba]:rep(baa))end;if(dba)then cda()end end,blit=function(cab,dab,_bb)if +type(cab)~="string"then +error("bad argument #1 (expected string, got "..type(cab)..")",2)end;if type(dab)~="string"then +error( +"bad argument #2 (expected string, got "..type(dab)..")",2)end;if type(_bb)~="string"then +error( +"bad argument #3 (expected string, got "..type(_bb)..")",2)end +if +#dab~=#cab or#_bb~=#cab then error("Arguments must be the same length",2)end;if(dba)then dda(cab,dab,_bb)end end}return bab end;ac:setZIndex(5)ac:setSize(30,12)local bd=ad(1,1,30,12)local cd +local dd=false;local __a={} +local function a_a(_aa)local aaa=_aa:getParent()local baa,caa=bd.getCursorPos() +local daa,_ba=_aa:getPosition()local aba,bba=_aa:getSize() +if(daa+baa-1 >=1 and +daa+baa-1 <=daa+aba-1 and caa+_ba-1 >=1 and +caa+_ba-1 <=_ba+bba-1)then +aaa:setCursor( +_aa:isFocused()and bd.getCursorBlink(),daa+baa-1,caa+_ba-1,bd.getTextColor())end end +local function b_a(_aa,aaa,...)local baa,caa=cd:resume(aaa,...) +if(baa==false)and(caa~=nil)and +(caa~="Terminated")then +local daa=_aa:sendEvent("program_error",caa) +if(daa~=false)then error("Basalt Program - "..caa)end end +if(cd:getStatus()=="dead")then _aa:sendEvent("program_done")end end +local function c_a(_aa,aaa,baa,caa,daa)if(cd==nil)then return false end +if not(cd:isDead())then if not(dd)then +local _ba,aba=_aa:getAbsolutePosition()b_a(_aa,aaa,baa,caa-_ba+1,daa-aba+1) +a_a(_aa)end end end +local function d_a(_aa,aaa,baa,caa)if(cd==nil)then return false end +if not(cd:isDead())then if not(dd)then if(_aa.draw)then +b_a(_aa,aaa,baa,caa)a_a(_aa)end end end end +cc={getType=function(_aa)return bc end,show=function(_aa)ac.show(_aa) +bd.setBackgroundColor(_aa:getBackground())bd.setTextColor(_aa:getForeground()) +bd.basalt_setVisible(true)return _aa end,hide=function(_aa) +ac.hide(_aa)bd.basalt_setVisible(false)return _aa end,setPosition=function(_aa,aaa,baa,caa) +ac.setPosition(_aa,aaa,baa,caa)bd.basalt_reposition(_aa:getPosition())return _aa end,getBasaltWindow=function()return +bd end,getBasaltProcess=function()return cd end,setSize=function(_aa,aaa,baa,caa)ac.setSize(_aa,aaa,baa,caa) +bd.basalt_resize(_aa:getWidth(),_aa:getHeight())return _aa end,getStatus=function(_aa)if(cd~=nil)then return +cd:getStatus()end;return"inactive"end,setEnviroment=function(_aa,aaa)_d= +aaa or{}return _aa end,execute=function(_aa,aaa,...)dc=aaa or dc +cd=bb:new(dc,bd,_d,...)bd.setBackgroundColor(colors.black) +bd.setTextColor(colors.white)bd.clear()bd.setCursorPos(1,1) +bd.setBackgroundColor(_aa:getBackground()) +bd.setTextColor(_aa:getForeground()or colors.white)bd.basalt_setVisible(true)b_a(_aa)dd=false +_aa:listenEvent("mouse_click",_aa)_aa:listenEvent("mouse_up",_aa) +_aa:listenEvent("mouse_drag",_aa)_aa:listenEvent("mouse_scroll",_aa) +_aa:listenEvent("key",_aa)_aa:listenEvent("key_up",_aa) +_aa:listenEvent("char",_aa)_aa:listenEvent("other_event",_aa)return _aa end,setExecute=function(_aa,aaa,...)return +_aa:execute(aaa,...)end,stop=function(_aa)local aaa=_aa:getParent() +if(cd~=nil)then if not +(cd:isDead())then b_a(_aa,"terminate")if(cd:isDead())then +aaa:setCursor(false)end end end;aaa:removeEvents(_aa)return _aa end,pause=function(_aa,aaa)dd= +aaa or(not dd)if(cd~=nil)then +if not(cd:isDead())then if not(dd)then +_aa:injectEvents(table.unpack(__a))__a={}end end end;return _aa end,isPaused=function(_aa)return +dd end,injectEvent=function(_aa,aaa,baa,...) +if(cd~=nil)then if not(cd:isDead())then +if(dd==false)or(baa)then +b_a(_aa,aaa,...)else table.insert(__a,{event=aaa,args={...}})end end end;return _aa end,getQueuedEvents=function(_aa)return +__a end,updateQueuedEvents=function(_aa,aaa)__a=aaa or __a;return _aa end,injectEvents=function(_aa,...)if(cd~=nil)then +if not +(cd:isDead())then for aaa,baa in pairs({...})do +b_a(_aa,baa.event,table.unpack(baa.args))end end end;return _aa end,mouseHandler=function(_aa,aaa,baa,caa) +if +(ac.mouseHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_click",aaa,baa,caa)return true end;return false end,mouseUpHandler=function(_aa,aaa,baa,caa) +if +(ac.mouseUpHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_up",aaa,baa,caa)return true end;return false end,scrollHandler=function(_aa,aaa,baa,caa) +if +(ac.scrollHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_scroll",aaa,baa,caa)return true end;return false end,dragHandler=function(_aa,aaa,baa,caa) +if +(ac.dragHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_drag",aaa,baa,caa)return true end;return false end,keyHandler=function(_aa,aaa,baa)if +(ac.keyHandler(_aa,aaa,baa))then d_a(_aa,"key",aaa,baa)return true end;return +false end,keyUpHandler=function(_aa,aaa)if +(ac.keyUpHandler(_aa,aaa))then d_a(_aa,"key_up",aaa)return true end +return false end,charHandler=function(_aa,aaa)if +(ac.charHandler(_aa,aaa))then d_a(_aa,"char",aaa)return true end +return false end,getFocusHandler=function(_aa) +ac.getFocusHandler(_aa) +if(cd~=nil)then +if not(cd:isDead())then +if not(dd)then local aaa=_aa:getParent() +if(aaa~=nil)then +local baa,caa=bd.getCursorPos()local daa,_ba=_aa:getPosition()local aba,bba=_aa:getSize() +if +( + +daa+baa-1 >=1 and daa+baa-1 <=daa+aba-1 and caa+_ba-1 >=1 and caa+_ba-1 <=_ba+bba-1)then +aaa:setCursor(bd.getCursorBlink(),daa+baa-1,caa+_ba-1,bd.getTextColor())end end end end end end,loseFocusHandler=function(_aa) +ac.loseFocusHandler(_aa) +if(cd~=nil)then if not(cd:isDead())then local aaa=_aa:getParent()if(aaa~=nil)then +aaa:setCursor(false)end end end end,eventHandler=function(_aa,aaa,...) +ac.eventHandler(_aa,aaa,...)if cd==nil then return end +if not cd:isDead()then +if not dd then b_a(_aa,aaa,...) +if +_aa:isFocused()then local baa=_aa:getParent()local caa,daa=_aa:getPosition() +local _ba,aba=bd.getCursorPos()local bba,cba=_aa:getSize() +if caa+_ba-1 >=1 and +caa+_ba-1 <=caa+bba-1 and aba+daa-1 >=1 and +aba+daa-1 <=daa+cba-1 then +baa:setCursor(bd.getCursorBlink(), +caa+_ba-1,aba+daa-1,bd.getTextColor())end end else table.insert(__a,{event=aaa,args={...}})end end end,resizeHandler=function(_aa,...) +ac.resizeHandler(_aa,...) +if(cd~=nil)then +if not(cd:isDead())then +if not(dd)then +bd.basalt_resize(_aa:getSize())b_a(_aa,"term_resize",_aa:getSize())else +bd.basalt_resize(_aa:getSize()) +table.insert(__a,{event="term_resize",args={_aa:getSize()}})end end end end,repositionHandler=function(_aa,...) +ac.repositionHandler(_aa,...) +if(cd~=nil)then if not(cd:isDead())then +bd.basalt_reposition(_aa:getPosition())end end end,draw=function(_aa) +ac.draw(_aa) +_aa:addDraw("program",function()local aaa=_aa:getParent()local baa,caa=_aa:getPosition() +local daa,_ba=bd.getCursorPos()local aba,bba=_aa:getSize()bd.basalt_update()end)end,onError=function(_aa,...) +for baa,caa in +pairs(table.pack(...))do if(type(caa)=="function")then +_aa:registerEvent("program_error",caa)end end;local aaa=_aa:getParent()_aa:listenEvent("other_event") +return _aa end,onDone=function(_aa,...) +for baa,caa in +pairs(table.pack(...))do if(type(caa)=="function")then +_aa:registerEvent("program_done",caa)end end;local aaa=_aa:getParent()_aa:listenEvent("other_event") +return _aa end}cc.__index=cc;return setmetatable(cc,ac)end end +aa["objects"]["Label"]=function(...)local ab=da("utils")local bb=ab.wrapText +local cb=ab.writeWrappedText;local db=da("tHex") +return +function(_c,ac) +local bc=ac.getObject("VisualObject")(_c,ac)local cc="Label"bc:setZIndex(3)bc:setSize(5,1) +bc:setBackground(false)local dc=true;local _d,ad="Label","left" +local bd={getType=function(cd)return cc end,getBase=function(cd)return bc end,setText=function(cd,dd) +_d=tostring(dd) +if(dc)then local __a=bb(_d,#_d)local a_a,b_a=1,1;for c_a,d_a in pairs(__a)do b_a=b_a+1 +a_a=math.max(a_a,d_a:len())end;cd:setSize(a_a,b_a)dc=true end;cd:updateDraw()return cd end,getAutoSize=function(cd)return +dc end,setAutoSize=function(cd,dd)dc=dd;return cd end,getText=function(cd)return _d end,setSize=function(cd,dd,__a) +bc.setSize(cd,dd,__a)dc=false;return cd end,getTextAlign=function(cd)return ad end,setTextAlign=function(cd,dd)ad=dd or ad;return +cd end,draw=function(cd)bc.draw(cd) +cd:addDraw("label",function()local dd,__a=cd:getSize() +local a_a= + + +ad=="center"and math.floor(dd/2 -_d:len()/2 +0.5)or ad=="right"and dd- (_d:len()-1)or 1;cb(cd,a_a,1,_d,dd+1,__a)end)end,init=function(cd) +bc.init(cd)local dd=cd:getParent() +cd:setForeground(dd:getForeground())end}bd.__index=bd;return setmetatable(bd,bc)end end +aa["objects"]["Graph"]=function(...) +return +function(ab,bb) +local cb=bb.getObject("ChangeableObject")(ab,bb)local db="Graph"cb:setZIndex(5)cb:setSize(30,10)local _c={} +local ac=colors.gray;local bc="\7"local cc=colors.black;local dc=100;local _d=0;local ad="line"local bd=10 +local cd={getType=function(dd)return db end,setGraphColor=function(dd,__a)ac= +__a or ac;dd:updateDraw()return dd end,setGraphSymbol=function(dd,__a,a_a) +bc=__a or bc;cc=a_a or cc;dd:updateDraw()return dd end,setGraphSymbolColor=function(dd,__a)return dd:setGraphSymbolColor( +nil,__a)end,getGraphSymbol=function(dd) +return bc,cc end,getGraphSymbolColor=function(dd)return cc end,addDataPoint=function(dd,__a)if __a>=_d and __a<=dc then +table.insert(_c,__a)dd:updateDraw()end;if(#_c>100)then +table.remove(_c,1)end;return dd end,setMaxValue=function(dd,__a) +dc=__a;dd:updateDraw()return dd end,getMaxValue=function(dd)return dc end,setMinValue=function(dd,__a) +_d=__a;dd:updateDraw()return dd end,getMinValue=function(dd)return _d end,setGraphType=function(dd,__a)if __a== +"scatter"or __a=="line"or __a=="bar"then ad=__a +dd:updateDraw()end;return dd end,getGraphType=function(dd)return +ad end,setMaxEntries=function(dd,__a)bd=__a;dd:updateDraw()return dd end,getMaxEntries=function(dd)return +bd end,clear=function(dd)_c={}dd:updateDraw()return dd end,draw=function(dd) +cb.draw(dd) +dd:addDraw("graph",function()local __a,a_a=dd:getPosition()local b_a,c_a=dd:getSize() +local d_a,_aa=dd:getBackground(),dd:getForeground()local aaa=dc-_d;local baa,caa;local daa=#_c-bd+1;if daa<1 then daa=1 end +for i=daa,#_c do local _ba=_c[i] +local aba=math.floor(( ( +b_a-1)/ (bd-1))* (i-daa)+1.5) +local bba=math.floor((c_a-1)- ( (c_a-1)/aaa)* (_ba-_d)+1.5) +if ad=="scatter"then dd:addBackgroundBox(aba,bba,1,1,ac) +dd:addForegroundBox(aba,bba,1,1,cc)dd:addTextBox(aba,bba,1,1,bc)elseif ad=="line"then +if baa and caa then +local cba=math.abs(aba-baa)local dba=math.abs(bba-caa)local _ca=baa-dba then +bca=bca-dba;baa=baa+_ca end +if cca0)then -for n=1,ad do -if(_ba[n+dc]~=nil)then -if -(caa<=d_a)and(caa+_d>d_a)and(daa+n==_aa)then b_a:setValue(_ba[n+dc])b_a:updateDraw() -local aba=b_a:sendEvent("mouse_click",b_a,"mouse_click",c_a,d_a,_aa)if(aba==false)then return aba end;if(aaa)then -db.schedule(function()sleep(0.1) -b_a:mouseUpHandler(c_a,d_a,_aa)end)()end;return true end end end end end end;local baa=_c:getBase() -if(baa.mouseHandler(b_a,c_a,d_a,_aa))then __a=not __a -b_a:getParent():setImportant(b_a)b_a:updateDraw()return true else -if(__a)then b_a:updateDraw()__a=false end;return false end end,mouseUpHandler=function(b_a,c_a,d_a,_aa) -if -(__a)then local aaa,baa=b_a:getAbsolutePosition() -if(c_a==1)then local caa=b_a:getAll() -if(# -caa>0)then -for n=1,ad do -if(caa[n+dc]~=nil)then -if -(aaa<=d_a)and(aaa+_d>d_a)and(baa+n==_aa)then __a=false;b_a:updateDraw() -local daa=b_a:sendEvent("mouse_up",b_a,"mouse_up",c_a,d_a,_aa)if(daa==false)then return daa end;return true end end end end end end end,dragHandler=function(b_a,c_a,d_a,_aa)if -(_c.dragHandler(b_a,c_a,d_a,_aa))then __a=true end end,scrollHandler=function(b_a,c_a,d_a,_aa) -if -(__a)then local aaa,baa=b_a:getAbsolutePosition()if -(d_a>=aaa)and(d_a<=aaa+_d)and(_aa>=baa)and(_aa<=baa+ad)then -b_a:setFocus()end end -if(__a)and(b_a:isFocused())then -local aaa,baa=b_a:getAbsolutePosition()if -(d_aaaa+_d)or(_aabaa+ad)then return false end;if(#b_a:getAll()<=ad)then return -false end;local caa=b_a:getAll()dc=dc+c_a -if(dc<0)then dc=0 end -if(c_a==1)then if(#caa>ad)then if(dc>#caa-ad)then dc=#caa-ad end else -dc=math.min(#caa-1,0)end end -local daa=b_a:sendEvent("mouse_scroll",b_a,"mouse_scroll",c_a,d_a,_aa)if(daa==false)then return daa end;b_a:updateDraw()return true end end,draw=function(b_a) -_c.draw(b_a)b_a:setDrawState("list",false) -b_a:addDraw("dropdown",function() -local c_a,d_a=b_a:getPosition()local _aa,aaa=b_a:getSize()local baa=b_a:getValue() -local caa=b_a:getAll()local daa,_ba=b_a:getBackground(),b_a:getForeground() -local aba=ab.getTextHorizontalAlign(( -baa~=nil and baa.text or""),_aa,cc):sub(1, -_aa-1).. (__a and dd or cd) -b_a:addBlit(1,1,aba,bb[_ba]:rep(#aba),bb[daa]:rep(#aba)) -if(__a)then b_a:addTextBox(1,2,_d,ad," ") -b_a:addBackgroundBox(1,2,_d,ad,daa)b_a:addForegroundBox(1,2,_d,ad,_ba) -for n=1,ad do -if(caa[n+dc]~=nil)then local bba=ab.getTextHorizontalAlign(caa[ -n+dc].text,_d,cc) +local _c=db.getObject("ChangeableObject")(cb,db)local ac="List"local bc={}local cc=colors.black;local dc=colors.lightGray;local _d=true +local ad="left"local bd=0;local cd=true;_c:setSize(16,8)_c:setZIndex(5) +local dd={init=function(__a) +local a_a=__a:getParent()__a:listenEvent("mouse_click") +__a:listenEvent("mouse_drag")__a:listenEvent("mouse_scroll")return _c.init(__a)end,getBase=function(__a)return +_c end,setTextAlign=function(__a,a_a)ad=a_a;return __a end,getTextAlign=function(__a)return ad end,getBase=function(__a)return _c end,getType=function(__a)return +ac end,isType=function(__a,a_a)return +ac==a_a or _c.isType~=nil and _c.isType(a_a)or false end,addItem=function(__a,a_a,b_a,c_a,...) +table.insert(bc,{text=a_a,bgCol= +b_a or __a:getBackground(),fgCol=c_a or __a:getForeground(),args={...}})if(#bc<=1)then __a:setValue(bc[1],false)end +__a:updateDraw()return __a end,setOptions=function(__a,...) +bc={} +for a_a,b_a in pairs(...)do +if(type(b_a)=="string")then +table.insert(bc,{text=b_a,bgCol=__a:getBackground(),fgCol=__a:getForeground(),args={}})else +table.insert(bc,{text=b_a[1],bgCol=b_a[2]or __a:getBackground(),fgCol=b_a[3]or +__a:getForeground(),args=b_a[4]or{}})end end;__a:setValue(bc[1],false)__a:updateDraw()return __a end,setOffset=function(__a,a_a) +bd=a_a;__a:updateDraw()return __a end,getOffset=function(__a)return bd end,removeItem=function(__a,a_a) if( -caa[n+dc]==baa)then -if(bc)then local cba,dba=b_a:getSelectionColor() -b_a:addBlit(1,n+1,bba,bb[dba]:rep( -#bba),bb[cba]:rep(#bba))else -b_a:addBlit(1,n+1,bba,bb[caa[n+dc].fgCol]:rep(#bba),bb[caa[n+dc].bgCol]:rep( -#bba))end else -b_a:addBlit(1,n+1,bba,bb[caa[n+dc].fgCol]:rep(#bba),bb[caa[n+dc].bgCol]:rep( -#bba))end end end end end)end}a_a.__index=a_a;return setmetatable(a_a,_c)end end +type(a_a)=="number")then table.remove(bc,a_a)elseif(type(a_a)=="table")then +for b_a,c_a in +pairs(bc)do if(c_a==a_a)then table.remove(bc,b_a)break end end end;__a:updateDraw()return __a end,getItem=function(__a,a_a)return +bc[a_a]end,getAll=function(__a)return bc end,getOptions=function(__a)return bc end,getItemIndex=function(__a) +local a_a=__a:getValue()for b_a,c_a in pairs(bc)do if(c_a==a_a)then return b_a end end end,clear=function(__a) +bc={}__a:setValue({},false)__a:updateDraw()return __a end,getItemCount=function(__a)return +#bc end,editItem=function(__a,a_a,b_a,c_a,d_a,...)table.remove(bc,a_a) +table.insert(bc,a_a,{text=b_a,bgCol=c_a or +__a:getBackground(),fgCol=d_a or __a:getForeground(),args={...}})__a:updateDraw()return __a end,selectItem=function(__a,a_a)__a:setValue( +bc[a_a]or{},false)__a:updateDraw()return __a end,setSelectionColor=function(__a,a_a,b_a,c_a)cc= +a_a or __a:getBackground() +dc=b_a or __a:getForeground()_d=c_a~=nil and c_a or true;__a:updateDraw() +return __a end,setSelectionBG=function(__a,a_a)return __a:setSelectionColor(a_a, +nil,_d)end,setSelectionFG=function(__a,a_a)return __a:setSelectionColor( +nil,a_a,_d)end,getSelectionColor=function(__a) +return cc,dc end,getSelectionBG=function(__a)return cc end,getSelectionFG=function(__a)return dc end,isSelectionColorActive=function(__a)return _d end,setScrollable=function(__a,a_a) +cd=a_a;if(a_a==nil)then cd=true end;__a:updateDraw()return __a end,getScrollable=function(__a)return +cd end,scrollHandler=function(__a,a_a,b_a,c_a) +if(_c.scrollHandler(__a,a_a,b_a,c_a))then +if(cd)then +local d_a,_aa=__a:getSize()bd=bd+a_a;if(bd<0)then bd=0 end;if(a_a>=1)then +if(#bc>_aa)then +if(bd>#bc-_aa)then bd=#bc-_aa end;if(bd>=#bc)then bd=#bc-1 end else bd=bd-1 end end +__a:updateDraw()end;return true end;return false end,mouseHandler=function(__a,a_a,b_a,c_a) +if +(_c.mouseHandler(__a,a_a,b_a,c_a))then local d_a,_aa=__a:getAbsolutePosition()local aaa,baa=__a:getSize() +if +(#bc>0)then +for n=1,baa do +if(bc[n+bd]~=nil)then if +(d_a<=b_a)and(d_a+aaa>b_a)and(_aa+n-1 ==c_a)then __a:setValue(bc[n+bd])__a:selectHandler() +__a:updateDraw()end end end end;return true end;return false end,dragHandler=function(__a,a_a,b_a,c_a)return +__a:mouseHandler(a_a,b_a,c_a)end,touchHandler=function(__a,a_a,b_a)return +__a:mouseHandler(1,a_a,b_a)end,onSelect=function(__a,...) +for a_a,b_a in +pairs(table.pack(...))do if(type(b_a)=="function")then +__a:registerEvent("select_item",b_a)end end;return __a end,selectHandler=function(__a) +__a:sendEvent("select_item",__a:getValue())end,draw=function(__a)_c.draw(__a) +__a:addDraw("list",function() +local a_a,b_a=__a:getSize() +for n=1,b_a do +if bc[n+bd]then local c_a=bc[n+bd].text +local d_a,_aa=bc[n+bd].fgCol,bc[n+bd].bgCol +if bc[n+bd]==__a:getValue()and _d then d_a,_aa=dc,cc end;__a:addText(1,n,c_a:sub(1,a_a)) +__a:addBG(1,n,bb[_aa]:rep(a_a))__a:addFG(1,n,bb[d_a]:rep(a_a))end end end)end}dd.__index=dd;return setmetatable(dd,_c)end end +aa["objects"]["Checkbox"]=function(...)local ab=da("utils")local bb=da("tHex") +return +function(cb,db) +local _c=db.getObject("ChangeableObject")(cb,db)local ac="Checkbox"_c:setZIndex(5)_c:setValue(false) +_c:setSize(1,1)local bc,cc,dc,_d="\42"," ","","right" +local ad={load=function(bd)bd:listenEvent("mouse_click",bd) +bd:listenEvent("mouse_up",bd)end,getType=function(bd)return ac end,isType=function(bd,cd)return +ac==cd or +_c.isType~=nil and _c.isType(cd)or false end,setSymbol=function(bd,cd,dd) +bc=cd or bc;cc=dd or cc;bd:updateDraw()return bd end,setActiveSymbol=function(bd,cd)return bd:setSymbol(cd, +nil)end,setInactiveSymbol=function(bd,cd) +return bd:setSymbol(nil,cd)end,getSymbol=function(bd)return bc,cc end,getActiveSymbol=function(bd)return bc end,getInactiveSymbol=function(bd)return cc end,setText=function(bd,cd) +dc=cd;return bd end,getText=function(bd)return dc end,setTextPosition=function(bd,cd)_d=cd or _d;return bd end,getTextPosition=function(bd)return +_d end,setChecked=_c.setValue,getChecked=_c.getValue,mouseHandler=function(bd,cd,dd,__a) +if(_c.mouseHandler(bd,cd,dd,__a))then +if(cd==1)then +if( +bd:getValue()~=true)and(bd:getValue()~=false)then +bd:setValue(false)else bd:setValue(not bd:getValue())end;bd:updateDraw()return true end end;return false end,draw=function(bd) +_c.draw(bd) +bd:addDraw("checkbox",function()local cd,dd=bd:getPosition()local __a,a_a=bd:getSize() +local b_a=ab.getTextVerticalAlign(a_a,"center")local c_a,d_a=bd:getBackground(),bd:getForeground() +if +(bd:getValue())then +bd:addBlit(1,b_a,ab.getTextHorizontalAlign(bc,__a,"center"),bb[d_a],bb[c_a])else +bd:addBlit(1,b_a,ab.getTextHorizontalAlign(cc,__a,"center"),bb[d_a],bb[c_a])end;if(dc~="")then local _aa=_d=="left"and-dc:len()or 3 +bd:addText(_aa,b_a,dc)end end)end}ad.__index=ad;return setmetatable(ad,_c)end end +aa["objects"]["ChangeableObject"]=function(...) +return +function(ab,bb) +local cb=bb.getObject("VisualObject")(ab,bb)local db="ChangeableObject"local _c +local ac={setValue=function(bc,cc,dc)if(_c~=cc)then _c=cc;bc:updateDraw()if(dc~=false)then +bc:valueChangedHandler()end end;return bc end,getValue=function(bc)return +_c end,onChange=function(bc,...) +for cc,dc in pairs(table.pack(...))do if(type(dc)=="function")then +bc:registerEvent("value_changed",dc)end end;return bc end,valueChangedHandler=function(bc) +bc:sendEvent("value_changed",_c)end}ac.__index=ac;return setmetatable(ac,cb)end end +aa["objects"]["Container"]=function(...)local ab=da("utils")local bb=ab.tableCount +return +function(cb,db) +local _c=db.getObject("VisualObject")(cb,db)local ac="Container"local bc={}local cc={}local dc={}local _d;local ad=true;local bd,cd=0,0 +local dd=function(cba,dba) +if +cba.zIndex==dba.zIndex then return cba.objIddba.evId else return +cba.zIndex>dba.zIndex end end;local function a_a(cba)cba:sortChildren()return bc end +local function b_a(cba,dba)if +(type(dba)=="table")then dba=dba:getName()end +for _ca,aca in ipairs(bc)do if +aca.element:getName()==dba then return aca.element end end end +local function c_a(cba,dba)local _ca=b_a(dba)if(_ca~=nil)then return _ca end;for aca,bca in ipairs(bc)do +if +(bca:getType()=="Container")then local cca=bca:getDeepChild(dba)if(cca~=nil)then return cca end end end end +local function d_a(cba,dba)if(b_a(dba:getName())~=nil)then return end;bd=bd+1 +local _ca=dba:getZIndex() +table.insert(bc,{element=dba,zIndex=_ca,objId=bd})ad=false;dba:setParent(cba,true)for aca,bca in +pairs(dba:getRegisteredEvents())do cba:addEvent(aca,dba)end;if(dba.init~= +nil)then dba:init()end +if(dba.load~=nil)then dba:load()end;if(dba.draw~=nil)then dba:draw()end;return dba end +local function _aa(cba,dba) +if(type(dba)=="string")then dba=b_a(dba:getName())end;if(dba==nil)then return end +for _ca,aca in ipairs(bc)do if aca.element==dba then +table.remove(bc,_ca)return true end end;cba:removeEvents(dba)ad=false end;local function aaa(cba)local dba=cba:getParent()bc={}cc={}ad=false;bd=0;cd=0;_d=nil +dba:removeEvents(cba)end +local function baa(cba,dba,_ca)bd=bd+1;cd=cd+1;for aca,bca in +pairs(bc)do +if(bca.element==dba)then bca.zIndex=_ca;bca.objId=bd;break end end;for aca,bca in pairs(cc)do +for cca,dca in pairs(bca)do if +(dca.element==dba)then dca.zIndex=_ca;dca.evId=cd end end end;ad=false +cba:updateDraw()end +local function caa(cba,dba)local _ca=cba:getParent() +for aca,bca in pairs(cc)do for cca,dca in pairs(bca)do if(dca.element==dba)then +table.remove(cc[aca],cca)end end +if( +bb(cc[aca])<=0)then if(_ca~=nil)then _ca:removeEvent(aca,cba)end end end;ad=false end +local function daa(cba,dba,_ca)if(type(_ca)=="table")then _ca=_ca:getName()end +if(cc[dba]~= +nil)then for aca,bca in pairs(cc[dba])do +if(bca.element:getName()==_ca)then return bca end end end end +local function _ba(cba,dba,_ca) +if(daa(cba,dba,_ca:getName())~=nil)then return end;local aca=_ca:getZIndex()cd=cd+1 +if(cc[dba]==nil)then cc[dba]={}end +table.insert(cc[dba],{element=_ca,zIndex=aca,evId=cd})ad=false;cba:listenEvent(dba)return _ca end +local function aba(cba,dba,_ca) +if(cc[dba]~=nil)then for aca,bca in pairs(cc[dba])do if(bca.element==_ca)then +table.remove(cc[dba],aca)end end;if( +bb(cc[dba])<=0)then cba:listenEvent(dba,false)end end;ad=false end +local function bba(cba,dba)return dba~=nil and cc[dba]or cc end +dc={getType=function()return ac end,getBase=function(cba)return _c end,isType=function(cba,dba) +return ac==dba or +_c.isType~=nil and _c.isType(dba)or false end,setSize=function(cba,...)_c.setSize(cba,...) +cba:customEventHandler("basalt_FrameResize")return cba end,setPosition=function(cba,...) +_c.setPosition(cba,...)cba:customEventHandler("basalt_FrameReposition") +return cba end,searchChildren=function(cba,dba)local _ca={} +for aca,bca in pairs(bc)do if +(string.find(bca.element:getName(),dba))then table.insert(_ca,bca)end end;return _ca end,getChildrenByType=function(cba,dba) +local _ca={}for aca,bca in pairs(bc)do +if(bca.element:isType(dba))then table.insert(_ca,bca)end end;return _ca end,setImportant=function(cba,dba)bd= +bd+1;cd=cd+1 +for _ca,aca in pairs(cc)do for bca,cca in pairs(aca)do +if(cca.element==dba)then cca.evId=cd +table.remove(cc[_ca],bca)table.insert(cc[_ca],cca)break end end end +for _ca,aca in ipairs(bc)do if aca.element==dba then aca.objId=bd;table.remove(bc,_ca) +table.insert(bc,aca)break end end;if(cba.updateDraw~=nil)then cba:updateDraw()end +ad=false end,sortChildren=function(cba)if +(ad)then return end;table.sort(bc,dd)for dba,_ca in pairs(cc)do +table.sort(cc[dba],__a)end;ad=true end,clearFocusedChild=function(cba)if( +_d~=nil)then +if(b_a(cba,_d)~=nil)then _d:loseFocusHandler()end end;_d=nil;return cba end,setFocusedChild=function(cba,dba) +if( +_d~=dba)then if(_d~=nil)then +if(b_a(cba,_d)~=nil)then _d:loseFocusHandler()end end;if(dba~=nil)then if(b_a(cba,dba)~=nil)then +dba:getFocusHandler()end end;_d=dba;return true end;return false end,getFocused=function(cba)return +_d end,getChild=b_a,getChildren=a_a,getDeepChildren=c_a,addChild=d_a,removeChild=_aa,removeChildren=aaa,getEvents=bba,getEvent=daa,addEvent=_ba,removeEvent=aba,removeEvents=caa,updateZIndex=baa,listenEvent=function(cba,dba,_ca)_c.listenEvent(cba,dba,_ca)if( +cc[dba]==nil)then cc[dba]={}end;return cba end,customEventHandler=function(cba,...) +_c.customEventHandler(cba,...) +for dba,_ca in pairs(bc)do if(_ca.element.customEventHandler~=nil)then +_ca.element:customEventHandler(...)end end end,loseFocusHandler=function(cba) +_c.loseFocusHandler(cba)if(_d~=nil)then _d:loseFocusHandler()_d=nil end end,getBasalt=function(cba)return +db end,setPalette=function(cba,dba,...)local _ca=cba:getParent() +_ca:setPalette(dba,...)return cba end,eventHandler=function(cba,...) +if(_c.eventHandler~=nil)then +_c.eventHandler(cba,...) +if(cc["other_event"]~=nil)then cba:sortChildren() +for dba,_ca in +ipairs(cc["other_event"])do if(_ca.element.eventHandler~=nil)then +_ca.element.eventHandler(_ca.element,...)end end end end end} +for cba,dba in +pairs({mouse_click={"mouseHandler",true},mouse_up={"mouseUpHandler",false},mouse_drag={"dragHandler",false},mouse_scroll={"scrollHandler",true},mouse_hover={"hoverHandler",false}})do +dc[dba[1]]=function(_ca,aca,bca,cca,...) +if(_c[dba[1]]~=nil)then +if(_c[dba[1]](_ca,aca,bca,cca,...))then +if +(cc[cba]~=nil)then _ca:sortChildren() +for dca,_da in ipairs(cc[cba])do +if +(_da.element[dba[1]]~=nil)then local ada,bda=0,0 +if(_ca.getOffset~=nil)then ada,bda=_ca:getOffset()end +if(_da.element.getIgnoreOffset~=nil)then if(_da.element.getIgnoreOffset())then +ada,bda=0,0 end end;if(_da.element[dba[1]](_da.element,aca,bca+ada,cca+bda,...))then return +true end end end;if(dba[2])then _ca:clearFocusedChild()end end;return true end end end end +for cba,dba in +pairs({key="keyHandler",key_up="keyUpHandler",char="charHandler"})do +dc[dba]=function(_ca,...) +if(_c[dba]~=nil)then +if(_c[dba](_ca,...))then +if(cc[cba]~=nil)then +_ca:sortChildren()for aca,bca in ipairs(cc[cba])do +if(bca.element[dba]~=nil)then if +(bca.element[dba](bca.element,...))then return true end end end end end end end end;for cba,dba in pairs(db.getObjects())do +dc["add"..cba]=function(_ca,aca)return +_ca:addChild(db:createObject(cba,aca))end end +dc.__index=dc;return setmetatable(dc,_c)end end +aa["objects"]["BaseFrame"]=function(...)local ab=da("basaltDraw") +local bb=da("utils")local cb,db,_c,ac=math.max,math.min,string.sub,string.rep +return +function(bc,cc) +local dc=cc.getObject("Container")(bc,cc)local _d="BaseFrame"local ad,bd=0,0;local cd={}local dd=true;local __a=cc.getTerm() +local a_a=ab(__a)local b_a,c_a,d_a,_aa=1,1,false,colors.white +local aaa={getType=function()return _d end,isType=function(baa,caa) +return _d==caa or dc.isType~=nil and +dc.isType(caa)or false end,getBase=function(baa)return dc end,getOffset=function(baa)return ad,bd end,setOffset=function(baa,caa,daa)ad= +caa or ad;bd=daa or bd;baa:updateDraw()return baa end,getXOffset=function(baa)return +ad end,setXOffset=function(baa,caa)return baa:setOffset(caa,nil)end,getYOffset=function(baa)return +bd end,setYOffset=function(baa,caa)return baa:setOffset(nil,caa)end,setPalette=function(baa,caa,...) +if( +baa==cc.getActiveFrame())then +if(type(caa)=="string")then cd[caa]=... +__a.setPaletteColor( +type(caa)=="number"and caa or colors[caa],...)elseif(type(caa)=="table")then +for daa,_ba in pairs(caa)do cd[daa]=_ba +if(type(_ba)=="number")then +__a.setPaletteColor( +type(daa)=="number"and daa or colors[daa],_ba)else local aba,bba,cba=table.unpack(_ba) +__a.setPaletteColor( +type(daa)=="number"and daa or colors[daa],aba,bba,cba)end end end end;return baa end,setSize=function(baa,...) +dc.setSize(baa,...)a_a=ab(__a)return baa end,getSize=function()return __a.getSize()end,getWidth=function(baa)return +({__a.getSize()})[1]end,getHeight=function(baa) +return({__a.getSize()})[2]end,show=function(baa)dc.show(baa)cc.setActiveFrame(baa) +for caa,daa in +pairs(colors)do if(type(daa)=="number")then +__a.setPaletteColor(daa,colors.packRGB(term.nativePaletteColor((daa))))end end +for caa,daa in pairs(cd)do +if(type(daa)=="number")then +__a.setPaletteColor( +type(caa)=="number"and caa or colors[caa],daa)else local _ba,aba,bba=table.unpack(daa) +__a.setPaletteColor( +type(caa)=="number"and caa or colors[caa],_ba,aba,bba)end end;cc.setMainFrame(baa)return baa end,render=function(baa) +if( +dc.render~=nil)then +if(baa:isVisible())then +if(dd)then dc.render(baa) +local caa=baa:getChildren()for daa,_ba in ipairs(caa)do if(_ba.element.render~=nil)then +_ba.element:render()end end +dd=false end end end end,updateDraw=function(baa) +dd=true;return baa end,eventHandler=function(baa,caa,...)dc.eventHandler(baa,caa,...)if +(caa=="term_resize")then baa:setSize(__a.getSize())end end,updateTerm=function(baa)if( +a_a~=nil)then a_a.update()end end,setTerm=function(baa,caa)__a=caa;if(caa== +nil)then a_a=nil else a_a=ab(__a)end;return baa end,getTerm=function()return +__a end,blit=function(baa,caa,daa,_ba,aba,bba)local cba,dba=baa:getPosition() +local _ca,aca=baa:getSize() +if daa>=1 and daa<=aca then +local bca=_c(_ba,cb(1 -caa+1,1),cb(_ca-caa+1,1)) +local cca=_c(aba,cb(1 -caa+1,1),cb(_ca-caa+1,1)) +local dca=_c(bba,cb(1 -caa+1,1),cb(_ca-caa+1,1)) +a_a.blit(cb(caa+ (cba-1),cba),dba+daa-1,bca,cca,dca)end end,setCursor=function(baa,caa,daa,_ba,aba) +local bba,cba=baa:getAbsolutePosition()local dba,_ca=baa:getOffset()d_a=caa or false;if(daa~=nil)then +b_a=bba+daa-1 -dba end +if(_ba~=nil)then c_a=cba+_ba-1 -_ca end;_aa=aba or _aa +if(d_a)then __a.setTextColor(_aa) +__a.setCursorPos(b_a,c_a)__a.setCursorBlink(d_a)else __a.setCursorBlink(false)end;return baa end} +for baa,caa in +pairs({mouse_click={"mouseHandler",true},mouse_up={"mouseUpHandler",false},mouse_drag={"dragHandler",false},mouse_scroll={"scrollHandler",true},mouse_hover={"hoverHandler",false}})do +aaa[caa[1]]=function(daa,_ba,aba,bba,...)if(dc[caa[1]](daa,_ba,aba,bba,...))then +cc.setActiveFrame(daa)end end end +for baa,caa in +pairs({"drawBackgroundBox","drawForegroundBox","drawTextBox"})do +aaa[caa]=function(daa,_ba,aba,bba,cba,dba)local _ca,aca=daa:getPosition()local bca,cca=daa:getSize() +cba=(aba<1 and(cba+ +aba>daa:getHeight()and daa:getHeight()or cba+aba- +1)or(cba+aba> +daa:getHeight()and daa:getHeight()-aba+1 or +cba)) +bba=(_ba<1 and(bba+_ba>daa:getWidth()and daa:getWidth()or bba+ +_ba-1)or( + +bba+_ba>daa:getWidth()and daa:getWidth()-_ba+1 or bba)) +a_a[caa](cb(_ba+ (_ca-1),_ca),cb(aba+ (aca-1),aca),bba,cba,dba)end end +for baa,caa in pairs({"setBG","setFG","setText"})do +aaa[caa]=function(daa,_ba,aba,bba) +local cba,dba=daa:getPosition()local _ca,aca=daa:getSize()if(aba>=1)and(aba<=aca)then +a_a[caa](cb(_ba+ (cba-1),cba), +dba+aba-1,_c(bba,cb(1 -_ba+1,1),cb(_ca-_ba+1,1)))end end end;aaa.__index=aaa;return setmetatable(aaa,dc)end end +aa["objects"]["Frame"]=function(...)local ab=da("utils") +local bb,cb,db,_c,ac=math.max,math.min,string.sub,string.rep,string.len +return +function(bc,cc)local dc=cc.getObject("Container")(bc,cc)local _d="Frame" +local ad;local bd=true;local cd,dd=0,0;dc:setSize(30,10)dc:setZIndex(10) +local __a={getType=function()return _d end,isType=function(a_a,b_a)return + +_d==b_a or dc.isType~=nil and dc.isType(b_a)or false end,getBase=function(a_a) +return dc end,getOffset=function(a_a)return cd,dd end,setOffset=function(a_a,b_a,c_a)cd=b_a or cd;dd=c_a or dd +a_a:updateDraw()return a_a end,getXOffset=function(a_a)return cd end,setXOffset=function(a_a,b_a)return +a_a:setOffset(b_a,nil)end,getYOffset=function(a_a)return dd end,setYOffset=function(a_a,b_a)return +a_a:setOffset(nil,b_a)end,setParent=function(a_a,b_a,...) +dc.setParent(a_a,b_a,...)ad=b_a;return a_a end,render=function(a_a) +if(dc.render~=nil)then +if +(a_a:isVisible())then dc.render(a_a)local b_a=a_a:getChildren()for c_a,d_a in ipairs(b_a)do +if( +d_a.element.render~=nil)then d_a.element:render()end end end end end,updateDraw=function(a_a)if( +ad~=nil)then ad:updateDraw()end;return a_a end,blit=function(a_a,b_a,c_a,d_a,_aa,aaa) +local baa,caa=a_a:getPosition()local daa,_ba=ad:getOffset()baa=baa-daa;caa=caa-_ba +local aba,bba=a_a:getSize() +if c_a>=1 and c_a<=bba then +local cba=db(d_a,bb(1 -b_a+1,1),bb(aba-b_a+1,1)) +local dba=db(_aa,bb(1 -b_a+1,1),bb(aba-b_a+1,1)) +local _ca=db(aaa,bb(1 -b_a+1,1),bb(aba-b_a+1,1)) +ad:blit(bb(b_a+ (baa-1),baa),caa+c_a-1,cba,dba,_ca)end end,setCursor=function(a_a,b_a,c_a,d_a,_aa) +local aaa,baa=a_a:getPosition()local caa,daa=a_a:getOffset() +ad:setCursor(b_a or false,(c_a or 0)+aaa-1 -caa,( +d_a or 0)+baa-1 -daa,_aa or colors.white)return a_a end} +for a_a,b_a in +pairs({"drawBackgroundBox","drawForegroundBox","drawTextBox"})do +__a[b_a]=function(c_a,d_a,_aa,aaa,baa,caa)local daa,_ba=c_a:getPosition()local aba,bba=ad:getOffset() +daa=daa-aba;_ba=_ba-bba +baa=(_aa<1 and( +baa+_aa>c_a:getHeight()and c_a:getHeight()or baa+_aa-1)or( +baa+ +_aa>c_a:getHeight()and c_a:getHeight()-_aa+1 or baa)) +aaa=(d_a<1 and(aaa+d_a>c_a:getWidth()and c_a:getWidth()or aaa+ +d_a-1)or( + +aaa+d_a>c_a:getWidth()and c_a:getWidth()-d_a+1 or aaa)) +ad[b_a](ad,bb(d_a+ (daa-1),daa),bb(_aa+ (_ba-1),_ba),aaa,baa,caa)end end +for a_a,b_a in pairs({"setBG","setFG","setText"})do +__a[b_a]=function(c_a,d_a,_aa,aaa) +local baa,caa=c_a:getPosition()local daa,_ba=ad:getOffset()baa=baa-daa;caa=caa-_ba +local aba,bba=c_a:getSize()if(_aa>=1)and(_aa<=bba)then +ad[b_a](ad,bb(d_a+ (baa-1),baa),caa+_aa-1,db(aaa,bb( +1 -d_a+1,1),bb(aba-d_a+1,1)))end end end;__a.__index=__a;return setmetatable(__a,dc)end end +aa["objects"]["Timer"]=function(...) +return +function(ab,bb) +local cb=bb.getObject("Object")(ab,bb)local db="Timer"local _c=0;local ac=0;local bc=0;local cc;local dc=false +local _d={getType=function(ad)return db end,setTime=function(ad,bd,cd)_c=bd or 0 +ac=cd or 1;return ad end,getTime=function(ad)return _c end,start=function(ad)if(dc)then +os.cancelTimer(cc)end;bc=ac;cc=os.startTimer(_c)dc=true +ad:listenEvent("other_event")return ad end,isActive=function(ad)return dc end,cancel=function(ad)if( +cc~=nil)then os.cancelTimer(cc)end;dc=false +ad:removeEvent("other_event")return ad end,setStart=function(ad,bd)if(bd==true)then +return ad:start()else return ad:cancel()end end,onCall=function(ad,bd) +ad:registerEvent("timed_event",bd)return ad end,eventHandler=function(ad,bd,...)cb.eventHandler(ad,bd,...) +if +bd=="timer"and tObj==cc and dc then +ad:sendEvent("timed_event")if(bc>=1)then bc=bc-1;if(bc>=1)then cc=os.startTimer(_c)end elseif(bc==-1)then +cc=os.startTimer(_c)end end end}_d.__index=_d;return setmetatable(_d,cb)end end aa["objects"]["Treeview"]=function(...)local ab=da("utils")local bb=da("tHex") return function(cb,db) @@ -1767,1216 +2980,4 @@ ada.f(dca)end end;return true end,draw=function(dca) dca:addDraw("base",function() local _da,ada=dca:getSize()if(daa~=false)then dca:addTextBox(1,1,_da,ada," ") dca:addBackgroundBox(1,1,_da,ada,daa)end;if(_ba~=false)then -dca:addForegroundBox(1,1,_da,ada,_ba)end end,1)end}cca.__index=cca;return setmetatable(cca,cc)end end -aa["objects"]["Thread"]=function(...) -return -function(ab,bb) -local cb=bb.getObject("Object")(ab,bb)local db="Thread"local _c;local ac;local bc=false;local cc -local dc={getType=function(_d)return db end,start=function(_d,ad)if(ad==nil)then -error("Function provided to thread is nil")end;_c=ad;ac=coroutine.create(_c) -bc=true;cc=nil;local bd,cd=coroutine.resume(ac)cc=cd;if not(bd)then -if(cd~="Terminated")then error( -"Thread Error Occurred - "..cd)end end -_d:listenEvent("mouse_click")_d:listenEvent("mouse_up") -_d:listenEvent("mouse_scroll")_d:listenEvent("mouse_drag")_d:listenEvent("key") -_d:listenEvent("key_up")_d:listenEvent("char") -_d:listenEvent("other_event")return _d end,getStatus=function(_d,ad)if( -ac~=nil)then return coroutine.status(ac)end;return nil end,stop=function(_d,ad) -bc=false;_d:listenEvent("mouse_click",false) -_d:listenEvent("mouse_up",false)_d:listenEvent("mouse_scroll",false) -_d:listenEvent("mouse_drag",false)_d:listenEvent("key",false) -_d:listenEvent("key_up",false)_d:listenEvent("char",false) -_d:listenEvent("other_event",false)return _d end,mouseHandler=function(_d,...) -_d:eventHandler("mouse_click",...)end,mouseUpHandler=function(_d,...)_d:eventHandler("mouse_up",...)end,mouseScrollHandler=function(_d,...) -_d:eventHandler("mouse_scroll",...)end,mouseDragHandler=function(_d,...) -_d:eventHandler("mouse_drag",...)end,mouseMoveHandler=function(_d,...) -_d:eventHandler("mouse_move",...)end,keyHandler=function(_d,...)_d:eventHandler("key",...)end,keyUpHandler=function(_d,...) -_d:eventHandler("key_up",...)end,charHandler=function(_d,...)_d:eventHandler("char",...)end,eventHandler=function(_d,ad,...) -cb.eventHandler(_d,ad,...) -if(bc)then -if(coroutine.status(ac)=="suspended")then if(cc~=nil)then -if(ad~=cc)then return end;cc=nil end -local bd,cd=coroutine.resume(ac,ad,...)cc=cd;if not(bd)then if(cd~="Terminated")then -error("Thread Error Occurred - "..cd)end end else -_d:stop()end end end}dc.__index=dc;return setmetatable(dc,cb)end end -aa["objects"]["Button"]=function(...)local ab=da("utils")local bb=da("tHex") -return -function(cb,db) -local _c=db.getObject("VisualObject")(cb,db)local ac="Button"local bc="center"local cc="center"local dc="Button"_c:setSize(12,3) -_c:setZIndex(5) -local _d={getType=function(ad)return ac end,isType=function(ad,bd)return -ac==bd or _c.isType~=nil and _c.isType(bd)or false end,getBase=function(ad)return -_c end,getHorizontalAlign=function(ad)return bc end,setHorizontalAlign=function(ad,bd)bc=bd;ad:updateDraw()return ad end,getVerticalAlign=function(ad)return -cc end,setVerticalAlign=function(ad,bd)cc=bd;ad:updateDraw()return ad end,getText=function(ad) -return dc end,setText=function(ad,bd)dc=bd;ad:updateDraw()return ad end,draw=function(ad) -_c.draw(ad) -ad:addDraw("button",function()local bd,cd=ad:getSize() -local dd=ab.getTextVerticalAlign(cd,cc)local __a -if(bc=="center")then -__a=math.floor((bd-dc:len())/2)elseif(bc=="right")then __a=bd-dc:len()end;ad:addText(__a+1,dd,dc) -ad:addFG(__a+1,dd,bb[ad:getForeground()or colors.white]:rep(dc:len()))end)end}_d.__index=_d;return setmetatable(_d,_c)end end -aa["objects"]["Image"]=function(...)local ab=da("images")local bb=da("bimg") -local cb,db,_c,ac=table.unpack,string.sub,math.max,math.min -return -function(bc,cc)local dc=cc.getObject("VisualObject")(bc,cc) -local _d="Image"local ad=bb()local bd=ad.getFrameObject(1)local cd;local dd;local __a=1;local a_a=false;local b_a -local c_a=false;local d_a=true;local _aa,aaa=0,0;dc:setSize(24,8)dc:setZIndex(2) -local function baa(_ba)local aba={} -for dba,_ca in -pairs(colors)do if(type(_ca)=="number")then -aba[dba]={term.nativePaletteColor(_ca)}end end;local bba=ad.getMetadata("palette")if(bba~=nil)then for dba,_ca in pairs(bba)do -aba[dba]=tonumber(_ca)end end -local cba=ad.getFrameData("palette")cc.log(cba)if(cba~=nil)then -for dba,_ca in pairs(cba)do aba[dba]=tonumber(_ca)end end;return aba end;local function caa() -if(d_a)then if(ad~=nil)then dc:setSize(ad.getSize())end end end -local daa={getType=function(_ba)return _d end,isType=function(_ba,aba)return -_d==aba or -dc.isType~=nil and dc.isType(aba)or false end,setOffset=function(_ba,aba,bba,cba) -if(cba)then _aa=_aa+ -aba or 0;aaa=aaa+bba or 0 else _aa=aba or _aa;aaa=bba or aaa end;_ba:updateDraw()return _ba end,setXOffset=function(_ba,aba)return _ba:setOffset(_ba,aba, -nil)end,setYOffset=function(_ba,aba)return -_ba:setOffset(_ba,nil,aba)end,setSize=function(_ba,aba,bba)dc:setSize(aba,bba) -d_a=false;return _ba end,getOffset=function(_ba)return _aa,aaa end,getXOffset=function(_ba)return _aa end,getYOffset=function(_ba)return -aaa end,selectFrame=function(_ba,aba)if(ad.getFrameObject(aba)==nil)then -ad.addFrame(aba)end;bd=ad.getFrameObject(aba) -dd=bd.getImage(aba)__a=aba;_ba:updateDraw()end,addFrame=function(_ba,aba) -ad.addFrame(aba)return _ba end,getFrame=function(_ba,aba)return ad.getFrame(aba)end,getFrameObject=function(_ba,aba)return -ad.getFrameObject(aba)end,removeFrame=function(_ba,aba)ad.removeFrame(aba)return _ba end,moveFrame=function(_ba,aba,bba) -ad.moveFrame(aba,bba)return _ba end,getFrames=function(_ba)return ad.getFrames()end,getFrameCount=function(_ba)return -#ad.getFrames()end,getActiveFrame=function(_ba)return __a end,loadImage=function(_ba,aba)if -(fs.exists(aba))then local bba=ab.loadBIMG(aba)ad=bb(bba)__a=1 -bd=ad.getFrameObject(1)cd=ad.createBimg()dd=bd.getImage()caa() -_ba:updateDraw()end;return -_ba end,setPath=function(_ba,aba)return -_ba:loadImage(aba)end,setImage=function(_ba,aba)if(type(aba)=="table")then ad=bb(aba)__a=1 -bd=ad.getFrameObject(1)cd=ad.createBimg()dd=bd.getImage()caa() -_ba:updateDraw()end;return _ba end,clear=function(_ba) -ad=bb()bd=ad.getFrameObject(1)dd=nil;_ba:updateDraw()return _ba end,getImage=function(_ba)return -ad.createBimg()end,getImageFrame=function(_ba,aba)return bd.getImage(aba)end,usePalette=function(_ba,aba)c_a= -aba~=nil and aba or true;return _ba end,getUsePalette=function(_ba)return -c_a end,setUsePalette=function(_ba,aba)return _ba:usePalette(aba)end,play=function(_ba,aba) -if -(ad.getMetadata("animated"))then -local bba= -ad.getMetadata("duration")or ad.getMetadata("secondsPerFrame")or 0.2;_ba:listenEvent("other_event") -b_a=os.startTimer(bba)a_a=aba or false end;return _ba end,setPlay=function(_ba,aba)return -_ba:play(aba)end,stop=function(_ba)os.cancelTimer(b_a)b_a=nil;a_a=false -return _ba end,eventHandler=function(_ba,aba,bba,...) -dc.eventHandler(_ba,aba,bba,...) -if(aba=="timer")then -if(bba==b_a)then -if(ad.getFrame(__a+1)~=nil)then __a=__a+1 -_ba:selectFrame(__a) -local cba= -ad.getFrameData(__a,"duration")or ad.getMetadata("secondsPerFrame")or 0.2;b_a=os.startTimer(cba)else -if(a_a)then __a=1;_ba:selectFrame(__a) -local cba= -ad.getFrameData(__a,"duration")or ad.getMetadata("secondsPerFrame")or 0.2;b_a=os.startTimer(cba)end end;_ba:updateDraw()end end end,setMetadata=function(_ba,aba,bba) -ad.setMetadata(aba,bba)return _ba end,getMetadata=function(_ba,aba)return ad.getMetadata(aba)end,getFrameMetadata=function(_ba,aba,bba)return -ad.getFrameData(aba,bba)end,setFrameMetadata=function(_ba,aba,bba,cba) -ad.setFrameData(aba,bba,cba)return _ba end,blit=function(_ba,aba,bba,cba,dba,_ca)x=dba or x;y=_ca or y -bd.blit(aba,bba,cba,x,y)dd=bd.getImage()_ba:updateDraw()return _ba end,setText=function(_ba,aba,bba,cba)x= -bba or x;y=cba or y;bd.text(aba,x,y)dd=bd.getImage() -_ba:updateDraw()return _ba end,setBg=function(_ba,aba,bba,cba)x=bba or x;y= -cba or y;bd.bg(aba,x,y)dd=bd.getImage() -_ba:updateDraw()return _ba end,setFg=function(_ba,aba,bba,cba)x=bba or x -y=cba or y;bd.fg(aba,x,y)dd=bd.getImage()_ba:updateDraw()return _ba end,getImageSize=function(_ba)return -ad.getSize()end,setImageSize=function(_ba,aba,bba)ad.setSize(aba,bba) -dd=bd.getImage()_ba:updateDraw()return _ba end,resizeImage=function(_ba,aba,bba) -local cba=ab.resizeBIMG(cd,aba,bba)ad=bb(cba)__a=1;bd=ad.getFrameObject(1)dd=bd.getImage() -_ba:updateDraw()return _ba end,draw=function(_ba) -dc.draw(_ba) -_ba:addDraw("image",function()local aba,bba=_ba:getSize()local cba,dba=_ba:getPosition() -local _ca,aca=_ba:getParent():getSize()local bca,cca=_ba:getParent():getOffset() -if -(cba-bca>_ca)or(dba-cca>aca)or(cba-bca+aba<1)or(dba- -cca+bba<1)then return end -if(c_a)then _ba:getParent():setPalette(baa(__a))end -if(dd~=nil)then -for dca,_da in pairs(dd)do -if(dca+aaa<=bba)and(dca+aaa>=1)then -local ada,bda,cda=_da[1],_da[2],_da[3]local dda=_c(1 -_aa,1)local __b=ac(aba-_aa,#ada) -ada=db(ada,dda,__b)bda=db(bda,dda,__b)cda=db(cda,dda,__b) -_ba:addBlit(_c(1 +_aa,1),dca+aaa,ada,bda,cda)end end end end)end}daa.__index=daa;return setmetatable(daa,dc)end end -aa["objects"]["Timer"]=function(...) -return -function(ab,bb) -local cb=bb.getObject("Object")(ab,bb)local db="Timer"local _c=0;local ac=0;local bc=0;local cc;local dc=false -local _d={getType=function(ad)return db end,setTime=function(ad,bd,cd)_c=bd or 0 -ac=cd or 1;return ad end,getTime=function(ad)return _c end,start=function(ad)if(dc)then -os.cancelTimer(cc)end;bc=ac;cc=os.startTimer(_c)dc=true -ad:listenEvent("other_event")return ad end,isActive=function(ad)return dc end,cancel=function(ad)if( -cc~=nil)then os.cancelTimer(cc)end;dc=false -ad:removeEvent("other_event")return ad end,setStart=function(ad,bd)if(bd==true)then -return ad:start()else return ad:cancel()end end,onCall=function(ad,bd) -ad:registerEvent("timed_event",bd)return ad end,eventHandler=function(ad,bd,...)cb.eventHandler(ad,bd,...) -if -bd=="timer"and tObj==cc and dc then -ad:sendEvent("timed_event")if(bc>=1)then bc=bc-1;if(bc>=1)then cc=os.startTimer(_c)end elseif(bc==-1)then -cc=os.startTimer(_c)end end end}_d.__index=_d;return setmetatable(_d,cb)end end -aa["objects"]["Input"]=function(...)local ab=da("utils")local bb=da("tHex") -return -function(cb,db) -local _c=db.getObject("ChangeableObject")(cb,db)local ac="Input"local bc="text"local cc=0;_c:setZIndex(5)_c:setValue("") -_c:setSize(12,1)local dc=1;local _d=1;local ad=""local bd=colors.black;local cd=colors.lightGray;local dd=ad -local __a=false -local a_a={load=function(b_a)b_a:listenEvent("mouse_click") -b_a:listenEvent("key")b_a:listenEvent("char") -b_a:listenEvent("other_event")b_a:listenEvent("mouse_drag")end,getType=function(b_a)return -ac end,isType=function(b_a,c_a)return -ac==c_a or _c.isType~=nil and _c.isType(c_a)or false end,setDefaultFG=function(b_a,c_a)return b_a:setDefaultText(b_a,ad,c_a, -nil)end,setDefaultBG=function(b_a,c_a)return b_a:setDefaultText(b_a,ad, -nil,c_a)end,setDefaultText=function(b_a,c_a,d_a,_aa) -ad=c_a;cd=d_a or cd;bd=_aa or bd;if(b_a:isFocused())then dd=""else dd=ad end -b_a:updateDraw()return b_a end,getDefaultText=function(b_a)return ad,cd, -bd end,setOffset=function(b_a,c_a)_d=c_a;b_a:updateDraw()return b_a end,getOffset=function(b_a)return -_d end,setTextOffset=function(b_a,c_a)dc=c_a;b_a:updateDraw()return b_a end,getTextOffset=function(b_a)return -dc end,setInputType=function(b_a,c_a)bc=c_a;b_a:updateDraw()return b_a end,getInputType=function(b_a)return -bc end,setValue=function(b_a,c_a)_c.setValue(b_a,tostring(c_a)) -if not(__a)then dc= -tostring(c_a):len()+1 -_d=math.max(1,dc-b_a:getWidth()+1) -if(b_a:isFocused())then local d_a=b_a:getParent() -local _aa,aaa=b_a:getPosition() -d_a:setCursor(true,_aa+dc-_d,aaa+math.floor(b_a:getHeight()/2),b_a:getForeground())end end;b_a:updateDraw()return b_a end,getValue=function(b_a) -local c_a=_c.getValue(b_a) -return bc=="number"and tonumber(c_a)or c_a end,setInputLimit=function(b_a,c_a) -cc=tonumber(c_a)or cc;b_a:updateDraw()return b_a end,getInputLimit=function(b_a)return cc end,getFocusHandler=function(b_a) -_c.getFocusHandler(b_a)local c_a=b_a:getParent() -if(c_a~=nil)then local d_a,_aa=b_a:getPosition()dd=""if(ad~= -"")then b_a:updateDraw()end -c_a:setCursor(true,d_a+dc-_d,_aa+math.max(math.ceil( -b_a:getHeight()/2 -1,1)),b_a:getForeground())end end,loseFocusHandler=function(b_a) -_c.loseFocusHandler(b_a)local c_a=b_a:getParent()dd=ad -if(ad~="")then b_a:updateDraw()end;c_a:setCursor(false)end,keyHandler=function(b_a,c_a) -if -(_c.keyHandler(b_a,c_a))then local d_a,_aa=b_a:getSize()local aaa=b_a:getParent()__a=true -if -(c_a==keys.backspace)then local _ba=tostring(_c.getValue()) -if(dc>1)then b_a:setValue(_ba:sub(1,dc-2).. -_ba:sub(dc,_ba:len()))dc=math.max( -dc-1,1)if(dc<_d)then _d=math.max(_d-1,1)end end end -if(c_a==keys.enter)then aaa:clearFocusedChild(b_a)end -if(c_a==keys.right)then -local _ba=tostring(_c.getValue()):len()dc=dc+1;if(dc>_ba)then dc=_ba+1 end;dc=math.max(dc,1)if(dc<_d)or -(dc>=d_a+_d)then _d=dc-d_a+1 end;_d=math.max(_d,1)end;if(c_a==keys.left)then dc=dc-1;if(dc>=1)then -if(dc<_d)or(dc>=d_a+_d)then _d=dc end end;dc=math.max(dc,1) -_d=math.max(_d,1)end -local baa,caa=b_a:getPosition()local daa=tostring(_c.getValue())b_a:updateDraw() -__a=false;return true end end,charHandler=function(b_a,c_a) -if -(_c.charHandler(b_a,c_a))then __a=true;local d_a,_aa=b_a:getSize()local aaa=_c.getValue() -if( -aaa:len()0)then -if( -tonumber(_c.getValue())==nil)then b_a:setValue(_ba)dc=dc-1 end end end else -b_a:setValue(aaa:sub(1,dc-1)..c_a..aaa:sub(dc,aaa:len()))dc=dc+1 end;if(dc>=d_a+_d)then _d=_d+1 end end;local baa,caa=b_a:getPosition() -local daa=tostring(_c.getValue())__a=false;b_a:updateDraw()return true end end,mouseHandler=function(b_a,c_a,d_a,_aa) -if -(_c.mouseHandler(b_a,c_a,d_a,_aa))then local aaa=b_a:getParent()local baa,caa=b_a:getPosition() -local daa,_ba=b_a:getAbsolutePosition(baa,caa)local aba,bba=b_a:getSize()dc=d_a-daa+_d;local cba=_c.getValue()if(dc> -cba:len())then dc=cba:len()+1 end;if(dc<_d)then _d=dc-1 -if(_d<1)then _d=1 end end -aaa:setCursor(true,baa+dc-_d,caa+ -math.max(math.ceil(bba/2 -1,1)),b_a:getForeground())return true end end,dragHandler=function(b_a,c_a,d_a,_aa,aaa,baa) -if -(b_a:isFocused())then if(b_a:isCoordsInObject(d_a,_aa))then -if(_c.dragHandler(b_a,c_a,d_a,_aa,aaa,baa))then return true end end -local caa=b_a:getParent()caa:clearFocusedChild()end end,draw=function(b_a) -_c.draw(b_a) -b_a:addDraw("input",function()local c_a=b_a:getParent()local d_a,_aa=b_a:getPosition() -local aaa,baa=b_a:getSize()local caa=ab.getTextVerticalAlign(baa,textVerticalAlign) -local daa=tostring(_c.getValue())local _ba=b_a:getBackground()local aba=b_a:getForeground()local bba;if( -daa:len()<=0)then bba=dd;_ba=bd or _ba;aba=cd or aba end -bba=dd;if(daa~="")then bba=daa end;bba=bba:sub(_d,aaa+_d-1)local cba=aaa- -bba:len()if(cba<0)then cba=0 end -if -(bc=="password")and(daa~="")then bba=string.rep("*",bba:len())end;bba=bba..string.rep(" ",cba) -b_a:addBlit(1,caa,bba,bb[aba]:rep(bba:len()),bb[_ba]:rep(bba:len()))if(b_a:isFocused())then -c_a:setCursor(true,d_a+dc-_d,_aa+ -math.floor(b_a:getHeight()/2),b_a:getForeground())end end)end}a_a.__index=a_a;return setmetatable(a_a,_c)end end -aa["objects"]["Textfield"]=function(...)local ab=da("tHex") -local bb,cb,db,_c,ac=string.rep,string.find,string.gmatch,string.sub,string.len -return -function(bc,cc) -local dc=cc.getObject("ChangeableObject")(bc,cc)local _d="Textfield"local ad,bd,cd,dd=1,1,1,1;local __a={""}local a_a={""}local b_a={""}local c_a={}local d_a={} -local _aa,aaa,baa,caa;local daa,_ba=colors.lightBlue,colors.black;dc:setSize(30,12) -dc:setZIndex(5) -local function aba()if -(_aa~=nil)and(aaa~=nil)and(baa~=nil)and(caa~=nil)then return true end;return false end -local function bba()local cca,dca,_da,ada=_aa,aaa,baa,caa -if aba()then -if _aaaaa and baa>=caa then -cca=aaa;dca=_aa;if baa>caa then _da=caa;ada=baa else _da=baa;ada=caa end elseif baa>caa then -cca=aaa;dca=_aa;_da=caa;ada=baa end;return cca,dca,_da,ada end end -local function cba(cca)local dca,_da,ada,bda=bba(cca)local cda=__a[ada]local dda=__a[bda] -__a[ada]= -cda:sub(1,dca-1)..dda:sub(_da+1,dda:len())a_a[ada]=a_a[ada]:sub(1,dca-1).. -a_a[bda]:sub(_da+1,a_a[bda]:len()) -b_a[ada]=b_a[ada]:sub(1, -dca-1)..b_a[bda]:sub(_da+1,b_a[bda]:len()) -for i=bda,ada+1,-1 do if i~=ada then table.remove(__a,i)table.remove(a_a,i) -table.remove(b_a,i)end end;cd,dd=dca,ada;_aa,aaa,baa,caa=nil,nil,nil,nil;return cca end -local function dba(cca,dca)local _da={} -if(cca:len()>0)then -for ada in db(cca,dca)do local bda,cda=cb(cca,ada) -if -(bda~=nil)and(cda~=nil)then table.insert(_da,bda)table.insert(_da,cda) -local dda=_c(cca,1,(bda-1))local __b=_c(cca,cda+1,cca:len())cca=dda.. (":"):rep(ada:len()).. -__b end end end;return _da end -local function _ca(cca,dca)dca=dca or dd -local _da=ab[cca:getForeground()]:rep(b_a[dca]:len()) -local ada=ab[cca:getBackground()]:rep(a_a[dca]:len()) -for bda,cda in pairs(d_a)do local dda=dba(__a[dca],cda[1]) -if(#dda>0)then -for x=1,#dda/2 do -local __b=x*2 -1;if(cda[2]~=nil)then -_da=_da:sub(1,dda[__b]-1)..ab[cda[2]]:rep(dda[__b+1]- ( -dda[__b]-1)).. -_da:sub(dda[__b+1]+1,_da:len())end;if -(cda[3]~=nil)then -ada=ada:sub(1,dda[__b]-1).. - -ab[cda[3]]:rep(dda[__b+1]- (dda[__b]-1))..ada:sub(dda[__b+1]+1,ada:len())end end end end -for bda,cda in pairs(c_a)do -for dda,__b in pairs(cda)do local a_b=dba(__a[dca],__b) -if(#a_b>0)then for x=1,#a_b/2 do -local b_b=x*2 -1 -_da=_da:sub(1,a_b[b_b]-1).. - -ab[bda]:rep(a_b[b_b+1]- (a_b[b_b]-1)).._da:sub(a_b[b_b+1]+1,_da:len())end end end end;b_a[dca]=_da;a_a[dca]=ada;cca:updateDraw()end;local function aca(cca)for n=1,#__a do _ca(cca,n)end end -local bca={getType=function(cca)return _d end,setBackground=function(cca,dca) -dc.setBackground(cca,dca)aca(cca)return cca end,setForeground=function(cca,dca) -dc.setForeground(cca,dca)aca(cca)return cca end,setSelection=function(cca,dca,_da)_ba=dca or _ba -daa=_da or daa;return cca end,setSelectionFG=function(cca,dca) -return cca:setSelection(dca,nil)end,setSelectionBG=function(cca,dca)return cca:setSelection(nil,dca)end,getSelection=function(cca)return -_ba,daa end,getSelectionFG=function(cca)return _ba end,getSelectionBG=function(cca)return daa end,getLines=function(cca)return __a end,getLine=function(cca,dca)return -__a[dca]end,editLine=function(cca,dca,_da)__a[dca]=_da or __a[dca] -_ca(cca,dca)cca:updateDraw()return cca end,clear=function(cca) -__a={""}a_a={""}b_a={""}_aa,aaa,baa,caa=nil,nil,nil,nil;ad,bd,cd,dd=1,1,1,1 -cca:updateDraw()return cca end,addLine=function(cca,dca,_da) -if(dca~=nil)then -local ada=cca:getBackground()local bda=cca:getForeground() -if(#__a==1)and(__a[1]=="")then -__a[1]=dca;a_a[1]=ab[ada]:rep(dca:len()) -b_a[1]=ab[bda]:rep(dca:len())_ca(cca,1)return cca end -if(_da~=nil)then table.insert(__a,_da,dca) -table.insert(a_a,_da,ab[ada]:rep(dca:len())) -table.insert(b_a,_da,ab[bda]:rep(dca:len()))else table.insert(__a,dca) -table.insert(a_a,ab[ada]:rep(dca:len())) -table.insert(b_a,ab[bda]:rep(dca:len()))end end;_ca(cca,_da or#__a)cca:updateDraw()return cca end,addKeywords=function(cca,dca,_da)if( -c_a[dca]==nil)then c_a[dca]={}end;for ada,bda in pairs(_da)do -table.insert(c_a[dca],bda)end;cca:updateDraw()return cca end,addRule=function(cca,dca,_da,ada) -table.insert(d_a,{dca,_da,ada})cca:updateDraw()return cca end,editRule=function(cca,dca,_da,ada)for bda,cda in -pairs(d_a)do -if(cda[1]==dca)then d_a[bda][2]=_da;d_a[bda][3]=ada end end;cca:updateDraw()return cca end,removeRule=function(cca,dca) -for _da,ada in -pairs(d_a)do if(ada[1]==dca)then table.remove(d_a,_da)end end;cca:updateDraw()return cca end,setKeywords=function(cca,dca,_da) -c_a[dca]=_da;cca:updateDraw()return cca end,removeLine=function(cca,dca) -if(#__a>1)then table.remove(__a, -dca or#__a) -table.remove(a_a,dca or#a_a)table.remove(b_a,dca or#b_a)else __a={""}a_a={""}b_a={""}end;cca:updateDraw()return cca end,getTextCursor=function(cca)return -cd,dd end,getOffset=function(cca)return bd,ad end,setOffset=function(cca,dca,_da)bd=dca or bd;ad=_da or ad -cca:updateDraw()return cca end,getXOffset=function(cca,dca)return bd end,setXOffset=function(cca,dca)return -cca:setOffset(dca,nil)end,getYOffset=function(cca,dca)return ad end,setYOffset=function(cca,dca)return -cca:setOffset(nil,dca)end,getFocusHandler=function(cca)dc.getFocusHandler(cca) -local dca,_da=cca:getPosition() -cca:getParent():setCursor(true,dca+cd-bd,_da+dd-ad,cca:getForeground())end,loseFocusHandler=function(cca) -dc.loseFocusHandler(cca)cca:getParent():setCursor(false)end,keyHandler=function(cca,dca) -if -(dc.keyHandler(cca,event,dca))then local _da=cca:getParent()local ada,bda=cca:getPosition() -local cda,dda=cca:getSize() -if(dca==keys.backspace)then -if(aba())then cba(cca)else -if(__a[dd]=="")then -if(dd>1)then -table.remove(__a,dd)table.remove(b_a,dd)table.remove(a_a,dd)cd= -__a[dd-1]:len()+1;bd=cd-cda+1;if(bd<1)then bd=1 end;dd=dd-1 end elseif(cd<=1)then -if(dd>1)then cd=__a[dd-1]:len()+1;bd=cd-cda+1;if(bd<1)then -bd=1 end;__a[dd-1]=__a[dd-1]..__a[dd]b_a[dd-1]= -b_a[dd-1]..b_a[dd] -a_a[dd-1]=a_a[dd-1]..a_a[dd]table.remove(__a,dd)table.remove(b_a,dd) -table.remove(a_a,dd)dd=dd-1 end else __a[dd]=__a[dd]:sub(1,cd-2).. -__a[dd]:sub(cd,__a[dd]:len()) -b_a[dd]= -b_a[dd]:sub(1,cd-2)..b_a[dd]:sub(cd,b_a[dd]:len())a_a[dd]=a_a[dd]:sub(1,cd-2).. -a_a[dd]:sub(cd,a_a[dd]:len()) -if(cd>1)then cd=cd-1 end;if(bd>1)then if(cd -__a[dd]:len())then if(__a[dd+1]~=nil)then __a[dd]=__a[dd]..__a[dd+1]table.remove(__a, -dd+1)table.remove(a_a,dd+1) -table.remove(b_a,dd+1)end else -__a[dd]=__a[dd]:sub(1, -cd-1)..__a[dd]:sub(cd+1,__a[dd]:len())b_a[dd]=b_a[dd]:sub(1,cd-1).. -b_a[dd]:sub(cd+1,b_a[dd]:len()) -a_a[dd]=a_a[dd]:sub(1, -cd-1)..a_a[dd]:sub(cd+1,a_a[dd]:len())end end;_ca(cca)elseif(dca==keys.enter)then if(aba())then cba(cca)end -table.insert(__a,dd+1,__a[dd]:sub(cd,__a[dd]:len())) -table.insert(b_a,dd+1,b_a[dd]:sub(cd,b_a[dd]:len())) -table.insert(a_a,dd+1,a_a[dd]:sub(cd,a_a[dd]:len()))__a[dd]=__a[dd]:sub(1,cd-1) -b_a[dd]=b_a[dd]:sub(1,cd-1)a_a[dd]=a_a[dd]:sub(1,cd-1)dd=dd+1;cd=1;bd=1;if(dd-ad>=dda)then -ad=ad+1 end;cca:setValue("")elseif(dca==keys.up)then -_aa,baa,aaa,caa=nil,nil,nil,nil -if(dd>1)then dd=dd-1;if(cd>__a[dd]:len()+1)then -cd=__a[dd]:len()+1 end;if(bd>1)then -if(cd1)then if(dd -__a[dd]:len()+1)then cd=__a[dd]:len()+1 end -if(bd>1)then if(cd=ad+dda)then ad=ad+1 end end elseif(dca==keys.right)then _aa,baa,aaa,caa=nil,nil,nil,nil;cd=cd+1 -if(dd<#__a)then if(cd> -__a[dd]:len()+1)then cd=1;dd=dd+1 end elseif -(cd>__a[dd]:len())then cd=__a[dd]:len()+1 end;if(cd<1)then cd=1 end -if(cd=cda+bd)then bd=cd-cda+1 end;if(bd<1)then bd=1 end elseif(dca==keys.left)then _aa,baa,aaa,caa=nil,nil,nil,nil;cd=cd-1 -if(cd>=1)then if( -cd=cda+bd)then bd=cd end end;if(dd>1)then -if(cd<1)then dd=dd-1;cd=__a[dd]:len()+1;bd=cd-cda+1 end end;if(cd<1)then cd=1 end;if(bd<1)then bd=1 end elseif(dca== -keys.tab)then -if(cd%3 ==0)then -__a[dd]=__a[dd]:sub(1,cd-1).." ".. -__a[dd]:sub(cd,__a[dd]:len()) -b_a[dd]=b_a[dd]:sub(1,cd-1)..ab[cca:getForeground()].. -b_a[dd]:sub(cd,b_a[dd]:len()) -a_a[dd]=a_a[dd]:sub(1,cd-1)..ab[cca:getBackground()].. -a_a[dd]:sub(cd,a_a[dd]:len())cd=cd+1 end -while cd%3 ~=0 do -__a[dd]=__a[dd]:sub(1,cd-1).." ".. -__a[dd]:sub(cd,__a[dd]:len()) -b_a[dd]=b_a[dd]:sub(1,cd-1)..ab[cca:getForeground()].. -b_a[dd]:sub(cd,b_a[dd]:len()) -a_a[dd]=a_a[dd]:sub(1,cd-1)..ab[cca:getBackground()].. -a_a[dd]:sub(cd,a_a[dd]:len())cd=cd+1 end end -if not -( (ada+cd-bd>=ada and ada+cd-bd=bda and bda+dd-adcca:getX()+ -cda-1)then __b=cca:getX()+cda-1 end;local a_b=(dd-ad=cda+bd)then bd=bd+1 end;_ca(cca) -cca:setValue("") -if not -( (ada+cd-bd>=ada and ada+cd-bd=bda and bda+dd-adcca:getX()+ -cda-1)then __b=cca:getX()+cda-1 end;local a_b=(dd-ad_da-cda+bd then cd=_da-cda+bd;dd=ada-dda+ -ad;if cd>__a[dd]:len()then -cd=__a[dd]:len()+1 end;aaa=cd;caa=dd -if cd#__a- (c_b-1))then -ad=#__a- (c_b-1)end;if(ad<1)then ad=1 end -if(cda+cd-bd>=cda and cda+cd-bd< -cda+b_b)and -(a_b+dd-ad>=a_b and a_b+dd-ad__a[dd]:len())then -cd=__a[dd]:len()+1;_aa=cd end -if(cd__a[caa]:len())then aaa=__a[caa]:len()+1 end -if(_aa==aaa)and(baa==caa)then _aa,aaa,baa,caa=nil,nil,nil,nil end;cca:updateDraw()end;return true end end,eventHandler=function(cca,dca,_da,ada,bda,cda) -if -(dc.eventHandler(cca,dca,_da,ada,bda,cda))then -if(dca=="paste")then -if(cca:isFocused())then local dda=cca:getParent() -local __b,a_b=cca:getForeground(),cca:getBackground()local b_b,c_b=cca:getSize() -__a[dd]=__a[dd]:sub(1,cd-1).._da.. -__a[dd]:sub(cd,__a[dd]:len()) -b_a[dd]=b_a[dd]:sub(1,cd-1)..ab[__b]:rep(_da:len()).. -b_a[dd]:sub(cd,b_a[dd]:len()) -a_a[dd]=a_a[dd]:sub(1,cd-1)..ab[a_b]:rep(_da:len()).. -a_a[dd]:sub(cd,a_a[dd]:len())cd=cd+_da:len()if(cd>=b_b+bd)then bd=(cd+1)-b_b end -local d_b,_ab=cca:getPosition() -dda:setCursor(true,d_b+cd-bd,_ab+dd-ad,__b)_ca(cca)cca:updateDraw()end end end end,draw=function(cca) -dc.draw(cca) -cca:addDraw("textfield",function()local dca=cca:getParent()local _da,ada=cca:getPosition() -local bda,cda=cca:getSize()local dda=ab[cca:getBackground()] -local __b=ab[cca:getForeground()] -for n=1,cda do local a_b=""local b_b=""local c_b=""if __a[n+ad-1]then a_b=__a[n+ad-1] -c_b=b_a[n+ad-1]b_b=a_a[n+ad-1]end -a_b=_c(a_b,bd,bda+bd-1)b_b=bb(dda,bda)c_b=bb(__b,bda)cca:addText(1,n,a_b) -cca:addBG(1,n,b_b)cca:addFG(1,n,c_b)cca:addBlit(1,n,a_b,c_b,b_b)end -if _aa and aaa and baa and caa then local a_b,b_b,c_b,d_b=bba(cca) -for n=c_b,d_b do -local _ab=#__a[n]local aab=0 -if n==c_b and n==d_b then aab=a_b-1 -_ab=_ab- (a_b-1)- (_ab-b_b)elseif n==d_b then _ab=_ab- (_ab-b_b)elseif n==c_b then _ab=_ab- (a_b-1)aab=a_b-1 end;cca:addBG(1 +aab,n,bb(ab[daa],_ab)) -cca:addFG(1 +aab,n,bb(ab[_ba],_ab))end end end)end,load=function(cca) -cca:listenEvent("mouse_click")cca:listenEvent("mouse_up") -cca:listenEvent("mouse_scroll")cca:listenEvent("mouse_drag") -cca:listenEvent("key")cca:listenEvent("char") -cca:listenEvent("other_event")end}bca.__index=bca;return setmetatable(bca,dc)end end -aa["objects"]["Progressbar"]=function(...) -return -function(ab,bb) -local cb=bb.getObject("ChangeableObject")(ab,bb)local db="Progressbar"local _c=0;cb:setZIndex(5)cb:setValue(false) -cb:setSize(25,3)local ac=colors.black;local bc=""local cc=colors.white;local dc=""local _d=0 -local ad={getType=function(bd)return db end,setDirection=function(bd,cd) -_d=cd;bd:updateDraw()return bd end,getDirection=function(bd)return _d end,setProgressBar=function(bd,cd,dd,__a) -ac=cd or ac;bc=dd or bc;cc=__a or cc;bd:updateDraw()return bd end,getProgressBar=function(bd)return -ac,bc,cc end,setActiveBarColor=function(bd,cd)return bd:setProgressBar(cd,nil,nil)end,getActiveBarColor=function(bd)return -ac end,setActiveBarSymbol=function(bd,cd)return bd:setProgressBar(nil,cd,nil)end,getActiveBarSymbol=function(bd)return -bc end,setActiveBarSymbolColor=function(bd,cd)return bd:setProgressBar(nil,nil,cd)end,getActiveBarSymbolColor=function(bd)return -cc end,setBackgroundSymbol=function(bd,cd)dc=cd:sub(1,1)bd:updateDraw()return bd end,getBackgroundSymbol=function(bd)return -dc end,setProgress=function(bd,cd) -if(cd>=0)and(cd<=100)and(_c~=cd)then _c=cd -bd:setValue(_c)if(_c==100)then bd:progressDoneHandler()end end;bd:updateDraw()return bd end,getProgress=function(bd)return -_c end,onProgressDone=function(bd,cd)bd:registerEvent("progress_done",cd) -return bd end,progressDoneHandler=function(bd) -bd:sendEvent("progress_done")end,draw=function(bd)cb.draw(bd) -bd:addDraw("progressbar",function() -local cd,dd=bd:getPosition()local __a,a_a=bd:getSize() -local b_a,c_a=bd:getBackground(),bd:getForeground() -if(b_a~=false)then bd:addBackgroundBox(1,1,__a,a_a,b_a)end;if(dc~="")then bd:addTextBox(1,1,__a,a_a,dc)end -if -(c_a~=false)then bd:addForegroundBox(1,1,__a,a_a,c_a)end -if(_d==1)then bd:addBackgroundBox(1,1,__a,a_a/100 *_c,ac)bd:addForegroundBox(1,1,__a, -a_a/100 *_c,cc) -bd:addTextBox(1,1,__a,a_a/100 *_c,bc)elseif(_d==3)then -bd:addBackgroundBox(1,1 +math.ceil(a_a-a_a/100 *_c),__a, -a_a/100 *_c,ac) -bd:addForegroundBox(1,1 +math.ceil(a_a-a_a/100 *_c),__a, -a_a/100 *_c,cc) -bd:addTextBox(1,1 +math.ceil(a_a-a_a/100 *_c),__a,a_a/100 *_c,bc)elseif(_d==2)then -bd:addBackgroundBox(1 +math.ceil(__a-__a/100 *_c),1,__a/ -100 *_c,a_a,ac) -bd:addForegroundBox(1 +math.ceil(__a-__a/100 *_c),1,__a/100 *_c,a_a,cc) -bd:addTextBox(1 +math.ceil(__a-__a/100 *_c),1,__a/100 *_c,a_a,bc)else -bd:addBackgroundBox(1,1,math.ceil(__a/100 *_c),a_a,ac) -bd:addForegroundBox(1,1,math.ceil(__a/100 *_c),a_a,cc) -bd:addTextBox(1,1,math.ceil(__a/100 *_c),a_a,bc)end end)end}ad.__index=ad;return setmetatable(ad,cb)end end -aa["objects"]["Pane"]=function(...) -return -function(ab,bb) -local cb=bb.getObject("VisualObject")(ab,bb)local db="Pane"cb:setSize(25,10) -local _c={getType=function(ac)return db end}_c.__index=_c;return setmetatable(_c,cb)end end -aa["objects"]["Program"]=function(...)local ab=da("tHex")local bb=da("process") -local cb=string.sub -return -function(db,_c)local ac=_c.getObject("VisualObject")(db,_c) -local bc="Program"local cc;local dc;local _d={} -local function ad(_aa,aaa,baa,caa)local daa,_ba=1,1;local aba,bba=colors.black,colors.white;local cba=false -local dba=false;local _ca={}local aca={}local bca={}local cca={}local dca;local _da={}for i=0,15 do local cab=2 ^i -cca[cab]={_c.getTerm().getPaletteColour(cab)}end;local function ada()dca=(" "):rep(baa) -for n=0,15 do -local cab=2 ^n;local dab=ab[cab]_da[cab]=dab:rep(baa)end end -local function bda()ada()local cab=dca -local dab=_da[colors.white]local _bb=_da[colors.black] -for n=1,caa do -_ca[n]=cb(_ca[n]==nil and cab or _ca[n]..cab:sub(1, -baa-_ca[n]:len()),1,baa) -bca[n]=cb(bca[n]==nil and dab or bca[n].. -dab:sub(1,baa-bca[n]:len()),1,baa) -aca[n]=cb(aca[n]==nil and _bb or aca[n].. -_bb:sub(1,baa-aca[n]:len()),1,baa)end;ac.updateDraw(ac)end;bda()local function cda()if -daa>=1 and _ba>=1 and daa<=baa and _ba<=caa then else end end -local function dda(cab,dab,_bb)if - -_ba<1 or _ba>caa or daa<1 or daa+#cab-1 >baa then return end -_ca[_ba]=cb(_ca[_ba],1,daa-1)..cab..cb(_ca[_ba], -daa+#cab,baa)bca[_ba]=cb(bca[_ba],1,daa-1).. -dab..cb(bca[_ba],daa+#cab,baa) -aca[_ba]= -cb(aca[_ba],1,daa-1).._bb..cb(aca[_ba],daa+#cab,baa)daa=daa+#cab;if dba then cda()end;cc:updateDraw()end -local function __b(cab,dab,_bb) -if(_bb~=nil)then local abb=_ca[dab]if(abb~=nil)then -_ca[dab]=cb(abb:sub(1,cab-1).._bb..abb:sub(cab+ -(_bb:len()),baa),1,baa)end end;cc:updateDraw()end -local function a_b(cab,dab,_bb) -if(_bb~=nil)then local abb=aca[dab]if(abb~=nil)then -aca[dab]=cb(abb:sub(1,cab-1).._bb..abb:sub(cab+ -(_bb:len()),baa),1,baa)end end;cc:updateDraw()end -local function b_b(cab,dab,_bb) -if(_bb~=nil)then local abb=bca[dab]if(abb~=nil)then -bca[dab]=cb(abb:sub(1,cab-1).._bb..abb:sub(cab+ -(_bb:len()),baa),1,baa)end end;cc:updateDraw()end -local c_b=function(cab) -if type(cab)~="number"then -error("bad argument #1 (expected number, got "..type(cab)..")",2)elseif ab[cab]==nil then -error("Invalid color (got "..cab..")",2)end;bba=cab end -local d_b=function(cab) -if type(cab)~="number"then -error("bad argument #1 (expected number, got "..type(cab)..")",2)elseif ab[cab]==nil then -error("Invalid color (got "..cab..")",2)end;aba=cab end -local _ab=function(cab,dab,_bb,abb)if type(cab)~="number"then -error("bad argument #1 (expected number, got "..type(cab)..")",2)end -if ab[cab]==nil then error("Invalid color (got ".. -cab..")",2)end;local bbb -if -type(dab)=="number"and _bb==nil and abb==nil then bbb={colours.rgb8(dab)}cca[cab]=bbb else if -type(dab)~="number"then -error("bad argument #2 (expected number, got "..type(dab)..")",2)end;if type(_bb)~="number"then -error( -"bad argument #3 (expected number, got "..type(_bb)..")",2)end;if type(abb)~="number"then -error( -"bad argument #4 (expected number, got "..type(abb)..")",2)end;bbb=cca[cab]bbb[1]=dab -bbb[2]=_bb;bbb[3]=abb end end -local aab=function(cab)if type(cab)~="number"then -error("bad argument #1 (expected number, got "..type(cab)..")",2)end -if ab[cab]==nil then error("Invalid color (got ".. -cab..")",2)end;local dab=cca[cab]return dab[1],dab[2],dab[3]end -local bab={setCursorPos=function(cab,dab)if type(cab)~="number"then -error("bad argument #1 (expected number, got "..type(cab)..")",2)end;if type(dab)~="number"then -error( -"bad argument #2 (expected number, got "..type(dab)..")",2)end;daa=math.floor(cab) -_ba=math.floor(dab)if(dba)then cda()end end,getCursorPos=function()return -daa,_ba end,setCursorBlink=function(cab)if type(cab)~="boolean"then -error("bad argument #1 (expected boolean, got ".. -type(cab)..")",2)end;cba=cab end,getCursorBlink=function()return -cba end,getPaletteColor=aab,getPaletteColour=aab,setBackgroundColor=d_b,setBackgroundColour=d_b,setTextColor=c_b,setTextColour=c_b,setPaletteColor=_ab,setPaletteColour=_ab,getBackgroundColor=function()return aba end,getBackgroundColour=function()return aba end,getSize=function() -return baa,caa end,getTextColor=function()return bba end,getTextColour=function()return bba end,basalt_resize=function(cab,dab)baa,caa=cab,dab;bda()end,basalt_reposition=function(cab,dab) -_aa,aaa=cab,dab end,basalt_setVisible=function(cab)dba=cab end,drawBackgroundBox=function(cab,dab,_bb,abb,bbb)for n=1,abb do -a_b(cab,dab+ (n-1),ab[bbb]:rep(_bb))end end,drawForegroundBox=function(cab,dab,_bb,abb,bbb) -for n=1,abb do b_b(cab, -dab+ (n-1),ab[bbb]:rep(_bb))end end,drawTextBox=function(cab,dab,_bb,abb,bbb)for n=1,abb do -__b(cab,dab+ (n-1),bbb:rep(_bb))end end,basalt_update=function()for n=1,caa do -cc:addBlit(1,n,_ca[n],bca[n],aca[n])end end,scroll=function(cab) -assert(type(cab)== -"number","bad argument #1 (expected number, got "..type(cab)..")") -if cab~=0 then -for newY=1,caa do local dab=newY+cab;if dab<1 or dab>caa then _ca[newY]=dca -bca[newY]=_da[bba]aca[newY]=_da[aba]else _ca[newY]=_ca[dab]aca[newY]=aca[dab] -bca[newY]=bca[dab]end end end;if(dba)then cda()end end,isColor=function()return -_c.getTerm().isColor()end,isColour=function() -return _c.getTerm().isColor()end,write=function(cab)cab=tostring(cab)if(dba)then -dda(cab,ab[bba]:rep(cab:len()),ab[aba]:rep(cab:len()))end end,clearLine=function() -if -(dba)then __b(1,_ba,(" "):rep(baa)) -a_b(1,_ba,ab[aba]:rep(baa))b_b(1,_ba,ab[bba]:rep(baa))end;if(dba)then cda()end end,clear=function() -for n=1,caa -do __b(1,n,(" "):rep(baa)) -a_b(1,n,ab[aba]:rep(baa))b_b(1,n,ab[bba]:rep(baa))end;if(dba)then cda()end end,blit=function(cab,dab,_bb)if -type(cab)~="string"then -error("bad argument #1 (expected string, got "..type(cab)..")",2)end;if type(dab)~="string"then -error( -"bad argument #2 (expected string, got "..type(dab)..")",2)end;if type(_bb)~="string"then -error( -"bad argument #3 (expected string, got "..type(_bb)..")",2)end -if -#dab~=#cab or#_bb~=#cab then error("Arguments must be the same length",2)end;if(dba)then dda(cab,dab,_bb)end end}return bab end;ac:setZIndex(5)ac:setSize(30,12)local bd=ad(1,1,30,12)local cd -local dd=false;local __a={} -local function a_a(_aa)local aaa=_aa:getParent()local baa,caa=bd.getCursorPos() -local daa,_ba=_aa:getPosition()local aba,bba=_aa:getSize() -if(daa+baa-1 >=1 and -daa+baa-1 <=daa+aba-1 and caa+_ba-1 >=1 and -caa+_ba-1 <=_ba+bba-1)then -aaa:setCursor( -_aa:isFocused()and bd.getCursorBlink(),daa+baa-1,caa+_ba-1,bd.getTextColor())end end -local function b_a(_aa,aaa,...)local baa,caa=cd:resume(aaa,...) -if(baa==false)and(caa~=nil)and -(caa~="Terminated")then -local daa=_aa:sendEvent("program_error",caa) -if(daa~=false)then error("Basalt Program - "..caa)end end -if(cd:getStatus()=="dead")then _aa:sendEvent("program_done")end end -local function c_a(_aa,aaa,baa,caa,daa)if(cd==nil)then return false end -if not(cd:isDead())then if not(dd)then -local _ba,aba=_aa:getAbsolutePosition()b_a(_aa,aaa,baa,caa-_ba+1,daa-aba+1) -a_a(_aa)end end end -local function d_a(_aa,aaa,baa,caa)if(cd==nil)then return false end -if not(cd:isDead())then if not(dd)then if(_aa.draw)then -b_a(_aa,aaa,baa,caa)a_a(_aa)end end end end -cc={getType=function(_aa)return bc end,show=function(_aa)ac.show(_aa) -bd.setBackgroundColor(_aa:getBackground())bd.setTextColor(_aa:getForeground()) -bd.basalt_setVisible(true)return _aa end,hide=function(_aa) -ac.hide(_aa)bd.basalt_setVisible(false)return _aa end,setPosition=function(_aa,aaa,baa,caa) -ac.setPosition(_aa,aaa,baa,caa)bd.basalt_reposition(_aa:getPosition())return _aa end,getBasaltWindow=function()return -bd end,getBasaltProcess=function()return cd end,setSize=function(_aa,aaa,baa,caa)ac.setSize(_aa,aaa,baa,caa) -bd.basalt_resize(_aa:getWidth(),_aa:getHeight())return _aa end,getStatus=function(_aa)if(cd~=nil)then return -cd:getStatus()end;return"inactive"end,setEnviroment=function(_aa,aaa)_d= -aaa or{}return _aa end,execute=function(_aa,aaa,...)dc=aaa or dc -cd=bb:new(dc,bd,_d,...)bd.setBackgroundColor(colors.black) -bd.setTextColor(colors.white)bd.clear()bd.setCursorPos(1,1) -bd.setBackgroundColor(_aa:getBackground()) -bd.setTextColor(_aa:getForeground()or colors.white)bd.basalt_setVisible(true)b_a(_aa)dd=false -_aa:listenEvent("mouse_click",_aa)_aa:listenEvent("mouse_up",_aa) -_aa:listenEvent("mouse_drag",_aa)_aa:listenEvent("mouse_scroll",_aa) -_aa:listenEvent("key",_aa)_aa:listenEvent("key_up",_aa) -_aa:listenEvent("char",_aa)_aa:listenEvent("other_event",_aa)return _aa end,setExecute=function(_aa,aaa,...)return -_aa:execute(aaa,...)end,stop=function(_aa)local aaa=_aa:getParent() -if(cd~=nil)then if not -(cd:isDead())then b_a(_aa,"terminate")if(cd:isDead())then -aaa:setCursor(false)end end end;aaa:removeEvents(_aa)return _aa end,pause=function(_aa,aaa)dd= -aaa or(not dd)if(cd~=nil)then -if not(cd:isDead())then if not(dd)then -_aa:injectEvents(table.unpack(__a))__a={}end end end;return _aa end,isPaused=function(_aa)return -dd end,injectEvent=function(_aa,aaa,baa,...) -if(cd~=nil)then if not(cd:isDead())then -if(dd==false)or(baa)then -b_a(_aa,aaa,...)else table.insert(__a,{event=aaa,args={...}})end end end;return _aa end,getQueuedEvents=function(_aa)return -__a end,updateQueuedEvents=function(_aa,aaa)__a=aaa or __a;return _aa end,injectEvents=function(_aa,...)if(cd~=nil)then -if not -(cd:isDead())then for aaa,baa in pairs({...})do -b_a(_aa,baa.event,table.unpack(baa.args))end end end;return _aa end,mouseHandler=function(_aa,aaa,baa,caa) -if -(ac.mouseHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_click",aaa,baa,caa)return true end;return false end,mouseUpHandler=function(_aa,aaa,baa,caa) -if -(ac.mouseUpHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_up",aaa,baa,caa)return true end;return false end,scrollHandler=function(_aa,aaa,baa,caa) -if -(ac.scrollHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_scroll",aaa,baa,caa)return true end;return false end,dragHandler=function(_aa,aaa,baa,caa) -if -(ac.dragHandler(_aa,aaa,baa,caa))then c_a(_aa,"mouse_drag",aaa,baa,caa)return true end;return false end,keyHandler=function(_aa,aaa,baa)if -(ac.keyHandler(_aa,aaa,baa))then d_a(_aa,"key",aaa,baa)return true end;return -false end,keyUpHandler=function(_aa,aaa)if -(ac.keyUpHandler(_aa,aaa))then d_a(_aa,"key_up",aaa)return true end -return false end,charHandler=function(_aa,aaa)if -(ac.charHandler(_aa,aaa))then d_a(_aa,"char",aaa)return true end -return false end,getFocusHandler=function(_aa) -ac.getFocusHandler(_aa) -if(cd~=nil)then -if not(cd:isDead())then -if not(dd)then local aaa=_aa:getParent() -if(aaa~=nil)then -local baa,caa=bd.getCursorPos()local daa,_ba=_aa:getPosition()local aba,bba=_aa:getSize() -if -( - -daa+baa-1 >=1 and daa+baa-1 <=daa+aba-1 and caa+_ba-1 >=1 and caa+_ba-1 <=_ba+bba-1)then -aaa:setCursor(bd.getCursorBlink(),daa+baa-1,caa+_ba-1,bd.getTextColor())end end end end end end,loseFocusHandler=function(_aa) -ac.loseFocusHandler(_aa) -if(cd~=nil)then if not(cd:isDead())then local aaa=_aa:getParent()if(aaa~=nil)then -aaa:setCursor(false)end end end end,eventHandler=function(_aa,aaa,...) -ac.eventHandler(_aa,aaa,...)if cd==nil then return end -if not cd:isDead()then -if not dd then b_a(_aa,aaa,...) -if -_aa:isFocused()then local baa=_aa:getParent()local caa,daa=_aa:getPosition() -local _ba,aba=bd.getCursorPos()local bba,cba=_aa:getSize() -if caa+_ba-1 >=1 and -caa+_ba-1 <=caa+bba-1 and aba+daa-1 >=1 and -aba+daa-1 <=daa+cba-1 then -baa:setCursor(bd.getCursorBlink(), -caa+_ba-1,aba+daa-1,bd.getTextColor())end end else table.insert(__a,{event=aaa,args={...}})end end end,resizeHandler=function(_aa,...) -ac.resizeHandler(_aa,...) -if(cd~=nil)then -if not(cd:isDead())then -if not(dd)then -bd.basalt_resize(_aa:getSize())b_a(_aa,"term_resize",_aa:getSize())else -bd.basalt_resize(_aa:getSize()) -table.insert(__a,{event="term_resize",args={_aa:getSize()}})end end end end,repositionHandler=function(_aa,...) -ac.repositionHandler(_aa,...) -if(cd~=nil)then if not(cd:isDead())then -bd.basalt_reposition(_aa:getPosition())end end end,draw=function(_aa) -ac.draw(_aa) -_aa:addDraw("program",function()local aaa=_aa:getParent()local baa,caa=_aa:getPosition() -local daa,_ba=bd.getCursorPos()local aba,bba=_aa:getSize()bd.basalt_update()end)end,onError=function(_aa,...) -for baa,caa in -pairs(table.pack(...))do if(type(caa)=="function")then -_aa:registerEvent("program_error",caa)end end;local aaa=_aa:getParent()_aa:listenEvent("other_event") -return _aa end,onDone=function(_aa,...) -for baa,caa in -pairs(table.pack(...))do if(type(caa)=="function")then -_aa:registerEvent("program_done",caa)end end;local aaa=_aa:getParent()_aa:listenEvent("other_event") -return _aa end}cc.__index=cc;return setmetatable(cc,ac)end end -aa["objects"]["Checkbox"]=function(...)local ab=da("utils")local bb=da("tHex") -return -function(cb,db) -local _c=db.getObject("ChangeableObject")(cb,db)local ac="Checkbox"_c:setZIndex(5)_c:setValue(false) -_c:setSize(1,1)local bc,cc,dc,_d="\42"," ","","right" -local ad={load=function(bd)bd:listenEvent("mouse_click",bd) -bd:listenEvent("mouse_up",bd)end,getType=function(bd)return ac end,isType=function(bd,cd)return -ac==cd or -_c.isType~=nil and _c.isType(cd)or false end,setSymbol=function(bd,cd,dd) -bc=cd or bc;cc=dd or cc;bd:updateDraw()return bd end,setActiveSymbol=function(bd,cd)return bd:setSymbol(cd, -nil)end,setInactiveSymbol=function(bd,cd) -return bd:setSymbol(nil,cd)end,getSymbol=function(bd)return bc,cc end,getActiveSymbol=function(bd)return bc end,getInactiveSymbol=function(bd)return cc end,setText=function(bd,cd) -dc=cd;return bd end,getText=function(bd)return dc end,setTextPosition=function(bd,cd)_d=cd or _d;return bd end,getTextPosition=function(bd)return -_d end,setChecked=_c.setValue,getChecked=_c.getValue,mouseHandler=function(bd,cd,dd,__a) -if(_c.mouseHandler(bd,cd,dd,__a))then -if(cd==1)then -if( -bd:getValue()~=true)and(bd:getValue()~=false)then -bd:setValue(false)else bd:setValue(not bd:getValue())end;bd:updateDraw()return true end end;return false end,draw=function(bd) -_c.draw(bd) -bd:addDraw("checkbox",function()local cd,dd=bd:getPosition()local __a,a_a=bd:getSize() -local b_a=ab.getTextVerticalAlign(a_a,"center")local c_a,d_a=bd:getBackground(),bd:getForeground() -if -(bd:getValue())then -bd:addBlit(1,b_a,ab.getTextHorizontalAlign(bc,__a,"center"),bb[d_a],bb[c_a])else -bd:addBlit(1,b_a,ab.getTextHorizontalAlign(cc,__a,"center"),bb[d_a],bb[c_a])end;if(dc~="")then local _aa=_d=="left"and-dc:len()or 3 -bd:addText(_aa,b_a,dc)end end)end}ad.__index=ad;return setmetatable(ad,_c)end end -aa["objects"]["Object"]=function(...)local ab=da("basaltEvent") -local bb=da("utils")local cb=bb.uuid;local db,_c=table.unpack,string.sub -return -function(ac,bc)ac=ac or cb() -assert(bc~=nil, -"Unable to find basalt instance! ID: "..ac)local cc="Object"local dc,_d=true,false;local ad=ab()local bd={}local cd={}local dd -local __a={init=function(a_a) -if(_d)then return false end;_d=true;return true end,load=function(a_a)end,getType=function(a_a)return cc end,isType=function(a_a,b_a)return cc== -b_a end,getProperty=function(a_a,b_a) -local c_a=a_a["get"..b_a:gsub("^%l",string.upper)]if(c_a~=nil)then return c_a(a_a)end end,setProperty=function(a_a,b_a,...) -local c_a=a_a[ -"set"..b_a:gsub("^%l",string.upper)]if(c_a~=nil)then return c_a(a_a,...)end end,getName=function(a_a)return -ac end,getParent=function(a_a)return dd end,setParent=function(a_a,b_a,c_a)if(c_a)then dd=b_a;return a_a end -if(b_a.getType~= -nil and b_a:isType("Container"))then a_a:remove() -b_a:addChild(a_a)if(a_a.show)then a_a:show()end;dd=b_a end;return a_a end,updateEvents=function(a_a)for b_a,c_a in -pairs(cd)do dd:removeEvent(b_a,a_a) -if(c_a)then dd:addEvent(b_a,a_a)end end;return a_a end,listenEvent=function(a_a,b_a,c_a)if( -dd~=nil)then -if(c_a)or(c_a==nil)then cd[b_a]=true;dd:addEvent(b_a,a_a)elseif -(c_a==false)then cd[b_a]=false;dd:removeEvent(b_a,a_a)end end -return a_a end,getZIndex=function(a_a)return -1 end,enable=function(a_a)dc=true;return a_a end,disable=function(a_a)dc=false;return a_a end,isEnabled=function(a_a)return -dc end,remove=function(a_a)if(dd~=nil)then dd:removeChild(a_a)end -a_a:updateDraw()return a_a end,getBaseFrame=function(a_a)if(dd~=nil)then -return dd:getBaseFrame()end;return a_a end,onEvent=function(a_a,...) -for b_a,c_a in -pairs(table.pack(...))do if(type(c_a)=="function")then -a_a:registerEvent("other_event",c_a)end end;return a_a end,getEventSystem=function(a_a)return -ad end,getRegisteredEvents=function(a_a)return bd end,registerEvent=function(a_a,b_a,c_a) -if(dd~=nil)then dd:addEvent(b_a,a_a)end;ad:registerEvent(b_a,c_a) -if(bd[b_a]==nil)then bd[b_a]={}end;table.insert(bd[b_a],c_a)end,removeEvent=function(a_a,b_a,c_a)if( -ad:getEventCount(b_a)<1)then -if(dd~=nil)then dd:removeEvent(b_a,a_a)end end;ad:removeEvent(b_a,c_a)if( -bd[b_a]~=nil)then table.remove(bd[b_a],c_a)if(#bd[b_a]==0)then -bd[b_a]=nil end end end,eventHandler=function(a_a,b_a,...) -local c_a=a_a:sendEvent("other_event",b_a,...)if(c_a~=nil)then return c_a end end,customEventHandler=function(a_a,b_a,...) -local c_a=a_a:sendEvent("custom_event",b_a,...)if(c_a~=nil)then return c_a end;return true end,sendEvent=function(a_a,b_a,...)if( -b_a=="other_event")or(b_a=="custom_event")then return -ad:sendEvent(b_a,a_a,...)end;return -ad:sendEvent(b_a,a_a,b_a,...)end,onClick=function(a_a,...) -for b_a,c_a in -pairs(table.pack(...))do if(type(c_a)=="function")then -a_a:registerEvent("mouse_click",c_a)end end;return a_a end,onClickUp=function(a_a,...)for b_a,c_a in -pairs(table.pack(...))do -if(type(c_a)=="function")then a_a:registerEvent("mouse_up",c_a)end end;return a_a end,onRelease=function(a_a,...) -for b_a,c_a in -pairs(table.pack(...))do if(type(c_a)=="function")then -a_a:registerEvent("mouse_release",c_a)end end;return a_a end,onScroll=function(a_a,...) -for b_a,c_a in -pairs(table.pack(...))do if(type(c_a)=="function")then -a_a:registerEvent("mouse_scroll",c_a)end end;return a_a end,onHover=function(a_a,...) -for b_a,c_a in -pairs(table.pack(...))do if(type(c_a)=="function")then -a_a:registerEvent("mouse_hover",c_a)end end;return a_a end,onLeave=function(a_a,...) -for b_a,c_a in -pairs(table.pack(...))do if(type(c_a)=="function")then -a_a:registerEvent("mouse_leave",c_a)end end;return a_a end,onDrag=function(a_a,...) -for b_a,c_a in -pairs(table.pack(...))do if(type(c_a)=="function")then -a_a:registerEvent("mouse_drag",c_a)end end;return a_a end,onKey=function(a_a,...)for b_a,c_a in -pairs(table.pack(...))do -if(type(c_a)=="function")then a_a:registerEvent("key",c_a)end end;return a_a end,onChar=function(a_a,...)for b_a,c_a in -pairs(table.pack(...))do -if(type(c_a)=="function")then a_a:registerEvent("char",c_a)end end;return a_a end,onKeyUp=function(a_a,...)for b_a,c_a in -pairs(table.pack(...))do -if(type(c_a)=="function")then a_a:registerEvent("key_up",c_a)end end;return a_a end}__a.__index=__a;return __a end end -aa["objects"]["List"]=function(...)local ab=da("utils")local bb=da("tHex") -return -function(cb,db) -local _c=db.getObject("ChangeableObject")(cb,db)local ac="List"local bc={}local cc=colors.black;local dc=colors.lightGray;local _d=true -local ad="left"local bd=0;local cd=true;_c:setSize(16,8)_c:setZIndex(5) -local dd={init=function(__a) -local a_a=__a:getParent()__a:listenEvent("mouse_click") -__a:listenEvent("mouse_drag")__a:listenEvent("mouse_scroll")return _c.init(__a)end,getBase=function(__a)return -_c end,setTextAlign=function(__a,a_a)ad=a_a;return __a end,getTextAlign=function(__a)return ad end,getBase=function(__a)return _c end,getType=function(__a)return -ac end,isType=function(__a,a_a)return -ac==a_a or _c.isType~=nil and _c.isType(a_a)or false end,addItem=function(__a,a_a,b_a,c_a,...) -table.insert(bc,{text=a_a,bgCol= -b_a or __a:getBackground(),fgCol=c_a or __a:getForeground(),args={...}})if(#bc<=1)then __a:setValue(bc[1],false)end -__a:updateDraw()return __a end,setOptions=function(__a,...) -bc={} -for a_a,b_a in pairs(...)do -if(type(b_a)=="string")then -table.insert(bc,{text=b_a,bgCol=__a:getBackground(),fgCol=__a:getForeground(),args={}})else -table.insert(bc,{text=b_a[1],bgCol=b_a[2]or __a:getBackground(),fgCol=b_a[3]or -__a:getForeground(),args=b_a[4]or{}})end end;__a:setValue(bc[1],false)__a:updateDraw()return __a end,setOffset=function(__a,a_a) -bd=a_a;__a:updateDraw()return __a end,getOffset=function(__a)return bd end,removeItem=function(__a,a_a) -if( -type(a_a)=="number")then table.remove(bc,a_a)elseif(type(a_a)=="table")then -for b_a,c_a in -pairs(bc)do if(c_a==a_a)then table.remove(bc,b_a)break end end end;__a:updateDraw()return __a end,getItem=function(__a,a_a)return -bc[a_a]end,getAll=function(__a)return bc end,getOptions=function(__a)return bc end,getItemIndex=function(__a) -local a_a=__a:getValue()for b_a,c_a in pairs(bc)do if(c_a==a_a)then return b_a end end end,clear=function(__a) -bc={}__a:setValue({},false)__a:updateDraw()return __a end,getItemCount=function(__a)return -#bc end,editItem=function(__a,a_a,b_a,c_a,d_a,...)table.remove(bc,a_a) -table.insert(bc,a_a,{text=b_a,bgCol=c_a or -__a:getBackground(),fgCol=d_a or __a:getForeground(),args={...}})__a:updateDraw()return __a end,selectItem=function(__a,a_a)__a:setValue( -bc[a_a]or{},false)__a:updateDraw()return __a end,setSelectionColor=function(__a,a_a,b_a,c_a)cc= -a_a or __a:getBackground() -dc=b_a or __a:getForeground()_d=c_a~=nil and c_a or true;__a:updateDraw() -return __a end,setSelectionBG=function(__a,a_a)return __a:setSelectionColor(a_a, -nil,_d)end,setSelectionFG=function(__a,a_a)return __a:setSelectionColor( -nil,a_a,_d)end,getSelectionColor=function(__a) -return cc,dc end,getSelectionBG=function(__a)return cc end,getSelectionFG=function(__a)return dc end,isSelectionColorActive=function(__a)return _d end,setScrollable=function(__a,a_a) -cd=a_a;if(a_a==nil)then cd=true end;__a:updateDraw()return __a end,getScrollable=function(__a)return -cd end,scrollHandler=function(__a,a_a,b_a,c_a) -if(_c.scrollHandler(__a,a_a,b_a,c_a))then -if(cd)then -local d_a,_aa=__a:getSize()bd=bd+a_a;if(bd<0)then bd=0 end;if(a_a>=1)then -if(#bc>_aa)then -if(bd>#bc-_aa)then bd=#bc-_aa end;if(bd>=#bc)then bd=#bc-1 end else bd=bd-1 end end -__a:updateDraw()end;return true end;return false end,mouseHandler=function(__a,a_a,b_a,c_a) -if -(_c.mouseHandler(__a,a_a,b_a,c_a))then local d_a,_aa=__a:getAbsolutePosition()local aaa,baa=__a:getSize() -if -(#bc>0)then -for n=1,baa do -if(bc[n+bd]~=nil)then if -(d_a<=b_a)and(d_a+aaa>b_a)and(_aa+n-1 ==c_a)then __a:setValue(bc[n+bd])__a:selectHandler() -__a:updateDraw()end end end end;return true end;return false end,dragHandler=function(__a,a_a,b_a,c_a)return -__a:mouseHandler(a_a,b_a,c_a)end,touchHandler=function(__a,a_a,b_a)return -__a:mouseHandler(1,a_a,b_a)end,onSelect=function(__a,...) -for a_a,b_a in -pairs(table.pack(...))do if(type(b_a)=="function")then -__a:registerEvent("select_item",b_a)end end;return __a end,selectHandler=function(__a) -__a:sendEvent("select_item",__a:getValue())end,draw=function(__a)_c.draw(__a) -__a:addDraw("list",function() -local a_a,b_a=__a:getSize() -for n=1,b_a do -if bc[n+bd]then local c_a=bc[n+bd].text -local d_a,_aa=bc[n+bd].fgCol,bc[n+bd].bgCol -if bc[n+bd]==__a:getValue()and _d then d_a,_aa=dc,cc end;__a:addText(1,n,c_a:sub(1,a_a)) -__a:addBG(1,n,bb[_aa]:rep(a_a))__a:addFG(1,n,bb[d_a]:rep(a_a))end end end)end}dd.__index=dd;return setmetatable(dd,_c)end end -aa["objects"]["Label"]=function(...)local ab=da("utils")local bb=ab.wrapText -local cb=ab.writeWrappedText;local db=da("tHex") -return -function(_c,ac) -local bc=ac.getObject("VisualObject")(_c,ac)local cc="Label"bc:setZIndex(3)bc:setSize(5,1) -bc:setBackground(false)local dc=true;local _d,ad="Label","left" -local bd={getType=function(cd)return cc end,getBase=function(cd)return bc end,setText=function(cd,dd) -_d=tostring(dd) -if(dc)then local __a=bb(_d,#_d)local a_a,b_a=1,1;for c_a,d_a in pairs(__a)do b_a=b_a+1 -a_a=math.max(a_a,d_a:len())end;cd:setSize(a_a,b_a)dc=true end;cd:updateDraw()return cd end,getAutoSize=function(cd)return -dc end,setAutoSize=function(cd,dd)dc=dd;return cd end,getText=function(cd)return _d end,setSize=function(cd,dd,__a) -bc.setSize(cd,dd,__a)dc=false;return cd end,getTextAlign=function(cd)return ad end,setTextAlign=function(cd,dd)ad=dd or ad;return -cd end,draw=function(cd)bc.draw(cd) -cd:addDraw("label",function()local dd,__a=cd:getSize() -local a_a= - - -ad=="center"and math.floor(dd/2 -_d:len()/2 +0.5)or ad=="right"and dd- (_d:len()-1)or 1;cb(cd,a_a,1,_d,dd+1,__a)end)end,init=function(cd) -bc.init(cd)local dd=cd:getParent() -cd:setForeground(dd:getForeground())end}bd.__index=bd;return setmetatable(bd,bc)end end -aa["objects"]["Graph"]=function(...) -return -function(ab,bb) -local cb=bb.getObject("ChangeableObject")(ab,bb)local db="Graph"cb:setZIndex(5)cb:setSize(30,10)local _c={} -local ac=colors.gray;local bc="\7"local cc=colors.black;local dc=100;local _d=0;local ad="line"local bd=10 -local cd={getType=function(dd)return db end,setGraphColor=function(dd,__a)ac= -__a or ac;dd:updateDraw()return dd end,setGraphSymbol=function(dd,__a,a_a) -bc=__a or bc;cc=a_a or cc;dd:updateDraw()return dd end,setGraphSymbolColor=function(dd,__a)return dd:setGraphSymbolColor( -nil,__a)end,getGraphSymbol=function(dd) -return bc,cc end,getGraphSymbolColor=function(dd)return cc end,addDataPoint=function(dd,__a)if __a>=_d and __a<=dc then -table.insert(_c,__a)dd:updateDraw()end;if(#_c>100)then -table.remove(_c,1)end;return dd end,setMaxValue=function(dd,__a) -dc=__a;dd:updateDraw()return dd end,getMaxValue=function(dd)return dc end,setMinValue=function(dd,__a) -_d=__a;dd:updateDraw()return dd end,getMinValue=function(dd)return _d end,setGraphType=function(dd,__a)if __a== -"scatter"or __a=="line"or __a=="bar"then ad=__a -dd:updateDraw()end;return dd end,getGraphType=function(dd)return -ad end,setMaxEntries=function(dd,__a)bd=__a;dd:updateDraw()return dd end,getMaxEntries=function(dd)return -bd end,clear=function(dd)_c={}dd:updateDraw()return dd end,draw=function(dd) -cb.draw(dd) -dd:addDraw("graph",function()local __a,a_a=dd:getPosition()local b_a,c_a=dd:getSize() -local d_a,_aa=dd:getBackground(),dd:getForeground()local aaa=dc-_d;local baa,caa;local daa=#_c-bd+1;if daa<1 then daa=1 end -for i=daa,#_c do local _ba=_c[i] -local aba=math.floor(( ( -b_a-1)/ (bd-1))* (i-daa)+1.5) -local bba=math.floor((c_a-1)- ( (c_a-1)/aaa)* (_ba-_d)+1.5) -if ad=="scatter"then dd:addBackgroundBox(aba,bba,1,1,ac) -dd:addForegroundBox(aba,bba,1,1,cc)dd:addTextBox(aba,bba,1,1,bc)elseif ad=="line"then -if baa and caa then -local cba=math.abs(aba-baa)local dba=math.abs(bba-caa)local _ca=baa-dba then -bca=bca-dba;baa=baa+_ca end -if cca=1 and daa<=aca then -local bca=_c(_ba,cb(1 -caa+1,1),cb(_ca-caa+1,1)) -local cca=_c(aba,cb(1 -caa+1,1),cb(_ca-caa+1,1)) -local dca=_c(bba,cb(1 -caa+1,1),cb(_ca-caa+1,1)) -a_a.blit(cb(caa+ (cba-1),cba),dba+daa-1,bca,cca,dca)end end,setCursor=function(baa,caa,daa,_ba,aba) -local bba,cba=baa:getAbsolutePosition()local dba,_ca=baa:getOffset()d_a=caa or false;if(daa~=nil)then -b_a=bba+daa-1 -dba end -if(_ba~=nil)then c_a=cba+_ba-1 -_ca end;_aa=aba or _aa -if(d_a)then __a.setTextColor(_aa) -__a.setCursorPos(b_a,c_a)__a.setCursorBlink(d_a)else __a.setCursorBlink(false)end;return baa end} -for baa,caa in -pairs({mouse_click={"mouseHandler",true},mouse_up={"mouseUpHandler",false},mouse_drag={"dragHandler",false},mouse_scroll={"scrollHandler",true},mouse_hover={"hoverHandler",false}})do -aaa[caa[1]]=function(daa,_ba,aba,bba,...)if(dc[caa[1]](daa,_ba,aba,bba,...))then -cc.setActiveFrame(daa)end end end -for baa,caa in -pairs({"drawBackgroundBox","drawForegroundBox","drawTextBox"})do -aaa[caa]=function(daa,_ba,aba,bba,cba,dba)local _ca,aca=daa:getPosition()local bca,cca=daa:getSize() -cba=(aba<1 and(cba+ -aba>daa:getHeight()and daa:getHeight()or cba+aba- -1)or(cba+aba> -daa:getHeight()and daa:getHeight()-aba+1 or -cba)) -bba=(_ba<1 and(bba+_ba>daa:getWidth()and daa:getWidth()or bba+ -_ba-1)or( - -bba+_ba>daa:getWidth()and daa:getWidth()-_ba+1 or bba)) -a_a[caa](cb(_ba+ (_ca-1),_ca),cb(aba+ (aca-1),aca),bba,cba,dba)end end -for baa,caa in pairs({"setBG","setFG","setText"})do -aaa[caa]=function(daa,_ba,aba,bba) -local cba,dba=daa:getPosition()local _ca,aca=daa:getSize()if(aba>=1)and(aba<=aca)then -a_a[caa](cb(_ba+ (cba-1),cba), -dba+aba-1,_c(bba,cb(1 -_ba+1,1),cb(_ca-_ba+1,1)))end end end;aaa.__index=aaa;return setmetatable(aaa,dc)end end -aa["objects"]["Frame"]=function(...)local ab=da("utils") -local bb,cb,db,_c,ac=math.max,math.min,string.sub,string.rep,string.len -return -function(bc,cc)local dc=cc.getObject("Container")(bc,cc)local _d="Frame" -local ad;local bd=true;local cd,dd=0,0;dc:setSize(30,10)dc:setZIndex(10) -local __a={getType=function()return _d end,isType=function(a_a,b_a)return - -_d==b_a or dc.isType~=nil and dc.isType(b_a)or false end,getBase=function(a_a) -return dc end,getOffset=function(a_a)return cd,dd end,setOffset=function(a_a,b_a,c_a)cd=b_a or cd;dd=c_a or dd -a_a:updateDraw()return a_a end,getXOffset=function(a_a)return cd end,setXOffset=function(a_a,b_a)return -a_a:setOffset(b_a,nil)end,getYOffset=function(a_a)return dd end,setYOffset=function(a_a,b_a)return -a_a:setOffset(nil,b_a)end,setParent=function(a_a,b_a,...) -dc.setParent(a_a,b_a,...)ad=b_a;return a_a end,render=function(a_a) -if(dc.render~=nil)then -if -(a_a:isVisible())then dc.render(a_a)local b_a=a_a:getChildren()for c_a,d_a in ipairs(b_a)do -if( -d_a.element.render~=nil)then d_a.element:render()end end end end end,updateDraw=function(a_a)if( -ad~=nil)then ad:updateDraw()end;return a_a end,blit=function(a_a,b_a,c_a,d_a,_aa,aaa) -local baa,caa=a_a:getPosition()local daa,_ba=ad:getOffset()baa=baa-daa;caa=caa-_ba -local aba,bba=a_a:getSize() -if c_a>=1 and c_a<=bba then -local cba=db(d_a,bb(1 -b_a+1,1),bb(aba-b_a+1,1)) -local dba=db(_aa,bb(1 -b_a+1,1),bb(aba-b_a+1,1)) -local _ca=db(aaa,bb(1 -b_a+1,1),bb(aba-b_a+1,1)) -ad:blit(bb(b_a+ (baa-1),baa),caa+c_a-1,cba,dba,_ca)end end,setCursor=function(a_a,b_a,c_a,d_a,_aa) -local aaa,baa=a_a:getPosition()local caa,daa=a_a:getOffset() -ad:setCursor(b_a or false,(c_a or 0)+aaa-1 -caa,( -d_a or 0)+baa-1 -daa,_aa or colors.white)return a_a end} -for a_a,b_a in -pairs({"drawBackgroundBox","drawForegroundBox","drawTextBox"})do -__a[b_a]=function(c_a,d_a,_aa,aaa,baa,caa)local daa,_ba=c_a:getPosition()local aba,bba=ad:getOffset() -daa=daa-aba;_ba=_ba-bba -baa=(_aa<1 and( -baa+_aa>c_a:getHeight()and c_a:getHeight()or baa+_aa-1)or( -baa+ -_aa>c_a:getHeight()and c_a:getHeight()-_aa+1 or baa)) -aaa=(d_a<1 and(aaa+d_a>c_a:getWidth()and c_a:getWidth()or aaa+ -d_a-1)or( - -aaa+d_a>c_a:getWidth()and c_a:getWidth()-d_a+1 or aaa)) -ad[b_a](ad,bb(d_a+ (daa-1),daa),bb(_aa+ (_ba-1),_ba),aaa,baa,caa)end end -for a_a,b_a in pairs({"setBG","setFG","setText"})do -__a[b_a]=function(c_a,d_a,_aa,aaa) -local baa,caa=c_a:getPosition()local daa,_ba=ad:getOffset()baa=baa-daa;caa=caa-_ba -local aba,bba=c_a:getSize()if(_aa>=1)and(_aa<=bba)then -ad[b_a](ad,bb(d_a+ (baa-1),baa),caa+_aa-1,db(aaa,bb( -1 -d_a+1,1),bb(aba-d_a+1,1)))end end end;__a.__index=__a;return setmetatable(__a,dc)end end -aa["objects"]["ChangeableObject"]=function(...) -return -function(ab,bb) -local cb=bb.getObject("VisualObject")(ab,bb)local db="ChangeableObject"local _c -local ac={setValue=function(bc,cc,dc)if(_c~=cc)then _c=cc;bc:updateDraw()if(dc~=false)then -bc:valueChangedHandler()end end;return bc end,getValue=function(bc)return -_c end,onChange=function(bc,...) -for cc,dc in pairs(table.pack(...))do if(type(dc)=="function")then -bc:registerEvent("value_changed",dc)end end;return bc end,valueChangedHandler=function(bc) -bc:sendEvent("value_changed",_c)end}ac.__index=ac;return setmetatable(ac,cb)end end -aa["objects"]["Container"]=function(...)local ab=da("utils")local bb=ab.tableCount -return -function(cb,db) -local _c=db.getObject("VisualObject")(cb,db)local ac="Container"local bc={}local cc={}local dc={}local _d;local ad=true;local bd,cd=0,0 -local dd=function(cba,dba) -if -cba.zIndex==dba.zIndex then return cba.objIddba.evId else return -cba.zIndex>dba.zIndex end end;local function a_a(cba)cba:sortChildren()return bc end -local function b_a(cba,dba)if -(type(dba)=="table")then dba=dba:getName()end -for _ca,aca in ipairs(bc)do if -aca.element:getName()==dba then return aca.element end end end -local function c_a(cba,dba)local _ca=b_a(dba)if(_ca~=nil)then return _ca end;for aca,bca in ipairs(bc)do -if -(bca:getType()=="Container")then local cca=bca:getDeepChild(dba)if(cca~=nil)then return cca end end end end -local function d_a(cba,dba)if(b_a(dba:getName())~=nil)then return end;bd=bd+1 -local _ca=dba:getZIndex() -table.insert(bc,{element=dba,zIndex=_ca,objId=bd})ad=false;dba:setParent(cba,true)for aca,bca in -pairs(dba:getRegisteredEvents())do cba:addEvent(aca,dba)end;if(dba.init~= -nil)then dba:init()end -if(dba.load~=nil)then dba:load()end;if(dba.draw~=nil)then dba:draw()end;return dba end -local function _aa(cba,dba) -if(type(dba)=="string")then dba=b_a(dba:getName())end;if(dba==nil)then return end -for _ca,aca in ipairs(bc)do if aca.element==dba then -table.remove(bc,_ca)return true end end;cba:removeEvents(dba)ad=false end;local function aaa(cba)local dba=cba:getParent()bc={}cc={}ad=false;bd=0;cd=0;_d=nil -dba:removeEvents(cba)end -local function baa(cba,dba,_ca)bd=bd+1;cd=cd+1;for aca,bca in -pairs(bc)do -if(bca.element==dba)then bca.zIndex=_ca;bca.objId=bd;break end end;for aca,bca in pairs(cc)do -for cca,dca in pairs(bca)do if -(dca.element==dba)then dca.zIndex=_ca;dca.evId=cd end end end;ad=false -cba:updateDraw()end -local function caa(cba,dba)local _ca=cba:getParent() -for aca,bca in pairs(cc)do for cca,dca in pairs(bca)do if(dca.element==dba)then -table.remove(cc[aca],cca)end end -if( -bb(cc[aca])<=0)then if(_ca~=nil)then _ca:removeEvent(aca,cba)end end end;ad=false end -local function daa(cba,dba,_ca)if(type(_ca)=="table")then _ca=_ca:getName()end -if(cc[dba]~= -nil)then for aca,bca in pairs(cc[dba])do -if(bca.element:getName()==_ca)then return bca end end end end -local function _ba(cba,dba,_ca) -if(daa(cba,dba,_ca:getName())~=nil)then return end;local aca=_ca:getZIndex()cd=cd+1 -if(cc[dba]==nil)then cc[dba]={}end -table.insert(cc[dba],{element=_ca,zIndex=aca,evId=cd})ad=false;cba:listenEvent(dba)return _ca end -local function aba(cba,dba,_ca) -if(cc[dba]~=nil)then for aca,bca in pairs(cc[dba])do if(bca.element==_ca)then -table.remove(cc[dba],aca)end end;if( -bb(cc[dba])<=0)then cba:listenEvent(dba,false)end end;ad=false end -local function bba(cba,dba)return dba~=nil and cc[dba]or cc end -dc={getType=function()return ac end,getBase=function(cba)return _c end,isType=function(cba,dba) -return ac==dba or -_c.isType~=nil and _c.isType(dba)or false end,setSize=function(cba,...)_c.setSize(cba,...) -cba:customEventHandler("basalt_FrameResize")return cba end,setPosition=function(cba,...) -_c.setPosition(cba,...)cba:customEventHandler("basalt_FrameReposition") -return cba end,searchChildren=function(cba,dba)local _ca={} -for aca,bca in pairs(bc)do if -(string.find(bca.element:getName(),dba))then table.insert(_ca,bca)end end;return _ca end,getChildrenByType=function(cba,dba) -local _ca={}for aca,bca in pairs(bc)do -if(bca.element:isType(dba))then table.insert(_ca,bca)end end;return _ca end,setImportant=function(cba,dba)bd= -bd+1;cd=cd+1 -for _ca,aca in pairs(cc)do for bca,cca in pairs(aca)do -if(cca.element==dba)then cca.evId=cd -table.remove(cc[_ca],bca)table.insert(cc[_ca],cca)break end end end -for _ca,aca in ipairs(bc)do if aca.element==dba then aca.objId=bd;table.remove(bc,_ca) -table.insert(bc,aca)break end end;if(cba.updateDraw~=nil)then cba:updateDraw()end -ad=false end,sortChildren=function(cba)if -(ad)then return end;table.sort(bc,dd)for dba,_ca in pairs(cc)do -table.sort(cc[dba],__a)end;ad=true end,clearFocusedChild=function(cba)if( -_d~=nil)then -if(b_a(cba,_d)~=nil)then _d:loseFocusHandler()end end;_d=nil;return cba end,setFocusedChild=function(cba,dba) -if( -_d~=dba)then if(_d~=nil)then -if(b_a(cba,_d)~=nil)then _d:loseFocusHandler()end end;if(dba~=nil)then if(b_a(cba,dba)~=nil)then -dba:getFocusHandler()end end;_d=dba;return true end;return false end,getFocused=function(cba)return -_d end,getChild=b_a,getChildren=a_a,getDeepChildren=c_a,addChild=d_a,removeChild=_aa,removeChildren=aaa,getEvents=bba,getEvent=daa,addEvent=_ba,removeEvent=aba,removeEvents=caa,updateZIndex=baa,listenEvent=function(cba,dba,_ca)_c.listenEvent(cba,dba,_ca)if( -cc[dba]==nil)then cc[dba]={}end;return cba end,customEventHandler=function(cba,...) -_c.customEventHandler(cba,...) -for dba,_ca in pairs(bc)do if(_ca.element.customEventHandler~=nil)then -_ca.element:customEventHandler(...)end end end,loseFocusHandler=function(cba) -_c.loseFocusHandler(cba)if(_d~=nil)then _d:loseFocusHandler()_d=nil end end,getBasalt=function(cba)return -db end,setPalette=function(cba,dba,...)local _ca=cba:getParent() -_ca:setPalette(dba,...)return cba end,eventHandler=function(cba,...) -if(_c.eventHandler~=nil)then -_c.eventHandler(cba,...) -if(cc["other_event"]~=nil)then cba:sortChildren() -for dba,_ca in -ipairs(cc["other_event"])do if(_ca.element.eventHandler~=nil)then -_ca.element.eventHandler(_ca.element,...)end end end end end} -for cba,dba in -pairs({mouse_click={"mouseHandler",true},mouse_up={"mouseUpHandler",false},mouse_drag={"dragHandler",false},mouse_scroll={"scrollHandler",true},mouse_hover={"hoverHandler",false}})do -dc[dba[1]]=function(_ca,aca,bca,cca,...) -if(_c[dba[1]]~=nil)then -if(_c[dba[1]](_ca,aca,bca,cca,...))then -if -(cc[cba]~=nil)then _ca:sortChildren() -for dca,_da in ipairs(cc[cba])do -if -(_da.element[dba[1]]~=nil)then local ada,bda=0,0 -if(_ca.getOffset~=nil)then ada,bda=_ca:getOffset()end -if(_da.element.getIgnoreOffset~=nil)then if(_da.element.getIgnoreOffset())then -ada,bda=0,0 end end;if(_da.element[dba[1]](_da.element,aca,bca+ada,cca+bda,...))then return -true end end end;if(dba[2])then _ca:clearFocusedChild()end end;return true end end end end -for cba,dba in -pairs({key="keyHandler",key_up="keyUpHandler",char="charHandler"})do -dc[dba]=function(_ca,...) -if(_c[dba]~=nil)then -if(_c[dba](_ca,...))then -if(cc[cba]~=nil)then -_ca:sortChildren()for aca,bca in ipairs(cc[cba])do -if(bca.element[dba]~=nil)then if -(bca.element[dba](bca.element,...))then return true end end end end end end end end;for cba,dba in pairs(db.getObjects())do -dc["add"..cba]=function(_ca,aca)return -_ca:addChild(db:createObject(cba,aca))end end -dc.__index=dc;return setmetatable(dc,_c)end end;return aa["main"]() \ No newline at end of file +dca:addForegroundBox(1,1,_da,ada,_ba)end end,1)end}cca.__index=cca;return setmetatable(cca,cc)end end;return aa["main"]() \ No newline at end of file