2955 else

  2955 else

  2956     Gear^.Tag:= 1;

  2956     Gear^.Tag:= 1;

  2957 Gear^.Pos:= 0;

  2957 Gear^.Pos:= 0;

  2958 AllInactive:= false;

  2958 AllInactive:= false;

  2959 FollowGear:= HHGear;

  2959 FollowGear:= HHGear;

  2962 with HHGear^ do

  2960 with HHGear^ do

  2963     begin

  2961     begin

  2964     State:= State and not gstAttacking;

  2962     State:= State and not gstAttacking;

  2965     Message:= Message and not (gm_Attack or gm_Up or gm_Precise or gm_Left or gm_Right)

  2963     Message:= Message and not (gm_Attack or gm_Up or gm_Precise or gm_Left or gm_Right)

  2966     end

  2964     end