wraithbone's GUI (CLI really...) Functions

• Loading Bar
• Horizontal Selection Bar
• Vertical Sliding bar
• Vertical Menu
• Key Pad
• Message Box -new, advanced pc only
• Check Boxes -new
• Menu Bar -new, advanced pc only
• Analogue Clock -new, please try to make it better

function HorzLoadBar(sx, fx, sym)
x,y = term.getCursorPos()
if y >= 18 then
	term.clear()
	term.setCursorPos(sx,1)
	x,y = sx,1
end
term.setCursorPos(sx,y)
write("[")
term.setCursorPos(sx,y)
term.setCursorPos(fx-1,y)
write("]")
mdp = math.floor((sx + fx)/2) - 3
for i = (sx+1),(fx-2) do
	term.setCursorPos(i,y)
	write(sym)
	sleep(0.1) --CHANGE THIS TO EDIT TIME
	term.setCursorPos(mdp,y+1)
	write(string.format("%d",i/(fx-2) * 100))
	write("%")
end
term.setCursorPos(1,y+2)
end

function HorzMenu(menutable1, Ylocation)
	local selection1 = 1
	while true do
		term.setCursorPos(1, Ylocation)
		for i = 1,#menutable1 do
		  
			if i == selection1 then write"[" end
			write(menutable1[i])
			if i == selection1 then write"]" end
			write" | "
		  
		end
		local r,s = os.pullEvent()
	  
		if r == "key" then
			if s == 203 then selection1 = selection1 - 1 end
			if selection1 == 0 then selection1 = #menutable1 end
			if s == 205 then selection1 = selection1 + 1 end
			if selection1 == #menutable1 +1 then selection1 = 1 end
		  
			if s == 28 then
				term.setCursorPos(1,Ylocation + 1)
				return menutable1[selection1]
			end
		end
	  
	end
end

function vertBar(nMin, nMax, sTitle)
	local bSelected = false
	local selection = nMin
	local mdp = (nMin + math.floor((nMax - nMin)/2))
	if (nMax - nMin) > 13 then error("ERROR: Bar will not fit on screen max span is 14 e.g. 2 -> 15") end
	while (bSelected == false) do
		term.clear()
		term.setCursorPos(1,1)
		print(sTitle)
		print("[=]")
		for i = nMin,nMax do
			if i ~= selection then
				write" x"
				if i == mdp then
					print(" ", tostring(selection))
				else
					print("")
				end
			else
				write" -"
				if i == mdp then
					print(" ", tostring(selection))
				else
					print("")
				end		  
			end
		end
		print("[=]")
	  
		local ev1, ev2 = os.pullEvent()
	  
		if ev1 == "key" and ev2 ~= 28 then
			if selection <nmax then="" selection="selection" +="" 1="" else="" end="" elseif="" ev1="=" "key"="" and="" ev2="=" 28="" bselected="true" return(selection)

function VertMenu(tableofItems)
local selection = "";
local sIndex = 1;
while (selection == "") do
  term.clear();
  local xMax, yMax = term.getSize();
  local y = math.floor(yMax/2) + math.floor(#tableofItems/2);
  y = y - #tableofItems;
  if y<1 then y = 1 end;

  if #tableofItems > yMax then
   print "ERROR: List does not fit on screen, reduce number of items in table";
   return "";
  end

  for i = 1, #tableofItems do

  if string.len(tableofItems[i]) >= xMax then
   term.clear();
   term.setCursorPos(1,1);
   print (("ERROR: List item # "..i).." is too long please reduce");
   return "";
  end
   local x = math.floor(xMax/2) - math.floor(string.len(tableofItems[i])/2);

   if i == sIndex then x = x-1 end;
   term.setCursorPos(x,y);
   if i == sIndex then term.write("[") end;
   term.write(tableofItems[i]);

   if i == sIndex then term.write("]") end;

   y = y+1;
  end

  local r,s = os.pullEvent("key");

  if s == 208 then sIndex = sIndex +1 end;
  if s == 200 then sIndex = sIndex -1 end;
  if sIndex > #tableofItems then sIndex = 1 end;
  if sIndex < 1 then sIndex = #tableofItems end;
  if s == 28 then
	term.clear();
	term.setCursorPos(1,1);
	return tableofItems[sIndex]
  end
end
end

menu = {
	{"a","b","c"},
	{"d","e","f"},
	{"g","h","i"},
	{"j","k","l"},
	{"m","n","o"},
	{"p","q","r"}
}
results = {}
results[1] = VertMenu(menu[1])
if results[1] == "a" then
	results[2] = VertMenu(menu[2])
elseif results[1] == "b" then
	results[2] = VertMenu(menu[3])
elseif results[1] == "c" then
	results[2] = "Stop level 1"
end
if results[2] == "d" then
	results[3] = VertMenu(menu[4])
elseif results[2] == "e" then
	results[3] = VertMenu(menu[5])
elseif results[2] == "f" then
	results[3] = VertMenu(menu[6])
elseif results[2] == "g" then
	results[3] = "Stop level 2-1"
elseif results[2] == "h" then
	results[3] = "Stop level 2-2"
elseif results[2] == "i" then
	results[3] = "Stop level 2-3"
end
--if results[3]... --etc. etc. etc.
for a=1,#results do
	print(results[a])
end

function keyPad(void)
	local mt = {
			{1,2,3},
			{4,5,6},
			{7,8,9}
		 };
	local mt2 = {0,0,0,0};
	local xOffset = 23;
	local nX = 1;
	local nY = 1;
	local n = 1;
	while (n<=4) do
		term.clear();
		for i = 1,3 do
			for j = 1,3 do
				term.setCursorPos((xOffset + i),(j));
				if (nY == j) and (nX == i) then
					term.write("*");
				else
					term.write(mt[j][i]);
				end
			  
			end
		end
		for i = 1,n-1 do
			term.setCursorPos((xOffset + i),(4));
			term.write("*");
		end
		r,s = os.pullEvent();
	  
		if(r == "key") then
			if (s == 205) then
				if (nX < 3) then
					nX = nX +1;
				end
			end
			if (s == 208) then
				if (nY < 3) then
					nY = nY +1;
				end
			end
			if (s == 200) then
				if (nY > 1) then
					nY = nY - 1;
				end
			end
			if (s == 203) then
				if (nX > 1) then
					nX = nX -1;
				end
			end  
			if (s == 28) then
				mt2[n] = mt[nY][nX];
				n = n+1;
			end
		end
	end
	term.clear();
	term.setCursorPos((1),(1));
	return mt2;
end

function drawMessageBox(bX,bY,bDX,bDY,message,title)

term.setCursorPos(bX,bY);


--Clear
term.setBackgroundColor(colors.white);
term.clear();
term.setBackgroundColor(colors.black);
term.setTextColor(colors.yellow);

--Print Box
for i = 0,bDY do
  term.setCursorPos(bX,bY+i);
  term.write(" ");
  term.setCursorPos(bX+bDX,bY+i);
  term.write(" ");
end -- for
for i = 1,bDX do
  if i == bDX then term.setBackgroundColor(colors.red) end
  term.setCursorPos(bX+i,bY);

  if i == bDX then term.write("X")else term.write(" "); end
  if i == bDX then term.setBackgroundColor(colors.black) end
  term.setCursorPos(bX+i,bY+bDY);
  term.write(" ");
end -- for

--Print Title
term.setCursorPos(bX,bY);
term.setTextColor(colors.white);
term.write(" "..title);

--Print Message
term.setBackgroundColor(colors.white);
term.setCursorPos(math.floor((bX+(bX+bDX))/2) - math.floor(#message/2),math.floor((bY+(bY+bDY))/2));
term.setTextColor(colors.blue);
term.write(message);

  --Print OK button
term.setBackgroundColor(colors.black);
term.setTextColor(colors.yellow);
term.setCursorPos(math.floor((bX+(bX+bDX))/2) - 2,bY+bDY);
term.write("[OK]");
term.setCursorPos(40,40);

--Listen for mouse and check where the user clicks
while(true)do
  a,MB,X,Y = os.pullEvent("mouse_click");

  XY = (X..",")..Y;--Convert click to cartesian Coords

  bDXY = ((bX+bDX)..",")..(bY); --Convert [X] location to cartesian coords

  if (XY == bDXY) then
   --Clear the screen
   term.setBackgroundColor(colors.black);
   term.setTextColor(colors.white);
   term.clear();
   term.setCursorPos(1,1);
   return "cancel"
  end
  okX = math.floor((bX+(bX+bDX))/2) - 2; --the [OK] location
  if(Y == (bY+bDY)) then
   if ((X >= okX) and (X<= okX +4)) then
	--Clear the screen
	term.setBackgroundColor(colors.black);
	term.setTextColor(colors.white);
	term.clear();
	term.setCursorPos(1,1);
	return "OK"
   end --if
  end -- if

end--while
end -- function
help = drawMessageBox(15,5,25,8,"Divide by 0","Error");
print (help);

function checkBoxes(items)
	--Initialise the boolean (true/false) array
	state = {};
	for i = 1,#items do
		state[i] = false;
	end

	--Display the list and its boolean state
	while(true) do
		term.clear();
		term.setCursorPos(1,1);
		for i = 1,#items do
			if (state[i]) then
				term.write("[X] "); -- if active
			else
				term.write("[ ] "); -- if not
			end--if
			print(items[i]);
		end -- do
		print "[Done]"; -- Click this to finish
		e,mb,x,y = os.pullEvent("mouse_click");
		if(y==(#items + 1)) then return state end
		if(y<=#items) then state[y] = not state[y] end
	end -- while
	  
end -- function
this = checkBoxes({"One","Two","Three","Four","Five","Six","Seven","Eight","Nine","Ten","Eleven","Twelve"});
for i = 1,#this do
	print(this[i]);
end

function checkBoxes(items)
	--Initialise the boolean (true/false) array
	state = {};
	for i = 1,#items do
		state[i] = false;
	end

	--Display the list and its boolean state
	counter = 1;
	while(true) do
		term.clear();
		term.setCursorPos(1,1);
		for i = 1,#items do
			if (state[i]) then
				term.write("[X] "); -- if active
			else
				term.write("[ ] "); -- if not
			end--if
		  
			if (i == counter) then
				term.write(items[i]);
				print "<";
			else
				print(items[i]);
			end
		end -- do
		if (counter == #items + 1) then print "[Done]<" else print "[Done]" end -- Select this to finish
	  
		e,k = os.pullEvent("key");
		if(k == 28 or k == 57 or k == 203 or k == 205) then
			if (counter == #items + 1) then
				return state
			else
				state[counter] = not state[counter];
			end
		end
		if(k == 208) then counter = counter + 1 end
		if(k == 200) then counter = counter - 1 end
		if(k == 209) then counter = counter + 5 end
		if(k == 201) then counter = counter - 5 end
		if (counter > #items + 1) then counter = 1 end
		if (counter < 1) then counter = #items + 1 end
	  
	end -- while
	  
end -- function
this = checkBoxes({"One","Two","Three","Four","Five","Six","Seven","Eight","Nine","Ten","Eleven","Twelve"});
for i = 1,#this do
	print(this[i]);
end

function menuBar(items)
itemIndex = 0;

while(true) do --forever
  --clear and reset terminal
  term.clear();
  term.setCursorPos(1,1);
  term.setCursorBlink(false);

  --Print the menu titles
  for i = 1, #items do
   term.write((items[i])[1] .. "  ");
  end
  --listen for mouse
  e,mb,x,y = os.pullEvent("mouse_click");
  --if they clicked on the menu
  if (y==1) then
   --stopValue is the graphical location at the end of the menu title the user will click on
   stopValue = 0;

   --loop through the items
   for i = 1,#items do
	--set the stop value to the end of the title string
	stopValue = stopValue + string.len( (items[i])[1] );
	--if it is between the stop value minus the word length and the stop value, then the user has clicked on a word
	if (x<=stopValue and x> (stopValue - string.len( (items[i])[1] ))) then
	 --set the index to what the user clicked on
	 itemIndex = i;
	 --break out the loop
	 break;
	end
	--allow for the double spacing bewteen items
	stopValue = stopValue +2;
   end

   --if the item index is greater than zero than the user has clicked on something
   if (itemIndex > 0) then

	--loop through the sub table
	for i = 2,#(items[itemIndex]) do
	 --line up to top item
	 term.setCursorPos((stopValue - string.len(items[itemIndex][1] )+1),i+1);
	 --print the sub menu
	 term.write(items[itemIndex][i]);
	
	end
	--listen for mouse again
	e2,mb2,x2,y2 = os.pullEvent("mouse_click");

	--if they clicked on something (and not in empty space on Y axis)

	if (y2 <= #(items[itemIndex]) + 2 and y2 ~= 1 and y2 ~= 2) then
	
	 --and not in empty space on X axis
	 if (x2 >= (stopValue-3) and x2 <= stopValue-3+(string.len(items[itemIndex][y2-1]))) then
	  --tidy up the screen and return the two items they clicked on.
	  term.clear();
	  term.setCursorPos(1,1);
	  return({items[itemIndex][1],items[itemIndex][y2-1]});
	 end
	end
   end
  end--if

end--while
end--function
n = menuBar({
{"Menu1","This","is","awesome"},
{"Menu2","This2","is2","awesome2"},
{"Menu3","This3","is3","awesome3"}
});
for i = 1,#n do
print(n[i]);
end

function drawCircle(r,timeperc)
--if you set the background and colors before calling the function
--and remove the term.clear()
--the clock will fill like a pie chart

term.setBackgroundColor(colors.white);
term.clear();
term.setBackgroundColor(colors.black);
term.setCursorBlink(false);

linedrawn = false;

sx,sy = term.getSize();
sx = math.floor(sx/2);
sy = math.floor(sy/2);

--These numbers are to do with the number of radians the algorithim needs to cycle through to draw a complete circle
--the offset is to make it start at the top of the screen

for i = 4.67,7.18 + 4.67,0.01 do

  --circle plotting alogrithim
  plotx = sx+1 + r*math.cos(i) *1.6;
  ploty = sy+1 + r*math.sin(i);

  term.setCursorPos(plotx,ploty);

  --I cant figure out why I need 1.88 instead of 2, be nice and help me with this...
  perc = timeperc/1.88;
  if(i > (4.67 + perc * (7.18 + 4.67)) and linedrawn == false) then
   drawLine({sx,sy},{plotx,ploty});
   linedrawn = true;
  end

  term.write(" ");

end
end
function drawLine(pt1,pt2)
p = pt2[1];
h = pt1[1];
q = pt2[2];
k = pt1[2];
for i = 0,1,0.01 do
  x = (p-h)*i + h;
  y = (q - k)*i + k;
  term.setCursorPos(x,y);
  term.write(" ");
end
end
term.redirect(peripheral.wrap("right"));
while(true)do
drawCircle(14,os.time()/24);
os.sleep(0.0001);--to stop jittering
end
term.setCursorPos(1,1);

function drawCircle(r,timeperc)
term.setCursorBlink(false);

linedrawn = false;

sx,sy = term.getSize();
sx = math.floor(sx/2);
sy = math.floor(sy/2);


for i = 4.67,7.18 + 4.67,0.01 do
  plotx = sx+1 + r*math.cos(i) *1.6;
  ploty = sy+1 + r*math.sin(i);

  term.setCursorPos(plotx,ploty);
  perc = timeperc/1.88;
  if(i > (4.67 + perc * (7.18 + 4.67)) and linedrawn == false) then
   drawLine({sx,sy},{plotx,ploty});
   linedrawn = true;
  end

  term.write("#");

end
end
function drawLine(pt1,pt2)
p = pt2[1];
h = pt1[1];
q = pt2[2];
k = pt1[2];
for i = 0,1,0.01 do
  x = (p-h)*i + h;
  y = (q - k)*i + k;
  term.setCursorPos(x,y);
  term.write("*");
end
end
--term.redirect(peripheral.wrap("right"));
while(true)do
drawCircle(8,os.time()/24);
os.sleep(0.0001);--to stop jittering

--if you remove the term.clear()
--the clock will fill like a pie chart
term.clear();
end
term.setCursorPos(1,1);

Human, on 06 November 2012 - 11:01 PM said:

Nice code.

wraithbone, on 07 November 2012 - 12:06 AM said:

Human, on 06 November 2012 - 11:01 PM said:

Nice code.

Thanks, it took me a while to put these together. Appreciate it.

On a side note I put up a new GUI item. Menu Bars!

Human, on 07 November 2012 - 05:43 AM said:

I actually have some very nice code for a mouse GUI. You give each button some properties that can be changed at anytime during the program. For instance: If I click a button it runs a function that makes another button visible.

reonrules1, on 08 November 2012 - 10:58 AM said:

Nice to see you have moved over Wraith. Always found your code useful and easy to learn from. Except the Vertical Menu. I havent got to math yet =s

reonrules1, on 09 November 2012 - 02:56 PM said:

One thing wraithbone. With your vertical menu, when you have an item selected shouldn't it keep the text in the same place and put the box around the text.

Like it takes 1 off the x location of the table item that is selected then puts the box around it.

Not sure if its a glitch in the code or you haven't put it in. But when selecting down the list it looks odd having the text move one to the right.

  term.setCursorPos(x,y);
  if i == sIndex then x = x-1 end;
  if i == sIndex then term.write("[") end;

  if i == sIndex then x = x-1 end;
  term.setCursorPos(x,y);
  if i == sIndex then term.write("[") end;

tiin57, on 09 November 2012 - 06:23 AM said:

I suggest spoilers. :unsure:/>/>

reonrules1, on 08 November 2012 - 10:37 PM said:

Lol. Well at least something good came out of Auckland eh?

reonrules1, on 10 November 2012 - 02:35 PM said:

Ouch? Its semi true though. A lot of bad stuff comes out of auckland. particularily south.

hedgehog1029, on 09 December 2012 - 10:14 PM said:

um… with the vertical menu, where does the table of items go? im noobish with this complex stuff :P/>

table1 = {"One", "Two", "Three"} --defines the first table
table2 = {"A", "B", "C", "D", "E", "F"} --defines the second table
ans1 = VertMenu(table1) --calls the function with the first table
ans2 = VertMenu(table2) --calls the function with the second table
print("First Choice: " + ans1) -- print both answers
print("Second Choice: " + ans2)

table={"all","my","stuff"}
table2={"in","here","done"}
result = VertMenu(table)
result2 = Vertmenu(table2)

MegaMech, on 22 December 2012 - 06:59 AM said:

I can't figure out the table for VertMenu()
I think you should add a bit more instructions to your post.
Otherwise, this is pretty cool, and looks clean… I'm probably gonna use it for a Stats Program I'm making. (Shows the status of all your industry's stuff)

table={"all","my","stuff"}
table2={"in","here","done"}
result = VertMenu(table)
result2 = Vertmenu(table2)

This makes it so if you select anything from table it shows everything from table2
how do I make it so if I choose "all" It shows table2 and if I choose "my" it shows everything from table3
or
if I choose "all" it shows table2[1] and if I choose "my" it shows table2[2]

result = {}
if result[1] == this then
	result[2] = something
  
elseif result[1] == that then
	result[2] = something_else
  
elseif result[1] == other then
	result[2] = another_thing
  
end
if result[2] == even then
	result[3] = something_again
  
elseif result[2] == more then
	result[3] = something_new
  
elseif result[2] == things then
	result[3] = another_thing_entirely
  
end
--and so on and so forth....

print("Prototype OS V0.01")
write("Login: ")
lanswer = read()
if lanswer == "Pivotdude" then
write("Password: ")
else
os.reboot()
end
panswer = read()
if panswer == "1337" then
print("Welcome "..lanswer..".")
else
os.reboot()
end
term.clear()
function HorzLoadBar(sx, fx, sym)
x,y = term.getCursorPos()
if y >= 18 then
		term.clear()
		term.setCursorPos(sx,1)
		x,y = sx,1
end
term.setCursorPos(sx,y)
write("[")
term.setCursorPos(sx,y)
term.setCursorPos(fx-1,y)
write("]")
mdp = math.floor((sx + fx)/2) - 3
for i = (sx+1),(fx-2) do
		term.setCursorPos(i,y)
		write(sym)
		sleep(0.1) --CHANGE THIS TO EDIT TIME
		term.setCursorPos(mdp,y+1)
		write(string.format("%d",i/(fx-2) * 100))
		write("%")
end
term.setCursorPos(1,y+2)
end

jesusthekiller, on 31 May 2013 - 07:16 PM said:

You don't say TUI…

You say CLI (Console Line Interface).
But even if you are using ASCII, it's still GUI.

pivotdude, on 03 June 2013 - 12:03 PM said:

I am sorry for double posting , but i am trying to get the windows style menu to work along side your loadbar and my login and system time on startup , i dont error but it refuses to show time and the menu (prepare for lots of code)
<ABBREVIATED>
could someone please point ou what im doing wrong

jesusthekiller, on 27 June 2013 - 12:50 PM said:

You googled it up or you already knew? :D/>

AutoLocK, on 03 July 2013 - 05:43 AM said:

Nice. Love the message box!

pivotdude, on 03 June 2013 - 12:03 PM said:

I am sorry for double posting , but i am trying to get the windows style menu to work along side your loadbar and my login and system time on startup , i dont error but it refuses to show time and the menu (prepare for lots of code)


Windows style menu:

Spoiler

function VertMenu(tableofItems)
local selection = "";
local sIndex = 1;
while (selection == "") do
  term.clear();
  local xMax, yMax = term.getSize();
  local y = math.floor(yMax/2) + math.floor(#tableofItems/2);
  y = y - #tableofItems;
  if y<1 then y = 1 end;
  if #tableofItems > yMax then
   print "ERROR: List does not fit on screen, reduce number of items in table";
   return "";
  end
  for i = 1, #tableofItems do
  if string.len(tableofItems[i]) >= xMax then
   term.clear();
   term.setCursorPos(1,1);
   print (("ERROR: List item # "..i).." is too long please reduce");
   return "";
  end
   local x = math.floor(xMax/2) - math.floor(string.len(tableofItems[i])/2);

   if i == sIndex then x = x-1 end;
   term.setCursorPos(x,y);
   if i == sIndex then term.write("[") end;
   term.write(tableofItems[i]);

   if i == sIndex then term.write("]") end;

   y = y+1;
  end
  local r,s = os.pullEvent("key");
  if s == 208 then sIndex = sIndex +1 end;
  if s == 200 then sIndex = sIndex -1 end;
  if sIndex > #tableofItems then sIndex = 1 end;
  if sIndex < 1 then sIndex = #tableofItems end;
  if s == 28 then
		term.clear();
		term.setCursorPos(1,1);
		return tableofItems[sIndex]
  end
end
end

could someone please point ou what im doing wrong