Zobacz temat - Intro [XP]

Spoiler:

Kod:

# ===========================================================
# Scene_Intro
# -----------------------------------------------------------
# * by Sabikku
# * 07.05.10
# * zamthir.net/forum
# * ultimateam.pl
# ===========================================================

SINGLE_LOGO_WAIT = 100
LOGOS_NAMES = []
LOGOS_NAMES << "Logo"
LOGOS_NAMES << "Logo2"
SPACE_OPTION = true

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

class Scene_Intro
# Main. ---------------------------------------------------
def main
# Make system object
$data_system = load_data("Data/System.rxdata")
$game_system = Game_System.new
# Windows.
@command_window=Window_Command.new(230, ["Pełny ekran.", "Tryb okienkowy."])
@command_window.x=320-@command_window.width/2
@command_window.y=240-@command_window.height/2
@command_window.visible=true; @command_window.active=true
# Other variables.
@active_logo=-1
@logo_wait=0
@logo_sprite=nil
# Main loop.
Graphics.transition
while $scene==self
Graphics.update
Input.update
update
end
Graphics.freeze
# Disposing.
@command_window.dispose
end

# Update. -------------------------------------------------
def update
@command_window.update
if @logo_sprite!=nil
@logo_sprite.update
# Space.
if SPACE_OPTION and Input.trigger?(Input::C)
$scene=Scene_Title.new
end
end
# Intro events.
if @command_window.active
# Controlling keyboard.
if Input.trigger?(Input::C)
$game_system.se_play($data_system.decision_se)
@command_window.active=false
@command_window.visible=false
# Fullscreen.
if @command_window.index==0
full = Win32API.new 'user32', 'keybd_event', %w(l l l l), ''
full.call(18,0,0,0)
full.call(13,0,0,0)
full.call(13,0,2,0)
full.call(18,0,2,0)
end
end
else
# Logos showing
if @logo_wait==SINGLE_LOGO_WAIT
@active_logo+=1
if @active_logo == LOGOS_NAMES.size
# Title screen.
$scene=Scene_Title.new
else
@logo_sprite=Sprite.new(Viewport.new(0,0,640,480))
@logo_sprite.bitmap=RPG::Cache.picture(LOGOS_NAMES[@active_logo])
@logo_sprite.x=320-@logo_sprite.bitmap.width/2
@logo_sprite.y=240-@logo_sprite.bitmap.height/2
@logo_sprite.opacity=0
end
@logo_wait=0
else
@logo_wait+=1
if @logo_sprite!=nil
# Showing a single logo with 1/3 fading.
if @logo_wait < SINGLE_LOGO_WAIT/3
# Fade in
@logo_sprite.opacity=[@logo_sprite.opacity + (255/(SINGLE_LOGO_WAIT/3)) , 255].min
elsif @logo_wait < SINGLE_LOGO_WAIT/3*2
# Do nothing.
elsif @logo_wait < SINGLE_LOGO_WAIT
# Fade out.
@logo_sprite.opacity=[@logo_sprite.opacity - (255/(SINGLE_LOGO_WAIT/3)) , 255].min
end
end
end
end
end
end