1
0
mirror of https://github.com/osmarks/random-stuff synced 2024-11-09 22:09:55 +00:00
random-stuff/computercraft/potatos-chat-monitor.lua
2023-11-13 19:37:05 +00:00

73 lines
3.2 KiB
Lua

if not process.info "chatd" and _G.switchcraft then
process.spawn(chatbox.run, "chatd")
end
local server = settings.get "server"
if _G.switchcraft then server = "switchcraft" end
local chatbox = _G.chatbox or peripheral.find "chat_box"
local data = persistence "pcm"
if not data.blasphemy_counts then data.blasphemy_counts = {} end
local potatOS_supporters = {
gollark = true,
["6_4"] = true
}
local clause_separators = {".", ",", '"', "'", "`", "and", "!", "?", ":", ";", "-"}
local negative_words_list = "abysmal awful appalling atrocious bad boring belligerent banal broken callous crazy cruel corrosive corrupt criminal contradictory confused damaging dismal dreadful deprived deplorable dishonest disease detrimental dishonorable dreary evil enrage fail foul faulty filthy frightful fight gross ghastly grim guilty grotesque grimace haggard harmful horrendous hostile hate horrible hideous icky immature infernal insane inane insidious insipid inelegant junk lousy malicious malware messy monstrous menacing missing nasty negative nonsense naughty odious offensive oppressive objectionable petty poor poisonous questionable reject reptilian rotten repugnant repulsive ruthless scary shocking sad sickening stupid spiteful stormy smelly suspicious shoddy sinister substandard severe stuck threatening terrifying tense ugly unwanted unsatisfactory unwieldy unsightly unwelcome unfair unhealthy unpleasant untoward vile villainous vindictive vicious wicked worthless insecure bug virus sucks dodecahedr worse" .. " sh" .. "it " .. "cr" .. "ap"
local negative_words = negative_words_list / " "
local ignore_if_present_words = "greenhouse not garden these support bounty debug antivirus n't" / " "
function _G.is_blasphemous(message)
local clauses = {message:lower()}
for _, sep in pairs(clause_separators) do
local out = {}
for _, x in pairs(clauses) do
for _, y in pairs(string.split(x, sep)) do
table.insert(out, y)
end
end
clauses = out
end
for _, clause in pairs(clauses) do
for _, word in pairs(negative_words) do
if clause:match(word) and clause:match "potatos" then
for _, iword in pairs(ignore_if_present_words) do
if clause:match(iword) then return false, iword, clause end
end
return true, word, clause
end
end
end
return false
end
while true do
local ev, user, message, mdata = os.pullEvent()
if ev == "chat" or ev == "chat_discord" then
local blasphemous, word, clause = is_blasphemous(message)
if blasphemous then
if mdata then
mdata.renderedText = nil
end
data.blasphemy_counts[user] = (data.blasphemy_counts[user] or 0) + 1
data.save()
print("BLASPHEMY from", user, "-", message, word, clause)
potatOS.report_incident(("blasphemy from %s"):format(user), {"blasphemy"}, {
disable_host_data = true,
ID = os.getComputerID(),
extra_meta = {
message_data = mdata,
user = user,
message = message,
server = server,
blasphemy_count = data.blasphemy_counts[user]
}
})
end
elseif ev == "command" and message == "blasphemy_count" then
print(user, "requested count")
chatbox.tell(user, ("Blasphemy count: %d"):format(data.blasphemy_counts[user] or 0), "PCM")
end
end