4 // Copyright (C) 2004 SuperTux Development Team, see AUTHORS for details
6 // This program is free software; you can redistribute it and/or
7 // modify it under the terms of the GNU General Public License
8 // as published by the Free Software Foundation; either version 2
9 // of the License, or (at your option) any later version.
11 // This program is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 // GNU General Public License for more details.
16 // You should have received a copy of the GNU General Public License
17 // along with this program; if not, write to the Free Software
18 // Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
32 #include "screen/screen.h"
38 #include "lispreader.h"
39 #include "resources.h"
41 #include "lispwriter.h"
45 LevelSubset::LevelSubset()
50 LevelSubset::~LevelSubset()
55 void LevelSubset::create(const std::string& subset_name)
58 LevelSubset new_subset;
59 new_subset.name = subset_name;
60 new_subset.title = "Unknown Title";
61 new_subset.description = "No description so far.";
63 //new_lev.save(subset_name, 1, 0);
66 void LevelSubset::parse (lisp_object_t* cursor)
68 while(!lisp_nil_p(cursor))
70 lisp_object_t* cur = lisp_car(cursor);
73 if (!lisp_cons_p(cur) || !lisp_symbol_p (lisp_car(cur)))
79 if (strcmp(lisp_symbol(lisp_car(cur)), "title") == 0)
81 if(( s = lisp_string(lisp_car(lisp_cdr(cur)))) != NULL)
86 else if (strcmp(lisp_symbol(lisp_car(cur)), "description") == 0)
88 if(( s = lisp_string(lisp_car(lisp_cdr(cur)))) != NULL)
94 cursor = lisp_cdr (cursor);
98 void LevelSubset::load(const char* subset)
104 lisp_object_t* root_obj = 0;
108 snprintf(filename, 1024, "%s/levels/%s/info", st_dir, subset);
109 if(!faccessible(filename))
110 snprintf(filename, 1024, "%s/levels/%s/info", datadir.c_str(), subset);
111 if(faccessible(filename))
113 fi = fopen(filename, "r");
118 lisp_stream_t stream;
119 lisp_stream_init_file (&stream, fi);
120 root_obj = lisp_read (&stream);
122 if (root_obj->type == LISP_TYPE_EOF || root_obj->type == LISP_TYPE_PARSE_ERROR)
124 printf("World: Parse Error in file %s", filename);
127 lisp_object_t* cur = lisp_car(root_obj);
129 if (!lisp_symbol_p (cur))
131 printf("World: Read error in %s",filename);
134 if (strcmp(lisp_symbol(cur), "supertux-level-subset") == 0)
136 parse(lisp_cdr(root_obj));
143 snprintf(str, 1024, "%s.png", filename);
147 image = new Surface(str,IGNORE_ALPHA);
151 snprintf(filename, 1024, "%s/images/status/level-subset-info.png", datadir.c_str());
153 image = new Surface(filename,IGNORE_ALPHA);
157 for(i=1; i != -1; ++i)
159 /* Get the number of levels in this subset */
160 snprintf(filename, 1024, "%s/levels/%s/level%d.stl", st_dir, subset,i);
161 if(!faccessible(filename))
163 snprintf(filename, 1024, "%s/levels/%s/level%d.stl", datadir.c_str(), subset,i);
164 if(!faccessible(filename))
177 /* Save data file: */
178 filename = "/levels/" + name + "/";
180 fcreatedir(filename.c_str());
181 filename = string(st_dir) + "/levels/" + name + "/info";
182 if(!fwriteable(filename.c_str()))
183 filename = datadir + "/levels/" + name + "/info";
184 if(fwriteable(filename.c_str()))
186 fi = fopen(filename.c_str(), "w");
189 perror(filename.c_str());
193 fprintf(fi,";SuperTux-Level-Subset\n");
194 fprintf(fi,"(supertux-level-subset\n");
196 /* Save title info: */
197 fprintf(fi," (title \"%s\")\n", title.c_str());
199 /* Save the description: */
200 fprintf(fi," (description \"%s\")\n", description.c_str());
208 LevelSubset::get_level_filename(unsigned int num)
213 snprintf(filename, 1024, "%s/levels/%s/level%d.stl", st_dir,
215 if(!faccessible(filename))
216 snprintf(filename, 1024, "%s/levels/%s/level%d.stl", datadir.c_str(),
219 return std::string(filename);
222 //---------------------------------------------------------------------------
225 : name("noname"), author("mr. x"), time_left(500)
230 Level::load(const std::string& filename)
232 LispReader* level = LispReader::load(filename, "supertux-level");
235 level->read_int("version", version);
237 load_old_format(*level);
242 for(lisp_object_t* cur = level->get_lisp(); !lisp_nil_p(cur);
243 cur = lisp_cdr(cur)) {
244 std::string token = lisp_symbol(lisp_car(lisp_car(cur)));
245 lisp_object_t* data = lisp_car(lisp_cdr(lisp_car(cur)));
246 LispReader reader(lisp_cdr(lisp_car(cur)));
248 if(token == "name") {
249 name = lisp_string(data);
250 } else if(token == "author") {
251 author = lisp_string(data);
252 } else if(token == "time") {
253 time_left = lisp_integer(data);
254 } else if(token == "sector") {
255 Sector* sector = new Sector;
256 sector->parse(reader);
259 std::cerr << "Unknown token '" << token << "' in level file.\n";
268 Level::load_old_format(LispReader& reader)
270 reader.read_string("name", name);
271 reader.read_string("author", author);
272 reader.read_int("time", time_left);
274 Sector* sector = new Sector;
275 sector->parse_old_format(reader);
280 Level::save(const std::string& filename)
283 LispReader* level = LispReader::load(filename, "supertux-level");
286 level->read_int("version", version);
288 load_old_format(*level);
292 for(lisp_object_t* cur = level->get_lisp(); !lisp_nil_p(cur);
293 cur = lisp_cdr(cur)) {
294 std::string token = lisp_symbol(lisp_car(lisp_car(cur)));
295 lisp_object_t* data = lisp_car(lisp_cdr(lisp_car(cur)));
296 LispReader reader(lisp_cdr(lisp_car(cur)));
298 if(token == "name") {
299 name = lisp_string(data);
300 } else if(token == "author") {
301 author = lisp_string(data);
302 } else if(token == "time") {
303 time_left = lisp_integer(data);
304 } else if(token == "sector") {
305 Sector* sector = new Sector;
306 sector->parse(reader);
309 std::cerr << "Unknown token '" << token << "' in level file.\n";
320 for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
325 Level::add_sector(Sector* sector)
327 sectors.insert(std::make_pair(sector->get_name(), sector));
331 Level::get_sector(const std::string& name)
333 Sectors::iterator i = sectors.find(name);
334 if(i == sectors.end())