startup

local whiteList = {["BombBloke"] = true, ["eliteaccendo"] = true, ["Bluedemon909"] = true}

local sensorPos, mon, roomSensor, hunting = {-322,65,-160}, {}, peripheral.wrap("top")
local doorPos = {-321,64,-156}
local bounds = {{-331,-313},{67,61},{-164,-153}}

do
	local periphs = peripheral.getNames()

	for i=1,#periphs do if peripheral.getType(periphs[i]) == "monitor" then
		mon[#mon+1] = peripheral.wrap(periphs[i])
	elseif peripheral.getType(periphs[i]) == "modem" and peripheral.call(periphs[i],"isWireless") then
		rednet.open(periphs[i])
	end end
end

for i=1,#mon do mon[i].setTextScale(2) end

local function clearMon(i)
	mon[i].setTextColour(colours.white)
	mon[i].setBackgroundColour(colours.black)
	mon[i].setTextScale(2)
	mon[i].clear()
	mon[i].setCursorPos(1,1)
end

local function monPrint(i,text)
	local xPos,yPos = mon[i].getCursorPos()
	mon[i].write(text)
	mon[i].setCursorPos(1,yPos+1)
end

whiteList["BombBloke"] = true
whiteList["eliteaccendo"] = true
whiteList["Bluedemon909"] = true
whiteList["Steelwool199"] = nil

rednet.broadcast({"basepatrol"})

while true do
	local players = roomSensor.getPlayers()
	table.sort(players)

	for i=1,#players do
		local pData = roomSensor.getPlayerByName(username[i])

		if pData then
			pData.position.x = math.floor(pData.position.x + sensorPos[1])
			pData.position.y = math.floor(pData.position.y + sensorPos[2])
			pData.position.z = math.floor(pData.position.z + sensorPos[3])
			players[username[i]] = pData
		end
	end

	----------------------------------------
	-- Open / close computer access door: --
	----------------------------------------
	local doorClose = true
	for i=1,#players do if players[username[i]] and whiteList[username[i]] and math.abs(doorPos[1]-players[username[i]].position.x) < 5 and math.abs(doorPos[2]-players[username[i]].position.y) < 5 and math.abs(doorPos[3]-players[username[i]].position.z) < 5 then doorClose = false end end
	rs.setOutput("bottom",doorClose)

	for i=1,#players do if players[username[i]] and (players[username[i]].position.x < bounds[1][1] or players[username[i]].position.x > bounds[1][2] or players[username[i]].position.y < bounds[2][1] or players[username[i]].position.y > bounds[2][2] or players[username[i]].position.z < bounds[3][1] or players[username[i]].position.z > bounds[3][2]) then players[username[i]] = nil end end

	----------------------------------------
	--   Update basic monitor readouts:   --
	----------------------------------------
	local counter = 1

	for i=1,#players do
		if players[username[i]] then
			clearMon(counter)

			mon[counter].setTextColour(whiteList[username[i]] and colours.green or colours.red)
			monPrint(counter,username[i])
			mon[counter].setTextColour(colours.white)

			monPrint(counter,"X: "..players[username[i]].position.x.." Y: "..players[username[i]].position.y.." Z: "..players[username[i]].position.z)
			monPrint(counter,players[username[i]].heldItem and ("Equipped: "..players[username[i]].heldItem.name) or "")
			monPrint(counter,"")
			monPrint(counter,"Health: "..players[username[i]].health.."/"..players[players[i]].maxHealth)
			monPrint(counter,"Food:   "..players[username[i]].foodLevel)

			counter = counter + 1
			if counter > #mon then break end
		end
	end

	for i=counter,#mon do clearMon(i) end

	----------------------------------------
	--              Turtles:              --
	----------------------------------------
	local oldhunt = hunting
	hunting = nil

	for i=1,#players do if players[username[i]] and not whiteList[username[i]] then hunting = username[i] end end

	if hunting then rednet.broadcast({"basepatrol",hunting,{players[hunting].position.x,players[hunting].position.z,players[hunting].position.y}}) end

	if oldhunt and not hunting then rednet.broadcast({"basepatrol"}) end

	sleep(1)
end