Script: Visible Overworld Wild Encounter

def Kernel.pbOnStepTaken(eventTriggered)
  if $game_switches[OVERWORLD_ENCOUNTER_SWITCH]==false
    #Insert the code from Kernel.pbOnStepTaken in script PField_Field
    [...]
  else
    #Insert the code from Kernel.pbOnStepTaken in script Visible Overworld Wild Encounter (see above)
    [...]
  end
end

#===============================================================================
# * Visible Overworld Encounters - by derFischae (Credits if used please) *
#===============================================================================

# 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
#   - if you kill the same species in a row, then you increase
#     the chance of spawning a shiny of that species 
#
# INSTALLATION:
# Installation as simple as it can be.
# Step 1) You need sprites for the overworld pokemon in your \Graphics\Characters
# folder named by there number 001.png, 002.png, ...,
# with the corresponding shiny versions 001s.png, 002s.png, ....
# For instance you can use Gen 1-7 OV SPrites or whatever you want for 
# your fakemon
# 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
#
# NOTE: I have not checked Roaming Encounters. Feel free to test it.

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

OVERWORLD_ENCOUNTER_SWITCH = 97


#===============================================================================
#                              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" it was originally used for
# random encounter battles
#===============================================================================

def Kernel.pbOnStepTaken(eventTriggered) 
   if $game_switches[OVERWORLD_ENCOUNTER_SWITCH]==false
    if $game_player.move_route_forcing || pbMapInterpreterRunning? || !$Trainer
      Events.onStepTakenFieldMovement.trigger(nil,$game_player)
    return
    end
  $PokemonGlobal.stepcount = 0 if !$PokemonGlobal.stepcount
  $PokemonGlobal.stepcount += 1
  $PokemonGlobal.stepcount &= 0x7FFFFFFF
  repel = ($PokemonGlobal.repel>0)
  
  Events.onStepTaken.trigger(nil)
#  Events.onStepTakenFieldMovement.trigger(nil,$game_player)
  handled = [nil]
  Events.onStepTakenTransferPossible.trigger(nil,handled)
  return if handled[0]
  if !eventTriggered
    pbBattleOnStepTaken(repel)
  end
end
  else 
  #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
    #we choose the tile on which the pokemon appears
    pos = pbChooseTileOnStepTaken
    return if !pos
    #we choose the random encounter
    encounter = pbChooseEncounter(pos[0],pos[1],repel)
    return if !encounter
    #we generate an random encounter overworld event
    pbPlaceEncounter(pos[0],pos[1],encounter)
  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,repel)
    $PokemonTemp.forceSingleBattle = false
    EncounterModifier.triggerEncounterEnd()
    return
  end
  return encounter
end



#===============================================================================
# defining new method pbPlaceEncounter to add/place and visualise the pokemon
# "encounter" on the overworld-tile (x,y)
#===============================================================================
def pbPlaceEncounter(x,y,encounter)
  # Show grass rustling animations
  $scene.spriteset.addUserAnimation(RUSTLE_NORMAL_ANIMATION_ID,x,y,true,1)
  # Play the pokemon cry of encounter
  pbPlayCryOnOverworld(encounter[0])
  # 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)
  else
    mapId = $game_map.map_id
    spawnMap = $MapFactory.getMap(mapId)
    spawnMap.spawnEvent(x,y,encounter)
  end
  # For roaming encounters we have to do the following:
  if $PokemonTemp.nowRoaming == true && 
     $PokemonTemp.roamerIndex != nil &&
     $PokemonGlobal.roamEncounter != nil
    $PokemonGlobal.roamEncounter = nil
    $PokemonGlobal.roamedAlready = true
  end
  $PokemonTemp.forceSingleBattle = false
  EncounterModifier.triggerEncounterEnd()
end

#===============================================================================
# adding new Methods pbEncounterTypeOnTile and isEncounterPossibleHereOnTile?
# in Class PokemonEncounters in Script PField_Encounters
#===============================================================================
class PokemonEncounters
  def pbEncounterTypeOnTile(x,y)
    if PBTerrain.isJustWater?($game_map.terrain_tag(x,y))
      return EncounterTypes::Water
    elsif self.isCave?
      return EncounterTypes::Cave
    elsif self.isGrass?
      time = pbGetTimeNow
      enctype = EncounterTypes::Land
      enctype = EncounterTypes::LandNight if self.hasEncounter?(EncounterTypes::LandNight) && PBDayNight.isNight?(time)
      enctype = EncounterTypes::LandDay if self.hasEncounter?(EncounterTypes::LandDay) && PBDayNight.isDay?(time)
      enctype = EncounterTypes::LandMorning if self.hasEncounter?(EncounterTypes::LandMorning) && PBDayNight.isMorning?(time)
      if pbInBugContest? && self.hasEncounter?(EncounterTypes::BugContest)
        enctype = EncounterTypes::BugContest
      end
      return enctype
    end
    return -1
  end
  
  def isEncounterPossibleHereOnTile?(x,y)
    if PBTerrain.isJustWater?($game_map.terrain_tag(x,y))
      return true
    elsif self.isCave?
      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)
    #------------------------------------------------------------------
    # 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 shiny-sprite if probability & killcombo is high or shiny-switch is on
    $PokemonTemp.catchcombo=[0,0] if !$PokemonTemp.catchcombo
    if $game_switches[SHINY_WILD_POKEMON_SWITCH]==true
        character_name = character_name+"s"
        shinysprite=true
    elsif ($PokemonTemp.catchcombo[0]>=CHAINLENGTH && $PokemonTemp.catchcombo[1]==encounter[0])
      if rand(SHINYPROBABILITY)<$PokemonTemp.catchcombo[0]
        character_name = character_name+"s"
        shinysprite=true
      end
    end
    event.pages[0].graphic.character_name = character_name
    event.pages[0].move_type = 1
    event.pages[0].trigger = 2
    #------------------------------------------------------------------
    # we add the event commands to the event of the overworld encounter
    event.pages[0].list[0].code = 355
    event.pages[0].list[0].indent = 0
    if $PokemonGlobal.roamEncounter!=nil
      #[i,species,poke[1],poke[4]]
      parameter1 = $PokemonGlobal.roamEncounter[1].to_s
      parameter2 = $PokemonGlobal.roamEncounter[2].to_s
      parameter3 = $PokemonGlobal.roamEncounter[3].to_s
      $PokemonGlobal.roamEncounter[4] != nil ? (parameter4 = '"'+$PokemonGlobal.roamEncounter[4].to_s+'"') : (parameter4 = "nil")
      parameter = " $PokemonGlobal.roamEncounter = ["+parameter1+","+parameter2+","+parameter3+","+parameter4+"] "
    else
      parameter = " $PokemonGlobal.roamEncounter = nil "
    end
    event.pages[0].list[0].parameters = [parameter]
    event.pages[0].list[1] = RPG::EventCommand.new
    #
    event.pages[0].list[1].code = 355
    event.pages[0].list[1].indent = 0
    if $PokemonTemp.nowRoaming!=nil
      parameter =" $PokemonTemp.nowRoaming = "+$PokemonTemp.nowRoaming.to_s
    else
      parameter =" $PokemonTemp.nowRoaming = nil "
    end
    event.pages[0].list[1].parameters = [parameter]
    event.pages[0].list[2] = RPG::EventCommand.new
    #
    event.pages[0].list[2].code = 355
    event.pages[0].list[2].indent = 0
    if $PokemonTemp.roamerIndex!=nil
      parameter = " $PokemonTemp.roamerIndex = "+$PokemonTemp.roamerIndex.to_s
    else
      parameter = " $PokemonTemp.roamerIndex = nil "
    end
    event.pages[0].list[2].parameters = [parameter]
    event.pages[0].list[3] = RPG::EventCommand.new
    #
    event.pages[0].list[3].code = 355
    event.pages[0].list[3].indent = 0
    if $PokemonGlobal.nextBattleBGM!=nil
      parameter = " $PokemonGlobal.nextBattleBGM = "+PokemonGlobal.nextBattleBGM.to_s
    else
      parameter = " $PokemonGlobal.nextBattleBGM = nil "    
    end
    event.pages[0].list[3].parameters = [parameter]
    event.pages[0].list[4] = RPG::EventCommand.new
    #
    event.pages[0].list[4].code = 355
    event.pages[0].list[4].indent = 0
    if $PokemonTemp.forceSingleBattle!=nil
      parameter = " $PokemonTemp.forceSingleBattle = "+$PokemonTemp.forceSingleBattle.to_s
    else
      parameter = " $PokemonTemp.forceSingleBattle = nil "
    end
    event.pages[0].list[4].parameters = [parameter]
    event.pages[0].list[5] = RPG::EventCommand.new
    #
    event.pages[0].list[5].code = 355
    event.pages[0].list[5].indent = 0
    if $PokemonTemp.encounterType!=nil
      parameter = " $PokemonTemp.encounterType = "+$PokemonTemp.encounterType.to_s
    else
      parameter = " $PokemonTemp.encounterType = nil "
    end
    event.pages[0].list[5].parameters = [parameter]
    event.pages[0].list[6] = RPG::EventCommand.new
    #
    # setting shiny switch on if sprite is a shiny-sprite
    oldShinySwitchStatus=$game_switches[SHINY_WILD_POKEMON_SWITCH]
    if shinysprite == true
      parameter = " $game_switches["+SHINY_WILD_POKEMON_SWITCH.to_s+"]=true"
    else
      parameter = " $game_switches["+SHINY_WILD_POKEMON_SWITCH.to_s+"]=false"
    end
    event.pages[0].list[6].code = 355
    event.pages[0].list[6].indent = 0
    event.pages[0].list[6].parameters = [parameter]
    event.pages[0].list[7] = RPG::EventCommand.new
    #
    #pbSingleOrDoubleWildBattle(encounter[0],encounter[1])
    event.pages[0].list[7].code = 355
    event.pages[0].list[7].indent = 0
    parameter = " pbSingleOrDoubleWildBattle("+encounter[0].to_s+","+encounter[1].to_s+", $game_map.events["+key_id.to_s+"].map.map_id, $game_map.events["+key_id.to_s+"].x, $game_map.events["+key_id.to_s+"].y)"
    event.pages[0].list[7].parameters = [parameter]
    event.pages[0].list[8] = RPG::EventCommand.new
    #
    # setting shiny switch back to previous state
    parameter=" $game_switches["+SHINY_WILD_POKEMON_SWITCH.to_s+"]="+oldShinySwitchStatus.to_s
    event.pages[0].list[8].code = 355
    event.pages[0].list[8].indent = 0
    event.pages[0].list[8].parameters = [parameter]
    event.pages[0].list[9] = RPG::EventCommand.new
    #
    event.pages[0].list[9].code = 355
    event.pages[0].list[9].indent = 0
    event.pages[0].list[9].parameters = ["$PokemonTemp.encounterType = -1"]
    event.pages[0].list[10] = RPG::EventCommand.new
    #
    event.pages[0].list[10].code = 355
    event.pages[0].list[10].indent = 0
    event.pages[0].list[10].parameters = ["$PokemonTemp.forceSingleBattle = false"]
    event.pages[0].list[11] = RPG::EventCommand.new
    #
    event.pages[0].list[11].code = 355
    event.pages[0].list[11].indent = 0
    event.pages[0].list[11].parameters = ["EncounterModifier.triggerEncounterEnd()"]
    event.pages[0].list[12] = RPG::EventCommand.new
    #
    event.pages[0].list[12].code = 355
    event.pages[0].list[12].indent = 0
    event.pages[0].list[12].parameters = ["$game_map.events.delete("+key_id.to_s+")"]
    event.pages[0].list[13] = RPG::EventCommand.new
    #
    event.pages[0].list[13].code = 355
    event.pages[0].list[13].indent = 0
    event.pages[0].list[13].parameters = ["$scene.disposeSpritesets"]
    event.pages[0].list[14] = RPG::EventCommand.new
    #
    event.pages[0].list[14].code = 355
    event.pages[0].list[14].indent = 0
    event.pages[0].list[14].parameters = ["$scene.createSpritesets"]
    event.pages[0].list[15] = RPG::EventCommand.new
    #------------------------------------------------------------------
    # creating and adding the Game_Event
    gameEvent = Game_Event.new(@map_id, event,self)
    key_id = (@events.keys.max || -1) + 1
    gameEvent.id = key_id
    gameEvent.moveto(x,y)
    @events[key_id] = gameEvent
    #updating the sprites (copied from transferPlayer in Scene_Map)
    $scene.disposeSpritesets
    $scene.createSpritesets
  end
end

#===============================================================================
# adding new Method pbSingleOrDoubleWildBattle to reduce the code in spawnEvent
#===============================================================================
def pbSingleOrDoubleWildBattle(species,level,map_id,x,y)
  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])
  else
    pbWildBattle(species,level)
  end
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


          #########################################################
          #                                                       #
          #      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
      if $game_map.events.has_key?(@id) and $game_map.events[@id]==self
        $game_map.events.delete(@id)
      else
        if $MapFactory
          for map in $MapFactory.maps
            if map.events.has_key?(@id) and map.events[@id]==self
              map.events.delete(@id)
              break
            end
          end
        else
          #Kernel.pbMessage("Actually, this should not be possible")
        end
      end
      $scene.disposeSpritesets
      $scene.createSpritesets
    else
      @stepCount=0 if (!@stepCount || @stepCount<0)
      @stepCount+=1
      original_increase_steps
    end
  end
end

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

OVERWORLD_ENCOUNTER_SWITCH = 97 # choose your preferred $game_switch

    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

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

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

module PBTerrain
  Ice             = 12

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

    event.pages[0].graphic.character_name = character_name
    event.pages[0].move_type = 1
    event.pages[0].trigger = 2
    event.pages[0].step_anime = true
    #------------------------------------------------------------------
    # we add the event commands to the event of the overworld encounter

    $scene.disposeSpritesets
    $scene.createSpritesets