hedgewars/uGearsHandlersMess.pas
changeset 14937 896707084562
parent 14936 d6a8ef85cf53
child 14955 088c1d319612
equal deleted inserted replaced
14936:d6a8ef85cf53 14937:896707084562
  2562                 Gear^.dY := _0
  2562                 Gear^.dY := _0
  2563             else if Gear^.dY < - _0_03 then
  2563             else if Gear^.dY < - _0_03 then
  2564                 PlaySound(Gear^.ImpactSound);
  2564                 PlaySound(Gear^.ImpactSound);
  2565             end;
  2565             end;
  2566         CheckGearDrowning(Gear);
  2566         CheckGearDrowning(Gear);
       
  2567         if ((Gear^.State and gstDrowning) <> 0) then
       
  2568             Gear^.RenderHealth:= false;
  2567         end;
  2569         end;
  2568 
  2570 
  2569     if (Gear^.dY.QWordValue = 0) then
  2571     if (Gear^.dY.QWordValue = 0) then
  2570         AddCI(Gear)
  2572         AddCI(Gear)
  2571     else if (Gear^.dY.QWordValue <> 0) then
  2573     else if (Gear^.dY.QWordValue <> 0) then