X-Git-Url: https://git.verplant.org/?a=blobdiff_plain;f=src%2Fworldmap.cpp;h=c010d5879f71d7972a7f10d9a6d0e01f38db204b;hb=99a1aaefbbf8a094b924c43bb325ead30cc667c4;hp=c7bbc9bfef9d6a8011b3a81c77f0e174d6fae7b4;hpb=8c1b75e07ecb89a4bdd7554bcf58fd263e0f0c62;p=supertux.git diff --git a/src/worldmap.cpp b/src/worldmap.cpp index c7bbc9bfe..c010d5879 100644 --- a/src/worldmap.cpp +++ b/src/worldmap.cpp @@ -1,7 +1,7 @@ // $Id$ // -// Pingus - A free Lemmings clone -// Copyright (C) 2002 Ingo Ruhnke +// SuperTux - A Jump'n Run +// Copyright (C) 2004 Ingo Ruhnke // // This program is free software; you can redistribute it and/or // modify it under the terms of the GNU General Public License @@ -18,26 +18,79 @@ // Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. #include +#include #include #include +#include "globals.h" #include "texture.h" #include "screen.h" #include "lispreader.h" #include "gameloop.h" +#include "setup.h" #include "worldmap.h" +#include "resources.h" namespace WorldMapNS { -TileManager* TileManager::instance_ = 0; +Direction reverse_dir(Direction direction) +{ + switch(direction) + { + case D_WEST: + return D_EAST; + case D_EAST: + return D_WEST; + case D_NORTH: + return D_SOUTH; + case D_SOUTH: + return D_NORTH; + case D_NONE: + return D_NONE; + } + return D_NONE; +} + +std::string +direction_to_string(Direction direction) +{ + switch(direction) + { + case D_WEST: + return "west"; + case D_EAST: + return "east"; + case D_NORTH: + return "north"; + case D_SOUTH: + return "south"; + default: + return "none"; + } +} + +Direction +string_to_direction(const std::string& directory) +{ + if (directory == "west") + return D_WEST; + else if (directory == "east") + return D_EAST; + else if (directory == "north") + return D_NORTH; + else if (directory == "south") + return D_SOUTH; + else + return D_NONE; +} TileManager::TileManager() { - lisp_stream_t stream; - FILE* in = fopen(DATA_PREFIX "images/worldmap/antarctica.scm", "r"); - assert(in); - lisp_stream_init_file (&stream, in); - lisp_object_t* root_obj = lisp_read (&stream); - + std::string stwt_filename = datadir + "/images/worldmap/antarctica.stwt"; + lisp_object_t* root_obj = lisp_read_from_file(stwt_filename); + + if (!root_obj) + st_abort("Couldn't load file", stwt_filename); + if (strcmp(lisp_symbol(lisp_car(root_obj)), "supertux-worldmap-tiles") == 0) { lisp_object_t* cur = lisp_cdr(root_obj); @@ -57,6 +110,7 @@ TileManager::TileManager() tile->south = true; tile->west = true; tile->stop = true; + tile->auto_walk = false; LispReader reader(lisp_cdr(element)); reader.read_int("id", &id); @@ -65,13 +119,14 @@ TileManager::TileManager() reader.read_bool("west", &tile->west); reader.read_bool("east", &tile->east); reader.read_bool("stop", &tile->stop); + reader.read_bool("auto-walk", &tile->auto_walk); reader.read_string("image", &filename); - texture_load(&tile->sprite, - const_cast((std::string(DATA_PREFIX "/images/worldmap/") + filename).c_str()), + tile->sprite = new Surface( + datadir + "/images/worldmap/" + filename, USE_ALPHA); - if (id >= tiles.size()) + if (id >= int(tiles.size())) tiles.resize(id+1); tiles[id] = tile; @@ -88,53 +143,242 @@ TileManager::TileManager() { assert(0); } + + lisp_free(root_obj); +} + +TileManager::~TileManager() +{ + for(std::vector::iterator i = tiles.begin(); i != tiles.end(); ++i) + delete *i; } Tile* TileManager::get(int i) { - assert(i >=0 && i < tiles.size()); + assert(i >=0 && i < int(tiles.size())); return tiles[i]; } +//--------------------------------------------------------------------------- + +Tux::Tux(WorldMap* worldmap_) + : worldmap(worldmap_) +{ + largetux_sprite = new Surface(datadir + "/images/worldmap/tux.png", USE_ALPHA); + firetux_sprite = new Surface(datadir + "/images/worldmap/firetux.png", USE_ALPHA); + smalltux_sprite = new Surface(datadir + "/images/worldmap/smalltux.png", USE_ALPHA); + + offset = 0; + moving = false; + tile_pos.x = 4; + tile_pos.y = 5; + direction = D_NONE; + input_direction = D_NONE; +} + +Tux::~Tux() +{ + delete smalltux_sprite; + delete firetux_sprite; + delete largetux_sprite; +} + +void +Tux::draw(const Point& offset) +{ + Point pos = get_pos(); + switch (player_status.bonus) + { + case PlayerStatus::GROWUP_BONUS: + largetux_sprite->draw(pos.x + offset.x, + pos.y + offset.y - 10); + break; + case PlayerStatus::FLOWER_BONUS: + firetux_sprite->draw(pos.x + offset.x, + pos.y + offset.y - 10); + break; + case PlayerStatus::NO_BONUS: + smalltux_sprite->draw(pos.x + offset.x, + pos.y + offset.y - 10); + break; + } +} + + +Point +Tux::get_pos() +{ + float x = tile_pos.x * 32; + float y = tile_pos.y * 32; + + switch(direction) + { + case D_WEST: + x -= offset - 32; + break; + case D_EAST: + x += offset - 32; + break; + case D_NORTH: + y -= offset - 32; + break; + case D_SOUTH: + y += offset - 32; + break; + case D_NONE: + break; + } + + return Point((int)x, (int)y); +} + +void +Tux::stop() +{ + offset = 0; + direction = D_NONE; + moving = false; +} + +void +Tux::update(float delta) +{ + if (!moving) + { + if (input_direction != D_NONE) + { + WorldMap::Level* level = worldmap->at_level(); + + // We got a new direction, so lets start walking when possible + Point next_tile; + if ((!level || level->solved) + && worldmap->path_ok(input_direction, tile_pos, &next_tile)) + { + tile_pos = next_tile; + moving = true; + direction = input_direction; + back_direction = reverse_dir(direction); + } + else if (input_direction == back_direction) + { + std::cout << "Back triggered" << std::endl; + moving = true; + direction = input_direction; + tile_pos = worldmap->get_next_tile(tile_pos, direction); + back_direction = reverse_dir(direction); + } + } + } + else + { + // Let tux walk a few pixels (20 pixel/sec) + offset += 20.0f * delta; + + if (offset > 32) + { // We reached the next tile, so we check what to do now + offset -= 32; + + if (worldmap->at(tile_pos)->stop || worldmap->at_level()) + { + stop(); + } + else + { + if (worldmap->at(tile_pos)->auto_walk) + { // Turn to a new direction + Tile* tile = worldmap->at(tile_pos); + Direction dir = D_NONE; + + if (tile->north && back_direction != D_NORTH) + dir = D_NORTH; + else if (tile->south && back_direction != D_SOUTH) + dir = D_SOUTH; + else if (tile->east && back_direction != D_EAST) + dir = D_EAST; + else if (tile->west && back_direction != D_WEST) + dir = D_WEST; + + if (dir != D_NONE) + { + direction = dir; + back_direction = reverse_dir(direction); + } + else + { + // Should never be reached if tiledata is good + stop(); + return; + } + } + + // Walk automatically to the next tile + Point next_tile; + if (worldmap->path_ok(direction, tile_pos, &next_tile)) + { + tile_pos = next_tile; + } + else + { + puts("Tilemap data is buggy"); + stop(); + } + } + } + } +} + +//--------------------------------------------------------------------------- +Tile::Tile() +{ +} + +Tile::~Tile() +{ + delete sprite; +} + +//--------------------------------------------------------------------------- + WorldMap::WorldMap() { - quit = false; + tile_manager = new TileManager(); + tux = new Tux(this); + width = 20; height = 15; - tux_moving = false; - - texture_load(&tux_sprite, DATA_PREFIX "/images/worldmap/tux.png", USE_ALPHA); - texture_load(&level_sprite, DATA_PREFIX "/images/worldmap/levelmarker.png", USE_ALPHA); - - tux_offset = 0; - tux_tile_pos.x = 0; - tux_tile_pos.y = 0; + level_sprite = new Surface(datadir + "/images/worldmap/levelmarker.png", USE_ALPHA); + leveldot_green = new Surface(datadir + "/images/worldmap/leveldot_green.png", USE_ALPHA); + leveldot_red = new Surface(datadir + "/images/worldmap/leveldot_red.png", USE_ALPHA); - input_direction = NONE; - tux_direction = NONE; + input_direction = D_NONE; enter_level = false; - name = ""; + name = ""; music = "SALCON.MOD"; - song = 0; load_map(); } WorldMap::~WorldMap() { + delete tux; + delete tile_manager; + + delete level_sprite; + delete leveldot_green; + delete leveldot_red; } void WorldMap::load_map() { - lisp_stream_t stream; - FILE* in = fopen(DATA_PREFIX "levels/default/worldmap.scm", "r"); - assert(in); - lisp_stream_init_file (&stream, in); - lisp_object_t* root_obj = lisp_read (&stream); + std::string filename = datadir + "/levels/default/worldmap.stwm"; + + lisp_object_t* root_obj = lisp_read_from_file(filename); + if (!root_obj) + st_abort("Couldn't load file", filename); if (strcmp(lisp_symbol(lisp_car(root_obj)), "supertux-worldmap") == 0) { @@ -169,9 +413,20 @@ WorldMap::load_map() { Level level; LispReader reader(lisp_cdr(element)); + level.solved = false; + + level.north = true; + level.east = true; + level.south = true; + level.west = true; + + reader.read_string("extro-filename", &level.extro_filename); reader.read_string("name", &level.name); - reader.read_int("x-pos", &level.x); - reader.read_int("y-pos", &level.y); + reader.read_int("x", &level.x); + reader.read_int("y", &level.y); + + get_level_title(&level); // get level's title + levels.push_back(level); } @@ -186,193 +441,318 @@ WorldMap::load_map() cur = lisp_cdr(cur); } } + + lisp_free(root_obj); +} + +void WorldMap::get_level_title(Levels::pointer level) +{ + /** get level's title */ + level->title = ""; + + FILE * fi; + lisp_object_t* root_obj = 0; + fi = fopen((datadir + "/levels/" + level->name).c_str(), "r"); + if (fi == NULL) + { + perror((datadir + "/levels/" + level->name).c_str()); + return; + } + + 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", level->name.c_str()); + } + + if (strcmp(lisp_symbol(lisp_car(root_obj)), "supertux-level") == 0) + { + LispReader reader(lisp_cdr(root_obj)); + reader.read_string("name", &level->title); + } + + lisp_free(root_obj); + + fclose(fi); } void -WorldMap::get_input() +WorldMap::on_escape_press() { - SDL_Event event; + // Show or hide the menu + if(!Menu::current()) + Menu::set_current(worldmap_menu); + else + Menu::set_current(0); +} +void +WorldMap::get_input() +{ enter_level = false; - + input_direction = D_NONE; + + SDL_Event event; while (SDL_PollEvent(&event)) { - switch(event.type) + if (Menu::current()) { - case SDL_QUIT: - quit = true; - break; - - case SDL_KEYDOWN: - switch(event.key.keysym.sym) + Menu::current()->event(event); + } + else + { + switch(event.type) { - case SDLK_ESCAPE: - quit = true; + case SDL_QUIT: + st_abort("Received window close", ""); + break; + + case SDL_KEYDOWN: + switch(event.key.keysym.sym) + { + case SDLK_ESCAPE: + on_escape_press(); + break; + case SDLK_LCTRL: + case SDLK_RETURN: + enter_level = true; + break; + default: + break; + } break; - case SDLK_LCTRL: - case SDLK_RETURN: - if (!tux_moving) + + case SDL_JOYAXISMOTION: + if (event.jaxis.axis == joystick_keymap.x_axis) + { + if (event.jaxis.value < -joystick_keymap.dead_zone) + input_direction = D_WEST; + else if (event.jaxis.value > joystick_keymap.dead_zone) + input_direction = D_EAST; + } + else if (event.jaxis.axis == joystick_keymap.y_axis) + { + if (event.jaxis.value > joystick_keymap.dead_zone) + input_direction = D_SOUTH; + else if (event.jaxis.value < -joystick_keymap.dead_zone) + input_direction = D_NORTH; + } + break; + + case SDL_JOYBUTTONDOWN: + if (event.jbutton.button == joystick_keymap.b_button) enter_level = true; + else if (event.jbutton.button == joystick_keymap.start_button) + on_escape_press(); + break; + + default: break; } - break; } } - Uint8 *keystate = SDL_GetKeyState(NULL); - - input_direction = NONE; + if (!Menu::current()) + { + Uint8 *keystate = SDL_GetKeyState(NULL); - if (keystate[SDLK_LEFT]) - input_direction = WEST; - else if (keystate[SDLK_RIGHT]) - input_direction = EAST; - else if (keystate[SDLK_UP]) - input_direction = NORTH; - else if (keystate[SDLK_DOWN]) - input_direction = SOUTH; + if (keystate[SDLK_LEFT]) + input_direction = D_WEST; + else if (keystate[SDLK_RIGHT]) + input_direction = D_EAST; + else if (keystate[SDLK_UP]) + input_direction = D_NORTH; + else if (keystate[SDLK_DOWN]) + input_direction = D_SOUTH; + } } Point WorldMap::get_next_tile(Point pos, Direction direction) { - // FIXME: Cleanup, seperate tux - switch(input_direction) + switch(direction) { - case WEST: + case D_WEST: pos.x -= 1; break; - case EAST: + case D_EAST: pos.x += 1; break; - case NORTH: + case D_NORTH: pos.y -= 1; break; - case SOUTH: + case D_SOUTH: pos.y += 1; break; - case NONE: + case D_NONE: break; } return pos; } -void -WorldMap::update() +bool +WorldMap::path_ok(Direction direction, Point old_pos, Point* new_pos) { - float speed = 4.5; + *new_pos = get_next_tile(old_pos, direction); - if (enter_level) - { - for(Levels::iterator i = levels.begin(); i != levels.end(); ++i) + if (!(new_pos->x >= 0 && new_pos->x < width + && new_pos->y >= 0 && new_pos->y < height)) + { // New position is outsite the tilemap + return false; + } + else + { // Check if we the tile allows us to go to new_pos + switch(direction) { - if (i->x == tux_tile_pos.x && - i->y == tux_tile_pos.y) - { - std::cout << "Enter the current level: " << i->name << std::endl;; - halt_music(); - gameloop(const_cast((DATA_PREFIX "levels/default/" + i->name).c_str()), - 1, ST_GL_LOAD_LEVEL_FILE); - play_music(song, 1); - break; - } + case D_WEST: + return (at(old_pos)->west && at(*new_pos)->east); + + case D_EAST: + return (at(old_pos)->east && at(*new_pos)->west); + + case D_NORTH: + return (at(old_pos)->north && at(*new_pos)->south); + + case D_SOUTH: + return (at(old_pos)->south && at(*new_pos)->north); + + case D_NONE: + assert(!"path_ok() can't work if direction is NONE"); } + return false; } - else +} + +void +WorldMap::update(float delta) +{ + if (enter_level && !tux->is_moving()) { - if (!tux_moving) + Level* level = at_level(); + if (level) { - Point next_tile = get_next_tile(tux_tile_pos, input_direction); - if (next_tile.x >= 0 && next_tile.x < width - && next_tile.y >= 0 && next_tile.y < height) + if (level->x == tux->get_tile_pos().x && + level->y == tux->get_tile_pos().y) { - // FIXME: Cleanup, seperate tux - switch(input_direction) + std::cout << "Enter the current level: " << level->name << std::endl;; + GameSession session(datadir + "/levels/" + level->name, + 1, ST_GL_LOAD_LEVEL_FILE); + + switch (session.run()) { - case WEST: - if (at(tux_tile_pos)->west && at(next_tile)->east) - { - tux_tile_pos.x -= 1; - tux_moving = true; - tux_direction = input_direction; - } - break; - case EAST: - if (at(tux_tile_pos)->east && at(next_tile)->west) - { - tux_tile_pos.x += 1; - tux_moving = true; - tux_direction = input_direction; - } + case GameSession::ES_LEVEL_FINISHED: + { + bool old_level_state = level->solved; + level->solved = true; + + if (session.get_world()->get_tux()->got_power != + session.get_world()->get_tux()->NONE_POWER) + player_status.bonus = PlayerStatus::FLOWER_BONUS; + else if (session.get_world()->get_tux()->size == BIG) + player_status.bonus = PlayerStatus::GROWUP_BONUS; + else + player_status.bonus = PlayerStatus::NO_BONUS; + + if (old_level_state != level->solved) + { // Try to detect the next direction to which we should walk + // FIXME: Mostly a hack + Direction dir = D_NONE; + + Tile* tile = at(tux->get_tile_pos()); + + if (tile->north && tux->back_direction != D_NORTH) + dir = D_NORTH; + else if (tile->south && tux->back_direction != D_SOUTH) + dir = D_SOUTH; + else if (tile->east && tux->back_direction != D_EAST) + dir = D_EAST; + else if (tile->west && tux->back_direction != D_WEST) + dir = D_WEST; + + if (dir != D_NONE) + { + tux->set_direction(dir); + //tux->update(delta); + } + + std::cout << "Walk to dir: " << dir << std::endl; + } + + if (!level->extro_filename.empty()) + { + MusicRef theme = + music_manager->load_music(datadir + "/music/theme.mod"); + music_manager->play_music(theme); + // Display final credits and go back to the main menu + display_text_file(level->extro_filename, + "/images/background/extro.jpg", SCROLL_SPEED_MESSAGE); + display_text_file("CREDITS", + "/images/background/oiltux.jpg", SCROLL_SPEED_CREDITS); + quit = true; + } + } + break; - case NORTH: - if (at(tux_tile_pos)->north && at(next_tile)->south) - { - tux_tile_pos.y -= 1; - tux_moving = true; - tux_direction = input_direction; - } + case GameSession::ES_LEVEL_ABORT: + // Reseting the player_status might be a worthy + // consideration, but I don't think we need it + // 'cause only the bad players will use it to + // 'cheat' a few items and that isn't necesarry a + // bad thing (ie. better they continue that way, + // then stop playing the game all together since it + // is to hard) break; - case SOUTH: - if (at(tux_tile_pos)->south && at(next_tile)->north) - { - tux_tile_pos.y += 1; - tux_moving = true; - tux_direction = input_direction; - } + case GameSession::ES_GAME_OVER: + quit = true; + player_status.reset(); break; - case NONE: - tux_moving = false; - tux_offset = 0; - tux_direction = input_direction; + case GameSession::ES_NONE: + // Should never be reached break; } - } - else - { - tux_moving = false; - tux_offset = 0; - tux_direction = NONE; + + music_manager->play_music(song); + Menu::set_current(0); + if (!savegame_file.empty()) + savegame(savegame_file); + return; } } else { - tux_offset += speed; + std::cout << "Nothing to enter at: " + << tux->get_tile_pos().x << ", " << tux->get_tile_pos().y << std::endl; + } + } + else + { + tux->update(delta); + tux->set_direction(input_direction); + } + + Menu* menu = Menu::current(); + if(menu) + { + menu->action(); - if (tux_offset > 32) + if(menu == worldmap_menu) + { + switch (worldmap_menu->check()) { - tux_offset -= 32; - - if (at(tux_tile_pos)->stop) - { - tux_direction = NONE; - tux_moving = false; - } - else - { - // FIXME: Cleanup, seperate tux - switch(tux_direction) - { - case WEST: - if (at(tux_tile_pos)->west) - tux_tile_pos.x -= 1; - break; - case EAST: - if (at(tux_tile_pos)->east) - tux_tile_pos.x += 1; - break; - case NORTH: - if (at(tux_tile_pos)->north) - tux_tile_pos.y -= 1; - break; - case SOUTH: - if (at(tux_tile_pos)->south) - tux_tile_pos.y += 1; - break; - } - } + case MNID_RETURNWORLDMAP: // Return to game + break; + case MNID_QUITWORLDMAP: // Quit Worldmap + quit = true; + break; } } + else if(menu == options_menu) + { + process_options_menu(); + } } } @@ -383,73 +763,263 @@ WorldMap::at(Point p) && p.x < width && p.y >= 0 && p.y < height); - return TileManager::instance()->get(tilemap[width * p.y + p.x]); + + return tile_manager->get(tilemap[width * p.y + p.x]); +} + +WorldMap::Level* +WorldMap::at_level() +{ + for(Levels::iterator i = levels.begin(); i != levels.end(); ++i) + { + if (i->x == tux->get_tile_pos().x && + i->y == tux->get_tile_pos().y) + return &*i; + } + + return 0; } + void -WorldMap::draw() +WorldMap::draw(const Point& offset) { for(int y = 0; y < height; ++y) for(int x = 0; x < width; ++x) { Tile* tile = at(Point(x, y)); - texture_draw(&tile->sprite, x*32, y*32, NO_UPDATE); + tile->sprite->draw(x*32 + offset.x, + y*32 + offset.y); } - - float x = tux_tile_pos.x * 32; - float y = tux_tile_pos.y * 32; - - switch(tux_direction) + for(Levels::iterator i = levels.begin(); i != levels.end(); ++i) { - case WEST: - x -= tux_offset - 32; - break; - case EAST: - x += tux_offset - 32; - break; - case NORTH: - y -= tux_offset - 32; - break; - case SOUTH: - y += tux_offset - 32; - break; + if (i->solved) + leveldot_green->draw(i->x*32 + offset.x, + i->y*32 + offset.y); + else + leveldot_red->draw(i->x*32 + offset.x, + i->y*32 + offset.y); } - for(Levels::iterator i = levels.begin(); i != levels.end(); ++i) + tux->draw(offset); + draw_status(); +} + +void +WorldMap::draw_status() +{ + char str[80]; + sprintf(str, "%d", player_status.score); + white_text->draw("SCORE", 0, 0); + gold_text->draw(str, 96, 0); + + sprintf(str, "%d", player_status.distros); + white_text->draw_align("COINS", screen->w/2 - white_text->w*5, 0, A_LEFT, A_TOP); + gold_text->draw_align(str, screen->w/2, 0, A_RIGHT, A_TOP); + + white_text->draw("LIVES", screen->w - white_text->w*9, 0); + if (player_status.lives >= 5) { - texture_draw(&level_sprite, i->x*32, i->y*32, NO_UPDATE); + sprintf(str, "%dx", player_status.lives); + gold_text->draw_align(str, screen->w - gold_text->w, 0, A_RIGHT, A_TOP); + tux_life->draw(screen->w - gold_text->w, 0); + } + else + { + for(int i= 0; i < player_status.lives; ++i) + tux_life->draw(screen->w - tux_life->w*4 +(tux_life->w*i),0); } - texture_draw(&tux_sprite, (int)x, (int)y, NO_UPDATE); - flipscreen(); + if (!tux->is_moving()) + { + for(Levels::iterator i = levels.begin(); i != levels.end(); ++i) + { + if (i->x == tux->get_tile_pos().x && + i->y == tux->get_tile_pos().y) + { + white_text->draw_align(i->title.c_str(), screen->w/2, screen->h, A_HMIDDLE, A_BOTTOM); + break; + } + } + } } void WorldMap::display() { + Menu::set_current(0); + quit = false; - song = load_song(const_cast((DATA_PREFIX "/music/" + music).c_str())); - play_music(song, 1); + song = music_manager->load_music(datadir + "/music/" + music); + music_manager->play_music(song); - while(!quit) { - draw(); - get_input(); - update(); - SDL_Delay(20); - } + unsigned int last_update_time; + unsigned int update_time; + + last_update_time = update_time = st_get_ticks(); - free_music(song); + while(!quit) + { + float delta = ((float)(update_time-last_update_time))/100.0; + + delta *= 1.3f; + + if (delta > 10.0f) + delta = .3f; + + last_update_time = update_time; + update_time = st_get_ticks(); + + Point tux_pos = tux->get_pos(); + if (1) + { + offset.x = -tux_pos.x + screen->w/2; + offset.y = -tux_pos.y + screen->h/2; + + if (offset.x > 0) offset.x = 0; + if (offset.y > 0) offset.y = 0; + + if (offset.x < screen->w - width*32) offset.x = screen->w - width*32; + if (offset.y < screen->h - height*32) offset.y = screen->h - height*32; + } + + draw(offset); + get_input(); + update(delta); + + if(Menu::current()) + { + Menu::current()->draw(); + mouse_cursor->draw(); + } + flipscreen(); + + SDL_Delay(20); + } } -} // namespace WorldMapNS +void +WorldMap::savegame(const std::string& filename) +{ + std::cout << "savegame: " << filename << std::endl; + std::ofstream out(filename.c_str()); -void worldmap_run() + int nb_solved_levels = 0; + for(Levels::iterator i = levels.begin(); i != levels.end(); ++i) + { + if (i->solved) + ++nb_solved_levels; + } + + out << "(supertux-savegame\n" + << " (version 1)\n" + << " (title \"Icyisland - " << nb_solved_levels << "/" << levels.size() << "\")\n" + << " (lives " << player_status.lives << ")\n" + << " (score " << player_status.score << ")\n" + << " (distros " << player_status.distros << ")\n" + << " (tux (x " << tux->get_tile_pos().x << ") (y " << tux->get_tile_pos().y << ")\n" + << " (back \"" << direction_to_string(tux->back_direction) << "\")\n" + << " (bonus \"" << bonus_to_string(player_status.bonus) << "\"))\n" + << " (levels\n"; + + for(Levels::iterator i = levels.begin(); i != levels.end(); ++i) + { + if (i->solved) + { + out << " (level (name \"" << i->name << "\")\n" + << " (solved #t))\n"; + } + } + + out << " )\n" + << " )\n\n;; EOF ;;" << std::endl; +} + +void +WorldMap::loadgame(const std::string& filename) { - WorldMapNS::WorldMap worldmap; + std::cout << "loadgame: " << filename << std::endl; + savegame_file = filename; + + if (access(filename.c_str(), F_OK) != 0) + return; - worldmap.display(); + lisp_object_t* savegame = lisp_read_from_file(filename); + if (!savegame) + { + std::cout << "WorldMap:loadgame: File not found: " << filename << std::endl; + return; + } + + lisp_object_t* cur = savegame; + + if (strcmp(lisp_symbol(lisp_car(cur)), "supertux-savegame") != 0) + return; + + cur = lisp_cdr(cur); + LispReader reader(cur); + + reader.read_int("lives", &player_status.lives); + reader.read_int("score", &player_status.score); + reader.read_int("distros", &player_status.distros); + + if (player_status.lives < 0) + player_status.lives = START_LIVES; + + lisp_object_t* tux_cur = 0; + if (reader.read_lisp("tux", &tux_cur)) + { + Point p; + std::string back_str = "none"; + std::string bonus_str = "none"; + + LispReader tux_reader(tux_cur); + tux_reader.read_int("x", &p.x); + tux_reader.read_int("y", &p.y); + tux_reader.read_string("back", &back_str); + tux_reader.read_string("bonus", &bonus_str); + + player_status.bonus = string_to_bonus(bonus_str); + tux->back_direction = string_to_direction(back_str); + tux->set_tile_pos(p); + } + + lisp_object_t* level_cur = 0; + if (reader.read_lisp("levels", &level_cur)) + { + while(level_cur) + { + lisp_object_t* sym = lisp_car(lisp_car(level_cur)); + lisp_object_t* data = lisp_cdr(lisp_car(level_cur)); + + if (strcmp(lisp_symbol(sym), "level") == 0) + { + std::string name; + bool solved = false; + + LispReader level_reader(data); + level_reader.read_string("name", &name); + level_reader.read_bool("solved", &solved); + + for(Levels::iterator i = levels.begin(); i != levels.end(); ++i) + { + if (name == i->name) + i->solved = solved; + } + } + + level_cur = lisp_cdr(level_cur); + } + } + + lisp_free(savegame); } -/* EOF */ +} // namespace WorldMapNS + +/* Local Variables: */ +/* mode:c++ */ +/* End: */ +