CCDoorLock

--ComputerCraft Door Lock by Teki

--rednet.open("back")
local modem
if peripheral.find("modem") ~= nil then
    modem = peripheral.find("modem")
end

local started = false

if pocket then
    while true do
        -- Is Active ?
        --rednet.broadcast("open", "CCDoorLock")
        modem.transmit(7, 1, "open")
        sleep(1)
    end

else
    while true do
        --id, msg, dist = rednet.receive("CCDoorLock")
        modem.open(7)
        local event, modemSide, senderChannel,
            replyChannel, msg, dist = os.pullEvent("modem_message")

        if (msg == "open" and dist <= 3) then -- Is the pocket close ?
            redstone.setOutput("left", true)

            print("received: " .. msg .. " at " .. dist)
        else
            redstone.setOutput("left", false)

            print("received: " .. msg .. " at " .. dist)
        end
    end
end