#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#                          Sauvegarde Windows             
#  par berka                        v 1.0                    rgss2
#                        http://www.rpgmakervx-fr.com
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# A coller au dessus de main
# dans un événement, appel de script:
# sauver    : pour ouvrir la fenetre de sauvegarde
# charger  : pour ouvrir la fenetre de chargement
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# Vous pouvez charger des sauvegardes d'autres projets, mais les données systeme
# ne seront pas chargées ! (maps, events...)
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
module Berka
  module ChargApi
    $LOAD_PATH<<'./'
    Filtre=["Sauvegarde",".rvdata"]
    Charger="Charger une Sauvegarde"
    Sauver="Sauver le Jeu"
    Conf="La sauvegarde %s existe deja, voulez vous l'ecraser ?"
    ConfTitre="Confirmation"
    Ret="Scene_Map"
  end
end
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
def handle
  h=Win32API.new('kernel32','GetPrivateProfileString','pppplp','l')
  h.call("Game","Title","",t="\0"*256,256,"./Game.ini")
  Win32API.new('user32','FindWindow','pp','i').call("RGSS Player",t.delete!("\0"))
end
include Berka::ChargApi
class Game_Interpreter;def list_clr;@list=nil;end;end
def charger
  ret,filtre="\0"*1024,"#{Filtre[0]}(*#{Filtre[1]})\0*#{Filtre[1]}\0\0"
  arg=[76,handle,0,filtre,0,0,1,ret,ret.size,0,0,0,Charger,
  0x800|0x1000|4,0,0,".",0,0,0,].pack("I3pI3pI4pIS2pI3")
  return if Win32API.new('comdlg32','GetOpenFileName','p','i').call(arg)==0
  Scene_File.new(false,false,true).read_save_data(f=File.open(ret.rstrip,"rb"))
  f.close;$scene=eval("$scene=#{Ret}.new")
end
def sauver
  ret,filtre="\0"*1024,"#{Filtre[0]}(*#{Filtre[1]})\0*#{Filtre[1]}\0\0"
  arg=[76,handle,0,filtre,0,0,1,ret,ret.size,0,0,0,Sauver,
  4|0x1000|0x80000,0,0,".",0,0,0].pack("I3pI3pI4pIS2pI3")
  return if Win32API.new('comdlg32','GetSaveFileName','p','i').call(arg)==0
  sauver if !(confirm?(ret.rstrip)if FileTest.exist?(ret.rstrip))
  $game_map.interpreter.list_clr
  Scene_File.new(true,false,true).write_save_data(f=File.open(ret.rstrip,"wb"))
  f.close;$scene=eval("$scene=#{Ret}.new")
end
def confirm?(f)
  t=sprintf(Conf,f.split("\\")[-1].gsub(Filtre[1],""))
  Win32API.new('user32','MessageBox','lppl','i').call(0,t,ConfTitre,36)==6
end

sauver

charger