Форум HeroesWorld-а - Показать сообщение отдельно - Скрипты
Тема: Скрипты
Показать сообщение отдельно
#1090
Старый 26.03.2013, 21:48
  #1090
^
RedHeavenHero
 
Аватар для RedHeavenHero
📖
Регистрация: 10.02.2012
Сообщения: 2380
Выставка наград
Регистрация: 10.02.2012
Сообщения: 2380
Выставка наград
По умолчанию
Re: Скрипты

	garrison_names={'G1', 'G2', 'G3', 'G4', 'G5', 'G6', 'G7', 'G8', 'G9'}
garrisons={}
for j, gar in garrison_names do
	Trigger(5, gar, 'capture_gar')
	garrisons[gar] = {}
	for i = 0, 6 do
		local t, n = GetObjectArmySlotCreature(gar, i)
		garrisons[gar][i] = {t, n}
	end
end

function capture_gar(oldowner, newowner, hero, gar)
	for i = 0, 6 do
		if garrisons[gar][i][1] ~= 0 then
			garrisons[gar][i][2] = garrisons[gar][i][2] * 2
			AddObjectCreatures(gar, garrisons[gar][i][1], garrisons[gar][i][2])
		end
	end
	DenyGarrisonCreaturesTakeAway(gar, 1)
	Trigger(5, gar, nil)
end
Но геометрическая прогрессия - опасная вещь
__________________
Карты для Героев Меча и Магии 5
Одиночные: Завеса срывается, Посол, Последний рывок, Эхо Пустоты
Кампания: Империя Единорога

Существа NCF
Орден Порядка: 1
Нейтралы: 1 2 3 4
Карты для Героев Меча и Магии 5
Одиночные: Завеса срывается, Посол, Последний рывок, Эхо Пустоты
Кампания: Империя Единорога

Существа NCF
Орден Порядка: 1
Нейтралы: 1 2 3 4
RedHeavenHero вне форума
Ответить с цитированием