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 "resources.hpp"
  42 #include "file_system.hpp"
  43 #include "object/gameobjs.hpp"
  44 #include "object/camera.hpp"
  45 #include "object/tilemap.hpp"
  46 #include "object/coin.hpp"
  47 #include "object/block.hpp"
  48
  49 using namespace std;
  50
  51 Level::Level()
  52   : name("noname"), author("Mr. X")
  53 {
  54 }
  55
  56 void
  57 Level::load(const std::string& filepath)
  58 {
  59   try {
  60     lisp::Parser parser;
  61     const lisp::Lisp* root = parser.parse(filepath);
  62
  63     const lisp::Lisp* level = root->get_lisp("supertux-level");
  64     if(!level)
  65       throw std::runtime_error("file is not a supertux-level file.");
  66
  67     int version = 1;
  68     level->get("version", version);
  69     if(version == 1) {
  70       load_old_format(*level);
  71       return;
  72     }
  73
  74     contact = "";
  75     license = "";
  76
  77     lisp::ListIterator iter(level);
  78     while(iter.next()) {
  79       const std::string& token = iter.item();
  80       if(token == "version") {
  81         iter.value()->get(version);
  82         if(version > 2) {
  83           log_warning << "level format newer than application" << std::endl;
  84         }
  85       } else if(token == "name") {
  86         iter.value()->get(name);
  87       } else if(token == "author") {
  88         iter.value()->get(author);
  89       } else if(token == "contact") {
  90         iter.value()->get(contact);
  91       } else if(token == "license") {
  92         iter.value()->get(license);
  93       } else if(token == "on-menukey-script") {
  94         iter.value()->get(on_menukey_script);
  95       } else if(token == "sector") {
  96         Sector* sector = new Sector(this);
  97         sector->parse(*(iter.lisp()));
  98         add_sector(sector);
  99       } else {
 100         log_warning << "Unknown token '" << token << "' in level file" << std::endl;
 101       }
 102     }
 103
 104   if (license == "") log_warning << "The level author did not specify a license for this level. You might not be allowed to share it." << std::endl;
 105
 106   } catch(std::exception& e) {
 107     std::stringstream msg;
 108     msg << "Problem when reading level '" << filepath << "': " << e.what();
 109     throw std::runtime_error(msg.str());
 110   }
 111 }
 112
 113 void
 114 Level::load_old_format(const lisp::Lisp& reader)
 115 {
 116   reader.get("name", name);
 117   reader.get("author", author);
 118
 119   Sector* sector = new Sector(this);
 120   sector->parse_old_format(reader);
 121   add_sector(sector);
 122 }
 123
 124 void
 125 Level::save(const std::string& filename)
 126 {
 127   lisp::Writer* writer = new lisp::Writer(filename);
 128
 129   writer->write_comment("Level made using SuperTux's built-in Level Editor");
 130
 131   writer->start_list("supertux-level");
 132
 133   int version = 2;
 134   writer->write_int("version", version);
 135
 136   writer->write_string("name", name, true);
 137   writer->write_string("author", author);
 138   if(on_menukey_script != "")
 139     writer->write_string("on-menukey-script", on_menukey_script);
 140
 141   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) {
 142     Sector* sector = *i;
 143     writer->start_list("sector");
 144     sector->write(*writer);
 145     writer->end_list("sector");
 146   }
 147
 148   writer->end_list("supertux-level");
 149
 150   delete writer;
 151 }
 152
 153 Level::~Level()
 154 {
 155   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 156     delete *i;
 157 }
 158
 159 void
 160 Level::add_sector(Sector* sector)
 161 {
 162   Sector* test = get_sector(sector->get_name());
 163   if(test != 0) {
 164     throw std::runtime_error("Trying to add 2 sectors with same name");
 165   }
 166   sectors.push_back(sector);
 167 }
 168
 169 Sector*
 170 Level::get_sector(const std::string& name)
 171 {
 172   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) {
 173     Sector* sector = *i;
 174     if(sector->get_name() == name)
 175       return sector;
 176   }
 177
 178   return 0;
 179 }
 180
 181 size_t
 182 Level::get_sector_count()
 183 {
 184   return sectors.size();
 185 }
 186
 187 Sector*
 188 Level::get_sector(size_t num)
 189 {
 190   return sectors.at(num);
 191 }
 192
 193 int
 194 Level::get_total_coins()
 195 {
 196   int total_coins = 0;
 197   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) {
 198     Sector* sector = *i;
 199     for(Sector::GameObjects::iterator o = sector->gameobjects.begin();
 200         o != sector->gameobjects.end(); ++o) {
 201       Coin* coin = dynamic_cast<Coin*> (*o);
 202       if(coin)
 203       {
 204         total_coins++;
 205         continue;
 206       }
 207       BonusBlock *block = dynamic_cast<BonusBlock*> (*o);
 208       if(block)
 209       {
 210         if (block->contents == BonusBlock::CONTENT_COIN)
 211         {
 212           total_coins++;
 213           continue;
 214         }
 215 #if 0
 216         // FIXME: do we want this? q.v. src/object/oneup.cpp
 217         else if (block->contents == BonusBlock::CONTENT_1UP)
 218         {
 219           total_coins += 100;
 220           continue;
 221         }
 222 #endif
 223       }
 224     }
 225   }
 226   return total_coins;
 227 }
 228
 229 int
 230 Level::get_total_badguys()
 231 {
 232   int total_badguys = 0;
 233   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 234     total_badguys += (*i)->get_total_badguys();
 235   return total_badguys;
 236 }