Script: Visible Overworld Wild Encounter

[derFischae]

So i just copy the script and i don't need anything else?

Well, you need to install an overworld-sprite-package for your pokemon or fakemon and name that images correctly. But after that, this script is just drag and drop. All Add-Ons and modifications are just bonus.

 

[derFischae]

* Visible Overworld Wild Encounters Version 1.6 - by derFischae (Credits if used please) *

DOWNSCALE OF VERSION 1.6 FOR POKEMON ESSENTIALS V16.2 BY ARCHYTHEARC. This script is for Pokémon Essentials V16.2. Originally written for V17 and V17.2 by me and downscaled to V16.2 by ArchyTheArc.

As in Pokemon Let's go Pikachu/Eevee or Pokemon Shild and Sword random encounters pop up on the overworld, they move around and you can start the battle with them simply by moving to the pokemon. Clearly, you also can omit the battle by circling around them.

FEATURES INCLUDED:

• see the pokemon on the overworld before going into battle
• no forced battling against random encounters
• plays the pokemon cry while spawning
• Choose whether encounters occure on all terrains or only on the terrain of the player
• In caves, pokemon don't spawn on impassable Rock-Tiles, which have the Tile-ID 4
• if you kill the same species in a row, then you increase the chance of spawning a shiny of that species or an evolved pokemon of that species family
• choose whether pokemon spawn automatically or only while moving the player
• Vendilys Rescue Chain, see https://www.pokecommunity.com/threads/415524 for original script
• If you want to add a procedure that modifies a pokemon only for spawning but not before battling then you can use the Event @@OnWildPokemonCreateForSpawning.
• You can check if you are battleing a spawned pokemon with the global variable $PokemonGlobal.battlingSpawnedPokemon

INSTALLATION: It is as simple as it can be.

1. You need sprites for the overworld pokemon in your \Graphics\Characters folder named by there number 001.png, 002.png, ..., For instance you can use Gen 1-7 OV SPrites or whatever you want for your fakemon.
   If you want to use shiny overworld sprites for shiny encounters, then make sure to also have the corresponding shiny versions in your \Graphics\Characters folder named by 001s.png, 002s.png, ....
   If you want to use alternative forms as overworld sprites, then make sure that you also have a sprite for each alternative form, e. g. for Unown 201_1.png, 201s_1.png, 201_2.png, 201s_2.png, ...
   Please note that Scatterbug has 18 alternative forms in Pokemon Essentials. But you will only see one form depending on your trainerID. So, you also have to include 664_1.png, ..., 664_19.png and 664s_1.png, ..., 664s_19.png. Same needs to be done for Pokemon Spewpa with number 665 and Vivillon with number 666.
   If you want to use female forms as overworld sprites, then make sure that you also have a female sprite for each pokemon named 001f.png, 001fs.png, 002f.png, 002fs.png, ... (excluding genderless pokemon of course)
2. Insert a new file in the script editor above main, name it Overworld_Encounters and copy this code into it.
3. Set the properties for your pleasure in the properties section of the script. Most of you don't need to change anything.
4. If you want then you can install modifications for the script from below.
5. If you want then you can also install the script always in bush and in water to obtain that the overworld encounter don't stand on water anymore but sink in. You can find it at https://www.pokecommunity.com/showthread.php?p=10109060

* Version 1.6 for Pokemon Essentials V16.2. THANKS to ArchyTheArc for downscaling *

Spoiler:

#===============================================================================
# * Visible Overworld Encounters V1.6 - by derFischae (Credits if used please) *
# * V1.6 Downscale to V16.2 - by ArchyTheArc*
#===============================================================================
#
# UPDATED TO VERSION 1.6
#
# This script is for Pokémon Essentials V16.2. Downscale by ArchyTheArc.
# As in Pokemon Let's go Pikachu/Eevee or Pokemon Shild and Sword
# random encounters pop up on the overworld,
# they move around and you can start the battle
# with them simply by moving to the pokemon.
# Clearly, you also can omit the battle by circling around them.
# 
#
# FEATURES INCLUDED:
#   - see the pokemon on the overworld before going into battle
#   - no forced battling against random encounters
#   - plays the pokemon cry while spawning
#   - Choose whether encounters occure on all terrains or only on 
#     the terrain of the player
#   - if you kill the same species in a row, then you increase
#     the chance of spawning a shiny of that species 
#
# NEW FEATURES IN VERSION 1.1:
#   - less lag
#   - supports sprites for alternative forms of pokemon
#
# NEW FEATURES IN VERSION 1.2:
#   - supports sprites for female/male/genderless pokemon
#
# NEW FEATURES IN VERSION 1.3:
#   - bug fixes for roaming encounter and double battles
#
# NEW FEATURES IN VERSION 1.4:
#   - more options in settings
#
# NEW FEATURES IN VERSION 1.5:
#   - roaming encounters working correctly
#
# NEW FEATURES IN VERSION 1.6:
#   - more lag reduction 
#
# INSTALLATION:
# Installation as simple as it can be.
# Step 1) You need sprites for the overworld pokemon in your \Graphics\Characters
# folder named by there number 001.png, 002.png, ...,
# with the corresponding shiny versions 001s.png, 002s.png, ....
# For instance you can use Gen 1-7 OV SPrites or whatever you want for 
# your fakemon
# If you want to use alternative forms as overworld sprites, then make sure that
# you also have a sprite for each alternative form, e. g. for Unown 201_1.png, 
# 201s_1.png, 201_2.png, 201s_2.png, ...
# If you want to use female forms as overworld sprites, then make sure that you 
# also have a female sprite for each pokemon named 001f.png, 001fs.png, 002f.png, 
# 002fs.png, ... (excluding genderless pokemon of course)
# Step 2) Insert a new file in the script editor above main,
# name it Overworld_Random_Encounters and copy this code into it. 
# 
# PROPERTIES:
# 1) If you want to have water encounters only while surfing,
# you also have to change the value of the
# upcoming parameter RESTRICTENCOUNTERSTOPLAYERMOVEMENT to
#     RESTRICTENCOUNTERSTOPLAYERMOVEMENT = true
# 2) You can choose how many steps the encounter moves before vanishing 
# in parameter
#     STEPSBEFOREVANISHING
# 3) You can choose how many encounters you have to kill to obtain the increased
# Shiny-Chance in parameter
#     CHAINLENGTH
# and the increased Shiny-Chance in parameter
#     SHINYPROBABILITY
# 4) You can choose whether the sprite of your overworld encounter
# is always the standard form or can be an alternative form in parameter
#     USEALTFORMS
# 5) You can choose whether the sprites depend on the gender of the encounter
# or are always neutral in parameter
#     USEFEMALESPRITES
# 6) You can choose whether the overworld encounters have a stop/ step-animation
# similar to following pokemon in the parameter
#     USESTOPANIMATION
# 7) You can choose how many overworld encounters are agressive and run to the 
# player in the parameter
#     AGGRESSIVEENCOUNTERPROBABILITY
# 8) You can choose the move-speed and move-frequenzy of  normal and aggressive 
# encounters in parameters
#     ENCMOVESPEED, ENCMOVEFREQ, AGGRENCMOVESPEED, AGGRENCMOVEFREQ
#
# THANKS to ArchyTheArc for downscaling to Pokemon Essentials V16.2.

#===============================================================================
#                             Settings            
#===============================================================================
INSTANT_WILD_BATTLE_PROPABILITY = 450 # Propability of gaining an instant battle in thousanth, i. e. 0,1,2,...,1000

RESTRICTENCOUNTERSTOPLAYERMOVEMENT = false
#true - means that water encounters are popping up
#       if and only if player is surfing
#       (perhaps decreases encounter rate)
#false - means that all encounter types can pop up
#        close to the player (as long as there is a suitable tile)

CHAINLENGTH      = 5 # default 10
#       number describes how many pokemon of the same species
#       you have to kill in a row to increase shiny propability

SHINYPROBABILITY = 25 # default 100 --> 10%
#       increasing this value decreases the probability of spawning a shiny

STEPSBEFOREVANISHING = 15 # default 10
#      STEPSBEFOREVANISHING is the number of steps a wild Encounter goes
#      before vanishing on the map.

USEALTFORMS = true # default false
#false - means that you don't use alternative forms for your overworld sprite
#true - means that the sprite of overworld encounter varies by the form of that pokemon
#       make sure that you have the sprites with the right name
#       for your alternative forms in your \Graphics\Characters folder       

USEFEMALESPRITES = true # default false
#false - means that you use always a neutral overworld sprite
#true - means that female pokemon have there own female overworld sprite
#       make sure that you have the sprites with the right name 001f.png,
#       001fs.png, ... for the female forms in your \Graphics\Characters folder

USESTOPANIMATION = true # default false
#false - means that overworld encounters don't have a stop- animation
#true - means that overworld encounters have a stop- animation similar as  
#       following pokemon

ENCMOVESPEED = 3 # default 3
# this is the movement speed (compare to autonomous movement of events) of an overworld encounter
#1   - means lowest movement
#6   - means highest movement

ENCMOVEFREQ = 3 # default 3
# this is the movement frequenzy (compare to autonomous movement of events) of an overworld encounter
#1   - means lowest movement
#6   - means highest movement

AGGRESSIVEENCOUNTERPROBABILITY = 40 # default 20 
#this is the probability in percent of spawning of an agressive encounter
#0   - means that there are no aggressive encounters
#100 - means that all encounter are aggressive

AGGRENCMOVESPEED = 3 # default 3
# this is the movement speed (compare to autonomous movement of events) of an aggressive encounter
#1   - means lowest movement
#6   - means highest movement

AGGRENCMOVEFREQ = 5 # default 5
# this is the movement frequenzy (compare to autonomous movement of events) of an aggressive encounter
#1   - means lowest movement
#6   - means highest movement

#===============================================================================
#                              THE SCRIPT
#===============================================================================

          #########################################################
          #                                                       #
          #             1. PART: THE CATCHCOMBO                   #
          #                                                       #
          #########################################################
#===============================================================================
# adding a new instance variable to $PokemonTemp in script PField_Metadata to
# remember which pokemon and how many of that kind were killed in a row
#===============================================================================
class PokemonTemp
  attr_accessor :overworldcombo # [chain length, species]
end

#===============================================================================
# adding a new event handler on Battle end to update the catchchain (where the
# pokemon-kill-chain is saved)
#===============================================================================
Events.onWildBattleEnd+=proc {|sender,e|
   species=e[0]
   result=e[2]
   $PokemonTemp.overworldcombo = [0,0] if !$PokemonTemp.overworldcombo
   if $PokemonTemp.overworldcombo[1]!=species
     $PokemonTemp.overworldcombo=[0,species]
   end
   if result==1 && species==$PokemonTemp.overworldcombo[1]
     $PokemonTemp.overworldcombo[0]+=1
     #Kernel.pbMessage(_INTL("You killed {1} {2}",$PokemonTemp.catchcombo[0],$PokemonTemp.catchcombo[1]))
   end
}


          #########################################################
          #                                                       #
          #      2. PART: SPAWNING THE OVERWORLD ENCOUNTER        #
          #                                                       #
          #########################################################
#===============================================================================
# We override the original method "pbOnStepTaken" in Script PField_Field it was 
# originally used for random encounter battles
#===============================================================================
def Kernel.pbOnStepTaken(eventTriggered) 
  if $game_player.move_route_forcing || pbMapInterpreterRunning? || !$Trainer
    Events.onStepTakenFieldMovement.trigger(nil,$game_player)
    return
  end
  $PokemonGlobal.stepcount = 0 if !$PokemonGlobal.stepcount
  $PokemonGlobal.stepcount += 1
  $PokemonGlobal.stepcount &= 0x7FFFFFFF
  repel = ($PokemonGlobal.repel>0)
  Events.onStepTaken.trigger(nil)
#  Events.onStepTakenFieldMovement.trigger(nil,$game_player)
  handled = [nil]
  Events.onStepTakenTransferPossible.trigger(nil,handled)
  return if handled[0]
  if !eventTriggered
    if rand(1000)<INSTANT_WILD_BATTLE_PROPABILITY
      #STANDARD WILDBATTLE
      pbBattleOnStepTaken()
    else  
      #OVERWORLD ENCOUNTERS
      #we choose the tile on which the pokemon appears
      pos = pbChooseTileOnStepTaken
      return if !pos
      #we choose the random encounter
      encounter,gender,form = pbChooseEncounter(pos[0],pos[1])
      return if !encounter
      #we generate an random encounter overworld event
      pbPlaceEncounter(pos[0],pos[1],encounter,gender,form)
    end
  end
end
#===============================================================================
# new method pbChooseTileOnStepTaken to choose the tile on which the pkmn spawns 
#===============================================================================
def pbChooseTileOnStepTaken
  # Choose 1 random tile from 1 random ring around the player
  i = rand(4)
  r = rand((i+1)*8)
  x = $game_player.x
  y = $game_player.y
  if r<=(i+1)*2
    x = $game_player.x-i-1+r
    y = $game_player.y-i-1
  elsif r<=(i+1)*6-2
    x = [$game_player.x+i+1,$game_player.x-i-1][r%2]
    y = $game_player.y-i+((r-1-(i+1)*2)/2).floor
  else
    x = $game_player.x-i+r-(i+1)*6
    y = $game_player.y+i+1
  end
  #check if it is possible to encounter here
  return if x<0 || x>=$game_map.width || y<0 || y>=$game_map.height #check if the tile is on the map
  #check if it's a valid grass, water or cave etc. tile
  return if PBTerrain.isIce?($game_map.terrain_tag(x,y))
  return if PBTerrain.isLedge?($game_map.terrain_tag(x,y))
  return if PBTerrain.isWaterfall?($game_map.terrain_tag(x,y))
  return if PBTerrain.isRock?($game_map.terrain_tag(x,y))
  return if PBTerrain.isMud?($game_map.terrain_tag(x,y))
  if RESTRICTENCOUNTERSTOPLAYERMOVEMENT
    return if !PBTerrain.isWater?($game_map.terrain_tag(x,y)) && 
              $PokemonGlobal && $PokemonGlobal.surfing
    return if PBTerrain.isWater?($game_map.terrain_tag(x,y)) && 
              !($PokemonGlobal && $PokemonGlobal.surfing)
  end
  return [x,y]
end

#===============================================================================
# defining new method pbChooseEncounter to choose the pokemon on the tile (x,y)
#===============================================================================
def pbChooseEncounter(x,y,repel=false)
  return if $Trainer.ablePokemonCount==0   #check if trainer has pokemon
  encounterType = $PokemonEncounters.pbEncounterTypeOnTile(x,y)
  $PokemonTemp.encounterType = encounterType
  return if encounterType<0 #check if there are encounters
  return if !$PokemonEncounters.isEncounterPossibleHereOnTile?(x,y)
  for event in $game_map.events.values
    if event.x==x && event.y==y
      return
    end
  end
  encounter = $PokemonEncounters.pbGenerateEncounter(encounterType)
  encounter = EncounterModifier.trigger(encounter)
  #if !$PokemonEncounters.pbCanEncounter?(encounter,repel)
  if !$PokemonEncounters.pbCanEncounter?(encounter)
    #$PokemonTemp.forceSingleBattle = false
    EncounterModifier.triggerEncounterEnd()
    return
  end
  #-----------------------------------------
  # added to include forms by derFischae
  form = nil
  gender = nil
  if USEALTFORMS == true or USEFEMALESPRITES == true
    genwildpoke = pbGenerateWildPokemon(encounter[0],encounter[1])
    gender = genwildpoke.gender if USEFEMALESPRITES==true
    form = genwildpoke.form if USEALTFORMS == true
  end
  #-----------------------------------------
  return encounter,gender,form
end



#===============================================================================
# defining new method pbPlaceEncounter to add/place and visualise the pokemon
# "encounter" on the overworld-tile (x,y)
#===============================================================================
def pbPlaceEncounter(x,y,encounter,gender = nil,form = nil)
  # place event with random movement with overworld sprite
  # We define the event, which has the sprite of the pokemon and activates the wildBattle on touch
  if !$MapFactory
    $game_map.spawnEvent(x,y,encounter,gender,form)
  else
    mapId = $game_map.map_id
    spawnMap = $MapFactory.getMap(mapId)
    #Kernel.pbMessage(_INTL("{1}",spawnMap.map_id))
    spawnMap.spawnEvent(x,y,encounter,gender,form)
  end
  # Show grass rustling animations
  $scene.spriteset.addUserAnimation(RUSTLE_NORMAL_ANIMATION_ID,x,y,true)
  # Play the pokemon cry of encounter
  pbPlayCryOnOverworld(encounter[0])
  # For roaming encounters we have to do the following:
  if $PokemonTemp.nowRoaming == true && 
     $PokemonTemp.roamerIndex != nil &&
     $PokemonGlobal.roamEncounter != nil
    $PokemonGlobal.roamEncounter = nil
    $PokemonGlobal.roamedAlready = true
  end
  #$PokemonTemp.forceSingleBattle = false
  EncounterModifier.triggerEncounterEnd()
end

#===============================================================================
# adding new Methods pbEncounterTypeOnTile and isEncounterPossibleHereOnTile?
# in Class PokemonEncounters in Script PField_Encounters
#===============================================================================
class PokemonEncounters
  def pbEncounterTypeOnTile(x,y)
    if PBTerrain.isJustWater?($game_map.terrain_tag(x,y))
      return EncounterTypes::Water
    elsif self.isCave?
      return EncounterTypes::Cave
    elsif self.isGrass?
      time = pbGetTimeNow
      enctype = EncounterTypes::Land
      enctype = EncounterTypes::LandNight if self.hasEncounter?(EncounterTypes::LandNight) && PBDayNight.isNight?(time)
      enctype = EncounterTypes::LandDay if self.hasEncounter?(EncounterTypes::LandDay) && PBDayNight.isDay?(time)
      enctype = EncounterTypes::LandMorning if self.hasEncounter?(EncounterTypes::LandMorning) && PBDayNight.isMorning?(time)
      if pbInBugContest? && self.hasEncounter?(EncounterTypes::BugContest)
        enctype = EncounterTypes::BugContest
      end
      return enctype
    end
    return -1
  end
  
  def isEncounterPossibleHereOnTile?(x,y)
    if PBTerrain.isJustWater?($game_map.terrain_tag(x,y))
      return true
    elsif self.isCave? #|| PBTerrain.isCave?($game_map.terrain_tag($game_player.x,$game_player.y))
      return true
    elsif PBTerrain.isMud?($game_map.terrain_tag($game_player.x,$game_player.y))
      return true
    elsif $game_switches[358]
      return true
    elsif PBTerrain.isGrass?($game_map.terrain_tag(x,y))
      return true
    end
    return false
  end
end

#===============================================================================
# new Method spawnEvent in Class Game_Map in Script Game_Map
#===============================================================================
class Game_Map
  def spawnEvent(x,y,encounter,gender = nil,form = nil)
    #Kernel.pbMessage(_INTL("{1}",form))
    #------------------------------------------------------------------
    # generating a new event
    event = RPG::Event.new(x,y)
    # naming the event "vanishingEncounter" for PART 3 
    event.name = "vanishingEncounter"
    #setting the nessassary properties
    key_id = (@events.keys.max || -1) + 1
    event.id = key_id
    event.x = x
    event.y = y
    #event.pages[0].graphic.tile_id = 0
    if encounter[0] < 10
      character_name = "00"+encounter[0].to_s
    elsif encounter[0] < 100
      character_name = "0"+encounter[0].to_s
    else
      character_name = encounter[0].to_s
    end
    # use sprite of female pokemon
    character_name = character_name+"f" if USEFEMALESPRITES == true and gender==1 and pbResolveBitmap("Graphics/Characters/"+character_name+"f")
    # use shiny-sprite if probability & killcombo is high or shiny-switch is on
    $PokemonTemp.overworldcombo=[0,0] if !$PokemonTemp.overworldcombo
    if $game_switches[SHINY_WILD_POKEMON_SWITCH]==true
        character_name = character_name+"s"
        shinysprite=true
    elsif ($PokemonTemp.overworldcombo[0]>=CHAINLENGTH && $PokemonTemp.overworldcombo[1]==encounter[0])
      if rand(SHINYPROBABILITY)<$PokemonTemp.overworldcombo[0]
        character_name = character_name+"s"
        shinysprite=true
      end
    end
    # use sprite of alternative form
    if USEALTFORMS==true and form!=nil and form!=0
      character_name = character_name+"_"+form.to_s
    end
    event.pages[0].graphic.character_name = character_name
    # we configure the movement of the overworld encounter
    if rand(100) < AGGRESSIVEENCOUNTERPROBABILITY
      event.pages[0].move_type = 3
      event.pages[0].move_speed = AGGRENCMOVESPEED
      event.pages[0].move_frequency = AGGRENCMOVEFREQ
      event.pages[0].move_route.list[0].code = 10
      event.pages[0].move_route.list[1] = RPG::MoveCommand.new
    else
      event.pages[0].move_type = 1
      event.pages[0].move_speed = ENCMOVESPEED
      event.pages[0].move_frequency = ENCMOVEFREQ
    end
    event.pages[0].step_anime = true if USESTOPANIMATION
    event.pages[0].trigger = 2
    #------------------------------------------------------------------
    # we add the event commands to the event of the overworld encounter
    event.pages[0].list[0].code = 355
    event.pages[0].list[0].indent = 0
    if $PokemonGlobal.roamEncounter!=nil
      #[i,species,poke[1],poke[4]]
      parameter1 = $PokemonGlobal.roamEncounter[0].to_s
      parameter2 = $PokemonGlobal.roamEncounter[1].to_s
      parameter3 = $PokemonGlobal.roamEncounter[2].to_s
      $PokemonGlobal.roamEncounter[3] != nil ? (parameter4 = '"'+$PokemonGlobal.roamEncounter[3].to_s+'"') : (parameter4 = "nil")
      parameter = " $PokemonGlobal.roamEncounter = ["+parameter1+","+parameter2+","+parameter3+","+parameter4+"] "
    else
      parameter = " $PokemonGlobal.roamEncounter = nil "
    end
    event.pages[0].list[0].parameters = [parameter]
    event.pages[0].list[1] = RPG::EventCommand.new
    #
    event.pages[0].list[1].code = 355
    event.pages[0].list[1].indent = 0
    if $PokemonTemp.nowRoaming!=nil
      parameter =" $PokemonTemp.nowRoaming = "+$PokemonTemp.nowRoaming.to_s
    else
      parameter =" $PokemonTemp.nowRoaming = nil "
    end
    event.pages[0].list[1].parameters = [parameter]
    event.pages[0].list[2] = RPG::EventCommand.new
    #
    event.pages[0].list[2].code = 355
    event.pages[0].list[2].indent = 0
    if $PokemonTemp.roamerIndex!=nil
      parameter = " $PokemonTemp.roamerIndex = "+$PokemonTemp.roamerIndex.to_s
    else
      parameter = " $PokemonTemp.roamerIndex = nil "
    end
    event.pages[0].list[2].parameters = [parameter]
    event.pages[0].list[3] = RPG::EventCommand.new
    #
    event.pages[0].list[3].code = 355
    event.pages[0].list[3].indent = 0
    if $PokemonGlobal.nextBattleBGM!=nil
      parameter = " $PokemonGlobal.nextBattleBGM = '"+$PokemonGlobal.nextBattleBGM.to_s+"'"
    else
      parameter = " $PokemonGlobal.nextBattleBGM = nil "    
    end
    event.pages[0].list[3].parameters = [parameter]
    event.pages[0].list[4] = RPG::EventCommand.new
    #
    event.pages[0].list[4].code = 355
    event.pages[0].list[4].indent = 0
    #if $PokemonTemp.forceSingleBattle!=nil
    #  parameter = " $PokemonTemp.forceSingleBattle = "+$PokemonTemp.forceSingleBattle.to_s
    #else
    #  parameter = " $PokemonTemp.forceSingleBattle = nil "
    #end
    parameter = ""
    event.pages[0].list[4].parameters = [parameter]
    event.pages[0].list[5] = RPG::EventCommand.new
    #
    event.pages[0].list[5].code = 355
    event.pages[0].list[5].indent = 0
    if $PokemonTemp.encounterType!=nil
      parameter = " $PokemonTemp.encounterType = "+$PokemonTemp.encounterType.to_s
    else
      parameter = " $PokemonTemp.encounterType = nil "
    end
    event.pages[0].list[5].parameters = [parameter]
    event.pages[0].list[6] = RPG::EventCommand.new
    #
    # setting shiny switch on if sprite is a shiny-sprite
    oldShinySwitchStatus=$game_switches[SHINY_WILD_POKEMON_SWITCH]
    if shinysprite == true
      parameter = " $game_switches["+SHINY_WILD_POKEMON_SWITCH.to_s+"]=true"
    else
      parameter = " $game_switches["+SHINY_WILD_POKEMON_SWITCH.to_s+"]=false"
    end
    event.pages[0].list[6].code = 355
    event.pages[0].list[6].indent = 0
    event.pages[0].list[6].parameters = [parameter]
    event.pages[0].list[7] = RPG::EventCommand.new
    #
    #pbSingleOrDoubleWildBattle(encounter[0],encounter[1])
    gender = "nil" if gender==nil
    form = "nil" if form==nil
    event.pages[0].list[7].code = 355
    event.pages[0].list[7].indent = 0
    parameter = " pbSingleOrDoubleWildBattle("+encounter[0].to_s+","+encounter[1].to_s+", $game_map.events["+key_id.to_s+"].map.map_id, $game_map.events["+key_id.to_s+"].x, $game_map.events["+key_id.to_s+"].y,"+gender.to_s+","+form.to_s+")"
    event.pages[0].list[7].parameters = [parameter]
    event.pages[0].list[8] = RPG::EventCommand.new
    #
    # setting shiny switch back to previous state
    parameter=" $game_switches["+SHINY_WILD_POKEMON_SWITCH.to_s+"]="+oldShinySwitchStatus.to_s
    event.pages[0].list[8].code = 355
    event.pages[0].list[8].indent = 0
    event.pages[0].list[8].parameters = [parameter]
    event.pages[0].list[9] = RPG::EventCommand.new
    #
    event.pages[0].list[9].code = 355
    event.pages[0].list[9].indent = 0
    event.pages[0].list[9].parameters = ["$PokemonTemp.encounterType = -1"]
    event.pages[0].list[10] = RPG::EventCommand.new
    #
    event.pages[0].list[10].code = 355
    event.pages[0].list[10].indent = 0
    #event.pages[0].list[10].parameters = ["$PokemonTemp.forceSingleBattle = false"]
    event.pages[0].list[10].parameters = [""]
    event.pages[0].list[11] = RPG::EventCommand.new
    #
    event.pages[0].list[11].code = 355
    event.pages[0].list[11].indent = 0
    event.pages[0].list[11].parameters = ["EncounterModifier.triggerEncounterEnd()"]
    event.pages[0].list[12] = RPG::EventCommand.new
    #
    event.pages[0].list[12].code = 355
    event.pages[0].list[12].indent = 0
    event.pages[0].list[12].parameters = ["$game_map.events["+key_id.to_s+"].removeThisEventfromMap"]
    event.pages[0].list[13] = RPG::EventCommand.new
    #
    event.pages[0].list[13].code = 355
    event.pages[0].list[13].indent = 0
    event.pages[0].list[13].parameters = ["$game_map.events.delete("+key_id.to_s+")"]
    event.pages[0].list[14] = RPG::EventCommand.new
    #------------------------------------------------------------------
    # creating and adding the Game_Event
    gameEvent = Game_Event.new(@map_id, event,self)
    key_id = (@events.keys.max || -1) + 1
    gameEvent.id = key_id
    gameEvent.moveto(x,y)
    @events[key_id] = gameEvent
    #-------------------------------------------------------------------------
    #updating the sprites
    sprite = Sprite_Character.new(@viewport,@events[key_id])
    $scene.spritesets[self.map_id].character_sprites.push(sprite)
  end
end

#===============================================================================
# adding new Method pbSingleOrDoubleWildBattle to reduce the code in spawnEvent
#===============================================================================
def pbSingleOrDoubleWildBattle(species,level,map_id,x,y,gender = nil,form = nil)
  if $MapFactory
    terrainTag = $MapFactory.getTerrainTag(map_id,x,y)
  else
    terrainTag = $game_map.terrain_tag(x,y)
  end
  #if !$PokemonTemp.forceSingleBattle && ($PokemonGlobal.partner ||
  if ($PokemonGlobal.partner ||
      ($Trainer.ablePokemonCount>1 &&
      PBTerrain.isDoubleGrass?(terrainTag) &&
      rand(100)<30))
    encounter2 = $PokemonEncounters.pbEncounteredPokemon($PokemonTemp.encounterType)
    encounter2 = EncounterModifier.trigger(encounter2)
    pbDoubleWildBattle(species,level,encounter2[0],encounter2[1],nil,true,false,gender,form,nil,nil)
  else
    pbWildBattle(species,level,nil,true,false,gender,form)
  end
end

#===============================================================================
# overriding Method pbWildBattle in Script PField_Battles
# to include alternate forms of the wild pokemon
#===============================================================================
def pbWildBattle(species,level,variable=nil,canescape=true,canlose=false,gender = nil,form = nil)
  if (Input.press?(Input::CTRL) && $DEBUG) || $Trainer.pokemonCount==0
    if $Trainer.pokemonCount>0
      Kernel.pbMessage(_INTL("SKIPPING BATTLE..."))
    end
    pbSet(variable,1)
    $PokemonGlobal.nextBattleBGM  = nil
    $PokemonGlobal.nextBattleME   = nil
    $PokemonGlobal.nextBattleBack = nil
    return true
  end
  if species.is_a?(String) || species.is_a?(Symbol)
    species = getID(PBSpecies,species)
  end
  handled = [nil]
  Events.onWildBattleOverride.trigger(nil,species,level,handled)
  return handled[0] if handled[0]!=nil
  currentlevels = []
  for i in $Trainer.party
    currentlevels.push(i.level)
  end
  genwildpoke = pbGenerateWildPokemon(species,level)
  #-----------------------------------------------------------------------------
  #added by derFischae to set the form
  genwildpoke.setGender(gender) if USEFEMALESPRITES==true and gender!=nil and gender>=0 and gender<3
  genwildpoke.form = form if USEALTFORMS==true and form!=nil and form>0
  # well actually it is not okay to test if form>0, we should also test if form 
  # is smaller than the maximal form, but for now I keep it that way. 
  #-----------------------------------------------------------------------------
  Events.onStartBattle.trigger(nil,genwildpoke)
  scene = pbNewBattleScene
  battle = PokeBattle_Battle.new(scene,$Trainer.party,[genwildpoke],$Trainer,nil)
  battle.internalbattle = true
  battle.cantescape     = !canescape
  pbPrepareBattle(battle)
  decision = 0
  pbBattleAnimation(pbGetWildBattleBGM(species)) {
  #pbBattleAnimation(pbGetWildBattleBGM(species),0,[genwildpoke]) {
    pbSceneStandby {
      decision = battle.pbStartBattle(canlose)
    }
     Events.onEndBattle.trigger(nil,decision,canlose)
  }
  Input.update
  pbSet(variable,decision)
  Events.onWildBattleEnd.trigger(nil,species,level,decision)
  return (decision!=2)
end


#===============================================================================
# overriding Method pbDoubleWildBattle in Script PField_Battles
# to include alternate forms of the wild pokemon in double battles
#===============================================================================
def pbDoubleWildBattle(species1,level1,species2,level2,variable=nil,canescape=true,canlose=false,gender1 = nil,form1 = nil,gender2 = nil,form2 = nil)
  if (Input.press?(Input::CTRL) && $DEBUG) || $Trainer.pokemonCount==0
    if $Trainer.pokemonCount>0
      Kernel.pbMessage(_INTL("SKIPPING BATTLE..."))
    end
    pbSet(variable,1)
    $PokemonGlobal.nextBattleBGM  = nil
    $PokemonGlobal.nextBattleME   = nil
    $PokemonGlobal.nextBattleBack = nil
    return true
  end
  if species1.is_a?(String) || species1.is_a?(Symbol)
    species1 = getID(PBSpecies,species1)
  end
  if species2.is_a?(String) || species2.is_a?(Symbol)
    species2 = getID(PBSpecies,species2)
  end
  currentlevels = []
  for i in $Trainer.party
    currentlevels.push(i.level)
  end
  genwildpoke  = pbGenerateWildPokemon(species1,level1)
  genwildpoke2 = pbGenerateWildPokemon(species2,level2)
  #-----------------------------------------------------------------------------
  #added by derFischae to set the form
  # well actually it is not okay to test if form>0, we should also test if form 
  # is smaller than the maximal form, but for now I keep it that way. 
  genwildpoke.setGender(gender1) if USEFEMALESPRITES==true and gender1!=nil and gender1>=0 and gender1<3
  if USEALTFORMS==true and form1!=nil and form1>0
    genwildpoke.form = form1   
    genwildpoke.resetMoves
  end
  genwildpoke2.setGender(gender) if USEFEMALESPRITES==true and gender2!=nil and gender2>=0 and gender2<3
  if USEALTFORMS==true and form2!=nil and form2>0
    genwildpoke2.form = form2 if USEALTFORMS==true and form2!=nil and form2>0  
    genwildpoke2.resetMoves
  end
  #-----------------------------------------------------------------------------
  Events.onStartBattle.trigger(nil,genwildpoke)
  scene = pbNewBattleScene
  if $PokemonGlobal.partner
    othertrainer = PokeBattle_Trainer.new($PokemonGlobal.partner[1],$PokemonGlobal.partner[0])
    othertrainer.id    = $PokemonGlobal.partner[2]
    othertrainer.party = $PokemonGlobal.partner[3]
    combinedParty = []
    for i in 0...$Trainer.party.length
      combinedParty[i] = $Trainer.party[i]
    end
    for i in 0...othertrainer.party.length
      combinedParty[6+i] = othertrainer.party[i]
    end
    battle = PokeBattle_Battle.new(scene,combinedParty,[genwildpoke,genwildpoke2],[$Trainer,othertrainer],nil)
    battle.fullparty1 = true
  else
    battle = PokeBattle_Battle.new(scene,$Trainer.party,[genwildpoke,genwildpoke2],[$Trainer],nil)
    battle.fullparty1 = false
  end
  battle.internalbattle = true
  battle.doublebattle   = battle.pbDoubleBattleAllowed?()
  battle.cantescape     = !canescape
  pbPrepareBattle(battle)
  decision = 0
  pbBattleAnimation(pbGetWildBattleBGM(species1),2,[genwildpoke,genwildpoke2]) { 
    pbSceneStandby {
      decision = battle.pbStartBattle(canlose)
    }
     Events.onEndBattle.trigger(nil,decision,canlose)
  }
  Input.update
  pbSet(variable,decision)
  return (decision!=2 && decision!=5)
end

#===============================================================================
# adding new method PBTerrain.isRock? to module PBTerrain in script PBTerrain
# to check if the terrainTag "tag" is rock
#===============================================================================
module PBTerrain
  def PBTerrain.isRock?(tag)
    return tag==PBTerrain::Rock
  end
end

#===============================================================================
# adding new method pbPlayCryOnOverworld to load/play Pokémon cry files 
# SPECIAL THANKS TO "Ambient Pokémon Cries" - by Vendily
# actually it's not used, but that code helped to include the pkmn cries faster
#===============================================================================
def pbPlayCryOnOverworld(pokemon,volume=90,pitch=nil)
  return if !pokemon
  if pokemon.is_a?(Numeric)
    pbPlayCry(pokemon,volume,pitch)
  elsif !pokemon.egg?
    if pokemon.respond_to?("chatter") && pokemon.chatter
      pokemon.chatter.play
    else
      pkmnwav = pbCryFile(pokemon)
      if pkmnwav
        pbBGSPlay(RPG::AudioFile.new(pkmnwav,volume,
           (pitch) ? pitch : (pokemon.hp*25/pokemon.totalhp)+75)) rescue nil
      end
    end
  end
end

#===============================================================================
# adding a new method attr_reader to the Class Spriteset_Map in Script
# Spriteset_Map to get access to the variable @character_sprites of a
# Spriteset_Map
#===============================================================================
class Spriteset_Map
  attr_reader :character_sprites
end

#===============================================================================
# adding a new method attr_reader to the Class Scene_Map in Script
# Scene_Map to get access to the Spriteset_Maps listed in the variable 
# @spritesets of a Scene_Map
#===============================================================================
class Scene_Map
  attr_reader :spritesets
end

          #########################################################
          #                                                       #
          #      3. PART: VANISHING OF OVERWORLD ENCOUNTER        #
          #                                                       #
          #########################################################
#===============================================================================
# adding a new variable stepCount and replacing the method increase_steps
# in class Game_Event in script Game_Event to count the steps of
# overworld encounter and to make them disappear after taking more then
# STEPSBEFOREVANISHING steps
#===============================================================================
class Game_Event < Game_Character
  attr_accessor :event
  attr_accessor :stepCount #counts the steps of an overworld encounter
  
  alias original_increase_steps increase_steps
  def increase_steps
    if self.name=="vanishingEncounter" && @stepCount && @stepCount>=STEPSBEFOREVANISHING
      removeThisEventfromMap
    else
      @stepCount=0 if (!@stepCount || @stepCount<0)
      @stepCount+=1
      original_increase_steps
    end
  end
  
  def removeThisEventfromMap
    if $game_map.events.has_key?(@id) and $game_map.events[@id]==self
      #-------------------------------------------------------------------------
      # added to reduce lag by derFischae
      for sprite in $scene.spritesets[$game_map.map_id].character_sprites
        if sprite.character==self
          $scene.spritesets[$game_map.map_id].character_sprites.delete(sprite)
          sprite.dispose
          break
        end
      end
      #-------------------------------------------------------------------------
      $game_map.events.delete(@id)        
    else
      if $MapFactory
        for map in $MapFactory.maps
          if map.events.has_key?(@id) and map.events[@id]==self
            #-------------------------------------------------------------------------
            # added to reduce lag by derFischae
            for sprite in $scene.spritesets[self.map_id].character_sprites
              if sprite.character==self
                $scene.spritesets[map.map_id].character_sprites.delete(sprite)
                sprite.dispose
                break
              end
            end
            #-------------------------------------------------------------------------
            map.events.delete(@id)
            break
          end
        end
      else
        Kernel.pbMessage("Actually, this should not be possible")
      end
    end
    #-------------------------------------------------------------------------
    # added some code above to reduce lag by derFischae
    # Original Code was
    #$scene.disposeSpritesets
    #$scene.createSpritesets
    #-------------------------------------------------------------------------
  end
end

Maybe, you also need this for Pokemon Essentials 16.2:

Spoiler:

module PBTerrain
  TallGrass       = 10
  def PBTerrain.isDoubleGrass?(tag)
    return tag==PBTerrain::TallGrass
  end
end

It's recommanded to include the tag "TallGrass = 10" and the whole method "PBTerrain.isDoubleGrass?(tag)" in the already existing module "PBTerrain", which you can find in the script section "PBTerrain". But anyway, it's also fine to simply copy the code above and paste it at the end of the visible overworld encounter script.

module PBTerrain
  Ice             = 12

  def PBTerrain.isIce?(tag)
    return tag==PBTerrain::Ice
  end
end

It's recommanded to include the tag "Ice = 12" and the whole method "PBTerrain.isIce?(tag)" in the already existing module "PBTerrain", which you can find in the script section "PBTerrain". But anyway, it's also fine to simply copy the code above and paste it at the end of the visible overworld encounter script.

module PBTerrain
  Waterfall       = 8
  WaterfallCrest  = 9

  def PBTerrain.isWaterfall?(tag)
    return tag==PBTerrain::WaterfallCrest ||
           tag==PBTerrain::Waterfall
  end
end

It's recommanded to include the tags "Waterfall = 8" and "WaterfallCrest = 9" and the whole method "PBTerrain.isWaterfall?(tag)" in the already existing module "PBTerrain", which you can find in the script section "PBTerrain". But anyway, it's also fine to simply copy the code above and paste it at the end of the visible overworld encounter script.

Or maybe you also need this bug fix for pokemon essentials version 16.2 if you get a disposed sprite error message

Spoiler:

I'm sorry it seems like i have 16.2 version 😅. So i'm still having the same error... When the defeated wild pokemon disappear, this error pops up.
https://ibb.co/30QZ8vX

Mensaje: disposed sprite
Spriteset_Map:29:in `src_rect'
Spriteset_Map:29:in `update'
Spriteset_Map:381:in `_animationSprite_update'
Spriteset_Map:378:in `each'
Spriteset_Map:378:in `_animationSprite_update'
AnimationSprite:86:in `update'
Scene_Map:51:in `updateSpritesets'
Scene_Map:45:in `each'
Scene_Map:45:in `updateSpritesets'
Scene_Map:115:in `update'

Hi i dont know if you find a solution, but i find a alternative

  def removeThisEventfromMap
    if $game_map.events.has_key?(@id) and $game_map.events[@id]==self
      for sprite in $scene.spritesets[$game_map.map_id].character_sprites
        if sprite.character==self
          $scene.spritesets[$game_map.map_id].character_sprites.delete(sprite)
          #sprite.dispose
          break
        end
      end

the solution comment the line sprite.dispose.
and ADD this

sprite.bitmap.dispose

PS: sorry for my english.

The line "sprite.dispose" needs to be replaced by "sprite.bitmap.dispose" on 2 lines in the method removeThisEventFromMap

PROPERTIES:

1. If you want to have water encounters only while surfing, you also have to change the value of the upcoming parameter RESTRICTENCOUNTERSTOPLAYERMOVEMENT to
   RESTRICTENCOUNTERSTOPLAYERMOVEMENT = true
2. You can choose how many steps the encounter moves before vanishing in parameter
   STEPSBEFOREVANISHING
3. You can choose how many encounters you have to kill to obtain the increased Shiny-Chance in parameter
   CHAINLENGTH
   and the increased Shiny-Chance in parameter
   SHINYPROBABILITY
4. You can choose whether the overworld sprite of an shiny encounter is always the standard sprite or is the corrensponding shiny overworld sprite in parameter
   USESHINYSPRITES
5. You can choose whether the sprite of your overworld encounter is always the standard form or can be an alternative form in parameter
   USEALTFORMS
6. You can choose whether the sprites depend on the gender of the encounter or are always neutral in parameter
   USEFEMALESPRITES
7. You can choose whether the overworld encounters have a stop/ step-animation similar to following pokemon in the parameter
   USESTOPANIMATION
8. You can choose how many overworld encounters are agressive and run to the player in the parameter
   AGGRESSIVEENCOUNTERPROBABILITY
9. You can choose the move-speed and move-frequenzy of normal and aggressive encounters in parameters
   ENCMOVESPEED, ENCMOVEFREQ, AGGRENCMOVESPEED, AGGRENCMOVEFREQ
10. You can choose whether pokemon can spawn automatically or only while the player is moving and you can set the spawning frequency in the parameter
    AUTOSPAWNSPEED
11. You can activate or deactivate vendilys rescue chain in the parameter
    USERESCUECHAIN
    Moreover, you also have all settings of vendilys Rescue chain here.
12. If you have impassable tiles in a cave, where you don't want pokemon to spawn there. Then choose the Tile-ID 4 for that tile in the tile-editor.

MODIFICATIONS OF THIS SCRIPT: These modifications are tested with Pokemon Essentials 17.2. but should also work with version 16.2. Read the whole thread https://www.pokecommunity.com/threads/429019 for more features and modifications, including

• randomized spawning
  
  Spoiler:

  
  

  Had to encounter[0] = rand(890)+1 if $game_switches[227]
  
  above these lines !
  

      if encounter[0] < 10
        character_name = "00"+encounter[0].to_s
      elsif encounter[0] < 100
        character_name = "0"+encounter[0].to_s 
      else
        character_name = encounter[0].to_s
      end

• adding shiny sparkle animation to spawned overworld shinys, especially useful if you want to sign out the shiny encounters on the map without using overworld shiny sprites
  
  Spoiler:

  
  

  Ok Guys,
  i did it :D
  
  If you like play an Animation ON the new spawned Pokemon that is SHINY you will need to do 2 things:
  
  Add this Line:
  

  SHINY_ANIMATION_ID = 8# or animation ID you'd like to use

  After this Line:
  

  EVODISABLESWITCH = -1

  then go to this Line:
  

      if $game_switches[SHINY_WILD_POKEMON_SWITCH]==true
        character_name = character_name+"s"
        shinysprite=true
      elsif ($PokemonTemp.catchcombo[0]>=CHAINLENGTH && $PokemonTemp.catchcombo[1]==encounter[0])
        if rand(SHINYPROBABILITY)<$PokemonTemp.catchcombo[0]
          character_name = character_name+"s"
          shinysprite=true
        end
      end

  And replace all of this with this:
  

      if $game_switches[SHINY_WILD_POKEMON_SWITCH]==true
        character_name = character_name+"s"
        shinysprite=true
        $scene.spriteset.addUserAnimation(SHINY_ANIMATION_ID,event.x,event.y,true,2)
      elsif ($PokemonTemp.catchcombo[0]>=CHAINLENGTH && $PokemonTemp.catchcombo[1]==encounter[0])
        if rand(SHINYPROBABILITY)<$PokemonTemp.catchcombo[0]
          character_name = character_name+"s"
          shinysprite=true
          $scene.spriteset.addUserAnimation(SHINY_ANIMATION_ID,event.x,event.y,true,2)
        end
      end

  And tadaaa, every shiny that spawns will now play on hisself the animation once with ID 8 in your Animation Editor.
  
  Sorry for bad english, im german and try my best :D
  
  This Animation is nice to have because you are able to see if its an shiny or not even if you DONT have an Shiny Overworld Sprite.
  
  EDIT: I used the berry plant sparkle animation for my shiny encounters. Just copy and paste the animation from slot 7 to 8 in the animation editor.
  Script workes with Essential 17.2. Dont know if other Version will have problems.

• removing grass rustle animation on water and in caves
  
  Spoiler:

  
  If you want to change that animation for caves and water as well, then you can modify the method "pbPlaceEncounter(x,y,encounter,gender = nil,form = nil,isShiny = nil)" below the line "# Show grass rustling animations" in the visible overworld wild encounter script.
  भाग्य ज्योति edited it in the following way.
  

  I edited just the animation code that you told, and it now only shows animation when the Pokémon is on Grass tile, weather be Tall Grass, Underwater Grass or normal one. And, no animation when Pokémon is on Water or Cave tile.
  

    if PBTerrain.isGrass?($game_map.terrain_tag(x,y))
    # Show grass rustling animations when on grass
      $scene.spriteset.addUserAnimation(RUSTLE_NORMAL_ANIMATION_ID,x,y,true,1)
    end

• how to change the movement of the overworld encounter
  
  Spoiler:

  
  

  If you want to change the movement of your overworld pokemon, then you can do this.
  
  In method "spawnEvent(x,y,encounter,gender = nil,form = nil, isShiny = nil)", find the following code snippet
  

  # we configure the movement of the overworld encounter
      if rand(100) < AGGRESSIVEENCOUNTERPROBABILITY
        event.pages[0].move_type = 3
        event.pages[0].move_speed = AGGRENCMOVESPEED
        event.pages[0].move_frequency = AGGRENCMOVEFREQ
        event.pages[0].move_route.list[0].code = 10
        event.pages[0].move_route.list[1] = RPG::MoveCommand.new
      else
        event.pages[0].move_type = 1
        event.pages[0].move_speed = ENCMOVESPEED
        event.pages[0].move_frequency = ENCMOVEFREQ
      end
      event.pages[0].step_anime = true if USESTOPANIMATION
      event.pages[0].trigger = 2

  You can change this code according to your needs.
  
  I recommand to read the instructions in
  https://forums.rpgmakerweb.com/index.php?threads/creating-a-move-route-with-a-script-command.59367/
  or
  https://forums.rpgmakerweb.com/index.php?threads/creating-a-move-route-via-script-call.87467/
  These instructions are not complete and are for RPGMakerVX. However, they explain how rpgMaker uses Moveroutes in the script section.
  
  As an example, if you want (who knows why) that your overworld pokemon should
  look left -> jump to the right -> look left -> jump to the right -> and so on,
  then this can be done by the following code snippet
  

      event.pages[0].move_type = 3 # means that we have a custom move_route
      event.pages[0].move_route.repeat = true # the pokemon repeats the route
      event.pages[0].move_route.list = []
      event.pages[0].move_route.list.push(RPG::MoveCommand.new(17,[])) # 1st command: look left, no parameters needed
      event.pages[0].move_route.list.push(RPG::MoveCommand.new(14,[1,0])) # 2nd command: jump, needs 2 parameters for x and y direction: jump to the right has parameter [1,0] 
      event.pages[0].move_route.list.push(RPG::MoveCommand.new) # always end with an empty MoveCommand

• "aggressive encounters" only get aggressive when you are 2 tiles away from them, and not before.
  
  Spoiler:

  
  

  First in class Game_Map, inside the function
  def spawnEvent(x,y,encounter,gender = nil,form = nil,isShiny = nil)
  
  I added:
  
  

   if (encounter[0] == 215) #Sneasel
      event.name = "vanishingEncounterAGRi" 
   end

  
  So I created a new event name, to difference the new type of event, the "aggressive pokémon which are not yet aggressive".
  Then in the same function, under # we configure the movement of the overworld encounter:
  
  

  if false
        event.pages[0].move_type = 3
        event.pages[0].move_speed = 3
        event.pages[0].move_frequency = 6
        event.pages[0].move_route.list[0].code = 10
        event.pages[0].move_route.list[1] = RPG::MoveCommand.new
      else
        event.pages[0].move_type = 1
        event.pages[0].move_speed = ENCMOVESPEED
        event.pages[0].move_frequency = ENCMOVEFREQ
      end

  
  (Basically I gave the same move to every pokémon, so you can delete the "if false" and only leaving the else code, but this is more graphic to modify the original script)
  After this, inside def Kernel.pbOnStepTaken(eventTriggered), before "#Should it be possible to search for pokemon nearby? "
  I wrote:
  
  

  #Volver agresivos a los pokémon cerca de mí que son agresivos
      gp = $game_player
      distanciaAgresivo = 2
      all_pkmn_agr_on_map = $game_map.events.values.find_all { |event|
      ((event.name=="vanishingEncounterAGRi") &&
      (((event.x - gp.x).abs <= distanciaAgresivo) && ((event.y - gp.y).abs <= distanciaAgresivo)))}
      
      for eventi2 in all_pkmn_agr_on_map
        eventi2.event.name = "vanishingEncounterAGR"
        eventi2.move_type = 2
        eventi2.move_frequency = 6 #Cada cuanto da un paso
      end

  
  And I think this is all, you may also have to add in the despawn code the new name of events, in this way:
  
  

  class Game_Event < Game_Character
    attr_accessor :event
    attr_accessor :stepCount #counts the steps of an overworld encounter
    
    alias original_increase_steps increase_steps
    def increase_steps
      
      #Añadimos un valor extra aleatorio de pasos para que desaparezca.
      pasosDesaparecer = rand(10)
      
      if ((self.name=="vanishingEncounter" || self.name=="vanishingEncounterAGRi") && @stepCount && @stepCount>=(10+pasosDesaparecer)) || #Que desaparezca por pasos normal
        (self.name=="vanishingEncounterAGR" && @stepCount && @stepCount>=(20+pasosDesaparecer)) #Que desaparezca por pasos AGR
        removeThisEventfromMap
      else
        @stepCount=0 if (!@stepCount || @stepCount<0)
        @stepCount+=1
        original_increase_steps
      end

  
  
  As you can see, in the end I decided to set a different name from the beginning and this is working really well.

• activating and deactivating overworld encounter spawning with switches
  
  Spoiler:

  
  

  There is a way to let overworld encounter appear only if a switch (denoted by OVERWORLD_ENCOUNTER_SWITCH) is activated. Simply replace the method "Kernel.pbOnStepTaken(eventTriggered)" in my script above by the following:
  
  

  def Kernel.pbOnStepTaken(eventTriggered)
    #Should it be possible to search for pokemon nearby?
    if $game_player.move_route_forcing || pbMapInterpreterRunning? || !$Trainer
      Events.onStepTakenFieldMovement.trigger(nil,$game_player)
      return
    end
    $PokemonGlobal.stepcount = 0 if !$PokemonGlobal.stepcount
    $PokemonGlobal.stepcount += 1
    $PokemonGlobal.stepcount &= 0x7FFFFFFF
    repel = ($PokemonGlobal.repel>0)
    Events.onStepTaken.trigger(nil)
    handled = [nil]
    Events.onStepTakenTransferPossible.trigger(nil,handled)
    return if handled[0]
    if !eventTriggered
      if $game_switches[OVERWORLD_ENCOUNTER_SWITCH]==false
        #STANDARD WILDBATTLE
        pbBattleOnStepTaken(repel)
      else  
        #OVERWORLD ENCOUNTERS
        #we choose the tile on which the pokemon appears
        pos = pbChooseTileOnStepTaken
        return if !pos
        #we choose the random encounter
        encounter,gender,form = pbChooseEncounter(pos[0],pos[1],repel)
        return if !encounter
        #we generate an random encounter overworld event
        pbPlaceEncounter(pos[0],pos[1],encounter,gender,form)
      end
    end
  end

  
  Make sure to also include something like the following in the settings section of my script:
  
  

  OVERWORLD_ENCOUNTER_SWITCH = 97 # choose your preferred $game_switch

  
  Edit: Updated for version 1.2.

• overworld spawning and original encounters at the same time
  
  Spoiler:

  
  

  If you want overworld encounters and the thrilling excitement of instant wild battles at the same time, then you have to do the following:
  
  1) Add a new parameter to the settings. This parameter represents the propability of gaining an instant battle. It is an integer given in thousanth, i. e. 0 means 0% and 1000 means 100%. Feel free to find the best ratio for you.
  

  INSTANT_WILD_BATTLE_PROPABILITY = 100 # Propability of gaining an instant battle in thousanth, i. e. 0,1,2,...,1000

  
  2) Replace the method "Kernel.pbOnStepTaken(eventTriggered)" in my script in post 1 above by
  

  def Kernel.pbOnStepTaken(eventTriggered) 
    if $game_player.move_route_forcing || pbMapInterpreterRunning? || !$Trainer
      Events.onStepTakenFieldMovement.trigger(nil,$game_player)
      return
    end
    $PokemonGlobal.stepcount = 0 if !$PokemonGlobal.stepcount
    $PokemonGlobal.stepcount += 1
    $PokemonGlobal.stepcount &= 0x7FFFFFFF
    repel = ($PokemonGlobal.repel>0)
    Events.onStepTaken.trigger(nil)
  #  Events.onStepTakenFieldMovement.trigger(nil,$game_player)
    handled = [nil]
    Events.onStepTakenTransferPossible.trigger(nil,handled)
    return if handled[0]
    if !eventTriggered
      if rand(1000)<INSTANT_WILD_BATTLE_PROPABILITY
        #STANDARD WILDBATTLE
        pbBattleOnStepTaken(repel)
      else  
        #OVERWORLD ENCOUNTERS
        #we choose the tile on which the pokemon appears
        pos = pbChooseTileOnStepTaken
        return if !pos
        #we choose the random encounter
        encounter,gender,form = pbChooseEncounter(pos[0],pos[1],repel)
        return if !encounter
        #we generate an random encounter overworld event
        pbPlaceEncounter(pos[0],pos[1],encounter,gender,form)
      end
    end
  end

  updated for version 1.2.

• forbidding pokemons to spawn on specific terrain tiles in caves
  
  Spoiler:

  
  

  Normally, in caves pokemon can encounter everywhere. But with this visible overworld wild encounter script, this behaviour can let pokemon spawn on impassible tiles. Now, if you want do forbid pokemon to spawn on certain tiles in caves, then you have two options.
  1) The visible overworld encounter script allready forbids spawning on rock tiles, which have the terrain tag 4 in the terrain tag editor. Hence, the first way to forbid spawning on a specific tile is to set the terrain tag of that tile to 4 in the terrain tag editor.
  2) If you want to add new terrain types to the module PBTerrain in script PBTerrain and want to forbid pokemons to spawn there, then you have to do the following way. Here, I will sketch the procedure for mud. At first you had add mud to the module PPTerrain in such a way
  

  module PBTerrain
    Mud             = 42
    def PBTerrain.isMud?(tag)
      return tag==PBTerrain::Mud
    end
  end

  Now, go to the method "pbChooseTileOnStepTaken" in the visible overworld wild encounter script and add
  

    return if PBTerrain.isMud?($game_map.terrain_tag(x,y))

  below
  

    return if PBTerrain.isRock?($game_map.terrain_tag(x,y))

  In the following spoiler section you can compare the code of "pbChooseTileOnStepTaken" before and after adding
  

  Spoiler:

  
  original code of "pbChooseTileOnStepTaken" in version 1.9.2
  

  def pbChooseTileOnStepTaken
    # Choose 1 random tile from 1 random ring around the player
    i = rand(4)
    r = rand((i+1)*8)
    x = $game_player.x
    y = $game_player.y
    if r<=(i+1)*2
      x = $game_player.x-i-1+r
      y = $game_player.y-i-1
    elsif r<=(i+1)*6-2
      x = [$game_player.x+i+1,$game_player.x-i-1][r%2]
      y = $game_player.y-i+((r-1-(i+1)*2)/2).floor
    else
      x = $game_player.x-i+r-(i+1)*6
      y = $game_player.y+i+1
    end
    #check if it is possible to encounter here
    return if x<0 || x>=$game_map.width || y<0 || y>=$game_map.height #check if the tile is on the map
    #check if it's a valid grass, water or cave etc. tile
    return if PBTerrain.isIce?($game_map.terrain_tag(x,y))
    return if PBTerrain.isLedge?($game_map.terrain_tag(x,y))
    return if PBTerrain.isWaterfall?($game_map.terrain_tag(x,y))
    return if PBTerrain.isRock?($game_map.terrain_tag(x,y))
    if RESTRICTENCOUNTERSTOPLAYERMOVEMENT
      return if !PBTerrain.isWater?($game_map.terrain_tag(x,y)) && 
                $PokemonGlobal && $PokemonGlobal.surfing
      return if PBTerrain.isWater?($game_map.terrain_tag(x,y)) && 
                !($PokemonGlobal && $PokemonGlobal.surfing)
    end
    return [x,y]
  end

  after adding
  

  def pbChooseTileOnStepTaken
    # Choose 1 random tile from 1 random ring around the player
    i = rand(4)
    r = rand((i+1)*8)
    x = $game_player.x
    y = $game_player.y
    if r<=(i+1)*2
      x = $game_player.x-i-1+r
      y = $game_player.y-i-1
    elsif r<=(i+1)*6-2
      x = [$game_player.x+i+1,$game_player.x-i-1][r%2]
      y = $game_player.y-i+((r-1-(i+1)*2)/2).floor
    else
      x = $game_player.x-i+r-(i+1)*6
      y = $game_player.y+i+1
    end
    #check if it is possible to encounter here
    return if x<0 || x>=$game_map.width || y<0 || y>=$game_map.height #check if the tile is on the map
    #check if it's a valid grass, water or cave etc. tile
    return if PBTerrain.isIce?($game_map.terrain_tag(x,y))
    return if PBTerrain.isLedge?($game_map.terrain_tag(x,y))
    return if PBTerrain.isWaterfall?($game_map.terrain_tag(x,y))
    return if PBTerrain.isRock?($game_map.terrain_tag(x,y))
    return if PBTerrain.isMud?($game_map.terrain_tag(x,y))
    if RESTRICTENCOUNTERSTOPLAYERMOVEMENT
      return if !PBTerrain.isWater?($game_map.terrain_tag(x,y)) && 
                $PokemonGlobal && $PokemonGlobal.surfing
      return if PBTerrain.isWater?($game_map.terrain_tag(x,y)) && 
                !($PokemonGlobal && $PokemonGlobal.surfing)
    end
    return [x,y]
  end

• adding new encounter types, eg. desert, shallow water
  
  Spoiler:

  
  

  If you want to have new encounter types and want that some special pokemon only spawn at special tiles, such as a Gurdurr spawns only at the building site, or a special water pokemon in shallow water or groudon only in the dessert..., then you have to follow 2 steps:
  1) Follow Thundaga's Tutorial on adding new encounter types. See https://www.youtube.com/watch?v=kdtofAPuyxA
  This includes all nessessary changes for ordinary encountering. Note that Thundaga added a Desert tile for the new encounter type for his tutorial. We will also use this notation here. If you want to use ShallowWater instead, then make sure to use ShallowWater instead of Desert in the code snippets.
  
  2) To activate these changes also for overworld spawning you have to search for the method "pbEncounterTypeOnTile(x,y)" and add
  

      elsif PBTerrain.isDesert?($game_map.terrain_tag(x,y))
        return EncounterTypes::Desert

  right below "return EncounterTypes::Water".
  In the following Spoiler sections you can compare the code of "pbEncounterTypeOnTile(x,y)" before and after adding.
  

  Spoiler:

  
  original version of pbEncounterTypeOnTile(x,y) in visible overworld eild encounter script version 1.9.2
  

  def pbEncounterTypeOnTile(x,y)
      if PBTerrain.isJustWater?($game_map.terrain_tag(x,y))
        return EncounterTypes::Water
      elsif self.isCave?
        return EncounterTypes::Cave
      elsif self.isGrass?
        time = pbGetTimeNow
        enctype = EncounterTypes::Land
        enctype = EncounterTypes::LandNight if self.hasEncounter?(EncounterTypes::LandNight) && PBDayNight.isNight?(time)
        enctype = EncounterTypes::LandDay if self.hasEncounter?(EncounterTypes::LandDay) && PBDayNight.isDay?(time)
        enctype = EncounterTypes::LandMorning if self.hasEncounter?(EncounterTypes::LandMorning) && PBDayNight.isMorning?(time)
        if pbInBugContest? && self.hasEncounter?(EncounterTypes::BugContest)
          enctype = EncounterTypes::BugContest
        end
        return enctype
      end
      return -1
    end

  after adding
  

  def pbEncounterTypeOnTile(x,y)
      if PBTerrain.isJustWater?($game_map.terrain_tag(x,y))
        return EncounterTypes::Water
      elsif PBTerrain.isDesert?($game_map.terrain_tag(x,y))
        return EncounterTypes::Desert
      elsif self.isCave?
        return EncounterTypes::Cave
      elsif self.isGrass?
        time = pbGetTimeNow
        enctype = EncounterTypes::Land
        enctype = EncounterTypes::LandNight if self.hasEncounter?(EncounterTypes::LandNight) && PBDayNight.isNight?(time)
        enctype = EncounterTypes::LandDay if self.hasEncounter?(EncounterTypes::LandDay) && PBDayNight.isDay?(time)
        enctype = EncounterTypes::LandMorning if self.hasEncounter?(EncounterTypes::LandMorning) && PBDayNight.isMorning?(time)
        if pbInBugContest? && self.hasEncounter?(EncounterTypes::BugContest)
          enctype = EncounterTypes::BugContest
        end
        return enctype
      end
      return -1
    end

  
  And finally find the method "isEncounterPossibleHereOnTile?(x,y)" in the visible overworld wild encounter script and add
  

    elsif PBTerrain.isDesert?($game_map.terrain_tag(x,y))
        return true

  right below "if PBTerrain.isJustWater?($game_map.terrain_tag(x,y)) return true".
  You can compare in the following spoiler section there to put the code.
  

  Spoiler:

  
  original code of the method in script version 1.9.2
  

    def isEncounterPossibleHereOnTile?(x,y)
      if PBTerrain.isJustWater?($game_map.terrain_tag(x,y))
        return true
      elsif self.isCave?
        return true
      elsif self.isGrass?
        return PBTerrain.isGrass?($game_map.terrain_tag(x,y))
      end
      return false
    end

  after adding
  

    def isEncounterPossibleHereOnTile?(x,y)
      if PBTerrain.isJustWater?($game_map.terrain_tag(x,y))
        return true
      elsif PBTerrain.isDesert?($game_map.terrain_tag(x,y))
        return true
      elsif self.isCave?
        return true
      elsif self.isGrass?
        return PBTerrain.isGrass?($game_map.terrain_tag(x,y))
      end
      return false
    end

• instructions on how to have different encounters for overworld spawning and original encountering on the same map
  
  Spoiler:

  
  

  If you want overworld encounters and normal encounters, but also want that the overworld and normal encounters are different. Then you can follow these instructions to gain this functionality.
  
  1) At first, modify the code of the visible overworld wild encounter script such that there are overworld encounter and normal encounter possible at the same time. Read above on how to do that.
  
  2) Add the following encounter types
  

  OverworldLand, OverworldCave, OverworldWater, OverworldLandMorning, OverworldLandDay, OverworldLandNight, OverworldBugContest

  to the module EncounterTypes in script section PField_Encounters.
  For more informations on adding new encounter types you can watch Thundaga's Tutorial https://www.youtube.com/watch?v=kdtofAPuyxA beginning at round about 1 min 40 sec.
  If you don't want any special changes or add other encounter types, then it should look like this
  
  

  Spoiler:

  
  

  module EncounterTypes
    Land         = 0
    Cave         = 1
    Water        = 2
    RockSmash    = 3
    OldRod       = 4
    GoodRod      = 5
    SuperRod     = 6
    HeadbuttLow  = 7
    HeadbuttHigh = 8
    LandMorning  = 9
    LandDay      = 10
    LandNight    = 11
    BugContest   = 12
    OverworldLand         = 13
    OverworldCave         = 14
    OverworldWater        = 15
    OverworldLandMorning  = 16
    OverworldLandDay      = 17
    OverworldLandNight    = 18
    OverworldBugContest   = 19
    Names = [
       "Land",
       "Cave",
       "Water",
       "RockSmash",
       "OldRod",
       "GoodRod",
       "SuperRod",
       "HeadbuttLow",
       "HeadbuttHigh",
       "LandMorning",
       "LandDay",
       "LandNight",
       "BugContest",
       "OverworldLand",
       "OverworldCave",
       "OverworldWater",
       "OverworldLandMorning",
       "OverworldLandDay",
       "OverworldLandNight",
       "OverworldBugContest"
    ]
    EnctypeChances = [
       [20,20,10,10,10,10,5,5,4,4,1,1],
       [20,20,10,10,10,10,5,5,4,4,1,1],
       [60,30,5,4,1],
       [60,30,5,4,1],
       [70,30],
       [60,20,20],
       [40,40,15,4,1],
       [30,25,20,10,5,5,4,1],
       [30,25,20,10,5,5,4,1],
       [20,20,10,10,10,10,5,5,4,4,1,1],
       [20,20,10,10,10,10,5,5,4,4,1,1],
       [20,20,10,10,10,10,5,5,4,4,1,1],
       [20,20,10,10,10,10,5,5,4,4,1,1],
       [20,20,10,10,10,10,5,5,4,4,1,1],
       [20,20,10,10,10,10,5,5,4,4,1,1],
       [60,30,5,4,1],
       [20,20,10,10,10,10,5,5,4,4,1,1],
       [20,20,10,10,10,10,5,5,4,4,1,1],
       [20,20,10,10,10,10,5,5,4,4,1,1],
       [20,20,10,10,10,10,5,5,4,4,1,1]
    ]
    EnctypeDensities   = [25,10,10,0,0,0,0,0,0,25,25,25,25,25,10,10,25,25,25,25]
    EnctypeCompileDens = [ 1, 2, 3,0,0,0,0,0,0, 1, 1, 1, 1, 1, 2, 3, 1, 1, 1, 1]
  end

  
  
  3) Find the method "pbEncounterTypeOnTile(x,y)" in the visible overworld wild encounter script and replace it by
  
  

    def pbEncounterTypeOnTile(x,y)
      if PBTerrain.isJustWater?($game_map.terrain_tag(x,y))
        return EncounterTypes::OverworldWater if self.hasEncounter?(EncounterTypes::OverworldWater)
        return EncounterTypes::Water
      elsif self.isOverworldCave?
        return EncounterTypes::OverworldCave if self.hasEncounter?(EncounterTypes::OverworldCave)
        return EncounterTypes::Cave
      elsif self.isOverworldGrass?
        time = pbGetTimeNow
        enctype = EncounterTypes::Land
        enctype = EncounterTypes::OverworldLand if self.hasEncounter?(EncounterTypes::OverworldLand)
        enctype = EncounterTypes::LandNight if self.hasEncounter?(EncounterTypes::LandNight) && PBDayNight.isNight?(time)
        enctype = EncounterTypes::OverworldLandNight if self.hasEncounter?(EncounterTypes::OverworldLandNight) && PBDayNight.isNight?(time)
        enctype = EncounterTypes::LandDay if self.hasEncounter?(EncounterTypes::LandDay) && PBDayNight.isDay?(time)
        enctype = EncounterTypes::OverworldLandDay if self.hasEncounter?(EncounterTypes::OverworldLandDay) && PBDayNight.isDay?(time)
        enctype = EncounterTypes::LandMorning if self.hasEncounter?(EncounterTypes::LandMorning) && PBDayNight.isMorning?(time)
        enctype = EncounterTypes::OverworldLandMorning if self.hasEncounter?(EncounterTypes::OverworldLandMorning) && PBDayNight.isMorning?(time)
        if pbInBugContest? && self.hasEncounter?(EncounterTypes::BugContest)
          enctype = EncounterTypes::BugContest
          enctype = EncounterTypes::OverworldBugContest if self.hasEncounter?(EncounterTypes::OverworldBugContest)
        end
        return enctype
      end
      return -1
    end

  
  4) Add the following code below the method
  pbEncounterTypeOnTile(x,y) in class PokemonEncounters in the
  visible overworld wild encounter script
  
  

    def isOverworldCave?
      return false if @density==nil
      return (@enctypes[EncounterTypes::Cave] || @enctypes[EncounterTypes::OverworldCave]) ? true : false
    end
  
    def isOverworldGrass?
      return false if @density==nil
      return (@enctypes[EncounterTypes::Land] ||
              @enctypes[EncounterTypes::LandMorning] ||
              @enctypes[EncounterTypes::LandDay] ||
              @enctypes[EncounterTypes::LandNight] ||
              @enctypes[EncounterTypes::BugContest] ||
              @enctypes[EncounterTypes::OverworldLand] ||
              @enctypes[EncounterTypes::OverworldLandMorning] ||
              @enctypes[EncounterTypes::OverworldLandDay] ||
              @enctypes[EncounterTypes::OverworldLandNight] ||
              @enctypes[EncounterTypes::OverworldBugContest]) ? true : false
    end

  
  5) Now, you can set the overworld encounters independently from the normal encounters in OverworldLand, OverworldWater etc.
  And if you don't set an overworld encounter type, then the corresponding original encounter type will automatically be used for overworld spawning.

  UPDATE:
  
  With this modifications roaming encounters will only appear in instant battles.
  If you want them to appear as overworld encounters then you have to modify the method
  "pbRoamingMethodAllowed(enctype)" in script section PField_RoamingPokemon.
  
  If you want that roaming encounter can spawn on the overworld and also start a battle instantly, then you need to include OverworldLand, OverworldLandMorning and so on by replacing
  

      return true if encounter==EncounterTypes::Land
      return true if encounter==EncounterTypes::LandMorning
      # and so on...

  by
  

      return true if encounter==EncounterTypes::Land || encounter==EncounterTypes::OverworldLand
      return true if encounter==EncounterTypes::LandMorning || encounter==EncounterTypes::OverworldLandMorning
      # and so on...

  in the method "pbRoamingMethodAllowed(enctype)".
  In the following spoiler section, you can find the code of the method pbRoamingMethodAllowed(enctype) with that
  

  Spoiler:

  
  

  def pbRoamingMethodAllowed(enctype)
    encounter=$PokemonEncounters.pbEncounterType
    case enctype
    when 0   # Any encounter method (except triggered ones and Bug Contest)
      return true if encounter==EncounterTypes::Land || encounter==EncounterTypes::OverworldLand
      return true if encounter==EncounterTypes::LandMorning || encounter==EncounterTypes::OverworldLandMorning
      return true if encounter==EncounterTypes::LandDay || encounter==EncounterTypes::OverworldLandDay
      return true if encounter==EncounterTypes::LandNight || encounter==EncounterTypes::OverworldLandNight
      return true if encounter==EncounterTypes::Water || encounter==EncounterTypes::OverworldWater
      return true if encounter==EncounterTypes::Cave || encounter==EncounterTypes::OverworldCave
    when 1   # Grass (except Bug Contest)/walking in caves only
      return true if encounter==EncounterTypes::Land || encounter==EncounterTypes::OverworldLand
      return true if encounter==EncounterTypes::LandMorning || encounter==EncounterTypes::OverworldLandMorning
      return true if encounter==EncounterTypes::LandDay || encounter==EncounterTypes::OverworldLandDay
      return true if encounter==EncounterTypes::LandNight || encounter==EncounterTypes::OverworldLandNight
      return true if encounter==EncounterTypes::Cave || encounter==EncounterTypes::OverworldCave
    when 2   # Surfing only
      return true if encounter==EncounterTypes::Water || encounter==EncounterTypes::OverworldWater
    when 3   # Fishing only
      return true if encounter==EncounterTypes::OldRod
      return true if encounter==EncounterTypes::GoodRod
      return true if encounter==EncounterTypes::SuperRod
    when 4   # Water-based only
      return true if encounter==EncounterTypes::Water || encounter==EncounterTypes::OverworldWater
      return true if encounter==EncounterTypes::OldRod
      return true if encounter==EncounterTypes::GoodRod
      return true if encounter==EncounterTypes::SuperRod
    end
    return false
  end

  
  
  But you can also restrict roaming encounter to overworld spawning or add a whole new roaming method with a new number.
  For example, you can find a new roaming method number 5 in the following spoiler section, where roaming encounters appear only on maps with specific defined overworld encounters on grass tiles
  

  Spoiler:

  
  

    when 5   # only overworld grass.
      return true if encounter==EncounterTypes::OverworldLand
      return true if encounter==EncounterTypes::OverworldLandMorning
      return true if encounter==EncounterTypes::OverworldLandDay
      return true if encounter==EncounterTypes::OverworldLandNight

  
  
• error solutions

CHANGELOG

Spoiler:

NEW FEATURES IN VERSION 1.1:
- less lag
- supports sprites for alternative forms of pokemon

NEW FEATURES IN VERSION 1.2:
- supports sprites for female/male/genderless pokemon

NEW FEATURES IN VERSION 1.3:
- bug fixes for roaming encounter and double battles

NEW FEATURES IN VERSION 1.4:
- more options in settings

NEW FEATURES IN VERSION 1.5:
- roaming encounters working correctly

NEW FEATURES IN VERSION 1.6:
- did some runtime optimization, i.e. faster despawning of pokemon after battle

 

[DarrylBD99]

You might have to check your code a bit, cause I am sometimes can still get default random encounters.

Here is a video of it:
View attachment 2020-10-19 19-44-49_Trim.mp4

Edit: I am using V18 btw

 

[derFischae]

You might have to check your code a bit, cause I am sometimes can still get default random encounters.

Here is a video of it:
View attachment 93875

Edit: I am using V18 btw

Maybe this is only because of the settings in your script.

What is your value of the variable INSTANT_WILD_BATTLE_PROPABILITY in the settings section of your script? Is it 0 or higher?
Have you changed the index of the game variable OVERWORLD_ENCOUNTER_VARIABLE=26 or do other scripts of your game use the same variable?
And what is the value of your $game_variable OVERWORLD_ENCOUNTER_VARIABLE during game? Is it -1 or higher?

 

[DarrylBD99]

Maybe this is only because of the settings in your script.

What is your value of the variable INSTANT_WILD_BATTLE_PROPABILITY in the settings section of your script? Is it 0 or higher?
Have you changed the index of the game variable OVERWORLD_ENCOUNTER_VARIABLE=26 or do other scripts of your game use the same variable?
And what is the value of your $game_variable OVERWORLD_ENCOUNTER_VARIABLE during game? Is it -1 or higher?

1. My INSTANT_WILD_BATTLE_PROPABILITY is 0
2. I have only changed the OVERWORLD_ENCOUNTER_VARIABLE to prevent any clashes with other stuff that I have in my game
3. my OVERWORLD_ENCOUNTER_VARIABLE stores the value 14

Edit: I even tried turning off RESTRICTENCOUNTERSTOPLAYERMOVEMENT, but it still doesn't work

 

[derFischae]

1. My INSTANT_WILD_BATTLE_PROPABILITY is 0
2. I have only changed the OVERWORLD_ENCOUNTER_VARIABLE to prevent any clashes with other stuff that I have in my game
3. my OVERWORLD_ENCOUNTER_VARIABLE stores the value 14

Edit: I even tried turning off RESTRICTENCOUNTERSTOPLAYERMOVEMENT, but it still doesn't work

The issue has nothing to do with RESTRICTENCOUNTERSTOPLAYERMOVEMENT. It is for water overworld encounters while moving on land and vice versa.
The issue comes from the OVERWORLD_ENCOUNTER_VARIABLE and how it is used.

A Game Variable in Pokemon Essentials contains 2 informations, its number and its value.
As discribed in the essentials wiki, the game variables 1 to 25 are already used or reserved for pokemon essentials. Maybe, Pokemon Essentials v18 uses the game variable number 14 now, which previous versions didn't. Thus it is recommanded to use a number larger or equal to 26 for the game variable OVERWORLD_ENCOUNTER_VARIABLE, for example

OVERWORLD_ENCOUNTER_VARIABLE = 26

The value of a game variable can be anything and the value can be changed during game.
If you want to read out the value of the, let's say, game variable number 26 then you can place a new event on the map and add a new "show text.." event command with the following text

The value of the game variable number 26 is \v[26]

Triggering the event during playtime will give you the answer.
For the game variable OVERWORLD_ENCOUNTER_VARIABLE, the value stores the probability of encountering a normal encounter in percent. So, if you don't want normal encounters in your game, then the value should be -1 and not 14%. To reset that value to your INSTANT_WILD_BATTLE_PROPABILITY of 0, you can place an event on the map and add a script command containing

$game_variables[26]=0 # maybe you need to use your number for the OVERWORLD_ENCOUNTER_VARIABLE instead of 26

Alternatively, you can set the value of that game variable to 0 with the event command "control variables...".

After that the probability stored in the game variable OVERWORLD_ENCOUNTER_VARIABLE is lower than 0. And the normal encounter should not encounter anymore. Let me know, if they still do.

 

[DarrylBD99]

The issue has nothing to do with RESTRICTENCOUNTERSTOPLAYERMOVEMENT. It is for water overworld encounters while moving on land and vice versa.
The issue comes from the OVERWORLD_ENCOUNTER_VARIABLE and how it is used.

A Game Variable in Pokemon Essentials contains 2 informations, its number and its value.
As discribed in the essentials wiki, the game variables 1 to 25 are already used or reserved for pokemon essentials. Maybe, Pokemon Essentials v18 uses the game variable number 14 now, which previous versions didn't. Thus it is recommanded to use a number larger or equal to 26 for the game variable OVERWORLD_ENCOUNTER_VARIABLE, for example

OVERWORLD_ENCOUNTER_VARIABLE = 26

The value of a game variable can be anything and the value can be changed during game.
If you want to read out the value of the, let's say, game variable number 26 then you can place a new event on the map and add a new "show text.." event command with the following text

The value of the game variable number 26 is \v[26]

Triggering the event during playtime will give you the answer.
For the game variable OVERWORLD_ENCOUNTER_VARIABLE, the value stores the probability of encountering a normal encounter in percent. So, if you don't want normal encounters in your game, then the value should be -1 and not 14%. To reset that value to your INSTANT_WILD_BATTLE_PROPABILITY of 0, you can place an event on the map and add a script command containing

$game_variables[26]=0 # maybe you need to use your number for the OVERWORLD_ENCOUNTER_VARIABLE instead of 26

Alternatively, you can set the value of that game variable to 0 with the event command "control variables...".

After that the probability stored in the game variable OVERWORLD_ENCOUNTER_VARIABLE is lower than 0. And the normal encounter should not encounter anymore. Let me know, if they still do.

Funny story, I have tried out everything. You may ask, have any success? The answer, no...

Edit: I event tried auto running "$game_variables[(number in OVERWORLD_ENCOUNTER_VARIABLE)]=-1" with an event and it doesn't even change anything

 

[derFischae]

Funny story, I have tried out everything. You may ask, have any success? The answer, no...

Edit: I event tried auto running "$game_variables[(number in OVERWORLD_ENCOUNTER_VARIABLE)]=-1" with an event and it doesn't even change anything

Unfortunately, I cannot reproduce your error, yet.
How often does this happen? Are the normal encountering pokemon always the same pokemon? Or are they sometimes on the overworld and sometimes normal encounters? For example is it always Pidgey? And have you checked that you have the overworld graphic with the correct name? Maybe Pidgey does not have any graphic in the characters folder, or the name of the graphic is not correct. Then your issue is the following. There is a pokemon which spawns on the overworld without the correct graphic. This pokmon runs as an invisible event on the map. But the grass will rustles where it moves forward. So you could find it.

 

[DarrylBD99]

Unfortunately, I cannot reproduce your error, yet.
How often does this happen? Are the normal encountering pokemon always the same pokemon? Or are they sometimes on the overworld and sometimes normal encounters? For example is it always Pidgey? And have you checked that you have the overworld graphic with the correct name? Maybe Pidgey does not have any graphic in the characters folder, or the name of the graphic is not correct. Then your issue is the following. There is a pokemon which spawns on the overworld without the correct graphic. This pokmon runs as an invisible event on the map. But the grass will rustles where it moves forward. So you could find it.

Ok... firstly, I have the correct graphics. Secondly, there is no pattern. Sometimes the normal encounter happens, sometimes the overworld encounter happens. 't They aren't all Pidgeys, it is basically everything in the encounters for the location specified in the pbs. And also, there ane no grass rustles with invisible pokemon.

 

[derFischae]

Ok... firstly, I have the correct graphics. Secondly, there is no pattern. Sometimes the normal encounter happens, sometimes the overworld encounter happens. 't They aren't all Pidgeys, it is basically everything in the encounters for the location specified in the pbs. And also, there ane no grass rustles with invisible pokemon.

Can you do me a favor and place an event on the map and add a "show text.." event command with the following text

The value of the game variable is \v[26]

But please replace the number 26 by your number of OVERWORLD_ENCOUNTER_VARIABLE in the settings section of your overworld encounter script.
Please trigger the event during playtime and tell me the output.

 

[DarrylBD99]

Can you do me a favor and place an event on the map and add a "show text.." event command with the following text

The value of the game variable is \v[26]

But please replace the number 26 by your number of OVERWORLD_ENCOUNTER_VARIABLE in the settings section of your overworld encounter script.
Please trigger the event during playtime and tell me the output.

So just FYI, I set OVERWORLD_ENCOUNTER_VARIABLE to 33 cause my game already has 26-32 used for other stuff

This is the event that checks the value inside Variable 33

And this is how I initially set variable 33 to -1 it without a background event

Now firstly, is there anything wrong with this setup that I should change?

 

[DarrylBD99]

If there is nothing wrong, then here is the results I got...
View attachment 2020-10-23 13-54-44.mp4

as you can see, the overworld encounter can still spawn and you can encounter them. However, the variable hasn't changed one bit and yet I am still getting this normal encounter. But what is weirder is that after the normal encounter, my character goes forward one tile without me even pressing that key.

 

[derFischae]

If there is nothing wrong, then here is the results I got...
View attachment 93952

as you can see, the overworld encounter can still spawn and you can encounter them. However, the variable hasn't changed one bit and yet I am still getting this normal encounter. But what is weirder is that after the normal encounter, my character goes forward one tile without me even pressing that key.

Everything looks alright.

In the screenshot, I have seen that you are also using the automatic spawning add-on for overworld encounters. I have updated that code some time ago. Do you have the latest version of that add-on? It should be this

Spoiler:

#===============================================================================
# Add-On for automatic spawning without making a step * by derFischae
#===============================================================================

# This is an add-on for the visible overworld wild encounter script.
# It adds automatic pokemon spawning to the script.

# FEATURES INCLUDED:
# Choose whether pokemon spawn automatically or only while moving the player

# INSTALLATION:
# Copy this code and
# Paste it at the bottom of your visible wild overworld encounter script

# PROPERTIES:
# You can choose whether pokemon can spawn automatically or only while the 
# player is moving and you can set the spawning frequency in the parameter
#     AUTOSPAWNSPEED
# in the settings below

#===============================================================================
# Settings
#===============================================================================
AUTOSPAWNSPEED = 60 # default 60
#You can set the speed of automatic pokemon spawning, i.e. the ability of pokemon
# to spawn automatically even without even moving the player.
#0   - means that pokemon only spawn while the player is moving
#>0  - means automatic spawning is activated, the closer to 0 the faster the spawning

#===============================================================================
# Overriding the update method of the class Game_Map in script section Game_Map
#===============================================================================
class Game_Map
  
  alias original_update update
  def update
    original_update
    return unless $Trainer
    return if $PokemonGlobal.repel>0
    repel = ($PokemonGlobal.repel>0)
    $framecounter = 0 if !$framecounter 
    $framecounter = $framecounter + 1
    return unless $framecounter == AUTOSPAWNSPEED
    $framecounter = 0
    if $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] == 0
      if INSTANT_WILD_BATTLE_PROPABILITY > 0 && INSTANT_WILD_BATTLE_PROPABILITY < 100
        $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] = INSTANT_WILD_BATTLE_PROPABILITY
      elsif INSTANT_WILD_BATTLE_PROPABILITY >= 100
        $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] = 100
      else
        $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] = -1
      end
    end
    return if $game_variables[OVERWORLD_ENCOUNTER_VARIABLE]>0 && ($game_variables[OVERWORLD_ENCOUNTER_VARIABLE]>=100 || rand(100) < $game_variables[OVERWORLD_ENCOUNTER_VARIABLE])
    #OVERWORLD ENCOUNTERS
    #we choose the tile on which the pokemon appears
    pos = pbChooseTileOnStepTaken
    return if !pos
    #we choose the random encounter
    encounter,gender,form,isShiny = pbChooseEncounter(pos[0],pos[1],repel)
    return if !encounter
    #we generate an random encounter overworld event
    pbPlaceEncounter(pos[0],pos[1],encounter,gender,form,isShiny)
  end
end

I tested everything with the latest version 2.0.2 of the overworld encounter script for PEv18.0 and with the latest version of automated spawning. Amd everything worked fine.

You are also using a lot of user scripts. Maybe there is a script that forces this behavior due to incompatibility. Can you search (strg+F) for "pbBattleOnStepTaken" and "pbOnStepTaken" in these scripts. Maybe we find something. Then we can look up that scripts in detail.
Are there any scripts using the method "pbBattleOnStepTaken" or overriding the method "pbOnStepTaken"?

Edit: But, actually, I cannot understand why your player moves without input after battling a normal encounter.

 

[DarrylBD99]

I tested everything with the latest version 2.0.2 of the overworld encounter script for PEv18.0 and with the latest version of automated spawning.

Why did yoi specifically say PE18.0... wait time out... are you saying you haven't tested it for PE18.1?

 

[derFischae]

Why did yoi specifically say PE18.0... wait time out... are you saying you haven't tested it for PE18.1?

I tested it for V18 since you said it here.

Edit: I am using V18 btw

But I understand your question that you're using PE V18.1 now, don't you?
Edit: Now I can reproduce your error with PE V18.1. I will need some time to check what changes in V18.1 create the incompatibility.

 

[derFischae]

You might have to check your code a bit, cause I am sometimes can still get default random encounters.

Here is a video of it:
View attachment 93875

Edit: I am using V18.1 [version edited] btw

In Pokemon Essentials V18.1, it was introduced that normal wild encounter can encounter on turning the direction of your player. These encounters are always normal encounters. So, if you want don't want these normal encounters then you have multiple ways to remove or correct that.

Open the script editor and go to the script section "PField_Field". Search for the following code snippet

# Start wild encounters while turning on the spot
Events.onChangeDirection += proc {
  repel = ($PokemonGlobal.repel>0)
  pbBattleOnStepTaken(repel) if !$game_temp.in_menu
}

and

• simply remove it to remove that pokemon can encounter on changing the direction of your player, or
• replace it by this code snippet
  
  Spoiler:

  
  

  # Start wild overworld/mixed encounters while turning on the spot
  Events.onChangeDirection += proc {
    repel = ($PokemonGlobal.repel>0)
    if !$game_temp.in_menu
      if $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] == 0
        if INSTANT_WILD_BATTLE_PROPABILITY > 0 && INSTANT_WILD_BATTLE_PROPABILITY < 100
          $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] = INSTANT_WILD_BATTLE_PROPABILITY
        elsif INSTANT_WILD_BATTLE_PROPABILITY >= 100
          $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] = 100
        else
          $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] = -1
        end
      end
      if $game_variables[OVERWORLD_ENCOUNTER_VARIABLE]>0 && ($game_variables[OVERWORLD_ENCOUNTER_VARIABLE]>=100 || rand(100) < $game_variables[OVERWORLD_ENCOUNTER_VARIABLE])
        #STANDARD WILDBATTLE
        pbBattleOnStepTaken(repel)
      else
        #OVERWORLD ENCOUNTERS
        #we choose the tile on which the pokemon appears
        pos = pbChooseTileOnStepTaken
        return if !pos
        #we choose the random encounter
        encounter,gender,form,isShiny = pbChooseEncounter(pos[0],pos[1],repel)
        return if !encounter
        #we generate an random encounter overworld event
        pbPlaceEncounter(pos[0],pos[1],encounter,gender,form,isShiny)
      end
    end
  }

  
  to replace normal wild encountering during direction changing by overworld/mixed encountering.

 

[DarrylBD99]

In Pokemon Essentials V18.1, it was introduced that normal wild encounter can encounter on turning the direction of your player. These encounters are always normal encounters. So, if you want don't want these normal encounters then you have multiple ways to remove or correct that.

Open the script editor and go to the script section "PField_Field". Search for the following code snippet

# Start wild encounters while turning on the spot
Events.onChangeDirection += proc {
  repel = ($PokemonGlobal.repel>0)
  pbBattleOnStepTaken(repel) if !$game_temp.in_menu
}

and

• simply remove it to remove that pokemon can encounter on changing the direction of your player, or
• replace it by this code snippet
  
  Spoiler:

  
  

  # Start wild overworld/mixed encounters while turning on the spot
  Events.onChangeDirection += proc {
    repel = ($PokemonGlobal.repel>0)
    if !$game_temp.in_menu
      if $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] == 0
        if INSTANT_WILD_BATTLE_PROPABILITY > 0 && INSTANT_WILD_BATTLE_PROPABILITY < 100
          $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] = INSTANT_WILD_BATTLE_PROPABILITY
        elsif INSTANT_WILD_BATTLE_PROPABILITY >= 100
          $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] = 100
        else
          $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] = -1
        end
      end
      if $game_variables[OVERWORLD_ENCOUNTER_VARIABLE]>0 && ($game_variables[OVERWORLD_ENCOUNTER_VARIABLE]>=100 || rand(100) < $game_variables[OVERWORLD_ENCOUNTER_VARIABLE])
        #STANDARD WILDBATTLE
        pbBattleOnStepTaken(repel)
      else
        #OVERWORLD ENCOUNTERS
        #we choose the tile on which the pokemon appears
        pos = pbChooseTileOnStepTaken
        return if !pos
        #we choose the random encounter
        encounter,gender,form,isShiny = pbChooseEncounter(pos[0],pos[1],repel)
        return if !encounter
        #we generate an random encounter overworld event
        pbPlaceEncounter(pos[0],pos[1],encounter,gender,form,isShiny)
      end
    end
  }

  
  to replace normal wild encountering during direction changing by overworld/mixed encountering.

Thanks, and sorry for not being specific enough...

 

[ArchyTheArc]

Me Again, Scripts looking great, i've moved upto v17.2 myself now (took a bit xP) just due to the v18 update so im still kinda current times (and can backport an update for some people)

I've moved to the v17.2 script, and definetly much cleaner than the v16.2 one xP My one question is, v16 version has a shiny chance for the script itself, does the v17+ modify or have its own shiny chance? (with v16 there was an obsurd amount of shinies (with my chances) and its a bit better in v17 but still feels common (like people have seen back to back shinies, whiles its 1/2k its still should be uncommon) if not, that lets me know its a me issue ^^

 

[derFischae]

Me Again, Scripts looking great, i've moved upto v17.2 myself now (took a bit xP) just due to the v18 update so im still kinda current times (and can backport an update for some people)

I've moved to the v17.2 script, and definetly much cleaner than the v16.2 one xP My one question is, v16 version has a shiny chance for the script itself, does the v17+ modify or have its own shiny chance? (with v16 there was an obsurd amount of shinies (with my chances) and its a bit better in v17 but still feels common (like people have seen back to back shinies, whiles its 1/2k its still should be uncommon) if not, that lets me know its a me issue ^^

The integrated shiny chance in version 1.11.2 for PEv16.2 is now redesigned as an add-on named
"Simple Let's go shiny hunting by chaining a pokemon, inspired by Diego Mertens script"

To reduce the shiny spawning, you can change the values of

CHAINLENGTH      = 1 # default 10
SHINYPROBABILITY = 10

in the settings of that add-on. The higher the values the lower the shiny spawning.

Up to now, there are no new features in v2.0.2 for PEv18 compared to v2.0.1 for PEv17.2. I just made the features in v2.0.1 compatible with v18. However, they work slightly different. Hence, the new version number 2.0.2.

 

[derFischae]

If you want to change the movement of your overworld pokemon, then you can do this.

In method "spawnEvent(x,y,encounter,gender = nil,form = nil, isShiny = nil)", find the following code snippet

# we configure the movement of the overworld encounter
    if rand(100) < AGGRESSIVEENCOUNTERPROBABILITY
      event.pages[0].move_type = 3
      event.pages[0].move_speed = AGGRENCMOVESPEED
      event.pages[0].move_frequency = AGGRENCMOVEFREQ
      event.pages[0].move_route.list[0].code = 10
      event.pages[0].move_route.list[1] = RPG::MoveCommand.new
    else
      event.pages[0].move_type = 1
      event.pages[0].move_speed = ENCMOVESPEED
      event.pages[0].move_frequency = ENCMOVEFREQ
    end
    event.pages[0].step_anime = true if USESTOPANIMATION
    event.pages[0].trigger = 2

You can change this code according to your needs.

I recommand to read the instructions in
https://forums.rpgmakerweb.com/index.php?threads/creating-a-move-route-with-a-script-command.59367/
or
https://forums.rpgmakerweb.com/index.php?threads/creating-a-move-route-via-script-call.87467/
These instructions are not complete and are for RPGMakerVX. However, they explain how rpgMaker uses Moveroutes in the script section.

As an example, if you want (who knows why) that your overworld pokemon should
look left -> jump to the right -> look left -> jump to the right -> and so on,
then this can be done by the following code snippet

    event.pages[0].move_type = 3 # means that we have a custom move_route
    event.pages[0].move_route.repeat = true # the pokemon repeats the route
    event.pages[0].move_route.list = []
    event.pages[0].move_route.list.push(RPG::MoveCommand.new(17,[])) # 1st command: look left, no parameters needed
    event.pages[0].move_route.list.push(RPG::MoveCommand.new(14,[1,0])) # 2nd command: jump, needs 2 parameters for x and y direction: jump to the right has parameter [1,0] 
    event.pages[0].move_route.list.push(RPG::MoveCommand.new) # always end with an empty MoveCommand