[VX] Wyświetlanie zmiennej w pasku

Kod:
#=============================================================================== 

# Variable Gauge Display 

#------------------------------------------------------------------------------- 

# By piejamas 

# v1.0 

#=============================================================================== 

# 

#Skrypt pozwalający wyświetlić wartość zmiennej w pasku. :D 



#------------------------------------------------------------------------------ 

# * Tu zmieniaj :D 

#------------------------------------------------------------------------------ 



module Gauge 

  

  #-------------------------------------------- 

  # Variable ID 

  # ID zmiennej która ma być wyświetlana 

    VARIABLE_ID    = 1 

  #-------------------------------------------- 

  

  #-------------------------------------------- 

  # Visible Switch 

  # Pasek jest widoczny jeśli ten przełącznik będzie włączony 

    VISIBLE_SWITCH = 1 

  #-------------------------------------------- 

  

  #-------------------------------------------- 

  # Ustawienie 

  # Czyli gdzie ma się znajdować okno ze zmienną. 

    X              = 0 

    Y              = 0 

    GAUGE_WIDTH    = 120 

    GAUGE_HEIGHT   = 6 

  #-------------------------------------------- 

  

  #-------------------------------------------- 

  # Gauge Max 

  # Maksymalna wartość która będzie wyświetlana na pasku. 

    GAUGE_MAX      = 100 

  #-------------------------------------------- 

  

  #-------------------------------------------- 

  # Kolory paska 

  #           Color.new( red,  green,  blue) 

    COLOUR1 = Color.new(   0,    255,   100) 

    COLOUR2 = Color.new(   0,    255,     0) 

  #-------------------------------------------- 

  

  #-------------------------------------------- 

  # Pokaż okno 

  # Pokazać okno czy też nie? 

    SHOW_WINDOW    = true 

  #-------------------------------------------- 

  

  #-------------------------------------------- 

  # Text 

  # Tekst który będzie wyświetlany nad paskiem 

    TEXT = "o.o" 

  #-------------------------------------------- 

  

################################################################################ 

##                           Tego nie dotykaj chyba że wiesz co robisz :)                           ## 

################################################################################ 



end 

  

class Window_GaugeDisplay < Window_Base 

  include Gauge 

  

  #---------------------------------------------------------------------------- 

  # * Object initialization 

  #---------------------------------------------------------------------------- 

  def initialize 

    super(X, Y, GAUGE_WIDTH + 16, GAUGE_HEIGHT + WLH + 32) 

    self.visible = $game_switches[VISIBLE_SWITCH] 

    self.opacity = 0 unless SHOW_WINDOW 

    @old_var = $game_variables[VARIABLE_ID] 

    self.contents.draw_text(-8, -7, self.contents.width, WLH, TEXT, 1) 

    refresh 

  end 

  

  #---------------------------------------------------------------------------- 

  # * Refresh 

  #---------------------------------------------------------------------------- 

  # Draw the stuff 

  #---------------------------------------------------------------------------- 

  def refresh 

    gw = GAUGE_WIDTH * $game_variables[VARIABLE_ID] / GAUGE_MAX 

    gc1 = COLOUR1 

    gc2 = COLOUR2 

    self.contents.fill_rect(0, 0 + WLH - 8, GAUGE_WIDTH, GAUGE_HEIGHT, gauge_back_color) 

    self.contents.gradient_fill_rect(0, 0 + WLH - 8, gw, GAUGE_HEIGHT, gc1, gc2) 

  end 

  

  #---------------------------------------------------------------------------- 

  # * Update 

  #---------------------------------------------------------------------------- 

  def update 

    self.visible = $game_switches[VISIBLE_SWITCH] 

    var = $game_variables[VARIABLE_ID] 

    refresh if var != @old_var 

    @old_var = var 

  end 

end 



class Scene_Map 

  

  #---------------------------------------------------------------------------- 

  # * Aliases 

  #---------------------------------------------------------------------------- 

  

  alias :var_guage_old_start :start unless $@ 

  alias :var_guage_old_update :update unless $@ 

  alias :var_guage_old_terminate :terminate unless $@ 

  

  #---------------------------------------------------------------------------- 

  # * Start 

  #---------------------------------------------------------------------------- 

  def start 

    var_guage_old_start 

    @var_guage = Window_GaugeDisplay.new 

  end 

  

  #---------------------------------------------------------------------------- 

  # * Update 

  #---------------------------------------------------------------------------- 

  def update 

    var_guage_old_update 

    @var_guage.update 

  end 

  

  #---------------------------------------------------------------------------- 

  # * Terminate 

  #---------------------------------------------------------------------------- 

  def terminate 

    var_guage_old_terminate 

    @var_guage.dispose 

  end 

  

end