-int
-Level::load(const std::string& filename, World* world)
-{
- lisp_object_t* root_obj = lisp_read_from_file(filename);
- if (!root_obj)
- {
- std::cout << "Level: Couldn't load file: " << filename << std::endl;
- return -1;
- }
-
- if (root_obj->type == LISP_TYPE_EOF || root_obj->type == LISP_TYPE_PARSE_ERROR)
- {
- lisp_free(root_obj);
- std::cout << "World: Parse Error in file '" << filename
- << "'.\n";
- return -1;
- }
-
- int version = 0;
- if (strcmp(lisp_symbol(lisp_car(root_obj)), "supertux-level") == 0)
- {
- LispReader reader(lisp_cdr(root_obj));
- version = 0;
- reader.read_int("version", &version);
- if(!reader.read_int("width", &width))
- st_abort("No width specified for level.", "");
- if (!reader.read_float("start_pos_x", &start_pos.x)) start_pos.x = 100;
- if (!reader.read_float("start_pos_y", &start_pos.y)) start_pos.y = 170;
- time_left = 500;
- if(!reader.read_int("time", &time_left)) {
- printf("Warning: no time specified for level.\n");
- }
-
- height = 15;
- if(!reader.read_int("height", &height)) {
- printf("Warning: no height specified for level.\n");
- }
-
-
- // read old background stuff
- int bkgd_speed = 50;
- reader.read_int("bkgd_speed", &bkgd_speed);
-
- Color bkgd_top, bkgd_bottom;
- int r, g, b;
- reader.read_int("bkgd_red_top", &r);
- reader.read_int("bkgd_green_top", &g);
- reader.read_int("bkgd_blue_top", &b);
- bkgd_top.red = r;
- bkgd_top.green = g;
- bkgd_top.blue = b;
-
- reader.read_int("bkgd_red_bottom", &r);
- reader.read_int("bkgd_green_bottom", &g);
- reader.read_int("bkgd_blue_bottom", &b);
- bkgd_bottom.red = r;
- bkgd_bottom.green = g;
- bkgd_bottom.blue = b;
-
- std::string bkgd_image;
- reader.read_string("background", &bkgd_image);
-
- if(world) {
- Background* background = new Background();
- if(bkgd_image != "")
- background->set_image(bkgd_image, bkgd_speed);
- else
- background->set_gradient(bkgd_top, bkgd_bottom);
-
- world->add_object(background);
- }
-
- gravity = 10;
- reader.read_float("gravity", &gravity);
- name = "Noname";
- reader.read_string("name", &name);
- author = "unknown author";
- reader.read_string("author", &author);
- song_title = "";
- reader.read_string("music", &song_title);
- particle_system = "";
- reader.read_string("particle_system", &particle_system);
-
- reader.read_int_vector("background-tm", &bg_tiles);
- if(int(bg_tiles.size()) != width * height)
- st_abort("Wrong size of backgroundtilemap", "");
-
- if (!reader.read_int_vector("interactive-tm", &ia_tiles))
- reader.read_int_vector("tilemap", &ia_tiles);
- if(int(ia_tiles.size()) != width * height)
- st_abort("Wrong size of interactivetilemap", "");
-
- reader.read_int_vector("foreground-tm", &fg_tiles);
- if(int(fg_tiles.size()) != width * height)
- st_abort("Wrong size of foregroundtilemap", "");
-
- { // Read ResetPoints
- lisp_object_t* cur = 0;
- if (reader.read_lisp("reset-points", &cur))
- {
- while (!lisp_nil_p(cur))
- {
- lisp_object_t* data = lisp_car(cur);
-
- ResetPoint pos;
-
- LispReader reader(lisp_cdr(data));
- if (reader.read_int("x", &pos.x)
- && reader.read_int("y", &pos.y))
- {
- reset_points.push_back(pos);
- }
-
- cur = lisp_cdr(cur);
- }
- }
- }
-
- { // Read Objects
- lisp_object_t* cur = 0;
- if (reader.read_lisp("objects", &cur))
- {
- if(world)
- world->parse_objects(cur);
- }
- }
-
- { // Read Camera
- lisp_object_t* cur = 0;
- if (reader.read_lisp("camera", &cur))
- {
- LispReader reader(cur);
- if(world) {
- world->camera->read(reader);
- }
- }
- }
- }
-
- lisp_free(root_obj);
- return 0;
-}
-
-/* Save data for level: */
-
-void
-Level::save(const std::string& subset, int level, World* world)
-{
- char filename[1024];
- char str[80];
-
- /* Save data file: */
- snprintf(str, sizeof(str), "/levels/%s/", subset.c_str());
- fcreatedir(str);
- snprintf(filename, sizeof(filename),
- "%s/levels/%s/level%d.stl", st_dir, subset.c_str(), level);
- if(!fwriteable(filename))
- snprintf(filename, sizeof(filename), "%s/levels/%s/level%d.stl",
- datadir.c_str(), subset.c_str(), level);
-
- std::ofstream out(filename);
- if(!out.good()) {
- st_abort("Couldn't write file.", filename);
- }
- LispWriter writer(out);
-
- /* Write header: */
- writer.write_comment("SuperTux level made using the built-in leveleditor");
- writer.start_list("supertux-level");
-
- writer.write_int("version", 1);
- writer.write_string("name", name);
- writer.write_string("author", author);
- writer.write_string("music", song_title);
- writer.write_string("background", bkgd_image);
- writer.write_string("particle_system", particle_system);
- writer.write_int("time", time_left);
- writer.write_int("width", width);
- writer.write_int("height", height);
- writer.write_float("gravity", gravity);
-
- writer.write_int_vector("background-tm", bg_tiles);
- writer.write_int_vector("interactive-tm", ia_tiles);
- writer.write_int_vector("foreground-tm", fg_tiles);
-
- writer.start_list("reset-points");
- for(std::vector<ResetPoint>::iterator i = reset_points.begin();
- i != reset_points.end(); ++i) {
- writer.start_list("point");
- writer.write_int("x", i->x);
- writer.write_int("y", i->y);
- writer.end_list("point");
- }
- writer.end_list("reset-points");
-
- // write objects
- writer.start_list("objects");
- // pick all objects that can be written into a levelfile
- for(std::vector<GameObject*>::iterator it = world->gameobjects.begin();
- it != world->gameobjects.end(); ++it) {
- Serializable* serializable = dynamic_cast<Serializable*> (*it);
- if(serializable)
- serializable->write(writer);
- }
- writer.end_list("objects");
-
- writer.end_list("supertux-level");
- out.close();
-}
-
-/* Unload data for this level: */