Module:Get drop info

-- <pre>
local p = {}
local JSONS = require('Module:Json')

function p.main(frame)
	-- This template is fairly expensive to use, so it should be limited
	mw.incrementExpensiveFunctionCount()

	local args = frame:getParent().args

	local monster = string.gsub(args['?monster'] or args.monster or '','[][]','')
	monster = mw.text.decode(monster)

	local drop = string.lower(args.userparam or args.drop or '')
	drop = mw.text.decode(drop)

	-- escape lua characters
	local _drop = drop:gsub('([%^%$%(%)%%%.%[%]%*%+%-%?])','%%%1')

	local smwdata = frame:preprocess('{{'..
					'{{{|safesubst:}}}#show:'..
					monster..
				[[
					|?Drop JSON
					|?All Combat level=&&SPLITPOINT&&Combat level:
					|headers=plain
					|format=list
					}}
				]])

	smwdata = mw.text.decode(tostring(smwdata))
	local _found = false

	local json, cmb = unpack( mw.text.split(smwdata,'%(&&SPLITPOINT&&') )

	local json_good
	json_good, json = pcall(JSONS.decode,string.format('[ %s ]',json))

	if not json_good then
		return ''
	end

	cmb = string.format( '(%s',cmb or '?' )

	local ret = {}

	for _, v in pairs(json) do
		if drop == string.lower(v.name) then
			table.insert(ret,v)
			_found = true
		end
	end

	if not _found then
		return ''
	end

	local combat = mw.ustring.match(cmb:lower(),'%(combat level: (.-)%)') or 'N/A'
	combat = mw.ustring.gsub(combat,'(%d),(%d%d%d)','%1%2')
	local retString = {}

	for _, v in pairs(ret) do
		local _min,_max = v.quantity[1],v.quantity[2]
		local quantity

		if tonumber(_min) == tonumber(_max) then
			quantity = _min
		else
			quantity = string.format('%s-%s',_min,_max)
		end
			
		table.insert(retString,
				string.format('{{ItemDropsLine|Monster=%s|Combat=%s|Quantity=%s|Rarity=%s}}',
				monster,
				combat,
				quantity,
				v.rarity)
			)
	end

	return frame:preprocess(table.concat(retString,'\n'))
end

return p