local sides = {"bottom", "back"}
local password = "nineTAILED"
local sleepTime = 5
for k, v in pairs(rs.getSides()) do
  rs.setOutput(v, false)
end

local function getPass()
  term.clear()
  term.setCursorPos(1,1)
  write("Password:")
  input = read("*")
  if input == password then
    print("Correct password!")
    rs.setOutput(sides[1], true)
    sleep(0)
    rs.setOutput(sides[2], false)
    sleep(sleepTime)
    rs.setOutput(sides[1], true)
    sleep(0)
    rs.setOutput(sides[2], false)
  else
    print("You fail.")
  end
end

local function loopGetPass()
  while true do
    getPass()
  end
end

local function getInput()
  while true do
    os.pullEvent("redstone")
    if rs.getInput(sides[2]) then
      sleep(1)
      term.clear()
      term.setCursorPos(1,1)
      print("Please wait.")
      rs.setOutput(sides[1], true)
      sleep(0)
      rs.setOutput(sides[1], false)
      sleep(sleepTime)
      rs.setOutput(sides[1], true)
      sleep(0)
      rs.setOutput(sides[1], false)
    end
  end
end

parallel.waitForAny(loopGetPass, getInput)
sleep(1)