[LUA] computer controlled pistons

function gate()
rs.setBundledOutput("left", colors.yellow)
end
function wall()
rs.setBundledOutput("left", colors.black)
end

function crushers()
rs.setBundledOutput("left", colors.red)
sleep(14)
end
function listener()
   while true do
		  if rs.getInput("back") then
			    gate()
                sleep(0.2)
                wall()
                sleep(0.2)
                crushers()
		  end
		  sleep(0)
   end
end

Minithra, on 11 March 2013 - 09:56 PM said:

I can't get it to work. I am not good at any sort of programming.

local function output(col) -- a function is a good way to collect together common tasks
  rs.setBundledOutput('left', col) -- output the colour
  sleep(0.2) -- wait
  rs.setBundledOutput('left', 0) -- clear the output, i suspect this may have been causing one of the 'unexpected behaviours'
end

while true do
  os.pullEvent('redstone') -- wait here until the computer gets a redstone signal
  if rs.getInput('back') then -- if the redstone signal was the one we wanted
	output(colors.yellow) -- gate
	output(colors.black) -- wall
	output(colors.red) -- crushers
  end
end

    output(colors.yellow) -- gate
    sleep(0.5)
    output(colors.black) -- wall
    sleep(0.5)
    output(colors.red) -- crushers
    sleep(10)

Minithra, on 11 March 2013 - 10:14 PM said:

It wasn't doing anything at all :D/>

local function output(col, delay)
  rs.setBundledOutput('left', col)
  sleep(delay) -- wait
  rs.setBundledOutput('left', 0)
end

output(colors.yellow, 0.5)
output(colors.black, 0.5)
output(colors.red, 10)

while not rs.getInput('back') do
os.pullEvent("redstone")
end

Minithra, on 11 March 2013 - 10:27 PM said:

I have the bundled wires out of its left side, splitting into yellow/black/red a few blocks later, ending in play red alloy wire on the pistons. It should work…

local function output(col, delay)
  local curr = rs.getBundledInput('left') -- get the current output
  rs.setBundledOutput('left', colors.combine(curr, col)) -- combine the current with the new one
  sleep(delay) -- wait
  -- we dont want to clear it here
end

while true do
  os.pullEvent('redstone') -- wait here until the computer gets a redstone signal
  if rs.getInput('back') then -- if the redstone signal was the one we wanted
	output(colors.yellow, 0.5)
	output(colors.black, 0.5)
	output(colors.red, 10)
	rs.setBundledOutput('left', 0) -- now lets clear it
  end
end