Take Damage (now with DR)

/me
[h:setProperty("None", 0)]
[h:input(
    "damage|0|Amount of damage or healing done",
    "reduce|DEF,SPDEF,None|Defense Type|RADIO|VALUE=STRING",
    "type|x0.25,x0.5,x0.75,x1,x1.25,x1.5,x2|Type Resistance or Weakness|LIST|SELECT=3"
)]

[h,switch(type):
    case 0: eff = 0.25;
    case 1: eff = 0.5;
    case 2: eff = 0.75;
    case 4: eff = 1.25;
    case 5: eff = 1.5;
    case 6: eff = 2;
    default: eff = 1
]

[h,if(damage<0), CODE:
{
    [h:HP = min(HP - damage,MaxHP)]
    [h,if(HP>0): setState("KO",0)]
    [h,if(HP==MaxHP): newline=add("<br>", token.name, " has been healed to full HP!"); newline=""]
    [h:message=add("has been healed for ", abs(damage), "HP!", newline)]
};
{
    [h,if(getProperty(reduce) == 0):reduction = 0; reduction = getProperty(reduce) + DR]
    [h,if(damage > 0):actualDamage = max(floor((damage-reduction)*eff), 1); actualDamage = 0]
    [h:oldInjuries = Injuries]
    [h,if(actualDamage >= NormalMaxHP/2):Injuries = Injuries + 1]
    [h:oldHPCount = ceil(HP/NormalMaxHP*2)]
    [h:HP = (HP - actualDamage)]
    [h:HPCount = ceil(HP/NormalMaxHP*2)]
    [h:Injuries = Injuries - HPCount + oldHPCount]
    [h,if(HP<1): setState("KO",1)]
    [h:message=add("has been hit with ", actualDamage, " damage!")]
    [h:injuriesTaken=Injuries-oldInjuries]
    [h,if(injuriesTaken>0):message = add(message, "<br>", token.name, " has taken ", injuriesTaken, " injuries!")]
    [h,if(Injuries<10 && HP<=-2*NormalMaxHP && HP<=-50): message = add(message, "<br>", token.name, " might be dead...")]
    [h,if(Injuries>=10):message = add(message, "<br>", token.name, " has died from injuries...")]
    [h,if(Injuries>=10):setState("KO",0)]
    [h,if(Injuries>=10):setState("Dead",1)]
}]
[h,if(Injuries>=10):setBar("Health",0);setBar("Health",HP/MaxHP)]
[r:message]