=begin
================================================================================
                        Variable Gauges v1.1
                            by wltr3565
================================================================================
One of my "assignments" as my team's scripter. He needs a script for showing
variables. So I made this one.
================================================================================
Features:
- Very high control in mid-game.
- Easy to use, maybe.
- Animative gauge HUD.
- Can be more than one, in a bulking way!
================================================================================
How it will work:
The gauge you called will adapt with the assigned variable.
================================================================================
How to Use:

First, to make the gauge to pop out, enter this in the script command:
  $game_system.make_new_gauge(id, color, max, x, y, width, height)
The id represents the variable's id.
Color represents the color of the gauge in
this format:
  Color.new(red, green, blue)
The red, green, and blue are the usement for the colors.

Max represents the maximum value for the gauge to be full.
x represents the gauge's x position.
y represents the gauge's y position.
width represents the gauge's width.
height represents the gauge's tall.

You can alter the gauge's property by entering this in the script command:
  $game_system.gauge_list[id].property = new_value
The id is the variable id of the gauge.
Property is the gauge's property like color, max, x, y, width, and height. They
can change in real time.
The new value is the new value of the assigned property.
Example:
  $game_system.gauge_list[8].height = 416
The code above will make the existing gauge for variable 8 to fill the entire
screen vertically.

To make the gauge to disappear, enter this:
  $game_system.gauge_list[id].gauge_dispose
That will get rid of gauge for variable with id.
Example:
  $game_system.gauge_list[8].gauge_dispose
That will get rid of gauge for variable id 8.
================================================================================
Install:
Insert this above main.
================================================================================
Terms of Use:
Credit me, wltr3565, or not is up to you. Just don't claim that this is made by
you, and crediting me will be nice.
================================================================================
Thanks:
Kuro Creator: My boss.
================================================================================
=end
#===============================================================================
#  COMMENCING COMPATIBILITY FLAG
#===============================================================================
$imported = {} if $imported == nil
$imported["wltr3565's_Variable_Gauges"] = true
#===============================================================================
#  END COMPATIBILITY FLAG
#===============================================================================
module WLTR
  module VARIABLE_GAUGES
#===============================================================================
# Configure the gauge's increasing and decreasing speed here. The bigger the
# value, the faster it will change per frame.
    ALTER_SPEED = 3
  end
end

#===============================================================================
# Touching below will be dangerous without proper skill of scripting. Therefor,
# edit and read at your own risk.
#===============================================================================

class Game_System
  attr_accessor  :gauge_list
 
  alias gauges_initialize initialize
  def initialize
    gauges_initialize
   
    @gauge_list = []
    $gauges = []
  end
 
  def make_new_gauge(id, color, max, x, y, width, height)
    @gauge_list[id] = Game_Variable_List.new(id, color, max, x, y, width, height)
  end
end

class Scene_Map < Scene_Base
  alias gauge_repop start
  def start
    gauge_repop
   
    for i in $game_system.gauge_list
      next if i == nil
      i.refresh(i.id, i.color, i.max, i.x, i.y, i.width, i.height)
    end
  end
 
  alias update_gauges_hud update
  def update
    update_gauges_hud
   
    for i in $game_system.gauge_list
      next if i == nil
      i.update
    end
  end
 
  alias reupdate_gauges update_transfer_player
  def update_transfer_player
    return unless $game_player.transfer?
    reupdate_gauges
   
    for i in $game_system.gauge_list
      next if i == nil
      i.refresh(i.id, i.color, i.max, i.x, i.y, i.width, i.height)
    end
  end
end

class Game_Variable_List
  def initialize(id, color, max, x, y, width, height)
    refresh(id, color, max, x, y, width, height)
  end
 
  def id
    return @id
  end
 
  def id=(value)
    @id = value
    refresh(@id, @color, @max, @x, @y, @width, @height)
  end
 
  def color
    return @color
  end
 
  def color=(value)
    @color = value
    refresh(@id, @color, @max, @x, @y, @width, @height)
  end
 
  def x
    return @x
  end
 
  def x=(value)
    @x = value
    refresh(@id, @color, @max, @x, @y, @width, @height)
  end
 
  def y
    return @y
  end
 
  def y=(value)
    @y = value
    refresh(@id, @color, @max, @x, @y, @width, @height)
  end
 
  def max
    return @max
  end
 
  def max=(value)
    @max = value
    refresh(@id, @color, @max, @x, @y, @width, @height)
  end
 
  def width
    return @width
  end
 
  def width=(value)
    @width = value
    refresh(@id, @color, @max, @x, @y, @width, @height)
  end
 
  def height
    return @height
  end
 
  def height=(value)
    @height = value
    refresh(@id, @color, @max, @x, @y, @width, @height)
  end
 
  def refresh(id, color, max, x, y, width, height)
    @id = id
    @color = color
    @max = max
    @y = y
    @x = x
    @width = width
    @height = height
    $gauges[@id] = Sprite_Variable.new(@id, @color, @max, @x, @y, @width, @height)
  end
 
  def update
    return if $gauges == nil
    $gauges[@id].update
  end
 
  def dispose_gauge
    $gauges[@id].dispose
  end
end

class Sprite_Variable < Sprite
  def initialize(id, color, max, x, y, width, height)
    super(Viewport.new(0, 0, 544, 416))
    refresh(id, color, max, x, y, width, height)
  end
 
  def id
    return @id
  end
 
  def id=(value)
    @id = value
    refresh(@id, @color, @max, @x, @y, @width, @height)
  end
 
  def color
    return @color
  end
 
  def color=(value)
    @color = value
    refresh(@id, @color, @max, @x, @y, @width, @height)
  end
 
  def x
    return @x
  end
 
  def x=(value)
    @x = value
    refresh(@id, @color, @max, @x, @y, @width, @height)
  end
 
  def y
    return @y
  end
 
  def y=(value)
    @y = value
    refresh(@id, @color, @max, @x, @y, @width, @height)
  end
 
  def max
    return @max
  end
 
  def max=(value)
    @max = value
    refresh(@id, @color, @max, @x, @y, @width, @height)
  end
 
  def width
    return @width
  end
 
  def width=(value)
    @width = value
    refresh(@id, @color, @max, @x, @y, @width, @height)
  end
 
  def height
    return @height
  end
 
  def height=(value)
    @height = value
    refresh(@id, @color, @max, @x, @y, @width, @height)
  end
 
  def refresh(id, color, max, x, y, width, height)
    @gauge_skin.dispose if @gauge_skin != nil
    @gauge.dispose if @gauge != nil
    @id = id
    @color = color
    @max = max
    @y = y
    @x = x
    @width = width
    @height = height
    @gauge_skin = Sprite.new(Viewport.new(0, 0, 544, 416))
    @gauge_skin.bitmap = Bitmap.new(@width, @height)
    @gauge_skin.bitmap.fill_rect(Rect.new(0, 0, @width, @height), Color.new(0,0,0))
    @gauge_skin.x = @x
    @gauge_skin.y = @y
    @gauge_skin.z = 1000
    @gauge = Sprite.new(Viewport.new(0, 0, 544, 416))
    @gauge.bitmap = Bitmap.new(@width, @height)
    @gauge.bitmap.fill_rect(Rect.new(0, 0, @width, @height), @color)
    gauge_width = @gauge.bitmap.width * $game_variables[@id] / @max
    gauge_width.round
    @gauge.src_rect.width = gauge_width
    @gauge.x = @x
    @gauge.y = @y
    @gauge.z = 1001
    update
  end

  def dispose
    @gauge_skin.dispose
    @gauge.dispose
    super
  end

  def update
    gauge_width = @gauge.bitmap.width * $game_variables[@id] / @max
    gauge_width.round
    return if @gauge.disposed?
    if @gauge.width < gauge_width
      boost = WLTR::VARIABLE_GAUGES::ALTER_SPEED
      @gauge.src_rect.width += boost
      @gauge.src_rect.width = gauge_width.round if @gauge.src_rect.width > gauge_width
    elsif @gauge.width > gauge_width
      boost = WLTR::VARIABLE_GAUGES::ALTER_SPEED
      @gauge.src_rect.width -= boost
      @gauge.src_rect.width = gauge_width.round if @gauge.src_rect.width < gauge_width
    end
  end
end
#===============================================================================
#
#  END OF SCRIPT
#
#===============================================================================