Jmaa/memebot
1
0
Fork 0
Code Packages Projects Releases Activity

Vil opføre sig ordentlig, og undgå at spamme.

Browse Source
This commit is contained in:
Jon Michael Aanes 2018-06-08 19:25:57 +02:00
parent 6d3faf178a
commit ae5ed523d0
1 changed files with 24 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
main.lua
View File

@ -20,7 +20,8 @@ if CONFIG.LUA_EXTRA_CPATH then package.cpath = package.cpath .. CONFIG.LUA_EXTR
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- Constants -- Constants
local FARVEL_INTERVAL = 90 local FARVEL_INTERVAL = 60
local MEME_INTERVAL = 30
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- Make sure all required modules can be loaded -- Make sure all required modules can be loaded
@ -486,13 +487,14 @@ local function escape_pattern (text)
end end
local FORRIGE_FARVEL = 0 local FORRIGE_FARVEL = 0
local FORRIGE_MEME = 0
local function handle_message(bot, user, channel, message) local function handle_message(bot, user, channel, message, is_slow_channel)
-- Direct commands -- Direct commands
if message:lower():match('^'..escape_pattern(CONFIG.IRC_NICK)..'%f[%A]') then if message:lower():match('^'..escape_pattern(CONFIG.IRC_NICK)..'%f[%A]') then
local msg = message:sub(#CONFIG.IRC_NICK+1) local msg = message:sub(#CONFIG.IRC_NICK+1)
if msg:match '%s*join%s+(#%a)' then if msg:match '^%s*join%s+(#..-)%s*$' then
local channel = msg:match '^%s*join%s+(#%a+)%s*$' local channel = msg:match '^%s*join%s+(#..-)%s*$'
bot:sendChat(channel, "Will do! I'll join "..tostring(channel)) bot:sendChat(channel, "Will do! I'll join "..tostring(channel))
join_channel(channel) join_channel(channel)
else else
@ -501,13 +503,6 @@ local function handle_message(bot, user, channel, message)
return 'BOT' return 'BOT'
end end
-- Bait msg
if message:match '%f[%a]bait%f[%A]' then
human_delay()
bot:sendChat(channel, generate_bait_link())
return 'BAIT'
end
-- Farvel msg -- Farvel msg
if FORRIGE_FARVEL + FARVEL_INTERVAL < os.time() then if FORRIGE_FARVEL + FARVEL_INTERVAL < os.time() then
for farvel_fmt, possible_answeres in pairs(FARVEL) do for farvel_fmt, possible_answeres in pairs(FARVEL) do
@ -523,6 +518,20 @@ local function handle_message(bot, user, channel, message)
end end
end end
-- Rest of this function is memes
-- Memes are restricted, a bit.
if is_slow_channel then
if not (FORRIGE_MEME + MEME_INTERVAL < os.time()) then return 'NOMEME' end
FORRIGE_MEME = os.time()
end
-- Bait msg
if message:match '%f[%a]bait%f[%A]' then
human_delay()
bot:sendChat(channel, generate_bait_link())
return 'BAIT'
end
-- Comparison memes -- Comparison memes
local topics = get_topics_from_comparison_message(message) local topics = get_topics_from_comparison_message(message)
if not topics then return end if not topics then return end
@ -546,11 +555,14 @@ local function handle_message(bot, user, channel, message)
return 'BRAIN' return 'BRAIN'
end end
local DEBUG_CHANNEL = '#bot-test'
bot:hook("OnChat", function(user, channel, message) bot:hook("OnChat", function(user, channel, message)
local is_slow_channel = not (user == CONFIG.IRC_NICK or channel == DEBUG_CHANNEL)
if channel == CONFIG.IRC_NICK then channel = user.nick end if channel == CONFIG.IRC_NICK then channel = user.nick end
io.write '...\r' io.write '...\r'
io.flush() io.flush()
local success, status = pcall(handle_message, bot, user, channel, message) local success, status = pcall(handle_message, bot, user, channel, message, is_slow_channel)
-- Handle error -- Handle error
if not success then if not success then