Migrate a reorganizes bunch of files from PIF

Data/Scripts/998_InfiniteFusion/Fusion/fusion_utils.rb

@@ -0,0 +1,410 @@
+def is_fusion_of_any(species_id, pokemonList)
+  is_species = false
+  for fusionPokemon in pokemonList
+    if is_fusion_of(species_id, fusionPokemon)
+      is_species = true
+    end
+  end
+  return is_species
+end
+
+def is_fusion_of(checked_species, checked_against)
+  return species_has_body_of(checked_species, checked_against) || species_has_head_of(checked_species, checked_against)
+end
+
+def is_species(checked_species, checked_against)
+  return checked_species == checked_against
+end
+
+def species_has_body_of(checked_species, checked_against)
+  if !species_is_fusion(checked_species)
+    return is_species(checked_species, checked_against)
+  end
+  bodySpecies = get_body_species_from_symbol(checked_species)
+  ret = bodySpecies == checked_against
+  #echoln _INTL("{1} HAS BODY OF {2} : {3} (body is {4})",checked_species,checked_against,ret,bodySpecies)
+  return ret
+end
+
+def species_has_head_of(checked_species, checked_against)
+  if !species_is_fusion(checked_species)
+    return is_species(checked_species, checked_against)
+  end
+  headSpecies = get_head_species_from_symbol(checked_species)
+  ret = headSpecies == checked_against
+  #echoln _INTL("{1} HAS HEAD OF {2} : {3}",checked_species,checked_against,ret)
+  return ret
+end
+
+def species_is_fusion(species_id)
+  dex_number = get_dex_number(species_id)
+  return dex_number > NB_POKEMON && dex_number < Settings::ZAPMOLCUNO_NB
+end
+
+def get_dex_number(species_id)
+  return GameData::Species.get(species_id).id_number
+end
+
+def getBodyID(species, nb_pokemon = NB_POKEMON)
+  if species.is_a?(Integer)
+    dexNum = species
+  else
+    dexNum = getDexNumberForSpecies(species)
+  end
+  if dexNum % nb_pokemon == 0
+    return (dexNum / nb_pokemon) - 1
+  end
+  return (dexNum / nb_pokemon).round
+end
+
+def getHeadID(species, bodyId = nil, nb_pokemon = NB_POKEMON)
+  if species.is_a?(Integer)
+    fused_dexNum = species
+  else
+    fused_dexNum = getDexNumberForSpecies(species)
+  end
+
+  if bodyId == nil
+    bodyId = getBodyID(species)
+  end
+  body_dexNum = getDexNumberForSpecies(bodyId)
+
+  calculated_number = (fused_dexNum - (body_dexNum * nb_pokemon)).round
+  return calculated_number == 0 ? nb_pokemon : calculated_number
+end
+
+def get_fusion_id(head_number, body_number)
+  return "B#{body_number}H#{head_number}".to_sym
+end
+
+def get_body_id_from_symbol(id)
+  split_id = id.to_s.match(/\d+/)
+  if !split_id #non-fusion
+    return GameData::Species.get(id).id_number
+  end
+  return split_id[0].to_i
+end
+
+def get_head_id_from_symbol(id)
+  split_id = id.to_s.match(/(?<=H)\d+/)
+  if !split_id #non-fusion
+    return GameData::Species.get(id).id_number
+  end
+
+  return split_id[0].to_i
+end
+
+def obtainPokemonSpritePath(id, includeCustoms = true)
+  head = getBasePokemonID(param.to_i, false)
+  body = getBasePokemonID(param.to_i, true)
+
+  return obtainPokemonSpritePath(body, head, includeCustoms)
+end
+
+def obtainPokemonSpritePath(bodyId, headId, include_customs = true)
+  #download_pokemon_sprite_if_missing(bodyId, headId)
+  picturePath = _INTL("Graphics/Battlers/{1}/{1}.{2}.png", headId, bodyId)
+
+  if include_customs && customSpriteExistsBodyHead(bodyId, headId)
+    pathCustom = getCustomSpritePath(bodyId, headId)
+    if (pbResolveBitmap(pathCustom))
+      picturePath = pathCustom
+    end
+  end
+  return picturePath
+end
+
+def getCustomSpritePath(body, head)
+  return _INTL("#{Settings::CUSTOM_BATTLERS_FOLDER_INDEXED}{1}/{1}.{2}.png", head, body)
+end
+
+def customSpriteExistsForm(species, form_id_head = nil, form_id_body = nil)
+  head = getBasePokemonID(species, false)
+  body = getBasePokemonID(species, true)
+
+  folder = head.to_s
+
+  folder += "_" + form_id_head.to_s if form_id_head
+
+  spritename = head.to_s
+  spritename += "_" + form_id_head.to_s if form_id_head
+  spritename += "." + body.to_s
+  spritename += "_" + form_id_body.to_s if form_id_body
+
+  pathCustom = _INTL("Graphics/.CustomBattlers/indexed/{1}/{2}.png", folder, spritename)
+  return true if pbResolveBitmap(pathCustom) != nil
+  return download_custom_sprite(head, body) != nil
+end
+
+def get_fusion_spritename(head_id, body_id, alt_letter = "")
+  return "#{head_id}.#{body_id}#{alt_letter}"
+end
+
+def customSpriteExistsSpecies(species)
+  head = getBasePokemonID(species, false)
+  body = getBasePokemonID(species, true)
+  return customSpriteExists(body, head)
+  # pathCustom = getCustomSpritePath(body, head)
+  #
+  # return true if pbResolveBitmap(pathCustom) != nil
+  # return download_custom_sprite(head, body) != nil
+end
+
+def getRandomCustomFusion(returnRandomPokemonIfNoneFound = true, customPokeList = [], maxPoke = -1, recursionLimit = 3)
+  if customPokeList.length == 0
+    customPokeList = getCustomSpeciesList(false)
+  end
+  randPoke = []
+  if customPokeList.length >= 5000
+    chosen = false
+    i = 0 #loop pas plus que 3 fois pour pas lag
+    while chosen == false
+      fusedPoke = customPokeList[rand(customPokeList.length)]
+      poke1 = getBasePokemonID(fusedPoke, false)
+      poke2 = getBasePokemonID(fusedPoke, true)
+
+      if ((poke1 <= maxPoke && poke2 <= maxPoke) || i >= recursionLimit) || maxPoke == -1
+        randPoke << getBasePokemonID(fusedPoke, false)
+        randPoke << getBasePokemonID(fusedPoke, true)
+        chosen = true
+      end
+    end
+  else
+    if returnRandomPokemonIfNoneFound
+      randPoke << rand(maxPoke) + 1
+      randPoke << rand(maxPoke) + 1
+    end
+  end
+  return randPoke
+end
+
+def checkIfCustomSpriteExistsByPath(path)
+  return true if pbResolveBitmap(path) != nil
+end
+
+def customSpriteExistsBodyHead(body, head)
+  pathCustom = getCustomSpritePath(body, head)
+
+  return true if pbResolveBitmap(pathCustom) != nil
+  return download_custom_sprite(head, body) != nil
+end
+
+def customSpriteExistsSpecies(species)
+  body_id = getBodyID(species)
+  head_id = getHeadID(species, body_id)
+  fusion_id = get_fusion_symbol(head_id, body_id)
+  return $game_temp.custom_sprites_list.include?(fusion_id)
+end
+
+def customSpriteExists(body, head)
+  fusion_id = get_fusion_symbol(head, body)
+  return $game_temp.custom_sprites_list.include?(fusion_id)
+end
+
+#shortcut for using in game events because of script characters limit
+def dexNum(species)
+  return getDexNumberForSpecies(species)
+end
+
+def isTripleFusion?(num)
+  return num >= Settings::ZAPMOLCUNO_NB
+end
+
+def isFusion(num)
+  return num > Settings::NB_POKEMON && !isTripleFusion?(num)
+end
+
+def isSpeciesFusion(species)
+  num = getDexNumberForSpecies(species)
+  return isFusion(num)
+end
+
+def getRandomLocalFusion()
+  spritesList = []
+  $PokemonGlobal.alt_sprite_substitutions.each_value do |value|
+    if value.is_a?(PIFSprite)
+      spritesList << value
+    end
+  end
+  return spritesList.sample
+end
+
+def getRandomFusionForIntro()
+  random_pokemon = $game_temp.custom_sprites_list.keys.sample || :PIKACHU
+  alt_letter = $game_temp.custom_sprites_list[random_pokemon]
+  body_id = get_body_number_from_symbol(random_pokemon)
+  head_id = get_head_number_from_symbol(random_pokemon)
+  return PIFSprite.new(:CUSTOM, head_id, body_id, alt_letter)
+end
+
+def getSpeciesIdForFusion(head_number, body_number)
+  return (body_number) * Settings::NB_POKEMON + head_number
+end
+
+def get_body_species_from_symbol(fused_id)
+  body_num = get_body_number_from_symbol(fused_id)
+  return GameData::Species.get(body_num).species
+end
+
+def get_head_species_from_symbol(fused_id)
+  head_num = get_head_number_from_symbol(fused_id)
+  return GameData::Species.get(head_num).species
+end
+
+def get_body_number_from_symbol(id)
+  dexNum = getDexNumberForSpecies(id)
+  return dexNum if !isFusion(dexNum)
+  id.to_s.match(/\d+/)[0]
+  return id.to_s.match(/\d+/)[0].to_i
+end
+
+def get_head_number_from_symbol(id)
+  dexNum = getDexNumberForSpecies(id)
+  return dexNum if !isFusion(dexNum)
+  return id.to_s.match(/(?<=H)\d+/)[0].to_i
+end
+
+def get_fusion_symbol(head_id, body_id)
+  return "B#{body_id}H#{head_id}".to_sym
+end
+
+def getFusionSpecies(body, head)
+  body_num = getDexNumberForSpecies(body)
+  head_num = getDexNumberForSpecies(head)
+  id = body_num * Settings::NB_POKEMON + head_num
+  return GameData::Species.get(id)
+end
+
+def getDexNumberForSpecies(species)
+  return species if species.is_a?(Integer)
+  if species.is_a?(Symbol)
+    dexNum = GameData::Species.get(species).id_number
+  elsif species.is_a?(Pokemon)
+    dexNum = GameData::Species.get(species.species).id_number
+  elsif species.is_a?(GameData::Species)
+    return species.id_number
+  else
+    dexNum = species
+  end
+  return dexNum
+end
+
+def getFusedPokemonIdFromDexNum(body_dex, head_dex)
+  return ("B" + body_dex.to_s + "H" + head_dex.to_s).to_sym
+end
+
+def getFusedPokemonIdFromSymbols(body_dex, head_dex)
+  bodyDexNum = GameData::Species.get(body_dex).id_number
+  headDexNum = GameData::Species.get(head_dex).id_number
+  return getFusedPokemonIdFromDexNum(bodyDexNum, headDexNum)
+end
+
+def generateFusionIcon(dexNum, path)
+  begin
+    IO.copy_stream(dexNum, path)
+    return true
+  rescue
+    return false
+  end
+end
+
+def ensureFusionIconExists
+  directory_name = "Graphics/Pokemon/FusionIcons"
+  Dir.mkdir(directory_name) unless File.exists?(directory_name)
+end
+
+def addNewTripleFusion(pokemon1, pokemon2, pokemon3, level = 1)
+  return if !pokemon1
+  return if !pokemon2
+  return if !pokemon3
+
+  if pbBoxesFull?
+    pbMessage(_INTL("There's no more room for Pokémon!\1"))
+    pbMessage(_INTL("The Pokémon Boxes are full and can't accept any more!"))
+    return false
+  end
+
+  pokemon = TripleFusion.new(pokemon1, pokemon2, pokemon3, level)
+  pokemon.calc_stats
+  pbMessage(_INTL("{1} obtained {2}!\\me[Pkmn get]\\wtnp[80]\1", $Trainer.name, pokemon.name))
+  pbNicknameAndStore(pokemon)
+  #$Trainer.pokedex.register(pokemon)
+  return true
+end
+
+def get_triple_fusion_components(species_id)
+  dex_num = GameData::Species.get(species_id).id_number
+  case dex_num
+  when Settings::ZAPMOLCUNO_NB
+    return [144,145,146]
+  when Settings::ZAPMOLCUNO_NB + 1
+    return [144,145,146]
+  when Settings::ZAPMOLCUNO_NB + 2
+    return [243,244,245]
+  when Settings::ZAPMOLCUNO_NB + 3
+    return [340,341,342]
+  when Settings::ZAPMOLCUNO_NB + 4
+    return [343,344,345]
+  when Settings::ZAPMOLCUNO_NB + 5
+    return [349,350,351]
+  when Settings::ZAPMOLCUNO_NB + 6
+    return [151,251,381]
+  when Settings::ZAPMOLCUNO_NB + 11
+    return [150,348,380]
+    #starters
+  when Settings::ZAPMOLCUNO_NB + 7
+    return [3,6,9]
+  when Settings::ZAPMOLCUNO_NB + 8
+    return [154,157,160]
+  when Settings::ZAPMOLCUNO_NB + 9
+    return [278,281,284]
+  when Settings::ZAPMOLCUNO_NB + 10
+    return [318,321,324]
+    #starters prevos
+  when Settings::ZAPMOLCUNO_NB + 12
+    return [1,4,7]
+  when Settings::ZAPMOLCUNO_NB + 13
+    return [2,5,8]
+  when Settings::ZAPMOLCUNO_NB + 14
+    return [152,155,158]
+  when Settings::ZAPMOLCUNO_NB + 15
+    return [153,156,159]
+  when Settings::ZAPMOLCUNO_NB + 16
+    return [276,279,282]
+  when Settings::ZAPMOLCUNO_NB + 17
+    return [277,280,283]
+  when Settings::ZAPMOLCUNO_NB + 18
+    return [316,319,322]
+  when Settings::ZAPMOLCUNO_NB + 19
+    return [317,320,323]
+  when Settings::ZAPMOLCUNO_NB + 20 #birdBoss Left
+    return []
+  when Settings::ZAPMOLCUNO_NB + 21 #birdBoss middle
+    return [144,145,146]
+  when Settings::ZAPMOLCUNO_NB + 22 #birdBoss right
+    return []
+  when Settings::ZAPMOLCUNO_NB + 23 #sinnohboss left
+    return []
+  when Settings::ZAPMOLCUNO_NB + 24 #sinnohboss middle
+    return [343,344,345]
+  when Settings::ZAPMOLCUNO_NB + 25 #sinnohboss right
+    return []
+  when Settings::ZAPMOLCUNO_NB + 25 #cardboard
+    return []
+  when Settings::ZAPMOLCUNO_NB + 26 #cardboard
+    return []
+  when Settings::ZAPMOLCUNO_NB + 27 #Triple regi
+    return [447,448,449]
+    #Triple Kalos 1
+  when Settings::ZAPMOLCUNO_NB + 28
+    return [479,482,485]
+  when Settings::ZAPMOLCUNO_NB + 29
+    return [480,483,486]
+  when Settings::ZAPMOLCUNO_NB + 30
+    return [481,484,487]
+  else
+    return [000]
+  end
+
+end
+