equal
deleted
inserted
replaced
1721 if (Mask and EXPLAllDamageInRadius) = 0 then |
1721 if (Mask and EXPLAllDamageInRadius) = 0 then |
1722 dmgRadius:= Radius shl 1 |
1722 dmgRadius:= Radius shl 1 |
1723 else |
1723 else |
1724 dmgRadius:= Radius; |
1724 dmgRadius:= Radius; |
1725 |
1725 |
|
1726 KickFlakes(dmgRadius, X, Y); |
|
1727 |
1726 Gear:= GearsList; |
1728 Gear:= GearsList; |
1727 while Gear <> nil do |
1729 while Gear <> nil do |
1728 begin |
1730 begin |
1729 dmg:= dmgRadius + cHHRadius div 2 - hwRound(Distance(Gear^.X - int2hwFloat(X), Gear^.Y - int2hwFloat(Y))); |
1731 dmg:= dmgRadius + cHHRadius div 2 - hwRound(Distance(Gear^.X - int2hwFloat(X), Gear^.Y - int2hwFloat(Y))); |
1730 if (dmg > 1) and |
1732 if (dmg > 1) and |