IF
StatusApplied((CHARACTER)_Target, "HARM", _,_)
AND
GetMaxHitpoints(_Target, _MaxHP)
AND
GetHitpoints(_Target, _CurrentHP)
AND
Random(71, _HarmDice)
AND
IntegerSum(_HarmDice,13,_HarmDamage)
AND
_CurrentHP > _HarmDamage
AND
IntegerSubtract(_CurrentHP, _HarmDamage, _CurrentHPToHarm)
AND
IntegerSubtract(_MaxHP,_HarmDamage,_NewMaxHP)
AND
GetHitpointsPercentage(_Target, _CurrentHPPercentageReal)
THEN
ApplyDamage(_Target,_HarmDamage,"Necrotic",_Target)
