+ lisp_object_t* savegame = lisp_read_from_file(filename);
+ if (!savegame)
+ {
+ std::cout << "WorldMap:loadgame: File not found: " << filename << std::endl;
+ return;
+ }
+
+ lisp_object_t* cur = savegame;
+
+ if (strcmp(lisp_symbol(lisp_car(cur)), "supertux-savegame") != 0)
+ return;
+
+ cur = lisp_cdr(cur);
+ LispReader reader(cur);
+
+ reader.read_int("lives", &player_status.lives);
+ reader.read_int("score", &player_status.score);
+ reader.read_int("distros", &player_status.distros);
+
+ if (player_status.lives < 0)
+ player_status.lives = START_LIVES;
+
+ lisp_object_t* tux_cur = 0;
+ if (reader.read_lisp("tux", &tux_cur))
+ {
+ Point p;
+ std::string back_str = "none";
+ std::string bonus_str = "none";
+
+ LispReader tux_reader(tux_cur);
+ tux_reader.read_int("x", &p.x);
+ tux_reader.read_int("y", &p.y);
+ tux_reader.read_string("back", &back_str);
+ tux_reader.read_string("bonus", &bonus_str);
+
+ player_status.bonus = string_to_bonus(bonus_str);
+ tux->back_direction = string_to_direction(back_str);
+ tux->set_tile_pos(p);
+ }
+
+ lisp_object_t* level_cur = 0;
+ if (reader.read_lisp("levels", &level_cur))
+ {
+ while(level_cur)
+ {
+ lisp_object_t* sym = lisp_car(lisp_car(level_cur));
+ lisp_object_t* data = lisp_cdr(lisp_car(level_cur));
+
+ if (strcmp(lisp_symbol(sym), "level") == 0)
+ {
+ std::string name;
+ bool solved = false;
+
+ LispReader level_reader(data);
+ level_reader.read_string("name", &name);
+ level_reader.read_bool("solved", &solved);
+
+ for(Levels::iterator i = levels.begin(); i != levels.end(); ++i)
+ {
+ if (name == i->name)
+ i->solved = solved;
+ }
+ }
+
+ level_cur = lisp_cdr(level_cur);
+ }
+ }
+
+ lisp_free(savegame);