CraftStore_Helpers.lua

CraftStoreFixedAndImprovedLongClassName = {}

local CS = CraftStoreFixedAndImprovedLongClassName

function CS.SplitLink(link,nr)
  local split = {SplitString(':', link)}
  if split[nr] then return tonumber(split[nr]) else return false end
end

function CS.SetLinkValue(link,nr,value)
  local split = {SplitString(':', link)}
  if split[nr+2] then 
    split[nr+2] = value
  end
  return table.concat(split, ":")
end

function CS.ToChat(message)
  local chat = CHAT_SYSTEM.textEntry:GetText()
  StartChatInput(chat..message)
end

function CS.Set(list)
  local set = {}
  for _, l in ipairs(list) do set[l] = true end
  return set
end

function CS.StripLink(link)
  if CanItemLinkBeVirtual(link) then return CS.NakedLink(link) end
  
  local split = {SplitString(':', link)}  
  --Highlight
  if split[1] then 
    split[1] = "|H0"
  end
  --Crafted
  if split[19] then 
    split[19] = 0
  end
  --Bound
  if split[20] then 
    split[20] = 0
  end
  --Stolen
  if split[21] then 
    split[21] = 0
  end
  --Durability
  if split[22] then 
    split[22] = "0"
  end
  return table.concat(split, ":")
end

function CS.NakedLink(link)
  local split = {SplitString(':', link)} 
  return  "|H0:item:"..split[3]..":0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0|h|h"
end

function CS.Texture(link,width,height)
	width = width == nil and 18 or width
	height = height == nil and width or height
	return '|t'..width..':'..height..':'..link..'|t'
end	

function CS.UpdateMatsInfo(link)
  local itemType = GetItemLinkItemType(link)
  if CS.RawItemTypes[itemType] and not CS.Account.materials[link] then
    local refinedLink = CS.NakedLink(GetItemLinkRefinedMaterialItemLink(link,0))
    CS.Account.materials[link] = {raw=true,link=refinedLink}
    CS.Account.materials[refinedLink] = {raw=false,link=link}
  end
end

function CS.Switch(t)
  t.case = function (self,x)
    local f=self[x] or self.default
    if f then
      if type(f)=="function" then
        f(x,self)
      else
        error("case "..tostring(x).." not a function")
      end
    end
  end
  return t
end

-- checks if a value is nil, returns default if it is
function CS.NilCheck(root,default,...)
    local args = {...}
	for i=1,#args do
		if root[args[i]] == nil then return default end
		root = root[args[i]]
	end
	
	return root
end

-- checks if a value is nil and sets it regardless
function CS.NilCheckSet(root,set,...)
    local args = {...}
	for i=1,#args do
		if root[args[i]] == nil then 
			root[args[i]] = i ~= #args and {} or set
		end	
		if i == #args then 
			root[args[i]] = set
			return root[args[i]]
		end	
		root = root[args[i]]
	end
	
	return root
end

-- checks if a value is nil and sets default if it is
function CS.NilCheckSetIfNil(root,default,...)
    local args = {...}
	for i=1,#args do
		if root[args[i]] == nil then 
			root[args[i]] = i ~= #args and {} or default
		end	
		if i == #args then 
			return root[args[i]]
		end	
		root = root[args[i]]
	end
	
	return root
end

function CS.IsPublishedItem(itemId)
  local itemName = GetItemLinkName(('|H1:item:%u:6:1:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0|h|h'):format(itemId))
  return itemName ~= nil and itemName ~= ''
end

function CS.IsPublishedAchievement(achievementId)
  local achievementName = GetAchievementName(achievementId)
  return achievementName ~= nil and achievementName ~= ''
end

function CS.FilterPublishedItems(itemIds)
  local publishedItemIds = {}
  for i,itemId in pairs(itemIds) do
    if CS.IsPublishedItem(itemId) then
      table.insert(publishedItemIds, itemId)
    end
  end
  return publishedItemIds
end

CS.Chat = {}

function CS.Chat:Print(str)
	if str == nil then return end
	d("|cEEEE00[CraftStore]|r ".. str)
end

-- use libchatmessage if available
if LibChatMessage then
	CS.Chat = LibChatMessage("CraftStore", "CS")
end

-- utility function for finding furnishing recipes
function CS.FindUnidentifiedFurnishingRecipes(startIndex, endIndex)
	local exists = {}
	for i=1, #CS.Furnisher.recipelist do
		exists[CS.Furnisher.recipelist[i]]=true
	end

	local unknown = {}
	local j=1

	local suffix = ":" .. 364 .. ":" .. 50 .. ":0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:10000:0|h|h"
	
	d("Searching in range "..startIndex.." .. "..endIndex)

	for i=startIndex, endIndex do
		local isUnknown = false
		if exists[i] == nil then
			local link= "|H1:item:" .. i .. suffix
			local name=GetItemLinkName(link)
			if string.find(name, "Praxis:") then
				isUnknown = true
			elseif string.find(name, "Blueprint:") then
				isUnknown = true
			elseif string.find(name, "Diagram:") then
				isUnknown = true
			elseif string.find(name, "Pattern:") then
				isUnknown = true
			elseif string.find(name, "Formula:") then
				isUnknown = true
			elseif string.find(name, "Sketch:") then
				isUnknown = true
			elseif string.find(name, "Design:") then
				isUnknown = true
			elseif string.find(name, "Recipe:") then
				isUnknown = true
			end
		end
		if isUnknown then
			d(i .. " - " .. link)
			unknown[j]=i
			j = j + 1
		end
	end
	if #unknown > 1 then
		local unknownIds = ""
		for i=1, #unknown do
			unknownIds = unknownIds .. unknown[i] ..","
		end
		d(unknownIds)
	else
		d("No unknown furnishing recipes found in range.")
	end
end

function CS.ListWayshrines(startIndex, endIndex)
    startIndex = startIndex or 1
	endIndex = endIndex or GetNumFastTravelNodes()
	if  endIndex > GetNumFastTravelNodes() then
		endIndex = GetNumFastTravelNodes()
	end
	for i=startIndex, endIndex do
	    local known,name = GetFastTravelNodeInfo(i)
		d(i .. ": " .. name)
	end
end