182 i:= _1;

   182 i:= _1;

   183 if (CurrentHedgehog <> nil) and CurrentHedgehog^.King then

   183 if (CurrentHedgehog <> nil) and CurrentHedgehog^.King then

   184     i:= _1_5;

   184     i:= _1_5;

   185 if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.King or (Gear^.Hedgehog^.Effects[heFrozen] > 0)) then

   185 if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.King or (Gear^.Hedgehog^.Effects[heFrozen] > 0)) then

   186     ModifyDamage:= hwRound(cDamageModifier * dmg * i * cDamagePercent * _0_5 * _0_01)

   186     ModifyDamage:= hwRound(cDamageModifier * dmg * i * cDamagePercent * _0_5 * _0_01)

   188     ModifyDamage:= hwRound(cDamageModifier * dmg * i * cDamagePercent * _0_01)

   188     ModifyDamage:= hwRound(cDamageModifier * dmg * i * cDamagePercent * _0_01)

   189 end;

   189 end;

   190 

   190 

   191 procedure ApplyDamage(Gear: PGear; AttackerHog: PHedgehog; Damage: Longword; Source: TDamageSource);

   191 procedure ApplyDamage(Gear: PGear; AttackerHog: PHedgehog; Damage: Longword; Source: TDamageSource);

   192 var s: shortstring;

   192 var s: shortstring;