module OptionTypes
  WILD_POKE = 0
  TRAINER_POKE = 1
end

class RandomizerOptionsScene < PokemonOption_Scene
  def initialize
    super
    @openTrainerOptions = false
    @openWildOptions = false
    @openGymOptions = false
    @openItemOptions = false
    $game_switches[SWITCH_RANDOMIZED_AT_LEAST_ONCE] = true
  end

  def getDefaultDescription
    return _INTL("Set the randomizer settings")
  end

  def pbStartScene(inloadscreen = false)
    super
    @changedColor = true
    @sprites["title"] = Window_UnformattedTextPokemon.newWithSize(
      _INTL("Randomizer settings"), 0, 0, Graphics.width, 64, @viewport)
    @sprites["textbox"].text = getDefaultDescription
    pbFadeInAndShow(@sprites) { pbUpdate }
  end

  def pbGetOptions(inloadscreen = false)
    options = [
      EnumOption.new(_INTL("Pokémon"), [_INTL("On"), _INTL("Off")],
                     proc {
                       $game_switches[SWITCH_RANDOM_WILD] ? 0 : 1
                     },
                     proc { |value|
                       if !$game_switches[SWITCH_RANDOM_WILD] && value == 0
                         @openWildOptions = true
                         openWildPokemonOptionsMenu()
                       end
                       $game_switches[SWITCH_RANDOM_WILD] = value == 0
                     }, _INTL("Select the randomizer options for Pokémon")
      ),
      EnumOption.new(_INTL("NPC Trainers"), [_INTL("On"), _INTL("Off")],
                     proc { $game_switches[SWITCH_RANDOM_TRAINERS] ? 0 : 1 },
                     proc { |value|
                       if !$game_switches[SWITCH_RANDOM_TRAINERS] && value == 0
                         @openTrainerOptions = true
                         openTrainerOptionsMenu()
                       end
                       $game_switches[SWITCH_RANDOM_TRAINERS] = value == 0
                     }, _INTL("Select the randomizer options for trainers")
      ),

      EnumOption.new(_INTL("Gym trainers"), [_INTL("On"), _INTL("Off")],
                     proc { $game_switches[SWITCH_RANDOMIZE_GYMS_SEPARATELY] ? 0 : 1 },
                     proc { |value|
                       if !$game_switches[SWITCH_RANDOMIZE_GYMS_SEPARATELY] && value == 0
                         @openGymOptions = true
                         openGymOptionsMenu()
                       end
                       $game_switches[SWITCH_RANDOMIZE_GYMS_SEPARATELY] = value == 0
                     }, _INTL("Limit gym trainers to a single type")
      ),

      EnumOption.new(_INTL("Items"), [_INTL("On"), _INTL("Off")],
                     proc { $game_switches[SWITCH_RANDOM_ITEMS_GENERAL] ? 0 : 1 },
                     proc { |value|
                       if !$game_switches[SWITCH_RANDOM_ITEMS_GENERAL] && value == 0
                         @openItemOptions = true
                         openItemOptionsMenu()
                       end
                       $game_switches[SWITCH_RANDOM_ITEMS_GENERAL] = value == 0
                     }, _INTL("Select the randomizer options for items")
      ),

    ]
    return options
  end

  def openGymOptionsMenu()
    return if !@openGymOptions
    pbFadeOutIn {
      scene = RandomizerGymOptionsScene.new
      screen = PokemonOptionScreen.new(scene)
      screen.pbStartScreen
    }
    @openGymOptions = false
  end

  def openItemOptionsMenu()
    return if !@openItemOptions
    pbFadeOutIn {
      scene = RandomizerItemOptionsScene.new
      screen = PokemonOptionScreen.new(scene)
      screen.pbStartScreen
    }
    @openItemOptions = false
  end

  def openTrainerOptionsMenu()
    return if !@openTrainerOptions
    pbFadeOutIn {
      scene = RandomizerTrainerOptionsScene.new
      screen = PokemonOptionScreen.new(scene)
      screen.pbStartScreen
    }
    @openTrainerOptions = false
  end

  def openWildPokemonOptionsMenu()
    return if !@openWildOptions
    pbFadeOutIn {
      scene = RandomizerWildPokemonOptionsScene.new
      screen = PokemonOptionScreen.new(scene)
      screen.pbStartScreen
    }
    @openWildOptions = false
  end

end

class RandomizerTrainerOptionsScene < PokemonOption_Scene
  RANDOM_TEAMS_CUSTOM_SPRITES = 600
  RANDOM_GYM_TYPES = 921

  def initialize
    @changedColor = false
  end

  def pbStartScene(inloadscreen = false)
    super
    @sprites["option"].nameBaseColor = MessageConfig::BLUE_TEXT_MAIN_COLOR
    @sprites["option"].nameShadowColor = MessageConfig::BLUE_TEXT_SHADOW_COLOR
    @changedColor = true
    for i in 0...@PokemonOptions.length
      @sprites["option"][i] = (@PokemonOptions[i].get || 0)
    end
    @sprites["title"] = Window_UnformattedTextPokemon.newWithSize(
      _INTL("Randomizer settings: Trainers"), 0, 0, Graphics.width, 64, @viewport)
    @sprites["textbox"].text = _INTL("Set the randomizer settings for trainers")

    pbFadeInAndShow(@sprites) { pbUpdate }
  end

  def pbFadeInAndShow(sprites, visiblesprites = nil)
    return if !@changedColor
    super
  end

  def pbGetOptions(inloadscreen = false)
    options = []
    if !$game_switches[SWITCH_DURING_INTRO]
      options << SliderOption.new(_INTL("Randomness degree"), 25, 500, 5,
                                  proc { $game_variables[VAR_RANDOMIZER_TRAINER_BST] },
                                  proc { |value|
                                    $game_variables[VAR_RANDOMIZER_TRAINER_BST] = value
                                  },
                                  _INTL("The higher the number, the more random it is.")
                                  )
    end
    options << EnumOption.new(_INTL("Custom Sprites only"), [_INTL("On"), _INTL("Off")],
                              proc { $game_switches[RANDOM_TEAMS_CUSTOM_SPRITES] ? 0 : 1 },
                              proc { |value|
                                $game_switches[RANDOM_TEAMS_CUSTOM_SPRITES] = value == 0
                              },
                              _INTL("Use only Pokémon that have custom sprites in trainer teams")
    )

    # options << EnumOption.new("Allow legendaries", ["On", "Off"],
    #                           proc { $game_switches[SWITCH_RANDOM_TRAINER_LEGENDARIES] ? 0 : 1 },
    #                           proc { |value|
    #                             $game_switches[SWITCH_RANDOM_TRAINER_LEGENDARIES] = value == 0
    #                           }, _INTL("Regular Pokémon can also be randomized into legendaries")
    # )

    return options
  end
end

class RandomizerWildPokemonOptionsScene < PokemonOption_Scene
  RANDOM_WILD_AREA = 777
  RANDOM_WILD_GLOBAL = 956
  RANDOM_STATIC = 955
  REGULAR_TO_FUSIONS = 953
  GIFT_POKEMON = 780

  def initialize
    @changedColor = false
  end

  def pbStartScene(inloadscreen = false)
    super
    @sprites["option"].nameBaseColor = Color.new(70, 170, 40)
    @sprites["option"].nameShadowColor = Color.new(40, 100, 20)
    @changedColor = true
    for i in 0...@PokemonOptions.length
      @sprites["option"][i] = (@PokemonOptions[i].get || 0)
    end
    @sprites["title"] = Window_UnformattedTextPokemon.newWithSize(
      _INTL("Randomizer settings: Pokémon"), 0, 0, Graphics.width, 64, @viewport)
    @sprites["textbox"].text = _INTL("Set the randomizer settings for wild Pokémon")
    pbFadeInAndShow(@sprites) { pbUpdate }
  end

  def pbFadeInAndShow(sprites, visiblesprites = nil)
    return if !@changedColor
    super
  end

  def pbGetOptions(inloadscreen = false)
    options = []
    if !$game_switches[SWITCH_DURING_INTRO]
      options << SliderOption.new(_INTL("Randomness degree"), 25, 500, 5,
                                  proc { $game_variables[VAR_RANDOMIZER_WILD_POKE_BST] },
                                  proc { |value|
                                    $game_variables[VAR_RANDOMIZER_WILD_POKE_BST] = value
                                  },
                                  _INTL("The higher the number, the more random it is."))
    end

    options << EnumOption.new(_INTL("Type"), [_INTL("Global"), _INTL("Area")],
                              proc {
                                if $game_switches[RANDOM_WILD_AREA]
                                  1
                                else
                                  0
                                end
                              },
                              proc { |value|
                                if value == 0
                                  $game_switches[RANDOM_WILD_GLOBAL] = true
                                  $game_switches[RANDOM_WILD_AREA] = false
                                else
                                  value == 1
                                  $game_switches[RANDOM_WILD_GLOBAL] = false
                                  $game_switches[RANDOM_WILD_AREA] = true
                                end
                              },
                              [
                                _INTL("Randomizes Pokémon using a one-to-one mapping of the Pokedex"),
                                _INTL("Randomizes the encounters in each route individually")
                              ]
    )
    options << EnumOption.new(_INTL("Custom sprites only"), [_INTL("On"), _INTL("Off")],
                              proc { $game_switches[SWITCH_RANDOM_WILD_ONLY_CUSTOMS] ? 0 : 1 },
                              proc { |value|
                                $game_switches[SWITCH_RANDOM_WILD_ONLY_CUSTOMS] = value == 0
                              }, _INTL("['Fuse everything' & starters] Include only Pokémon with a custom sprite.")
    )

    options << EnumOption.new(_INTL("Allow legendaries"), [_INTL("On"), _INTL("Off")],
                              proc { $game_switches[SWITCH_RANDOM_WILD_LEGENDARIES] ? 0 : 1 },
                              proc { |value|
                                $game_switches[SWITCH_RANDOM_WILD_LEGENDARIES] = value == 0
                              }, 
                              [
                                _INTL("Regular wild Pokémon can also be randomized into legendaries."),
                                _INTL("Only legendaries can be randomized into legendaries")
                              ]
    )

    options << EnumOption.new(_INTL("Starters"), [_INTL("1st Stage"), _INTL("Any"), _INTL("Off")],
                              proc {
                                getStarterRandomizerSelectedOption() },
                              proc { |value|
                                case value
                                when 0
                                  $game_switches[SWITCH_RANDOM_STARTERS] = true
                                  $game_switches[SWITCH_RANDOM_STARTER_FIRST_STAGE] = true
                                when 1
                                  $game_switches[SWITCH_RANDOM_STARTERS] = true
                                  $game_switches[SWITCH_RANDOM_STARTER_FIRST_STAGE] = false
                                else
                                  $game_switches[SWITCH_RANDOM_STARTERS] = false
                                  $game_switches[SWITCH_RANDOM_STARTER_FIRST_STAGE] = false
                                end
                              }, 
                              [
                                _INTL("The starters will always be a first evolution Pokémon"),
                                _INTL("The starters can be any Pokémon"),
                                _INTL("The starters are not randomized")
                              ]
    )
    if Settings::KANTO
      options << EnumOption.new(_INTL("Static encounters"), [_INTL("On"), _INTL("Off")],
                                proc { $game_switches[RANDOM_STATIC] ? 0 : 1 },
                                proc { |value|
                                  $game_switches[RANDOM_STATIC] = value == 0
                                },
                                _INTL("Randomize Pokémon that appear in the overworld (including legendaries)")
      )
    end

    options << EnumOption.new(_INTL("Gift Pokémon"), [_INTL("On"), _INTL("Off")],
                              proc { $game_switches[GIFT_POKEMON] ? 0 : 1 },
                              proc { |value|
                                $game_switches[GIFT_POKEMON] = value == 0
                              }, _INTL("Randomize Pokémon that are gifted to the player")
    )

    options << EnumOption.new(_INTL("Fuse everything"), [_INTL("On"), _INTL("Off")],
                              proc { $game_switches[REGULAR_TO_FUSIONS] ? 0 : 1 },
                              proc { |value|
                                $game_switches[REGULAR_TO_FUSIONS] = value == 0
                              }, _INTL("All wild Pokémon will already be pre-fused")
    )

    # options << ButtonOption.new(_INTL("SHUFFLE"),
    #                             proc {
    #                               pbMessage(_INTL("Shuffling..."))
    #                               if $game_switches[RANDOM_WILD_AREA]
    #                                 type = 1
    #                               else
    #                                 type = 0
    #                               end
    #
    #                               Kernel.pbShuffleDex($game_variables[VAR_RANDOMIZER_WILD_POKE_BST], type)
    #                             },
    #                             _INTL("Shuffle the wild encounters with the selected options.")
    # )

    return options
  end

  def getStarterRandomizerSelectedOption()
    return 0 if $game_switches[SWITCH_RANDOM_STARTERS] && $game_switches[SWITCH_RANDOM_STARTER_FIRST_STAGE]
    return 1 if $game_switches[SWITCH_RANDOM_STARTERS]
    return 2
  end
end

class RandomizerGymOptionsScene < PokemonOption_Scene
  RANDOM_GYM_TYPES = 921

  def initialize
    @changedColor = false
  end

  def pbStartScene(inloadscreen = false)
    super
    @sprites["option"].nameBaseColor = MessageConfig::BLUE_TEXT_MAIN_COLOR
    @sprites["option"].nameShadowColor = MessageConfig::BLUE_TEXT_SHADOW_COLOR
    @changedColor = true
    for i in 0...@PokemonOptions.length
      @sprites["option"][i] = (@PokemonOptions[i].get || 0)
    end
    @sprites["title"] = Window_UnformattedTextPokemon.newWithSize(
      _INTL("Randomizer settings: Gyms"), 0, 0, Graphics.width, 64, @viewport)
    @sprites["textbox"].text = _INTL("Set the randomizer settings for gyms")

    pbFadeInAndShow(@sprites) { pbUpdate }
  end

  def pbFadeInAndShow(sprites, visiblesprites = nil)
    return if !@changedColor
    super
  end

  def pbGetOptions(inloadscreen = false)
    options = []
    if !$game_switches[SWITCH_DURING_INTRO]
      options << SliderOption.new(_INTL("Randomness degree"), 25, 500, 5,
                                  proc { $game_variables[VAR_RANDOMIZER_TRAINER_BST] },
                                  proc { |value|
                                    $game_variables[VAR_RANDOMIZER_TRAINER_BST] = value
                                  },
                                  _INTL("The higher the number, the more random it is."))
    end
    options << EnumOption.new(_INTL("Custom sprites only"), [_INTL("On"), _INTL("Off")],
                              proc { $game_switches[SWITCH_RANDOM_GYM_CUSTOMS] ? 0 : 1 },
                              proc { |value|
                                $game_switches[SWITCH_RANDOM_GYM_CUSTOMS] = value == 0
                              }, 
                              [
                                _INTL("Use only Pokémon that have custom sprites in gym trainers or gym leader teams"),
                                _INTL("Pick any possible fusion, including auto-generated sprites.")
                              ]
    )
    options << EnumOption.new(_INTL("Gym types"), [_INTL("On"), _INTL("Off")],
                              proc { $game_switches[RANDOM_GYM_TYPES] ? 0 : 1 },
                              proc { |value|
                                $game_switches[RANDOM_GYM_TYPES] = value == 0
                              }, _INTL("Shuffle the gym types")
    )

    # options << EnumOption.new("Allow legendaries", ["On", "Off"],
    #                           proc { $game_switches[SWITCH_RANDOM_GYM_LEGENDARIES] ? 0 : 1 },
    #                           proc { |value|
    #                             $game_switches[SWITCH_RANDOM_GYM_LEGENDARIES] = value == 0
    #                           }, _INTL("Regular Pokémon can also be randomized into legendaries")
    # )

    options << EnumOption.new(_INTL("Rerandomize each battle"), [_INTL("On"), _INTL("Off")],
                              proc { $game_switches[SWITCH_GYM_RANDOM_EACH_BATTLE] ? 0 : 1 },
                              proc { |value|
                                $game_switches[SWITCH_GYM_RANDOM_EACH_BATTLE] = value == 0
                                $game_switches[SWITCH_RANDOM_GYM_PERSIST_TEAMS] = !$game_switches[SWITCH_GYM_RANDOM_EACH_BATTLE]
                              }, _INTL("Gym trainers and leaders have a new team each try instead of keeping the same one")
    )

    return options
  end
end

class RandomizerItemOptionsScene < PokemonOption_Scene
  RANDOM_HELD_ITEMS = 843

  def initialize
    @changedColor = false
  end

  def pbStartScene(inloadscreen = false)
    super
    @sprites["option"].nameBaseColor = MessageConfig::BLUE_TEXT_MAIN_COLOR
    @sprites["option"].nameShadowColor = MessageConfig::BLUE_TEXT_SHADOW_COLOR
    @changedColor = true
    for i in 0...@PokemonOptions.length
      @sprites["option"][i] = (@PokemonOptions[i].get || 0)
    end
    @sprites["title"] = Window_UnformattedTextPokemon.newWithSize(
      _INTL("Randomizer settings: Items"), 0, 0, Graphics.width, 64, @viewport)
    @sprites["textbox"].text = _INTL("Set the randomizer settings for items")

    pbFadeInAndShow(@sprites) { pbUpdate }
  end

  def pbFadeInAndShow(sprites, visiblesprites = nil)
    return if !@changedColor
    super
  end

  def pbGetOptions(inloadscreen = false)
    options = [
      EnumOption.new(_INTL("Found items"), [_INTL("On"), _INTL("Off")],
                     proc { $game_switches[SWITCH_RANDOM_FOUND_ITEMS] ? 0 : 1 },
                     proc { |value|
                       $game_switches[SWITCH_RANDOM_FOUND_ITEMS] = value == 0
                       $game_switches[SWITCH_RANDOM_ITEMS_MAPPED] = value == 0
                       $game_switches[SWITCH_RANDOM_ITEMS] = $game_switches[SWITCH_RANDOM_FOUND_ITEMS] || $game_switches[SWITCH_RANDOM_GIVEN_ITEMS]
                     }, _INTL("Randomize the items picked up on the ground")
      ),
      EnumOption.new(_INTL("Found TMs"), [_INTL("On"), _INTL("Off")],
                     proc { $game_switches[SWITCH_RANDOM_FOUND_TMS] ? 0 : 1 },
                     proc { |value|
                       $game_switches[SWITCH_RANDOM_FOUND_TMS] = value == 0
                       $game_switches[SWITCH_RANDOM_TMS] = $game_switches[SWITCH_RANDOM_FOUND_TMS] || $game_switches[SWITCH_RANDOM_GIVEN_TMS]
                     }, _INTL("Randomize the TMs picked up on the ground")
      ),
      EnumOption.new(_INTL("Given items"), [_INTL("On"), _INTL("Off")],
                     proc { $game_switches[SWITCH_RANDOM_GIVEN_ITEMS] ? 0 : 1 },
                     proc { |value|
                       $game_switches[SWITCH_RANDOM_GIVEN_ITEMS] = value == 0
                       $game_switches[SWITCH_RANDOM_ITEMS] = $game_switches[SWITCH_RANDOM_FOUND_ITEMS] || $game_switches[SWITCH_RANDOM_GIVEN_ITEMS]
                     }, _INTL("Randomize the items given by NPCs (may make some quests impossible to complete)")
      ),
      EnumOption.new(_INTL("Given TMs"), [_INTL("On"), _INTL("Off")],
                     proc { $game_switches[SWITCH_RANDOM_GIVEN_TMS] ? 0 : 1 },
                     proc { |value|
                       $game_switches[SWITCH_RANDOM_GIVEN_TMS] = value == 0
                       $game_switches[SWITCH_RANDOM_TMS] = $game_switches[SWITCH_RANDOM_FOUND_TMS] || $game_switches[SWITCH_RANDOM_GIVEN_TMS]
                     }, _INTL("Randomize the TMs given by NPCs")
      ),

      EnumOption.new(_INTL("Shop items"), [_INTL("On"), _INTL("Off")],
                     proc { $game_switches[SWITCH_RANDOM_SHOP_ITEMS] ? 0 : 1 },
                     proc { |value|
                       $game_switches[SWITCH_RANDOM_SHOP_ITEMS] = value == 0
                     }, _INTL("Randomizes the items available in shops (always mapped)")
      ),

      EnumOption.new(_INTL("Trainer Held items"), [_INTL("On"), _INTL("Off")],
                     proc { $game_switches[RANDOM_HELD_ITEMS] ? 0 : 1 },
                     proc { |value|
                       $game_switches[RANDOM_HELD_ITEMS] = value == 0
                     }, _INTL("Give random held items to all trainers")
      )
    ]
    return options
  end
end

class RandomizerItemOptionsScene < PokemonOption_Scene
  RANDOM_HELD_ITEMS = 843

  def initialize
    @changedColor = false
  end

  def pbStartScene(inloadscreen = false)
    super
    @sprites["option"].nameBaseColor = MessageConfig::BLUE_TEXT_MAIN_COLOR
    @sprites["option"].nameShadowColor = MessageConfig::BLUE_TEXT_SHADOW_COLOR
    @changedColor = true
    for i in 0...@PokemonOptions.length
      @sprites["option"][i] = (@PokemonOptions[i].get || 0)
    end
    @sprites["title"] = Window_UnformattedTextPokemon.newWithSize(
      _INTL("Randomizer settings: Items"), 0, 0, Graphics.width, 64, @viewport)
    @sprites["textbox"].text = _INTL("Set the randomizer settings for items")

    pbFadeInAndShow(@sprites) { pbUpdate }
  end

  def pbFadeInAndShow(sprites, visiblesprites = nil)
    return if !@changedColor
    super
  end

  def pbGetOptions(inloadscreen = false)
    options = [
      EnumOption.new(_INTL("Found items"), [_INTL("On"), _INTL("Off")],
                     proc { $game_switches[SWITCH_RANDOM_FOUND_ITEMS] ? 0 : 1 },
                     proc { |value|
                       $game_switches[SWITCH_RANDOM_FOUND_ITEMS] = value == 0
                       $game_switches[SWITCH_RANDOM_ITEMS_MAPPED] = value == 0
                       $game_switches[SWITCH_RANDOM_ITEMS] = $game_switches[SWITCH_RANDOM_FOUND_ITEMS] || $game_switches[SWITCH_RANDOM_GIVEN_ITEMS]
                     }, "Randomize the items picked up on the ground"
      ),
      EnumOption.new(_INTL("Found TMs"), [_INTL("On"), _INTL("Off")],
                     proc { $game_switches[SWITCH_RANDOM_FOUND_TMS] ? 0 : 1 },
                     proc { |value|
                       $game_switches[SWITCH_RANDOM_FOUND_TMS] = value == 0
                       $game_switches[SWITCH_RANDOM_TMS] = $game_switches[SWITCH_RANDOM_FOUND_TMS] || $game_switches[SWITCH_RANDOM_GIVEN_TMS]
                     }, "Randomize the TMs picked up on the ground"
      ),
      EnumOption.new(_INTL("Given items"), [_INTL("On"), _INTL("Off")],
                     proc { $game_switches[SWITCH_RANDOM_GIVEN_ITEMS] ? 0 : 1 },
                     proc { |value|
                       $game_switches[SWITCH_RANDOM_GIVEN_ITEMS] = value == 0
                       $game_switches[SWITCH_RANDOM_ITEMS] = $game_switches[SWITCH_RANDOM_FOUND_ITEMS] || $game_switches[SWITCH_RANDOM_GIVEN_ITEMS]
                     }, "Randomize the items given by NPCs (may make some quests impossible to complete)"
      ),
      EnumOption.new(_INTL("Given TMs"), [_INTL("On"), _INTL("Off")],
                     proc { $game_switches[SWITCH_RANDOM_GIVEN_TMS] ? 0 : 1 },
                     proc { |value|
                       $game_switches[SWITCH_RANDOM_GIVEN_TMS] = value == 0
                       $game_switches[SWITCH_RANDOM_TMS] = $game_switches[SWITCH_RANDOM_FOUND_TMS] || $game_switches[SWITCH_RANDOM_GIVEN_TMS]
                     }, "Randomize the TMs given by NPCs"
      ),

      EnumOption.new(_INTL("Shop items"), [_INTL("On"), _INTL("Off")],
                     proc { $game_switches[SWITCH_RANDOM_SHOP_ITEMS] ? 0 : 1 },
                     proc { |value|
                       $game_switches[SWITCH_RANDOM_SHOP_ITEMS] = value == 0
                     }, "Randomizes the items available in shops (always mapped)"
      ),

      EnumOption.new(_INTL("Trainer Held items"), [_INTL("On"), _INTL("Off")],
                     proc { $game_switches[RANDOM_HELD_ITEMS] ? 0 : 1 },
                     proc { |value|
                       $game_switches[RANDOM_HELD_ITEMS] = value == 0
                     }, "Give random held items to all trainers"
      )
    ]
    return options
  end
end