955     or (CheckGearDrowning(HHGear))

   955     or (CheckGearDrowning(HHGear))

   956     or TestCollisionYwithGear(HHGear, 1) then

   956     or TestCollisionYwithGear(HHGear, 1) then

   957     begin

   957     begin

   958     DeleteGear(Gear);

   958     DeleteGear(Gear);

   959     isCursorVisible:= false;

   959     isCursorVisible:= false;

   960     exit

   961     exit

   961     end;

   962     end;

   962 

   963 

   963 HedgehogChAngle(HHGear);

   964 HedgehogChAngle(HHGear);

   964 

   965 

  1775         dY:= _0;

  1776         dY:= _0;

  1776         State:= State or gstMoving;

  1777         State:= State or gstMoving;

  1777         end;

  1778         end;

  1778     DeleteGear(Gear);

  1779     DeleteGear(Gear);

  1779     isCursorVisible:= false;

  1780     isCursorVisible:= false;

  1780     exit

  1782     exit

  1781     end;

  1783     end;

  1782 

  1784 

  1783 if not TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then

  1785 if not TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then

  1784     HHGear^.X:= HHGear^.X + cWindSpeed * 200;

  1786     HHGear^.X:= HHGear^.X + cWindSpeed * 200;

  2749         Active:= true;

  2751         Active:= true;

  2750         State:= State or gstMoving

  2752         State:= State or gstMoving

  2751         end;

  2753         end;

  2752     DeleteGear(Gear);

  2754     DeleteGear(Gear);

  2753     isCursorVisible:= false;

  2755     isCursorVisible:= false;

  2754 //    if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);

  2757 //    if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);

  2755 //    Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', cWhiteColor, fntSmall)

  2758 //    Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', cWhiteColor, fntSmall)

  2756     //AddCaption(trmsg[sidFuel]+': '+inttostr(round(Gear^.Health/20))+'%', cWhiteColor, capgrpAmmostate);

  2759     //AddCaption(trmsg[sidFuel]+': '+inttostr(round(Gear^.Health/20))+'%', cWhiteColor, capgrpAmmostate);

  2757     end

  2760     end

  2758 end;

  2761 end;