En fire red se puede. Se hace con un Trainerbattle "especial" En ruby no sé... Pero mirá el script de la batalla contra Gary.
BUSCA LA PARTE QURE ES ALGO ASÍ:

trainerbattle 0 x 0x 0x 0x
Goto @snipet3 o snipet4

Saludos.