local ScenarioUtils = import('/lua/sim/ScenarioUtilities.lua')
function OnPopulate()
--Базовая иницилизация армий игроков
ScenarioUtils.InitializeArmies()
end
function OnStart(self)
--Создаём поток и просим его выполнять наш скрипт
ForkThread(myScript)
end
--Создаём нашу таблицу юнитов, где будем хранить о них информацию
TableUnits = {}
function myScript()
--Сделаем вступительно ожидание, чтоб успели все юниты прогрузиться. Допустим 2 секунды
WaitSeconds(2)
--Создадим приветствие по центру экрана
PrintText('Hello World', 20, 'ff' .. 'd0d0d0', 10 , 'center')
--Поскольку наша карта всегда одного размера, то GetMapSize() можно вынести за бесконечный цикл
local MAPx, MAPz = GetMapSize()
local rectangle = {x0 = 0, x1 = MAPx, y0 = 0, y1 = MAPz}
--Бесконечный цикл
while true do
--Находим все юниты, которые есть на карте, то есть их объекты
local allUnits = GetUnitsInRect(rectangle)
--Через цикл проходимся по всем найденным юнитам
for number, unit in allUnits do
--allUnits - это множество юнитов, а unit - это один юнит. number - это номер юнита в массиве
--Находим id юнита
local idUnit = unit:GetEntityId()
--Прежде, чем мы будем работать с юнитом, мы должны проверить - живой ли он ещё? Есть ли он уже в нашей таблице?
if not unit:IsDead() and TableUnits[idUnit] == nil then
--Дословная проверка: юинт не мёртв? номер ячейки[ид юнита] пустой?
--Юнит прошёл проверку, поэтму он идёт на эсперименты
--Я хочу сначала собрать какую-нибудь информацию об юните/объекте
--билдрейт
local buildrate = unit:GetBuildRate()
--Кол-во здоровья в момент работы кода
local hp = unit:GetHealth()
--Кол-во макс здоровья
local maxhp = unit:GetMaxHealth()
--Узнаем какой армии он принадлежит
local army = unit:GetArmy()
--Иногда бывает такое, что нет готовой функции для получения нужной информации
--Поэтому мы можем её достать ручками из файла name_unit.bp
local blueprint = unit:GetBlueprint()
--Я выбрал например регенерацию, поскольку есть у всех юнитов, а готовой функции под неё нет
local regen = blueprint.Defense.RegenRate
--Ну а теперь изменим слегка юнита, чтоб ему неповадно было
--А изменим ему максимальное здоровье, реген и билдрейт в случайное кол-во раз
--Зададим для каждого юнита произвольный рандом от 1 до 5
local rand = Random(1,5)
local newmaxhp = maxhp * rand
unit:SetMaxHealth(newmaxhp)
--Или можно было кратко, пропуская объявление новой переменной, unit:SetMaxHealth(maxhp * rand)
--А регену сделаем иную логику, поскольку у некоторых юнитов 0 регена. Сделаем отдельный рандом и будем не умножать, а суммировать
local newregen = regen + Random(1,100)
unit:SetRegen(newregen)
--кратко unit:SetRegen(regen * Random(1,100))
local newbuildrate = buildrate * rand
unit:SetBuildRate(newbuildrate)
--кратко SetBuildRate(buildrate * rand)
--Создадим LOG в который мы поместим информацию о найденном юните
--Поскольку мы дебажим, то есть ищем ошибки, то в начале прописываем DEBUG, потом я напишу от куда этот LOG - из map
--Для информативности, я пропишу характеристики до и после изменения
--Чтоб объединять текст используется две точки ".."
LOG('DEBUG MAP unit = '..idUnit..', '..maxhp..' -> '..newmaxhp..', '..regen..' -> '..newregen..', '..buildrate..' -> '..newbuildrate)
--Хорошо, мы многое узнали о юните, теперь мы сохраним некоторую информацию в нашей таблице
--Создадим массив
local info_about_unit = {}
--Заполняем наш массив данными, вдруг они нам пригодятся в будущем
info_about_unit.newmaxhp = newmaxhp
info_about_unit.newregen = newregen
info_about_unit.newbuildrate = newbuildrate
info_about_unit.army = army
--и желательно загружать объект, чтоб потом при необходимости мы могли снова с ним совершать какие-либо действия
info_about_unit.unit = unit
--Загружаем информацию в ячейку под номером его id
TableUnits[idUnit] = info_about_unit
end
end
--Сделаем простенькую проверу есть ли в нашей таблице хоть один юнит
if not table.empty(TableUnits) then
--Поскольку мне мало было того, чтоб изменить его характеристики, я хочу в реальном времени его отслеживать
--Через цикл проходимся по нашей таблице
for id, info in TableUnits do
--TableUnits - наша таблица, info - это краткое название нашего info_about_unit, ну а id совпадает с номером элемента
--Снова проверяем наш юнит на живучесть
if not info.unit:IsDead() then
--Юнит ещё живой
--Проверка на активность - Простаивает ли юнит? -- true or false
local idle = info.unit:IsIdleState()
--Поскольку не красиво выводить true/false - создадим новую переменную и условие для чуть более понятного вывода в текстовом виде
local idletext
if idle == true then
idletext = 'idle'
else
idletext = 'not idle'
end
--Есть два варианта получения процента здоровья у юнита.. Либо с помощью готовой функции, либо ручками hp/maxhp .
--Поскольку мы тру программисты, будем использовать готовую функцию
--Мы будем видеть процент здоровья от базового
--Я не хочу видеть процент n.000000001 - поэтому я его округляю с помощью встроенных функций math
local hp_in_procent = math.floor(info.unit:GetHealthPercent() * 100)
--Мы будем выводить активность юнита, его процент хп и id
info.unit:SetCustomName(idletext..' '..hp_in_procent..'% '..id)
else
--Юнит мёртв и нам нужно отчистить его из таблицы
TableUnits[id]=nil
end
end
end
--В конце бесконечного цикла
--Задержка будет 1 сек игрового времени
WaitSeconds(1)
end
end
