# Credit: bo4p5687
#-------------------------------------------------------------------------------
In module PBEvolution

below
TradeSpecies      = 59
add
Scroll = 60 # Change it, if the number exists

def self.maxValue; return 60; end # change max value, here, 60

#-------------------------------------------------------------------------------
# Put these lines above Main
# Map id, you can add like KubChangeForm = [501,1,10,600]
KubChangeForm = [501]

# New method
class PokemonGlobalMetadata
  attr_accessor :kubfuevolve
  alias old_ini_kub initialize
  def initialize
    @kubfuevolve = false
    old_ini_kub
  end
end
#-------------------------------------------------------------------------------
PBEvolution.register(:Scroll, {
  "scrollCheck" => proc { |pkmn, parameter|
    next $PokemonGlobal.kubfuevolve
  }
})
#-------------------------------------------------------------------------------
# Put pbEvolveByScroll after set $PokemonGlobal.kubfuevolve = true
# then set $PokemonGlobal.kubfuevolve = false
def pbEvolveByScroll
  $Trainer.party.each do |pkmn|
    ret = pbCheckEvolutionEx(pkmn) { |pkmn, method, parameter, new_species|
    success = PBEvolution.call("scrollCheck", method, pkmn, parameter)
    next (success) ? new_species : -1 }
    if ret>0
      pbFadeOutInWithMusic {
      pkmn.form = 1 if  KubChangeForm.include?($game_map.map_id) # Change form
      evo = PokemonEvolutionScene.new
      evo.pbStartScreen(pkmn,ret)
      evo.pbEvolution(true)
      evo.pbEndScreen }
    end
  end
end