Script: Visible Overworld Wild Encounter

derFischae · Aug 20, 2020

भाग्य ज्योति said:
I made it yesterday but forgot to post. Sometimes, Late is Mate.
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.

Code:

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

Nice work. Do you also want to add something like a water sprinkle or splash animation for pokemon spawning on water, or a dust or stone rustle animation for pokemon spawning in caves? Would look great.

bangdream · Aug 21, 2020

can visible overworld pokemon generate wild pokemons before you enter the map? something similar to pokemon let's go gba

derFischae · Aug 21, 2020

For short: If you want to run a procedure
- only when a pokemon spawns --> use: @@OnWildPokemonCreateForSpawning, used for changing the species, level, gender, alternative form and the shinyness of the overworld encounter
- only when you go into battle with a pokemon --> use: @@OnStartBattle, as usual
- in both situation --> use: @@OnWildPokemonCreate
Additionally, use the global variable $PokemonGlobal.battlingSpawnedPokemon to decide if you battle against an overworld encounter (true) or not (nil or false), including battling a normal encounter or not battling at all
- $PokemonGlobal.battlingSpawnedPokemon let's you add a procedure to the event @@OnWildPokemonCreate that runs only than battling or only on spawning.
lots of scripts out there work as suggested with this script. But for some scripts you might need to modify your additional scripts, such as Vendilys Rescue Chain or Joltiks Level Balance, to work properly with the visible overworld encounter script.

EVENTS AND VISIBLE OVERWORLD WILD ENCOUNTER

Concerning Wild Pokemon, there are 3 Events, which trigger before a wild overworld pokebattle.

At first, the event @@OnStartBattle triggers right before the battle.
You can add a procedure to this event, so that procedure runs when going into battle.
See the Pokemon Essentials manual if you want to read more on how to use it.

Another event is @@OnWildPokemonCreate, instructions in the Pokemon Essentials manual.
But with the visible overworld wild encounter script, the event @@OnWildPokemonCreate triggers twice, since we need to create a pokemon in two situation.
At first when the pokemon spawns to generate the pokemon species, level, shinyness, form and gender for the sprite.
And the second time it creates a pokemon is when you go into battle with an already spawned pokemon to set the ability, IVs and all the other things we need for the battle.

So, you can still use all your scripts which make use of the event @@OnwildPokemonCreate. But it might get an odd behavior since that event triggers twice.
To get rid of that the visible wild overworld encounter script introduces a new event @@OnWildPokemonCreateForSpawning.
It can be used the same way as the event @@OnWildPokemonCreate, but this event will only trigger when a pokemon spawns on the overworld and is not triggered in any other situations than for spawning.
If you want to add a procedure that modifies a pokemon only for spawning but not before battling then you can do it.
Simply add that procedure to the event @@OnWildPokemonCreateForSpawning.
Also make sure that the procedure only affects the species, level, alternative form, gender and shinyness of the pokemon.
All other changes of properties of the pokemon, such as the ability and the IVs, will be omitted, since they are not relevant for the sprite of the overworld encounter. (If you think, that there should be some other property changable then let me know.)
But all other properties of a pokemon can still be changed in @@OnWildPokemonCreate or @@OnStartBattle as usual.

Easy Example:

Spoiler:

Example: Modifications on already existing scripts, such as Joltiks Level Balance

Spoiler:

You can use the new global variable $PokemonGlobal.battlingSpawnedPokemon, which is true if you are in battle with an already spawned pokemon and nil or false in all other situations, including not battling at all.
This global variable let's you restrict a procedure added to @@OnWildPokemonCreate run only on creation for battling an already spawned pokemon or not to run then.
So, you can use this code snippet

Code:

Events.onWildPokemonCreate+=proc {|sender,e|
   if !$PokemonGlobal.battlingSpawnedPokemon
     #The actual code of your procedure you want to run only on spawning of overworld encounters and not battling them.
   end
}

will force that the procedure runs on spawning and not on battling an overworld encounter.
And

Code:

Events.onWildPokemonCreate+=proc {|sender,e|
   if $PokemonGlobal.battlingSpawnedPokemon == true
     #The actual code of your procedure you want to run only when battling overworld encounters.
   end
}

will force that the procedure only runs on battling with an overworld encounter.

EVENTS AND OVERWORLD ENCOUNTER AND NORMAL ENCOUNTER IN ONE GAME

You can have overworld encounters and events, placed by your own, which force a wild battle, which also counts somehow as a normal encounter.
Or you can use overworld encounters and normal encounters at the same time (see above if you want to include that).
So you might come to the point that you want to modify a pokemon or run a certain procedure in battle only for overworld encounters, only for normal encounters or for all encounters.
At first if you want to run a procedure for all encounters, then add that procedure to the event @@OnStartBattle as usual
But if not then you can use the new global variable $PokemonGlobal.battlingSpawnedPokemon, which is true if you are in battle with an already spawned pokemon and nil or false in all other situations, including not battling at all.
So, a procedure runs only for overworld encounters with this code snippet

Code:

Events.onStartBattle+=proc {|sender,e|
   if ($PokemonGlobal.battlingSpawnedPokemon == true)
     #The actual code of your procedure you want to run only when battling overworld encounters
   end
}

And a procedure runs only for normal encounters with this code snippet

Code:

Events.onStartBattle+=proc {|sender,e|
   if !$PokemonGlobal.battlingSpawnedPokemon
     #The actual code of your procedure you want to run only when battling normal encounters
   end
}

By the way,

Code:

Events.onWildPokemonCreate+=proc {|sender,e|
   if !$PokemonGlobal.battlingSpawnedPokemon
     #The actual code of your procedure you want to run only when battling normal encounters and on spawning of overworld encounters.
   end
}

will force that the procedure runs on spawning and on battling with an normal encounter, but not on battling with an overworld encounter.
And

Code:

Events.onWildPokemonCreate+=proc {|sender,e|
   if $PokemonGlobal.battlingSpawnedPokemon == true
     #The actual code of your procedure you want to run only when battling overworld encounters.
   end
}

will force that the procedure runs on battling with an overworld encounter.

Example: Shiny catchcombo for overworld and normal encounters

Spoiler:

Example: Modifications on Vendilys Rescue Chain for overworld and normal encounters at the same time

Spoiler:

yiormari · Aug 21, 2020

wells said:
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

Code:

  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

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

PS: sorry for my english.

derFischae · Aug 22, 2020

yiormari said:

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

Code:

  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

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

PS: sorry for my english.

Thank you for your solution. Am I right, that the line "sprite.dispose" needs to be replaced by "sprite.bitmap.dispose" on 2 lines in the method removeThisEventFromMap?

And would you mind, if I add your solution to version 1.6 in the main post? So everyone would get the corrected version automatic there.

yiormari · Aug 22, 2020

sure im testing in the version 16.2

derFischae · Aug 23, 2020

bangdream said:
can visible overworld pokemon generate wild pokemons before you enter the map? something similar to pokemon let's go gba

I don't know exactly what you mean. Because I don't know Pokemon Let's go Pikachu/Eevee GBA. But I answer how I understood it.
In the visible overworld wild encounter script, pokemon only spawn on the same map where the player is on. Spawning on other maps is not possible, even if the map is already on screen and just one step away from the player.
If you want to let pokemon spawn on neighbor maps then we need to begin to modify the method
"pbChooseTileOnStepTaken".
Instead of checking

Code:

  #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

we need to take the MapFactory into account and not just the $game_map.
This will lead into various modifications in the script in various code lines.
I would say that this is a possible modification, but it also takes som time to do it. And I would guess that a lot of user would never need this. By the way it could be possible that it slows down the script.
Is there a serious interest in that modification?

And what if I missunderstood it? Did you mean something different?

bangdream · Aug 23, 2020

derFischae said:
I don't know exactly what you mean. Because I don't know Pokemon Let's go Pikachu/Eevee GBA. But I answer how I understood it.
In the visible overworld wild encounter script, pokemon only spawn on the same map where the player is on. Spawning on other maps is not possible, even if the map is already on screen and just one step away from the player.
If you want to let pokemon spawn on neighbor maps then we need to begin to modify the method
"pbChooseTileOnStepTaken".
Instead of checking

Code:

#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

we need to take the MapFactory into account and not just the $game_map.
This will lead into various modifications in the script in various code lines.
I would say that this is a possible modification, but it also takes som time to do it. And I would guess that a lot of user would never need this. By the way it could be possible that it slows down the script.
Is there a serious interest in that modification?

And what if I missunderstood it? Did you mean something different?

Yes, i meant exactly that.

ArchyTheArc · Aug 27, 2020

I'm popping in again, and felt id update the v16 version for you, not deeply checked for inconsistancies, but it should be all good.

Spoiler:

Code:

#===============================================================================
# * Visible Overworld Encounters V1.11.2 - by derFischae (Credits if used please) *
#===============================================================================
#
# UPDATED TO VERSION 1.11.2. NOW INCLUDING VENDILYS RESCUE CHAIN
#
# This script is for Pokémon Essentials 17.
# 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/showthread.php?t=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
#
# MODIFICATIONS OF THIS SCRIPT
# Read the whole thread https://www.pokecommunity.com/showthread.php?t=429019 for more features and modifications, including
#  - instructions on how to modify a pokemon on spawning but not on battling again, for example for the script level balancing by Joltik https://www.pokecommunity.com/showthread.php?t=409828
#  - randomized spawning
#  - 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
#  - activating and deactivating overworld encounter spawning with switches
#  - overworld spawning and original encounters at the same time
#  - forbidding pokemon to spawn on specific terrain tiles in caves
#  - adding new encounter types, eg. desert, shallow water
#  - instructions on how to have different encounters for overworld spawning and original encountering on the same map
#  - instructions on how to include JoelMatthews Add-Ons for Vendilys Rescue Chain, concerening setting the probability of spawning with hidden abilities or with max IVs
#    see https://www.pokecommunity.com/showthread.php?t=422513 for original script
#  - error solutions
#
# 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
#
# NEW FEATURES IN VERSION 1.7:
#  - included automatic spawning of pokemon, i.e. spawning without having to move the player
#
# NEW FEATURES IN VERSION 1.8:
#  - included vendilys rescue chain, i. e. if pokemon of the same species family spawn in a row and will be battled in a row, then you increase the chance of spawning
#    an evolved pokemon of that species family. Link: https://www.pokecommunity.com/showthread.php?t=415524
#
# NEW FEATURES IN VERSION 1.9:
#  - removed bug occuring after fainting against wild overworld encounter
#  - for script-developers, shortened the spawnEvent method for better readablitiy
#
# NEW FEATURES IN VERSION 1.10:
#  - removed bugs from version 1.9
#  - added shapes of overworld encounter for rescue chain users
#  - supports spawning of alternate forms while chaining
#  - if overworld sprites for alternative, female or shiny forms are missing,
#    then the standard sprite will be displayed instead of an invisible event
#  - bug fix for shiny encounters
#
# NEW FEATURES IN VERSION 1.11:
#  - respecting shiny state for normal encounters when using overworld and normal encounters at the same time
#  - easier chaining concerning Vendilys Rescue chain, i.e. no more resetting of the chain when spawning of a pokemon of different family but when fighting with a pokemon of different family
#  - Added new Event @@OnPokemonCreateForSpawning which only triggers on spawning
#  - Added new global variable $PokemonGlobal.battlingSpawnedShiny to check if an active battle is against a spawned pokemon.
#
# NEW FEATURES IN VERSION 1.11.2:
#  - removed bug to make the new features in version 1.11 work
#
# 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, ...,
# 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)
# 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 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 sprite 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.
#
# THANKS to BulbasaurLvl5 for bringing me to pokemon essentials

#===============================================================================
#                            Settings
#===============================================================================

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      = 10 # default 10
#      number describes how many pokemon of the same species
#      you have to kill in a row to increase shiny propability

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

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

USESHINYSPRITES = true # default false
#false - means that you don't use shiny sprites for your overworld encounter
#true - means that a shiny encounter will have a its special shiny overworld sprite
#      make sure that you have the shiny sprites named with an "s" (e.g. 001s.png)
#      for the shiny forms in your \Graphics\Characters folder     

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 = 20 # 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

AUTOSPAWNSPEED = 0 # 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

USERESCUECHAIN = false # default false
#This parameter activates and deactivates vendilys rescue chain
#true  - means that fighting pokemon of the same speciesfamily in a row will increase the chance of spawning an evolved pokemon
#false - means that the rescue chain is deactivated
#
#Here the settings for Vendilys Rescue Chain
#    #===============================================================================
#    # Rescue Chain - By Vendily [v17]
#    # This script makes it so that if you chain pokemon of the same evolutionary
#    #  family together, an evolved form of the species will appear.
#    # I used no references and I completly misinterpreted a description of SOS
#    #  battles as this thing.
#    # * Minimum length of chain before evolved forms begin to appear. With every
#    #    multiple, the chance for the evolved form or a second evolved form to appear
#    #    increases. (Default 10)
#    # * Chance that the evolved form will even show up, 1 out of this constant.
#    #    (Default 4, for 1/4 chance, it's probably too high)
#    # * Random number added to the minimum level this pokemon can evolve at or
#    #    the wild pokemon's current level if it evolves through item (Default 5)
#    # * Disable this modifier while the pokeradar is being used.
#    #    I recommend leaving it as is as the pokeradar may behave strangely and the
#    #    two scripts may reset each others' chain. (Default true)
#    # * The maps where this effect can only take place in.
#    # * The maps where this effect will never happen. Ever.
#    # * The switch to disable this effect. (Default -1)
#    #===============================================================================
EVOCHAINLENGTH      = 1
EVORANDCHANCE      = 2
EVOLEVELWOBBLE      = 5
EVOPKRADERDISABLE  = true
EVOMAPSWHITELIST    = []
EVOMAPSBLACKLIST    = []
EVODISABLESWITCH    = -1

#===============================================================================
#                              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 :catchcombo # [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.catchcombo = [0,0] if !$PokemonTemp.catchcombo
  if $PokemonTemp.catchcombo[1]!=species
    $PokemonTemp.catchcombo=[0,species]
  end
  if result==1 && species==$PokemonTemp.catchcombo[1]
    $PokemonTemp.catchcombo[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)
  #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
    #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
#===============================================================================
# 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))
  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)
    EncounterModifier.triggerEncounterEnd()
    return
  end
  #----------------------------------------
  # added to include rescue chain, forms and gender by derFischae
  form = nil
  gender = nil
  pokemon = pbGenerateWildPokemon(encounter[0],encounter[1])
  Events.onWildPokemonCreateForSpawning.trigger(nil,pokemon)
  encounter = [pokemon.species,pokemon.level]
  if USEALTFORMS == true or USEFEMALESPRITES == true or USERESCUECHAIN == true
    gender = pokemon.gender if USEFEMALESPRITES==true
    form = pokemon.form if USEALTFORMS == true
    isShiny = pokemon.isShiny?
    if USERESCUECHAIN == true
      unless EVOMAPSBLACKLIST.include?($game_map.map_id) and
          EVOMAPSWHITELIST.length>0 && !EVOMAPSWHITELIST.include?($game_map.map_id) and
          EVODISABLESWITCH>0 && $game_switches[EVODISABLESWITCH] and
          EVOPKRADERDISABLE && !$PokemonTemp.pokeradar.nil? and
          !$PokemonGlobal.roamEncounter.nil?
        unless pokemon.nil?
          if !$PokemonTemp.rescuechain
            $PokemonTemp.rescuechain=[0,nil]
          end
          family =pbGetBabySpecies(pokemon.species)
          if family == $PokemonTemp.rescuechain[1]
            if $PokemonTemp.rescuechain[0]>=EVOCHAINLENGTH
              for i in 0..($PokemonTemp.rescuechain[0]/EVOCHAINLENGTH).floor()
                evodata=pbGetEvolvedFormData(pokemon.species)
                if evodata.length>0 && rand(EVORANDCHANCE)==0
                  fspecies=evodata[rand(evodata.length)][2]
                  newspecies,newform=pbGetSpeciesFromFSpecies(fspecies)
                  level=pbGetMinimumLevel(fspecies)
                  level=[level,pokemon.level].max
                  level+=rand(EVOLEVELWOBBLE)
                  encounter = [newspecies,level]
                end
              end
              pokemon = pbGenerateWildPokemon(encounter[0],encounter[1])
              Events.onWildPokemonCreateForSpawning.trigger(nil,pokemon)
              encounter = [pokemon.species,pokemon.level]
              gender = pokemon.gender if USEFEMALESPRITES==true
              form = pokemon.form if USEALTFORMS == true
              isShiny = pokemon.isShiny?
            end
          end
        end
      end
    end
  end
  return encounter,gender,form,isShiny
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,isShiny = 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,isShiny)
  else
    mapId = $game_map.map_id
    spawnMap = $MapFactory.getMap(mapId)
    #Kernel.pbMessage(_INTL("{1}",spawnMap.map_id))
    spawnMap.spawnEvent(x,y,encounter,gender,form,isShiny)
  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
  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?
      return true
    elsif self.isGrass?
      return PBTerrain.isGrass?($game_map.terrain_tag(x,y))
    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, isShiny = nil)
    #------------------------------------------------------------------
    # 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.catchcombo=[0,0] if !$PokemonTemp.catchcombo
    shinysprite = nil
    if isShiny==true
      character_name = character_name+"s" if USESHINYSPRITES == true and pbResolveBitmap("Graphics/Characters/"+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" if USESHINYSPRITES == true and pbResolveBitmap("Graphics/Characters/"+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 if pbResolveBitmap("Graphics/Characters/"+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
    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
    pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonTemp.nowRoaming!=nil) ? " $PokemonTemp.nowRoaming = "+$PokemonTemp.nowRoaming.to_s : " $PokemonTemp.nowRoaming = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonTemp.roamerIndex!=nil) ? " $PokemonTemp.roamerIndex = "+$PokemonTemp.roamerIndex.to_s : " $PokemonTemp.roamerIndex = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonGlobal.nextBattleBGM!=nil) ? " $PokemonGlobal.nextBattleBGM = '"+$PokemonGlobal.nextBattleBGM.to_s+"'" : " $PokemonGlobal.nextBattleBGM = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonTemp.encounterType!=nil) ? " $PokemonTemp.encounterType = "+$PokemonTemp.encounterType.to_s : " $PokemonTemp.encounterType = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    # setting shiny switch on if sprite is a shiny-sprite
    oldShinySwitchStatus=$game_switches[SHINY_WILD_POKEMON_SWITCH]
    parameter = (shinysprite == true) ? " $game_switches["+SHINY_WILD_POKEMON_SWITCH.to_s+"]=true" : " $game_switches["+SHINY_WILD_POKEMON_SWITCH.to_s+"]=false"
    pbPushScript(event.pages[0].list,sprintf(parameter))
    # setting $PokemonGlobal.battlingSpawnedPokemon = true
    pbPushScript(event.pages[0].list,sprintf(" $PokemonGlobal.battlingSpawnedPokemon = true"))
    #pbSingleOrDoubleWildBattle(encounter[0],encounter[1])
    gender = "nil" if gender==nil
    form = "nil" if form==nil
    shinysprite = "nil" if shinysprite==nil
    pbPushScript(event.pages[0].list,sprintf(" 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+","+shinysprite.to_s+")"))
    # setting $PokemonGlobal.battlingSpawnedPokemon = false
    pbPushScript(event.pages[0].list,sprintf(" $PokemonGlobal.battlingSpawnedPokemon = false"))
    # setting shiny switch back to previous state
    pbPushScript(event.pages[0].list,sprintf(" $game_switches["+SHINY_WILD_POKEMON_SWITCH.to_s+"]="+oldShinySwitchStatus.to_s))
    pbPushScript(event.pages[0].list,sprintf("$PokemonTemp.encounterType = -1"))
    pbPushScript(event.pages[0].list,sprintf("EncounterModifier.triggerEncounterEnd()"))
    if !$MapFactory
      parameter = "$game_map.removeThisEventfromMap(#{key_id})"
    else
      mapId = $game_map.map_id
      parameter = "$MapFactory.getMap("+mapId.to_s+").removeThisEventfromMap(#{key_id})"
    end
    pbPushScript(event.pages[0].list,sprintf(parameter))
    pbPushEnd(event.pages[0].list)
    #------------------------------------------------------------------
    # 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,shinysprite = nil)
  if $MapFactory
    terrainTag = $MapFactory.getTerrainTag(map_id,x,y)
  else
    terrainTag = $game_map.terrain_tag(x,y)
  end
  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,shinysprite,nil,nil,nil)
  else
    pbWildBattle(species,level,nil,true,false,gender,form,shinysprite)
  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,shinysprite = 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
  genwildpoke.shinyflag = shinysprite if shinysprite!=nil
  # 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,shinysprite1 = nil,gender2 = nil,form2 = nil,shinysprite2 = 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.shinyflag = shinysprite1 if shinysprite1!=nil
    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.shinyflag = shinysprite2 if shinysprite2!=nil
    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

class Game_Map
  def removeThisEventfromMap(id)
    if @events.has_key?(id)
      #-------------------------------------------------------------------------
      # added to reduce lag by derFischae
      for sprite in $scene.spritesets[@map_id].character_sprites
        if sprite.character == @events[id]
          $scene.spritesets[@map_id].character_sprites.delete(sprite)
          sprite.dispose
          break
        end
      end
      #-------------------------------------------------------------------------
      @events.delete(id)
    end
    #-------------------------------------------------------------------------
    # added some code above to reduce lag by derFischae
    # Original Code was
    #$scene.disposeSpritesets
    #$scene.createSpritesets
    #-------------------------------------------------------------------------
  end
end

#===============================================================================
# for automatic spawning without making a step
#===============================================================================

class Game_Map

  alias original_update update
  def update
    #--------------------------------
    # for testing auto spawning
    $framecounter = 0 if !$framecounter
    $framecounter = $framecounter + 1
    if $framecounter == AUTOSPAWNSPEED
      $framecounter = 0
      Kernel.pbOnStepTaken(nil)
    end
    #--------------------------------
    original_update
  end
end

#===============================================================================
# For The Rescue Chain - By Vendily [v17]
# edited to obtain compatibility for visible overworld encounter by derFischae
#===============================================================================

class PokemonTemp
  attr_accessor :rescuechain # [chain length, evo family]
end

Events.onWildBattleEnd+=proc {|sender,e|
  next if EVOMAPSBLACKLIST.include?($game_map.map_id)
  next if EVOMAPSWHITELIST.length>0 && !EVOMAPSWHITELIST.include?($game_map.map_id)
  next if EVODISABLESWITCH>0 && $game_switches[EVODISABLESWITCH]
  next if EVOPKRADERDISABLE && !$PokemonTemp.pokeradar.nil?
  $PokemonTemp.rescuechain = [0,nil] if !$PokemonTemp.rescuechain
  species=e[0]
  result=e[2]
  family=pbGetBabySpecies(species)
  if $PokemonTemp.rescuechain[1]!=family
    $PokemonTemp.rescuechain=[0,family]
  end
  if (result==1 || result == 4) && family==$PokemonTemp.rescuechain[1]
    $PokemonTemp.rescuechain[0]+=1
  end
}

#===============================================================================
# Adding Event OnWildPokemonCreateForSpawning to Module Events in Script PField_Field.
# This Event is triggered  when a new pokemon spawns. Use this Event instead of OnWildPokemonCreate
# if you want to add a new procedure that modifies a pokemon on spawning
# but not on creation while going into battle with an already spawned pokemon.
#Note that OnPokemonCreate is also triggered when a pokemon is created for spawning,
#But OnPokemonCreateForSpawning is not triggered when a pokemon is created in other situations than for spawning
#===============================================================================
module Events
  @@OnWildPokemonCreateForSpawning          = Event.new

  # Triggers whenever a wild Pokémon is created for spawning
  # Parameters:
  # e[0] - Pokémon being created for spawning
  def self.onWildPokemonCreateForSpawning; @@OnWildPokemonCreateForSpawning; end
  def self.onWildPokemonCreateForSpawning=(v); @@OnWildPokemonCreateForSpawning = v; end

end

#===============================================================================
# adds new parameter battlingSpawnedPokemon to the class PokemonGlobalMetadata
# defined in script section PField_Metadata. Also overrides initialize include that parameter there.
#===============================================================================

class PokemonGlobalMetadata
  attr_accessor :battlingSpawnedPokemon

  alias original_initialize initialize
  def initialize
    battlingSpawnedPokemon = false
    original_initialize
  end
end

Only changes were forcesinglebattle, the cryspecies, doublebattle terrain tag and maybe the canencounter(?)

also, seen you've added the autospawn, and not sure if its 100% a feature but, if i do the modifier for both normal and overworld and make the chance 100%, with auto on, will it do auto normal battles or still spawn the overworlds? (basically want the almost SwSh with normal and overworlds being seperate pokemon pools, but dont rely on each other like this does by the base function, really like the new changes too! ^^ didnt cahnge it to saying v17 to v16 or anything at the start so, buit hope this is useful for someone.

edit: adding the changes for normal and overworlds, making it 100%, just have to have a new metadata (or switch but i use metadata's so save on switches) to toggle on when an autospawn triggers and add a check for the normal encounter chance it works. (still to do different encounter pools but still)

derFischae · Aug 31, 2020

ArchyTheArc said:

I'm popping in again, and felt id update the v16 version for you, not deeply checked for inconsistancies, but it should be all good.

Spoiler:

Code:

#===============================================================================
# * Visible Overworld Encounters V1.11.2 - by derFischae (Credits if used please) *
#===============================================================================
#
# UPDATED TO VERSION 1.11.2. NOW INCLUDING VENDILYS RESCUE CHAIN
#
# This script is for Pokémon Essentials 17.
# 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/showthread.php?t=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
#
# MODIFICATIONS OF THIS SCRIPT
# Read the whole thread https://www.pokecommunity.com/showthread.php?t=429019 for more features and modifications, including
#  - instructions on how to modify a pokemon on spawning but not on battling again, for example for the script level balancing by Joltik https://www.pokecommunity.com/showthread.php?t=409828
#  - randomized spawning
#  - 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
#  - activating and deactivating overworld encounter spawning with switches
#  - overworld spawning and original encounters at the same time
#  - forbidding pokemon to spawn on specific terrain tiles in caves
#  - adding new encounter types, eg. desert, shallow water
#  - instructions on how to have different encounters for overworld spawning and original encountering on the same map
#  - instructions on how to include JoelMatthews Add-Ons for Vendilys Rescue Chain, concerening setting the probability of spawning with hidden abilities or with max IVs
#    see https://www.pokecommunity.com/showthread.php?t=422513 for original script
#  - error solutions
#
# 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
#
# NEW FEATURES IN VERSION 1.7:
#  - included automatic spawning of pokemon, i.e. spawning without having to move the player
#
# NEW FEATURES IN VERSION 1.8:
#  - included vendilys rescue chain, i. e. if pokemon of the same species family spawn in a row and will be battled in a row, then you increase the chance of spawning
#    an evolved pokemon of that species family. Link: https://www.pokecommunity.com/showthread.php?t=415524
#
# NEW FEATURES IN VERSION 1.9:
#  - removed bug occuring after fainting against wild overworld encounter
#  - for script-developers, shortened the spawnEvent method for better readablitiy
#
# NEW FEATURES IN VERSION 1.10:
#  - removed bugs from version 1.9
#  - added shapes of overworld encounter for rescue chain users
#  - supports spawning of alternate forms while chaining
#  - if overworld sprites for alternative, female or shiny forms are missing,
#    then the standard sprite will be displayed instead of an invisible event
#  - bug fix for shiny encounters
#
# NEW FEATURES IN VERSION 1.11:
#  - respecting shiny state for normal encounters when using overworld and normal encounters at the same time
#  - easier chaining concerning Vendilys Rescue chain, i.e. no more resetting of the chain when spawning of a pokemon of different family but when fighting with a pokemon of different family
#  - Added new Event @@OnPokemonCreateForSpawning which only triggers on spawning
#  - Added new global variable $PokemonGlobal.battlingSpawnedShiny to check if an active battle is against a spawned pokemon.
#
# NEW FEATURES IN VERSION 1.11.2:
#  - removed bug to make the new features in version 1.11 work
#
# 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, ...,
# 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)
# 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 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 sprite 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.
#
# THANKS to BulbasaurLvl5 for bringing me to pokemon essentials

#===============================================================================
#                            Settings
#===============================================================================

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      = 10 # default 10
#      number describes how many pokemon of the same species
#      you have to kill in a row to increase shiny propability

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

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

USESHINYSPRITES = true # default false
#false - means that you don't use shiny sprites for your overworld encounter
#true - means that a shiny encounter will have a its special shiny overworld sprite
#      make sure that you have the shiny sprites named with an "s" (e.g. 001s.png)
#      for the shiny forms in your \Graphics\Characters folder     

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 = 20 # 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

AUTOSPAWNSPEED = 0 # 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

USERESCUECHAIN = false # default false
#This parameter activates and deactivates vendilys rescue chain
#true  - means that fighting pokemon of the same speciesfamily in a row will increase the chance of spawning an evolved pokemon
#false - means that the rescue chain is deactivated
#
#Here the settings for Vendilys Rescue Chain
#    #===============================================================================
#    # Rescue Chain - By Vendily [v17]
#    # This script makes it so that if you chain pokemon of the same evolutionary
#    #  family together, an evolved form of the species will appear.
#    # I used no references and I completly misinterpreted a description of SOS
#    #  battles as this thing.
#    # * Minimum length of chain before evolved forms begin to appear. With every
#    #    multiple, the chance for the evolved form or a second evolved form to appear
#    #    increases. (Default 10)
#    # * Chance that the evolved form will even show up, 1 out of this constant.
#    #    (Default 4, for 1/4 chance, it's probably too high)
#    # * Random number added to the minimum level this pokemon can evolve at or
#    #    the wild pokemon's current level if it evolves through item (Default 5)
#    # * Disable this modifier while the pokeradar is being used.
#    #    I recommend leaving it as is as the pokeradar may behave strangely and the
#    #    two scripts may reset each others' chain. (Default true)
#    # * The maps where this effect can only take place in.
#    # * The maps where this effect will never happen. Ever.
#    # * The switch to disable this effect. (Default -1)
#    #===============================================================================
EVOCHAINLENGTH      = 1
EVORANDCHANCE      = 2
EVOLEVELWOBBLE      = 5
EVOPKRADERDISABLE  = true
EVOMAPSWHITELIST    = []
EVOMAPSBLACKLIST    = []
EVODISABLESWITCH    = -1

#===============================================================================
#                              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 :catchcombo # [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.catchcombo = [0,0] if !$PokemonTemp.catchcombo
  if $PokemonTemp.catchcombo[1]!=species
    $PokemonTemp.catchcombo=[0,species]
  end
  if result==1 && species==$PokemonTemp.catchcombo[1]
    $PokemonTemp.catchcombo[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)
  #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
    #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
#===============================================================================
# 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))
  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)
    EncounterModifier.triggerEncounterEnd()
    return
  end
  #----------------------------------------
  # added to include rescue chain, forms and gender by derFischae
  form = nil
  gender = nil
  pokemon = pbGenerateWildPokemon(encounter[0],encounter[1])
  Events.onWildPokemonCreateForSpawning.trigger(nil,pokemon)
  encounter = [pokemon.species,pokemon.level]
  if USEALTFORMS == true or USEFEMALESPRITES == true or USERESCUECHAIN == true
    gender = pokemon.gender if USEFEMALESPRITES==true
    form = pokemon.form if USEALTFORMS == true
    isShiny = pokemon.isShiny?
    if USERESCUECHAIN == true
      unless EVOMAPSBLACKLIST.include?($game_map.map_id) and
          EVOMAPSWHITELIST.length>0 && !EVOMAPSWHITELIST.include?($game_map.map_id) and
          EVODISABLESWITCH>0 && $game_switches[EVODISABLESWITCH] and
          EVOPKRADERDISABLE && !$PokemonTemp.pokeradar.nil? and
          !$PokemonGlobal.roamEncounter.nil?
        unless pokemon.nil?
          if !$PokemonTemp.rescuechain
            $PokemonTemp.rescuechain=[0,nil]
          end
          family =pbGetBabySpecies(pokemon.species)
          if family == $PokemonTemp.rescuechain[1]
            if $PokemonTemp.rescuechain[0]>=EVOCHAINLENGTH
              for i in 0..($PokemonTemp.rescuechain[0]/EVOCHAINLENGTH).floor()
                evodata=pbGetEvolvedFormData(pokemon.species)
                if evodata.length>0 && rand(EVORANDCHANCE)==0
                  fspecies=evodata[rand(evodata.length)][2]
                  newspecies,newform=pbGetSpeciesFromFSpecies(fspecies)
                  level=pbGetMinimumLevel(fspecies)
                  level=[level,pokemon.level].max
                  level+=rand(EVOLEVELWOBBLE)
                  encounter = [newspecies,level]
                end
              end
              pokemon = pbGenerateWildPokemon(encounter[0],encounter[1])
              Events.onWildPokemonCreateForSpawning.trigger(nil,pokemon)
              encounter = [pokemon.species,pokemon.level]
              gender = pokemon.gender if USEFEMALESPRITES==true
              form = pokemon.form if USEALTFORMS == true
              isShiny = pokemon.isShiny?
            end
          end
        end
      end
    end
  end
  return encounter,gender,form,isShiny
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,isShiny = 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,isShiny)
  else
    mapId = $game_map.map_id
    spawnMap = $MapFactory.getMap(mapId)
    #Kernel.pbMessage(_INTL("{1}",spawnMap.map_id))
    spawnMap.spawnEvent(x,y,encounter,gender,form,isShiny)
  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
  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?
      return true
    elsif self.isGrass?
      return PBTerrain.isGrass?($game_map.terrain_tag(x,y))
    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, isShiny = nil)
    #------------------------------------------------------------------
    # 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.catchcombo=[0,0] if !$PokemonTemp.catchcombo
    shinysprite = nil
    if isShiny==true
      character_name = character_name+"s" if USESHINYSPRITES == true and pbResolveBitmap("Graphics/Characters/"+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" if USESHINYSPRITES == true and pbResolveBitmap("Graphics/Characters/"+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 if pbResolveBitmap("Graphics/Characters/"+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
    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
    pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonTemp.nowRoaming!=nil) ? " $PokemonTemp.nowRoaming = "+$PokemonTemp.nowRoaming.to_s : " $PokemonTemp.nowRoaming = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonTemp.roamerIndex!=nil) ? " $PokemonTemp.roamerIndex = "+$PokemonTemp.roamerIndex.to_s : " $PokemonTemp.roamerIndex = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonGlobal.nextBattleBGM!=nil) ? " $PokemonGlobal.nextBattleBGM = '"+$PokemonGlobal.nextBattleBGM.to_s+"'" : " $PokemonGlobal.nextBattleBGM = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonTemp.encounterType!=nil) ? " $PokemonTemp.encounterType = "+$PokemonTemp.encounterType.to_s : " $PokemonTemp.encounterType = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    # setting shiny switch on if sprite is a shiny-sprite
    oldShinySwitchStatus=$game_switches[SHINY_WILD_POKEMON_SWITCH]
    parameter = (shinysprite == true) ? " $game_switches["+SHINY_WILD_POKEMON_SWITCH.to_s+"]=true" : " $game_switches["+SHINY_WILD_POKEMON_SWITCH.to_s+"]=false"
    pbPushScript(event.pages[0].list,sprintf(parameter))
    # setting $PokemonGlobal.battlingSpawnedPokemon = true
    pbPushScript(event.pages[0].list,sprintf(" $PokemonGlobal.battlingSpawnedPokemon = true"))
    #pbSingleOrDoubleWildBattle(encounter[0],encounter[1])
    gender = "nil" if gender==nil
    form = "nil" if form==nil
    shinysprite = "nil" if shinysprite==nil
    pbPushScript(event.pages[0].list,sprintf(" 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+","+shinysprite.to_s+")"))
    # setting $PokemonGlobal.battlingSpawnedPokemon = false
    pbPushScript(event.pages[0].list,sprintf(" $PokemonGlobal.battlingSpawnedPokemon = false"))
    # setting shiny switch back to previous state
    pbPushScript(event.pages[0].list,sprintf(" $game_switches["+SHINY_WILD_POKEMON_SWITCH.to_s+"]="+oldShinySwitchStatus.to_s))
    pbPushScript(event.pages[0].list,sprintf("$PokemonTemp.encounterType = -1"))
    pbPushScript(event.pages[0].list,sprintf("EncounterModifier.triggerEncounterEnd()"))
    if !$MapFactory
      parameter = "$game_map.removeThisEventfromMap(#{key_id})"
    else
      mapId = $game_map.map_id
      parameter = "$MapFactory.getMap("+mapId.to_s+").removeThisEventfromMap(#{key_id})"
    end
    pbPushScript(event.pages[0].list,sprintf(parameter))
    pbPushEnd(event.pages[0].list)
    #------------------------------------------------------------------
    # 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,shinysprite = nil)
  if $MapFactory
    terrainTag = $MapFactory.getTerrainTag(map_id,x,y)
  else
    terrainTag = $game_map.terrain_tag(x,y)
  end
  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,shinysprite,nil,nil,nil)
  else
    pbWildBattle(species,level,nil,true,false,gender,form,shinysprite)
  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,shinysprite = 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
  genwildpoke.shinyflag = shinysprite if shinysprite!=nil
  # 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,shinysprite1 = nil,gender2 = nil,form2 = nil,shinysprite2 = 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.shinyflag = shinysprite1 if shinysprite1!=nil
    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.shinyflag = shinysprite2 if shinysprite2!=nil
    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

class Game_Map
  def removeThisEventfromMap(id)
    if @events.has_key?(id)
      #-------------------------------------------------------------------------
      # added to reduce lag by derFischae
      for sprite in $scene.spritesets[@map_id].character_sprites
        if sprite.character == @events[id]
          $scene.spritesets[@map_id].character_sprites.delete(sprite)
          sprite.dispose
          break
        end
      end
      #-------------------------------------------------------------------------
      @events.delete(id)
    end
    #-------------------------------------------------------------------------
    # added some code above to reduce lag by derFischae
    # Original Code was
    #$scene.disposeSpritesets
    #$scene.createSpritesets
    #-------------------------------------------------------------------------
  end
end

#===============================================================================
# for automatic spawning without making a step
#===============================================================================

class Game_Map

  alias original_update update
  def update
    #--------------------------------
    # for testing auto spawning
    $framecounter = 0 if !$framecounter
    $framecounter = $framecounter + 1
    if $framecounter == AUTOSPAWNSPEED
      $framecounter = 0
      Kernel.pbOnStepTaken(nil)
    end
    #--------------------------------
    original_update
  end
end

#===============================================================================
# For The Rescue Chain - By Vendily [v17]
# edited to obtain compatibility for visible overworld encounter by derFischae
#===============================================================================

class PokemonTemp
  attr_accessor :rescuechain # [chain length, evo family]
end

Events.onWildBattleEnd+=proc {|sender,e|
  next if EVOMAPSBLACKLIST.include?($game_map.map_id)
  next if EVOMAPSWHITELIST.length>0 && !EVOMAPSWHITELIST.include?($game_map.map_id)
  next if EVODISABLESWITCH>0 && $game_switches[EVODISABLESWITCH]
  next if EVOPKRADERDISABLE && !$PokemonTemp.pokeradar.nil?
  $PokemonTemp.rescuechain = [0,nil] if !$PokemonTemp.rescuechain
  species=e[0]
  result=e[2]
  family=pbGetBabySpecies(species)
  if $PokemonTemp.rescuechain[1]!=family
    $PokemonTemp.rescuechain=[0,family]
  end
  if (result==1 || result == 4) && family==$PokemonTemp.rescuechain[1]
    $PokemonTemp.rescuechain[0]+=1
  end
}

#===============================================================================
# Adding Event OnWildPokemonCreateForSpawning to Module Events in Script PField_Field.
# This Event is triggered  when a new pokemon spawns. Use this Event instead of OnWildPokemonCreate
# if you want to add a new procedure that modifies a pokemon on spawning
# but not on creation while going into battle with an already spawned pokemon.
#Note that OnPokemonCreate is also triggered when a pokemon is created for spawning,
#But OnPokemonCreateForSpawning is not triggered when a pokemon is created in other situations than for spawning
#===============================================================================
module Events
  @@OnWildPokemonCreateForSpawning          = Event.new

  # Triggers whenever a wild Pokémon is created for spawning
  # Parameters:
  # e[0] - Pokémon being created for spawning
  def self.onWildPokemonCreateForSpawning; @@OnWildPokemonCreateForSpawning; end
  def self.onWildPokemonCreateForSpawning=(v); @@OnWildPokemonCreateForSpawning = v; end

end

#===============================================================================
# adds new parameter battlingSpawnedPokemon to the class PokemonGlobalMetadata
# defined in script section PField_Metadata. Also overrides initialize include that parameter there.
#===============================================================================

class PokemonGlobalMetadata
  attr_accessor :battlingSpawnedPokemon

  alias original_initialize initialize
  def initialize
    battlingSpawnedPokemon = false
    original_initialize
  end
end

Only changes were forcesinglebattle, the cryspecies, doublebattle terrain tag and maybe the canencounter(?)

also, seen you've added the autospawn, and not sure if its 100% a feature but, if i do the modifier for both normal and overworld and make the chance 100%, with auto on, will it do auto normal battles or still spawn the overworlds? (basically want the almost SwSh with normal and overworlds being seperate pokemon pools, but dont rely on each other like this does by the base function, really like the new changes too! ^^ didnt cahnge it to saying v17 to v16 or anything at the start so, buit hope this is useful for someone.

edit: adding the changes for normal and overworlds, making it 100%, just have to have a new metadata (or switch but i use metadata's so save on switches) to toggle on when an autospawn triggers and add a check for the normal encounter chance it works. (still to do different encounter pools but still)

Thank you for downscaling v1.11.2 again. A lot of Pokemon Essentials v16 and v16.2 users will be thankful.
I included your new version in the main post. By the way, editing the first post becomes laggy, because of that much text, code and modifications listed in the first post.

You asked for autospawn, while you use 100% normal encounters. And indeedfor the implementation of autospawn in v1.11.2, as along as you are not standing on a grass tile, or any other tile where an encounter is possible, nothing will happen. But if you stand on such a tile, then an instant battle will trigger after some time, without moving the player. Overworld encounters will not spawn.

derFischae · Aug 31, 2020

* Visible Overworld Wild Encounters Version 16.0.1.11.5 - by derFischae and ArchyTheArc (Credits if used please) *

UPDATED TO VERSION 16.0.1.11.5.

This script is for Pokémon Essentials V16.2. Originally written for PEv17 and PEv17.2 by me and downscaled to PEv16.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/showthread.php?t=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.

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)
Insert a new file in the script editor above main, name it Overworld_Encounters and copy this code below into it.
Set the properties for your pleasure in the properties section of the script. Most of you don't need to change anything.
If you want, then you can install modifications for the script from below.
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 16.0.1.11.5 for Pokemon Essentials V16.2. THANKS to ArchyTheArc for downscaling to Pokemon Essentials V16.2. *

Spoiler:

Code:

#===============================================================================
# * Visible Overworld Encounters V16.0.1.11.5 - by derFischae and ArchyTheArc (Credits if used please) *
#===============================================================================
#
# UPDATED TO VERSION 16.0.1.11.5.
#
# This script is for Pokémon Essentials 16.2.
# 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/showthread.php?t=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
#
# MODIFICATIONS OF THIS SCRIPT
# Read the whole thread https://www.pokecommunity.com/showthread.php?t=429019 for more features and modifications, including
#  - instructions on how to modify a pokemon on spawning but not on battling again, for example for the script level balancing by Joltik https://www.pokecommunity.com/showthread.php?t=409828
#  - randomized spawning
#  - 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
#  - activating and deactivating overworld encounter spawning with switches
#  - overworld spawning and original encounters at the same time
#  - forbidding pokemon to spawn on specific terrain tiles in caves
#  - adding new encounter types, eg. desert, shallow water
#  - instructions on how to have different encounters for overworld spawning and original encountering on the same map
#  - instructions on how to include JoelMatthews Add-Ons for Vendilys Rescue Chain, concerening setting the probability of spawning with hidden abilities or with max IVs
#    see https://www.pokecommunity.com/showthread.php?t=422513 for original script
#  - error solutions
#
# 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
#
# NEW FEATURES IN VERSION 1.7:
#  - included automatic spawning of pokemon, i.e. spawning without having to move the player
#
# NEW FEATURES IN VERSION 1.8:
#  - included vendilys rescue chain, i. e. if pokemon of the same species family spawn in a row and will be battled in a row, then you increase the chance of spawning
#    an evolved pokemon of that species family. Link: https://www.pokecommunity.com/showthread.php?t=415524
#
# NEW FEATURES IN VERSION 1.9:
#  - removed bug occuring after fainting against wild overworld encounter
#  - for script-developers, shortened the spawnEvent method for better readablitiy
#
# NEW FEATURES IN VERSION 1.10:
#  - removed bugs from version 1.9
#  - added shapes of overworld encounter for rescue chain users
#  - supports spawning of alternate forms while chaining
#  - if overworld sprites for alternative, female or shiny forms are missing,
#    then the standard sprite will be displayed instead of an invisible event
#  - bug fix for shiny encounters
#
# NEW FEATURES IN VERSION 1.11:
#  - respecting shiny state for normal encounters when using overworld and normal encounters at the same time
#  - easier chaining concerning Vendilys Rescue chain, i.e. no more resetting of the chain when spawning of a pokemon of different family but when fighting with a pokemon of different family
#  - Added new Event @@OnPokemonCreateForSpawning which only triggers on spawning
#  - Added new global variable $PokemonGlobal.battlingSpawnedShiny to check if an active battle is against a spawned pokemon.
#
# NEW FEATURES IN VERSION 1.11.2:
#  - removed bug to make the new features in version 1.11 work
#
# NEW FEATURES IN VERSION 16.0.1.11.3:
#   - (hopefully) removed a rare bug concerning character_sprites
#
# NEW FEATURES IN VERSION 16.0.1.11.4:
#  - removed a bug concerning changing the standard form when goining into battle
#
# NEW FEATURES IN VERSION 16.0.1.11.5:
#  - tiny bug fix for $PokemonTemp.encounterType
#
# 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, ...,
# 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)
# Step 2) Insert a new file in the script editor above main,
# name it Overworld_Encounters and copy this code into it.
# Step 3) Set the properties for your pleasure in the properties section
# of the script. Most of you don't need to change anything.
# Step 4) If you want, then you can install modifications for the script from below.
# Step 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
#
# 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 sprite 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.

#===============================================================================
#                            Settings
#===============================================================================

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      = 10 # default 10
#      number describes how many pokemon of the same species
#      you have to kill in a row to increase shiny propability

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

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

USESHINYSPRITES = true # default false
#false - means that you don't use shiny sprites for your overworld encounter
#true - means that a shiny encounter will have a its special shiny overworld sprite
#      make sure that you have the shiny sprites named with an "s" (e.g. 001s.png)
#      for the shiny forms in your \Graphics\Characters folder     

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 = 20 # 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

AUTOSPAWNSPEED = 0 # 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

USERESCUECHAIN = false # default false
#This parameter activates and deactivates vendilys rescue chain
#true  - means that fighting pokemon of the same speciesfamily in a row will increase the chance of spawning an evolved pokemon
#false - means that the rescue chain is deactivated
#
#Here the settings for Vendilys Rescue Chain
#    #===============================================================================
#    # Rescue Chain - By Vendily [v17]
#    # This script makes it so that if you chain pokemon of the same evolutionary
#    #  family together, an evolved form of the species will appear.
#    # I used no references and I completly misinterpreted a description of SOS
#    #  battles as this thing.
#    # * Minimum length of chain before evolved forms begin to appear. With every
#    #    multiple, the chance for the evolved form or a second evolved form to appear
#    #    increases. (Default 10)
#    # * Chance that the evolved form will even show up, 1 out of this constant.
#    #    (Default 4, for 1/4 chance, it's probably too high)
#    # * Random number added to the minimum level this pokemon can evolve at or
#    #    the wild pokemon's current level if it evolves through item (Default 5)
#    # * Disable this modifier while the pokeradar is being used.
#    #    I recommend leaving it as is as the pokeradar may behave strangely and the
#    #    two scripts may reset each others' chain. (Default true)
#    # * The maps where this effect can only take place in.
#    # * The maps where this effect will never happen. Ever.
#    # * The switch to disable this effect. (Default -1)
#    #===============================================================================
EVOCHAINLENGTH      = 1
EVORANDCHANCE      = 2
EVOLEVELWOBBLE      = 5
EVOPKRADERDISABLE  = true
EVOMAPSWHITELIST    = []
EVOMAPSBLACKLIST    = []
EVODISABLESWITCH    = -1

#===============================================================================
#                              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 :catchcombo # [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.catchcombo = [0,0] if !$PokemonTemp.catchcombo
  if $PokemonTemp.catchcombo[1]!=species
    $PokemonTemp.catchcombo=[0,species]
  end
  if result==1 && species==$PokemonTemp.catchcombo[1]
    $PokemonTemp.catchcombo[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)
  #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
    #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
#===============================================================================
# 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))
  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)
    EncounterModifier.triggerEncounterEnd()
    return
  end
  #----------------------------------------
  # added to include rescue chain, forms and gender by derFischae
  form = nil
  gender = nil
  pokemon = pbGenerateWildPokemon(encounter[0],encounter[1])
  Events.onWildPokemonCreateForSpawning.trigger(nil,pokemon)
  encounter = [pokemon.species,pokemon.level]
  if USEALTFORMS == true or USEFEMALESPRITES == true or USERESCUECHAIN == true
    gender = pokemon.gender if USEFEMALESPRITES==true
    form = pokemon.form if USEALTFORMS == true
    form = 0 if USEALTFORMS == true and form==nil
    isShiny = pokemon.isShiny?
    if USERESCUECHAIN == true
      unless EVOMAPSBLACKLIST.include?($game_map.map_id) and
          EVOMAPSWHITELIST.length>0 && !EVOMAPSWHITELIST.include?($game_map.map_id) and
          EVODISABLESWITCH>0 && $game_switches[EVODISABLESWITCH] and
          EVOPKRADERDISABLE && !$PokemonTemp.pokeradar.nil? and
          !$PokemonGlobal.roamEncounter.nil?
        unless pokemon.nil?
          if !$PokemonTemp.rescuechain
            $PokemonTemp.rescuechain=[0,nil]
          end
          family =pbGetBabySpecies(pokemon.species)
          if family == $PokemonTemp.rescuechain[1]
            if $PokemonTemp.rescuechain[0]>=EVOCHAINLENGTH
              for i in 0..($PokemonTemp.rescuechain[0]/EVOCHAINLENGTH).floor()
                evodata=pbGetEvolvedFormData(pokemon.species)
                if evodata.length>0 && rand(EVORANDCHANCE)==0
                  fspecies=evodata[rand(evodata.length)][2]
                  newspecies,newform=pbGetSpeciesFromFSpecies(fspecies)
                  level=pbGetMinimumLevel(fspecies)
                  level=[level,pokemon.level].max
                  level+=rand(EVOLEVELWOBBLE)
                  encounter = [newspecies,level]
                end
              end
              pokemon = pbGenerateWildPokemon(encounter[0],encounter[1])
              Events.onWildPokemonCreateForSpawning.trigger(nil,pokemon)
              encounter = [pokemon.species,pokemon.level]
              gender = pokemon.gender if USEFEMALESPRITES==true
              form = pokemon.form if USEALTFORMS == true
              form = 0 if USEALTFORMS == true and form==nil
              isShiny = pokemon.isShiny?
            end
          end
        end
      end
    end
  end
  return encounter,gender,form,isShiny
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,isShiny = 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,isShiny)
  else
    mapId = $game_map.map_id
    spawnMap = $MapFactory.getMap(mapId)
    #Kernel.pbMessage(_INTL("{1}",spawnMap.map_id))
    spawnMap.spawnEvent(x,y,encounter,gender,form,isShiny)
  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.encounterType = -1
  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?
      return true
    elsif self.isGrass?
      return PBTerrain.isGrass?($game_map.terrain_tag(x,y))
    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, isShiny = nil)
    #------------------------------------------------------------------
    # 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.catchcombo=[0,0] if !$PokemonTemp.catchcombo
    shinysprite = nil
    if isShiny==true
      character_name = character_name+"s" if USESHINYSPRITES == true and pbResolveBitmap("Graphics/Characters/"+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" if USESHINYSPRITES == true and pbResolveBitmap("Graphics/Characters/"+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 if pbResolveBitmap("Graphics/Characters/"+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
    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
    pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonTemp.nowRoaming!=nil) ? " $PokemonTemp.nowRoaming = "+$PokemonTemp.nowRoaming.to_s : " $PokemonTemp.nowRoaming = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonTemp.roamerIndex!=nil) ? " $PokemonTemp.roamerIndex = "+$PokemonTemp.roamerIndex.to_s : " $PokemonTemp.roamerIndex = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonGlobal.nextBattleBGM!=nil) ? " $PokemonGlobal.nextBattleBGM = '"+$PokemonGlobal.nextBattleBGM.to_s+"'" : " $PokemonGlobal.nextBattleBGM = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonTemp.encounterType!=nil) ? " $PokemonTemp.encounterType = "+$PokemonTemp.encounterType.to_s : " $PokemonTemp.encounterType = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    # setting shiny switch on if sprite is a shiny-sprite
    oldShinySwitchStatus=$game_switches[SHINY_WILD_POKEMON_SWITCH]
    parameter = (shinysprite == true) ? " $game_switches["+SHINY_WILD_POKEMON_SWITCH.to_s+"]=true" : " $game_switches["+SHINY_WILD_POKEMON_SWITCH.to_s+"]=false"
    pbPushScript(event.pages[0].list,sprintf(parameter))
    # setting $PokemonGlobal.battlingSpawnedPokemon = true
    pbPushScript(event.pages[0].list,sprintf(" $PokemonGlobal.battlingSpawnedPokemon = true"))
    #pbSingleOrDoubleWildBattle(encounter[0],encounter[1])
    gender = "nil" if gender==nil
    form = "nil" if form==nil
    shinysprite = "nil" if shinysprite==nil
    pbPushScript(event.pages[0].list,sprintf(" 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+","+shinysprite.to_s+")"))
    # setting $PokemonGlobal.battlingSpawnedPokemon = false
    pbPushScript(event.pages[0].list,sprintf(" $PokemonGlobal.battlingSpawnedPokemon = false"))
    # setting shiny switch back to previous state
    pbPushScript(event.pages[0].list,sprintf(" $game_switches["+SHINY_WILD_POKEMON_SWITCH.to_s+"]="+oldShinySwitchStatus.to_s))
    pbPushScript(event.pages[0].list,sprintf("$PokemonTemp.encounterType = -1"))
    pbPushScript(event.pages[0].list,sprintf("EncounterModifier.triggerEncounterEnd()"))
    if !$MapFactory
      parameter = "$game_map.removeThisEventfromMap(#{key_id})"
    else
      mapId = $game_map.map_id
      parameter = "$MapFactory.getMap("+mapId.to_s+").removeThisEventfromMap(#{key_id})"
    end
    pbPushScript(event.pages[0].list,sprintf(parameter))
    pbPushEnd(event.pages[0].list)
    #------------------------------------------------------------------
    # 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]=Spriteset_Map.new(self) if $scene.spritesets[self.map_id]==nil
    $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,shinysprite = nil)
  if $MapFactory
    terrainTag = $MapFactory.getTerrainTag(map_id,x,y)
  else
    terrainTag = $game_map.terrain_tag(x,y)
  end
  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,shinysprite,nil,nil,nil)
  else
    pbWildBattle(species,level,nil,true,false,gender,form,shinysprite)
  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,shinysprite = 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
  genwildpoke.resetMoves
  genwildpoke.shinyflag = shinysprite if shinysprite!=nil
  # 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,shinysprite1 = nil,gender2 = nil,form2 = nil,shinysprite2 = 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
  genwildpoke.form = form1 if USEALTFORMS==true and form1!=nil and form1>=0
  genwildpoke.resetMoves
  genwildpoke.shinyflag = shinysprite1 if shinysprite1!=nil
  genwildpoke2.setGender(gender) if USEFEMALESPRITES==true and gender2!=nil and gender2>=0 and gender2<3
  genwildpoke2.form = form2 if USEALTFORMS==true and form2!=nil and form2>=0
  genwildpoke2.resetMoves
  genwildpoke2.shinyflag = shinysprite2 if shinysprite2!=nil
  #-----------------------------------------------------------------------------
  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

class Game_Map
  def removeThisEventfromMap(id)
    if @events.has_key?(id)
      #-------------------------------------------------------------------------
      # added to reduce lag by derFischae
      for sprite in $scene.spritesets[@map_id].character_sprites
        if sprite.character == @events[id]
          $scene.spritesets[@map_id].character_sprites.delete(sprite)
          sprite.dispose
          break
        end
      end
      #-------------------------------------------------------------------------
      @events.delete(id)
    end
    #-------------------------------------------------------------------------
    # added some code above to reduce lag by derFischae
    # Original Code was
    #$scene.disposeSpritesets
    #$scene.createSpritesets
    #-------------------------------------------------------------------------
  end
end

#===============================================================================
# for automatic spawning without making a step
#===============================================================================

class Game_Map

  alias original_update update
  def update
    #--------------------------------
    # for testing auto spawning
    $framecounter = 0 if !$framecounter
    $framecounter = $framecounter + 1
    if $framecounter == AUTOSPAWNSPEED
      $framecounter = 0
      Kernel.pbOnStepTaken(nil)
    end
    #--------------------------------
    original_update
  end
end

#===============================================================================
# For The Rescue Chain - By Vendily [v17]
# edited to obtain compatibility for visible overworld encounter by derFischae
#===============================================================================

class PokemonTemp
  attr_accessor :rescuechain # [chain length, evo family]
end

Events.onWildBattleEnd+=proc {|sender,e|
  next if EVOMAPSBLACKLIST.include?($game_map.map_id)
  next if EVOMAPSWHITELIST.length>0 && !EVOMAPSWHITELIST.include?($game_map.map_id)
  next if EVODISABLESWITCH>0 && $game_switches[EVODISABLESWITCH]
  next if EVOPKRADERDISABLE && !$PokemonTemp.pokeradar.nil?
  $PokemonTemp.rescuechain = [0,nil] if !$PokemonTemp.rescuechain
  species=e[0]
  result=e[2]
  family=pbGetBabySpecies(species)
  if $PokemonTemp.rescuechain[1]!=family
    $PokemonTemp.rescuechain=[0,family]
  end
  if (result==1 || result == 4) && family==$PokemonTemp.rescuechain[1]
    $PokemonTemp.rescuechain[0]+=1
  end
}

#===============================================================================
# Adding Event OnWildPokemonCreateForSpawning to Module Events in Script PField_Field.
# This Event is triggered  when a new pokemon spawns. Use this Event instead of OnWildPokemonCreate
# if you want to add a new procedure that modifies a pokemon on spawning
# but not on creation while going into battle with an already spawned pokemon.
#Note that OnPokemonCreate is also triggered when a pokemon is created for spawning,
#But OnPokemonCreateForSpawning is not triggered when a pokemon is created in other situations than for spawning
#===============================================================================
module Events
  @@OnWildPokemonCreateForSpawning          = Event.new

  # Triggers whenever a wild Pokémon is created for spawning
  # Parameters:
  # e[0] - Pokémon being created for spawning
  def self.onWildPokemonCreateForSpawning; @@OnWildPokemonCreateForSpawning; end
  def self.onWildPokemonCreateForSpawning=(v); @@OnWildPokemonCreateForSpawning = v; end

end

#===============================================================================
# adds new parameter battlingSpawnedPokemon to the class PokemonGlobalMetadata
# defined in script section PField_Metadata. Also overrides initialize include that parameter there.
#===============================================================================

class PokemonGlobalMetadata
  attr_accessor :battlingSpawnedPokemon

  alias original_initialize initialize
  def initialize
    battlingSpawnedPokemon = false
    original_initialize
  end
end

Maybe, you also need this for Pokemon Essentials 16.2:

Spoiler:

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

Spoiler:

PROPERTIES:

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
You can choose how many steps the encounter moves before vanishing in parameter
STEPSBEFOREVANISHING
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
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
You can choose whether the sprite of your overworld encounter is always the standard form or can be an alternative form in parameter
USEALTFORMS
You can choose whether the sprites depend on the gender of the encounter or are always neutral in parameter
USEFEMALESPRITES
You can choose whether the overworld encounters have a stop/ step-animation similar to following pokemon in the parameter
USESTOPANIMATION
You can choose how many overworld encounters are agressive and run to the player in the parameter
AGGRESSIVEENCOUNTERPROBABILITY
You can choose the move-speed and move-frequenzy of normal and aggressive encounters in parameters
ENCMOVESPEED, ENCMOVEFREQ, AGGRENCMOVESPEED, AGGRENCMOVEFREQ
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
You can activate or deactivate vendilys rescue chain in the parameter
USERESCUECHAIN
Moreover, you also have all settings of vendilys Rescue chain here.
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: Read the whole thread https://www.pokecommunity.com/showthread.php?t=429019 for more features and modifications, including

randomized spawning

Spoiler:

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:

Sakrifux said:
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:

Code:

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

After this Line:

Code:

EVODISABLESWITCH = -1

then go to this Line:

Code:

if isShiny==true character_name = character_name+"s" if USESHINYSPRITES == true and pbResolveBitmap("Graphics/Characters/"+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" if USESHINYSPRITES == true and pbResolveBitmap("Graphics/Characters/"+character_name+"s") shinysprite=true end end

And replace all of this with this:

Code:

if isShiny==true character_name = character_name+"s" if USESHINYSPRITES == true and pbResolveBitmap("Graphics/Characters/"+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" if USESHINYSPRITES == true and pbResolveBitmap("Graphics/Characters/"+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.
REMARK: Code is updated for version 1.10

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.
भाग्य ज्योति said:

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.

Code:

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

Click to expand...

how to change the movement of the overworld encounter

Spoiler:

derFischae said:
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

Code:

# 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

Code:

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:

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

I added:

Code:

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:

Code:

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:

Code:

#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:

Code:

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.

instructions on how to include JoelMatthews Add-Ons for Vendilys Rescue Chain, concerning setting the probability of spawning with hidden abilities or with max IVs,
see https://www.pokecommunity.com/showthread.php?t=422513 for original script

Spoiler:

derFischae said:

If you want to introduce the chances that the pokémon you're looking for will have the MAX IVs or that it has its hidden ability, then there are Add-Ons for Vendilys Rescue Chain by JoelMatthews, which include this functionallities, see https://www.pokecommunity.com/threads/422513

However, with this visible overworld wild encounter script, the installation of the add-ons is a little bit different.
1. Have the visible overworld wild encounter script installed. You don't need to install the original script of the Rescue Chain by Vendily, since the rescue chain is already included here to assure compatibility.
2. Add the new variables from the pastebin just below the other variables at the top of the visible overworld wild encounter script -- it should be just below EVODISABLESWITCH.
3. Add the add-ons to the very end of the visible overworld wild encounter script.

Click to expand...
instructions on how to modify a pokemon on spawning but not on battling again, by using the events OnStartBattle, OnWildPokemonCreate and OnWildPokemonCreateForSpawning, including how to modifiy existing scripts, such as for the script level balancing by Joltik https://www.pokecommunity.com/showthread.php?t=409828, to work properly with this script
Spoiler:
derFischae said:

For short: If you want to run a procedure
- only when a pokemon spawns --> use: @@OnWildPokemonCreateForSpawning, used for changing the species, level, gender, alternative form and the shinyness of the overworld encounter
- only when you go into battle with a pokemon --> use: @@OnStartBattle, as usual
- in both situation --> use: @@OnWildPokemonCreate
Additionally, use the global variable $PokemonGlobal.battlingSpawnedPokemon to decide if you battle against an overworld encounter (true) or not (nil or false), including battling a normal encounter or not battling at all
- $PokemonGlobal.battlingSpawnedPokemon let's you add a procedure to the event @@OnWildPokemonCreate that runs only than battling or only on spawning.
lots of scripts out there work as suggested with this script. But for some scripts you might need to modify your additional scripts, such as Vendilys Rescue Chain or Joltiks Level Balance, to work properly with the visible overworld encounter script.

EVENTS AND VISIBLE OVERWORLD WILD ENCOUNTER

Concerning Wild Pokemon, there are 3 Events, which trigger before a wild overworld pokebattle.

At first, the event @@OnStartBattle triggers right before the battle.
You can add a procedure to this event, so that procedure runs when going into battle.
See the Pokemon Essentials manual if you want to read more on how to use it.

Another event is @@OnWildPokemonCreate, instructions in the Pokemon Essentials manual.
But with the visible overworld wild encounter script, the event @@OnWildPokemonCreate triggers twice, since we need to create a pokemon in two situation.
At first when the pokemon spawns to generate the pokemon species, level, shinyness, form and gender for the sprite.
And the second time it creates a pokemon is when you go into battle with an already spawned pokemon to set the ability, IVs and all the other things we need for the battle.

So, you can still use all your scripts which make use of the event @@OnwildPokemonCreate. But it might get an odd behavior since that event triggers twice.
To get rid of that the visible wild overworld encounter script introduces a new event @@OnWildPokemonCreateForSpawning.
It can be used the same way as the event @@OnWildPokemonCreate, but this event will only trigger when a pokemon spawns on the overworld and is not triggered in any other situations than for spawning.
If you want to add a procedure that modifies a pokemon only for spawning but not before battling then you can do it.
Simply add that procedure to the event @@OnWildPokemonCreateForSpawning.
Also make sure that the procedure only affects the species, level, alternative form, gender and shinyness of the pokemon.
All other changes of properties of the pokemon, such as the ability and the IVs, will be omitted, since they are not relevant for the sprite of the overworld encounter. (If you think, that there should be some other property changable then let me know.)
But all other properties of a pokemon can still be changed in @@OnWildPokemonCreate or @@OnStartBattle as usual.

Easy Example:

Spoiler:

Here is an easy example. It makes all pokemon spawn as shinies.

Code:

Events.onWildPokemonCreateForSpawning+=proc {|sender,e| pokemon=e[0] pokemon.makeShiny }

Example: Modifications on already existing scripts, such as Joltiks Level Balance

Spoiler:

Now, I will also give a way to modify already existing scripts such as Level Balancing by Joltik to trigger only on spawning of a pokemon and not on battling again.
Joltiks Level Balance is a good example for that since it only affects the species and the level of the pokemon. Although, without any modifications, Joltiks Level Balance would not generate any odd behavior. It just runs twice.
Simply search for all code in the script that is added to @@OnWildPokemonCreate by

Code:

Events.onWildPokemonCreate+=proc {|sender,e| #Here is the code }

and add it to @@OnWildPokemonCreateForSpawning instead by

Code:

Events.onWildPokemonCreateForSpawning+=proc {|sender,e| #Here is the code }

Make sure that the code only affects the species, level gender, alternative form and the shinyness of the pokemon. This should be the case for the script level balancing by Joltik for example.
If it also affects other parameters of the pokemon, such as the stats, then that modifications don't work anymore.

You can use the new global variable $PokemonGlobal.battlingSpawnedPokemon, which is true if you are in battle with an already spawned pokemon and nil or false in all other situations, including not battling at all.
This global variable let's you restrict a procedure added to @@OnWildPokemonCreate run only on creation for battling an already spawned pokemon or not to run then.
So, you can use this code snippet

Code:

Events.onWildPokemonCreate+=proc {|sender,e| if !$PokemonGlobal.battlingSpawnedPokemon #The actual code of your procedure you want to run only on spawning of overworld encounters and not battling them. end }

will force that the procedure runs on spawning and not on battling an overworld encounter.
And

Code:

Events.onWildPokemonCreate+=proc {|sender,e| if $PokemonGlobal.battlingSpawnedPokemon == true #The actual code of your procedure you want to run only when battling overworld encounters. end }

will force that the procedure only runs on battling with an overworld encounter.

Click to expand...

activating and deactivating overworld encounter spawning with switches

Spoiler:

overworld spawning and original encounters at the same time

Spoiler:

Instructions on how to use events with overworld and normal encounter in the same game, including how to make the shiny catchcombo and Vendilys rescue chain work also for normal encounter

Spoiler:

derFischae said:
At first see the instructions above on how to use Events, such as OnStartBattle, OnWildPokemonCreate and OnWildPokemonCreateForSpawning.

EVENTS AND OVERWORLD ENCOUNTER AND NORMAL ENCOUNTER IN ONE GAME

You can have overworld encounters and events, placed by your own, which force a wild battle, which also counts somehow as a normal encounter.
Or you can use overworld encounters and normal encounters at the same time (see above if you want to include that).
So you might come to the point that you want to modify a pokemon or run a certain procedure in battle only for overworld encounters, only for normal encounters or for all encounters.
At first if you want to run a procedure for all encounters, then add that procedure to the event @@OnStartBattle as usual
But if not then you can use the new global variable $PokemonGlobal.battlingSpawnedPokemon, which is true if you are in battle with an already spawned pokemon and nil or false in all other situations, including not battling at all.
So, a procedure runs only for overworld encounters with this code snippet

Code:

Events.onStartBattle+=proc {|sender,e| if ($PokemonGlobal.battlingSpawnedPokemon == true) #The actual code of your procedure you want to run only when battling overworld encounters end }

And a procedure runs only for normal encounters with this code snippet

Code:

Events.onStartBattle+=proc {|sender,e| if !$PokemonGlobal.battlingSpawnedPokemon #The actual code of your procedure you want to run only when battling normal encounters end }

By the way,

Code:

Events.onWildPokemonCreate+=proc {|sender,e| if !$PokemonGlobal.battlingSpawnedPokemon #The actual code of your procedure you want to run only when battling normal encounters and on spawning of overworld encounters. end }

will force that the procedure runs on spawning and on battling with an normal encounter, but not on battling with an overworld encounter.
And

Code:

Events.onWildPokemonCreate+=proc {|sender,e| if $PokemonGlobal.battlingSpawnedPokemon == true #The actual code of your procedure you want to run only when battling overworld encounters. end }

will force that the procedure runs on battling with an overworld encounter.

Example: Shiny catchcombo for overworld and normal encounters

Spoiler:

To make the shiny catchcombo also work for normal encounters beside overworld encounters, add the following code at the bottom of the visible overworld wild encounter script

Code:

Events.onStartBattle+=proc {|sender,e| if !$PokemonGlobal.battlingSpawnedPokemon pokemon=e[0] next if pokemon.nil? $PokemonTemp.catchcombo=[0,0] if !$PokemonTemp.catchcombo if ($PokemonTemp.catchcombo[0]>=CHAINLENGTH && $PokemonTemp.catchcombo[1]==pokemon.species) if rand(SHINYPROBABILITY)<$PokemonTemp.catchcombo[0] pokemon.makeShiny end end end }

Example: Modifications on Vendilys Rescue Chain for overworld and normal encounters at the same time

Spoiler:

1) Install the modification such that normal encounters can still occure beside overworld encounters, see above for instructions.
2) Then, instead of adding the original code for Vendilys Rescue Chain to make it work for normal encounters,
add

Code:

Events.onStartBattle+=proc {|sender,e| if !$PokemonGlobal.battlingSpawnedPokemon next if EVOMAPSBLACKLIST.include?($game_map.map_id) next if EVOMAPSWHITELIST.length>0 && !EVOMAPSWHITELIST.include?($game_map.map_id) next if EVODISABLESWITCH>0 && $game_switches[EVODISABLESWITCH] next if EVOPKRADERDISABLE && !$PokemonTemp.pokeradar.nil? next if !$PokemonGlobal.roamEncounter.nil? pokemon=e[0] next if pokemon.nil? if !$PokemonTemp.rescuechain $PokemonTemp.rescuechain=[0,nil] end family=pbGetBabySpecies(pokemon.fSpecies) if family != $PokemonTemp.rescuechain[1] $PokemonTemp.rescuechain=[0,family] end if $PokemonTemp.rescuechain[0]>=EVOCHAINLENGTH for i in 0..($PokemonTemp.rescuechain[0]/EVOCHAINLENGTH).floor() evodata=pbGetEvolvedFormData(pokemon.fSpecies) if evodata.length>0 && rand(EVORANDCHANCE)==0 fspecies=evodata[rand(evodata.length)][2] newspecies,newform=pbGetSpeciesFromFSpecies(fspecies) level=pbGetMinimumLevel(fspecies) level=[level,pokemon.level].max level+=rand(EVOLEVELWOBBLE) pokemon.species=newspecies pokemon.form=newform pokemon.level=level pokemon.name=PBSpecies.getName(newspecies) pokemon.calcStats pokemon.resetMoves end end end end }

Basically it is still the same code but, now, the original code runs only when a normal encounter encounters.
3) The Add-ons for Vendilys Rescue Chain by JoelMatthews don't nessesarily need any modifications, since they only affect the ability and the stats of the pokemon.

forbidding pokemons to spawn on specific terrain tiles in caves

Spoiler:

derFischae said:
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

Code:

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

Code:

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

below

Code:

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

Code:

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

Code:

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:

derFischae said:
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

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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:

derFischae said:

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

Code:

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:

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

Code:

  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

Code:

  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) Replace

Code:

  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

in the visible overworld wild encounter script by

Code:

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

6) 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

Code:

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

by

Code:

    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:

Code:

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:

error solutions

These modifications originally were tested with script version 1.11.2 for Pokemon Essentials 17 and 17.2. But they will probably work with script version 16.0.1.11.4 for Pokemon Essentials 16.2. Feel free to test it.

CHANGELOG

Spoiler:

derFischae · Aug 31, 2020

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

UPDATED TO VERSION 17.0.8 FOR POKEMON ESSENTIALS V17 AND 17.2. This script is for Pokémon Essentials V17 and V17.2.

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
you can have instant wild battle and overworld spawning at the same time and set the propability of that by default
and change it ingame and store it with a $game_variable
In caves, pokemon don't spawn on impassable Rock-Tiles, which have the Tile-ID 4
You can check during the events @@OnWildPokemonCreate, @@OnStartBattle, ... if you are battling a spawned pokemon with the global variable $PokemonGlobal.battlingSpawnedPokemon
You can check during the event @@OnWildPokemonCreate if the pokemon is created for spawning on the map or created for a different reason with the Global variable $PokemonGlobal.creatingSpawningPokemon
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.

INSTALLATION: It is as simple as it can be.

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)
Insert a new file in the script editor above main, name it Overworld_Encounters and copy this code below into it.
Set the properties for your pleasure in the properties section of the script. Most of you don't need to change anything.
If you want, then you can install add-ons or modifications for the script from below.
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

HERE IS THE CODE OF THE VISIBLE OVERWORLD WILD ENCOUNTER SCRIPT

Spoiler:

Code:

#===============================================================================
# * Visible Overworld Wild Encounters V17.0.8 - by derFischae (Credits if used please) *
#===============================================================================
#
# UPDATED TO VERSION 17.0.8
#
# 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.
# 
# This script is for Pokémon Essentials v17 and v17.2.
#
# 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
#   - you can have instant wild battle and overworld spawning at the same time and set the propability of that by default
#     and change it ingame and store it with a $game_variable
#   - In caves, pokemon don't spawn on impassable Rock-Tiles, which have the Tile-ID 4 
#   - You can check during the events @@OnWildPokemonCreate, @@OnStartBattle, ... if you are battling a spawned pokemon with the global variable $PokemonGlobal.battlingSpawnedPokemon
#   - You can check during the event @@OnWildPokemonCreate if the pokemon is created for spawning on the map or created for a different reason with the Global variable $PokemonGlobal.creatingSpawningPokemon
#   - 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.
#
# ADD-ONS OF THIS SCRIPT:
# In the post https://www.pokecommunity.com/showthread.php?t=429019 you will also find add-ons, including
#  - Vendilys Rescue Chain and JoelMatthews Add-Ons for Vendilys Rescue Chain,
#    See https://www.pokecommunity.com/showthread.php?t=415524 and
#    https://www.pokecommunity.com/showthread.php?t=422513 for original scripts
#  - Let's go chiny hunting by chaining a pokemon, inspired by Diego Mertens script
#    https://www.pokecommunity.com/showthread.php?p=10011513
#  - Automatic Spawning
#  - randomized spawning
#  - always shiny spawning
#  - instructions on how to make your own Add-On or to modify an already existing script
#    to make it work with the visible overworld wild encounter script.
#    This includes modifying a pokemon on spawning but not on battling again, 
#    by using the events OnStartBattle, OnWildPokemonCreate and OnWildPokemonCreateForSpawning
#  - Joltiks Level Balance, see https://www.pokecommunity.com/showthread.php?t=409828 for original post
#
# MODIFICATIONS OF THIS SCRIPT
# Read the whole thread https://www.pokecommunity.com/showthread.php?t=429019 for more features and modifications, including
#  - 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
#  - removing grass rustle animation on water and in caves
#  - instructions on how to change the movement of the overworld encounter
#  - "agressive encounters" only get aggressive when you are 2 tiles away from
#    them, and not before
#  - forbidding pokemon to spawn on specific terrain tiles in caves
#  - adding new encounter types, eg. desert, shallow water
#  - instructions on how to have different encounters for overworld spawning and original encountering on the same map
#  - error solutions
#
# 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 
#
# NEW FEATURES IN VERSION 1.7:
#   - included automatic spawning of pokemon, i.e. spawning without having to move the player
#
# NEW FEATURES IN VERSION 1.8:
#   - included vendilys rescue chain, i. e. if pokemon of the same species family spawn in a row and will be battled in a row, then you increase the chance of spawning
#     an evolved pokemon of that species family. Link: https://www.pokecommunity.com/showthread.php?t=415524
#
# NEW FEATURES IN VERSION 1.9:
#   - removed bug occuring after fainting against wild overworld encounter
#   - for script-developers, shortened the spawnEvent method for better readablitiy
#
# NEW FEATURES IN VERSION 1.10:
#   - removed bugs from version 1.9
#   - added shapes of overworld encounter for rescue chain users
#   - supports spawning of alternate forms while chaining
#   - if overworld sprites for alternative, female or shiny forms are missing,
#     then the standard sprite will be displayed instead of an invisible event
#   - bug fix for shiny encounters
#
# NEW FEATURES IN VERSION 1.11:
#   - respecting shiny state for normal encounters when using overworld and normal encounters at the same time
#   - easier chaining concerning Vendilys Rescue chain, i.e. no more resetting of the chain when spawning of a pokemon of different family but when fighting with a pokemon of different family
#   - Added new Event @@OnPokemonCreateForSpawning which only triggers on spawning
#   - Added new global variable $PokemonGlobal.battlingSpawnedShiny to check if an active battle is against a spawned pokemon.
#
# NEW FEATURES IN VERSION 1.11.2:
#   - removed bug to make the new features in version 1.11 work
#
# NEW FEATURES IN VERSION 2.0:
#   - reorganised and thin out the code
#   - removed Vendilys Rescue Chain, Let's Go Shiny Hunting and automatic spawning as hard coded feature and provide it as Add-Ons instead
#   - Now, using overworld and normal encounters at the same time is a standard feature
#   - autospawning will not trigger instant battles anymore
#
# NEW FEATURES IN VERSION 2.0.1:
#   - removed a bug that came from reorganising the code in original code and add-ons concerning Let's go shiny hunting add-on
#
# NEW FEATURES IN VERSION 17.0.6:
#   - added new global variable $PokemonGlobal.creatingSpawningPokemon to check during the event @@OnWildPokemonCreate if the pokemon is created for spawning on the map or created for a different reason
#   - poke radar works as usual
#   - encounters dont spawn on impassable tiles in caves
#   - removed bug that makes all water encounter vanish
#   - (hopefully) removed a rare crash concerning character_sprites
#
# NEW FEATURES IN VERSION 17.0.7:
#  - removed a bug concerning changing the standard form when goining into battle
#
# NEW FEATURES IN VERSION 17.0.8:
#  - tiny bug fix for $PokemonTemp.encounterType
#
# 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, ...,
# 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)
# Step 2) Insert a new file in the script editor above main,
# name it Overworld_Encounters and copy this code into it. 
# Step 3) Set the properties for your pleasure in the properties section of the script. Most of you don't need to change anything.
# Step 4) If you want, then you can install add-ons or modifications for the script from the Pokecommunity thread https://www.pokecommunity.com/showthread.php?p=10203908
# Step 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
# 
# 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 whether the overworld sprite of an shiny encounter
# is always the standard sprite or is the corrensponding shiny overworld sprite  in parameter
#     USESHINYSPRITES
# 4) You can choose whether the sprite of your overworld encounter
# is always the standard sprite 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
# 9) You can have normal and overworld encountering at the same time.
# You can set the default propability in percentage in the parameter
#     INSTANT_WILD_BATTLE_PROPABILITY
# 10) The actual propability of normal to overworld encountering during game is stored in 
#     $game_variables[OVERWORLD_ENCOUNTER_VARIABLE]
# and you can change its value during playtime.
# 11) If you want to change the ID of the $game_variable that saves the current propability of normal to overworld encountering,
# then you can change it in parameter
#     OVERWORLD_ENCOUNTER_VARIABLE
# Make sure that no other script uses and overrides the value of the game_variable with that ID.
# 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.
#
#===============================================================================
#                             Settings            
#===============================================================================

OVERWORLD_ENCOUNTER_VARIABLE = 26 # default is an ID which is not used anywhere else
# This parameter stores the ID of the $game_variable which holds the propability
# of normal to overworld encountering.
# Make sure that no other script uses the $game_variable with this ID,
# except for the visible overworld wild encounter script itself and its add-ons.
#
# The $game_variable with the ID equal to OVERWORLD_ENCOUNTER_VARIABLE is used 
# to store the propability of an instant (normal) wild battle.
# You can modify the value of that $game_variable during game or with events as usual. It is similar to use
# game switches. See the Pokemon Essentials manual for more informations.
# The propability is stored the following way
# $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] = 0
#    - the propability of instant battle to spawning will be equal to the value 
# of INSTANT_WILD_BATTLE_PROPABILITY in percentage, see below
# $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] < 0
#    - means only overworld encounters, no instant battles
# $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] > 0 and < 100
#    - means overworld encounters and normal encounters at the same time,
#      where the value equals the propability of normal encounters in percentage
# $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] >= 100 
#    - means only normal encounters and instant battles as usual, no overworld spawning

INSTANT_WILD_BATTLE_PROPABILITY = 0 # default 0.
# It will be used when starting the game the first time. Changing this value later on will not affect the propability anymore.
# However, you can still change the propability stored in the $game_variable with ID above during runtime.
# This parameter holds the DEFAULT propability of normal to overworld encountering.
# The propability is stored in percentage with possible values 0,1,2,...,100.
# <= 0           - means only overworld encounters, no instant battles
# > 0 and < 100  - means overworld encounters and normal encounters at the same time.
# >= 100         - means only normal encounters and instant battles as usual, no overworld spawning
# You can still change the propability stored in the $game_variable with ID above during runtime.
# But if you don't change the propability ingame, then it will be this INSTANT_WILD_BATTLE_PROPABILITY
# Note that, if $game_variables[OVERWORLD_ENCOUNTER_VARIABLE] = 0 then the propability stored in that $game_variable will be reset to
# the value of INSTANT_WILD_BATTLE_PROPABILITY, unless this is also 0.

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)

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

USESHINYSPRITES = true # default true
#false - means that you don't use shiny sprites for your overworld encounter
#true - means that a shiny encounter will have a its special shiny overworld sprite
#       make sure that you have the shiny sprites named with an "s" (e.g. 001s.png) 
#       for the shiny forms in your \Graphics\Characters folder       

USEALTFORMS = true # default true
#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 true
#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 true
#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 = 20 # 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: 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)
  #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_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])) || pbPokeRadarOnShakingGrass
      #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
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))
  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] if PBTerrain.isWater?($game_map.terrain_tag(x,y))
  #check if tile is passable
  for i in [2, 1, 0]
    tile_id = $game_map.data[x, y, i]
    terrain = $game_map.terrain_tags[tile_id]
    passage = $game_map.passages[tile_id]
    if terrain!=PBTerrain::Neutral
      if passage & 0x0f == 0x0f
        return
      elsif $game_map.priorities[tile_id] == 0
        break
      end
    end
  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)
  return if encounterType<0 #check if there are encounters
  return if !$PokemonEncounters.isEncounterPossibleHereOnTile?(x,y)
  $PokemonTemp.encounterType = encounterType
  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)
    $PokemonTemp.forceSingleBattle = false
    EncounterModifier.triggerEncounterEnd()
    return
  end
  form = nil
  gender = nil
  $PokemonGlobal.creatingSpawningPokemon = true
  pokemon = pbGenerateWildPokemon(encounter[0],encounter[1])
  # trigger event on spawning of pokemon
  Events.onWildPokemonCreateForSpawning.trigger(nil,pokemon)
  $PokemonGlobal.creatingSpawningPokemon = false
  encounter = [pokemon.species,pokemon.level]
  gender = pokemon.gender if USEFEMALESPRITES==true
  form = pokemon.form if USEALTFORMS == true  
  form = 0 if USEALTFORMS == true and form==nil
  isShiny = pokemon.isShiny?
  return encounter,gender,form,isShiny
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,isShiny = 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,isShiny)
  else
    mapId = $game_map.map_id
    spawnMap = $MapFactory.getMap(mapId)
    #Kernel.pbMessage(_INTL("{1}",spawnMap.map_id))
    spawnMap.spawnEvent(x,y,encounter,gender,form,isShiny)
  end
  # Show grass rustling animations
  $scene.spriteset.addUserAnimation(RUSTLE_NORMAL_ANIMATION_ID,x,y,true,1)
  # 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.encounterType = -1
  $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?
      return true
    elsif self.isGrass?
      return PBTerrain.isGrass?($game_map.terrain_tag(x,y))
    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, isShiny = nil)
    #------------------------------------------------------------------
    # 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
    shinysprite = nil
    if isShiny==true
      character_name = character_name+"s" if USESHINYSPRITES == true and pbResolveBitmap("Graphics/Characters/"+character_name+"s")
      shinysprite = true
    end
    # use sprite of alternative form
    if USEALTFORMS==true and form!=nil and form!=0
      character_name = character_name+"_"+form.to_s if pbResolveBitmap("Graphics/Characters/"+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
    # set roamer
    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
    pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonTemp.nowRoaming!=nil) ? " $PokemonTemp.nowRoaming = "+$PokemonTemp.nowRoaming.to_s : " $PokemonTemp.nowRoaming = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonTemp.roamerIndex!=nil) ? " $PokemonTemp.roamerIndex = "+$PokemonTemp.roamerIndex.to_s : " $PokemonTemp.roamerIndex = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    #parameter = ($PokemonGlobal.nextBattleBGM!=nil) ? " $PokemonGlobal.nextBattleBGM = '"+$PokemonGlobal.nextBattleBGM.to_s+"'" : " $PokemonGlobal.nextBattleBGM = nil "
    #pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonTemp.forceSingleBattle!=nil) ? " $PokemonTemp.forceSingleBattle = "+$PokemonTemp.forceSingleBattle.to_s : " $PokemonTemp.forceSingleBattle = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    parameter = ($PokemonTemp.encounterType!=nil) ? " $PokemonTemp.encounterType = "+$PokemonTemp.encounterType.to_s : " $PokemonTemp.encounterType = nil "
    pbPushScript(event.pages[0].list,sprintf(parameter))
    # setting $PokemonGlobal.battlingSpawnedPokemon = true
    pbPushScript(event.pages[0].list,sprintf(" $PokemonGlobal.battlingSpawnedPokemon = true"))    
    #pbSingleOrDoubleWildBattle(encounter[0],encounter[1])
    gender = "nil" if gender==nil
    form = "nil" if form==nil
    shinysprite = "nil" if shinysprite==nil
    pbPushScript(event.pages[0].list,sprintf(" 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+","+shinysprite.to_s+")"))
    # setting $PokemonGlobal.battlingSpawnedPokemon = false
    pbPushScript(event.pages[0].list,sprintf(" $PokemonGlobal.battlingSpawnedPokemon = false"))        
    if !$MapFactory
      parameter = "$game_map.removeThisEventfromMap(#{key_id})"
    else
      mapId = $game_map.map_id
      parameter = "$MapFactory.getMap("+mapId.to_s+").removeThisEventfromMap(#{key_id})"
    end
    pbPushScript(event.pages[0].list,sprintf(parameter))
    pbPushEnd(event.pages[0].list)
    #------------------------------------------------------------------
    # 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(Spriteset_Map.viewport,@events[key_id])
    $scene.spritesets[self.map_id]=Spriteset_Map.new(self) if $scene.spritesets[self.map_id]==nil
    $scene.spritesets[self.map_id].character_sprites.push(sprite)
    # alternatively: updating the sprites (old and slow but working):
    #$scene.disposeSpritesets
    #$scene.createSpritesets
  end
end

#===============================================================================
# adding new Method pbSingleOrDoubleWildBattle to reduce the code in spawnEvent
#===============================================================================
def pbSingleOrDoubleWildBattle(species,level,map_id,x,y,gender = nil,form = nil,shinysprite = nil)
  if $MapFactory
    terrainTag = $MapFactory.getTerrainTag(map_id,x,y)
  else
    terrainTag = $game_map.terrain_tag(x,y)
  end
  if !$PokemonTemp.forceSingleBattle && ($PokemonGlobal.partner ||
      ($Trainer.ablePokemonCount>1 &&
      PBTerrain.isDoubleWildBattle?(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,shinysprite,nil,nil,nil)
  else
    pbWildBattle(species,level,nil,true,false,gender,form,shinysprite)
  end
  $PokemonTemp.encounterType = -1
  $PokemonTemp.forceSingleBattle = false
  EncounterModifier.triggerEncounterEnd
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,shinysprite = 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 gender, form and shinyflag
  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
  genwildpoke.resetMoves
  genwildpoke.shinyflag = shinysprite if shinysprite!=nil
  # 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),0,[genwildpoke]) {
    pbSceneStandby {
      decision = battle.pbStartBattle(canlose)
    }
    pbAfterBattle(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,shinysprite1 = nil,gender2 = nil,form2 = nil,shinysprite2 = 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 gender, form and shinyflag
  # 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
  genwildpoke.form = form1 if USEALTFORMS==true and form1!=nil and form1>=0  
  genwildpoke.resetMoves
  genwildpoke.shinyflag = shinysprite1 if shinysprite1!=nil
  genwildpoke2.setGender(gender) if USEFEMALESPRITES==true and gender2!=nil and gender2>=0 and gender2<3
  genwildpoke2.form = form2 if USEALTFORMS==true and form2!=nil and form2>=0  
  genwildpoke2.resetMoves
  genwildpoke2.shinyflag = shinysprite2 if shinysprite2!=nil
  #-----------------------------------------------------------------------------
  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)
    }
    pbAfterBattle(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)
    pbPlayCrySpecies(pokemon,0,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

          #########################################################
          #                                                       #
          #      2. 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
      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
            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
  end
end

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

          #########################################################
          #                                                       #
          #             3. PART: ADDITIONAL FEATURES              #
          #                                                       #
          #########################################################

#===============================================================================
# Adding Event OnWildPokemonCreateForSpawning to Module Events in Script PField_Field.
# This Event is triggered  when a new pokemon spawns. Use this Event instead of OnWildPokemonCreate
# if you want to add a new procedure that modifies a pokemon on spawning 
# but not on creation while going into battle with an already spawned pokemon.
#Note that OnPokemonCreate is also triggered when a pokemon is created for spawning,
#But OnPokemonCreateForSpawning is not triggered when a pokemon is created in other situations than for spawning
#===============================================================================
module Events
  @@OnWildPokemonCreateForSpawning          = Event.new

  # Triggers whenever a wild Pokémon is created for spawning
  # Parameters: 
  # e[0] - Pokémon being created for spawning
  def self.onWildPokemonCreateForSpawning; @@OnWildPokemonCreateForSpawning; end
  def self.onWildPokemonCreateForSpawning=(v); @@OnWildPokemonCreateForSpawning = v; end

end

#===============================================================================
# adds new parameter battlingSpawnedPokemon to the class PokemonGlobalMetadata
# defined in script section PField_Metadata. Also overrides initialize include that parameter there.
#===============================================================================
class PokemonGlobalMetadata
  attr_accessor :battlingSpawnedPokemon
  attr_accessor :creatingSpawningPokemon

  alias original_initialize initialize
  def initialize
    battlingSpawnedPokemon = false
    creatingSpawningPokemon = false
    original_initialize
  end
end

PROPERTIES:

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
You can choose how many steps the encounter moves before vanishing in parameter
STEPSBEFOREVANISHING
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
You can choose whether the sprite of your overworld encounter is always the standard sprite or can be an alternative form in parameter
USEALTFORMS
You can choose whether the sprites depend on the gender of the encounter or are always neutral in parameter
USEFEMALESPRITES
You can choose whether the overworld encounters have a stop/ step-animation similar to following pokemon in the parameter
USESTOPANIMATION
You can choose how many overworld encounters are agressive and run to the player in the parameter
AGGRESSIVEENCOUNTERPROBABILITY
You can choose the move-speed and move-frequenzy of normal and aggressive encounters in parameters
ENCMOVESPEED, ENCMOVEFREQ, AGGRENCMOVESPEED, AGGRENCMOVEFREQ
You can have normal and overworld encountering at the same time. You can set the default propability in percentage in the parameter
INSTANT_WILD_BATTLE_PROPABILITY
The actual propability of normal to overworld encountering during game is stored in
$game_variables[OVERWORLD_ENCOUNTER_VARIABLE]
and you can change its value during playtime.
If you want to change the ID of the $game_variable that saves the current propability of normal to overworld encountering, then you can change it in parameter
OVERWORLD_ENCOUNTER_VARIABLE
Make sure that no other script uses and overrides the value of the game_variable with that ID.
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.

ADD-ONS OF THIS SCRIPT: In the post https://www.pokecommunity.com/threads/429019 you will also find add-ons, including

Vendilys Rescue Chain and JoelMatthews Add-Ons for Vendilys Rescue Chain,
See https://www.pokecommunity.com/threads/415524 and
https://www.pokecommunity.com/threads/422513 for original scripts

Spoiler:

This is an add-on for the visible overworld wild encounter script. It adds Vendilys Rescue Chain to the script and its add-ons by JoelMathew.
See https://www.pokecommunity.com/threads/415524 and https://www.pokecommunity.com/threads/422513 for original scripts

FEATURES INCLUDED: If you catch or kill the same species in a row, then you increase the chance of spawning an evolved pokemon of that species family.
Moreover, JoelMathews Add-Ons raise the chance that a chained pokemon gets maximal IVs or its hidden ability

INSTALLATION:
Step 1) Copy the code below and Paste it at the bottom of your visible wild overworld encounter script.
Step 2) If you want to use JoelMathews Add-ons, then simply copy and paste the original code at https://www.pokecommunity.com/threads/422513

PROPERTIES: Moreover, you also have all settings of vendilys Rescue chain below.

Code:

#===============================================================================
# RESCUE CHAIN - By Vendily
# - edited to obtain compatibility for visible overworld encounter by derFischae
#===============================================================================
# This is an add-on for the visible overworld wild encounter script.
# It adds Vendilys Rescue Chain to the script.
# See https://www.pokecommunity.com/showthread.php?t=415524 for original script
#
# FEATURES INCLUDED:
# If you catch or kill the same species in a row, then you increase the chance of spawning an evolved pokemon of that species family.
#
# INSTALLATION:
# Step 1) Copy this code and 
# Paste it at the bottom of your visible wild overworld encounter script
# Step 2) If you want to use JoelMathews Add-ons, then simply copy and paste
# the original code at https://www.pokecommunity.com/showthread.php?t=422513
#
# PROPERTIES:
# Moreover, you also have all settings of vendilys Rescue chain below.

#===============================================================================
# Rescue Chain - By Vendily
# This script makes it so that if you chain pokemon of the same evolutionary
#  family together, an evolved form of the species will appear.
# I used no references and I completly misinterpreted a description of SOS
#  battles as this thing.
# * Minimum length of chain before evolved forms begin to appear. With every
#    multiple, the chance for the evolved form or a second evolved form to appear
#    increases. (Default 10)
# * Chance that the evolved form will even show up, 1 out of this constant.
#    (Default 4, for 1/4 chance, it's probably too high)
# * Random number added to the minimum level this pokemon can evolve at or
#    the wild pokemon's current level if it evolves through item (Default 5)
# * Disable this modifier while the pokeradar is being used.
#    I recommend leaving it as is as the pokeradar may behave strangely and the
#    two scripts may reset each others' chain. (Default true)
# * The maps where this effect can only take place in.
# * The maps where this effect will never happen. Ever.
# * The switch to disable this effect. (Default -1)
#===============================================================================
EVOCHAINLENGTH      = 1
EVORANDCHANCE       = 1
EVOLEVELWOBBLE      = 5
EVOPKRADERDISABLE   = true
EVOMAPSWHITELIST    = []
EVOMAPSBLACKLIST    = []
EVODISABLESWITCH    = -1

class PokemonTemp
  attr_accessor :rescuechain # [chain length, evo family]
end

Events.onWildPokemonCreate+=proc {|sender,e|
  if !$PokemonGlobal.battlingSpawnedPokemon
    next if EVOMAPSBLACKLIST.include?($game_map.map_id)
    next if EVOMAPSWHITELIST.length>0 && !EVOMAPSWHITELIST.include?($game_map.map_id)
    next if EVODISABLESWITCH>0 && $game_switches[EVODISABLESWITCH]
    next if EVOPKRADERDISABLE && !$PokemonTemp.pokeradar.nil?
    next if !$PokemonGlobal.roamEncounter.nil?
    pokemon=e[0]
    next if pokemon.nil?
    if !$PokemonTemp.rescuechain
      $PokemonTemp.rescuechain=[0,nil]
    end
    family=pbGetBabySpecies(pokemon.species)
    if family != $PokemonTemp.rescuechain[1]
      $PokemonTemp.rescuechain=[0,family]
    end
    if $PokemonTemp.rescuechain[0]>=EVOCHAINLENGTH
      for i in 0..($PokemonTemp.rescuechain[0]/EVOCHAINLENGTH).floor()
        evodata=pbGetEvolvedFormData(pokemon.species)
        if evodata.length>0 && rand(EVORANDCHANCE)==0
          fspecies=evodata[rand(evodata.length)][2]
          newspecies,newform=pbGetSpeciesFromFSpecies(fspecies)
          level=pbGetMinimumLevel(fspecies)
          level=[level,pokemon.level].max
          level+=rand(EVOLEVELWOBBLE)
          pokemon.species=newspecies
          pokemon.form=newform
          pokemon.level=level
          pokemon.name=PBSpecies.getName(newspecies)
          pokemon.calcStats
          pokemon.resetMoves
         end
      end
    end
  end
}

Events.onWildBattleEnd+=proc {|sender,e|
   next if EVOMAPSBLACKLIST.include?($game_map.map_id)
   next if EVOMAPSWHITELIST.length>0 && !EVOMAPSWHITELIST.include?($game_map.map_id)
   next if EVODISABLESWITCH>0 && $game_switches[EVODISABLESWITCH]
   next if EVOPKRADERDISABLE && !$PokemonTemp.pokeradar.nil?
   $PokemonTemp.rescuechain = [0,nil] if !$PokemonTemp.rescuechain
   species=e[0]
   result=e[2]
   family=pbGetBabySpecies(species)
   if $PokemonTemp.rescuechain[1]!=family
     $PokemonTemp.rescuechain=[0,family]
   end
   if (result==1 || result == 4) && family==$PokemonTemp.rescuechain[1]
     $PokemonTemp.rescuechain[0]+=1
   end 
}

Simple Let's go shiny hunting by chaining a pokemon, inspired by Diego Mertens script
https://www.pokecommunity.com/showthread.php?p=10011513

Spoiler:

This is an add-on for the visible overworld wild encounter script. It adds shiny hunting by chaining a pokemon species to the script.
This script is motified by Diego Mertens Lets's Go Catch Combo, see https://www.pokecommunity.com/showthread.php?p=10011513

FEATURES INCLUDED: If you catch the same species in a row, then you increase the chance of spawning a shiny of that species.

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

PROPERTIES: You can choose how many encounters you have to catch to obtain the increased Shiny-Chance in parameter
CHAINLENGTH
and the increased Shiny-Chance in parameter
SHINYPROBABILITY
in the settings section of this add-on.

REMARK: If you want that killing instead of chaining has the effect on spawning shinies then replace "result == 4" at the bottom of the shiny chining script by "result==1". And If you want that killing and chaining also that effect then replace "result == 4" by "(result==1 || result == 4)".

Code:

#===============================================================================
# Simple Let's Go Shiny Hunting, inpired by Diego Mertens script
# - to make a chained pokemon shiny
#===============================================================================

# This is an add-on for the visible overworld wild encounter script.
# It adds shiny hunting by chaining a pokemon species to the script.
# This script is motified by Diego Mertens Lets's Go Catch Combo, see
# https://www.pokecommunity.com/showthread.php?p=10011513

# FEATURES INCLUDED:
# If you catch the same species in a row, then you increase the chance of
# spawning a shiny of that species.

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

# PROPERTIES:
# You can choose how many encounters you have to catch to obtain the increased
# Shiny-Chance in parameter
#     CHAINLENGTH
# and the increased Shiny-Chance in parameter
#     SHINYPROBABILITY
# in the settings below.

# REMARK:
# If you want that killing instead of chaining has the effect on spawning shinies then replace "result == 4"
# at the bottom of the shiny chining script by "result==1".
# And If you want that killing and chaining also that effect then replace "result == 4" by "(result==1 || result == 4)".

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

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

#===============================================================================
# adding a new instance variable to $PokemonTemp in script PField_Metadata to
# remember which pokemon and how many of that kind were caught in a row
#===============================================================================
class PokemonTemp
  attr_accessor :catchcombo # [chain length, species]
end

#===============================================================================
# adding a new event handler on pokemon create to make pokemon shiny on spawning
# and in instant battles if the chain is long enough
#===============================================================================
Events.onWildPokemonCreate+=proc {|sender,e|
  if !$PokemonGlobal.battlingSpawnedPokemon
    pokemon=e[0]
    next if pokemon.nil?
    $PokemonTemp.catchcombo=[0,0] if !$PokemonTemp.catchcombo
    if ($PokemonTemp.catchcombo[0]>=CHAINLENGTH && $PokemonTemp.catchcombo[1]==pokemon.species)
      if rand(SHINYPROBABILITY)<$PokemonTemp.catchcombo[0]
        pokemon.makeShiny
      end
    end
  end
}

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

Automatic Spawning

Spoiler:

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 the code below 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 section of this add-on.

Code:

#===============================================================================
# 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

Randomised spawning

Spoiler:

all overworld encounters are shinys
Spoiler:
Here is a very easy Add-On. It makes all pokemon spawn as shinies. Simply, add the code to the bottom of the visible overworld wild encounter script
Code:

Events.onWildPokemonCreateForSpawning+=proc {|sender,e| pokemon=e[0] pokemon.makeShiny }
instructions on how to make your own Add-On or to modify an already existing script to make it work with the visible overworld wild encounter script. This includes modifying a pokemon on spawning but not on battling again, by using the events OnStartBattle, OnWildPokemonCreate and OnWildPokemonCreateForSpawning
Spoiler:
derFischae said:

For short: If you want to run a procedure
- only when a pokemon spawns --> use: @@OnWildPokemonCreateForSpawning, used for changing the species, level, gender, alternative form and the shinyness of the overworld encounter
- only when you go into battle with a pokemon --> use: @@OnStartBattle, as usual
- in both situation --> use: @@OnWildPokemonCreate
Additionally, use the global variable $PokemonGlobal.battlingSpawnedPokemon to decide if you battle against an overworld encounter (true) or not (nil or false), including battling a normal encounter or not battling at all
- $PokemonGlobal.battlingSpawnedPokemon let's you add a procedure to the event @@OnWildPokemonCreate that runs only than battling or only on spawning.
lots of scripts out there work as suggested with this script. But for some scripts you might need to modify your additional scripts, such as Vendilys Rescue Chain or Joltiks Level Balance, to work properly with the visible overworld encounter script.

EVENTS AND VISIBLE OVERWORLD WILD ENCOUNTER

Concerning Wild Pokemon, there are 3 Events, which trigger before a wild overworld pokebattle.

At first, the event @@OnStartBattle triggers right before the battle.
You can add a procedure to this event, so that procedure runs when going into battle.
See the Pokemon Essentials manual if you want to read more on how to use it.

Another event is @@OnWildPokemonCreate, instructions in the Pokemon Essentials manual.
But with the visible overworld wild encounter script, the event @@OnWildPokemonCreate triggers twice, since we need to create a pokemon in two situation.
At first when the pokemon spawns to generate the pokemon species, level, shinyness, form and gender for the sprite.
And the second time it creates a pokemon is when you go into battle with an already spawned pokemon to set the ability, IVs and all the other things we need for the battle.

So, you can still use all your scripts which make use of the event @@OnwildPokemonCreate. But it might get an odd behavior since that event triggers twice.
To get rid of that the visible wild overworld encounter script introduces a new event @@OnWildPokemonCreateForSpawning.
It can be used the same way as the event @@OnWildPokemonCreate, but this event will only trigger when a pokemon spawns on the overworld and is not triggered in any other situations than for spawning.
If you want to add a procedure that modifies a pokemon only for spawning but not before battling then you can do it.
Simply add that procedure to the event @@OnWildPokemonCreateForSpawning.
Also make sure that the procedure only affects the species, level, alternative form, gender and shinyness of the pokemon.
All other changes of properties of the pokemon, such as the ability and the IVs, will be omitted, since they are not relevant for the sprite of the overworld encounter. (If you think, that there should be some other property changable then let me know.)
But all other properties of a pokemon can still be changed in @@OnWildPokemonCreate or @@OnStartBattle as usual.

You can use the new global variable $PokemonGlobal.battlingSpawnedPokemon, which is true if you are in battle with an already spawned pokemon and nil or false in all other situations, including not battling at all.
This global variable let's you restrict a procedure added to @@OnWildPokemonCreate run only on creation for battling an already spawned pokemon or not to run then.
So, you can use this code snippet

Code:

Events.onWildPokemonCreate+=proc {|sender,e| if !$PokemonGlobal.battlingSpawnedPokemon #The actual code of your procedure you want to run only on spawning of overworld encounters and not battling them. end }

will force that the procedure runs on spawning and not on battling an overworld encounter.
And

Code:

Events.onWildPokemonCreate+=proc {|sender,e| if $PokemonGlobal.battlingSpawnedPokemon == true #The actual code of your procedure you want to run only when battling overworld encounters. end }

will force that the procedure only runs on battling with an overworld encounter.

EVENTS AND OVERWORLD ENCOUNTER AND NORMAL ENCOUNTER IN ONE GAME

You can have overworld encounters and events, placed by your own, which force a wild battle, which also counts somehow as a normal encounter.
Or you use overworld encounters and normal encounters at the same time. This can be done by setting the parameter INSTANT_WILD_BATTLE_PROPABILITY = 1,2,3,4,... or 99. Or by changing ingame the value of the $game_variable with the ID equal to OVERWORLD_ENCOUNTER_VARIABLE. Read the instructions in the settings section of the visible overworld wild encounter script for more informations.
So you might come to the point that you want to modify a pokemon or run a certain procedure in battle only for overworld encounters, only for normal encounters or for all encounters.
At first if you want to run a procedure for all encounters, then add that procedure to the event @@OnStartBattle as usual
But if not then you can use the new global variable $PokemonGlobal.battlingSpawnedPokemon, which is true if you are in battle with an already spawned pokemon and nil or false in all other situations, including not battling at all.
So, a procedure runs only for overworld encounters with this code snippet

Code:

Events.onStartBattle+=proc {|sender,e| if ($PokemonGlobal.battlingSpawnedPokemon == true) #The actual code of your procedure you want to run only when battling overworld encounters end }

And a procedure runs only for normal encounters with this code snippet

Code:

Events.onStartBattle+=proc {|sender,e| if !$PokemonGlobal.battlingSpawnedPokemon #The actual code of your procedure you want to run only when battling normal encounters end }

By the way,

Code:

Events.onWildPokemonCreate+=proc {|sender,e| if !$PokemonGlobal.battlingSpawnedPokemon #The actual code of your procedure you want to run only when battling normal encounters and on spawning of overworld encounters. end }

will force that the procedure runs on spawning and on battling with an normal encounter, but not on battling with an overworld encounter.
And

Code:

Events.onWildPokemonCreate+=proc {|sender,e| if $PokemonGlobal.battlingSpawnedPokemon == true #The actual code of your procedure you want to run only when battling overworld encounters. end }

will force that the procedure runs on battling with an overworld encounter.

Click to expand...
Joltiks Level Balance, see https://www.pokecommunity.com/threads/409828 for original post
Spoiler:
With Joltiks Level Balance, the encountering wild pokemon will always have a level balanced by the level of your party pokemon. Moreover, with high level, you will also encounter evolved pokemon.
Joltiks Level Balance is a script, such as many other scripts, that is not written for overworld spawning but also works fine without any modifiactions.
Basically, you can install the original version which you find at
https://www.pokecommunity.com/threads/409828
It should not produce any odd behaviour.

But if you want to modify Joltiks Level Balance Script to be sure that it is completely compatible then you can do the following 2 steps. (You can read the instructions on how to make your own Add-On above for more informations)
Step 1) Simply search for all code in the script that is added to @@OnWildPokemonCreate by
Code:

Events.onWildPokemonCreate+=proc {|sender,e| #Here is the code }
and add it to @@OnWildPokemonCreateForSpawning instead by
Code:

Events.onWildPokemonCreateForSpawning+=proc {|sender,e| #Here is the code }
Step 2) If you want that Joltiks Level Balance also works with normal encounters, then, additionally, you can use the new global variable $PokemonGlobal.battlingSpawnedPokemon, which is true if you are in battle with an already spawned pokemon and nil or false in all other situations, including not battling at all.
This global variable let's you restrict a procedure added to @@OnWildPokemonCreate run only on creation for battling an already spawned pokemon or not to run then.
So, you can add this code snippet
Code:

Events.onWildPokemonCreate+=proc {|sender,e| if !$PokemonGlobal.battlingSpawnedPokemon #Here is the code end }
where "#Here is the code" stands for the code of Joltiks original script as before.

Note that Joltiks Level Balance is a good script to perform the described modifications since it only affects the species and the level of the pokemon. Although, without any modifications, Joltiks Level Balance would not generate any odd behavior. It just runs twice.
In general, make sure that the code only affects the species, level gender, alternative form and the shinyness of the pokemon. This should be the case for the script level balancing by Joltik for example.
If it also affects other parameters of the pokemon, such as the stats, then that modifications don't work anymore.

MODIFICATIONS OF THIS SCRIPT: Read this thread https://www.pokecommunity.com/threads/429019 for more features and modifications, including

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:
Sakrifux said:

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:

Code:

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

at the bottom of the settings section, below the parameter

Code:

AGGRENCMOVEFREQ = 5 # default 5

Then go to this Line:

Code:

if isShiny==true character_name = character_name+"s" if USESHINYSPRITES == true and pbResolveBitmap("Graphics/Characters/"+character_name+"s") shinysprite=true end

And replace all of this with this:

Code:

if isShiny==true character_name = character_name+"s" if USESHINYSPRITES == true and pbResolveBitmap("Graphics/Characters/"+character_name+"s") shinysprite=true $scene.spriteset.addUserAnimation(SHINY_ANIMATION_ID,event.x,event.y,true,2) 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.
REMARK: Code snippets are updated for version 2.0.

Click to expand...
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.
भाग्य ज्योति said:

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.

Code:

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

Click to expand...

how to change the movement of the overworld encounter

Spoiler:

derFischae said:
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

Code:

# 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

Code:

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:

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

I added:

Code:

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:

Code:

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:

Code:

#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:

Code:

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.

forbidding pokemon to spawn on specific terrain tiles in caves

Spoiler:

derFischae said:
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

Code:

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

Code:

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

below

Code:

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

Code:

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

Code:

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:

derFischae said:
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

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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:

derFischae said:

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, garanty that overworld spawning and ordinary instant battles are possible. This can be done by setting the parameter INSTANT_WILD_BATTLE_PROPABILITY = 1,2,3,4,... or 99. Or by changing ingame the value of the $game_variable with the ID equal to OVERWORLD_ENCOUNTER_VARIABLE. Read the instructions in the settings section of the visible overworld wild encounter script for more informations.

2) Add the following encounter types

Code:

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:

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

Code:

  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

Code:

  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) Replace

Code:

  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

in the visible overworld wild encounter script by

Code:

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

6) 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, or as overworld encounters on maps where you did not specify OverworldLand encounters in the PBS file.
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

Code:

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

by

Code:

    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:

Code:

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:

error solutions

CHANGELOG

Spoiler:

SandalDaniel · Sep 1, 2020

When entering an area with set wild encounters, after plugging in this script, I get this error

---------------------------
Pokemon Essentials
---------------------------
[Pokémon Essentials version 17.2]

Exception: NoMethodError

Message: undefined method `catchcombo' for #<PokemonTemp:0x122f0df0>

Overworld_Random_Encounters 2.0:477:in `spawnEvent'

Overworld_Random_Encounters 2.0:398:in `pbPlaceEncounter'

Overworld_Random_Encounters 2.0:313:in `pbOnStepTaken'

Game_Player:461:in `update_old'

Game_Player_Visuals:71:in `follow_update'

Following Pokemon:1466:in `update'

Scene_Map:164:in `follow_update'

Scene_Map:161:in `loop'

Scene_Map:170:in `follow_update'

Following Pokemon:1534:in `update'

This exception was logged in

C:\Users\chanc\Saved Games\Pokemon Essentials\errorlog.txt.

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

I apologize if this error is a result of me being dumb but I haven't been able to figure out a way around this and decided to post it here.

derFischae · Sep 2, 2020

SandalDaniel said:
When entering an area with set wild encounters, after plugging in this script, I get this error

I apologize if this error is a result of me being dumb but I haven't been able to figure out a way around this and decided to post it here.

Thank you for reporting that bug. Indeed, by cleaning up the code to make the Let's Go Shiny Hunting an additional feature I forgot one line. This produced the error message. I updated the code to make it version 2.0.1. You can either use the new version or you can search for the line 477

Code:

    $PokemonTemp.catchcombo=[0,0] if !$PokemonTemp.catchcombo

and remove it.

z35dim · Sep 2, 2020

Hi, is it possible to remake the script for PSDK?

derFischae · Sep 2, 2020

z35dim said:
Hi, is it possible to remake the script for PSDK?

I'm not familar with PSDK. But I would guess that basically everything that can be done with RPGMakerXP and Ruby can also be done in PSDK. So almost every script can be remaked.
But the visible overworld wild encounter script uses RGSS2 to generate events (the spawning pokemon) during runtime. Well, infact I don't actually know that the script uses RGSS2 but I would guess since it uses the modules defined in the script section RGSS2Compatibility. By the way, the only other script I know that does a similar thing is KleinStudio's Phenomenon implemented in KleinStudio's Pokemon Essentials BW. Here is not a direct link, but they also talk about it at https://www.pokecommunity.com/threads/430794
Now, PSDK does not support that and uses LiteRGSS instead. So all parts concerning RGSS2 in the visible overworld wild encounter script need to be rewritten for LiteRGSS.

Here, I will tell you in detail how the visible overworld encounter script generates new Game_Events during runtime. So you can find out what you have to adjust to make it work with PSDK.

For the notation: A lot of things are called events but they all are of different types. That is
(1) that thing you can place on a map in the map editor.
(2) an object of the class Event defined in module RPG in script section RSGG2Compatiblity.
All the data you put in an Event of Type (1) in the Event editor, such as the graphic, the move route, the move speed or the list of event commands is stored in an event of class RPG::Event
(3) an object of the class Game_Event defined in script section Game_Event.
At the beginning of your playtesting, RPGMakerXP generates an game event for every event data of type (2) concerning the events of type (1) placed in the map editor.
By the way, a Game_Event contains the corresponding event of type (2) as an variable.
These game events are the one ruby works with during playtime, for instance checking if the player bounced into that event, etc.
(4) an event, such as OnWildBattleEnd, that triggers during playtime and defined in module Events in script section PField_Field. But this is not discussed here.

Actually, RPGMakerXP was designed in a way that you place an event in the map editor and that's it.
It was not intended to generate new events of type (3) during runtime.
But it is possible. And so the visible overworld wild encounter script does that in the method SpawnEvent by 4 Steps.

Step 1) Generate an RPG::Event of type (2)

Code:

event = RPG::Event.new(x,y)

Step 2) Put all the nessessary data into that RPG::Event event, for example

Code:

event.pages[0].graphic.character_name = "001s" # for a shiny bulbasaur saved as 001s.png
event.pages[0].move_type = 1 # means random movement of the spawned pokemon
event.pages[0].move_type = 3 # spawned pokemon follows player
event.pages[0].move_speed = 3 # means slow speed
event.pages[0].move_frequency = 5 # means higher frequency
event.pages[0].move_route.list[0].code = 10
event.pages[0].move_route.list[1] = RPG::MoveCommand.new
event.pages[0].step_anime = true # for step animation of the spawned pokemon
event.pages[0].trigger = 2 # means that event triggers on event touch

Then add all the event commands to the list, for example that a wild battle starts with the species encounter[0] with level encounter[1].
This can be done in 2 ways. Either use something like

Code:

pbPushScript(event.pages[0].list,sprintf(" pbWildBattle("+encounter[0].to_s+","+encounter[1].to_s+")"))

or use

Code:

event.pages[0].list[0].code = 355 # 355 stands for the event command script, check script section Interpreter for all commands
event.pages[0].list[0].indent = 0
parameter = " pbWildBattle("+encounter[0].to_s+","+encounter[1].to_s+")"
event.pages[0].list[0].parameters = [parameter]
event.pages[0].list[1] = RPG::EventCommand.new

For the latter way, note that it is nessessary to start with list index list[0] and don't forget the last line. If you want to add another command then do the same but with an list index increased by 1.
The parameter needs to be a string here since 355 is the command corresponding to the script command you use into the event command editor (page 3, last entry). See the script section Interpreter in the editor in Pokemon Essentials (press F11) for all commands and how they work.
Here some loosely skimmed over links:
https://forums.rpgmakerweb.com/index.php?threads/script-call-equivalents-of-event-commands.36438/
https://sites.google.com/site/zeriabsjunk/home/interpretercommand355rmxp

Step 3) Generate an Game_Event of type (3)

Code:

gameEvent = Game_Event.new(@map_id, event, self)

Step 4) Add that Game_Event gameEvent to the list @events of all Game_Events ruby and rpgMakerXP works with

Code:

    @events[key_id] = gameEvent

SandalDaniel · Sep 2, 2020

I got another bug that once again, I am not fully sure is a bug or my own error. But just to be safe I felt the need to report it here. There seems to be an issue with line 362 of your script, which states

Code:

return if $Trainer.ablePokemonCount==0   #check if trainer has pokemon

. Essentially this line seems to cause the game to crash if the player does not have any pokemon in their party. Basically, I can't even make a new game without it crashing. The error message goes as follows:

---------------------------
Pokemon Essentials
---------------------------
[Pokémon Essentials version 17.2]

Exception: NoMethodError

Message: undefined method `ablePokemonCount' for nil:NilClass

Overworld_Random_Encounters 2.0.1:362:in `pbChooseEncounter'

Overworld_Random_Encounters 2.0.1:943:in `update'

Scene_Map:140:in `updateMaps'

Scene_Map:139:in `each'

Scene_Map:139:in `updateMaps'

Scene_Map:148:in `miniupdate'

Scene_Map:147:in `loop'

Scene_Map:155:in `miniupdate'

Messages:155:in `pbUpdateSceneMap'

Messages:1266:in `pbMessageDisplay'

This exception was logged in

C:\Users\chanc\Saved Games\Pokemon Essentials\errorlog.txt.

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

for now it seems deleting the line is a temporary fix to the issue, but I'm sure it has some other function that will be missing if this line is deleted.

ArchyTheArc · Sep 2, 2020

So no actual issue ig just a visual thing maybe(?) water encounters, atleast for when in 16.2, seem to still have the grass pop up animation (unless you fixed it in the versions since my downgrade) probably just a check of the terrain or smth and disable the animation/give a new one when its a water one

derFischae · Sep 2, 2020

ArchyTheArc said:
So no actual issue ig just a visual thing maybe(?) water encounters, atleast for when in 16.2, seem to still have the grass pop up animation (unless you fixed it in the versions since my downgrade) probably just a check of the terrain or smth and disable the animation/give a new one when its a water one

भाग्य ज्योति already gave instructions to modify this issue, see
https://www.pokecommunity.com/posts/10197592
This is also quoted in the main post under "modifications of this script".

derFischae · Sep 2, 2020

SandalDaniel said:
I got another bug that once again, I am not fully sure is a bug or my own error. But just to be safe I felt the need to report it here. There seems to be an issue with line 362 of your script, which states

Code:

return if $Trainer.ablePokemonCount==0 #check if trainer has pokemon

. Essentially this line seems to cause the game to crash if the player does not have any pokemon in their party. Basically, I can't even make a new game without it crashing. The error message goes as follows:

for now it seems deleting the line is a temporary fix to the issue, but I'm sure it has some other function that will be missing if this line is deleted.

Hmm, odd. Basically, your error message says that Pokemon Essentials does not know what $Trainer is. It should be the Game_Player but it is nothing here. Unfortunately, I can not reproduce your error message.
Please, can you try the following: Remove all code in the script section you denoted by Overworld_Random_Encounters, start a new game and move in grass. Does the error still occure? I would guess that but who knows.
By the way, what version of Pokemon Essentials and what version of the visible overworld wild encounter script do you use? Do you also use other scripts or modifications?

The line

Code:

return if $Trainer.ablePokemonCount==0   #check if trainer has pokemon

makes sure that no overworld pokemon spawn until you own a pokemon. Otherwise, it could be problematic to go into a battle with a wild pokemon without having a party. But you can test it and let us know the game experience.