function colorG takes nothing returns nothing
call SetUnitVertexColor(GetEnumUnit(),110,200,110,255)
call DestroyEffect(I2E(GetStoredInteger(udg_cache,I2S(H2I(GetEnumUnit())),"FX")))
call FlushStoredMission(udg_cache,I2S(H2I(GetEnumUnit())))
endfunction

function colorY takes nothing returns nothing
call SetUnitVertexColor(GetEnumUnit(),180,200,0,255)
endfunction

function colorR_dmg takes nothing returns nothing
local effect e=AddSpecialEffect("Abilities\\Spells\\Other\\BreathOfFire\\BreathOfFireDamage.mdl",GetUnitX(GetEnumUnit()),GetUnitY(GetEnumUnit()))
call SetUnitVertexColor(GetEnumUnit(),255,90,100,255)
call StoreInteger(udg_cache,I2S(H2I(e)),"FX",H2I(e))
call UnitDamagePoint(GetEnumUnit(),0,55,GetUnitX(GetEnumUnit()),GetUnitY(GetEnumUnit(    )),50,true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS)
set e=null
endfunction

function ntsystact takes nothing returns nothing
local group g=CreateGroup()
local unit u
local integer i=3
set g=GetRandomSubGroup(100,udg_ntgroup)
call ForGroup(g,function colorY)
call PolledWait(1.2)
loop 
exitwhen i==0
call ForGroup(g,function colorR_dmg)
call PolledWait(1)
set i=i-1
endloop
call ForGroup(g,function colorG)
call StartTimerBJ(udg_nttimer,false,3)
call DestroyGroup(g)
set g=null
set u=null
endfunction
//===========================================================================
function InitTrig_NtSystem2 takes nothing returns nothing
    set gg_trg_NtSystem2 = CreateTrigger(  )
    call TriggerRegisterTimerExpireEvent(gg_trg_NtSystem2,udg_nttimer)
    call TriggerAddAction( gg_trg_NtSystem2, function ntsystact )
endfunction