X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=src%2Flevel.cpp;h=30e19e62b980e046645309160a3a4956b7ee49cb;hb=67690e081c28b818e94796be284206326bc8a6b9;hp=1e8e6444ebfac6584283803698225f3cb0440810;hpb=b58b123aea0adfa0596907d649cd3de376ef6801;p=supertux.git diff --git a/src/level.cpp b/src/level.cpp index 1e8e6444e..30e19e62b 100644 --- a/src/level.cpp +++ b/src/level.cpp @@ -1,678 +1,209 @@ +// $Id$ +// +// SuperTux +// Copyright (C) 2004 SuperTux Development Team, see AUTHORS for details // -// C Implementation: level -// -// Description: -// -// -// Author: Tobias Glaesser , (C) 2003 -// -// Copyright: See COPYING file that comes with this distribution -// +// This program is free software; you can redistribute it and/or +// modify it under the terms of the GNU General Public License +// as published by the Free Software Foundation; either version 2 +// of the License, or (at your option) any later version. // +// This program is distributed in the hope that it will be useful, +// but WITHOUT ANY WARRANTY; without even the implied warranty of +// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// GNU General Public License for more details. +// +// You should have received a copy of the GNU General Public License +// along with this program; if not, write to the Free Software +// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +// 02111-1307, USA. +#include #include -#include -#include -#include +#include +#include +#include #include -#include "globals.h" -#include "setup.h" -#include "screen.h" -#include "level.h" -#include "physic.h" -#include "scene.h" -#include "tile.h" -#include "lispreader.h" +#include +#include +#include +#include + +#include "video/screen.hpp" +#include "msg.hpp" +#include "lisp/parser.hpp" +#include "lisp/lisp.hpp" +#include "lisp/list_iterator.hpp" +#include "lisp/writer.hpp" +#include "level.hpp" +#include "physic.hpp" +#include "sector.hpp" +#include "tile.hpp" +#include "resources.hpp" +#include "file_system.hpp" +#include "object/gameobjs.hpp" +#include "object/camera.hpp" +#include "object/tilemap.hpp" +#include "object/coin.hpp" + +// test +#include "flip_level_transformer.hpp" using namespace std; -st_subset::st_subset() +Level::Level() + : name("noname"), author("Mr. X") { - levels = 0; -} - -void st_subset::create(const std::string& subset_name) -{ - Level new_lev; - st_subset new_subset; - new_subset.name = subset_name; - new_subset.title = "Unknown Title"; - new_subset.description = "No description so far."; - new_subset.save(); - new_lev.init_defaults(); - new_lev.save(subset_name.c_str(),1); -} - -void st_subset::parse (lisp_object_t* cursor) -{ - while(!lisp_nil_p(cursor)) - { - lisp_object_t* cur = lisp_car(cursor); - char *s; - - if (!lisp_cons_p(cur) || !lisp_symbol_p (lisp_car(cur))) - { - printf("Not good"); - } - else - { - if (strcmp(lisp_symbol(lisp_car(cur)), "title") == 0) - { - if(( s = lisp_string(lisp_car(lisp_cdr(cur)))) != NULL) - { - title = s; - } - } - else if (strcmp(lisp_symbol(lisp_car(cur)), "description") == 0) - { - if(( s = lisp_string(lisp_car(lisp_cdr(cur)))) != NULL) - { - description = s; - } - } - } - cursor = lisp_cdr (cursor); - } -} - -void st_subset::load(char *subset) -{ - FILE* fi; - char filename[1024]; - char str[1024]; - int i; - lisp_object_t* root_obj = 0; - - name = subset; - - snprintf(filename, 1024, "%s/levels/%s/info", st_dir, subset); - if(!faccessible(filename)) - snprintf(filename, 1024, "%s/levels/%s/info", datadir.c_str(), subset); - if(faccessible(filename)) - { - fi = fopen(filename, "r"); - if (fi == NULL) - { - perror(filename); - } - lisp_stream_t stream; - lisp_stream_init_file (&stream, fi); - root_obj = lisp_read (&stream); - - if (root_obj->type == LISP_TYPE_EOF || root_obj->type == LISP_TYPE_PARSE_ERROR) - { - printf("World: Parse Error in file %s", filename); - } - - lisp_object_t* cur = lisp_car(root_obj); - - if (!lisp_symbol_p (cur)) - { - printf("World: Read error in %s",filename); - } - - if (strcmp(lisp_symbol(cur), "supertux-level-subset") == 0) - { - parse(lisp_cdr(root_obj)); - - } - - fclose(fi); - - snprintf(str, 1024, "%s.png", filename); - if(faccessible(str)) - { - texture_load(&image,str,IGNORE_ALPHA); - } - else - { - snprintf(filename, 1024, "%s/images/status/level-subset-info.png", datadir.c_str()); - texture_load(&image,filename,IGNORE_ALPHA); - } - } - - for(i=1; i != -1; ++i) - { - /* Get the number of levels in this subset */ - snprintf(filename, 1024, "%s/levels/%s/level%d.stl", st_dir, subset,i); - if(!faccessible(filename)) - { - snprintf(filename, 1024, "%s/levels/%s/level%d.stl", datadir.c_str(), subset,i); - if(!faccessible(filename)) - break; - } - } - levels = --i; } -void st_subset::save() -{ - FILE* fi; - string filename; - - /* Save data file: */ - filename = "/levels/" + name + "/"; - - fcreatedir(filename.c_str()); - filename = string(st_dir) + "/levels/" + name + "/info"; - if(!fwriteable(filename.c_str())) - filename = datadir + "/levels/" + name + "/info"; - if(fwriteable(filename.c_str())) - { - fi = fopen(filename.c_str(), "w"); - if (fi == NULL) - { - perror(filename.c_str()); +void +Level::load(const std::string& filepath) +{ + try { + lisp::Parser parser; + std::auto_ptr root (parser.parse(filepath)); + + const lisp::Lisp* level = root->get_lisp("supertux-level"); + if(!level) + throw std::runtime_error("file is not a supertux-level file."); + + int version = 1; + level->get("version", version); + if(version == 1) { + load_old_format(*level); + return; + } + + lisp::ListIterator iter(level); + while(iter.next()) { + const std::string& token = iter.item(); + if(token == "version") { + iter.value()->get(version); + if(version > 2) { + msg_warning << "level format newer than application" << std::endl; } - - /* Write header: */ - fprintf(fi,";SuperTux-Level-Subset\n"); - fprintf(fi,"(supertux-level-subset\n"); - - /* Save title info: */ - fprintf(fi," (title \"%s\")\n", title.c_str()); - - /* Save the description: */ - fprintf(fi," (description \"%s\")\n", description.c_str()); - - fprintf( fi,")"); - fclose(fi); - + } else if(token == "name") { + iter.value()->get(name); + } else if(token == "author") { + iter.value()->get(author); + } else if(token == "sector") { + Sector* sector = new Sector; + sector->parse(*(iter.lisp())); + add_sector(sector); + } else { + msg_warning << "Unknown token '" << token << "' in level file" << std::endl; + continue; + } } -} - -void st_subset::free() -{ - title.clear(); - description.clear(); - name.clear(); - texture_free(&image); - levels = 0; + + } catch(std::exception& e) { + std::stringstream msg; + msg << "Problem when reading level '" << filepath << "': " << e.what(); + throw std::runtime_error(msg.str()); + } } void -Level::init_defaults() -{ - name = "UnNamed"; - theme = "antarctica"; - song_title = "Mortimers_chipdisko.mod"; - bkgd_image = "arctis.png"; - width = 21; - time_left = 100; - gravity = 10.; - bkgd_top_red = 0; - bkgd_top_green = 0; - bkgd_top_blue = 0; - bkgd_bottom_red = 0; - bkgd_bottom_green = 0; - bkgd_bottom_blue = 0; - endpos = 0; - - for(int i = 0; i < 15; ++i) - { - ia_tiles[i] = (unsigned int*) malloc((width+1)*sizeof(unsigned int)); - ia_tiles[i][width] = (unsigned int) '\0'; - for(int y = 0; y < width; ++y) - ia_tiles[i][y] = 0; - ia_tiles[i][width] = (unsigned int) '\0'; - - bg_tiles[i] = (unsigned int*) malloc((width+1)*sizeof(unsigned int)); - bg_tiles[i][width] = (unsigned int) '\0'; - for(int y = 0; y < width; ++y) - bg_tiles[i][y] = 0; - bg_tiles[i][width] = (unsigned int) '\0'; - - fg_tiles[i] = (unsigned int*) malloc((width+1)*sizeof(unsigned int)); - fg_tiles[i][width] = (unsigned int) '\0'; - for(int y = 0; y < width; ++y) - fg_tiles[i][y] = 0; - fg_tiles[i][width] = (unsigned int) '\0'; - } -} - -int -Level::load(const std::string& subset, int level) +Level::load_old_format(const lisp::Lisp& reader) { - char filename[1024]; + reader.get("name", name); + reader.get("author", author); - // Load data file: - snprintf(filename, 1024, "%s/levels/%s/level%d.stl", st_dir, subset.c_str(), level); - if(!faccessible(filename)) - snprintf(filename, 1024, "%s/levels/%s/level%d.stl", datadir.c_str(), subset.c_str(), level); - - return load(filename); + Sector* sector = new Sector; + sector->parse_old_format(reader); + add_sector(sector); } -int -Level::load(const std::string& filename) +void +Level::save(const std::string& filename) { - FILE * fi; - lisp_object_t* root_obj = 0; - fi = fopen(filename.c_str(), "r"); - if (fi == NULL) - { - perror(filename.c_str()); - return -1; - } - - lisp_stream_t stream; - lisp_stream_init_file (&stream, fi); - root_obj = lisp_read (&stream); - - if (root_obj->type == LISP_TYPE_EOF || root_obj->type == LISP_TYPE_PARSE_ERROR) - { - printf("World: Parse Error in file %s", filename.c_str()); - } - - vector ia_tm; - vector bg_tm; - vector fg_tm; - - int version = 0; - if (strcmp(lisp_symbol(lisp_car(root_obj)), "supertux-level") == 0) - { - LispReader reader(lisp_cdr(root_obj)); - - reader.read_int("version", &version); - reader.read_int("width", &width); - reader.read_int("time", &time_left); - reader.read_int("bkgd_top_red", &bkgd_top_red); - reader.read_int("bkgd_top_green", &bkgd_top_green); - reader.read_int("bkgd_top_blue", &bkgd_top_blue); - reader.read_int("bkgd_bottom_red", &bkgd_bottom_red); - reader.read_int("bkgd_bottom_green", &bkgd_bottom_green); - reader.read_int("bkgd_bottom_blue", &bkgd_bottom_blue); - reader.read_float("gravity", &gravity); - reader.read_string("name", &name); - reader.read_string("theme", &theme); - reader.read_string("music", &song_title); - reader.read_string("background", &bkgd_image); - reader.read_string("particle_system", &particle_system); - reader.read_int_vector("background-tm", &bg_tm); - - if (!reader.read_int_vector("interactive-tm", &ia_tm)) - reader.read_int_vector("tilemap", &ia_tm); - - reader.read_int_vector("foreground-tm", &fg_tm); - - { - lisp_object_t* cur = 0; - if (reader.read_lisp("objects", &cur)) - { - while (!lisp_nil_p(cur)) - { - lisp_object_t* data = lisp_car(cur); - - BadGuyData bg_data; - bg_data.kind = badguykind_from_string(lisp_symbol(lisp_car(data))); - LispReader reader(lisp_cdr(data)); - reader.read_int("x", &bg_data.x); - reader.read_int("y", &bg_data.y); - - badguy_data.push_back(bg_data); - - cur = lisp_cdr(cur); - } - } - } - - // Convert old levels to the new tile numbers - if (version == 0) - { - std::map transtable; - transtable['.'] = 0; - transtable['x'] = 104; - transtable['X'] = 77; - transtable['y'] = 78; - transtable['Y'] = 105; - transtable['A'] = 83; - transtable['B'] = 102; - transtable['!'] = 103; - transtable['a'] = 84; - transtable['C'] = 85; - transtable['D'] = 86; - transtable['E'] = 87; - transtable['F'] = 88; - transtable['c'] = 89; - transtable['d'] = 90; - transtable['e'] = 91; - transtable['f'] = 92; - - transtable['G'] = 93; - transtable['H'] = 94; - transtable['I'] = 95; - transtable['J'] = 96; + lisp::Writer* writer = new lisp::Writer(filename); - transtable['g'] = 97; - transtable['h'] = 98; - transtable['i'] = 99; - transtable['j'] = 100 - ; - transtable['#'] = 11; - transtable['['] = 13; - transtable['='] = 14; - transtable[']'] = 15; - transtable['$'] = 82; - transtable['^'] = 76; - transtable['*'] = 80; - transtable['|'] = 79; - transtable['\\'] = 81; - transtable['&'] = 75; + writer->write_comment("Level made using SuperTux's built-in Level Editor"); - int x = 0; - int y = 0; - for(std::vector::iterator i = ia_tm.begin(); i != ia_tm.end(); ++i) - { - if (*i == '0' || *i == '1' || *i == '2') - { - badguy_data.push_back(BadGuyData(static_cast(*i-'0'), - x*32, y*32)); - *i = 0; - } - else - { - std::map::iterator j = transtable.find(*i); - if (j != transtable.end()) - *i = j->second; - else - printf("Error: conversion will fail, unsupported char: '%c' (%d)\n", *i, *i); - } - ++x; - if (x >= width) - { - x = 0; - ++y; - } - } - } - } + writer->start_list("supertux-level"); - for(int i = 0; i < 15; ++i) - { - ia_tiles[i] = (unsigned int*) calloc((width +1) , sizeof(unsigned int) ); - bg_tiles[i] = (unsigned int*) calloc((width +1) , sizeof(unsigned int) ); - fg_tiles[i] = (unsigned int*) calloc((width +1) , sizeof(unsigned int) ); - } + int version = 2; + writer->write_int("version", version); - int i = 0; - int j = 0; - for(vector::iterator it = ia_tm.begin(); it != ia_tm.end(); ++it, ++i) - { - ia_tiles[j][i] = (*it); - if(i == width - 1) - { - i = -1; - ++j; - } - } + writer->write_string("name", name, true); + writer->write_string("author", author); - i = j = 0; - for(vector::iterator it = bg_tm.begin(); it != bg_tm.end(); ++it, ++i) - { + for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) { + Sector* sector = *i; + writer->start_list("sector"); + sector->write(*writer); + writer->end_list("sector"); + } - bg_tiles[j][i] = (*it); - if(i == width - 1) - { - i = -1; - ++j; - } - } + writer->end_list("supertux-level"); - i = j = 0; - for(vector::iterator it = fg_tm.begin(); it != fg_tm.end(); ++it, ++i) - { - - fg_tiles[j][i] = (*it); - if(i == width - 1) - { - i = -1; - ++j; - } - } - - // Mark the end position of this level! - // FIXME: -10 is a rather random value, we still need some kind of - // real levelend gola - endpos = 32*(width-10); - - fclose(fi); - return 0; + delete writer; } -/* Save data for level: */ - -void -Level::save(const char * subset, int level) +Level::~Level() { - char filename[1024]; - char str[80]; - - /* Save data file: */ - sprintf(str, "/levels/%s/", subset); - fcreatedir(str); - snprintf(filename, 1024, "%s/levels/%s/level%d.stl", st_dir, subset, level); - if(!fwriteable(filename)) - snprintf(filename, 1024, "%s/levels/%s/level%d.stl", datadir.c_str(), subset, level); - - FILE * fi = fopen(filename, "w"); - if (fi == NULL) - { - perror(filename); - st_shutdown(); - exit(-1); - } - - - /* Write header: */ - fprintf(fi,";SuperTux-Level\n"); - fprintf(fi,"(supertux-level\n"); - - fprintf(fi," (version %d)\n", 1); - fprintf(fi," (name \"%s\")\n", name.c_str()); - fprintf(fi," (theme \"%s\")\n", theme.c_str()); - fprintf(fi," (music \"%s\")\n", song_title.c_str()); - fprintf(fi," (background \"%s\")\n", bkgd_image.c_str()); - fprintf(fi," (particle_system \"%s\")\n", particle_system.c_str()); - fprintf(fi," (bkgd_top_red %d)\n", bkgd_top_red); - fprintf(fi," (bkgd_top_green %d)\n", bkgd_top_green); - fprintf(fi," (bkgd_top_blue %d)\n", bkgd_top_blue); - fprintf(fi," (bkgd_bottom_red %d)\n", bkgd_bottom_red); - fprintf(fi," (bkgd_bottom_green %d)\n", bkgd_bottom_green); - fprintf(fi," (bkgd_bottom_blue %d)\n", bkgd_bottom_blue); - fprintf(fi," (time %d)\n", time_left); - fprintf(fi," (width %d)\n", width); - fprintf(fi," (gravity %2.1f)\n", gravity); - fprintf(fi," (background-tm "); - - for(int y = 0; y < 15; ++y) - { - for(int i = 0; i < width; ++i) - fprintf(fi," %d ", bg_tiles[y][i]); - } - - fprintf( fi,")\n"); - fprintf(fi," (interactive-tm "); - - for(int y = 0; y < 15; ++y) - { - for(int i = 0; i < width; ++i) - fprintf(fi," %d ", ia_tiles[y][i]); - } - - fprintf( fi,")\n"); - fprintf(fi," (foreground-tm "); - - for(int y = 0; y < 15; ++y) - { - for(int i = 0; i < width; ++i) - fprintf(fi," %d ", fg_tiles[y][i]); - } - - fprintf( fi,")\n"); - fprintf( fi,"(objects\n"); - - for(std::vector::iterator it = badguy_data.begin(); - it != badguy_data.end(); - ++it) - fprintf( fi,"(%s (x %d) (y %d))\n",badguykind_to_string((*it).kind).c_str(),(*it).x,(*it).y); - - fprintf( fi,")\n"); - - fprintf( fi,")\n"); - - fclose(fi); + for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) + delete *i; } - -/* Unload data for this level: */ - void -Level::cleanup() +Level::add_sector(Sector* sector) { - for(int i=0; i < 15; ++i) - free(bg_tiles[i]); - for(int i=0; i < 15; ++i) - free(ia_tiles[i]); - for(int i=0; i < 15; ++i) - free(fg_tiles[i]); - - name.clear(); - theme.clear(); - song_title.clear(); - bkgd_image.clear(); - - badguy_data.clear(); + Sector* test = get_sector(sector->get_name()); + if(test != 0) { + throw std::runtime_error("Trying to add 2 sectors with same name"); + } + sectors.push_back(sector); } -void -Level::load_gfx() +Sector* +Level::get_sector(const std::string& name) { - if(!bkgd_image.empty()) - { - char fname[1024]; - snprintf(fname, 1024, "%s/background/%s", st_dir, bkgd_image.c_str()); - if(!faccessible(fname)) - snprintf(fname, 1024, "%s/images/background/%s", datadir.c_str(), bkgd_image.c_str()); - texture_load(&img_bkgd, fname, IGNORE_ALPHA); - } - else - { - /* Quick hack to make sure an image is loaded, when we are freeing it afterwards. */ - load_image(&img_bkgd, theme,"solid0.png", IGNORE_ALPHA); - } -} + for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) { + Sector* sector = *i; + if(sector->get_name() == name) + return sector; + } -void -Level::free_gfx() -{ - texture_free(&img_bkgd); + return 0; } -/* Load a level-specific graphic... */ -void -Level::load_image(texture_type* ptexture, string theme,const char * file, int use_alpha) +size_t +Level::get_sector_count() { - char fname[1024]; - - snprintf(fname, 1024, "%s/themes/%s/%s", st_dir, theme.c_str(), file); - if(!faccessible(fname)) - snprintf(fname, 1024, "%s/images/themes/%s/%s", datadir.c_str(), theme.c_str(), file); - - texture_load(ptexture, fname, use_alpha); + return sectors.size(); } -void tilemap_change_size(unsigned int** tilemap[15], int w, int old_w) +Sector* +Level::get_sector(size_t num) { - int j,y; - for(y = 0; y < 15; ++y) - { - *tilemap[y] = (unsigned int*) realloc(*tilemap[y],(w+1)*sizeof(unsigned int)); - if(w > old_w) - for(j = 0; j < w - old_w; ++j) - *tilemap[y][old_w+j] = 0; - *tilemap[y][w] = 0; - } + return sectors.at(num); } -/* Change the size of a level (width) */ -void -Level::change_size (int new_width) +int +Level::get_total_badguys() { - if(new_width < 21) - new_width = 21; - - tilemap_change_size((unsigned int***)&ia_tiles, new_width, width); - tilemap_change_size((unsigned int***)&bg_tiles, new_width, width); - tilemap_change_size((unsigned int***)&fg_tiles, new_width, width); - - width = new_width; + int total_badguys = 0; + for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) + total_badguys += (*i)->get_total_badguys(); + return total_badguys; } -void -Level::change(float x, float y, int tm, unsigned int c) +int +Level::get_total_coins() { - int yy = ((int)y / 32); - int xx = ((int)x / 32); - - if (yy >= 0 && yy < 15 && xx >= 0 && xx <= width) - { - switch(tm) - { - case TM_BG: - bg_tiles[yy][xx] = c; - break; - case TM_IA: - ia_tiles[yy][xx] = c; - break; - case TM_FG: - fg_tiles[yy][xx] = c; - break; - } + // FIXME not really correct as coins can also be inside blocks... + int total_coins = 0; + for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) { + Sector* sector = *i; + for(Sector::GameObjects::iterator o = sector->gameobjects.begin(); + o != sector->gameobjects.end(); ++o) { + Coin* coin = dynamic_cast (*o); + if(coin) + total_coins++; } + } + return total_coins; } -void -Level::free_song(void) -{ - free_music(level_song); - free_music(level_song_fast); -} - -void -Level::load_song() -{ - char* song_path; - char* song_subtitle; - - level_song = ::load_song(datadir + "/music/" + song_title); - - song_path = (char *) malloc(sizeof(char) * datadir.length() + - strlen(song_title.c_str()) + 8 + 5); - song_subtitle = strdup(song_title.c_str()); - strcpy(strstr(song_subtitle, "."), "\0"); - sprintf(song_path, "%s/music/%s-fast%s", datadir.c_str(), - song_subtitle, strstr(song_title.c_str(), ".")); - level_song_fast = ::load_song(song_path); - free(song_subtitle); - free(song_path); -} - - -unsigned int -Level::gettileid(float x, float y) -{ - int xx, yy; - unsigned int c; - - yy = ((int)y / 32); - xx = ((int)x / 32); - - if (yy >= 0 && yy < 15 && xx >= 0 && xx <= width) - c = ia_tiles[yy][xx]; - else - c = 0; - - return c; -} - -/* EOF */