Module Fichiers Paramètres

FichierParam monfichier;
// Cette ligne va permettre de récupérer/définir des données dans "inventaire.txt"
// stockées sous le format suivant : Parametre->Valeur
monfichier.Open("inventaire.txt", "->");
// Nous stockons une valeur numérique
monfichier.SetInt("argent", 100);
// Nous stockons une valeur textuelle
monfichier.SetParam("livre","Moby Dick");
// Affichera : "J'ai 100 pièces d'or et Moby Dick de Melville dans mon sac"
Display("J'ai %d pièces d'or et %s de Melville dans mon sac", monfichier.GetInt("argent"), monfichier.GetParam("livre"));

// FichiersParametres.ash
struct FichierParam {
  
  String fichier;
  protected String sep;
  
  import function Open(String fichier, String separateur = 0);
  import String GetParam(String param);
  import function SetParam(String param, String valeur);
  import int GetInt(String param);
  import function SetInt(String param, int valeur);
  import bool GetBool(String param);
  import function SetBool(String param, bool valeur);
  import String bonparam(String input, String param); // $AUTOCOMPLETEIGNORE$
  
};

// En bas du fichier FichiersParam.asc
bool FichierParam::GetBool(String param) {
  
  String rec = this.GetParam(param);
  if (rec == "V") return true;
  else return false;
  
}

function FichierParam::SetBool(String param, bool valeur) {
  
  if (valeur) this.SetParam(param, "V");
  else this.SetParam(param, "F");
  
}

void Annecdote(){
  int i = lNoteBookSummary.SelectedIndex;
  if (i == -1) {
    return;
  }
  lNoteBookSummary.Visible = false;
  lNoteBookTitle.Text = lNoteBookSummary.Items[i];
  bNoteBookRead.Visible = false;
  String lText;
  String rText;
  FichierParam Content;
  Content.Open("content.dat","=");
  if (lNoteBookTitle.Text == "The Lost Knight") {
    lText=Content.GetParam("EngLostKnhightL");
    rText=Content.GetParam("EngLostKnhightR");
  }
  lNoteBookLeftPage.Text=lText;
  lNoteBookRightPage.Text=rText;
  lNoteBookLeftPage.Visible = true;
  lNoteBookRightPage.Visible = true;
}

function FichierParam::Open(String fichier, String separateur) {
  if (!File.Exists(fichier)) {
    File* tmp = File.Open(fichier, eFileWrite);
    if (tmp.Error) return false;
    tmp.Close();
  }
  this.fichier = fichier;
  this.sep = separateur;
  if (String.IsNullOrEmpty(separateur)) this.sep = ":";
  return true;
}

String FichierParam::GetParam(String param) {

  if (String.IsNullOrEmpty(param) || String.IsNullOrEmpty(this.sep)) return "";

  File* fich = File.Open(this.fichier, eFileRead);
  String debut = param.Append(this.sep), fin = this.sep.Append(param);

  while (!fich.EOF && !fich.Error) {
    String ret = fich.ReadRawLineBack();
    if (ret != null && ret.StartsWith(debut, true)) {
      while (!fich.EOF && !ret.EndsWith(fin, true) && !fich.Error)
        ret = ret.Append(fich.ReadRawLineBack());
      fich.Close();
      return ret.Substring(debut.Length, ret.Length - 2*fin.Length);
    }
  }
  fich.Close();
  return "";
  
}

int FichierParam::GetInt(String param) {
  
  String rec = this.GetParam(param);
  return rec.AsInt;
  
}

function FichierParam::SetParam(String param, String valeur) {
  
  if (String.IsNullOrEmpty(param) || String.IsNullOrEmpty(this.sep)) return false;
  File* fich = File.Open(this.fichier, eFileRead);
  String tmp_name = "tmp";
  while (File.Exists(tmp_name)) {
    tmp_name = tmp_name.Append("_tmp");
  }
  File* tmp = File.Open(tmp_name, eFileWrite);
  while (!fich.EOF) {
    if (fich.Error) return false;
    tmp.WriteRawLine(fich.ReadRawLineBack());
  }
  tmp.Close();
  fich.Close();
  fich = File.Open(this.fichier, eFileWrite);
  tmp = File.Open(tmp_name, eFileRead);
  String line, debut = param.Append(this.sep), fin = this.sep.Append(param);
  bool ecrit;
  while (!tmp.EOF) {
    line = tmp.ReadRawLineBack();
    if (tmp.Error) return false;
    if (line != null && line.StartsWith(debut, true)) {
      while (!tmp.EOF && !line.EndsWith(fin, true) && !tmp.Error)
        line = line.Append(tmp.ReadRawLineBack());
      fich.WriteRawLine(String.Format("%s%s%s", debut, valeur, fin));
      ecrit = true;
    }
    else fich.WriteRawLine(line);
  }
  if (!ecrit) fich.WriteRawLine(String.Format("%s%s%s", debut, valeur, fin));
  tmp.Close();
  fich.Close();
  File.Delete(tmp_name);
  return true;
}

function FichierParam::SetInt(String param, int valeur) {
  
  this.SetParam(param, String.Format("%d", valeur));
  
}

bool FichierParam::GetBool(String param) {
  
  String rec = this.GetParam(param);
  if (rec == "V") return true;
  else return false;
  
}
 
function FichierParam::SetBool(String param, bool valeur) {
  
  if (valeur) this.SetParam(param, "V");
  else this.SetParam(param, "F");

}

EngLostKnhightL=   Once upon a time, through a strange country, there rode some goodly knights, and their path lay by a deep wood, where tangled briars grew very thick and strong, and tore the flesh of them that lost their way therein. And the leaves of the trees that grew in the wood were very dark and thick, so that no ray of light came through the branches to lighten the gloom and sadness.[   And, as they passed by that dark wood, one knight of those that rode, missing his comrades, wandered far away, and returned to them no more; and they, sorely grieving, rode on without him, mourning him as one dead.[   Now, when they reached the fair castle towards which they had been journeying, they stayed there many days, and made merry; and one night, as they sat in cheerful ease around the logs that burned in the great hall, and drank a loving measure, there came the comrade they had lost, and greeted them. His clothes were ragged, like a beggar's, and many sad wounds were on his sweet flesh, but upon his face there shone a great radiance of deep joy.[   And they questioned him, asking him what had befallen him: and he told them how in the dark wood he had lost his way, and had wandered many days and nights, =EngLostKnhightL

EngLostKnhightR=till, torn and bleeding, he had lain him down to die.[   Then, when he was nigh unto death, lo! through the savage gloom there came to him a stately maiden, and took him by the hand and led him on through devious paths, unknown to any man, until upon the darkness of the wood there dawned a light such as the light of day was unto but as a little lamp unto the sun; and, in that wondrous light, our way-worn knight saw as in a dream a vision, and so glorious, so fair the vision seemed,  that of his bleeding wounds he thought no more, but stood as one entranced, whose joy is deep as is the sea, whereof no man can tell the depth.[   And the vision faded, and the knight, kneeling upon the ground, thanked the good saint who into that sad wood had strayed his steps, so he had seen the vision that lay there hid.[   And the name of the dark forest was Sorrow; but of the vision that the good knight saw therein we may not speak nor tell.=ELostKnhightR

function game_start() {
  if (!File.Exists("config.txt")) {
    FichierParam monfichier;
    monfichier.Open("config.txt", "->");
    monfichier.SetInt("volume", 100);
  }
}

if (!File.Exists("$SAVEGAMEDIR$/config.txt"))
  {
    FichierParam monfichier;
    monfichier.Open("config.txt", "->");
    monfichier.SetInt("Volumemusique", 100);
    monfichier.SetInt("Volumesons", 100);
    monfichier.SetParam("Langue", "");
  }
 
  config.Open("$SAVEGAMEDIR$/config.txt", "->");
  Game.ChangeTranslation(config.GetParam("Langue"));
  Game.SetAudioTypeVolume(eAudioTypeMusic, config.GetInt("Volumemusique"), eVolSetFutureDefault);
  Volumemusique.Value=config.GetInt("Volumemusique");
  Game.SetAudioTypeVolume(eAudioTypeSound, config.GetInt("Volumesons"), eVolSetFutureDefault);
  Volumesons.Value=config.GetInt("Volumesons");

for (int i=0 ; i<TOTALmusiques ; i++) // TOTALmusiques peut être une variable qu'on a définie au lancement et avant cette fonction, pour compter le nombre de musiques présentes dans le jeu et ajoutées par le joueur dans le dossier d'installation
{
if (GetParam("Playlist1", musique[i]) != null) Playlist1.Additem(musique[i]); // musique[] étant un tableau de string qui référence le nom des musiques présentes qu'on a comptées pour TOTALmusiques.
}

function sauvegarde_playlist() {
  File* fichier_playlist = File.Open("playlist.txt", eFileWrite);
  for (int i=0; i<PlayList.ItemCount;i++){
    fichier_playlist.WriteRawLine(PlayList.Item[i]);
  }
  fichier_playlist.Close();
}
function charge_playlist() {
  PlayList.Clear()
  File* fichier_playlist = File.Open("playlist.txt", eFileRead);
  while (!fichier_playlist.EOF){
    PlayList.AddItem(fichier_playlist.ReadRawLineBack());
  }
  fichier_playlist.Close();
}

String fullstring = "";
do {
    String s = file.ReadRawStringBack();
    fullstring = fullstring.Append(s);
} while (s.Length == 199);