DATOS DE BATALLA

Código:

#===============================
#  Window_BattleStatistics VX
#  by Kyonides-Arkanthos alias Kyonides, Shadowball
#  v 1.0.2 - 03.25.2010
#  v 1.0.1 - 12.27.2009
#  v 1.0.0 - 02.06.2008
#===============================
module KyoBattleStats
  @@kyon_stats = [0,0,0,0] # Battles Total, Won, Lost, Escaped
 
  def self.kyon_stats; return @@kyon_stats end
 
  def self.kyon_stats=(value); @@kyon_stats = value end
end

class Window_BattleStatistics < Window_Base
  include KyoBattleStats
  def initialize(x=0, y=244)
    super(x, y, 160, 116)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.z = 104
    refresh
  end

  def refresh
    self.contents.clear
    self.contents.font.size = 16
    self.contents.font.bold = true
    self.contents.font.color = system_color
    self.contents.draw_text(0, 0, 120, 18, 'Total Battles')
    self.contents.draw_text(0, 14, 120, 32, 'Battles Won')
    self.contents.draw_text(0, 36, 120, 32, 'Battles Lost')
    self.contents.draw_text(0, 58, 120, 32, 'Escaped')
    self.contents.font.size = 18
    self.contents.font.color = normal_color
    self.contents.draw_text(4, -4, 124, 24, @@kyon_stats[0].to_s, 2) # Total
    self.contents.draw_text(4, 14, 124, 32, @@kyon_stats[1].to_s, 2) # Won
    self.contents.draw_text(4, 36, 124, 32, @@kyon_stats[3].to_s, 2) # Lost
    self.contents.draw_text(4, 58, 124, 32, @@kyon_stats[2].to_s, 2) # Escaped
  end
 
  def show_stats(value);
    @@kyon_stats[0] += 1; @@kyon_stats[value] += 1; refresh; self.visible = true
  end
end

#  *  Scene_Menu Mod
class Scene_Menu
  include KyoBattleStats
  alias :kyon_battle_stats_scene_menu_main :main
  alias :kyon_battle_stats_scene_menu_up :update
 
  def main
    @battle_stats = Window_BattleStatistics.new
    kyon_battle_stats_scene_menu_main
    @battle_stats.dispose
  end
 
  def update
    kyon_battle_stats_scene_menu_up
    # Press Q or PageUp key to make the window appear / disappear
    if Input.trigger?(Input::L)
      @battle_stats.visible = @battle_stats.visible ? false : true
    end
  end
end

#  *  Scene_File Mod
class Scene_File
  include KyoBattleStats
  alias :kyon_battle_stats_scene_file_write_save_data :write_save_data
  alias :kyon_battle_stats_scene_file_read_save_data :read_save_data
 
  def write_save_data(file)
    kyon_battle_stats_scene_file_write_save_data(file)
    Marshal.dump(@@kyon_stats, file) # You'll need to save these variable
  end

  def read_save_data(file)
    kyon_battle_stats_scene_file_read_save_data(file)
    # You'll need to load this variable if you'd like to continue playing...
    @@kyon_stats = [0,0,0,0] if file.eof?
    @@kyon_stats = Marshal.load(file) if !file.eof?
  end
end

#  *  Scene_Battle Mod
class Scene_Battle
  include KyoBattleStats
  alias :kyon_battle_stats_scene_battle_c_info_view :create_info_viewport
  alias :kyon_battle_stats_scene_battle_d_info_view :dispose_info_viewport
  alias :kyon_battle_stats_scene_battle_process_defeat :process_defeat
  def create_info_viewport
    kyon_battle_stats_scene_battle_c_info_view
    @battle_stats = Window_BattleStatistics.new(192,24)
    @battle_stats.visible = false
  end
 
  def dispose_info_viewport
    kyon_battle_stats_scene_battle_d_info_view
    @battle_stats.dispose
  end
 
  def process_escape
    @info_viewport.visible = false
    @message_window.visible = true
    text = sprintf(Vocab::EscapeStart, $game_party.name)
    $game_message.texts.push(text)
    if $game_troop.preemptive
      success = true
    else
      success = (rand(100) < @escape_ratio)
    end
    Sound.play_escape
    if success
      @battle_stats.show_stats(2) # Escape
      wait_for_message
      battle_end(1)
    else
      @escape_ratio += 10
      $game_message.texts.push('\.' + Vocab::EscapeFailure)
      wait_for_message
      $game_party.clear_actions
      start_main
    end
  end
 
  def process_victory
    @info_viewport.visible = false
    @message_window.visible = true
    RPG::BGM.stop
    $game_system.battle_end_me.play
    unless $BTEST
      $game_temp.map_bgm.play
      $game_temp.map_bgs.play
    end
    @battle_stats.show_stats(1) # Victory
    display_exp_and_gold
    display_drop_items
    display_level_up
    battle_end(0)
  end
 
  def process_defeat
    @battle_stats.show_stats(3) # Defeat
    kyon_battle_stats_scene_battle_process_defeat
  end
end

ED Black Caos escribió:no me funciono ese script