src/level.cpp

   1 //  $Id$
   2 //
   3 //  SuperTux
   4 //  Copyright (C) 2006 Matthias Braun <matze@braunis.de>
   5 //
   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.
  10 //
  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.
  15 //
  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
  19 //  02111-1307, USA.
  20 #include <config.h>
  21
  22 #include <map>
  23 #include <stdlib.h>
  24 #include <stdio.h>
  25 #include <string.h>
  26 #include <iostream>
  27 #include <fstream>
  28 #include <sstream>
  29 #include <memory>
  30 #include <stdexcept>
  31
  32 #include "log.hpp"
  33 #include "lisp/parser.hpp"
  34 #include "lisp/lisp.hpp"
  35 #include "lisp/list_iterator.hpp"
  36 #include "lisp/writer.hpp"
  37 #include "level.hpp"
  38 #include "physic.hpp"
  39 #include "sector.hpp"
  40 #include "tile.hpp"
  41 #include "tile_set.hpp"
  42 #include "tile_manager.hpp"
  43 #include "resources.hpp"
  44 #include "file_system.hpp"
  45 #include "object/gameobjs.hpp"
  46 #include "object/camera.hpp"
  47 #include "object/tilemap.hpp"
  48 #include "object/coin.hpp"
  49 #include "object/block.hpp"
  50
  51 using namespace std;
  52
  53 Level::Level()
  54   : name("noname"), author("Mr. X"), tileset(NULL), free_tileset(false)
  55 {
  56 }
  57
  58 Level::~Level()
  59 {
  60   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
  61     delete *i;
  62   if(free_tileset)
  63     delete tileset;
  64 }
  65
  66 void
  67 Level::load(const std::string& filepath)
  68 {
  69   try {
  70     lisp::Parser parser;
  71     const lisp::Lisp* root = parser.parse(filepath);
  72
  73     const lisp::Lisp* level = root->get_lisp("supertux-level");
  74     if(!level)
  75       throw std::runtime_error("file is not a supertux-level file.");
  76
  77     int version = 1;
  78     level->get("version", version);
  79     if(version == 1) {
  80       log_info << "level uses old format: version 1" << std::endl;
  81       tileset = tile_manager->get_tileset("images/tiles.strf");
  82       load_old_format(*level);
  83       return;
  84     }
  85
  86     const lisp::Lisp* tilesets_lisp = level->get_lisp("tilesets");
  87     if(tilesets_lisp != NULL) {
  88       tileset      = tile_manager->parse_tileset_definition(*tilesets_lisp);
  89       free_tileset = true;
  90     }
  91     std::string tileset_name;
  92     if(level->get("tileset", tileset_name)) {
  93       if(tileset != NULL) {
  94         log_warning << "multiple tilesets specified in level" << std::endl;
  95       } else {
  96         tileset = tile_manager->get_tileset(tileset_name);
  97       }
  98     }
  99     /* load default tileset */
 100     if(tileset == NULL) {
 101       tileset = tile_manager->get_tileset("images/tiles.strf");
 102     }
 103     current_tileset = tileset;
 104
 105     contact = "";
 106     license = "";
 107
 108     lisp::ListIterator iter(level);
 109     while(iter.next()) {
 110       const std::string& token = iter.item();
 111       if(token == "version") {
 112         iter.value()->get(version);
 113         if(version > 2) {
 114           log_warning << "level format newer than application" << std::endl;
 115         }
 116       } else if(token == "tileset" || token == "tilesets") {
 117         continue;
 118       } else if(token == "name") {
 119         iter.value()->get(name);
 120       } else if(token == "author") {
 121         iter.value()->get(author);
 122       } else if(token == "contact") {
 123         iter.value()->get(contact);
 124       } else if(token == "license") {
 125         iter.value()->get(license);
 126       } else if(token == "on-menukey-script") {
 127         iter.value()->get(on_menukey_script);
 128       } else if(token == "sector") {
 129         Sector* sector = new Sector(this);
 130         sector->parse(*(iter.lisp()));
 131         add_sector(sector);
 132       } else {
 133         log_warning << "Unknown token '" << token << "' in level file" << std::endl;
 134       }
 135     }
 136
 137     if (license == "") {
 138       log_warning << "The level author did not specify a license for this level. You might not be allowed to share it." << std::endl;
 139
 140     }
 141   } catch(std::exception& e) {
 142     std::stringstream msg;
 143     msg << "Problem when reading level '" << filepath << "': " << e.what();
 144     throw std::runtime_error(msg.str());
 145   }
 146
 147   current_tileset = NULL;
 148 }
 149
 150 void
 151 Level::load_old_format(const lisp::Lisp& reader)
 152 {
 153   reader.get("name", name);
 154   reader.get("author", author);
 155
 156   Sector* sector = new Sector(this);
 157   sector->parse_old_format(reader);
 158   add_sector(sector);
 159 }
 160
 161 void
 162 Level::save(const std::string& filename)
 163 {
 164   lisp::Writer* writer = new lisp::Writer(filename);
 165
 166   writer->write_comment("Level made using SuperTux's built-in Level Editor");
 167
 168   writer->start_list("supertux-level");
 169
 170   int version = 2;
 171   writer->write_int("version", version);
 172
 173   writer->write_string("name", name, true);
 174   writer->write_string("author", author);
 175   if(on_menukey_script != "")
 176     writer->write_string("on-menukey-script", on_menukey_script);
 177
 178   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) {
 179     Sector* sector = *i;
 180     writer->start_list("sector");
 181     sector->write(*writer);
 182     writer->end_list("sector");
 183   }
 184
 185   writer->end_list("supertux-level");
 186
 187   delete writer;
 188 }
 189
 190 void
 191 Level::add_sector(Sector* sector)
 192 {
 193   Sector* test = get_sector(sector->get_name());
 194   if(test != 0) {
 195     throw std::runtime_error("Trying to add 2 sectors with same name");
 196   }
 197   sectors.push_back(sector);
 198 }
 199
 200 Sector*
 201 Level::get_sector(const std::string& name)
 202 {
 203   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) {
 204     Sector* sector = *i;
 205     if(sector->get_name() == name)
 206       return sector;
 207   }
 208
 209   return 0;
 210 }
 211
 212 size_t
 213 Level::get_sector_count()
 214 {
 215   return sectors.size();
 216 }
 217
 218 Sector*
 219 Level::get_sector(size_t num)
 220 {
 221   return sectors.at(num);
 222 }
 223
 224 int
 225 Level::get_total_coins()
 226 {
 227   int total_coins = 0;
 228   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) {
 229     Sector* sector = *i;
 230     for(Sector::GameObjects::iterator o = sector->gameobjects.begin();
 231         o != sector->gameobjects.end(); ++o) {
 232       Coin* coin = dynamic_cast<Coin*> (*o);
 233       if(coin)
 234       {
 235         total_coins++;
 236         continue;
 237       }
 238       BonusBlock *block = dynamic_cast<BonusBlock*> (*o);
 239       if(block)
 240       {
 241         if (block->contents == BonusBlock::CONTENT_COIN)
 242         {
 243           total_coins++;
 244           continue;
 245         }
 246 #if 0
 247         // FIXME: do we want this? q.v. src/object/oneup.cpp
 248         else if (block->contents == BonusBlock::CONTENT_1UP)
 249         {
 250           total_coins += 100;
 251           continue;
 252         }
 253 #endif
 254       }
 255     }
 256   }
 257   return total_coins;
 258 }
 259
 260 int
 261 Level::get_total_badguys()
 262 {
 263   int total_badguys = 0;
 264   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 265     total_badguys += (*i)->get_total_badguys();
 266   return total_badguys;
 267 }