As I said before, I don't think there's a way to do that in FireRed at the moment. I can't find any script commands that do it, and I went through JPAN's hacked engine and couldn't find any specials that did it. It's possible that it would require ASM, but I have a very limited knowledge of assembly language. You can try posting a question in the Quick Questions forum. Somebody else might know.