function SpellCheck takes nothing returns boolean
    if ( not ( GetUnitAbilityLevelSwapped('A016', GetAttacker()) > 0 ) ) then
        return false
    endif
    return true
endfunction

function BoolCheck takes nothing returns boolean
local unit u = GetFilterUnit()
    if ( not ( IsUnitAliveBJ(u) == true ) ) then
        u = null
        return false
    endif
    if ( not ( GetOwningPlayer(u) == Player(10) ) ) then
        u = null
        return false
    endif
    if ( not ( IsUnitType(GetEnumUnit(), UNIT_TYPE_GROUND) == true ) ) then
        u = null
        return false
    endif
    u = null
    return true
endfunction

function DamageTarget takes unit at unit tg returns nothing
    if ( BoolCheck() ) then
        call UnitDamageTargetBJ( at, tg , 25.00, ATTACK_TYPE_SIEGE, DAMAGE_TYPE_NORMAL )
    endif
endfunction

function TNTActions takes nothing returns nothing
local unit attacker = GetAttacker()
local unit target = GetAttackedUnitBJ()
local unit tnt = CreateNUnitsAtLoc( 1, 'e002', GetOwningPlayer(attacker), GetUnitLoc(target), bj_UNIT_FACING )
    call SetUnitTimeScalePercent( tnt, 0.00 )
    call TriggerSleepAction( 2 )
    call ForGroupBJ( GetUnitsInRangeOfLocAll(200.00, GetUnitLoc(tnt)), function DamageTarget(attacker,target) )
    call KillUnit( tnt )
endfunction

//===========================================================================
function InitTrig_TNT takes nothing returns nothing
    set gg_trg_TNT = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_TNT, EVENT_PLAYER_UNIT_ATTACKED )
    call TriggerAddCondition( gg_trg_TNT, Condition( function SpellCheck ) )
    call TriggerAddAction( gg_trg_TNT, function TNTActions )
endfunction