function GameTime takes nothing returns nothing
    loop
        exitwhen udg_GameEnd == true
        set udg_Seconds = udg_Seconds + 1
        if udg_Seconds == 10 then
            set udg_Seconds = 0
            set udg_TenSeconds = udg_TenSeconds + 1
            if udg_TenSeconds == 6 then
                set udg_TenSeconds = 0
                set udg_Minutes = udg_Minutes + 1
            endif
        endif
        call MultiboardSetItemValueBJ(GetLastCreatedMultiboard(),1,udg_Rows[12],"Время игры:        |cffe6d091" + I2S(udg_Minutes) + ":" + I2S(udg_TenSeconds) + I2S(udg_Seconds) + "|r")
        call PolledWait(0.97)
    endloop
endfunction

function PickAllPlayers takes nothing returns nothing
    call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY, true, GetEnumPlayer())
endfunction

function Start takes nothing returns nothing
    local integer i = 0
    call CreateDestructableLoc('Dofw',GetRectCenter(gg_rct_Red_Area),315.00,0.80,1)
    set udg_RedFlag = GetLastCreatedDestructable()
    call CreateDestructableLoc('LTcr',GetRectCenter(gg_rct_Blue_Area),235.00,0.80,1)
    set udg_BlueFlag = GetLastCreatedDestructable()
    set udg_Colour[1] = "|cffff0000"
    set udg_Colour[2] = "|cff0000ff"
    set udg_Colour[3] = "|cff00ffff"
    set udg_Colour[4] = "|cff800080"
    set udg_Colour[5] = "|cffffff00"
    set udg_Colour[6] = "|cffff8000"
    set udg_Colour[7] = "|cffff0000"
    set udg_Colour[8] = "|cffff0000"
    set udg_Colour[9] = "|cffff0000"
    loop
    exitwhen i == 9
        if GetPlayerSlotState(Player(i)) == PLAYER_SLOT_STATE_PLAYING then
            set udg_NumberOfPlayers = udg_NumberOfPlayers + 1
        endif
        set i = i + 1
    endloop
    call ForForce(GetPlayersAll(),function PickAllPlayers)
    set i = 0
endfunction

function InitTrig_Init takes nothing returns nothing
    call Start()
    call ExecuteFunc("GameTime")
endfunction

function PickAllPlayers takes nothing returns nothing
    call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY, true, GetEnumPlayer())
endfunction
// ...преобразовывается в...
function PickAllPlayers takes nothing returns nothing
  call SetPlayerState(GetEnumPlayer(), PLAYER_STATE_GIVES_BOUNTY, 1)
endfunction

function Start takes nothing returns nothing
// . . .
  call CreateDestructableLoc('Dofw',GetRectCenter(gg_rct_Red_Area),315.00,0.80,1)
  set udg_RedFlag = GetLastCreatedDestructable()
  call CreateDestructableLoc('LTcr',GetRectCenter(gg_rct_Blue_Area),235.00,0.80,1)
  set udg_BlueFlag = GetLastCreatedDestructable()
// ...преобразовывается в...
  set udg_RedFlag  = CreateDestructable('Dofw', GetRectCenterX(gg_rct_Red_Area),  GetRectCenterY(gg_rct_Red_Area),  315.0, 0.8, 1)
  set udg_BlueFlag = CreateDestructable('LTcr', GetRectCenterX(gg_rct_Blue_Area), GetRectCenterY(gg_rct_Blue_Area), 235.0, 0.8, 1)
// . . .
endfunction

// а вот это особенно громоздкая функция (смотреть ее код)
  call MultiboardSetItemValueBJ(GetLastCreatedMultiboard(),1,udg_Rows[12],"bla")
// ...преобразовывается в...
  local multiboarditem mbi = null
  // . . .
  set mbi = MultiboardGetItem(bj_lastCreatedMultiboard, udg_Rows[12] - 1, 0)
  call MultiboardSetItemValue(mbi, "bla")
  call MultiboardReleaseItem(mbi)
  set mbi = null

globals
  multiboarditem mbi = null
endglobals

function GameTime takes nothing returns nothing
  set udg_Time = udg_Time + 1
  call MultiboardSetItemValue(mbi, "Game time: " + I2S(udg_Time/60) + ":" + I2S(udg_Time - (udg_Time/60)*60))
endfunction
// . . .
function InitTrig_Init takes nothing returns nothing
  call Start() // inline should be done
  set mbi = MultiboardGetItem(bj_lastCreatedMultiboard, udg_Rows[12] - 1, 0)
  call TimerStart(CreateTimer(), 1.0, true, function GameTime)
endfunction

// .386 xD

globals
 multiboarditem mbi_x=null

 integer time=0x00
endglobals

function Per takes nothing returns nothing
 set time=time+0x01

 call MultiboardSetItemValue(mbi_x, "|cffff0000"+I2S(time/0x3c)+":"+I2S(time-time/0x3c*0x3c)+"|r")
 call MultiboardReleaseItem(mbi_x)
endfunction


function init takes nothing returns nothing

 set udg_RedFlag=CreateDestructable('Dofw', x., y., 315., .8, 0x01)
 set udg_BlueFlag=CreateDestructable('LTcr', x., y., 235., .8, 0x01)

 set udg_Colour[0x00]="|cffff0000"
 set udg_Colour[0x01]="|cff0000ff"
 set udg_Colour[0x02]="|cff00ffff"
 set udg_Colour[0x03]="|cff800080"
 // --->

 set udg_NumberOfPlayers=%2I(GetPlayerSlotState(Player(0x00)))+%2I(GetPlayerSlotState  (Player(0x01)))+%2I(GetPlayerSlotState(Player(0x02)))+%2I(GetPlayerSlotState(Pla  yer(0x031)))
 // --->

 call SetPlayerState(Player(0x00), PLAYER_STATE_GIVES_BOUNTY, 0x01)
 call SetPlayerState(Player(0x01), PLAYER_STATE_GIVES_BOUNTY, 0x01)
 call SetPlayerState(Player(0x02), PLAYER_STATE_GIVES_BOUNTY, 0x01)
 call SetPlayerState(Player(0x03), PLAYER_STATE_GIVES_BOUNTY, 0x01)
 // ---> 

 call TimerStart(CreateTimer(), 1., true, function Per)

 set mbi_x=MultiboardGetItem(board, x, y)

endfunction

globals
    constant integer MININDEX = 1
    constant integer MAXINDEX = 300
    integer array NextOpenList
    integer FirstOpen
    integer TotalOpen
endglobals

function FineOpenIndex takes nothing returns integer
    local integer Slot = FirstOpen
    set FirstOpen = NextOpenList[Slot]
    set TotalOpen = TotalOpen - 1
    set NextOpenList[Slot] = -1
    return Slot
endfunction

function IndexIsOpen takes integer idx returns boolean
    return NextOpenList[idx] != -1
endfunction

function CleanIndex takes integer idx returns nothing
    if TotalOpen > 0 then
        set NextOpenList[idx] = FirstOpen
    else
        set NextOpenList[idx] = idx
    endif
    set TotalOpen = TotalOpen + 1
    set FirstOpen = idx
endfunction

function Init takes nothing returns nothing
    local integer i = MININDEX
    loop
        exitwhen i >= MAXSIZE
        set NextOpenList[i] = i+1
        set i = i + 1
    endloop
    set NextOpenList[i] = i
    set TotalOpen = MAXINDEX-MININDEX+1
    set FirstOpen = MININDEX
endfunction

globals
 group gr_temp=CreateGroup()
 boolexpr ex=null
endglobals

function xXx takes nothing returns boolean
 // action
 return false
endfunction

 // --->
 call GroupEnumUnitsInRange(gr_temp, x, y, r, ex)
 // <---

function init takes nothing returns nothin
 set ex=Condition(function xXx)
endfunction