local slot = -1;
	local i_count = 0;
	local id, count;
	local temp_name = NHF_tempName_F("Nemor");
	local count_umertvie = GetHeroCreatures("Nemor", CREATURE_WIGHT);
	if  count_umertvie > 0 then 
		for i = 0,6 do
			id, count = GetObjectArmySlotCreature(temp_name,i);
			if id == CREATURE_WIGHT then
				slot = i;
			end;
			if count == 0 then
				i_count = i_count + 1;
			end;
		end;
		if i_count == 6 then	
			AddHeroCreatures("Nemor", CREATURE_SKELETON , 1);
			sleep();
			RemoveHeroCreatures("Nemor", CREATURE_WIGHT, count_umertvie);
			sleep();	
			AddHeroCreatures("Nemor", CREATURE_BANSHEE , count_umertvie,slot);
			sleep();	
			RemoveHeroCreatures("Nemor", CREATURE_SKELETON, 1);
			sleep();	
		else		
			RemoveHeroCreatures("Nemor", CREATURE_WIGHT, count_umertvie);
			sleep();	
			AddHeroCreatures("Nemor", CREATURE_BANSHEE , count_umertvie,slot);
			sleep();	
		end;
	end;