equal
deleted
inserted
replaced
1611 |
1611 |
1612 doStepFallingGear(Gear); |
1612 doStepFallingGear(Gear); |
1613 if (Gear^.State and gstCollision) <> 0 then |
1613 if (Gear^.State and gstCollision) <> 0 then |
1614 begin |
1614 begin |
1615 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound); |
1615 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound); |
|
1616 soundFadeOut(sndMortar,10,nil); |
1616 |
1617 |
1617 Gear^.dX.isNegative:= not dxn; |
1618 Gear^.dX.isNegative:= not dxn; |
1618 Gear^.dY.isNegative:= not dyn; |
1619 Gear^.dY.isNegative:= not dyn; |
1619 for i:= 0 to 4 do |
1620 for i:= 0 to 4 do |
1620 begin |
1621 begin |