Topic hỏi đáp về cách làm map | version 14

Mình hỏi trigger này có lỗi hay nên sửa gì không vậy ? Với lại vì sao mình destroy trigger thì nó không chạy ?

Mã:

function Add_charge_cond takes nothing returns boolean
    return GetItemType(GetManipulatedItem()) == ITEM_TYPE_CHARGED
endfunction

function check_Item_in_loop takes item x, item y returns boolean
    return ( x != y ) and ( GetItemTypeId(x) == GetItemTypeId(y) ) 
endfunction

function Trig_Add_charge_Actions takes nothing returns nothing
    local unit owner = GetManipulatingUnit()
    local item x = GetManipulatedItem()
    local item y
    local integer i = 0
    local integer b
    local boolean h = false
    loop
        exitwhen (i > 5) or (h == true)
        set y = UnitItemInSlot(owner,i)
        if ( check_Item_in_loop(x,y) ) then
            if (GetItemCharges(y) != 99 ) then
                set b = ( GetItemCharges(x) + GetItemCharges(y) )
                if ( b <= 99 ) then
                    call SetItemCharges( y, b )
                    call RemoveItem(x)
                else
                    call UnitRemoveItem( owner, x )
                    call SetItemCharges( x, b-99 )
                    call SetItemCharges( y, 99 )
                endif
            else
                call UnitRemoveItem( owner, x )
            endif
        set h = true
        endif
        set i = i + 1
    endloop
    set x = null
    set y = null
    set owner = null
endfunction

//===========================================================================
function InitTrig_Add_charge takes nothing returns nothing
    local trigger t
    set t = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( t, EVENT_PLAYER_UNIT_PICKUP_ITEM )
    call TriggerAddCondition( t, Condition( function Add_charge_cond ) )
    call TriggerAddAction( t, function Trig_Add_charge_Actions )
//    call DestroyTrigger(t)
//    set t = null
endfunction

 

Destroy rồi thì tất nhiên trigger k chạy được nữa vì đâu còn cái trigger đó nữa. Như kiểu cậu Disable trigger trong GUI ấy .
Tự test xem có lỗi không đi. Chả ai rảnh xem dùm đâu .

 

Cám ơn bạn :) vì mình lấy của người khác nên ko rành lắm

 

Hiện tượng này là do không sử lí kĩ các biến, khiến chúng đè lên nhau đặc biệt là các biến của dummy, hoặc một số lí đo khiến trigger bị tắt, không thực hiện nữa.
Tham khảo spell này. Có đầy đủ MUI, slide, dummy.

 

[spoil]

Mã:

function SoulWaveCon takes nothing returns boolean
    return GetSpellAbilityId() == 'A0A4'
endfunction

function SoulWaveAct takes nothing returns nothing
    local unit cas = GetTriggerUnit()
    local location casloc = GetUnitLoc(cas)
    local location tarloc = GetSpellTargetLoc()
    local integer lvl = GetUnitAbilityLevel(cas,'A0A4')
    local real dis = DistanceBetweenPoints(casloc,tarloc)
    local integer point = R2I(dis/250)
    local real angle = AngleBetweenPoints(casloc,tarloc)
    local location dumpoint
    local unit dummy
    if point < 1 then 
    set point = 1
    else
    endif
    
    set bj_forLoopAIndex = 1
    set bj_forLoopAIndexEnd = point
    loop
        exitwhen bj_forLoopAIndex > bj_forLoopAIndexEnd
        set dumpoint = PolarProjectionBJ(casloc,I2R(bj_forLoopAIndex*250),angle)
        call CreateUnitAtLoc(GetOwningPlayer(cas),'h01A',dumpoint,0.00)
        set dummy = GetLastCreatedUnit()
        call UnitApplyTimedLife(dummy,'BTLF',1.0)
        call UnitAddAbility(dummy,'A0A3')
        call SetUnitAbilityLevel(dummy,'A0A3',lvl)
        call IssueImmediateOrder( dummy,"howlofterror")
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\HowlOfTerror\\HowlCaster.mdl",GetLocationX(dumpoint),GetLocationY(dumpoint)))
        set dummy = null
        call RemoveLocation(dumpoint)
        set dumpoint = null
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    call RemoveLocation(casloc)
    call RemoveLocation(tarloc)
    set casloc = null
    set tarloc = null
    set cas = null
endfunction

//===========================================================================
function InitTrig_Soul_Wave takes nothing returns nothing
    local trigger SoulWave = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( SoulWave, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( SoulWave, Condition( function SoulWaveCon ) )
    call TriggerAddAction( SoulWave, function SoulWaveAct )
endfunction

[/spoil]
Hỏi trigger này, tại s xài nh` lần liên tục k hiểu s đôi khi caster tự động có expire timer và die .............. 2 nữa là cho dummy cast howl of terror k dc, k thấy - armor và - damg .