[RPG-MAKER.FR] Oniromancie: tout l'univers de RPG Maker en français - Scripts

Auteur : Maker
Logiciel : RPG Maker XP
Nombre de scripts : 1

J'avais créé un menu pour quelqu'un mais au final nous avons décidé de le refaire. Donc, l'ancien ne sert plus et je le donne.
Il modifie l'affichage du menu de sauvegarde en utilisant des images.
Installation
Simple comme bonne nuit, suffit de copier le script et de le coller dans votre projet, au-dessus de Main.
Il vous faudra également placer les ressources au nom suivant dans le dossier Graphics/Pictures :
- "Sauvegarder-1", "Sauvegarder-2", "Sauvegarder-3", "Sauvegarder-4", "Sauvegarder-5", "Sauvegarder-6" et "Sauvegarder-7" désignent les différentes interfaces du menu de sauvegarde.
- "Curseur-menu" qui sera votre curseur
#==============================================================================
# ■ Window_SaveFile2
#------------------------------------------------------------------------------
# par Maker
#==============================================================================
 
class Window_SaveFile2 < Window_Base
  #--------------------------------------------------------------------------
  # ● Readers & Accessors
  #--------------------------------------------------------------------------
  attr_reader   :filename
  attr_reader   :selected
  attr_accessor :infos
  attr_accessor :refreshed
  #--------------------------------------------------------------------------
  # ● Initialize
  #--------------------------------------------------------------------------
  def initialize(file_index, filename)
    super(0, file_index % 4 * 92, 640, 480)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    self.opacity = 0
    @infos = Window_InfoFile.new(file_index, filename)
    @refreshed = false
    @file_index = file_index
    @filename = "Save#{@file_index + 1}.rxdata"
    @time_stamp = Time.at(0)
    @file_exist = FileTest.exist?(@filename)
    if @file_exist
      file = File.open(@filename, "r")
      @time_stamp = file.mtime
      @characters = Marshal.load(file)
      @frame_count = Marshal.load(file)
      @game_system = Marshal.load(file)
      @game_switches = Marshal.load(file)
      @game_variables = Marshal.load(file)
      @total_sec = @frame_count / Graphics.frame_rate
      file.close
    end
    refresh
    @selected = false
  end
  #--------------------------------------------------------------------------
  # ● Refresh
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    self.contents.font.color = normal_color
    if @file_exist
      for i in 0...@characters.size
        bitmap = RPG::Cache.character(@characters[i][0], @characters[i][1])
        cw = bitmap.rect.width / 4
        ch = bitmap.rect.height / 4
        src_rect = Rect.new(0, 0, cw, ch)
        x = 81 + i * 58 - cw / 2
        self.contents.blt(x, 145 - ch, bitmap, src_rect)
      end
    end
    @infos.refresh if @selected == true
  end
  #--------------------------------------------------------------------------
  # ● Selected
  #--------------------------------------------------------------------------
  def selected=(selected)
    @selected = selected
  end
  #--------------------------------------------------------------------------
  # ● Dispose
  #--------------------------------------------------------------------------
  alias old_dispose dispose
  def dispose
    old_dispose
    @infos.dispose
  end
end
 
#==============================================================================
# ■ Window_InfoFile
#------------------------------------------------------------------------------
# par Maker
#==============================================================================
 
class Window_InfoFile < Window_Base
  #--------------------------------------------------------------------------
  # ● Initialize
  #--------------------------------------------------------------------------
  def initialize(file_index, filename)
    super(0, 0, 640, 480)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = 20
    self.opacity = 0
    @file_index = file_index
    @filename = "Save#{@file_index + 1}.rxdata"
    @time_stamp = Time.at(0)
    @file_exist = FileTest.exist?(@filename)
    if @file_exist
      file = File.open(@filename, "r")
      @time_stamp = file.mtime
      @characters = Marshal.load(file)
      @frame_count = Marshal.load(file)
      @game_system = Marshal.load(file)
      @game_switches = Marshal.load(file)
      @game_variables = Marshal.load(file)
      @game_map = Marshal.load(file)
      @game_map = Marshal.load(file)
      @game_map = Marshal.load(file)
      @game_party = Marshal.load(file)
      @game_map = Marshal.load(file)
      @game_map = Marshal.load(file)
      @total_sec = @frame_count / Graphics.frame_rate
      file.close
    end
    @selected = false
  end
  #--------------------------------------------------------------------------
  # ● Refresh
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    self.contents.font.color = system_color
    if @file_exist
      self.contents.draw_text(400, 110, 100, 32, "Hp")
      self.contents.draw_text(470, 110, 100, 32, "Mp")
      self.contents.draw_text(528, 110, 100, 32, "Niv.")
      self.contents.font.color = normal_color
      for i in 0...@game_party.actors.size
        actor = @game_party.actors[i]
        self.contents.draw_text(380, 128 + i*28, 200, 32, actor.hp.to_s + "/" + actor.maxhp.to_s + "  " + actor.sp.to_s + "/" + actor.maxsp.to_s + "      " + actor.level.to_s)
      end
      map_infos = load_data("Data/MapInfos.rxdata")
      name = map_infos[@game_map.map_id].name.to_s
      self.contents.draw_text(468, 258, 200, 32, name)
      hour = @total_sec / 60 / 60
      min = @total_sec / 60 % 60
      sec = @total_sec % 60
      time_string = sprintf("%02d:%02d:%02d", hour, min, sec)
      self.contents.draw_text(475, 293, 200, 32, time_string)
    end
  end
  
  def clear
    self.contents.clear
  end
end
 
#==============================================================================
# ■ Scene_File
#------------------------------------------------------------------------------
# 　セーブ画面およびロード画面のスーパークラスです。
#==============================================================================
 
class Scene_File2
  #--------------------------------------------------------------------------
  # ● Initialize
  #--------------------------------------------------------------------------
  def initialize(help_text)
    @help_text = help_text
  end
  #--------------------------------------------------------------------------
  # ● Main
  #--------------------------------------------------------------------------
  def main
    @spriteset = Spriteset_Map.new
    @help_window = Window_Help.new
    @help_window.set_text(@help_text)
    @help_window.x = 280
    @help_window.y = -63
    @help_window.opacity = 0
    @help_window.contents_opacity = 0
    @confirm_window = Window_HorizCommand.new(["Oui", "Non"])
    @confirm_window.visible = false
    @confirm_window.active = false
    @sav = Sprite.new
    @sav.bitmap = RPG::Cache.picture("Sauvegarder-1")
    @sav.y = -90
    @sav.opacity = 0
    @details = Sprite.new
    @details.bitmap = RPG::Cache.picture("Sauvegarder-2")
    @details.x = 90
    @details.opacity = 0
    @opt = Sprite.new
    @opt.bitmap = RPG::Cache.picture("Sauvegarder-3")
    @opt.y = 90
    @opt.opacity = 0
    @case1 = Sprite.new
    @case1.bitmap = RPG::Cache.picture("Sauvegarder-4")
    @case1.x = 90
    @case1.opacity = 0
    @case2 = Sprite.new
    @case2.bitmap = RPG::Cache.picture("Sauvegarder-5")
    @case2.x = -90
    @case2.opacity = 0
    @case3 = Sprite.new
    @case3.bitmap = RPG::Cache.picture("Sauvegarder-6")
    @case3.x = 90
    @case3.opacity = 0
    @case4 = Sprite.new
    @case4.bitmap = RPG::Cache.picture("Sauvegarder-7")
    @case4.x = -90
    @case4.opacity = 0
    @opt.y = 90
    @opt.opacity = 0
    @curseur = Sprite.new
    @curseur.bitmap = RPG::Cache.picture("Curseur-menu")
    @y = [75,165,260,355]
    @y2 = [335,385] 
    @curseur.x = 40
    @curseur.y = @y[0]
    @file_index = $game_temp.last_file_index
    @savefile_windows = []
    for i in 0..3
      @savefile_windows.push(Window_SaveFile2.new(i, make_filename(i)))
      @savefile_windows[i].contents_opacity = 0
    end
    @savefile_windows[@file_index].selected = true
    @boucle = false
    @tourne = 0
    @transcurs = false
    @frames = 0
    Graphics.transition
    slide_in
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @spriteset.dispose
    @help_window.dispose
    @confirm_window .dispose
    for i in @savefile_windows
      i.dispose
    end
    @sav.dispose
    @details.dispose
    @opt.dispose
    @case1.dispose
    @case2.dispose
    @case3.dispose
    @case4.dispose
    @curseur.dispose
    @curseur2.dispose if @curseur2 != nil
  end
  #--------------------------------------------------------------------------
  # ● Slide In
  #--------------------------------------------------------------------------
  def slide_in
    while @sav.y != 0
      @help_window.y += 10
      @sav.y += 10
      @details.x -= 10
      @opt.y -= 10
      @case1.x -= 10
      @case2.x += 10
      @case3.x -= 10
      @case4.x += 10
      @help_window.contents_opacity += 29
      for i in @savefile_windows
        i.contents_opacity += 29
      end
      @sav.opacity += 29
      @details.opacity += 29
      @opt.opacity += 29
      @case1.opacity += 29
      @case2.opacity += 29
      @case3.opacity += 29
      @case4.opacity += 29
      Graphics.update
    end
  end
  #--------------------------------------------------------------------------
  # ● Slide Out
  #--------------------------------------------------------------------------
  def slide_out
    $game_system.se_play($data_system.cancel_se)
    while @sav.y != -90
      @help_window.y -= 10
      @sav.y -= 10
      @details.x += 10
      @opt.y += 10
      @case1.x += 10
      @case2.x -= 10
      @case3.x += 10
      @case4.x -= 10
      @help_window.contents_opacity -= 29
      for i in @savefile_windows
        i.contents_opacity -= 29
      end
      @curseur.opacity -= 29
      @sav.opacity -= 29
      @details.opacity -= 29
      @opt.opacity -= 29
      @case1.opacity -= 29
      @case2.opacity -= 29
      @case3.opacity -= 29
      @case4.opacity -= 29
      Graphics.update
    end
    if $game_temp.save_calling
      $game_temp.save_calling = false
      $scene = Scene_Map.new
      return
    end
    $scene = Scene_Menu.new(4)
  end
  #--------------------------------------------------------------------------
  # ● Update
  #--------------------------------------------------------------------------
  def update
    @help_window.update
    @confirm_window.update
    if @transcurs == false
      if @curseur.opacity > 155 and @boucle == false
        @curseur.opacity -= 5
        @boucle = true if @curseur.opacity == 155
      elsif @curseur.opacity < 255 and @boucle == true
        @curseur.opacity += 5
        @boucle = false if @curseur.opacity == 255
      end
      @tourne += 1
      if @tourne >= 100
        @curseur.angle += 15
        if @curseur.angle == 360
          @tourne = 0
          @curseur.angle = 0
        end
      end
    else
      @frames += 1
      if @frames > 2
        @frames = 0
        if @curseur.opacity == 255
          @curseur.opacity = 0
        else
          @curseur.opacity = 255
        end
      end
      return
    end
    for i in @savefile_windows
      i.update
      if i.selected == true and i.refreshed == false
        i.infos.refresh
        i.refreshed = true
      elsif i.selected == false
        i.infos.clear
        i.refreshed = false
      end
    end
    if Input.trigger?(Input::C)
      $game_system.se_play($data_system.decision_se)
      sauve_ou_charge
      return
    end
    if Input.trigger?(Input::B)
      slide_out
      return
    end
    if Input.trigger?(Input::DOWN)
      $game_system.se_play($data_system.cursor_se)
      obj = @curseur.y == @y[0] ? @y[1] : @curseur.y == @y[1] ? @y[2] : @curseur.y == @y[2] ?@y[3] : @y[0]
      dist = (obj - @curseur.y) / 5
      while @curseur.y != obj
        @curseur.y += dist
        Graphics.update
      end
      @savefile_windows[@file_index].selected = false
      @file_index = (@file_index + 1) % 4
      @savefile_windows[@file_index].selected = true
    end
    if Input.trigger?(Input::UP)
      $game_system.se_play($data_system.cursor_se)
      obj = @curseur.y == @y[0] ? @y[3] : @curseur.y == @y[1] ? @y[0] : @curseur.y == @y[2] ?@y[1] : @y[2]
      dist = (@curseur.y - obj) / 5
      while @curseur.y != obj
        @curseur.y -= dist
        Graphics.update
      end
      @savefile_windows[@file_index].selected = false
      @file_index = (@file_index + 3) % 4
      @savefile_windows[@file_index].selected = true
    end
  end
  #--------------------------------------------------------------------------
  # ● Sauve ou Charge
  #--------------------------------------------------------------------------
  def sauve_ou_charge
    @help_window.set_text("Sauvegarder ou charger ce fichier ?")
    @transcurs = true
    @curseur2 = Sprite.new
    @curseur2.bitmap = RPG::Cache.picture("Curseur-menu")
    @curseur2.x = 320
    @curseur2.y = @y2[0]
    loop do
      Graphics.update
      Input.update
      update
      if Input.trigger?(Input::DOWN)
        $game_system.se_play($data_system.cursor_se)
        obj = @curseur2.y == @y2[0] ? @y2[1] : @y2[0]
        dist = (obj - @curseur2.y) / 5
        while @curseur2.y != obj
          @curseur2.y += dist
          Graphics.update
        end
      end
      if Input.trigger?(Input::UP)
        $game_system.se_play($data_system.cursor_se)
        obj = @curseur2.y == @y2[0] ? @y2[1] : @y2[0]
        dist = (@curseur2.y - obj) / 5
        while @curseur2.y != obj
          @curseur2.y -= dist
          Graphics.update
        end
      end
      if Input.trigger?(Input::B)
        $game_system.se_play($data_system.cancel_se)
        @transcurs = false
        @curseur.opacity = 255
        @curseur2.dispose
        @help_window.set_text(@help_text)
        break
      end
      if Input.trigger?(Input::C)
        $game_system.se_play($data_system.decision_se)
        case @curseur2.y
        when @y2[0]
          @help_window.set_text("Confirmer ?")
          @confirm_window.visible = true
          @confirm_window.active = true
          loop do
            Graphics.update
            Input.update
            update
            if Input.trigger?(Input::B)
              $game_system.se_play($data_system.cancel_se)
              @confirm_window.visible = false
              @confirm_window.active = false
              @transcurs = false
              @curseur.opacity = 255
              @curseur2.dispose
              @help_window.set_text(@help_text)
              break
            end
            if Input.trigger?(Input::C)
              $game_system.se_play($data_system.decision_se)
              case @confirm_window.index
              when 0
                on_decision(make_filename(@file_index))
                $game_temp.last_file_index = @file_index
                @transcurs = false
                @curseur.opacity = 255
                @curseur2.dispose
              when 1
                @transcurs = false
                @curseur.opacity = 255
                @curseur2.dispose
              end
              @confirm_window.visible = false
              @confirm_window.active = false
              @help_window.set_text(@help_text)
              break
            end
          end
          break
        when @y2[1]
          @help_window.set_text("Confirmer ?")
          @confirm_window.visible = true
          @confirm_window.active = true
          loop do
            Graphics.update
            Input.update
            update
            if Input.trigger?(Input::B)
              $game_system.se_play($data_system.cancel_se)
              @confirm_window.visible = false
              @confirm_window.active = false
              @transcurs = false
              @curseur.opacity = 255
              @curseur2.dispose
              @help_window.set_text(@help_text)
              break
            end
            if Input.trigger?(Input::C)
              $game_system.se_play($data_system.decision_se)
              case @confirm_window.index
              when 0
                load(make_filename(@file_index))
                $game_temp.last_file_index = @file_index
                @transcurs = false
                @curseur.opacity = 255
                @curseur2.dispose
              when 1
                @transcurs = false
                @curseur.opacity = 255
                @curseur2.dispose
              end
              @confirm_window.visible = false
              @confirm_window.active = false
              @help_window.set_text(@help_text)
              break
            end
          end
          break
        end
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● Make Filename
  #--------------------------------------------------------------------------
  def make_filename(file_index)
    return "Save#{file_index + 1}.rxdata"
  end
end
 
#==============================================================================
# ■ Window_HorizCommand
#------------------------------------------------------------------------------
# par Maker
#==============================================================================
 
class Window_HorizCommand < Window_Selectable
  #--------------------------------------------------------------------------
  # ● Initialize
  #--------------------------------------------------------------------------
  def initialize(commands)
    super(430, 27, 200, 64)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = 22
    self.opacity = 0
    @item_max = commands.size
    @column_max = commands.size
    @commands = commands
    refresh
    self.index = 0
  end
  #--------------------------------------------------------------------------
  # ● Refresh
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    for i in 0...@item_max
      draw_item(i)
    end
  end
  #--------------------------------------------------------------------------
  # ● Draw Item
  #--------------------------------------------------------------------------
  def draw_item(index)
    x = 16 + index * 100
    self.contents.draw_text(x, 0, 128, 32, @commands[index])
  end
end
 
#==============================================================================
# ■ Scene_Save
#------------------------------------------------------------------------------
# 　セーブ画面の処理を行うクラスです。
#==============================================================================
 
class Scene_Save < Scene_File2
  #--------------------------------------------------------------------------
  # ● Initialize
  #--------------------------------------------------------------------------
  def initialize
    super("Choisissez un fichier.")
  end
  #--------------------------------------------------------------------------
  # ● On decision
  #--------------------------------------------------------------------------
  def on_decision(filename)
    $game_system.se_play($data_system.save_se)
    file = File.open(filename, "wb")
    write_save_data(file)
    file.close
    if $game_temp.save_calling
      $game_temp.save_calling = false
      $scene = Scene_Map.new
      return
    end
    $scene = Scene_Menu.new(4)
  end
  #--------------------------------------------------------------------------
  # ● Write Save Data
  #--------------------------------------------------------------------------
  def write_save_data(file)
    characters = []
    for i in 0...$game_party.actors.size
      actor = $game_party.actors[i]
      characters.push([actor.character_name, actor.character_hue])
    end
    Marshal.dump(characters, file)
    Marshal.dump(Graphics.frame_count, file)
    $game_system.save_count += 1
    $game_system.magic_number = $data_system.magic_number
    Marshal.dump($game_system, file)
    Marshal.dump($game_switches, file)
    Marshal.dump($game_variables, file)
    Marshal.dump($game_self_switches, file)
    Marshal.dump($game_screen, file)
    Marshal.dump($game_actors, file)
    Marshal.dump($game_party, file)
    Marshal.dump($game_troop, file)
    Marshal.dump($game_map, file)
    Marshal.dump($game_player, file)
  end
  
  #--------------------------------------------------------------------------
  # ● Load
  #--------------------------------------------------------------------------
  def load(filename)
    unless FileTest.exist?(filename)
      $game_system.se_play($data_system.buzzer_se)
      return
    end
    $game_system.se_play($data_system.load_se)
    file = File.open(filename, "rb")
    read_save_data(file)
    file.close
    $game_system.bgm_play($game_system.playing_bgm)
    $game_system.bgs_play($game_system.playing_bgs)
    $game_map.update
    $scene = Scene_Map.new
  end
  #--------------------------------------------------------------------------
  # ● Read Save Data
  #--------------------------------------------------------------------------
  def read_save_data(file)
    characters = Marshal.load(file)
    Graphics.frame_count = Marshal.load(file)
    $game_system        = Marshal.load(file)
    $game_switches      = Marshal.load(file)
    $game_variables     = Marshal.load(file)
    $game_self_switches = Marshal.load(file)
    $game_screen        = Marshal.load(file)
    $game_actors        = Marshal.load(file)
    $game_party         = Marshal.load(file)
    $game_troop         = Marshal.load(file)
    $game_map           = Marshal.load(file)
    $game_player        = Marshal.load(file)
    if $game_system.magic_number != $data_system.magic_number
      $game_map.setup($game_map.map_id)
      $game_player.center($game_player.x, $game_player.y)
    end
    $game_party.refresh
  end
end