Help with my system bonus item attribute

[Dark gamer]

I don't know why my system error. If i pick item in the first time, it will bonus attribute normal but when i loss it or pick the second or third time, the bonus will false ( maybe add 3xx 4xx attribute ) . help me :-s pls <3
my demo map :

 

[saw792]

Post the code in

 tags.

 

[Dark gamer]

OK !
Here is my trigger to set ability bonus of item :

function BaoItem takes integer id,integer str,integer agi,integer int,integer dam,integer arm,integer ias,integer ims,integer rel,integer rem returns nothing
    set ItemID[ItemCount] = id
    set ItemStr[ItemCount] = str
    set ItemAgi[ItemCount] = agi
    set ItemInt[ItemCount] = int
    set ItemDam[ItemCount] = dam
    set ItemArm[ItemCount] = arm
    set ItemCount = ItemCount + 1
endfunction

function ItemLM takes integer id,integer life,integer mana returns nothing    
endfunction

function Trig_Init_Item_Actions takes nothing returns nothing
    call BaoItem('I00O',0,0,0,24,0,0,0,0,0)
    call BaoItem('I00P',0,0,0,15,0,10,0,0,0)
    call BaoItem('I00D',6,0,0,0,0,0,0,0,0)
    call BaoItem('I00C',0,6,0,0,0,0,0,0,0)
    call BaoItem('I000',0,0,0,0,0,0,50,0,0)
    call BaoItem('I00V',0,0,0,18,3,0,0,0,0)
    call BaoItem('I00M',0,0,0,12,0,0,0,0,0)
    call BaoItem('I00J',0,0,9,0,0,0,0,0,0)
    call BaoItem('I017',24,0,0,0,0,0,0,0,0)
    call BaoItem('I00K',9,0,0,0,0,0,0,0,0)
    call BaoItem('I01A',0,0,0,48,0,0,0,0,0)
    call BaoItem('I00Q',0,0,0,6,0,0,0,0,0)
    call BaoItem('I00S',0,0,0,21,0,5,0,0,0)
    call BaoItem('I00E',3,0,0,0,0,0,0,0,0)
    call BaoItem('I002',0,0,0,0,0,0,0,0,0)
    call BaoItem('I001',0,0,0,0,0,15,0,0,0)
    call BaoItem('I00L',0,9,0,0,0,0,0,0,0)
    call BaoItem('I00H',9,9,9,0,0,0,0,0,0)
    call BaoItem('I00I',3,3,3,0,0,0,0,0,0)
    call BaoItem('I00N',0,0,0,18,0,0,0,0,0)
    call BaoItem('I00G',0,0,3,0,0,0,0,0,0)
    call BaoItem('I00W',0,0,0,0,0,0,0,0,0)
    call BaoItem('I01G',0,0,0,0,0,0,0,0,0) 
    call BaoItem('I00T',0,0,0,0,6,0,0,0,0)
    call BaoItem('I01F',0,0,0,0,0,0,0,0,0) 
    call BaoItem('I01C',0,0,0,24,0,0,0,0,0)
    call BaoItem('I01D',0,0,0,21,0,0,0,0,0)
    call BaoItem('I01E',0,0,0,0,0,0,0,0,0) 
    call BaoItem('I00R',0,0,0,30,0,0,0,0,0)
    call BaoItem('I007',0,0,0,0,0,0,0,2,0)
    call BaoItem('I00F',0,0,6,0,0,0,0,0,0)
    call BaoItem('I003',0,0,0,0,0,0,0,0,0)
    call BaoItem('I00B',0,3,0,0,0,0,0,0,0)
    call BaoItem('I008',0,0,0,0,0,0,0,0,2)
    call BaoItem('I018',0,0,24,0,0,0,0,0,0)
    call BaoItem('I004',0,0,0,0,0,0,0,4,0)
    call BaoItem('I005',0,0,0,0,0,0,0,0,4)
    call BaoItem('I019',0,24,0,0,0,0,0,0,0)
    
    call BaoItem('I01J',0,0,0,0,0,0,0,0,0)
    call BaoItem('I023',0,9,0,18,0,0,30,0,0)
    call BaoItem('I03A',0,0,0,0,15,0,0,0,0)
    call BaoItem('I01Q',0,0,0,9,0,0,0,0,0)
    call BaoItem('I031',0,0,0,30,0,35,0,0,0)
    call BaoItem('I02H',9,6,12,0,0,0,0,0,0)
    call BaoItem('I02X',0,0,12,21,0,0,0,0,0)
    call BaoItem('I036',0,0,0,54,0,0,0,0,0)
    call BaoItem('I02J',6,12,9,0,0,0,0,0,0)
    call BaoItem('I03C',0,0,0,54,0,0,0,0,0)
    call BaoItem('I02Q',0,0,15,21,0,0,0,0,0)
    call BaoItem('I02P',0,0,12,18,0,0,0,0,1)
    call BaoItem('I02R',0,0,18,24,0,0,0,0,3)
    call BaoItem('I02T',0,0,0,21,0,0,0,0,0)
    call BaoItem('I01H',0,0,0,0,0,0,0,5,5)
    call BaoItem('I01S',0,0,0,33,0,0,0,0,0)
    call BaoItem('I02B',0,0,0,33,0,0,0,0,0)
    call BaoItem('I02L',12,9,6,0,0,0,0,0,0)
    call BaoItem('I02D',0,0,0,30,0,45,0,0,0)
    call BaoItem('I02Z',18,0,0,30,0,0,0,0,0)
    call BaoItem('I020',15,6,6,0,0,0,0,0,0)
    call BaoItem('I021',6,6,15,0,0,0,0,0,0)
    call BaoItem('I01Z',6,15,6,0,0,0,0,0,0)
    call BaoItem('I02F',0,0,0,18,0,0,100,0,0)
    call BaoItem('I014',0,0,0,9,0,25,65,0,0)
    call BaoItem('I01Y',6,3,3,0,0,0,0,0,0)
    call BaoItem('I02U',0,12,0,18,0,0,0,0,0)
    call BaoItem('I03E',18,0,0,30,0,0,80,0,0)
    call BaoItem('I027',6,0,0,34,0,0,0,0,0)
    call BaoItem('I045',0,0,0,0,5,0,0,0,0)
    call BaoItem('I038',0,0,0,33,0,0,0,7,6)
    call BaoItem('I025',0,0,0,0,0,0,0,0,3 ) 
    call BaoItem('I01W',3,3,6,0,0,0,0,0,0)
    call BaoItem('I029',0,0,3,18,0,3,0,0,0)
    call BaoItem('I01L',0,0,7,12,0,0,0,0,0)
    call BaoItem('I01X',3,6,3,0,0,0,0,0,0)
    call BaoItem('I02N',0,0,0,0,5,0,0,0,0)
    call BaoItem('I016',0,0,0,30,0,15,22,0,0)
    call BaoItem('I040',0,0,39,39,0,0,0,0,0)
    call BaoItem('I03W',0,27,0,33,30,33,0,0,0)
    call BaoItem('I03G',10,0,0,60,0,0,0,0,0)
    call BaoItem('I03S',0,36,0,24,0,0,0,0,0)
    call BaoItem('I03I',27,0,0,36,0,0,0,0,0)
    call BaoItem('I03O',0,0,0,80,0,0,0,9,0)
    call BaoItem('I03Q',24,24,24,24,0,0,0,0,0)
    call BaoItem('I03K',0,0,0,60,0,0,0,0,0)
    call BaoItem('I03M',0,0,0,85,6,25,0,0,0)
    call BaoItem('I03U',0,0,30,0,0,0,0,0,8) 
    call BaoItem('I03Y',33,0,0,0,0,0,0,11,0)    
endfunction

I use function HeroStatus to increases or reduce hero attribute

function HeroStatus takes unit u,real str,real agi,real int,real dam,real armor returns nothing
    local integer t
    local integer a
    local integer b
    local integer c
    local integer dvi
    local integer chuc
    local integer tram
    local integer array abi1
    local integer array abi2
    local integer array abi3
    local integer array at
    local integer i 
    local boolean tru 
    set at[1] = R2I(str)
    set at[2] = R2I(agi)
    set at[3] = R2I(int)
    set at[4] = R2I(dam)
    set at[5] = R2I(armor)
    set abi1[1] = 'SJ01'    // str 1
    set abi1[2] = 'SJ04'    // agi 1
    set abi1[3] = 'SJ07'    // int 1
    set abi1[4] = 'AItg'    // dam 1
    set abi1[5] = 'AId1'    // arm 1
    set abi2[1] = 'SJ02'    // str 10
    set abi2[2] = 'SJ05'    // agi 10
    set abi2[3] = 'SJ08'    // int 10
    set abi2[4] = 'AItn'    // dam 10
    set abi2[5] = 'AId2'    // arm 10
    set abi3[1] = 'SJ03'    // str 100
    set abi3[2] = 'SJ09'    // agi 100
    set abi3[3] = 'SJ09'    // int 100
    set abi3[4] = 'AItc'    // dam 100
    set abi3[5] = 'AId3'    // arm 100
    set i = 1
    loop
        exitwhen i > 5
        set tru = false
        if at<i> &lt; 0 then
            set at<i> = - at<i>
            set tru = true
        endif
        if at<i> != 0 then
            set t    = at<i>
            set dvi  = GetUnitAbilityLevel(u,abi1<i>) - 1
            set chuc = GetUnitAbilityLevel(u,abi2<i>) - 1
            set tram = GetUnitAbilityLevel(u,abi3<i>) - 1
            set a    = (t - ModuloInteger(t,100))/100
            set t    = t - a * 100
            set b    = (t - ModuloInteger(t,10))/10
            set t    = t - b * 10
            set c    = t
            
            if tru == false then                
                    if c + dvi &gt;= 10 then
                        set b = b + 1
                        set c = c + dvi - 10
                    else
                        set c = c + dvi
                    endif
                    if b + chuc &gt;= 10 then
                        set a = a + 1
                        set b = b + chuc - 10
                    else
                        set b = b + chuc
                    endif
                    set a = a + tram
                else
                    if dvi - c &lt; 0 then
                        set b = b - 1
                        set c = 10 + dvi - c
                    else
                        set c = dvi - c
                    endif
                    if chuc - b &lt; 0 then
                        set a = a - 1
                        set b = 10 + chuc - b
                    else
                        set b = chuc - b
                    endif
                    if tram - a &lt; 0 then
                        set a = 0
                    else
                        set a = tram - a
                    endif
            endif
            call SetUnitAbilityLevel(u,abi1<i>,c + 1)
            call SetUnitAbilityLevel(u,abi2<i>,b + 1)
            call SetUnitAbilityLevel(u,abi3<i>,a + 1)
        endif
        set i = i + 1
    endloop
endfunction
</i></i></i></i></i></i></i></i></i></i></i>

And event pick or loss item :

//Event pick item 

function Trig_Pick_Up_Item_Actions takes nothing returns nothing
    local integer a = 1
    local unit u = GetTriggerUnit()
    local item i = GetManipulatedItem()
    local integer id = GetItemTypeId(i)
    
    
    set a = 1
    loop
        exitwhen a > ItemCount
        if id == ItemID[a] then
            exitwhen true
        endif
        set a = a + 1
    endloop
       call HeroStatus(u,ItemStr[a],ItemAgi[a],ItemInt[a],ItemDam[a],ItemArm[a])
    set i = null
    set u = null
endfunction

//Loss Item - ability

function Trig_Loss_An_Item_Actions takes nothing returns nothing
    local integer a = 1
    local unit u = GetTriggerUnit()
    local item i = GetManipulatedItem()
    local integer id = GetItemTypeId(i)
    
   
    
    set a = 1
        loop
            exitwhen a > ItemCount
            if id == ItemID[a] then
                exitwhen true
            endif
            set a = a + 1
        endloop
        call HeroStatus(u,-ItemStr[a],-ItemAgi[a],-ItemInt[a],-ItemDam[a],-ItemArm[a])
    set i = null
    set u = null
endfunction

//===========================================================================
function Init takes nothing returns nothing
    local trigger t = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( t, EVENT_PLAYER_UNIT_DROP_ITEM )
    call TriggerAddAction( t, function Trig_Loss_An_Item_Actions )
    set t = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( t, EVENT_PLAYER_UNIT_PICKUP_ITEM )
    call TriggerAddAction( t, function Trig_Pick_Up_Item_Actions )
    set t = CreateTrigger(  )
    call TriggerRegisterTimerEventSingle( t, 0.10 )
    call TriggerAddAction( t, function Trig_Init_Item_Actions )
    set t = null
endfunction
endscope

it is all trigger i used in that system . but it only do correct in the first time :banghead:
Help me pls

 

[Dark gamer]

Bring Up My Post

Bring Up My Post , PLZ