function AddMaxMana takes integer value returns nothing
loop
exitwhen value == 0
if (value-2048 >= 0) then
 +1 абилка на 2048
 set value = value - 2048
elseif (value-1024 >= 0) then
  +1 абилка на 1024
 set value = value - 1024
.........
elseif (value - 1 >= 0)
  +1 абилка на 1
 set value = value - 1
endif
endloop
endfunction

method UnitSetMana takes integer amount returns nothing
        local integer i = 14 - 1
        set .bMana = amount
        if amount < 0 then
            call UnitAddAbility(.u,ManaAbil[i+1])
            set amount = 0-(Pow2Mana[i+1] - amount)
        else
            call UnitRemoveAbility(.u,ManaAbil[i+1])
        endif
        loop
            if amount >= Pow2Mana[i] then
            call UnitAddAbility(.u,ManaAbil[i])
            set amount = amount - Pow2Mana[i]
            else
                call UnitRemoveAbility(.u,ManaAbil[i])
            endif
            set i = i - 1
            exitwhen i < 0
        endloop
        call SetUnitState(.u,UNIT_STATE_MANA,GetUnitState(.u,UNIT_STATE_MAX_MANA))
    endmethod

       //.....Init
        set i = 1
        loop
            set Pow2Mana[i] = Pow2Mana[i - 1] * 2
            set i = i + 1
            exitwhen i > 13
        endloop
        set Pow2Mana[14] = -16384

       //....Preload
        set u = CreateUnit(Player(15),'hpea',0,0,0)
        set i = 0
        loop
            call UnitAddAbility(u,ManaAbil[i])
            set i = i + 1
            exitwhen i > 14
        endloop