-- Code for Top PCs

function piston1C() -- Piston 1 Close (Bottom comp)
redstone.setOutput("back", true)
end

function piston1O() -- Piston 1 Open (Bottom comp)
redstone.setOutput("back", false)
end

function piston2() -- Piston 2 action (Top Comp)
redstone.setOutput("back", true)
sleep(1)
redstone.setOutput("back", false)
sleep(1)
redstone.setOutput("back", true)
sleep(1)
redstone.setOutput("back", false)
sleep(1)
end

function piston3C() -- Piston 3 Close (Bottom comp)
redstone.setOutput("left", true)
end

function piston3O() --Piston 3 Open (Bottom comp)
redstone.setOutput("left", false)
end

function piston4C() -- Piston 4 Close (Top comp)
redstone.setOutput("right", true)
end

function piston4O() --Piston 4 Open (Top comp)
redstone.setOutput("right", false)
end

function piston5() -- Piston 5 action (Bottom comp)
redstone.setOutput("right", true)
sleep(1)
redstone.setOutput("right", false)
sleep(1)
redstone.setOutput("right", true)
sleep(1)
redstone.setOutput("right", false)
sleep(1)
end

function listen()
local modem = peripheral.wrap("top")
modem.open(3)
local event, modemSide, senderChannel,
  replyChannel, message, senderDistance = os.pullEvent("modem_message")
  modem.close(3)
  CheckMessage(message)
end

function piston()
repeat
sleep(1)
piston2()
sleep(1)
sleep(1)
piston4C()
sleep(7)
piston4O()
sleep(1)
sleep(2)
sleep(4)
sleep(1)
sleep(1)
i=i+1
until 1==5
end


function CheckMessage(message1)
	if message1 == 1
	then
	piston()
	else
	end
end

--program

listen()