-- main.lua
local cardDriveSide = "bottom" -- side where the card reader is connected
local monitorSide = "right" -- side where the monitor is connected
local doorSide = "left" -- side where the door is connected

-- Wrap peripherals
local cardDrive = peripheral.wrap(cardDriveSide)
local monitor = peripheral.wrap(monitorSide)

-- Function to display a message on the monitor
local function displayMessage(line, message)
    monitor.setCursorPos(1, line)
    monitor.clearLine()
    monitor.write(message)
end

-- Function to display a detailed message about the access card status
local function displayAccessCardMessage(status)
    monitor.clear()
    if status == "insert" then
        displayMessage(1, "Doggy OS Enterprise Security")
        displayMessage(2, "============================")
        displayMessage(4, "Welcome to Doggy OS Enterprise Security System.")
        displayMessage(6, "Please insert your access card to proceed.")
    elseif status == "valid" then
        displayMessage(1, "Access Granted")
        displayMessage(2, "============================")
        displayMessage(4, "Welcome, authorized user!")
        displayMessage(6, "Access has been granted.")
        sleep(3) -- Display message for 3 seconds
    elseif status == "invalid" then
        displayMessage(1, "Access Denied")
        displayMessage(2, "============================")
        displayMessage(4, "Invalid or unauthorized card.")
        displayMessage(6, "Access denied. Please contact")
        displayMessage(7, "security for assistance.")
        sleep(3) -- Display message for 3 seconds
    elseif status == "startup_disabled" then
        displayMessage(1, "Startup Script Disabled")
        displayMessage(2, "============================")
        displayMessage(4, "Inserting a drive with a startup script")
        displayMessage(5, "is not allowed. Please remove the drive.")
        sleep(3) -- Display message for 3 seconds
    end
end

-- Function to check the inserted card and control the door
function checkCard()
    displayAccessCardMessage("insert") -- Initial message to insert card

    while true do
        if cardDrive.isDiskPresent() then
            local diskID = cardDrive.getDiskID()
            local diskPath = "/disk"

            -- Check for startup script presence and eject immediately if found
            if fs.exists(diskPath .. "/startup") or fs.exists(diskPath .. "/startup.lua") then
                displayAccessCardMessage("startup_disabled")
                cardDrive.ejectDisk()
                break -- Exit loop immediately after ejecting the card
            end

            -- Check if card is valid or invalid (for display purposes)
            if fs.exists(diskPath .. "/Cards/" .. diskID .. ".ID") then
                displayAccessCardMessage("valid")
                redstone.setOutput(doorSide, true) -- Open door
                sleep(1) -- Ensure door is fully open before ejecting
            else
                displayAccessCardMessage("invalid")
            end

            -- Eject the card after processing
            cardDrive.ejectDisk()
            sleep(2) -- Keep door open for 2 seconds after ejecting
            redstone.setOutput(doorSide, false) -- Close door

            break -- Exit loop after card action
        else
            -- No card inserted, continue checking
            sleep(1) -- Wait briefly before checking again
        end
    end
end

-- Main loop to continuously check for the card
while true do
    checkCard()
end