[Lua][Question] Help with menu

while true do
  term.clear()
  term.setCursorPos(1,1)
  print("Welcome to RedNet!")
  print("v1.1.0")
  print("")
  print("Actions:")
  print("1. Receive")
  print("2. Send Message")
  print("3. Broadcast Message")
  print("4. Configure Modem")
  print("5. Announce")
  print("")
  write("Perform action ")
  local var = read()
  if var == "1" then
	receive()
  elseif var == "2" then
	send()
  elseif var == "3" then
	broadcast()
  elseif var == "4" then
	configure()
  elseif var == "5" then
	announce()
  else
	print("This action does not exist.")
  end
end

local tMenu = { "Receive", "Send", "Broadcast", "Configure", "Announce" }

local function findLongest()
  local long = #tMenu[1]
  for i = 2, #tMenu do
    local cLen = #tMenu[i]
    if cLen > long then
      long = cLen
    end
  end
  return long
end

local selected = 5
local longest = findLongest() + 4 -- +4 allows for the drawing of the selected thing
local sw, sh = term.getSize()

local function drawMenu()
  for i = 1, #tMenu do
    term.setCursorPos( sw / 2 - longest / 2, sh / 2 - #tMenu / 2 + i ) -- centres by x and y
    if i == selected then
      write( "[ "..tMenu[i].. string.rep( " ", longest - #tMenu[i] ) .." ]" ) -- string rep will add in enough spaces so the closing ] is lined up to the end of all other menu items
    else
      write( "  "..tMenu[i].."  " )
    end
  end
end

w,h=os.getSize()

term.setCursorPos((w/2)-5,1) --centers it
write("options:")
term.setCursorPos((w/2)-5,2)
write("1. Recieve")
--etc. etc.

while true do
  ev,k = os.pullEvent("key")
  if k = keys.up then
    --insert code to go one option up
  elseif k = keys.down then
    --insert code to go one option down
  elseif k = keys.enter then
    --if sentence here to execute selected option
    break
  end
end

ikke009, on 22 January 2013 - 10:44 AM said:

w,h = os.getSize()

local tMenu = { "Receive", "Send", "Broadcast", "Configure", "Announce", "Exit" }

local function findLongest(t_table)
	local long = #t_table[1]
	for i = 2, #t_table do
		local cLen = #t_table[i]
		if cLen > long then
			long = cLen
		end
	end
	return long
end

local sw, sh = term.getSize()
local version = "v1.1.0"

local function drawMenu(t_table)
  for i = 1, #t_table do
    term.setCursorPos( sw / 2 - longest / 2, sh / 2 - #t_table / 2 + i ) -- centres by x and y
    if i == selected then
      write( "[ "..t_table[i].. string.rep( " ", longest - #t_table[i] ) .." ]" ) -- string rep will add in enough spaces so the closing ] is lined up to the end of all other menu items
    else
      write( "  "..t_table[i].. string.rep( " ", longest - #t_table[i] ) .."  " )
    end
  end
end

function startMenu(t_table)
	selected = 1
	longest = findLongest(t_table)
	while true do
		drawMenu(t_table)
		_, k = os.pullEventRaw("key")
		if k == keys.up then
			selected = selected - 1
		elseif k == keys.down then
			selected = selected + 1
		elseif k == keys.enter then
			return t_table[selected], selected
		end
		if selected < 1 then selected = #t_table
		elseif selected > #t_table then selected = 1 end
	end
end

function backgroundStuff()
	term.clear()
	term.setCursorPos(1, 1)
	write("RedNet")
	term.setCursorPos(sw - #version + 1, 1)
	write(version)
end

while true do -- Main Loop
	backgroundStuff()
	option, number = startMenu(tMenu)
	if option == "Receive" then

	elseif option == "Send" then

	elseif option == "Broadcast" then

	elseif option == "Configure" then

	elseif option == "Announce" then

	elseif option == "Exit" then
		term.clear()
		term.setCursorPos(1, 1)
		break
	end
end

remiX, on 22 January 2013 - 05:59 PM said:

Here's a complete code with using TheOriginalBit's functions