- FILE * fi;
- lisp_object_t* root_obj = 0;
- fi = fopen(filename, "r");
- if (fi == NULL)
- {
- perror(filename);
- return -1;
- }
-
- lisp_stream_t stream;
- lisp_stream_init_file (&stream, fi);
- root_obj = lisp_read (&stream);
-
- if (root_obj->type == LISP_TYPE_EOF || root_obj->type == LISP_TYPE_PARSE_ERROR)
- {
- printf("World: Parse Error in file %s", filename);
- }
-
- vector<int> ia_tm;
- vector<int> dn_tm;
- vector<int> bg_tm;
- vector<int> fg_tm;
-
- int version = 0;
- if (strcmp(lisp_symbol(lisp_car(root_obj)), "supertux-level") == 0)
- {
- LispReader reader(lisp_cdr(root_obj));
-
- reader.read_int("version", &version);
- reader.read_int("width", &plevel->width);
- reader.read_int("time", &plevel->time_left);
- reader.read_int("bkgd_red", &plevel->bkgd_red);
- reader.read_int("bkgd_green", &plevel->bkgd_green);
- reader.read_int("bkgd_blue", &plevel->bkgd_blue);
- reader.read_float("gravity", &plevel->gravity);
- reader.read_string("name", &plevel->name);
- reader.read_string("theme", &plevel->theme);
- reader.read_string("music", &plevel->song_title);
- reader.read_string("background", &plevel->bkgd_image);
- reader.read_string("particle_system", &plevel->particle_system);
- reader.read_int_vector("background-tm", &bg_tm);
- reader.read_int_vector("interactive-tm", &ia_tm);
- reader.read_int_vector("dynamic-tm", &dn_tm);
- reader.read_int_vector("foreground-tm", &fg_tm);
-
- // Convert old levels to the new tile numbers
- if (version == 0)
- {
- int transtable[256];
- transtable[(int)'.'] = 0;
- transtable[(int)'0'] = 0;
- transtable[(int)'1'] = 1;
- transtable[(int)'2'] = 2;
- transtable[(int)'x'] = 77;
- transtable[(int)'X'] = 77;
- transtable[(int)'y'] = 78;
- transtable[(int)'Y'] = 78;
- transtable[(int)'A'] = 83;
- transtable[(int)'B'] = 102;
- transtable[(int)'!'] = 103;
- transtable[(int)'a'] = 84;
- transtable[(int)'C'] = 85;
- transtable[(int)'D'] = 86;
- transtable[(int)'E'] = 87;
- transtable[(int)'F'] = 88;
- transtable[(int)'c'] = 89;
- transtable[(int)'d'] = 90;
- transtable[(int)'e'] = 91;
- transtable[(int)'f'] = 92;
-
- transtable[(int)'G'] = 93;
- transtable[(int)'H'] = 94;
- transtable[(int)'I'] = 95;
- transtable[(int)'J'] = 96;
-
- transtable[(int)'g'] = 97;
- transtable[(int)'h'] = 98;
- transtable[(int)'i'] = 99;
- transtable[(int)'j'] = 100
-;
- transtable[(int)'#'] = 11;
- transtable[(int)'['] = 13;
- transtable[(int)'='] = 14;
- transtable[(int)']'] = 15;
- transtable[(int)'$'] = 82;
- transtable[(int)'^'] = 76;
- transtable[(int)'*'] = 80;
- transtable[(int)'|'] = 79;
- transtable[(int)'\\'] = 81;
- transtable[(int)'&'] = 75;
-
- for(std::vector<int>::iterator i = ia_tm.begin(); i != ia_tm.end(); ++i)
- if (*i < 256)
- *i = transtable[*i];
- else
- puts("Error: Value to high, conversion will fail");
- }
- }