726 /** Learn the price of refitting a certain engine

   727 * @param engine Which engine to refit

   728 * @return Price for refitting

   729 */

   730 int32 GetRefitCost(EngineID engine_type)

   731 {

   732 	int32 base_cost;

   733 

   734 	switch (GetEngine(engine_type)->type) {

   735 		case VEH_Ship: base_cost = _price.ship_base; break;

   736 		case VEH_Road: base_cost = _price.roadveh_base; break;

   737 		case VEH_Aircraft: base_cost = _price.aircraft_base; break;

   738 		case VEH_Train:

   739 			base_cost = 2 * ((RailVehInfo(engine_type)->flags & RVI_WAGON) ?

   740 							 _price.build_railwagon : _price.build_railvehicle);

   741 			break;

   742 		default: NOT_REACHED(); break;

   743 	}

   744 	return (EngInfo(engine_type)->refit_cost * base_cost) >> 10;

   745 }