Форум HeroesWorld-а - Показать сообщение отдельно - NHF - новые герои для Heroes V 3.1
Показать сообщение отдельно
#2765
Старый 11.04.2016, 02:15
  #2765
^
Dyrman
 
Аватар для Dyrman
📖
Регистрация: 24.06.2008
Адрес: Там, где неба кончается край
Сообщения: 3479
Отправить сообщение для  Dyrman с помощью ICQ
Регистрация: 24.06.2008
Адрес: Там, где неба кончается край
Сообщения: 3479
Отправить сообщение для  Dyrman с помощью ICQ
По умолчанию
Re: NHF - новые герои для Heroes V 3.1

Поправил скрипт для Дейдры:
	----------------ДЕЙДРА-------------------
function  error_NHF_Nemor_F ()
	print("error:NHF_Nemor_F");
end;
function  NHF_HERO_F.Nemor ()
errorHook(error_NHF_Nemor_F);
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 --Поправлено 0.84
	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(NHF_slep_singl);
		RemoveHeroCreatures("Nemor", CREATURE_WIGHT, count_umertvie);
		AddHeroCreatures("Nemor", CREATURE_BANSHEE , count_umertvie,slot);
		RemoveHeroCreatures("Nemor", CREATURE_SKELETON, 1);
	else		
		RemoveHeroCreatures("Nemor", CREATURE_WIGHT, count_umertvie);
		AddHeroCreatures("Nemor", CREATURE_BANSHEE , count_umertvie,slot);
	end;
end;
end;

Вышло забавно то, что только такой работает и для режима одиночной игры и для мультиплеера. Которые были проще - не работают в одиночке)
Dyrman вне форума
Ответить с цитированием