RegaloMisterioso

password=pbEnterText(_INTL("Inserta tu código."),0,12)
Kernel.pbMessage(_INTL("Vale, déjame comprobar si este código es correcto.\\wt[10].\\wt[10].\\wt[10] \\wt[10].\\wt[10].\\wt[10].\\wtnp[10]"))
if password=="VERDORBE"
  if !$game_switches[500]
    Kernel.pbMessage(_INTL("¡Código Correcto!"))
    Kernel.pbMessage(_INTL("¡Aquí tienes un regalo para ti!"))
    pbWait(10)
    p=PokeBattle_Pokemon.new(:SEWADDLE,10,$Trainer)
    p.setAbility(1)
    p.ot="Leavanny"
    p.pbLearnMove(:BUGBITE)
    p.pbLearnMove(:RAZORLEAF)
    p.giveRibbon(:BIRTHDAY)
    p.setNature(:ADAMANT)
    p.happiness=0
    p.obtainMode=4
    p.iv[1]=32
    p.iv[2]=32
    p.iv[3]=32
    p.iv[4]=32
    p.iv[5]=32
    p.iv[0]=32
    p.ev[1]=252
    p.ev[2]=252
    p.ev[3]=252
    p.ev[4]=252
    p.ev[5]=252
    p.ev[0]=252
    p.obtainText=_INTL("Hijo de la Leavanny Suprema.")
    p.trainerID=0
    p.calcStats
    pbAddPokemonSilent(p,1)
    Kernel.pbMessage(_INTL("\\PN obtuvo al Sewaddle Supremo!\\se[PokemonGet]\\1"))
    $game_switches[500]=true
    else
        Kernel.pbMessage(_INTL("Este código ya ha sido usado."))
    Kernel.pbMessage(_INTL("¡Sigue disfrutando del juego!"))
    end
elsif password=="DEMO"
  if $game_switches[501] != true
    Kernel.pbMessage(_INTL("¡Gracias por jugar la demo de Pokémon Ventisca!"))
    Kernel.pbMessage(_INTL("¡Aquí tienes un regalo para ti!"))
        Kernel.pbReceiveItem(PBItems::ULTRABALL,10)
    Kernel.pbReceiveItem(PBItems::RARECANDY,50)
    Kernel.pbMessage(_INTL("¡Que disfrutes el Postgame!"))
    $game_switches[501]=true
    else
        Kernel.pbMessage(_INTL("Este código ya ha sido usado."))
    Kernel.pbMessage(_INTL("¡Sigue disfrutando del juego!"))
    end
else
  Kernel.pbMessage(_INTL("El código es erróneo.\\wtnp[20]"))
  Kernel.pbMessage(_INTL("Quizás el código se ya pasó de fecha o es incorrecto."))
end