library AddProperties
function AddHealth takes string s, integer i, unit u returns nothing
call UnitRemoveAbility(u, 'A04P')
call UnitRemoveAbility(u, 'A04Q')
call UnitRemoveAbility(u, 'A04R')
call UnitRemoveAbility(u, 'A04S')
if i == 1 then
set i = S2I(s)
call UnitAddAbility(u, 'A04P' )
call SetUnitAbilityLevel(u, 'A04P', i )
else
if i == 2 then
set i = S2I(SubString(s, 1, 1))
call UnitAddAbility( u, 'A04Q' )
call SetUnitAbilityLevel(u, 'A04Q', i )
set i = S2I(SubString(s, 2, 2))
if i > 0 then
call UnitAddAbility(u, 'A04P' )
call SetUnitAbilityLevel(u, 'A04P', i )
else
call UnitRemoveAbility( u, 'A04P' )
endif
else
if i == 3 then
set i = S2I(SubString(s, 1, 1))
call UnitAddAbility( u, 'A04R' )
call SetUnitAbilityLevel( u, 'A04R', i )
set i = S2I(SubString(s, 2, 2))
if i > 0 then
call UnitAddAbility( u, 'A04Q' )
call SetUnitAbilityLevel( u, 'A04Q', i )
else
call UnitRemoveAbility( u, 'A04Q' )
endif
set i = S2I(SubString(s, 3, 3))
if i > 0 then
call UnitAddAbility( u, 'A04P' )
call SetUnitAbilityLevel( u, 'A04P', i )
else
call UnitRemoveAbility(u, 'A04P' )
endif
else
if i == 4 then
set i = S2I(SubString(s, 1, 1))
call UnitAddAbility( u, 'A04S' )
call SetUnitAbilityLevel( u, 'A04S', i )
set i = S2I(SubString(s, 2, 2))
if i > 0 then
call UnitAddAbility( u, 'A04R' )
call SetUnitAbilityLevel( u, 'A04R', i )
else
call UnitRemoveAbility( u, 'A04R' )
endif
set i = S2I(SubString(s, 3, 3))
if i > 0 then
call UnitAddAbility( u, 'A04Q' )
call SetUnitAbilityLevel( u, 'A04Q', i )
else
call UnitRemoveAbility(u, 'A04Q' )
endif
set i = S2I(SubString(s, 4, 4))
if i > 0 then
call UnitAddAbility( u, 'A04P' )
call SetUnitAbilityLevel( u, 'A04P', i )
else
call UnitRemoveAbility(u, 'A04P' )
endif
endif
endif
endif
endif
endfunction
function AddAquaStride takes string s, integer i, unit u returns nothing
call UnitRemoveAbility(u, 'A051')
call UnitRemoveAbility(u, 'A052')
call UnitRemoveAbility(u, 'A053')
call UnitRemoveAbility(u, 'A055')
if i == 1 then
set i = S2I(s)
call UnitAddAbility(u, 'A051' )
call SetUnitAbilityLevel(u, 'A051', i )
else
if i == 2 then
set i = S2I(SubString(s, 1, 1))
call UnitAddAbility( u, 'A052' )
call SetUnitAbilityLevel(u, 'A052', i )
set i = S2I(SubString(s, 2, 2))
if i > 0 then
call UnitAddAbility(u, 'A051' )
call SetUnitAbilityLevel(u, 'A051', i )
else
call UnitRemoveAbility( u, 'A051' )
endif
else
if i == 3 then
set i = S2I(SubString(s, 1, 1))
call UnitAddAbility( u, 'A053' )
call SetUnitAbilityLevel( u, 'A053', i )
set i = S2I(SubString(s, 2, 2))
if i > 0 then
call UnitAddAbility( u, 'A052' )
call SetUnitAbilityLevel( u, 'A052', i )
else
call UnitRemoveAbility( u, 'A052' )
endif
set i = S2I(SubString(s, 3, 3))
if i > 0 then
call UnitAddAbility( u, 'A051' )
call SetUnitAbilityLevel( u, 'A051', i )
else
call UnitRemoveAbility(u, 'A051' )
endif
else
if i == 4 then
set i = S2I(SubString(s, 1, 1))
call UnitAddAbility( u, 'A055' )
call SetUnitAbilityLevel( u, 'A055', i )
set i = S2I(SubString(s, 2, 2))
if i > 0 then
call UnitAddAbility( u, 'A053' )
call SetUnitAbilityLevel( u, 'A053', i )
else
call UnitRemoveAbility( u, 'A053' )
endif
set i = S2I(SubString(s, 3, 3))
if i > 0 then
call UnitAddAbility( u, 'A052' )
call SetUnitAbilityLevel( u, 'A052', i )
else
call UnitRemoveAbility(u, 'A052' )
endif
set i = S2I(SubString(s, 4, 4))
if i > 0 then
call UnitAddAbility( u, 'A051' )
call SetUnitAbilityLevel( u, 'A051', i )
else
call UnitRemoveAbility(u, 'A051' )
endif
endif
endif
endif
endif
endfunction
endlibrary