68 lines
1.4 KiB
Lua
68 lines
1.4 KiB
Lua
game._snapshots = {}
|
|
|
|
function make_snapshot(nr)
|
|
if not tonumber(nr) then nr = 0 end
|
|
local h = { };
|
|
local function save_object(key, value, h)
|
|
savevar(h, value, key, false);
|
|
return true;
|
|
end
|
|
local function save_var(key, value, h)
|
|
savevar(h, value, key, isForSave(key, value, _G))
|
|
end
|
|
|
|
h.txt = ''
|
|
h.write = function(s, ...)
|
|
local i
|
|
for i = 1, stead.table.maxn(arg) do
|
|
s.txt = s.txt .. tostring(arg[i]);
|
|
end
|
|
end
|
|
local old = game._snapshots; game._snapshots = nil
|
|
for_each_object(save_object, h);
|
|
save_object('game', game, h);
|
|
for_everything(save_var, h);
|
|
clearvar(_G);
|
|
game._snapshots = old
|
|
game._snapshots[nr] = h.txt;
|
|
end
|
|
|
|
function isSnapshot(nr)
|
|
if not tonumber(nr) then nr = 0 end
|
|
return (game._snapshots[nr] ~= nil)
|
|
end
|
|
|
|
function restore_snapshot(nr)
|
|
if not tonumber(nr) then nr = 0 end
|
|
local ss = game._snapshots
|
|
if not ss[nr] then return nil, true end -- nothing todo
|
|
stead:init();
|
|
game.lifes:zap();
|
|
dofile('main.lua');
|
|
game:ini()
|
|
-- if type(init) == 'function' then -- no hooks here!!!
|
|
-- init();
|
|
-- end
|
|
local f, err = loadstring(ss[nr]);
|
|
if not f then return end
|
|
local i,r = f();
|
|
game._snapshots = ss
|
|
if r then
|
|
return nil, false
|
|
end
|
|
i = do_ini(game, true);
|
|
RAW_TEXT = true
|
|
delete_snapshot(nr);
|
|
if cctx() then
|
|
pr(i)
|
|
end
|
|
return i;
|
|
end
|
|
|
|
function delete_snapshot(nr)
|
|
if not tonumber(nr) then nr = 0 end
|
|
game._snapshots[nr] = nil
|
|
end
|
|
-- vim:ts=4
|
|
|