Afficher une variable à l'écran

#=========================================================================
# ■ Window_TxtVar
# Affiche une variable à l'écran
#=========================================================================
# Auteur: Kaila
# Vers.:  1.0
# Date:  08/2010
#=========================================================================
# Écrire dans une insertion de script:
# $game_map.txt_variable.init(id, x, y)  :afficher la variable id en [x,y]
# $game_map.txt_variable.clear          :effacer le texte
#=========================================================================
class Window_TxtVar < Window_Base
  def initialize
    super(0, 0, 640, 480)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    self.contents.font.color = system_color
    self.opacity = 0
    @var = 0
    @old_value = 0
    @x = @y = 0
    @cleared = false
  end 
  def init(v,x=0,y=0)
    if v > 0 and $game_variables[v] != nil
      @var = v
      @x = x
      @y = y
      @cleared = false
      @old_value = $game_variables[v]
      self.contents.clear
      self.contents.draw_text(x,y,120,32,@old_value.to_s)
    end
  end
  def clear;self.contents.clear;@cleared = true;end
  def update
    if @var > 0 and !@cleared
      init(@var,@x,@y) if $game_variables[@var] != @old_value
    end
  end
end
#=========================================================================
class Game_Map
  attr_accessor :txt_variable
  alias k_winvar_gammap_initialize initialize
  def initialize
    k_winvar_gammap_initialize
    @txt_variable = Window_TxtVar.new
  end
  alias k_winvar_gammap_update update
  def update
    k_winvar_gammap_update
    @txt_variable.update
  end
end
#=========================================================================