715 if ((HHGear^.State and gstHHDriven) = 0)

   715 if ((HHGear^.State and gstHHDriven) = 0)

   716 	or (CheckGearDrowning(HHGear))

   716 	or (CheckGearDrowning(HHGear))

   717 	or TestCollisionYwithGear(HHGear, 1) then

   717 	or TestCollisionYwithGear(HHGear, 1) then

   718 	begin

   718 	begin

   719 	DeleteGear(Gear);

   719 	DeleteGear(Gear);

   720 	exit

   721 	exit

   721 	end;

   722 	end;

   722 

   723 

   723 HedgehogChAngle(HHGear);

   724 HedgehogChAngle(HHGear);

   724 

   725 

  1307 		SetLittle(dX);

  1308 		SetLittle(dX);

  1308 		dY:= _0;

  1309 		dY:= _0;

  1309 		State:= State or gstMoving;

  1310 		State:= State or gstMoving;

  1310 		end;

  1311 		end;

  1311 	DeleteGear(Gear);

  1312 	DeleteGear(Gear);

  1312 	exit

  1314 	exit

  1313 	end;

  1315 	end;

  1314 

  1316 

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

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

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

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