FR: Could be nice with a ITechTree :: HasProducer, taken uint id as argument

[valsted]

Currently UnitTypeData is only was as far as I can tell? :)