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
  51 void
  52 Level::load(const std::string& filename)
  53 {
  54   LispReader* level = LispReader::load(filename, "supertux-level");
  55
  56   int version = 1;
  57   level->read_int("version", version);
  58   if(version == 1) {
  59     load_old_format(*level);
  60     delete level;
  61     return;
  62   }
  63
  64   vertical_flip = false;
  65
  66   for(lisp_object_t* cur = level->get_lisp(); !lisp_nil_p(cur);
  67       cur = lisp_cdr(cur)) {
  68     std::string token = lisp_symbol(lisp_car(lisp_car(cur)));
  69     lisp_object_t* data = lisp_car(lisp_cdr(lisp_car(cur)));
  70     LispReader reader(lisp_cdr(lisp_car(cur)));
  71
  72     if(token == "name") {
  73       name = lisp_string(data);
  74     } else if(token == "author") {
  75       author = lisp_string(data);
  76     } else if(token == "time") {
  77       time_left = lisp_integer(data);
  78     } else if(token == "flip") {
  79       vertical_flip = lisp_boolean(data);
  80     } else if(token == "sector") {
  81       Sector* sector = new Sector;
  82       sector->parse(reader);
  83       add_sector(sector);
  84     } else {
  85       std::cerr << "Unknown token '" << token << "' in level file.\n";
  86       continue;
  87     }
  88   }
  89
  90   delete level;
  91
  92   if(vertical_flip)
  93     {
  94     for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
  95       i->second->do_vertical_flip();
  96     }
  97 }
  98
  99 void
 100 Level::load_old_format(LispReader& reader)
 101 {
 102   reader.read_string("name", name);
 103   reader.read_string("author", author);
 104   reader.read_int("time", time_left);
 105   vertical_flip = false;
 106   reader.read_bool("flip", vertical_flip);
 107
 108   Sector* sector = new Sector;
 109   sector->parse_old_format(reader);
 110   add_sector(sector);
 111
 112   if(vertical_flip)
 113     {
 114     for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 115       i->second->do_vertical_flip();
 116     }
 117 }
 118
 119 void
 120 Level::save(const std::string& filename)
 121 {
 122  ofstream file(filename.c_str(), ios::out);
 123  LispWriter* writer = new LispWriter(file);
 124
 125  writer->write_comment("Level made using SuperTux's built-in Level Editor");
 126
 127  writer->start_list("supertux-level");
 128
 129  int version = 2;
 130  writer->write_int("version", version);
 131
 132  writer->write_string("name", name);
 133  writer->write_string("author", author);
 134  writer->write_int("time", time_left);
 135
 136  for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
 137    {
 138    if(vertical_flip)
 139      i->second->do_vertical_flip();
 140
 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