oreolek/steed
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

stead fixes (derefs)

Browse source
This commit is contained in:
p.kosyh 2009-09-07 17:30:37 +00:00
parent 63197290b5
commit 4463cb0389
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
stead/stead.lua
View file

@ -1063,6 +1063,7 @@ function check_room(k, v)
end end
function check_player(k, v) function check_player(k, v)
v.where = deref(v.where);
if v.obj and not v.obj:check() then if v.obj and not v.obj:check() then
error ("error in player (obj): "..k); error ("error in player (obj): "..k);
end end
@ -1075,16 +1076,21 @@ function do_ini(self)
v = call(v, 'ini'); v = call(v, 'ini');
v = cat(v, "^^"); v = cat(v, "^^");
end end
math.randomseed(tonumber(os.date("%m%d%H%M%S"))) math.randomseed(tonumber(os.date("%m%d%H%M%S")))
for_each_object(call_ini); for_each_object(call_ini);
for_each_player(call_ini); for_each_player(call_ini);
-- for_each_room(call_ini); -- for_each_room(call_ini);
for_each_object(check_object);
for_each_room(check_room); game.pl = deref(game.pl);
for_each_player(check_player); game.where = deref(game.where);
if not game.lifes:check() then if not game.lifes:check() then
error ("error in game (lifes)."); error ("error in game (lifes).");
end end
for_each_object(check_object);
for_each_room(check_room);
for_each_player(check_player);
me():tag(); me():tag();
if not self.showlast then if not self.showlast then
self._lastdisp = nil; self._lastdisp = nil;
@ -1243,7 +1249,7 @@ end
function game_save(self, name, file) function game_save(self, name, file)
local h; local h;
if file ~= nil then if file ~= nil then
file:write(name..".pl = '"..self.pl.."'\n"); file:write(name..".pl = '"..deref(self.pl).."'\n");
savemembers(file, self, name, false); savemembers(file, self, name, false);
return nil, true return nil, true
end end