hedgewars/uGearsUtils.pas
branchwebgl
changeset 9160 fc46e75f6b72
parent 9127 e350500c4edb
parent 9149 6790f1938cd9
child 9521 8054d9d775fd
--- a/hedgewars/uGearsUtils.pas	Tue Jun 04 23:56:17 2013 +0200
+++ b/hedgewars/uGearsUtils.pas	Sun Jun 09 12:22:53 2013 +0200
@@ -183,9 +183,9 @@
 if (CurrentHedgehog <> nil) and CurrentHedgehog^.King then
     i:= _1_5;
 if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.King or (Gear^.Hedgehog^.Effects[heFrozen] > 0)) then
-    ModifyDamage:= hwRound(_0_01 * cDamageModifier * dmg * i * cDamagePercent * _0_5)
+    ModifyDamage:= hwRound(cDamageModifier * dmg * i * cDamagePercent * _0_5 * _0_01)
 else
-    ModifyDamage:= hwRound(_0_01 * cDamageModifier * dmg * i * cDamagePercent)
+    ModifyDamage:= hwRound(cDamageModifier * dmg * i * cDamagePercent * _0_01)
 end;
 
 procedure ApplyDamage(Gear: PGear; AttackerHog: PHedgehog; Damage: Longword; Source: TDamageSource);