событие 
  - юнит получает урон

действие 
  - установить здоронье атакованного юнита = текущее здоровье - урон + зашита юнита из БД + защита от ловкости + защита от бафов + защита от итемов

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