infinitefusion-e18/Data/Scripts/025-Randomizer/randomizer.rb

class PokemonGlobalMetadata
  attr_accessor :psuedoHash
  attr_accessor :psuedoBSTHash
  attr_accessor :pseudoBSTHashTrainers
  attr_accessor :randomTrainersHash


  alias random_init initialize
  def initialize
    random_init
    @psuedoHash=nil
    @psuedoBSTHash=nil
  end
end

##############
# randomizer shuffle
# ##############
def Kernel.pbShuffleDex(range=50,type=0)
  $game_switches[855] = true # Randomized at least once
  
#type 0: BST
#type 1: full random
#type: 2 by route (not implemented)
  range = 1 if range == 0
  # create hash
  psuedoHash = Hash.new
  psuedoBSTHash = Hash.new
  
  #Create array of all pokemon dex numbers
  pokeArray = []
  
  
  monLimit = type == 1 ? PBSpecies.maxValue : NB_POKEMON-1
  for i in 1..monLimit
    pokeArray.push(i)
  end
  #randomize hash
  pokeArrayRand = pokeArray.dup
  pokeArrayRand.shuffle!
  pokeArray.insert(0,nil)
  ######
  #on remet arceus a la fin
  pokeArray.push(NB_POKEMON)
  
  # fill random hash
  #random hash will have to be accessed by number, not internal name

  for i in 1...pokeArrayRand.length
    psuedoHash[i]=pokeArrayRand[i]
  end
  
  #use pokeArrayRand to fill in the BST hash also
  #loop through the actual dex, and use the first mon in pokeArrayRand with
  #BST in the same 100 range
  
  
  for i in 1..NB_POKEMON-1#pas de arceus   
    baseStats=$pkmn_dex[i][5]
    baseStat_target = 0
    for k in 0...baseStats.length
      baseStat_target+=baseStats[k]
    end
    baseStat_target = (baseStat_target/range).floor
    for j in 1...pokeArrayRand.length
      baseStats=$pkmn_dex[pokeArrayRand[j]][5]
      baseStat_temp = 0
      for l in 0...baseStats.length
        baseStat_temp+=baseStats[l]
      end
      baseStat_temp = (baseStat_temp/range).floor
      
      
      playShuffleSE(i)

      #if a match, add to hash, remove from array, and cycle to next poke in dex
      if (baseStat_temp == baseStat_target)
        psuedoBSTHash[i]=pokeArrayRand[j]
        pokeArrayRand.delete(pokeArrayRand[j])
            if i % 2 == 0 && type == 1
              n = (i.to_f/NB_POKEMON)*100
              Kernel.pbMessageNoSound(_INTL("\\ts[]Shuffling wild Pokémon...\\n {1}%\\^",sprintf('%.2f', n),NB_POKEMON))
            end
        
        break
      end
    end
  end
  psuedoBSTHash[NB_POKEMON] = NB_POKEMON
  #add hashes to global data
  $PokemonGlobal.psuedoHash = psuedoHash
  $PokemonGlobal.psuedoBSTHash = psuedoBSTHash  
end

def isPartArceus(poke,type=0)
  return true if poke == NB_POKEMON
  if type == 1
    return true if getBasePokemonID(poke,true) == NB_POKEMON
    return true if getBasePokemonID(poke,false) == NB_POKEMON
  end
  return false
end

#ajoute x happiness a tous les party member
def Kernel.raisePartyHappiness(increment)
  return
  #  for poke in $Trainer.party
  #    next if poke.isEgg?
  #    poke.happiness += increment
  #  end

end


def Kernel.pbShuffleDexTrainers()
  # create hash
  psuedoHash = Hash.new
  psuedoBSTHash = Hash.new
  
  #Create array of all pokemon dex numbers
  pokeArray = []
  for i in 1..PBSpecies.maxValue
    pokeArray.push(i)
  end
  #randomize hash
  pokeArrayRand = pokeArray.dup
  pokeArrayRand.shuffle!
  pokeArray.insert(0,nil)
  # fill random hash
  #random hash will have to be accessed by number, not internal name
  for i in 1...pokeArrayRand.length
    psuedoHash[i]=pokeArrayRand[i]
  end
  
  #use pokeArrayRand to fill in the BST hash also
  #loop through the actual dex, and use the first mon in pokeArrayRand with
  #BST in the same 100 range
  for i in 1..PBSpecies.maxValue
    if i % 20 == 0
      n = (i.to_f/PBSpecies.maxValue)*100
      #Kernel.pbMessage(_INTL("\\ts[]Shuffling...\\n {1}%\\^",sprintf('%.2f', n),PBSpecies.maxValue))
    end
    
    baseStats=$pkmn_dex[i][I]
    baseStat_target = 0
    for k in 0...baseStats.length
      baseStat_target+=baseStats[k]
    end
    baseStat_target = (baseStat_target/50).floor
    for j in 1...pokeArrayRand.length
      baseStats=$pkmn_dex[pokeArrayRand[j]][5]
      baseStat_temp = 0
      for l in 0...baseStats.length
        baseStat_temp+=baseStats[l]
      end
      baseStat_temp = (baseStat_temp/50).floor
      #if a match, add to hash, remove from array, and cycle to next poke in dex
      if baseStat_temp == baseStat_target
        psuedoBSTHash[i]=pokeArrayRand[j]
        pokeArrayRand.delete(pokeArrayRand[j])
        break
      end
    end
  end
  
  #add hashes to global data0
  #$PokemonGlobal.psuedoHash = psuedoHash
  $PokemonGlobal.pseudoBSTHashTrainers = psuedoBSTHash  
end