#--# Sleek Gauges v 1.0b
    #
    # Transform your various gauges in a variety of ways. Compatible with any
    #  other script that uses the draw_gauge function... probably.
    #
    # Usage: Plug and play, customize as needed.
    #
    #------#
    #-- Script by: V.M of D.T
    #
    #- Questions or comments can be:
    #    given by email: sumptuaryspade@live.ca
    #    provided on facebook: http://www.facebook.com/DaimoniousTailsGames
    #   All my other scripts and projects can be found here: http://daimonioustails.weebly.com/
    #
    #--- Free to use in any project, commercial or non-commercial, with credit given
    #--Though a donation's always a nice way to say thank you~ (I also accept actual thank you's)

    module SPECIAL_GAUGES
      #Sets the default height of all bars
      DEFAULT_HEIGHT = 10
      #Set to true for static numbers (they don't count down)
      STATIC_NUMBERS = false
      #Set to true for a static bar (Slide style is ignored)
      STATIC_GAUGE = false
      #The style of the gauge. Options are :flat, :round, :slant
      GAUGE_STYLE = :slant
      #The style as the gauge changes. Options are :normal, :fancy, :fall
      GAUGE_SLIDE_STYLE = :fancy
    end

    class Window_Base < Window
      attr_accessor :gauges
      def draw_gauge(x, y, width, rate, color1, color2, height = SPECIAL_GAUGES::DEFAULT_HEIGHT)
        @gauges = {} unless @gauges
        if @gauges[[x,y]]
          @gauges[[x,y]].set_rate(rate)
        else
          @gauges[[x,y]] = Special_Gauge.new(x,y,width,rate,color1,color2,self,height)
        end
      end
      def draw_actor_hp(actor, x, y, width = 124, height = SPECIAL_GAUGES::DEFAULT_HEIGHT, notext = false)
        draw_gauge(x, y, width, actor.hp_rate, hp_gauge_color1, hp_gauge_color2, height)
        @gauges[[x,y]].set_extra(Vocab::hp_a,actor.hp,actor.mhp) unless notext
      end
      def draw_actor_mp(actor, x, y, width = 124, height = SPECIAL_GAUGES::DEFAULT_HEIGHT, notext = false)
        draw_gauge(x, y, width, actor.mp_rate, mp_gauge_color1, mp_gauge_color2, height)
        @gauges[[x,y]].set_extra(Vocab::mp_a,actor.mp,actor.mmp) unless notext
      end
      def draw_actor_tp(actor, x, y, width = 124, height = SPECIAL_GAUGES::DEFAULT_HEIGHT, notext = false)
        draw_gauge(x, y, width, actor.tp_rate, tp_gauge_color1, tp_gauge_color2, height)
        @gauges[[x,y]].set_extra(Vocab::tp_a,actor.tp.to_i,100) unless notext
      end
      alias gauge_update update
      def update
        gauge_update
        if @gauges
          @gauges.each {|k,gauge| gauge.update}
        end
      end
    end

    class Special_Gauge
      attr_accessor :cur_val
      def initialize(x,y,w,r,c1,c2,window,height = SPECIAL_GAUGES::DEFAULT_HEIGHT)
        @x = x
        @y = y
        @width = w
        @cur_rate = r
        @max_rate = r
        @color1 = c1
        @color2 = c2
        @window = window
        @speed = 0
        @speed_rate = 0
        @height = height
        @fall_sprites = []
        refresh
      end
      def update
        update_fall_sprites
        return if @cur_rate == @max_rate && @cur_val == @set_val
        @cur_rate -= @speed_rate if @cur_rate > @max_rate
        @cur_rate += @speed_rate if @cur_rate < @max_rate
        @cur_rate = @max_rate if (@cur_rate - @max_rate).abs < @speed_rate
        @cur_rate = @max_rate if SPECIAL_GAUGES::STATIC_GAUGE
        return unless @vocab
        @cur_val -= @speed if @cur_val > @set_val
        @cur_val += @speed if @cur_val < @set_val
        @cur_val = @set_val if (@cur_val-@set_val).abs < @speed
        @cur_val = @set_val if SPECIAL_GAUGES::STATIC_NUMBERS
        refresh
      end
      def update_fall_sprites
        @fall_sprites.each do |sprite|
          if sprite.opacity < 175
            sprite.y += 1
          else
            sprite.y -= 1
          end
          if !@window.viewport.nil?
            xx = @window.x + @window.padding + @window.viewport.rect.x - @window.viewport.ox
          else
            xx = @window.x + @window.padding;yy = @window.y + @window.padding
          end
          sprite.x = xx + @x + @width * @max_rate
          sprite.opacity -= 5
          sprite.dispose if sprite.opacity == 0
        end
        @fall_sprites = @fall_sprites.select {|sprite| !sprite.disposed? }
      end
      def refresh
        if @vocab
          @window.contents.clear_rect(Rect.new(@x,@y,@width,@window.line_height))
        else
          gauge_y = @y + @window.line_height - @height - 1
          @window.contents.clear_rect(Rect.new(@x,gauge_y,@width,@height))
        end
        draw_gauge(@x,@y,@width,@cur_rate,@color1,@color2)
        draw_text(@x,@y,@width)
      end
      def set_rate(rate)
        reset_speed = rate != @max_rate
        @max_rate = rate
        @speed_rate = (@cur_rate-@max_rate).abs / 60 if reset_speed
        if SPECIAL_GAUGES::GAUGE_SLIDE_STYLE == :fall && reset_speed && !SPECIAL_GAUGES::STATIC_GAUGE
          if @cur_rate > @max_rate
            sprite = Sprite.new()
            if !@window.viewport.nil?
              xx = @window.x + @window.padding + @window.viewport.rect.x - @window.viewport.ox
              yy = @window.y + @window.padding + @window.viewport.rect.y - @window.viewport.oy
            else
              xx = @window.x + @window.padding;yy = @window.y + @window.padding
            end
            sprite.x = xx + @x + @width * @max_rate
            sprite.y = yy + @y + @window.line_height - @height
            sprite.z = @window.z + 1
            width = (@width * @cur_rate).to_i - (@width * @max_rate).to_i
            if width > 1
              sprite.bitmap = Bitmap.new(width,@height-2)
              sprite.bitmap.gradient_fill_rect(sprite.bitmap.rect,@color1,@color2)
              @fall_sprites.push(sprite)
            else
              sprite.dispose
            end
          end
        end
        refresh
      end
      def set_extra(vocab,set_val,max_val)
        @vocab = vocab
        @max_val = max_val
        reset_speed = set_val != @set_val
        if @cur_val
          @set_val = set_val
        else
          @cur_val = set_val
          @set_val = set_val
        end
        @speed = (@cur_val-@set_val).abs / 60 if reset_speed
        @speed = 1 if @speed == 0
        refresh
      end
      def draw_gauge(x, y, width, rate, color1, color2)
        fill_w = (width * rate).to_i
        fill_ww = (width * @max_rate).to_i
        gauge_y = y + @window.line_height - @height - 1
        @window.contents.fill_rect(x, gauge_y, width, @height, @window.gauge_back_color)
        if SPECIAL_GAUGES::GAUGE_SLIDE_STYLE == :fancy
          color1.alpha -= 150;color2.alpha -= 150
          if rate > @max_rate
            @window.contents.gradient_fill_rect(x, gauge_y+1, fill_w, @height-2, color1, color2)
            color1.alpha += 150;color2.alpha += 150
            @window.contents.gradient_fill_rect(x, gauge_y+1, fill_ww, @height-2, color1, color2)
          else rate < @max_rate
            @window.contents.gradient_fill_rect(x, gauge_y+1, fill_ww, @height-2, color1, color2)
            color1.alpha += 150;color2.alpha += 150
            @window.contents.gradient_fill_rect(x, gauge_y+1, fill_w, @height-2, color1, color2)
          end
        elsif SPECIAL_GAUGES::GAUGE_SLIDE_STYLE == :normal
          @window.contents.gradient_fill_rect(x, gauge_y+1, fill_w, @height-2, color1, color2)
        elsif SPECIAL_GAUGES::GAUGE_SLIDE_STYLE == :fall
          if rate > @max_rate
            @window.contents.gradient_fill_rect(x, gauge_y+1, fill_ww, @height-2, color1, color2)
          else
            @window.contents.gradient_fill_rect(x, gauge_y+1, fill_w, @height-2, color1, color2)
          end
        end
        color3 = Color.new(0,0,0,0);color4 = @window.gauge_back_color
         xx = x;yy = gauge_y;inc = 0
        case SPECIAL_GAUGES::GAUGE_STYLE
        when :flat
        when :slant
          inc = @height-1
          @height.times do
            inc.times do
              @window.contents.set_pixel(xx,yy,color3)
              xx += 1
            end
            @window.contents.set_pixel(xx,yy,color4)
            xx = x;yy += 1;inc -= 1
          end
          xx = x + width;yy = gauge_y;inc = 0
          @height.times do
            inc.times do
              @window.contents.set_pixel(xx,yy,color3)
              xx -= 1
            end
            @window.contents.set_pixel(xx,yy,color4)
            xx = x + width;yy += 1;inc += 1
          end
        when :round
          inc = 3
          @height.times do |i|
            inc = 0 if inc < 0
            inc.times do
              @window.contents.set_pixel(xx,yy,color3)
              xx += 1
            end
            @window.contents.set_pixel(xx,yy,color4)
            xx = x;yy += 1;inc -= 1
            if i >= @height - 4
              inc += 2
            end
          end
          xx = x + width;yy = gauge_y;inc = 3
          @height.times do |i|
            inc = 0 if inc < 0
            inc.times do
              @window.contents.set_pixel(xx,yy,color3)
              xx -= 1
            end
            @window.contents.set_pixel(xx,yy,color4)
            xx = x + width;yy += 1;inc -= 1
            if i >= @height - 4
              inc += 2
            end
          end
        end
      end
      def draw_text(x,y,w)
        return unless @cur_val
        @window.change_color(@window.system_color)
        @window.draw_text(x, y, 30, @window.line_height, @vocab)
        @window.change_color(@window.normal_color)
        @window.change_color(@window.crisis_color) if @cur_val < @max_val / 4
        xr = x + w
        if w < 96
          @window.draw_text(xr - 40, y, 42, @window.line_height, @cur_val.to_i, 2)
        else
          @window.draw_text(xr - 92, y, 42, @window.line_height, @cur_val.to_i, 2)
          @window.change_color(@window.normal_color)
          @window.draw_text(xr - 52, y, 12, @window.line_height, "/", 2)
          @window.draw_text(xr - 42, y, 42, @window.line_height, @max_val, 2)
        end
      end
    end