def unlock_easter_egg_hats()
  if $Trainer.name.downcase == "ash"
    $Trainer.hat = HAT_ASH
    $Trainer.unlock_hat(HAT_ASH)
  end
  if $Trainer.name.downcase == "frogman"
    $Trainer.hat = HAT_FROG
    $Trainer.unlock_hat(HAT_FROG)
  end
end

def getPlayerDefaultName(gender)
  if gender == GENDER_MALE
    return Settings::GAME_ID == :IF_HOENN ? pbGetMessageFromHash(MessageTypes::TrainerNames, "Brendan") : _INTL("Red")
  else
    return Settings::GAME_ID == :IF_HOENN ? pbGetMessageFromHash(MessageTypes::TrainerNames, "May") : _INTL("Green")
  end
end

def getDefaultClothes(gender)
  if gender == GENDER_MALE
    return Settings::GAME_ID == :IF_HOENN ? CLOTHES_BRENDAN : DEFAULT_OUTFIT_MALE
  else
    return Settings::GAME_ID == :IF_HOENN ? CLOTHES_MAY : DEFAULT_OUTFIT_FEMALE
  end
end

def getDefaultHat(gender=getPlayerGenderId())
  if gender == GENDER_MALE
    return Settings::GAME_ID == :IF_HOENN ? HAT_BRENDAN : DEFAULT_OUTFIT_MALE
  else
    return Settings::GAME_ID == :IF_HOENN ? HAT_MAY : DEFAULT_OUTFIT_FEMALE
  end
end

def getDefaultHair(gender)
  if gender == GENDER_MALE
    return Settings::GAME_ID == :IF_HOENN ? HAIR_BRENDAN : DEFAULT_OUTFIT_MALE
  else
    return Settings::GAME_ID == :IF_HOENN ? HAIR_MAY : DEFAULT_OUTFIT_FEMALE
  end
end

def setupStartingOutfit()
  default_clothes_male = getDefaultClothes(GENDER_MALE)
  default_clothes_female = getDefaultClothes(GENDER_FEMALE)

  default_hat_male = getDefaultHat(GENDER_MALE)
  default_hat_female = getDefaultHat(GENDER_FEMALE)

  default_hair_male = getDefaultHair(GENDER_MALE)
  default_hair_female = getDefaultHair(GENDER_FEMALE)

  unlock_easter_egg_hats()
  gender = pbGet(VAR_TRAINER_GENDER)
  if gender == GENDER_FEMALE
    $Trainer.unlock_clothes(default_clothes_female, true)
    $Trainer.unlock_hat(default_hat_female, true) unless Settings::HOENN
    $Trainer.hair = "3_" + default_hair_female if !$Trainer.hair # when migrating old savefiles
    $Trainer.clothes = default_clothes_female

  elsif gender == GENDER_MALE
    $Trainer.unlock_clothes(default_clothes_male, true)
    $Trainer.unlock_hat(default_hat_male, true) unless Settings::HOENN
    $Trainer.hair = ("3_" + default_hair_male) if !$Trainer.hair # when migrating old savefiles
    $Trainer.clothes = default_clothes_male
  end
  $Trainer.unlock_hair(default_hair_male, true)
  $Trainer.unlock_hair(default_hair_female, true)
  $Trainer.unlock_clothes(STARTING_OUTFIT, true)

  $Trainer.hat = nil
  if Settings::KANTO
    $Trainer.clothes = STARTING_OUTFIT
  end
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 !$Trainer.unlocked_hats.include?(HAT_SANTA)
      pbCallBub(2, @event_id, true)
      pbMessage(_INTL("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 !$Trainer.unlocked_hats.include?(HAT_CLOWN)
      pbCallBub(2, @event_id, true)
      pbMessage(_INTL("Hi! We're giving out this fun accessory for this special day. Enjoy!"))
      obtainHat(HAT_CLOWN)
    end
  end
end


def check_obtain_hat_after_battle(species)
  hat_chance = 1
  if rand(1..100) <= hat_chance
    hat = getHatForPokemon(species)
    if hat
      obtainHat(hat)
    end
  end
end


def qmarkMaskCheck()
  if $Trainer.seen_qmarks_sprite
    unless hasHat?(HAT_QMARKS)
      obtainHat(HAT_QMARKS)
      obtainClothes(CLOTHES_GLITCH)
    end
  end
end

def purchaseDyeKitMenu(hats_kit_price = 0, clothes_kit_price = 0)

  commands = []
  command_hats = _INTL("Hats Dye Kit (${1})",hats_kit_price)
  command_clothes = _INTL("Clothes Dye Kit (${1})",clothes_kit_price)
  command_cancel = _INTL("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(_INTL("\\C[1]Dye Kits\\C[0] can be used to dye clothes all sorts of colours!"))

    pbCallBub(2, @event_id)
    pbMessage(_INTL("You can use them at any time when you change clothes."))
    return
  end
  pbCallBub(2, @event_id)
  pbMessage(_INTL("Welcome! Are you interested in dyeing your outfits different colors?"))

  pbCallBub(2, @event_id)
  pbMessage(_INTL("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(_INTL("What's more is that it's reusable, so you can go completely wild with it if you want! Are you interested?"))

  msgwindow = pbCreateMessageWindow(nil)
  pbMessageDisplay(msgwindow, _INTL("Which dye kit would you like to purchase?"))
  if Settings::HOENN
    money = $Trainer.cosmetics_money
    goldwindow = pbDisplayCosmeticsMoneyWindow(msgwindow,300)
  else
    money = $Trainer.money
    goldwindow = pbDisplayGoldWindow(msgwindow,300)
  end

  choice = optionsMenu(commands, commands.length)
  case commands[choice]
  when command_hats
    if money < hats_kit_price
      pbCallBub(2, @event_id)
      pbMessage(_INTL("Oh, you don't have enough money..."))
      goldwindow.dispose
      return
    end
    purchaseWindowAnimation(hats_kit_price,msgwindow,goldwindow)
    Kernel.pbReceiveItem(:HATSDYEKIT)
    pbCallBub(2, @event_id)
    pbMessage(_INTL("Here you go! Have fun dyeing your hats!"))
  when command_clothes
    if money < clothes_kit_price
      pbCallBub(2, @event_id)
      pbMessage(_INTL("Oh, you don't have enough money..."))
      goldwindow.dispose
      return
    end

    #pbMessage(_INTL("\\PN purchased the dye kit."))
    purchaseWindowAnimation(clothes_kit_price,msgwindow,goldwindow)
    Kernel.pbReceiveItem(:CLOTHESDYEKIT)
    pbCallBub(2, @event_id)
    pbMessage(_INTL("Here you go! Have fun dyeing your clothes!"))
  end
  pbCallBub(2, @event_id)
  pbMessage(_INTL("You can use \\C[1]Dye Kits\\C[0] at any time when you change clothes."))
  msgwindow.dispose
  goldwindow.dispose
end

def purchaseWindowAnimation(price, msgwindow,goldwindow)
  if Settings::HOENN
    pbSpendCosmeticMoney(price,false,msgwindow,goldwindow)
  else
    pbSpendMoney(price,false,msgwindow,goldwindow)
  end
  msgwindow.dispose
  goldwindow.dispose
end

def get_hat_contest_tags(hat_id)
  hat = $PokemonGlobal.hats_data[hat_id]
  return hat&.contest_condition
end

def get_clothes_contest_tags(clothes_id)
  clothes = $PokemonGlobal.clothes_data[clothes_id]
  return clothes&.contest_condition
end

def isWearingTeamAquaOutfit()
  return false if !$game_switches[SWITCH_JOINED_TEAM_AQUA]
  return isWearingClothes(CLOTHES_TEAM_AQUA_F) || isWearingClothes(CLOTHES_TEAM_AQUA_M)
end

def isWearingTeamMagmaOutfit()
  return false if !$game_switches[SWITCH_JOINED_TEAM_MAGMA]
  return isWearingClothes(CLOTHES_TEAM_MAGMA_M) || isWearingClothes(CLOTHES_TEAM_MAGMA_F)
end