2233 HHGear^.Message:= HHGear^.Message and not (gm_Up or gm_Precise or gm_Left or gm_Right);

  2233 HHGear^.Message:= HHGear^.Message and not (gm_Up or gm_Precise or gm_Left or gm_Right);

  2234 HHGear^.State:= HHGear^.State or gstMoving; 

  2234 HHGear^.State:= HHGear^.State or gstMoving; 

  2235 

  2235 

  2236 Gear^.X:= HHGear^.X;

  2236 Gear^.X:= HHGear^.X;

  2237 Gear^.Y:= HHGear^.Y;

  2237 Gear^.Y:= HHGear^.Y;

  2238 doStepHedgehogMoving(HHGear);

  2240 doStepHedgehogMoving(HHGear);

  2239 

  2241 

  2240 if  (Gear^.Health = 0)

  2242 if  (Gear^.Health = 0)

  2241     or (HHGear^.Damage <> 0)

  2243     or (HHGear^.Damage <> 0)

  2242 	or CheckGearDrowning(HHGear)

  2244 	or CheckGearDrowning(HHGear)