src/tile_manager.cpp

   1 //  $Id$
   2 //
   3 //  SuperTux
   4 //  Copyright (C) 2004 Tobias Glaesser <tobi.web@gmx.de>
   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 #include <config.h>
  21
  22 #include <assert.h>
  23 #include "video/drawing_context.h"
  24 #include "app/setup.h"
  25 #include "app/globals.h"
  26 #include "utils/lispreader.h"
  27 #include "tile.h"
  28 #include "tile_manager.h"
  29 #include "scene.h"
  30
  31 TileManager* TileManager::instance_  = 0;
  32
  33 TileManager::TileManager()
  34 {
  35   std::string filename = datadir + "/images/tilesets/supertux.stgt";
  36   load_tileset(filename);
  37 }
  38
  39 TileManager::~TileManager()
  40 {
  41   for(Tiles::iterator i = tiles.begin(); i != tiles.end(); ++i)
  42     delete *i;
  43 }
  44
  45 void TileManager::load_tileset(std::string filename)
  46 {
  47   if(filename == current_tileset)
  48     return;
  49
  50   // free old tiles
  51   for(Tiles::iterator i = tiles.begin(); i != tiles.end(); ++i)
  52     delete *i;
  53   tiles.clear();
  54
  55   lisp_object_t* root_obj = lisp_read_from_file(filename);
  56
  57   if (!root_obj)
  58     Termination::abort("Couldn't load file", filename);
  59
  60   if (strcmp(lisp_symbol(lisp_car(root_obj)), "supertux-tiles") != 0)
  61     assert(false);
  62
  63   lisp_object_t* cur = lisp_cdr(root_obj);
  64   int tileset_id = 0;
  65
  66   while(!lisp_nil_p(cur)) {
  67     lisp_object_t* element = lisp_car(cur);
  68
  69     if (strcmp(lisp_symbol(lisp_car(element)), "tile") == 0)
  70       {
  71         LispReader reader(lisp_cdr(element));
  72
  73         Tile* tile = new Tile;
  74         tile->read(reader);
  75
  76         while(tile->id >= tiles.size()) {
  77             tiles.push_back(0);
  78         }
  79         tiles[tile->id] = tile;
  80       }
  81     else if (strcmp(lisp_symbol(lisp_car(element)), "tileset") == 0)
  82       {
  83         LispReader reader(lisp_cdr(element));
  84         std::string filename;
  85         reader.read_string("file", filename);
  86         filename = datadir + "/images/tilesets/" + filename;
  87         load_tileset(filename);
  88       }
  89     else if (strcmp(lisp_symbol(lisp_car(element)), "tilegroup") == 0)
  90       {
  91         TileGroup new_;
  92         LispReader reader(lisp_cdr(element));
  93         reader.read_string("name", new_.name);
  94         reader.read_int_vector("tiles", new_.tiles);
  95         tilegroups.insert(new_).first;
  96       }
  97     else if (strcmp(lisp_symbol(lisp_car(element)), "properties") == 0)
  98       {
  99         LispReader reader(lisp_cdr(element));
 100         reader.read_int("id", tileset_id);
 101         tileset_id *= 1000;
 102       }
 103     else
 104       {
 105         std::cerr << "Unknown symbol: " <<
 106           lisp_symbol(lisp_car(element)) << "\n";
 107       }
 108
 109     cur = lisp_cdr(cur);
 110   }
 111
 112   lisp_free(root_obj);
 113   current_tileset = filename;
 114 }
 115