#include <stdio.h>
#include <string.h>
#include <iostream>
+#include <fstream>
+#include <stdexcept>
#include "globals.h"
#include "setup.h"
-#include "screen.h"
+#include "camera.h"
+#include "screen/screen.h"
#include "level.h"
#include "physic.h"
#include "scene.h"
+#include "sector.h"
#include "tile.h"
#include "lispreader.h"
#include "resources.h"
-#include "music_manager.h"
+#include "gameobjs.h"
+#include "lispwriter.h"
using namespace std;
new_subset.title = "Unknown Title";
new_subset.description = "No description so far.";
new_subset.save();
- new_lev.init_defaults();
- new_lev.save(subset_name, 1);
+ //new_lev.save(subset_name, 1, 0);
}
void LevelSubset::parse (lisp_object_t* cursor)
}
}
-void LevelSubset::load(char *subset)
+void LevelSubset::load(const char* subset)
{
FILE* fi;
char filename[1024];
levels = --i;
}
-void LevelSubset::save()
+void
+LevelSubset::save()
{
FILE* fi;
string filename;
fprintf( fi,")");
fclose(fi);
-
}
}
-Level::Level()
- : img_bkgd(0)
-{
- init_defaults();
-}
-
-Level::Level(const std::string& subset, int level)
- : img_bkgd(0)
-{
- if(load(subset, level) < 0)
- st_abort("Couldn't load level from subset", subset.c_str());
-}
-
-Level::Level(const std::string& filename)
- : img_bkgd(0)
-{
- if(load(filename) < 0)
- st_abort("Couldn't load level " , filename.c_str());
-}
-
-Level::~Level()
-{
- delete img_bkgd;
-}
-
-void
-Level::init_defaults()
-{
- name = "UnNamed";
- author = "UnNamed";
- song_title = "Mortimers_chipdisko.mod";
- bkgd_image = "arctis.png";
- width = 21;
- start_pos_x = 100;
- start_pos_y = 170;
- time_left = 100;
- gravity = 10.;
- back_scrolling = false;
- bkgd_top.red = 0;
- bkgd_top.green = 0;
- bkgd_top.blue = 0;
- bkgd_bottom.red = 255;
- bkgd_bottom.green = 255;
- bkgd_bottom.blue = 255;
-
- 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;
-
- 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;
- }
-}
-
-int
-Level::load(const std::string& subset, int level)
+std::string
+LevelSubset::get_level_filename(unsigned int num)
{
char filename[1024];
-
+
// Load data file:
- snprintf(filename, 1024, "%s/levels/%s/level%d.stl", st_dir, subset.c_str(), level);
+ snprintf(filename, 1024, "%s/levels/%s/level%d.stl", st_dir,
+ name.c_str(), num);
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)
-{
- lisp_object_t* root_obj = lisp_read_from_file(filename);
- if (!root_obj)
- {
- std::cout << "Level: Couldn't load file: " << filename << std::endl;
- return -1;
- }
-
- if (root_obj->type == LISP_TYPE_EOF || root_obj->type == LISP_TYPE_PARSE_ERROR)
- {
- printf("World: Parse Error in file %s", filename.c_str());
- return -1;
- }
-
- vector<int> ia_tm;
- vector<int> bg_tm;
- vector<int> fg_tm;
-
- int version = 0;
- if (strcmp(lisp_symbol(lisp_car(root_obj)), "supertux-level") == 0)
- {
- LispReader reader(lisp_cdr(root_obj));
- version = 0;
- reader.read_int("version", &version);
- if(!reader.read_int("width", &width))
- st_abort("No width specified for level.", "");
- 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;
- time_left = 500;
- if(!reader.read_int("time", &time_left)) {
- printf("Warning no time specified for level.\n");
- }
-
- back_scrolling = false;
- reader.read_bool("back_scrolling", &back_scrolling);
-
- bkgd_top.red = bkgd_top.green = bkgd_top.blue = 0;
- reader.read_int("bkgd_red_top", &bkgd_top.red);
- reader.read_int("bkgd_green_top", &bkgd_top.green);
- reader.read_int("bkgd_blue_top", &bkgd_top.blue);
-
- bkgd_bottom.red = bkgd_bottom.green = bkgd_bottom.blue = 0;
- reader.read_int("bkgd_red_bottom", &bkgd_bottom.red);
- reader.read_int("bkgd_green_bottom", &bkgd_bottom.green);
- reader.read_int("bkgd_blue_bottom", &bkgd_bottom.blue);
-
- gravity = 10;
- reader.read_float("gravity", &gravity);
- name = "Noname";
- reader.read_string("name", &name);
- author = "unknown author";
- reader.read_string("author", &author);
- song_title = "";
- reader.read_string("music", &song_title);
- bkgd_image = "";
- reader.read_string("background", &bkgd_image);
- particle_system = "";
- 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);
- }
-
- 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<char, int> 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<int>::iterator i = ia_tm.begin(); i != ia_tm.end(); ++i)
- {
- if (*i == '0' || *i == '1' || *i == '2')
- {
- badguy_data.push_back(BadGuyData(static_cast<BadGuyKind>(*i-'0'),
- x*32, y*32, false));
- *i = 0;
- }
- else
- {
- std::map<char, int>::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;
- }
- }
- }
- }
-
- 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);
- }
-
- int i = 0;
- int j = 0;
- for(vector<int>::iterator it = ia_tm.begin(); it != ia_tm.end(); ++it, ++i)
- {
- ia_tiles[j][i] = (*it);
- if(i == width - 1)
- {
- i = -1;
- ++j;
- }
- }
-
- i = j = 0;
- for(vector<int>::iterator it = bg_tm.begin(); it != bg_tm.end(); ++it, ++i)
- {
-
- bg_tiles[j][i] = (*it);
- if(i == width - 1)
- {
- i = -1;
- ++j;
- }
- }
-
- i = j = 0;
- for(vector<int>::iterator it = fg_tm.begin(); it != fg_tm.end(); ++it, ++i)
- {
-
- fg_tiles[j][i] = (*it);
- if(i == width - 1)
- {
- i = -1;
- ++j;
- }
- }
-
- lisp_free(root_obj);
- return 0;
-}
-
-/* Save data for level: */
-
-void
-Level::save(const std::string& subset, int level)
-{
- char filename[1024];
- char str[80];
-
- /* Save data file: */
- sprintf(str, "/levels/%s/", subset.c_str());
- fcreatedir(str);
- snprintf(filename, 1024, "%s/levels/%s/level%d.stl", st_dir, subset.c_str(),
- level);
- if(!fwriteable(filename))
snprintf(filename, 1024, "%s/levels/%s/level%d.stl", datadir.c_str(),
- subset.c_str(), level);
-
- FILE * fi = fopen(filename, "w");
- if (fi == NULL)
- {
- perror(filename);
- st_shutdown();
- exit(-1);
- }
-
+ name.c_str(), num);
- /* 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," (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_red_top %d)\n", bkgd_top.red);
- fprintf(fi," (bkgd_green_top %d)\n", bkgd_top.green);
- fprintf(fi," (bkgd_blue_top %d)\n", bkgd_top.blue);
- fprintf(fi," (bkgd_red_bottom %d)\n", bkgd_bottom.red);
- fprintf(fi," (bkgd_green_bottom %d)\n", bkgd_bottom.green);
- fprintf(fi," (bkgd_blue_bottom %d)\n", bkgd_bottom.blue);
- fprintf(fi," (time %d)\n", time_left);
- fprintf(fi," (width %d)\n", width);
- if(back_scrolling)
- fprintf(fi," (back_scrolling #t)\n");
- else
- fprintf(fi," (back_scrolling #f)\n");
- 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<ResetPoint>::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<BadGuyData>::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);
+ return std::string(filename);
}
+//---------------------------------------------------------------------------
-/* Unload data for this level: */
-
-void
-Level::cleanup()
-{
- 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();
- song_title.clear();
- bkgd_image.clear();
-
- badguy_data.clear();
-}
-
-void
-Level::load_gfx()
+Level::Level()
+ : name("noname"), author("mr. x"), time_left(500)
{
- 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());
- delete img_bkgd;
- img_bkgd = new Surface(fname, IGNORE_ALPHA);
- }
- else
- {
- delete img_bkgd;
- img_bkgd = 0;
- }
}
-/* Load a level-specific graphic... */
-void Level::load_image(Surface** ptexture, string theme,const char * file, int use_alpha)
+void
+Level::load(const std::string& filename)
{
- 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);
+ LispReader* level = LispReader::load(filename, "supertux-level");
- *ptexture = new Surface(fname, use_alpha);
-}
-
-/* Change the size of a level (width) */
-void
-Level::change_size (int new_width)
-{
- if(new_width < 21)
- new_width = 21;
+ int version = 1;
+ level->read_int("version", version);
+ if(version == 1) {
+ load_old_format(*level);
+ return;
+ }
- 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);
+ for(lisp_object_t* cur = level->get_lisp(); !lisp_nil_p(cur);
+ cur = lisp_cdr(cur)) {
+ std::string token = lisp_symbol(lisp_car(lisp_car(cur)));
+ lisp_object_t* data = lisp_car(lisp_cdr(lisp_car(cur)));
+ LispReader reader(lisp_cdr(lisp_car(cur)));
+
+ if(token == "name") {
+ name = lisp_string(data);
+ } else if(token == "author") {
+ author = lisp_string(data);
+ } else if(token == "time") {
+ time_left = lisp_integer(data);
+ } else if(token == "sector") {
+ Sector* sector = new Sector;
+ sector->parse(reader);
+ add_sector(sector);
+ } else {
+ std::cerr << "Unknown token '" << token << "' in level file.\n";
+ continue;
}
-
- width = new_width;
+ }
+
+ delete level;
}
void
-Level::change(float x, float y, int tm, unsigned int c)
+Level::load_old_format(LispReader& reader)
{
- int yy = ((int)y / 32);
- int xx = ((int)x / 32);
+ reader.read_string("name", name);
+ reader.read_string("author", author);
+ reader.read_int("time", time_left);
- 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;
- }
- }
+ Sector* sector = new Sector;
+ sector->parse_old_format(reader);
+ add_sector(sector);
}
void
-Level::load_song()
+Level::save(const std::string& filename)
{
- 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);
+#if 0
+ LispReader* level = LispReader::load(filename, "supertux-level");
+
+ int version = 1;
+ level->read_int("version", version);
+ if(version == 1) {
+ load_old_format(*level);
+ return;
}
- free(song_subtitle);
- free(song_path);
-}
-MusicRef
-Level::get_level_music()
-{
- return level_song;
+ for(lisp_object_t* cur = level->get_lisp(); !lisp_nil_p(cur);
+ cur = lisp_cdr(cur)) {
+ std::string token = lisp_symbol(lisp_car(lisp_car(cur)));
+ lisp_object_t* data = lisp_car(lisp_cdr(lisp_car(cur)));
+ LispReader reader(lisp_cdr(lisp_car(cur)));
+
+ if(token == "name") {
+ name = lisp_string(data);
+ } else if(token == "author") {
+ author = lisp_string(data);
+ } else if(token == "time") {
+ time_left = lisp_integer(data);
+ } else if(token == "sector") {
+ Sector* sector = new Sector;
+ sector->parse(reader);
+ add_sector(sector);
+ } else {
+ std::cerr << "Unknown token '" << token << "' in level file.\n";
+ continue;
+ }
+ }
+
+ delete level;
+#endif
}
-MusicRef
-Level::get_level_music_fast()
+Level::~Level()
{
- return level_song_fast;
+ for(Sectors::iterator i = sectors.begin(); i != sectors.end(); ++i)
+ delete i->second;
}
-unsigned int
-Level::gettileid(float x, float y) const
+void
+Level::add_sector(Sector* sector)
{
- 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;
+ sectors.insert(std::make_pair(sector->get_name(), sector));
}
-unsigned int
-Level::get_tile_at(int x, int y) const
+Sector*
+Level::get_sector(const std::string& name)
{
- if(x < 0 || x > width || y < 0 || y > 14)
+ Sectors::iterator i = sectors.find(name);
+ if(i == sectors.end())
return 0;
-
- return ia_tiles[y][x];
+
+ return i->second;
}
-/* EOF */