if UnitHasItemOfType(caster,'Item') then
    // Нужные действия.
endif

globals
    real Mana = 0.
    unit BadUnit = null
    real Range = 700.
    group CastGroup = CreateGroup()
endglobals

function Conditions takes nothing returns boolean
    local real mana = GetUnitState(GetFilterUnit(), UNIT_STATE_MANA)
    if inRange and mana > Mana then // Чтобы отсеять с наибольшей маной.
    // Чтобы отсеять с наименьшей, нужно написать mana < Mana и начальное значение Mana должно быть 999999.
    // Это значение также должно восстанавливаться после каста.
    // Аналогично и с расстоянием до феи.
        set Mana = mana
        set BadUnit = GetFilterUnit()
    endif
    return true
endfunction

function Trig_Cast_Actions takes nothing returns nothing
    local unit caster = GetSpellAbilityUnit()
    local real x = GetUnitX(caster)
    local real y = GetUnitY(caster)
    call GroupEnumUnitsInRange(CastGroup, x, y, Range, function Conditions)
    call GroupRemoveUnit(CastGroup, BadUnit)
    // Другие действия.
    call GroupClear(CastGroup)
    set caster = null
endfunction

// Функция для расстояния:
function GetDistancePoints takes real x1, real y1, real x2, real y2 returns real
    return SquareRoot((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2))
endfunction

function GetDistanceUnitPoint takes unit u, real x, real y returns real
    local real dx = GetUnitX(u) - x
    local real dy = GetUnitY(u) - y
    return SquareRoot(dx * dx + dy * dy)
endfunction

function GetDistanceUnits takes unit u1, unit u2 returns real
    local real dx = GetUnitX(u1) - GetUnitX(u2)
    local real dy = GetUnitY(u1) - GetUnitY(u2)
    return SquareRoot(dx * dx + dy * dy)
endfunction

function SubStringBJ takes string source, integer start, integer end returns string
    return SubString(source, start-1, end)
endfunction

Естественно, я сначала прочел все что смог и только потом задал вопрос, так как мне ничего не подошло)

bpl файлами

не надо никого ремувить

мне вот интересно, почему аж два дизлайка поймал в том посте о тупости BJ функций? Я же сказал как есть и это чистая правда.

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

ты сейчас это просто из воздуха придумал чтобы "защитить GUI"?

scope SPELLSHAR initializer init{
    globals
        private group temp_group = CreateGroup()	
    endglobals
    
    OneTimerStruct(SPELL){
        unit a,b	
        real dist,ang	
        group g
        
        boolean Update(){
            real x = GetUnitX(b)	
            real y = GetUnitY(b)
            unit c	
            if (dist > 0){
                GroupEnumUnitsInRange(temp_group,x,y,200,null)	
                loop{
                    c = FirstOfGroup(temp_group)	
                    exitwhen (c == null)	
                    if GetWidgetLife(c) > 0.405 && IsUnitEnemy(c,GetOwningPlayer(a)) && !IsUnitInGroup(c,g){
                        UnitDamageTarget(a,c,50*GetUnitAbilityLevel(a,'A000'),false,false,null,null,null)	
                        if (GetWidgetLife(c) > 0.405){
                            GroupAddUnit(g,c)	
                        }
                    }
                    GroupRemoveUnit(temp_group,c)	
                }
                SetUnitX(b,x+50*Cos(ang)	
                SetUnitY(b,y+50*Sin(ang)
                dist -= 50	
                GroupClear(g)	
                RemoveUnit(b)	
                return false 
            }
            return true	
        }

        static void Add(){
            real x,y
            thistype this = thistype.create()	
            this.a = GetSpellAbilityUnit()	
            this.dist = 1000	
            if (this.g == null){ 
                this.g = CreateGroup() 
            }
            x = GetUnitX(this.a)	
            y = GetUnitY(this.a)
            this.ang = 57.296*Atan2(GetSpellTargetY()-y,GetSpellTargetX()-x)	
            this.b = CreateUnit(GetOwningPlayer(this.a),'h000',x,y,this.ang)	
            this.ang *= 0.0174	
            OneTimerAdd(this)	
        }
    }
    
    private nothing act(){
        if (GetSpellAbilityId() == 'A000'){
            SPELL.Add()	
        }
    }

    private nothing init(){
        trigger t = CreateTrigger()
        integer i = 0
        while(i < 12){
            TriggerRegisterPlayerUnitEvent(t,Player(i),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
            i++
        }
        TriggerAddAction(t,function act)
    }
}

Сделал объект башня, модель - магическая башня....