Складывание зарядов:

Событие:
 Боевая еденица - A unit Acquires an item
Условие:
 Or - any (Condition) are true
 Условия:
  (Item type of(Item begin manipulated)) равно <тип предмета1>*
  (Item type of(Item begin manipulated)) равно <тип предмета2>*
  (Item type of(Item begin manipulated)) равно <тип предмета3>*
Действия:
 Set it**=(Item type of(item begin manipulated))
 For each (Integer A) from 1 to 6 do (Actions)
 Цикл - Действия
  If (All Conditions are True) then do (Then Actions) else do (Else Actions)
  Если - Условия
   (Item type of(Item carried by (Triggering unit) in slot (Integer A))) равно it
   (Item carried by (Triggering unit) in slot (Integer A)) не равно (Item begin manipulated)
  То - действия
   Предмет - Set charges remaining in (Item carried by (Triggering unit) in slot (Integer A)) to ((Charges remaining in (Item carried by (Triggering unit) in slot (Integer A)) + (Charges remaining in (Item begin manipulated)))
   Предмет - Remove (Item begin manipulated)
  Иначе - действия

*Тип предмета, данный тригер универсален, и может складывать заряды всех типов предметов, указанных в условии
**Переменная типа "Тип предмета"

function Trig_ItemsStack_Conditions takes nothing returns boolean
    return ( GetItemCharges(GetManipulatedItem()) > 0 )
endfunction

function Trig_ItemsStack_Actions takes nothing returns nothing
local real x=0
local real y=0
local item it=null
set x=GetUnitX(GetManipulatingUnit())
set y=GetUnitY(GetManipulatingUnit())
    call UnitRemoveItem(GetManipulatingUnit(), GetManipulatedItem())
    if GetInvIOfItemType(GetManipulatingUnit(), GetItemTypeId(GetManipulatedItem())) == 0 then
        set it = CreateItem( GetItemTypeId(GetManipulatedItem()),x,y)
        call DisableTrigger( GetTriggeringTrigger() )
        call UnitAddItem(GetManipulatingUnit(), it)
        call EnableTrigger( GetTriggeringTrigger() )
        call SetItemCharges( it, GetItemCharges(GetManipulatedItem()) )
    else
        call SetItemCharges( GetItemOfTypeFromUnit(GetManipulatingUnit(), GetItemTypeId(GetManipulatedItem())), ( GetItemCharges(GetItemOfTypeFromUnit(GetManipulatingUnit(), GetItemTypeId(GetManipulatedItem()))) + GetItemCharges(GetManipulatedItem())))
    endif
    call RemoveItem(GetManipulatedItem())
set it=null
endfunction

//===========================================================================
function InitTrig_ItemsStack takes nothing returns nothing
local integer i=0
set gg_trg_ItemsStack = CreateTrigger()
loop
exitwhen i>bj_MAX_PLAYER_SLOTS
call TriggerRegisterPlayerUnitEvent(gg_trg_ItemsStack, Player(i), EVENT_PLAYER_UNIT_PICKUP_ITEM, null)
set i=i+1
endloop
call TriggerAddCondition( gg_trg_ItemsStack, Condition( function Trig_ItemsStack_Conditions ) )
call TriggerAddAction( gg_trg_ItemsStack, function Trig_ItemsStack_Actions )
endfunction

function GetInvIOfItemType takes unit whichUnit, integer itemId returns integer
    local integer index
    local item    indexItem

    set index = 0
    loop
        set indexItem = UnitItemInSlot(whichUnit, index)
        if (indexItem != null) and (GetItemTypeId(indexItem) == itemId) then
            return index + 1
        endif

        set index = index + 1
        exitwhen index >= bj_MAX_INVENTORY
    endloop
    set indexItem=null
    return 0
endfunction

function GetItemOfTypeFromUnit takes unit whichUnit, integer itemId returns item
    local integer i = GetInvIOfItemType(whichUnit, itemId)
    if (i == 0) then
        return null
    else
        return UnitItemInSlot(whichUnit, i - 1)
    endif
endfunction