//! nocjass
native UnitAlive takes unit u returns boolean

//! zinc
library SpellFire {
    integer ABILITY_ID = 'A000';
    real EXPLODE_RANGE = 400;
    string EXPLODE_CENTER = "Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl";
    string EXPLODE_CIRCLE = "Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl";
    integer EXPLODE_CIRCLE_COUNT = 12;
    integer DAMAGE = 100;
    
    // ---
    group g = CreateGroup();
    
    function onInit() {
        integer i;
        trigger t = CreateTrigger();
        TriggerAddCondition(t, Filter(function() -> boolean {
            return GetSpellAbilityId() == ABILITY_ID;
        }));
        for (0 <= i < bj_MAX_PLAYER_SLOTS){
            TriggerRegisterPlayerUnitEvent(t, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, null);
        }
        TriggerAddAction(t, function(){
            unit target, caster = GetSpellAbilityUnit(); // кастер
            real a = bj_PI * 2 / EXPLODE_CIRCLE_COUNT , x = GetSpellTargetX(), y = GetSpellTargetY(); // координаты области каста
            integer i;
            real damage = GetUnitAbilityLevel(caster, ABILITY_ID) * DAMAGE;
            
            DestroyEffect(AddSpecialEffect(EXPLODE_CENTER, x, y));
            for (0 < i <= EXPLODE_CIRCLE_COUNT){
                DestroyEffect(AddSpecialEffect(EXPLODE_CIRCLE, x + EXPLODE_RANGE * Cos(a*i), y + EXPLODE_RANGE * Sin(a*i)));  
            }
            GroupEnumUnitsInRange(g, x, y , EXPLODE_RANGE, null);
            while (true){
                target = FirstOfGroup(g);
                if (target == null) { break; }
                if (IsUnitEnemy(target, GetOwningPlayer(caster)) && UnitAlive(target)){
                    UnitDamageTarget(caster, target, damage, true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_FIRE, WEAPON_TYPE_WHOKNOWS); // наносим урон
                }
                GroupRemoveUnit(g, target);
            }
            caster = null;
            target = null;
        });
    }
}
//! endzinc
//! endnocjass

https://www.xgm.guru/files/100/234790/comments/432377/Friey_Flam...

Обратная совместимость это плохо и только тормозит развитие продукта, как вот вы этого не можете понять.

я знаю функции, только которые конвертируются из ГУИ.

Может и не работать, лично не проверял, но кажись 0 уровень = 1, попробуй

кто-нибудь вообще эти функции проверял?

function GetInventoryIndexOfItemTypeBJ takes unit whichUnit, integer itemId returns integer
    local integer index
    local item    indexItem

    set index = 0
    loop
        set indexItem = UnitItemInSlot(whichUnit, index)
        if (indexItem != null) and (GetItemTypeId(indexItem) == itemId) then
            return index + 1
        endif

        set index = index + 1
        exitwhen index >= bj_MAX_INVENTORY
    endloop
    return 0
endfunction

function GetItemOfTypeFromUnitBJ takes unit whichUnit, integer itemId returns item
    local integer index = GetInventoryIndexOfItemTypeBJ(whichUnit, itemId)

    if (index == 0) then
        return null
    else
        return UnitItemInSlot(whichUnit, index - 1)
    endif
endfunction

хм.. значит, чтобы узнать id приказа надо использовать способности напрямую

call IssueImmediateOrderBJ( null, "instant" )

constant integer instant=852200

Ид приказа = "852008"

public constant integer useslot1=852008
public constant integer useslot2=852009
public constant integer useslot3=852010
public constant integer useslot4=852011
public constant integer useslot5=852012
public constant integer useslot6=852013

public constant integer raisedead=852197
public constant integer raisedeadoff=852199
public constant integer raisedeadon=852198

единственная проблема в том что в инкогнито не могу зайти на сайт

А так, я конечно, подожду, когда администрация исправит ошибку доступа на сайт с win xp

Нужно дополнить условие проверкой, жива ли требуемая постройка.

отлавливаю начало прицеливания через дамми абилку

если честно, ничего в этой записи не понимаю

да я бы и сам рад откатить её на 1.26

А что плохого в переборах и массивах?

Это зависит от карты, которую требуется сделать.

Т.е. решение ты не засчитываешь, верно?

Только потому, что ты ярый противник гуи, так?

Но теперь то в чем конкретный косяк?

И что плохого в периодическом событии? Это по сути всего еще один таймер.

Это ты мне намекаешь уже на новое задание по гуи насчет снарядов?)

поэтому ты сможешь указать на слабые места.

В данном случае, lua лучше, чем гуи.

Но мне реально никогда такого не было нужно) Гуи вполне хватало.

будут ли пауки создаваться?

Неужели, там действительно таймеры создаются динамически?

Жаль, что не могу посмотреть карту вашу, т.к. не хочу ставить 31 патч.

//! nocjass
//! zinc
library HeroRevive {
    hashtable HT = InitHashtable();

    function onInit(){
        integer i;
        trigger ReviveTrigger = CreateTrigger();
        
        for (0 <= i < bj_MAX_PLAYER_SLOTS){
            TriggerRegisterPlayerUnitEvent(ReviveTrigger, Player(i), EVENT_PLAYER_HERO_REVIVABLE, null);
        }
        TriggerAddAction(ReviveTrigger, function(){
            unit u = GetTriggerUnit();
            timer t = CreateTimer();
            integer tId = GetHandleId(t);
            timerdialog td = CreateTimerDialog(t);

            SaveUnitHandle(HT, tId, 0, u);
            SaveTimerDialogHandle(HT, tId, 1, td);
            TimerDialogSetTitle(td, GetUnitName(u));
            
            TimerStart(t, GetHeroLevel(u) * 2, false, function(){
                timer t = GetExpiredTimer();
                integer tId = GetHandleId(t);
                unit u = LoadUnitHandle(HT, tId, 0);
                timerdialog td = LoadTimerDialogHandle(HT, tId, 1);
                integer loc = GetPlayerStartLocation(GetOwningPlayer(u));
                FlushChildHashtable(HT, tId);
                ReviveHero(u, GetStartLocationX(loc), GetStartLocationY(loc), true); u = null;
				DestroyTimerDialog(td); td = null;
				DestroyTimer(t); t = null;
			});
			TimerDialogDisplay(td, true);
            t = null;
            u = null;
            td = null;
		});
        ReviveTrigger = null;
    }
}
//! endzinc
//! endnocjass

Только почему не работает для таймеров превышение Раз. непонятно.

function InitGlobals takes nothing returns nothing
    local integer i= 0

    set i=0
    loop
        exitwhen ( i > 3 )
        set udg_TIMER[i]=CreateTimer()
        set i=i + 1
    endloop

endfunction

1.26.0.6401

Когда у переменной timer размер массива 1