equal
deleted
inserted
replaced
354 Gear^.State := Gear^.State and not gstMoving |
354 Gear^.State := Gear^.State and not gstMoving |
355 else |
355 else |
356 Gear^.State := Gear^.State or gstMoving; |
356 Gear^.State := Gear^.State or gstMoving; |
357 |
357 |
358 if (Gear^.nImpactSounds > 0) and |
358 if (Gear^.nImpactSounds > 0) and |
359 ((Gear^.Damage <> 0) or |
359 (((Gear^.Kind <> gtMine) and (Gear^.Damage <> 0)) or |
360 ((Gear^.State and (gstCollision or gstMoving)) = (gstCollision or gstMoving))) and |
360 ((Gear^.State and (gstCollision or gstMoving)) = (gstCollision or gstMoving))) and |
361 (((Gear^.Radius < 3) and (Gear^.dY < -_0_1)) or |
361 (((Gear^.Radius < 3) and (Gear^.dY < -_0_1)) or |
362 ((Gear^.Radius >= 3) and ((Gear^.dX.QWordValue > _0_1.QWordValue) or |
362 ((Gear^.Radius >= 3) and ((Gear^.dX.QWordValue > _0_1.QWordValue) or |
363 (Gear^.dY.QWordValue > _0_1.QWordValue)))) then |
363 (Gear^.dY.QWordValue > _0_1.QWordValue)))) then |
364 PlaySound(TSound(ord(Gear^.ImpactSound) + LongInt(GetRandom(Gear^.nImpactSounds))), true); |
364 PlaySound(TSound(ord(Gear^.ImpactSound) + LongInt(GetRandom(Gear^.nImpactSounds))), true); |