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', 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', deref(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', deref(to));
		stead.in_onexit_call = false
		res = par('^^',res,v);

		self.where = deref(to)

		stead.in_entered_call = true
		v = call(ref(to), 'entered', deref(was));
		stead.in_entered_call = false
		res = par('^^',res,v);
	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

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
	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