Pasted

 
local sensorpath = "sensor_0"
local sensor = peripheral.wrap(sensorpath) or error("Unable to wrap sensor.",0)
 
local maxx = 3
local maxz = 3
local maxy = 6
 
local running = true
local update = 0.1 -- seconds
local state = true
local gateside = "right"
 
local rsinput = "top"
local rsoutput = "left"
 
local function getData()
    local users = sensor.getPlayerNames()
    local userdata = {}
    for index,ign in pairs(users) do
        local user = sensor.getPlayerData(ign)
        if user then
            table.insert(userdata,index,user.position)
        end
    end
    return userdata
end
 
local function checkUsers()
    local userdata = getData()
    for index,pos in ipairs(userdata) do
        if pos.x <= maxx+1 and pos.x >= -maxx
        and pos.z <= maxz+1 and pos.z >= -maxz
        and pos.y <= maxy and pos.y >= 0 then
            return true
        end
    end
    return false
end
 
while running do
    state = not checkUsers()
    rs.setOutput(gateside,state)
    rs.setOutput(rsoutput,rs.getInput(rsinput))
    sleep(update)
end