globals
real x
endglobals

globals  
constant real x
endglobals

globals
     constant real MapMinX = GetRectMinX(bj_mapInitialPlayableArea) + 50
     constant real MapMinY = GetRectMinY(bj_mapInitialPlayableArea) + 50
     constant real MapMaxX = GetRectMaxX(bj_mapInitialPlayableArea) - 50
     constant real MapMaxY = GetRectMaxY(bj_mapInitialPlayableArea) - 50
endglobals

function SafeX takes real x returns real
     if x < MapMinX then
         return MapMinX
     elseif x > MapMaxX then
         return MapMaxX
     endif
     return x
endfunction

function SafeY takes real y returns real
     if y < MapMinY then
         return MapMinY
     elseif y > MapMaxY then
         return MapMaxY
     endif
     return y
endfunction

library A initializer Init
globals
      real MinX  
      real MinY  
      real MaxX  
      real MaxY
endglobals

function GetMinMax takes real x, real y returns boolean
return x>MinX and x<MaxX and y>MinY and y<MaxY
endfunction

function Init takes nothing returns nothing
MinX = GetRectMinX(bj_mapInitialPlayableArea)  
MinY = GetRectMinY(bj_mapInitialPlayableArea)  
MaxX = GetRectMaxX(bj_mapInitialPlayableArea)  
MaxY = GetRectMaxY(bj_mapInitialPlayableArea)  
endfunction
endlibrary

function DummyCast takes unit u, unit targ, integer SpellId,integer lvl, string order returns nothing
local unit du = CreateUnit(GetOwningPlayer(u),'dummyname',GetUnitX(u),GetUnitY(u),bj_RADTODEG * Atan2(GetWidgetY(targ) - GetWidgetY(u), GetWidgetX(targ) - GetWidgetX(u)))
call UnitAddAbility(u,SpellId)
call SetUnitAbilityLevel(u,SpellId,lvl)
call IssueTargetOrder(du,order,targ)
call UnitApplyTimedLife(du,'BTLF',0.5)
set du = null
endfunction

call GetUnitArmor (unit)

function DeterminationArmorForUnit takes integer p, unit u returns integer

//========== DETERMINATION ARMOR FOR NO HERO UNITS ==========

if IsUnitType (u, UNIT_TYPE_HERO) == false then

//========== > 0 VALUES ==========
if p == 0 then
return 0
elseif p == 6 then
return 1
elseif p == 11 then
return 2
elseif p == 16 then
return 3
elseif p == 20 then
return 4
elseif p == 24 then
return 5
elseif p == 27 then
return 6
elseif p == 30 then
return 7
elseif p == 33 then
return 8
elseif p == 36 then
return 9
elseif p == 38 then
return 10
elseif p == 40 then
return 11
elseif p == 42 then
return 12
elseif p == 44 then
return 13
elseif p == 46 then
return 14
elseif p == 48 then
return 15
elseif p == 49 then
return 16
elseif p == 51 then
return 17
elseif p == 52 then
return 18
elseif p == 54 then
return 19
elseif p == 55 then
return 20
elseif p > 55 then
return 20
//========== < 0 VALUES ==========
elseif p == -5 then
return -1
elseif p == -11 then
return -2
elseif p == -16 then
return -3
elseif p == -21 then
return -4
elseif p == -26 then
return -5
elseif p == -31 then   
return -6
elseif p == -35 then
return -7
elseif p == -39 then
return -8
elseif p == -42 then
return -9
elseif p == -46 then
return -10
elseif p == -49 then
return -11
elseif p == -52 then
return -12
elseif p == -55 then
return -13
elseif p == -57 then
return -14
elseif p == -60 then
return -15
elseif p == -62 then
return -16
elseif p == -65 then
return -17
elseif p == -67 then
return -18
elseif p == -69 then
return -19
elseif p == -70 then
return -20
elseif p < -70 then
return -20
endif

//========== DETERMINATION ARMOR FOR HERO UNITS ==========

else

//========== > 0 VALUES ==========
if p == 27 then
return 0
elseif p == 30 or p == 31 then
return 1
elseif p == 34 or p == 35 then
return 2
elseif p == 37 or p == 38 then
return 3
elseif p == 40 or p == 41 then
return 4
elseif p == 43 or p == 44 then
return 5
elseif p == 45 or p == 46 then
return 6
elseif p == 47 or p == 48 then
return 7
elseif p == 49 or p == 50 then
return 8
elseif p == 51 or p == 52 then
return 9
elseif p == 53 or p == 54 then
return 10
elseif p == 55 or p == 56 then
return 11
elseif p == 57 then
return 12
elseif p == 58 or p == 59 then
return 13
elseif p == 60 then
return 14
elseif p == 61 then
return 15
elseif p == 62 or p == 63 then
return 16
elseif p == 64 then
return 17
elseif p == 65 then
return 18
elseif p == 66 then
return 19
elseif p == 67 then
return 20
elseif p > 67 then
return 20
//========== < 0 VALUES ==========
elseif p == 25 then
return -1
elseif p == 21 then
return -2
elseif p == 17 then
return -3
elseif p == 13 then
return -4
elseif p == 9 then
return -5
elseif p == 6 then
return -6
elseif p == 2 then
return -7
elseif p == -1 then
return -8
elseif p == -4 then
return -9
elseif p == -7 then
return -10
elseif p < -7 then
return -10
endif
endif

endfunction

function Computings takes nothing returns nothing
local real d = GetEventDamage()
local real p = (I2R(R2I(d))* 100)/100
local integer p2 = 100 - R2I (p)
set udg_Armor = DeterminationArmorForUnit (p2, GetTriggerUnit())
endfunction

function GetUnitArmor takes unit u returns nothing
local trigger t = CreateTrigger()
call TriggerRegisterUnitEvent (t, u, EVENT_UNIT_DAMAGED)
call TriggerAddAction (t, function Computings)
call SetWidgetLife (u, (GetUnitState(u, UNIT_STATE_LIFE) + 100) )
call UnitDamageTarget (u, u, 100, true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
call DestroyTrigger (t)
set t = null
endfunction

globals
     constant real DefenseArmor = .06
endglobals

function GetUnitArmor takes unit u returns real
     local real life = GetUnitState(u, UNIT_STATE_LIFE)
     local real damage
     local real r
     local real c

     if IsUnitType(u, UNIT_TYPE_ETHEREAL) == true then
         return -.2
     endif
     call SetUnitState(u, UNIT_STATE_LIFE, life+50.)
     call UnitDamageTarget(u, u, 10., false, false, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
     set damage = life - GetUnitState(u, UNIT_STATE_LIFE)
     call SetUnitState(u, UNIT_STATE_LIFE, life)

     set r = 1. - damage/10.
     if damage == 0. then
         return -.1
     elseif damage <= 10. then
         return r / (DefenseArmor - r*DefenseArmor)
     else
         set r = r + 1.
         set c = 1.
         loop
             exitwhen Pow(1.-DefenseArmor, c) <= r
             set c = c + 1.
         endloop
         return -c
     endif
endfunction