Item that forces evolution

•Destiny™ · Dec 29, 2014

Guys Is it possible to do an item that force the evolutions of a Pokemon?

mej71 · Dec 29, 2014

Yep, look at how the stones work

Code:

ItemHandlers::UseOnPokemon.add(:FIRESTONE,proc{|item,pokemon,scene|
   if (pokemon.isShadow? rescue false)
     scene.pbDisplay(_INTL("It won't have any effect."))
     next false
   end
   newspecies=pbCheckEvolution(pokemon,item)
   if newspecies<=0
     scene.pbDisplay(_INTL("It won't have any effect."))
     next false
   else
     pbFadeOutInWithMusic(99999){
        evo=PokemonEvolutionScene.new
        evo.pbStartScreen(pokemon,newspecies)
        evo.pbEvolution(false)
        evo.pbEndScreen
        scene.pbRefreshAnnotations(proc{|p| pbCheckEvolution(p,item)>0 })
        scene.pbRefresh
     }
     next true
   end
})

ItemHandlers::UseOnPokemon.copy(:FIRESTONE,
   :THUNDERSTONE,:WATERSTONE,:LEAFSTONE,:MOONSTONE,
   :SUNSTONE,:DUSKSTONE,:DAWNSTONE,:SHINYSTONE[COLOR="Red"],:YOURITEMHERE[/COLOR])

•Destiny™ · Dec 30, 2014

mej71 said:

Yep, look at how the stones work

Code:

ItemHandlers::UseOnPokemon.add(:FIRESTONE,proc{|item,pokemon,scene|
   if (pokemon.isShadow? rescue false)
     scene.pbDisplay(_INTL("It won't have any effect."))
     next false
   end
   newspecies=pbCheckEvolution(pokemon,item)
   if newspecies<=0
     scene.pbDisplay(_INTL("It won't have any effect."))
     next false
   else
     pbFadeOutInWithMusic(99999){
        evo=PokemonEvolutionScene.new
        evo.pbStartScreen(pokemon,newspecies)
        evo.pbEvolution(false)
        evo.pbEndScreen
        scene.pbRefreshAnnotations(proc{|p| pbCheckEvolution(p,item)>0 })
        scene.pbRefresh
     }
     next true
   end
})

ItemHandlers::UseOnPokemon.copy(:FIRESTONE,
   :THUNDERSTONE,:WATERSTONE,:LEAFSTONE,:MOONSTONE,
   :SUNSTONE,:DUSKSTONE,:DAWNSTONE,:SHINYSTONE[COLOR="Red"],:YOURITEMHERE[/COLOR])

I would do an item that force the evolution and devolution (?) of all pokemon :D Can you help me?

Radical Raptr · Dec 30, 2014

Do the same thing as before but also, on every pokemon you want to "devolve" change the evolution part in the pokemon.txt to "evolve" int the desired pokemon via the aforementioned item.

mej71 · Dec 30, 2014

You could also put these codes I made to use but as an item effect
http://www.pokecommunity.com/showthread.php?t=338244

•Destiny™ · Dec 30, 2014

i tried to do an item that force the evolutions of all pokemon. I modified the fire stone. Here is the script:
ItemHandlers::UseOnPokemon.add(:FIRESTONE,proc{|item,pokemon,scene|
if (pokemon.isShadow? rescue false)
scene.pbDisplay(_INTL("It won't have any effect."))
next false
end
if newspecies<=0
scene.pbDisplay(_INTL("It won't have any effect."))
next false
else
pbFadeOutInWithMusic(99999){
evo=PokemonEvolutionScene.new
evo.pbStartScreen(pokemon,newspecies)
evo.pbEvolution
evo.pbEndScreen
}
next true
end
It gave me an error...

---------------------------
Pokemon Essentials
---------------------------
Exception: NameError

Message: undefined local variable or method `newspecies' for nil:NilClass

PokemonItemEffects:144

PokemonItemEffects:139:in `call'

PBEvent:150:in `trigger'

PokemonItems:196:in `triggerUseOnPokemon'

PokemonItems:517:in `pbUseItem'

PokemonItems:509:in `loop'

PokemonItems:531:in `pbUseItem'

PokemonItems:505:in `pbFadeOutIn'

PokemonItems:505:in `pbUseItem'

PokemonBag:695:in `pbStartScreen'

This exception was logged in

C:\Users\Utente\Saved Games/Pokemon Essentials/errorlog.txt.

Press Ctrl+C to copy this message to the clipboard.
---------------------------
OK
---------------------------

I also tried to do an item that decrease the level of pokemon of one unit, but when I choose it from the bag doesn't appear the option "use"

ItemHandlers::UseOnPokemon.add(:MYSTERYCANDY,proc{|item,pokemon,scene|
if pokemon.level<=PBExperience::MINLEVEL || (pokemon.isShadow? rescue false)
scene.pbDisplay(_INTL("It won't have any effect."))
next false
else
pbChangeLevel(pokemon,pokemon.level-1,scene)
scene.pbHardRefresh
next true
end

(I don't know if "MINLEVEL" EXIST AHAH )

Zeak6464 · Dec 30, 2014

Force Evolve

Code:

def pbForceEvo(pokemon)
  for form in pbGetEvolvedFormData(pokemon.species)
    newspecies=form[2]
  end
  return if !newspecies
  if newspecies>0
    evo=PokemonEvolutionScene.new
    evo.pbStartScreen(pokemon,newspecies)
    evo.pbEvolution
    evo.pbEndScreen
  end
end

Force DeEvolve

Code:

def pbForceDeEvo(pokemon)
  for form in pbGetEvolvedFormData(pokemon.species)
    newspecies=form[1]
  end
  return if !newspecies
  if newspecies>0
    evo=PokemonEvolutionScene.new
    evo.pbStartScreen(pokemon,newspecies)
    evo.pbEvolution
    evo.pbEndScreen
  end
end

davidbuddy9 · Dec 30, 2014

mej71 said:

Yep, look at how the stones work

Code:

ItemHandlers::UseOnPokemon.add(:FIRESTONE,proc{|item,pokemon,scene|
   if (pokemon.isShadow? rescue false)
     scene.pbDisplay(_INTL("It won't have any effect."))
     next false
   end
   newspecies=pbCheckEvolution(pokemon,item)
   if newspecies<=0
     scene.pbDisplay(_INTL("It won't have any effect."))
     next false
   else
     pbFadeOutInWithMusic(99999){
        evo=PokemonEvolutionScene.new
        evo.pbStartScreen(pokemon,newspecies)
        evo.pbEvolution(false)
        evo.pbEndScreen
        scene.pbRefreshAnnotations(proc{|p| pbCheckEvolution(p,item)>0 })
        scene.pbRefresh
     }
     next true
   end
})

ItemHandlers::UseOnPokemon.copy(:FIRESTONE,
   :THUNDERSTONE,:WATERSTONE,:LEAFSTONE,:MOONSTONE,
   :SUNSTONE,:DUSKSTONE,:DAWNSTONE,:SHINYSTONE[COLOR="Red"],:YOURITEMHERE[/COLOR])

What script section is this in? I have problems with adding new evolutionary items myself. In the bag I'm not seeing the "Use" option and I have selected "Use on a Pokemon" in the editor for the item and for the pokemon I set it to evolve to item, and the item I specified.

Item that forces evolution

More options

•Destiny™

mej71

•Destiny™

Radical Raptr

#BAMFPokemonNerd

mej71

•Destiny™

Zeak6464

Zeak #3205 - Discord

davidbuddy9