RPGXP - ENG - Retro-Styled Battle Result Window

#==============================================================================
# Retro-Styled Battle Result Window
# By gerkrt/gerrtunk
# Version: 1.1
# License: GPL, credits
# Date: 22/08/2011
# IMPORTANT NOTE: to acces the more actualitzed or corrected version of this
# script check here: http://usuarios.multimania.es/kisap/english_list.html
#==============================================================================

=begin

--------Introduction-----------

This scripts lets you use a retro styled battle result window, like FFVI for
example, where a small window on the top shows line per line the information.

But i expanded that. You can configure what you want to show or not and how it will
be shown, grouped or not, and what number of lines will have the window.

Finally you can use a wait key mode or a wait time one.

------Instructions-------------

First you have to select what you want to see. To do that use the option
Things_to_show. This is a list of codes so if the code is here that option
will be shown. The codes are:

:level_up, :gain_skill, :win_phrase, :gold, :exp, :treasures

Later you can configure the number of lines of the window in Lines_to_show.
The retro games used 1, but you can add more lines to the window so the
messages are shown faster.

Show_levels_in_one_line = true

These options define if for example it says , actor level up! actor level up!
or actor level up!(2). true/false, active and inactive.

------Vocabulary-----

The last options are the words the system show in the window. You can changue
that.

Also you can configure battle wins phrases for each enemy troop.

  Battle_wins_phrases = {
    2=>'Wep winned again2',
    3=>'Wep winned again3',
  }
Where X=> is the troop id number and 'text' is th eprharse, respect the syntax.
Note that exist a default option for the ones that dont have a entry here.

-----Compatibility----

You can desactivate the modification of the battle status windows, thats the one
used for draw character info in battle.

Modify_window_battle_status = false

=end

module Wep
  Show_levels_in_one_line = true
  Lines_to_show = 1
  Things_to_show = [:level_up, :gain_skill, :win_phrase, :gold, :exp, :treasures]
  Modify_window_battle_status = true
  Gain_level_phrase = ' level up'
  Gain_skill_phrase = ' learned'
  Gain_gold_phrase = ' gained.'
  Treasure_gain_phrase = ' gained.'
  Gain_exp_phrase = ' Exp gained.'
  Battle_win_default_phrase = 'Wep! You win!.'
  Battle_wins_phrases = {
    2=>'Wep winned again2',
    3=>'Wep winned again3',
  }

end


if Wep::Modify_window_battle_status
#==============================================================================
# ** Window_BattleStatus
#------------------------------------------------------------------------------
#  This window displays the status of all party members on the battle screen.
#==============================================================================

class Window_BattleStatus < Window_Base
   #--------------------------------------------------------------------------
  # * Refresh
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    @item_max = $game_party.actors.size
    for i in 0...$game_party.actors.size
      actor = $game_party.actors[i]
      actor_x = i * 160 + 4
      draw_actor_name(actor, actor_x, 0)
      draw_actor_hp(actor, actor_x, 32, 120)
      draw_actor_sp(actor, actor_x, 64, 120)
      if @level_up_flags[i]
        #self.contents.font.color = normal_color
        #self.contents.draw_text(actor_x, 96, 120, 32, "¡Sube Nivel!")
      else
        draw_actor_state(actor, actor_x, 96)
      end
    end
  end
end

end


#==============================================================================
# ** Window_BattleResult
#------------------------------------------------------------------------------
#  This window displays amount of gold and EXP acquired at the end of a battle.
#==============================================================================


class Window_BattleResult < Window_Base
  attr_reader   :messages_max
  attr_reader   :messages_index

  #--------------------------------------------------------------------------
  # * Object Initialization
  #     exp       : EXP
  #     gold      : amount of gold
  #     treasures : treasures
  #--------------------------------------------------------------------------
  def initialize(br)
    @br = br # get battle result
    @messages_index = 0 # shows the actual mesage of the window
    @messages = [] # array of mesages: exp, gold,e tc
    super(0, 0, 640,  (Wep::Lines_to_show * 32) + 32)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.y = 0
    self.back_opacity = 160
    self.visible = false
    generate_messages
    refresh
  end

  #--------------------------------------------------------------------------
  # * Generate messages
  # This extracts all the information of the battle result and push it in the
  # messages list as phrases
  #--------------------------------------------------------------------------
  def generate_messages
    i = 0

    # Win phrase
    if Wep::Things_to_show.include? :win_phrase
      if Wep::Battle_wins_phrases[$game_temp.battle_troop_id] != nil
        @messages.push Wep::Battle_wins_phrases[$game_temp.battle_troop_id]
      else
        @messages.push Wep::Battle_win_default_phrase
      end
    end

    # Gold & exp
    @messages.push @br.exp.to_s + Wep::Gain_exp_phrase if Wep::Things_to_show.include? :exp
    @messages.push @br.gold.to_s + ' ' + $data_system.words.gold + Wep::Gain_gold_phrase  if Wep::Things_to_show.include? :gold

    # Actors iteration
    for br_actor in @br.actors_data

        # Check diff so can gain levels or exp
        if br_actor.gained_levels > 0

          # LEVEL UP. If actived to show levelup, use configurated method
          if Wep::Things_to_show.include? :level_up
            if Wep::Show_levels_in_one_line
              @messages.push (br_actor.actor.name + ' ' + Wep::Gain_level_phrase +
              "(#{br_actor.gained_levels}).")
            else
              for lv in 0...br_actor.gained_levels
                @messages.push (br_actor.actor.name + ' ' + Wep::Gain_level_phrase)
              end
            end
          end


          # SKILL GAIN UP. If actived to show skill learn, use configurated method
          if Wep::Things_to_show.include? :gain_skill
             for skill_id in br_actor.gained_skills
                @messages.push (br_actor.actor.name + ' ' + Wep::Gain_skill_phrase + ' ' +
                   $data_skills[skill_id].name + '.')
              end

          end

        end

      i += 1
    end

    # Tesoros
    if Wep::Things_to_show.include? :treasures
      b = Hash.new(0) # use this hash to count duplicates

      # iterate over the array, counting duplicate entries
      @br.treasures.each do |v|
        b[v] += 1
      end

      b.each do |k, v|
        @messages.push k.name + '(' + v.to_s + ')' + Wep::Treasure_gain_phrase
      end
    end

  end

  #--------------------------------------------------------------------------
  # * Refresh
  # Refresh with new messages each time.
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    if @messages[@messages_index] != nil
      # Use lines configuration
      if Wep::Lines_to_show == 1
         self.contents.draw_text(0, 0, 640, 32, @messages[@messages_index])
      else
         for i in 0...Wep::Lines_to_show
           # It adds the line count to message index to show more lines
           if @messages[@messages_index + i] != nil
             self.contents.draw_text(0, i * 32, 640, 32, @messages[@messages_index + i])
           end
         end
      end
      @messages_index += Wep::Lines_to_show
    end
    # When false, it will end battle
    if @messages_index >= @messages.size - 1
      return false
    else
      return true
    end
  end

end


module Wep
  Scripts_list = [] unless defined? Scripts_list
  Scripts_list.push ('Retro-Styled Battle Result Window')
end


#==============================================================================
# Battle Result
# By gerkrt/gerrtunk
# Version: 1.0
# License: GPL, credits
# Date: 22/08/2011
# IMPORTANT NOTE: to acces the more actualitzed or corrected version of this
# script check here: http://usuarios.multimania.es/kisap/english_list.html
#==============================================================================

=begin

--------Introduction-----------

I created this class so anyone can easily create a custom or more advanced
battle result window. This object gives you all the information need in a simplier
way and without a lot of trouble. It creates a array of party actors with:

-Array of learned skills ids of each actor
-Gained levels
-Actor referen ce
-Origin and ending exp and levels
-All the default info(gold,etc)

------Instructions-------------

You just need to give to it the initial levels of the party. For that, i put
here the sample code i use in scene battle start_phase5

    initial_levels = []
    for ac in $game_party.actors
      initial_levels.push (ac.level)
    end

    You only have to pass that array.


=end



ResultActor = Struct.new( :actor, :origin_level,  :gained_skills,
  :gained_levels)

class Battle_Result

  attr_reader :actors_data
  attr_reader :exp
  attr_reader :gold
  attr_reader :treasures

  #--------------------------------------------------------------------------
  # * Initialize
  #--------------------------------------------------------------------------
  def initialize(initial_levels, exp, gold, treasures)
    @actors_initals_levels = initial_levels
    @exp = exp
    @gold = gold
    @treasures = treasures
    @actors_data = []
    generate_data(initial_levels)

    #p @messages
  end


  #--------------------------------------------------------------------------
  # * Generate data
  # This method generates the object data.
  #--------------------------------------------------------------------------
  def generate_data(initial_levels)
    i = 0
    # Actors gain level
    for actor in $game_party.actors
      @actors_data.push (ResultActor.new(actor, initial_levels[i],
      [], 0))
      count = 0
      # Valid actor?
      if actor.cant_get_exp? == false
        difference = actor.level - @actors_initals_levels[i]
        # Check diff so can gain levels or exp
        if difference > 0

          # LEVEL UP.
          @actors_data.last.gained_levels = difference

          # SKILL GAIN UP.
          for lv in 0...difference
            # If it have skills learning
            for lea in $data_classes[actor.class_id].learnings
              if lea.level ==  @actors_initals_levels[i] + lv
                @actors_data.last.gained_skills.push (lea.skill_id)
              end
            end
          end
        end
      end
      i += 1
    end
  end

end



module Wep
  Scripts_list = [] unless defined? Scripts_list
  Scripts_list.push ('Battle Result')
end



#==============================================================================
# ** Scene_Battle (part 1)
#------------------------------------------------------------------------------
#  This class performs battle screen processing.
#==============================================================================

class Scene_Battle
  #--------------------------------------------------------------------------
  # * Main Processing
  #--------------------------------------------------------------------------
  alias wep_rbr_sb_main main
  def main
    @br_mark_end = false
    wep_rbr_sb_main
  end

  #--------------------------------------------------------------------------
  # * Start After Battle Phase
  # moded to extract initial levels and call battle result
  #--------------------------------------------------------------------------
  def start_phase5
    # Obtain extra info for battle result object
    initial_levels = []
    for ac in $game_party.actors
      initial_levels.push (ac.level)
    end
    # Shift to phase 5
    @phase = 5
    # Play battle end ME
    $game_system.me_play($game_system.battle_end_me)
    # Return to BGM before battle started
    $game_system.bgm_play($game_temp.map_bgm)
    # Initialize EXP, amount of gold, and treasure
    exp = 0
    gold = 0
    treasures = []
    # Loop
    for enemy in $game_troop.enemies
      # If enemy is not hidden
      unless enemy.hidden
        # Add EXP and amount of gold obtained
        exp += enemy.exp
        gold += enemy.gold
        # Determine if treasure appears
        if rand(100) < enemy.treasure_prob
          if enemy.item_id > 0
            treasures.push($data_items[enemy.item_id])
          end
          if enemy.weapon_id > 0
            treasures.push($data_weapons[enemy.weapon_id])
          end
          if enemy.armor_id > 0
            treasures.push($data_armors[enemy.armor_id])
          end
        end
      end
    end
    # Treasure is limited to a maximum of 6 items
    treasures = treasures[0..5]
    # Obtaining EXP
    for i in 0...$game_party.actors.size
      actor = $game_party.actors[i]
      if actor.cant_get_exp? == false
        last_level = actor.level
        actor.exp += exp
        if actor.level > last_level
          @status_window.level_up(i)
        end
      end
    end
    # Obtaining gold
    $game_party.gain_gold(gold)
    # Obtaining treasure
    for item in treasures
      case item
      when RPG::Item
        $game_party.gain_item(item.id, 1)
      when RPG::Weapon
        $game_party.gain_weapon(item.id, 1)
      when RPG::Armor
        $game_party.gain_armor(item.id, 1)
      end
    end
    # Make battle result
    br = Battle_Result.new(initial_levels, exp, gold, treasures)
    @result_window = Window_BattleResult.new(br)
    # Set wait count
    @phase5_wait_count = 100
  end

  #--------------------------------------------------------------------------
  # * Frame Update (after battle phase)
  # moded so refresh battle result each time until it ends
  #--------------------------------------------------------------------------
  def update_phase5
    # If wait count is larger than 0
    if @phase5_wait_count > 0
      # Decrease wait count
      @phase5_wait_count -= 1
      # If wait count reaches 0
      if @phase5_wait_count == 0
        # Show result window
        @result_window.visible = true
        # Clear main phase flag
        $game_temp.battle_main_phase = false
        # Refresh status window
        @status_window.refresh
      end
      return
    end



    # If C button was pressed advance battleresutl info
    if Input.trigger?(Input::C)

     # Battle end only if +1 refresh of the window,so, the last have to
     # be pressed
     if @br_mark_end
       battle_end(0)
     end

     if not @result_window.refresh
       @br_mark_end = true
     end

    end

  end
end