Xas Title screen, title screen by xas Rating Options

[vincas123]

This is one of best title screens i ever saw. Hope you like it!

[

CODE

#_______________________________________________________________________________

# MOG_Scene Title XAS Edition          
#_______________________________________________________________________________

# Scene Title criada exclusivamente para a Demo do XAS.
#_______________________________________________________________________________

class Scene_Title
  def main
    if $BTEST
    battle_test
    return
    end
    $data_actors        = load_data("Data/Actors.rxdata")
    $data_classes       = load_data("Data/Classes.rxdata")
    $data_skills        = load_data("Data/Skills.rxdata")
    $data_items         = load_data("Data/Items.rxdata")
    $data_weapons       = load_data("Data/Weapons.rxdata")
    $data_armors        = load_data("Data/Armors.rxdata")
    $data_enemies       = load_data("Data/Enemies.rxdata")
    $data_troops        = load_data("Data/Troops.rxdata")
    $data_states        = load_data("Data/States.rxdata")
    $data_animations    = load_data("Data/Animations.rxdata")
    $data_tilesets      = load_data("Data/Tilesets.rxdata")
    $data_common_events = load_data("Data/CommonEvents.rxdata")
    $data_system        = load_data("Data/System.rxdata")
    $game_system = Game_System.new
    s1 = "New Game"
    s2 = "Continue"
    s3 = "Shutdown"
    @command_window = Window_Command.new(192, [s1, s2, s3])
    @command_window.back_opacity = 160
    @command_window.x = -150
    @command_window.y = 335
    @command_window.opacity = 0
    @continue_enabled = false
    @mnpan = Plane.new
    @mnpan.bitmap = RPG::Cache.title("Title_Pano01")
    @mnpan.z = 1
    @mnpan2 = Plane.new
    @mnpan2.bitmap = RPG::Cache.fog("001-Fog01",0)
    @mnpan2.opacity = 120
    @mnpan2.blend_type = 1
    @mnpan2.z = 3        
    @mnlay = Sprite.new
    @mnlay.bitmap = RPG::Cache.title("Title")
    @mnlay.z = 10
    @mnlay.zoom_x = 3
    @mnlay.opacity = 0
    for i in 0..3
    if FileTest.exist?("Save#{i+1}.rxdata")
    @continue_enabled = true
    end
    end
    if @continue_enabled
    @command_window.index = 1
    else
    @command_window.disable_item(1)
    end
    $game_system.bgm_play($data_system.title_bgm)
    Audio.me_stop
    Audio.bgs_stop
    Graphics.transition(15, "Graphics/Transitions/004-Blind04")
    loop do
    Graphics.update
    Input.update
    update
    if $scene != self
    break
    end
    end
    for i in 1..20
    @mnpan.zoom_x += 0.01
    @mnpan.zoom_y += 0.01
    @mnpan.ox += 10
    @mnpan.oy += 5  
    @mnpan2.ox -= 1
    @mnpan2.oy += 1  
    @mnlay.zoom_x += 0.1
    @mnlay.opacity -= 10    
    @command_window.x -= 15
    Graphics.update    
    end    
    for i in 1..20
    @mnpan.zoom_x -= 0.01
    @mnpan.zoom_y -= 0.01      
    @mnpan.ox -= 20
    @mnpan.oy -= 10    
    @mnpan2.opacity += 5
    @mnpan2.ox += 5
    @mnpan2.oy += 5
    @mnpan2.zoom_x += 0.01
    @mnpan2.zoom_y += 0.01
    @mnlay.opacity -= 10
    Graphics.update    
    end  
    Graphics.freeze
    @command_window.dispose
    @mnlay.dispose    
    @mnpan.dispose
    @mnpan2.dispose
  end
  def update
    if @mnlay.zoom_x > 1
       @mnlay.zoom_x -= 0.1
       @mnlay.opacity += 5
    elsif @mnlay.zoom_x <= 1
       @mnlay.zoom_x = 1
       @mnlay.opacity = 255
    end  
    @mnpan.ox += 1
    @mnpan2.ox -= 1
    @mnpan2.oy += 1
    @command_window.update
    if @command_window.x < 50
       @command_window.x += 15
    elsif @command_window.x >= 50
       @command_window.x = 50
    end      
    if Input.trigger?(Input::C)
      case @command_window.index
      when 0
        command_new_game
      when 1
        command_continue
      when 2
        command_shutdown
      end
    end
  end
  def command_new_game
    $game_system.se_play($data_system.decision_se)
    Graphics.frame_count = 0
    $game_temp          = Game_Temp.new
    $game_system        = Game_System.new
    $game_switches      = Game_Switches.new
    $game_variables     = Game_Variables.new
    $game_self_switches = Game_SelfSwitches.new
    $game_screen        = Game_Screen.new
    $game_actors        = Game_Actors.new
    $game_party         = Game_Party.new
    $game_troop         = Game_Troop.new
    $game_map           = Game_Map.new
    $game_player        = Game_Player.new
    $game_party.setup_starting_members
    $game_map.setup($data_system.start_map_id)
    $game_player.moveto($data_system.start_x, $data_system.start_y)
    $game_player.refresh
    $game_map.update
    $scene = Scene_Map.new
  end
  def command_continue
    unless @continue_enabled
      $game_system.se_play($data_system.buzzer_se)
      return
    end
    $game_system.se_play($data_system.decision_se)
    $scene = Scene_Load.new
  end
  def command_shutdown
    $game_system.se_play($data_system.decision_se)
    Audio.bgm_fade(800)
    Audio.bgs_fade(800)
    Audio.me_fade(800)
    $scene = nil
  end
  def battle_test
    $data_actors        = load_data("Data/BT_Actors.rxdata")
    $data_classes       = load_data("Data/BT_Classes.rxdata")
    $data_skills        = load_data("Data/BT_Skills.rxdata")
    $data_items         = load_data("Data/BT_Items.rxdata")
    $data_weapons       = load_data("Data/BT_Weapons.rxdata")
    $data_armors        = load_data("Data/BT_Armors.rxdata")
    $data_enemies       = load_data("Data/BT_Enemies.rxdata")
    $data_troops        = load_data("Data/BT_Troops.rxdata")
    $data_states        = load_data("Data/BT_States.rxdata")
    $data_animations    = load_data("Data/BT_Animations.rxdata")
    $data_tilesets      = load_data("Data/BT_Tilesets.rxdata")
    $data_common_events = load_data("Data/BT_CommonEvents.rxdata")
    $data_system        = load_data("Data/BT_System.rxdata")
    Graphics.frame_count = 0
    $game_temp          = Game_Temp.new
    $game_system        = Game_System.new
    $game_switches      = Game_Switches.new
    $game_variables     = Game_Variables.new
    $game_self_switches = Game_SelfSwitches.new
    $game_screen        = Game_Screen.new
    $game_actors        = Game_Actors.new
    $game_party         = Game_Party.new
    $game_troop         = Game_Troop.new
    $game_map           = Game_Map.new
    $game_player        = Game_Player.new
    $game_party.setup_battle_test_members
    $game_temp.battle_troop_id = $data_system.test_troop_id
    $game_temp.battle_can_escape = true
    $game_map.battleback_name = $data_system.battleback_name
    $game_system.se_play($data_system.battle_start_se)
    $game_system.bgm_play($game_system.battle_bgm)
    $scene = Scene_Battle.new
  end
end

[gRaViJa]

We need a certain graphic to make this script work.

[Gammer0920]

Yeah, this is pretty easily solved. You are going to need to make a graphic for the panorama, name it, and change this line of code...

CODE

@mnpan.bitmap = RPG::Cache.title("Title_Pano01")

Change the name in quotes to the same name as your panorama (something that will scroll in the background.

You will also need to do the same with the title and change this code...

CODE

@mnlay.bitmap = RPG::Cache.title("Title")

Make sure to change it to correspond to what your title is called.

PS. All of the images for this script need to be in the Title folder; the only one that doesn't is the fog...that goes in the fogs.

I hope this helps! Thanks.

This post has been edited by Gammer0920: Mar 12 2009, 02:09 PM

[vincas123]

Sorry guys I'm afraid I forgot. Ok I'll put basic graphics from the XAS system. http://www.megafileupload.com/en/file/8939...aphics-rar.html

[jasonweal]

Hi, I've got a question. I tried to use this script and it works, but every time I start a new game the music I have set on the map isn't playing. It's just off.
Now I added $game_map.autoplay to the script and finally the music on the map is playing (and not the title BGM anymore), but now the title BGM breaks off suddenly when starting a new game. I tried to add Audio.bgm_fade(XXX) but the script seems to ignore it.

Is there a possibility that I fade out the music after choosing "New Game"? (Sorry, I'm not very talented with Ruby)

This post has been edited by jasonweal: Jan 20 2010, 03:48 PM

[calvin624]

Alternatively you can download them directly from Moghunter's site:

http://www.atelier-rgss.com/RGSS/RGSS_XP.html

If you have any issues opening these files - read this: http://xasabs.wordpress.com/2009/08/04/pro...open-old-files/

Enjoy!