=begin
  変数通貨　ver0.0.0.1
　　　　　　　　by 半生
    http://www.tktkgame.com/
    http://www11.atpages.jp/namahanka/

=end
module HN
  module VarMoney
    VAR_MODE  = 21 # 変数通貨モード設定用変数No
    MODE_SET ={
    #モードNo => [変数No,"単位"]
      1 => [22, "ガバス"],
      2 => [23, "ゼニー"],
      3 => [24, "円"],
    }
  end
end

class Game_Party
  alias :_hn_var_money__gold :gold unless method_defined?(:_hn_var_money__gold)
  def gold
    money_mode = $game_variables[HN::VarMoney::VAR_MODE]
    if HN::VarMoney::MODE_SET.key?(money_mode)
      var_no = HN::VarMoney::MODE_SET[money_mode][0]
      $game_variables[var_no]
    else
      _hn_var_money__gold()
    end
  end

  alias :_hn_var_money__gain_gold :gain_gold unless method_defined?(:_hn_var_money__gain_gold)
  def gain_gold(n)
    money_mode = $game_variables[HN::VarMoney::VAR_MODE]
    if HN::VarMoney::MODE_SET.key?(money_mode)
      var_no = HN::VarMoney::MODE_SET[money_mode][0]
      $game_variables[var_no] = [[self.gold + n, 0].max, 9999999].min
    else
      _hn_var_money__gain_gold(n)
    end
  end
end

module Vocab
  class << self
    alias :_hn_var_money__gold :gold unless method_defined?(:_hn_var_money__gold)
    def gold
      money_mode = $game_variables[HN::VarMoney::VAR_MODE]
      if HN::VarMoney::MODE_SET.key?(money_mode)
        HN::VarMoney::MODE_SET[money_mode][1]
      else
        _hn_var_money__gold()
      end
    end
  end
end