X-Git-Url: https://git.verplant.org/?a=blobdiff_plain;f=src%2Fworld.cpp;h=8fd45993486e34b935c3c0657fd18d5bb33cc7a5;hb=ca967dcf4ee89f99880355be00782d1cd047be6a;hp=7999097b3533ab781531c0cee79b424993622996;hpb=f3e5e57c9996168a4889ae8e195be25f8b7e629b;p=supertux.git diff --git a/src/world.cpp b/src/world.cpp index 7999097b3..8fd459934 100644 --- a/src/world.cpp +++ b/src/world.cpp @@ -1,5 +1,5 @@ -// $Id: level_subset.cpp 3118 2006-03-25 17:29:08Z sommer $ -// +// $Id$ +// // SuperTux // Copyright (C) 2006 Matthias Braun // @@ -12,13 +12,14 @@ // 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 @@ -27,9 +28,11 @@ #include "lisp/parser.hpp" #include "lisp/lisp.hpp" #include "physfs/physfs_stream.hpp" -#include "script_manager.hpp" -#include "scripting/wrapper_util.hpp" -#include "msg.hpp" +#include "scripting/squirrel_util.hpp" +#include "scripting/serialize.hpp" +#include "log.hpp" +#include "worldmap/worldmap.hpp" +#include "mainloop.hpp" static bool has_suffix(const std::string& data, const std::string& suffix) { @@ -39,23 +42,51 @@ static bool has_suffix(const std::string& data, const std::string& suffix) return false; } +World* World::current_ = NULL; + World::World() { is_levelset = true; hide_from_contribs = false; + sq_resetobject(&world_thread); } World::~World() { + sq_release(Scripting::global_vm, &world_thread); + if(current_ == this) + current_ = NULL; +} + +void +World::set_savegame_filename(const std::string& filename) +{ + this->savegame_filename = filename; + // make sure the savegame directory exists + std::string dirname = FileSystem::dirname(filename); + if(!PHYSFS_exists(dirname.c_str())) { + if(PHYSFS_mkdir(dirname.c_str())) { + std::ostringstream msg; + msg << "Couldn't create directory for savegames '" + << dirname << "': " < root (parser.parse(filename)); + const lisp::Lisp* root = parser.parse(filename); const lisp::Lisp* info = root->get_lisp("supertux-world"); if(info == NULL) @@ -74,11 +105,11 @@ World::load(const std::string& filename) // Level info file doesn't define any levels, so read the // directory to see what we can find - - std::string path = basedir + "/"; + + std::string path = basedir; char** files = PHYSFS_enumerateFiles(path.c_str()); if(!files) { - msg_warning << "Couldn't read subset dir '" << path << "'" << std::endl; + log_warning << "Couldn't read subset dir '" << path << "'" << std::endl; return; } @@ -93,11 +124,114 @@ World::load(const std::string& filename) void World::run() { + using namespace Scripting; + + current_ = this; + + // create new squirrel table for persisten game state + HSQUIRRELVM vm = Scripting::global_vm; + + sq_pushroottable(vm); + sq_pushstring(vm, "state", -1); + sq_newtable(vm); + if(SQ_FAILED(sq_createslot(vm, -3))) + throw Scripting::SquirrelError(vm, "Couldn't create state table"); + sq_pop(vm, 1); + + load_state(); + std::string filename = basedir + "/world.nut"; - IFileStream in(filename); + try { + IFileStream in(filename); + + sq_release(global_vm, &world_thread); + world_thread = create_thread(global_vm); + compile_and_run(object_to_vm(world_thread), in, filename); + } catch(std::exception& ) { + // fallback: try to load worldmap worldmap.stwm + using namespace WorldMapNS; + main_loop->push_screen(new WorldMap(basedir + "worldmap.stwm")); + } +} - HSQUIRRELVM vm = script_manager->create_thread(); - Scripting::compile_and_run(vm, in, filename); +void +World::save_state() +{ + using namespace Scripting; + + lisp::Writer writer(savegame_filename); + + writer.start_list("supertux-savegame"); + writer.write_int("version", 1); + + using namespace WorldMapNS; + if(WorldMap::current() != NULL) { + std::ostringstream title; + title << WorldMap::current()->get_title(); + title << " (" << WorldMap::current()->solved_level_count() + << "/" << WorldMap::current()->level_count() << ")"; + writer.write_string("title", title.str()); + } + + writer.start_list("tux"); + player_status->write(writer); + writer.end_list("tux"); + + writer.start_list("state"); + + sq_pushroottable(global_vm); + sq_pushstring(global_vm, "state", -1); + if(SQ_SUCCEEDED(sq_get(global_vm, -2))) { + Scripting::save_squirrel_table(global_vm, -1, writer); + sq_pop(global_vm, 1); + } + sq_pop(global_vm, 1); + writer.end_list("state"); + + writer.end_list("supertux-savegame"); +} + +void +World::load_state() +{ + using namespace Scripting; + + try { + lisp::Parser parser; + const lisp::Lisp* root = parser.parse(savegame_filename); + + const lisp::Lisp* lisp = root->get_lisp("supertux-savegame"); + if(lisp == NULL) + throw std::runtime_error("file is not a supertux-savegame file"); + + int version = 1; + lisp->get("version", version); + if(version != 1) + throw std::runtime_error("incompatible savegame version"); + + const lisp::Lisp* tux = lisp->get_lisp("tux"); + if(tux == NULL) + throw std::runtime_error("No tux section in savegame"); + player_status->read(*tux); + + const lisp::Lisp* state = lisp->get_lisp("state"); + if(state == NULL) + throw std::runtime_error("No state section in savegame"); + + sq_pushroottable(global_vm); + sq_pushstring(global_vm, "state", -1); + if(SQ_FAILED(sq_deleteslot(global_vm, -2, SQFalse))) + sq_pop(global_vm, 1); + + sq_pushstring(global_vm, "state", -1); + sq_newtable(global_vm); + load_squirrel_table(global_vm, -1, state); + if(SQ_FAILED(sq_createslot(global_vm, -3))) + throw std::runtime_error("Couldn't create state table"); + sq_pop(global_vm, 1); + } catch(std::exception& e) { + log_debug << "Couldn't load savegame: " << e.what() << std::endl; + } } const std::string& @@ -112,3 +246,8 @@ World::get_num_levels() const return levels.size(); } +const std::string& +World::get_basedir() const +{ + return basedir; +}