Zobacz temat - FullScreen

Spoiler:

Kod:

#==========================================================================
# Automatic Full Screen v1.0
#==========================================================================
# Autor: Blizzard
# Modyfikacje by Melvin - www.ultimateam.pl
#==========================================================================
module Melvin
# Windowskin:
$WSFSSCR = "001-Blue01"
# Przezroczystość(0-255):
OP = 255
#=================================================
# Tekst na ekranie:
TEXT = "Ustawić pełny ekkran?"
# Tekst przycisku "Tak":
YES = "Tak"
# Tekst przycisku "Nie":
NO = "Nie"
end
#==========================================================================
class Scene_Title
alias main_fullscreen? main
def main
if true
unless $game_started
Graphics.freeze
$data_system = load_data('Data/System.rxdata')
$game_system = Game_System.new
@window = Window_FullScreen.new(320, [Melvin::YES ,Melvin::NO])
@window.x = 320 - @window.width / 2
@window.y = 240 - @window.height / 2
@window.opacity = 0
@picBG = Window_picBG.new
@picBG.x = 0
@picBG.y = 0
@picBG.opacity = 255
Graphics.transition(10)
loop do
Graphics.update
Input.update
@window.update
@picBG.update
update_window
break if $game_started
end
Graphics.freeze
@window.dispose
@picBG.dispose
@window = nil
Graphics.transition(10)
Graphics.freeze
end
else
$game_started = true
end
main_fullscreen?
end
def update_window
if Input.trigger?(Input::C)
if @window.index == 0
$game_system.se_play($data_system.decision_se)
keybd = Win32API.new 'user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v'
keybd.call 0xA4, 0, 0, 0
keybd.call 13, 0, 0, 0
keybd.call 13, 0, 2, 0
keybd.call 0xA4, 0, 2, 0
else
$game_system.se_play($data_system.cancel_se)
end
$game_started = true
elsif Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
$game_started = true
end
end
end
class Window_FullScreen < Window_Selectable
def initialize(width, commands)
super(0, 0, width, commands.size * 32 + 64)
@item_max = commands.size
@commands = commands
self.contents = Bitmap.new(width - 32, @item_max * 32 + 32)
if $fontface != nil
self.contents.font.name = $fontface
self.contents.font.size = $fontsize
elsif $defaultfonttype != nil
self.contents.font.name = $defaultfonttype
self.contents.font.size = $defaultfontsize
end
refresh
self.index = 0
end
def refresh
self.contents.clear
qu = Melvin::TEXT
self.contents.draw_text(0, 0, width - 32, 32, qu, 1)
for i in 0...@item_max
draw_item(i, normal_color)
end
end
def draw_item(index, color)
rect = Rect.new(4, 32+32 * index, self.contents.width - 8, 32)
rect2 = Rect.new(4+1, 32+32 * index+1, self.contents.width - 8, 32)
self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
self.contents.font.color = color
self.contents.draw_text(rect, @commands[index], 1)
end
def update_cursor_rect
if @index < 0
self.cursor_rect.empty
return
end
row = @index / @column_max
self.top_row = row if row < self.top_row
if row > self.top_row + (self.page_row_max - 1)
self.top_row = row - (self.page_row_max - 1)
end
cursor_width = 64
x = (self.contents.width - cursor_width) / 2
y = @index / @column_max * 32 - self.oy
self.cursor_rect.set(x, y + 32, cursor_width, 32)
end
end
class Window_picBG < Window_Base
def initialize(x = 640, y = 480, width = 640, height = 480)
super(x, y, width, height)
self.contents = Bitmap.new(width - 32, height - 32)
self.back_opacity = Melvin::OP
refresh
end
def refresh
self.contents.clear
self.windowskin = RPG::Cache.windowskin($WSFSSCR)
end
end