Regalo Online

if $game_switches[494] != true
        Kernel.pbMessage(_INTL("En conmemoración al tercer aniversario del juego\\n¡Aquí tienes un regalo!"))
        p=PokeBattle_Pokemon.new(:POIPOLE,10,$Trainer)
        p.pbLearnMove(:CELEBRATE)
        p.pbLearnMove(:STARSTORM)
        p.pbLearnMove(:VENOSHOCK)
        p.setItem(:COMETSHARD)
        p.iv[1]=31
        p.iv[2]=31
        p.iv[3]=31
        p.iv[5]=31
        p.iv[4]=31
        p.iv[0]=31
        p.obtainText=_INTL("Evento Misterioso")
        p.calcStats
        b=PokeBattle_Pokemon.new(:METAPOD,10,$Trainer)
        b.pbLearnMove(:CELEBRATE)
        b.pbLearnMove(:STOREDPOWER)
        b.pbLearnMove(:SIGNALBEAM)
        b.pbLearnMove(:COSMICPOWER)
        b.setItem(:EVIOLITE)
        b.makeShiny
        b.iv[1]=31
        b.iv[2]=31
        b.iv[3]=31
        b.iv[5]=31
        b.iv[4]=31
        b.iv[0]=31
        b.name="Lord Cheeto"
        b.makeShiny
        b.obtainText=_INTL("Evento Misterioso")
        b.calcStats
        a=PokeBattle_Pokemon.new(:WEEDLE,10,$Trainer)
        a.pbLearnMove(:CELEBRATE)
        a.setItem(:BEEDRILLITE)
        a.iv[1]=31
        a.iv[2]=31
        a.iv[3]=31
        a.iv[5]=31
        a.iv[4]=31
        a.iv[0]=31
        a.obtainText=_INTL("Evento Misterioso")
        a.calcStats
        pbAddPokemonSilent(p,1)
        pbAddPokemonSilent(b,1)
        pbAddPokemonSilent(a,1)
        Kernel.pbMessage(_INTL("¡\\PN obtuvo un Weedle!\\se[PokemonGet]\\1"))
        Kernel.pbMessage(_INTL("\\wt[10].\\wt[10].\\wt[10].\\wt[10] ¿Que? Eso no te lo esperabas ¿eh?"))
        Kernel.pbMessage(_INTL("Va, aquí esta el bueno."))
        Kernel.pbMessage(_INTL("¡\\PN obtuvo un Metapod!\\se[PokemonGet]\\1"))
        Kernel.pbMessage(_INTL("Que noooo. Anda toma tu alíen de una vez."))
        Kernel.pbMessage(_INTL("¡\\PN obtuvo un Poipole!\\se[PokemonGet]\\1"))
        Kernel.pbMessage(_INTL("Tres años desde el nacimiento del juego, tres pokémon de regalo\\n¡Disfrútalos!"))
if $Trainer.party.length>6
        Kernel.pbMessage(_INTL("Los pokémon son enviados al PC"))
end
    $game_switches[494]=true
else
    Kernel.pbMessage(_INTL("No se encuentran mas regalos disponibles."))
    Kernel.pbMessage(_INTL("¡Sigue disfrutando del juego!"))
end