Migration - more progress

Data/Scripts/998_InfiniteFusion/Randomizer/randomizer - encounters.rb

@@ -0,0 +1,223 @@
+##### by route
+#
+# Randomize encounter by routes
+# Script by Frogman
+#
+def Kernel.randomizeWildPokemonByRoute()
+  bstRange = $game_variables[VAR_RANDOMIZER_WILD_POKE_BST]
+  randomizeToFusions = $game_switches[SWITCH_RANDOM_WILD_TO_FUSION]
+  onlyCustoms = $game_switches[SWITCH_RANDOM_WILD_ONLY_CUSTOMS] && randomizeToFusions
+  customsList = onlyCustoms ? getCustomSpeciesList() : []
+  maxSpecies = randomizeToFusions ? PBSpecies.maxValue : NB_POKEMON
+  GameData::EncounterRandom::DATA.clear
+  GameData::Encounter.each do |enc_data|
+    encounters_hash = {}
+    encounters_hash[:id] = enc_data.id
+    encounters_hash[:map] = enc_data.map
+    encounters_hash[:version] = enc_data.version
+    encounters_hash[:step_chances] = enc_data.step_chances
+    types_hash = {}
+    enc_data.types.each do |key, value|
+      pokemonList = value
+      newType = randomizePokemonList(pokemonList,bstRange,maxSpecies,onlyCustoms,customsList)
+      types_hash[key]= newType
+    end
+    encounters_hash[:types] = types_hash
+    GameData::EncounterRandom.register(encounters_hash)
+  end
+
+  # Save all data
+  GameData::EncounterRandom.save
+  Graphics.update
+  GameData::EncounterRandom.load
+end
+
+#input: [[60, :TENTACOOL,5,40, [30, :GOLDEEN, 5, 35], etc.]]
+def randomizePokemonList(encountersList,bstRange=50,maxSpecies=NB_POKEMON,customOnly=false,customsList=[])
+  includeLegendaries = $game_switches[SWITCH_RANDOM_WILD_LEGENDARIES]
+  newList=[]
+  for encounter in encountersList
+    oldPokemon = encounter[1]
+    if customOnly
+      newPokemon = getNewCustomSpecies(oldPokemon,customsList,bstRange,false,includeLegendaries)
+    else
+      newPokemon = getNewSpecies(oldPokemon,bstRange,false,maxSpecies,includeLegendaries)
+    end
+    newEntry =[]
+    newEntry << encounter[0]
+    newEntry << getSpecies(newPokemon).species
+    newEntry << encounter[2]
+    newEntry << encounter[3]
+    newList << newEntry
+  end
+  return newList
+end
+
+
+#
+# def Kernel.randomizeWildPokemonByRouteOld()
+#   bstRange = $game_variables[VAR_RANDOMIZER_WILD_POKE_BST]
+#   randomizeToFusions = $game_switches[SWITCH_RANDOM_WILD_TO_FUSION]
+#   $game_switches[SWITCH_RANDOMIZED_WILD_POKEMON_TO_FUSIONS] = 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 = GameData::Encounter.get(map_id)
+#       p encountersList
+#       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
+#   int i=0
+#   while ! foundAPokemon
+#     newPoke = rand(maxDexNumber-1)+1
+#     newPokeBST = getBaseStatsTotal(newPoke)
+#     if newPokeBST >= bstMin && newPokeBST <= bstMax
+#       foundAPokemon = true
+#     end
+#     i+=1
+#     if i %10 ==0
+#       bstMin-=5
+#       bstMax+=5
+#     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
+
+
+######################################################
+
+
+
+
+
+
+
+
+
+
+
+
+