- if (strcmp(lisp_symbol(lisp_car(element)), "tilemap") == 0)
- {
- LispReader reader(lisp_cdr(element));
- reader.read_int("width", width);
- reader.read_int("height", height);
- reader.read_int_vector("data", tilemap);
- }
- else if (strcmp(lisp_symbol(lisp_car(element)), "properties") == 0)
- {
- LispReader reader(lisp_cdr(element));
- reader.read_string("name", name, true);
- reader.read_string("music", music);
- reader.read_int("start_pos_x", start_x);
- reader.read_int("start_pos_y", start_y);
- }
- else if (strcmp(lisp_symbol(lisp_car(element)), "special-tiles") == 0 ||
- strcmp(lisp_symbol(lisp_car(element)), "levels") == 0)
- {
- lisp_object_t* cur = lisp_cdr(element);
-
- while(!lisp_nil_p(cur))
- {
- lisp_object_t* element = lisp_car(cur);
-
- if (strcmp(lisp_symbol(lisp_car(element)), "special-tile") == 0)
- {
- SpecialTile special_tile;
- LispReader reader(lisp_cdr(element));
- special_tile.solved = false;
-
- special_tile.north = true;
- special_tile.east = true;
- special_tile.south = true;
- special_tile.west = true;
-
- reader.read_string("extro-filename", special_tile.extro_filename);
- reader.read_string("map-message", special_tile.display_map_message);
- reader.read_string("next-world", special_tile.next_worldmap);
- reader.read_string("level", special_tile.level_name, true);
- reader.read_int("x", special_tile.x);
- reader.read_int("y", special_tile.y);
- special_tile.auto_path = true;
- reader.read_bool("auto-path", special_tile.auto_path);
- special_tile.swap_x = special_tile.swap_y = -1;
- reader.read_int("swap-x", special_tile.swap_x);
- reader.read_int("swap-y", special_tile.swap_y);
- special_tile.vertical_flip = false;
- reader.read_bool("flip-special_tile", special_tile.vertical_flip);
- special_tile.quit_worldmap = false;
- reader.read_bool("exit-game", special_tile.quit_worldmap);
-
- special_tiles.push_back(special_tile);
- }