+ else if (strcmp(lisp_symbol(lisp_car(element)), "properties") == 0)
+ {
+ LispReader reader(lisp_cdr(element));
+ reader.read_string("name", &name);
+ reader.read_string("music", &music);
+ }
+ else if (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)), "level") == 0)
+ {
+ Level level;
+ LispReader reader(lisp_cdr(element));
+ reader.read_string("name", &level.name);
+ reader.read_int("x-pos", &level.x);
+ reader.read_int("y-pos", &level.y);
+ levels.push_back(level);
+ }
+
+ cur = lisp_cdr(cur);
+ }
+ }