From faa86ab8fd46578d8e742f275dca8a09ae87a6ba Mon Sep 17 00:00:00 2001
From: topkecleon <andwag@outlook.com>
Date: Sun, 29 Nov 2015 04:45:00 -0500
Subject: [PATCH] Added Hearthstone plugin.

---
 README.md               |  10 +++-
 plugins/hearthstone.lua | 115 ++++++++++++++++++++++++++++++++++++++++
 2 files changed, 124 insertions(+), 1 deletion(-)
 create mode 100644 plugins/hearthstone.lua

diff --git a/README.md b/README.md
index 16c6860..d28a33b 100755
--- a/README.md
+++ b/README.md
@@ -240,6 +240,14 @@ Below are listed many (but not all) of otouto's plugins. This list will be updat
 
 >**Function:** Returns a cat pic.
 
+###**hearthstone.lua**
+
+>**Command:** /hearthstone &lt;query&gt;
+
+>**Function:** Returns Hearthstone card info.
+
+>**Aliases:** /hs
+
 ###**admin.lua**
 
 >**Command:** /admin [command]
@@ -310,7 +318,7 @@ greetings = {
 Where the key is the preconfigured response (where #NAME will be replaced with the user's name or nickname) and the strings in the table are the expected greetings (followed by the bot's name and possible punctuation).
 
 ##Setup
-You **must** have lua-socket and lua-sec installed. For uploading photos and other files, you must have curl installed. The fortune.lua plugin requires that fortune is installed.
+You **must** have Lua, lua-socket and lua-sec installed. For uploading photos and other files, you must have curl installed. The fortune.lua plugin requires that fortune is installed.
 
 For weather.lua, lastfm.lua, and bible.lua to work, you must have API keys for openweathermap.org, last.fm, and biblia.com, respectively. cats.lua uses an API key to get more results, though it is not required.
 
diff --git a/plugins/hearthstone.lua b/plugins/hearthstone.lua
new file mode 100644
index 0000000..977f215
--- /dev/null
+++ b/plugins/hearthstone.lua
@@ -0,0 +1,115 @@
+ -- Plugin for the Hearthstone database provided by hearthstonejson.com.
+
+if not hs_dat then
+
+	hs_dat = {}
+
+	local jstr, res = HTTPS.request('http://hearthstonejson.com/json/AllSets.json')
+	if res ~= 200 then
+		print('Error connecting to hearthstonejson.com.')
+		print('hearthstone.lua will not be enabled.')
+	end
+	local jdat = JSON.decode(jstr)
+
+	for k,v in pairs(jdat) do
+		for key,val in pairs(v) do
+			table.insert(hs_dat, val)
+		end
+	end
+
+end
+
+local doc = [[
+	/hearthstone <query>
+	Returns Hearthstone card info.
+]]
+
+local triggers = {
+	'^/h[earth]*s[tone]*[@'..bot.username..']*'
+}
+
+local format_card = function(card)
+
+	local ctype = card.type
+	if card.race then
+		ctype = card.race
+	end
+	if card.rarity then
+		ctype = card.rarity .. ' ' .. ctype
+	end
+	if card.playerClass then
+		ctype = ctype .. ' (' .. card.playerClass .. ')'
+	elseif card.faction then
+		ctype = ctype .. ' (' .. card.faction .. ')'
+	end
+
+	local stats
+	if card.cost then
+		stats = card.cost .. 'c'
+		if card.attack then
+			stats = stats .. ' | ' .. card.attack .. 'a'
+		end
+		if card.health then
+			stats = stats .. ' | ' .. card.health .. 'h'
+		end
+		if card.durability then
+			stats = stats .. ' | ' .. card.durability .. 'd'
+		end
+	elseif card.health then
+		stats = card.health .. 'h'
+	end
+
+	local info = ''
+	if card.text then
+		info = card.text:gsub('</?.->',''):gsub('%$','')
+		if card.flavor then
+			info = info .. '\n' .. card.flavor
+		end
+	elseif card.flavor then
+		info = card.flavor
+	else
+		info = nil
+	end
+
+	local s = card.name .. '\n' .. ctype
+	if stats then
+		s = s .. '\n' .. stats
+	end
+	if info then
+		s = s .. '\n' .. info
+	end
+
+	return s
+
+end
+
+local action = function(msg)
+
+	local input = msg.text_lower:input()
+	if not input then
+		sendReply(msg, doc)
+		return
+	end
+
+	local output = ''
+	for k,v in pairs(hs_dat) do
+		if string.lower(v.name):match(input) then
+			output = output .. format_card(v) .. '\n\n'
+		end
+	end
+
+	output = output:trim()
+	if output:len() == 0 then
+		sendReply(msg, config.errors.results)
+		return
+	end
+
+	sendReply(msg, output)
+
+end
+
+return {
+	action = action,
+	triggers = triggers,
+	doc = doc
+}