Модификация скрипта 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