doorcontrol

local tArgs = { ... }

local entranceHatchOpen=colors.blue
local entranceHatchClose=colors.red
local exitHatchOpen=colors.green
local exitHatchClose=colors.yellow

local controlDoor = function(op)
  for i=1,2 do
    redstone.setBundledOutput("top", op)
    sleep(0.100)
    redstone.setBundledOutput("top", 0)
    sleep(0.900)
  end
end

local openEntranceHatch = function()
  if redstone.testBundledInput("top", entranceHatchClose) then
    controlDoor(entranceHatchOpen)
  else
    print("Entrance Hatch already opened!")
  end
end

local closeEntranceHatch = function()
  if redstone.testBundledInput("top", entranceHatchClose) ~= true then
    controlDoor(entranceHatchClose)
  else
    print("Entrance Hatch already closed!")
  end
end

local openExitHatch = function()
  if redstone.testBundledInput("top", exitHatchClose) then
    controlDoor(exitHatchOpen)
  else
    print("Entrance Hatch already opened!")
  end
end

local closeExitHatch = function()
  if redstone.testBundledInput("top", exitHatchClose) ~= true then
    controlDoor(exitHatchClose)
  else
    print("Entrance Hatch already closed!")
  end
end


local checkArguments = function()
  local action = tArgs[1]
  local doorType = tArgs[2]

  if action == "open" then
    if doorType == "entrance" then
      print("Opening Entrance Hatch")
      openEntranceHatch()
    elseif doorType == "exit" then
      print("Opening Exit Hatch")
      openExitHatch()
    end
  elseif action == "close" then
    if doorType == "entrance" then
      print("Closing Entrance Hatch")
      closeEntranceHatch()
    elseif doorType == "exit" then
      print("Closing Exit Hatch")
      closeExitHatch()
    end
  end
end

-- check arguments

if #tArgs > 1 then
  checkArguments()
else
  print("doorcontrol [open/close] [entrance/exit]")
end