int Compte(int cat) //cat - kategoria
{
	int i, total;
	object p;
	
	total = 0;
	for ( i=0 ; i<10000 ; i++ )
	{
		p = retobject(i);
		if ( p == null ) break;
		if ( p.category == cat ) total ++;
	}
	return total;
}
extern void object::Radar3()
{
	
	message("Na planecie jest:");
	if(radar(AlienQueen) != null)
	{
		int liczbakroli=Compte(AlienQueen);
		message(Compte(AlienQueen)+"Krolowych obcych");
	}
	
	if(radar(AlienEgg) != null)
	{
		int liczbajaj=Compte(AlienEgg);
		message(Compte(AlienEgg)+" jaj obcych");
	}
	
	if(radar(AlienAnt) != null)
	{
		int lczbamrowek=Compte(AlienAnt);
		message(Compte(AlienAnt)+" mrowek");
	}
	
	if(radar(AlienSpider) != null)
	{
		int lczbapajakow=Compte(AlienSpider);
		message(Compte(AlienSpider)+" pajakow");
	}
	
	if(radar(AlienWasp) != null)
	{
		int lczbaos=Compte(AlienWasp);
		message(Compte(AlienWasp)+" os");
	}
	
	if(radar(AlienWorm) != null)
	{
		int lczbarobali=Compte(AlienWorm);
		message(Compte(AlienWorm)+" robakow");
	}
	
}