hedgewars/uGearsUtils.pas
changeset 11477 c55b3e09a04e
parent 11197 283b6e6cf7ea
child 11482 e425a6eb9da3
--- a/hedgewars/uGearsUtils.pas	Wed Dec 30 15:26:25 2015 -0500
+++ b/hedgewars/uGearsUtils.pas	Wed Dec 30 23:20:57 2015 -0500
@@ -1074,7 +1074,7 @@
                     if r-hwRound(dx+dy) > 0 then
                         begin
                         dist:= hwRound(Distance(dx, dy));
-                        dmg:= ModifyDamage(min(r - dist, 25), t);
+                        dmg:= ModifyDamage(min(r - dist, Gear^.Boom), t);
                         end;
                     if dmg > 0 then
                         begin
@@ -1102,7 +1102,7 @@
                     if r-hwRound(dx+dy) > 0 then
                         begin
                         dist:= hwRound(Distance(dx, dy));
-                        dmg:= ModifyDamage(min(r - dist, 25), t);
+                        dmg:= ModifyDamage(min(r - dist, Gear^.Boom), t);
                         end;
                     if dmg > 0 then
                         begin