DeadlyDan_Title - Version 1.00

[Dainreth]

DeadlyDan_Title - Version 1.00

von DeadlyDan

Vorwort
Euch gefällt der Titelscreen aufgrund der Box nicht mehr? Wie wäre es, wenn wir stattdessen einfach eigen gestaltete Pictures anzeigen lassen und das auch noch funktioniert? Gefäät euch? Na dan los, mit diesem Skript von DeadlyDan könnt ihr dies tun. Das Skript ist eigentlich selbsterklärend. Es ist eine Alternative zum "Scene_Title"-Skript und ist einfach zu bedienen. Fragen könnt ihr hier, wie auch im original Thread stellen (unter Quelle findet ihr den Link dazu).

Skript

Spoiler for Hiden:

Code: [Auswählen]

#==============================================================================
# ¦ DeadlyDan_Title by DeadlyDan
#------------------------------------------------------------------------------
#  Replaces Scene_Title with an image menu alternative.
#==============================================================================
# Usage:
=begin
  
  Simply place this file anywhere after Scene_Title, place the following images in the "System" folder of your
  project:
  
  "new.png"
  "new_over.png"
  
  "continue.png"
  "continue_over.png"
  
  "quit.png"
  "quit_over.png"
  
  (NOTE)
  This has been scripted to in the idea that people may add more items to the menu, my script is easy enough
  to understand so it shouldn't be too hard to add new items. Just make sure that you add menu items after the
  stock ones i've added since any additions may distort the "load game" processing for the menu items.
  
  If you look at my positioning algorithm for the menu items you'll find it's not too hard to place your own.
  
=end

module DeadlyDan_Title

    IMAGE_NEW = [ "new", "new_over" ]    
    IMAGE_CONTINUE = [ "continue", "continue_over" ]    
    IMAGE_QUIT = [ "quit", "quit_over" ]    
    
end

class Scene_Title < Scene_Base
  
  def main
    if $BTEST
      battle_test
    else
      super
    end
  end

  def start
    super
    load_database
    create_game_objects
    check_continue
    create_title_graphic
    create_menu
    play_title_music
  end

  def perform_transition
    Graphics.transition ( 20 )
  end

  def post_start
    super
  end

  def pre_terminate
    super
  end

  def terminate
    super
    dispose_menu
    snapshot_for_background
    dispose_title_graphic
  end

  def update
    super
    if ( Input.trigger? ( Input::C ) )
      case @menu_index
      when 0
        command_new_game
      when 1
        command_continue
      when 2
        command_shutdown
      end
    end
    update_menu
  end

  def load_database
    $data_actors        = load_data ( "Data/Actors.rvdata" )
    $data_classes       = load_data ( "Data/Classes.rvdata" )
    $data_skills        = load_data ( "Data/Skills.rvdata" )
    $data_items         = load_data ( "Data/Items.rvdata" )
    $data_weapons       = load_data ( "Data/Weapons.rvdata" )
    $data_armors        = load_data ( "Data/Armors.rvdata" )
    $data_enemies       = load_data ( "Data/Enemies.rvdata" )
    $data_troops        = load_data ( "Data/Troops.rvdata" )
    $data_states        = load_data ( "Data/States.rvdata" )
    $data_animations    = load_data ( "Data/Animations.rvdata" )
    $data_common_events = load_data ( "Data/CommonEvents.rvdata" )
    $data_system        = load_data ( "Data/System.rvdata" )
    $data_areas         = load_data ( "Data/Areas.rvdata" )
  end

  def load_bt_database
    $data_actors        = load_data ( "Data/BT_Actors.rvdata" )
    $data_classes       = load_data ( "Data/BT_Classes.rvdata" )
    $data_skills        = load_data ( "Data/BT_Skills.rvdata" )
    $data_items         = load_data ( "Data/BT_Items.rvdata" )
    $data_weapons       = load_data ( "Data/BT_Weapons.rvdata" )
    $data_armors        = load_data ( "Data/BT_Armors.rvdata" )
    $data_enemies       = load_data ( "Data/BT_Enemies.rvdata" )
    $data_troops        = load_data ( "Data/BT_Troops.rvdata" )
    $data_states        = load_data ( "Data/BT_States.rvdata" )
    $data_animations    = load_data ( "Data/BT_Animations.rvdata" )
    $data_common_events = load_data ( "Data/BT_CommonEvents.rvdata" )
    $data_system        = load_data ("Data/BT_System.rvdata" )
  end

  def create_game_objects
    $game_temp          = Game_Temp.new
    $game_message       = Game_Message.new
    $game_system        = Game_System.new
    $game_switches      = Game_Switches.new
    $game_variables     = Game_Variables.new
    $game_self_switches = Game_SelfSwitches.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
  end

  def check_continue
    @continue_enabled = ( Dir.glob ( 'Save*.rvdata' ).size > 0 )
  end

  def create_title_graphic
    @sprite = Sprite.new
    @sprite.bitmap = Cache.system ( "Title" )
  end
  
  def dispose_title_graphic
    @sprite.bitmap.dispose
    @sprite.dispose
  end

  def create_menu
    padding = 5
    @menu_item = []
    @menu_item.push ( Sprite.new )
    @menu_item.push ( Sprite.new )
    @menu_item.push ( Sprite.new )
    
    @menu_item[1].blend_type = 0
    @menu_item[1].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_CONTINUE[0] )
    @menu_item[1].x = ( ( Graphics.width / 2 ) - ( @menu_item[1].bitmap.width / 2 ) )
    @menu_item[1].y = ( ( Graphics.height / 2 ) - ( @menu_item[1].bitmap.height / 2 ) )
    
    @menu_item[0].blend_type = 0
    @menu_item[0].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_NEW[0] )
    @menu_item[0].x = ( ( Graphics.width / 2 ) - ( @menu_item[0].bitmap.width / 2 ) )
    @menu_item[0].y = ( ( Graphics.height / 2 ) - ( @menu_item[0].bitmap.height / 2 )  ) - ( @menu_item[1].bitmap.height + padding )
    
    @menu_item[2].blend_type = 0
    @menu_item[2].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_QUIT[0] )
    @menu_item[2].x = ( ( Graphics.width / 2 ) - ( @menu_item[2].bitmap.width / 2 ) )
    @menu_item[2].y = ( ( Graphics.height / 2 ) - ( @menu_item[2].bitmap.height / 2 ) ) + ( @menu_item[1].bitmap.height + padding )
    
    if ( @continue_enabled )
      @menu_index = 1
      @menu_item[0].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_NEW[0] )
      @menu_item[1].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_CONTINUE[1] )
      @menu_item[1].tone
      @menu_item[1].tone = Tone.new ( 0, 0, 0, 0 )
    else
      @menu_index = 0
      @menu_item[0].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_NEW[1] )
      @menu_item[1].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_CONTINUE[0] )
      @menu_item[1].opacity = 160
      @menu_item[1].tone = Tone.new ( -100, -100, -100, 255 )
    end
    @menu_count = 3    
  end

  def dispose_menu
    for i in 0..@menu_item.size - 1
        @menu_item[i].dispose
    end
  end
  
  def update_menu
    if ( Input.repeat? ( Input::UP ) or Input.repeat? ( Input::DOWN ) )
      last_index = @menu_index
      
      if ( Input.repeat? ( Input::DOWN ) )
        if ( @menu_index < ( @menu_count - 1 )  )
          if ( @continue_enabled )
            @menu_index += 1
          else          
            if ( ( @menu_index  == 0 )  )
              @menu_index = 2
            else
              @menu_index += 1
            end
          end
        else
          @menu_index = 0
        end
      end
      
      if ( Input.repeat? ( Input::UP ) )
        if ( @menu_index > 0  )
          if ( @continue_enabled )
            @menu_index -= 1
          else          
            if ( ( @menu_index  == 2 )  )
              @menu_index = 0
            else
              @menu_index -= 1
            end
          end
        else
          @menu_index = ( @menu_count - 1 )
        end
      end
      
      if ( @menu_index != last_index )
        Sound.play_cursor
      end
      
      case ( @menu_index )
      when 0
        @menu_item[0].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_NEW[1] )
        @menu_item[1].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_CONTINUE[0] )
        @menu_item[2].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_QUIT[0] )
        
      when 1
        @menu_item[0].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_NEW[0] )
        @menu_item[1].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_CONTINUE[1] )
        @menu_item[2].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_QUIT[0] )
      
      when 2
        @menu_item[0].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_NEW[0] )
        @menu_item[1].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_CONTINUE[0] )
        @menu_item[2].bitmap = Cache.system ( DeadlyDan_Title::IMAGE_QUIT[1] )
        
      end  
      
    end    
    
  end
  
  def play_title_music
    $data_system.title_bgm.play
    RPG::BGS.stop
    RPG::ME.stop
  end

  def confirm_player_location
    if $data_system.start_map_id == 0
      print "Player start point not set."
      exit
    end
  end

  def command_new_game
    confirm_player_location
    Sound.play_decision
    $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
    $scene = Scene_Map.new
    RPG::BGM.fade ( 1500 )
    Graphics.fadeout ( 60 )
    Graphics.wait ( 40 )
    Graphics.frame_count = 0
    RPG::BGM.stop
    $game_map.autoplay
  end

  def command_continue
    if @continue_enabled
      Sound.play_decision
      $scene = Scene_File.new ( false, true, false )
    else
      Sound.play_buzzer
    end
  end

  def command_shutdown
    Sound.play_decision
    RPG::BGM.fade ( 800 )
    RPG::BGS.fade ( 800 )
    RPG::ME.fade ( 800 )
    $scene = nil
  end

  def battle_test
    load_bt_database
    create_game_objects
    Graphics.frame_count = 0
    $game_party.setup_battle_test_members
    $game_troop.setup ( $data_system.test_troop_id )
    $game_troop.can_escape = true
    $game_system.battle_bgm.play
    snapshot_for_background
    $scene = Scene_Battle.new
  end
end

Downloads
Titelmenü-Bilder von DeadlyDan (Download über File-Upload)

Screenshots

Der Beispielscreen von DeadlyDan zu seinem Skript.

Rabus Beispiel für die Verwendung eigener Pictures.

Quellen
Link zum Thread auf rmvx.net
Link zum Thread auf RPG RPG Revolution

Schlusswort
Ein riesen Dankeschön an DeadlyDan, den Ersteller. Ich hoffe der ein oder andere findet Spaß und Nutzen an diesem Skript. Wenn ihr möchtet könnt ihr euch bei DeadlyDan bedanken, nutzt hierfür einfach die Kategorie Quelle. Gestaltet nun euren eigenen Titelbildschirm, wir sind alle gespannt auf die Ergebnisse!

[Baur]

Sehr schönes Script, wird immer wierder gerne genommen, wie ihr seht*g*

[Angelos]

Sehr schönes Script, wird immer wierder gerne genommen, wie ihr seht*g*

Ganz nett.
Aber Könnte man die Bilder weiter nach unten schieben.
Das sie in etwa da sind wo normalerweise die standart textbox ist.
Mit so garnicht der RGSS scrpiter Mensch ^^

[Agito Ace]

Schön, danke sehr an Deadly Dan! Das ermöglicht jeden ein eigenes, individuelles Menü zu erstellen und es seinem Game passend zu gestalten.

[naibaf91]

Kann man das nun weiter nach unten schieben wie unten gefragt???
Bitte um antwort.

[Kasaar]

Cooles Script... nur... geht es irgendwie das man auch den Titel vom Game anzeigen lassen kann?

[Dainreth]

Inwiefern? Meinst du, den Spielnamen auf dem Bild sehen? Einfach das Titelbild mit einem Grafikprogramm bearbeiteten und einen Schriftzug entwerfen

[Kasaar]

Man bin ich blöd... das ich nicht selbst drauf gekommen bin XDD so simple, aber trotzdem gut... Danke Dain

[Spawn]

Script *X_titel* line 38: TypeError occurend.
undefined superclass * Scene_Base*


Der fehler kommt bei mir kann mir da bitte jemand helfen.

[Dainreth]

Versuch mal das Skript von hier aus zu probieren, da durch die neue Forenversion einiges zerschossen wurde:
http://www.rpgrevolution.com/forums/?showtopic=8310

Ich bin kein Skripter allerdings sieht es so aus, als ob "Scene_Base" verändert wurde..(ich glaub das r gehört da nich' rein).
Hast du noch andere Skripts in deinem Projekt?

[Spawn]

Ich hab nurnoch den alle tasten script, hab gerade nen neues projekt gestartet und den script eingefügt.
Aber der fehler kommt immer noch :/

[ERZENGEL]

Hast du Scene_Base gelöscht oder verändert (die Zeile, die mit class beginnt)?

[Johny-Kk]

bei mir ist es noch blöder^^
bis zum titelbildschirm läuft alles einwandfrei und dann geh ich auf spiel starten und das fenster schließt sich!!!
Was zur Hölle soll das?