function SetUnitMaxLife takes unit u, real life returns nothing
  local real r = life - GetUnitState(u, UNIT_STATE_MAX_LIFE)
  if r > 0. then
    if r > 1000. then
      loop
        call UnitAddAbility(u, 'A005')
        call SetUnitAbilityLevel(u, 'A005', 0x05)
        call UnitRemoveAbility(u, 'A005')
        set r = r - 1000.
        exitwhen r < 1000.
      endloop
    endif
    if r > 100. then
      loop
        call UnitAddAbility(u, 'A005')
        call SetUnitAbilityLevel(u, 'A005', 0x04)
        call UnitRemoveAbility(u, 'A005')
        set r = r - 100.
        exitwhen r < 100.
      endloop
    endif
    if r > 10. then
      loop
        call UnitAddAbility(u, 'A005')
        call SetUnitAbilityLevel(u, 'A005', 0x03)
        call UnitRemoveAbility(u, 'A005')
        set r = r - 10.
        exitwhen r < 10.
      endloop
    endif
    if r > 1. then
      loop
        call UnitAddAbility(u, 'A005')
        call SetUnitAbilityLevel(u, 'A005', 0x02)
        call UnitRemoveAbility(u, 'A005')
        set r = r - 1.
        exitwhen r < 1.
      endloop
    endif
  else
    if r < -1000. then
      loop
        call UnitAddAbility(u, 'A005')
        call SetUnitAbilityLevel(u, 'A005', 0x09)
        call UnitRemoveAbility(u, 'A005')
        set r = r + 1000.
        exitwhen r > -1000.
      endloop
    endif
    if r < -100. then
      loop
        call UnitAddAbility(u, 'A005')
        call SetUnitAbilityLevel(u, 'A005', 0x08)
        call UnitRemoveAbility(u, 'A005')
        set r = r + 100.
        exitwhen r > -100.
      endloop
    endif
    if r < -10. then
      loop
        call UnitAddAbility(u, 'A005')
        call SetUnitAbilityLevel(u, 'A005', 0x07)
        call UnitRemoveAbility(u, 'A005')
        set r = r + 10.
        exitwhen r > -10.
      endloop
    endif
    if r < -1. then
      loop
        call UnitAddAbility(u, 'A005')
        call SetUnitAbilityLevel(u, 'A005', 0x06)
        call UnitRemoveAbility(u, 'A005')
        set r = r + 1.
        exitwhen r > -1.
      endloop
    endif
  endif
endfunction

function str_match takes string s_s1, string s_s2 returns boolean
local integer i_sl_1 = StringLength(s_s1)
local integer i_sl_2 = StringLength(s_s2)
local string array s_a_s1
local string array s_a_s2
local integer i_sum_words_s1=0
local integer i_sum_words_s2=0
local integer i_new_word=0
local integer i=0
local integer d=0
loop
    if SubString(s_s1, i, i+1) == "," then
        set i_sum_words_s1=i_sum_words_s1+1
        set s_a_s1[i_sum_words_s1]=SubString(s_s1, i_new_word, i)
        set i_new_word=i+2
    endif
    if i+1>=i_sl_1 then
        set i_sum_words_s1=i_sum_words_s1+1
        set s_a_s1[i_sum_words_s1]=SubString(s_s1, i_new_word, i+1)
    endif
set i=i+1
exitwhen i>=i_sl_1
endloop

set i=0
set i_new_word=0
loop
    if SubString(s_s2, i, i+1) == "," then
        set i_sum_words_s2=i_sum_words_s2+1
        set s_a_s2[i_sum_words_s2]=SubString(s_s2, i_new_word, i)
        set i_new_word=i+2
    endif
    if i+1>=i_sl_2 then
        set i_sum_words_s2=i_sum_words_s2+1
        set s_a_s2[i_sum_words_s2]=SubString(s_s2, i_new_word, i+1)
    endif
set i=i+1
exitwhen i>=i_sl_2
endloop

set d=i_sum_words_s2
loop
    loop 
        if s_a_s1[i_sum_words_s1] == s_a_s2[i_sum_words_s2] then
            return true
        endif
    set i_sum_words_s2=i_sum_words_s2-1
    exitwhen i_sum_words_s2<=0
    endloop
    set i_sum_words_s2=d
set i_sum_words_s1=i_sum_words_s1-1
exitwhen i_sum_words_s1<=0
endloop

return false

endfunction

if str_match("magic, range", "magic, melee") then
	...
endif