Update 6.8

Data/Scripts/053_PIF_Hoenn/PokeNav/Contacts/InfoPage/ContactsAppInfoPageScene.rb

@@ -0,0 +1,335 @@
+class ContactsAppInfoPageScene < PokeNavAppScene
+  attr_accessor :trainer
+
+  SPRITE_POSITION_X = 375
+  SPRITE_POSITION_Y = 230
+
+  TITLE_TEXT_X = 380
+  TITLE_TEXT_Y = 50
+
+  INFO_HEADER_X = 40
+  INFO_TEXT_X = 60
+  INFO_TEXT_START_Y = 50
+  INFO_TEXT_GAP = 40
+  INFO_HEADER_GAP = 30
+
+  FRIENDSHIP_ICON = "Graphics/Pictures/Pokegear/Trainers/friendship"
+  FRIENDSHIP_ICON_GAP = 4
+  ICON_SIZE = 16
+  FRIENDSHIP_ICON_START_X = 40
+  FRIENDSHIP_ICON_START_Y = 20
+
+  INFO_TEXT_LINES_PER_PAGE = 2
+
+  def header_name
+    return _INTL("Trainers")
+  end
+
+  def cursor_path
+    return "Graphics/Pictures/Pokeradar/icon_button"
+  end
+
+  def header_path
+    return "Graphics/Pictures/Pokegear/bg_header_trainers"
+  end
+
+  def bg_path
+    return "Graphics/Pictures/Pokegear/Trainers/bg_summary"
+  end
+
+  def display_mode
+    return :LIST
+  end
+
+  def x_gap
+    return 75;
+  end
+
+  def y_gap
+    return 64;
+  end
+
+  def columns
+    return 1
+  end
+
+  def visible_rows
+    return 3
+  end
+
+  def start_x
+    return 40;
+  end
+
+  def start_y
+    return 80;
+  end
+
+  def initialize
+    super
+    @value_color_base = Color.new(24, 112, 216)
+    @value_color_shadow = Color.new(136, 168, 208)
+    if isDarkMode
+      @value_color_base, @value_color_shadow = @value_color_shadow, @value_color_base
+    end
+    @info_text_page = 0
+    @info_text_pages = []
+  end
+
+  def pbStartScene(screen, trainer)
+    echoln "start"
+    @screen = screen
+    buttons = []
+    @trainer = trainer
+    super(buttons)
+    if @trainer
+      showTrainerSprite
+      showTrainerInfo
+      showFriendshipIcons
+    else
+      pbEndScene
+    end
+  end
+
+  def showTrainerSprite
+    if @trainer.id == BATTLED_TRAINER_RIVAL_KEY
+      bitmap = generate_front_trainer_sprite_bitmap_from_appearance($Trainer.rival_appearance)
+      @sprites["trainer"] = IconSprite.new(0, 0, @viewport)
+      @sprites["trainer"].setBitmapDirectly(bitmap)
+    else
+      trainerFile = GameData::TrainerType.front_sprite_filename(@trainer.trainerType)
+      @sprites["trainer"] = IconSprite.new(0, 0, @viewport)
+      @sprites["trainer"].setBitmap(trainerFile)
+    end
+
+    if @sprites["trainer"].bitmap &&
+      @sprites["trainer"].bitmap.width > @sprites["trainer"].bitmap.height * 2
+      @sprites["trainer"].src_rect.x = 0
+      @sprites["trainer"].src_rect.width = @sprites["trainer"].bitmap.width / 5
+    end
+
+    @sprites["trainer"].ox = @sprites["trainer"].src_rect.width / 2
+    @sprites["trainer"].oy = @sprites["trainer"].bitmap.height
+    @sprites["trainer"].z = 50
+    @sprites["trainer"].x = SPRITE_POSITION_X
+    @sprites["trainer"].y = SPRITE_POSITION_Y
+
+  end
+
+
+  def showFriendshipIcons
+    @friendship_icons&.each(&:dispose)
+    @friendship_icons = []
+    (@trainer.friendship_level || 0).times do |i|
+      sprite = IconSprite.new(0, 0, @viewport)
+      sprite.setBitmap(FRIENDSHIP_ICON)
+      sprite.x = FRIENDSHIP_ICON_START_X + i * (ICON_SIZE + FRIENDSHIP_ICON_GAP)
+      sprite.y = FRIENDSHIP_ICON_START_Y
+      sprite.z = 100002
+      @friendship_icons << sprite
+      @sprites["friendship_icon_#{i}"] = sprite
+    end
+  end
+
+  def showTrainerInfo
+    Kernel.pbClearText
+    showHeaderName
+
+    trainerClassName = GameData::TrainerType.get(@trainer.trainerType).name
+    trainerName = MessageTypes.getFromHash(MessageTypes::TrainerNames, @trainer.trainerName) || @trainer.trainerName
+    trainer_name = _INTL("{1} {2}", trainerClassName, trainerName)
+    level_sum = 0
+    if @trainer.currentTeam.size > 0
+      @trainer.currentTeam.each do |pokemon|
+        level_sum += pokemon.level
+      end
+      average_level = (level_sum / @trainer.currentTeam.length).round
+    else
+      average_level = _INTL("N/A")
+    end
+
+    location = @trainer.location
+    if @trainer.id == BATTLED_TRAINER_RIVAL_KEY
+      favorite_type = _INTL("All")
+    elsif @trainer.id == BATTLED_TRAINER_WALLY_KEY
+      favorite_type = _INTL("Unknown")
+    else
+      favorite_type = (GameData::Type.try_get(@trainer.favorite_type)&.name) || _INTL("Unknown")
+    end
+
+    Kernel.pbDisplayText(trainer_name, TITLE_TEXT_X, TITLE_TEXT_Y, 999999, @text_color_base, @text_color_shadow)
+    current_y = INFO_TEXT_START_Y
+    displayText(_INTL("Location:"), INFO_HEADER_X, current_y)
+    current_y += INFO_HEADER_GAP
+    displayValue(location, INFO_TEXT_X, current_y)
+
+    current_y += INFO_TEXT_GAP
+    displayText(_INTL("Average team level:"), INFO_HEADER_X, current_y)
+    current_y += INFO_HEADER_GAP
+    displayValue(average_level.to_s, INFO_TEXT_X, current_y)
+
+    current_y += INFO_TEXT_GAP
+    displayText(_INTL("Favorite type:"), INFO_HEADER_X, current_y)
+    current_y += INFO_HEADER_GAP
+    displayValue(favorite_type, INFO_TEXT_X, current_y)
+
+    trainer_data = GameData::Trainer.try_get(@trainer.trainerType, @trainer.trainerName, 0)
+    current_y += INFO_TEXT_GAP * 1.5
+    if @trainer.previous_random_events
+      action = getBestMatchingPreviousRandomEvent(trainer_data, @trainer.previous_random_events)
+      if action
+        case action.eventType
+        when :CATCH
+          action_text = _INTL("Recently caught a {1}.",
+                              GameData::Species.get(action.caught_pokemon).name)
+        when :EVOLVE
+          action_text = _INTL("Recently evolved their {1}.",
+                              GameData::Species.get(action.evolved_pokemon).name)
+        when :FUSE
+          action_text = _INTL("Recently fused their {1} and {2}\.",
+                              GameData::Species.get(action.fusion_head_pokemon).name,
+                              GameData::Species.get(action.fusion_body_pokemon).name)
+        when :UNFUSE
+          action_text = _INTL("Recently unfused their {1}.",
+                              GameData::Species.get(action.unfused_pokemon).name)
+        when :REVERSE
+          action_text = _INTL("Recently reversed their {1}.",
+                              GameData::Species.get(action.reversed_pokemon).name)
+        end
+      end
+    end
+    displayInfoText(current_y, trainer_data, action_text)
+  end
+
+  def displayInfoText(current_y, trainer_data, action_text = nil)
+    infoText = trainer_data&.infoText
+    if infoText || action_text
+      if infoText
+        full_text = infoText.gsub("___", "")
+        full_text = full_text.gsub("<PLAYER_NAME>", $Trainer.name)
+        full_text = "\"#{full_text}\"" unless full_text.empty?
+      end
+
+      max_width = SPRITE_POSITION_X - INFO_HEADER_X - 20
+      temp_bitmap = Bitmap.new(1, 1)
+      all_lines = full_text ? wrap_text(full_text, temp_bitmap, max_width) : []
+      temp_bitmap.dispose
+
+      @info_text_pages = all_lines.each_slice(INFO_TEXT_LINES_PER_PAGE).to_a
+
+      #insert action page as first
+      @info_text_pages.unshift([action_text]) if action_text
+      @info_text_page = @info_text_page.clamp(0, [@info_text_pages.size - 1, 0].max)
+
+      page_lines = @info_text_pages[@info_text_page] || []
+      page_lines.each do |line|
+        displayText(line, INFO_HEADER_X, current_y)
+        current_y += INFO_TEXT_GAP
+      end
+
+      if @info_text_pages.size > 1
+        indicator = "#{@info_text_page + 1} / #{@info_text_pages.size}"
+        displayText(indicator, Graphics.width - 80, 340)
+      end
+    else
+      @info_text_pages = []
+      @info_text_page = 0
+    end
+  end
+
+  def rebuildInfoTextPage(all_lines)
+    @info_text_pages = all_lines.each_slice(INFO_TEXT_LINES_PER_PAGE).to_a
+    @info_text_page = @info_text_page.clamp(0, [@info_text_pages.size - 1, 0].max)
+  end
+
+  def updateInput
+    if Input.trigger?(Input::UP)
+      change_trainer(-1)
+      pbSEPlay("GUI naming tab swap start")
+    elsif Input.trigger?(Input::DOWN)
+      change_trainer(1)
+      pbSEPlay("GUI naming tab swap start")
+    elsif Input.trigger?(Input::LEFT)
+      if @info_text_pages.size > 1 && @info_text_page > 0
+        @info_text_page -= 1
+        pbSEPlay("GUI naming tab swap start")
+        refresh_info_text
+      end
+    elsif Input.trigger?(Input::RIGHT)
+      if @info_text_pages.size > 1 && @info_text_page < @info_text_pages.size - 1
+        @info_text_page += 1
+        pbSEPlay("GUI naming tab swap start")
+        refresh_info_text
+      end
+    elsif Input.trigger?(Input::BACK)
+      pbPlayCloseMenuSE
+      @exiting = true
+      return
+    elsif Input.trigger?(Input::USE)
+      pbPlayDecisionSE
+      click(@buttons[@index]&.id)
+    end
+  end
+
+  # Re-renders only the info text area without rebuilding the whole scene.
+  def refresh_info_text
+    Kernel.pbClearText
+    showHeaderName
+    showTrainerInfo
+  end
+
+  def change_trainer(index_delta)
+    @info_text_page = 0
+    @info_text_pages = []
+    @screen.change_trainer(index_delta)
+    @sprites["trainer"]&.dispose
+    @friendship_icons&.each_with_index { |_, i| @sprites.delete("friendship_icon_#{i}") }
+    Kernel.pbClearText()
+    showTrainerSprite
+    showTrainerInfo
+    showFriendshipIcons
+  end
+
+  def displayText(text, x_position, y_position)
+    Kernel.pbDisplayText(text, x_position, y_position, nil, @text_color_base, @text_color_shadow, 3)
+  end
+
+  def displayValue(text, x_position, y_position)
+    Kernel.pbDisplayText(text, x_position, y_position, nil, @value_color_base, @value_color_shadow, 3)
+  end
+
+  # def Kernel.pbDisplayText(message,xposition,yposition,z=nil, baseColor=nil, shadowColor=nil,alignment=2)
+
+  def createCursor
+    return if $PokemonTemp.pokeradar
+    super
+  end
+
+  def click(button_id)
+    super
+    echoln @trainer.id
+    cmd_team = _INTL("View Team")
+    cmd_cancel = _INTL("Cancel")
+    commands = []
+    commands << cmd_team if @trainer.currentTeam.size > 0
+    commands << cmd_cancel
+    #choice = pbMessage(nil, commands, commands.size)
+    choice = pbShowCommands(nil, commands, commands.size, 0, 330,200)
+    case commands[choice]
+    when cmd_team
+      Kernel.pbClearText()
+      @screen.view_trainer_team(@trainer.id)
+      showTrainerInfo
+    end
+  end
+
+  def hover(button_id)
+    super
+  end
+
+  def pbEndScene
+    super
+    #Re-write the header name since going back to trainers list which has already been initialized
+    Kernel.pbDisplayText(header_name, Graphics.width/2 , HEADER_HEIGHT)
+  end
+end

Data/Scripts/053_PIF_Hoenn/PokeNav/Contacts/InfoPage/ContactsAppInfoPageScreen.rb

@@ -0,0 +1,54 @@
+class ContactsAppInfoPageScreen
+
+  def pbStartScreen(scene, trainer, trainers_list)
+    @trainers_list = trainers_list
+    @scene = scene
+    @index = get_current_index(trainer.id)
+    @scene.pbStartScene(self, trainer)
+    @scene.pbScene
+    @scene.pbEndScene
+    updateStatus
+  end
+
+  def updateStatus
+    trainer_id = @trainers_list[@index]
+    unless $Trainer.pokenav.viewed_trainers.include?(trainer_id)
+      $Trainer.pokenav.viewed_trainers << trainer_id
+    end
+  end
+
+  def view_trainer_team(trainer_id)
+    trainer = getRebattledTrainerFromKey(trainer_id)
+    if trainer
+      team = trainer.currentTeam
+      pbFadeOutIn {
+        scene = PokemonSummary_Scene.new
+        screen = PokemonSummaryScreen.new(scene)
+        screen.pbStartScreen(team, 0, false)
+      }
+    else
+      pbSEPlay("buzzer", 80)
+      pbWait(4)
+    end
+  end
+
+  def get_current_index(current_trainer_id)
+    @trainers_list.each_with_index do |trainer_id, i|
+      if trainer_id == current_trainer_id
+        return i
+      end
+    end
+    return 0
+  end
+
+  def change_trainer(delta)
+    new_index = @index + delta
+    new_index = @trainers_list.length - 1 if new_index >= @trainers_list.length
+    new_index = 0 if new_index < 0
+    @index = new_index
+
+    new_trainer_id = @trainers_list[new_index]
+    @scene.trainer = getRebattledTrainerFromKey(new_trainer_id)
+    updateStatus
+  end
+end