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 "globals.h"
  30 #include "setup.h"
  31 #include "camera.h"
  32 #include "screen/screen.h"
  33 #include "level.h"
  34 #include "physic.h"
  35 #include "scene.h"
  36 #include "sector.h"
  37 #include "tile.h"
  38 #include "lispreader.h"
  39 #include "resources.h"
  40 #include "gameobjs.h"
  41 #include "lispwriter.h"
  42
  43 using namespace std;
  44
  45 Level::Level()
  46   : name("noname"), author("mr. x"), time_left(500)
  47 {
  48 }
  49
  50 void
  51 Level::load(const std::string& filename)
  52 {
  53   LispReader* level = LispReader::load(filename, "supertux-level");
  54
  55   int version = 1;
  56   level->read_int("version", version);
  57   if(version == 1) {
  58     load_old_format(*level);
  59     delete level;
  60     return;
  61   }
  62
  63   for(lisp_object_t* cur = level->get_lisp(); !lisp_nil_p(cur);
  64       cur = lisp_cdr(cur)) {
  65     std::string token = lisp_symbol(lisp_car(lisp_car(cur)));
  66     lisp_object_t* data = lisp_car(lisp_cdr(lisp_car(cur)));
  67     LispReader reader(lisp_cdr(lisp_car(cur)));
  68
  69     if(token == "name") {
  70       name = lisp_string(data);
  71     } else if(token == "author") {
  72       author = lisp_string(data);
  73     } else if(token == "time") {
  74       time_left = lisp_integer(data);
  75     } else if(token == "sector") {
  76       Sector* sector = new Sector;
  77       sector->parse(reader);
  78       add_sector(sector);
  79     } else {
  80       std::cerr << "Unknown token '" << token << "' in level file.\n";
  81       continue;
  82     }
  83   }
  84
  85   delete level;
  86 }
  87
  88 void
  89 Level::load_old_format(LispReader& reader)
  90 {
  91   reader.read_string("name", name);
  92   reader.read_string("author", author);
  93   reader.read_int("time", time_left);
  94
  95   Sector* sector = new Sector;
  96   sector->parse_old_format(reader);
  97   add_sector(sector);
  98 }
  99
 100 void
 101 Level::save(const std::string& filename)
 102 {
 103  ofstream file(filename.c_str(), ios::out);
 104  LispWriter* writer = new LispWriter(file);
 105
 106  writer->write_comment("Level made using SuperTux's built-in Level Editor");
 107
 108  writer->start_list("supertux-level");
 109
 110  int version = 2;
 111  writer->write_int("version", version);
 112
 113  writer->write_string("name", name);
 114  writer->write_string("author", author);
 115  writer->write_int("time", time_left);
 116
 117  for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 118    {
 119    writer->start_list("sector");
 120    i->second->write(*writer);
 121    writer->end_list("sector");
 122    }
 123
 124  writer->end_list("supertux-level");
 125
 126  delete writer;
 127  file.close();
 128 }
 129
 130 Level::~Level()
 131 {
 132   for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 133     delete i->second;
 134 }
 135
 136 void
 137 Level::add_sector(Sector* sector)
 138 {
 139   sectors.insert(std::make_pair(sector->get_name(), sector));
 140 }
 141
 142 Sector*
 143 Level::get_sector(const std::string& name)
 144 {
 145   Sectors::iterator i = sectors.find(name);
 146   if(i == sectors.end())
 147     return 0;
 148
 149   return i->second;
 150 }
 151