isVisible = false
adminList = {1,152443}
playerSpeed = {
-- [id] = speed
}

playerList = {
-- [id] = {id,id,id,...}
}


addhook("say","keypress")
function keypress(id,txt)
	if (txt=="!players") then
		for k,aid in pairs(adminList) do
			if (player(id,"usgn") == player(aid,"usgn")) then
				isVisible = true
				freezeAll()
				if (calcPlayers()) then
					isVisible = false
					unfreezeAll()
				end
			end
		end
	end
end

-- the important function
function calcPlayers()
	local playerPos = {}
	
	local rangeX = 11 
	local rangeY = 10
	
	
	-- Save all positions
	for k,id in ipairs(player(0,"tableliving")) do
		local x = player(id,"tilex")
		local y = player(id,"tiley")
		local point = {x,y}
		playerPos[id] = point
	end
	
	-- Check all positions
	for pid, player in pairs(playerPos) do
		for tid, target in pairs(playerPos) do 
			local px = player(pid,"tilex")
			local py = player(pid,"tiley")
			local tx = player(tid,"tilex")
			local ty = player(tid,"tiley")
			
			-- checking if player is on screen
			if (px - rangeX < tx) then
				if (py - rangeY < ty) then
					table.insert(playerList[pid],tid)
				end
			elseif (px + rangeX > tx) then
				if (py + rangeY > ty) then
					table.insert(playerList[pid],tid)
				end
			end
		end
	end
	
	-- print all names
	for pid, list in pairs(playerList) do
		msg2(pid,"You can see:")
		for k,target in pairs(list) do
			msg2(pid,player(target,"name").." (..target..")")
		end
	end
	return true
end

--[[
addhook("ms100","timer")
function timer()
	if (isVisble) then
		freezeAll()
	end
end]]

function setSpeed(id, speed)
	playerSpeed[tonumber(id)] = tonumber(speed)
	parse("setspeed "..tostring(id).." "..tostring(speed))
end

function freezeAll()
	for k,v in ipairs(player(0,"tableliving")) do
		playerSpeed[v] = player(v,"speedmod")
		parse("setspeed "..v.." -100")
	end
end

function unfreezeAll()
	for k,v in ipairs(player(0,"tableliving")) do
		parse("setspeed "..v.." "..playerSpeed[v])
	end
end