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
  21 #include <config.h>
  22
  23 #include <map>
  24 #include <cstdlib>
  25 #include <cstdio>
  26 #include <cstring>
  27 #include <iostream>
  28 #include <fstream>
  29 #include <stdexcept>
  30
  31 #include "app/globals.h"
  32 #include "app/setup.h"
  33 #include "video/screen.h"
  34 #include "level.h"
  35 #include "math/physic.h"
  36 #include "scene.h"
  37 #include "sector.h"
  38 #include "tile.h"
  39 #include "utils/lispreader.h"
  40 #include "resources.h"
  41 #include "utils/lispwriter.h"
  42 #include "object/gameobjs.h"
  43 #include "object/camera.h"
  44 #include "object/tilemap.h"
  45 #include "object/coin.h"
  46
  47 using namespace std;
  48
  49 Level::Level()
  50   : name("noname"), author("mr. x"), timelimit(500),
  51     end_sequence_type(NONE_ENDSEQ_ANIM)
  52 {
  53 }
  54
  55 void
  56 Level::load(const std::string& filepath)
  57 {
  58   LispReader* level = LispReader::load(filepath, "supertux-level");
  59
  60   int version = 1;
  61   level->read_int("version", version);
  62   if(version == 1) {
  63     load_old_format(*level);
  64     delete level;
  65     return;
  66   }
  67
  68   for(lisp_object_t* cur = level->get_lisp(); !lisp_nil_p(cur);
  69       cur = lisp_cdr(cur)) {
  70     std::string token = lisp_symbol(lisp_car(lisp_car(cur)));
  71     lisp_object_t* data = lisp_car(lisp_cdr(lisp_car(cur)));
  72     LispReader reader(lisp_cdr(lisp_car(cur)));
  73
  74     if(token == "version") {
  75       if(lisp_integer(data) > 2) {
  76         std::cerr << "Warning: level format newer than application.\n";
  77       }
  78     } else if(token == "name") {
  79       name = lisp_string(data);
  80     } else if(token == "author") {
  81       author = lisp_string(data);
  82     } else if(token == "time") {
  83       timelimit = lisp_integer(data);
  84     } else if(token == "sector") {
  85       Sector* sector = new Sector;
  86       sector->parse(reader);
  87       add_sector(sector);
  88     } else if(token == "end-sequence-animation") {
  89       std::string endsequencename = lisp_string(data);
  90       if(endsequencename == "fireworks") {
  91         end_sequence_type = FIREWORKS_ENDSEQ_ANIM;
  92       } else {
  93         std::cout << "Unknown endsequence type: '" << endsequencename <<
  94           "'.\n";
  95       }
  96     } else {
  97       std::cerr << "Unknown token '" << token << "' in level file.\n";
  98       continue;
  99     }
 100   }
 101
 102   delete level;
 103 }
 104
 105 void
 106 Level::load_old_format(LispReader& reader)
 107 {
 108   reader.read_string("name", name, true);
 109   reader.read_string("author", author);
 110   reader.read_int("time", timelimit);
 111
 112   Sector* sector = new Sector;
 113   sector->parse_old_format(reader);
 114   add_sector(sector);
 115 }
 116
 117 void
 118 Level::save(const std::string& filename)
 119 {
 120   std::string filepath = "levels/" + filename;
 121   int last_slash = filepath.find_last_of('/');
 122   FileSystem::fcreatedir(filepath.substr(0,last_slash).c_str());
 123   filepath = st_dir + "/" + filepath;
 124   ofstream file(filepath.c_str(), ios::out);
 125   LispWriter* writer = new LispWriter(file);
 126
 127   writer->write_comment("Level made using SuperTux's built-in Level Editor");
 128
 129   writer->start_list("supertux-level");
 130
 131   int version = 2;
 132   writer->write_int("version", version);
 133
 134   writer->write_string("name", name);
 135   writer->write_string("author", author);
 136   writer->write_int("time", timelimit);
 137   writer->write_string("end-sequence-animation",
 138       end_sequence_type == FIREWORKS_ENDSEQ_ANIM ? "fireworks" : "none");
 139
 140   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) {
 141     writer->start_list("sector");
 142     i->second->write(*writer);
 143     writer->end_list("sector");
 144   }
 145
 146   writer->end_list("supertux-level");
 147
 148   delete writer;
 149   file.close();
 150 }
 151
 152 Level::~Level()
 153 {
 154   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 155     delete i->second;
 156 }
 157
 158 void
 159 Level::add_sector(Sector* sector)
 160 {
 161   sectors.insert(std::make_pair(sector->get_name(), sector));
 162 }
 163
 164 Sector*
 165 Level::get_sector(const std::string& name)
 166 {
 167   Sectors::iterator i = sectors.find(name);
 168   if(i == sectors.end())
 169     return 0;
 170
 171   return i->second;
 172 }
 173
 174 Sector*
 175 Level::get_next_sector(const Sector* sector)
 176 {
 177   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 178     {
 179     if(i->second == sector)
 180       {
 181       i++;
 182       if(i == sectors.end())
 183         return NULL;
 184       return i->second;
 185       }
 186     }
 187   std::cerr << "Warning: Sector not found on level\n";
 188   return NULL;
 189 }
 190
 191 Sector*
 192 Level::get_previous_sector(const Sector* sector)
 193 {
 194   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 195     {
 196     if(i->second == sector)
 197       {
 198       if(i == sectors.begin())
 199         return NULL;
 200       i--;
 201       return i->second;
 202       }
 203     }
 204   std::cerr << "Warning: Sector not found on level\n";
 205   return NULL;
 206 }
 207
 208 int
 209 Level::get_total_sectors()
 210 {
 211 return sectors.size();
 212 }
 213
 214 int
 215 Level::get_total_badguys()
 216 {
 217   int total_badguys = 0;
 218   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 219     total_badguys += i->second->get_total_badguys();
 220   return total_badguys;
 221 }
 222
 223 int
 224 Level::get_total_coins()
 225 {
 226   int total_coins = 0;
 227   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) {
 228     Sector* sector = i->second;
 229     for(Sector::GameObjects::iterator o = sector->gameobjects.begin();
 230         o != sector->gameobjects.end(); ++o) {
 231       Coin* coin = dynamic_cast<Coin*> (*o);
 232       if(coin)
 233         total_coins++;
 234     }
 235   }
 236   return total_coins;
 237 }