compatibility items trainers

Data/Scripts/025-Randomizer/randomizer - encounters.rb

@@ -0,0 +1,164 @@
+##### 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
+
+
+######################################################
+
+
+
+
+
+
+
+
+
+
+
+
+