Wild Ditto Disguise

seth_Angel · May 3, 2020

This is a script of Ditto appearing as another pokemon within the wild and who only reveals itself after being caught.

The instructions are within the script.

please give credits.

v1.4

EBS SYSTEM:

Spoiler:

Code:

################################################################################
#
# Ditto_Discuise script by Seth-Angel
#
# v1.4
#
# This is a script that makes certain pokemon in the wild actually being a
# disguise of Ditto, like in Pokemon Go.
#
# Note: This only works with pokemon EBS, it is untested with the standard
# battle mechanics.
#===============================================================================
#                                 INSTALLATION
#===============================================================================
#
# Just paste this script ontop of main and underneath Compiler
#
# Some manual editing.
#
# Inside [PokeBattle_Battle]
# Search for this:
#=======================================
# if !self.pbPlayer.hasOwned?(species)
#   self.pbPlayer.setOwned(species)
#   if $Trainer.pokedex
#     pbDisplayPaused(_INTL("{1}'s data was added to the Pokédex.",pokemon.name))
#     @scene.pbShowPokedex(species)
#   end
# end
#=======================================
#
# And Replace it with this:
#=======================================
#if $disguise != true # Ditto disguise
#  if !self.pbPlayer.hasOwned?(species)
#    self.pbPlayer.setOwned(species)
#    if $Trainer.pokedex
#      pbDisplayPaused(_INTL("{1}'s data was added to the Pokédex.",pokemon.name))
#      @scene.pbShowPokedex(species)
#    end
#  end
#else
#  if !self.pbPlayer.hasOwned?(:DITTO)
#    self.pbPlayer.setOwned(:DITTO)
#    if $Trainer.pokedex
#      pbDisplayPaused(_INTL("Ditto's data was added to the Pokédex."))
#      @scene.pbShowPokedex(PBSpecies::DITTO)
#    end
#  end  
#end
#=======================================
#===============================================================================
#
# Some custom edits.
#
#===============================================================================
# Change the chance of Ditto appearing as disguise @ DITTOCHANCE
#     100 for always and 0 for never.
#
# List of discuised Pokemon @ DITTODISGUISES
#     The first index being the MAP_ID
#
# The Pokeballs used when catching discuised Pokemon @ DITTOBALLS
# Customize the wild disguise's PP. true/false @ WILDPPCUSTOM
# The PP of all moves from the wild disguise @ WILDPP
#
################################################################################

# The Chances of the disguise being a Ditto.
DITTOCHANCE = 100 

# Balls used for this event.
DITTOBALLS = [:POKEBALL,:GREATBALL,:ULTRABALL,:MASTERBALL]

# use false if you want to use the default PP of wild disguise.
WILDPPCUSTOM = true

# The PP of all moves from the wild disguise.Only if WILDPPCUSTOM is true.
WILDPP = 5 


DITTODISGUISES = [        # Ditto's DISGUISES. Add your own below

#===============================================================================
# Add your own maps.
#
# Please take note of all punctuations and constructions.
#===============================================================================

# Map 12
[12,       # << MAP ID.
:RATTATA,  # << Pokemon Disguises.
:WEEDLE, 
:PIDGEY
],

# Map 3
[3,        # << MAP ID.
:LUGIA,
:RIOLU,
:MEWTWO,
:MEW
],

# Map 2
[2,        # << MAP ID.
:PIKACHU,
:CHARMANDER
]          # << no comma at the last one


#===============================================================================
# After this... DO NOT TOUCH!
#===============================================================================
] 

class PokemonChangeScene < PokemonEvolutionScene
  def pbEvolution(cancancel=false)
    # stops BGM and displays message
    pbBGMStop()
    16.times do
      Graphics.update
      self.update
      @sprites["bar1"].y -= @sprites["bar1"].bitmap.height/16
      @sprites["bar2"].y += @sprites["bar2"].bitmap.height/16
    end
    @sprites["msgwindow"].visible = true
    Kernel.pbMessageDisplay(@sprites["msgwindow"],_INTL("\\se[]What?\r\n{1} is changing!\\^",@pokemon.name)) { self.update }
    Kernel.pbMessageWaitForInput(@sprites["msgwindow"],100,true) { self.update }
    @sprites["msgwindow"].visible = false
    # plays Pokemon's cry
    pbPlayCry(@pokemon)
    pbCryFrameLength(@pokemon.species).times do
      Graphics.update
      self.update
    end
    pbBGMPlay("evolv")
    canceled = false
    # beginning glow effect
    self.glow
    k1 = 1 # zoom factor for the Pokemon
    k2 = 1 # zoom factor for the shine
    s = 1 # speed of the animation
    @viewport.color = Color.new(255,255,255,0)
    pbSEPlay("#{SE_EXTRA_PATH}Heal4")
    # main animation loop
    for i in 0...256
      k1 *= -1 if i%(32/s) == 0
      k2 *= -1 if i%(16) == 0
      s *= 2 if i%64 == 0 && i > 0 && s < 8
      Graphics.update
      Input.update
      self.update(false)
      self.updateParticles
      self.updateRays(i)
      @sprites["poke"].zoom_x += 0.03125*k1*s
      @sprites["poke"].zoom_y += 0.03125*k1*s
      @sprites["poke"].tone.red += 16
      @sprites["poke"].tone.green += 16
      @sprites["poke"].tone.blue += 16
      @sprites["poke2"].zoom_x -= 0.03125*k1*s
      @sprites["poke2"].zoom_y -= 0.03125*k1*s
      if @sprites["shine2"].opacity < 255
        @sprites["shine2"].opacity += 16
        @sprites["shine2"].zoom_x += 0.08
        @sprites["shine2"].zoom_y += 0.08
      else
        @sprites["shine2"].zoom_x += 0.01*k2
        @sprites["shine2"].zoom_y += 0.01*k2
        @sprites["shine2"].tone.red += 0.5
        @sprites["shine2"].tone.green += 0.5
        @sprites["shine2"].tone.blue += 0.5
      end
      if i >= 240
        @sprites["shine3"].opacity += 16
        @sprites["shine3"].zoom_x += 0.1
        @sprites["shine3"].zoom_y += 0.1
      end
      @viewport.color.alpha += 32 if i >= 248
      if Input.trigger?(Input::B) && cancancel
        pbBGMStop()
        canceled = true
        break
      end
    end
    @viewport.color = Color.new(255,255,255)
    self.flash(canceled)
    if canceled
      # prints message when evolution is cancelled
      @sprites["msgwindow"].visible = true
      Kernel.pbMessageDisplay(@sprites["msgwindow"],_INTL("Huh?\r\n{1} stopped evolving!",@pokemon.name)) { self.update }
    else
      # creates the actual evolved Pokemon
      self.createEvolved
    end
  end
  # function used to create the newly evolved Pokemon
  def createEvolved
    frames = pbCryFrameLength(@newspecies)
    # plays Pokemon's cry
    pbBGMStop()
    pbPlayCry(@newspecies)
    frames.times do
      Graphics.update
      self.update
    end
    pbMEPlay("EvolutionSuccess")
    # gets info of the new species
    newspeciesname = PBSpecies.getName(@newspecies)
    oldspeciesname = PBSpecies.getName(@pokemon.species)
    @sprites["msgwindow"].visible = true
    Kernel.pbMessageDisplay(@sprites["msgwindow"],_INTL("\\se[]OH WOW!\nIt was a Ditto disguised as {1}!\\wt[80]",@pokemon.name,newspeciesname)) { self.update }
    @sprites["msgwindow"].text = ""
    removeItem = false
    createSpecies = pbCheckEvolutionEx(@pokemon){|pokemon,evonib,level,poke|
      if evonib == PBEvolution::Shedinja
        # checks if a Pokeball is available for Shedinja
        next poke if $PokemonBag.pbQuantity(getConst(PBItems,:POKEBALL))>0
      elsif evonib == PBEvolution::TradeItem || evonib == PBEvolution::DayHoldItem || evonib == PBEvolution::NightHoldItem
        # consumes evolutionary item
        removeItem = true if poke == @newspecies
      end
      next -1
    }
    @pokemon.setItem(0) if removeItem
    @pokemon.species = @newspecies
    $Trainer.seen[@newspecies] = true
    $Trainer.owned[@newspecies] = true
    pbSeenForm(@pokemon)
    @pokemon.name = newspeciesname if @pokemon.name == oldspeciesname
    @pokemon.calcStats
    # checking moves for new species
    movelist = @pokemon.getMoveList
    for i in movelist
      if i[0] == @pokemon.level
        # learning new moves
        pbLearnMove(@pokemon,i[1],true) { self.update }
      end
    end
    # adding new species of Pokemon to the party
    if createSpecies>0 && $Trainer.party.length<6
      newpokemon = @pokemon.clone
      newpokemon.iv = @pokemon.iv.clone
      newpokemon.ev = @pokemon.ev.clone
      newpokemon.species = createSpecies
      newpokemon.name = PBSpecies.getName(createSpecies)
      newpokemon.setItem(0)
      newpokemon.clearAllRibbons
      newpokemon.markings = 0
      newpokemon.ballused = 0
      newpokemon.calcStats
      newpokemon.heal
      $Trainer.party.push(newpokemon)
      $Trainer.seen[createSpecies] = true
      $Trainer.owned[createSpecies] = true
      pbSeenForm(newpokemon)
      $PokemonBag.pbDeleteItem(getConst(PBItems,:POKEBALL))
    end
  end 
end

class PokeBattle_Battle
  def pbSetSeen(pokemon)
    if pokemon && @internalbattle
      if $disguise != true
        self.pbPlayer.seen[pokemon.species]=true
        pbSeenForm(pokemon)
      else
        self.pbPlayer.seen[PBSpecies::DITTO]=true
        pbSeenForm(pokemon)
       end
    end
  end
end

Events.onWildPokemonCreate += proc{|sender,e|
pokemon = e[0]
ditto_disguise = false
$disguise=false
for m in (0...DITTODISGUISES.length)
  if $game_map.map_id == DITTODISGUISES[m][0]
    for n in (1...DITTODISGUISES[m].length)
    if isConst?(pokemon.species,PBSpecies,DITTODISGUISES[m][n])
      if rand(100)<DITTOCHANCE
        ditto_disguise = true
        $disguise=true
        if WILDPPCUSTOM == true
          for k in (0...pokemon.numMoves)
            pokemon.moves[k].pp=WILDPP
          end
        end
      else
        ditto_disguise = false
        $disguise=false
      end
    end
    end
  end
end

for j in (0...DITTOBALLS.length)
  BallHandlers::OnCatch.add(DITTOBALLS[j],proc{|ball,battle,pokemon| 
  if ditto_disguise == true && $disguise==true
    battle.pbDisplay(_INTL("Wait! Something is happening to {1}!",pokemon.name))
    evo=PokemonChangeScene.new
    newspecies = PBSpecies::DITTO
    evo.pbStartScreen(pokemon,newspecies)
    evo.pbEvolution
    evo.pbEndScreen
    pokemon.resetMoves
    pokemon.calcStats
    ditto_disguise = false
  end
  })
end

}

FOR STANDARD:

Spoiler:

Code:

################################################################################
#
# Ditto_Discuise script by Seth-Angel
#
# v1.4
#
# This is a script that makes certain pokemon in the wild actually being a
# disguise of Ditto, like in Pokemon Go.
#
# Note: This only works with standard battle mechanics.
#===============================================================================
#                                 INSTALLATION
#===============================================================================
#
# Just paste this script ontop of main and underneath Compiler
#
# Some manual editing.
#
# Inside [PokeBattle_Battle]
# Search for this:
#=======================================
# if !self.pbPlayer.hasOwned?(species)
#   self.pbPlayer.setOwned(species)
#   if $Trainer.pokedex
#     pbDisplayPaused(_INTL("{1}'s data was added to the Pokédex.",pokemon.name))
#     @scene.pbShowPokedex(species)
#   end
# end
#=======================================
#
# And Replace it with this:
#=======================================
#if $disguise != true # Ditto disguise
#  if !self.pbPlayer.hasOwned?(species)
#    self.pbPlayer.setOwned(species)
#    if $Trainer.pokedex
#      pbDisplayPaused(_INTL("{1}'s data was added to the Pokédex.",pokemon.name))
#      @scene.pbShowPokedex(species)
#    end
#  end
#else
#  if !self.pbPlayer.hasOwned?(:DITTO)
#    self.pbPlayer.setOwned(:DITTO)
#    if $Trainer.pokedex
#      pbDisplayPaused(_INTL("Ditto's data was added to the Pokédex."))
#      @scene.pbShowPokedex(PBSpecies::DITTO)
#    end
#  end  
#end
#=======================================
#===============================================================================
#
# Some custom edits.
#
#===============================================================================
# Change the chance of Ditto appearing as disguise @ DITTOCHANCE
#     100 for always and 0 for never.
#
# List of discuised Pokemon @ DITTODISGUISES
#     The first index being the MAP_ID
#
# The Pokeballs used when catching discuised Pokemon @ DITTOBALLS
# Customize the wild disguise's PP. true/false @ WILDPPCUSTOM
# The PP of all moves from the wild disguise @ WILDPP
#
################################################################################

# The Chances of the disguise being a Ditto.
DITTOCHANCE = 100 

# Balls used for this event.
DITTOBALLS = [:POKEBALL,:GREATBALL,:ULTRABALL,:MASTERBALL]

# use false if you want to use the default PP of wild disguise.
WILDPPCUSTOM = true

# The PP of all moves from the wild disguise.Only if WILDPPCUSTOM is true.
WILDPP = 5 


DITTODISGUISES = [        # Ditto's DISGUISES. Add your own below

#===============================================================================
# Add your own maps.
#
# Please take note of all punctuations and constructions.
#===============================================================================

# Map 12
[12,       # << MAP ID.
:RATTATA,  # << Pokemon Disguises.
:WEEDLE, 
:PIDGEY
],

# Map 3
[3,        # << MAP ID.
:LUGIA,
:RIOLU,
:MEWTWO,
:MEW
],

# Map 2
[2,        # << MAP ID.
:PIKACHU,
:CHARMANDER
]          # << no comma at the last one


#===============================================================================
# After this... DO NOT TOUCH!
#===============================================================================
] 

class PokemonChangeScene < PokemonEvolutionScene
  def pbEvolution(cancancel=false)
    metaplayer1 = SpriteMetafilePlayer.new(@metafile1,@sprites["rsprite1"])
    metaplayer2 = SpriteMetafilePlayer.new(@metafile2,@sprites["rsprite2"])
    metaplayer1.play
    metaplayer2.play
    pbBGMStop
    pbPlayCry(@pokemon)
    Kernel.pbMessageDisplay(@sprites["msgwindow"],
       _INTL("\\se[]What?\r\n{1} is changing!\\^",@pokemon.name)) { pbUpdate }
    Kernel.pbMessageWaitForInput(@sprites["msgwindow"],100,true) { pbUpdate }
    pbPlayDecisionSE
    oldstate  = pbSaveSpriteState(@sprites["rsprite1"])
    oldstate2 = pbSaveSpriteState(@sprites["rsprite2"])
    pbMEPlay("Evolution start")
    pbBGMPlay("Evolution")
    canceled = false
    begin
      pbUpdateNarrowScreen
      metaplayer1.update
      metaplayer2.update
      Graphics.update
      Input.update
      pbUpdate(true)
      if Input.trigger?(Input::B) && cancancel
        pbBGMStop
        pbPlayCancelSE
        canceled = true
        break
      end
    end while metaplayer1.playing? && metaplayer2.playing?
    pbFlashInOut(canceled,oldstate,oldstate2)
    if canceled
      Kernel.pbMessageDisplay(@sprites["msgwindow"],
         _INTL("Huh?\r\n{1} stopped evolving!",@pokemon.name)) { pbUpdate }
    else
      pbEvolutionSuccess
    end
  end
  
  # function used to create the newly evolved Pokemon
  def pbEvolutionSuccess
    # Play cry of evolved species
    frames = pbCryFrameLength(@newspecies,@pokemon.form)
    pbBGMStop
    pbPlayCrySpecies(@newspecies,@pokemon.form)
    frames.times do
      Graphics.update
      pbUpdate
    end
    # Success jingle/message
    pbMEPlay("Evolution success")
    newspeciesname = PBSpecies.getName(@newspecies)
    oldspeciesname = PBSpecies.getName(@pokemon.species)
    Kernel.pbMessageDisplay(@sprites["msgwindow"],
       _INTL("\\se[]OH WOW!\nIt was a Ditto disguised as {1}!\\wt[80]",
       @pokemon.name,newspeciesname)) { pbUpdate }
    @sprites["msgwindow"].text = ""
    # Check for consumed item and Pokémon duplication (i.e. Shedinja)
    removeItem = false
    createSpecies = pbCheckEvolutionEx(@pokemon){|pokemon,evonib,level,poke|
       case evonib
       when PBEvolution::Shedinja
         next poke if $PokemonBag.pbHasItem?(getConst(PBItems,:POKEBALL))
       when PBEvolution::TradeItem,PBEvolution::DayHoldItem,PBEvolution::NightHoldItem
         removeItem = true if poke==@newspecies   # Item is now consumed
       end
       next -1
    }
    @pokemon.setItem(0) if removeItem
    # Modify Pokémon to make it evolved
    @pokemon.species = @newspecies
    @pokemon.name    = newspeciesname if @pokemon.name==oldspeciesname
    @pokemon.form    = 0 if isConst?(@pokemon.species,PBSpecies,:MOTHIM)
    @pokemon.calcStats
    # See and own evolved species
    $Trainer.seen[@newspecies]  = true
    $Trainer.owned[@newspecies] = true
    pbSeenForm(@pokemon)
    # Learn moves upon evolution for evolved species
    movelist = @pokemon.getMoveList
    for i in movelist
      if i[0]==0 || i[0][email protected]          # Learned a new move
        pbLearnMove(@pokemon,i[1],true) { pbUpdate }
      end
    end
    # Duplicate Pokémon (i.e. Shedinja)
    if createSpecies>0 && $Trainer.party.length<6
      newpokemon = @pokemon.clone
      newpokemon.species = createSpecies
      newpokemon.name    = PBSpecies.getName(createSpecies)
      newpokemon.iv      = @pokemon.iv.clone
      newpokemon.ev      = @pokemon.ev.clone
      newpokemon.markings = 0
      newpokemon.ballused = 0
      newpokemon.setItem(0)
      newpokemon.clearAllRibbons
      newpokemon.calcStats
      newpokemon.heal
      # Add duplicate Pokémon to party
      $Trainer.party.push(newpokemon)
      # See and own duplicate Pokémon
      $Trainer.seen[createSpecies]  = true
      $Trainer.owned[createSpecies] = true
      pbSeenForm(newpokemon)
      # Consume Poké Ball
      $PokemonBag.pbDeleteItem(getConst(PBItems,:POKEBALL))
    end
  end 
end

class PokeBattle_Battle
  def pbSetSeen(pokemon)
    if pokemon && @internalbattle
      if $disguise != true
        self.pbPlayer.seen[pokemon.species]=true
        pbSeenForm(pokemon)
      else
        self.pbPlayer.seen[PBSpecies::DITTO]=true
        pbSeenForm(pokemon)
       end
    end
  end
end

Events.onWildPokemonCreate += proc{|sender,e|
pokemon = e[0]
ditto_disguise = false
$disguise=false
for m in (0...DITTODISGUISES.length)
  if $game_map.map_id == DITTODISGUISES[m][0]
    for n in (1...DITTODISGUISES[m].length)
    if isConst?(pokemon.species,PBSpecies,DITTODISGUISES[m][n])
      if rand(100)<DITTOCHANCE
        ditto_disguise = true
        $disguise=true
        if WILDPPCUSTOM == true
          for k in (0...pokemon.numMoves)
            pokemon.moves[k].pp=WILDPP
          end
        end
      else
        ditto_disguise = false
        $disguise=false
      end
    end
    end
  end
end

for j in (0...DITTOBALLS.length)
  BallHandlers::OnCatch.add(DITTOBALLS[j],proc{|ball,battle,pokemon| 
  if ditto_disguise == true && $disguise==true
    battle.pbDisplay(_INTL("Wait! Something is happening to {1}!",pokemon.name))
    evo=PokemonChangeScene.new
    newspecies = PBSpecies::DITTO
    evo.pbStartScreen(pokemon,newspecies)
    evo.pbEvolution
    evo.pbEndScreen
    pokemon.resetMoves
    pokemon.calcStats
    ditto_disguise = false
  end
  })
end

}

MANUAL EDITING WORK.

Spoiler:

OPTIONAL EDITING:
> if you want to use all pokeballs instead of just a list then do the following.

Spoiler:

v1.2
v1.3 - added map entry.
-1.3.1 - bug fixes.
v1.4 - fix the problem with the pokedex entry adding the disguised pokemon,
- compatible with 'Overworld Wild Encounters' script - by derFischae

Ntest · May 6, 2020

Hello
I would like to put the wild Ditto pp to 5 for each movement.
Like a Ditto turned into a fight.
Do you think that's possible?

Thank you in advance.

Ntest · May 6, 2020

I think that to make this script well, you have to be inspired by Illusion ability or Transform move.

HeroesFightingFear · May 6, 2020

Hello, I keep getting errors when using this. The game runs fine after I catch a disguised Pokemon, but this always pops up when it gets ready to transform.

seth_Angel · May 7, 2020

HeroesFightingFear said:
Hello, I keep getting errors when using this. The game runs fine after I catch a disguised Pokemon, but this always pops up when it gets ready to transform.

Replace your code with this one.

Code:

################################################################################
#
# Ditto_Discuise script by Seth-Angel
#
# This is a script that makes certain pokemon in the wild actually being a
# disguise of Ditto, like in Pokemon Go.
#
# Note: This is for the standard battle mechanics.
#===============================================================================
#                                 INSTALLATION
#===============================================================================
#
# Just paste this script ontop of main and underneath Compiler
#
#===============================================================================
#===============================================================================
# Change the chance of Ditto appearing @ DITTOCHANCE
# It's discuised Pokemon @ DITTODISGUISES
# The Pokeballs used when catching discuised Pokemon @ DITTOBALLS
#
################################################################################

DITTOCHANCE = 100 # The Chance of Ditto appearing.
DITTODISGUISES = [:RATTATA,:WEEDLE,:PIDGEY,:RATTA] # Ditto's DISGUISES
DITTOBALLS = [:POKEBALL,:GREATBALL,:ULTRABALL,:MASTERBALL] # Balls used for this event

class PokemonChangeScene < PokemonEvolutionScene
  def pbEvolution(cancancel=false)
    metaplayer1 = SpriteMetafilePlayer.new(@metafile1,@sprites["rsprite1"])
    metaplayer2 = SpriteMetafilePlayer.new(@metafile2,@sprites["rsprite2"])
    metaplayer1.play
    metaplayer2.play
    pbBGMStop
    pbPlayCry(@pokemon)
    Kernel.pbMessageDisplay(@sprites["msgwindow"],
       _INTL("\\se[]What?\r\n{1} is changing!\\^",@pokemon.name)) { pbUpdate }
    Kernel.pbMessageWaitForInput(@sprites["msgwindow"],100,true) { pbUpdate }
    pbPlayDecisionSE
    oldstate  = pbSaveSpriteState(@sprites["rsprite1"])
    oldstate2 = pbSaveSpriteState(@sprites["rsprite2"])
    pbMEPlay("Evolution start")
    pbBGMPlay("Evolution")
    canceled = false
    begin
      pbUpdateNarrowScreen
      metaplayer1.update
      metaplayer2.update
      Graphics.update
      Input.update
      pbUpdate(true)
      if Input.trigger?(Input::B) && cancancel
        pbBGMStop
        pbPlayCancelSE
        canceled = true
        break
      end
    end while metaplayer1.playing? && metaplayer2.playing?
    pbFlashInOut(canceled,oldstate,oldstate2)
    if canceled
      Kernel.pbMessageDisplay(@sprites["msgwindow"],
         _INTL("Huh?\r\n{1} stopped evolving!",@pokemon.name)) { pbUpdate }
    else
      pbEvolutionSuccess
    end
  end
  
  # function used to create the newly evolved Pokemon
  def pbEvolutionSuccess
    # Play cry of evolved species
    frames = pbCryFrameLength(@newspecies,@pokemon.form)
    pbBGMStop
    pbPlayCrySpecies(@newspecies,@pokemon.form)
    frames.times do
      Graphics.update
      pbUpdate
    end
    # Success jingle/message
    pbMEPlay("Evolution success")
    newspeciesname = PBSpecies.getName(@newspecies)
    oldspeciesname = PBSpecies.getName(@pokemon.species)
    Kernel.pbMessageDisplay(@sprites["msgwindow"],
       _INTL("\\se[]OH WOW!\nIt was a Ditto disguised as {1}!\\wt[80]",
       @pokemon.name,newspeciesname)) { pbUpdate }
    @sprites["msgwindow"].text = ""
    # Check for consumed item and Pokémon duplication (i.e. Shedinja)
    removeItem = false
    createSpecies = pbCheckEvolutionEx(@pokemon){|pokemon,evonib,level,poke|
       case evonib
       when PBEvolution::Shedinja
         next poke if $PokemonBag.pbHasItem?(getConst(PBItems,:POKEBALL))
       when PBEvolution::TradeItem,PBEvolution::DayHoldItem,PBEvolution::NightHoldItem
         removeItem = true if poke==@newspecies   # Item is now consumed
       end
       next -1
    }
    @pokemon.setItem(0) if removeItem
    # Modify Pokémon to make it evolved
    @pokemon.species = @newspecies
    @pokemon.name    = newspeciesname if @pokemon.name==oldspeciesname
    @pokemon.form    = 0 if isConst?(@pokemon.species,PBSpecies,:MOTHIM)
    @pokemon.calcStats
    # See and own evolved species
    $Trainer.seen[@newspecies]  = true
    $Trainer.owned[@newspecies] = true
    pbSeenForm(@pokemon)
    # Learn moves upon evolution for evolved species
    movelist = @pokemon.getMoveList
    for i in movelist
      if i[0]==0 || i[0][email protected]          # Learned a new move
        pbLearnMove(@pokemon,i[1],true) { pbUpdate }
      end
    end
    # Duplicate Pokémon (i.e. Shedinja)
    if createSpecies>0 && $Trainer.party.length<6
      newpokemon = @pokemon.clone
      newpokemon.species = createSpecies
      newpokemon.name    = PBSpecies.getName(createSpecies)
      newpokemon.iv      = @pokemon.iv.clone
      newpokemon.ev      = @pokemon.ev.clone
      newpokemon.markings = 0
      newpokemon.ballused = 0
      newpokemon.setItem(0)
      newpokemon.clearAllRibbons
      newpokemon.calcStats
      newpokemon.heal
      # Add duplicate Pokémon to party
      $Trainer.party.push(newpokemon)
      # See and own duplicate Pokémon
      $Trainer.seen[createSpecies]  = true
      $Trainer.owned[createSpecies] = true
      pbSeenForm(newpokemon)
      # Consume Poké Ball
      $PokemonBag.pbDeleteItem(getConst(PBItems,:POKEBALL))
    end
  end 
end


for j in (0...DITTOBALLS.length)
  BallHandlers::OnCatch.add(DITTOBALLS[j],proc{|ball,battle,pokemon|
  for i in (0...DITTODISGUISES.length)
    if (isConst?(pokemon.species,PBSpecies,DITTODISGUISES[i]))
      if rand(100)<DITTOCHANCE
        battle.pbDisplay(_INTL("Wait! Something is happening to {1}",pokemon.name))
        evo=PokemonChangeScene.new
        newspecies = PBSpecies::DITTO
        evo.pbStartScreen(pokemon,newspecies)
        evo.pbEvolution
        evo.pbEndScreen
        pokemon.resetMoves
        pokemon.calcStats
      end
    end
  end
  })
end

seth_Angel · May 7, 2020

Updated: I have added a custom wild pp in the script.

Ntest · May 7, 2020

seth_Angel said:
Updated: I have added a custom wild pp in the script.

Yes now I think your script is starting to be better.
I also think that is the right thing to do.
Create an event

'Events.onWildPokemonCreate '

I also think that you have to create the effect of disguise beforehand by drawing inspiration from the Illusion or Transform movement.

As a result, we'll get something like this:

Events.onWildPokemonCreate
pokemone[0]
If DITTOCHANCE - isConst? (pokemon.species,PBSpecies,:DITTO)
pokemon.effects[PBEffects::WildDittoTransform]
pokemon.resetMoves
End
}

I'm not good at writing scripts but the ideal would be to create the transformation before the wild encounter and thus create two Pokémon.
Otherwise we may encounter problems such as entering the Pokédex or the identity of the Pokémon.

Other than that, your script about transformation after the fight and fine.

seth_Angel · May 7, 2020

cool, i see what you mean, it shows the disguised pokemon as an entry. will work on that next.

Ntest · May 7, 2020

seth_Angel said:
cool, i see what you mean, it shows the disguised pokemon as an entry. will work on that next.

But I don't know if it's possible to do that because it means you'll have to generate two pokémons.
The wild Ditto is that turned into a pokémon that does not exist.
In addition, I do not know if it is Ditto or the "DITTODISGUISES" who will have to be called.

To get something like:

Events.onWildPokemonCreate
pokemone
If DITTOCHANCE - isConst? (pokemon.species,PBSpecies,:RATTATA)
pokemon.effects[PBEffects::WildDittoTransform]
pokemon.resetMoves
End
}

It's up to you.
I wish you the best of luck.

seth_Angel · May 7, 2020

i've done something similar.

seth_Angel · May 13, 2020

v1.4 updated.
please let me know if there is any bugs

Ntest · May 16, 2020

seth_Angel said:
v1.4 updated.
please let me know if there is any bugs

Your script looks better to keep up.
Much more complete and we have well to do to a wild Ditto.
It's also cool that you can choose the map.

seth_Angel · Jun 3, 2020

i have added an optional editing section. for those who want to catch ditto with any pokeball and don't want to add it to the list.

Ntest · Jun 4, 2020

I've been thinking about something.
Can you get Ditto (disguised) to turn into a fight as soon as we knock him out?

भाग्य ज्योति · Jul 24, 2020

seth_Angel said:
v1.4 updated.
please let me know if there is any bugs

The script is not working for me. I am using EBS and have done the manual editing correctly in PokeBattler_Battler.
My Script-

Spoiler:

seth_Angel · Jul 26, 2020

so when you catch a weedle,pidgey or rattata on map 42 with poke-,great-,ultra- or masterball it doesn't turn into a ditto afterwards? do you get an error?what precisely is happening?
have you searched the part of code within [PokeBattle_Battle] globally? maybe it is being used in another script and that script is replacing the [PokeBattle_Battle] block.

भाग्य ज्योति · Jul 27, 2020

seth_Angel said:
so when you catch a weedle,pidgey or rattata on map 42 with poke-,great-,ultra- or masterball it doesn't turn into a ditto afterwards? do you get an error?what precisely is happening?
have you searched the part of code within [PokeBattle_Battle] globally? maybe it is being used in another script and that script is replacing the [PokeBattle_Battle] block.

I am not having disguised Dittos. The dittos are appearing as before. None of them get disguised

seth_Angel · Jul 28, 2020

भाग्य ज्योति said:
I am not having disguised Dittos. The dittos are appearing as before. None of them get disguised

try using it on a clean game with only EBS installed

Wild Ditto Disguise

More options

seth_Angel

Ntest

Ntest

HeroesFightingFear

"The Champion of Alon"

seth_Angel

seth_Angel

Ntest

seth_Angel

Ntest

seth_Angel

seth_Angel

Ntest

seth_Angel

Ntest

भाग्य ज्योति

seth_Angel

भाग्य ज्योति

seth_Angel