function BonussAb takes unit uta, integer cta, integer it5h, integer it1h, integer it10, integer it01 returns nothing
    local boolean rab
    if(GetUnitAbilityLevelSwapped('AInv',uta)==0)then
        set rab=true
        call UnitAddAbility(uta,'AInv')
    endif
    if(it5h>0)then
        if(cta>=500)then
        loop
            exitwhen cta<500
            call UnitAddItem(uta,it5h)
            set cta=cta-500
        endloop
        endif
    endif
    if(cta>=100)then
        loop
            exitwhen cta<100
            call UnitAddItem(uta,it1h)
            set cta=cta-100
        endloop
        endif
    if(cta>=10)then
        loop
            exitwhen cta<10
            call UnitAddItem(uta,it10)
            set cta=cta-10
        endloop
        endif
    if(cta>=1)then
        loop
            exitwhen cta<1
            call UnitAddItem(uta,it01)
            set cta=cta-1
        endloop
        endif
    if(rab)then
        call UnitRemoveAbility(uta,'AInv')
    endif
endfunction