Se genera un cry aleatorio cuando se toca enter, por lo que podrías cambiar esta línea:
cry=pbCryFile(1+rand(PBSpecies.maxValue))
por:
cry=pbCryFile(25)
Para reproducir el grito de Pikachu. O borrar esa línea y editar la siguiente:
pbSEPlay(cry,80,100) if cry
para que sea así...