def_object.lua

classes.default._properties = { name = "object", longname = "An object", desc = "You see nothing of interest" }

function classes.default:_create(e)

	local obj = CreateObject(self, e.name);

	obj._room = e.room;

	return obj;

end

function classes.default:look (e)

	FSay(e.room, e.nick, "/me looks at "..(self._properties.prepend or "The ")..self._properties.name or "____");

	PSay(e.room, e.nick, "", self._properties.desc);

end

function classes.default:_say(text, room)

	FSay(room or self._room, (self._properties.prepend or "The ")..self._properties.name, text);

end

function classes.default:_action(text, room)

	return self:_say("/me "..text, room);

end

function classes.default:_findobject(name, where)

	if not (self._contents and self._contents[where or "in"]) then return nil; end

	if self._properties.locked then return false; end

	return self._contents[where or "in"]:findobject(name);

end

function classes.default:_unlink(object)

	if not (self._contents and self._contents["in"]) then print("Attempt to _unlink on a non-container."); return nil; end

	if type(object) == "string" then object = self._contents["in"]:findobject(object); end

	if not object then return false; end

	if self._contents["in"]:remove(object) then

		return true;

	end

end

function classes.default:_get(i)

	if not (self._contents and self._contents["in"]) then print("Attempt for a non-container to _get"); return nil; end

	if not (i.container:_unlink(i.object)) then return false; end

	self._contents["in"]:add(i.object);

	return true;

end

classes.default["look in"] =

	function (self, e)

		local contents = {};

		local contents2 = {};

		if not (self._contents and self._contents["in"]) then e.person:_tell("That is not a container."); return; end

		contents = self._contents["in"]:getallobjects();

		for o, exists in pairs(contents) do

			print("o");

			table.insert(contents2, o._properties.longname or o._properties.name or "Something");

		end

		e.person:_tell("You see: "..table.concat(contents2,", "));

	end