New Items ! [9/21/19]

[Zeak6464]

These are new items that can be added to your game !

Force Stone - Force Evolution
DeForece Stone - DeForce Evolution
Random Stone - Evolve a pokemon to a Random Pokemon
Shine Stone - Can evolve a pokemon or make it shiny
Alolan Flower - Changes a pokemon's form to Alolan form

ItemHandlers::UseOnPokemon.add(:FORCESTONE,proc{|item,pokemon,scene|
 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
     next true
})


ItemHandlers::UseOnPokemon.add(:RANDOMSTONE,proc{|item,pokemon,scene|
 for form in pbGetEvolvedFormData(pokemon.species)
    newspecies=form[2]
  end
  return if !newspecies
  if newspecies>0
    evo=PokemonEvolutionScene.new
    newspecies = rand(810)
    evo.pbStartScreen(pokemon,newspecies)
    evo.pbEvolution
    evo.pbEndScreen
  end
     next true
})

ItemHandlers::UseOnPokemon.add(:DEFORCESTONE,proc{|item,pokemon,scene|
  newspecies=pbGetBabySpecies(pokemon.species)
  return if !newspecies
  return if newspecies==pokemon.species
  if newspecies>0
    evo=PokemonEvolutionScene.new
    evo.pbStartScreen(pokemon,newspecies)
    evo.pbEvolution
    evo.pbEndScreen
  end
     next true
})

ItemHandlers::UseOnPokemon.add(:SHINESTONE,proc{|item,pokemon,scene|
   if (pokemon.isShiny? rescue false)
     scene.pbDisplay(_INTL("It won't make this pokemon shiny."))
     next false
   end
      pokemon.makeShiny
      scene.pbRefresh
      scene.pbDisplay(_INTL("{1} is different now!",pokemon.name))
    next true
})

ItemHandlers::UseOnPokemon.add(:ALOLANFLOWER,proc{|item,pokemon,scene|
   if (isConst?(pokemon.species,PBSpecies,:RATTATA) ||
       isConst?(pokemon.species,PBSpecies,:RATICATE) ||
       isConst?(pokemon.species,PBSpecies,:RAICHU) ||
       isConst?(pokemon.species,PBSpecies,:SANDSHREW) ||
       isConst?(pokemon.species,PBSpecies,:SANDSLASH) ||
       isConst?(pokemon.species,PBSpecies,:VULPIX) ||
       isConst?(pokemon.species,PBSpecies,:NINETAILS) ||
       isConst?(pokemon.species,PBSpecies,:DIGLETT) ||
       isConst?(pokemon.species,PBSpecies,:DUGTRIO) ||
       isConst?(pokemon.species,PBSpecies,:MEOWTH) ||
       isConst?(pokemon.species,PBSpecies,:PERSIAN) ||
       isConst?(pokemon.species,PBSpecies,:GEODUDE) ||
       isConst?(pokemon.species,PBSpecies,:GRAVELER) ||
       isConst?(pokemon.species,PBSpecies,:GOLEM) ||
       isConst?(pokemon.species,PBSpecies,:GRIMER) ||
       isConst?(pokemon.species,PBSpecies,:MUK) ||
       isConst?(pokemon.species,PBSpecies,:EXEGGUTOR) ||
       isConst?(pokemon.species,PBSpecies,:MAROWAK))
     if pokemon.hp>0
       pokemon.form=1
       scene.pbRefresh
       scene.pbDisplay(_INTL("{1} changed Form!",pokemon.name))
       next true
     else
       scene.pbDisplay(_INTL("This can't be used on the fainted Pokémon."))
     end
   else
     scene.pbDisplay(_INTL("It had no effect."))
     next false
   end
})

 

[Lucidious89]

Keep in mind that the Shiny Stone already exists, used to obtain Togekiss, Roserade, and others. Because of this, it'd probably make more sense to rename yours to "Sparkling Stone" or "Shiny Gem", or something along those lines.