Fixes #5699

It's either this or change random Next() to silently ignore incorrect arguments.
We should only try to add to the cell if `resLayer.GetResourceDensity(cell) < resourceType.Info.Max`. This max(1, ...) thing is obfuscating the real logic.