RPG MAKER LOVE

Forum aide pour la création d'un jeux vidéo Amateur avec RPG MAKER 2003, Rpg Maker xp, et Rpg Maker VX
 
AccueilAccueil  PortailPortail  SiteSite  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  Connexion  ChatChat  

Partagez | 
 

 Script Ecran titre alternative (Deadlydan)

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Monos
Webmaster
avatar

Nombre de messages : 1477
Age : 33
Localisation : Reims
Version RPG MAKER : 2003
Projet: : Necromunta
Date d'inscription : 14/12/2006

MessageSujet: Script Ecran titre alternative (Deadlydan)   Jeu 21 Fév - 8:31

Nom du script:DeadlyDan_Title, A Scene_Title replacement with image items alternative.
Auteur: Deadlydan
Nombre de screen : 1
Info:



Dans le fichier "system" vous devez placer 6 graphe nommez:
Citation :

"new.png"
"new_over.png"

"continue.png"
"continue_over.png"

"quit.png"
"quit_over.png"

Voici une archive de l'auteur des graphes:

Télécharger

Et voici le script.

Code:
#==============================================================================
# ■ 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

_________________
Mon blogue et de mon projet Vx. Lien
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Script Ecran titre alternative (Deadlydan)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Ecran Titre en Event Sous Vx Ace
» un écran titre pour un rogue like
» Ecran bleu
» Appeler un script/ une page PHP?
» [résolu]Ecran bleu durant un scan malwarebyte's

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
RPG MAKER LOVE :: RPG MAKER 2000-XP :: Rpg Maker VX :: Téléchargement et Script VX :: Script Vx-
Sauter vers: