equal
deleted
inserted
replaced
240 Gear^.State:= Gear^.State or gstMoving; |
240 Gear^.State:= Gear^.State or gstMoving; |
241 |
241 |
242 if (Gear^.nImpactSounds > 0) then |
242 if (Gear^.nImpactSounds > 0) then |
243 if ((Gear^.Damage <> 0) or ((Gear^.State and (gstCollision or gstMoving)) = (gstCollision or gstMoving))) and |
243 if ((Gear^.Damage <> 0) or ((Gear^.State and (gstCollision or gstMoving)) = (gstCollision or gstMoving))) and |
244 ((Gear^.dX.QWordValue > _0_1.QWordValue) or (Gear^.dY.QWordValue > _0_1.QWordValue)) then |
244 ((Gear^.dX.QWordValue > _0_1.QWordValue) or (Gear^.dY.QWordValue > _0_1.QWordValue)) then |
245 PlaySound(TSound(ord(Gear^.ImpactSound) + GetRandom(Gear^.nImpactSounds))); |
245 PlaySound(TSound(ord(Gear^.ImpactSound) + LongInt(GetRandom(Gear^.nImpactSounds)))); |
246 end; |
246 end; |
247 |
247 |
248 //////////////////////////////////////////////////////////////////////////////// |
248 //////////////////////////////////////////////////////////////////////////////// |
249 procedure doStepBomb(Gear: PGear); |
249 procedure doStepBomb(Gear: PGear); |
250 var i, x, y: LongInt; |
250 var i, x, y: LongInt; |