ТЕМА: Модификация скрипта HUD-а

#==============================================================================
#Доработанный  HUD из скрипта боёвки R.E. Weapons System
#==============================================================================
#------------------------------------------------------------------------------
# Créditos: Leon-S.K --- ou --- Andre Luiz Marques Torres Micheletti
#==============================================================================
# Перевод и примечания: Yuryol
#------------------------------------------------------------------------------
# HUD
#------------------------------------------------------------------------------
#==============================================================================
 
  #------------------------------------------------------------------------------
  # AREA NAO EDITAVEl!
  #------------------------------------------------------------------------------
 
class QHud < Window_Base  
 
  def initialize
    super(0,0,544,200) # х, у, ширина, высота
    self.contents = Bitmap.new(width - 32, height - 32)
    self.opacity = 0 # прозрачность
    self.z = 999
    self.contents.font.color = Color.new(229,191,0)
    refresh
  end
 
  def refresh
 
    self.contents.fill_rect(0,38,251,11,Color.new(255,255,255))
    self.contents.fill_rect(1,39,249,9,Color.new(0,0,0))
    self.contents.gradient_fill_rect(1,39,$wbExVar,9,Color.new(0,210,210),Color.new(0,255,255))
    self.contents.font.name = "Verdana" # название шрифта для чисе
    self.contents.font.size = 21 # размер шрифта чисел
    draw_current_and_max_values(-10, 34, 120, @ExVar , @maxExVar, normal_color, normal_color)
    self.contents.draw_text(-10, -4, 120,21,"Холод",1)#(х, у, ширина, кегль, текст, выравнивание)
  end
 
  def dispose
    super
  end
end
 
class Scene_Map < Scene_Base # скрипт для возможности показывать/скрывать ХУД при нажатии кнопки или включения/выключения переключателя
 
  attr_accessor :hud
 
  def qhud_start(setvar,setmaxvar,color1,color2)
    if $game_switches[Switch] == true
      @ExVar = setvar # Указатель на параметр
      @maxExVar = setmaxvar # Указатель на максимальный параметр
      $wbExVar = 249 * setvar / setmaxvar # Процент 
      @hud = Hud.new
    end
  end
 
  def qhud_update
    if $game_switches[Switch] == true
      @hud.nil? ? @hud = Hud.new : refresh_hud
    else
      if not @hud.nil?; @hud.dispose; @hud = nil; end
    end
  end
 
def refresh_hud
    @hud.refresh
end  
 
  def qhud_terminate
    @hud.dispose if @hud != nil
    qhud_terminate
  end
end

#Модуль таки надо бы оставить
module Hud_Config
  Switch = 6        # Id переключателя, включающий/выключащий HUDа
end
 
class QHud < Window_Base  
 
  def initialize(setvar,setmaxvar,color1,color2)
    super(0,0,544,200) # х, у, ширина, высота
    self.contents = Bitmap.new(width - 32, height - 32)
    self.opacity = 0 # прозрачность
    self.z = 999
    self.contents.font.color = Color.new(229,191,0)
    @i_setvar = setvar
    @i_setmaxvar = setmaxvar
    @color1 = color1
    @color2 = color2
    @firstvar = 0
    @secondvar = 0
    @wb = 0
    refresh
  end
 
  def refresh
    @firstvar = $game_variables[@i_setvar]
    @secondvar = $game_variables[@i_setmaxvar]
    @wb = 249 * @firstvar / @secondvar unless @secondvar == 0 #Негоже на ноль то делить!
 
    self.contents.clear
    self.contents.fill_rect(0,38,251,11,Color.new(255,255,255))
    self.contents.fill_rect(1,39,249,9,Color.new(0,0,0))
    self.contents.gradient_fill_rect(1,39,@wb ,9,Color.new(0,210,210),Color.new(0,255,255))
    self.contents.font.name = "Verdana" 
    self.contents.font.size = 21 
    draw_current_and_max_values(-10, 34, 120, @firstvar , @secondvar, @color1, @color2)
    self.contents.draw_text(-10, -4, 120,21,"Холод",1)
  end
 
  def dispose
    super
  end
end
 
class Scene_Map < Scene_Base
 
  include Hud_Config
  attr_accessor :hud
  #!!!================================================================
  #!!! Пускай setvar и setmaxvar будут у нас индексами для $game_variables
  #!!!================================================================
  def qhud_start(setvar,setmaxvar,color1,color2)
    qhud_terminate unless @hud.nil?
    @hud = QHud.new(setvar,setmaxvar,color1,color2)
  end
 
  alias hud_update update
  def update
    hud_update
    if !@hud.nil? 
      if $game_switches[Switch]
           @hud.refresh
      else
          @hud.contents.clear
      end
    end
  end
 
  def qhud_terminate
    if @hud != nil 
      @hud.dispose
      @hud = nil
    end
  end
 
  alias hud_terminate terminate
  def terminate
    qhud_terminate
    hud_terminate
  end
end

#~==============================================================================
#~==== Модуль настро(йки)ек ====================================================
#~==============================================================================
module Hud_Config
  Switch = 6        #~ Id переключателя, включающий/выключащий HUDа
end
 
class QHud < Window_Base  
  attr_accessor :a_cur
  attr_accessor :a_max
  attr_accessor :a_curv
  attr_accessor :a_maxv
  attr_accessor :color1
  attr_accessor :color2
#~   attr_accessor :wwidth
#~   @wwidth=SceneManager.Window.width
#~============= current  - id переменной с текущим значением
#~============= maximum  - id переменной с максимальным значением
#~============= r1,g1,b1 - RGB код (красный, зелёный, синий) для начала градиента
#~============= r2,g2,b2 - RGB код для конца градиента и текста слева от HUD-а
  def initialize(current,maximum,r1,g1,b1,r2,g2,b2)
    super(0,0,544,47)             #~ Рисуем окно для HUD-а
    @color1 = Color.new(r1,g1,b1) #~ Запоминаем Цвет1
    @color2 = Color.new(r2,g2,b2) #~ Запоминаем Цвет2
    @a_curv = current             #~ Запоминаем id переменной с тек. значением
    @a_maxv = maximum             #~ Запоминаем id переменной с макс. значением
    self.contents = Bitmap.new(width - 32, height - 32)
    self.opacity = 255            # = 0 скрываем окно HUD-а
    self.z = 999
    self.contents.font.color = @color2
    refresh
  end
 
  def refresh
    @a_cur = $game_variables[@a_curv]   #~ Извлекаем текущее значение
    @a_max = $game_variables[@a_maxv]   #~ Извлекаем максимальное значение
    @wb = 200 * @a_cur / @a_max         #~ Получаем длинну заливки градиентом
    self.contents.clear
    #~ Устанавливаем параметры шрифтв, рисуем название и сам HUD
    self.contents.font.name = "Verdana" 
    self.contents.font.size = 21
    self.contents.draw_text(0,-4,60,23,"Холод",1)    
    self.contents.fill_rect(61,2,202,12,Color.new(255,255,255))
    self.contents.fill_rect(62,3,200,10,Color.new(0,0,0))
    self.contents.gradient_fill_rect(62,3,@wb,10,@color1,@color2)
  end
 
  def dispose
    super
  end
end
 
class Scene_Map < Scene_Base
 
  include Hud_Config
  attr_accessor :hud
 
  def qhud_start(current,maximum,r1,g1,b1,r2,g2,b2)
    qhud_terminate unless @hud.nil?
    @hud = QHud.new(current,maximum,r1,g1,b1,r2,g2,b2)
  end
 
  alias hud_update update
  def update
    hud_update
    if !@hud.nil? 
      if $game_switches[Switch]
          @hud.refresh
      else
          @hud.contents.clear
      end
    end
  end
 
  def qhud_terminate
    if @hud != nil 
      @hud.dispose
      @hud = nil
    end
  end
 
  def refresh_hud
    @hud.refresh
  end 
 
  alias hud_terminate terminate
  def terminate
    super
    qhud_terminate
    hud_terminate
  end
end

#===============================================================================
#=== Переписанный HUD из боёвки R.E. Weapons System
#===============================================================================
# Créditos: Leon-S.K --- ou --- Andre Luiz Marques Torres Micheletti
# Перевод и примечания: Yuryol
# Модификация: Арген [Wolfling] Волков
#              Rude
#              Cerberus
#===============================================================================
# Сокращённая версия скрипта, предназначенная для отображения одной переменной
# с определённым названием, посредством показа полоски статуса
# 
# Вызывается в событии с помощью скрипта 
# SceneManager.scene.qhud_start(current,maximum,switch,visibles) где
# current  - id переменной с текущим (изменяем) значением
# maximum  - id переменной с максимальным значением 
# switch   - id переключателя, по которому будет включаться / выключаться HUD
# visibles - пишем true, если хотим видеть окошко вокруг HUD-а
#            пишем false, если хотим видет ТОЛЬКО HUD
#
# Так же можно вызвать HUD с помощью длинной строки
# SceneManager.scene.qhud_start(current,maximum,r1,g1,b1,r2,g2,b2,switch,visibles)
# где
# current  - id переменной с текущим (изменяем) значением
# maximum  - id переменной с максимальным значением 
# switch   - id переключателя, по которому будет включаться / выключаться HUD
# visibles - пишем true, если хотим видеть окошко вокруг HUD-а
#            пишем false, если хотим видет ТОЛЬКО HUD
# r1,g1,b1 - RGB код (красный, зелёный, синий) для начала градиента
# r2,g2,b2 - RGB код для конца градиента и текста слева от HUD-а
# По умолчанию HUD зелёный
#
# Счастливого мейкерства!
#===============================================================================

class QHud < Window_Base  
  attr_accessor :a_cur
  attr_accessor :a_max
  attr_accessor :a_curv
  attr_accessor :a_maxv
  attr_accessor :color1
  attr_accessor :color2
  attr_accessor :vis_bool
 
  def initialize(current,maximum,r1=0,g1=127,b1=0,r2=63,g2=127,b2=63,hud_switch,visibles)
    super(0,0,544,47)             #~ Рисуем окно для HUD-а
    @color1 = Color.new(r1,g1,b1) #~ Запоминаем Цвет1
    @color2 = Color.new(r2,g2,b2) #~ Запоминаем Цвет2
    @a_curv = current             #~ Запоминаем id переменной с тек. значением
    @a_maxv = maximum             #~ Запоминаем id переменной с макс. значением
    @hud_sw_id = hud_switch       #~ Запоминаем id триггера вкл/выкл HUD-а
    @vis_bool = visibles          #~ true - подложка видна, false - скрыта
    self.contents = Bitmap.new(width - 32, height - 32)
    if @vis_bool == true then self.opacity = 255 else self.opacity = 0 end
    self.z = 999
    self.contents.font.color = @color2
    refresh
  end
 
  def refresh
    @a_cur = $game_variables[@a_curv]   #~ Извлекаем текущее значение
    @a_max = $game_variables[@a_maxv]   #~ Извлекаем максимальное значение
    @wb = 200 * @a_cur / @a_max         #~ Получаем длинну заливки градиентом
    self.contents.clear
    #~ Устанавливаем параметры шрифтв, рисуем название и сам HUD
    self.contents.font.name = "Verdana"
    self.contents.font.size = 21
    self.contents.draw_text(0,-4,60,23,"Холод",1)    
    self.contents.fill_rect(61,2,202,12,Color.new(255,255,255))
    self.contents.fill_rect(62,3,200,10,Color.new(0,0,0))
    self.contents.gradient_fill_rect(62,3,@wb,10,@color1,@color2)
  end
 
  def get_switch
    return @hud_sw_id
  end
 
  def dispose
    super
  end
end
 
class Scene_Map < Scene_Base
  attr_accessor :hud
 
  def qhud_start(current,maximum,r1=0,g1=127,b1=0,r2=63,g2=193,b2=63,hud_switch,visibles)
#~     hud_terminate unless @hud.nil? # приводит к ошибке disposed tilemap
#~     if @hud != nil then hud_terminate end # приводит к ошибке disposed window
    @hud = QHud.new(current,maximum,r1=0,g1=127,b1=0,r2=63,g2=193,b2=63,hud_switch,visibles)
  end
 
  alias hud_update update
  def update
    hud_update
    if !@hud.nil? 
      if $game_switches[@hud.get_switch]
          @hud.refresh
      else
          @hud.contents.clear
      end
    end
  end
 
   def qhud_terminate # в определённых обстоятельствах приводит к ошибке stak overflow
    if @hud != nil
      @hud.dispose
      @hud = nil
    end
  end
 
  def refresh_hud 
    @hud.refresh
  end
 
  alias hud_terminate terminate # в определённых обстоятельствах приводит к ошибке stak overflow
  def terminate
    super
    qhud_terminate
    hud_terminate
  end
end

#===============================================================================
#=== Переписанный HUD из боёвки R.E. Weapons System
#===============================================================================
# Créditos: Leon-S.K --- ou --- Andre Luiz Marques Torres Micheletti
# Перевод и примечания: Yuryol
# Модификация: Арген [Wolfling] Волков
#              Rude
#              Cerberus
#===============================================================================
# Сокращённая версия скрипта, предназначенная для отображения одной переменной
# с определённым названием, посредством показа полоски статуса
# 
# Вызывается в событии с помощью скрипта 
# SceneManager.scene.qhud_start(current,maximum,switch,visibles) где
# current  - id переменной с текущим (изменяем) значением
# maximum  - id переменной с максимальным значением 
# switch   - id переключателя, по которому будет включаться / выключаться HUD
# visibles - пишем true, если хотим видеть окошко вокруг HUD-а
#            пишем false, если хотим видет ТОЛЬКО HUD
#
# Так же можно вызвать HUD с помощью длинной строки
# SceneManager.scene.qhud_start(current,maximum,r1,g1,b1,r2,g2,b2,switch,visibles)
# где
# current  - id переменной с текущим (изменяем) значением
# maximum  - id переменной с максимальным значением 
# switch   - id переключателя, по которому будет включаться / выключаться HUD
# visibles - пишем true, если хотим видеть окошко вокруг HUD-а
#            пишем false, если хотим видет ТОЛЬКО HUD
# r1,g1,b1 - RGB код (красный, зелёный, синий) для начала градиента
# r2,g2,b2 - RGB код для конца градиента и текста слева от HUD-а
# По умолчанию HUD зелёный
#
# Счастливого мейкерства!
#===============================================================================

class QHud < Window_Base  
  attr_accessor :a_cur
  attr_accessor :a_max
  attr_accessor :a_curv
  attr_accessor :a_maxv
  attr_accessor :color1
  attr_accessor :color2
  attr_accessor :vis_bool
 
  def initialize(current,maximum,r1=0,g1=127,b1=0,r2=63,g2=127,b2=63,hud_switch,visibles)
    super(0,0,544,47)             #~ Рисуем окно для HUD-а
    @color1 = Color.new(r1,g1,b1) #~ Запоминаем Цвет1
    @color2 = Color.new(r2,g2,b2) #~ Запоминаем Цвет2
    @a_curv = current             #~ Запоминаем id переменной с тек. значением
    @a_maxv = maximum             #~ Запоминаем id переменной с макс. значением
    @hud_sw_id = hud_switch       #~ Запоминаем id триггера вкл/выкл HUD-а
    @vis_bool = visibles          #~ true - подложка видна, false - скрыта
    self.contents = Bitmap.new(width - 32, height - 32)
    if @vis_bool == true then self.opacity = 255 else self.opacity = 0 end
    self.z = 999
    self.contents.font.color = @color2
    refresh
  end
 
  def refresh
    @a_cur = $game_variables[@a_curv]   #~ Извлекаем текущее значение
    @a_max = $game_variables[@a_maxv]   #~ Извлекаем максимальное значение
    @wb = 200 * @a_cur / @a_max         #~ Получаем длинну заливки градиентом
    self.contents.clear
    #~ Устанавливаем параметры шрифтв, рисуем название и сам HUD
    self.contents.font.name = "Verdana"
    self.contents.font.size = 21
    self.contents.draw_text(0,-4,60,23,"Холод",1)    
    self.contents.fill_rect(61,2,202,12,Color.new(255,255,255))
    self.contents.fill_rect(62,3,200,10,Color.new(0,0,0))
    self.contents.gradient_fill_rect(62,3,@wb,10,@color1,@color2)
  end
 
  def get_switch
    return @hud_sw_id
  end
 
  def dispose
    super
  end
end
 
class Scene_Map < Scene_Base
  attr_accessor :hud
 
  def qhud_start(current,maximum,r1=0,g1=127,b1=0,r2=63,g2=193,b2=63,hud_switch,visibles)
    hud_terminate unless @hud.nil? # приводит к ошибке disposed tilemap
#~     if @hud != nil then hud_terminate end # приводит к ошибке disposed window
    @hud = QHud.new(current,maximum,r1=0,g1=127,b1=0,r2=63,g2=193,b2=63,hud_switch,visibles)
  end
 
  alias hud_update update
  def update
    hud_update
    if !@hud.nil? 
      if $game_switches[@hud.get_switch]
          @hud.refresh
      else
          @hud.contents.clear
      end
    end
  end
 
#~   def qhud_terminate # в определённых обстоятельствах приводит к ошибке stak overflow
#~     if @hud != nil
#~       @hud.dispose
#~       @hud = nil
#~     end
#~   end

  alias hud_terminate terminate
  def terminate
    super
    hud_terminate
#~     qhud_terminate
  end
end

  #--------------------------------------------------------------------------
  # * Update All Windows
  #--------------------------------------------------------------------------
  def update_all_windows
    instance_variables.each do |varname|
      ivar = instance_variable_get(varname)
      ivar.update if ivar.is_a?(Window)
    end
  end
  #--------------------------------------------------------------------------
  # * Free All Windows
  #--------------------------------------------------------------------------
  def dispose_all_windows
    instance_variables.each do |varname|
      ivar = instance_variable_get(varname)
      ivar.dispose if ivar.is_a?(Window)
    end
  end

#===============================================================================
#=== Переписанный HUD из боёвки R.E. Weapons System
#===============================================================================
# Créditos: Leon-S.K --- ou --- Andre Luiz Marques Torres Micheletti
# Перевод и примечания: Yuryol
# Модификация: Арген [Wolfling] Волков
#              Rude
#              Cerberus
#              Iren_Rin
#===============================================================================
# Сокращённая версия скрипта, предназначенная для отображения одной переменной
# с определённым названием, посредством показа полоски статуса
# 
# Вызывается в событии с помощью скрипта 
# SceneManager.scene.qhud_start(current,maximum,switch,visibles) где
# current  - id переменной с текущим (изменяемым) значением
# maximum  - id переменной с максимальным значением 
# switch   - id переключателя, по которому будет включаться / выключаться HUD
# visibles - пишем true, если хотим видеть окошко вокруг HUD-а
#            пишем false, если хотим видет ТОЛЬКО HUD
#
# Так же можно вызвать HUD с помощью длинной строки
# SceneManager.scene.qhud_start(current,maximum,r1,g1,b1,r2,g2,b2,switch,visibles)
# где
# current  - id переменной с текущим (изменяем) значением
# maximum  - id переменной с максимальным значением 
# switch   - id переключателя, по которому будет включаться / выключаться HUD
# visibles - пишем true, если хотим видеть окошко вокруг HUD-а
#            пишем false, если хотим видет ТОЛЬКО HUD
# r1,g1,b1 - RGB код (красный, зелёный, синий) для начала градиента
# r2,g2,b2 - RGB код для конца градиента и текста слева от HUD-а
# По умолчанию HUD зелёный
#
# Счастливого мейкерства!
#===============================================================================

class QHud < Window_Base  
  attr_accessor :a_cur
  attr_accessor :a_max
  attr_accessor :a_curv
  attr_accessor :a_maxv
  attr_accessor :color1
  attr_accessor :color2
  attr_accessor :vis_bool
 
  def initialize(cur,maximum,r1=0,g1=127,b1=0,r2=63,g2=127,b2=63,hud_switch,visibles)
    super(0,0,544,47)             #~ Рисуем окно для HUD-а
    @color1 = Color.new(r1,g1,b1) #~ Запоминаем Цвет1
    @color2 = Color.new(r2,g2,b2) #~ Запоминаем Цвет2
    @a_curv = cur                 #~ Запоминаем id переменной с тек. значением
    @a_maxv = maximum             #~ Запоминаем id переменной с макс. значением
    @hud_sw_id = hud_switch       #~ Запоминаем id триггера вкл/выкл HUD-а
    @vis_bool = visibles          #~ true - подложка видна, false - скрыта
    self.contents = Bitmap.new(width - 32, height - 32)
    if @vis_bool == true then self.opacity = 255 else self.opacity = 0 end
    self.z = 999
    self.contents.font.color = @color2
    refresh
  end
 
  def refresh
    @a_cur = $game_variables[@a_curv]   #~ Извлекаем текущее значение
    @a_max = $game_variables[@a_maxv]   #~ Извлекаем максимальное значение
    @wb = 200 * @a_cur / @a_max         #~ Получаем длинну заливки градиентом
    self.contents.clear
    #~ Устанавливаем параметры шрифтв, рисуем название и сам HUD
    self.contents.font.name = "Verdana"
    self.contents.font.size = 21
    self.contents.draw_text(0,-4,60,23,"Холод",1)    
    self.contents.fill_rect(61,2,202,12,Color.new(255,255,255))
    self.contents.fill_rect(62,3,200,10,Color.new(0,0,0))
    self.contents.gradient_fill_rect(62,3,@wb,10,@color1,@color2)
  end
 
  def get_switch
    return @hud_sw_id
  end
 
  def update_all_windows
    super
  end
 
  def dispose_all_windows
    super
  end
 
end
 
class Scene_Map < Scene_Base
  attr_accessor :hud
 
  def qhud_start(cur,maximum,r1,g1=127,b1=0,r2=63,g2=193,b2=63,hud_switch,visibles)
    @hud = QHud.new(cur,maximum,r1,g1,b1,r2,g2,b2,hud_switch,visibles)
  end
 
end