--- a/hedgewars/uVisualGears.pas	Thu Oct 14 16:01:43 2010 +0200
+++ b/hedgewars/uVisualGears.pas	Thu Oct 14 22:01:33 2010 +0200
@@ -370,7 +370,7 @@
       if Gear^.Kind = vgtFlake then
           begin
           // Damage calc from doMakeExplosion
-          dmg:= min(101,Radius  + cHHRadius div 2 - (round(abs(Gear^.X - float(X))+abs(Gear^.Y - float(Y))) div 5));
+          dmg:= min(101, int64(Radius) + cHHRadius div 2 - (round(abs(Gear^.X - float(X))+abs(Gear^.Y - float(Y))) div 5));
           if dmg > 1 then
               begin
               Gear^.tdX:= 0.02 * dmg + 0.01;