=begin
● 数値の桁区切り描画 ver1.0-------------------------------------(c)光の軌想曲

　通貨や各種パラメータ、ダメージといった数値を
　３桁ごとの桁区切り形式で表示させることができます。

　○つかいかた
　カスタマイズポイントにて桁区切りの文字と適用範囲を設定してください。
　他に特別な操作は必要ありません。

  ○競合の可能性：他の描画系素材や、パラメータを弄る素材と競合の可能性あり。
  　　　　　　　　▼ 素材 の中で、できるだけ上に導入してください。
  　　　　　　　　Window_Base, Window_EquipStatus, Window_Status,
                  Window_ShopBuy, Scene_Battle に再定義があります。
                  （競合した場合：
                  　再定義メソッドの書き換えた所に # を付けてあります。
                  　それを参考に各自で頑張ってくださいm(__)m
  
  ○更新履歴
  2010/ 7/18 ver1.0公開
  
=end
#----------------------------------------------------------------------------
# ↓カスタマイズポイント

module MAZ
  
  # 桁区切りに使用する文字(列)
  SEP_CHAR = ","
  
  # 通貨に桁区切りを適用する
  SEP_CURRENCY = true
  # Lv,HP,MP,能力値,経験値に桁区切りを適用する
  SEP_PARAMETER = true
  # 戦闘中のダメージに桁区切りを適用する
  SEP_DAMAGE = true

end

# ↑カスタマイズポイントおわり
#----------------------------------------------------------------------------

module MAZ
module Fun
  #--------------------------------------------------------------------------
  # ● 数値の桁区切り形式の文字列を返す
  #--------------------------------------------------------------------------
  def thou_sep(num)
    return num unless num.is_a?(Integer)
    s = num.to_s.reverse
    length = s.length
    length -= 1 if num < 0
    i = 3
    while i <length do
      s.insert(i, MAZ::SEP_CHAR)
      i += 4 ; length += 1
    end
    return s.reverse    
  end

end
end

#==============================================================================
# ■ Window_Base
#------------------------------------------------------------------------------
# 　ゲーム中のすべてのウィンドウのスーパークラスです。
#==============================================================================

class Window_Base < Window
  
  include MAZ::Fun
  #--------------------------------------------------------------------------
  # ● レベルの描画 (※再定義)
  #     actor : アクター
  #     x     : 描画先 X 座標
  #     y     : 描画先 Y 座標
  #--------------------------------------------------------------------------
  alias sep_draw_actor_level draw_actor_level
  def draw_actor_level(actor, x, y)
    if MAZ::SEP_PARAMETER
      self.contents.font.color = system_color
      self.contents.draw_text(x, y, 32, WLH, Vocab::level_a)
      self.contents.font.color = normal_color
      self.contents.draw_text(x + 32, y, 24, WLH, thou_sep(actor.level), 2) #
    else
      sep_draw_actor_level(actor, x, y)
    end
  end
  #--------------------------------------------------------------------------
  # ● HP の描画 (※再定義)
  #     actor : アクター
  #     x     : 描画先 X 座標
  #     y     : 描画先 Y 座標
  #     width : 幅
  #--------------------------------------------------------------------------
  alias sep_draw_actor_hp draw_actor_hp
  def draw_actor_hp(actor, x, y, width = 120)
    if MAZ::SEP_PARAMETER
      draw_actor_hp_gauge(actor, x, y, width)
      self.contents.font.color = system_color
      self.contents.draw_text(x, y, 30, WLH, Vocab::hp_a)
      self.contents.font.color = hp_color(actor)
      xr = x + width
      if width < 120
        self.contents.draw_text(xr - 50, y, 50, WLH, thou_sep(actor.hp), 2) #
      else
        self.contents.draw_text(xr - 110, y, 50, WLH, thou_sep(actor.hp), 2) #
        self.contents.font.color = normal_color
        self.contents.draw_text(xr - 60, y, 10, WLH, "/", 2) #
        self.contents.draw_text(xr - 50, y, 50, WLH, thou_sep(actor.maxhp), 2) #
      end
    else
      sep_draw_actor_hp(actor, x, y, width)
    end
  end
  #--------------------------------------------------------------------------
  # ● MP の描画 (※再定義)
  #     actor : アクター
  #     x     : 描画先 X 座標
  #     y     : 描画先 Y 座標
  #     width : 幅
  #--------------------------------------------------------------------------
  alias sep_draw_actor_mp draw_actor_mp
  def draw_actor_mp(actor, x, y, width = 120)
    if MAZ::SEP_PARAMETER
      draw_actor_mp_gauge(actor, x, y, width)
      self.contents.font.color = system_color
      self.contents.draw_text(x, y, 30, WLH, Vocab::mp_a)
      self.contents.font.color = mp_color(actor)
      xr = x + width
      if width < 120
        self.contents.draw_text(xr - 50, y, 50, WLH, thou_sep(actor.mp), 2) #
      else
        self.contents.draw_text(xr - 110, y, 50, WLH, thou_sep(actor.mp), 2) #
        self.contents.font.color = normal_color
        self.contents.draw_text(xr - 60, y, 10, WLH, "/", 2) #
        self.contents.draw_text(xr - 50, y, 50, WLH, thou_sep(actor.maxmp), 2) #
      end
    else
      sep_draw_actor_mp(actor, x, y, width)
    end
  end
  #--------------------------------------------------------------------------
  # ● 能力値の描画 (※再定義)
  #     actor : アクター
  #     x     : 描画先 X 座標
  #     y     : 描画先 Y 座標
  #     type  : 能力値の種類 (0〜3)
  #--------------------------------------------------------------------------
  alias sep_draw_actor_parameter draw_actor_parameter
  def draw_actor_parameter(actor, x, y, type)
    if MAZ::SEP_PARAMETER
      case type
      when 0
        parameter_name = Vocab::atk
        parameter_value = actor.atk
      when 1
        parameter_name = Vocab::def
        parameter_value = actor.def
      when 2
        parameter_name = Vocab::spi
        parameter_value = actor.spi
      when 3
        parameter_name = Vocab::agi
        parameter_value = actor.agi
      end
      self.contents.font.color = system_color
      self.contents.draw_text(x, y, 120, WLH, parameter_name)
      self.contents.font.color = normal_color
      self.contents.draw_text(x + 120, y, 36, WLH, thou_sep(parameter_value), 2) #
    else
      sep_draw_actor_parameter(actor, x, y, type)
    end
  end
  #--------------------------------------------------------------------------
  # ● 通貨単位つきの数値描画 (※再定義)
  #     value : 数値 (所持金など)
  #     x     : 描画先 X 座標
  #     y     : 描画先 Y 座標
  #     width : 幅
  #--------------------------------------------------------------------------
  alias sep_draw_currency_value draw_currency_value
  def draw_currency_value(value, x, y, width)
    if MAZ::SEP_CURRENCY
      cx = contents.text_size(Vocab::gold).width
      self.contents.font.color = normal_color
      self.contents.draw_text(x, y, width-cx-2, WLH, thou_sep(value), 2) #
      self.contents.font.color = system_color
      self.contents.draw_text(x, y, width, WLH, Vocab::gold, 2)
    else
      sep_draw_currency_value(value, x, y, width)
    end
  end
  
end
#==============================================================================
# ■ Window_EquipStatus
#------------------------------------------------------------------------------
# 　装備画面で、アクターの能力値変化を表示するウィンドウです。
#==============================================================================

class Window_EquipStatus < Window_Base
  #--------------------------------------------------------------------------
  # ● 能力値の描画 (※再定義)
  #     x    : 描画先 X 座標
  #     y    : 描画先 Y 座標
  #     type : 能力値の種類 (0〜3)
  #--------------------------------------------------------------------------
  alias sep_draw_parameter draw_parameter
  def draw_parameter(x, y, type)
    if MAZ::SEP_PARAMETER
      case type
      when 0
        name = Vocab::atk
        value = @actor.atk
        new_value = @new_atk
      when 1
        name = Vocab::def
        value = @actor.def
        new_value = @new_def
      when 2
        name = Vocab::spi
        value = @actor.spi
        new_value = @new_spi
      when 3
        name = Vocab::agi
        value = @actor.agi
        new_value = @new_agi
      end
      self.contents.font.color = system_color
      self.contents.draw_text(x + 4, y, 80, WLH, name)
      self.contents.font.color = normal_color
      self.contents.draw_text(x + 90, y, 30, WLH, value, 2)
      self.contents.font.color = system_color
      self.contents.draw_text(x + 122, y, 20, WLH, "→", 1)
      if new_value != nil
        self.contents.font.color = new_parameter_color(value, new_value)
        self.contents.draw_text(x + 142, y, 30, WLH, thou_sep(new_value), 2) #
      end
    else
      sep_draw_parameter(x, y, type)
    end
    
  end
end
#==============================================================================
# ■ Window_Status
#------------------------------------------------------------------------------
# 　ステータス画面で表示する、フル仕様のステータスウィンドウです。
#==============================================================================

class Window_Status < Window_Base
  #--------------------------------------------------------------------------
  # ● 経験値情報の描画 (※再定義)
  #     x : 描画先 X 座標
  #     y : 描画先 Y 座標
  #--------------------------------------------------------------------------
  alias sep_draw_exp_info draw_exp_info
  def draw_exp_info(x, y)
    if MAZ::SEP_PARAMETER
      s1 = @actor.exp_s
      s2 = @actor.next_rest_exp_s
      s_next = sprintf(Vocab::ExpNext, Vocab::level)
      self.contents.font.color = system_color
      self.contents.draw_text(x, y + WLH * 0, 180, WLH, Vocab::ExpTotal)
      self.contents.draw_text(x, y + WLH * 2, 180, WLH, s_next)
      self.contents.font.color = normal_color
      self.contents.draw_text(x, y + WLH * 1, 180, WLH, thou_sep(s1), 2) #
      self.contents.draw_text(x, y + WLH * 3, 180, WLH, thou_sep(s2), 2) #
    else
      sep_draw_exp_info(x, y)
    end
  end
end
#==============================================================================
# ■ Window_ShopBuy
#------------------------------------------------------------------------------
# 　ショップ画面で、購入できる商品の一覧を表示するウィンドウです。
#==============================================================================

class Window_ShopBuy < Window_Selectable
  #--------------------------------------------------------------------------
  # ● 項目の描画 (※再定義)
  #     index : 項目番号
  #--------------------------------------------------------------------------
  alias sep_draw_item draw_item
  def draw_item(index)
    if MAZ::SEP_CURRENCY
      item = @data[index]
      number = $game_party.item_number(item)
      enabled = (item.price <= $game_party.gold and number < 99)
      rect = item_rect(index)
      self.contents.clear_rect(rect)
      draw_item_name(item, rect.x, rect.y, enabled)
      rect.width -= 4
      self.contents.draw_text(rect, thou_sep(item.price), 2) #
    else
      sep_draw_item(index)
    end
  end
end
#==============================================================================
# ■ Scene_Battle
#------------------------------------------------------------------------------
# 　バトル画面の処理を行うクラスです。
#==============================================================================

class Scene_Battle < Scene_Base
  include MAZ::Fun
  #--------------------------------------------------------------------------
  # ● 獲得した経験値とお金の表示
  #--------------------------------------------------------------------------
  alias sep_display_exp_and_gold display_exp_and_gold
  def display_exp_and_gold
    if MAZ::SEP_CURRENCY
      exp = $game_troop.exp_total
      gold = $game_troop.gold_total
      $game_party.gain_gold(gold)
      text = sprintf(Vocab::Victory, $game_party.name)
      $game_message.texts.push('\|' + text)
      if exp > 0
        text = sprintf(Vocab::ObtainExp, thou_sep(exp)) #
        $game_message.texts.push('\.' + text)
      end
      if gold > 0
        text = sprintf(Vocab::ObtainGold, thou_sep(gold), Vocab::gold) #
        $game_message.texts.push('\.' + text)
      end
      wait_for_message
    else
      sep_display_exp_and_gold
    end
  end
  #--------------------------------------------------------------------------
  # ● HP ダメージ表示
  #     target : 対象者
  #     obj    : スキルまたはアイテム
  #--------------------------------------------------------------------------
  alias sep_display_hp_damage display_hp_damage
  def display_hp_damage(target, obj = nil)
    if MAZ::SEP_DAMAGE
      if target.hp_damage == 0                # ノーダメージ
        return if obj != nil and obj.damage_to_mp
        return if obj != nil and obj.base_damage == 0
        fmt = target.actor? ? Vocab::ActorNoDamage : Vocab::EnemyNoDamage
        text = sprintf(fmt, target.name)
      elsif target.absorbed                   # 吸収
        fmt = target.actor? ? Vocab::ActorDrain : Vocab::EnemyDrain
        text = sprintf(fmt, target.name, Vocab::hp, thou_sep(target.hp_damage))
      elsif target.hp_damage > 0              # ダメージ
        if target.actor?
          text = sprintf(Vocab::ActorDamage, target.name, thou_sep(target.hp_damage)) #
          Sound.play_actor_damage
          $game_troop.screen.start_shake(5, 5, 10)
        else
          text = sprintf(Vocab::EnemyDamage, target.name, thou_sep(target.hp_damage)) #
          Sound.play_enemy_damage
          target.blink = true
        end
      else
        # 回復
        fmt = target.actor? ? Vocab::ActorRecovery : Vocab::EnemyRecovery
        text = sprintf(fmt, target.name, Vocab::hp, thou_sep(-target.hp_damage)) #
        Sound.play_recovery
      end
      
      @message_window.add_instant_text(text)
      wait(30)
    else
      sep_display_hp_damage(target, obj)
    end
    
  end
  #--------------------------------------------------------------------------
  # ● MP ダメージ表示
  #     target : 対象者
  #     obj    : スキルまたはアイテム
  #--------------------------------------------------------------------------
  alias sep_display_mp_damage display_mp_damage
  def display_mp_damage(target, obj = nil)
    if MAZ::SEP_DAMAGE
      return if target.dead?
      return if target.mp_damage == 0
      if target.absorbed                      # 吸収
        fmt = target.actor? ? Vocab::ActorDrain : Vocab::EnemyDrain
        text = sprintf(fmt, target.name, Vocab::mp, thou_sep(target.mp_damage)) #
      elsif target.mp_damage > 0              # ダメージ
        fmt = target.actor? ? Vocab::ActorLoss : Vocab::EnemyLoss
        text = sprintf(fmt, target.name, Vocab::mp, thou_sep(target.mp_damage)) #
      else# 回復
        fmt = target.actor? ? Vocab::ActorRecovery : Vocab::EnemyRecovery
        text = sprintf(fmt, target.name, Vocab::mp, thou_sep(-target.mp_damage)) #
        Sound.play_recovery
      end
      @message_window.add_instant_text(text)
      wait(30)
    else
      sep_display_mp_damage(target, obj)
    end
  end
end