Migration - more progress

Data/Scripts/001_Settings.rb

@@ -203,41 +203,41 @@ module Settings
   #   * :areas - A hash of map IDs that determine where this Pokémon roams. Used
   #              instead of ROAMING_AREAS above. Optional.
   ROAMING_SPECIES = [
-    {
+    # {
-      :species        => :LATIAS,
+    #   :species        => :LATIAS,
-      :level          => 30,
+    #   :level          => 30,
-      :icon           => "pin_latias",
+    #   :icon           => "pin_latias",
-      :game_switch    => 53,
+    #   :game_switch    => 53,
-      :encounter_type => :all,
+    #   :encounter_type => :all,
-      :bgm            => "Battle roaming"
+    #   :bgm            => "Battle roaming"
-    },
+    # },
-    {
+    # {
-      :species        => :LATIOS,
+    #   :species        => :LATIOS,
-      :level          => 30,
+    #   :level          => 30,
-      :icon           => "pin_latios",
+    #   :icon           => "pin_latios",
-      :game_switch    => 53,
+    #   :game_switch    => 53,
-      :encounter_type => :all,
+    #   :encounter_type => :all,
-      :bgm            => "Battle roaming"
+    #   :bgm            => "Battle roaming"
-    },
+    # },
-    {
+    # {
-      :species        => :KYOGRE,
+    #   :species        => :KYOGRE,
-      :level          => 40,
+    #   :level          => 40,
-      :game_switch    => 54,
+    #   :game_switch    => 54,
-      :encounter_type => :surfing,
+    #   :encounter_type => :surfing,
-      :areas          => {
+    #   :areas          => {
-        2  => [   21, 31    ],
+    #     2  => [   21, 31    ],
-        21 => [2,     31, 69],
+    #     21 => [2,     31, 69],
-        31 => [2, 21,     69],
+    #     31 => [2, 21,     69],
-        69 => [   21, 31    ]
+    #     69 => [   21, 31    ]
-      }
+    #   }
-    },
+    # },
-    {
+    # {
-      :species        => :ENTEI,
+    #   :species        => :ENTEI,
-      :level          => 40,
+    #   :level          => 40,
-      :icon           => "pin_entei",
+    #   :icon           => "pin_entei",
-      :game_switch    => 55,
+    #   :game_switch    => 55,
-      :encounter_type => :land
+    #   :encounter_type => :land
-    }
+    # }
   ]
 
   #-----------------------------------------------------------------------------

Data/Scripts/001_Technical/001_Debugging/002_DebugConsole.rb

@@ -45,8 +45,11 @@ module Kernel
   end
 
   def echoln(string)
-    echo string
+    caller_info = caller(1..1).first
-    echo "\n"
+    file, line, method = caller_info.split(":")
+    echo "#{file}, #{line}:\t"
+    echo(string)
+    echo("\r\n")
   end
 end
 

Data/Scripts/003_Game processing/001_StartGame.rb

@@ -35,6 +35,8 @@ module Game
   # Called when starting a new game. Initializes global variables
   # and transfers the player into the map scene.
   def start_new
+    # Essentials 21 renamed the global variable $Trainer
+    # It's still used everywhere in events, global events so this makes things simpler
     if $game_map&.events
       $game_map.events.each_value { |event| event.clear_starting }
     end
@@ -58,6 +60,11 @@ module Game
   # @param save_data [Hash] hash containing the save data
   # @raise [SaveData::InvalidValueError] if an invalid value is being loaded
   def load(save_data)
+    # Essentials 21 renamed the global variable $Trainer
+    # It's still used everywhere in events, global events so this makes things simpler
+    $Trainer = $player
+
+
     validate save_data => Hash
     SaveData.load_all_values(save_data)
     $game_temp.last_uptime_refreshed_play_time = System.uptime

Data/Scripts/003_Game processing/004_Interpreter_Commands.rb

@@ -51,7 +51,7 @@ class Interpreter
     when 134 then return command_134   # Change Save Access
     when 135 then return command_135   # Change Menu Access
     when 136 then return command_136   # Change Encounter
-    when 201 then return command_201   # Transfer Player
+    when 201 then return command_201   # Transfer Overrides
     when 202 then return command_202   # Set Event Location
     when 203 then return command_203   # Scroll Map
     when 204 then return command_204   # Change Map Settings
@@ -731,7 +731,7 @@ class Interpreter
   end
 
   #-----------------------------------------------------------------------------
-  # * Transfer Player
+  # * Transfer Overrides
   #-----------------------------------------------------------------------------
   def command_201
     return true if $game_temp.in_battle

Data/Scripts/004_Game classes/001_Switches and Variables/001_Game_Temp.rb

@@ -28,7 +28,7 @@ class Game_Temp
   attr_accessor :force_single_battle      # force next battle to be 1v1 flag
   attr_accessor :waiting_trainer          # [trainer, event ID] or nil
   attr_accessor :last_battle_record       # record of actions in last recorded battle
-  # Player transfers
+  # Overrides transfers
   attr_accessor :player_transferring      # player place movement flag
   attr_accessor :player_new_map_id        # player destination: map ID
   attr_accessor :player_new_x             # player destination: x-coordinate
@@ -67,7 +67,7 @@ class Game_Temp
     # Battle
     @battleback_name        = ""
     @force_single_battle    = false
-    # Player transfers
+    # Overrides transfers
     @player_transferring    = false
     @player_new_map_id      = 0
     @player_new_x           = 0

Data/Scripts/004_Game classes/008_Game_Player.rb

@@ -118,7 +118,7 @@ class Game_Player < Game_Character
 
   def bump_into_object
     return if @bump_time_start && (System.uptime - @bump_time_start < @move_time)
-    pbSEPlay("Player bump") if !@move_route_forcing
+    pbSEPlay("Overrides bump") if !@move_route_forcing
     $stats.bump_count += 1
     @bump_time_start = System.uptime
   end
@@ -143,7 +143,7 @@ class Game_Player < Game_Character
         # Jump over ledges
         if pbFacingTerrainTag.ledge
           if jumpForward(2)
-            pbSEPlay("Player jump")
+            pbSEPlay("Overrides jump")
             increase_steps
           end
           return
@@ -389,7 +389,7 @@ class Game_Player < Game_Character
     x_offset = (dir == 4) ? -1 : (dir == 6) ? 1 : 0
     y_offset = (dir == 8) ? -1 : (dir == 2) ? 1 : 0
     $game_map.events.each_value do |event|
-      next if ![1, 2].include?(event.trigger)   # Player touch, event touch
+      next if ![1, 2].include?(event.trigger)   # Overrides touch, event touch
       # If event coordinates and triggers are consistent
       next if !event.at_coordinate?(@x + x_offset, @y + y_offset)
       if event.name[/(?:sight|trainer)\((\d+)\)/i]

Data/Scripts/005_Sprites/003_Sprite_Character.rb

@@ -111,6 +111,7 @@ class Sprite_Character < RPG::Sprite
     @charbitmap = nil
     @bushbitmap&.dispose
     @bushbitmap = nil
+
     if @tile_id >= 384
       @charbitmap = pbGetTileBitmap(@character.map.tileset_name, @tile_id,
                                     @character_hue, @character.width, @character.height)

Data/Scripts/009_Scenes/001_Transitions.rb

@@ -1466,7 +1466,7 @@ module Transitions
       @rear_black_sprite.zoom_y  = 2.0
       @rear_black_sprite.opacity = 192
       @rear_black_sprite.visible = false
-      # Player's bar sprite
+      # Overrides's bar sprite
       @player_bar_x = -BAR_X_INDENT
       @player_bar_start_x = @player_bar_x - (@bar_bitmap.width / 2)
       @player_bar_y = BAR_Y_INDENT
@@ -1483,7 +1483,7 @@ module Transitions
       @foe_bar_sprite.src_rect.x = @bar_bitmap.width / 2
       @foe_bar_sprite.src_rect.width = @bar_bitmap.width / 2
       @foe_bar_sprite.src_rect.height = BAR_HEIGHT
-      # Player sprite
+      # Overrides sprite
       @player_sprite = new_sprite(@player_bar_sprite.x + TRAINER_X_OFFSET,
                                   @player_bar_sprite.y + BAR_HEIGHT - TRAINER_Y_OFFSET,
                                   @player_bitmap, @player_bitmap.width / 2, @player_bitmap.height)

Data/Scripts/010_Data/002_PBS data/010_SpeciesMetrics.rb

@@ -75,7 +75,7 @@ module GameData
     def apply_metrics_to_sprite(sprite, index, shadow = false)
       if shadow
         sprite.x += @shadow_x * 2 if (index & 1) == 1   # Foe Pokémon
-      elsif (index & 1) == 0   # Player's Pokémon
+      elsif (index & 1) == 0   # Overrides's Pokémon
         sprite.x += @back_sprite[0] * 2
         sprite.y += @back_sprite[1] * 2
       else                     # Foe Pokémon

Data/Scripts/010_Data/002_PBS data/014_TrainerType.rb

@@ -44,7 +44,7 @@ module GameData
         ["ID",         ReadOnlyProperty,               _INTL("ID of this Trainer Type (used as a symbol like :XXX).")],
         ["Name",       StringProperty,                 _INTL("Name of this Trainer Type as displayed by the game.")],
         ["Gender",     EnumProperty.new(gender_array), _INTL("Gender of this Trainer Type.")],
-        ["BaseMoney",  LimitProperty.new(9999),        _INTL("Player earns this much money times the highest level among the trainer's Pokémon.")],
+        ["BaseMoney",  LimitProperty.new(9999),        _INTL("Overrides earns this much money times the highest level among the trainer's Pokémon.")],
         ["SkillLevel", LimitProperty2.new(9999),       _INTL("Skill level of this Trainer Type.")],
         ["PokeBall",   ItemProperty,                   _INTL("Default Poké Ball that all Pokémon of trainers of this Trainer Type are in.")],
         ["Flags",      StringListProperty,             _INTL("Words/phrases that can be used to make trainers of this type behave differently to others.")],

Data/Scripts/011_Battle/001_Battle/001_Battle.rb

@@ -1,9 +1,9 @@
 #===============================================================================
 # Results of battle (see module Outcome):
 #    0 - Undecided or aborted
-#    1 - Player won
+#    1 - Overrides won
-#    2 - Player lost
+#    2 - Overrides lost
-#    3 - Player or wild Pokémon ran from battle, or player forfeited the match
+#    3 - Overrides or wild Pokémon ran from battle, or player forfeited the match
 #    4 - Wild Pokémon was caught
 #    5 - Draw
 # Possible actions a battler can take in a round:
@@ -43,7 +43,7 @@ class Battle
     UNDECIDED = 0
     WIN       = 1
     LOSE      = 2   # Also used when player forfeits a trainer battle
-    FLEE      = 3   # Player or wild Pokémon ran away, count as a win
+    FLEE      = 3   # Overrides or wild Pokémon ran away, count as a win
     CATCH     = 4   # Counts as a win
     DRAW      = 5
 
@@ -75,7 +75,7 @@ class Battle
   attr_accessor :environment      # Battle surroundings (for mechanics purposes)
   attr_reader   :turnCount
   attr_accessor :decision         # Outcome of battle
-  attr_reader   :player           # Player trainer (or array of trainers)
+  attr_reader   :player           # Overrides trainer (or array of trainers)
   attr_reader   :opponent         # Opponent trainer (or array of trainers)
   attr_accessor :items            # Items held by opponents
   attr_accessor :ally_items       # Items held by allies
@@ -127,7 +127,7 @@ class Battle
     @scene             = scene
     @peer              = Peer.new
     @field             = ActiveField.new    # Whole field (gravity/rooms)
-    @sides             = [ActiveSide.new,   # Player's side
+    @sides             = [ActiveSide.new,   # Overrides's side
                           ActiveSide.new]   # Foe's side
     @positions         = []                 # Battler positions
     @battlers          = []
@@ -141,7 +141,7 @@ class Battle
     @caughtPokemon     = []
     player   = [player] if !player.nil? && !player.is_a?(Array)
     opponent = [opponent] if !opponent.nil? && !opponent.is_a?(Array)
-    @player            = player     # Array of Player/NPCTrainer objects, or nil
+    @player            = player     # Array of Overrides/NPCTrainer objects, or nil
     @opponent          = opponent   # Array of NPCTrainer objects, or nil
     @items             = nil
     @ally_items        = nil        # Array of items held by ally. This is just used for Mega Evolution for now.
@@ -288,7 +288,7 @@ class Battle
     idxTrainer = pbGetOwnerIndexFromBattlerIndex(idxBattler)
     return @opponent[idxTrainer].full_name if opposes?(idxBattler)   # Opponent
     return @player[idxTrainer].full_name if idxTrainer > 0   # Ally trainer
-    return @player[idxTrainer].name   # Player
+    return @player[idxTrainer].name   # Overrides
   end
 
   def pbGetOwnerItems(idxBattler)

Data/Scripts/011_Battle/001_Battle/002_Battle_StartAndEnd.rb

@@ -65,7 +65,7 @@ class Battle
           if !requireds[i] || requireds[i] == 0
             case side
             when 0
-              raise _INTL("Player-side trainer {1} has no battler position for their Pokémon to go (trying {2}v{3} battle)",
+              raise _INTL("Overrides-side trainer {1} has no battler position for their Pokémon to go (trying {2}v{3} battle)",
                           i + 1, @sideSizes[0], @sideSizes[1])
             when 1
               raise _INTL("Opposing trainer {1} has no battler position for their Pokémon to go (trying {2}v{3} battle)",
@@ -74,7 +74,7 @@ class Battle
           end
           next if requireds[i] <= sideCounts[i]   # Trainer has enough Pokémon to fill their positions
           if requireds[i] == 1
-            raise _INTL("Player-side trainer {1} has no able Pokémon", i + 1) if side == 0
+            raise _INTL("Overrides-side trainer {1} has no able Pokémon", i + 1) if side == 0
             raise _INTL("Opposing trainer {1} has no able Pokémon", i + 1) if side == 1
           end
           # Not enough Pokémon, try lowering the number of battler positions
@@ -393,7 +393,7 @@ class Battle
   def pbLoseMoney
     return if !@internalBattle || !@moneyGain
     return if $game_switches[Settings::NO_MONEY_LOSS]
-    maxLevel = pbMaxLevelInTeam(0, 0)   # Player's Pokémon only, not partner's
+    maxLevel = pbMaxLevelInTeam(0, 0)   # Overrides's Pokémon only, not partner's
     multiplier = [8, 16, 24, 36, 48, 64, 80, 100, 120]
     idxMultiplier = [pbPlayer.badge_count, multiplier.length - 1].min
     tMoney = maxLevel * multiplier[idxMultiplier]
@@ -417,7 +417,7 @@ class Battle
     case oldDecision
     when Outcome::WIN
       PBDebug.log("")
-      PBDebug.log_header("===== Player won =====")
+      PBDebug.log_header("===== Overrides won =====")
       PBDebug.log("")
       if trainerBattle?
         @scene.pbTrainerBattleSuccess
@@ -445,8 +445,8 @@ class Battle
       @scene.pbShowOpponent(@opponent.length) if trainerBattle? && @caughtPokemon.length > 0
     when Outcome::LOSE, Outcome::DRAW
       PBDebug.log("")
-      PBDebug.log_header("===== Player lost =====") if @decision == Outcome::LOSE
+      PBDebug.log_header("===== Overrides lost =====") if @decision == Outcome::LOSE
-      PBDebug.log_header("===== Player drew with opponent =====") if @decision == Outcome::DRAW
+      PBDebug.log_header("===== Overrides drew with opponent =====") if @decision == Outcome::DRAW
       PBDebug.log("")
       if @internalBattle
         if pbPlayerBattlerCount == 0

Data/Scripts/011_Battle/001_Battle/005_Battle_ActionSwitching.rb

@@ -186,11 +186,11 @@ class Battle
           end
           pbRecallAndReplace(idxBattler, idxPartyNew)
           switched.push(idxBattler)
-        elsif trainerBattle?   # Player switches in in a trainer battle
+        elsif trainerBattle?   # Overrides switches in in a trainer battle
           idxPlayerPartyNew = pbGetReplacementPokemonIndex(idxBattler)   # Owner chooses
           pbRecallAndReplace(idxBattler, idxPlayerPartyNew)
           switched.push(idxBattler)
-        else   # Player's Pokémon has fainted in a wild battle
+        else   # Overrides's Pokémon has fainted in a wild battle
           switch = false
           if pbDisplayConfirm(_INTL("Use next Pokémon?"))
             switch = true

Data/Scripts/011_Battle/001_Battle/009_Battle_CommandPhase.rb

@@ -194,7 +194,7 @@ class Battle
       end
     end
     # Choose actions for the round (player first, then AI)
-    pbCommandPhaseLoop(true)    # Player chooses their actions
+    pbCommandPhaseLoop(true)    # Overrides chooses their actions
     if decided?   # Battle ended, stop choosing actions
       @command_phase = false
       return
@@ -223,7 +223,7 @@ class Battle
         @battleAI.pbDefaultChooseEnemyCommand(idxBattler)
         next
       end
-      # Player chooses an action
+      # Overrides chooses an action
       actioned.push(idxBattler)
       commandsEnd = false   # Whether to cancel choosing all other actions this round
       loop do

Data/Scripts/011_Battle/004_Scene/002_Scene_Initialize.rb

@@ -55,7 +55,7 @@ class Battle::Scene
       partyBar = pbAddSprite("partyBar_#{side}", 0, 0,
                              "Graphics/UI/Battle/overlay_lineup", @viewport)
       partyBar.z       = 10120
-      partyBar.mirror  = true if side == 0   # Player's lineup bar only
+      partyBar.mirror  = true if side == 0   # Overrides's lineup bar only
       partyBar.visible = false
       NUM_BALLS.times do |i|
         ball = pbAddSprite("partyBall_#{side}_#{i}", 0, 0, nil, @viewport)
@@ -67,7 +67,7 @@ class Battle::Scene
         @sprites["abilityBar_#{side}"] = AbilitySplashBar.new(side, @viewport)
       end
     end
-    # Player's and partner trainer's back sprite
+    # Overrides's and partner trainer's back sprite
     @battle.player.each_with_index do |p, i|
       pbCreateTrainerBackSprite(i, p.trainer_type, @battle.player.length)
     end
@@ -155,7 +155,7 @@ class Battle::Scene
   end
 
   def pbCreateTrainerBackSprite(idxTrainer, trainerType, numTrainers = 1)
-    if idxTrainer == 0   # Player's sprite
+    if idxTrainer == 0   # Overrides's sprite
       trainerFile = GameData::TrainerType.player_back_sprite_filename(trainerType)
     else   # Partner trainer's sprite
       trainerFile = GameData::TrainerType.back_sprite_filename(trainerType)

Data/Scripts/011_Battle/004_Scene/008_Battle_Scene_Animations.rb

@@ -17,7 +17,7 @@ class Battle::Scene::Animation::Intro < Battle::Scene::Animation
     # Bases
     makeSlideSprite("base_0", 1, appearTime, PictureOrigin::BOTTOM)
     makeSlideSprite("base_1", -1, appearTime, PictureOrigin::CENTER)
-    # Player sprite, partner trainer sprite
+    # Overrides sprite, partner trainer sprite
     @battle.player.each_with_index do |_p, i|
       makeSlideSprite("player_#{i + 1}", 1, appearTime, PictureOrigin::BOTTOM)
     end
@@ -96,7 +96,7 @@ class Battle::Scene::Animation::LineupAppear < Battle::Scene::Animation
   def resetGraphics(sprites)
     bar = sprites["partyBar_#{@side}"]
     case @side
-    when 0   # Player's lineup
+    when 0   # Overrides's lineup
       barX  = Graphics.width - BAR_DISPLAY_WIDTH
       barY  = Graphics.height - 142
       ballX = barX + 44
@@ -124,7 +124,7 @@ class Battle::Scene::Animation::LineupAppear < Battle::Scene::Animation
   end
 
   def getPartyIndexFromBallIndex(idxBall)
-    # Player's lineup (just show balls for player's party)
+    # Overrides's lineup (just show balls for player's party)
     if @side == 0
       return idxBall if @partyStarts.length < 2
       return idxBall if idxBall < @partyStarts[1]

Data/Scripts/011_Battle/008_Other battle types/001_SafariBattle.rb

@@ -201,7 +201,7 @@ class Battle::Scene::Animation::ThrowRock < Battle::Scene::Animation
     # Show anger appearing
     delay = ball.totalDuration + 5
     2.times do
-      anger.setSE(delay, "Player jump")
+      anger.setSE(delay, "Overrides jump")
       anger.setVisible(delay, true)
       anger.moveZoom(delay, 3, 130)
       anger.moveZoom(delay + 3, 3, 100)

Data/Scripts/011_Battle/008_Other battle types/005_RecordedBattle.rb

@@ -271,7 +271,7 @@ module RecordedBattle::PlaybackHelper
     return nil if !trainer
     ret = []
     trainer.each do |tr|
-      if tr.length == 4   # Player
+      if tr.length == 4   # Overrides
         t = Player.new(tr[1], tr[0])
         t.badges = tr[3]
       else   # NPCTrainer

Data/Scripts/012_Overworld/001_Overworld.rb

@@ -566,7 +566,7 @@ def pbWait(duration)
 end
 
 #===============================================================================
-# Player/event movement in the field.
+# Overrides/event movement in the field.
 #===============================================================================
 def pbSlideOnIce
   if !$DEBUG || !Input.press?(Input::CTRL)

Data/Scripts/012_Overworld/002_Battle triggering/001_Overworld_BattleStarting.rb

@@ -324,9 +324,9 @@ module BattleCreationHelperMethods
 
   # Save the result of the battle in a Game Variable (1 by default)
   #    0 - Undecided or aborted
-  #    1 - Player won
+  #    1 - Overrides won
-  #    2 - Player lost
+  #    2 - Overrides lost
-  #    3 - Player or wild Pokémon ran from battle, or player forfeited the match
+  #    3 - Overrides or wild Pokémon ran from battle, or player forfeited the match
   #    4 - Wild Pokémon was caught
   #    5 - Draw
   def set_outcome(outcome, outcome_variable = 1, trainer_battle = false)

Data/Scripts/012_Overworld/002_Overworld_Metadata.rb

@@ -11,7 +11,7 @@ class PokemonGlobalMetadata
   attr_accessor :descending_waterfall
   attr_accessor :ascending_waterfall
   attr_accessor :fishing
-  # Player data
+  # Overrides data
   attr_accessor :startTime
   attr_accessor :stepcount
   attr_accessor :pcItemStorage
@@ -64,7 +64,7 @@ class PokemonGlobalMetadata
     @descending_waterfall = false
     @ascending_waterfall  = false
     @fishing              = false
-    # Player data
+    # Overrides data
     @startTime            = Time.now
     @stepcount            = 0
     @pcItemStorage        = nil

Data/Scripts/016_UI/025_UI_TextEntry.rb

@@ -116,7 +116,7 @@ class PokemonEntryScene
     @sprites["helpwindow"].shadowColor = Color.new(168, 184, 184)
     addBackgroundPlane(@sprites, "background", "Naming/bg_2", @viewport)
     case subject
-    when 1   # Player
+    when 1   # Overrides
       meta = GameData::PlayerMetadata.get($player.character_ID)
       if meta
         @sprites["shadow"] = IconSprite.new(0, 0, @viewport)
@@ -397,7 +397,7 @@ class PokemonEntryScene2
     @sprites["bg"] = IconSprite.new(0, 0, @viewport)
     @sprites["bg"].setBitmap("Graphics/UI/Naming/bg")
     case subject
-    when 1   # Player
+    when 1   # Overrides
       meta = GameData::PlayerMetadata.get($player.character_ID)
       if meta
         @sprites["shadow"] = IconSprite.new(0, 0, @viewport)

Data/Scripts/016b_UI redesign/009_UI_TownMap.rb

@@ -115,7 +115,7 @@ class UI::TownMapVisuals < UI::BaseVisuals
         create_pin(key, @pins_pos[key][0], @pins_pos[key][1], graphics_folder + roamer[:icon], 80)
       end
     end
-    # Player's head showing their current location
+    # Overrides's head showing their current location
     if !@pins_pos[:player]
       create_pin(:player, 0, 0, GameData::TrainerType.player_map_icon_filename($player.trainer_type), 100)
     end
@@ -403,7 +403,7 @@ class UI::TownMapVisuals < UI::BaseVisuals
 
   def update_pin_positions_while_zooming
     @sprites[:cursor].x, @sprites[:cursor].y = point_to_screen(@cursor_pos[:x], @cursor_pos[:y])
-    # Player, roamers, markings
+    # Overrides, roamers, markings
     @pins_pos.each_pair do |key, pos|
       @sprites[key].x, @sprites[key].y = point_to_screen(*pos)
     end

Data/Scripts/016b_UI redesign/012_UI_TrainerCard.rb

@@ -15,7 +15,7 @@ class UI::TrainerCardVisuals < UI::BaseVisuals
   def initialize_sprites
     # Trainer card
     add_icon_sprite(:card, 0, 0, graphics_folder + gendered_filename(_INTL("trainer_card")))
-    # Player sprite (coordinates are the bottom middle of the sprite)
+    # Overrides sprite (coordinates are the bottom middle of the sprite)
     add_icon_sprite(:player, 400, 240, GameData::TrainerType.player_front_sprite_filename($player.trainer_type))
     if !@sprites[:player].bitmap
       raise _INTL("No trainer front sprite exists for the player character, expected a file at {1}.",

Data/Scripts/016b_UI redesign/013_UI_Load.rb

@@ -146,7 +146,7 @@ class UI::LoadContinuePanel < UI::LoadPanel
     filename = pbGetPlayerCharset(meta.walk_charset, @save_data[:player], true)
     @sprites[:player] = TrainerWalkingCharSprite.new(filename, @viewport)
     if !@sprites[:player].bitmap
-      raise _INTL("Player character {1}'s walking charset was not found (filename: \"{2}\").",
+      raise _INTL("Overrides character {1}'s walking charset was not found (filename: \"{2}\").",
                   @save_data[:player].character_ID, filename)
     end
     @sprites[:player].x = 48 - (@sprites[:player].bitmap.width / 8)
@@ -223,7 +223,7 @@ class UI::LoadContinuePanel < UI::LoadPanel
     filename = pbGetPlayerCharset(meta.walk_charset, @save_data[:player], true)
     @sprites[:player].charset = filename
     if !@sprites[:player].bitmap
-      raise _INTL("Player character {1}'s walking charset was not found (filename: \"{2}\").",
+      raise _INTL("Overrides character {1}'s walking charset was not found (filename: \"{2}\").",
                   @save_data[:player].character_ID, filename)
     end
   end
@@ -255,7 +255,7 @@ class UI::LoadContinuePanel < UI::LoadPanel
     elsif @save_data[:player].female?
       gender_theme = :female
     end
-    # Player's name
+    # Overrides's name
     draw_text(@save_data[:player].name, 78, 66, theme: gender_theme)
     # Location
     map_id = @save_data[:map_factory].map.map_id

Data/Scripts/016b_UI redesign/014_UI_Save.rb

@@ -48,7 +48,7 @@ class UI::SavePanel < UI::SpriteContainer
     filename = pbGetPlayerCharset(meta.walk_charset, @save_data[:player], true)
     @sprites[:player] = TrainerWalkingCharSprite.new(filename, @viewport)
     if !@sprites[:player].bitmap
-      raise _INTL("Player character {1}'s walking charset was not found (filename: \"{2}\").",
+      raise _INTL("Overrides character {1}'s walking charset was not found (filename: \"{2}\").",
                   @save_data[:player].character_ID, filename)
     end
     @sprites[:player].x = 44 - (@sprites[:player].bitmap.width / 8)
@@ -130,7 +130,7 @@ class UI::SavePanel < UI::SpriteContainer
     filename = pbGetPlayerCharset(meta.walk_charset, @save_data[:player], true)
     @sprites[:player].charset = filename
     if !@sprites[:player].bitmap
-      raise _INTL("Player character {1}'s walking charset was not found (filename: \"{2}\").",
+      raise _INTL("Overrides character {1}'s walking charset was not found (filename: \"{2}\").",
                   @save_data[:player].character_ID, filename)
     end
   end
@@ -165,7 +165,7 @@ class UI::SavePanel < UI::SpriteContainer
     elsif @save_data[:player].female?
       gender_theme = :female
     end
-    # Player's name
+    # Overrides's name
     draw_text(@save_data[:player].name, 78, 30, theme: gender_theme)
     # Location
     map_id = @save_data[:map_factory].map.map_id

Data/Scripts/016c_UI_old/013_UI_old_Load.rb

@@ -171,7 +171,7 @@ class PokemonLoad_Scene
       filename = pbGetPlayerCharset(meta.walk_charset, trainer, true)
       @sprites["player"] = TrainerWalkingCharSprite.new(filename, @viewport)
       if !@sprites["player"].bitmap
-        raise _INTL("Player character {1}'s walking charset was not found (filename: \"{2}\").", trainer.character_ID, filename)
+        raise _INTL("Overrides character {1}'s walking charset was not found (filename: \"{2}\").", trainer.character_ID, filename)
       end
       charwidth  = @sprites["player"].bitmap.width
       charheight = @sprites["player"].bitmap.height

Data/Scripts/016c_UI_old/014_UI_old_Save.rb

@@ -29,7 +29,7 @@ class PokemonSave_Scene
     end
     location_tag = shadowc3tag(LOCATION_TEXT_BASE, LOCATION_TEXT_SHADOW)
     loctext = location_tag + "<ac>" + mapname + "</ac></c3>"
-    loctext += _INTL("Player") + "<r>" + text_tag + $player.name + "</c3><br>"
+    loctext += _INTL("Overrides") + "<r>" + text_tag + $player.name + "</c3><br>"
     if hour > 0
       loctext += _INTL("Time") + "<r>" + text_tag + _INTL("{1}h {2}m", hour, min) + "</c3><br>"
     else

Data/Scripts/017_Minigames/001_Minigame_Duel.rb

@@ -249,7 +249,7 @@ class PokemonDuel
         pbMoveRoute(event, [PBMoveRoute::FORWARD])
         pbMoveRoute($game_player, [PBMoveRoute::FORWARD])
         @hp[0] -= action    # Enemy action
-        @hp[1] -= command   # Player command
+        @hp[1] -= command   # Overrides command
         pbMessage(_INTL("You hit each other!"))
       elsif action == 2 && command == 0
         pbMoveRoute(event,

Data/Scripts/017_Minigames/002_Minigame_TripleTriad.rb

@@ -107,7 +107,7 @@ class TriadCard
     bitmap = Bitmap.new(80, 96)
     if owner == 2   # Opponent
       cardbitmap = AnimatedBitmap.new("Graphics/UI/Triple Triad/card_opponent")
-    else            # Player
+    else            # Overrides
       cardbitmap = AnimatedBitmap.new("Graphics/UI/Triple Triad/card_player")
     end
     typebitmap = AnimatedBitmap.new(_INTL("Graphics/UI/types"))
@@ -811,7 +811,7 @@ class TriadScreen
       triadCard = nil
       cardIndex = 0
       if playerTurn
-        # Player's turn
+        # Overrides's turn
         until position
           cardIndex = @scene.pbPlayerChooseCard(cards.length)
           triadCard = TriadCard.new(cards[cardIndex])

Data/Scripts/018_Alternate battle modes/001_SafariZone.rb

@@ -146,8 +146,8 @@ def pbSafariBattle(pkmn, level = 1)
   end
   # Save the result of the battle in Game Variable 1
   #    0 - Undecided or aborted
-  #    2 - Player ran out of Safari Balls
+  #    2 - Overrides ran out of Safari Balls
-  #    3 - Player or wild Pokémon ran from battle, or player forfeited the match
+  #    3 - Overrides or wild Pokémon ran from battle, or player forfeited the match
   #    4 - Wild Pokémon was caught
   if outcome == Battle::Outcome::CATCH
     $stats.safari_pokemon_caught += 1

Data/Scripts/019_Utilities/001_Utilities.rb

@@ -222,7 +222,7 @@ def pbNoticePlayer(event, always_show_exclaim = false)
 end
 
 #===============================================================================
-# Player-related utilities, random name generator.
+# Overrides-related utilities, random name generator.
 #===============================================================================
 # Unused
 def pbGetPlayerGraphic

Data/Scripts/019_Utilities/003_Utilities_BattleAudio.rb

@@ -77,7 +77,7 @@ def pbPlayTrainerIntroBGM(trainer_type)
   pbBGMPlay(bgm)
 end
 
-# Can be a Player, NPCTrainer or an array of them.
+# Can be a Overrides, NPCTrainer or an array of them.
 def pbGetTrainerBattleBGM(trainer)
   return $PokemonGlobal.nextBattleBGM.clone if $PokemonGlobal.nextBattleBGM
   ret = nil
@@ -120,7 +120,7 @@ def pbGetTrainerBattleBGMFromType(trainertype)
   return ret
 end
 
-# Can be a Player, NPCTrainer or an array of them.
+# Can be a Overrides, NPCTrainer or an array of them.
 def pbGetTrainerVictoryBGM(trainer)
   if $PokemonGlobal.nextBattleVictoryBGM
     return $PokemonGlobal.nextBattleVictoryBGM.clone

Data/Scripts/020_Debug/001_Editor screens/001_EditorScreens.rb

@@ -753,7 +753,7 @@ def pbEditPlayerMetadata(player_id = 1)
     val = property[1].defaultValue if val.nil? && property[1].respond_to?(:defaultValue)
     data.push(val)
   end
-  if pbPropertyList(_INTL("Player {1}", metadata.id), data, properties, true)
+  if pbPropertyList(_INTL("Overrides {1}", metadata.id), data, properties, true)
     # Construct player metadata hash
     schema = GameData::PlayerMetadata.schema
     metadata_hash = {}

Data/Scripts/020_Debug/001_Editor screens/004_EditorScreens_SpritePositioning.rb

@@ -21,7 +21,7 @@ def pbAutoPositionAll
     metrics = GameData::SpeciesMetrics.get_species_form(sp.species, sp.form)
     bitmap1 = GameData::Species.sprite_bitmap(sp.species, sp.form, nil, nil, nil, true)
     bitmap2 = GameData::Species.sprite_bitmap(sp.species, sp.form)
-    if bitmap1&.bitmap   # Player's y
+    if bitmap1&.bitmap   # Overrides's y
       metrics.back_sprite[0] = 0
       metrics.back_sprite[1] = (bitmap1.height - (findBottom(bitmap1.bitmap) + 1)) / 2
     end

Data/Scripts/020_Debug/003_Debug menus/002_Debug_MenuCommands.rb

@@ -842,11 +842,11 @@ MenuHandlers.add(:debug_menu, :empty_bag, {
 })
 
 #===============================================================================
-# Player options.
+# Overrides options.
 #===============================================================================
 
 MenuHandlers.add(:debug_menu, :player_menu, {
-  "name"        => _INTL("Player options..."),
+  "name"        => _INTL("Overrides options..."),
   "parent"      => :main,
   "description" => _INTL("Set money, badges, Pokédexes, player's appearance and name, etc."),
   "always_show" => false
@@ -1114,7 +1114,7 @@ MenuHandlers.add(:debug_menu, :change_outfit, {
     params.setRange(0, 99)
     params.setDefaultValue(oldoutfit)
     $player.outfit = pbMessageChooseNumber(_INTL("Set the player's outfit."), params)
-    pbMessage(_INTL("Player's outfit was changed.")) if $player.outfit != oldoutfit
+    pbMessage(_INTL("Overrides's outfit was changed.")) if $player.outfit != oldoutfit
   }
 })
 

Data/Scripts/020_Debug/003_Debug menus/004_Debug_BattleCommands.rb

@@ -9,7 +9,7 @@ MenuHandlers.add(:battle_debug_menu, :battlers, {
 })
 
 MenuHandlers.add(:battle_debug_menu, :list_player_battlers, {
-  "name"        => _INTL("Player-side battlers"),
+  "name"        => _INTL("Overrides-side battlers"),
   "parent"      => :battlers,
   "description" => _INTL("Edit Pokémon on the player's side of battle."),
   "effect"      => proc { |battle|
@@ -103,7 +103,7 @@ MenuHandlers.add(:battle_debug_menu, :pokemon_teams, {
         first_index = player_party_starts[i]
         last_index = (i < player_party_starts.length - 1) ? player_party_starts[i + 1] : battle.pbParty(0).length
         num_pkmn = last_index - first_index
-        if i == 0   # Player
+        if i == 0   # Overrides
           commands.push(_INTL("You: {1} ({2} Pokémon)", trainer.full_name, num_pkmn))
         else
           commands.push(_INTL("Ally {1}: {2} ({3} Pokémon)", i, trainer.full_name, num_pkmn))
@@ -162,7 +162,7 @@ MenuHandlers.add(:battle_debug_menu, :trainer_items, {
       end
       if battle.player.length > 1
         battle.player.each_with_index do |trainer, i|
-          next if i == 0   # Player
+          next if i == 0   # Overrides
           items = battle.ally_items ? battle.ally_items[i].clone : []
           commands.push(_INTL("Ally {1}: {2} ({3} items)", i, trainer.full_name, items.length))
           item_arrays.push(items)
@@ -436,7 +436,7 @@ MenuHandlers.add(:battle_debug_menu, :set_field_effects, {
 })
 
 MenuHandlers.add(:battle_debug_menu, :player_side, {
-  "name"        => _INTL("Player's side effects..."),
+  "name"        => _INTL("Overrides's side effects..."),
   "parent"      => :field,
   "description" => _INTL("Effects that apply to the side the player is on."),
   "effect"      => proc { |battle|

Data/Scripts/020_Debug/003_Debug menus/007_Debug_PokemonCommands.rb

@@ -920,7 +920,7 @@ MenuHandlers.add(:pokemon_debug_menu, :ownership, {
       gender_text = _INTL("Male") if pkmn.owner.male?
       gender_text = _INTL("Female") if pkmn.owner.female?
       public_id_text = sprintf("%05d", pkmn.owner.public_id)
-      msg = [_INTL("Player's Pokémon\n{1}\n{2}\n{3} ({4})",
+      msg = [_INTL("Overrides's Pokémon\n{1}\n{2}\n{3} ({4})",
                    pkmn.owner.name, gender_text, public_id_text, pkmn.owner.id),
              _INTL("Foreign Pokémon\n{1}\n{2}\n{3} ({4})",
                    pkmn.owner.name, gender_text, public_id_text, pkmn.owner.id)][pkmn.foreign?($player) ? 1 : 0]

Data/Scripts/020_Debug/003_Editor_Listers.rb

@@ -269,7 +269,7 @@ class MetadataLister
   def commands
     @commands.clear
     @commands.push(_INTL("[GLOBAL METADATA]"))
-    @player_ids.each { |id| @commands.push(_INTL("Player {1}", id)) }
+    @player_ids.each { |id| @commands.push(_INTL("Overrides {1}", id)) }
     @commands.push(_INTL("[ADD NEW PLAYER]")) if @new_player
     return @commands
   end
@@ -277,7 +277,7 @@ class MetadataLister
   # Cancel: -1
   # New player: -2
   # Global metadata: 0
-  # Player character: 1+ (the player ID itself)
+  # Overrides character: 1+ (the player ID itself)
   def value(index)
     return index if index < 1
     return -2 if @new_player && index == @commands.length - 1

Data/Scripts/021_Compiler/002_Compiler_CompilePBS.rb

@@ -1344,7 +1344,7 @@ module Compiler
           else
             validate_compiled_player_metadata(data_hash)
             if GameData::PlayerMetadata.exists?(data_hash[:id])
-              raise _INTL("Player metadata ID '{1}' is used twice.", data_hash[:id]) + "\n" + FileLineData.linereport
+              raise _INTL("Overrides metadata ID '{1}' is used twice.", data_hash[:id]) + "\n" + FileLineData.linereport
             end
           end
           # Add section's data to records

Data/Scripts/021_Compiler/006_Compiler_MapsAndEvents.rb

@@ -20,7 +20,7 @@ module Compiler
     ["pbCanStore?",                  "$bag.can_add?"],
     ["pbStoreItem",                  "$bag.add"],
     ["pbStoreAllOrNone",             "$bag.add_all"],
-    ["$Trainer",                     "$player"],
+    ["$player",                     "$player"],
     ["$SaveVersion",                 "$save_engine_version"],
     ["$game_version",                "$save_game_version"],
     ["$MapFactory",                  "$map_factory"],
@@ -880,12 +880,12 @@ module Compiler
         changed = true
       end
       # If the last page's Switch condition uses a Switch named 's:tsOff?("A")',
-      # check the penultimate page. If it contains exactly 1 "Transfer Player"
+      # check the penultimate page. If it contains exactly 1 "Transfer Overrides"
       # command and does NOT contain a "Change Transparent Flag" command, rewrite
       # both the penultimate page and the last page.
       if mapData.switchName(lastPage.condition.switch1_id) == 's:tsOff?("A")'
         list = event.pages[event.pages.length - 2].list
-        transferCommand = list.find_all { |cmd| cmd.code == 201 }   # Transfer Player
+        transferCommand = list.find_all { |cmd| cmd.code == 201 }   # Transfer Overrides
         if transferCommand.length == 1 && list.none? { |cmd| cmd.code == 208 }   # Change Transparent Flag
           # Rewrite penultimate page
           list.clear
@@ -913,7 +913,7 @@ module Compiler
           push_event(list, 223, [Tone.new(-255, -255, -255), 6])   # Change Screen Color Tone
           push_wait(list, 8)   # Wait
           push_event(list, 208, [1])   # Change Transparent Flag (visible)
-          push_event(list, transferCommand[0].code, transferCommand[0].parameters)   # Transfer Player
+          push_event(list, transferCommand[0].code, transferCommand[0].parameters)   # Transfer Overrides
           push_event(list, 223, [Tone.new(0, 0, 0), 6])   # Change Screen Color Tone
           push_end(list)
           # Rewrite last page
@@ -957,7 +957,7 @@ module Compiler
   end
 
   # Checks if the event has exactly 1 page, said page has no graphic, it has
-  # less than 12 commands and at least one is a Transfer Player, and the tiles
+  # less than 12 commands and at least one is a Transfer Overrides, and the tiles
   # to the left/right/upper left/upper right are not passable but the event's
   # tile is. Causes a second page to be added to the event which is the "is
   # player on me?" check that occurs when the map is entered.
@@ -966,7 +966,7 @@ module Compiler
     return false if thisEvent.pages.length != 1
     if thisEvent.pages[0].graphic.character_name == "" &&
        thisEvent.pages[0].list.length <= 12 &&
-       thisEvent.pages[0].list.any? { |cmd| cmd.code == 201 } &&   # Transfer Player
+       thisEvent.pages[0].list.any? { |cmd| cmd.code == 201 } &&   # Transfer Overrides
 #       mapData.isPassable?(mapID, thisEvent.x, thisEvent.y + 1) &&
        mapData.isPassable?(mapID, thisEvent.x, thisEvent.y) &&
        !mapData.isPassable?(mapID, thisEvent.x - 1, thisEvent.y) &&
@@ -1272,12 +1272,12 @@ module Compiler
             list.delete_at(i)
             changed = true
           end
-        when 201   # Transfer Player
+        when 201   # Transfer Overrides
           if list.length <= 8
 =begin
             if params[0]==0
               # Look for another event just above the position this Transfer
-              # Player command will transfer to - it may be a door, in which case
+              # Overrides command will transfer to - it may be a door, in which case
               # this command should transfer the player onto the door instead of
               # in front of it.
               e = mapData.getEventFromXY(params[1],params[2],params[3]-1)
@@ -1295,7 +1295,7 @@ module Compiler
                 mapData.saveMap(params[1])
                 changed = true
               end
-              # Checks if the found event is a simple Transfer Player one nestled
+              # Checks if the found event is a simple Transfer Overrides one nestled
               # between tiles that aren't passable - it is likely a door, so give
               # it a second page with an "is player on me?" check.
               if likely_passage?(e,params[1],mapData)   # Checks the first page
@@ -1339,30 +1339,30 @@ module Compiler
               # If the next event command is a Move Route that moves the player,
               # check whether all it does is turn the player in a direction (or
               # its first item is to move the player in a direction). If so, this
-              # Transfer Player command may as well set the player's direction
+              # Transfer Overrides command may as well set the player's direction
               # instead; make it do so and delete that Move Route.
               if params[4]==0 &&   # Retain direction
                  i+1<list.length && list[i+1].code==209 && list[i+1].parameters[0]==-1   # Set Move Route
                 route = list[i+1].parameters[1]
                 if route && route.list.length<=2
                   # Delete superfluous move route command if necessary
-                  if route.list[0].code==16      # Player Turn Down
+                  if route.list[0].code==16      # Overrides Turn Down
                     deleteMoveRouteAt.call(list,i+1)
                     params[4] = 2
                     changed = true
-                  elsif route.list[0].code==17   # Player Turn Left
+                  elsif route.list[0].code==17   # Overrides Turn Left
                     deleteMoveRouteAt.call(list,i+1)
                     params[4] = 4
                     changed = true
-                  elsif route.list[0].code==18   # Player Turn Right
+                  elsif route.list[0].code==18   # Overrides Turn Right
                     deleteMoveRouteAt.call(list,i+1)
                     params[4] = 6
                     changed = true
-                  elsif route.list[0].code==19   # Player Turn Up
+                  elsif route.list[0].code==19   # Overrides Turn Up
                     deleteMoveRouteAt.call(list,i+1)
                     params[4] = 8
                     changed = true
-                  elsif (route.list[0].code==1 || route.list[0].code==2 ||   # Player Move (4-dir)
+                  elsif (route.list[0].code==1 || route.list[0].code==2 ||   # Overrides Move (4-dir)
                      route.list[0].code==3 || route.list[0].code==4) && list.length==4
                     params[4] = [0,2,4,6,8][route.list[0].code]
                     deletedRoute = deleteMoveRouteAt.call(list,i+1)
@@ -1370,10 +1370,10 @@ module Compiler
                   end
                 end
               # If an event command before this one is a Move Route that just
-              # turns the player, delete it and make this Transfer Player command
+              # turns the player, delete it and make this Transfer Overrides command
               # set the player's direction instead.
               # (I don't know if it makes sense to do this, as there could be a
-              # lot of commands between then and this Transfer Player which this
+              # lot of commands between then and this Transfer Overrides which this
               # code can't recognise and deal with, so I've quoted this code out.)
               elsif params[4]==0 && i>3   # Retain direction
 #                for j in 0...i
@@ -1382,22 +1382,22 @@ module Compiler
 #                    if route && route.list.length<=2
 #                      oldlistlength = list.length
 #                      # Delete superfluous move route command if necessary
-#                      if route.list[0].code==16      # Player Turn Down
+#                      if route.list[0].code==16      # Overrides Turn Down
 #                        deleteMoveRouteAt.call(list,j)
 #                        params[4] = 2
 #                        changed = true
 #                        i -= (oldlistlength-list.length)
-#                      elsif route.list[0].code==17   # Player Turn Left
+#                      elsif route.list[0].code==17   # Overrides Turn Left
 #                        deleteMoveRouteAt.call(list,j)
 #                        params[4] = 4
 #                        changed = true
 #                        i -= (oldlistlength-list.length)
-#                      elsif route.list[0].code==18   # Player Turn Right
+#                      elsif route.list[0].code==18   # Overrides Turn Right
 #                        deleteMoveRouteAt.call(list,j)
 #                        params[4] = 6
 #                        changed = true
 #                        i -= (oldlistlength-list.length)
-#                      elsif route.list[0].code==19   # Player Turn Up
+#                      elsif route.list[0].code==19   # Overrides Turn Up
 #                        deleteMoveRouteAt.call(list,j)
 #                        params[4] = 8
 #                        changed = true
@@ -1408,7 +1408,7 @@ module Compiler
 #                end
               # If the next event command changes the screen color, and the one
               # after that is a Move Route which only turns the player in a
-              # direction, this Transfer Player command may as well set the
+              # direction, this Transfer Overrides command may as well set the
               # player's direction instead; make it do so and delete that Move
               # Route.
               elsif params[4]==0 &&   # Retain direction
@@ -1419,19 +1419,19 @@ module Compiler
                 route = list[i+2].parameters[1]
                 if route && route.list.length<=2
                   # Delete superfluous move route command if necessary
-                  if route.list[0].code==16      # Player Turn Down
+                  if route.list[0].code==16      # Overrides Turn Down
                     deleteMoveRouteAt.call(list,i+2)
                     params[4] = 2
                     changed = true
-                  elsif route.list[0].code==17   # Player Turn Left
+                  elsif route.list[0].code==17   # Overrides Turn Left
                     deleteMoveRouteAt.call(list,i+2)
                     params[4] = 4
                     changed = true
-                  elsif route.list[0].code==18   # Player Turn Right
+                  elsif route.list[0].code==18   # Overrides Turn Right
                     deleteMoveRouteAt.call(list,i+2)
                     params[4] = 6
                     changed = true
-                  elsif route.list[0].code==19   # Player Turn Up
+                  elsif route.list[0].code==19   # Overrides Turn Up
                     deleteMoveRouteAt.call(list,i+2)
                     params[4] = 8
                     changed = true

Data/Scripts/904_Anim Editor/001_AnimationEditor.rb

@@ -9,7 +9,7 @@ class AnimationEditor
       else
         @settings = {
           :color_scheme       => :light,
-          :side_sizes         => [1, 1],   # Player's side, opposing side
+          :side_sizes         => [1, 1],   # Overrides's side, opposing side
           :user_index         => 0,        # 0, 2, 4
           :target_indices     => [1],      # There must be at least one valid target
           :user_opposes       => false,

Data/Scripts/998_InfiniteFusion/01_Migration/020_UI_PokeMart.rb

@@ -0,0 +1,794 @@
+#===============================================================================
+# Abstraction layer for Pokemon Essentials
+#===============================================================================
+class PokemonMartAdapter
+  def getMoney
+    return $player.money
+  end
+
+  def getMoneyString
+    return pbGetGoldString
+  end
+
+  def setMoney(value)
+    $player.money = value
+  end
+
+  def getInventory
+    return $PokemonBag
+  end
+
+  def getName(item)
+    return GameData::Item.get(item).name
+  end
+
+  def getDisplayName(item)
+    item_name = getName(item)
+    if GameData::Item.get(item).is_machine?
+      machine = GameData::Item.get(item).move
+      item_name = _INTL("{1} {2}", item_name, GameData::Move.get(machine).name)
+    end
+    return item_name
+  end
+
+  def getDescription(item)
+    return GameData::Item.get(item).description
+  end
+
+  def getItemIcon(item)
+    return (item) ? GameData::Item.icon_filename(item) : nil
+  end
+
+  # Unused
+  def getItemIconRect(_item)
+    return Rect.new(0, 0, 48, 48)
+  end
+
+  def getQuantity(item)
+    return $PokemonBag.pbQuantity(item)
+  end
+
+  def showQuantity?(item)
+    return !GameData::Item.get(item).is_important?
+  end
+
+  def getPrice(item, selling = false)
+    if $game_temp.mart_prices && $game_temp.mart_prices[item]
+      if selling
+        return $game_temp.mart_prices[item][1] if $game_temp.mart_prices[item][1] >= 0
+      else
+        return $game_temp.mart_prices[item][0] if $game_temp.mart_prices[item][0] > 0
+      end
+    end
+    return GameData::Item.get(item).price
+  end
+
+  def getDisplayPrice(item, selling = false)
+    price = getPrice(item, selling).to_s_formatted
+    return _INTL("$ {1}", price)
+  end
+
+  def canSell?(item)
+    return getPrice(item, true) > 0 && !GameData::Item.get(item).is_important?
+  end
+
+  def addItem(item)
+    return $PokemonBag.pbStoreItem(item)
+  end
+
+  def removeItem(item)
+    return $PokemonBag.pbDeleteItem(item)
+  end
+
+  def getBaseColorOverride(item)
+    return nil
+  end
+
+  def getShadowColorOverride(item)
+    return nil
+  end
+
+  #specialType is a symbol
+  def getSpecialItemCaption(specialType)
+    return nil
+  end
+
+  def getSpecialItemDescription(specialType)
+    return nil
+  end
+
+  def doSpecialItemAction(specialType,itemId=nil)
+    return nil
+  end
+
+  def getSpecialItemBaseColor(specialType)
+    return nil
+  end
+
+  def getSpecialItemShadowColor(specialType)
+    return nil
+  end
+
+
+end
+
+#===============================================================================
+# Buy and Sell adapters
+#===============================================================================
+class BuyAdapter
+  def initialize(adapter)
+    @adapter = adapter
+  end
+
+  def getDisplayName(item)
+    @adapter.getDisplayName(item)
+  end
+
+  def getDisplayPrice(item)
+    @adapter.getDisplayPrice(item, false)
+  end
+
+  def getBaseColorOverride(item)
+    return @adapter.getBaseColorOverride(item)
+  end
+
+  def getShadowColorOverride(item)
+    return @adapter.getShadowColorOverride(item)
+  end
+
+  def isSelling?
+    return false
+  end
+
+  def getSpecialItemCaption(specialType)
+    return @adapter.getSpecialItemCaption(specialType)
+  end
+
+  def getSpecialItemBaseColor(specialType)
+    return @adapter.getSpecialItemBaseColor(specialType)
+  end
+
+  def getSpecialItemShadowColor(specialType)
+    return @adapter.getSpecialItemShadowColor(specialType)
+  end
+
+  def getAdapter()
+    return @adapter
+  end
+end
+
+#===============================================================================
+#
+#===============================================================================
+class SellAdapter
+  def initialize(adapter)
+    @adapter = adapter
+  end
+
+  def getDisplayName(item)
+    @adapter.getDisplayName(item)
+  end
+
+  def getDisplayPrice(item)
+    if @adapter.showQuantity?(item)
+      return sprintf("x%d", @adapter.getQuantity(item))
+    else
+      return ""
+    end
+  end
+
+  def isSelling?
+    return true
+  end
+
+  def getBaseColorOverride(item)
+    return @adapter.getBaseColorOverride(item)
+  end
+
+  def getShadowColorOverride(item)
+    return @adapter.getShadowColorOverride(item)
+  end
+
+end
+
+#===============================================================================
+# Pokémon Mart
+#===============================================================================
+class Window_PokemonMart < Window_DrawableCommand
+  def initialize(stock, adapter, x, y, width, height, viewport = nil)
+    @stock = stock
+    @adapter = adapter
+    super(x, y, width, height, viewport)
+    @selarrow = AnimatedBitmap.new("Graphics/Pictures/martSel")
+    @baseColor = Color.new(88, 88, 80)
+    @shadowColor = Color.new(168, 184, 184)
+    self.windowskin = nil
+  end
+
+  def itemCount
+    return @stock.length + 1
+  end
+
+  def item
+    return (self.index >= @stock.length) ? nil : @stock[self.index]
+  end
+
+  def drawItem(index, count, rect)
+    textpos = []
+    rect = drawCursor(index, rect)
+    ypos = rect.y
+    if index == count - 1
+      textpos.push([_INTL("CANCEL"), rect.x, ypos - 4, false, self.baseColor, self.shadowColor])
+    else
+      item = @stock[index]
+      if item.is_a?(Symbol) && @adapter.getAdapter().is_a?(OutfitsMartAdapter)
+        itemname = @adapter.getSpecialItemCaption(item)
+        baseColor = @adapter.getSpecialItemBaseColor(item) ? @adapter.getSpecialItemBaseColor(item) : baseColor
+        shadowColor = @adapter.getSpecialItemShadowColor(item) ? @adapter.getSpecialItemShadowColor(item) : shadowColor
+        textpos.push([itemname, rect.x, ypos - 4, false, baseColor, shadowColor])
+      else
+        itemname = @adapter.getDisplayName(item)
+        baseColorOverride = @adapter.getBaseColorOverride(item)
+        shadowColorOverride = @adapter.getShadowColorOverride(item)
+
+        baseColor = baseColorOverride ? baseColorOverride : self.baseColor
+        shadowColor = shadowColorOverride ? shadowColorOverride : self.shadowColor
+
+        qty = @adapter.getDisplayPrice(item)
+        sizeQty = self.contents.text_size(qty).width
+        xQty = rect.x + rect.width - sizeQty - 2 - 16
+        textpos.push([itemname, rect.x, ypos - 4, false, baseColor, shadowColor])
+        textpos.push([qty, xQty, ypos - 4, false, baseColor, shadowColor])
+      end
+    end
+    pbDrawTextPositions(self.contents, textpos)
+  end
+end
+
+#===============================================================================
+#
+#===============================================================================
+class PokemonMart_Scene
+  def initialize(currency_name = "Money")
+    @currency_name = currency_name
+  end
+
+  def update
+    pbUpdateSpriteHash(@sprites)
+    @subscene.pbUpdate if @subscene
+  end
+
+  def pbRefresh
+    if @subscene
+      @subscene.pbRefresh
+    else
+      itemwindow = @sprites["itemwindow"]
+      @sprites["icon"].item = itemwindow.item
+      @sprites["itemtextwindow"].text =
+        (itemwindow.item) ? @adapter.getDescription(itemwindow.item) : _INTL("Quit shopping.")
+      itemwindow.refresh
+    end
+    @sprites["moneywindow"].text = _INTL("{2}:\r\n<r>{1}", @adapter.getMoneyString, @currency_name)
+  end
+
+  def scroll_map()
+    pbScrollMap(6, 5, 5)
+  end
+
+  def scroll_back_map()
+    pbScrollMap(4, 5, 5)
+  end
+
+  def pbStartBuyOrSellScene(buying, stock, adapter)
+    # Scroll right before showing screen
+    scroll_map()
+    @viewport = Viewport.new(0, 0, Graphics.width, Graphics.height)
+    @viewport.z = 99999
+    @stock = stock
+    @adapter = adapter
+    @sprites = {}
+    @sprites["background"] = IconSprite.new(0, 0, @viewport)
+    @sprites["background"].setBitmap("Graphics/Pictures/martScreen")
+    @sprites["icon"] = ItemIconSprite.new(36, Graphics.height - 50, nil, @viewport)
+    winAdapter = buying ? BuyAdapter.new(adapter) : SellAdapter.new(adapter)
+    @sprites["itemwindow"] = Window_PokemonMart.new(stock, winAdapter,
+                                                    Graphics.width - 316 - 16, 12, 330 + 16, Graphics.height - 126)
+    @sprites["itemwindow"].viewport = @viewport
+    @sprites["itemwindow"].index = 0
+    @sprites["itemwindow"].refresh
+    @sprites["itemtextwindow"] = Window_UnformattedTextPokemon.newWithSize("",
+                                                                           64, Graphics.height - 96 - 16, Graphics.width - 64, 128, @viewport)
+    pbPrepareWindow(@sprites["itemtextwindow"])
+    @sprites["itemtextwindow"].baseColor = Color.new(248, 248, 248)
+    @sprites["itemtextwindow"].shadowColor = Color.new(0, 0, 0)
+    @sprites["itemtextwindow"].windowskin = nil
+    @sprites["helpwindow"] = Window_AdvancedTextPokemon.new("")
+    pbPrepareWindow(@sprites["helpwindow"])
+    @sprites["helpwindow"].visible = false
+    @sprites["helpwindow"].viewport = @viewport
+    pbBottomLeftLines(@sprites["helpwindow"], 1)
+    @sprites["moneywindow"] = Window_AdvancedTextPokemon.new("")
+    pbPrepareWindow(@sprites["moneywindow"])
+    @sprites["moneywindow"].setSkin("Graphics/Windowskins/goldskin")
+    @sprites["moneywindow"].visible = true
+    @sprites["moneywindow"].viewport = @viewport
+    @sprites["moneywindow"].x = 0
+    @sprites["moneywindow"].y = 0
+    @sprites["moneywindow"].width = 190
+    @sprites["moneywindow"].height = 96
+    @sprites["moneywindow"].baseColor = Color.new(88, 88, 80)
+    @sprites["moneywindow"].shadowColor = Color.new(168, 184, 184)
+    pbDeactivateWindows(@sprites)
+    @buying = buying
+    pbRefresh
+    Graphics.frame_reset
+  end
+
+  def pbStartBuyScene(stock, adapter)
+    pbStartBuyOrSellScene(true, stock, adapter)
+  end
+
+  def pbStartSellScene(bag, adapter)
+    if $PokemonBag
+      pbStartSellScene2(bag, adapter)
+    else
+      pbStartBuyOrSellScene(false, bag, adapter)
+    end
+  end
+
+  def pbStartSellScene2(bag, adapter)
+    @subscene = PokemonBag_Scene.new
+    @adapter = adapter
+    @viewport2 = Viewport.new(0, 0, Graphics.width, Graphics.height)
+    @viewport2.z = 99999
+    numFrames = Graphics.frame_rate * 4 / 10
+    alphaDiff = (255.0 / numFrames).ceil
+    for j in 0..numFrames
+      col = Color.new(0, 0, 0, j * alphaDiff)
+      @viewport2.color = col
+      Graphics.update
+      Input.update
+    end
+    @subscene.pbStartScene(bag)
+    @viewport = Viewport.new(0, 0, Graphics.width, Graphics.height)
+    @viewport.z = 99999
+    @sprites = {}
+    @sprites["helpwindow"] = Window_AdvancedTextPokemon.new("")
+    pbPrepareWindow(@sprites["helpwindow"])
+    @sprites["helpwindow"].visible = false
+    @sprites["helpwindow"].viewport = @viewport
+    pbBottomLeftLines(@sprites["helpwindow"], 1)
+    @sprites["moneywindow"] = Window_AdvancedTextPokemon.new("")
+    pbPrepareWindow(@sprites["moneywindow"])
+    @sprites["moneywindow"].setSkin("Graphics/Windowskins/goldskin")
+    @sprites["moneywindow"].visible = false
+    @sprites["moneywindow"].viewport = @viewport
+    @sprites["moneywindow"].x = 0
+    @sprites["moneywindow"].y = 0
+    @sprites["moneywindow"].width = 186
+    @sprites["moneywindow"].height = 96
+    @sprites["moneywindow"].baseColor = Color.new(88, 88, 80)
+    @sprites["moneywindow"].shadowColor = Color.new(168, 184, 184)
+    pbDeactivateWindows(@sprites)
+    @buying = false
+    pbRefresh
+  end
+
+  def pbEndBuyScene
+    pbDisposeSpriteHash(@sprites)
+    Kernel.pbClearText()
+    @viewport.dispose
+    # Scroll left after showing screen
+    scroll_back_map()
+  end
+
+  def pbEndSellScene
+    @subscene.pbEndScene if @subscene
+    pbDisposeSpriteHash(@sprites)
+    if @viewport2
+      numFrames = Graphics.frame_rate * 4 / 10
+      alphaDiff = (255.0 / numFrames).ceil
+      for j in 0..numFrames
+        col = Color.new(0, 0, 0, (numFrames - j) * alphaDiff)
+        @viewport2.color = col
+        Graphics.update
+        Input.update
+      end
+      @viewport2.dispose
+    end
+    @viewport.dispose
+    pbScrollMap(4, 5, 5) if !@subscene
+  end
+
+  def pbPrepareWindow(window)
+    window.visible = true
+    window.letterbyletter = false
+  end
+
+  def pbShowMoney
+    pbRefresh
+    @sprites["moneywindow"].visible = true
+  end
+
+  def pbHideMoney
+    pbRefresh
+    @sprites["moneywindow"].visible = false
+  end
+
+  def pbDisplay(msg, brief = false)
+    cw = @sprites["helpwindow"]
+    cw.letterbyletter = true
+    cw.text = msg
+    pbBottomLeftLines(cw, 2)
+    cw.visible = true
+    i = 0
+    pbPlayDecisionSE
+    loop do
+      Graphics.update
+      Input.update
+      self.update
+      if !cw.busy?
+        return if brief
+        pbRefresh if i == 0
+      end
+      if Input.trigger?(Input::USE) && cw.busy?
+        cw.resume
+      end
+      return if i >= Graphics.frame_rate * 3 / 2
+      i += 1 if !cw.busy?
+    end
+  end
+
+  def pbDisplayPaused(msg)
+    cw = @sprites["helpwindow"]
+    cw.letterbyletter = true
+    cw.text = msg
+    pbBottomLeftLines(cw, 2)
+    cw.visible = true
+    yielded = false
+    pbPlayDecisionSE
+    loop do
+      Graphics.update
+      Input.update
+      wasbusy = cw.busy?
+      self.update
+      if !cw.busy? && !yielded
+        yield if block_given? # For playing SE as soon as the message is all shown
+        yielded = true
+      end
+      pbRefresh if !cw.busy? && wasbusy
+      if Input.trigger?(Input::USE) && cw.resume && !cw.busy?
+        @sprites["helpwindow"].visible = false
+        return
+      end
+    end
+  end
+
+  def pbConfirm(msg)
+    dw = @sprites["helpwindow"]
+    dw.letterbyletter = true
+    dw.text = msg
+    dw.visible = true
+    pbBottomLeftLines(dw, 2)
+    commands = [_INTL("Yes"), _INTL("No")]
+    cw = Window_CommandPokemon.new(commands)
+    cw.viewport = @viewport
+    pbBottomRight(cw)
+    cw.y -= dw.height
+    cw.index = 0
+    pbPlayDecisionSE
+    loop do
+      cw.visible = !dw.busy?
+      Graphics.update
+      Input.update
+      cw.update
+      self.update
+      if Input.trigger?(Input::BACK) && dw.resume && !dw.busy?
+        cw.dispose
+        @sprites["helpwindow"].visible = false
+        return false
+      end
+      if Input.trigger?(Input::USE) && dw.resume && !dw.busy?
+        cw.dispose
+        @sprites["helpwindow"].visible = false
+        return (cw.index == 0)
+      end
+    end
+  end
+
+  def pbChooseNumber(helptext, item, maximum)
+    curnumber = 1
+    ret = 0
+    helpwindow = @sprites["helpwindow"]
+    itemprice = @adapter.getPrice(item, !@buying)
+    itemprice /= 2 if !@buying
+    pbDisplay(helptext, true)
+    using(numwindow = Window_AdvancedTextPokemon.new("")) { # Showing number of items
+    qty = @adapter.getQuantity(item)
+    using(inbagwindow = Window_AdvancedTextPokemon.new("")) { # Showing quantity in bag
+    pbPrepareWindow(numwindow)
+    pbPrepareWindow(inbagwindow)
+    numwindow.viewport = @viewport
+    numwindow.width = 224
+    numwindow.height = 64
+    numwindow.baseColor = Color.new(88, 88, 80)
+    numwindow.shadowColor = Color.new(168, 184, 184)
+    inbagwindow.visible = @buying
+    inbagwindow.viewport = @viewport
+    inbagwindow.width = 190
+    inbagwindow.height = 64
+    inbagwindow.baseColor = Color.new(88, 88, 80)
+    inbagwindow.shadowColor = Color.new(168, 184, 184)
+    inbagwindow.text = _INTL("In Bag:<r>{1}  ", qty)
+    numwindow.text = _INTL("x{1}<r>$ {2}", curnumber, (curnumber * itemprice).to_s_formatted)
+    pbBottomRight(numwindow)
+    numwindow.y -= helpwindow.height
+    pbBottomLeft(inbagwindow)
+    inbagwindow.y -= helpwindow.height
+    loop do
+      Graphics.update
+      Input.update
+      numwindow.update
+      inbagwindow.update
+      self.update
+      if Input.repeat?(Input::LEFT)
+        pbPlayCursorSE
+        curnumber -= 10
+        curnumber = 1 if curnumber < 1
+        numwindow.text = _INTL("x{1}<r>$ {2}", curnumber, (curnumber * itemprice).to_s_formatted)
+      elsif Input.repeat?(Input::RIGHT)
+        pbPlayCursorSE
+        curnumber += 10
+        curnumber = maximum if curnumber > maximum
+        numwindow.text = _INTL("x{1}<r>$ {2}", curnumber, (curnumber * itemprice).to_s_formatted)
+      elsif Input.repeat?(Input::UP)
+        pbPlayCursorSE
+        curnumber += 1
+        curnumber = 1 if curnumber > maximum
+        numwindow.text = _INTL("x{1}<r>$ {2}", curnumber, (curnumber * itemprice).to_s_formatted)
+      elsif Input.repeat?(Input::DOWN)
+        pbPlayCursorSE
+        curnumber -= 1
+        curnumber = maximum if curnumber < 1
+        numwindow.text = _INTL("x{1}<r>$ {2}", curnumber, (curnumber * itemprice).to_s_formatted)
+      elsif Input.trigger?(Input::USE)
+        pbPlayDecisionSE
+        ret = curnumber
+        break
+      elsif Input.trigger?(Input::BACK)
+        pbPlayCancelSE
+        ret = 0
+        break
+      end
+    end
+    }
+    }
+    helpwindow.visible = false
+    return ret
+  end
+
+  def pbChooseBuyItem
+    itemwindow = @sprites["itemwindow"]
+    @sprites["helpwindow"].visible = false
+    pbActivateWindow(@sprites, "itemwindow") {
+      pbRefresh
+      loop do
+        Graphics.update
+        Input.update
+        olditem = itemwindow.item
+        self.update
+        if itemwindow.item != olditem
+          @sprites["icon"].item = itemwindow.item
+          @sprites["itemtextwindow"].text =
+            (itemwindow.item) ? @adapter.getDescription(itemwindow.item) : _INTL("Quit shopping.")
+        end
+        if Input.trigger?(Input::BACK)
+          pbPlayCloseMenuSE
+          return nil
+        elsif Input.trigger?(Input::USE)
+          if itemwindow.index < @stock.length
+            pbRefresh
+            return @stock[itemwindow.index]
+          else
+            return nil
+          end
+        end
+      end
+    }
+  end
+
+  def pbChooseSellItem
+    if @subscene
+      return @subscene.pbChooseItem
+    else
+      return pbChooseBuyItem
+    end
+  end
+end
+
+#===============================================================================
+#
+#===============================================================================
+class PokemonMartScreen
+  def initialize(scene, stock, adapter = PokemonMartAdapter.new)
+    @scene = scene
+    @stock = stock
+    @adapter = adapter
+  end
+
+  def pbConfirm(msg)
+    return @scene.pbConfirm(msg)
+  end
+
+  def pbDisplay(msg)
+    return @scene.pbDisplay(msg)
+  end
+
+  def pbDisplayPaused(msg, &block)
+    return @scene.pbDisplayPaused(msg, &block)
+  end
+
+  def pbBuyScreen
+    @scene.pbStartBuyScene(@stock, @adapter)
+    item = nil
+    loop do
+      pbWait(4)
+      item = @scene.pbChooseBuyItem
+      break if !item
+      quantity = 0
+      itemname = @adapter.getDisplayName(item)
+      price = @adapter.getPrice(item)
+      if @adapter.getMoney < price
+        pbDisplayPaused(_INTL("You don't have enough money."))
+        next
+      end
+      if GameData::Item.get(item).is_important?
+        if !pbConfirm(_INTL("Certainly. You want {1}. That will be ${2}. OK?",
+                            itemname, price.to_s_formatted))
+          next
+        end
+        quantity = 1
+      else
+        maxafford = (price <= 0) ? Settings::BAG_MAX_PER_SLOT : @adapter.getMoney / price
+        maxafford = Settings::BAG_MAX_PER_SLOT if maxafford > Settings::BAG_MAX_PER_SLOT
+        quantity = @scene.pbChooseNumber(
+          _INTL("{1}? Certainly. How many would you like?", itemname), item, maxafford)
+        next if quantity == 0
+        price *= quantity
+        if !pbConfirm(_INTL("{1}, and you want {2}. That will be ${3}. OK?",
+                            itemname, quantity, price.to_s_formatted))
+          next
+        end
+      end
+      if @adapter.getMoney < price
+        pbDisplayPaused(_INTL("You don't have enough money."))
+        next
+      end
+      added = 0
+      quantity.times do
+        break if !@adapter.addItem(item)
+        added += 1
+      end
+      if added != quantity
+        added.times do
+          if !@adapter.removeItem(item)
+            raise _INTL("Failed to delete stored items")
+          end
+        end
+        pbDisplayPaused(_INTL("You have no more room in the Bag."))
+      else
+        @adapter.setMoney(@adapter.getMoney - price)
+        for i in 0...@stock.length
+          if GameData::Item.get(@stock[i]).is_important? && $PokemonBag.pbHasItem?(@stock[i])
+            @stock[i] = nil
+          end
+        end
+        @stock.compact!
+        pbDisplayPaused(_INTL("Here you are! Thank you!")) { pbSEPlay("Mart buy item") }
+        if $PokemonBag
+          if quantity >= 10 && GameData::Item.get(item).is_poke_ball? && GameData::Item.exists?(:PREMIERBALL)
+            if @adapter.addItem(GameData::Item.get(:PREMIERBALL))
+              pbDisplayPaused(_INTL("I'll throw in a Premier Ball, too."))
+            end
+          end
+        end
+      end
+    end
+    @scene.pbEndBuyScene
+  end
+
+  def pbSellScreen
+    item = @scene.pbStartSellScene(@adapter.getInventory, @adapter)
+    loop do
+      item = @scene.pbChooseSellItem
+      break if !item
+      itemname = @adapter.getDisplayName(item)
+      price = @adapter.getPrice(item, true)
+      if !@adapter.canSell?(item)
+        pbDisplayPaused(_INTL("{1}? Oh, no. I can't buy that.", itemname))
+        next
+      end
+      qty = @adapter.getQuantity(item)
+      next if qty == 0
+      @scene.pbShowMoney
+      if qty > 1
+        qty = @scene.pbChooseNumber(
+          _INTL("{1}? How many would you like to sell?", itemname), item, qty)
+      end
+      if qty == 0
+        @scene.pbHideMoney
+        next
+      end
+      price /= 2
+      price *= qty
+      if pbConfirm(_INTL("I can pay ${1}. Would that be OK?", price.to_s_formatted))
+        @adapter.setMoney(@adapter.getMoney + price)
+        qty.times do
+          @adapter.removeItem(item)
+        end
+        pbDisplayPaused(_INTL("Turned over the {1} and received ${2}.", itemname, price.to_s_formatted)) { pbSEPlay("Mart buy item") }
+        @scene.pbRefresh
+      end
+      @scene.pbHideMoney
+    end
+    @scene.pbEndSellScene
+  end
+end
+
+def replaceShopStockWithRandomized(stock)
+  if $PokemonGlobal.randomItemsHash != nil
+    newStock = []
+    for item in stock
+      newItem = $PokemonGlobal.randomItemsHash[item]
+      if newItem != nil && GameData::Item.get(newItem).price > 0 && !Settings::EXCLUDE_FROM_RANDOM_SHOPS.include?(newItem)
+        newStock << newItem
+      else
+        newStock << item
+      end
+    end
+    return newStock
+  end
+  return stock
+end
+
+#===============================================================================
+#
+#===============================================================================
+def pbPokemonMart(stock, speech = nil, cantsell = false)
+  if $game_switches[SWITCH_RANDOM_ITEMS_GENERAL] && $game_switches[SWITCH_RANDOM_SHOP_ITEMS]
+    stock = replaceShopStockWithRandomized(stock)
+  end
+
+  for i in 0...stock.length
+    stock[i] = GameData::Item.get(stock[i]).id
+    stock[i] = nil if GameData::Item.get(stock[i]).is_important? && $PokemonBag.pbHasItem?(stock[i])
+  end
+  stock.compact!
+  commands = []
+  cmdBuy = -1
+  cmdSell = -1
+  cmdQuit = -1
+  commands[cmdBuy = commands.length] = _INTL("Buy")
+  commands[cmdSell = commands.length] = _INTL("Sell") if !cantsell
+  commands[cmdQuit = commands.length] = _INTL("Quit")
+  cmd = pbMessage(
+    speech ? speech : _INTL("Welcome! How may I serve you?"),
+    commands, cmdQuit + 1)
+  loop do
+    if cmdBuy >= 0 && cmd == cmdBuy
+      scene = PokemonMart_Scene.new
+      screen = PokemonMartScreen.new(scene, stock)
+      screen.pbBuyScreen
+    elsif cmdSell >= 0 && cmd == cmdSell
+      scene = PokemonMart_Scene.new
+      screen = PokemonMartScreen.new(scene, stock)
+      screen.pbSellScreen
+    else
+      pbMessage(_INTL("Please come again!"))
+      break
+    end
+    cmd = pbMessage(_INTL("Is there anything else I can help you with?"),
+                    commands, cmdQuit + 1)
+  end
+  $game_temp.clear_mart_prices
+end

Data/Scripts/998_InfiniteFusion/01_Migration/BagMigration.rb

@@ -0,0 +1,63 @@
+class PokemonBag
+  def pbQuantity(item)
+    return quantity(item)
+  end
+
+  def pbHasItem?(item, qty = 1)
+    return has?(item, qty)
+  end
+
+  def pbCanStore?(item, qty = 1)
+    return can_add?(item, qty = 1)
+  end
+
+  def pbStoreItem(item, qty = 1)
+    return add(item, qty = 1)
+  end
+
+  def pbStoreAllOrNone(item, qty = 1)
+    add_all(item, qty = 1)
+  end
+
+  def pbChangeItem(old_item, new_item)
+    replace_item(old_item, new_item)
+  end
+
+  def pbDeleteItem(item, qty = 1)
+    remove(item, qty = 1)
+  end
+
+  def pbIsRegistered?(item)
+    registered?(item)
+  end
+
+  def pbRegisterItem(item)
+    register(item)
+  end
+
+  def pbUnregisterItem(item)
+    unregister(item)
+  end
+
+end
+
+#Shortcut methods
+def pbQuantity(*args)
+  return $bag.pbQuantity(*args)
+end
+
+def pbHasItem?(*args)
+  return $bag.pbHasItem?(*args)
+end
+
+def pbCanStore?(*args)
+  return $bag.pbCanStore?(*args)
+end
+
+def pbStoreItem(*args)
+  return $bag.pbStoreItem(*args)
+end
+
+def pbStoreAllOrNone(*args)
+  return $bag.pbStoreAllOrNone(*args)
+end

Data/Scripts/998_InfiniteFusion/01_Migration/MessageConfig.rb

@@ -0,0 +1,4 @@
+module MessageConfig
+  BLUE_TEXT_MAIN_COLOR    =  Color.new(35, 130, 200)
+  BLUE_TEXT_SHADOW_COLOR  =  Color.new(20, 75, 115)
+end

Data/Scripts/998_InfiniteFusion/01_Migration/Overrides/GeneralPIF_Scene_Map.rb

@@ -0,0 +1,29 @@
+# frozen_string_literal: true
+
+class Scene_Map
+  def cacheNeedsClearing
+    return RPG::Cache.size >= 100
+  end
+
+  def reset_switches_for_map_transfer
+    $game_switches[SWITCH_ILEX_FOREST_SPOOKED_POKEMON] = false
+  end
+
+  def clear_quest_icons()
+    for sprite in $scene.spriteset.character_sprites
+      if sprite.is_a?(Sprite_Character) && sprite.questIcon
+        sprite.removeQuestIcon
+      end
+    end
+  end
+
+
+
+  alias pokemonEssentials_SceneMap_transfer_player transfer_player
+  def transfer_playerr(cancel_swimming = true)
+    pokemonEssentials_SceneMap_transfer_player(cancel_swimming)
+    reset_switches_for_map_transfer()
+    clear_quest_icons()
+  end
+
+end

Data/Scripts/998_InfiniteFusion/Constants/CONSTANTS.rb

@@ -0,0 +1,31 @@
+#############
+# SETTINGS #
+#############
+
+
+# This is for settings that are used in scripts since it's a chore to change them everywhere to include the module name
+NUM_BADGES = Settings::NB_BADGES
+EGGINITIALLEVEL = Settings::EGG_LEVEL
+
+#this is fucking stupid but apparently necessary
+FALSE = false
+TRUE = true
+
+DIRECTION_LEFT = 4
+DIRECTION_RIGHT = 6
+DIRECTION_DOWN = 2
+DIRECTION_UP = 8
+
+VAR_SPEED_UP_TOGGLE_SPEED=23
+
+MAP_TEMPLATE_EVENTS = 175
+TEMPLATE_EVENT_SILHOUETTE = 7
+
+SWITCH_TRIPLE_BOSS_BATTLE = 824
+SWITCH_SILVERBOSS_BATTLE = 675
+
+GENDER_FEMALE=0
+GENDER_MALE=1
+
+MELOETTA_BAND_NAME = "Miss Melody and the Mystic Musicians"
+SUCKY_BAND_NAME = "MooMoo Milk"

Data/Scripts/998_InfiniteFusion/Constants/CONSTANTS_ANIMATIONS.rb

@@ -0,0 +1,6 @@
+##############
+# ANIMATIONS
+################
+DUST_ANIMATION_ID=2
+VIRUS_ANIMATION_ID=10# frozen_string_literal: true
+

Data/Scripts/998_InfiniteFusion/Constants/CONSTANTS_FILEPATHS.rb

@@ -0,0 +1,3 @@
+UI_FOLDER         = "Graphics/UI/"
+# frozen_string_literal: true
+

Data/Scripts/998_InfiniteFusion/Constants/CONSTANTS_GAME_MAPS.rb

@@ -0,0 +1,93 @@
+# frozen_string_literal: true
+
+
+KANTO_OUTDOOR_MAPS = [
+  78, # Route 1
+  185, # Secret Garden
+  86, # Route 2
+  90, # Route 2 (north)
+  655, # Hidden Forest
+  40, # Viridian River
+  490, # Route 3
+  106, # Route 4
+  12, # Route 5
+  16, # Route 6
+  413, # Route 7
+  409, # Route 8
+  351, # Route 9 (east)
+  495, # Route 9 (west)
+  154, # Route 10
+  155, # Route 11
+  159, # Route 12
+  440, # Route 14
+  444, # Route 15
+  712, # Creepy house
+  438, # Route 16
+  146, # Route 17
+  517, # Route 18
+  437, # Route 13
+  57, # Route 19
+  227, # Route 19 (underwater)
+  56, # Route 19 (surf race)
+  58, # Route 20
+  480, # Route 20 underwater 1
+  228, # Route 20 underwater 2
+  171, # Route 22
+  8, # Route 24
+  9, # Route 25
+  143, # Route 23
+  145, # Route 26
+  147, # Route 27
+  58, # Route 21
+  # CITIES
+  42, # Pallet Town
+  79, # Viridian City
+  1, # Cerulean City
+  387, # Cerulean City (race)
+  19, # Vermillion City
+  36, # S.S. Anne deck
+  95, # Celadon city
+  436, # Celadon city dept store (roof)
+  472, # Fuchsia city
+  50, # Lavender town
+  108, # Saffron city
+  98, # Cinnabar island
+  167, # Crimson city
+  303, # indigo plateau
+  380, # Pewter city
+  827, # Mt. Moon summit
+  #
+  # DUNGEONS
+  #
+  102, # Mt. Moon
+  103, # Mt. Moon
+  105, # Mt. Moon
+  496, # Mt Moon
+  104, # Mt. Moon
+  494, # Mt. Moon Square
+  140, # Diglett cave
+  398, # Diglett cave
+  399, # Diglett cave
+  349, # Rock tunnel
+  350, # Rock tunnel
+  512, # Rock tunnel (outdoor)
+  445, # Safari Zone 1
+  484, # Safari Zone 2
+  485, # Safari Zone 3
+  486, # Safari Zone 4
+  487, # Safari Zone 5
+  491, # Viridian Forest
+  529, # Mt. Silver entrance
+  777, # Mt. Silver outdoor 1
+  781, # Mt. Silver outdoor 2
+  782, # Mt. Silver
+  783, # Mt. Silver summit
+  400, # Pokemon Tower
+  401, # Pokemon Tower
+  402, # Pokemon Tower
+  403, # Pokemon Tower
+  467, # Pokemon Tower
+  468, # Pokemon Tower
+  469, # Pokemon Tower
+
+]

Data/Scripts/998_InfiniteFusion/Constants/CONSTANTS_PATHS.rb

@@ -0,0 +1,131 @@
+# frozen_string_literal: true
+
+#############
+# VARIABLES #
+#############
+VAR_CURRENT_MART=291
+VAR_CURRENT_CITY_NUMERICAL_ID=14 #for wondertrade/pokemarts
+
+
+VAR_SINGLE_POKEMON_MODE=251
+SINGLE_POKEMON_MODE_VAR=251 #c'est appellé comme ca en qqpart dans un event pis ca me tente pas de chercher ou
+
+VAR_WILD_FUSION_RATE=210
+VAR_ODDKEYSTONE_NB=252
+VAR_DEFAULT_BATTLE_TYPE = 242
+VAR_BATTLE_FACTORY_TOKENS = 243
+VAR_NB_GYM_REMATCHES = 162
+VAR_CUSTOM_SPRITES_ENABLED= 196
+VAR_COMMAND_WINDOW_INDEX=249
+VAR_STANDARD_WONDERTRADE_LEFT=248
+VAR_PREMIUM_WONDERTRADE_LEFT=111
+VAR_PREMIUM_WONDERTRADE_LEFT=111
+VAR_RIVAL_STARTER=250
+VAR_FUSION_ICON_STYLE=220
+VAR_SHINY_HUE_OFFSET=275
+VAR_CURRENT_HIDDEN_MAP = 226
+VAR_FUSE_COUNTER = 126
+
+VAR_STAT_RARE_CANDY=265
+VAR_STAT_LEADER_REMATCH=162
+VAR_STAT_NB_FUSIONS=126
+VAR_STAT_NB_ELITE_FOUR=174
+VAR_STAT_NB_WONDERTRADES=164
+VAR_STAT_CLOWN_TIP_TOTAL=100
+VAR_STAT_NB_SANDCASTLES=163
+VAR_STAT_GAMBLER_WINS=43
+VAR_STAT_GAMBLER_LOSSES=44
+VAR_STAT_HOTELS_SPENT=225
+VAR_NB_EGGS_HATCHED=298
+
+
+VAR_STAT_QUESTS_ACCEPTED=96
+VAR_STAT_QUESTS_COMPLETED=98
+VAR_NB_ROCKET_MISSIONS = 286
+
+VAR_BOUTIQUE_OUTFIT=290
+VAR_FISHING_CONTEST_RECORD=294
+VAR_FISHING_CONTEST_NERF=333
+
+
+
+VAR_STAT_NB_SECRETS=193
+VAR_STAT_FUSION_QUIZ_HIGHEST_SCORE=267
+VAR_STAT_FUSION_QUIZ_NB_TIMES=268
+VAR_STAT_FUSION_QUIZ_TOTAL_PTS=269
+VAR_KARMA=222
+VAR_NB_QUEST_ACTIVE=97
+VAR_NB_QUEST_COMPLETED=98
+
+
+VAR_LUNAR_FEATHERS=282
+
+VAR_FOSSIL=271
+
+VAR_SSANNE_MENU=313
+VAR_TEMP_SSANNE_ORDER=314
+VAR_TEMP_SSANNE_PLATE=325
+VAR_SSANNE_DISHES_HELD_ARRAY=316
+
+VAR_BATTLE_TOWER_MIN_BST = 257
+VAR_BATTLE_TOWER_MAX_BST = 258
+
+VAR_GALLERY_FEATURED_ARTIST = 259
+VAR_GALLERY_FEATURED_SPRITES = 260
+VAR_GALLERY_ALL_ARTIST_SPRITES = 261
+VAR_GALLERY_SELECTED_ARTIST = 263
+VAR_NEXT_ARTIST_FORMATTED = 264
+
+VAR_RADIO_POINTS=266
+VAR_TRAINER_GENDER=52
+VAR_TRAINER_AGE=99
+VAR_ROCKET_NAME=25
+
+VAR_NB_CRIMES_REPORTED=300
+VAR_EXOTIC_POKEMON_ID=327
+VAR_TYPE_EXPERTS_BEATEN=332
+TOTAL_NB_TYPE_EXPERTS=331
+
+#Randomizer
+VAR_RANDOMIZER_WILD_POKE_BST=197
+VAR_RANDOMIZER_TRAINER_BST=195
+VAR_GYM_TYPES_ARRAY=151
+VAR_CURRENT_GYM_TYPE=152
+
+#constellations
+VAR_CONSTELLATION_IVYSAUR=301
+VAR_CONSTELLATION_WARTORTLE=302
+VAR_CONSTELLATION_ARCANINE=303
+VAR_CONSTELLATION_MACHOKE=304
+VAR_CONSTELLATION_RAPIDASH=305
+VAR_CONSTELLATION_GYARADOS=306
+VAR_CONSTELLATION_ARTICUNO=307
+VAR_CONSTELLATION_MEW=308
+VAR_CONSTELLATION_POLITOED=309
+VAR_CONSTELLATION_URSARING=310
+VAR_CONSTELLATION_LUGIA=311
+VAR_CONSTELLATION_HOOH=312
+VAR_CONSTELLATION_CELEBI=313
+VAR_CONSTELLATION_SLAKING=314
+VAR_CONSTELLATION_JIRACHI=315
+VAR_CONSTELLATION_TYRANTRUM=316
+VAR_CONSTELLATION_SHARPEDO=317
+VAR_CONSTELLATION_ARCEUS=318
+
+VAR_LATEST_CONSTELLATION=319
+VAR_TRAINER_CARD_BACKGROUND_PRICE=329
+VAR_GALLERY_TEAM_FLAGS=330
+
+VAR_REGI_PUZZLE_SWITCH_PRESSED = 1122
+##############
+# COMMON EVENTS
+################
+COMMON_EVENT_REGI_TABLET = 84
+COMMON_EVENT_SILHOUETTE = 87
+COMMON_EVENT_HOTEL = 12
+COMMON_EVENT_SINGLESPECIES_MODE = 73
+COMMON_EVENT_OUTFIT = 80
+COMMON_EVENT_FIX_GAME = 16
+COMMON_EVENT_IDLE_HAT = 100
+COMMON_EVENT_PINKAN_WHISTLE = 106
+COMMON_EVENT_PINKAN_BACK_TO_BEGIN = 103

Data/Scripts/998_InfiniteFusion/Constants/CONSTANTS_SWITCHES.rb

@@ -0,0 +1,172 @@
+# frozen_string_literal: true
+
+#############
+# SWITCHES #
+#############
+#Game mode switches
+SWITCH_NEW_GAME_PLUS = 972
+SWITCH_BEAT_MT_SILVER = 918
+BEAT_MT_SILVER = 918 #don't remove this - used in some events
+SWITCH_REVERSED_MODE = 47
+SWITCH_GAME_DIFFICULTY_EASY = 665
+SWITCH_GAME_DIFFICULTY_HARD = 666
+
+SWITCH_MODERN_MODE=974
+SWITCH_EXPERT_MODE=772
+
+SWITCH_V5_1=825
+SWITCH_NO_LEVELS_MODE=774
+SWITCH_DOUBLE_ABILITIES=773
+SWITCH_SINGLE_SPECIES_MODE=790
+#Game progression switches
+SWITCH_DURING_INTRO = 917
+SWITCH_CHOOSING_STARTER=3
+SWITCH_GOT_BADGE_1 = 4
+SWITCH_GOT_BADGE_2 = 5
+SWITCH_GOT_BADGE_3 = 6
+SWITCH_GOT_BADGE_4 = 7
+SWITCH_GOT_BADGE_5 = 8
+SWITCH_GOT_BADGE_6 = 9
+SWITCH_GOT_BADGE_7 = 10
+SWITCH_GOT_BADGE_8 = 11
+SWITCH_BEAT_THE_LEAGUE = 12
+SWITCH_GOT_BADGE_9 = 38
+SWITCH_GOT_BADGE_10 = 39
+SWITCH_GOT_BADGE_11 = 40
+SWITCH_GOT_BADGE_12 = 41
+SWITCH_GOT_BADGE_13 = 43
+SWITCH_GOT_BADGE_14 = 44
+SWITCH_GOT_BADGE_15 = 45
+SWITCH_GOT_BADGE_16 = 50
+SWITCH_KANTO_DARKNESS = 701
+SWITCH_KANTO_DARKNESS_STAGE_1 = 702
+SWITCH_KANTO_DARKNESS_STAGE_2 = 703
+SWITCH_KANTO_DARKNESS_STAGE_3 = 704
+SWITCH_KANTO_DARKNESS_STAGE_4 = 705
+
+SWITCH_ORICORIO_QUEST_PINK = 672
+SWITCH_ORICORIO_QUEST_RED = 673
+SWITCH_ORICORIO_QUEST_BLUE = 674
+SWITCH_ORICORIO_QUEST_IN_PROGRESS = 680
+
+SWITCH_PICKED_HELIC_FOSSIL= 65
+SWITCH_PICKED_DOME_FOSSIL= 66
+
+SWITCH_PICKED_LILEEP_FOSSIL= 589
+SWITCH_PICKED_ANORITH_FOSSIL= 90
+
+SWITCH_PICKED_ARMOR_FOSSIL= 616
+SWITCH_PICKED_SKULL_FOSSIL= 617
+
+SWITCH_NIGHTMARE_EFFECT= 805
+
+SWITCH_JOHTO_STARTERS=884
+SWITCH_HOENN_STARTERS=885
+SWITCH_SINNOH_STARTERS=886
+SWITCH_KALOS_STARTERS=888
+
+SWITCH_CUSTOM_STARTERS=883
+
+SWITCH_JOINED_TEAM_ROCKET=1037
+SWITCH_PINKAN_SIDE_ROCKET=1099
+SWITCH_PINKAN_SIDE_POLICE=1100
+SWITCH_LEAVING_PINKAN_ISLAND=1113
+SWITCH_BLOCK_PINKAN_WHISTLE=1111
+SWITCH_PINKAN_FINISHED=1119
+
+VAR_ORICORIO_FLOWERS = 276
+#Randomizer Switches
+SWITCH_RANDOM_WILD_TO_FUSION=953
+SWITCH_RANDOMIZED_AT_LEAST_ONCE = 855
+ENABLED_DEBUG_MODE_AT_LEAST_ONCE = 842
+
+SWITCH_RANDOM_WILD = 778
+SWITCH_RANDOM_WILD_AREA = 777
+
+SWITCH_RANDOM_TRAINERS = 987
+SWITCH_RANDOM_STARTERS = 954
+SWITCH_RANDOM_STARTER_FIRST_STAGE = 771
+
+SWITCH_RANDOM_ITEMS_GENERAL=759
+SWITCH_RANDOM_ITEMS=751
+SWITCH_RANDOM_FOUND_ITEMS=755
+SWITCH_RANDOM_ITEMS_DYNAMIC = 958
+SWITCH_RANDOM_ITEMS_MAPPED = 752
+
+SWITCH_RANDOM_TMS = 758
+SWITCH_RANDOM_GIVEN_ITEMS = 756
+SWITCH_RANDOM_GIVEN_TMS = 757
+SWITCH_RANDOM_SHOP_ITEMS = 754
+
+
+SWITCH_RANDOM_FOUND_TMS = 959
+SWITCH_WILD_RANDOM_GLOBAL=956
+SWITCH_RANDOM_STATIC_ENCOUNTERS=955
+SWITCH_RANDOM_WILD_ONLY_CUSTOMS=664
+SWITCH_RANDOM_GYM_PERSIST_TEAMS=663
+SWITCH_GYM_RANDOM_EACH_BATTLE = 668
+SWITCH_RANDOM_GYM_CUSTOMS=662
+SWITCH_RANDOMIZE_GYMS_SEPARATELY = 667
+SWITCH_RANDOMIZED_GYM_TYPES=921
+SWITCH_RANDOM_GIFT_POKEMON = 780
+SWITCH_RANDOM_HELD_ITEMS = 843
+SWITCH_DEFINED_RIVAL_STARTER=840
+SWITCH_RANDOMIZED_WILD_POKEMON_TO_FUSIONS=829
+
+SWITCH_RANDOM_WILD_LEGENDARIES=1031
+SWITCH_RANDOM_TRAINER_LEGENDARIES=1032
+SWITCH_RANDOM_GYM_LEGENDARIES=1033
+SWITCH_DONT_RANDOMIZE=890
+
+#Other switches
+SWITCH_RACE_BIKE = 984
+SWITCH_IS_REMATCH=200
+SWITCH_SINGLE_POKEMON_MODE=790
+SWITCH_SINGLE_POKEMON_MODE_HEAD=791
+SWITCH_SINGLE_POKEMON_MODE_BODY=792
+SWITCH_SINGLE_POKEMON_MODE_RANDOM=793
+SWITCH_FISHING_AUTOHOOK = 916
+SWITCH_FUSED_WILD_POKEMON=35
+SWITCH_FORCE_FUSE_NEXT_POKEMON=37
+SWITCH_FORCE_ALL_WILD_FUSIONS=828
+SWITCH_USED_AN_INCENSE=798
+SWITCH_FIRST_RIVAL_BATTLE=46
+SWITCH_BATTLE_FACTORY_INCLUDE_ALL = 775
+SWITCH_SUPER_SLOW_SPEED=649
+SWITCH_LOUNGE_BATTLE_LEVEL = 240
+SWITCH_CANNOT_CATCH_POKEMON = 75
+SWITCH_UNLOCKED_POKEMON_HATS = 770
+SWITCH_ILEX_FOREST_SPOOKED_POKEMON = 1021
+
+SWITCH_LOCK_PLAYER_MOVEMENT = 815
+SWITCH_TEAMED_WITH_ERIKA_SEWERS=141
+SWITCH_BAND_DRUMMER = 1004
+SWITCH_BAND_ACOUSTIC_GUITAR = 1005
+SWITCH_BAND_ELECTRIC_GUITAR = 1006
+SWITCH_BAND_HARP = 1007
+SWITCH_BAND_FLUTE = 1008
+
+SWITCH_SELECTING_CLOTHES = 804
+
+SWITCH_KANTO_HAIR_COLLECTION = 1059
+SWITCH_JOHTO_HAIR_COLLECTION = 1060
+SWITCH_HOENN_HAIR_COLLECTION = 1061
+SWITCH_SINNOH_HAIR_COLLECTION = 1062
+SWITCH_UNOVA_HAIR_COLLECTION = 1063
+SWITCH_KALOS_HAIR_COLLECTION = 1064
+SWITCH_ALOLA_HAIR_COLLECTION = 1065
+SWITCH_GALAR_HAIR_COLLECTION = 1066
+SWITCH_PALDEA_HAIR_COLLECTION = 1067
+SWITCH_GEN10_HAIR_COLLECTION = 1068
+
+SWITCH_SS_ANNE_DEPARTED = 88
+SWITCH_SNORLAX_GONE_ROUTE_12 = 110
+SWITCH_TELEPORT_NPC = 122
+SWITCH_GOT_DIVE = 317
+SWITCH_GOT_ROCK_CLIMB = 661
+SWITCH_GOT_WATERFALL = 388
+
+SWITCH_UPDATED_TO_SPRITESHEETS_SPRITES=1117
+#OUTFITS
+#
+WEARING_ROCKET_OUTFIT = 1038

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

@@ -0,0 +1,323 @@
+def getPokemonPositionInParty(pokemon)
+  for i in 0..$player.party.length
+    if $player.party[i] == pokemon
+      return i
+    end
+  end
+  return -1
+end
+
+# don't remember why there's two Supersplicers arguments.... probably a mistake
+def pbDNASplicing(pokemon, scene, item = :DNASPLICERS)
+  is_supersplicer = isSuperSplicersMechanics(item)
+
+  playingBGM = $game_system.getPlayingBGM
+  dexNumber = pokemon.species_data.id_number
+  if (pokemon.species_data.id_number <= NB_POKEMON)
+    if pokemon.fused != nil
+      if $player.party.length >= 6
+        scene.pbDisplay(_INTL("Your party is full! You can't unfuse {1}.", pokemon.name))
+        return false
+      else
+        $player.party[$player.party.length] = pokemon.fused
+        pokemon.fused = nil
+        pokemon.form = 0
+        scene.pbHardRefresh
+        scene.pbDisplay(_INTL("{1} changed Forme!", pokemon.name))
+        return true
+      end
+    else
+      chosen = scene.pbChoosePokemon(_INTL("Fuse with which Pokémon?"))
+      if chosen >= 0
+        poke2 = $player.party[chosen]
+        if (poke2.species_data.id_number <= NB_POKEMON) && poke2 != pokemon
+          # check if fainted
+
+          if pokemon.egg? || poke2.egg?
+            scene.pbDisplay(_INTL("It's impossible to fuse an egg!"))
+            return false
+          end
+          if pokemon.hp == 0 || poke2.hp == 0
+            scene.pbDisplay(_INTL("A fainted Pokémon cannot be fused!"))
+            return false
+          end
+
+          selectedHead = selectFusion(pokemon, poke2, is_supersplicer)
+          if selectedHead == -1 # cancelled
+            return false
+          end
+          if selectedHead == nil # can't fuse (egg, etc.)
+            scene.pbDisplay(_INTL("It won't have any effect."))
+            return false
+          end
+          selectedBase = selectedHead == pokemon ? poke2 : pokemon
+
+          firstOptionSelected = selectedHead == pokemon
+          if !firstOptionSelected
+            chosen = getPokemonPositionInParty(pokemon)
+            if chosen == -1
+              scene.pbDisplay(_INTL("There was an error..."))
+              return false
+            end
+          end
+
+          if (Kernel.pbConfirmMessage(_INTL("Fuse {1} and {2}?", selectedHead.name, selectedBase.name)))
+            pbFuse(selectedHead, selectedBase, item)
+            pbRemovePokemonAt(chosen)
+            scene.pbHardRefresh
+            pbBGMPlay(playingBGM)
+            return true
+          end
+
+        elsif pokemon == poke2
+          scene.pbDisplay(_INTL("{1} can't be fused with itself!", pokemon.name))
+          return false
+        else
+          scene.pbDisplay(_INTL("{1} can't be fused with {2}.", poke2.name, pokemon.name))
+          return false
+        end
+      else
+        return false
+      end
+    end
+  else
+    # UNFUSE
+    return true if pbUnfuse(pokemon, scene, is_supersplicer)
+  end
+end
+
+def selectFusion(pokemon, poke2, supersplicers = false)
+  return nil if !pokemon.is_a?(Pokemon) || !poke2.is_a?(Pokemon)
+  return nil if pokemon.egg? || poke2.egg?
+
+  selectorWindow = FusionPreviewScreen.new(poke2, pokemon, supersplicers) # PictureWindow.new(picturePath)
+  selectedHead = selectorWindow.getSelection
+  selectorWindow.dispose
+  return selectedHead
+end
+
+# firstOptionSelected= selectedHead == pokemon
+# selectedBody = selectedHead == pokemon ? poke2 : pokemon
+# newid = (selectedBody.species_data.id_number) * NB_POKEMON + selectedHead.species_data.id_number
+
+# def pbFuse(pokemon, poke2, supersplicers = false)
+#   newid = (pokemon.species_data.id_number) * NB_POKEMON + poke2.species_data.id_number
+#   previewwindow = FusionPreviewScreen.new(pokemon, poke2)#PictureWindow.new(picturePath)
+#
+#   if (Kernel.pbConfirmMessage(_INTL("Fuse the two Pokémon?", newid)))
+#     previewwindow.dispose
+#     fus = PokemonFusionScene.new
+#     if (fus.pbStartScreen(pokemon, poke2, newid))
+#       returnItemsToBag(pokemon, poke2)
+#       fus.pbFusionScreen(false, supersplicers)
+#       $game_variables[126] += 1 #fuse counter
+#       fus.pbEndScreen
+#       return true
+#     end
+#   else
+#     previewwindow.dispose
+#     return false
+#   end
+# end
+
+def pbFuse(pokemon_body, pokemon_head, splicer_item)
+  use_supersplicers_mechanics = isSuperSplicersMechanics(splicer_item)
+
+  newid = (pokemon_body.species_data.id_number) * NB_POKEMON + pokemon_head.species_data.id_number
+  fus = PokemonFusionScene.new
+
+  if (fus.pbStartScreen(pokemon_body, pokemon_head, newid, splicer_item))
+    returnItemsToBag(pokemon_body, pokemon_head)
+    fus.pbFusionScreen(false, use_supersplicers_mechanics)
+    $game_variables[VAR_FUSE_COUNTER] += 1 # fuse counter
+    fus.pbEndScreen
+    return true
+  end
+end
+
+# Todo: refactor this, holy shit this is a mess
+def pbUnfuse(pokemon, scene, supersplicers, pcPosition = nil)
+  if pokemon.species_data.id_number > (NB_POKEMON * NB_POKEMON) + NB_POKEMON # triple fusion
+    scene.pbDisplay(_INTL("{1} cannot be unfused.", pokemon.name))
+    return false
+  end
+  if pokemon.owner.name  == "RENTAL"
+    scene.pbDisplay(_INTL("You cannot unfuse a rental pokémon!"))
+    return
+  end
+
+  pokemon.spriteform_body = nil
+  pokemon.spriteform_head = nil
+
+  bodyPoke = getBasePokemonID(pokemon.species_data.id_number, true)
+  headPoke = getBasePokemonID(pokemon.species_data.id_number, false)
+
+  if (pokemon.foreign?($player)) # && !canunfuse
+    scene.pbDisplay(_INTL("You can't unfuse a Pokémon obtained in a trade!"))
+    return false
+  else
+    if Kernel.pbConfirmMessageSerious(_INTL("Should {1} be unfused?", pokemon.name))
+      keepInParty = 0
+      if $player.party.length >= 6 && !pcPosition
+
+        message = "Your party is full! Keep which Pokémon in party?"
+        message = "Your party is full! Keep which Pokémon in party? The other will be released." if isOnPinkanIsland()
+        scene.pbDisplay(_INTL(message))
+        selectPokemonMessage = "Select a Pokémon to keep in your party."
+        selectPokemonMessage = "Select a Pokémon to keep in your party. The other will be released" if isOnPinkanIsland()
+        choice = Kernel.pbMessage(selectPokemonMessage, [_INTL("{1}", PBSpecies.getName(bodyPoke)), _INTL("{1}", PBSpecies.getName(headPoke)), "Cancel"], 2)
+        if choice == 2
+          return false
+        else
+          keepInParty = choice
+        end
+      end
+
+      scene.pbDisplay(_INTL("Unfusing ... "))
+      scene.pbDisplay(_INTL(" ... "))
+      scene.pbDisplay(_INTL(" ... "))
+
+      if pokemon.exp_when_fused_head == nil || pokemon.exp_when_fused_body == nil
+        new_level = calculateUnfuseLevelOldMethod(pokemon, supersplicers)
+        body_level = new_level
+        head_level = new_level
+        poke1 = Pokemon.new(bodyPoke, body_level)
+        poke2 = Pokemon.new(headPoke, head_level)
+      else
+        exp_body = pokemon.exp_when_fused_body + pokemon.exp_gained_since_fused
+        exp_head = pokemon.exp_when_fused_head + pokemon.exp_gained_since_fused
+
+        poke1 = Pokemon.new(bodyPoke, pokemon.level)
+        poke2 = Pokemon.new(headPoke, pokemon.level)
+        poke1.exp = exp_body
+        poke2.exp = exp_head
+      end
+      body_level = poke1.level
+      head_level = poke2.level
+
+      pokemon.exp_gained_since_fused = 0
+      pokemon.exp_when_fused_head = nil
+      pokemon.exp_when_fused_body = nil
+
+      if pokemon.shiny?
+        pokemon.shiny = false
+        if pokemon.bodyShiny? && pokemon.headShiny?
+          pokemon.shiny = true
+          poke2.shiny = true
+          pokemon.natural_shiny = true if pokemon.natural_shiny && !pokemon.debug_shiny
+          poke2.natural_shiny = true if pokemon.natural_shiny && !pokemon.debug_shiny
+        elsif pokemon.bodyShiny?
+          pokemon.shiny = true
+          poke2.shiny = false
+          pokemon.natural_shiny = true if pokemon.natural_shiny && !pokemon.debug_shiny
+        elsif pokemon.headShiny?
+          poke2.shiny = true
+          pokemon.shiny = false
+          poke2.natural_shiny = true if pokemon.natural_shiny && !pokemon.debug_shiny
+        else
+          # shiny was obtained already fused
+          if rand(2) == 0
+            pokemon.shiny = true
+          else
+            poke2.shiny = true
+          end
+        end
+      end
+
+      fused_pokemon_learned_moved = pokemon.learned_moves
+      pokemon.learned_moves = fused_pokemon_learned_moved
+      poke2.learned_moves = fused_pokemon_learned_moved
+
+      pokemon.ability_index = pokemon.body_original_ability_index if pokemon.body_original_ability_index
+      poke2.ability_index = pokemon.head_original_ability_index if pokemon.head_original_ability_index
+
+      pokemon.ability2_index = nil
+      pokemon.ability2 = nil
+      poke2.ability2_index = nil
+      poke2.ability2 = nil
+
+      pokemon.debug_shiny = true if pokemon.debug_shiny && pokemon.body_shiny
+      poke2.debug_shiny = true if pokemon.debug_shiny && poke2.head_shiny
+
+      pokemon.body_shiny = false
+      pokemon.head_shiny = false
+
+      if !pokemon.shiny?
+        pokemon.debug_shiny = false
+      end
+      if !poke2.shiny?
+        poke2.debug_shiny = false
+      end
+
+      if $player.party.length >= 6
+        if (keepInParty == 0)
+          if isOnPinkanIsland()
+            scene.pbDisplay(_INTL("{1} was released.", poke2.name))
+          else
+            $PokemonStorage.pbStoreCaught(poke2)
+            scene.pbDisplay(_INTL("{1} was sent to the PC.", poke2.name))
+          end
+        else
+          poke2 = Pokemon.new(bodyPoke, body_level)
+          poke1 = Pokemon.new(headPoke, head_level)
+
+          # Fusing from PC
+          if pcPosition != nil
+            box = pcPosition[0]
+            index = pcPosition[1]
+            # todo: store at next available position from current position
+            $PokemonStorage.pbStoreCaught(poke2)
+          else
+            # Fusing from party
+            if isOnPinkanIsland()
+              scene.pbDisplay(_INTL("{1} was released.", poke2.name))
+            else
+              $PokemonStorage.pbStoreCaught(poke2)
+              scene.pbDisplay(_INTL("{1} was sent to the PC.", poke2.name))
+            end
+          end
+        end
+      else
+        if pcPosition != nil
+          box = pcPosition[0]
+          index = pcPosition[1]
+          # todo: store at next available position from current position
+          $PokemonStorage.pbStoreCaught(poke2)
+        else
+          Kernel.pbAddPokemonSilent(poke2, poke2.level)
+        end
+      end
+
+      # On ajoute les poke au pokedex
+      $player.pokedex.set_seen(poke1.species)
+      $player.pokedex.set_owned(poke1.species)
+      $player.pokedex.set_seen(poke2.species)
+      $player.pokedex.set_owned(poke2.species)
+
+      pokemon.species = poke1.species
+      pokemon.level = poke1.level
+      pokemon.name = poke1.name
+      pokemon.moves = poke1.moves
+      pokemon.obtain_method = 0
+      poke1.obtain_method = 0
+
+      # scene.pbDisplay(_INTL(p1.to_s + " " + p2.to_s))
+      scene.pbHardRefresh
+      scene.pbDisplay(_INTL("Your Pokémon were successfully unfused! "))
+      return true
+    end
+  end
+end# frozen_string_literal: true
+
+
+def returnItemsToBag(pokemon, poke2)
+
+  it1 = pokemon.item
+  it2 = poke2.item
+
+  $PokemonBag.pbStoreItem(it1, 1) if it1 != nil
+  $PokemonBag.pbStoreItem(it2, 1) if it2 != nil
+
+  pokemon.item = nil
+  poke2.item = nil
+end

Data/Scripts/998_InfiniteFusion/Fusion/Fusion data/FusedSpecies.rb

@@ -0,0 +1,403 @@
+# module GameData
+#   class FusedSpecies < GameData::Species
+#     attr_reader :growth_rate
+#     attr_reader :body_pokemon
+#     attr_reader :head_pokemon
+#
+#     def initialize(id)
+#       if id.is_a?(Integer)
+#         body_id = getBodyID(id)
+#         head_id = getHeadID(id, body_id)
+#         pokemon_id = getFusedPokemonIdFromDexNum(body_id, head_id)
+#         return GameData::FusedSpecies.new(pokemon_id)
+#       end
+#       head_id = get_head_number_from_symbol(id)
+#       body_id = get_body_number_from_symbol(id)
+#
+#       @body_pokemon = GameData::Species.get(body_id)
+#       @head_pokemon = GameData::Species.get(head_id)
+#
+#       @id = id
+#       @id_number = calculate_dex_number()
+#       @species = @id
+#       @form = 0
+#       @real_name = calculate_name()
+#       @real_form_name = nil
+#
+#       @type1 = calculate_type1()
+#       @type2 = calculate_type2()
+#
+#       #Stats
+#       @base_stats = calculate_base_stats()
+#       @evs = calculate_evs()
+#       adjust_stats_with_evs()
+#
+#       @base_exp = calculate_base_exp()
+#       @growth_rate = calculate_growth_rate()
+#       @gender_ratio = calculate_gender() #todo
+#       @catch_rate = calculate_catch_rate()
+#       @happiness = calculate_base_happiness()
+#
+#       #Moves
+#       @moves = calculate_moveset()
+#       @tutor_moves = calculate_tutor_moves() # hash[:tutor_moves] || []
+#       @egg_moves = calculate_egg_moves() # hash[:egg_moves] || []
+#
+#       #Abilities
+#       @abilities = calculate_abilities() # hash[:abilities] || []
+#       @hidden_abilities = calculate_hidden_abilities() # hash[:hidden_abilities] || []
+#
+#       #wild held items
+#       @wild_item_common = get_wild_item(@head_pokemon.wild_item_common, @body_pokemon.wild_item_common) # hash[:wild_item_common]
+#       @wild_item_uncommon = get_wild_item(@head_pokemon.wild_item_uncommon, @body_pokemon.wild_item_uncommon) # hash[:wild_item_uncommon]
+#       @wild_item_rare = get_wild_item(@head_pokemon.wild_item_rare, @body_pokemon.wild_item_rare) #  hash[:wild_item_rare]
+#
+#       @evolutions = calculate_evolutions() # hash[:evolutions] || []
+#
+#       #breeding
+#       @egg_groups = [:Undiscovered] #calculate_egg_groups() # hash[:egg_groups] || [:Undiscovered]
+#       @hatch_steps = calculate_hatch_steps() #  hash[:hatch_steps] || 1
+#       @incense = nil #hash[:incense]
+#
+#       #pokedex
+#       @pokedex_form = @form #ignored
+#       @real_category = calculate_category()
+#       @real_pokedex_entry = calculate_dex_entry()
+#       @height = average_values(@head_pokemon.height, @body_pokemon.height)
+#       @weight = average_values(@head_pokemon.weight, @body_pokemon.weight)
+#       @color = @head_pokemon.color
+#       @shape = @body_pokemon.shape
+#
+#       #sprite positioning
+#       @back_sprite_x = @body_pokemon.back_sprite_x
+#       @back_sprite_y = @body_pokemon.back_sprite_y
+#       @front_sprite_x = @body_pokemon.front_sprite_x
+#       @front_sprite_y = @body_pokemon.front_sprite_y
+#       @front_sprite_altitude = @body_pokemon.front_sprite_altitude
+#       @shadow_x = @body_pokemon.shadow_x
+#       @shadow_size = @body_pokemon.shadow_size
+#
+#       # #unused attributes from Species class
+#       #
+#       # @shape = :Head
+#       # @habitat = :None
+#       # @generation = 0
+#       # @mega_stone = nil
+#       # @mega_move = nil
+#       # @unmega_form = 0
+#       # @mega_message = 0
+#     end
+#
+#     def get_body_number_from_symbol(id)
+#       return id.to_s.match(/\d+/)[0].to_i
+#     end
+#
+#     def get_head_number_from_symbol(id)
+#       return id.to_s.match(/(?<=H)\d+/)[0].to_i
+#     end
+#
+#     def get_body_species
+#       return @body_pokemon.id_number
+#     end
+#
+#     def get_head_species
+#       return @head_pokemon.id_number
+#     end
+#
+#     def get_body_species_symbol
+#       return @body_pokemon.id
+#     end
+#
+#     def get_head_species_symbol
+#       return @head_pokemon.id
+#     end
+#
+#     def adjust_stats_with_evs
+#       GameData::Stat.each_main do |s|
+#         @base_stats[s.id] = 1 if !@base_stats[s.id] || @base_stats[s.id] <= 0
+#         @evs[s.id] = 0 if !@evs[s.id] || @evs[s.id] < 0
+#       end
+#     end
+#
+#     #FUSION CALCULATIONS
+#     def calculate_dex_number()
+#       return (@body_pokemon.id_number * NB_POKEMON) + @head_pokemon.id_number
+#     end
+#
+#     def calculate_type1()
+#       return @head_pokemon.type2 if @head_pokemon.type1 == :NORMAL && @head_pokemon.type2 == :FLYING
+#       return @head_pokemon.type1
+#     end
+#
+#     def calculate_type2()
+#       return @body_pokemon.type1 if @body_pokemon.type2 == @type1
+#       return @body_pokemon.type2
+#     end
+#
+#     def calculate_base_stats()
+#       head_stats = @head_pokemon.base_stats
+#       body_stats = @body_pokemon.base_stats
+#
+#       fused_stats = {}
+#
+#       #Head dominant stats
+#       fused_stats[:HP] = calculate_fused_stats(head_stats[:HP], body_stats[:HP])
+#       fused_stats[:SPECIAL_DEFENSE] = calculate_fused_stats(head_stats[:SPECIAL_DEFENSE], body_stats[:SPECIAL_DEFENSE])
+#       fused_stats[:SPECIAL_ATTACK] = calculate_fused_stats(head_stats[:SPECIAL_ATTACK], body_stats[:SPECIAL_ATTACK])
+#
+#       #Body dominant stats
+#       fused_stats[:ATTACK] = calculate_fused_stats(body_stats[:ATTACK], head_stats[:ATTACK])
+#       fused_stats[:DEFENSE] = calculate_fused_stats(body_stats[:DEFENSE], head_stats[:DEFENSE])
+#       fused_stats[:SPEED] = calculate_fused_stats(body_stats[:SPEED], head_stats[:SPEED])
+#
+#       return fused_stats
+#     end
+#
+#     def calculate_base_exp()
+#       head_exp = @head_pokemon.base_exp
+#       body_exp = @body_pokemon.base_exp
+#       return average_values(head_exp, body_exp)
+#     end
+#
+#     def calculate_catch_rate
+#       return get_lowest_value(@body_pokemon.catch_rate, @head_pokemon.catch_rate)
+#     end
+#
+#     def calculate_base_happiness
+#       return @head_pokemon.happiness
+#     end
+#
+#     def calculate_moveset
+#       return combine_arrays(@body_pokemon.moves, @head_pokemon.moves)
+#     end
+#
+#     def calculate_egg_moves
+#       return combine_arrays(@body_pokemon.egg_moves, @head_pokemon.egg_moves)
+#     end
+#
+#     def calculate_tutor_moves
+#       return combine_arrays(@body_pokemon.tutor_moves, @head_pokemon.tutor_moves)
+#     end
+#
+#     def get_wild_item(body_item, head_item)
+#       rand_num = rand(2)
+#       if rand_num == 0
+#         return body_item
+#       else
+#         return head_item
+#       end
+#     end
+#
+#     def calculate_abilities()
+#       abilities_hash = []
+#
+#       ability1 = @body_pokemon.abilities[0]
+#       ability2 = @head_pokemon.abilities[0]
+#       abilities_hash << ability1
+#       abilities_hash << ability2
+#       return abilities_hash
+#     end
+#
+#     # def calculate_abilities(pokemon1, pokemon2)
+#     #   abilities_hash = []
+#     #
+#     #   ability1 = pokemon1.abilities[0]
+#     #   ability2 = pokemon2.abilities[1]
+#     #   if !ability2
+#     #     ability2 = pokemon2.abilities[0]
+#     #   end
+#     #   abilities_hash << ability1
+#     #   abilities_hash << ability2
+#     #   return abilities_hash
+#     # end
+#
+#     def calculate_hidden_abilities()
+#       abilities_hash = []
+#
+#       #First two spots are the other abilities of the two pokemon
+#       ability1 = @body_pokemon.abilities[1]
+#       ability2 = @head_pokemon.abilities[1]
+#       ability1 = @body_pokemon.abilities[0] if !ability1
+#       ability2 = @head_pokemon.abilities[0] if !ability2
+#
+#       abilities_hash << ability1
+#       abilities_hash << ability2
+#
+#       #add the hidden ability for the two base pokemon
+#       hiddenAbility1 = @body_pokemon.hidden_abilities[0]
+#       hiddenAbility1 = ability1 if !hiddenAbility1
+#
+#       hiddenAbility2 = @head_pokemon.hidden_abilities[0]
+#       hiddenAbility2 = ability2 if !hiddenAbility2
+#
+#       abilities_hash << hiddenAbility1
+#       abilities_hash << hiddenAbility2
+#       return abilities_hash
+#     end
+#
+#     def calculate_name()
+#       body_nat_dex = GameData::NAT_DEX_MAPPING[@body_pokemon.id_number] ? GameData::NAT_DEX_MAPPING[@body_pokemon.id_number] : @body_pokemon.id_number
+#       head_nat_dex = GameData::NAT_DEX_MAPPING[@head_pokemon.id_number] ? GameData::NAT_DEX_MAPPING[@head_pokemon.id_number] : @head_pokemon.id_number
+#       begin
+#         prefix = GameData::SPLIT_NAMES[head_nat_dex][0]
+#         suffix = GameData::SPLIT_NAMES[body_nat_dex][1]
+#         if prefix[-1] == suffix[0]
+#           prefix = prefix[0..-2]
+#         end
+#         suffix = suffix.capitalize if prefix.end_with?(" ")
+#         return prefix + suffix
+#
+#       rescue
+#         print("species with error: " + @species.to_s)
+#       end
+#
+#     end
+#
+#     def calculate_evolutions()
+#       body_evolutions = @body_pokemon.evolutions
+#       head_evolutions = @head_pokemon.evolutions
+#
+#       fused_evolutions = []
+#
+#       #body
+#       for evolution in body_evolutions
+#         evolutionSpecies = evolution[0]
+#         evolutionSpecies_dex = GameData::Species.get(evolutionSpecies).id_number
+#         fused_species = _INTL("B{1}H{2}", evolutionSpecies_dex, @head_pokemon.id_number)
+#         fused_evolutions << build_evolution_array(evolution, fused_species)
+#       end
+#
+#       #head
+#       for evolution in head_evolutions
+#         evolutionSpecies = evolution[0]
+#         evolutionSpecies_dex = GameData::Species.get(evolutionSpecies).id_number
+#         fused_species = _INTL("B{1}H{2}", @body_pokemon.id_number, evolutionSpecies_dex)
+#         fused_evolutions << build_evolution_array(evolution, fused_species)
+#       end
+#
+#       return fused_evolutions
+#     end
+#
+#     #Change the evolution species depending if head & body and keep the rest of the data the same
+#     def build_evolution_array(evolution_data, new_species)
+#       fused_evolution_array = []
+#       fused_evolution_array << new_species.to_sym
+#
+#       #add the rest
+#       for data in evolution_data
+#         next if evolution_data.index(data) == 0
+#         fused_evolution_array << data
+#       end
+#       return fused_evolution_array
+#     end
+#
+#     def calculate_dex_entry
+#       body_entry = @body_pokemon.real_pokedex_entry.gsub(@body_pokemon.real_name, @real_name)
+#       head_entry = @head_pokemon.real_pokedex_entry.gsub(@head_pokemon.real_name, @real_name)
+#
+#       return split_and_combine_text(body_entry, head_entry, ".")
+#     end
+#
+#     def get_random_dex_entry()
+#       begin
+#         file_path = Settings::POKEDEX_ENTRIES_PATH
+#         json_data = File.read(file_path)
+#         all_body_entries  = HTTPLite::JSON.parse(json_data)
+#
+#
+#         body_entry = all_body_entries[@body_pokemon.id_number.to_s].sample
+#         body_entry = body_entry.gsub(/#{@body_pokemon.real_name}/i, @real_name)
+#         body_entry = clean_json_string(body_entry).gsub(@body_pokemon.real_name, @real_name)
+#
+#         head_entry = all_body_entries[@head_pokemon.id_number.to_s].sample
+#         head_entry = head_entry.gsub(/#{@head_pokemon.real_name}/i, @real_name)
+#         head_entry = clean_json_string(head_entry).gsub(@head_pokemon.real_name, @real_name)
+#       rescue
+#         body_entry = @body_pokemon.real_pokedex_entry.gsub(@body_pokemon.real_name, @real_name)
+#         head_entry = @head_pokemon.real_pokedex_entry.gsub(@head_pokemon.real_name, @real_name)
+#       end
+#       echoln body_entry
+#       echoln head_entry
+#       combined_entry = split_and_combine_text(body_entry, head_entry, ".")
+#       combined_entry += "." unless combined_entry.end_with?(".")
+#       return combined_entry
+#     end
+#
+#     def calculate_egg_groups
+#       body_egg_groups = @body_pokemon.egg_groups
+#       head_egg_groups = @head_pokemon.egg_groups
+#       return :Undiscovered if body_egg_groups.include?(:Undiscovered) || head_egg_groups.include?(:Undiscovered)
+#       return combine_arrays(body_egg_groups, head_egg_groups)
+#     end
+#
+#     def calculate_hatch_steps
+#       return average_values(@head_pokemon.hatch_steps, @body_pokemon.hatch_steps)
+#     end
+#
+#     def calculate_evs()
+#       return average_map_values(@body_pokemon.evs, @head_pokemon.evs)
+#     end
+#
+#     def calculate_category
+#       return split_and_combine_text(@body_pokemon.category, @head_pokemon.category, " ")
+#     end
+#
+#     def calculate_growth_rate
+#       growth_rate_priority = [:Fast, :Medium, :Parabolic, :Fluctuating, :Erratic, :Slow] #todo rearrange order for balance?
+#       body_growth_rate = @body_pokemon.growth_rate
+#       head_growth_rate = @head_pokemon.growth_rate
+#       base_growth_rates = [body_growth_rate, head_growth_rate]
+#       for rate in growth_rate_priority
+#         return rate if base_growth_rates.include?(rate)
+#       end
+#       return :Medium
+#     end
+#
+#     #TODO
+#     # ################## UNFINISHED ####################
+#     def calculate_gender
+#       return :Genderless
+#     end
+#
+#     #############################  UTIL METHODS ###############################
+#
+#     #Takes 2 strings, splits and combines them using the beginning of the first one and the end of the second one
+#     # (for example for pokedex entries)
+#     def split_and_combine_text(beginingText_full, endText_full, separator)
+#       beginingText_split = beginingText_full.split(separator, 2)
+#       endText_split = endText_full.split(separator, 2)
+#
+#       beginningText = beginingText_split[0]
+#       endText = endText_split[1] && endText_split[1] != "" ? endText_split[1] : endText_split[0]
+#       return beginningText + separator + " " + endText
+#     end
+#
+#     def calculate_fused_stats(dominantStat, otherStat)
+#       return ((2 * dominantStat) / 3) + (otherStat / 3).floor
+#     end
+#
+#     def average_values(value1, value2)
+#       return ((value1 + value2) / 2).floor
+#     end
+#
+#     def average_map_values(map1, map2)
+#       averaged_map = map1.merge(map2) do |key, value1, value2|
+#         ((value1 + value2) / 2.0).floor
+#       end
+#       return averaged_map
+#     end
+#
+#     def get_highest_value(value1, value2)
+#       return value1 > value2 ? value1 : value2
+#     end
+#
+#     def get_lowest_value(value1, value2)
+#       return value1 < value2 ? value1 : value2
+#     end
+#
+#     def combine_arrays(array1, array2)
+#       return array1 + array2
+#     end
+#
+#   end
+# end

Data/Scripts/998_InfiniteFusion/Fusion/Fusion data/fused_species_integration.rb

@@ -0,0 +1,31 @@
+# module GameData
+#   module ClassMethods
+#     def get(other)
+#       validate other => [Symbol, self, String, Integer]
+#       return other if other.is_a?(self)
+#       other = other.to_sym if other.is_a?(String)
+#
+#       if other.to_s.match?(/\AB\d+H\d+\z/)
+#         species = GameData::FusedSpecies.new(other)
+#         return species
+#       end
+#
+#       if other.is_a?(Integer) && self == GameData::Species
+#         if other > NB_POKEMON
+#           body_id = getBodyID(other)
+#           head_id = getHeadID(other, body_id)
+#           pokemon_id = getFusedPokemonIdFromDexNum(body_id, head_id)
+#           return GameData::FusedSpecies.new(pokemon_id)
+#         end
+#       end
+#
+#       if !self::DATA.has_key?(other)
+#         # echoln _INTL("Unknown ID {1}.", other)
+#         return self::get(:PIKACHU)
+#       end
+#
+#       raise "Unknown ID #{other}." unless self::DATA.has_key?(other)
+#       return self::DATA[other]
+#     end
+#   end
+# end

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", $player.name, pokemon.name))
+  pbNicknameAndStore(pokemon)
+  #$player.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
+

Data/Scripts/998_InfiniteFusion/Gameplay/PokeMart/ClothesMart.rb

@@ -0,0 +1,29 @@
+# frozen_string_literal: true
+
+def pokemart_clothes_shop(current_city = nil, include_defaults = true)
+  current_city = pbGet(VAR_CURRENT_MART) if !current_city
+  echoln current_city
+  current_city = :PEWTER if !current_city.is_a?(Symbol)
+  current_city_tag = current_city.to_s.downcase
+  selector = OutfitSelector.new
+  list = selector.generate_clothes_choice(
+    baseOptions = include_defaults,
+    additionalIds = [],
+    additionalTags = [current_city_tag],
+    filterOutTags = [])
+  clothesShop(list)
+end
+
+def pokemart_hat_shop(include_defaults = true)
+  current_city = pbGet(VAR_CURRENT_MART)
+  current_city = :PEWTER if !current_city.is_a?(Symbol)
+  current_city_tag = current_city.to_s.downcase
+  selector = OutfitSelector.new
+  list = selector.generate_hats_choice(
+    baseOptions = include_defaults,
+    additionalIds = [],
+    additionalTags = [current_city_tag],
+    filterOutTags = [])
+
+  hatShop(list)
+end

Data/Scripts/998_InfiniteFusion/Gameplay/PokeMart/ExclusiveItems.rb

@@ -0,0 +1,53 @@
+def get_mart_exclusive_items(city)
+  items_list = []
+  case city
+  when :PEWTER;
+    items_list = [:ROCKGEM, :NESTBALL]
+  when :VIRIDIAN;
+    items_list = []
+  when :CERULEAN;
+    items_list = [:WATERGEM, :NETBALL, :PRETTYWING]
+  when :VERMILLION;
+    items_list = [:LOVEBALL, :ELECTRICGEM]
+  when :LAVENDER;
+    items_list = [:GHOSTGEM, :DARKGEM, :DUSKBALL]
+  when :CELADON;
+    items_list = [:GRASSGEM, :FLYINGGEM, :QUICKBALL, :TIMERBALL,]
+  when :FUCHSIA;
+    items_list = [:POISONGEM, :REPEATBALL]
+  when :SAFFRON;
+    items_list = [:PSYCHICGEM, :FIGHTINGGEM, :FRIENDBALL]
+  when :CINNABAR;
+    items_list = [:FIREGEM, :ICEGEM, :HEAVYBALL]
+  when :CRIMSON;
+    items_list = [:DRAGONGEM, :LEVELBALL]
+  when :GOLDENROD;
+    items_list = [:EVERSTONE, :MOONSTONE, :SUNSTONE, :DUSKSTONE, :DAWNSTONE, :SHINYSTONE]
+  when :AZALEA;
+    items_list = [:BUGGEM]
+  when :VIOLET;
+    items_list = [:FLYINGGEM, :STATUSBALL]
+  when :BLACKTHORN;
+    items_list = [:DRAGONGEM, :CANDYBALL]
+  when :CHERRYGROVE;
+    items_list = [:BUGGEM, :PUREBALL]
+  when :MAHOGANY;
+    items_list = []
+  when :ECRUTEAK;
+    items_list = [:GHOSTGEM, :DARKGEM]
+  when :OLIVINE;
+    items_list = []
+  when :CIANWOOD;
+    items_list = []
+  when :KNOTISLAND;
+    items_list = []
+  when :BOONISLAND;
+    items_list = []
+  when :KINISLAND;
+    items_list = []
+  when :CHRONOISLAND;
+    items_list = []
+  end
+  return items_list
+end# frozen_string_literal: true
+

Data/Scripts/998_InfiniteFusion/Gameplay/PokeMart/PokemartMapTransfers.rb

@@ -0,0 +1,87 @@
+# frozen_string_literal: true
+
+# Necessary dor setting the various events within the pokemart map, uses the numbers as wondertrade
+def get_city_numerical_id(city_sym)
+  current_city_numerical = {
+    :PEWTER => 1,
+    :CERULEAN => 2,
+    :VERMILLION => 3,
+    :LAVENDER => 4,
+    :CELADON => 5,
+    :FUCHSIA => 6,
+    :SAFFRON => 7,
+    :CINNABAR => 8,
+    :LEAGUE => 9,
+    :VIOLET => 10,
+    :AZALEA => 11,
+    :GOLDENROD => 12,
+    :ECRUTEAK => 13,
+    :MAHOGANY => 14,
+    :BLACKTHORN => 15,
+    :OLIVINE => 16,
+    :CIANWOOD => 17,
+    :KNOTISLAND => 18,
+    :BOONISLAND => 19,
+    :KINISLAND => 20,
+    :CHRONOISLAND => 21,
+    :CRIMSON => 22,
+  }
+  return current_city_numerical[city_sym]
+end
+
+POKEMART_MAP_ID = 357
+POKEMART_DOOR_POS = [12, 12]
+# city -> Symbol
+def enter_pokemart(city)
+  pbSet(VAR_CURRENT_MART, city)
+  pbSet(VAR_CURRENT_CITY_NUMERICAL_ID, get_city_numerical_id(city))
+  echoln get_city_numerical_id(city)
+  pbFadeOutIn {
+    $game_temp.player_new_map_id = POKEMART_MAP_ID
+    $game_temp.player_new_x = POKEMART_DOOR_POS[0]
+    $game_temp.player_new_y = POKEMART_DOOR_POS[1]
+    $scene.transfer_player(true)
+    $game_map.autoplay
+    $game_map.refresh
+  }
+end
+
+def exit_pokemart()
+  pokemart_entrances = {
+    :PEWTER => [380, 43, 24],
+    :CERULEAN => [1, 24, 22],
+    :VERMILLION => [19, 32, 13],
+    :LAVENDER => [50, 20, 23],
+    :CELADON => [95, 18, 15], # not a real pokemart
+    :FUCHSIA => [472, 7, 17],
+    :SAFFRON => [108, 53, 24],
+    :CINNABAR => [98, 30, 30],
+    :CRIMSON => [167, 21, 36],
+    :GOLDENROD => [237, 36, 33], # not a real pokemart
+    :AZALEA => [278, 34, 17],
+    :AZALEA_FLOODED => [338, 34, 17],
+    :VIOLET => [230, 20, 31],
+    :BLACKTHORN => [329, 16, 36],
+    :MAHOGANY => [631, 19, 19], # not a real pokemart
+    :ECRUTEAK => [359, 46, 38],
+    :OLIVINE => [138, 33, 23],
+    :CIANWOOD => [709.8, 46],
+  }
+  current_city = pbGet(VAR_CURRENT_MART)
+  current_city = :PEWTER if !current_city.is_a?(Symbol)
+
+  entrance_map = pokemart_entrances[current_city][0]
+  entrance_x = pokemart_entrances[current_city][1]
+  entrance_y = pokemart_entrances[current_city][2]
+
+  pbSet(VAR_CURRENT_CITY_NUMERICAL_ID, 0)
+  pbSet(VAR_CURRENT_MART, 0)
+  pbFadeOutIn {
+    $game_temp.player_new_map_id = entrance_map
+    $game_temp.player_new_x = entrance_x
+    $game_temp.player_new_y = entrance_y
+    $scene.transfer_player(true)
+    $game_map.autoplay
+    $game_map.refresh
+  }
+end

Data/Scripts/998_InfiniteFusion/Gameplay/Utils/EventUtils.rb

@@ -0,0 +1,38 @@
+def turnEventTowardsEvent(turning, turnedTowards)
+  event_x = turnedTowards.x
+  event_y = turnedTowards.y
+  if turning.x < event_x
+    turning.turn_right # Event is to the right of the player
+  elsif turning.x > event_x
+    turning.turn_left # Event is to the left of the player
+  elsif turning.y < event_y
+    turning.turn_down # Event is below the player
+  elsif turning.y > event_y
+    turning.turn_up # Event is above the player
+  end
+end
+
+
+def turnPlayerTowardsEvent(event)
+  event_x = event.x
+  event_y = event.y
+  if $game_player.x < event_x
+    $game_player.turn_right # Event is to the right of the player
+  elsif $game_player.x > event_x
+    $game_player.turn_left # Event is to the left of the player
+  elsif $game_player.y < event_y
+    $game_player.turn_down # Event is below the player
+  elsif $game_player.y > event_y
+    $game_player.turn_up # Event is above the player
+  end
+end
+
+def player_near_event?(map_id, event_id, radius)
+  return false if map_id != $game_map.map_id
+  event = $game_map.events[event_id]
+  return false if event.nil?
+  dx = $game_player.x - event.x
+  dy = $game_player.y - event.y
+  distance = Math.sqrt(dx * dx + dy * dy)
+  return distance <= radius
+end

Data/Scripts/998_InfiniteFusion/Gameplay/Utils/FusionUtils.rb

@@ -0,0 +1,6 @@
+def has_species_or_fusion?(species, form = -1)
+  return $player.pokemon_party.any? { |p| p && p.isSpecies?(species) || p.isFusionOf(species) }
+end
+
+# frozen_string_literal: true
+

Data/Scripts/998_InfiniteFusion/Gameplay/Utils/GameplayUtils.rb

@@ -0,0 +1,563 @@
+def getAllCurrentlyRoamingPokemon
+  currently_roaming = []
+  Settings::ROAMING_SPECIES.each_with_index do |data, i|
+    next if !GameData::Species.exists?(data[0])
+    next if data[2] > 0 && !$game_switches[data[2]] # Isn't roaming
+    next if $PokemonGlobal.roamPokemon[i] == true # Roaming Pokémon has been caught
+    currently_roaming << i
+  end
+  return currently_roaming
+end
+
+def track_pokemon()
+  currently_roaming = getAllCurrentlyRoamingPokemon()
+  echoln currently_roaming
+  weather_data = []
+  mapinfos = $RPGVX ? load_data("Data/MapInfos.rvdata") : load_data("Data/MapInfos.rxdata")
+  currently_roaming.each do |roamer_id|
+    map_id = $PokemonGlobal.roamPosition[roamer_id]
+    map_name = mapinfos[map_id].name
+    weather_type = Settings::ROAMING_SPECIES[roamer_id][6]
+    case weather_type
+    when :Storm
+      forecast_msg = _INTL("An unusual \\c[6]thunderstorm\\c[0] has been detected around \\c[6]{1}", map_name)
+    when :StrongWinds
+      forecast_msg = _INTL("Unusually \\c[9]strong winds\\c[0] have been detected around \\c[9]{1}", map_name)
+    when :Sunny
+      forecast_msg = _INTL("Unusually \\c[10]harsh sunlight\\c[0] has been detected around \\c[10]{1}", map_name)
+    end
+    weather_data << forecast_msg if forecast_msg && !weather_data.include?(forecast_msg)
+  end
+  weather_data << _INTL("No unusual weather patterns have been detected.") if weather_data.empty?
+  weather_data.each do |message|
+    Kernel.pbMessage(message)
+  end
+end
+# frozen_string_literal: true
+
+def getHiddenPowerName(pokemon)
+  hiddenpower = pbHiddenPower(pokemon)
+  hiddenPowerType = hiddenpower[0]
+
+  echoln hiddenPowerType
+  if Settings::TRIPLE_TYPES.include?(hiddenPowerType)
+    return "Neutral"
+  end
+  return PBTypes.getName(hiddenPowerType)
+end
+
+# Returns if the current map is an outdoor map
+def isOutdoor()
+  current_map = $game_map.map_id
+  map_metadata = GameData::MapMetadata.try_get(current_map)
+  return map_metadata && map_metadata.outdoor_map
+end
+
+def qmarkMaskCheck()
+  if $player.seen_qmarks_sprite
+    unless hasHat?(HAT_QMARKS)
+      obtainHat(HAT_QMARKS)
+      obtainClothes(CLOTHES_GLITCH)
+    end
+  end
+end
+
+def giveJigglypuffScribbles(possible_versions = [1,2,3,4])
+  selected_scribbles_version = possible_versions.sample
+  case selected_scribbles_version
+  when 1
+    scribbles_id= HAT_SCRIBBLES1
+  when 2
+    scribbles_id= HAT_SCRIBBLES2
+  when 3
+    scribbles_id= HAT_SCRIBBLES3
+  when 4
+    scribbles_id= HAT_SCRIBBLES4
+  end
+  return if !scribbles_id
+
+  if !hasHat?(scribbles_id)
+    $player.unlocked_hats << scribbles_id
+  end
+  putOnHat(scribbles_id,true,true)
+end
+
+
+# chance: out of 100
+def lilypadEncounter(pokemon, minLevel, maxLevel, chance = 10)
+  minLevel, maxLevel = [minLevel, maxLevel].minmax
+  level = rand(minLevel..maxLevel)
+
+  event = $game_map.events[@event_id]
+  return if !event
+  if rand(0..100) <= chance
+    pbWildBattle(pokemon, level)
+  else
+    playAnimation(Settings::GRASS_ANIMATION_ID, event.x, event.y)
+  end
+  event.erase
+end
+
+
+def calculate_pokemon_weight(pokemon, nerf = 0)
+
+  base_weight = pokemon.weight
+  ivs = []
+  pokemon.iv.each { |iv|
+    ivs << iv[1]
+  }
+  level = pokemon.level
+  # Ensure IVs is an array of 6 values and level is between 1 and 100
+  raise "IVs array must have 6 values" if ivs.length != 6
+  raise "Level must be between 1 and 100" unless (1..100).include?(level)
+
+  # Calculate the IV Factor
+  iv_sum = ivs.sum
+  iv_factor = (iv_sum.to_f / 186) * 30 * 10
+
+  # Calculate the Level Factor
+  level_factor = (level.to_f / 100) * 5 * 10
+
+  # Calculate the weight
+  weight = base_weight * (1 + (iv_factor / 100) + (level_factor / 100))
+  weight -= base_weight
+  # Enforce the weight variation limits
+  max_weight = base_weight * 4.00 # 400% increase
+  min_weight = base_weight * 0.5 # 50% decrease
+
+  # Cap the weight between min and max values
+  weight = [[weight, min_weight].max, max_weight].min
+  weight -= nerf if weight - nerf > min_weight
+  return weight.round(2) # Round to 2 decimal places
+end
+
+# nerf: remove x kg from each generated pokemon
+def generate_weight_contest_entries(species, level, resultsVariable, nerf = 0)
+  # echoln "Generating Pokemon"
+  pokemon1 = pbGenerateWildPokemon(species, level) # Pokemon.new(species,level)
+  pokemon2 = pbGenerateWildPokemon(species, level) # Pokemon.new(species,level)
+  new_weights = []
+  new_weights << calculate_pokemon_weight(pokemon1, nerf)
+  new_weights << calculate_pokemon_weight(pokemon2, nerf)
+  echoln new_weights
+  echoln "(nerfed by -#{nerf})"
+  pbSet(resultsVariable, new_weights.max)
+end
+
+
+# time in seconds
+def idleHatEvent(hatId, time, switchToActivate = nil)
+  map = $game_map.map_id
+  i = 0
+  while i < (time / 5) do
+    # /5 because we update 5 times per second
+    return if $game_map.map_id != map
+    i += 1
+    pbWait(4)
+    i = 0 if $game_player.moving?
+    echoln i
+  end
+  $game_switches[switchToActivate] = true if switchToActivate
+  obtainHat(hatId)
+end
+
+
+
+def obtainStarter(starterIndex = 0)
+  if ($game_switches[SWITCH_RANDOM_STARTERS])
+    starter = obtainRandomizedStarter(starterIndex)
+  else
+    startersList = Settings::KANTO_STARTERS
+    if $game_switches[SWITCH_JOHTO_STARTERS]
+      startersList = Settings::JOHTO_STARTERS
+    elsif $game_switches[SWITCH_HOENN_STARTERS]
+      startersList = Settings::HOENN_STARTERS
+    elsif $game_switches[SWITCH_SINNOH_STARTERS]
+      startersList = Settings::SINNOH_STARTERS
+    elsif $game_switches[SWITCH_KALOS_STARTERS]
+      startersList = Settings::KALOS_STARTERS
+    end
+    starter = startersList[starterIndex]
+  end
+  return GameData::Species.get(starter)
+end
+
+def isPostgame?()
+  return $game_switches[SWITCH_BEAT_THE_LEAGUE]
+end
+
+def constellation_add_star(pokemon)
+  star_variables = get_constellation_variable(pokemon)
+
+  pbSEPlay("GUI trainer card open", 80)
+  nb_stars = pbGet(star_variables)
+  pbSet(star_variables, nb_stars + 1)
+end
+
+
+def get_constellation_variable(pokemon)
+  case pokemon
+  when :IVYSAUR;
+    return VAR_CONSTELLATION_IVYSAUR
+  when :WARTORTLE;
+    return VAR_CONSTELLATION_WARTORTLE
+  when :ARCANINE;
+    return VAR_CONSTELLATION_ARCANINE
+  when :MACHOKE;
+    return VAR_CONSTELLATION_MACHOKE
+  when :RAPIDASH;
+    return VAR_CONSTELLATION_RAPIDASH
+  when :GYARADOS;
+    return VAR_CONSTELLATION_GYARADOS
+  when :ARTICUNO;
+    return VAR_CONSTELLATION_ARTICUNO
+  when :MEW;
+    return VAR_CONSTELLATION_MEW
+    # when :POLITOED;   return  VAR_CONSTELLATION_POLITOED
+    # when :URSARING;   return  VAR_CONSTELLATION_URSARING
+    # when :LUGIA;      return  VAR_CONSTELLATION_LUGIA
+    # when :HOOH;       return  VAR_CONSTELLATION_HOOH
+    # when :CELEBI;     return  VAR_CONSTELLATION_CELEBI
+    # when :SLAKING;    return  VAR_CONSTELLATION_SLAKING
+    # when :JIRACHI;    return  VAR_CONSTELLATION_JIRACHI
+    # when :TYRANTRUM;  return  VAR_CONSTELLATION_TYRANTRUM
+    # when :SHARPEDO;   return  VAR_CONSTELLATION_SHARPEDO
+    # when :ARCEUS;     return  VAR_CONSTELLATION_ARCEUS
+  end
+end
+
+
+def getNextLunarFeatherHint()
+  nb_feathers = pbGet(VAR_LUNAR_FEATHERS)
+  case nb_feathers
+  when 0
+    return "Find the first feather in the northernmost dwelling in the port of exquisite sunsets..."
+  when 1
+    return "Amidst a nursery for Pokémon youngsters, the second feather hides, surrounded by innocence."
+  when 2
+    return "Find the next one in the inn where water meets rest"
+  when 3
+    return "Find the next one inside the lone house in the city at the edge of civilization."
+  when 4
+    return "The final feather lies back in the refuge for orphaned Pokémon..."
+  else
+    return "Lie in the bed... Bring me the feathers..."
+  end
+end
+
+def apply_concert_lighting(light, duration = 1)
+  tone = Tone.new(0, 0, 0)
+  case light
+  when :GUITAR_HIT
+    tone = Tone.new(-50, -100, -50)
+  when :VERSE_1
+    tone = Tone.new(-90, -110, -50)
+  when :VERSE_2_LIGHT
+    tone = Tone.new(-40, -80, -30)
+  when :VERSE_2_DIM
+    tone = Tone.new(-60, -100, -50)
+  when :CHORUS_1
+    tone = Tone.new(0, -80, -50)
+  when :CHORUS_2
+    tone = Tone.new(0, -50, -80)
+  when :CHORUS_3
+    tone = Tone.new(0, -80, -80)
+  when :CHORUS_END
+    tone = Tone.new(-68, 0, -102)
+  when :MELOETTA_1
+    tone = Tone.new(-60, -50, 20)
+  end
+  $game_screen.start_tone_change(tone, duration)
+end
+
+def playMeloettaBandMusic()
+  unlocked_members = []
+  unlocked_members << :DRUM if $game_switches[SWITCH_BAND_DRUMMER]
+  unlocked_members << :AGUITAR if $game_switches[SWITCH_BAND_ACOUSTIC_GUITAR]
+  unlocked_members << :EGUITAR if $game_switches[SWITCH_BAND_ELECTRIC_GUITAR]
+  unlocked_members << :FLUTE if $game_switches[SWITCH_BAND_FLUTE]
+  unlocked_members << :HARP if $game_switches[SWITCH_BAND_HARP]
+
+  echoln unlocked_members
+  echoln (unlocked_members & [:DRUM, :AGUITAR, :EGUITAR, :FLUTE, :HARP])
+
+  track = "band/band_1"
+  if unlocked_members == [:DRUM, :AGUITAR, :EGUITAR, :FLUTE, :HARP]
+    track = "band/band_full"
+  else
+    if unlocked_members.include?(:FLUTE)
+      track = "band/band_5a"
+    elsif unlocked_members.include?(:HARP)
+      track = "band/band_5b"
+    else
+      if unlocked_members.include?(:EGUITAR) && unlocked_members.include?(:AGUITAR)
+        track = "band/band_4"
+      elsif unlocked_members.include?(:AGUITAR)
+        track = "band/band_3a"
+      elsif unlocked_members.include?(:EGUITAR)
+        track = "band/band_3b"
+      elsif unlocked_members.include?(:DRUM)
+        track = "band/band_2"
+      end
+    end
+  end
+  echoln track
+  pbBGMPlay(track)
+end
+
+def regirock_steel_move_boulder()
+
+  switches_position = [
+    [16, 21], [18, 21], [20, 21], [22, 21],
+    [16, 23], [22, 23],
+    [16, 25], [18, 25], [20, 25], [22, 25]
+  ]
+  boulder_event = get_self
+  old_x = boulder_event.x
+  old_y = boulder_event.y
+  stepped_off_switch = switches_position.find { |position| position[0] == old_x && position[1] == old_y }
+
+  pbPushThisBoulder()
+  boulder_event = get_self
+
+  if stepped_off_switch
+    switch_event = $game_map.get_event_at_position(old_x, old_y, [boulder_event.id])
+    echoln switch_event.id if switch_event
+    pbSEPlay("Entering Door", nil, 80)
+    pbSetSelfSwitch(switch_event.id, "A", false) if switch_event
+  end
+
+  stepped_on_switch = switches_position.find { |position| position[0] == boulder_event.x && position[1] == boulder_event.y }
+  if stepped_on_switch
+    switch_event = $game_map.get_event_at_position(boulder_event.x, boulder_event.y, [boulder_event.id])
+    echoln switch_event.id if switch_event
+    pbSEPlay("Entering Door")
+    pbSetSelfSwitch(switch_event.id, "A", true) if switch_event
+  end
+end
+
+
+KANTO_DARKNESS_STAGE_1 = [
+  50, # Lavender town
+  409, # Route 8
+  351, # Route 9 (east)
+  495, # Route 9 (west)
+  154, # Route 10
+  108, # Saffron city
+  1, # Cerulean City
+  387, # Cerulean City (race)
+  106, # Route 4
+  8, # Route 24
+  9, # Route 25
+  400, # Pokemon Tower
+  401, # Pokemon Tower
+  402, # Pokemon Tower
+  403, # Pokemon Tower
+  467, # Pokemon Tower
+  468, # Pokemon Tower
+  469, # Pokemon Tower
+  159, # Route 12
+  349, # Rock tunnel
+  350, # Rock tunnel
+  512, # Rock tunnel (outdoor)
+  12, # Route 5
+
+]
+KANTO_DARKNESS_STAGE_2 = [
+  95, # Celadon city
+  436, # Celadon city dept store (roof)
+  143, # Route 23
+  167, # Crimson city
+  413, # Route 7
+  438, # Route 16
+  146, # Route 17
+  106, # Route 4
+  19, # Vermillion City
+  36, # S.S. Anne deck
+  16, # Route 6
+  437, # Route 13
+  155, # Route 11
+  140, # Diglett cave
+  398, # Diglett cave
+  399, # Diglett cave
+]
+KANTO_DARKNESS_STAGE_3 = [
+  472, # Fuchsia city
+  445, # Safari Zone 1
+  484, # Safari Zone 2
+  485, # Safari Zone 3
+  486, # Safari Zone 4
+  487, # Safari Zone 5
+  444, # Route 15
+  440, # Route 14
+  712, # Creepy house
+  517, # Route 18
+  57, # Route 19
+  227, # Route 19 (underwater)
+  56, # Route 19 (surf race)
+  58, # Route 20
+  480, # Route 20 underwater 1
+  228, # Route 20 underwater 2
+  98, # Cinnabar island
+  58, # Route 21
+  827, # Mt. Moon summit
+]
+KANTO_DARKNESS_STAGE_4 = KANTO_OUTDOOR_MAPS
+
+def darknessEffectOnCurrentMap()
+  return if !$game_switches
+  return if !$game_switches[SWITCH_KANTO_DARKNESS]
+  return darknessEffectOnMap($game_map.map_id)
+end
+
+def darknessEffectOnMap(map_id)
+  return if !$game_switches
+  return if !$game_switches[SWITCH_KANTO_DARKNESS]
+  return if !KANTO_OUTDOOR_MAPS.include?(map_id)
+  dark_maps = []
+  dark_maps += KANTO_DARKNESS_STAGE_1 if $game_switches[SWITCH_KANTO_DARKNESS_STAGE_1]
+  dark_maps += KANTO_DARKNESS_STAGE_2 if $game_switches[SWITCH_KANTO_DARKNESS_STAGE_2]
+  dark_maps += KANTO_DARKNESS_STAGE_3 if $game_switches[SWITCH_KANTO_DARKNESS_STAGE_3]
+  dark_maps = KANTO_OUTDOOR_MAPS if $game_switches[SWITCH_KANTO_DARKNESS_STAGE_4]
+  return dark_maps.include?(map_id)
+end
+
+def apply_darkness()
+  $PokemonTemp.darknessSprite = DarknessSprite.new
+  darkness = $PokemonTemp.darknessSprite
+  darkness.radius = 276
+  while darkness.radius > 64
+    Graphics.update
+    Input.update
+    pbUpdateSceneMap
+    darkness.radius -= 4
+  end
+  $PokemonGlobal.flashUsed = false
+  $PokemonTemp.darknessSprite.dispose
+  Events.onMapSceneChange.trigger(self, $scene, true)
+end
+
+def isInMtMoon()
+  mt_moon_maps = [102, 103, 105, 496, 104]
+  return mt_moon_maps.include?($game_map.map_id)
+end
+
+def getMtMoonDirection()
+  maps_east = [380, # Pewter city
+               490, # Route 3
+               303, # indigo plateau
+               145, # Route 26
+               147, # Route 27
+  ]
+  maps_south = [
+    8, # Route 24
+    9, # Route 25
+    143, # Route 23
+    167, # Crimson city
+  ]
+  maps_west = [
+    106, # route 4
+    1, # cerulean
+    495, # route 9
+    351, # route 9
+    10 # cerulean cape
+  ]
+  return 2 if maps_south.include?($game_map.map_id)
+  return 4 if maps_west.include?($game_map.map_id)
+  return 6 if maps_east.include?($game_map.map_id)
+  return 8 # north (most maps)
+end
+
+
+
+def Kernel.setRocketPassword(variableNum)
+  abilityIndex = rand(233)
+  speciesIndex = rand(PBSpecies.maxValue - 1)
+
+  word1 = PBSpecies.getName(speciesIndex)
+  word2 = GameData::Ability.get(abilityIndex).name
+  password = _INTL("{1}'s {2}", word1, word2)
+  pbSet(variableNum, password)
+end
+
+def obtainBadgeMessage(badgeName)
+  Kernel.pbMessage(_INTL("\\me[Badge get]{1} obtained the {2}!", $player.name, badgeName))
+end
+
+
+def getFossilsGuyTeam(level)
+  base_poke_evolution_level = 20
+  fossils_evolution_level_1 = 30
+  fossils_evolution_level_2 = 50
+
+  fossils = []
+  base_poke = level <= base_poke_evolution_level ? :B88H109 : :B89H110
+  team = []
+  team << Pokemon.new(base_poke, level)
+
+  # Mt. Moon fossil
+  if $game_switches[SWITCH_PICKED_HELIC_FOSSIL]
+    fossils << :KABUTO if level < fossils_evolution_level_1
+    fossils << :KABUTOPS if level >= fossils_evolution_level_1
+  elsif $game_switches[SWITCH_PICKED_DOME_FOSSIL]
+    fossils << :OMANYTE if level < fossils_evolution_level_1
+    fossils << :OMASTAR if level >= fossils_evolution_level_1
+  end
+
+  # S.S. Anne fossil
+  if $game_switches[SWITCH_PICKED_LILEEP_FOSSIL]
+    fossils << :ANORITH if level < fossils_evolution_level_1
+    fossils << :ARMALDO if level >= fossils_evolution_level_1
+
+  elsif $game_switches[SWITCH_PICKED_ANORITH_FOSSIL]
+    fossils << :LILEEP if level < fossils_evolution_level_1
+    fossils << :CRADILY if level >= fossils_evolution_level_1
+  end
+  # Celadon fossil
+  if $game_switches[SWITCH_PICKED_ARMOR_FOSSIL]
+    fossils << :CRANIDOS if level < fossils_evolution_level_2
+    fossils << :RAMPARDOS if level >= fossils_evolution_level_2
+
+  elsif $game_switches[SWITCH_PICKED_SKULL_FOSSIL]
+    fossils << :SHIELDON if level < fossils_evolution_level_2
+    fossils << :BASTIODON if level >= fossils_evolution_level_2
+  end
+
+  skip_next = false
+  for index in 0..fossils.length
+    if index == fossils.length - 1
+      team << Pokemon.new(fossils[index], level)
+    else
+      if skip_next
+        skip_next = false
+        next
+      end
+      head_poke = fossils[index]
+      body_poke = fossils[index + 1]
+      if head_poke && body_poke
+        newPoke = getFusionSpecies(dexNum(body_poke), dexNum(head_poke))
+        team << Pokemon.new(newPoke, level)
+        skip_next = true
+      end
+    end
+  end
+  return team
+end
+
+# tradedPoke = pbGet(154)
+# party=[tradedPoke]
+# customTrainerBattle("Eusine",
+#                     :MYSTICALMAN,
+#                     party,
+#                     tradedPoke.level,
+#                     "Okay, okay I'll give it back!" )
+def fossilsGuyBattle(level = 20, end_message = "")
+  team = getFossilsGuyTeam(level)
+  customTrainerBattle("Miguel",
+                      :SUPERNERD,
+                      team,
+                      level,
+                      end_message
+  )
+
+end

Data/Scripts/998_InfiniteFusion/Gameplay/Utils/GraphicsUtils.rb

@@ -0,0 +1,49 @@
+# frozen_string_literal: true
+
+def addWaterCausticsEffect(fog_name = "caustic1", opacity = 16)
+  $game_map.fog_name = fog_name
+  $game_map.fog_hue = 0
+  $game_map.fog_opacity = opacity
+  #$game_map.fog_blend_type = @parameters[4]
+  $game_map.fog_zoom = 200
+  $game_map.fog_sx = 2
+  $game_map.fog_sy = 2
+
+  $game_map.setFog2(fog_name, -3, 0, opacity,)
+end
+
+def stopWaterCausticsEffect()
+  $game_map.fog_opacity = 0
+  $game_map.eraseFog2()
+end
+
+def clear_all_images()
+  for i in 1..99
+    # echoln i.to_s + " : " + $game_screen.pictures[i].name
+    $game_screen.pictures[i].erase
+  end
+end
+
+
+def playPokeFluteAnimation
+  # return if $player.outfit != 0
+  # $game_player.setDefaultCharName("players/pokeflute", 0, false)
+  # Graphics.update
+  # Input.update
+  # pbUpdateSceneMap
+end
+
+def restoreDefaultCharacterSprite(charset_number = 0)
+  meta = GameData::Metadata.get_player($player.character_ID)
+  $game_player.setDefaultCharName(nil, 0, false)
+  $game_player.character_name = meta[1]
+  Graphics.update
+  Input.update
+  pbUpdateSceneMap
+end
+
+# if need to play animation from event route
+def playAnimation(animationId, x, y)
+  return if !$scene.is_a?(Scene_Map)
+  $scene.spriteset.addUserAnimation(animationId, x, y, true)
+end

Data/Scripts/998_InfiniteFusion/Gameplay/Utils/MenuUtils.rb

@@ -0,0 +1,167 @@
+def optionsMenu(options = [], cmdIfCancel = -1, startingOption = 0)
+  cmdIfCancel = -1 if !cmdIfCancel
+  result = pbShowCommands(nil, options, cmdIfCancel, startingOption)
+  echoln "menuResult :#{result}"
+  return result
+end
+
+def displaySpriteWindowWithMessage(pif_sprite, message = "", x = 0, y = 0, z = 0)
+  spriteLoader = BattleSpriteLoader.new
+  sprite_bitmap = spriteLoader.load_pif_sprite_directly(pif_sprite)
+  pictureWindow = PictureWindow.new(sprite_bitmap.bitmap)
+
+  pictureWindow.opacity = 0
+  pictureWindow.z = z
+  pictureWindow.x = x
+  pictureWindow.y = y
+  pbMessage(message)
+  pictureWindow.dispose
+end
+
+def select_any_pokemon()
+  commands = []
+  for dex_num in 1..NB_POKEMON
+    species = getPokemon(dex_num)
+    commands.push([dex_num - 1, species.real_name, species.id])
+  end
+  return pbChooseList(commands, 0, nil, 1)
+end
+
+def purchaseDyeKitMenu(hats_kit_price=0,clothes_kit_price=0)
+
+  commands = []
+  command_hats = "Hats Dye Kit ($#{hats_kit_price})"
+  command_clothes = "Clothes Dye Kit ($#{clothes_kit_price})"
+  command_cancel = "Cancel"
+
+  commands << command_hats if !$PokemonBag.pbHasItem?(:HATSDYEKIT)
+  commands << command_clothes if !$PokemonBag.pbHasItem?(:CLOTHESDYEKIT)
+  commands << command_cancel
+
+  if commands.length <= 1
+    pbCallBub(2,@event_id)
+    pbMessage("\\C[1]Dye Kits\\C[0] can be used to dye clothes all sorts of colours!")
+
+    pbCallBub(2,@event_id)
+    pbMessage("You can use them at any time when you change clothes.")
+    return
+  end
+  pbCallBub(2,@event_id)
+  pbMessage("\\GWelcome! Are you interested in dyeing your outfits different colours?")
+
+  pbCallBub(2,@event_id)
+  pbMessage("I make handy \\C[1]Dye Kits\\C[0] from my Smeargle's paint that can be used to dye your outfits any color you want!")
+
+  pbCallBub(2,@event_id)
+  pbMessage("\\GWhat's more is that it's reusable so you can go completely wild with it if you want! Are you interested?")
+
+  choice = optionsMenu(commands,commands.length)
+  case commands[choice]
+  when command_hats
+    if $player.money < hats_kit_price
+      pbCallBub(2,@event_id)
+      pbMessage("Oh, you don't have enough money...")
+      return
+    end
+    pbMessage("\\G\\PN purchased the dye kit.")
+    $player.money -= hats_kit_price
+    pbSEPlay("SlotsCoin")
+    Kernel.pbReceiveItem(:HATSDYEKIT)
+    pbCallBub(2,@event_id)
+    pbMessage("\\GHere you go! Have fun dyeing your hats!")
+  when command_clothes
+    if $player.money < clothes_kit_price
+      pbCallBub(2,@event_id)
+      pbMessage("Oh, you don't have enough money...")
+      return
+    end
+    pbMessage("\\G\\PN purchased the dye kit.")
+    $player.money -= clothes_kit_price
+    pbSEPlay("SlotsCoin")
+    Kernel.pbReceiveItem(:CLOTHESDYEKIT)
+    pbCallBub(2,@event_id)
+    pbMessage("\\GHere you go! Have fun dyeing your clothes!")
+  end
+  pbCallBub(2,@event_id)
+  pbMessage("You can use \\C[1]Dye Kits\\C[0] at any time when you change clothes.")
+end
+
+
+def promptCaughtPokemonAction(pokemon)
+  pickedOption = false
+  return pbStorePokemon(pokemon) if !$player.party_full?
+  return promptKeepOrRelease(pokemon) if isOnPinkanIsland() && !$game_switches[SWITCH_PINKAN_FINISHED]
+  while !pickedOption
+    command = pbMessage(_INTL("\\ts[]Your team is full!"),
+                        [_INTL("Add to your party"), _INTL("Store to PC"),], 2)
+    echoln ("command " + command.to_s)
+    case command
+    when 0 # SWAP
+      if swapCaughtPokemon(pokemon)
+        echoln pickedOption
+        pickedOption = true
+      end
+    else
+      # STORE
+      pbStorePokemon(pokemon)
+      echoln pickedOption
+      pickedOption = true
+    end
+  end
+
+end
+
+def promptKeepOrRelease(pokemon)
+  pickedOption = false
+  while !pickedOption
+    command = pbMessage(_INTL("\\ts[]Your team is full!"),
+                        [_INTL("Release a party member"), _INTL("Release this #{pokemon.name}"),], 2)
+    echoln ("command " + command.to_s)
+    case command
+    when 0 # SWAP
+      if swapReleaseCaughtPokemon(pokemon)
+        pickedOption = true
+      end
+    else
+      pickedOption = true
+    end
+  end
+end
+
+# def pbChoosePokemon(variableNumber, nameVarNumber, ableProc = nil, allowIneligible = false)
+def swapCaughtPokemon(caughtPokemon)
+  pbChoosePokemon(1, 2,
+                  proc { |poke|
+                    !poke.egg? &&
+                      !(poke.isShadow? rescue false)
+                  })
+  index = pbGet(1)
+  return false if index == -1
+  $PokemonStorage.pbStoreCaught($player.party[index])
+  pbRemovePokemonAt(index)
+  pbStorePokemon(caughtPokemon)
+
+  tmp = $player.party[index]
+  $player.party[index] = $player.party[-1]
+  $player.party[-1] = tmp
+  return true
+end
+
+def swapReleaseCaughtPokemon(caughtPokemon)
+  pbChoosePokemon(1, 2,
+                  proc { |poke|
+                    !poke.egg? &&
+                      !(poke.isShadow? rescue false)
+                  })
+  index = pbGet(1)
+  return false if index == -1
+  releasedPokemon = $player.party[index]
+  pbMessage("#{releasedPokemon.name} was released.")
+  pbRemovePokemonAt(index)
+  pbStorePokemon(caughtPokemon)
+
+  tmp = $player.party[index]
+  $player.party[index] = $player.party[-1]
+  $player.party[-1] = tmp
+  return true
+end

Data/Scripts/998_InfiniteFusion/Gameplay/Utils/OutfitUtils.rb

@@ -0,0 +1,56 @@
+# frozen_string_literal: true
+
+def unlock_easter_egg_hats()
+  if $player.name == "Ash"
+    $player.hat = HAT_ASH
+    $player.unlock_hat(HAT_ASH)
+  end
+  if $player.name == "Frogman"
+    $player.hat = HAT_FROG
+    $player.unlock_hat(HAT_FROG)
+  end
+end
+
+def setupStartingOutfit()
+  $player.hat = nil
+  $player.clothes = STARTING_OUTFIT
+  unlock_easter_egg_hats()
+  gender = pbGet(VAR_TRAINER_GENDER)
+  if gender == GENDER_FEMALE
+    $player.unlock_clothes(DEFAULT_OUTFIT_FEMALE, true)
+    $player.unlock_hat(DEFAULT_OUTFIT_FEMALE, true)
+    $player.hair = "3_" + DEFAULT_OUTFIT_FEMALE if !$player.hair # when migrating old savefiles
+
+  elsif gender == GENDER_MALE
+    $player.unlock_clothes(DEFAULT_OUTFIT_MALE, true)
+    $player.unlock_hat(DEFAULT_OUTFIT_MALE, true)
+
+    echoln $player.hair
+    $player.hair = ("3_" + DEFAULT_OUTFIT_MALE) if !$player.hair # when migrating old savefiles
+    echoln $player.hair
+  end
+  $player.unlock_hair(DEFAULT_OUTFIT_MALE, true)
+  $player.unlock_hair(DEFAULT_OUTFIT_FEMALE, true)
+  $player.unlock_clothes(STARTING_OUTFIT, true)
+end
+
+def give_date_specific_hats()
+  current_date = Time.new
+  # Christmas
+  if (current_date.day == 24 || current_date.day == 25) && current_date.month == 12
+    if !$player.unlocked_hats.include?(HAT_SANTA)
+      pbCallBub(2, @event_id, true)
+      pbMessage("Hi! We're giving out a special hat today for the holidays season. Enjoy!")
+      obtainHat(HAT_SANTA)
+    end
+  end
+
+  # April's fool
+  if (current_date.day == 1 && current_date.month == 4)
+    if !$player.unlocked_hats.include?(HAT_CLOWN)
+      pbCallBub(2, @event_id, true)
+      pbMessage("Hi! We're giving out this fun accessory for this special day. Enjoy!")
+      obtainHat(HAT_CLOWN)
+    end
+  end
+end

Data/Scripts/998_InfiniteFusion/Gameplay/Utils/PlayerUtils.rb

@@ -0,0 +1,8 @@
+def isPlayerMale()
+  return pbGet(VAR_TRAINER_GENDER) == GENDER_MALE
+end
+
+def isPlayerFemale()
+  return pbGet(VAR_TRAINER_GENDER) == GENDER_FEMALE
+end# frozen_string_literal: true
+

Data/Scripts/998_InfiniteFusion/Gameplay/Utils/PokemonUtils.rb

@@ -0,0 +1,247 @@
+
+def replaceFusionSpecies(pokemon, speciesToChange, newSpecies)
+  currentBody = pokemon.species_data.get_body_species_symbol()
+  currentHead = pokemon.species_data.get_head_species_symbol()
+  should_update_body = currentBody == speciesToChange
+  should_update_head = currentHead == speciesToChange
+
+  echoln speciesToChange
+  echoln currentBody
+  echoln currentHead
+
+  return if !should_update_body && !should_update_head
+
+  newSpeciesBody = should_update_body ? newSpecies : currentBody
+  newSpeciesHead = should_update_head ? newSpecies : currentHead
+
+  newSpecies = getFusionSpecies(newSpeciesBody, newSpeciesHead)
+  echoln newSpecies.id_number
+  pokemon.species = newSpecies
+end
+
+def changeSpeciesSpecific(pokemon, newSpecies)
+  pokemon.species = newSpecies
+  $player.pokedex.set_seen(newSpecies)
+  $player.pokedex.set_owned(newSpecies)
+end
+
+
+def setPokemonMoves(pokemon, move_ids = [])
+  moves = []
+  move_ids.each { |move_id|
+    moves << Pokemon::Move.new(move_id)
+  }
+  pokemon.moves = moves
+end
+
+
+def getGenericPokemonCryText(pokemonSpecies)
+  case pokemonSpecies
+  when 25
+    return "Pika!"
+  when 16, 17, 18, 21, 22, 144, 145, 146, 227, 417, 418, 372 # birds
+    return "Squawk!"
+  when 163, 164
+    return "Hoot!" # owl
+  else
+    return "Guaugh!"
+  end
+end
+
+
+def Kernel.getPlateType(item)
+  return :FIGHTING if item == PBItems::FISTPLATE
+  return :FLYING if item == PBItems::SKYPLATE
+  return :POISON if item == PBItems::TOXICPLATE
+  return :GROUND if item == PBItems::EARTHPLATE
+  return :ROCK if item == PBItems::STONEPLATE
+  return :BUG if item == PBItems::INSECTPLATE
+  return :GHOST if item == PBItems::SPOOKYPLATE
+  return :STEEL if item == PBItems::IRONPLATE
+  return :FIRE if item == PBItems::FLAMEPLATE
+  return :WATER if item == PBItems::SPLASHPLATE
+  return :GRASS if item == PBItems::MEADOWPLATE
+  return :ELECTRIC if item == PBItems::ZAPPLATE
+  return :PSYCHIC if item == PBItems::MINDPLATE
+  return :ICE if item == PBItems::ICICLEPLATE
+  return :DRAGON if item == PBItems::DRACOPLATE
+  return :DARK if item == PBItems::DREADPLATE
+  return :FAIRY if item == PBItems::PIXIEPLATE
+  return -1
+end
+
+def Kernel.listPlatesInBag()
+  list = []
+  list << PBItems::FISTPLATE if $PokemonBag.pbQuantity(:FISTPLATE) >= 1
+  list << PBItems::SKYPLATE if $PokemonBag.pbQuantity(:SKYPLATE) >= 1
+  list << PBItems::TOXICPLATE if $PokemonBag.pbQuantity(:TOXICPLATE) >= 1
+  list << PBItems::EARTHPLATE if $PokemonBag.pbQuantity(:EARTHPLATE) >= 1
+  list << PBItems::STONEPLATE if $PokemonBag.pbQuantity(:STONEPLATE) >= 1
+  list << PBItems::INSECTPLATE if $PokemonBag.pbQuantity(:INSECTPLATE) >= 1
+  list << PBItems::SPOOKYPLATE if $PokemonBag.pbQuantity(:SPOOKYPLATE) >= 1
+  list << PBItems::IRONPLATE if $PokemonBag.pbQuantity(:IRONPLATE) >= 1
+  list << PBItems::FLAMEPLATE if $PokemonBag.pbQuantity(:FLAMEPLATE) >= 1
+  list << PBItems::SPLASHPLATE if $PokemonBag.pbQuantity(:SPLASHPLATE) >= 1
+  list << PBItems::MEADOWPLATE if $PokemonBag.pbQuantity(:MEADOWPLATE) >= 1
+  list << PBItems::ZAPPLATE if $PokemonBag.pbQuantity(:ZAPPLATE) >= 1
+  list << PBItems::MINDPLATE if $PokemonBag.pbQuantity(:MINDPLATE) >= 1
+  list << PBItems::ICICLEPLATE if $PokemonBag.pbQuantity(:ICICLEPLATE) >= 1
+  list << PBItems::DRACOPLATE if $PokemonBag.pbQuantity(:DRACOPLATE) >= 1
+  list << PBItems::DREADPLATE if $PokemonBag.pbQuantity(:DREADPLATE) >= 1
+  list << PBItems::PIXIEPLATE if $PokemonBag.pbQuantity(:PIXIEPLATE) >= 1
+  return list
+end
+
+def getArceusPlateType(heldItem)
+  return :NORMAL if heldItem == nil
+  case heldItem
+  when :FISTPLATE
+    return :FIGHTING
+  when :SKYPLATE
+    return :FLYING
+  when :TOXICPLATE
+    return :POISON
+  when :EARTHPLATE
+    return :GROUND
+  when :STONEPLATE
+    return :ROCK
+  when :INSECTPLATE
+    return :BUG
+  when :SPOOKYPLATE
+    return :GHOST
+  when :IRONPLATE
+    return :STEEL
+  when :FLAMEPLATE
+    return :FIRE
+  when :SPLASHPLATE
+    return :WATER
+  when :MEADOWPLATE
+    return :GRASS
+  when :ZAPPLATE
+    return :ELECTRIC
+  when :MINDPLATE
+    return :PSYCHIC
+  when :ICICLEPLATE
+    return :ICE
+  when :DRACOPLATE
+    return :DRAGON
+  when :DREADPLATE
+    return :DARK
+  when :PIXIEPLATE
+    return :FAIRY
+  else
+    return :NORMAL
+  end
+end
+
+
+def changeOricorioForm(pokemon, form = nil)
+  oricorio_forms = [:ORICORIO_1, :ORICORIO_2, :ORICORIO_3, :ORICORIO_4]
+  body_id = pokemon.isFusion? ? get_body_species_from_symbol(pokemon.species) : pokemon.species
+  head_id = pokemon.isFusion? ? get_head_species_from_symbol(pokemon.species) : pokemon.species
+
+  oricorio_body = oricorio_forms.include?(body_id)
+  oricorio_head = oricorio_forms.include?(head_id)
+
+  if form == 1
+    body_id = :ORICORIO_1 if oricorio_body
+    head_id = :ORICORIO_1 if oricorio_head
+  elsif form == 2
+    body_id = :ORICORIO_2 if oricorio_body
+    head_id = :ORICORIO_2 if oricorio_head
+  elsif form == 3
+    body_id = :ORICORIO_3 if oricorio_body
+    head_id = :ORICORIO_3 if oricorio_head
+  elsif form == 4
+    body_id = :ORICORIO_4 if oricorio_body
+    head_id = :ORICORIO_4 if oricorio_head
+  else
+    return false
+  end
+
+  head_number = getDexNumberForSpecies(head_id)
+  body_number = getDexNumberForSpecies(body_id)
+
+  newForm = pokemon.isFusion? ? getSpeciesIdForFusion(head_number, body_number) : head_id
+  $player.pokedex.set_seen(newForm)
+  $player.pokedex.set_owned(newForm)
+
+  pokemon.species = newForm
+  return true
+end
+
+
+def changeOricorioFlower(form = 1)
+  if $PokemonGlobal.stepcount % 25 == 0
+    if !hatUnlocked?(HAT_FLOWER) && rand(2) == 0
+      obtainHat(HAT_FLOWER)
+      $PokemonGlobal.stepcount += 1
+    else
+      pbMessage(_INTL("Woah! A Pokémon jumped out of the flower!"))
+      pbWildBattle(:FOMANTIS, 10)
+      $PokemonGlobal.stepcount += 1
+    end
+  end
+  return if !($player.has_species_or_fusion?(:ORICORIO_1) || $player.has_species_or_fusion?(:ORICORIO_2) || $player.has_species_or_fusion?(:ORICORIO_3) || $player.has_species_or_fusion?(:ORICORIO_4))
+  message = ""
+  form_name = ""
+  if form == 1
+    message = "It's a flower with red nectar. "
+    form_name = "Baile"
+  elsif form == 2
+    message = "It's a flower with yellow nectar. "
+    form_name = "Pom-pom"
+  elsif form == 3
+    message = "It's a flower with pink nectar. "
+    form_name = "Pa'u"
+  elsif form == 4
+    message = "It's a flower with blue nectar. "
+    form_name = "Sensu"
+  end
+
+  message = message + "Show it to a Pokémon?"
+  if pbConfirmMessage(message)
+    pbChoosePokemon(1, 2,
+                    proc { |poke|
+                      !poke.egg? &&
+                        (Kernel.isPartPokemon(poke, :ORICORIO_1) ||
+                          Kernel.isPartPokemon(poke, :ORICORIO_2) ||
+                          Kernel.isPartPokemon(poke, :ORICORIO_3) ||
+                          Kernel.isPartPokemon(poke, :ORICORIO_4))
+                    })
+    if (pbGet(1) != -1)
+      poke = $player.party[pbGet(1)]
+      if changeOricorioForm(poke, form)
+        pbMessage(_INTL("{1} switched to the {2} style", poke.name, form_name))
+        pbSet(1, poke.name)
+      else
+        pbMessage(_INTL("{1} remained the same...", poke.name, form_name))
+      end
+    end
+  end
+end
+
+def oricorioEventPickFlower(flower_color)
+  quest_progression = pbGet(VAR_ORICORIO_FLOWERS)
+  if flower_color == :PINK
+    if !$game_switches[SWITCH_ORICORIO_QUEST_PINK]
+      pbMessage(_INTL("Woah! A Pokémon jumped out of the flower!"))
+      pbWildBattle(:FOMANTIS, 10)
+    end
+    $game_switches[SWITCH_ORICORIO_QUEST_PINK] = true
+    pbMessage(_INTL("It's a flower with pink nectar."))
+    pbSEPlay("MiningAllFound")
+    pbMessage(_INTL("{1} picked some of the pink flowers.", $player.name))
+  elsif flower_color == :RED && quest_progression == 1
+    $game_switches[SWITCH_ORICORIO_QUEST_RED] = true
+    pbMessage(_INTL("It's a flower with red nectar."))
+    pbSEPlay("MiningAllFound")
+    pbMessage(_INTL("{1} picked some of the red flowers.", $player.name))
+  elsif flower_color == :BLUE && quest_progression == 2
+    $game_switches[SWITCH_ORICORIO_QUEST_BLUE] = true
+    pbMessage(_INTL("It's a flower with blue nectar."))
+    pbSEPlay("MiningAllFound")
+    pbMessage(_INTL("{1} picked some of the blue flowers.", $player.name))
+  end
+
+end

Data/Scripts/998_InfiniteFusion/Gameplay/Utils/RepairUtils.rb

@@ -0,0 +1,102 @@
+def fixMissedHMs()
+  # Flash
+  if $PokemonBag.pbQuantity(:HM08) < 1 && $PokemonGlobal.questRewardsObtained.include?(:HM08)
+    pbReceiveItem(:HM08)
+  end
+
+  # Cut
+  if $PokemonBag.pbQuantity(:HM01) < 1 && $game_switches[SWITCH_SS_ANNE_DEPARTED]
+    pbReceiveItem(:HM01)
+  end
+
+  # Strength
+  if $PokemonBag.pbQuantity(:HM04) < 1 && $game_switches[SWITCH_SNORLAX_GONE_ROUTE_12]
+    pbReceiveItem(:HM04)
+  end
+
+  # Surf
+  if $PokemonBag.pbQuantity(:HM03) < 1 && $game_self_switches[[107, 1, "A"]]
+    pbReceiveItem(:HM03)
+  end
+
+  # Teleport
+  if $PokemonBag.pbQuantity(:HM07) < 1 && $game_switches[SWITCH_TELEPORT_NPC]
+    pbReceiveItem(:HM07)
+  end
+
+  # Fly
+  if $PokemonBag.pbQuantity(:HM02) < 1 && $game_self_switches[[439, 1, "B"]]
+    pbReceiveItem(:HM02)
+  end
+
+  # Waterfall
+  if $PokemonBag.pbQuantity(:HM05) < 1 && $game_switches[SWITCH_GOT_WATERFALL]
+    pbReceiveItem(:HM05)
+  end
+
+  # Dive
+  if $PokemonBag.pbQuantity(:HM06) < 1 && $game_switches[SWITCH_GOT_DIVE]
+    pbReceiveItem(:HM06)
+  end
+
+  # Rock Climb
+  if $PokemonBag.pbQuantity(:HM10) < 1 && $game_switches[SWITCH_GOT_ROCK_CLIMB]
+    pbReceiveItem(:HM10)
+  end
+end
+
+def fixFinishedRocketQuests()
+  fix_broken_TR_quests()
+
+  var_tr_missions_cerulean = 288
+
+  switch_tr_mission_cerulean_4 = 1116
+  switch_tr_mission_celadon_1 = 1084
+  switch_tr_mission_celadon_2 = 1086
+  switch_tr_mission_celadon_3 = 1088
+  switch_tr_mission_celadon_4 = 1110
+  switch_pinkan_done = 1119
+
+  nb_cerulean_missions = pbGet(var_tr_missions_cerulean)
+
+  finishTRQuest("tr_cerulean_1", :SUCCESS, true) if nb_cerulean_missions >= 1 && !pbCompletedQuest?("tr_cerulean_1")
+  echoln pbCompletedQuest?("tr_cerulean_1")
+  finishTRQuest("tr_cerulean_2", :SUCCESS, true) if nb_cerulean_missions >= 2 && !pbCompletedQuest?("tr_cerulean_2")
+  finishTRQuest("tr_cerulean_3", :SUCCESS, true) if nb_cerulean_missions >= 3 && !pbCompletedQuest?("tr_cerulean_3")
+  finishTRQuest("tr_cerulean_4", :SUCCESS, true) if $game_switches[switch_tr_mission_cerulean_4] && !pbCompletedQuest?("tr_cerulean_4")
+
+  finishTRQuest("tr_celadon_1", :SUCCESS, true) if $game_switches[switch_tr_mission_celadon_1] && !pbCompletedQuest?("tr_celadon_1")
+  finishTRQuest("tr_celadon_2", :SUCCESS, true) if $game_switches[switch_tr_mission_celadon_2] && !pbCompletedQuest?("tr_celadon_2")
+  finishTRQuest("tr_celadon_3", :SUCCESS, true) if $game_switches[switch_tr_mission_celadon_3] && !pbCompletedQuest?("tr_celadon_3")
+  finishTRQuest("tr_celadon_4", :SUCCESS, true) if $game_switches[switch_tr_mission_celadon_4] && !pbCompletedQuest?("tr_celadon_4")
+
+  finishTRQuest("tr_pinkan", :SUCCESS, true) if $game_switches[switch_pinkan_done] && !pbCompletedQuest?("tr_pinkan")
+end
+
+def fix_broken_TR_quests()
+  for trainer_quest in $player.quests
+    if trainer_quest.id == 0 # tr quests were all set to ID 0 instead of their real ID in v 6.4.0
+      for rocket_quest_id in TR_QUESTS.keys
+        rocket_quest = TR_QUESTS[rocket_quest_id]
+        next if !rocket_quest
+        if trainer_quest.name == rocket_quest.name
+          trainer_quest.id = rocket_quest_id
+        end
+      end
+    end
+  end
+end
+
+def failAllIncompleteRocketQuests()
+  for trainer_quest in $player.quests
+    finishTRQuest("tr_cerulean_1", :FAILURE) if trainer_quest.id == "tr_cerulean_1" && !pbCompletedQuest?("tr_cerulean_1")
+    finishTRQuest("tr_cerulean_2", :FAILURE) if trainer_quest.id == "tr_cerulean_2" && !pbCompletedQuest?("tr_cerulean_2")
+    finishTRQuest("tr_cerulean_3", :FAILURE) if trainer_quest.id == "tr_cerulean_3" && !pbCompletedQuest?("tr_cerulean_3")
+    finishTRQuest("tr_cerulean_4", :FAILURE) if trainer_quest.id == "tr_cerulean_4" && !pbCompletedQuest?("tr_cerulean_4")
+
+    finishTRQuest("tr_celadon_1", :FAILURE) if trainer_quest.id == "tr_celadon_1" && !pbCompletedQuest?("tr_celadon_1")
+    finishTRQuest("tr_celadon_2", :FAILURE) if trainer_quest.id == "tr_celadon_2" && !pbCompletedQuest?("tr_celadon_2")
+    finishTRQuest("tr_celadon_3", :FAILURE) if trainer_quest.id == "tr_celadon_3" && !pbCompletedQuest?("tr_celadon_3")
+    finishTRQuest("tr_celadon_4", :FAILURE) if trainer_quest.id == "tr_celadon_4" && !pbCompletedQuest?("tr_celadon_4")
+  end
+end

Data/Scripts/998_InfiniteFusion/Gameplay/Utils/SpritesUtils.rb

@@ -0,0 +1,7 @@
+#ex:Game_Event.new
+# forced_sprites = {"1.133" => "a"}
+# setForcedAltSprites(forced_sprites)
+#
+def setForcedAltSprites(forcedSprites_map)
+  $PokemonTemp.forced_alt_sprites = forcedSprites_map
+end

Data/Scripts/998_InfiniteFusion/Gameplay/Utils/SystemUtils.rb

@@ -0,0 +1,145 @@
+# frozen_string_literal: true
+
+# todo: implement
+def getMappedKeyFor(internalKey)
+
+  keybinding_fileName = "keybindings.mkxp1"
+  path = System.data_directory + keybinding_fileName
+
+  parse_keybindings(path)
+
+  # echoln Keybindings.new(path).bindings
+end
+
+
+
+def formatNumberToString(number)
+  return number.to_s.reverse.gsub(/(\d{3})(?=\d)/, '\\1,').reverse
+end
+
+def playCry(pokemonSpeciesSymbol)
+  species = GameData::Species.get(pokemonSpeciesSymbol).species
+  GameData::Species.play_cry_from_species(species)
+end
+
+# Get difficulty for displaying in-game
+def getDisplayDifficulty
+  if $game_switches[SWITCH_GAME_DIFFICULTY_EASY] || $player.lowest_difficulty <= 0
+    return getDisplayDifficultyFromIndex(0)
+  elsif $player.lowest_difficulty <= 1
+    return getDisplayDifficultyFromIndex(1)
+  elsif $game_switches[SWITCH_GAME_DIFFICULTY_HARD]
+    return getDisplayDifficultyFromIndex(2)
+  else
+    return getDisplayDifficultyFromIndex(1)
+  end
+end
+
+def getDisplayDifficultyFromIndex(difficultyIndex)
+  return "Easy" if difficultyIndex == 0
+  return "Normal" if difficultyIndex == 1
+  return "Hard" if difficultyIndex == 2
+  return "???"
+end
+
+def getGameModeFromIndex(index)
+  return "Classic" if index == 0
+  return "Random" if index == 1
+  return "Remix" if index == 2
+  return "Expert" if index == 3
+  return "Species" if index == 4
+  return "Debug" if index == 5
+  return ""
+end
+
+def openUrlInBrowser(url = "")
+  begin
+    # Open the URL in the default web browser
+    system("xdg-open", url) || system("open", url) || system("start", url)
+  rescue
+    Input.clipboard = url
+    pbMessage("The game could not open the link in the browser")
+    pbMessage("The link has been copied to your clipboard instead")
+  end
+end
+
+def clearAllSelfSwitches(mapID, switch = "A", newValue = false)
+  map = $MapFactory.getMap(mapID, false)
+  map.events.each { |event_array|
+    event_id = event_array[0]
+    pbSetSelfSwitch(event_id, switch, newValue, mapID)
+  }
+end
+
+
+def isTuesdayNight()
+  day = getDayOfTheWeek()
+  hour = pbGetTimeNow().hour
+  echoln hour
+  return (day == :TUESDAY && hour >= 20) || (day == :WEDNESDAY && hour < 5)
+end
+
+
+def setDifficulty(index)
+  $player.selected_difficulty = index
+  case index
+  when 0 # EASY
+    $game_switches[SWITCH_GAME_DIFFICULTY_EASY] = true
+    $game_switches[SWITCH_GAME_DIFFICULTY_HARD] = false
+  when 1 # NORMAL
+    $game_switches[SWITCH_GAME_DIFFICULTY_EASY] = false
+    $game_switches[SWITCH_GAME_DIFFICULTY_HARD] = false
+  when 2 # HARD
+    $game_switches[SWITCH_GAME_DIFFICULTY_EASY] = false
+    $game_switches[SWITCH_GAME_DIFFICULTY_HARD] = true
+  end
+end
+
+# Old menu for changing difficulty - unused
+def change_game_difficulty(down_only = false)
+  message = "The game is currently on " + get_difficulty_text() + " difficulty."
+  pbMessage(message)
+
+  choice_easy = "Easy"
+  choice_normal = "Normal"
+  choice_hard = "Hard"
+  choice_cancel = "Cancel"
+
+  available_difficulties = []
+  currentDifficulty = get_current_game_difficulty
+  if down_only
+    if currentDifficulty == :HARD
+      available_difficulties << choice_hard
+      available_difficulties << choice_normal
+      available_difficulties << choice_easy
+    elsif currentDifficulty == :NORMAL
+      available_difficulties << choice_normal
+      available_difficulties << choice_easy
+    elsif currentDifficulty == :EASY
+      available_difficulties << choice_easy
+    end
+  else
+    available_difficulties << choice_easy
+    available_difficulties << choice_normal
+    available_difficulties << choice_hard
+  end
+  available_difficulties << choice_cancel
+  index = pbMessage("Select a new difficulty", available_difficulties, available_difficulties[-1])
+  choice = available_difficulties[index]
+  case choice
+  when choice_easy
+    $game_switches[SWITCH_GAME_DIFFICULTY_EASY] = true
+    $game_switches[SWITCH_GAME_DIFFICULTY_HARD] = false
+  when choice_normal
+    $game_switches[SWITCH_GAME_DIFFICULTY_EASY] = false
+    $game_switches[SWITCH_GAME_DIFFICULTY_HARD] = false
+  when choice_hard
+    $game_switches[SWITCH_GAME_DIFFICULTY_EASY] = false
+    $game_switches[SWITCH_GAME_DIFFICULTY_HARD] = true
+  when choice_cancel
+    return
+  end
+
+  message = "The game is currently on " + get_difficulty_text() + " difficulty."
+  pbMessage(message)
+end

Data/Scripts/998_InfiniteFusion/Gameplay/game_start.rb

@@ -0,0 +1,34 @@
+
+SWITCH_GYM_RANDOM_EACH_BATTLE=668
+SWITCH_NO_BUMP_SOUND=108
+SWITCH_HAS_PREVIOUS_SAVEFILE = 972
+VARIABLE_BATTLE_STYLE = 199
+
+def setup_new_game()
+  set_new_game_switches
+  set_new_game_variables
+  setup_player
+  setup_randomizer
+end
+
+def set_new_game_switches
+  $game_switches[SWITCH_GYM_RANDOM_EACH_BATTLE] = true
+  $game_switches[SWITCH_NO_BUMP_SOUND] = true
+  $game_switches[SWITCH_HAS_PREVIOUS_SAVEFILE]= SaveData.exists?
+end
+
+def set_new_game_variables
+  pbSet(VARIABLE_BATTLE_STYLE,0)
+end
+
+def setup_player
+  $player.has_running_shoes=true
+  #pbChangePlayer(0)
+end
+
+def setup_randomizer
+  #init the random items hash even if  it's not used
+
+  #pbShuffleItems
+  #pbShuffleTMs
+end

Data/Scripts/998_InfiniteFusion/InfiniteFusionSettings.rb

@@ -0,0 +1,672 @@
+# frozen_string_literal: true
+
+#==============================================================================#
+#                              Pokémon Essentials                              #
+#                               Version 19.1.dev                               #
+#                https://github.com/Maruno17/pokemon-essentials                #
+#==============================================================================#
+module Settings
+  # The version of your game. It has to adhere to the MAJOR.MINOR.PATCH format.
+  GAME_VERSION = '6.5.1'
+  GAME_VERSION_NUMBER = "6.5.1"
+  LATEST_GAME_RELEASE = "6.5"
+
+  POKERADAR_LIGHT_ANIMATION_RED_ID = 17
+  POKERADAR_LIGHT_ANIMATION_GREEN_ID = 18
+  POKERADAR_HIDDEN_ABILITY_POKE_CHANCE = 32
+  POKERADAR_BATTERY_STEPS = 0
+
+  LEADER_VICTORY_MUSIC="Battle victory leader"
+  TRAINER_VICTORY_MUSIC="trainer-victory"
+  WILD_VICTORY_MUSIC="wild-victory"
+  #getRandomCustomFusionForIntro
+  FUSION_ICON_SPRITE_OFFSET = 10
+
+  #Infinite fusion settings
+  NB_POKEMON = 501
+  CUSTOM_BASE_SPRITES_FOLDER = "Graphics/CustomBattlers/local_sprites/BaseSprites/"
+  CUSTOM_BATTLERS_FOLDER = "Graphics/CustomBattlers/"
+  CUSTOM_SPRITES_TO_IMPORT_FOLDER = "Graphics/CustomBattlers/Sprites to import/"
+  CUSTOM_BATTLERS_FOLDER_INDEXED = "Graphics/CustomBattlers/local_sprites/indexed/"
+  CUSTOM_BASE_SPRITE_FOLDER = "Graphics/CustomBattlers/local_sprites/BaseSprites/"
+  BATTLERS_FOLDER = "Graphics/Battlers/Autogens/"
+  DOWNLOADED_SPRITES_FOLDER = "Graphics/temp/"
+  DEFAULT_SPRITE_PATH = "Graphics/Battlers/Special/000.png"
+  CREDITS_FILE_PATH = "Data/sprites/Sprite Credits.csv"
+  VERSION_FILE_PATH = "Data/VERSION"
+  CUSTOM_SPRITES_FILE_PATH = "Data/sprites/CUSTOM_SPRITES"
+  BASE_SPRITES_FILE_PATH = "Data/sprites/BASE_SPRITES"
+  CUSTOM_DEX_ENTRIES_PATH = "Data/pokedex/dex.json"
+  AI_DEX_ENTRIES_PATH = "Data/pokedex/generated_entries.json"
+  POKEDEX_ENTRIES_PATH = "Data/pokedex/all_entries.json"
+
+  UPDATED_SPRITESHEETS_CACHE = "Data/sprites/updated_spritesheets_cache"
+
+  BACK_ITEM_ICON_PATH = "Graphics/Items/back.png"
+
+  PLAYER_GRAPHICS_FOLDER = "Graphics/Characters/player/"
+  PLAYER_HAT_FOLDER = 'hat'
+  PLAYER_HAIR_FOLDER = 'hair'
+  PLAYER_CLOTHES_FOLDER = 'clothes'
+  PLAYER_BALL_FOLDER = 'balls'
+  PLAYER_TEMP_OUTFIT_FALLBACK = 'temp'
+
+
+  HATS_DATA_PATH = "Data/outfits/hats_data.json"
+  HAIRSTYLE_DATA_PATH = "Data/outfits/hairstyles_data.json"
+  CLOTHES_DATA_PATH = "Data/outfits/clothes_data.json"
+
+  PLAYER_SURFBASE_FOLDER = 'surf_base/'
+  OW_SHINE_ANIMATION_ID=25
+
+  HTTP_CONFIGS_FILE_URL = "https://raw.githubusercontent.com/infinitefusion/pif-downloadables/refs/heads/master/Settings.rb"
+  HTTP_CONFIGS_FILE_PATH = "Data/Scripts/DownloadedSettings.rb"
+
+  SPRITES_FILE_URL = "https://raw.githubusercontent.com/infinitefusion/infinitefusion-e18/main/Data/sprites/CUSTOM_SPRITES"
+  BASE_SPRITES_FILE_URL = "https://raw.githubusercontent.com/infinitefusion/infinitefusion-e18/main/Data/sprites/BASE_SPRITES"
+
+  CREDITS_FILE_URL = "https://infinitefusion.net/Sprite Credits.csv"
+  CUSTOM_DEX_FILE_URL = "https://raw.githubusercontent.com/infinitefusion/pif-downloadables/refs/heads/master/dex.json"
+
+  STARTUP_MESSAGES = ""
+
+  LEVEL_CAPS=[12,22,26,35,38,45,51,54,62,62,63,64,64,65,67,68]
+
+  CUSTOM_ENTRIES_NAME_PLACEHOLDER = "POKENAME"
+
+  DEFAULT_SPEED_UP_SPEED=2
+  FRONTSPRITE_POSITION_OFFSET = 20
+  FRONTSPRITE_SCALE = 0.6666666666666666
+  BACKRPSPRITE_SCALE = 1
+  EGGSPRITE_SCALE = 1
+  BACKSPRITE_POSITION_OFFSET = 20
+  FRONTSPRITE_POSITION = 200
+  SHINY_HUE_OFFSET = 75
+  NO_LEVEL_MODE_LEVEL_INCR = 5.8
+  NO_LEVEL_MODE_LEVEL_BASE = 6
+
+  SAVEFILE_NB_BACKUPS=10
+
+  DISCORD_URL = "https://discord.com/invite/infinitefusion"
+  WIKI_URL = "https://infinitefusion.fandom.com/"
+
+  AI_ENTRIES_URL = "https://ai-entries.pkmninfinitefusion.workers.dev/"
+  AI_ENTRIES_RATE_MAX_NB_REQUESTS = 10  #Nb. requests allowed in each time window
+  AI_ENTRIES_RATE_TIME_WINDOW = 120    # In seconds
+  AI_ENTRIES_RATE_LOG_FILE = 'Data/pokedex/dex_rate_limit.log'  # Path to the log file
+
+  CUSTOMSPRITES_RATE_MAX_NB_REQUESTS = 15  #Nb. requests allowed in each time window
+  CUSTOMSPRITES_ENTRIES_RATE_TIME_WINDOW = 120    # In seconds
+  CUSTOMSPRITES_RATE_LOG_FILE = 'Data/sprites/sprites_rate_limit.log'  # Path to the log file
+  MAX_NB_SPRITES_TO_DOWNLOAD_AT_ONCE=5
+
+  CUSTOM_SPRITES_REPO_URL = "https://bitbucket.org/infinitefusionsprites/customsprites/raw/main/CustomBattlers/"
+  CUSTOM_SPRITES_NEW_URL = "https://infinitefusion.net/CustomBattlers/"
+
+  BASE_POKEMON_ALT_SPRITES_REPO_URL = "https://bitbucket.org/infinitefusionsprites/customsprites/raw/main/Other/BaseSprites/"
+  BASE_POKEMON_ALT_SPRITES_NEW_URL = "https://infinitefusion.net/Other/BaseSprites/"
+
+  BASE_POKEMON_SPRITESHEET_URL = "https://infinitefusion.net/spritesheets/spritesheets_base/"
+  CUSTOM_FUSIONS_SPRITESHEET_URL = "https://infinitefusion.net/spritesheets/spritesheets_custom/"
+
+  BASE_POKEMON_SPRITESHEET_TRUE_SIZE_URL = ""
+  CUSTOM_FUSIONS_SPRITESHEET_TRUE_SIZE_URL = ""
+
+  RIVAL_STARTER_PLACEHOLDER_SPECIES = :MEW #(MEW)
+  VAR_1_PLACEHOLDER_SPECIES = :DIALGA
+  VAR_2_PLACEHOLDER_SPECIES = :PALKIA
+  VAR_3_PLACEHOLDER_SPECIES = :GIRATINA
+
+  RIVAL_STARTER_PLACEHOLDER_VARIABLE = 250
+
+  OVERRIDE_BATTLE_LEVEL_SWITCH = 785
+  OVERRIDE_BATTLE_LEVEL_VALUE_VAR = 240
+  HARD_MODE_LEVEL_MODIFIER = 1.1
+
+  ZAPMOLCUNO_NB = 999999#176821
+  MAPS_WITHOUT_SURF_MUSIC = [762]
+
+  WONDERTRADE_BASE_URL = "http://localhost:8080"
+  WONDERTRADE_PUBLIC_KEY = "http://localhost:8080"
+
+  MAX_NB_OUTFITS=99
+
+  OUTFIT_PREVIEW_PICTURE_ID=20
+
+  DEFAULT_TRAINER_CARD_BG="BLUE"
+
+  # The generation that the battle system follows. Used throughout the battle
+  # scripts, and also by some other settings which are used in and out of battle
+  # (you can of course change those settings to suit your game).
+  # Note that this isn't perfect. Essentials doesn't accurately replicate every
+  # single generation's mechanics. It's considered to be good enough. Only
+  # generations 5 and later are reasonably supported.
+  MECHANICS_GENERATION = 5
+
+  #=============================================================================
+
+  # The default screen width (at a scale of 1.0).
+  SCREEN_WIDTH = 512
+  # The default screen height (at a scale of 1.0).
+  SCREEN_HEIGHT = 384
+  # The default screen scale factor. Possible values are 0.5, 1.0, 1.5 and 2.0.
+  SCREEN_SCALE = 1.0
+
+  FADEOUT_SPEED = 0.2
+
+  #=============================================================================
+
+  # The maximum level Pokémon can reach.
+  MAXIMUM_LEVEL = 100
+  # The level of newly hatched Pokémon.
+  EGG_LEVEL = 1
+  # Number of badges in the game
+  NB_BADGES = 16
+  # The odds of a newly generated Pokémon being shiny (out of 65536).
+  SHINY_POKEMON_CHANCE = 16#(MECHANICS_GENERATION >= 6) ? 16 : 8
+
+  # The odds of a wild Pokémon/bred egg having Pokérus (out of 65536).
+  POKERUS_CHANCE = 3
+  # Whether a bred baby Pokémon can inherit any TM/HM moves from its father. It
+  # can never inherit TM/HM moves from its mother.
+  BREEDING_CAN_INHERIT_MACHINE_MOVES = (MECHANICS_GENERATION <= 5)
+  # Whether a bred baby Pokémon can inherit egg moves from its mother. It can
+  # always inherit egg moves from its father.
+  BREEDING_CAN_INHERIT_EGG_MOVES_FROM_MOTHER = (MECHANICS_GENERATION >= 6)
+
+  KANTO_STARTERS = [:BULBASAUR, :CHARMANDER, :SQUIRTLE]
+  JOHTO_STARTERS = [:CHIKORITA, :CYNDAQUIL, :TOTODILE]
+  HOENN_STARTERS = [:TREECKO, :TORCHIC, :MUDKIP]
+  SINNOH_STARTERS = [:TURTWIG, :CHIMCHAR, :PIPLUP]
+  KALOS_STARTERS = [:CHESPIN, :FENNEKIN, :FROAKIE]
+
+
+  #=============================================================================
+
+  # The amount of money the player starts the game with.
+  INITIAL_MONEY = 3000
+  # The maximum amount of money the player can have.
+  MAX_MONEY = 999_999
+  # The maximum number of Game Corner coins the player can have.
+  MAX_COINS = 99_999
+  # The maximum number of Battle Points the player can have.
+  MAX_BATTLE_POINTS = 9_999
+  # The maximum amount of soot the player can have.
+  MAX_SOOT = 9_999
+  # The maximum length, in characters, that the player's name can be.
+  MAX_PLAYER_NAME_SIZE = 10
+  # The maximum number of Pokémon that can be in the party.
+  MAX_PARTY_SIZE = 6
+
+  #=============================================================================
+
+  # A set of arrays each containing a trainer type followed by a Global Variable
+  # number. If the variable isn't set to 0, then all trainers with the
+  # associated trainer type will be named as whatever is in that variable.
+  RIVAL_NAMES = [
+    [:RIVAL1, 12],
+    [:RIVAL2, 12],
+    [:CHAMPION, 12]
+  ]
+
+  #=============================================================================
+
+  # Whether outdoor maps should be shaded according to the time of day.
+  TIME_SHADING = true
+
+  #=============================================================================
+
+  # Whether poisoned Pokémon will lose HP while walking around in the field.
+  POISON_IN_FIELD = true #(MECHANICS_GENERATION <= 4)
+  # Whether poisoned Pokémon will faint while walking around in the field
+  # (true), or survive the poisoning with 1 HP (false).
+  POISON_FAINT_IN_FIELD = (MECHANICS_GENERATION >= 3)
+  # Whether planted berries grow according to Gen 4 mechanics (true) or Gen 3
+  # mechanics (false).
+  NEW_BERRY_PLANTS = (MECHANICS_GENERATION >= 4)
+  # Whether fishing automatically hooks the Pokémon (true), or whether there is
+  # a reaction test first (false).
+  FISHING_AUTO_HOOK = false
+  # The ID of the common event that runs when the player starts fishing (runs
+  # instead of showing the casting animation).
+  FISHING_BEGIN_COMMON_EVENT = -1
+  # The ID of the common event that runs when the player stops fishing (runs
+  # instead of showing the reeling in animation).
+  FISHING_END_COMMON_EVENT = -1
+
+  #=============================================================================
+
+  # The number of steps allowed before a Safari Zone game is over (0=infinite).
+  SAFARI_STEPS = 600
+  # The number of seconds a Bug Catching Contest lasts for (0=infinite).
+  BUG_CONTEST_TIME = 20 * 60 # 20 minutes
+
+  #=============================================================================
+
+  # Pairs of map IDs, where the location signpost isn't shown when moving from
+  # one of the maps in a pair to the other (and vice versa). Useful for single
+  # long routes/towns that are spread over multiple maps.
+  #   e.g. [4,5,16,17,42,43] will be map pairs 4,5 and 16,17 and 42,43.
+  # Moving between two maps that have the exact same name won't show the
+  # location signpost anyway, so you don't need to list those maps here.
+  NO_SIGNPOSTS = []
+
+  #=============================================================================
+
+  # Whether you need at least a certain number of badges to use some hidden
+  # moves in the field (true), or whether you need one specific badge to use
+  # them (false). The amounts/specific badges are defined below.
+  FIELD_MOVES_COUNT_BADGES = true
+  # Depending on FIELD_MOVES_COUNT_BADGES, either the number of badges required
+  # to use each hidden move in the field, or the specific badge number required
+  # to use each move. Remember that badge 0 is the first badge, badge 1 is the
+  # second badge, etc.
+  #   e.g. To require the second badge, put false and 1.
+  #        To require at least 2 badges, put true and 2.
+  BADGE_FOR_CUT = 1
+  BADGE_FOR_FLASH = 1
+  BADGE_FOR_ROCKSMASH = 0
+  BADGE_FOR_SURF = 6
+  BADGE_FOR_FLY = 3
+  BADGE_FOR_STRENGTH = 5
+  BADGE_FOR_DIVE = 9
+  BADGE_FOR_WATERFALL = 9
+  BADGE_FOR_TELEPORT = 3
+  BADGE_FOR_BOUNCE = 8
+  BADGE_FOR_ROCKCLIMB = 16
+  #=============================================================================
+
+  # If a move taught by a TM/HM/TR replaces another move, this setting is
+  # whether the machine's move retains the replaced move's PP (true), or whether
+  # the machine's move has full PP (false).
+  TAUGHT_MACHINES_KEEP_OLD_PP = (MECHANICS_GENERATION == 5)
+  # Whether the Black/White Flutes will raise/lower the levels of wild Pokémon
+  # respectively (true), or will lower/raise the wild encounter rate
+  # respectively (false).
+  FLUTES_CHANGE_WILD_ENCOUNTER_LEVELS = (MECHANICS_GENERATION >= 6)
+  # Whether Repel uses the level of the first Pokémon in the party regardless of
+  # its HP (true), or it uses the level of the first unfainted Pokémon (false).
+  REPEL_COUNTS_FAINTED_POKEMON = (MECHANICS_GENERATION >= 6)
+  # Whether Rage Candy Bar acts as a Full Heal (true) or a Potion (false).
+  RAGE_CANDY_BAR_CURES_STATUS_PROBLEMS = (MECHANICS_GENERATION >= 7)
+
+  #=============================================================================
+
+  # The name of the person who created the Pokémon storage system.
+  def self.storage_creator_name
+    return _INTL("Bill")
+  end
+
+  # The number of boxes in Pokémon storage.
+  NUM_STORAGE_BOXES = 40
+
+  #=============================================================================
+
+  # The names of each pocket of the Bag. Ignore the first entry ("").
+  def self.bag_pocket_names
+    return ["",
+            _INTL("Items"),
+            _INTL("Medicine"),
+            _INTL("Poké Balls"),
+            _INTL("TMs & HMs"),
+            _INTL("Berries"),
+            _INTL("Mail"),
+            _INTL("Battle Items"),
+            _INTL("Key Items")
+    ]
+  end
+
+  # The maximum number of slots per pocket (-1 means infinite number). Ignore
+  # the first number (0).
+  BAG_MAX_POCKET_SIZE = [0, -1, -1, -1, -1, -1, -1, -1, -1]
+  # The maximum number of items each slot in the Bag can hold.
+  BAG_MAX_PER_SLOT = 999
+  # Whether each pocket in turn auto-sorts itself by item ID number. Ignore the
+  # first entry (the 0).
+  BAG_POCKET_AUTO_SORT = [0, false, false, false, true, true, false, false, false]
+
+  #=============================================================================
+
+  # Whether the Pokédex list shown is the one for the player's current region
+  # (true), or whether a menu pops up for the player to manually choose which
+  # Dex list to view if more than one is available (false).
+  USE_CURRENT_REGION_DEX = false
+  # The names of the Pokédex lists, in the order they are defined in the PBS
+  # file "regionaldexes.txt". The last name is for the National Dex and is added
+  # onto the end of this array (remember that you don't need to use it). This
+  # array's order is also the order of $player.pokedex.unlocked_dexes, which
+  # records which Dexes have been unlocked (the first is unlocked by default).
+  # If an entry is just a name, then the region map shown in the Area page while
+  # viewing that Dex list will be the region map of the region the player is
+  # currently in. The National Dex entry should always behave like this.
+  # If an entry is of the form [name, number], then the number is a region
+  # number. That region's map will appear in the Area page while viewing that
+  # Dex list, no matter which region the player is currently in.
+  def self.pokedex_names
+    return [
+      # [_INTL("Kanto Pokédex"), 0]
+    ]
+  end
+
+  # Whether all forms of a given species will be immediately available to view
+  # in the Pokédex so long as that species has been seen at all (true), or
+  # whether each form needs to be seen specifically before that form appears in
+  # the Pokédex (false).
+  DEX_SHOWS_ALL_FORMS = false
+  # An array of numbers, where each number is that of a Dex list (in the same
+  # order as above, except the National Dex is -1). All Dex lists included here
+  # will begin their numbering at 0 rather than 1 (e.g. Victini in Unova's Dex).
+  DEXES_WITH_OFFSETS = []
+
+
+  #=============================================================================
+
+  # A set of arrays, each containing details of a graphic to be shown on the
+  # region map if appropriate. The values for each array are as follows:
+  #   * Region number.
+  #   * Game Switch; the graphic is shown if this is ON (non-wall maps only).
+  #   * X coordinate of the graphic on the map, in squares.
+  #   * Y coordinate of the graphic on the map, in squares.
+  #   * Name of the graphic, found in the Graphics/Pictures folder.
+  #   * The graphic will always (true) or never (false) be shown on a wall map.
+  REGION_MAP_EXTRAS = [
+    #[0, 51, 16, 15, "mapHiddenBerth", false],
+    #[0, 52, 20, 14, "mapHiddenFaraday", false]
+  ]
+
+  TRIPLE_TYPES = [:QMARKS,:ICEFIREELECTRIC,:FIREWATERELECTRIC,:WATERGROUNDFLYING,:GHOSTSTEELWATER,
+                  :FIREWATERGRASS,:GRASSSTEEL,:BUGSTEELPSYCHIC,:ICEROCKSTEEL]
+
+  #=============================================================================
+
+  # A list of maps used by roaming Pokémon. Each map has an array of other maps
+  # it can lead to.
+  ROAMING_AREAS = {
+    262  => [261,311],
+    311 => [262,312],
+    312 => [311],
+    261 => [262,288,267],
+    288 => [261,267,285],
+    267 => [261,288,300,254],
+    284 => [288,266,285],
+    300 => [267,254],
+    254 => [300,265],
+    266 => [284,265],
+    265 => [266,254],
+    285 => [284,288]}
+
+  SEVII_ROAMING = {
+    528  => [526],         #Treasure beach
+    526 => [528,559],          #Knot Island
+    559 => [526,561,564],      #Kindle Road
+    561 => [559],              #Mt. Ember
+    564 => [559,562,563,594],  #brine road
+    562 => [564],              #boon island
+    563 => [564,600] ,         #kin island
+    594 => [564,566,603],      #water labyrinth
+    600 => [563,619],          #bond bridge
+    619 => [600] ,             #Berry forest
+    566 => [594,603],          #Resort gorgeous
+    603 => [566,594],          #Chrono Island
+  }
+  # A set of arrays, each containing the details of a roaming Pokémon. The
+  # information within each array is as follows:
+  #   * Species.
+  #   * Level.
+  #   * Game Switch; the Pokémon roams while this is ON.
+  #   * Encounter type (0=any, 1=grass/walking in cave, 2=surfing, 3=fishing,
+  #     4=surfing/fishing). See the bottom of PField_RoamingPokemon for lists.
+  #   * Name of BGM to play for that encounter (optional).
+  #   * Roaming areas specifically for this Pokémon (optional).
+  ROAMING_SPECIES = [
+    # {
+    #   :species        => :LATIAS,
+    #   :level          => 30,
+    #   :icon           => "pin_latias",
+    #   :game_switch    => 53,
+    #   :encounter_type => :all,
+    #   :bgm            => "Battle roaming"
+    # },
+    # {
+    #   :species        => :LATIOS,
+    #   :level          => 30,
+    #   :icon           => "pin_latios",
+    #   :game_switch    => 53,
+    #   :encounter_type => :all,
+    #   :bgm            => "Battle roaming"
+    # },
+    # {
+    #   :species        => :KYOGRE,
+    #   :level          => 40,
+    #   :game_switch    => 54,
+    #   :encounter_type => :surfing,
+    #   :areas          => {
+    #     2  => [   21, 31    ],
+    #     21 => [2,     31, 69],
+    #     31 => [2, 21,     69],
+    #     69 => [   21, 31    ]
+    #   }
+    # },
+    # {
+    #   :species        => :ENTEI,
+    #   :level          => 40,
+    #   :icon           => "pin_entei",
+    #   :game_switch    => 55,
+    #   :encounter_type => :land
+    # }
+  ]
+
+  PINKAN_ISLAND_MAPS=[51,46,428,531]
+
+  #=============================================================================
+
+  # A set of arrays, each containing the details of a wild encounter that can
+  # only occur via using the Poké Radar. The information within each array is as
+  # follows:
+  #   * Map ID on which this encounter can occur.
+  #   * Probability that this encounter will occur (as a percentage).
+  #   * Species.
+  #   * Minimum possible level.
+  #   * Maximum possible level (optional).
+  POKE_RADAR_ENCOUNTERS = [
+    [78, 50,  :FLETCHLING,2,5],         #Rt. 1
+    [86, 50,  :FLETCHLING,2,5],         #Rt. 2
+    [90, 50,  :FLETCHLING,2,5],         #Rt. 2
+    [491, 50, :SHROOMISH,2,5],          #Viridian Forest
+    [490, 50, :BUDEW,4,9],              #Rt. 3
+    [106, 50, :NINCADA,8,10],           #Rt. 4
+    [12, 50,  :TOGEPI,10,10],           #Rt. 5
+    [16, 50,  :SLAKOTH,12,15],          #Rt. 6
+    [413, 50, :DRIFLOON,17,20],         #Rt. 7
+    [409, 50, :SHINX,17,18],            #Rt. 8
+    [495, 50, :ARON,12,15],             #Rt. 9
+    [351, 50, :ARON,12,15],             #Rt. 9
+    [154, 50, :KLINK,14,17],            #Rt. 10
+    [155, 50, :NINCADA,12,15],          #Rt. 11
+    [159, 50, :COTTONEE,22,25],         #Rt. 12
+    [437, 50, :COTTONEE,22,25],         #Rt. 13
+    [437, 50, :JOLTIK,22,25],           #Rt. 13
+    [440, 50, :JOLTIK,22,25],           #Rt. 14
+    [444, 50, :SOLOSIS,22,25],          #Rt. 15
+    [438, 50, :NATU,22,25],             #Rt. 16
+    [146, 50, :KLEFKI,22,25],           #Rt. 17
+    [517, 50, :FERROSEED,22,25],        #Rt. 18
+    [445, 50, :BAGON,20,20],            #Safari zone 1
+    [484, 50, :AXEW,20,20],             #Safari zone 2
+    [485, 50, :DEINO,20,20],            #Safari zone 3
+    [486, 50, :LARVITAR,20,20],         #Safari zone 4
+    [487, 50, :JANGMOO,20,20],           #Safari zone 5
+    [59, 50,  :DUNSPARCE,25,30],        #Rt. 21
+    [171, 50, :BIDOOF,2,5],             #Rt. 22
+    [143, 50, :RIOLU,25,25],            #Rt. 23
+    [8, 50,   :BUNEARY,12,13],          #Rt. 24
+    [145, 50, :ABSOL,30,35],            #Rt. 26
+    [147, 50, :ABSOL,30,35],            #Rt. 27
+    [311, 50, :BIDOOF,5,5],             #Rt. 29
+    [284, 50, :LUXIO,40,45],            #Rt. 33
+    [288, 50, :VIGOROTH,40,45],         #Rt. 32
+    [342, 50, :GOLETT,40,45],           #Ruins of Alph
+    [261, 50, :BELLOSSOM,45,50],        #Rt. 31
+    [262, 50, :BIBAREL,45,50],          #Rt. 30
+    [265, 50, :KIRLIA,25,30],           #Rt. 34
+    [254, 50, :SMEARGLE,25,30],         #Rt. 35
+    [267, 50, :SUDOWOODO,25,30],        #Rt. 36
+    [500, 50, :FOMANTIS,30,30],          #National Park
+    [266, 50, :BRELOOM,30,30],          #Ilex Forest
+    [670, 50, :WEAVILE,50,50],          #Ice mountains
+    [528, 50, :PYUKUMUKU,20,20],        #Treasure Beach
+    [690, 50, :OCTILLERY,32,45],        #Deep Ocean
+    [561, 50, :FLETCHINDER,32,45],      #Mt. Ember
+    [562, 50, :NINJASK,45,50],          #Boon Island
+    [603, 50, :KECLEON,45,50],          #Chrono Island
+    [654, 50, :WHIMSICOTT,32,45],        #Brine Road
+    [559, 50, :SCRAGGY,32,45]        #Kindle Road
+  ]
+
+  #=============================================================================
+
+  # The Game Switch that is set to ON when the player blacks out.
+  STARTING_OVER_SWITCH = 1
+  # The Game Switch that is set to ON when the player has seen Pokérus in the
+  # Poké Center (and doesn't need to be told about it again).
+  SEEN_POKERUS_SWITCH = 2
+  # The Game Switch which, while ON, makes all wild Pokémon created be shiny.
+  SHINY_WILD_POKEMON_SWITCH = 31
+  # The Game Switch which, while ON, makes all Pokémon created considered to be
+  # met via a fateful encounter.
+  FATEFUL_ENCOUNTER_SWITCH = 32
+
+  #=============================================================================
+
+  # ID of the animation played when the player steps on grass (grass rustling).
+  GRASS_ANIMATION_ID = 1
+  # ID of the animation played when the player lands on the ground after hopping
+  # over a ledge (shows a dust impact).
+  DUST_ANIMATION_ID = 2
+  # ID of the animation played when a trainer notices the player (an exclamation
+  # bubble).
+  EXCLAMATION_ANIMATION_ID = 3
+  # ID of the animation played when a patch of grass rustles due to using the
+  # Poké Radar.
+  RUSTLE_NORMAL_ANIMATION_ID = 1
+  # ID of the animation played when a patch of grass rustles vigorously due to
+  # using the Poké Radar. (Rarer species)
+  RUSTLE_VIGOROUS_ANIMATION_ID = 5
+  # ID of the animation played when a patch of grass rustles and shines due to
+  # using the Poké Radar. (Shiny encounter)
+  RUSTLE_SHINY_ANIMATION_ID = 6
+  # ID of the animation played when a berry tree grows a stage while the player
+  # is on the map (for new plant growth mechanics only).
+  PLANT_SPARKLE_ANIMATION_ID = 7
+  SLEEP_ANIMATION_ID = 26
+
+  CUT_TREE_ANIMATION_ID = 19
+  ROCK_SMASH_ANIMATION_ID = 20
+
+  #=============================================================================
+
+  # An array of available languages in the game, and their corresponding message
+  # file in the Data folder. Edit only if you have 2 or more languages to choose
+  # from.
+  LANGUAGES = [
+    #  ["English", "english.dat"],
+    #  ["Deutsch", "deutsch.dat"]
+  ]
+
+
+  #Technical
+  SPRITE_CACHE_MAX_NB=100
+  NEWEST_SPRITEPACK_MONTH = 12
+  NEWEST_SPRITEPACK_YEAR = 2020
+  #=============================================================================
+
+  # Available speech frames. These are graphic files in "Graphics/Windowskins/".
+  SPEECH_WINDOWSKINS = [
+    "speech hgss 1",
+    "speech hgss 2",
+    "speech hgss 3",
+    "speech hgss 4",
+    "speech hgss 5",
+    "speech hgss 6",
+    "speech hgss 7",
+    "speech hgss 8",
+    "speech hgss 9",
+    "speech hgss 10",
+    "speech hgss 11",
+    "speech hgss 12",
+    "speech hgss 13",
+    "speech hgss 14",
+    "speech hgss 15",
+    "speech hgss 16",
+    "speech hgss 17",
+    "speech hgss 18",
+    "speech hgss 19",
+    "speech hgss 20",
+    "speech pl 18"
+  ]
+
+  # Available menu frames. These are graphic files in "Graphics/Windowskins/".
+  MENU_WINDOWSKINS = [
+    "default_transparent",
+    "default_opaque",
+    "choice 2",
+    "choice 3",
+    "choice 4",
+    "choice 5",
+    "choice 6",
+    "choice 7",
+    "choice 8",
+    "choice 9",
+    "choice 10",
+    "choice 11",
+    "choice 12",
+    "choice 13",
+    "choice 14",
+    "choice 15",
+    "choice 16",
+    "choice 17",
+    "choice 18",
+    "choice 19",
+    "choice 20",
+    "choice 21",
+    "choice 22",
+    "choice 23",
+    "choice 24",
+    "choice 25",
+    "choice 26",
+    "choice 27",
+    "choice 28"
+  ]
+
+
+  RANDOMIZED_GYM_TYPE_TM=
+    {
+      :NORMAL => [:TM32,:TM49,:TM42,:TM98],       #DOUBLETEAM	ECHOEDVOICE	FACADE	BATONPASS
+      :FIGHTING => [:TM83,:TM115,:TM52,:TM112],   #WORKUP	POWERUPPUNCH	FOCUSBLAST	FOCUSPUNCH
+      :FLYING => [:TM62,:TM58,:TM108,:TM100],     #ACROBATICS	SKYDROP	SKYATTACK	DEFOG
+      :POISON => [:TM84,:TM06,:TM36,:TM34],       #POISONJAB	TOXIC	SLUDGEBOMB	SLUDGEWAVE
+      :GROUND => [:TM28,:TM78,:TM26,:TM119],      #DIG	BULLDOZE	EARTHQUAKE	STOMPINGTANTRUM
+      :ROCK => [:TM39,:TM80,:TM71,:TM69],         #ROCKTOMB	ROCKTHROW	STONEDGE ROCKPOLISH
+      :BUG  => [:TM76,:TM89,:TM113,:TM99],        #STRUGGLEBUG	UTURN	INFESTATION	QUIVERDANCE
+      :GHOST => [:TM85,:TM65,:TM30,:TM97],        #DREAMEATER	SHADOWCLAW	SHADOWBALL	NASTYPLOT
+      :STEEL => [:TM74,:TM118,:TM117,:TM75],      #	GYROBALL	STEELWING	SMARTSTRIKE SWORDDANCE
+      :FIRE => [:TM11,:TM43,:TM38,:TM61],         #SUNNYDAY	FLAMECHARGE	FIREBLAST	WILLOWISP
+      :WATER => [:TM55,:TM105,:TM121,:TM18],      #WATERPULSE	AQUAJET SCALD RAINDANCE
+      :GRASS  => [:TM22,:TM53,:TM86,:TM102],      #	SOLARBEAM	 ENERGYBALL GRASSKNOT	SPORE
+      :ELECTRIC => [:TM73,:TM116,:TM93,:TM72],    #THUNDERWAVE	SHOCKWAVE	WILDCHARGE	VOLTSWITCH
+      :PSYCHIC => [:TM77,:TM03,:TM29,:TM04],      #PSYCHUP	PSYSHOCK	PSYCHIC	CALMMIND
+      :ICE => [:TM110,:TM13,:TM14,:TM07],         #AURORAVEIL	ICEBEAM	BLIZZARD	HAIL
+      :DRAGON => [:TM95,:TM02,:TM82,:TM101],      #SNARL	DRAGONCLAW	DRAGONTAIL	DRAGONDANCE
+      :DARK => [:TM95,:TM46,:TM120,:TM97],        #SNARL	THIEF	THROATCHOP	NASTYPLOT
+      :FAIRY => [:TM45,:TM111,:TM96,:TM104]       #ATTRACT	DAZZLINGGLEAM	MOONBLAST	RECOVER
+    }
+
+  EXCLUDE_FROM_RANDOM_SHOPS=[:RARECANDY]
+
+end
+
+# DO NOT EDIT THESE!
+module Essentials
+  VERSION = "19.1.dev"
+  ERROR_TEXT = ""
+end

Data/Scripts/998_InfiniteFusion/Items/New Balls.rb

@@ -0,0 +1,128 @@
+# ###################
+# ## NEW POKEBALLS  #
+# ###################
+#
+# #GENDER BALL (24) - switch le gender du pokemon
+# #catch rate: pokeball
+# BallHandlers::OnCatch.add(:GENDERBALL,proc{|ball,battle,pokemon|
+# if pokemon.gender == 0
+#   pokemon.makeFemale
+# elsif  pokemon.gender == 1
+#   pokemon.makeMale
+# end
+# })
+#
+# #BOOST BALL 25 - rend le pokemon traded
+# #catch rate: 80% pokeball
+# BallHandlers::ModifyCatchRate.add(:TRADEBALL,proc{|ball,catchRate,battle,pokemon|
+#   catchRate=(catchRate*0.8).floor(1)
+# next catchRate
+# })
+# BallHandlers::OnCatch.add(:TRADEBALL,proc{|ball,battle,pokemon|
+#   pokemon.obtain_method = 2
+# })
+#
+# #ABILITY BALL 26 - change l'ability
+# #catch rate: 60% pokeball
+# BallHandlers::ModifyCatchRate.add(:ABILITYBALL,proc{|ball,catchRate,battle,pokemon|
+#   catchRate=(catchRate*0.6).floor(1)
+# next catchRate
+# })
+# BallHandlers::OnCatch.add(:ABILITYBALL,proc{|ball,battle,pokemon|
+#   species = getSpecies(dexNum(pokemon))
+#   ability = species.hidden_abilities[-1]
+#   pokemon.ability = ability
+#   pokemon.ability_index= getAbilityIndexFromID(ability,pokemon)
+# })
+#
+# #VIRUS BALL 27  - give pokerus
+# #catch rate: 40% pokeball
+# BallHandlers::ModifyCatchRate.add(:VIRUSBALL,proc{|ball,catchRate,battle,pokemon|
+#   catchRate=(catchRate*0.4).floor(1)
+# next catchRate
+# })
+# BallHandlers::OnCatch.add(:VIRUSBALL,proc{|ball,battle,pokemon|
+#   pokemon.givePokerus
+# })
+#
+# #SHINY BALL 28  - rend shiny
+# #catchrate: 20% pokeball
+# BallHandlers::ModifyCatchRate.add(:SHINYBALL,proc{|ball,catchRate,battle,pokemon|
+#   catchRate=(catchRate*0.2).floor(1)
+# next catchRate
+# })
+# BallHandlers::OnCatch.add(:SHINYBALL,proc{|ball,battle,pokemon|
+#   pokemon.glitter=true
+# })
+#
+# #PERFECTBALL 29
+# #catch rate: 10% pokeball
+# BallHandlers::ModifyCatchRate.add(:PERFECTBALL,proc{|ball,catchRate,battle,pokemon|
+#   catchRate=(catchRate*0.1).floor(1)
+# next catchRate
+# })
+# BallHandlers::OnCatch.add(:PERFECTBALL,proc{|ball,battle,pokemon|
+#   stats = [:ATTACK, :SPECIAL_ATTACK, :SPECIAL_DEFENSE, :SPEED, :DEFENSE, :HP]
+#   first = rand(stats.length)
+#   second = rand(stats.length)
+#   pokemon.iv[stats[first]] = 31
+#   pokemon.iv[stats[second]] = 31
+# })
+#
+#
+# #DREAMBALL  - endormi
+# BallHandlers::ModifyCatchRate.add(:DREAMBALL,proc{|ball,catchRate,battle,battler|
+#    battler.status = :SLEEP
+#    next catchRate
+# })
+# #TOXICBALL  - empoisonné
+# BallHandlers::ModifyCatchRate.add(:TOXICBALL,proc{|ball,catchRate,battle,battler|
+#   battler.status = :POISON
+#    next catchRate
+# })
+# #SCORCHBALL - brulé
+# BallHandlers::ModifyCatchRate.add(:SCORCHBALL,proc{|ball,catchRate,battle,battler|
+#    battler.status = :BURN
+#    next catchRate
+# })
+# #FROSTBALL - frozen
+# BallHandlers::ModifyCatchRate.add(:FROSTBALL,proc{|ball,catchRate,battle,battler|
+#    battler.status = :FROZEN
+#    next catchRate
+# })
+# #SPARKBALL  - paralizé
+# BallHandlers::ModifyCatchRate.add(:SPARKBALL,proc{|ball,catchRate,battle,battler|
+#    battler.status = :PARALYSIS
+#    next catchRate
+# })
+# #PUREBALL  - marche mieux quand pas de status
+# BallHandlers::ModifyCatchRate.add(:PUREBALL,proc{|ball,catchRate,battle,battler|
+#    catchRate=(catchRate*7/2).floor if battler.status ==0
+#    next catchRate
+# })
+# #STATUSBALL - marche mieux quand any status
+# BallHandlers::ModifyCatchRate.add(:STATUSBALL,proc{|ball,catchRate,battle,battler|
+#    catchRate=(catchRate*5/2).floor if battler.status !=0
+#    next catchRate
+# })
+#
+# #FUSIONBALL - marche mieux quand fusedr
+# BallHandlers::ModifyCatchRate.add(:FUSIONBALL,proc{|ball,catchRate,battle,battler|
+#    catchRate*=3 if GameData::Species.get(battler.species).id_number > Settings::NB_POKEMON
+#    next catchRate
+# })
+#
+# #CANDY BALL  - +5 level
+# #catchrate: 80% pokeball
+# BallHandlers::ModifyCatchRate.add(:CANDYBALL,proc{|ball,catchRate,battle,pokemon|
+#   catchRate=(catchRate*0.8).floor
+# next catchRate
+# })
+# BallHandlers::OnCatch.add(:CANDYBALL,proc{|ball,battle,pokemon|
+#   pokemon.level = pokemon.level+5
+# })
+# #FIRECRACKER
+# BallHandlers::ModifyCatchRate.add(:FIRECRACKER,proc{|ball,catchRate,battle,battler|
+#    battler.hp -= 10
+#    next 0
+# })

Data/Scripts/998_InfiniteFusion/Items/New HMs.rb

@@ -0,0 +1,141 @@
+
+#===============================================================================
+# Rock Smash
+#===============================================================================
+
+
+def pbRockSmashRandomEncounter
+  if rand(100)<30
+    if pbEncounter(:RockSmash)
+      return
+    else
+      pbDefaultRockSmashEncounter(5,15)
+    end
+  else
+    rockSmashItem(false)
+  end
+end
+
+def pbDefaultRockSmashEncounter(minLevel,maxLevel)
+  level =rand((maxLevel-minLevel).abs)+minLevel
+  pbWildBattle(:GEODUDE,level)
+  return true
+end
+
+#FOR ROCK TUNNEL AND CERULEAN CAVE (+diamond)
+def pbRockSmashRandomEncounterSpecial
+  if rand(100)<35
+    pbEncounter(:RockSmash)
+  else
+    rockSmashItem(true)
+  end
+end
+
+def getRockSmashItemList(inclRareItems)
+  basicItems = [:ROCKGEM, :GROUNDGEM,:STEELGEM,
+                :HARDSTONE,:HARDSTONE,:HARDSTONE,:ROCKGEM,
+                :SMOOTHROCK,:STARDUST,:HEARTSCALE,:HEARTSCALE,
+                :HEARTSCALE,:SOFTSAND,:HEARTSCALE,:RAREBONE]
+
+  rareItems = [:RAREBONE,:STARDUST,:ETHER,
+               :REVIVE,:NUGGET,:DIAMOND]
+
+  fossilItems =    [:ROOTFOSSIL,:CLAWFOSSIL,:DOMEFOSSIL,:HELIXFOSSIL,
+                    :SKULLFOSSIL,:ARMORFOSSIL,:JAWFOSSIL,:SAILFOSSIL]
+
+  #            Kernel.pbMessage(inclRareItems.to_s)
+
+  itemsList = inclRareItems ? basicItems + basicItems + rareItems : basicItems
+
+  #beaten league
+  if $game_switches[12]
+    itemsList += fossilItems
+  end
+  return itemsList
+end
+
+def rockSmashItem(isDark=false)
+  chance = 50
+  if rand(100)< chance
+    if rand(5) == 0 && !hatUnlocked?(HAT_AERODACTYL)
+      obtainHat(HAT_AERODACTYL)
+    else
+      itemsList = getRockSmashItemList(isDark)
+      i = rand(itemsList.length)
+      Kernel.pbItemBall(itemsList[i],1,nil,false)
+    end
+  end
+end
+
+
+#Used in underwater maps
+def pbRockSmashRandomEncounterDive
+  if rand(100)<25
+    pbEncounter(:RockSmash)
+  else
+    if rand(100)<20
+      itemsList = [:WATERGEM,:STEELGEM,
+                   :HEARTSCALE,:HEARTSCALE,:HARDSTONE,:ROCKGEM,
+                   :SMOOTHROCK,:WATERSTONE,:PEARL,:HEARTSCALE,
+                   :HEARTSCALE,:HEARTSCALE,:SHOALSHELL,:BIGPEARL]
+
+      i = rand(itemsList.length)
+      Kernel.pbItemBall(itemsList[i],1,nil,false)
+    end
+  end
+end
+
+
+
+############### MORNING SUN / MOONLIGHT
+HiddenMoveHandlers::CanUseMove.add(:MORNINGSUN,proc{|move,pkmn|
+  mapMetadata = GameData::MapMetadata.try_get($game_map.map_id)
+  if !mapMetadata || !mapMetadata.outdoor_map
+    Kernel.pbMessage(_INTL("Can't use that here."))
+    next false
+  end
+  next true
+})
+
+HiddenMoveHandlers::UseMove.add(:MORNINGSUN,proc{|move,pokemon|
+  Kernel.pbMessage(_INTL("{1} used {2}!",pokemon.name,GameData::Move.get(move).name))
+  pbHiddenMoveAnimation(pokemon)
+  pbFadeOutIn(99999){
+    pbSkipTime(9)
+    newTime = pbGetTimeNow.strftime("%I:%M %p")
+    Kernel.pbMessage(_INTL("{1} waited until morning...",$player.name))
+    Kernel.pbMessage(_INTL("The time is now {1}",newTime))
+    $game_screen.weather(:None,0,0)
+    $game_map.refresh
+  }
+  next true
+})
+
+HiddenMoveHandlers::CanUseMove.add(:MOONLIGHT,proc{|move,pkmn|
+  mapMetadata = GameData::MapMetadata.try_get($game_map.map_id)
+  if !mapMetadata || !mapMetadata.outdoor_map
+    Kernel.pbMessage(_INTL("Can't use that here."))
+    next false
+  end
+  next true
+})
+
+HiddenMoveHandlers::UseMove.add(:MOONLIGHT,proc{|move,pokemon|
+  Kernel.pbMessage(_INTL("{1} used {2}!",pokemon.name,GameData::Move.get(move).name))
+  pbHiddenMoveAnimation(pokemon)
+  pbFadeOutIn(99999){
+    pbSkipTime(21)
+    newTime = pbGetTimeNow.strftime("%I:%M %p")
+    Kernel.pbMessage(_INTL("{1} waited until night...",$player.name))
+    Kernel.pbMessage(_INTL("The time is now {1}",newTime))
+    $game_screen.weather(:None,0,0)
+    $game_map.refresh
+  }
+  next true
+})
+
+def pbSkipTime(newTime)
+  currentTime = pbGetTimeNow.hour
+  hoursToAdd = newTime - currentTime
+  $game_variables[UnrealTime::EXTRA_SECONDS] += hoursToAdd*3600
+end

Data/Scripts/998_InfiniteFusion/Outfits/001_OutfitsMain/LayeredClothes.rb

@@ -0,0 +1,409 @@
+def find_last_outfit(outfit_type_path, firstOutfit)
+  for i in firstOutfit..Settings::MAX_NB_OUTFITS
+    outfit_path = outfit_type_path + "/" + i.to_s #Settings::PLAYER_GRAPHICS_FOLDER + outfit_type_path + "/" + outfit_type_path + "_" + player_sprite + "_" + i.to_s
+    return i - 1 if !Dir.exist?(outfit_path)
+  end
+  return firstOutfit
+end
+
+def list_all_numeric_folders(directory_path)
+  entries = Dir.entries(directory_path)
+  # Filter out only the directories whose names are numeric (excluding "." and "..")
+  numeric_folders = entries.select do |entry|
+    full_path = File.join(directory_path, entry)
+    File.directory?(full_path) && entry != '.' && entry != '..' && entry.match?(/^\d+$/)
+  end
+
+  # Convert the folder names to integers and store in an array
+  folder_integers = numeric_folders.map(&:to_i)
+  folder_integers.sort!
+  return folder_integers
+end
+
+def list_all_numeric_files_with_filter(directory_path, prefix)
+  entries = Dir.entries(directory_path)
+  prefixless = []
+  for file in entries
+    next if file == "." || file == ".."
+    prefixless << file.gsub((prefix + "_"), "")
+  end
+
+  folder_integers = prefixless.map(&:to_i)
+  folder_integers.sort!
+  return folder_integers
+end
+
+#unlocked:
+# -1 for all outfits unlocked
+# Otherwise, an array of the ids of unlocked outfits
+def list_available_outfits(directory, versions = [], unlocked = [], prefix_filter = nil)
+  if prefix_filter
+    outfits = list_all_numeric_files_with_filter(directory, prefix_filter)
+  else
+    outfits = list_all_numeric_folders(directory)
+  end
+  # #echoln outfits
+  # return outfits  #todo: remove this return for unlockable outfits
+  available_outfits = []
+  for outfit in outfits
+    if !unlocked || unlocked.include?(outfit)
+      for version in versions
+        available_outfits << outfit.to_s + version
+      end
+      available_outfits << outfit.to_s if versions.empty?
+    end
+  end
+  return available_outfits
+end
+
+def get_current_outfit_position(currentOutfit_id, available_outfits)
+  current_index = available_outfits.index(currentOutfit_id)
+  return current_index.nil? ? 0 : current_index
+end
+
+def setHairColor(hue_shift)
+  $player.hair_color = hue_shift
+  refreshPlayerOutfit()
+end
+
+def shiftHatColor(incr,secondary_hat=false)
+  if secondary_hat
+    $player.hat2_color = 0 if !$player.hat2_color
+    $player.hat2_color += incr
+  else
+    $player.hat_color = 0 if !$player.hat_color
+    $player.hat_color += incr
+  end
+
+  refreshPlayerOutfit()
+end
+
+def shiftClothesColor(incr)
+  $player.clothes_color = 0 if !$player.clothes_color
+  $player.clothes_color += incr
+  refreshPlayerOutfit()
+end
+
+def shiftHairColor(incr)
+  $player.hair_color = 0 if !$player.hair_color
+  $player.hair_color += incr
+  echoln "Hair color: #{$player.hair_color}"
+  refreshPlayerOutfit()
+end
+
+def pbLoadOutfitBitmap(outfitFileName)
+  begin
+    outfitBitmap = RPG::Cache.load_bitmap("", outfitFileName)
+    return outfitBitmap
+  rescue
+    return nil
+  end
+end
+
+def setOutfit(outfit_id)
+  $player.clothes = outfit_id
+end
+
+def setHat(hat_id)
+  $player.hat = hat_id
+end
+
+def getEasterEggHeldItem()
+  map = $game_map.map_id
+  return "secrets/HOTDOG" if [141, 194].include?(map) #restaurant
+  return "secrets/SNOWBALL" if [670, 693, 698, 694].include?(map)
+  return "secrets/WALLET" if [432, 433, 434, 435, 436, 292].include?(map) #dept. store
+  return "secrets/ALARMCLOCK" if [43, 48, 67, 68, 69, 70, 71, 73].include?(map) #Overrides room
+  return "SAFARIBALL" if [445, 484, 485, 486, 107, 487, 488, 717, 82, 75, 74].include?(map) #Safari Zone
+  return "secrets/WISP" if [401,402,403,467,468,469].include?(map) #Pokemon Tower
+  return "secrets/SKULL" if [400].include?(map) #Pokemon Tower ground floor
+  return "secrets/ROCK" if [349,350,800,].include?(map) #Rock Tunnel
+  return "secrets/MAGIKARP" if [394,471,189,].include?(map) #Fishing huts
+  return "secrets/AZUREFLUTE" if [694,].include?(map) && $PokemonBag.pbQuantity(:AZUREFLUTE)>=1 #Ice Mountain peak
+  return "secrets/BIGSODA" if [436,].include?(map) && $PokemonBag.pbQuantity(:SODAPOP)>=1 #Celadon dept. store top
+  return "secrets/EGG" if [13,406,214,].include?(map) #Day care
+  return "secrets/STICK" if [266,].include?(map) #Ilex forest
+  return "secrets/BANANA" if [600,].include?(map) #Bond Bridge
+  return "secrets/BERRY" if [619,620,].include?(map) #Berry forest
+  return "secrets/COIN" if [357].include?(map) #Pokemart
+  return "secrets/LATTE" if [406].include?(map) #Celadon Café
+
+  return nil
+end
+
+def getCurrentPokeball(allowEasterEgg=true)
+  otherItem = getEasterEggHeldItem() if allowEasterEgg
+  return otherItem if otherItem
+  firstPokemon = $player.party[0]
+  return firstPokemon.poke_ball if firstPokemon
+  return nil
+end
+
+def generate_front_trainer_sprite_bitmap_from_appearance(trainerAppearance)
+  echoln trainerAppearance.hat
+  return generate_front_trainer_sprite_bitmap(false,nil,trainerAppearance.clothes,trainerAppearance.hat,trainerAppearance.hat2,
+                                              trainerAppearance.hair,trainerAppearance.skin_color,
+                                              trainerAppearance.hair_color,trainerAppearance.hat_color,trainerAppearance.clothes_color,
+                                              trainerAppearance.hat2_color)
+end
+
+def generate_front_trainer_sprite_bitmap(allowEasterEgg=true, pokeball = nil,
+                                         clothes_id = nil, hat_id = nil, hat2_id=nil, hair_id = nil,
+                                         skin_tone_id = nil, hair_color = nil, hat_color = nil, clothes_color = nil,
+                                         hat2_color = nil)
+
+  clothes_id = $player.clothes if !clothes_id
+  hat_id = $player.hat if !hat_id
+  hat2_id = $player.hat2 if !hat2_id
+
+  hair_id = $player.hair if !hair_id
+  skin_tone_id = $player.skin_tone if !skin_tone_id
+  hair_color = $player.hair_color if !hair_color
+  hat_color = $player.hat_color if !hat_color
+  hat2_color = $player.hat2_color if !hat2_color
+  clothes_color = $player.clothes_color if !clothes_color
+
+  hairFilename = getTrainerSpriteHairFilename(hair_id) #_INTL(Settings::PLAYER_GRAPHICS_FOLDER + Settings::PLAYER_HAIR_FOLDER + "/hair_trainer_{1}", $player.hair)
+  outfitFilename = getTrainerSpriteOutfitFilename(clothes_id) #_INTL(Settings::PLAYER_GRAPHICS_FOLDER + Settings::PLAYER_CLOTHES_FOLDER + "/clothes_trainer_{1}", $player.clothes)
+
+  hatFilename = getTrainerSpriteHatFilename(hat_id)
+  hat2Filename = getTrainerSpriteHatFilename(hat2_id)
+
+  pokeball = getCurrentPokeball(allowEasterEgg) if !pokeball
+  ballFilename = getTrainerSpriteBallFilename(pokeball) if pokeball
+
+  baseFilePath = getBaseTrainerSpriteFilename(skin_tone_id)
+
+  hair_color_shift = hair_color
+  hat_color_shift = hat_color
+  hat2_color_shift = hat2_color
+  clothes_color_shift = clothes_color
+
+  hair_color_shift = 0 if !hair_color_shift
+  hat_color_shift = 0 if !hat_color_shift
+  hat2_color_shift = 0 if !hat2_color_shift
+
+  clothes_color_shift = 0 if !clothes_color_shift
+
+  baseBitmap = AnimatedBitmap.new(baseFilePath) if pbResolveBitmap(baseFilePath)
+  ballBitmap = pbLoadOutfitBitmap(ballFilename) if pbResolveBitmap(ballFilename)
+
+  if !pbResolveBitmap(outfitFilename)
+    outfitFilename = getTrainerSpriteOutfitFilename(Settings::PLAYER_TEMP_OUTFIT_FALLBACK)
+  end
+  if !pbResolveBitmap(outfitFilename)
+    raise "No temp clothes graphics available"
+  end
+
+  outfitBitmap = AnimatedBitmap.new(outfitFilename, clothes_color_shift) if pbResolveBitmap(outfitFilename) #pb
+  hairBitmapWrapper = AnimatedBitmap.new(hairFilename, hair_color_shift) if pbResolveBitmap(hairFilename)
+
+  hatBitmap = AnimatedBitmap.new(hatFilename, hat_color_shift) if pbResolveBitmap(hatFilename)
+  hat2Bitmap = AnimatedBitmap.new(hat2Filename, hat2_color_shift) if pbResolveBitmap(hat2Filename)
+
+  baseBitmap.bitmap = baseBitmap.bitmap.clone
+  if outfitBitmap
+    baseBitmap.bitmap.blt(0, 0, outfitBitmap.bitmap, outfitBitmap.bitmap.rect)
+  else
+    outfitFilename = getTrainerSpriteOutfitFilename("temp")
+    outfitBitmap = AnimatedBitmap.new(outfitFilename, 0)
+    baseBitmap.bitmap.blt(0, 0, outfitBitmap.bitmap, outfitBitmap.bitmap.rect)
+  end
+  baseBitmap.bitmap.blt(0, 0, hairBitmapWrapper.bitmap, hairBitmapWrapper.bitmap.rect) if hairBitmapWrapper
+  baseBitmap.bitmap.blt(0, 0, hat2Bitmap.bitmap, hat2Bitmap.bitmap.rect) if hat2Bitmap
+  baseBitmap.bitmap.blt(0, 0, hatBitmap.bitmap, hatBitmap.bitmap.rect) if hatBitmap
+  baseBitmap.bitmap.blt(44, 42, ballBitmap, ballBitmap.rect) if ballBitmap
+
+  return baseBitmap
+end
+
+def generateNPCClothedBitmapStatic(trainerAppearance,action = "walk")
+  baseBitmapFilename = getBaseOverworldSpriteFilename(action, trainerAppearance.skin_color)
+  baseSprite = AnimatedBitmap.new(baseBitmapFilename)
+
+  baseBitmap = baseSprite.bitmap.clone # nekkid sprite
+  outfitFilename = getOverworldOutfitFilename(trainerAppearance.clothes, action)
+
+  hairFilename = getOverworldHairFilename(trainerAppearance.hair)
+
+
+  #Clothes
+  clothes_color_shift = trainerAppearance.clothes_color || 0
+  clothesBitmap = AnimatedBitmap.new(outfitFilename, clothes_color_shift).bitmap if pbResolveBitmap(outfitFilename)
+  baseBitmap.blt(0, 0, clothesBitmap, clothesBitmap.rect)
+  #clothesBitmap.dispose
+
+
+  #Hair
+  hair_color_shift = trainerAppearance.hair_color || 0
+  hairBitmap = AnimatedBitmap.new(hairFilename, hair_color_shift).bitmap if pbResolveBitmap(hairFilename)
+  baseBitmap.blt(0, 0, hairBitmap, hairBitmap.rect)
+
+  #Hat
+  hat_color_shift = trainerAppearance.hat_color || 0
+  hat2_color_shift = trainerAppearance.hat2_color || 0
+
+  hatFilename = getOverworldHatFilename(trainerAppearance.hat)
+  hat2Filename = getOverworldHatFilename(trainerAppearance.hat2)
+
+  hatBitmapWrapper = AnimatedBitmap.new(hatFilename, hat_color_shift) if pbResolveBitmap(hatFilename)
+  hat2BitmapWrapper = AnimatedBitmap.new(hat2Filename, hat2_color_shift) if pbResolveBitmap(hat2Filename)
+
+
+  if hat2BitmapWrapper
+    frame_count = 4 # Assuming 4 frames for hair animation; adjust as needed
+    hat2_frame_bitmap = duplicateHatForFrames(hat2BitmapWrapper.bitmap, frame_count)
+
+    frame_width = baseSprite.bitmap.width / frame_count # Calculate frame width
+
+    frame_count.times do |i|
+      # Calculate offset for each frame
+      frame_offset = [i * frame_width, 0]
+      # Adjust Y offset if frame index is odd
+      frame_offset[1] -= 2 if i.odd?
+      positionHat(baseBitmap, hat2_frame_bitmap, frame_offset, i, frame_width)
+    end
+  end
+
+  if hatBitmapWrapper
+    frame_count = 4 # Assuming 4 frames for hair animation; adjust as needed
+    hat_frame_bitmap = duplicateHatForFrames(hatBitmapWrapper.bitmap, frame_count)
+
+    frame_width = baseSprite.bitmap.width / frame_count # Calculate frame width
+
+    frame_count.times do |i|
+      # Calculate offset for each frame
+      frame_offset = [i * frame_width, 0]
+      # Adjust Y offset if frame index is odd
+      frame_offset[1] -= 2 if i.odd?
+      positionHat(baseBitmap, hat_frame_bitmap, frame_offset, i, frame_width)
+    end
+  end
+
+  return baseBitmap
+end
+
+#for continue screen
+def generateClothedBitmapStatic(trainer, action = "walk")
+  baseBitmapFilename = getBaseOverworldSpriteFilename(action, trainer.skin_tone)
+  if !pbResolveBitmap(baseBitmapFilename)
+    baseBitmapFilename = Settings::PLAYER_GRAPHICS_FOLDER + action
+  end
+  baseSprite = AnimatedBitmap.new(baseBitmapFilename)
+
+  # Clone the base sprite bitmap to create the base for the player's sprite
+  baseBitmap = baseSprite.bitmap.clone # nekkid sprite
+  outfitFilename = getOverworldOutfitFilename(trainer.clothes, action)
+  outfitFilename = getOverworldOutfitFilename(Settings::PLAYER_TEMP_OUTFIT_FALLBACK) if !pbResolveBitmap(outfitFilename)
+  hairFilename = getOverworldHairFilename(trainer.hair)
+  hatFilename = getOverworldHatFilename(trainer.hat)
+  hat2Filename = getOverworldHatFilename(trainer.hat2)
+
+  # Use default values if color shifts are not set
+  hair_color_shift = trainer.hair_color || 0
+  hat_color_shift = trainer.hat_color || 0
+  hat2_color_shift = trainer.hat2_color || 0
+
+  clothes_color_shift = trainer.clothes_color || 0
+
+  # Use fallback outfit if the specified outfit cannot be resolved
+  if !pbResolveBitmap(outfitFilename)
+    outfitFilename = Settings::PLAYER_TEMP_OUTFIT_FALLBACK
+  end
+
+  # Load the outfit and hair bitmaps
+  outfitBitmap = AnimatedBitmap.new(outfitFilename, clothes_color_shift)
+  hairBitmapWrapper = AnimatedBitmap.new(hairFilename, hair_color_shift) if pbResolveBitmap(hairFilename)
+  hatBitmapWrapper = AnimatedBitmap.new(hatFilename, hat_color_shift) if pbResolveBitmap(hatFilename)
+  hat2BitmapWrapper = AnimatedBitmap.new(hat2Filename, hat2_color_shift) if pbResolveBitmap(hat2Filename)
+
+  # Blit the outfit onto the base sprite
+  baseBitmap.blt(0, 0, outfitBitmap.bitmap, outfitBitmap.bitmap.rect) if outfitBitmap
+
+  current_offset = [0, 0] # Replace this with getCurrentSpriteOffset() if needed
+  positionHair(baseBitmap, hairBitmapWrapper.bitmap, current_offset) if hairBitmapWrapper
+
+  frame_count = 4
+  frame_width = baseSprite.bitmap.width / frame_count # Calculate frame width
+  if hat2BitmapWrapper
+    hat2_frame_bitmap = duplicateHatForFrames(hat2BitmapWrapper.bitmap, frame_count)
+    frame_count.times do |i|
+      # Calculate offset for each frame
+      frame_offset = [i * frame_width, 0]
+      # Adjust Y offset if frame index is odd
+      frame_offset[1] -= 2 if i.odd?
+      positionHat(baseBitmap, hat2_frame_bitmap, frame_offset, i, frame_width)
+    end
+  end
+  if hatBitmapWrapper
+    hat_frame_bitmap = duplicateHatForFrames(hatBitmapWrapper.bitmap, frame_count)
+    frame_count.times do |i|
+      # Calculate offset for each frame
+      frame_offset = [i * frame_width, 0]
+      # Adjust Y offset if frame index is odd
+      frame_offset[1] -= 2 if i.odd?
+      positionHat(baseBitmap, hat_frame_bitmap, frame_offset, i, frame_width)
+    end
+  end
+
+  return baseBitmap
+end
+
+def positionHair(baseBitmap, hairBitmap, offset)
+  baseBitmap.blt(offset[0], offset[1], hairBitmap, hairBitmap.rect)
+end
+
+def positionHat(baseBitmap, hatBitmap, offset, frame_index, frame_width)
+  # Define a rect for each frame
+  frame_rect = Rect.new(frame_index * frame_width, 0, frame_width, hatBitmap.height)
+
+  # Blit only the part of the hat corresponding to the current frame
+  baseBitmap.blt(offset[0], offset[1], hatBitmap, frame_rect)
+end
+
+def duplicateHatForFrames(hatBitmap, frame_count)
+  # Create a new bitmap for the duplicated hat frames
+  frame_width = hatBitmap.width
+  total_width = frame_width * frame_count
+  duplicatedBitmap = Bitmap.new(total_width, hatBitmap.height)
+
+  # Copy the single hat frame across each required frame
+  frame_count.times do |i|
+    duplicatedBitmap.blt(i * frame_width, 0, hatBitmap, hatBitmap.rect)
+  end
+
+  return duplicatedBitmap
+end
+
+def add_hat_to_bitmap(bitmap, hat_id, x_pos, y_pos, scale = 1, mirrored = false)
+  base_scale = 1.5 #coz hat & poke sprites aren't the same size
+  adjusted_scale = base_scale * scale
+  hat_filename = getTrainerSpriteHatFilename(hat_id)
+  hatBitmapWrapper = AnimatedBitmap.new(hat_filename, 0) if pbResolveBitmap(hat_filename)
+  hatBitmapWrapper.scale_bitmap(adjusted_scale) if hatBitmapWrapper
+  hatBitmapWrapper.mirror if hatBitmapWrapper && mirrored
+  bitmap.blt(x_pos * adjusted_scale, y_pos * adjusted_scale, hatBitmapWrapper.bitmap, hatBitmapWrapper.bitmap.rect) if hatBitmapWrapper
+end
+
+class PokemonTemp
+  attr_accessor :trainer_preview
+end
+
+def display_outfit_preview(x = 320, y = 0, withBorder = true)
+  hide_outfit_preview() if $PokemonTemp.trainer_preview
+  $PokemonTemp.trainer_preview = TrainerClothesPreview.new(x, y, withBorder)
+  $PokemonTemp.trainer_preview.show()
+end
+
+def hide_outfit_preview()
+  $game_screen.pictures[20].erase
+  $PokemonTemp.trainer_preview.erase() if $PokemonTemp.trainer_preview
+  $PokemonTemp.trainer_preview = nil
+end
+
+
+
+
+
+
+

Data/Scripts/998_InfiniteFusion/Outfits/001_OutfitsMain/OutfitSelector.rb

@@ -0,0 +1,174 @@
+class OutfitSelector
+  attr_reader :clothes_list
+  attr_reader :hats_list
+  attr_reader :hairstyles_list
+
+  def initialize()
+    @clothes_list = parse_clothes_folder()
+    @hats_list = parse_hats_folder()
+    @hairstyles_list =parse_hairstyles_folder()
+  end
+
+
+  def parse_clothes_folder
+    return list_folders(get_clothes_sets_list_path())
+  end
+
+  def parse_hats_folder
+    return list_folders(get_hats_sets_list_path())
+  end
+
+  def parse_hairstyle_types_folder
+    return list_folders(get_hair_sets_list_path())
+  end
+
+  def generate_hats_choice(baseOptions=true,additionalIds=[],additionalTags=[],filterOutTags=[])
+    list = []
+    list += additionalIds
+    list += search_hats(additionalTags)
+    if baseOptions
+      list += get_hats_base_options()
+      list += search_hats(get_regional_sets_tags())
+    end
+    return list
+  end
+
+  def generate_clothes_choice(baseOptions=true,additionalIds=[],additionalTags=[],filterOutTags=[])
+    list = []
+    list += additionalIds
+    list += search_clothes(additionalTags)
+    if baseOptions
+      list += get_clothes_base_options()
+      list += search_clothes(get_regional_sets_tags())
+    end
+    return list
+  end
+
+  def generate_hairstyle_choice(baseOptions=true,additionalIds=[],additionalTags=[],filterOutTags=[])
+    list = []
+    list += additionalIds
+    list += search_hairstyles(additionalTags)
+    if baseOptions
+      list += get_hairstyle_salon_base_options()
+      list += search_hairstyles(get_regional_sets_tags())
+    end
+    list << HAIR_BALD
+    return list
+  end
+
+  def get_regional_sets_tags()
+    regional_tags = []
+    regional_tags << "kanto" if $game_switches[SWITCH_KANTO_HAIR_COLLECTION]
+    regional_tags << "johto" if $game_switches[SWITCH_JOHTO_HAIR_COLLECTION]
+    regional_tags << "hoenn" if $game_switches[SWITCH_HOENN_HAIR_COLLECTION]
+    regional_tags << "sinnoh" if $game_switches[SWITCH_SINNOH_HAIR_COLLECTION]
+    regional_tags << "unova" if $game_switches[SWITCH_UNOVA_HAIR_COLLECTION]
+    regional_tags << "kalos" if $game_switches[SWITCH_KALOS_HAIR_COLLECTION]
+    regional_tags << "alola" if $game_switches[SWITCH_ALOLA_HAIR_COLLECTION]
+    regional_tags << "galar" if $game_switches[SWITCH_GALAR_HAIR_COLLECTION]
+    regional_tags << "paldea" if $game_switches[SWITCH_PALDEA_HAIR_COLLECTION]
+    return regional_tags
+  end
+
+  def get_hairstyle_salon_base_options()
+    return search_hairstyles(["default"])
+  end
+
+  def get_clothes_base_options()
+    return search_clothes(["default"])
+  end
+
+  def get_hats_base_options()
+    return search_hats(["default"])
+  end
+
+  def parse_hairstyles_folder
+    hairstyle_types= list_folders(get_hair_sets_list_path())
+    max_versions_number = 10
+    list= []
+    for hairstyle in hairstyle_types
+      for i in 1..max_versions_number
+        type = i.to_s + "_" + hairstyle
+        filePath = getOverworldHairFilename(type)
+        if pbResolveBitmap(filePath)
+          list << type
+        end
+      end
+    end
+    return list
+  end
+
+  def list_folders(path)
+    entries= Dir.entries(path)
+    return entries.select { |entry| File.directory?(File.join(path, entry)) && entry != '.' && entry != '..' }
+  end
+
+
+  def filter_unlocked_outfits(outfits_list,unlocked_outfits)
+    available_outfits = []
+    outfits_list.each do |outfit|
+      available_outfits << outfit if unlocked_outfits.include?(outfit)
+    end
+    return available_outfits
+  end
+
+
+  def selectNextOutfit(currentOutfit, incr, outfits_list, versions = [], allowNone = true, prefix_filter = nil,unlockedOutfits=[],everythingUnlocked=false)
+    available_outfits = []
+    available_outfits = outfits_list if everythingUnlocked
+    available_outfits << "" if allowNone
+    available_outfits += filter_unlocked_outfits(outfits_list,unlockedOutfits) if !everythingUnlocked
+    #available_outfits += list_available_outfits(directory, versions, unlockedOutfits, prefix_filter) #unlockedOutfits = nil for all outfits unlocked
+    last_outfit = available_outfits[-1]
+
+    current_outfit_index = get_current_outfit_position(currentOutfit, available_outfits)
+    next_outfit_index = current_outfit_index +incr
+
+    nextOutfit = available_outfits[next_outfit_index]
+    nextOutfit = last_outfit if next_outfit_index < 0
+
+    nextOutfit = available_outfits[0] if next_outfit_index >= available_outfits.length()
+
+    return nextOutfit if available_outfits.include?(nextOutfit)
+    return currentOutfit
+  end
+
+  def changeToNextClothes(incr,all_unlocked=false)
+    $player.unlocked_clothes = [] if !$player.unlocked_clothes
+
+
+    currentOutfit = $player.clothes
+    currentOutfit = 0 if !currentOutfit
+    nextOutfit = selectNextOutfit(currentOutfit, incr, @clothes_list, [], false,nil,$player.unlocked_clothes,all_unlocked)
+    $player.clothes = nextOutfit
+    $player.clothes_color = 0
+    echoln $player.clothes
+
+  end
+
+  def changeToNextHat(incr,all_unlocked=false)
+    $player.unlocked_hats = [] if !$player.unlocked_hats
+
+    currentHat = $player.hat
+    currentHat = 0 if !currentHat
+    nextOutfit = selectNextOutfit(currentHat, incr, @hats_list, [], true, "hat",$player.unlocked_hats,all_unlocked)
+    $player.hat = nextOutfit
+    $player.hat_color = 0
+    echoln $player.hat
+
+  end
+
+  def changeToNextHairstyle(incr,all_unlocked=false)
+    $player.unlocked_hairstyles = [] if !$player.unlocked_hairstyles
+
+    currentHair = $player.hair
+    currentHair = 0 if !currentHair
+    nextOutfit = selectNextOutfit(currentHair, incr, @hairstyles_list, ["a", "b", "c", "d"], true,nil,$player.unlocked_hairstyles,all_unlocked)
+    $player.hair_color = 0
+    $player.hair = nextOutfit
+    echoln $player.hair
+
+  end
+
+
+end

Data/Scripts/998_InfiniteFusion/Outfits/001_OutfitsMain/OutfitsGlobal.rb

@@ -0,0 +1,75 @@
+class PokemonGlobalMetadata
+  attr_accessor :hats_data
+  attr_accessor :hairstyles_data
+  attr_accessor :clothes_data
+end
+
+def update_global_hats_list()
+  file_path = Settings::HATS_DATA_PATH
+  json_data = File.read(file_path)
+  hat_data = HTTPLite::JSON.parse(json_data)
+
+  $PokemonGlobal.hats_data = {}
+
+  # Iterate through the JSON data and create Hat objects
+  hat_data.each do |data|
+    tags = data['tags'] ? data['tags'].split(',').map(&:strip) : []
+    hat = Hat.new(
+      data['id'],
+      data['name'],
+      data['description'],
+      data['price'],
+      tags
+    )
+    $PokemonGlobal.hats_data[hat.id] = hat
+  end
+end
+
+def update_global_hairstyles_list()
+  file_path = Settings::HAIRSTYLE_DATA_PATH
+  json_data = File.read(file_path)
+  hair_data = HTTPLite::JSON.parse(json_data)
+
+  $PokemonGlobal.hairstyles_data = {}
+
+  # Iterate through the JSON data and create Hat objects
+  hair_data.each do |data|
+    tags = data['tags'] ? data['tags'].split(',').map(&:strip) : []
+    hair = Hairstyle.new(
+      data['id'],
+      data['name'],
+      data['description'],
+      data['price'],
+      tags
+    )
+    $PokemonGlobal.hairstyles_data[hair.id] = hair
+  end
+end
+
+def update_global_clothes_list()
+  file_path = Settings::CLOTHES_DATA_PATH
+  json_data = File.read(file_path)
+  outfits_data = HTTPLite::JSON.parse(json_data)
+
+  $PokemonGlobal.clothes_data = {}
+
+  # Iterate through the JSON data and create Hat objects
+  outfits_data.each do |data|
+    tags = data['tags'] ? data['tags'].split(',').map(&:strip) : []
+    outfit = Clothes.new(
+      data['id'],
+      data['name'],
+      data['description'],
+      data['price'],
+      tags
+    )
+    $PokemonGlobal.clothes_data[outfit.id] = outfit
+  end
+end
+
+def update_global_outfit_lists()
+  update_global_hats_list
+  update_global_hairstyles_list
+  update_global_clothes_list
+end
+

Data/Scripts/998_InfiniteFusion/Outfits/001_OutfitsMain/OutfitsSearch.rb

@@ -0,0 +1,221 @@
+#CLOTHES
+
+def search_clothes(matching_tags = [], only_unlocked = false)
+  update_global_outfit_lists()
+  selector = OutfitSelector.new
+
+  full_data_list = $PokemonGlobal.clothes_data
+  existing_files_list = selector.parse_clothes_folder()
+  unlocked_list = $player.unlocked_clothes
+  return search_outfits_by_tag(full_data_list, matching_tags, existing_files_list, unlocked_list, only_unlocked)
+end
+
+def filter_clothes(filter_tags = [], only_unlocked = false)
+  update_global_outfit_lists()
+  selector = OutfitSelector.new
+
+  full_data_list = $PokemonGlobal.hats_data
+  existing_files_list = selector.parse_hats_folder()
+  unlocked_list = $player.unlocked_hats
+  return filter_outfits_by_tag(full_data_list, filter_tags, existing_files_list, unlocked_list, only_unlocked)
+end
+
+def filter_clothes_only_not_owned(clothes_ids_list)
+  filtered_list = []
+  clothes_ids_list.each do|clothe_id|
+    filtered_list << clothe_id if !$player.unlocked_clothes.include?(clothe_id)
+  end
+  return filtered_list
+end
+
+def filter_clothes_only_owned(clothes_ids_list)
+  filtered_list = []
+  clothes_ids_list.each do|clothe_id|
+    filtered_list << clothe_id if $player.unlocked_clothes.include?(clothe_id)
+  end
+  return filtered_list
+end
+
+
+#HATS
+
+def search_hats(matching_tags = [],excluding_tags=[], only_unlocked = false)
+  update_global_outfit_lists()
+  selector = OutfitSelector.new
+
+  full_data_list = $PokemonGlobal.hats_data
+  existing_files_list = selector.parse_hats_folder()
+  unlocked_list = $player.unlocked_hats
+  return search_outfits_by_tag(full_data_list, matching_tags, existing_files_list, unlocked_list, only_unlocked,excluding_tags)
+end
+
+def filter_hats(filter_tags = [], only_unlocked = false)
+  update_global_outfit_lists()
+  selector = OutfitSelector.new
+
+  full_data_list = $PokemonGlobal.hats_data
+  existing_files_list = selector.parse_hats_folder()
+  unlocked_list = $player.unlocked_hats
+  return filter_outfits_by_tag(full_data_list, filter_tags, existing_files_list, unlocked_list, only_unlocked)
+end
+
+def filter_hats_only_not_owned(hats_ids_list)
+  filtered_list = []
+  hats_ids_list.each do|hat_id|
+    filtered_list << hat_id if !$player.unlocked_hats.include?(hat_id)
+  end
+  return filtered_list
+end
+
+def filter_hats_only_owned(hats_ids_list)
+  filtered_list = []
+  hats_ids_list.each do|hat_id|
+    filtered_list << hat_id if $player.unlocked_hats.include?(hat_id)
+  end
+  return filtered_list
+end
+
+
+
+#HAIRSTYLES
+
+def search_hairstyles(matching_tags = [], only_unlocked = false)
+  update_global_outfit_lists()
+  selector = OutfitSelector.new
+
+  full_data_list = $PokemonGlobal.hairstyles_data
+  existing_files_list = selector.parse_hairstyle_types_folder()
+  return search_outfits_by_tag(full_data_list, matching_tags, existing_files_list, [], false)
+end
+
+def filter_out_hairstyles(filter_tags = [],base_list = [],require_unlocked=false)
+  update_global_outfit_lists()
+  selector = OutfitSelector.new
+
+  data_list = $PokemonGlobal.hairstyles_data
+  existing_files_list = selector.parse_hairstyle_types_folder()
+  return exclude_outfits_by_tag(data_list, filter_tags, existing_files_list, base_list, false)
+end
+
+
+
+
+# Generic searching methods
+
+#Get outfits that have ANY of the tags
+def search_outfits_by_tag(outfits_map, matching_tags = [], physical_files_list = [], unlocked_list = [], require_unlocked = false, excluding_tags=[])
+  filtered_list = []
+  outfits_map.each do |outfit_id, outfit|
+    next if outfit.tags.any? { |tag| excluding_tags.include?(tag) }
+    if outfit.tags.any? { |tag| matching_tags.include?(tag) }
+      filtered_list << outfit_id if outfit_is_valid?(outfit_id, physical_files_list, unlocked_list, require_unlocked)
+    end
+  end
+  return filtered_list
+end
+
+#Get outfits that have ALL of the tags
+def filter_outfits_by_tag(outfits_map, filter_tags = [], physical_files_list = [], unlocked_list = [], require_unlocked = false)
+  update_global_outfit_lists()
+
+  filtered_list = []
+  outfits_map.each do |outfit_id, outfit|
+    if filter_tags.all? { |tag| outfit.tags.include?(tag) }
+      filtered_list << outfit_id if outfit_is_valid?(outfit_id, physical_files_list, unlocked_list, require_unlocked)
+    end
+  end
+  return filtered_list
+end
+
+#Get all outfits from list that DON'T have a tag
+def exclude_outfits_by_tag(outfits_map, filter_tags = [], physical_files_list = [], unlocked_list = [], require_unlocked = false)
+  update_global_outfit_lists()
+
+  filtered_list = []
+  outfits_map.each do |outfit_id, outfit|
+    if filter_tags.any? { |tag| !outfit.tags.include?(tag) }
+      filtered_list << outfit_id if outfit_is_valid?(outfit_id, physical_files_list, unlocked_list, require_unlocked)
+    end
+  end
+  return filtered_list
+end
+
+
+def outfit_is_valid?(outfit_id, physical_files_list, unlocked_list, require_unlocked)
+  return false if require_unlocked && !unlocked_list.include?(outfit_id)
+  return physical_files_list.include?(outfit_id)
+end
+
+def add_tags(tags_list=[])
+  newTag=pbEnterText("add tag",0,10)
+  return tags_list if newTag.length == 0
+  tags_list << newTag
+  return tags_list
+end
+
+def get_clothes_by_id(id)
+  update_global_outfit_lists()
+  return $PokemonGlobal.clothes_data.has_key?(id) ? $PokemonGlobal.clothes_data[id] : nil
+end
+
+def get_hat_by_id(id)
+  update_global_outfit_lists()
+  return $PokemonGlobal.hats_data.has_key?(id) ? $PokemonGlobal.hats_data[id] : nil
+end
+
+def get_hair_by_id(id)
+  update_global_outfit_lists()
+  return $PokemonGlobal.hairstyles_data.has_key?(id) ? $PokemonGlobal.hairstyles_data[id] : nil
+end
+
+
+def generate_clothes_choice(baseOptions=true,additionalIds=[],additionalTags=[],filterOutTags=[])
+  list = []
+  list += additionalIds
+  list += search_clothes(additionalTags)
+  if baseOptions
+    list += get_clothes_base_options()
+    list += search_clothes(get_regional_sets_tags())
+  end
+  return list
+end
+
+
+CITY_OUTFIT_TAGS= [
+  "pewter","cerulean","vermillion","lavender","celadon","fuchsia","cinnabar",
+  "crimson","goldenrod","azalea", "violet", "blackthorn", "mahogany", "ecruteak",
+  "olivine","cianwood", "kin"
+]
+def list_city_exclusive_clothes()
+  tags_list = CITY_OUTFIT_TAGS
+  echoln search_clothes(tags_list)
+  return search_clothes(tags_list)
+end
+
+def list_city_exclusive_hats()
+  tags_list = CITY_OUTFIT_TAGS
+  return search_hats(tags_list)
+end
+
+def list_city_exclusive_hairstyles()
+  tags_list = CITY_OUTFIT_TAGS
+  return search_hairstyles(tags_list)
+end
+
+def list_regional_clothes()
+  selector = OutfitSelector.new
+  tags_list = selector.get_regional_sets_tags()
+  return search_clothes(tags_list)
+end
+
+def list_regional_hats()
+  selector = OutfitSelector.new
+  tags_list = selector.get_regional_sets_tags()
+  return search_hats(tags_list)
+end
+
+def list_regional_hairstyles()
+  selector = OutfitSelector.new
+  tags_list = selector.get_regional_sets_tags()
+  return search_hairstyles(tags_list)
+end

Data/Scripts/998_InfiniteFusion/Outfits/ItemSets.rb

@@ -0,0 +1,185 @@
+#set outfit ids,
+#
+
+CLOTHES_NORMAL   = "normal"
+
+CLOTHES_FIGHTING = "fighting"
+
+CLOTHES_FLYING   = "temp"
+
+CLOTHES_POISON   = "deadlypoisondanger"
+
+CLOTHES_GROUND   = "groundcowboy"
+
+CLOTHES_ROCK     = "temp"
+
+CLOTHES_BUG_1      = "bughakama"
+CLOTHES_BUG_2      = "bughakamapants"
+
+CLOTHES_GHOST    = "temp"
+
+CLOTHES_STEEL_M    = "steelworkerM"
+CLOTHES_STEEL_F    = "steelworkerF"
+
+CLOTHES_FIRE     = "fire"
+
+CLOTHES_WATER    = "waterdress"
+
+CLOTHES_GRASS    = "temp"
+
+CLOTHES_ELECTRIC = "urbanelectric"
+
+CLOTHES_PSYCHIC  = "temp"
+
+CLOTHES_ICE      = "iceoutfit"
+
+CLOTHES_DRAGON   = "dragonconqueror"
+
+CLOTHES_DARK     = "temp"
+
+CLOTHES_FAIRY_M    = "mikufairym"
+CLOTHES_FAIRY_F    = "mikufairyf"
+
+
+NORMAL_ITEMS   = [:NORMALGEM,:MOOMOOMILK,:POTION,:FULLHEAL,:CHILANBERRY,]
+FIGHTING_ITEMS = [:FIGHTINGGEM,:PROTEIN,:CHOPLEBERRY,]
+FLYING_ITEMS   = [:FLYINGGEM,:HEALTHWING,:MUSCLEWING,:RESISTWING,:GENIUSWING,:CLEVERWING,:SWIFTWING,:AIRBALLOON,:PRETTYWING,:COBABERRY, ]
+POISON_ITEMS   = [:POISONGEM,:ANTIDOTE, :KEBIABERRY, ]
+GROUND_ITEMS   = [:GROUNDGEM,:SHUCABERRY, ]
+ROCK_ITEMS     = [:ROCKGEM, :STARDUST,:CHARTIBERRY, ]
+BUG_ITEMS      = [:BUGGEM,:HONEY,:TANGABERRY, ]
+GHOST_ITEMS    = [:GHOSTGEM,:KASIBBERRY,]
+STEEL_ITEMS    = [:STEELGEM,:BABIRIBERRY,:METALPOWDER,]
+FIRE_ITEMS     = [:FIREGEM,:LAVACOOKIE,:BURNHEAL,:OCCABERRY, ]
+WATER_ITEMS    = [:WATERGEM,:HEARTSCALE,:PEARL,:PASSHOBERRY ]
+GRASS_ITEMS    = [:GRASSGEM,:LUMBERRY,:ORANBERRY,:SITRUSBERRY,:GRASSYSEED,:ABSORBBULB,:TINYMUSHROOM, :RINDOBERRY, ]
+ELECTRIC_ITEMS = [:ELECTRICGEM,:ELECTRICSEED,:PARLYZHEAL,:CELLBATTERY,:WACANBERRY, ]
+PSYCHIC_ITEMS  = [:PSYCHICGEM,:PSYCHICSEED, :MENTALHERB, :PAYAPABERRY,]
+ICE_ITEMS      = [:ICEGEM,:SNOWBALL,:ICEHEAL,:YACHEBERRY, ]
+DRAGON_ITEMS   = [:DRAGONGEM,:HABANBERRY, ]
+DARK_ITEMS     = [:DARKGEM,:COLBURBERRY, ]
+FAIRY_ITEMS    = [:FAIRYGEM,:MISTYSEED, ]
+
+
+def isWearingElectricOutfit()
+  return (isWearingClothes(CLOTHES_ELECTRIC))
+end
+
+def isWearingNormalOutfit()
+  return (isWearingClothes(CLOTHES_NORMAL))
+end
+
+def isWearingFightingOutfit()
+  return (isWearingClothes(CLOTHES_FIGHTING))
+end
+
+def isWearingFlyingOutfit()
+  return (isWearingClothes(CLOTHES_FLYING))
+end
+
+def isWearingPoisonOutfit()
+  return (isWearingClothes(CLOTHES_POISON))
+end
+
+def isWearingGroundOutfit()
+  return (isWearingClothes(CLOTHES_GROUND))
+end
+
+def isWearingRockOutfit()
+  return (isWearingClothes(CLOTHES_ROCK))
+end
+
+def isWearingBugOutfit()
+  return ((isWearingClothes(CLOTHES_BUG_1) || isWearingClothes(CLOTHES_BUG_2)))
+end
+
+def isWearingGhostOutfit()
+  return (isWearingClothes(CLOTHES_GHOST))
+end
+
+def isWearingSteelOutfit()
+  return ((isWearingClothes(CLOTHES_STEEL_M) || isWearingClothes(CLOTHES_STEEL_F)))
+end
+
+def isWearingFireOutfit()
+  return (isWearingClothes(CLOTHES_FIRE))
+end
+
+def isWearingWaterOutfit()
+  return (isWearingClothes(CLOTHES_WATER))
+end
+
+def isWearingGrassOutfit()
+  return (isWearingClothes(CLOTHES_GRASS))
+end
+
+def isWearingPsychicOutfit()
+  return (isWearingClothes(CLOTHES_PSYCHIC))
+end
+
+def isWearingIceOutfit()
+  return (isWearingClothes(CLOTHES_ICE))
+end
+
+def isWearingDragonOutfit()
+  return (isWearingClothes(CLOTHES_DRAGON))
+end
+
+def isWearingDarkOutfit()
+  return (isWearingClothes(CLOTHES_DARK))
+end
+
+def isWearingFairyOutfit()
+  return ((isWearingClothes(CLOTHES_FAIRY_M) || isWearingClothes(CLOTHES_FAIRY_F)))
+end
+
+
+
+
+
+def pickUpTypeItemSetBonus()
+  return if rand(10) != 0
+  items_list = if isWearingElectricOutfit()
+                 ELECTRIC_ITEMS
+               elsif isWearingNormalOutfit()
+                 NORMAL_ITEMS
+               elsif isWearingFightingOutfit()
+                 FIGHTING_ITEMS
+               elsif isWearingFlyingOutfit()
+                 FLYING_ITEMS
+               elsif isWearingPoisonOutfit()
+                 POISON_ITEMS
+               elsif isWearingGroundOutfit()
+                 GROUND_ITEMS
+               elsif isWearingRockOutfit()
+                 ROCK_ITEMS
+               elsif isWearingBugOutfit()
+                 BUG_ITEMS
+               elsif isWearingGhostOutfit()
+                 GHOST_ITEMS
+               elsif isWearingSteelOutfit()
+                 STEEL_ITEMS
+               elsif isWearingFireOutfit()
+                 FIRE_ITEMS
+               elsif isWearingWaterOutfit()
+                 WATER_ITEMS
+               elsif isWearingGrassOutfit()
+                 GRASS_ITEMS
+               elsif isWearingPsychicOutfit()
+                 PSYCHIC_ITEMS
+               elsif isWearingIceOutfit()
+                 ICE_ITEMS
+               elsif isWearingDragonOutfit()
+                 DRAGON_ITEMS
+               elsif isWearingDarkOutfit()
+                 DARK_ITEMS
+               elsif isWearingFairyOutfit()
+                 FAIRY_ITEMS
+               else
+                 []
+               end
+  if !items_list.empty?
+    Kernel.pbItemBall(items_list.sample)
+  end
+end
+

Data/Scripts/998_InfiniteFusion/Outfits/OutfitIds.rb

@@ -0,0 +1,148 @@
+#Clothes
+CLOTHES_TEAM_ROCKET_MALE = "rocketm"
+CLOTHES_TEAM_ROCKET_FEMALE = "rocketf"
+
+CLOTHES_OFFICE_WORKER_F = "officeworkerf"
+CLOTHES_OFFICE_WORKER_M = "officeworkerm"
+CLOTHES_BUSINESS_SUIT = "BusinessSuit"
+
+CLOTHES_ADVENTURER = "fantasyadventurersoutfit"
+CLOTHES_EMERALD = "emeraldSPE"
+CLOTHES_PIKACHU_ONESIE = "pikaonesie"
+
+CLOTHES_GLITCH = "glitzerset"
+CLOTHES_BREEDER="PKMBreeder"
+
+CLOTHES_FOSSIL_M ="sado"
+CLOTHES_FOSSIL_F ="sada"
+
+CLOTHES_TREVENANT= "trevenantforestkingcloak"
+
+CLOTHES_WAITRESS = "maid"
+CLOTHES_WAITER = "butler"
+
+CLOTHES_LASS_YELLOW ="lass"
+CLOTHES_LASS_BLUE ="lass2"
+
+DEFAULT_OUTFIT_MALE = "red"
+DEFAULT_OUTFIT_FEMALE = "leaf"
+STARTING_OUTFIT = "pikajamas"
+
+
+#Hats
+HAT_TEAM_ROCKET = "rocketcap"
+HAT_POSTMAN = "postman"
+HAT_PIDGEY_NEST = "pidgey"
+HAT_SWABLU_NEST = "swablu"
+HAT_PIKACHUM_NEST = "pikhatchum"
+HAT_PIKACHUF_NEST = "pikhatchuf"
+HAT_PARAS_NEST = "headparas"
+HAT_EEVEE_NEST = "eevee"
+
+HAT_PARASHROOM = "parashroom"
+HAT_AERODACTYL = "aerodactylSkull"
+HAT_DUSKULL_MASK = "duskullmask"
+HAT_SLEEPMASK = "sleepmask"
+HAT_DITTO_MASK = "creepydittomask"
+HAT_EGG = "egg"
+HAT_DRIFLOON_CAP = "drifloon"
+HAT_EMERALD = "emeraldSPEgem"
+HAT_SQUIRTLE_SHADES = "squirtlesquadshades"
+HAT_WOOPER = "wooperclips"
+HAT_PIKACHU_HOOD = "pikaonesie"
+HAT_FEZ = "fez"
+HAT_HALO = "halo"
+HAT_MAGIKARP = "magicap"
+HAT_SLOWKING_SHELL = "slowking"
+HAT_ZOROARK = "banefulfoxmask"
+HAT_FROG = "froghat"
+HAT_SANTA = "santa"
+HAT_QMARKS = "glitzerset"
+HAT_SUDOWOODO = "sudowoodohorns"
+
+HAT_TREVENANT="trevenantforestkingcrown"
+
+HAT_CLOWN = "clownnose"
+
+HAT_BREEDER_1="breedervisor"
+HAT_BREEDER_2="breederbandana"
+HAT_BREEDER_2_2="PKMBreeder"
+
+HAT_BREEDER_3="egg"
+
+HAT_BREEDEROUTFIT="PKMBreeder"
+
+HAT_WAITRESS = "maid"
+
+FUSION_HAT = "fusionnerd"
+FUSION_OUTFIT = "fusionnerd"
+
+HAT_ASH = "ash"
+HAT_BIANCA = "bianca"
+HAT_CLEFAIRY = "clefairyearheadband"
+HAT_FLOWER = "mikufairy"
+
+HAT_SKITTY_TV = "skittyTV"
+HAT_TVHEAD = "tvhead"
+
+HAT_SCRIBBLES1 = "scribbles1"
+HAT_SCRIBBLES2 = "scribbles2"
+HAT_SCRIBBLES3 = "scribbles3"
+HAT_SCRIBBLES4 = "scribbles4"
+
+HAT_CARDBOARD_BOX = "box"
+HAT_CAPTAIN = "seacaptain"
+HAT_GYM_REWARD_1 = "brockpan"
+HAT_GYM_REWARD_2 = "starmieclip"
+HAT_GYM_REWARD_3 = "surgeglasses"
+HAT_GYM_REWARD_4 = "erikaHeadband"
+HAT_GYM_REWARD_5 = "kogascarf"
+HAT_GYM_REWARD_6 = "sabrinasballs"
+HAT_GYM_REWARD_7 = "blaineGlasses"
+HAT_GYM_REWARD_8 = "giovannifedora"
+HAT_GYM_REWARD_9 = "luluribbon"
+HAT_GYM_REWARD_10 = "kurtsentaihelmet"
+HAT_GYM_REWARD_11 = "falknerscage"
+HAT_GYM_REWARD_12 = "clairbow"
+HAT_GYM_REWARD_13 = "chuckmoustache"
+HAT_GYM_REWARD_14 = "prycemask"
+HAT_GYM_REWARD_15 = "mortyHeadband"
+HAT_GYM_REWARD_16 = "magnemitepin"
+
+
+#Hairstyles
+HAIR_RED = "red"
+HAIR_LEAF = "leaf"
+
+HAIR_HEXMANIAC = "HexManiac"
+HAIR_LASS = "lass"
+
+HAIR_BALD = "bald"
+HAIR_RIVAL = "gary"
+HAIR_BROCK = "brock"
+HAIR_MISTY1 = "mistyRBY"
+HAIR_MISTY2 = "mistyGSC"
+
+HAIR_SURGE = "surge"  #does not exist yet
+HAIR_ERIKA = "erika"
+HAIR_KOGA = "koga"  #does not exist yet
+HAIR_JANINE = "janine"
+HAIR_SABRINA = "sabrinaGSC"
+HAIR_BLAINE = "blaine" #does not exist yet
+HAIR_GIOVANNI = "giovanni" #does not exist yet
+HAIR_WHITNEY = "whitney"
+HAIR_KURT = "kurt"
+HAIR_FALKNER = "falkner"
+HAIR_CLAIR = "clair"
+HAIR_CHUCK = "chuck" #does not exist yet
+HAIR_PRYCE = "pryce" #does not exist yet
+HAIR_MORTY = "morty" #does not exist yet
+HAIR_JASMINE = "jasmine" #does not exist yet
+
+HAIR_HOOH = "ho-oh"
+HAIR_CRESSELIA = "lunarbob"
+HAIR_LYCANROC="lycanrocshorthair"
+HAIR_HAPPINY="happinysuit"
+HAIR_LATIAS="SpecialLatias"
+HAIR_GARDEVOIR="gardevoir"
+HAIR_EEVEE="eeveetail"

Data/Scripts/998_InfiniteFusion/Outfits/Overrides/Outfits_Scene_Map.rb

@@ -0,0 +1,7 @@
+# frozen_string_literal: true
+
+class Scene_Map
+  def reset_player_sprite
+    @spritesetGlobal.playersprite.updateBitmap
+  end
+end

Data/Scripts/998_InfiniteFusion/Outfits/Overrides/Outfits_Sprite_Character.rb

@@ -0,0 +1,176 @@
+# frozen_string_literal: true
+
+class Sprite_Character
+  attr_accessor :pending_bitmap
+  attr_accessor :bitmap_override
+  attr_accessor :charbitmap
+  alias pokemonEssentials_spriteCharacter_initialize initialize
+  def initialize(viewport, character = nil)
+    pokemonEssentials_spriteCharacter_initialize(viewport, character)
+    checkModifySpriteGraphics(@character) if @character
+  end
+
+  def setSpriteToAppearance(trainerAppearance)
+    #return if !@charbitmap || !@charbitmap.bitmap
+    begin
+      new_bitmap = AnimatedBitmap.new(getBaseOverworldSpriteFilename()) #@charbitmap
+      new_bitmap.bitmap = generateNPCClothedBitmapStatic(trainerAppearance)
+      @bitmap_override = new_bitmap
+      updateBitmap
+    rescue
+    end
+  end
+
+  def clearBitmapOverride()
+    @bitmap_override = nil
+    updateBitmap
+  end
+
+  def setSurfingPokemon(pokemonSpecies)
+    @surfingPokemon = pokemonSpecies
+    @surfbase.setPokemon(pokemonSpecies) if @surfbase
+  end
+
+  def updateBitmap
+    @manual_refresh = true
+  end
+
+  def pbLoadOutfitBitmap(outfitFileName)
+    # Construct the file path for the outfit bitmap based on the given value
+    #outfitFileName = sprintf("Graphics/Outfits/%s", value)
+
+    # Attempt to load the outfit bitmap
+    begin
+      outfitBitmap = RPG::Cache.load_bitmap("", outfitFileName)
+      return outfitBitmap
+    rescue
+      return nil
+    end
+  end
+
+  def generateClothedBitmap()
+    return
+  end
+
+  def applyDayNightTone()
+    if @character.is_a?(Game_Event) && @character.name[/regulartone/i]
+      self.tone.set(0, 0, 0, 0)
+    else
+      pbDayNightTint(self)
+    end
+  end
+
+  def updateCharacterBitmap
+    AnimatedBitmap.new('Graphics/Characters/' + @character_name, @character_hue)
+  end
+
+  def should_update?
+    return @tile_id != @character.tile_id ||
+      @character_name != @character.character_name ||
+      @character_hue != @character.character_hue ||
+      @oldbushdepth != @character.bush_depth ||
+      @manual_refresh
+  end
+
+  def refreshOutfit()
+    self.pending_bitmap = getClothedPlayerSprite(true)
+  end
+
+
+
+  def checkModifySpriteGraphics(character)
+    return if character == $game_player || !character.name
+    if TYPE_EXPERTS_APPEARANCES.keys.include?(character.name.to_sym)
+      typeExpert = character.name.to_sym
+      setSpriteToAppearance(TYPE_EXPERTS_APPEARANCES[typeExpert])
+    end
+  end
+
+
+
+  # def update
+  #   if self.pending_bitmap
+  #     self.bitmap = self.pending_bitmap
+  #     self.pending_bitmap = nil
+  #   end
+  #   return if @character.is_a?(Game_Event) && !@character.should_update?
+  #   super
+  #   if should_update?
+  #     @manual_refresh = false
+  #     @tile_id = @character.tile_id
+  #     @character_name = @character.character_name
+  #     @character_hue = @character.character_hue
+  #     @oldbushdepth = @character.bush_depth
+  #     if @tile_id >= 384
+  #       @charbitmap.dispose if @charbitmap
+  #       @charbitmap = pbGetTileBitmap(@character.map.tileset_name, @tile_id,
+  #                                     @character_hue, @character.width, @character.height)
+  #       @charbitmapAnimated = false
+  #       @bushbitmap.dispose if @bushbitmap
+  #       @bushbitmap = nil
+  #       @spriteoffset = false
+  #       @cw = Game_Map::TILE_WIDTH * @character.width
+  #       @ch = Game_Map::TILE_HEIGHT * @character.height
+  #       self.src_rect.set(0, 0, @cw, @ch)
+  #       self.ox = @cw / 2
+  #       self.oy = @ch
+  #       @character.sprite_size = [@cw, @ch]
+  #     else
+  #       @charbitmap.dispose if @charbitmap
+  #
+  #       @charbitmap = updateCharacterBitmap()
+  #       @charbitmap = @bitmap_override.clone if @bitmap_override
+  #
+  #       RPG::Cache.retain('Graphics/Characters/', @character_name, @character_hue) if @charbitmapAnimated = true
+  #       @bushbitmap.dispose if @bushbitmap
+  #       @bushbitmap = nil
+  #       #@spriteoffset = @character_name[/offset/i]
+  #       @spriteoffset = @character_name[/fish/i] || @character_name[/dive/i] || @character_name[/surf/i]
+  #       @cw = @charbitmap.width / 4
+  #       @ch = @charbitmap.height / 4
+  #       self.ox = @cw / 2
+  #       @character.sprite_size = [@cw, @ch]
+  #     end
+  #   end
+  #   @charbitmap.update if @charbitmapAnimated
+  #   bushdepth = @character.bush_depth
+  #   if bushdepth == 0
+  #     if @character == $game_player
+  #       self.bitmap = getClothedPlayerSprite() #generateClothedBitmap()
+  #     else
+  #       self.bitmap = (@charbitmapAnimated) ? @charbitmap.bitmap : @charbitmap
+  #     end
+  #   else
+  #     @bushbitmap = BushBitmap.new(@charbitmap, (@tile_id >= 384), bushdepth) if !@bushbitmap
+  #     self.bitmap = @bushbitmap.bitmap
+  #   end
+  #   self.visible = !@character.transparent
+  #   if @tile_id == 0
+  #     sx = @character.pattern * @cw
+  #     sy = ((@character.direction - 2) / 2) * @ch
+  #     self.src_rect.set(sx, sy, @cw, @ch)
+  #     self.oy = (@spriteoffset rescue false) ? @ch - 16 : @ch
+  #     self.oy -= @character.bob_height
+  #   end
+  #   if self.visible
+  #     applyDayNightTone()
+  #   end
+  #   self.x = @character.screen_x
+  #   self.y = @character.screen_y
+  #   self.z = @character.screen_z(@ch)
+  #   #    self.zoom_x     = Game_Map::TILE_WIDTH / 32.0
+  #   #    self.zoom_y     = Game_Map::TILE_HEIGHT / 32.0
+  #   self.opacity = @character.opacity
+  #   self.blend_type = @character.blend_type
+  #   #    self.bush_depth = @character.bush_depth
+  #   if @character.animation_id != 0
+  #     animation = $data_animations[@character.animation_id]
+  #     animation(animation, true)
+  #     @character.animation_id = 0
+  #   end
+  #   @reflection.update if @reflection
+  #   @surfbase.update if @surfbase
+  # end
+
+
+end

Data/Scripts/998_InfiniteFusion/Outfits/Overrides/Outfits_Sprite_Player.rb

@@ -0,0 +1,131 @@
+class Sprite_Player < Sprite_Character
+  def initialize(viewport, character = nil)
+    super(viewport,character)
+    @initialized_player=false
+  end
+
+  def initialize_player()
+    #@viewport = viewport
+    @outfit_bitmap = nil
+
+    hatFilename = ""
+    hairFilename = ""
+    @hat = Sprite_Hat.new(self, hatFilename, @character_name, @viewport,3)
+    @hat2 = Sprite_Hat.new(self, hatFilename, @character_name, @viewport,2)
+    @hair = Sprite_Hair.new(self, hairFilename, @character_name, @viewport)
+
+    @previous_skinTone = 0
+
+    @current_bitmap = nil
+    @previous_action =nil
+    echoln "initialized player sprite"
+    getClothedPlayerSprite(true)
+  end
+
+  def update
+    super
+    if !@initialized_custom && @charbitmap
+      initialize_player
+      @initialized_custom = true
+    end
+  end
+
+
+  def applyDayNightTone
+    super
+    pbDayNightTint(@hat.sprite) if @hat && @hat.sprite.bitmap
+    pbDayNightTint(@hat2.sprite) if @hat2 && @hat2.sprite.bitmap
+    pbDayNightTint(@hair.sprite) if @hair && @hair.sprite.bitmap
+  end
+
+  def opacity=(value)
+    super
+    @hat.sprite.opacity= value if @hat && @hat.sprite.bitmap
+    @hat2.sprite.opacity= value if @hat2 && @hat2.sprite.bitmap
+    @hair.sprite.opacity= value if @hair && @hair.sprite.bitmap
+  end
+
+  alias pokemon_essentials_spritePlayer_dispose dispose
+  def dispose
+    pokemon_essentials_spritePlayer_dispose
+    super
+    @hat.dispose if @hat
+    @hat2.dispose if @hat2
+    @hair.dispose if @hair
+  end
+
+  ###############
+  # New methods #
+  ##############
+  def updateCharacterBitmap
+    skinTone = $player.skin_tone ? $player.skin_tone : 0
+    baseBitmapFilename = getBaseOverworldSpriteFilename(@character_name, skinTone)
+    if !pbResolveBitmap(baseBitmapFilename)
+      baseBitmapFilename = Settings::PLAYER_GRAPHICS_FOLDER + @character_name
+    end
+    AnimatedBitmap.new(baseBitmapFilename, @character_hue)
+  end
+
+
+
+  def getClothedPlayerSprite(forceUpdate=false)
+    if @previous_action != @character_name || forceUpdate
+      @current_bitmap = generateClothedBitmap
+    end
+    @previous_action = @character_name
+    @hair.animate(@character_name) if @hair
+    @hat.animate(@character_name) if @hat
+    @hat2.animate(@character_name) if @hat2
+    return @current_bitmap
+  end
+
+
+  def generateClothedBitmap()
+    return if !@charbitmap
+    @charbitmap.bitmap.clone #nekkid sprite
+    baseBitmap = @charbitmap.bitmap.clone #nekkid sprite
+
+    outfitFilename = getOverworldOutfitFilename($player.clothes, @character_name) #
+    outfitFilename = getOverworldOutfitFilename(Settings::PLAYER_TEMP_OUTFIT_FALLBACK) if !pbResolveBitmap(outfitFilename)
+    hairFilename = getOverworldHairFilename($player.hair)
+    hatFilename = getOverworldHatFilename($player.hat)
+    hat2Filename = getOverworldHatFilename($player.hat2)
+
+    hair_color_shift = $player.hair_color
+    hat_color_shift = $player.hat_color
+    hat2_color_shift = $player.hat2_color
+
+    clothes_color_shift = $player.clothes_color
+
+    hair_color_shift = 0 if !hair_color_shift
+    hat_color_shift = 0 if !hat_color_shift
+    hat2_color_shift = 0 if !hat2_color_shift
+
+    clothes_color_shift = 0 if !clothes_color_shift
+    @hair.update(@character_name, hairFilename, hair_color_shift) if @hair
+    @hat.update(@character_name, hatFilename, hat_color_shift) if @hat
+    @hat2.update(@character_name, hat2Filename, hat2_color_shift) if @hat2
+
+    if !pbResolveBitmap(outfitFilename)
+      raise "No temp clothes graphics available"
+    end
+
+    outfitBitmap = AnimatedBitmap.new(outfitFilename, clothes_color_shift) if pbResolveBitmap(outfitFilename)
+    baseBitmap.blt(0, 0, outfitBitmap.bitmap, outfitBitmap.bitmap.rect) if outfitBitmap
+    @previous_action = @character_name
+    return baseBitmap
+  end
+
+
+
+  def pbLoadOutfitBitmap(outfitFileName)
+    begin
+      outfitBitmap = RPG::Cache.load_bitmap("", outfitFileName)
+      return outfitBitmap
+    rescue
+      return nil
+    end
+  end
+
+
+end

Data/Scripts/998_InfiniteFusion/Outfits/Overrides/Outfits_Spriteset_Global.rb

@@ -0,0 +1,19 @@
+class Spriteset_Global
+  ###################
+  #Overwritten methods
+  # #################
+  def initialize
+    @map_id = $game_map&.map_id || 0
+    @follower_sprites = FollowerSprites.new(Spriteset_Map.viewport)
+    @playersprite = Sprite_Player.new(Spriteset_Map.viewport, $game_player)
+    @weather = RPG::Weather.new(Spriteset_Map.viewport)
+    @picture_sprites = []
+    (1..100).each do |i|
+      @picture_sprites.push(Sprite_Picture.new(@@viewport2, $game_screen.pictures[i]))
+    end
+    @timer_sprite = Sprite_Timer.new
+    update
+  end
+
+end
+

Data/Scripts/998_InfiniteFusion/Outfits/Sprites/013_Sprite_Wearable.rb

@@ -0,0 +1,170 @@
+class Sprite_Wearable < RPG::Sprite
+  attr_accessor :filename
+  attr_accessor :action
+  attr_accessor :sprite
+
+  def initialize(player_sprite, filename, action, viewport, relative_z=0)
+    @player_sprite = player_sprite
+    @viewport = viewport
+    @sprite = Sprite.new(@viewport)
+    @wearableBitmap = AnimatedBitmap.new(filename) if pbResolveBitmap(filename)
+    @filename = filename
+    @sprite.bitmap = @wearableBitmap.bitmap if @wearableBitmap
+    @action = action
+    @color = 0
+    @frameWidth = 80  #@sprite.width
+    @frameHeight = 80 #@sprite.height / 4
+    @sprite.z = 0
+    @relative_z=relative_z #relative to player
+    echoln(_INTL("init had at z = {1}, player sprite at {2}",@sprite.z,@player_sprite.z))
+
+    #Unused position offset
+    # @x_pos_base_offset = 0
+    # @y_pos_base_offset = 0
+  end
+
+  def apply_sprite_offset(offsets_array, current_frame)
+    @sprite.x  += offsets_array[current_frame][0]
+    @sprite.y  += offsets_array[current_frame][1]
+  end
+
+  def adjustPositionForScreenScrolling
+    return if !$game_map.scrolling? && !@was_just_scrolling
+    if $game_map.scrolling?
+      @was_just_scrolling=true
+    else
+      @was_just_scrolling=false
+    end
+    offset_x = 0
+    offset_y = 0
+    case $game_map.scroll_direction
+    when DIRECTION_RIGHT
+      offset_x=-8
+    when DIRECTION_LEFT
+      offset_x=8
+    when DIRECTION_UP
+      offset_y=8
+      @sprite.z+=50 #weird layering glitch for some reason otherwise. It's reset to the correct value in the next animation frame
+    when DIRECTION_DOWN
+      offset_y=-8
+    end
+    @sprite.x+=offset_x
+    @sprite.y+=offset_y
+  end
+
+
+  def set_sprite_position(action, direction, current_frame)
+    @sprite.x = @player_sprite.x - @player_sprite.ox
+    @sprite.y = @player_sprite.y - @player_sprite.oy
+    case action
+    when "run"
+      if direction == DIRECTION_DOWN
+        apply_sprite_offset(Outfit_Offsets::RUN_OFFSETS_DOWN, current_frame)
+      elsif direction == DIRECTION_LEFT
+        apply_sprite_offset(Outfit_Offsets::RUN_OFFSETS_LEFT, current_frame)
+      elsif direction == DIRECTION_RIGHT
+        apply_sprite_offset(Outfit_Offsets::RUN_OFFSETS_RIGHT, current_frame)
+      elsif direction == DIRECTION_UP
+        apply_sprite_offset(Outfit_Offsets::RUN_OFFSETS_UP, current_frame)
+      end
+    when "surf"
+      if direction == DIRECTION_DOWN
+        apply_sprite_offset(Outfit_Offsets::SURF_OFFSETS_DOWN,current_frame)
+      elsif direction == DIRECTION_LEFT
+        apply_sprite_offset( Outfit_Offsets::SURF_OFFSETS_LEFT,current_frame)
+      elsif direction == DIRECTION_RIGHT
+        apply_sprite_offset( Outfit_Offsets::SURF_OFFSETS_RIGHT,current_frame)
+      elsif direction == DIRECTION_UP
+        apply_sprite_offset( Outfit_Offsets::SURF_OFFSETS_UP,current_frame)
+      end
+    when "dive"
+      if direction == DIRECTION_DOWN
+        apply_sprite_offset(Outfit_Offsets::DIVE_OFFSETS_DOWN,current_frame)
+      elsif direction == DIRECTION_LEFT
+        apply_sprite_offset( Outfit_Offsets::DIVE_OFFSETS_LEFT,current_frame)
+      elsif direction == DIRECTION_RIGHT
+        apply_sprite_offset( Outfit_Offsets::DIVE_OFFSETS_RIGHT,current_frame)
+      elsif direction == DIRECTION_UP
+        apply_sprite_offset( Outfit_Offsets::DIVE_OFFSETS_UP,current_frame)
+      end
+    when "bike"
+      if direction == DIRECTION_DOWN
+        apply_sprite_offset(Outfit_Offsets::BIKE_OFFSETS_DOWN,current_frame)
+      elsif direction == DIRECTION_LEFT
+        apply_sprite_offset( Outfit_Offsets::BIKE_OFFSETS_LEFT,current_frame)
+      elsif direction == DIRECTION_RIGHT
+        apply_sprite_offset( Outfit_Offsets::BIKE_OFFSETS_RIGHT,current_frame)
+      elsif direction == DIRECTION_UP
+        apply_sprite_offset( Outfit_Offsets::BIKE_OFFSETS_UP,current_frame)
+      end
+    when "fish"
+      if direction == DIRECTION_DOWN
+        apply_sprite_offset(Outfit_Offsets::FISH_OFFSETS_DOWN,current_frame)
+      elsif direction == DIRECTION_LEFT
+        apply_sprite_offset( Outfit_Offsets::FISH_OFFSETS_LEFT,current_frame)
+      elsif direction == DIRECTION_RIGHT
+        apply_sprite_offset( Outfit_Offsets::FISH_OFFSETS_RIGHT,current_frame)
+      elsif direction == DIRECTION_UP
+        apply_sprite_offset( Outfit_Offsets::FISH_OFFSETS_UP,current_frame)
+      end
+    else
+      @sprite.x = @player_sprite.x - @player_sprite.ox
+      @sprite.y = @player_sprite.y - @player_sprite.oy
+    end
+    adjustPositionForScreenScrolling()
+
+    @sprite.y -= 2 if current_frame % 2 == 1
+  end
+
+
+  def animate(action, frame=nil)
+    @action = action
+    current_frame = @player_sprite.character.pattern if !frame
+    direction = @player_sprite.character.direction
+    crop_spritesheet(direction)
+    adjust_layer()
+    set_sprite_position(@action, direction, current_frame)
+  end
+
+  def update(action, filename,color)
+    @sprite.opacity = @player_sprite.opacity if @wearableBitmap
+    if filename != @filename || color != @color
+      if pbResolveBitmap(filename)
+        #echoln pbResolveBitmap(filename)
+        @wearableBitmap = AnimatedBitmap.new(filename,color)
+        @sprite.bitmap = @wearableBitmap.bitmap
+      else
+        @wearableBitmap = nil
+        @sprite.bitmap = nil
+      end
+      @color =color
+      @filename = filename
+    end
+    animate(action)
+  end
+
+  def adjust_layer()
+    if @sprite.z != @player_sprite.z+@relative_z
+      @sprite.z = @player_sprite.z+@relative_z
+    end
+  end
+
+  def crop_spritesheet(direction)
+    sprite_x = 0
+    sprite_y = ((direction - 2) / 2) * @frameHeight
+    @sprite.src_rect.set(sprite_x, sprite_y, @frameWidth, @frameHeight)
+  end
+
+  def dispose
+    return if @disposed
+    @sprite.dispose if @sprite
+    @sprite = nil
+    @disposed = true
+  end
+
+  def disposed?
+    @disposed
+  end
+
+
+end

Data/Scripts/998_InfiniteFusion/Outfits/Sprites/014_Sprite_Hair.rb

@@ -0,0 +1,85 @@
+class Sprite_Hair < Sprite_Wearable
+  def initialize(player_sprite, filename, action, viewport)
+    super
+    @relative_z = 1
+
+    #@sprite.z = @player_sprite.z + 1
+  end
+
+  def animate(action, frame = nil)
+    @action = action
+    current_frame = @player_sprite.character.pattern if !frame
+    direction = @player_sprite.character.direction
+    crop_spritesheet(direction, current_frame, action)
+    adjust_layer()
+    set_sprite_position(@action, direction, current_frame)
+  end
+
+  def crop_spritesheet(direction, current_frame, action)
+    sprite_x = ((current_frame)) * @frameWidth
+    # Don't animate surf
+    sprite_x = 0 if action == "surf"
+
+    sprite_y = ((direction - 2) / 2) * @frameHeight
+    @sprite.src_rect.set(sprite_x, sprite_y, @frameWidth, @frameHeight)
+  end
+
+  def set_sprite_position(action, direction, current_frame)
+    @sprite.x = @player_sprite.x - @player_sprite.ox
+    @sprite.y = @player_sprite.y - @player_sprite.oy
+    case action
+    when "run"
+      if direction == DIRECTION_DOWN
+        apply_sprite_offset(Outfit_Offsets::RUN_OFFSETS_DOWN, current_frame)
+      elsif direction == DIRECTION_LEFT
+        apply_sprite_offset(Outfit_Offsets::RUN_OFFSETS_LEFT, current_frame)
+      elsif direction == DIRECTION_RIGHT
+        apply_sprite_offset(Outfit_Offsets::RUN_OFFSETS_RIGHT, current_frame)
+      elsif direction == DIRECTION_UP
+        apply_sprite_offset(Outfit_Offsets::RUN_OFFSETS_UP, current_frame)
+      end
+    when "surf"
+      if direction == DIRECTION_DOWN # Always animate as if on the first frame
+        apply_sprite_offset(Outfit_Offsets::SURF_OFFSETS_DOWN, 0)
+      elsif direction == DIRECTION_LEFT
+        apply_sprite_offset(Outfit_Offsets::SURF_OFFSETS_LEFT, 0)
+      elsif direction == DIRECTION_RIGHT
+        apply_sprite_offset(Outfit_Offsets::SURF_OFFSETS_RIGHT, 0)
+      elsif direction == DIRECTION_UP
+        apply_sprite_offset(Outfit_Offsets::SURF_OFFSETS_UP, 0)
+      end
+    when "dive"
+      if direction == DIRECTION_DOWN
+        apply_sprite_offset(Outfit_Offsets::DIVE_OFFSETS_DOWN, current_frame)
+      elsif direction == DIRECTION_LEFT
+        apply_sprite_offset(Outfit_Offsets::DIVE_OFFSETS_LEFT, current_frame)
+      elsif direction == DIRECTION_RIGHT
+        apply_sprite_offset(Outfit_Offsets::DIVE_OFFSETS_RIGHT, current_frame)
+      elsif direction == DIRECTION_UP
+        apply_sprite_offset(Outfit_Offsets::DIVE_OFFSETS_UP, current_frame)
+      end
+    when "bike"
+      if direction == DIRECTION_DOWN
+        apply_sprite_offset(Outfit_Offsets::BIKE_OFFSETS_DOWN, current_frame)
+      elsif direction == DIRECTION_LEFT
+        apply_sprite_offset(Outfit_Offsets::BIKE_OFFSETS_LEFT, current_frame)
+      elsif direction == DIRECTION_RIGHT
+        apply_sprite_offset(Outfit_Offsets::BIKE_OFFSETS_RIGHT, current_frame)
+      elsif direction == DIRECTION_UP
+        apply_sprite_offset(Outfit_Offsets::BIKE_OFFSETS_UP, current_frame)
+      end
+    when "fish"
+      if direction == DIRECTION_DOWN
+        apply_sprite_offset(Outfit_Offsets::FISH_OFFSETS_DOWN, current_frame)
+      elsif direction == DIRECTION_LEFT
+        apply_sprite_offset(Outfit_Offsets::FISH_OFFSETS_LEFT, current_frame)
+      elsif direction == DIRECTION_RIGHT
+        apply_sprite_offset(Outfit_Offsets::FISH_OFFSETS_RIGHT, current_frame)
+      elsif direction == DIRECTION_UP
+        apply_sprite_offset(Outfit_Offsets::FISH_OFFSETS_UP, current_frame)
+      end
+    end
+    adjustPositionForScreenScrolling()
+  end
+
+end

Data/Scripts/998_InfiniteFusion/Outfits/Sprites/014_Sprite_Hat.rb

@@ -0,0 +1,6 @@
+class Sprite_Hat < Sprite_Wearable
+  def initialize(player_sprite, filename, action, viewport, relative_z=2)
+    super
+    @relative_z = relative_z
+  end
+end

Data/Scripts/998_InfiniteFusion/Outfits/TrainerAppearance.rb

@@ -0,0 +1,158 @@
+class TrainerAppearance
+  attr_accessor :skin_color
+  attr_accessor :hat
+  attr_accessor :hat2
+  attr_accessor :clothes
+  attr_accessor :hair
+
+  attr_accessor :hair_color
+  attr_accessor :clothes_color
+  attr_accessor :hat_color
+  attr_accessor :hat2_color
+
+
+  def initialize(skin_color, hat, clothes, hair, hair_color = 0, clothes_color = 0, hat_color = 0, hat2=nil, hat2_color=0)
+    @skin_color = skin_color
+    @hat = hat
+    @hat2 = hat2
+    @clothes = clothes
+    @hair = hair
+    @hair_color = hair_color
+    @clothes_color = clothes_color
+    @hat_color = hat_color
+    @hat2_color = hat2_color
+  end
+end
+
+def getTypeExpertAppearance(trainer_type)
+  return TYPE_EXPERTS_APPEARANCES[trainer_type]
+end
+
+TYPE_EXPERTS_APPEARANCES = {
+  :TYPE_EXPERT_NORMAL => TrainerAppearance.new(5, "snorlaxhat", "normal", "1_painter", 0, 0, 0), #todo TEAM
+  :TYPE_EXPERT_FIGHTING => TrainerAppearance.new(1, "karateHeadband", "fighting", "4_samurai", 0, 0, 0), #OK
+  # TYPE_EXPERT_FLYING	=>#TODO NEEDS OUTFIT, LOCATION, TEAM
+  :TYPE_EXPERT_POISON => TrainerAppearance.new(5, "parashroom", "deadlypoisondanger", "3_lowbraids", 270, 0, 0), #todo TEAM
+  :TYPE_EXPERT_GROUND => TrainerAppearance.new(5, "sandshrewbeanie", "groundcowboy", "3_shortspike", 0, 0, 0), #todo TEAM
+  # TYPE_EXPERT_ROCK	=>#TODO NEEDS OUTFIT, LOCATION, TEAM
+  :TYPE_EXPERT_BUG => TrainerAppearance.new("0", "bugantenna", "bughakama", "3_hime", 60, 0,), #OK
+  #:TYPE_EXPERT_GHOST	=>	TrainerAppearance.new(6,"duskullmask","gothhoodie","4_hime",0,0,0), #NO CLOTHES - DISABLED #TODO NEEDS OUTFIT, TEAM
+  :TYPE_EXPERT_STEEL => TrainerAppearance.new(2, "veteranM", "steelworkerF", "4_highpony", 0, 0, 0), #todo TEAM
+  :TYPE_EXPERT_FIRE => TrainerAppearance.new(4, "firefigther", "fire", "2_bob", 330, 0, 0), #todo  TEAM
+  :TYPE_EXPERT_WATER => TrainerAppearance.new(5, "waterdress", "waterdress", "1_pixie", 180, 0, 0),
+  # TYPE_EXPERT_GRASS	=>	TrainerAppearance.new("0","aerodactylSkull","red","","","")	, #TODO NEEDS OUTFIT, LOCATION, TEAM
+  :TYPE_EXPERT_ELECTRIC => TrainerAppearance.new(3, "designerheadphones", "urbanelectric", "1_dancer", 10, 0, 0), #OK
+  # TYPE_EXPERT_PSYCHIC	=># TODO NEEDS OUTFIT, LOCATION, TEAM
+  :TYPE_EXPERT_ICE	=>	TrainerAppearance.new(6,"skierF","iceoutfit","1_wavy",0,0,210),
+  :TYPE_EXPERT_DRAGON => TrainerAppearance.new(5, "aerodactylSkull", "dragonconqueror", "2_SpecialLatias", 670, 0, 510), #todo NEEDS LOCATION, TEAM
+  # TYPE_EXPERT_DARK	=>  #TODO NEEDS OUTFIT, LOCATION, TEAM
+  :TYPE_EXPERT_FAIRY => TrainerAppearance.new(6, "mikufairy", "mikufairyf", "5_mikufairy", 0, 0, 0) #OK
+}
+
+TYPE_EXPERT_TRAINERS = {
+  :QMARK => ["name", "loseText"],
+  :ELECTRIC => ["Ray", "What a shocking turn of events!"],
+  :BUG => ["Bea", "I’m bugging out of here!"],
+  :FAIRY => ["Luna", "You outshined me!"],
+  :DRAGON => ["Draco", "I shall scale back my plans."],
+  :FIGHTING => ["Floyd", "I have to throw in the towel."],
+  :GROUND => ["Pedro", "I’m buried under this loss."],
+  :FIRE => ["Blaze", "I guess I got burned out."],
+  :GRASS => ["Ivy", "ou really cut me down to size!"],
+  :ICE => ["Crystal", "I’m skating on thin ice!"],
+  :ROCK => ["Slate", "Looks like I’ve hit rock bottom..."],
+  :WATER => ["Marina", "You really made a splash!"],
+  :FLYING => ["Gale", "I guess I’m grounded for now."],
+  :DARK => ["Raven", "I’ll slip back into the shadows"],
+  :STEEL => ["Silvia", "I guess I was a bit rusty..."],
+  :PSYCHIC => ["Carl", "I could not foresee this defeat."],
+  :GHOST => ["Evangeline", "I can feel myself disappearing into thin air!"],
+  :POISON => ["Marie", "I got a taste of my own medicine!"],
+  :NORMAL => ["Tim", "This was anything but normal!"],
+}
+
+TYPE_EXPERT_REWARDS = {
+  :QMARK => [],
+  :ELECTRIC => [CLOTHES_ELECTRIC],
+  :BUG => [CLOTHES_BUG_1,CLOTHES_BUG_2],
+  :FAIRY => [CLOTHES_FAIRY_F,CLOTHES_FAIRY_M],
+  :DRAGON => [CLOTHES_DRAGON],
+  :FIGHTING => [CLOTHES_FIGHTING],
+  :GROUND => [CLOTHES_GROUND],
+  :FIRE => [CLOTHES_FIRE],
+  :GRASS => [CLOTHES_GRASS],
+  :ICE => [CLOTHES_ICE],
+  :ROCK => [CLOTHES_ROCK],
+  :WATER => [CLOTHES_WATER],
+  :FLYING => [CLOTHES_FLYING],
+  :DARK => [CLOTHES_DARK],
+  :STEEL => [CLOTHES_STEEL_F,CLOTHES_STEEL_M],
+  :PSYCHIC => [CLOTHES_PSYCHIC],
+  :GHOST => [CLOTHES_GHOST],
+  :POISON => [CLOTHES_POISON],
+  :NORMAL => [CLOTHES_NORMAL],
+}
+
+TOTAL_NB_TYPE_EXPERTS = 12
+def type_expert_battle(type_id)
+  type = GameData::Type.get(type_id)
+  pbCallBub(2, @event_id)
+  pbMessage("Ah! Can you feel the energy in here? This place is great for #{type.real_name}-Pokémon!")
+  pbCallBub(2, @event_id)
+  pbMessage("I'm what you could call an expert on #{type.real_name}-Pokémon. I've grown with them for all of my life.")
+  pbCallBub(2, @event_id)
+  pbMessage("I'll give you my \\C[5]special outfit\\C[0] if you can defeat my team using only #{type.real_name}-type Pokémon. ")
+  pbCallBub(2, @event_id)
+  if pbConfirmMessage("Do you think you can handle that?")
+    pbCallBub(2, @event_id)
+    pbMessage("Select your team! Remember, only #{type.real_name}-type Pokémon are allowed!")
+
+    gym_randomizer_index = GYM_TYPES_CLASSIC.index(type_id)
+    echoln gym_randomizer_index
+    pbSet(VAR_CURRENT_GYM_TYPE, gym_randomizer_index)
+    if PokemonSelection.choose(1, 4, true, true, proc { |poke| poke.hasType?(type_id) })
+      #Level is equal to the highest level in player's party
+      $game_switches[Settings::OVERRIDE_BATTLE_LEVEL_SWITCH]=true
+      $game_switches[SWITCH_DONT_RANDOMIZE]=true
+
+      pbSet(Settings::OVERRIDE_BATTLE_LEVEL_VALUE_VAR, $player.highest_level_pokemon_in_party)
+      trainer_class = "TYPE_EXPERT_#{type_id.to_s}".to_sym
+      trainer_name = TYPE_EXPERT_TRAINERS[type_id][0]
+      lose_text = TYPE_EXPERT_TRAINERS[type_id][1]
+      if pbTrainerBattle(trainer_class, trainer_name, lose_text, false, 0, false)
+        pbSet(VAR_TYPE_EXPERTS_BEATEN,pbGet(VAR_TYPE_EXPERTS_BEATEN)+1)
+        pbCallBub(2, @event_id)
+        pbMessage("Woah! You beat me at my own specialty! ")
+        pbCallBub(2, @event_id)
+        pbMessage("It's a true testament to your mastery of Pokémon typings!")
+        pbCallBub(2, @event_id)
+        pbMessage("Well then, I'll keep my word. You can have this very special outfit!")
+        for clothes in TYPE_EXPERT_REWARDS[type_id]
+          obtainClothes(clothes)
+        end
+        pbCallBub(2, @event_id)
+        pbMessage("When you wear it, you can sometimes find #{type.real_name}-type related items after battles!")
+        show_nb_type_experts_defeated()
+        PokemonSelection.restore
+        $game_switches[Settings::OVERRIDE_BATTLE_LEVEL_SWITCH]=false
+        $game_switches[SWITCH_DONT_RANDOMIZE]=false
+        pbSet(VAR_CURRENT_GYM_TYPE, -1)
+        return true
+      end
+    else
+      pbCallBub(2, @event_id)
+      pbMessage("Remember, you're only allowed to use #{type.real_name}-type Pokémon!")
+    end
+  end
+  PokemonSelection.restore
+  $game_switches[Settings::OVERRIDE_BATTLE_LEVEL_SWITCH]=false
+  $game_switches[SWITCH_DONT_RANDOMIZE]=false
+  pbSet(VAR_CURRENT_GYM_TYPE, -1)
+  return false
+end
+
+def show_nb_type_experts_defeated()
+  pbMEPlay("Register phone")
+  pbCallBub(3)
+  Kernel.pbMessage("Type experts defeated: #{pbGet(VAR_TYPE_EXPERTS_BEATEN)}/#{TOTAL_NB_TYPE_EXPERTS}")
+end

Data/Scripts/998_InfiniteFusion/Outfits/UI/CharacterSelectMenu.rb

@@ -0,0 +1,181 @@
+class CharacterSelectionMenuView
+  attr_accessor :name_sprite
+  attr_accessor :viewport
+  attr_accessor :sprites
+  attr_accessor :textValues
+
+
+  OPTIONS_START_Y = 66
+  CURSOR_Y_MARGIN = 50
+  CURSOR_X_MARGIN = 76
+
+  CHECKMARK_Y_MARGIN = 20
+  CHECKMARK_WIDTH = 50
+
+  OPTIONS_LABEL_X = 50
+
+
+  OPTIONS_LABEL_WIDTH = 100
+
+  OPTIONS_VALUE_X = 194
+  SELECTOR_X = 120
+  SELECTOR_STAGGER_OFFSET=26
+
+
+  ARROW_LEFT_X_POSITION = 75
+  ARROW_RIGHT_X_POSITION = 275
+  ARROWS_Y_OFFSET = 10#20
+
+  CONFIRM_X = 296
+  CONFIRM_Y= 322
+
+  STAGGER_OFFSET_1 = 26
+  STAGGER_OFFSET_2 = 50
+
+
+
+  def initialize
+    @presenter = CharacterSelectMenuPresenter.new(self)
+    @viewport = Viewport.new(0, 0, Graphics.width, Graphics.height)
+    @sprites = {}
+    @textValues={}
+    @max_index=5
+  end
+
+  def init_graphics()
+    @sprites["bg"] = IconSprite.new(@viewport)
+    @sprites["bg"].setBitmap("Graphics/Pictures/trainer_application_form")
+
+
+    @sprites["select"] = IconSprite.new(@viewport)
+    @sprites["select"].setBitmap("Graphics/Pictures/cc_selection_box")
+    @sprites["select"].x = get_cursor_x_position(0)#OPTIONS_LABEL_X + OPTIONS_LABEL_WIDTH + CURSOR_X_MARGIN
+    @sprites["select"].y = OPTIONS_START_Y
+    @sprites["select"].visible = true
+
+    @sprites["leftarrow"] = AnimatedSprite.new(UI_FOLDER + "left_arrow", 8, 40, 28, 2, @viewport)
+    @sprites["leftarrow"].x = ARROW_LEFT_X_POSITION
+    @sprites["leftarrow"].y = 0
+    @sprites["leftarrow"].visible = false
+    @sprites["leftarrow"].play
+
+
+    @sprites["rightarrow"] = AnimatedSprite.new(UI_FOLDER + "right_arrow", 8, 40, 28, 2, @viewport)
+    @sprites["rightarrow"].x = ARROW_RIGHT_X_POSITION
+    @sprites["rightarrow"].y = 0
+    @sprites["rightarrow"].visible = false
+    @sprites["rightarrow"].play
+
+    @presenter.setInitialValues()
+  end
+
+  def setMaxIndex(maxIndex)
+    @max_index=maxIndex
+  end
+
+  def init_labels()
+    Kernel.pbDisplayText("Confirm", (CONFIRM_X+CURSOR_X_MARGIN), CONFIRM_Y)
+
+    #Labels are directly in the image
+
+    # current_Y = OPTIONS_START_Y
+    # for option in @presenter.options
+    #   x_pos = option == "Confirm" ? OPTIONS_VALUE_X : OPTIONS_LABEL_X
+    #
+    #   Kernel.pbDisplayText(option, x_pos, current_Y)
+    #   current_Y += CURSOR_Y_MARGIN
+    # end
+
+  end
+
+
+
+  def start
+    init_graphics()
+    init_labels()
+    @presenter.main()
+  end
+
+  def get_cursor_y_position(index)
+    return CONFIRM_Y if index == @max_index
+    return index * CURSOR_Y_MARGIN + OPTIONS_START_Y
+  end
+
+  def get_cursor_x_position(index)
+    return CONFIRM_X if index == @max_index
+    return SELECTOR_X + getTextBoxStaggerOffset(index)
+  end
+
+  def get_value_x_position(index)
+    return (OPTIONS_VALUE_X + getTextBoxStaggerOffset(index))
+  end
+
+  def getTextBoxStaggerOffset(index)
+    case index
+    when 1
+      return STAGGER_OFFSET_1
+    when 2
+      return STAGGER_OFFSET_2
+    when 3
+      return STAGGER_OFFSET_1
+    end
+    return 0
+  end
+
+
+
+
+  def showSideArrows(y_index)
+    y_position = get_cursor_y_position(y_index)
+
+    @sprites["rightarrow"].y=y_position+ARROWS_Y_OFFSET
+    @sprites["leftarrow"].y=y_position+ARROWS_Y_OFFSET
+
+    @sprites["leftarrow"].x=getTextBoxStaggerOffset(y_index)+ARROW_LEFT_X_POSITION
+    @sprites["rightarrow"].x= getTextBoxStaggerOffset(y_index)+ARROW_RIGHT_X_POSITION
+
+    @sprites["rightarrow"].visible=true
+    @sprites["leftarrow"].visible=true
+  end
+
+  def hideSideArrows()
+    @sprites["rightarrow"].visible=false
+    @sprites["leftarrow"].visible=false
+  end
+
+  def displayAge(age,y_index)
+    y_position = get_cursor_y_position(y_index)
+    x_position = get_value_x_position(y_index)
+    Kernel.pbClearNumber()
+    Kernel.pbDisplayNumber(age,x_position,y_position)
+  end
+
+  def displayText(spriteId,text,y_index)
+    @textValues[spriteId].dispose if @textValues[spriteId]
+    yposition = get_cursor_y_position(y_index)
+    xposition = get_value_x_position(y_index)
+
+    baseColor= baseColor ? baseColor : Color.new(72,72,72)
+    shadowColor= shadowColor ? shadowColor : Color.new(160,160,160)
+    @textValues[spriteId] = BitmapSprite.new(Graphics.width,Graphics.height,@viewport)
+    text1=_INTL(text)
+    textPosition=[
+      [text1,xposition,yposition,2,baseColor,shadowColor],
+    ]
+    pbSetSystemFont(@textValues[spriteId].bitmap)
+    pbDrawTextPositions(@textValues[spriteId].bitmap,textPosition)
+
+  end
+
+
+  def updateGraphics()
+    Graphics.update
+    Input.update
+    if @sprites
+      @sprites["rightarrow"].update
+      @sprites["leftarrow"].update
+    end
+  end
+
+
+end

Data/Scripts/998_InfiniteFusion/Outfits/UI/CharacterSelectMenuPresenter.rb

@@ -0,0 +1,275 @@
+class CharacterSelectMenuPresenter
+  attr_accessor :options
+  attr_reader :current_index
+
+  OPTION_NAME = 'Name'
+  OPTION_AGE = "Age"
+  OPTION_GENDER = "Gender"
+  OPTION_HAIR = "Hair"
+  OPTION_SKIN = "Skin"
+  OPTION_CONFIRM = "Confirm"
+
+  MIN_AGE = 10
+  MAX_AGE = 17
+  DEFAULT_NAMES = ["Green", "Red"]
+
+  MIN_SKIN_COLOR = 1
+  MAX_SKIN_COLOR = 6
+  SKIN_COLOR_IDS = ["Type A", "Type B", "Type C", "Type D", "Type E", "Type F"]
+  GENDERS_IDS = ["Female", "Male"]
+
+  HAIR_COLOR_IDS = [1, 2, 3, 4]
+  HAIR_COLOR_NAMES = ["Blonde", "Light Brown", "Dark Brown", "Black"]
+
+  #ids for displayed text sprites
+  NAME_TEXT_ID = "name"
+  HAIR_TEXT_ID = "hair"
+  SKIN_TEXT_ID = "skin"
+
+  def initialize(view)
+    @view = view
+
+    @gender = 1
+    @age = MIN_AGE
+    @name = ""
+    @skinTone = 5
+    @hairstyle = "red"
+    @hairColor = 2
+
+    @options = [OPTION_NAME, OPTION_GENDER, OPTION_AGE, OPTION_SKIN, OPTION_HAIR, OPTION_CONFIRM]
+
+    @trainerPreview = TrainerClothesPreview.new(300, 80, false, "POKEBALL")
+    @trainerPreview.show()
+    @closed = false
+    @current_index = 0
+    @view.setMaxIndex(@options.length - 1)
+  end
+
+  def main()
+    pbSEPlay("GUI naming tab swap start", 80, 100)
+    @current_index = 0
+    loop do
+      @view.updateGraphics()
+      if Input.trigger?(Input::DOWN)
+        @current_index = move_menu_vertical(1)
+      elsif Input.trigger?(Input::UP)
+        @current_index = move_menu_vertical(-1)
+      elsif Input.trigger?(Input::RIGHT)
+        move_menu_horizontal(@current_index, 1)
+      elsif Input.trigger?(Input::LEFT)
+        move_menu_horizontal(@current_index, -1)
+      elsif Input.trigger?(Input::ACTION) || Input.trigger?(Input::USE)
+        action_button_pressed(@current_index)
+      end
+      break if @closed
+    end
+  end
+
+  def updateTrainerPreview
+    @trainerPreview.resetOutfits
+    @trainerPreview.updatePreview
+  end
+
+  def action_button_pressed(current_index)
+    selected_option = @options[current_index]
+    case selected_option
+    when OPTION_NAME
+      pbSEPlay("GUI summary change page", 80, 100)
+      @name = pbEnterPlayerName(_INTL("Enter your name"), 0, Settings::MAX_PLAYER_NAME_SIZE)
+      @name = getDefaultName() if @name == ''
+      pbSEPlay("GUI trainer card open", 80, 100)
+      updateDisplayedName(current_index)
+      applyHair() #for easter egg lol
+    when OPTION_CONFIRM
+      pbSEPlay("GUI save choice", 80, 100)
+      @current_index = @options.length - 1
+      update_cursor(@current_index)
+      @name = getDefaultName if @name == ""
+      updateDisplayedName(getOptionIndex(OPTION_NAME))
+      cmd = pbMessage("Is this information correct?", [_INTL("Yes"), _INTL("No")])
+      if cmd == 0
+        pbSEPlay("GUI naming confirm", 80, 100)
+        #pbMessage("You will be able to customize your appearance further while playing")
+        applyAllSelectedValues()
+        close_menu()
+      end
+    else
+      pbSEPlay("GUI save choice", 80, 100)
+      @current_index = @options.length - 1
+      update_cursor(@current_index)
+      @name = getDefaultName if @name == ""
+      updateDisplayedName(getOptionIndex(OPTION_NAME))
+    end
+  end
+
+  def getDefaultName()
+    return DEFAULT_NAMES[@gender]
+  end
+
+  def updateDisplayedName(current_index)
+    @view.displayText(NAME_TEXT_ID, @name, current_index)
+  end
+
+  def applyAllSelectedValues
+    applyGender(@gender)
+    echoln @age
+    pbSet(VAR_TRAINER_AGE, @age)
+    $player.skin_tone = @skinTone
+    $player.name = @name
+  end
+
+  def getOptionIndex(option_name)
+    i = 0
+    for option in @options
+      return i if option == option_name
+      i += 1
+    end
+    return -1
+  end
+
+  #VERTICAL NAVIGATION
+
+  def move_menu_vertical(offset)
+    pbSEPlay("GUI sel decision", 80, 100)
+    @current_index += offset
+    @current_index = 0 if @current_index > @options.length - 1
+    @current_index = @options.length - 1 if @current_index <= -1
+
+    update_cursor(@current_index)
+    return @current_index
+  end
+
+  def update_cursor(index)
+    @view.sprites["select"].y = @view.get_cursor_y_position(index)
+    @view.sprites["select"].x = @view.get_cursor_x_position(index)
+
+    set_custom_cursor(index)
+  end
+
+  def close_menu
+    @trainerPreview.erase()
+    Kernel.pbClearNumber()
+    Kernel.pbClearText()
+    pbDisposeSpriteHash(@view.sprites)
+    pbDisposeSpriteHash(@view.textValues)
+    @closed = true
+  end
+
+  def set_custom_cursor(index)
+    selected_option = @options[index]
+    case selected_option
+    when OPTION_GENDER
+      @view.showSideArrows(index)
+    when OPTION_AGE
+      @view.showSideArrows(index)
+    when OPTION_HAIR
+      @view.showSideArrows(index)
+    when OPTION_SKIN
+      @view.showSideArrows(index)
+    else
+      @view.hideSideArrows
+    end
+  end
+
+  #HORIZONTAL NAVIGATION
+  def move_menu_horizontal(current_index, incr)
+    pbSEPlay("GUI sel cursor", 80, 100)
+    selected_option = @options[current_index]
+    case selected_option
+    when OPTION_GENDER then
+      setGender(current_index, incr)
+    when OPTION_HAIR then
+      setHairColor(current_index, incr)
+    when OPTION_SKIN then
+      setSkinColor(current_index, incr)
+    when OPTION_AGE then
+      setAge(current_index, incr)
+    end
+    updateTrainerPreview()
+  end
+
+  def setGender(current_index, incr)
+    @gender += incr
+    @gender = 0 if @gender >= 2
+    @gender = 1 if @gender <= -1
+    applyGender(@gender)
+    label = GENDERS_IDS[@gender]
+    @view.displayText(GENDERS_IDS, label, current_index)
+  end
+
+  def setSkinColor(current_index, incr)
+    @skinTone += incr
+    @skinTone = MIN_SKIN_COLOR if @skinTone > MAX_SKIN_COLOR
+    @skinTone = MAX_SKIN_COLOR if @skinTone < MIN_SKIN_COLOR
+    $player.skin_tone = @skinTone
+    label = SKIN_COLOR_IDS[@skinTone - 1]
+    @view.displayText(SKIN_TEXT_ID, label, current_index)
+  end
+
+  def setHairColor(current_index, incr)
+    max_id = HAIR_COLOR_IDS.length - 1
+    @hairColor += incr
+    @hairColor = 0 if @hairColor > max_id
+    @hairColor = max_id if @hairColor <= -1
+    applyHair()
+    @view.displayText(HAIR_TEXT_ID, HAIR_COLOR_NAMES[@hairColor], current_index)
+  end
+
+  def applyHair()
+    applyHairEasterEggs()
+    hairColorId = HAIR_COLOR_IDS[@hairColor]
+    hairId = hairColorId.to_s + "_" + @hairstyle.to_s
+    $player.hair = hairId
+  end
+
+  def applyHairEasterEggs()
+    @hairstyle = HAIR_RIVAL if @name == "Gary" && @gender == 1
+    @hairstyle = HAIR_BROCK if @name == "Brock" && @gender == 1
+    @hairstyle = HAIR_MISTY1 if @name == "Misty" && @gender == 0
+
+  end
+
+  def applyGender(gender_index)
+    # outfitId = gender + 1
+    pbSet(VAR_TRAINER_GENDER, gender_index)
+
+    outfitId = get_outfit_id_from_index(gender_index)
+    @hairstyle = outfitId
+    applyHair()
+    #$player.hair = outfitId
+    $player.clothes = outfitId
+    $player.hat = outfitId
+  end
+
+  def get_outfit_id_from_index(gender_index)
+    if gender_index == 1 #Male
+      return "red"
+    else
+      #Female
+      return "leaf"
+    end
+  end
+
+  #AGE
+  def setAge(y_index, incr)
+    @age += incr
+    @age = MIN_AGE if @age > MAX_AGE
+    @age = MAX_AGE if @age < MIN_AGE
+
+    @view.displayAge(@age, y_index)
+  end
+
+  def setInitialValues()
+    genderIndex = getOptionIndex(OPTION_GENDER)
+    hairIndex = getOptionIndex(OPTION_HAIR)
+    skinIndex = getOptionIndex(OPTION_SKIN)
+    ageIndex = getOptionIndex(OPTION_AGE)
+
+    setGender(genderIndex, 0)
+    setAge(ageIndex, 0)
+    setHairColor(hairIndex, 0)
+    setSkinColor(skinIndex, 0)
+    updateTrainerPreview()
+  end
+
+end

Data/Scripts/998_InfiniteFusion/Outfits/UI/LayeredClothes_Menus.rb

@@ -0,0 +1,265 @@
+def playOutfitRemovedAnimation()
+  pbSEPlay("shiny", 80, 60)
+  $scene.spriteset.addUserAnimation(Settings::OW_SHINE_ANIMATION_ID, $game_player.x, $game_player.y, true)
+end
+
+def playOutfitChangeAnimation()
+  pbSEPlay("shiny", 80, 100)
+  $scene.spriteset.addUserAnimation(Settings::OW_SHINE_ANIMATION_ID, $game_player.x, $game_player.y, true)
+end
+
+def selectHairstyle(all_unlocked = false)
+  selector = OutfitSelector.new
+  display_outfit_preview()
+  hat = $player.hat
+  commands = ["Next style", "Previous style", "Toggle hat", "Back"]
+  previous_input = 0
+  # To enable turning the common event that lets you turn around while in the dialog box
+  while (true)
+    choice = pbShowCommands(nil, commands, commands.length, previous_input)
+    previous_input = choice
+    case choice
+    when 0 #NEXT
+      playOutfitChangeAnimation()
+      selector.changeToNextHairstyle(1, all_unlocked)
+      display_outfit_preview()
+    when 1 #PREVIOUS
+      playOutfitChangeAnimation()
+      selector.changeToNextHairstyle(-1, all_unlocked)
+      display_outfit_preview()
+    when 2 #Toggle hat
+      pbSEPlay("GUI storage put down", 80, 100)
+      if hat == $player.hat
+        $player.hat = nil
+      else
+        $player.hat = hat
+      end
+      display_outfit_preview()
+    else
+      break
+    end
+  end
+  hide_outfit_preview()
+  $player.hat = hat
+end
+
+def swapToNextHairVersion()
+  split_hair = getSplitHairFilenameAndVersionFromID($player.hair)
+  hair_version = split_hair[0]
+  hair_style = split_hair[1]
+  current_version = hair_version
+  pbSEPlay("GUI party switch", 80, 100)
+  newVersion = current_version.to_i + 1
+  lastVersion = findLastHairVersion(hair_style)
+  newVersion = lastVersion if newVersion <= 0
+  newVersion = 1 if newVersion > lastVersion
+  $player.hair = getFullHairId(hair_style,newVersion)
+end
+
+def selectHairColor
+  original_color = $player.hair_color
+  original_hair = $player.hair
+  $game_switches[SWITCH_SELECTING_CLOTHES]=true
+  $game_map.update
+  display_outfit_preview()
+  hat = $player.hat
+  commands = ["Swap base color", "Shift up", "Shift down", "Toggle hat", "Remove dye", "Confirm", "Never Mind"]
+  previous_input = 0
+
+  while (true)
+    choice = pbShowCommands(nil, commands, commands.length, previous_input)
+    previous_input = choice
+    case choice
+    when 0 #change base
+      swapToNextHairVersion()
+      display_outfit_preview()
+      ret = false
+    when 1 #NEXT
+      #playOutfitChangeAnimation()
+      pbSEPlay("GUI storage pick up", 80, 100)
+      shiftHairColor(10)
+      display_outfit_preview()
+      ret = true
+    when 2 #PREVIOUS
+      pbSEPlay("GUI storage pick up", 80, 100)
+      shiftHairColor(-10)
+      display_outfit_preview()
+      ret = true
+    when 3 #Toggle hat
+      pbSEPlay("GUI storage put down", 80, 100)
+      if hat == $player.hat
+        $player.hat = nil
+      else
+        $player.hat = hat
+      end
+      display_outfit_preview()
+    when 4 #Reset
+      pbSEPlay("GUI storage put down", 80, 100)
+      $player.hair_color = 0
+      display_outfit_preview()
+      ret = false
+    when 5 #Confirm
+      break
+    else
+      $player.hair_color = original_color
+      $player.hair = original_hair
+      ret = false
+      break
+    end
+  end
+  hide_outfit_preview()
+  $player.hat = hat
+  $game_switches[SWITCH_SELECTING_CLOTHES]=false
+  $game_map.update
+  return ret
+
+end
+
+def selectHatColor(secondary_hat=false)
+  original_color = secondary_hat ? $player.hat2_color : $player.hat_color
+  display_outfit_preview()
+  commands = ["Shift up", "Shift down", "Reset", "Confirm", "Never Mind"]
+  previous_input = 0
+  while (true)
+    choice = pbShowCommands(nil, commands, commands.length, previous_input)
+    previous_input = choice
+    case choice
+    when 0 #NEXT
+      pbSEPlay("GUI storage pick up", 80, 100)
+      shiftHatColor(10,secondary_hat)
+      display_outfit_preview
+      ret = true
+    when 1 #PREVIOUS
+      pbSEPlay("GUI storage pick up", 80, 100)
+      shiftHatColor(-10,secondary_hat)
+      display_outfit_preview
+      ret = true
+    when 2 #Reset
+      pbSEPlay("GUI storage put down", 80, 100)
+      $player.hat_color = 0 if !secondary_hat
+      $player.hat2_color = 0 if secondary_hat
+      display_outfit_preview
+      refreshPlayerOutfit
+      ret = false
+    when 3 #Confirm
+      break
+    else
+      $player.hat_color = original_color if !secondary_hat
+      $player.hat2_color = original_color if secondary_hat
+      ret = false
+      break
+    end
+  end
+  refreshPlayerOutfit()
+  hide_outfit_preview()
+  return ret
+end
+
+def selectClothesColor
+  original_color = $player.clothes_color
+  display_outfit_preview()
+  commands = ["Shift up", "Shift down", "Reset", "Confirm", "Never Mind"]
+  previous_input = 0
+  ret = false
+  while (true)
+    choice = pbShowCommands(nil, commands, commands.length, previous_input)
+    previous_input = choice
+    case choice
+    when 0 #NEXT
+      pbSEPlay("GUI storage pick up", 80, 100)
+      shiftClothesColor(10)
+      display_outfit_preview()
+      ret = true
+    when 1 #PREVIOUS
+      pbSEPlay("GUI storage pick up", 80, 100)
+      shiftClothesColor(-10)
+      display_outfit_preview()
+      ret = true
+    when 2 #Reset
+      pbSEPlay("GUI storage pick up", 80, 100)
+      $player.clothes_color = 0
+      display_outfit_preview()
+      refreshPlayerOutfit()
+      ret = false
+    when 3 #Confirm
+      break
+    else
+      $player.clothes_color = original_color
+      ret = false
+      break
+    end
+  end
+  refreshPlayerOutfit()
+  hide_outfit_preview()
+  return ret
+end
+
+def selectHat(all_unlocked = false)
+  selector = OutfitSelector.new
+  display_outfit_preview()
+  commands = ["Next hat", "Previous hat", "Remove hat", "Back"]
+  previous_input = 0
+  while (true)
+    choice = pbShowCommands(nil, commands, commands.length, previous_input)
+    previous_input = choice
+    case choice
+    when 0 #NEXT
+      playOutfitChangeAnimation()
+      selector.changeToNextHat(1, all_unlocked)
+      display_outfit_preview()
+    when 1 #PREVIOUS
+      playOutfitChangeAnimation()
+      selector.changeToNextHat(-1, all_unlocked)
+      display_outfit_preview()
+    when 2 #REMOVE HAT
+      playOutfitRemovedAnimation()
+      $player.hat = nil
+      selector.display_outfit_preview()
+    else
+      break
+    end
+  end
+  hide_outfit_preview()
+end
+
+def spinCharacter
+  pbSEPlay("GUI party switch", 80, 100)
+
+end
+
+def selectClothes(all_unlocked = false)
+  selector = OutfitSelector.new
+  display_outfit_preview()
+  commands = ["Next", "Previous"]
+  #commands << "Remove clothes (DEBUG)" if $DEBUG
+  commands << "Remove" if $DEBUG
+  commands << "Back"
+  previous_input = 0
+  while (true)
+    choice = pbShowCommands(nil, commands, commands.length, previous_input)
+    previous_input = choice
+    case choice
+    when 0 #NEXT
+      playOutfitChangeAnimation()
+      selector.changeToNextClothes(1, all_unlocked)
+      display_outfit_preview()
+    when 1 #PREVIOUS
+      playOutfitChangeAnimation()
+      selector.changeToNextClothes(-1, all_unlocked)
+      display_outfit_preview()
+    when 2 #REMOVE CLOTHES
+      break if !$DEBUG
+      playOutfitRemovedAnimation()
+      $player.clothes = nil
+      display_outfit_preview()
+    else
+      break
+    end
+  end
+  hide_outfit_preview()
+end
+
+def place_hat_on_pokemon(pokemon)
+  hatscreen = PokemonHatPresenter.new(nil, pokemon)
+  hatscreen.pbStartScreen()
+end

Data/Scripts/998_InfiniteFusion/Outfits/UI/PokemonHatScreenPresenter.rb

@@ -0,0 +1,103 @@
+class PokemonHatPresenter
+  PIXELS_PER_MOVEMENT = 4
+
+  def initialize(view, pokemon)
+    @view = view
+    @pokemon = pokemon
+    @hatFilename = "Graphics/Characters/player/hat/trainer/hat_trainer_1"
+    @sprites = {}
+
+    @x_pos = pokemon.hat_x ? pokemon.hat_x : 0
+    @y_pos = pokemon.hat_y ? pokemon.hat_y : 0
+    @hat_id = pokemon.hat ? pokemon.hat : 1
+    @viewport = nil
+    @previewwindow = nil
+
+    @original_pokemon_bitmap = nil
+  end
+
+  def pbStartScreen
+    @view.init_window(self)
+    cancel if !select_hat()
+    if position_hat()
+      updatePokemonHatPosition()
+    else
+      cancel
+    end
+    @view.hide_move_arrows
+    @view.hide_select_arrows
+    @view.dispose_window()
+  end
+
+  def updatePokemonHatPosition()
+    @pokemon.hat = @hat_id
+    @pokemon.hat_x = @x_pos
+    @pokemon.hat_y = @y_pos
+  end
+
+  def cancel
+    @pokemon.hat = nil
+  end
+
+  def select_hat
+    selector = OutfitSelector.new
+    @view.display_select_arrows
+    outfit_type_path = get_hats_sets_list_path()
+    @pokemon.hat = 0 if !@pokemon.hat
+    loop do
+      Graphics.update
+      Input.update
+      @hat_id = selector.selectNextOutfit(@hat_id, 1, selector.hats_list, [], false, "hat",$player.unlocked_hats,false) if Input.trigger?(Input::RIGHT)
+      @hat_id = selector.selectNextOutfit(@hat_id, -1, selector.hats_list, [], false, "hat",$player.unlocked_hats,false) if Input.trigger?(Input::LEFT)
+      break if Input.trigger?(Input::USE)
+      return false if Input.trigger?(Input::BACK)
+      @view.update()
+    end
+    @pokemon.hat = @hat_id
+    @view.hide_select_arrows
+
+  end
+
+  def position_hat
+    @view.display_move_arrows
+    min_x, max_x = -64, 88
+    min_y, max_y = -20, 140
+    loop do
+      Graphics.update
+      Input.update
+      @x_pos += PIXELS_PER_MOVEMENT if Input.repeat?(Input::RIGHT) && @x_pos < max_x
+      @x_pos -= PIXELS_PER_MOVEMENT if Input.repeat?(Input::LEFT) && @x_pos > min_x
+      @y_pos += PIXELS_PER_MOVEMENT if Input.repeat?(Input::DOWN) && @y_pos < max_y
+      @y_pos -= PIXELS_PER_MOVEMENT if Input.repeat?(Input::UP) && @y_pos > min_y
+      break if Input.trigger?(Input::USE)
+      return false if Input.trigger?(Input::BACK)
+      @view.update()
+    end
+    @view.hide_move_arrows
+    return true
+  end
+
+  def initialize_bitmap()
+    spriteLoader = BattleSpriteLoader.new
+
+    if @pokemon.isTripleFusion?
+      #todo
+    elsif @pokemon.isFusion?
+      @original_pokemon_bitmap = spriteLoader.load_fusion_sprite(@pokemon.head_id(),@pokemon.body_id())
+    else
+      echoln @pokemon
+      echoln @pokemon.species_data
+      @original_pokemon_bitmap = spriteLoader.load_base_sprite(@pokemon.id_number)
+    end
+    @original_pokemon_bitmap.scale_bitmap(Settings::FRONTSPRITE_SCALE)
+  end
+
+  def getPokemonHatBitmap()
+    @hatFilename = getTrainerSpriteHatFilename(@hat_id)
+    hatBitmapWrapper = AnimatedBitmap.new(@hatFilename, 0) if pbResolveBitmap(@hatFilename)
+    pokemon_bitmap = @original_pokemon_bitmap.bitmap.clone
+    pokemon_bitmap.blt(@x_pos, @y_pos, hatBitmapWrapper.bitmap, hatBitmapWrapper.bitmap.rect) if hatBitmapWrapper
+    return pokemon_bitmap
+  end
+
+end

Data/Scripts/998_InfiniteFusion/Outfits/UI/PokemonHatScreenView.rb

@@ -0,0 +1,139 @@
+class PokemonHatView
+  WINDOW_POS_X = Graphics.width / 4
+  WINDOW_POS_Y = Graphics.height / 8
+
+  attr_accessor :x_pos
+  attr_accessor :y_pos
+
+  def initialize(x_pos = nil, y_pos = nil, windowed = true)
+    @x_pos = x_pos ? x_pos : WINDOW_POS_X
+    @y_pos = y_pos ? y_pos : WINDOW_POS_Y
+    @windowed = windowed
+
+  end
+
+  def init_window(presenter)
+    @presenter = presenter
+
+
+    presenter.initialize_bitmap()
+    pokemon_bitmap = presenter.getPokemonHatBitmap()
+
+    @previewwindow = PictureWindow.new(pokemon_bitmap)
+    @previewwindow.opacity = 0 if !@windowed
+    update_window_position()
+    @previewwindow.z = 9999999
+
+    @viewport = Viewport.new(@previewwindow.x, @previewwindow.y, @previewwindow.width, @previewwindow.height)
+    @viewport.z = 9999999
+    @sprites = {}
+
+    initialize_arrows()
+
+  end
+
+  def getWindowWidth()
+    return @previewwindow.width/2
+  end
+
+  def initialize_arrows()
+    middle_horizontal = 100
+    width_horizontal = 90
+
+    middle_vertical = 100
+    width_vertical = 90
+
+    @sprites["uparrow"] = AnimatedSprite.new("Graphics/Pictures/uparrow", 8, 28, 40, 2, @viewport)
+    @sprites["uparrow"].x = middle_horizontal
+    @sprites["uparrow"].y = middle_vertical - width_vertical
+    @sprites["uparrow"].z = 100
+    @sprites["uparrow"].visible=true
+
+
+    @sprites["downarrow"] = AnimatedSprite.new("Graphics/Pictures/downarrow", 8, 28, 40, 2, @viewport)
+    @sprites["downarrow"].x = middle_horizontal
+    @sprites["downarrow"].y = middle_vertical + width_vertical
+
+    @sprites["leftarrow"] = AnimatedSprite.new("Graphics/Pictures/leftarrow", 8, 40, 28, 2, @viewport)
+    @sprites["leftarrow"].x = middle_horizontal - width_horizontal -10
+    @sprites["leftarrow"].y = middle_vertical
+
+
+    @sprites["rightarrow"] = AnimatedSprite.new("Graphics/Pictures/rightarrow", 8, 40, 28, 2, @viewport)
+    @sprites["rightarrow"].x = middle_horizontal + width_horizontal
+    @sprites["rightarrow"].y = middle_vertical
+
+    @sprites["uparrow"].visible=false
+    @sprites["downarrow"].visible=false
+    @sprites["leftarrow"].visible=false
+    @sprites["rightarrow"].visible=false
+
+  end
+
+  def update_window_position()
+    @previewwindow.x = @x_pos
+    @previewwindow.y = @y_pos
+  end
+
+  #TODO
+  def display_select_arrows
+    hide_move_arrows
+    @sprites["rightarrow"].visible=true
+    @sprites["leftarrow"].visible=true
+
+    @sprites["rightarrow"].play
+    @sprites["leftarrow"].play
+  end
+
+  def hide_select_arrows
+    @sprites["rightarrow"].visible=false
+    @sprites["leftarrow"].visible=false
+    @sprites["rightarrow"].stop
+    @sprites["leftarrow"].stop
+    @sprites["rightarrow"].reset
+    @sprites["leftarrow"].reset
+  end
+
+  def display_move_arrows
+    hide_move_arrows
+    @sprites["rightarrow"].visible=true
+    @sprites["leftarrow"].visible=true
+    @sprites["uparrow"].visible=true
+    @sprites["downarrow"].visible=true
+
+    @sprites["rightarrow"].play
+    @sprites["leftarrow"].play
+    @sprites["uparrow"].play
+    @sprites["downarrow"].play
+  end
+
+  def hide_move_arrows
+    @sprites["rightarrow"].visible=false
+    @sprites["leftarrow"].visible=false
+    @sprites["uparrow"].visible=false
+    @sprites["downarrow"].visible=false
+
+    @sprites["rightarrow"].stop
+    @sprites["leftarrow"].stop
+    @sprites["uparrow"].stop
+    @sprites["downarrow"].stop
+  end
+
+  def dispose_window
+    @previewwindow.dispose
+    @viewport.dispose
+    pbDisposeSpriteHash(@sprites)
+    @sprites = nil
+  end
+
+  def update
+    @sprites["rightarrow"].update
+    @sprites["leftarrow"].update
+    @sprites["uparrow"].update
+    @sprites["downarrow"].update
+
+    @previewwindow.clearBitmaps
+    @previewwindow.setBitmap(@presenter.getPokemonHatBitmap())
+    @previewwindow.update
+  end
+end

Data/Scripts/998_InfiniteFusion/Outfits/UI/TrainerClothesPreview.rb

@@ -0,0 +1,72 @@
+class TrainerClothesPreview
+  attr_writer :pokeball, :clothes, :hat, :hat2, :hair, :skin_tone, :hair_color, :hat_color,:hat2_color, :clothes_color
+
+  def initialize(x = 0, y = 0, windowed = true, pokeball = nil)
+    @playerBitmap = nil
+    @playerSprite = nil
+    @x_pos = x
+    @y_pos = y
+    @windowed = windowed
+
+    @pokeball = pokeball
+    resetOutfits()
+  end
+
+  def set_hat(value,is_secondaryHat=false)
+    if is_secondaryHat
+      @hat2 = value
+    else
+      @hat = value
+    end
+  end
+
+  def set_hat_color(value,is_secondaryHat=false)
+    if is_secondaryHat
+      @hat2_color = value
+    else
+      @hat_color = value
+    end
+  end
+
+  def resetOutfits()
+    @clothes = $player.clothes
+    @hat = $player.hat
+    @hat2 = $player.hat2
+    @hair = $player.hair
+    @skin_tone = $player.skin_tone
+    @hair_color = $player.hair_color
+    @hat_color = $player.hat_color
+    @hat2_color = $player.hat2_color
+    @clothes_color = $player.clothes_color
+  end
+
+  def show()
+    @playerBitmap = generate_front_trainer_sprite_bitmap(false,
+                                                         @pokeball,
+                                                         @clothes,
+                                                         @hat,@hat2, @hair,
+                                                         @skin_tone,
+                                                         @hair_color, @hat_color, @clothes_color, @hat2_color)
+    initialize_preview()
+  end
+
+  def updatePreview()
+    erase()
+    show()
+  end
+
+  def initialize_preview()
+    @playerSprite = PictureWindow.new(@playerBitmap)
+    @playerSprite.opacity = 0 if !@windowed
+
+    @playerSprite.x = @x_pos
+    @playerSprite.y = @y_pos
+    @playerSprite.z = 9999
+    @playerSprite.update
+  end
+
+  def erase()
+    @playerSprite.dispose if @playerSprite
+  end
+
+end

Data/Scripts/998_InfiniteFusion/Outfits/UI/clothesShop/0_OutfitsMartAdapter.rb

@@ -0,0 +1,159 @@
+class OutfitsMartAdapter < PokemonMartAdapter
+  attr_accessor :worn_clothes
+  attr_accessor :is_secondary_hat
+  attr_accessor :items
+
+  WORN_ITEM_BASE_COLOR = MessageConfig::BLUE_TEXT_MAIN_COLOR
+  WORN_ITEM_SHADOW_COLOR = MessageConfig::BLUE_TEXT_SHADOW_COLOR
+
+
+  REGIONAL_SET_BASE_COLOR =   Color.new(76,72,104)
+  REGIONAL_SET_SHADOW_COLOR =   Color.new(173,165,189)
+
+  CITY_EXCLUSIVE_BASE_COLOR =   Color.new(61 , 125, 70) #Color.new(72 , 104, 83)
+  CITY_EXCLUSIVE_SHADOW_COLOR =   Color.new(165, 189, 178)
+
+  def initialize(stock = [], isShop = true, isSecondaryHat = false)
+    @is_secondary_hat = isSecondaryHat
+    @items = stock
+    @worn_clothes = get_current_clothes()
+    @isShop = isShop
+    @version = nil
+    $player.dyed_hats = {} if !$player.dyed_hats
+    $player.dyed_clothes = {} if !$player.dyed_clothes
+
+    #todo: refactor to get the list from the first search when
+    # setting the stock instead of searching twice
+    @regional_set_items = @isShop ? list_regional_set_items : []
+    @city_exclusive_items = @isShop ? list_city_exclusive_items : []
+  end
+
+  def list_regional_set_items()
+    return []
+  end
+
+  def list_city_exclusive_items()
+    return []
+  end
+
+  def getDisplayName(item)
+    return getName(item) if !item.name
+    name = item.name
+    name = "* #{name}" if is_wearing_clothes(item.id)
+    return name
+  end
+
+  def is_wearing_clothes(outfit_id)
+    return outfit_id == @worn_clothes
+  end
+
+  def player_changed_clothes?()
+    return false
+    #implement in inheriting classes
+  end
+
+  def toggleText()
+    return ""
+  end
+
+  def switchVersion(item,delta=1)
+    return
+  end
+
+  def toggleEvent(item)
+    return
+  end
+
+  def isWornItem?(item)
+    return false
+  end
+
+  def isShop?()
+    return @isShop
+  end
+
+  def getPrice(item, selling = nil)
+    return 0 if !@isShop
+    return nil if itemOwned(item)
+    return item.price.to_i
+  end
+
+  def getDisplayPrice(item, selling = nil)
+    return "" if !@isShop
+    return "-" if itemOwned(item)
+    super
+  end
+
+  def updateStock()
+    updated_items = []
+    for item in @items
+      updated_items << item if !get_unlocked_items_list().include?(item.id)
+    end
+    @items = updated_items
+  end
+
+  def removeItem(item)
+    super
+  end
+
+  def itemOwned(item)
+    owned_list = get_unlocked_items_list()
+    return owned_list.include?(item.id)
+  end
+
+  def canSell?(item)
+    super
+  end
+
+  def isItemInRegionalSet(item)
+    return @regional_set_items.include?(item.id)
+  end
+
+  def isItemCityExclusive(item)
+    return @city_exclusive_items.include?(item.id)
+  end
+
+  def getBaseColorOverride(item)
+      return REGIONAL_SET_BASE_COLOR if isItemInRegionalSet(item)
+      return CITY_EXCLUSIVE_BASE_COLOR  if isItemCityExclusive(item)
+      return nil
+  end
+
+  def getShadowColorOverride(item)
+    return REGIONAL_SET_SHADOW_COLOR if isItemInRegionalSet(item)
+    return CITY_EXCLUSIVE_SHADOW_COLOR  if isItemCityExclusive(item)
+    return nil
+  end
+
+  def getMoney
+    super
+  end
+
+  def getMoneyString
+    super
+  end
+
+  def setMoney(value)
+    super
+  end
+
+  def getItemIconRect(_item)
+    super
+  end
+
+  def getQuantity(item)
+    super
+  end
+
+  def showQuantity?(item)
+    super
+  end
+
+  def updateVersion(item)
+    @version = 1 if !currentVersionExists?(item)
+  end
+
+  def currentVersionExists?(item)
+    return true
+  end
+end

Data/Scripts/998_InfiniteFusion/Outfits/UI/clothesShop/ClothesMartAdapter.rb

@@ -0,0 +1,116 @@
+class ClothesMartAdapter < OutfitsMartAdapter
+
+  DEFAULT_NAME = "[unknown]"
+  DEFAULT_DESCRIPTION = "A piece of clothing that trainers can wear."
+  def toggleEvent(item)
+    if !isShop? && $player.clothes_color != 0
+      if pbConfirmMessage(_INTL("Would you like to remove the dye?"))
+        $player.clothes_color = 0
+      end
+    end
+  end
+
+  def list_regional_set_items()
+    return list_regional_clothes
+  end
+
+  def list_city_exclusive_items
+    return list_city_exclusive_clothes
+  end
+
+  def initialize(stock = nil, isShop = nil)
+    super
+  end
+
+  def getName(item)
+    name= item.id
+    name = "* #{name}" if is_wearing_clothes(item.id)
+    return name
+  end
+
+  def getDescription(item)
+    return DEFAULT_DESCRIPTION if !item.description
+    return item.description
+  end
+
+  def getItemIcon(item)
+    return Settings::BACK_ITEM_ICON_PATH if !item
+    return getOverworldOutfitFilename(item.id)
+  end
+
+  def updateTrainerPreview(item, previewWindow)
+    return if !item
+    previewWindow.clothes = item.id
+    $player.clothes = item.id
+    set_dye_color(item,previewWindow)
+
+    pbRefreshSceneMap
+    previewWindow.updatePreview()
+  end
+
+  def get_dye_color(item_id)
+    return 0 if isShop?
+    $player.dyed_clothes= {} if ! $player.dyed_clothes
+    if $player.dyed_clothes.include?(item_id)
+      return $player.dyed_clothes[item_id]
+    end
+    return 0
+  end
+
+  def set_dye_color(item,previewWindow)
+    if !isShop?
+      $player.dyed_clothes= {} if ! $player.dyed_clothes
+      if $player.dyed_clothes.include?(item.id)
+        dye_color = $player.dyed_clothes[item.id]
+        $player.clothes_color = dye_color
+        previewWindow.clothes_color = dye_color
+      else
+        $player.clothes_color=0
+        previewWindow.clothes_color=0
+      end
+    else
+      $player.clothes_color=0
+      previewWindow.clothes_color=0
+    end
+  end
+
+  def addItem(item)
+    changed_clothes = obtainClothes(item.id)
+    if changed_clothes
+      @worn_clothes = item.id
+    end
+  end
+
+  def get_current_clothes()
+    return $player.clothes
+  end
+
+  def player_changed_clothes?()
+    $player.clothes != @worn_clothes
+  end
+
+  def putOnSelectedOutfit()
+    putOnClothes($player.clothes)
+    @worn_clothes = $player.clothes
+  end
+
+  def putOnOutfit(item)
+    putOnClothes(item.id) if item
+    @worn_clothes = item.id if item
+  end
+
+  def reset_player_clothes()
+    $player.clothes = @worn_clothes
+    $player.clothes_color = $player.dyed_clothes[@worn_clothes] if  $player.dyed_clothes && $player.dyed_clothes[@worn_clothes]
+  end
+
+  def get_unlocked_items_list()
+    return $player.unlocked_clothes
+  end
+
+  def isWornItem?(item)
+    super
+  end
+
+
+end

Data/Scripts/998_InfiniteFusion/Outfits/UI/clothesShop/ClothesShop.rb

@@ -0,0 +1,146 @@
+def genericOutfitsShopMenu(stock = [], itemType = nil, versions = false, isShop=true, message=nil)
+  commands = []
+  commands[cmdBuy = commands.length] = _INTL("Buy")
+  commands[cmdQuit = commands.length] = _INTL("Quit")
+  message = _INTL("Welcome! How may I serve you?") if !message
+  cmd = pbMessage(message, commands, cmdQuit + 1)
+  loop do
+    if cmdBuy >= 0 && cmd == cmdBuy
+      adapter = getAdapter(itemType, stock, isShop)
+      view = ClothesShopView.new()
+      presenter = getPresenter(itemType, view, stock, adapter, versions)
+      presenter.pbBuyScreen
+      break
+    else
+      pbMessage(_INTL("Please come again!"))
+      break
+    end
+  end
+end
+
+
+
+def getPresenter(itemType, view, stock, adapter, versions)
+  case itemType
+  when :HAIR
+    return HairShopPresenter.new(view, stock, adapter, versions)
+  else
+    return ClothesShopPresenter.new(view, stock, adapter, versions)
+  end
+end
+
+def getAdapter(itemType, stock, isShop, is_secondary=false)
+  case itemType
+  when :CLOTHES
+    return ClothesMartAdapter.new(stock, isShop)
+  when :HAT
+    return HatsMartAdapter.new(stock, isShop,is_secondary)
+  when :HAIR
+    return HairMartAdapter.new(stock, isShop)
+  end
+end
+
+def list_all_possible_outfits() end
+
+def clothesShop(outfits_list = [], free=false,customMessage=nil)
+  stock = []
+  outfits_list.each { |outfit_id|
+    outfit = get_clothes_by_id(outfit_id)
+    stock << outfit if outfit
+  }
+  genericOutfitsShopMenu(stock, :CLOTHES,false,!free,customMessage)
+end
+
+def hatShop(outfits_list = [], free=false, customMessage=nil)
+  stock = []
+  outfits_list.each { |outfit_id|
+    outfit = get_hat_by_id(outfit_id)
+    stock << outfit if outfit
+  }
+  genericOutfitsShopMenu(stock, :HAT,false,!free,customMessage)
+end
+
+def hairShop(outfits_list = [],free=false, customMessage=nil)
+  currentHair = getSimplifiedHairIdFromFullID($player.hair)
+  stock = [:SWAP_COLOR]
+  #always add current hairstyle as first option (in case the player just wants to swap the color)
+  stock << get_hair_by_id(currentHair) if $player.hair
+  outfits_list.each { |outfit_id|
+    next if outfit_id == currentHair
+    outfit = get_hair_by_id(outfit_id)
+    stock << outfit if outfit
+  }
+  genericOutfitsShopMenu(stock, :HAIR, true,!free,customMessage)
+end
+
+def switchHatsPosition()
+  hat1 = $player.hat
+  hat2 = $player.hat2
+  hat1_color = $player.hat_color
+  hat2_color = $player.hat2_color
+
+  $player.hat = hat2
+  $player.hat2 = hat1
+  $player.hat_color = hat1_color
+  $player.hat_color = hat2_color
+
+  pbSEPlay("GUI naming tab swap start")
+end
+
+SWAP_HAT_POSITIONS_CAPTION = "Switch hats position"
+
+#is_secondary only used for hats
+def openSelectOutfitMenu(stock = [], itemType =nil, is_secondary=false)
+  adapter = getAdapter(itemType, stock, false, is_secondary)
+  view = getView(itemType)
+  presenter = ClothesShopPresenter.new(view, stock, adapter)
+  presenter.pbBuyScreen
+end
+
+def getView(itemType)
+  case itemType
+  when :HAT
+    return HatShopView.new
+  else
+    return ClothesShopView.new
+  end
+end
+
+def changeClothesMenu()
+  stock = []
+  $player.unlocked_clothes.each { |outfit_id|
+    outfit = get_clothes_by_id(outfit_id)
+    stock << outfit if outfit
+  }
+  openSelectOutfitMenu(stock, :CLOTHES)
+end
+
+def changeHatMenu(is_secondary_hat = false)
+  stock = []
+  $player.unlocked_hats.each { |outfit_id|
+    outfit = get_hat_by_id(outfit_id)
+    stock << outfit if outfit
+  }
+  stock << :REMOVE_HAT
+  openSelectOutfitMenu(stock, :HAT, is_secondary_hat)
+end
+
+def changeOutfit()
+  commands = []
+  commands[cmdHat = commands.length] = _INTL("Change hat")
+  commands[cmdClothes = commands.length] = _INTL("Change clothes")
+  commands[cmdQuit = commands.length] = _INTL("Quit")
+
+  cmd = pbMessage(_INTL("What would you like to do?"), commands, cmdQuit + 1)
+  loop do
+    if cmd == cmdClothes
+      changeClothesMenu()
+      break
+    elsif cmd == cmdHat
+      changeHatMenu()
+      break
+    else
+      break
+    end
+  end
+end

Data/Scripts/998_InfiniteFusion/Outfits/UI/clothesShop/ClothesShopPresenter.rb

@@ -0,0 +1,163 @@
+class ClothesShopPresenter < PokemonMartScreen
+  def pbChooseBuyItem
+
+  end
+
+  def initialize(scene, stock, adapter = nil, versions = false)
+    super(scene, stock, adapter)
+    @use_versions = versions
+  end
+
+  def putOnClothes(item,end_scene=true)
+    @adapter.putOnOutfit(item) if item
+    @scene.pbEndBuyScene if end_scene
+  end
+
+
+  def dyeClothes()
+    original_color = $player.clothes_color
+    options = ["Shift up", "Shift down", "Reset", "Confirm", "Never Mind"]
+    previous_input = 0
+    ret = false
+    while (true)
+      choice = pbShowCommands(nil, options, options.length, previous_input,200)
+      previous_input = choice
+      case choice
+      when 0 #NEXT
+        pbSEPlay("GUI storage pick up", 80, 100)
+        shiftClothesColor(10)
+        ret = true
+      when 1 #PREVIOUS
+        pbSEPlay("GUI storage pick up", 80, 100)
+        shiftClothesColor(-10)
+        ret = true
+      when 2 #Reset
+        pbSEPlay("GUI storage pick up", 80, 100)
+        $player.clothes_color = 0
+        ret = false
+      when 3 #Confirm
+        break
+      else
+        $player.clothes_color = original_color
+        ret = false
+        break
+      end
+      @scene.updatePreviewWindow
+    end
+    return ret
+  end
+
+
+  # returns true if should stay in the menu
+  def playerClothesActionsMenu(item)
+    cmd_wear = "Wear"
+    cmd_dye = "Dye Kit"
+    options = []
+    options << cmd_wear
+    options << cmd_dye  if $PokemonBag.pbHasItem?(:CLOTHESDYEKIT)
+    options << "Cancel"
+    choice = pbMessage("What would you like to do?", options, -1)
+
+    if options[choice] == cmd_wear
+      putOnClothes(item,false)
+      $player.clothes_color = @adapter.get_dye_color(item.id)
+      return true
+    elsif options[choice] == cmd_dye
+      dyeClothes()
+    end
+    return true
+  end
+
+  def confirmPutClothes(item)
+    putOnClothes(item)
+  end
+
+  def quitMenuPrompt()
+    return true if !(@adapter.is_a?(HatsMartAdapter) || @adapter.is_a?(ClothesMartAdapter))
+    boolean_changes_detected = @adapter.player_changed_clothes?
+    return true if !boolean_changes_detected
+    pbPlayCancelSE
+    cmd_confirm = "Set outfit"
+    cmd_discard = "Discard changes"
+    cmd_cancel = "Cancel"
+    options = [cmd_discard,cmd_confirm,cmd_cancel]
+    choice = pbMessage("You have unsaved changes!",options,3)
+    case options[choice]
+    when cmd_confirm
+      @adapter.putOnSelectedOutfit
+      pbPlayDecisionSE
+      return true
+    when cmd_discard
+      pbPlayCloseMenuSE
+      return true
+    else
+      return false
+    end
+  end
+
+  def pbBuyScreen
+    @scene.pbStartBuyScene(@stock, @adapter)
+    @scene.select_specific_item(@adapter.worn_clothes) if !@adapter.isShop?
+    item = nil
+    loop do
+      item = @scene.pbChooseBuyItem
+      if !item
+        break if @adapter.isShop?
+        #quit_menu_choice = quitMenuPrompt()
+        #break if quit_menu_choice
+        break
+        next
+      end
+
+
+      if !@adapter.isShop?
+        if @adapter.is_a?(ClothesMartAdapter)
+          stay_in_menu = playerClothesActionsMenu(item)
+          next if stay_in_menu
+          return
+        elsif @adapter.is_a?(HatsMartAdapter)
+          echoln pbGet(1)
+          stay_in_menu = playerHatActionsMenu(item)
+          echoln pbGet(1)
+          next if stay_in_menu
+          return
+        else
+          if pbConfirm(_INTL("Would you like to put on the {1}?", item.name))
+            confirmPutClothes(item)
+            return
+          end
+          next
+        end
+        next
+      end
+      itemname = @adapter.getDisplayName(item)
+      price = @adapter.getPrice(item)
+      if !price.is_a?(Integer)
+        pbDisplayPaused(_INTL("You already own this item!"))
+        if pbConfirm(_INTL("Would you like to put on the {1}?", item.name))
+          @adapter.putOnOutfit(item)
+        end
+        next
+      end
+      if @adapter.getMoney < price
+        pbDisplayPaused(_INTL("You don't have enough money."))
+        next
+      end
+
+      if !pbConfirm(_INTL("Certainly. You want {1}. That will be ${2}. OK?",
+                          itemname, price.to_s_formatted))
+        next
+      end
+      if @adapter.getMoney < price
+        pbDisplayPaused(_INTL("You don't have enough money."))
+        next
+      end
+      @adapter.setMoney(@adapter.getMoney - price)
+      @stock.compact!
+      pbDisplayPaused(_INTL("Here you are! Thank you!")) { pbSEPlay("Mart buy item") }
+      @adapter.addItem(item)
+    end
+    @scene.pbEndBuyScene
+  end
+
+end