I don't think anyone has made one yet. You could try e-mailing loadingnow. His adress is in his ruby/sapphire/fire red/leaf green AR code guides. While you are talking to him, could you ask him to make AR codes for all the moves and all of the abilities, rather than just pickup?
I LOVE MISSINGNO! I LOVE SCREWING UP MY FILE DATA! I LOVE FREEZING THE GAME! I LOVE BAD EGGS! I LOVE SHINY HACKS! I LOVE ACTION REPLAYS! I LOVE ANY KIND OF GLITCH!