src/level.cpp

   1 //  $Id$
   2 //
   3 //  SuperTux
   4 //  Copyright (C) 2004 SuperTux Development Team, see AUTHORS for details
   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 <cstdlib>
  24 #include <cstdio>
  25 #include <cstring>
  26 #include <iostream>
  27 #include <fstream>
  28 #include <sstream>
  29 #include <memory>
  30 #include <stdexcept>
  31
  32 #include "video/screen.h"
  33 #include "lisp/parser.h"
  34 #include "lisp/lisp.h"
  35 #include "lisp/list_iterator.h"
  36 #include "lisp/writer.h"
  37 #include "level.h"
  38 #include "physic.h"
  39 #include "sector.h"
  40 #include "tile.h"
  41 #include "resources.h"
  42 #include "file_system.h"
  43 #include "object/gameobjs.h"
  44 #include "object/camera.h"
  45 #include "object/tilemap.h"
  46 #include "object/coin.h"
  47
  48 // test
  49 #include "flip_level_transformer.h"
  50
  51 using namespace std;
  52
  53 Level::Level()
  54   : name("noname"), author("Mr. X"), timelimit(500)
  55 {
  56 }
  57
  58 void
  59 Level::load(const std::string& filepath)
  60 {
  61   try {
  62     lisp::Parser parser;
  63     std::auto_ptr<lisp::Lisp> root (parser.parse(filepath));
  64
  65     const lisp::Lisp* level = root->get_lisp("supertux-level");
  66     if(!level)
  67       throw std::runtime_error("file is not a supertux-level file.");
  68
  69     int version = 1;
  70     level->get("version", version);
  71     if(version == 1) {
  72       load_old_format(*level);
  73
  74 #if 0
  75       // test for now
  76       FlipLevelTransformer* transformer = new FlipLevelTransformer();
  77       transformer->transform(this);
  78 #endif
  79
  80       return;
  81     }
  82
  83     lisp::ListIterator iter(level);
  84     while(iter.next()) {
  85       const std::string& token = iter.item();
  86       if(token == "version") {
  87         iter.value()->get(version);
  88         if(version > 2) {
  89           std::cerr << "Warning: level format newer than application.\n";
  90         }
  91       } else if(token == "name") {
  92         iter.value()->get(name);
  93       } else if(token == "author") {
  94         iter.value()->get(author);
  95       } else if(token == "time") {
  96         iter.value()->get(timelimit);
  97       } else if(token == "sector") {
  98         Sector* sector = new Sector;
  99         sector->parse(*(iter.lisp()));
 100         add_sector(sector);
 101       } else {
 102         std::cerr << "Unknown token '" << token << "' in level file.\n";
 103         continue;
 104       }
 105     }
 106
 107   } catch(std::exception& e) {
 108     std::stringstream msg;
 109     msg << "Problem when reading level '" << filepath << "': " << e.what();
 110     throw std::runtime_error(msg.str());
 111   }
 112 }
 113
 114 void
 115 Level::load_old_format(const lisp::Lisp& reader)
 116 {
 117   reader.get("name", name);
 118   reader.get("author", author);
 119   reader.get("time", timelimit);
 120
 121   Sector* sector = new Sector;
 122   sector->parse_old_format(reader);
 123   add_sector(sector);
 124 }
 125
 126 void
 127 Level::save(const std::string& filename)
 128 {
 129   std::string filepath = "levels/" + filename;
 130   int last_slash = filepath.find_last_of('/');
 131   FileSystem::fcreatedir(filepath.substr(0,last_slash).c_str());
 132   filepath = user_dir + "/" + filepath;
 133   ofstream file(filepath.c_str(), ios::out);
 134   lisp::Writer* writer = new lisp::Writer(file);
 135
 136   writer->write_comment("Level made using SuperTux's built-in Level Editor");
 137
 138   writer->start_list("supertux-level");
 139
 140   int version = 2;
 141   writer->write_int("version", version);
 142
 143   writer->write_string("name", name, true);
 144   writer->write_string("author", author);
 145   writer->write_int("time", timelimit);
 146
 147   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) {
 148     Sector* sector = *i;
 149     writer->start_list("sector");
 150     sector->write(*writer);
 151     writer->end_list("sector");
 152   }
 153
 154   writer->end_list("supertux-level");
 155
 156   delete writer;
 157   file.close();
 158 }
 159
 160 Level::~Level()
 161 {
 162   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 163     delete *i;
 164 }
 165
 166 void
 167 Level::add_sector(Sector* sector)
 168 {
 169   Sector* test = get_sector(sector->get_name());
 170   if(test != 0) {
 171     throw std::runtime_error("Trying to add 2 sectors with same name");
 172   }
 173   sectors.push_back(sector);
 174 }
 175
 176 Sector*
 177 Level::get_sector(const std::string& name)
 178 {
 179   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) {
 180     Sector* sector = *i;
 181     if(sector->get_name() == name)
 182       return sector;
 183   }
 184
 185   return 0;
 186 }
 187
 188 size_t
 189 Level::get_sector_count()
 190 {
 191   return sectors.size();
 192 }
 193
 194 Sector*
 195 Level::get_sector(size_t num)
 196 {
 197   return sectors.at(num);
 198 }
 199
 200 int
 201 Level::get_total_badguys()
 202 {
 203   int total_badguys = 0;
 204   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 205     total_badguys += (*i)->get_total_badguys();
 206   return total_badguys;
 207 }
 208
 209 int
 210 Level::get_total_coins()
 211 {
 212   // FIXME not really correct as coins can also be inside blocks...
 213   int total_coins = 0;
 214   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) {
 215     Sector* sector = *i;
 216     for(Sector::GameObjects::iterator o = sector->gameobjects.begin();
 217         o != sector->gameobjects.end(); ++o) {
 218       Coin* coin = dynamic_cast<Coin*> (*o);
 219       if(coin)
 220         total_coins++;
 221     }
 222   }
 223   return total_coins;
 224 }
 225