ТЕМА: [MV] Custom Progress Bar - есть ли такой ?

# Window_Gauge (2013/ 1/ 9)
#______________________________________________________________________________
 
module FreeGauge
 
# 色の指定  (  Color.new(R,G,B)  または \C[n] の  n (数値) で指定 )
 
  COLOR1       = Color.new(165, 156, 245)  # 左端の色
  COLOR2       = Color.new(73, 55, 236)  # 右端の色
  FILLED_COLOR = Color.new(73, 55, 236)  # 満タン時の色
end
#______________________________________________________________________________
 
 
class Game_Interpreter
  def draw_gauge(r, x = nil, y = nil, z = nil)
    scene = SceneManager.scene
    return unless scene.is_a?(Scene_Battle)
 
    window = scene.gauge_window
    window.x = x  if x
    window.y = y  if y
    window.z = z  if z
    window.gauge_rate = r
  end
  #--------------------------------------------------------------------------
  def show_gauge
    scene = SceneManager.scene
    return unless scene.is_a?(Scene_Battle)
 
    scene.gauge_window.show
  end
  #--------------------------------------------------------------------------
  def hide_gauge
    scene = SceneManager.scene
    return unless scene.is_a?(Scene_Battle)
 
    scene.gauge_window.hide
  end
  #--------------------------------------------------------------------------
  def change_gauge_color(color, i)
    scene = SceneManager.scene
    return unless scene.is_a?(Scene_Battle)
 
    case i
      when 1; scene.gauge_window.gauge_color1 = color
      when 2; scene.gauge_window.gauge_color2 = color
      when 3; scene.gauge_window.filled_color = color
    end
  end
end
 
class Window_Gauge < Window_Base
  attr_reader   :gauge_rate
  attr_writer   :gauge_color1
  attr_writer   :gauge_color2
  attr_writer   :filled_color
 
  def initialize(x = 0, y = 0, width = 160, height = 48)
    super
    self.hide.opacity = 0
 
    @gauge_rate = 0.0
 
    @gauge_color1 = FreeGauge::COLOR1.clone
    @gauge_color2 = FreeGauge::COLOR2.clone
    @filled_color = FreeGauge::FILLED_COLOR.clone
  end
  #--------------------------------------------------------------------------
  def gauge_rate=(r)
    return if @gauge_rate == r
 
    @gauge_rate = r
    refresh
  end
  #--------------------------------------------------------------------------
  def gauge_color1
    return filled_color               if @gauge_rate >= 1.0
    return text_color(@gauge_color1)  if @gauge_color1.is_a?(Integer)
    return @gauge_color1
  end
  #--------------------------------------------------------------------------
  def gauge_color2
    return filled_color               if @gauge_rate >= 1.0
    return text_color(@gauge_color2)  if @gauge_color2.is_a?(Integer)
    return @gauge_color2
  end
  #--------------------------------------------------------------------------
  def filled_color
    return text_color(@filled_color)  if @filled_color.is_a?(Integer)
    return @filled_color
  end
  #--------------------------------------------------------------------------
  def refresh
    contents.clear
    draw_gauge(0, 0, contents_width, gauge_rate, gauge_color1, gauge_color2)
  end
end
 
class Scene_Battle < Scene_Base
  attr_reader   :gauge_window
 
  alias window_gauge__create_all_windows  create_all_windows
  def create_all_windows
    window_gauge__create_all_windows
 
    @gauge_window = Window_Gauge.new
  end
end

r = $game_variables[6] / 100.0
draw_gauge(r, 200, 30)
show_gauge
 
$window.create_contents
text1 = $game_variables[6]
text2 = "%"
$window.draw_text(4,0,100,24,text1)
$window.draw_text(32,0,100,24,text2)