hedgewars/uGearsUtils.pas
changeset 9561 aab34634a17b
parent 9557 a5005b7ca305
child 9685 7d925e82e572
equal deleted inserted replaced
9559:b03ade7ed721 9561:aab34634a17b
  1244             begin
  1244             begin
  1245             RightImpactTimer:= 333;
  1245             RightImpactTimer:= 333;
  1246             Gear^.dX.isNegative:= true;
  1246             Gear^.dX.isNegative:= true;
  1247             Gear^.X:= int2hwfloat(rightX-Gear^.Radius)
  1247             Gear^.X:= int2hwfloat(rightX-Gear^.Radius)
  1248             end;
  1248             end;
  1249         PlaySound(sndMelonImpact);
  1249         if (Gear^.Radius > 2) and (Gear^.dX.QWordValue > _0_001.QWordValue) then
       
  1250             PlaySound(sndMelonImpact)
  1250         end
  1251         end
  1251     else if WorldEdge = weSea then
  1252     else if WorldEdge = weSea then
  1252         begin
  1253         begin
  1253         if (hwRound(Gear^.Y) > cWaterLine) and (Gear^.State and gstSubmersible <> 0) then
  1254         if (hwRound(Gear^.Y) > cWaterLine) and (Gear^.State and gstSubmersible <> 0) then
  1254             Gear^.State:= Gear^.State and not gstSubmersible
  1255             Gear^.State:= Gear^.State and not gstSubmersible