##### by route
#
# Randomize encounter by routes
# Script by Frogman
#

def Kernel.randomizeWildPokemonByRoute()
  bstRange = $game_variables[197]
  randomizeToFusions = $game_switches[953]
  $game_switches[829] = randomizeToFusions #unused mais probab. utile pour débugger les inévitables bugs quand les gens vont se partager leurs fichiers
  maxSpecies = randomizeToFusions ? PBSpecies.maxValue : NB_POKEMON
  data=load_data("Data/encounters.dat")
  map_index = 0
  nb_maps= data.size
  if data.is_a?(Hash)
    for map in data
      map_index += 1
      displayProgress(map_index,nb_maps,bstRange)
      map_id = map[0]
      encountersList = map[1][1]
      next if encountersList== nil
      type_index =-1
      for encounterType in encountersList
          type_index +=1
          next if encounterType == nil
          previousSpecies = -1
          previousNewSpecies = -1
          encounter_index = 0
          for encounter in encounterType
             species = encounter[0]
             if species != previousSpecies    
                newSpecies= getNewSpecies(species,bstRange,true,maxSpecies)
                previousSpecies = species
                previousNewSpecies = newSpecies
             else
                newSpecies = previousNewSpecies
              end
            if data[map_id][1][type_index][encounter_index] != nil
              data[map_id][1][type_index][encounter_index][0] = newSpecies
            end
            encounter_index  +=1
          end   #for -encounter
      end #for encountertype
    end   #for - map
  end #if
  filename = "Data/encounters_randomized.dat"
  save_data(Marshal.load(Marshal.dump(data)),filename)
  $PokemonEncounters.setup($game_map.map_id)
 end
 
  
  #file = File.new('Data/test.txt', 'w')
  #file.puts data.inspect
 

def displayProgress(current,total,bst)
  return if bst >= 100
  return if bst >= 20 && current % 10 != 0
  Kernel.pbMessageNoSound(_INTL("\\ts[]Generating encounters file...\\n Map {1}/{2}\\^",current,total))
end


class PokemonEncounters
  
    def setup(mapID)
    @density=nil
    @stepcount=0
    @enctypes=[]
    begin

      data=load_data(getEncountersFilePath())
      if data.is_a?(Hash) && data[mapID]
        @density=data[mapID][0]
        @enctypes=data[mapID][1]
      else
        @density=nil
        @enctypes=[]
      end
      rescue
      @density=nil
      @enctypes=[]
    end
  end
  
  def getEncountersFilePath()
    if $game_switches[777] && $game_switches[778]   #[777] = random-by-area  [778] = wildpokerandom activated
      return "Data/encounters_randomized.dat"
    else
      return "Data/encounters.dat"
    end
  end
  
  def pbMapEncounter(mapID,enctype)
    if enctype<0 || enctype>EncounterTypes::EnctypeChances.length
      raise ArgumentError.new(_INTL("Encounter type out of range"))
    end
    data=load_data(getEncountersFilePath())
    if data.is_a?(Hash) && data[mapID]
      enctypes=data[mapID][1]
    else
      return nil
    end
    return nil if enctypes[enctype]==nil
    chances=EncounterTypes::EnctypeChances[enctype]
    chancetotal=0
    chances.each {|a| chancetotal+=a}
    rnd=rand(chancetotal)
    chosenpkmn=0
    chance=0
    for i in 0...chances.length
      chance+=chances[i]
      if rnd<chance
        chosenpkmn=i
        break
      end
    end
    encounter=enctypes[enctype][chosenpkmn]
    level=encounter[1]+rand(1+encounter[2]-encounter[1])
    return [encounter[0],level]
  end
end



def getRandomPokemon(originalPokemon,bstRange,maxDexNumber)
  originalBst = getBaseStatsTotal(originalPokemon)
  bstMin = originalBst-bstRange
  bstMax = originalBst+bstRange
  
  foundAPokemon = false
  while ! foundAPokemon
    newPoke = rand(maxDexNumber-1)+1
    newPokeBST = getBaseStatsTotal(newPoke)
    if newPokeBST >= bstMin && newPokeBST <= bstMax
      foundAPokemon = true
    end
  end
  return newPoke
end

def getBaseStatsTotal(species)
      baseStats=$pkmn_dex[species][5]
      baseStat_temp = 0
      for i in 0...baseStats.length
        baseStat_temp+=baseStats[i]
      end
      return (baseStat_temp/range).floor
end


######################################################