Regalo Codigo

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=="RYAN"
    if $game_switches[476] != true
		Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]Así que RYAN ¿huh?"))
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]¡ERES UN PUTO GENIO SI HAS DECIDIDO PONER ESTE CÓDIGO!"))
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]¡Así que aquí tienes un regalo para ti!"))
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]De parte del legendario cazabichos Ryan <3."))
        pbWait(10)
		p=PokeBattle_Pokemon.new(:CATERPIE,10,$Trainer)
        p.setAbility(0)
        p.makeMale
        p.ot="Ryan"
		p.makeMagnific
    	p.pbLearnMove(:BUGBITE)
    	p.pbLearnMove(:BRICKBREAK)
        p.giveRibbon(:BIRTHDAY)
        p.setNature(:ADAMANT)
        p.happiness=200
        p.obtainMode=4
        p.iv[1]=31
        p.iv[2]=31
        p.iv[3]=31
        p.iv[5]=31
        p.iv[0]=31
        p.obtainText=_INTL("De tierras lejanas.")
        p.trainerID=666
        p.calcStats
        pbAddPokemonSilent(p,1)
    if $Trainer.party.length<6
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]\\PN obtuvo a Caterpie!\\se[PokemonGet]\\1"))
else
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]\\PN obtuvo a Caterpie!\\se[PokemonGet]\\1"))
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]Caterpie es enviado al PC"))
end
        $game_switches[476]=true
	else
		Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]Este código ya ha sido usado."))
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]¡Sigue disfrutando del juego!"))
	end
elsif password=="Dorado"
    if $game_switches[492] != true
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]En conmemoración a la beta 2.5\\n¡Aquí tienes un regalo!"))
        p=PokeBattle_Pokemon.new(:HOOTHOOT,10,$Trainer)
        p.pbLearnMove(:NIGHTSHADE)
        p.pbLearnMove(:DEFOG)
        p.pbLearnMove(:ROOST)
        p.pbLearnMove(:AIRSLASH)
        p.makeShiny
        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.setAbility(2)
        p.calcStats
        pbAddPokemonSilent(p,1)
    if $Trainer.party.length<6
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]\\PN obtuvo un Hoothoot Dorado!\\se[PokemonGet]\\1"))
else
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]\\PN obtuvo un Hoothoot Dorado!\\se[PokemonGet]\\1"))
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]Hoothoot es enviado al PC"))
end
    $game_switches[492]=true
	else
		Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]Este código ya ha sido usado."))
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]¡Sigue disfrutando del juego!"))
	end
elsif password=="DEMO"
    if $game_switches[477] != true
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]¡Gracias por jugar la beta de Pokémon Perseida!"))
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]¡Aquí tienes un pequeño regalo para ti!"))
		p=PokeBattle_Pokemon.new(:GATIBOX,10,$Trainer)
    	p.pbLearnMove(:CAJAPANDORA)
		p.makeShiny
        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("La leyenda esta aquí")
        p.calcStats
        pbAddPokemonSilent(p,1)
    if $Trainer.party.length<6
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]\\PN obtuvo a Gatibox!\\se[PokemonGet]\\1"))
else
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]\\PN obtuvo a Gatibox!\\se[PokemonGet]\\1"))
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]Gatibox es enviado al PC"))
end
        $game_switches[477]=true
	else
		Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]Este código ya ha sido usado."))
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]¡Sigue disfrutando del juego!"))
	end
elsif password=="MPA2018"
if $game_switches[491] != true
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]En agradecimiento a todo el apoyo hacia el juego y su victoria en el MPA 2018 de WaH."))
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]¡Aquí tienes un pequeño regalo!"))
        p=PokeBattle_Pokemon.new(:SMEARGLE,10,$Trainer)
        p.pbLearnMove(:CELEBRATE)
        p.pbLearnMove(:HAPPYHOUR)
        p.pbLearnMove(:AGUJERONEGRO)
        p.pbLearnMove(:SKETCH)
        p.makeShiny
        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
        pbAddPokemonSilent(p,1)
    if $Trainer.party.length<6
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]\\PN obtuvo un Smeargle!\\se[PokemonGet]\\1"))
else
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]\\PN obtuvo a Smeargle!\\se[PokemonGet]\\1"))
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]Smeargle es enviado al PC"))
end
    $game_switches[491]=true
	else
		Kernel.pbMessage(_INTL("Este código ya ha sido usado."))
        Kernel.pbMessage(_INTL("¡Sigue disfrutando del juego!"))
	end
elsif password=="STARTER"
if $game_switches[489] != true
    badgelevel3=10
    badgelevel3=15  if $game_switches[4] #1 medalla
    badgelevel3=25  if $game_switches[6] #2 medalla
    badgelevel3=30  if $game_switches[5] #3 medalla
    badgelevel3=40  if $game_switches[7] #4 medalla
    badgelevel3=50  if $game_switches[8] #5 medalla
  command = Kernel.pbMessage("\\w¿Escoge otro pokémon inicial?", ["Herbamus","Phyraphar","Seappy"],-1)
if command == 0
 	p=PokeBattle_Pokemon.new(:HERBAMUS,badgelevel3,$Trainer)
    p.pbLearnMove(:GIGADRAIN)
elsif command == 1
	p=PokeBattle_Pokemon.new(:PYRAPHAR,badgelevel3,$Trainer)
    p.pbLearnMove(:MYSTICALFIRE)
elsif command == 2
	p=PokeBattle_Pokemon.new(:SEAPPY,badgelevel3,$Trainer)
    p.pbLearnMove(:SCALD)
end
    Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]Perdon por haber roto los iniciales, aquí tienes uno de reemplazo"))
        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
        pbAddPokemonSilent(p,1)
    if $Trainer.party.length<6
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]\\PN obtuvo un Starter!\\se[PokemonGet]\\1"))
else
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]\\PN obtuvo un Starter!\\se[PokemonGet]\\1"))
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]Tu nuevo starter es enviado al PC"))
end
    $game_switches[489]=true
	else
		Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]Este código ya ha sido usado."))
        Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]¡Sigue disfrutando del juego!"))
	end
else
Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]El código es erróneo.\\wtnp[20]"))
Kernel.pbMessage(_INTL("\\w[menuskin]\\C[8]Quizás el código se ya paso de fecha o es incorrecto."))
end