1273     if Gear^.Damage <> 0 then PlaySound(sndGraveImpact);

  1273     if Gear^.Damage <> 0 then PlaySound(sndGraveImpact);

  1274     doStepFallingGear(Gear);

  1274     doStepFallingGear(Gear);

  1275     CalcRotationDirAngle(Gear);

  1275     CalcRotationDirAngle(Gear);

  1276     CheckGearDrowning(Gear)

  1276     CheckGearDrowning(Gear)

  1277     end

  1277     end

  1279 (*

  1283 (*

  1280 Attempt to make a barrel knock itself over an edge.  Would need more checks to avoid issues like burn damage

  1284 Attempt to make a barrel knock itself over an edge.  Would need more checks to avoid issues like burn damage

  1281     begin

  1285     begin

  1282     x:= hwRound(Gear^.X);

  1286     x:= hwRound(Gear^.X);

  1283     y:= hwRound(Gear^.Y);

  1287     y:= hwRound(Gear^.Y);