balatro-mods/Cryptid/lib/pointerlib.lua

-- if it works, it works
Cryptid.pointerblist = {}
Cryptid.pointerblisttype = {}
Cryptid.pointeralias = {}

function Cryptid.pointerblistify(target, remove) -- Add specific joker to blacklist, must input either a card object or a key as string, eg:
	if not Cryptid.pointerblist then
		Cryptid.pointerblist = {}
	end
	if not remove then
		Cryptid.pointerblist[#Cryptid.pointerblist + 1] = target
		return true
	else
		for i = 1, #Cryptid.pointerblist do
			if Cryptid.pointerblist[i] == target then
				table.remove(Cryptid.pointerblisttype, i)
			end
		end
	end
	return false
end

function Cryptid.pointeraliasify(target, key, remove) -- Add a specific alias/key combo to the alias list
	if type(key) == "string" then
		if string.len(key) ~= 1 then
			key = string.lower(key:gsub("%b{}", ""):gsub("%s+", ""))
		end
		if not remove then
			Cryptid.pointeralias[key] = target
			return true
		else
			Cryptid.pointeralias[key] = nil
		end
	end
	return false
end

function Cryptid.pointerblistifytype(target, key, remove) -- eg: blacklists a certain card value, see pointer.lua
	if not remove then
		for target1, key1 in pairs(Cryptid.pointerblisttype) do
			if target1 == target then
				for _, key2 in ipairs(Cryptid.pointerblisttype[target]) do
					if key2 == key then
						return true
					end
				end
				Cryptid.pointerblisttype[target][(#Cryptid.pointerblisttype[target] + 1)] = key
				return true
			end
		end
		if not Cryptid.pointerblisttype[target] then
			Cryptid.pointerblisttype[target] = {}
		end
		Cryptid.pointerblisttype[target][1] = key
		return true
	else
		if Cryptid.pointerblisttype[target] then
			for index, value in ipairs(Cryptid.pointerblisttype[target]) do
				if key == value then
					table.remove(Cryptid.pointerblisttype[target], index)
					return true
				end
			end
			if key == nil then
				Cryptid.pointerblisttype[target] = nil
				return true
			end
		end
	end
	return false
end

function Cryptid.pointergetalias(target) -- "Is this alias legit?"
	target = tostring(target)
	local function apply_lower(strn)
		if type(strn) ~= string then -- safety
			strn = tostring(strn)
		end
		-- Remove content within {} and any remaining spaces
		strn = strn:gsub("%b{}", ""):gsub("%s+", "")
		--this weirdness allows you to get m and M separately
		if string.len(strn) == 1 then
			return strn
		end
		return string.lower(strn)
	end
	if Cryptid.pointeralias[apply_lower(target)] then
		return Cryptid.pointeralias[apply_lower(target)]
	end
	if G.P_CENTERS[apply_lower(target)] then
		return G.P_CENTERS[apply_lower(target)].key
	end
	if Cryptid.pointeralias[target] then
		return Cryptid.pointeralias[target]
	end
	if G.P_CENTERS[target] then
		return G.P_CENTERS[target].key
	end
	return false
end

function Cryptid.pointergetblist(target) -- "Is this card pointer banned?"
	target = Cryptid.pointergetalias(target) or target
	target = target
	results = {}
	results[1] = false
	if not target then
		results[1] = true
	end
	if G.GAME.banned_keys[target] or (type(target) == "table" and G.GAME.banned_keys[target.key]) then
		results[1] = true
	end
	for index, value in ipairs(Cryptid.pointerblist) do
		if target == value or (type(target) == "table" and target.key) then
			results[1] = true
		end
	end
	if results[1] ~= true and (G.P_CENTERS[target] or (type(target) == "table" and G.P_CENTERS[target.key])) then
		target = (G.P_CENTERS[target] or (type(target) == "table" and G.P_CENTERS[target.key]))
		for value, power in pairs(Cryptid.pointerblisttype) do
			for index, val2 in pairs(target) do
				if value == index then
					if power == ({} or true or nil) then
						results[1] = true
					end
					for _, val3 in ipairs(power) do
						if target[index] == val3 then
							results[1] = true
						end
					end
				end
			end
		end
	end
	if G.DEBUG_POINTER then
		results[1] = false
	end
	target = G.P_CENTERS[target] or target
	if results[1] == false then
		if target and target.set == "Joker" then
			results[2] = "Joker"
			if
				target.unlocked -- If card unlocked
				and #G.jokers.cards + G.GAME.joker_buffer < G.jokers.config.card_limit -- and you have room
			then
				results[3] = true
			elseif G.DEBUG_POINTER then
				results[3] = true
			else
				results[3] = false
			end
		elseif target and target.consumeable then
			results[2] = "Consumeable"
			if #G.consumeables.cards + G.GAME.consumeable_buffer < G.consumeables.config.card_limit then
				results[3] = true
			elseif G.DEBUG_POINTER then
				results[3] = true
			else
				results[3] = false
			end
		elseif target and target.set == "Voucher" then
			results[2] = "Voucher"
			if target.unlocked then
				results[3] = true
			elseif G.DEBUG_POINTER then
				results[3] = true
			else
				results[3] = false
			end
		elseif target and target.set == "Booster" then
			results[2] = "Booster"
			if
				not ( -- no boosters if already in booster
					G.STATE ~= G.STATES.TAROT_PACK
					and G.STATE ~= G.STATES.SPECTRAL_PACK
					and G.STATE ~= G.STATES.STANDARD_PACK
					and G.STATE ~= G.STATES.BUFFOON_PACK
					and G.STATE ~= G.STATES.PLANET_PACK
					and G.STATE ~= G.STATES.SMODS_BOOSTER_OPENED
				)
			then
				if target.unlocked then
					results[3] = true
				elseif G.DEBUG_POINTER then
					results[3] = true
				else
					results[3] = false
				end
			end
		end
	end
	return results
end