[1.7.10] ComputerCraft [1.74]

array2d={}array2d[paste][/paste]table={}function array2d[paste][/paste]create( name, s1 , s2)table[paste][/paste]insert(array2d[paste][/paste]table,name)array2d[paste][/paste]table[name]={}for a=1,s1 dolocal drop={}for b=1,s2 dotable[paste][/paste]insert(drop,0)endtable[paste][/paste]insert(array2d[paste][/paste]table[name],drop)endendfunction array2d[paste][/paste]get( name,s1,s2,v )if v then	array2d[paste][/paste]table[name][s1][s2]=velse	return array2d[paste][/paste]table[name][s1][s2]endend

function selectorOpen(W,H)selectorTable={W,H}selectorTableCurrent={1,1}endfunction selector(key)if key==200 thenif (selectorTableCurrent[1]-1)<=0 thenselectorTableCurrent[1]=[paste][/paste]selectorTable[1]elseselectorTableCurrent[1]=selectorTableCurrent[1]-1endendif key==208 thenif (selectorTableCurrent[1]+1)>selectorTable[1] thenselectorTableCurrent[1]=1elseselectorTableCurrent[1]=selectorTableCurrent[1]+1endendif key==205 thenif (selectorTableCurrent[2]+1)>selectorTable[2] thenselectorTableCurrent[2]=1elseselectorTableCurrent[2]=selectorTableCurrent[2]+1endendif key==203 thenif (selectorTableCurrent[2]-1)<=0 thenselectorTableCurrent[2]=selectorTable[2]elseselectorTableCurrent[2]=selectorTableCurrent[2]-1endendendmenu={}menu[paste][/paste]array={}function menu[paste][/paste]h(name)if name~="" thenmenu[paste][/paste]array[name]={"h",buttons={}}endendfunction menu[paste][/paste]v(name)if name~="" thenmenu[paste][/paste]array[name]={"v",buttons={}}endendfunction menu[paste][/paste]button(name,text)if name~="" thentable[paste][/paste]insert(menu[paste][/paste]array[name][paste][/paste]buttons,text)endendfunction menu[paste][/paste]print(name)local str=""local count=0if menu[paste][/paste]array[name][1]=="h" thenfor n=1,#menu[paste][/paste]array[name][paste][/paste]buttons doif n==selectorTableCurrent[2] thenstr=str[paste][/paste][paste][/paste]"["[paste][/paste][paste][/paste]menu[paste][/paste]array[name][paste][/paste]buttons[n][paste][/paste][paste][/paste]"]"elsestr=str[paste][/paste][paste][/paste]" "[paste][/paste][paste][/paste]menu[paste][/paste]array[name][paste][/paste]buttons[n][paste][/paste][paste][/paste]" "endendprint(str)endif menu[paste][/paste]array[name][1]=="v" thenfor n=1,#menu[paste][/paste]array[name][paste][/paste]buttons doif n==selectorTableCurrent[1] thenstr=str[paste][/paste][paste][/paste]"["[paste][/paste][paste][/paste]menu[paste][/paste]array[name][paste][/paste]buttons[n][paste][/paste][paste][/paste]"]"[paste][/paste][paste][/paste]" \n"elsestr=str[paste][/paste][paste][/paste]" "[paste][/paste][paste][/paste]menu[paste][/paste]array[name][paste][/paste]buttons[n][paste][/paste][paste][/paste]" "[paste][/paste][paste][/paste]" \n"endendprint(str)end

function writeCenter(msg,y)      if #msg<50 then         term[paste][/paste]setCursorPos((52-#msg)/2,y)         term[paste][/paste]write(msg)      end   end   function buttonAllPos(bts,x,y,btsn,sel)      local i,event,key      if sel==nil then sel=1 end      while true do         term[paste][/paste]setCursorPos(x,y)         term[paste][/paste]clearLine()         for i=1,#bts do            if i==sel then term[paste][/paste]write("["[paste][/paste][paste][/paste]bts[i][paste][/paste][paste][/paste]"]") else term[paste][/paste]write(" "[paste][/paste][paste][/paste]bts[i][paste][/paste][paste][/paste]" ") end         end         if sel=="break" then break end         event,key=os[paste][/paste]pullEvent("key")         if key==203 and sel>1 then sel=sel-1         elseif key==205 and sel<#bts then sel=sel+1         elseif key==28 then break end      end      if btsn==nil then return bts[sel] else return btsn[sel] end   end      function writeAsNSymbol(text,n,y)	  if n >= 0 and n <= 50 then		 for i=1,#text do		   term[paste][/paste]setCursorPos(n,y-1+i)		   write(text[i])		 end	  end   end   function buttonEachPos(bts,x,y,btsn,sel)   print(#bts)      local i,event,key, butX, butY      if sel==nil then sel=1 end	  while true do      for i=1,#bts do	     butX = x[i]		 butY = y[i]         term[paste][/paste]setCursorPos(butX,butY)            if i==sel then term[paste][/paste]write("["[paste][/paste][paste][/paste]bts[i][paste][/paste][paste][/paste]"]") else term[paste][/paste]write(" "[paste][/paste][paste][/paste]bts[i][paste][/paste][paste][/paste]" ") end		 end         event,key=os[paste][/paste]pullEvent("key")         if key==203 and sel>1 then sel=sel-1         elseif key==205 and sel<#bts then sel=sel+1         elseif key==28 then break end      end      if btsn==nil then return bts[sel] else return btsn[sel] end   end      function progresBar(pos,x,y,len)		local i, procentAsSymbol, progress		local progres = ""		procentAsSymbol = math[paste][/paste]modf (100/(len-2))		progress = math[paste][/paste]modf (pos/procentAsSymbol)		for i=1,len-2 do			if i <= progress then				progres = progres[paste][/paste][paste][/paste]"|"			else				progres = progres[paste][/paste][paste][/paste]" "			end		end		term[paste][/paste]setCursorPos(x,y)		write("["[paste][/paste][paste][/paste]progres[paste][/paste][paste][/paste]"]")		print(#progres)   end