equal
deleted
inserted
replaced
562 (Gear^.State and gstCollision <> 0) and |
562 (Gear^.State and gstCollision <> 0) and |
563 (((Gear^.Kind <> gtMine) and (Gear^.Damage <> 0)) or (Gear^.State and gstMoving <> 0)) and |
563 (((Gear^.Kind <> gtMine) and (Gear^.Damage <> 0)) or (Gear^.State and gstMoving <> 0)) and |
564 (((Gear^.Radius < 3) and (Gear^.dY < -_0_1)) or |
564 (((Gear^.Radius < 3) and (Gear^.dY < -_0_1)) or |
565 ((Gear^.Radius >= 3) and |
565 ((Gear^.Radius >= 3) and |
566 ((Gear^.dX.QWordValue > _0_1.QWordValue) or (Gear^.dY.QWordValue > _0_1.QWordValue)))) then |
566 ((Gear^.dX.QWordValue > _0_1.QWordValue) or (Gear^.dY.QWordValue > _0_1.QWordValue)))) then |
567 PlaySound(TSound(ord(Gear^.ImpactSound) + LongInt(GetRandom(Gear^.nImpactSounds))), true); |
567 PlaySound(TSound(ord(Gear^.ImpactSound) + LongInt(GetRandom(Gear^.nImpactSounds))), Gear^.Kind <> gtDynamite); |
568 end; |
568 end; |
569 |
569 |
570 //////////////////////////////////////////////////////////////////////////////// |
570 //////////////////////////////////////////////////////////////////////////////// |
571 procedure doStepBomb(Gear: PGear); |
571 procedure doStepBomb(Gear: PGear); |
572 var |
572 var |