function InitAll takes nothing returns nothing
    local integer c=1

    loop
        exitwhen c>10
        set udg_ITEMS_ONHERO[c]=c
        set c=c+1
    endloop

    set udg_ABILITY_BASE[1] ='A008'//Описания способностей
    set udg_ABILITY_BASE[2] ='A003'
    set udg_ABILITY_BASE[3] ='A00N'
    set udg_ABILITY_BASE[4] ='A009'
    set udg_ABILITY_BASE[5] ='A00F'
    set udg_ABILITY_BASE[6] ='A00B'
    set udg_ABILITY_BASE[7] ='A00D'
    set udg_ABILITY_BASE[8] ='A00H'
    set udg_ABILITY_BASE[9] ='A00J'
    set udg_ABILITY_BASE[10]='A00L'//Здесб заканчитвается "кукла"
    set udg_ABILITY_BASE[11]='A004ю//Меч

    set udg_ITEM_BASE[11] ='I000'//Описания предметов
endfunction

//Удаляем предметы, меняем значение в массиве
function UnEquipItem takes unit t_unit, integer item_slot returns nothing
    local integer c=1

    loop
        exitwhen c>10
        call UnitRemoveAbility ( t_unit, udg_ABILITY_BASE[udg_ITEMS_ONHERO[c]] )

        set c=c+1
    endloop
  
    set udg_ITEMS_ONHERO[item_slot]=item_slot
endfunction

//Добавляем предметы обратно
function EquipItems takes unit t_unit returns nothing
    local integer c=1

    loop
        exitwhen c>10
        call UnitAddAbility ( t_unit, udg_ABILITY_BASE[udg_ITEMS_ONHERO[c]] )
        call SetPlayerAbilityAvailable ( GetOwningPlayer(t_unit), udg_ABILITY_BASE[udg_ITEMS_ONHERO[c]], false )

        set c=c+1
    endloop
endfunction

//Надеваем предмет
function ItemStartEquip takes unit t_unit, integer item_id returns nothing
    local integer c=1
    
    loop
        exitwhen c>999
        if udg_ITEM_BASE[c]==item_id then
             if c>10 and c<101 then
                 
                 call UnEquipItem ( t_unit, 2 )
                 set udg_ITEMS_ONHERO[2]=c
                 
                
                 call EquipItems ( t_unit )
             else
             endif
        else
        endif

        set c=c+1
    endloop
endfunction