function Trig_S_Actions takes nothing returns nothing
    call DisplayTextToForce( GetPlayersAll(), "TRIGSTR_008" )
endfunction

//===========================================================================
function InitTrig_S takes nothing returns nothing
    set gg_trg_S = CreateTrigger(  )
    call TriggerRegisterUnitEvent( gg_trg_S, GetAttackedUnitBJ(), EVENT_UNIT_DAMAGED )
    call TriggerAddAction( gg_trg_S, function Trig_S_Actions )
endfunction

function GetAttackedUnitBJ takes nothing returns unit
    return GetTriggerUnit()
endfunction

local triggercondition TrC
local triggeraction TrA
blablabla
call TriggerRemoveCondition(trig, TrC)
call TriggerRemoveAction(trig, TrA)

PolledWait

SetUnitLifeBJ

GetUnitStateSwap

call PolledWait(0.01)

globals
 real array r_a_u // nohero default armor
 real array r_a_h // hero default armor
 real array r_a_i // item bonus
 real array r_a_b // buffs
endglobals

function GetUnitArmor takes unit u returns nothing
 local real r
 local real i
 local real c=0x00
 if IsUnitType(u, UNIT_TYPE_HERO)then
  set r=r_a_h[GetUnitTypeId(u)-0x48303030]+GetHeroAgi(u, true)*.07
 else
  set r=r_a_u[GetUnitTypeId(u)-0x68303030] 
 endif
 loop
  set i=GetItemTypeId(UnitItemInSlot(u, c))
  if i!=0x00then
   set r=r+r_a_i[i-0x49303030]
  endif
  set c=c+0x01
  exitwhen c==0x06
 endloop
 set c==0x00
 loop
  if GetUnitAbilityLevel(u, 0x42303030+c)!=0x00 then
   set r=r+r_a_b[c]
  endif
  set c=c+0x01
  exitwhen c==0x20
 endloop  
endfunction

function Init takes nothing returns nothing
 set r_a_u[0x00]=1. // 0x00==0x68303030-0x68303030
 set r_a_u[0x01]=0. // 0x01==0x68303031-0x68303030
 set r_a_u[0x02]=5. // 0x02==0x68303032-0x68303030

 set r_a_h[0x00]=-1.// 0x00==0x48303030-0x48303030

 set r_a_i[0x00]=8. // 0x00==0x49303030-0x49303030
 set r_a_i[0x01]=1. // 0x00==0x49303031-0x49303030

 set r_a_b[0x00]=4. // 0x00==0x42303030-0x42303030
 // .........
endfunction

function blabla takes unit u returns real r
    local real r
    ...
    set r = 3.33
    return r
endfunction
...
function Main takes nothing returns nothing
    local real r
    local unit u = GetTriggerUnit()
    call blabla(u)
    ....
endfunction

function blabla takes unit u returns real
    local real r
    ...
    set r = 3.33
    return r
endfunction
...
function Main takes nothing returns nothing
    local real r=blabla(u)
    local unit u = GetTriggerUnit()
endfunction