scope ModificSTRUCTURE initializer Init //by LordSerga

globals
private integer i
private group g
private trigger trig
endglobals

private function UnitColor takes unit whichUnit, integer int returns nothing
    set int=int/100
    call SetUnitVertexColor(whichUnit, int , int, int, 1)
endfunction

private function GF takes nothing returns boolean
    return IsUnitType(GetFilterUnit(), UNIT_TYPE_STRUCTURE) == true
endfunction

private function GA takes nothing returns nothing
    local unit u=GetEnumUnit()
    call UnitColor(u,i)
    set u=null
endfunction

private function AllUnitSTRUCTURE takes nothing returns group
    local group gr = CreateGroup()
    local boolexpr filter = Condition(function GF)
    call GroupEnumUnitsInRect(gr, bj_mapInitialPlayableArea , filter)
    call DestroyBoolExpr(filter)
    return gr
endfunction

private function Action takes nothing returns nothing

        if i==100 then
            set i=0
        else
            set i=i+1
        endif
        
    set g=AllUnitSTRUCTURE()
    call ForGroup(g,function GA)
    call DestroyGroup(g)
    set g=null
endfunction

private function Init takes nothing returns nothing
    set trig=CreateTrigger()
    call TriggerRegisterTimerEvent(trig,.17,true)
    call TriggerAddAction(trig,function Action)
endfunction

endscope