X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=src%2Flevel.cpp;h=1a81bca0889239bd634cb8dc97e9cce1e4353c60;hb=4a486d92343d1824b311c234e9321e08f280fe68;hp=0ee5cc75291fd882168b91ba4df773c69f8a8fe5;hpb=bc0492a3da607f7ee777eff4e78aaa2dd95a50e0;p=supertux.git diff --git a/src/level.cpp b/src/level.cpp index 0ee5cc752..1a81bca08 100644 --- a/src/level.cpp +++ b/src/level.cpp @@ -1,7 +1,7 @@ // $Id$ -// +// // SuperTux -// Copyright (C) 2004 SuperTux Development Team, see AUTHORS for details +// Copyright (C) 2006 Matthias Braun // // This program is free software; you can redistribute it and/or // modify it under the terms of the GNU General Public License @@ -12,743 +12,197 @@ // 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 "resources.h" -#include "music_manager.h" +#include +#include +#include +#include + +#include "log.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" using namespace std; -st_subset::st_subset() -{ - 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) +Level::Level() + : name("noname"), author("Mr. X") { - 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)) - { - image = new Surface(str,IGNORE_ALPHA); - } - else - { - snprintf(filename, 1024, "%s/images/status/level-subset-info.png", datadir.c_str()); - image = new Surface(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) { + log_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 == "on-menukey-script") { + iter.value()->get(on_menukey_script); + } else if(token == "sector") { + Sector* sector = new Sector(this); + sector->parse(*(iter.lisp())); + add_sector(sector); + } else { + log_warning << "Unknown token '" << token << "' in level file" << std::endl; + continue; + } } -} - -void st_subset::free() -{ - title.clear(); - description.clear(); - name.clear(); - delete image; - levels = 0; -} - -Level::Level() - : img_bkgd(0) -{ -} - -Level::Level(const std::string& subset, int level) - : img_bkgd(0) -{ - load(subset, level); -} - -Level::Level(const std::string& filename) - : img_bkgd(0) -{ - load(filename); -} -Level::~Level() -{ - free_gfx(); + } 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() +Level::load_old_format(const lisp::Lisp& reader) { - name = "UnNamed"; - author = "UnNamed"; - theme = "antarctica"; - song_title = "Mortimers_chipdisko.mod"; - bkgd_image = "arctis.png"; - width = 21; - start_pos_x = 100; - start_pos_y = 170; - time_left = 100; - gravity = 10.; - bkgd_top.red = 0; - bkgd_top.green = 0; - bkgd_top.blue = 0; - bkgd_bottom.red = 255; - bkgd_bottom.green = 255; - bkgd_bottom.blue = 255; - endpos = 0; - use_endsequence = false; - - for(int i = 0; i < 15; ++i) - { - ia_tiles[i].resize(width+1, 0); - ia_tiles[i][width] = (unsigned int) '\0'; - - for(int y = 0; y < width; ++y) - ia_tiles[i][y] = 0; + reader.get("name", name); + reader.get("author", author); - bg_tiles[i].resize(width+1, 0); - bg_tiles[i][width] = (unsigned int) '\0'; - for(int y = 0; y < width; ++y) - bg_tiles[i][y] = 0; - - fg_tiles[i].resize(width+1, 0); - fg_tiles[i][width] = (unsigned int) '\0'; - for(int y = 0; y < width; ++y) - fg_tiles[i][y] = 0; - } + Sector* sector = new Sector(this); + sector->parse_old_format(reader); + add_sector(sector); } -int -Level::load(const std::string& subset, int level) -{ - char filename[1024]; - - // 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); -} - -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_bool("use-endsequence", &use_endsequence); - reader.read_int("width", &width); - if (!reader.read_int("start_pos_x", &start_pos_x)) start_pos_x = 100; - if (!reader.read_int("start_pos_y", &start_pos_y)) start_pos_y = 170; - 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("author", &author); - 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); - - { // Read ResetPoints - lisp_object_t* cur = 0; - if (reader.read_lisp("reset-points", &cur)) - { - while (!lisp_nil_p(cur)) - { - lisp_object_t* data = lisp_car(cur); - - ResetPoint pos; - - LispReader reader(lisp_cdr(data)); - if (reader.read_int("x", &pos.x) - && reader.read_int("y", &pos.y)) - { - reset_points.push_back(pos); - } + lisp::Writer* writer = new lisp::Writer(filename); - cur = lisp_cdr(cur); - } - } - } - - { // Read BadGuys - 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); - reader.read_bool("stay-on-platform", &bg_data.stay_on_platform); - - 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; - - 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; - - 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, false)); - *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->write_comment("Level made using SuperTux's built-in Level Editor"); - for(int i = 0; i < 15; ++i) - { - ia_tiles[i].resize(width + 1, 0); - bg_tiles[i].resize(width + 1, 0); - fg_tiles[i].resize(width + 1, 0); - } + writer->start_list("supertux-level"); - 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; - } - } + int version = 2; + writer->write_int("version", version); - i = j = 0; - for(vector::iterator it = bg_tm.begin(); it != bg_tm.end(); ++it, ++i) - { + writer->write_string("name", name, true); + writer->write_string("author", author); + if(on_menukey_script != "") + writer->write_string("on-menukey-script", on_menukey_script); - bg_tiles[j][i] = (*it); - if(i == width - 1) - { - i = -1; - ++j; - } - } - - 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; - } - } + for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) { + Sector* sector = *i; + writer->start_list("sector"); + sector->write(*writer); + writer->end_list("sector"); + } - // Mark the end position of this level! - // FIXME: -10 is a rather random value, we still need some kind of - // real levelend gola - if (use_endsequence) - endpos = 32*(width-20); - else - endpos = 32*(width-15); + writer->end_list("supertux-level"); - 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," (author \"%s\")\n", author.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,"(reset-points\n"); - for(std::vector::iterator i = reset_points.begin(); - i != reset_points.end(); ++i) - fprintf( fi,"(point (x %d) (y %d))\n",i->x, i->y); - 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) (stay-on-platform %s))\n", - badguykind_to_string((*it).kind).c_str(),(*it).x,(*it).y, - it->stay_on_platform ? "#t" : "#f"); - - 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) - { - bg_tiles[i].clear(); - ia_tiles[i].clear(); - fg_tiles[i].clear(); - } - - reset_points.clear(); - name.clear(); - author.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()); - img_bkgd = new Surface(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() -{ - delete img_bkgd; + return 0; } -/* Load a level-specific graphic... */ -void -Level::load_image(Surface** 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); - - *ptexture = new Surface(fname, use_alpha); + return sectors.size(); } -/* Change the size of a level (width) */ -void -Level::change_size (int new_width) +Sector* +Level::get_sector(size_t num) { - if(new_width < 21) - new_width = 21; - - for(int y = 0; y < 15; ++y) - { - ia_tiles[y].resize(new_width, 0); - bg_tiles[y].resize(new_width, 0); - fg_tiles[y].resize(new_width, 0); - } - - width = new_width; + return sectors.at(num); } -void -Level::change(float x, float y, int tm, unsigned int c) -{ - 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; - } +int +Level::get_total_coins() +{ + // 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++; } -} - -void -Level::load_song() -{ - char* song_path; - char* song_subtitle; - - level_song = music_manager->load_music(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(), ".")); - if(!music_manager->exists_music(song_path)) { - level_song_fast = level_song; - } else { - level_song_fast = music_manager->load_music(song_path); } - free(song_subtitle); - free(song_path); + return total_coins; } -MusicRef -Level::get_level_music() -{ - return level_song; -} - -MusicRef -Level::get_level_music_fast() -{ - return level_song_fast; -} - -unsigned int -Level::gettileid(float x, float y) +int +Level::get_total_badguys() { - 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; + int total_badguys = 0; + for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i) + total_badguys += (*i)->get_total_badguys(); + return total_badguys; } - -/* EOF */