def_occupant.lua

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
occupant =
{ 
	_properties = {},
	_default =	function (self, e)
				PSay(e.room, e.nick, " ", "<not-implemented/>");
			end,
	sit	=	function (self, e)
				self:_action("sits down");
			end,
	reload = 	function (self, e)
				local success, message = pcall(dofile, "bot.lua");
				if not success then self:_tell(string.format("Error reloading: %s", message)); end
			end,
	refresh = 	function (self, e)
				classes = nil;
				dofile("bot.lua");
			end,
	who = 	function (self, e)
				local p = {};
				for nick, t in pairs(self.room.people) do
					table.insert(p, nick.." ("..(t.jid or "Unknown JID")..")\n");
				end
				self:_tell("People in "..self.room._properties.name..":\n"..table.concat(p, ","));
			end,
	allwho =	function (self, e)
				local p = {};
				for jid, t in pairs(people) do
					table.insert(p, t.nick.." ("..jid..") in "..t.room._properties.name.."\n");
				end
				PSay(e.room, e.nick, " ", "People in MOO:\n"..table.concat(p, ","));
			end,
	_say = 	function (self, text, who)
				BroadcastMessage(self.room.people, self.nick , text, who);
			end,
	_action =	function (self, text, who)
				return self:_say("/me "..text, who);
			end,
	_tell = 	function (self, text)
				SendMessage(self.jid, self.occjid, text or "", "groupchat");
			end,
	i = 		function (self, e)
				local contents = {};
				local contents2 = {};
				contents = self._contents["in"]:getallobjects();
				for o, exists in pairs(contents) do
					table.insert(contents2, o._properties.longname or o._properties.name or "Something");
				end
				self:_tell("You are carrying: "..table.concat(contents2,", "));
			end,
	jump = function (self, e) self:_action("jumps"); end
};


function occupant:_processCommand(line)
	person = self;
	
	if line:match("^%..*$") then BroadcastMessage(person.room.people, person.nick, line:match("^%.%s?(.*)$")); return nil; end
	if line:match("^,.*$") then person:_action(line:match("^,%s?(.*)$")); return nil; end
	action, object = commands:_parse(self, line); -- line:match("^(%a+)%s(%a+)$");
	if commands:_handle(self, action, object) == false then person:_tell(string.format("Sorry, I don't know how you can '%s'",line)); end
end

occupant._findobject = classes.default._findobject;
occupant._get = classes.default._get;
occupant._unlink = classes.default._unlink;

function occupant:_sendto(roomname)
	MoveToRoom(self, roomname);
end