Lire un fichier

8
12221222
1A    2
1      2
1      2
12 21222
12 21222
12    B2
12221222

map=file_text_open_read(get_open_filename("Map Smile War .MSW|*.msw",""));
taille=file_text_read_real(map);
for (y=1; y=taille; y+=1;)
{
str=file_text_read_string(map);
for (x=1; x=taille; x+=1;)
    {
    a=string_char_at(str,x);
    if a='1' then instance_create(16*x,16*y,murT1);
    if a='2' then instance_create(16*x,16*y,murT2);
    if a='3' then instance_create(16*x,16*y,murT3);
    }
}

// Lire la map à partir d'un .txt

levelFileName = argument0;
if (not file_exists(levelFileName)) {
   show_message("La map '" + levelFileName + "' n'existe pas.");
   exit;
}
else {
   file_open_read(levelFileName);
   currentLevelLine = 0;
   while (currentLevelLine < 10 and not file_eof()) {
      yPos = currentLevelLine * 32;
      //Lit dans le fichier
      levelString = file_read_string();
      file_readln();
      //Recherche de commentaires ou de string vide.
      if (string_copy(levelString, 1, 2) = "//" or string_length(levelString) = 0) {
         // Juste un commentaire ou une string vide
      }
      else {
         // Detection des objets
         currentObj = 1
         while (currentObj <= string_length(levelString)) {
            xPos = (currentObj - 1) * 32;
            currentChar = string_copy(levelString, currentObj, 1);
            if (currentChar = "#") {
               // Cree un objet bloc de couleur verte
               instance_create(xPos, yPos, obj_GreenBlock);
            }
            else if (currentChar = ".") {
               // Cree un objet bloc de couleur Bleue
               instance_create(xPos, yPos, obj_BlueBlock);
            }
            currentObj += 1;
         }
         currentLevelLine += 1;
      }
   }
        file_close();
}