tip/soo.lua

--[[ Lua XMPP MOO Component by Matthew Wild (MattJ)					]]

function onMessage(msg)
	success, message = pcall(handleMessage, msg);
	if not success then print("\nERROR: "..message.."\n"); end
end

function handleMessage(msg)
	local action, object, room, server, person;
	person = people[msg.fromFull]
	room = people["local"].room._properties.name;
	if not person then print("No such person as "..msg.fromFull, tostring(people[msg.fromFull]).."\n"); end
	if not rooms[room] then return; end

	person:_processCommand(msg.body);
	
	return nil;
end

function GetOccupantNick(jid)
	local pjid, p
	for pjid, p in pairs(people) do
		if CompareJIDs(pjid, jid) then return p.nick; end
	end
	return "user";
end

function CompareJIDs(j1, j2)
	return j1 == j2;
end

function MoveToRoom(person, room)
	if not ( person and room) then print("Error, can't move person to room, invalid args"); return; end
	if type(room) ~= "table" then
		if not rooms[room] then rooms[room] = CreateObject(classes.obj_room, room); rooms[room]:_create{ room = room, server = "" }; end
		 room = rooms[room];
	end
	
	if person.room ~= room then
		if person.room then
			person.room.people[person.nick] = nil; -- Remove from room
		end
	end
	person.room = room;
	--table.print("rooms", rooms);
	room.people[person.nick] = person;
	room:_enter{ room = person.room, person = person, nick = person.nick };
end

function RemoveFromRoom(room, jid)
	if not ( room and jid) then return; end
	for id, t in pairs(room.people) do
		room.people[id] = nil;
	end
end

function BroadcastMessage(people_, from, text, mtype, sender_sees)
	print("\n|>>"..from..": "..text);
end

function FSay(room, fromnick, text)
	if text and fromnick then print("\n|>>"..fromnick..": "..text); end
end

function SendMessage(to, from, text, type)
	if to == "local" then print("\n>>"..from..": "..text);
	else print("\n|>>"..(from or "")..": "..text); end
end

function PSay(room, tonick, fromnick, text)
		print("\n>>"..fromnick..": "..text);
end

dofile("common.lua");

rooms = rooms or { };
people = people or { ["local"] = setmetatable({ nick = "user", group = {} }, { __index = occupant }); };
people["local"]._contents = { ["in"] = createcontainertable(); };


-- Single user --

if not people["local"].room then MoveToRoom(people["local"],"lounge"); end
io.write("\n> ");
for line in io.lines() do
	onMessage({ fromFull = "local", body = line });
io.write("\n> ");
end