//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

globals
    integer SpawnUnitBackdrop
    integer array SpawnUnit[7]
    string array ButtonName[7]
    integer array UnitButtonId[7]
    
    unit array SyncUnit[1][7]
endglobals

function Trig_Init_Actions takes nothing returns nothing
    
    local integer i = 0
    
    call LoadTOCFile("uitoc.toc")
    
    set ButtonName[0] = "Футмен"
    set ButtonName[1] = "Рифл"
    set ButtonName[2] = "Вертолет"
    set ButtonName[3] = "Грифон"
    set ButtonName[4] = "Паладин"
    set ButtonName[5] = "Гном"
    set ButtonName[6] = "Праудмур"
    set ButtonName[7] = "Гаритос"
    
    set UnitButtonId[0] = 'hfoo'
    set UnitButtonId[1] = 'hrif'
    set UnitButtonId[2] = 'hgyr'
    set UnitButtonId[3] = 'hgry'
    set UnitButtonId[4] = 'Hpal'
    set UnitButtonId[5] = 'Hmkg'
    set UnitButtonId[6] = 'Hapm'
    set UnitButtonId[7] = 'Hlgr'
    
    // Бэкдропчик
    set SpawnUnitBackdrop = CreateFrame("ChatHistoryBackdrop", pGameUI, 1)
    call SetFrameAbsolutePoint(SpawnUnitBackdrop, 4, .1, .37)
    call SetFrameSize(SpawnUnitBackdrop, .2, .42)
        
    // Кнопочки
    loop
    exitwhen i == 8
    
        set SpawnUnit[i] = CreateFrame("ButtonChat", SpawnUnitBackdrop, 2 + i)
        // call DisplayTimedTextToPlayer(GetLocalPlayer(), 1, 0, 0, I2S(SpawnUnit[i]))
        call SetFrameAbsolutePoint(SpawnUnit[i], 4, .1, .2 + I2R(i) / 20)
        call SetFrameSize(SpawnUnit[i], 0.15, 0.05)
        call SetFrameText(SpawnUnit[i], ButtonName[i])
    
    set i = i + 1
    endloop
    
    // Юниты для синха
    set i = 0
    loop
    exitwhen i == 8
    
        set SyncUnit[0][i] = CreateUnit(Player(0), 'hfoo', -3000, 2900, 0)
        set SyncUnit[1][i] = CreateUnit(Player(1), 'hfoo', -3000, 2900, 0)
    
    set i = i + 1
    endloop
endfunction

//===========================================================================
function InitTrig_Init takes nothing returns nothing

    set gg_trg_Init = CreateTrigger(  )
    
    call TriggerRegisterTimerEventSingle( gg_trg_Init, .01 )
    call TriggerAddAction( gg_trg_Init, function Trig_Init_Actions )
endfunction

function Trig_Sync_Actions takes nothing returns nothing

    local integer i = 0
    local unit u
    
    loop
    exitwhen i == 8
    
        if GetTriggerUnit() == SyncUnit[GetPlayerId(GetTriggerPlayer())][i] then
            set u = CreateUnit(GetTriggerPlayer(), UnitButtonId[i], 0, 0, 0)
            
            if GetLocalPlayer() == GetTriggerPlayer() then
                call ShowFrame(SpawnUnitBackdrop)
            endif
            
        endif
    
    set i = i + 1
    endloop
    
    set u = null
    
endfunction

//===========================================================================
function InitTrig_Sync takes nothing returns nothing
    set gg_trg_Sync = CreateTrigger(  )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_Sync, Player(0), true )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_Sync, Player(1), true )
    call TriggerAddAction( gg_trg_Sync, function Trig_Sync_Actions )
endfunction

globals
    boolean array KeySpan
endglobals

function Trig_MouseEvent_Actions takes nothing returns nothing
    local integer i = 0
    local integer j = 0
    loop
        
        exitwhen(i==12)
        
        if(Player(i) == GetLocalPlayer()) then
            //call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 0.1, "X = "+R2S(GetCursorX())+", Y = "+R2S(GetCursorY()))
            
            loop
            exitwhen j == 8
            // Button Press
                if FindCLayerUnderCursor() == SpawnUnit[j] and IsKeyPressed(0x01) and KeySpan[i] then 
                    set KeySpan[i] = false
                    call HideFrame(SpawnUnitBackdrop)
                    call SelectUnit(SyncUnit[GetPlayerId(GetLocalPlayer())][j], true)
                    call ClearSelection()
                endif
            set j = j + 1
            endloop
            
            if not (IsKeyPressed(0x01)) then
                set KeySpan[i] = true
            endif
            
            if IsKeyPressed(0x01) then
                set KeySpan[i] = false
            endif
            
        endif
        

        set i = i + 1
        
    endloop
    
endfunction

//===========================================================================
function InitTrig_MouseEvent takes nothing returns nothing
    set gg_trg_MouseEvent = CreateTrigger(  )
    call TriggerRegisterTimerEventPeriodic( gg_trg_MouseEvent, 0.01 )
    call TriggerAddAction( gg_trg_MouseEvent, function Trig_MouseEvent_Actions )
endfunction