Added Hearthstone plugin.

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 <query>
+
+>**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.
 

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
+}