equal
deleted
inserted
replaced
1716 |
1716 |
1717 doStepFallingGear(Gear); |
1717 doStepFallingGear(Gear); |
1718 if (Gear^.State and gstCollision) <> 0 then |
1718 if (Gear^.State and gstCollision) <> 0 then |
1719 begin |
1719 begin |
1720 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound); |
1720 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound); |
1721 soundFadeOut(sndMortar,10,nil); |
|
1722 |
1721 |
1723 Gear^.dX.isNegative:= not dxn; |
1722 Gear^.dX.isNegative:= not dxn; |
1724 Gear^.dY.isNegative:= not dyn; |
1723 Gear^.dY.isNegative:= not dyn; |
1725 for i:= 0 to 4 do |
1724 for i:= 0 to 4 do |
1726 begin |
1725 begin |