Mikubot-2/miku/plugins/special.lua

local special = {}

special.triggers = {
	"[Rr][Ii][Cc][Hh] [Bb][Ii][Tt][Cc][Hh]",
	"[Mm]ö[Dd][Cc][Hh][Ee][Nn]",
	"[Mm]Ö[Dd][Cc][Hh][Ee][Nn]",
	"^[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]$",
	"^/[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]$",
	"[Yy][Oo][Ss][Hh][Ii] [Dd][Aa][Nn][Cc][Ee] [Gg][Ll][Ii][Tt][Cc][Hh]",
	"[Yy][Oo][Ss][Hh][Ii] [Dd][Aa][Nn][Cc][Ee]",
	"^[Nn][Aa][Nn][Oo] [Hh][Aa][Kk][Aa][Ss][Ee]$",
	"^/[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] (.*)",
	"^[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]!?$",
	"/[Bb][Ll][Uu][Ee][Tt][Ee][Xx][Tt]"
	
}

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 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 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, '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, '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, 'http://img.ponywave.de/di/GM93/neorame.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, '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, '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, 'http://code.ponywave.de/workspace/test/fuck/poi.webp', nil, msg.message_id)
	return
  elseif msg_text:match("[Yy][Oo][Ss][Hh][Ii] [Dd][Aa][Nn][Cc][Ee] [Gg][Ll][Ii][Tt][Cc][Hh]") then
	utilities.send_video(msg.chat.id, 'http://code.ponywave.de/workspace/test/fuck/YOSHI_DANCE_GLITCH.mp4', nil, msg.message_id)
	return
  elseif msg_text:match("[Yy][Oo][Ss][Hh][Ii] [Dd][Aa][Nn][Cc][Ee]") then
	utilities.send_video(msg.chat.id, 'http://code.ponywave.de/workspace/test/fuck/YOSHI_DANCE.mp4', 'YOSHI DANCE!', msg.message_id)
	return
  elseif msg_text:match("[Nn][Aa][Nn][Oo] [Hh][Aa][Kk][Aa][Ss][Ee]") then
	utilities.send_video(msg.chat.id, 'http://code.ponywave.de/workspace/test/fuck/nano-hakase-1.mp4', 'NANO! NANO! NANO! NANO! NANO! NANO!\nHAKASE! HAKASE! HAKASE! HAKASE! HAKASE! HAKASE!', msg.message_id)
	return
  elseif msg_text:match("/[Tt][Hh][Yy][Mm][Ee]") then
	utilities.send_photo(msg.chat.id, 'http://img.ponywave.de/di/N6NO/thyme.jpg', 'What thyme is it?', 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, '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 = '/)'
  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!'
  elseif msg_text:match("/[Bb][Ll][Uu][Ee][Tt][Ee][Xx][Tt]") then
    output = [[BLUE TEXT
MUST CLICK

I AM A STUPID ANIMAL THAT IS ATTRACTED TO COLORS]]
  end

  utilities.send_reply(msg, output)
end

return special