Secret door

modem = peripheral.wrap("left")
openState = false
rs.setOutput("right", true)
modem.open(5)

function open()
  rs.setOutput("top", true)
  os.sleep(0.1)
  rs.setOutput("top", false)
  os.sleep(0.2)
  rs.setOutput("right", false)
  os.sleep(0.2)
  rs.setOutput("bottom", true)
  os.sleep(0.2)
  rs.setOutput("top", true)
  os.sleep(0.1)
  rs.setOutput("top", false)
  os.sleep(0.2)
  rs.setOutput("bottom", false)
  os.sleep(0.2)
  rs.setOutput("top", true)
  os.sleep(0.1)
  rs.setOutput("top", false)
  openState = true
end

function close()
  rs.setOutput("top", true)
  os.sleep(0.1)
  rs.setOutput("top", false)
  os.sleep(0.2)
  rs.setOutput("right", true)
  os.sleep(0.2)
  rs.setOutput("top", true)
  os.sleep(0.1)
  rs.setOutput("top", false)
  openState = false
end

while true do
  e, _, _, _, message = os.pullEvent("modem_message")
  if message == "secret_open" and not openState then
    open()
    os.sleep(10)
    close()
  end
end