ClotPh
WarCraft 3

Продолжение: фатал из-за переполнения памяти

Добавлен
Продолжение xgm.guru/p/100/208276
Экспериментальным путём удалось выяснить, что фатал из-за переполнения памяти после выхода из игры вызывает заклинание Priest of Titania.
В крайнем случае заменю его на другое, но, может, всё-таки кто отыщет возможную причину?
function PriestOfTitaniaCrystals takes nothing returns nothing
ВНИМАНИЕ!!! ОБНУЛЯЕМЫЕ ПЕРЕМЕННЫЕ ЗДЕСЬ СПИСКОМ - НОВЫЙ ШАБЛОН СОВЕРШЕНСТВА, ВСЕ ТЕСТКАРТЫ БЕЗ ОНОГО БУДУТ УДАЛЕНЫ: t2, u5, u6, u7, p, p2, elfs, crystals, heroes
local timer t2 = GetExpiredTimer()
local unit u5 = LoadUnitHandle(udg_Hash,GetHandleId(t2),2)
local unit u6
local unit u7
local location p
local location p2
local group elfs = GetUnitsInRectAll(GetPlayableMapRect())
local group crystals = GetUnitsInRectAll(GetPlayableMapRect())
local group heroes = GetUnitsInRectAll(GetPlayableMapRect())
local integer i = LoadInteger(udg_Hash, GetHandleId(t2),3)
local integer count = 0
local integer count2 = 0
local real elf_creaturetype = 0
local real crystal_might = 0
ВНИМАНИЕ!!! ОБНУЛЯЕМЫЕ ПЕРЕМЕННЫЕ ЗДЕСЬ СПИСКОМ - НОВЫЙ ШАБЛОН СОВЕРШЕНСТВА, ВСЕ ТЕСТКАРТЫ БЕЗ ОНОГО БУДУТ УДАЛЕНЫ - ЗАКРЫТО
set i = i+1
call SaveInteger(udg_Hash,GetHandleId(t2),3,i)
if IsDead(u5) == true or u5 == null then
call PauseTimer(t2)
call DestroyTimer(t2)
call FlushChildHashtable(udg_Hash, GetHandleId(t2))
else
ГЕРОИ БЕРУТ КРИСТАЛЛЫ...
loop
set u6=FirstOfGroup(heroes)
exitwhen u6==null
call GroupRemoveUnit(heroes,u6)
if ( IsUnitType((u6), UNIT_TYPE_HERO) == true ) and IsDead (u6) == false then
set p = GetUnitLoc(u6)
set count2 = CountUnitsInGroup(crystals)
set count = 0
ТУТ ПОД ПЕРВЫМ УСЛОВИЕМ УЖЕ ЦИКЛ ДЛЯ КРИСТАЛЛОВ, СВЕРХУ НАМ НУЖНО ТОЛЬКО U6 И P...
loop
set u7=FirstOfGroup(crystals)
exitwhen u7==null
call GroupRemoveUnit(crystals,u7)
if ( GetUnitTypeId(u7) == 'n416' ) and IsDead(u7) == false then
set p2 = GetUnitLoc(u7)
if DistanceBetweenPoints (p, p2) < 120 then
set crystal_might = LoadReal(udg_Hash,GetHandleId(u7),StringHash("crystal_might"))
loop
exitwhen crystal_might == 0
set crystal_might = crystal_might - 1
ЭФФЕКТ И ДОБАВКА МАКС. МАНЫ ТРИЖДЫ - ЗАКРЫТО.
call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Polymorph\\PolyMorphTarget.mdl.&#8203;mdx", u6, "chest"))
call UnitAddAbilityBJ('A25P', u6)
call SetUnitAbilityLevelSwapped('A25P', u6, 2)
call UnitRemoveAbilityBJ('A25P', u6)
call UnitAddAbilityBJ('A25P', u6)
call SetUnitAbilityLevelSwapped('A25P', u6, 2)
call UnitRemoveAbilityBJ('A25P', u6)
call UnitAddAbilityBJ('A25P', u6)
call SetUnitAbilityLevelSwapped('A25P', u6, 2)
call UnitRemoveAbilityBJ('A25P', u6)
ЭФФЕКТ И ДОБАВКА МАКС. МАНЫ ТРИЖДЫ - ЗАКРЫТО.
endloop
call RemoveUnit(u7)
call RemoveLocation(p2)
endif
else
endif
endloop
ТУТ ПJД ПЕРВЫМ УСЛОВИЕМ УЖЕ ЦИКЛ ДЛЯ КРИСТАЛЛОВ - ЗАКРЫТО.
ГРУППА КРИСТАЛЛОВ ПОЛНОСТЬЮ ОЧИЩЕНА, НУЖНО ДОБАВИТЬ В НЕЕ ВСЕХ
call GroupAddGroup( elfs, crystals )
ГРУППА КРИСТАЛЛОВ ПОЛНОСТЬЮ ОЧИЩЕНА, НУЖНО ДОБАВИТЬ В НЕЕ ВСЕХ
call RemoveLocation(p)
else
endif
endloop
ГЕРОИ БЕРУТ КРИСТАЛЛЫ - ЗАКРЫТО.
ЖРЕЦ СПАВНИТ КРИСТАЛЛ МОЩЬЮ ПО КОЛ-ВУ ЭЛЬФОВ - ПРОВЕРКА ПО ХЭШУ С ЗАПИСЬЮ В ПЕРЕМЕННУЮ! - СО ВРЕМЕНЕМ ЖИЗНИ 4 СЕК КАЖДЫЙ (РАЗ В 5 СЕКУНД)
if i >=5 then
set i = 0
call SaveInteger(udg_Hash,GetHandleId(t2),3,i)
loop 
set u6=FirstOfGroup(elfs)
exitwhen u6==null
set elf_creaturetype = LoadReal(udg_Hash,GetHandleId(u6),StringHash("elf_creaturetype"))
call GroupRemoveUnit(elfs,u6)
if elf_creaturetype == 1 and IsDead (u6) == false then
set count = count + 1
else
endif
endloop
call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Polymorph\\PolyMorphTarget.mdl.&#8203;mdx",u5,"chest"))
set u6=CreateUnit(Player(PLAYER_NEUTRAL_AGGRESSIVE), 'n416', GetUnitX(u5), GetUnitY(u5), bj_RADTODEG * Atan2(GetUnitY(u5) - GetUnitY(u5), GetUnitX(u5) - GetUnitX(u5)))
call UnitApplyTimedLifeBJ( 4.00, 'BTLF', u6 )
set crystal_might = 0
loop
exitwhen count==0
set crystal_might = crystal_might + 1
set count = count-1
endloop
call SaveReal(udg_Hash,GetHandleId(u6),StringHash("crystal_might"),crystal_might)
endif
ЖРЕЦ СПАВНИТ КРИСТАЛЛ МОЩЬЮ ПО КОЛ-ВУ ЭЛЬФОВ СО ВРЕМЕНЕМ ЖИЗНИ 4 СЕК КАЖДЫЙ - ЗАКРЫТО.
endif
call DestroyGroup (elfs)
call DestroyGroup (crystals)
call DestroyGroup (heroes)
ВНИМАНИЕ!!! ОБНУЛЯЕМЫЕ ПЕРЕМЕННЫЕ ЗДЕСЬ СПИСКОМ - НОВЫЙ ШАБЛОН СОВЕРШЕНСТВА, ВСЕ ТЕСТКАРТЫ БЕЗ ОНОГО БУДУТ УДАЛЕНЫ: t2, u5, u6, u7, p, p2, elfs, crystals, heroes
set t2 = null
set u5 = null
set u6 = null
set u7 = null
set p = null
set p2 = null
set elfs = null
set crystals = null
set heroes = null
ВНИМАНИЕ!!! ОБНУЛЯЕМЫЕ ПЕРЕМЕННЫЕ ЗДЕСЬ СПИСКОМ - НОВЫЙ ШАБЛОН СОВЕРШЕНСТВА, ВСЕ ТЕСТКАРТЫ БЕЗ ОНОГО БУДУТ УДАЛЕНЫ - ЗАКРЫТО
endfunction
function PriestOfTitania2 takes nothing returns nothing
ВНИМАНИЕ!!! ОБНУЛЯЕМЫЕ ПЕРЕМЕННЫЕ ЗДЕСЬ СПИСКОМ - НОВЫЙ ШАБЛОН СОВЕРШЕНСТВА, ВСЕ ТЕСТКАРТЫ БЕЗ ОНОГО БУДУТ УДАЛЕНЫ: t, u5
local timer t = GetExpiredTimer()
local unit u5 = LoadUnitHandle(udg_Hash,GetHandleId(t),2)
ВНИМАНИЕ!!! ОБНУЛЯЕМЫЕ ПЕРЕМЕННЫЕ ЗДЕСЬ СПИСКОМ - НОВЫЙ ШАБЛОН СОВЕРШЕНСТВА, ВСЕ ТЕСТКАРТЫ БЕЗ ОНОГО БУДУТ УДАЛЕНЫ - ЗАКРЫТО
ТУТ СТОП, Т. К. ЭТО ПОСЛЕ АВТОКАСТА НА ОСНОВЕ ХИЛКИ СТАТУИ, НО И ТАЙМЕР ЧУТЬ ПОДОЛЬШЕ
call IssueImmediateOrderBJ( u5, "stop" )
ТУТ СТОП, Т. К. ЭТО ПОСЛЕ АВТОКАСТА НА ОСНОВЕ ХИЛКИ СТАТУИ - ЗАКРЫТО.
call SaveReal(udg_Hash,GetHandleId(u5),StringHash("priestoftitania"),0)
call PauseTimer(t)
call DestroyTimer(t)
call FlushChildHashtable(udg_Hash,GetHandleId(t))
ВНИМАНИЕ!!! ОБНУЛЯЕМЫЕ ПЕРЕМЕННЫЕ ЗДЕСЬ СПИСКОМ - НОВЫЙ ШАБЛОН СОВЕРШЕНСТВА, ВСЕ ТЕСТКАРТЫ БЕЗ ОНОГО БУДУТ УДАЛЕНЫ: t, u5
set t = null
set u5 = null
ВНИМАНИЕ!!! ОБНУЛЯЕМЫЕ ПЕРЕМЕННЫЕ ЗДЕСЬ СПИСКОМ - НОВЫЙ ШАБЛОН СОВЕРШЕНСТВА, ВСЕ ТЕСТКАРТЫ БЕЗ ОНОГО БУДУТ УДАЛЕНЫ - ЗАКРЫТО
endfunction
function PriestOfTitania takes nothing returns nothing
ВНИМАНИЕ!!! ОБНУЛЯЕМЫЕ ПЕРЕМЕННЫЕ ЗДЕСЬ СПИСКОМ - НОВЫЙ ШАБЛОН СОВЕРШЕНСТВА, ВСЕ ТЕСТКАРТЫ БЕЗ ОНОГО БУДУТ УДАЛЕНЫ: t, t2, u5, u6
local timer t = CreateTimer()
local timer t2 = CreateTimer()
local unit u5=GetTriggerUnit()
local unit u6
ВНИМАНИЕ!!! ОБНУЛЯЕМЫЕ ПЕРЕМЕННЫЕ ЗДЕСЬ СПИСКОМ - НОВЫЙ ШАБЛОН СОВЕРШЕНСТВА, ВСЕ ТЕСТКАРТЫ БЕЗ ОНОГО БУДУТ УДАЛЕНЫ - ЗАКРЫТО
local integer i = 0
local real priestoftitania = 0
set priestoftitania = LoadReal(udg_Hash,GetHandleId(u5),StringHash("priestoftitania"))
if ( GetSpellAbilityId() == 'A33A' ) and priestoftitania == 0 then
call SaveReal(udg_Hash,GetHandleId(u5),StringHash("priestoftitania"),1)
call PlaySoundOnUnitBJ( gg_snd_MaroSorcererPriestOfTitania, 100, u5 )
set u6=CreateUnit(GetOwningPlayer(u5), 'n413', GetUnitX(u5), GetUnitY(u5), bj_RADTODEG * Atan2(GetUnitY(u5) - GetUnitY(u5), GetUnitX(u5) - GetUnitX(u5)))
call UnitApplyTimedLifeBJ( 120.00, 'BTLF', u6 )
ХЭШ ЭЛЬФА
call SaveReal(udg_Hash,GetHandleId(u6),StringHash("elf_creaturetype"),1)
ХЭШ ЭЛЬФА - ЗАКРЫТО.
call DestroyEffect(AddSpecialEffectTarget("MaroSorcerer2.mdx",u6,"origin"))
call DestroyEffect(AddSpecialEffectTarget("MaroSorcerer2.mdx",u6,"chest"))
ХП РЕГ ВНОВЬ СОЗДАННОМУ ПО ЛВЛУ СКАСТОВАННОЙ АБИЛЫ
call AddUnitHPRegen (u6,10.00*GetUnitAbilityLevelSwapped(GetSpellAbilityId(), GetTriggerUnit()))
ХП РЕГ ВНОВЬ СОЗДАННОМУ ПО ЛВЛУ СКАСТОВАННОЙ АБИЛЫ - ЗАКРЫТО.
call SaveUnitHandle(udg_Hash, GetHandleId(t),2,u5)
call TimerStart(t,0.19,false,function PriestOfTitania2)
call SaveUnitHandle(udg_Hash, GetHandleId(t2),2,u6)
call SaveInteger(udg_Hash, GetHandleId(t2),3,i)
call TimerStart(t2,1,true,function PriestOfTitaniaCrystals)
else
call PauseTimer(t)
call DestroyTimer(t)
call FlushChildHashtable(udg_Hash, GetHandleId(t))
call PauseTimer(t2)
call DestroyTimer(t2)
call FlushChildHashtable(udg_Hash, GetHandleId(t2))
endif
ВНИМАНИЕ!!! ОБНУЛЯЕМЫЕ ПЕРЕМЕННЫЕ ЗДЕСЬ СПИСКОМ - НОВЫЙ ШАБЛОН СОВЕРШЕНСТВА, ВСЕ ТЕСТКАРТЫ БЕЗ ОНОГО БУДУТ УДАЛЕНЫ: t, t2, u5, u6
set t = null
set t2 = null
set u5 = null
set u6 = null
ВНИМАНИЕ!!! ОБНУЛЯЕМЫЕ ПЕРЕМЕННЫЕ ЗДЕСЬ СПИСКОМ - НОВЫЙ ШАБЛОН СОВЕРШЕНСТВА, ВСЕ ТЕСТКАРТЫ БЕЗ ОНОГО БУДУТ УДАЛЕНЫ - ЗАКРЫТО
endfunction

Все.
Проблема была НЕ в коде.
Код абилы вообще выключен, но после игры с ней фаталит. Просто за активацию дефолтной абилы.
Проблема в РО. ФАТАЛ ПОСЛЕ ИГРЫ ВЫЗЫВАЕТ НАСТРОЙКА АБИЛЫ В РО.
Для меня это звучит как "девочка с бородой" - в принципе возможно, но довольно удивительно, поэтому сразу в голову и не пришло.
Че-то нашаманено, ща перераспакую архив с "чистыми" картами и буду разбираться, что. Но т. к. эта абила пастилась на основе другой, сделанной на основе replenishlife, а там фатала не наблюдалось - разберусь.
///////////////////
Ну или другой вариант еще остался - РО в принципе настолько раздут до опупения, что любая дефолтная абила, созданная после момента X, начинает фаталить, если часто юзать ее в игре.
Но это крайне сомнительно, ибо:
  1. Довольно бредово;
  2. Первая из двух фаталящих абил на основе replenishlife была создана ДО трех последующих за ней абил у своего героя.
6 июн 2018
5 502
`
ОЖИДАНИЕ РЕКЛАМЫ...

Показан только небольшой набор комментариев вокруг указанного. Перейти к актуальным.
0
Показать
21
0
Показать
А, вот, кстати! Там путь к модельке дефолтной эффекта полиморфа нерабочий с ошибкой.
Видно было, да, что она не отображается, но было предположение, что у модели кристалла просто аттачей нужных нет, проверять уже тогда сил и желания не было...
Вполне возможно, что из-за этого! У меня уже была ситуация, когда то ли при попытке создать несуществующую модель, то ли прикрепить ее к несуществующему аттачу вар так и вообще сразу фаталил! Мб проверю...
Еще кто-нибудь видит что-нибудь?
////
Если вдруг кому не понятно: добавляемая и убираемая - это предметная абилка, чтобы максимальная мана повышалась
0
Показать
28
0
Показать
Не используй локации.
0
Показать
33
0
Показать
я тут знатоком себя не зарекомендовал, но попробуй всё это реворкни: таймеры - на периодический триггер, хештаблицы - на стрктуры, группа 1 глобальная для перебора, мне частенько помогает вот так вот реворкать скилы, большинство проблем уходит и появляются новые (шутка). Да и вместо локаций напрямую с координатами
2
Показать
28
2
Показать
Ну, во-первых, делай отступы, код читаться будет проще.
Во-вторых, разделяй функции одной пустой строкой.
В-третьих, никогда не используй локации, если тебе не нужна координата Z.
Bergi_Bear:
таймеры - на периодический триггер
Нет, таймеры лучше периодических триггеров, так как первые можно удалить при ненадобности, а со вторым так не сделаешь.
Я читал где-то на сайте, что периодические триггеры - зло.
0
Показать
33
0
Показать
PT153, Я читал где-то на сайте, что периодические триггеры - зло.
ну да может быть, а если триггер такой всего 1 и он крутит с десяток функций, которые не нужно будет уничтожать или очищать, может в этом случае и да таймеры лучше, коли дело разовое
0
Показать
28
0
Показать
IsDead(u5) == true можно просто писать IsDead(u5).
Ровно как и not IsDead(u7) вместо IsDead(u7) == false.
Сделай скриншот ошибки и кинь сюда, избавься от локаций и сломанных моделек, после этого протестируй на фатал. Если он снова будет, вновь сделай скрин ошибки.
Bergi_Bear:
ну да может быть, а если триггер такой всего 1 и он крутит с десяток функций, которые не нужно будет уничтожать или очищать, может в этом случае и да таймеры лучше, коли дело разовое
Крутить десяток функций можно и таймером)
0
Показать
21
0
Показать
PT153,
  1. у себя и так делаю, это форматирование побилось тут
  2. см. выше
  3. мне тяжелее пока использовать координаты, многого не понимаю в их вычислении, даже не понимаю, как, например, юнит в направлении X и Y другого юнита подвинуть
Скриншот ошибки вроде "классический", да и драколич по ссылке перед кодом уже объяснил насчет ее причины
По таймеру: тут на самом деле в идеале надо как-то юзать один, чтобы он обсчитывал всех пристов, а не один для каждого приста. Но глобальные периодические таймеры - в любом случае бОльшее зло.
Спасибо за комментарии, ну скорее всего я пока просто заблокирую это заклинание и сделаю другое
Мне все равно в пристах многое не нравится, портрета у них нет (и из-за особенностей модельки чет тяжело поставить), сам по себе спелл не так удобно использовать, как в Battlegrounds
Понятно, что все это поодиночке можно исправить, но я пока лучше заменю спелл на спелл попроще, герой и вообще без Q збс играется, проверено
Пока "условно-закрыто".
0
Показать
28
0
Показать
ClotPh:
Но глобальные периодические таймеры - в любом случае бОльшее зло.
Почему?
0
Показать
21
0
Показать
PT153, потому что если их много, снижается производительность, очевидно же.
Показан только небольшой набор комментариев вокруг указанного. Перейти к актуальным.
Чтобы оставить комментарий, пожалуйста, войдите на сайт.