+ if (strcmp(lisp_symbol(lisp_car(root_obj)), "supertux-worldmap") == 0)
+ {
+ lisp_object_t* cur = lisp_cdr(root_obj);
+
+ while(!lisp_nil_p(cur))
+ {
+ lisp_object_t* element = lisp_car(cur);
+
+ 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
+ {
+
+ }
+
+ cur = lisp_cdr(cur);
+ }
+ }