[lua] Need help writing a program

local currline = 0
local pos
pos = 1
local loctable
local postable
local linetable
linetable = {}
postable = {}
loctable = {}
local event
local keypressed
local countlines
local page
page = 1

function readFile()
  file = io.open("power","r")
  for line in file:lines() do
	currline = currline + 1
	for name, active in string.gmatch(line, "(.+):(/>/>/>%a)") do
	  print(name.."="..tostring(active))
	  loctable[name] = active
	end
  end
  file:close()
end

function printMenu()
  file = io.open("power","r")
  term.clear()
  term.setCursorPos(1,1)
  local currpos
  local wire = 0
  currpos = 1
  countlines = 0
  for line in file:lines() do
  for name, active in string.gmatch(line, "(.+):(/>/>/>%w+)") do
	loctable[name] = active
	countlines = countlines + 1
	wire = redstone.getBundledOutput("bottom")
	if active == "Open" then
  
	  term.setTextColor(colors.lime)
	  wire = colors.combine(wire, 2^countlines)
	
	else
	  term.setTextColor(colors.red)
	  wire=colors.subtract(wire, 2^countlines)
	end
	redstone.setBundledOutput("bottom", wire)
	if currpos == pos then
	  print(name.."="..active.."*")
	else
	  print(name.."="..active)
	end
	postable[countlines] = active
	linetable[countlines] = line
	currpos = currpos+1
  end
  end
  term.setTextColor(colors.white)
  file:close()
end	
	  
readFile()
while true do
  printMenu()
  local event, a = os.pullEvent("key")
  if a == 200 then
	pos = pos - 1
	printMenu()
  end
  if a == 208 then
	pos = pos + 1
	printMenu()
  end
  if a == 28 then
  
	printMenu()
  end
end

ChunLing, on 08 January 2013 - 12:58 PM said:

What seems to be the trouble?

robertcarr22, on 10 January 2013 - 09:33 AM said:

Still cant figure it out :/ can someone please help?

crazyguymgd, on 10 January 2013 - 09:37 AM said:

robertcarr22, on 10 January 2013 - 09:33 AM said:

Still cant figure it out :/ can someone please help?

is the code above still the most recent copy? I'd be happy to take a look but what you have above doesn't work and I don't want to debug it all if you've already done some of that.

Zone 1:Closed
Zone 2:Open
Zone 3:Closed

crazyguymgd, on 11 January 2013 - 05:43 AM said:

Do you get any errors? After a quick glance on my phone I noticed you use curpos in the last while loop but declare it as a local variable up in the function above. This may be the problem?

crazyguymgd, on 11 January 2013 - 08:45 AM said:

Problem I found:
Every time you call printMenu(), you read from the file again, overwriting any data you may have changed if the enter key works, and reprint the old data. So you may be doing that part correctly but you're overwriting it every time through the loop.

local loctable = {}
local currline = 0
local pos = 1
local wire = 0

function readFile()
  term.clear()
  term.setCursorPos(1,1)

  local countlines = 1
  file = io.open("power","r")

  for line in file:lines() do
    for name, active in string.gmatch(line, "(.+):(/>%w+)") do
      loctable[countlines] = {["name"] = name, ["active"] = active}
    end
    countlines = countlines + 1
  end
  file:close()
end

readFile()
function printMenu()
  term.setCursorPos(1,1)
  term.clear()
  for i = 1, #loctable do
    wire = redstone.getBundledOutput("bottom")
    if loctable[i].active == "Open" then
      term.setTextColor(colors.lime)
      wire = colors.combine(wire, 2^#loctable)
    else
      term.setTextColor(colors.red)
      wire=colors.subtract(wire, 2^#loctable)
    end
    redstone.setBundledOutput("bottom", wire)

    if i == pos then
      print(loctable[i].name.."="..loctable[i].active.."*")
    else
      print(loctable[i].name.."="..loctable[i].active)
    end  
  end
  term.setTextColor(colors.white)
end      


while true do
  printMenu()
  local event, a = os.pullEvent("key")
  if a == 200 and pos > 1 then
    pos = pos - 1
  end
  if a == 208 and pos < 3 then
    pos = pos + 1
  end
  if a == 28 then

    if loctable[pos].active == "Open" then
       loctable[pos].active = "Closed"
     else
       loctable[pos].active = "Open"
     end  


  end  
end

crazyguymgd, on 11 January 2013 - 09:03 AM said:

Here's what I came up with for you. It uses your general method just cleaned up a bit. Took out some unnecessary variables, made loctable hold all the data so we're not trying to access multiple tables. And some other little things. Here you go!

-snip-

menu2:58: attempt to index ? (a nil value)

crazyguymgd, on 11 January 2013 - 09:17 AM said:

I just ran it and it works fine. That error would mean nothing is in loctable at index pos. Did you add the code I gave you to an existing program or run it on it's own. Again, it works for me with no error.

"(.+):(/>/>%w+)"

"(.+):(/>%w+)"

robertcarr22, on 11 January 2013 - 09:49 AM said:

crazyguymgd, on 11 January 2013 - 09:17 AM said:

I just ran it and it works fine. That error would mean nothing is in loctable at index pos. Did you add the code I gave you to an existing program or run it on it's own. Again, it works for me with no error.

I've found what was wrong.. on line 14 I changed this:

"(.+):(/>/>/>%w+)"

to this:

"(.+):(/>/>%w+)"

and now it works :)/>
Thanks for all your help!! :D/>

crazyguymgd, on 11 January 2013 - 10:16 AM said:

you initialize t to 0 and there is no color to 0
Nevermind this. I'm gonna pass off to someone else who knows something about bundledcables :)/> although I'll probably go start playing with them sometime soon :)/>

["color"] = 2^countlines 

crazyguymgd, on 11 January 2013 - 10:37 AM said:

So I gave it a bit of thought, and if you add another field to the loctable,

["color"] = 2^countlines 

then when you use colors.combine(wire,loctable.wire) should add the correct color?