steed/stead/goto.lua

go = function (self, where, back)
	local was = self.where;
	local need_scene = false;
	local ret

	if not stead.in_goto_call then
		ret = function(rc) stead.in_goto_call = false return nil end
	else
		ret = function(rc) return rc end
	end

	stead.in_goto_call = true

	if where == nil then
		return nil, ret(false)
	end

	if not isRoom(ref(where)) then
		error ("Trying to go nowhere: "..where);
	end

	if not isRoom(ref(self.where)) then
		error ("Trying to go from nowhere: "..self.where);
	end

	if stead.in_entered_call or stead.in_onexit_call then
		error ("Do not use goto from left/entered action! Use exit/enter action instead:" .. self.where);
	end

	local v, r, jump;

	if not isVroom(ref(where)) and not stead.in_exit_call then
		stead.in_exit_call = true -- to break recurse
		v,r = call(ref(self.where), 'exit', ref(where));
		stead.in_exit_call = nil
		if r == false then
			return v, ret(r)
		end
		if self.where ~= was then
			where = deref(self.where) -- jump
			jump = true
		end
	end

	local res = v;
	v = nil;

	if not isVroom(ref(where)) then
		self.where = deref(where);
	end

	if not jump and (not back or not isDialog(ref(was)) or isDialog(ref(where))) then
		v, r = call(ref(where), 'enter', ref(was));
		if r == false then
			self.where = was;
			return par('^^', res, v), ret(r)
		end

		need_scene = true;
		if ref(where) ~= ref(self.where) then -- jump !!!
			need_scene = false;
		end
	end

	res = par('^^',res,v);

	if not back then
		ref(where).__from__ = deref(was);
	end

	ret()

	if not stead.in_goto_call  then
		local to = self.where
		self.where = was

		stead.in_onexit_call = true
		v = call(ref(was), 'left', ref(to));
		stead.in_onexit_call = false
		res = par('^^',res,v);

		self.where = deref(to)

		stead.in_entered_call = true
		v = call(ref(to), 'entered', ref(was));
		stead.in_entered_call = false
		res = par('^^',res,v);
		if tonumber(ref(to).__visited) then
			ref(to).__visited = ref(to).__visited + 1;
		elseif here().__visited == nil then
			ref(to).__visited = 1
		end
		if isDialog(ref(to)) then
			dialog_rescan(ref(to));
		end
	end
	PLAYER_MOVED = true
	if need_scene then -- or isForcedsc(ref(where)) then -- i'am not sure...
		NEED_SCENE = true
--		return par('^^',res,ref(where):scene());
	end
	return res;
end

game.ini = stead.hook(game.ini,function(f, ...)
	if isRoom(here()) then
		here().__visited = 1
	end
	return f(unpack(arg))
end)

function visited(w)
	if not w then w = here() end
	w = ref(w)
	if not isRoom(w) then
		error ("Wrong parameter to visited.", 2);
	end
	return w.__visited
end

iface.fmt = function(self, cmd, st, moved, r, av, objs, pv) -- st -- changed state (main win), move -- loc changed
	local l
	if st then
		av = txtem(av);
		pv = txtem(pv);
		r = txtem(r)
		if isForcedsc(here()) or NEED_SCENE then
			l = here():scene();
		end
	end
	if moved then
		vv = stead.fmt(stead.cat(stead.par("^^", r, av, l, objs, pv), '^'));
	else
		vv = stead.fmt(stead.cat(stead.par("^^", l, r, av, objs, pv), '^'));
	end
	return vv
end

go = stead.hook(go, function(f, ...)
	local r,v = f(unpack(arg))
	if type(r) == 'string' and cctx() then 
		pr (r)
	end
	if stead.in_life_call then
		ACTION_TEXT = nil
	end
	if r == nil and v == nil then
		if cctx() then
			cctx().action = true
		else
			r = true
		end
	end
	return r,v
end)

iface.cmd = stead.hook(iface.cmd, function(f, ...)
	NEED_SCENE = nil
	return f(unpack(arg))
end)

player  = stead.inherit(player, function(v)
	v.look = function(s)
		NEED_SCENE = true
	end
	return v
end)

pl = player(pl) -- reinit

-- vim:ts=4