554             if dmg > 0 then

   554             if dmg > 0 then

   555                 begin

   555                 begin

   556                 pX:= Point.x;

   556                 pX:= Point.x;

   557                 pY:= Point.y;

   557                 pY:= Point.y;

   558                 fallDmg:= 0;

   558                 fallDmg:= 0;

   559                 if (Flags and afTrackFall <> 0) and (Score > 0) and (dmg < Score) then

   560                 if (Flags and afTrackFall <> 0) and (Score > 0) and (dmg < Score) then

   560                     begin

   561                     begin

   561                     dX:= (0.005 * dmg + 0.01) / Density;

   562                     dX:= (0.005 * dmg + 0.01) / Density;

   562                     dY:= dX;

   563                     dY:= dX;

   563                     if (Kind = gtExplosives) and (State and gstTmpFlag = 0) and

   564                     if (Kind = gtExplosives) and (State and gstTmpFlag = 0) and

   739                 dmg:= min(baseDmg - trunc(sqrt(sqr(Point.x - x)+sqr(Point.y - y))), 25);

   740                 dmg:= min(baseDmg - trunc(sqrt(sqr(Point.x - x)+sqr(Point.y - y))), 25);

   740                 dmg:= trunc(dmg * dmgMod);

   741                 dmg:= trunc(dmg * dmgMod);

   741                 end;

   742                 end;

   742             if dmg > 0 then

   743             if dmg > 0 then

   743                 begin

   744                 begin

   744                 if (not dead) and (Score > 0) and (dmg < Score) then

   748                 if (not dead) and (Score > 0) and (dmg < Score) then

   745                     begin

   749                     begin

   748                     dX:= gdX * dmg / Density;

   750                     dX:= gdX * dmg / Density;

   749                     dY:= gdY * dmg / Density;

   751                     dY:= gdY * dmg / Density;

   750                     if dX < 0 then dX:= dX - 0.01

   752                     if dX < 0 then dX:= dX - 0.01

   751                     else dX:= dX + 0.01;

   753                     else dX:= dX + 0.01;

   752                     if (Kind = gtExplosives) and (State and gstTmpFlag = 0) and

   754                     if (Kind = gtExplosives) and (State and gstTmpFlag = 0) and