Mikubot-2/miku/plugins/special.lua

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] (.*)",
	"^[Ii][Nn][Ll][Oo][Vv][Ee]$",
	"^[Pp][Ee]$",
	"^[Vv][Aa]$",
	"^[Mm][Uu]$",
	"^/[Ii][Yy][Kk][Ww][Ii][Mm]$",
	"^/%)$",
	"^%(\\$"
	
}

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!'}
    local random_alive = math.random(8)
	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("[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 = '/)'
  end

  utilities.send_reply(msg, output)
end

return special