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
29 #include "app/globals.h"
30 #include "app/setup.h"
32 #include "video/screen.h"
34 #include "math/physic.h"
38 #include "utils/lispreader.h"
39 #include "resources.h"
41 #include "utils/lispwriter.h"
47 : name("noname"), author("mr. x"), time_left(500)
53 Level::create(const std::string& filename)
56 const size_t width = 25;
57 const size_t height = 19;
58 level.add_sector(Sector::create("main", width, height));
63 Level::load(const std::string& filename)
66 filepath = st_dir + "/levels/" + filename;
67 if (access(filepath.c_str(), R_OK) != 0)
69 filepath = datadir + "/levels/" + filename;
70 if (access(filepath.c_str(), R_OK) != 0)
72 std::cerr << "Error: Level: couldn't find level: " << filename << std::endl;
77 LispReader* level = LispReader::load(filepath, "supertux-level");
80 level->read_int("version", version);
82 load_old_format(*level);
87 for(lisp_object_t* cur = level->get_lisp(); !lisp_nil_p(cur);
88 cur = lisp_cdr(cur)) {
89 std::string token = lisp_symbol(lisp_car(lisp_car(cur)));
90 lisp_object_t* data = lisp_car(lisp_cdr(lisp_car(cur)));
91 LispReader reader(lisp_cdr(lisp_car(cur)));
94 name = lisp_string(data);
95 } else if(token == "author") {
96 author = lisp_string(data);
97 } else if(token == "time") {
98 time_left = lisp_integer(data);
99 } else if(token == "sector") {
100 Sector* sector = new Sector;
101 sector->parse(reader);
104 std::cerr << "Unknown token '" << token << "' in level file.\n";
113 Level::load_old_format(LispReader& reader)
115 reader.read_string("name", name, true);
116 reader.read_string("author", author);
117 reader.read_int("time", time_left);
119 Sector* sector = new Sector;
120 sector->parse_old_format(reader);
125 Level::save(const std::string& filename)
127 std::string filepath = "levels/" + filename;
128 int last_slash = filepath.find_last_of('/');
129 FileSystem::fcreatedir(filepath.substr(0,last_slash).c_str());
130 filepath = st_dir + "/" + filepath;
131 ofstream file(filepath.c_str(), ios::out);
132 LispWriter* writer = new LispWriter(file);
134 writer->write_comment("Level made using SuperTux's built-in Level Editor");
136 writer->start_list("supertux-level");
139 writer->write_int("version", version);
141 writer->write_string("name", name);
142 writer->write_string("author", author);
143 writer->write_int("time", time_left);
145 for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
147 writer->start_list("sector");
148 i->second->write(*writer);
149 writer->end_list("sector");
152 writer->end_list("supertux-level");
160 for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
165 Level::do_vertical_flip()
167 for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
168 i->second->do_vertical_flip();
172 Level::add_sector(Sector* sector)
174 sectors.insert(std::make_pair(sector->get_name(), sector));
178 Level::get_sector(const std::string& name)
180 Sectors::iterator i = sectors.find(name);
181 if(i == sectors.end())
188 Level::get_next_sector(const Sector* sector)
190 for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
192 if(i->second == sector)
195 if(i == sectors.end())
200 std::cerr << "Warning: Sector not found on level\n";
205 Level::get_previous_sector(const Sector* sector)
207 for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
209 if(i->second == sector)
211 if(i == sectors.begin())
217 std::cerr << "Warning: Sector not found on level\n";
222 Level::get_total_sectors()
224 return sectors.size();
228 Level::get_total_badguys()
230 int total_badguys = 0;
231 for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
232 total_badguys += i->second->get_total_badguys();
233 return total_badguys;
237 Level::get_total_coins()
240 for(Sectors::iterator it = sectors.begin(); it != sectors.end(); ++it)
241 for(int x = 0; static_cast<unsigned int>(x) < it->second->solids->get_width(); x++)
242 for(int y = 0; static_cast<unsigned int>(y) < it->second->solids->get_height(); y++)
243 if(it->second->solids->get_tile(x,y)->attributes & Tile::COIN)