Gif на фреймах

//TESH.scrollpos=0
//TESH.alwaysfold=0
globals
    
    integer GifBackdrop
    string array GifFrame
    integer Current = 0
    integer LastFrame 
endglobals

function InitGifFrames takes nothing returns nothing
    
    local integer i = 0
    set LastFrame = 109
    loop
    exitwhen i == LastFrame + 1
    
    set GifFrame[i] = "war3mapImported\\SZN1-"+I2S(i)+".blp"
    
    set i = i + 1
    endloop

endfunction

function Trig_Init_Actions takes nothing returns nothing
    
    local integer i = 0
    
    call LoadTOCFile("uitoc.toc")
    call InitGifFrames()
    
    set GifBackdrop = CreateFrame("SliderBackdrop", pGameUI, 0)
    call SetFrameSize(GifBackdrop, .28, .2)
    call SetFrameAbsolutePoint(GifBackdrop, 4, .4, .3)
    call SetFrameTexture(GifBackdrop, GifFrame[Current], false)

endfunction

//===========================================================================
function InitTrig_Init takes nothing returns nothing
    set gg_trg_Init = CreateTrigger(  )
    call TriggerRegisterTimerEventSingle( gg_trg_Init, 0.05 )
    call TriggerAddAction( gg_trg_Init, function Trig_Init_Actions )
endfunction

function Trig_GifUpdate_Actions takes nothing returns nothing

    set Current = Current + 1
    if Current > LastFrame then
        set Current = 0
    endif
    call SetFrameTexture(GifBackdrop, GifFrame[Current], false)

endfunction

//===========================================================================
function InitTrig_GifUpdate takes nothing returns nothing
    set gg_trg_GifUpdate = CreateTrigger(  )
    call TriggerRegisterTimerEventPeriodic( gg_trg_GifUpdate, 0.03 )
    call TriggerAddAction( gg_trg_GifUpdate, function Trig_GifUpdate_Actions )
endfunction