equal
deleted
inserted
replaced
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 dX:= 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 |
|
745 fallDmg:= 0; |
|
746 pX:= Point.x; |
|
747 pY:= Point.y; |
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 |
746 pX:= Point.x; |
|
747 pY:= Point.y; |
|
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 |