255         HH^.Gear^.Active:= false;

   255         HH^.Gear^.Active:= false;

   256         State:= State and (not (gstHHDriven or gstAttacking or gstAttacked));

   256         State:= State and (not (gstHHDriven or gstAttacking or gstAttacked));

   257         Message := Message and (not gmAttack);

   257         Message := Message and (not gmAttack);

   258     end;

   258     end;

   259     HH^.GearHidden:= HH^.Gear;

   259     HH^.GearHidden:= HH^.Gear;

   261 end;

   262 end;

   262 

   263 

   263 

   264 

   264 ////////////////////////////////////////////////////////////////////////////////

   265 ////////////////////////////////////////////////////////////////////////////////

   265 procedure doStepDrowningGear(Gear: PGear);

   266 procedure doStepDrowningGear(Gear: PGear);