function TrigPick_Func001A takes nothing returns nothing
    call TriggerRegisterDeathEvent( gg_trg_d1, GetEnumUnit() )
endfunction

function TrigPick_Actions takes nothing returns nothing
    call ForGroupBJ( GetUnitsInRectAll(GetPlayableMapRect()), function TrigPick_Func001A )
endfunction

//===========================================================================
function InitTrig_pick takes nothing returns nothing
    set gg_trg_pick = CreateTrigger(  )
    call TriggerAddAction( gg_trg_pick, function TrigPick_Actions )
endfunction

function Trig1_d_Actions takes nothing returns nothing
    local integer i = 0
    
    loop
        exitwhen i>11
        set udg_p[i] = GetPlayerState( Player(i), PLAYER_STATE_RESOURCE_GOLD)
        call BJDebugMsg("Игрок " + I2S(i) + " имеет золото: " + I2S(udg_p[i]))
        set i=i+1
    endloop
    
endfunction

//===========================================================================
function InitTrig_d1 takes nothing returns nothing
    set gg_trg_d1 = CreateTrigger(  )
    call TriggerAddAction( gg_trg_d1, function Trig1_d_Actions )
endfunction

function Trig_d_Actions takes nothing returns nothing
    
    local integer n = GetPlayerId(GetOwningPlayer(GetKillingUnit()))
    local integer gold = GetPlayerState( Player(n), PLAYER_STATE_RESOURCE_GOLD)-udg_p[n]
    call BJDebugMsg("|cFFFF9300Игрок получил:r " + I2S(gold))
    
endfunction

//===========================================================================
function InitTrig_d takes nothing returns nothing
    set gg_trg_d = CreateTrigger(  )
    
    call TriggerRegisterAnyUnitEventBJ( gg_trg_d, EVENT_PLAYER_UNIT_DEATH )
    call TriggerAddAction( gg_trg_d, function Trig_d_Actions )
endfunction

//Установить тип движения юнита
//movetp - тип движения, selfcollision - могут ли другие юниты пройти через unit u (через себя), integer outhercollision - unit u может ли через других пройти
function SetUnitMovementType takes unit u, integer movetp, integer selfcollision, integer outhercollision returns nothing
	local integer data= GetUnitDataDefByIdCaching(GetUnitTypeId(u)) + 0x1A8
	local integer p1=RMem(data)
	local integer p2=RMem(data + 4)
	local integer p3=RMem(data + 8)
	if movetp!=-1 then
		call WMem(data,movetp)
	endif
	//0 = "none", 1 = "foot", 2 = "fly", 4 = "horse", 8 = "hover", 16 = "water"?, 32 = "amph"
    //-1 = оставить без изменений
    //0 = нет (отсутствует ограничения)
    //1 = пеший, 4 = конный, 8 = парящий (ограничение: вода, всякие преграды: здания, деревья, ландшафт, юниты)
    //2 = летающий (отсутствуют ограничения, кроме блокираторов воздуха (здания и декор). На воздух влияет с нужным цветом текстура пути, которая, собственно, и крепится к зданию или декору)
    //16 = плавающий (ограничение: суша, ландшафт, юниты) 
    //32 = земноводный (ограничивает только деревья и здания, ландшафт, юниты)
    //Примечание: ограничение в смысле что-то блокирует, препятствует движению. И юнит может обойти эту преграду
	if selfcollision!=-1 then
		call WMem(data + 4,selfcollision)
	endif
	//0xCA by default
	//seems to be TexturePlacement analogue (кажется является аналогом TexturePlacement. наверное аналогия https://xgm.guru/p/wc3/pathing-alternate ?? Не совсем понятно, что имел в виду автор)
	//0 = pathable for others
    //only 2+8 (A) makes unit non-pathable 
    //-1 - оставляет без изменений
    //0 - если ввожу ноль или любую другую цифру, то через этого юнита "u" проходят
    //10 - если десять, то через юнита "u" не могут проходить, обходят стороной
    //0xCA - по умолчанию. возвращает к исходному значению, которое было задано.
    //пробовал ввести 0xFF летун не мог через здание пролетать, облетает. Как-то влияет значит текстура. Ну вообще большинство чисел (0xFFF) не дают такое сделать. Не все числа, конечно. 
    //Конечно пытался попробовал изменить текстуру на стройку и ходьбу наземных = не получается.
    
	if outhercollision!=-1 then
		call WMem(data + 8,outhercollision)
	endif
    //-1 = оставить без изменений
    //0 = pass through anything (unit u проходит через что-либо. Короче не имеет преград)
    //1 = cannot move (unit u не может двигаться, неподвижен. Может только совершать повороты на месте)
	//2 = default, 2 by default for ground (настройка по умолчанию для наземных)
	//4 = flying default (настройка по умолчанию для летающих)
	//8 = stuck at items, can't go thtough units/buildings, pathable for others (unit u не может проходить через предметы. Остальное почти тоже самое, преграды: юниты/здания/декор. Если у здания/декора убрать текстуру пути, то проходит без преград)
	    
    //0x10 = can go through units but not items/buildings (Юнит проходит через юнитов. Через итемы/здания/декор не может. Если у здания/декора убрать текстуру пути, то проходит без преград)
	//0x20 = free (свободен. без ограничении)
    //0x40 = cant move (не может двигаться. почти тоже самое что и "1") 
    //0x80 == 2 ? , above == 0
	call SetUnitPathing(u, true)
	call WMem(data,p1)
	call WMem(data + 4,p2)
	call WMem(data + 8,p3)
    
endfunction
//===========
//устанавливает особую проходимость (как у wind walk: ходят через юнитов, кроме здании и деревьев).
    //у здании и деревьев текстуры пути со цветом 0xff00ff
    //особая фишка в том. что перед SetUnitPathing вводят настройки, и они тут же применится Phased
    function SetUnitPhased takes unit u returns nothing
        local integer data = GetObjectDataCaching( pUnitData , GetUnitTypeId( u ) ) + 0x1AC
        local integer p1 = RMem( data )
        local integer p2 = RMem( data + 4 )
        //	call BJDebugMsg(Int2Hex((data-107)*4))
        call WMem( data, 8 )
        call WMem( data + 4, 16 )
        call SetUnitPathing( u, true )
        call WMem( data, p1 )
        call WMem( data + 4, p2 )
    endfunction
    
    //вкл-выкл настройку Phased
    function TurnUnitPhased takes unit u, boolean b returns nothing
        if b then
            call SetUnitPhased(u)
        else
            call SetUnitPathing( u, not b ) //повторный ввод отключает настройку Phased
        endif
    endfunction
//===================