function second takes nothing returns nothing
local trigger t=GetTriggeringTrigger()
call DestroyTrigger(t)
set t=null
endfunction

function Actions takes nothing returns nothing
local trigger t=CreateTrigger()
local triggeraction ta= TriggerAddAction( t, function second )
call TriggerRemoveAction(t, ta)
call TriggerClearConditions(t)
set t = null
set ta = null
endfunction

function InitTrig_A takes nothing returns nothing
local trigger t=CreateTrigger()
    call TriggerAddAction( t, function Actions )
set t=null
endfunction