startup.lua

print("Running doorSoft 1.0")
local runif = 1
local modem = peripheral.wrap("front")
modem.open(4)

local function cycleDoor()
    modem.transmit(1, 1, "1 off")
    os.sleep(0.2)
    modem.transmit(1, 1, "2 off")
    os.sleep(5)
    modem.transmit(1, 1, "2 on")
    os.sleep(0.2)
    modem.transmit(1, 1, "1 on")
end

function redstoneTrigger()
    os.pullEvent("redstone")
    if redstone.getInput("top") then
        modem.transmit(3, 4, "elevatorCycle")
        os.sleep(1)
        cycleDoor()
    end
end

function modemTrigger()
    local event, modemSide, senderChannel, replyChannel, message, senderDistance = os.pullEvent("modem_message")
    if message == "cycleDoor" then
        os.sleep(2.5)
        cycleDoor()
    end
end

while runif == 1 do
    parallel.waitForAny(modemTrigger, redstoneTrigger)
end