Module:Recipe

---

local p = {}

local data_module_names = {
	item = 'Module:Items/data',
	crafting = 'Module:Crafting/data'
}

local loaded_data_modules = {}

local function tablelength(T)
	local count = 0
	for _ in pairs(T) do count = count + 1 end
	return count
end

local function pairsByKeys (t, f)
	local a = {}
	local orgi_key_type
	local orgi_key_numbered
	for n in pairs(t) do
    	if tonumber(n) == nil then
        	table.insert(a, n)
        	orgi_key_type = "word"
    	elseif type(n) == "number" then
        	table.insert(a, n)
        	orgi_key_type = "int"
    	elseif type(n) == "string" and type(tonumber(n) == "number") then
            orgi_key_type = "number"
            table.insert(a, tonumber(n))
		end
	end
	table.sort(a, f)
	local key
	local value
	local i = 0      -- iterator variable
	local iter = function ()   -- iterator function
		i = i + 1
		if a[i] == nil then return nil
    	elseif orgi_key_type == "word" or orgi_key_type == "int" then
        	key = a[i]
        	value = t[a[i]]
    	elseif orgi_key_type == "number" then
        	key = tostring(a[i])
        	value = t[tostring(a[i])]
		end
    	return key, value
	end
	return iter
end

function p.loadData(data_type)
	local module_name = data_module_names[data_type]
	if loaded_data_modules[module_name] == nil then
		loaded_data_modules[module_name] = mw.loadData(module_name)
	end

	return loaded_data_modules[module_name]
end

local function findItem(name)
	local lname = name:lower()

	 --Remove leading and trailing spaces.
	lname = lname:gsub('^%s*(.-)%s*$', '%1')
	for key, item in pairs(p.loadData("item")) do
		if lname == item['name']:lower() then
			return item
		end
	end
	return 0
end

local function getItem(id)
	return p.loadData("item")[tostring(id)]
end

local function getItemRecipes(id)
	local a = p.loadData("crafting")[tostring(id)]
	if a == nil then
		return 0
	else
		return a
	end
end

local function getItemName(id)
	return p.loadData("item")[tostring(id)]['name']
end

local function fullUrl(url)
	local newUrl = url
	if url:sub(1,5) == "https" then
		return newUrl
	end

	if url:sub(1,1) ~= "/" then
		newUrl = "/" .. newUrl
	end

	newUrl = "https://www.play.idlescape.com" .. newUrl
	return newUrl
end

local function icon(name, url, word)
	local s = fullUrl(url)
	s = "[[" .. name .. "|<img src=\"" .. s
	s = s .. "\" alt=\""  .. name .. "\" width=\"20\">"
	if word then
		s = s .. name
	end
	s = s .. "]]"
	return s
end

local function itemImage(id, word)
	local item = p.loadData("item")[tostring(id)]
	local url = ""
	if item['itemIcon'] then
		url = item['itemIcon']
	else
		url = item['itemImage']
	end
	return icon(item['name'], url, word)
end

local function addSeparator(num)
	return tostring(tonumber(num)):reverse():gsub("(%d%d%d)","%1,"):gsub(",(%-?)$","%1"):reverse()
end

local function getDefaultMultiplier(item)
	local defaultmultiplier = item["craftingStats"]["multiplier"]
	if not defaultmultiplier then
		defaultmultiplier = 1
	end
	return tostring(defaultmultiplier)
end

local function createTable(item, item_recipes)
	local table = ""
	local req_table = ""
	local recipes_table = ""
	local item_requirements = item["craftingStats"]
	local item_default_crafting_multiplier = getDefaultMultiplier(item)

	req_table = req_table .. "{| class=\"wikitable\"\n"
	req_table = req_table .. "|+Requirements\n"
	req_table = req_table .. "|-\n"
	req_table = req_table .. "!scope = \"col\" | Level\n"
	req_table = req_table .. "!scope = \"col\" | XP\n"
	req_table = req_table .. "|-\n"
	req_table = req_table .. "|" .. tostring(item_requirements["level"]) .. "\n"
	req_table = req_table .. "|" .. addSeparator(item_requirements["experience"]) .. "\n"
	req_table = req_table .. "|-\n"
	req_table = req_table .. "! scope=\"row\" | Category\n"
	req_table = req_table .. "|" .. tostring(item_requirements["category"]) .. "\n"
	req_table = req_table .. "|}\n"

	recipes_table = recipes_table .. "{| class=\"wikitable\"\n"
	recipes_table = recipes_table .. "|+Recipes\n"
	recipes_table = recipes_table .. "|-\n"
	recipes_table = recipes_table .. "!scope = \"col\" | Recipe\n"
	recipes_table = recipes_table .. "!scope = \"col\" | Multiplier\n"
	recipes_table = recipes_table .. "!scope = \"col\" | Item\n"
	recipes_table = recipes_table .. "!scope = \"col\" | Quantity\n"
	recipes_table = recipes_table .. "|-\n"
	for index, wmrecipe in pairsByKeys(item_recipes) do
		local recipe_material_count = tostring(tablelength(item_recipes[index]["recipe"]))
		local recipe_multiplier
		if wmrecipe["multiplier"] then
			recipe_multiplier = tostring(wmrecipe["multiplier"])
		else
			recipe_multiplier = item_default_crafting_multiplier
		end
		recipes_table = recipes_table .. "| rowspan=" .. recipe_material_count .. "| " .. tostring(index) .. "\n"
		recipes_table = recipes_table .. "| rowspan=" .. recipe_material_count .. "| " .. recipe_multiplier .. "\n"
		for material_id, quantity in pairsByKeys(wmrecipe["recipe"]) do
			local material = getItem(material_id)
			recipes_table = recipes_table .. "| " .. icon(material['name'], material['itemImage'], 1) .. "\n"
			recipes_table = recipes_table .. "| " .. tostring(quantity) .. "\n"
			recipes_table = recipes_table .. "|-\n"
		end
	end
	recipes_table = recipes_table .. "|}\n"

	table = req_table .. recipes_table
	return table
end

function p.item(frame)
	local args = frame:getParent().args
	return p._item(args)
end

function p._item(args)
	local name = ""
	local item = 0
	local wikitable = ""
	local item_recipes = 0
	name = args["item"]
	item = findItem(name)
	if item == 0 then
		return "item not found"
	end
	item_recipes = getItemRecipes(item["id"])
	if item_recipes == 0 then
		return "item uncraftable"
	end
	wikitable = createTable(item, item_recipes)

	return wikitable

end

return p