--HIDE AND SEEK game robot, by rnd
if not gamemaster then
	timeout = 20;
	fardist = 300
	gamemaster = "rnd"
	
	_G.minetest.forceload_block(self.pos(),true)
	self.listen(1); 
	centerpos = {x=160,y= 606,z= 227};

	init_game = function()
		self.label(colorize("yellow","HIDE&SEEK .. waiting for players .. say #hide to join"))
		_G.minetest.chat_send_all(colorize("red","# HIDE AND SEEK .. say #hide to join play, when all joined say #start to start game."))
		s=0;t=0; count = 0;	
		player_list = {}
	end
	
	reset_name = function(name)
		if name then
			local player = minetest.get_player_by_name(name)
			if not player then return end
			player:set_properties({nametag_color = "white"})
			return
		end
		local players = _G.minetest.get_connected_players();	
		for _,player in pairs(players) do
			local name = player:get_player_name();
			local data = player_list[name];
			if data then
				player:set_properties({nametag_color = "white"})
			end
		end
	end
	
	show_players = function()
		local ret = {}
		for k,v in pairs(player_list) do
			ret[#ret+1]=k		
		end
		self.label("hide and seek, players: " .. table.concat(ret,", "))	
	end
	init_game()
end

speaker,msg = self.listen_msg();

if s==0 then
	if msg =="#hide" then 
		player_list[speaker]={};
		_G.minetest.chat_send_all("# HIDE AND SEEK: " .. speaker .. " joined the game")
		local player = _G.minetest.get_player_by_name(speaker);
		if player then 
			player:setpos(centerpos);player:set_properties({nametag_color = "0x0"}) 
		end
	
	end
	if msg == "#start" and speaker == gamemaster then s = 0.5 _G.minetest.chat_send_all("# HIDE AND SEEK STARTS in " .. timeout .. " SECONDS!") end
	
elseif s==0.5 then 
	t=t+1 
	if t==timeout then 
		t=0;s = 1; count = 0; 
		for pname,_ in pairs(player_list) do
			local player = _G.minetest.get_player_by_name(pname);
			if player then 
				player_list[pname].hp = player:get_hp(); 
				player_list[pname].pos = player:getpos() 
				player_list[pname].t = 0;
				count = count+1
			end
		end
		if count == 1 then 
			gamemaster = false; _G.minetest.chat_send_all("# HIDE AND SEEK only 1 player, aborting.") 
		else
			_G.minetest.chat_send_all(colorize("red","# HIDE AND SEEK STARTS NOW WITH " .. count .. " PLAYERS. You are out if: 1.your health changes, 2. leave spawn. If stay in same area for too long or you will be exposed."))
		end
	
	end
elseif s==1 then
	players = _G.minetest.get_connected_players();	
	count = 0;
	for _,player in pairs(players) do
		local name = player:get_player_name();
		local data = player_list[name];
		if data then
			count=count+1
			local pos = player:getpos();
			local dist = math.max(math.abs(pos.x-centerpos.x),math.abs(pos.y-centerpos.y),math.abs(pos.z-centerpos.z));
			if dist>fardist or (not _G.minetest.get_player_by_name(name)) then 
				_G.minetest.chat_send_all("# HIDE AND SEEK: ".. name .. " is OUT! went too far away " )
				reset_name(name)
				show_players()
				player_list[name] = nil;
			end
			if data.hp < player:get_hp() then 
				_G.minetest.chat_send_all("# HIDE AND SEEK: ".. name .. " is OUT! his health changed!" )
				player:set_properties({nametag_color = "white"})
				player:setpos(centerpos)
				player_list[name] = nil;
				show_players()
			end
			
			--expose campers
			local p = data.pos;
			dist = math.max(math.abs(pos.x-p.x),math.abs(pos.y-p.y),math.abs(pos.z-p.z));
			--say( name .. " dist " .. dist .. " t " .. data.t)
			if dist<8 then
				data.t = data.t+1;
				if not data.camp then
					if data.t>15 and not data.camp then 
						_G.minetest.chat_send_player(name, "# HIDE AND SEEK: move in 5s or be exposed")
						data.camp = true
					end
				elseif data.t>=20 then
						pos.x=math.ceil(pos.x);pos.y=math.ceil(pos.y);pos.z=math.ceil(pos.z);
						_G.minetest.chat_send_all("# HIDE AND SEEK: " .. name .. " is camping at " .. pos.x .. " " .. pos.z)
						data.camp = false; data.t = 0
				end
			else
				data.t = 0; data.pos = player:getpos(); data.camp = false
			end
			
		end
	end

	if count<=1 then 
		if count==1 then
			for name,_ in pairs(player_list) do
				_G.minetest.chat_send_all(colorize("red","****** HIDE AND SEEK: ".. name .. " wins ******"))
				reset_name(name)
				init_game();
			end
		else 
			_G.minetest.chat_send_all("# HIDE AND SEEK: no players left")
			init_game()			
		end
	end
	
end