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 <map>
  22 #include <cstdlib>
  23 #include <cstdio>
  24 #include <cstring>
  25 #include <iostream>
  26 #include <fstream>
  27 #include <stdexcept>
  28
  29 #include "app/globals.h"
  30 #include "app/setup.h"
  31 #include "camera.h"
  32 #include "video/screen.h"
  33 #include "level.h"
  34 #include "math/physic.h"
  35 #include "scene.h"
  36 #include "sector.h"
  37 #include "tile.h"
  38 #include "utils/lispreader.h"
  39 #include "resources.h"
  40 #include "gameobjs.h"
  41 #include "utils/lispwriter.h"
  42 #include "tilemap.h"
  43
  44 using namespace std;
  45
  46 Level::Level()
  47   : name("noname"), author("mr. x"), time_left(500)
  48
  49 {
  50 }
  51
  52 void
  53 Level::create(const std::string& filename)
  54 {
  55   Level level;
  56   const size_t width = 25;
  57   const size_t height = 19;
  58   level.add_sector(Sector::create("main", width, height));
  59   level.save(filename);
  60 }
  61
  62 void
  63 Level::load(const std::string& filename)
  64 {
  65   std::string filepath;
  66   filepath = st_dir + "/levels/" + filename;
  67   if (access(filepath.c_str(), R_OK) != 0)
  68   {
  69     filepath = datadir + "/levels/" + filename;
  70     if (access(filepath.c_str(), R_OK) != 0)
  71     {
  72       std::cerr << "Error: Level: couldn't find level: " << filename << std::endl;
  73       return;
  74     }
  75   }
  76
  77   LispReader* level = LispReader::load(filepath, "supertux-level");
  78
  79   int version = 1;
  80   level->read_int("version", version);
  81   if(version == 1) {
  82     load_old_format(*level);
  83     delete level;
  84     return;
  85   }
  86
  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)));
  92
  93     if(token == "name") {
  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);
 102       add_sector(sector);
 103     } else {
 104       std::cerr << "Unknown token '" << token << "' in level file.\n";
 105       continue;
 106     }
 107   }
 108
 109   delete level;
 110 }
 111
 112 void
 113 Level::load_old_format(LispReader& reader)
 114 {
 115   reader.read_string("name", name, true);
 116   reader.read_string("author", author);
 117   reader.read_int("time", time_left);
 118
 119   Sector* sector = new Sector;
 120   sector->parse_old_format(reader);
 121   add_sector(sector);
 122 }
 123
 124 void
 125 Level::save(const std::string& filename)
 126 {
 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);
 133
 134  writer->write_comment("Level made using SuperTux's built-in Level Editor");
 135
 136  writer->start_list("supertux-level");
 137
 138  int version = 2;
 139  writer->write_int("version", version);
 140
 141  writer->write_string("name", name);
 142  writer->write_string("author", author);
 143  writer->write_int("time", time_left);
 144
 145  for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 146    {
 147    writer->start_list("sector");
 148    i->second->write(*writer);
 149    writer->end_list("sector");
 150    }
 151
 152  writer->end_list("supertux-level");
 153
 154  delete writer;
 155  file.close();
 156 }
 157
 158 Level::~Level()
 159 {
 160   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 161     delete i->second;
 162 }
 163
 164 void
 165 Level::do_vertical_flip()
 166 {
 167   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 168     i->second->do_vertical_flip();
 169 }
 170
 171 void
 172 Level::add_sector(Sector* sector)
 173 {
 174   sectors.insert(std::make_pair(sector->get_name(), sector));
 175 }
 176
 177 Sector*
 178 Level::get_sector(const std::string& name)
 179 {
 180   Sectors::iterator i = sectors.find(name);
 181   if(i == sectors.end())
 182     return 0;
 183
 184   return i->second;
 185 }
 186
 187 Sector*
 188 Level::get_next_sector(const Sector* sector)
 189 {
 190   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 191     {
 192     if(i->second == sector)
 193       {
 194       i++;
 195       if(i == sectors.end())
 196         return NULL;
 197       return i->second;
 198       }
 199     }
 200   std::cerr << "Warning: Sector not found on level\n";
 201   return NULL;
 202 }
 203
 204 Sector*
 205 Level::get_previous_sector(const Sector* sector)
 206 {
 207   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 208     {
 209     if(i->second == sector)
 210       {
 211       if(i == sectors.begin())
 212         return NULL;
 213       i--;
 214       return i->second;
 215       }
 216     }
 217   std::cerr << "Warning: Sector not found on level\n";
 218   return NULL;
 219 }
 220
 221 int
 222 Level::get_total_sectors()
 223 {
 224 return sectors.size();
 225 }
 226
 227 int
 228 Level::get_total_badguys()
 229 {
 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;
 234 }
 235
 236 int
 237 Level::get_total_coins()
 238 {
 239   int total_coins = 0;
 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)
 244           total_coins++;
 245   return total_coins;
 246 }