Изменено

Данная статья подробно опишет способ избавления от утечек при использовании событий Юнит атакован и Юнит получает урон в связке.
Суть в том, что на ГУИ в данном случае при каждой атаке мы создаем новый триггер и новое действие, которые засоряют память, если их не удалять.
Статья требует минимальные знания Jass, чтобы уметь применить этот способ в своей карте.

1. Начало

Создаем новую карту, удаляем стандартный триггер и создаем новый триггер event damaged.
Добавляем в него событие юнит атакован и конвертируем в jass. Получаем:

function Trig_event_damaged_Actions takes nothing returns nothing
endfunction

//===========================================================================
function InitTrig_event_damaged takes nothing returns nothing
    set gg_trg_event_damaged = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_event_damaged, EVENT_PLAYER_UNIT_ATTACKED )
    call TriggerAddAction( gg_trg_event_damaged, function Trig_event_damaged_Actions )
endfunction

Теперь мы создадим действие, которое будет выполняться при получении урона по атакованному юниту, и условие для выполнения этого действия, и поместим их выше нашего триггера:

function Add_Damage takes nothing returns nothing
// наши действия
endfunction

function Tr_Conditions takes nothing returns boolean
// наше условие
    return true
endfunction

function Trig_event_damaged_Actions takes nothing returns nothing
endfunction

//===========================================================================
function InitTrig_event_damaged takes nothing returns nothing
    set gg_trg_event_damaged = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_event_damaged, EVENT_PLAYER_UNIT_ATTACKED )
    call TriggerAddAction( gg_trg_event_damaged, function Trig_event_damaged_Actions )
endfunction

Теперь мы создадим действия, которые будут создавать триггер с действиями в Add_Damage и условием Tr_Conditions после события атаки.

function Add_Damage takes nothing returns nothing
// наши действия
endfunction

function Tr_Conditions takes nothing returns boolean
// наше условие
    return true
endfunction

function Trig_event_damaged_Actions takes nothing returns nothing
    local trigger t = CreateTrigger()
    call TriggerRegisterUnitEvent(t, GetTriggerUnit(), EVENT_UNIT_DAMAGED)
    call TriggerAddCondition(t, Condition(function Tr_Conditions))
    call TriggerAddAction(t, function Add_Damage)
    set t = null
endfunction

//===========================================================================
function InitTrig_event_damaged takes nothing returns nothing
    set gg_trg_event_damaged = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_event_damaged, EVENT_PLAYER_UNIT_ATTACKED )
    call TriggerAddAction( gg_trg_event_damaged, function Trig_event_damaged_Actions )
endfunction

Данный код можно было выполнить и на ГУИ, с этим ни у кого проблем не возникнет, а проблемы начинаются дальше, когда мы замечаем, что количество утечек быстро растет.
Теперь перед нами возникает задача по удалению созданного триггера и действия после того, как он нам уже не нужен.

2. Сохранение и удаление

Т.к. у атакующего юнита в один момент может быть только одна цель, то мы можем привязать наши действия к его GetHandleId, чтобы потом их удалить.
Нам нужно создать глобальную переменную Hash (в jass udg_Hash) типа hashtable,
создать триггер с событием инициализации, и вставить в Custom script эту строку, чтобы инициализировать таблицу:

set udg_Hash = InitHashtable()

Мы будем сохранять в Hash созданный триггер и действие:

function Trig_event_damaged_Actions takes nothing returns nothing
    local trigger t = CreateTrigger()
    local integer h2i = GetHandleId(GetAttacker())
// мы получили номер в массив из уникального номера юнита.
    call TriggerRegisterUnitEvent(t, GetTriggerUnit(), EVENT_UNIT_DAMAGED)
    call SaveTriggerHandle(udg_Hash, h2i, 1, t)
    call TriggerAddCondition(t, Condition(function Tr_Conditions))
    call SaveTriggerActionHandle(udg_Hash, h2i, 2, TriggerAddAction(t, function Add_Damage))
    set t = null
endfunction

Числа 1 и 2 в call SaveTriggerHandle(udg_Hash, h2i, 1, t) и SaveTriggerActionHandle(udg_Hash, h2i, 2, TriggerAddAction(t, function Add_Damage)) могут быть другими - это как пример. Мы просто используем ключ ячейки Хеш-таблицы.
Сейчас нам надо сделать удаление сохраненных действий после того, как выполнятся все действия при получении урона.
Для этого создадим новую функцию и будем ее использовать в коде:

function Remove_Trigger takes integer h2i returns nothing
    local trigger t
    if HaveSavedHandle(udg_Hash, h2i, 1) then
        set t = LoadTriggerHandle(udg_Hash, h2i, 1)
        call TriggerRemoveAction(t, LoadTriggerActionHandle(udg_Hash, h2i, 2))
        call DestroyTrigger(t)
        call RemoveSavedHandle(udg_Hash, h2i, 1)
        call RemoveSavedHandle(udg_Hash, h2i, 2)
        set t = null
    endif
endfunction

function Add_Damage takes nothing returns nothing
    local integer h2i = GetHandleId(GetEventDamageSource())

// наши действия
//    local real damage = GetEventDamage()
//    local unit u = GetEventDamageSource()
//    call DisplayTextToPlayer(Player(0), 0.0, 0.0, "+") // проверочное сообщение
//----------------
//    set u = null

    call Remove_Trigger(h2i)
// После нанесения урона выполнится удаление.
endfunction

function Trig_event_damaged_Actions takes nothing returns nothing
    local trigger t = CreateTrigger()
    local integer h2i = GetHandleId(GetAttacker())
    call Remove_Trigger(h2i)
// При атаке удалятся предыдущие действия для этого юнита, если они есть.
    call TriggerRegisterUnitEvent(t, GetTriggerUnit(), EVENT_UNIT_DAMAGED)
    call SaveTriggerHandle(udg_Hash, h2i, 1, t)
    call TriggerAddCondition(t, Condition(function Tr_Conditions))
    call SaveTriggerActionHandle(udg_Hash, h2i, 2, TriggerAddAction(t, function Add_Damage))
    set t = null
endfunction

Теперь сделаем такое условие, чтобы не выполнялись действия, если:

урон равен 0.0 - это отловит все промахи, нулевые и лишние атаки
игрок атакующего юнита не равен игроку атакованного юнита

function Tr_Conditions takes nothing returns boolean
    return R2I(GetEventDamage()) > 0.0 and GetOwningPlayer(GetEventDamageSource()) != GetOwningPlayer(GetTriggerUnit())
endfunction

Оптимизируем событие Юнит атакован, раскрыв BJ-функцию

function InitTrig_event_damaged takes nothing returns nothing
    local integer index = 0
    set gg_trg_event_damaged = CreateTrigger()
    loop
        call TriggerRegisterPlayerUnitEvent(gg_trg_event_damaged, Player(index), EVENT_PLAYER_UNIT_ATTACKED, null)
        set index = index + 1
        exitwhen index == 16
    endloop
    call TriggerAddAction(gg_trg_event_damaged, function Trig_event_damaged_Actions)
endfunction

У нас получился такой код:

function Remove_Trigger takes integer h2i returns nothing
    local trigger t
    if HaveSavedHandle(udg_Hash, h2i, 1) then
        set t = LoadTriggerHandle(udg_Hash, h2i, 1)
        call TriggerRemoveAction(t, LoadTriggerActionHandle(udg_Hash, h2i, 2))
        call DestroyTrigger(t)
        call RemoveSavedHandle(udg_Hash, h2i, 1)
        call RemoveSavedHandle(udg_Hash, h2i, 2)
        set t = null
    endif
endfunction

function Add_Damage takes nothing returns nothing
    local integer h2i = GetHandleId(GetEventDamageSource())
//    local real damage = GetEventDamage()
//    local unit u = GetEventDamageSource()
//    call DisplayTextToPlayer(Player(0), 0.0, 0.0, "+")
//----------------
//    set u = null
    call Remove_Trigger(h2i)
endfunction

function Tr_Conditions takes nothing returns boolean
    return R2I(GetEventDamage()) > 0.0 and GetOwningPlayer(GetEventDamageSource()) != GetOwningPlayer(GetTriggerUnit())
endfunction

function Trig_event_damaged_Actions takes nothing returns nothing
    local trigger t = CreateTrigger()
    local integer h2i = GetHandleId(GetAttacker())
    call Remove_Trigger(h2i)
    call TriggerRegisterUnitEvent(t, GetTriggerUnit(), EVENT_UNIT_DAMAGED)
    call SaveTriggerHandle(udg_Hash, h2i, 1, t)
    call TriggerAddCondition(t, Condition(function Tr_Conditions))
    call SaveTriggerActionHandle(udg_Hash, h2i, 2, TriggerAddAction(t, function Add_Damage))
    set t = null
endfunction

//===========================================================================
function InitTrig_event_damaged takes nothing returns nothing
    local integer index = 0
    set gg_trg_event_damaged = CreateTrigger()
    loop
        call TriggerRegisterPlayerUnitEvent(gg_trg_event_damaged, Player(index), EVENT_PLAYER_UNIT_ATTACKED, null)
        set index = index + 1
        exitwhen index == 16
    endloop
    call TriggerAddAction(gg_trg_event_damaged, function Trig_event_damaged_Actions)
endfunction

3. Мертвяки

Чтобы не хранить сохраненные действия мертвых юнитов, мы создадим еще один триггер, который будет их отчищать.
Создаем триггер death, добавляем событие юнит умирает, а в действиях вставляем в Custom Script это:

call Remove_Trigger(GetHandleId(GetDyingUnit()))

4. Утечки

Для того, чтобы видеть, есть ли у нас утечки памяти или нет, существует такая конструкция, которая показывает увеличение количества объектов на карте.
Для этого создадим глобальную переменную i_test типа integer. В нее будет заноситься максимальное число объектов на карте.
Создадим пустой триггер и назовем его check, конвертируем его в jass и вставляем в него этот код:

function Trig_check_Actions takes nothing returns nothing
    local timer Timer = CreateTimer()
    local string S
    local integer i = 0
    if udg_i_test < GetHandleId(Timer) then // !=  <
        set S = ("|cffaaaaaa [Test] H: " + I2S(GetHandleId(Timer) - 1048500 + "|r") // 1048500 - число, нужное для уменьшения числа, выводимого на экран
        call DisplayTextToPlayer(Player(0), 0, 0, S) // сообщение выводится для игрока 1 Player(0)
        set S = null
        set udg_i_test = GetHandleId(Timer)
    endif
    call DestroyTimer(Timer)
    set Timer = null
endfunction

//===========================================================================
function InitTrig_check takes nothing returns nothing
    set gg_trg_check = CreateTrigger()
    call TriggerRegisterTimerEvent(gg_trg_check, 0.1, true)
    call TriggerAddAction(gg_trg_check, function Trig_check_Actions)
endfunction

В игре будут выводиться цифры, если максимальное количество объектов увеличилось.
Триггер будет запускаться каждые 0.1 секунду, этого вполне достаточно, чтобы точно определить наличие утечек.

Ваши права в разделе

Вы не можете создавать темы

Вы не можете отвечать на сообщения

Вы не можете прикреплять файлы

Вы можете скачивать файлы

BB-коды Вкл.

Смайлики Вкл.

[IMG] код Вкл.

HTML код Выкл.

FEARSTARTER desert eagle offline Опыт: 19,284 Активность:	Полезная статья, год назад она можетбыть спаслабы одну мою карту...
16.03.2010, 22:00	#2 +0/−0 Профиль \| Приват \| Поиск \| IP: Записан

Alonix null offline Опыт: 26,861 Активность:	Хорошая статья для тех,кто задает вопросы:"как избавиться от утечек" и т.п.А также она может помочь обычным картостроителям.В общем,время потраченое на статью потрачено не зря!
17.03.2010, 05:14	#3 +0/−0 Профиль \| Приват \| Поиск \| IP: Записан

Doc offline Опыт: 63,163 Активность:	Да Ну... У меня на группах без хеша/массивов и все работает.
17.03.2010, 08:45	#5 +0/−0 Профиль \| Приват \| Поиск \| IP: Записан

FellGuard Losyash offline Опыт: 39,547 Активность:	что у тебя на группах? аттач триггера unit takes damage куда и как?
17.03.2010, 08:49	#6 +0/−0 Профиль \| Приват \| Поиск \| IP: Записан

Doc offline Опыт: 63,163 Активность:	Нет. Просто при добавлении события проверяется наличие в группе если нет, то добавляем в группу. Через нужное время тригер пересоздаем.
17.03.2010, 09:04	#7 +0/−0 Профиль \| Приват \| Поиск \| IP: Записан

XOR offline Опыт: 38,284 Активность:	Многабукф ниачем. Статья не нужна имхо, хороший жассер дойдет сам, а гуишники получят еще повод изучить жасс.
17.03.2010, 09:19	#8 +0/−0 Профиль \| Приват \| Поиск \| IP: Записан

zero index Фантома же! offline Опыт: 886 Активность:	статья очень пригодилась но не по своему назначению, а как урок джасса) все что в статье постараюсь запомнить, автору спс...
17.03.2010, 14:11	#9 +0/−0 Профиль \| Приват \| Поиск \| IP: Записан

sonicscream offline Опыт: 773 Активность:	Статья не только отличная, но ещё и уникальная. На этом сайте аналогов не видел...
17.03.2010, 17:44	#12 +0/−0 Профиль \| Приват \| Поиск \| IP: Записан

JaBeN_Симфер offline Опыт: 20,050 Активность:	DioD, ты видимо у буржуев часто бываешь, а сам что-нибудь можешь? Вот возьми свой прикрепленный шлак и сделай из него систему, запости ее в барахолке, и пусть пылится.
17.03.2010, 21:10	#14 +0/−0 Профиль \| Приват \| Поиск \| IP: Записан

DioD offline Опыт: 45,184 Активность:	ты даже не знаешь что триггеркондишины не создают утечек, как ты может помочь людям если толкаешь им ложные сведения, ты ведь даже не тестировал свой код. Отредактировано Кет, 19.03.2010 в 00:58.
17.03.2010, 21:37	#18 +0/−0 Профиль \| Приват \| Поиск \| IP: Записан

Опции темы	Поиск в этой теме
Версия для печати	Поиск в этой теме: Расширенный поиск