-
Notifications
You must be signed in to change notification settings - Fork 13
/
subroom.lua
215 lines (206 loc) · 8.23 KB
/
subroom.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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
--[[
This file is part of HiT Hi FiT Hai's PtokaX scripts
Copyright: © 2014 HiT Hi FiT Hai group
Licence: GNU General Public Licence v3 https://www.gnu.org/licenses/gpl-3.0.html
--]]
function OnStartup()
tConfig = {
sPath = Core.GetPtokaXPath().."scripts/",
sDepPath = "dependency/",
sPickleFile = "pickle.lua",
sLogPath = "/www/ChatLogs/",
iMaxHistory = 35,
}
tRooms = {
["#[Gamers]"] = {
tSubscribers = { tModerators = {} },
tChatHistory = {},
sBotDescription = "Gamers' lounge...",
sBotEmail = "donot@mail.me",
sLogFile = "games.txt",
sSubscribersFile = tConfig.sPath.."texts/".."gameSub.txt",
},
["#[QuizRoom]"] = {
tSubscribers = { tModerators = {} },
tChatHistory = {},
sBotDescription = "Chatroom where quizzes are hosted.",
sBotEmail = "do-not@mail.me",
sLogFile = nil,
sSubscribersFile = tConfig.sPath.."texts/".."quizSub.txt",
},
["#[Anime]"] = {
tSubscribers = { tModerators = {} },
tChatHistory = {},
sBotDescription = "Discusssing anime and manga",
sBotEmail = "do.not@mail.me",
sLogFile = "anime.txt",
sSubscribersFile = tConfig.sPath.."texts/".."animSub.txt",
},
["#[NSFW]"] = {
tSubscribers = { tModerators = {} },
tChatHistory = {},
sBotDescription = "Chatroom for NSFW.",
sBotEmail = "do.not@mail.me",
sLogFile = "nsfw.txt",
sSubscribersFile = tConfig.sPath.."texts/".."nsfwSub.txt",
},
}
dofile( tConfig.sPath..tConfig.sDepPath..tConfig.sPickleFile )
for sBotName, tInfo in pairs( tRooms ) do
Core.RegBot( sBotName, tInfo.sBotDescription, tInfo.sBotEmail, true )
if io.open( tInfo.sSubscribersFile, "r" ) then
dofile( tInfo.sSubscribersFile )
tInfo.tSubscribers = tTemp
tTemp = nil
end
end
end
function ToArrival( tUser, sMessage )
local sTo = sMessage:match "$To: (%S+) From:"
if not tRooms[sTo] then return false end
local sCmd, sData = sMessage:match "%b<>%s+[-+*/!#?](%w+)%s?(.*)|"
SaveToFile( sTo, sMessage:match("%b$$(.*)|") )
if FindSubscription( tRooms[sTo].tSubscribers, tUser.sNick ) and not sCmd then
SendToSubscribers( tUser.sNick, sTo, sMessage )
return true
elseif not FindSubscription( tRooms[sTo].tSubscribers, tUser.sNick ) and not sCmd then
Core.SendPmToUser( tUser, sTo, "You are not a part of this chatroom. Please join in to participate." )
return false
end
if sData and sData:len() == 0 then sData = nil end
if not sCmd then return false end
sCmd = sCmd:lower()
if sCmd == "join" or sCmd == "subscribe" then
if FindSubscription( tRooms[sTo].tSubscribers, tUser.sNick ) then
Core.SendPmToUser( tUser, sTo, "You are already subscribed to this chatroom." )
return false
end
table.insert( tRooms[sTo].tSubscribers, tUser.sNick )
Core.SendPmToUser( tUser, sTo, "Your subscription was successful." )
pickle.store( tRooms[sTo].sSubscribersFile, {tTemp = tRooms[sTo].tSubscribers} )
return true
elseif sCmd == "leave" or sCmd == "unsubscribe" then
if FindSubscription( tRooms[sTo].tSubscribers, tUser.sNick ) then
table.remove( tRooms[sTo].tSubscribers, FindSubscription(tRooms[sTo].tSubscribers, tUser.sNick) )
Core.SendPmToUser( tUser, sTo, "Your unsubscription was successful." )
pickle.store( tRooms[sTo].sSubscribersFile, {tTemp = tRooms[sTo].tSubscribers} )
else
Core.SendPmToUser( tUser, sTo, "You are not a part of this room yet." )
end
return true
elseif sCmd == "kick" then
local tKicked = {}
for sKicked in sData:gmatch "(%S+)" do
if not sKicked then
Core.SendPmToUser( tUser, sTo, "No nickname was provided." )
return false
end
local IsInRoom = FindSubscription( tRooms[sTo].tSubscribers, sKicked )
if not IsInRoom then
Core.SendPmToUser( tUser, sTo, sKicked.." is not subscribed to this room." )
return false
end
if tUser.iProfile ~= 0 and not FindSubscription( tRooms[sTo].tSubscribers.tModerators, tUser.sNick ) then
Core.SendPmToUser( tUser, sTo, "You do not have access to this command. Kicked for abusing." )
table.remove( tRooms[sTo].tSubscribers, FindSubscription(tRooms[sTo].tSubscribers, tUser.sNick) )
pickle.store( tRooms[sTo].sSubscribersFile, {tTemp = tRooms[sTo].tSubscribers} )
return false
else
table.remove( tRooms[sTo].tSubscribers, IsInRoom )
local IsModerator = FindSubscription( tRooms[sTo].tSubscribers.tModerators, sKicked )
if tUser.iProfile == 0 and IsModerator then
table.remove( tRooms[sTo].tSubscribers.tModerators, IsModerator )
end
pickle.store( tRooms[sTo].sSubscribersFile, {tTemp = tRooms[sTo].tSubscribers} )
table.insert( tKicked, sKicked )
end
end
Core.SendPmToUser( tUser, sTo, "The following users were kicked from this chatroom: "..table.concat(tKicked, ", ") )
return false
elseif sCmd == "invite" and FindSubscription( tRooms[sTo].tSubscribers, tUser.sNick ) then
local sGuest = sData and sData:match "^(%S+)"
if not sGuest then
Core.SendPmToUser( tUser, sTo, "No nickname was provided." )
return false
end
local tGuest = Core.GetUser( sGuest )
if tGuest then
Core.SendPmToUser( tUser, sTo, tGuest.sNick.." has been invited to "..sTo.." chatroom." )
Core.SendPmToUser( tGuest, sTo, "You have been invited to "..sTo.." chatroom. See help command (or use join to participate)." )
return true
else
Core.SendPmToUser( tUser, sTo, "User with nick "..sGuest.." is not online." )
return false
end
elseif sCmd == "l" or sCmd == "list" then
local sTemplate = ("There are %02d current subscribers participating:\n\n\t"):format( #(tRooms[sTo].tSubscribers) )
Core.SendPmToUser( tUser, sTo, sTemplate..table.concat(tRooms[sTo].tSubscribers, ", ") )
return true
elseif sCmd == "h" or sCmd == "help" then
if tUser.iProfile ~= 0 and not FindSubscription( tRooms[sTo].tSubscribers.tModerators, tUser.sNick ) then
Core.SendPmToUser( tUser, sTo, "The commands available are: help, list, join, invite and leave" )
return true
else
Core.SendPmToUser( tUser, sTo, "The commands available are: help, list, join, invite, kick, police and leave" )
return true
end
elseif (sCmd == "mod" or sCmd == "police") and Core.GetUserData( tUser, 11 ) then
local sNewMod = sData and sData:match "^(%S+)"
local IsInRoom = FindSubscription( tRooms[sTo].tSubscribers, sNewMod )
if sNewMod and IsInRoom and not FindSubscription( tRooms[sTo].tSubscribers.tModerators, sNewMod ) then
table.insert( tRooms[sTo].tSubscribers.tModerators, sNewMod )
local sReply = ("$To: %s From: %s $<%s> %s has been promoted to room moderator by %s.|"):format( sTo, sTo, sTo, sNewMod, tUser.sNick )
SendToSubscribers( sTo, sTo, sReply, true )
return true
end
elseif sCmd == "history" and FindSubscription( tRooms[sTo].tSubscribers, tUser.sNick ) then
local sReply = "Past %d messages to { %s }: \n\n\t%s\n\n"
sReply = sReply:format( #(tRooms[sTo].tChatHistory), sTo, table.concat(tRooms[sTo].tChatHistory, "\n\t") )
Core.SendPmToUser( tUser, sTo, sReply )
return true
else
SendToSubscribers( tUser.sNick, sTo, sMessage )
return true
end
return true
end
function OnExit()
for sBotName, tInfo in pairs( tRooms ) do
Core.UnregBot( sBotName )
end
end
function SaveToFile( sRoomName, sChatMessage )
local tCurrentRoom = tRooms[sRoomName]
if not tCurrentRoom.sLogFile then
return false
end
local sStoreMessage, fWrite = os.date("[%Y-%m-%d %H:%M:%S] ")..sChatMessage, io.open( tConfig.sLogPath..os.date("%Y/%m/")..tCurrentRoom.sLogFile, "a" )
fWrite:write( sStoreMessage.."\n" )
fWrite:flush()
fWrite:close()
return true
end
function SendToSubscribers( sSelfNick, sRoomName, sIncoming, bNotice )
local tCurrentHistory, sIncoming, sRawString = tRooms[sRoomName].tChatHistory, sIncoming:match "%b$$(.*)|", "$To: %s From: %s $%s|"
if sRoomName == "#[NSFW]" and not bNotice then
sIncoming = "<Anonymous>"..sIncoming:match "%b<>(.*)"
end
for iIndex, sNick in ipairs( tRooms[sRoomName].tSubscribers ) do
if sNick:lower() ~= sSelfNick:lower() then
Core.SendToNick( sNick, sRawString:format(sNick, sRoomName, sIncoming) )
end
end
table.insert( tCurrentHistory, os.date("[%Y-%m-%d %H:%M:%S] ")..sIncoming )
if tCurrentHistory[ tConfig.iMaxHistory + 1 ] then
table.remove( tCurrentHistory, 1 )
end
return true
end
function FindSubscription( tInputTable, sNick )
for iIndex, sName in ipairs( tInputTable ) do
if sNick:lower() == sName:lower() then
return iIndex
end
end
return false
end