This repository has been archived on 2021-04-24. You can view files and clone it, but cannot push or open issues or pull requests.
Mikubot-2/miku/plugins/special.lua
2016-10-11 16:44:31 +02:00

133 lines
5.4 KiB
Lua
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

local special = {}
special.triggers = {
"[Rr][Ii][Cc][Hh] [Bb][Ii][Tt][Cc][Hh]",
"^[Mm][Ii][Kk][Uu]%??$",
"^/[Oo][Ll][Dd]$",
"^[Nn][Yy][Uu]$",
"^[Nn][Ii][Ii][Ss][Aa][Nn]$",
"^[Nn][Ii][Ii](-)[Ss][Aa][Nn]$",
"^[Nn][Ii][Ss][Ss][Aa][Nn]$",
"^/[Nn][Ee][Oo][Rr][Aa][Mm][Ee]$",
"^/[Nn][Aa][Uu]$",
"^/[Ff][Tt][Tt]$",
"^/[Ff][Tt][Ff]$",
"^[Mm]ö[Pp]?$",
"^[Mm][Ee][Ee][Pp]$",
"^/[Bb][Aa][Rr][Uu][Ss][Aa][Mm][Ii][Kk][Oo][Ss][Uu]$",
"^/[Bb][Aa][Ll][Ss][Aa][Mm][Ii][Kk][Oo] [Ee][Ss][Ss][Ii][Gg]$",
"^[Bb][Aa][Kk][Aa] [Bb][Oo][Tt]$",
"^[Aa][Hh][Aa].[Pp][Nn][Gg]$",
"^~?[Pp][Oo][Ii]$",
"^/[Tt][Hh][Yy][Mm][Ee]$",
"^[Yy][Oo][Ll][Oo]$",
"[Ii] [Ww][Ii][Ss][Hh] [Ss][Qq][Uu][Ii][Dd][Ss] [Ww][Ee][Rr][Ee] [Rr][Ee][Aa][Ll]",
"^/[Kk][Ii][Ll][Ll] (.*)",
"[Mm]ö[Dd][Cc][Hh][Ee][Nn]",
"[Mm]Ö[Dd][Cc][Hh][Ee][Nn]",
"^[Pp][Ee]$",
"^[Vv][Aa]$",
"^[Mm][Uu]$",
"^/[Ii][Yy][Kk][Ww][Ii][Mm]$",
"^/%)$",
"^%(\\$",
"^/[Ss][Cc][Hh][Ee][Ll][Ll][Ee]$",
"^[Pp][Ii][Nn][Gg]$",
"^[Dd][Aa][Ss] [Ii][Ss][Tt]? [Nn][Ii][Cc][Hh][Tt]? [Ll][Uu][Ss][Tt][Ii][Gg]!?$"
}
function special:action(msg, config, matches)
local user_name = get_name(msg)
local msg_text = msg.text
local output
if msg_text:match("[Rr][Ii][Cc][Hh] [Bb][Ii][Tt][Cc][Hh]") then
output = 'Akamaru ist nicht reich!'
elseif string.match(msg.text, "[Mm][Ii][Kk][Uu]%??") then
local alive_answers = {'Ja?','Was gibts, '..user_name..'?','Ja '..user_name..', was ist?', 'Ich bin noch da.', user_name, 'Nein!','So heiße ich', 'Nerv mich nicht!','Was.'}
local random_alive = math.random(9)
output = alive_answers[random_alive]
elseif msg_text:match("/[Oo][Ll][Dd]") then
output = 'Deine Mudda is old!'
elseif msg_text:match("[Nn][Yy][Uu]") then
utilities.send_photo(msg.chat.id, download_to_file('http://img.ponywave.de/di/JSXH/nyu.jpg'), nil, msg.message_id)
return
elseif msg_text:match("[Nn][Ii][Ii][Ss][Aa][Nn]") or msg_text:match("[Nn][Ii][Ii](-)[Ss][Aa][Nn]") or msg_text:match("[Nn][Ii][Ss][Ss][Aa][Nn]") then
utilities.send_photo(msg.chat.id, download_to_file('http://img.ponywave.de/di/XB2T/Nii-san.jpg'), nil, msg.message_id)
return
elseif msg_text:match("/[Nn][Ee][Oo][Rr][Aa][Mm][Ee]") then
utilities.send_photo(msg.chat.id, download_to_file('http://img.ponywave.de/di/GM93/neorame.jpg'), nil, msg.message_id)
return
elseif msg_text:match("[Nn][Aa][Uu]") then
utilities.send_photo(msg.chat.id, download_to_file('http://img.ponywave.de/di/V1QH/nau.jpg'), nil, msg.message_id)
return
elseif msg_text:match("[Ff][Tt][Tt]") then
output = [[(╯°□°)╯︵ ┻━┻ FLIP THAT TABLE.
┻━┻ ︵ ヽ(°□°ヽ) FLIP THIS TABLE.
┻━┻ ︵ (`0`)/ ︵ ┻━┻ FLIP ALL THE TABLES
ಠ_ಠ Child. . .
ಠ_ಠ Put.
ಠ__ಠ The tables.
ಠ___ಠ Back.
(╮°-°)╮┳━┳
(╯°□°)╯︵ ┻━┻ NEVER]]
elseif msg_text:match("[Ff][Tt][Ff]") then
output = [[(╯┳┳)╯︵ ಠ‾ಠ FLIP THAT FATHER.
ಠ‾ಠ ︵ ヽ(┳┳ヽ) FLIP THIS FATHER.
ಠ‾ಠ ︵ (┳┳)/ ︵ ಠ‾ಠ FLIP ALL THE FATHERS
┳━┳ Child. . .
┳━┳ Put.
┳━━┳ The Fathers.
┳━━━┳ Back.
(╮┳┳)╮ಠ_ಠ
(╯┳┳)╯︵ ಠ‾ಠ NEVER]]
elseif msg_text:match("^[Mm]ö[Pp]?$") or msg_text:match("[Mm][Ee][Ee][Pp]") then
output = 'se'
elseif msg_text:match("[Bb][Aa][Rr][Uu][Ss][Aa][Mm][Ii][Kk][Oo][Ss][Uu]") or msg_text:match("[Bb][Aa][Ll][Ss][Aa][Mm][Ii][Kk][Oo] [Ee][Ss][Ss][Ii][Gg]") then
utilities.send_photo(msg.chat.id, download_to_file('http://img.ponywave.de/di/0SEY/barusamikosu.jpg'), nil, msg.message_id)
return
elseif msg_text:match("[Bb][Aa][Kk][Aa] [Bb][Oo][Tt]") then
output = 'Gomen\'nasai '..msg.from.first_name..'-senpai 😣'
elseif msg_text:match("[Aa][Hh][Aa].[Pp][Nn][Gg]") then
utilities.send_photo(msg.chat.id, download_to_file('http://img.ponywave.de/di/W97R/aha.png'), nil, msg.message_id)
return
elseif msg_text:match("[Pp][Oo][Ii]") then
utilities.send_document(msg.chat.id, download_to_file('https://dl.dropboxusercontent.com/u/32829149/poi.webp'), nil, msg.message_id)
return
elseif msg_text:match("/[Tt][Hh][Yy][Mm][Ee]") then
utilities.send_photo(msg.chat.id, download_to_file('http://img.ponywave.de/di/N6NO/thyme.jpg'), nil, msg.message_id)
return
elseif msg_text:match("[Yy][Oo][Ll][Oo]") then
output = 'Hä YOLO?'
elseif msg_text:match("[Ii] [Ww][Ii][Ss][Hh] [Ss][Qq][Uu][Ii][Dd][Ss] [Ww][Ee][Rr][Ee] [Rr][Ee][Aa][Ll]") then
utilities.send_photo(msg.chat.id, download_to_file('http://img.ponywave.de/di/N03B/squid.jpg'), 'They are', msg.message_id)
return
elseif msg_text:match("[Kk][Ii][Ll][Ll]") then
output = user_name..' tötet '..matches[1]
elseif msg_text:match("[Mm]ö[Dd][Cc][Hh][Ee][Nn]") or msg_text:match("[Mm]Ö[Dd][Cc][Hh][Ee][Nn]") then
output = 'Es heißt MÄDCHEN!'
elseif msg_text:match("[Pp][Ee]") then
output = 'nis'
elseif msg_text:match("[Vv][Aa]") then
output = 'gina'
elseif msg_text:match("[Mm][Uu]") then
output = 'schi'
elseif msg_text:match("/[Ii][Yy][Kk][Ww][Ii][Mm]") then
output = '(¬‿¬)'
elseif msg_text:match("/%)") then
output = '(\\'
elseif msg_text:match("%(\\") then
output = '/)'
elseif msg_text:match("^/[Ss][Cc][Hh][Ee][Ll][Ll][Ee]$") then
output = 'So dumme Befehle wie die "HiddenDatabase" benutzen wir nicht!'
elseif msg_text:match("^[Pp][Ii][Nn][Gg]$") then
output = 'Pong'
elseif msg_text:match("^[Dd][Aa][Ss] [Ii][Ss][Tt]? [Nn][Ii][Cc][Hh][Tt]? [Ll][Uu][Ss][Tt][Ii][Gg]!?$") then
output = 'Aber Funny!'
end
utilities.send_reply(msg, output)
end
return special