+ 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");
+ }
+
+ bkgd_speed = 50;
+ reader.read_int("bkgd_speed", &bkgd_speed);
+
+ bkgd_top.red = bkgd_top.green = bkgd_top.blue = 0;
+ reader.read_int("bkgd_red_top", &bkgd_top.red);
+ reader.read_int("bkgd_green_top", &bkgd_top.green);
+ reader.read_int("bkgd_blue_top", &bkgd_top.blue);
+
+ bkgd_bottom.red = bkgd_bottom.green = bkgd_bottom.blue = 0;
+ reader.read_int("bkgd_red_bottom", &bkgd_bottom.red);
+ reader.read_int("bkgd_green_bottom", &bkgd_bottom.green);
+ reader.read_int("bkgd_blue_bottom", &bkgd_bottom.blue);
+
+ 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);
+ bkgd_image = "";
+ reader.read_string("background", &bkgd_image);
+ 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);
+ }
+ }
+ }