If you're patient enough for an egg, you could try the breeding center? There's one a little north of Goldenrod, and one out by Celadon.. here, let me get you their number. [Ping!!]

I'm pretty sure they have at least four or five fire types there!

"Shocking"ly good! [Cheria no, you suck at puns, don't even start.]