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