• Система вейв-лоад для рпг

=== НАСТРОЙКА RAW ID СПОСОБНОСТЕЙ ===
Замените 'A000' и т.д. на ваши четырехзначные коды из Ctrl+D

Мощь Солнца
constant integer ABIL_SUN_ICON = 'A000' Иконка способности в панели
constant integer ABIL_SUN_DMG = 'A001' Скрытый урон
constant integer ABIL_SUN_REGEN = 'A002' Скрытый реген

Сила Ночи
constant integer ABIL_NIGHT_ICON = 'A003' Иконка способности в панели
constant integer ABIL_NIGHT_ASPD = 'A004' Скрытая скорость атаки
constant integer ABIL_NIGHT_MSPD = 'A005' Скрытая скорость бега

Группы для отслеживания юнитов
group SunUnits = CreateGroup()
group NightUnits = CreateGroup()
endglobals

Функция проверки: день сейчас или ночь
function IsDaytime takes nothing returns boolean
local real hour = GetFloatGameState(GAME_STATE_TIME_OF_DAY)
В Warcraft 3 день длится с 6:00 до 18:00
return (hour >= 6.00 and hour < 18.00)
endfunction

Фильтр для добавления юнитов в группы при изучении
function HistoryCheck takes nothing returns boolean
local unit u = GetLearningUnit()
local integer abil = GetLearnedSkill()

if abil == ABIL_SUN_ICON then
if not IsUnitInGroup(u, SunUnits) then
call GroupAddUnit(SunUnits, u)
endif
elseif abil == ABIL_NIGHT_ICON then
if not IsUnitInGroup(u, NightUnits) then
call GroupAddUnit(NightUnits, u)
endif
endif

set u = null
return false
endfunction

Периодическая проверка и раздача баффов (каждые 1.0 сек)
function UpdateDayNightBuffs takes nothing returns nothing
local unit u
local boolean isDay = IsDaytime()

Обработка Мощи Солнца
local group tempSun = CreateGroup()
call GroupAddGroup(SunUnits, tempSun)
loop
set u = FirstOfGroup(tempSun)
exitwhen u == null
call GroupRemoveUnit(tempSun, u)

Если юнит умер, удаляем его из глобального отслеживания
if GetUnitState(u, UNIT_STATE_LIFE) <= 0 or GetUnitAbilityLevel(u, ABIL_SUN_ICON) == 0 then
call GroupRemoveUnit(SunUnits, u)
else
if isDay then
Наступил день — включаем скрытые бонусы, если их еще нет
if GetUnitAbilityLevel(u, ABIL_SUN_DMG) == 0 then
call UnitAddAbility(u, ABIL_SUN_DMG)
call UnitMakeAbilityPermanent(u, true, ABIL_SUN_DMG)
call UnitAddAbility(u, ABIL_SUN_REGEN)
call UnitMakeAbilityPermanent(u, true, ABIL_SUN_REGEN)
endif
else
Наступила ночь — отключаем бонусы
if GetUnitAbilityLevel(u, ABIL_SUN_DMG) > 0 then
call UnitRemoveAbility(u, ABIL_SUN_DMG)
call UnitRemoveAbility(u, ABIL_SUN_REGEN)
endif
endif
endif
endloop

Обработка Силы Ночи
local group tempNight = CreateGroup()
call GroupAddGroup(NightUnits, tempNight)
loop
set u = FirstOfGroup(tempNight)
exitwhen u == null
call GroupRemoveUnit(tempNight, u)

if GetUnitState(u, UNIT_STATE_LIFE) <= 0 or GetUnitAbilityLevel(u, ABIL_NIGHT_ICON) == 0 then
call GroupRemoveUnit(NightUnits, u)
else
if not isDay then
Наступила ночь — включаем скрытые бонусы ночи
if GetUnitAbilityLevel(u, ABIL_NIGHT_ASPD) == 0 then
call UnitAddAbility(u, ABIL_NIGHT_ASPD)
call UnitMakeAbilityPermanent(u, true, ABIL_NIGHT_ASPD)
call UnitAddAbility(u, ABIL_NIGHT_MSPD)
call UnitMakeAbilityPermanent(u, true, ABIL_NIGHT_MSPD)
endif
else
Наступил день — отключаем бонусы ночи
if GetUnitAbilityLevel(u, ABIL_NIGHT_ASPD) > 0 then
call UnitRemoveAbility(u, ABIL_NIGHT_ASPD)
call UnitRemoveAbility(u, ABIL_NIGHT_MSPD)
endif
endif
endif
endloop

call DestroyGroup(tempSun)
call DestroyGroup(tempNight)
set u = null
endfunction

Инициализация триггеров
function InitTrig_DayNightSystems takes nothing returns nothing
local trigger tLearn = CreateTrigger()
local trigger tTimer = CreateTrigger()
local integer i = 0

Регистрируем событие изучения навыка для всех игроков
loop
exitwhen i > 15
call TriggerRegisterPlayerUnitEvent(tLearn, Player(i), EVENT_PLAYER_HERO_SKILL, null)
set i = i + 1
endloop
call TriggerAddCondition(tLearn, Condition(function HistoryCheck))

Таймер, обновляющий состояние каждую секунду игрового времени
call TriggerRegisterTimerEvent(tTimer, 1.00, true)
call TriggerAddAction(tTimer, function UpdateDayNightBuffs)
endfunction