"Unable to cast value to object" Shop gui not working?

Greetings,

I've been making a shop gui with some gamepasses in, and it should detect if it's a gamepass or not. The problem is that I get an error and I don't know how to solve it. Here are the scripts:

Leaderstats & Events script

local MarketPlaceService = game:GetService("MarketplaceService")
local player = game.Players.LocalPlayer
local HasGamepass

game.Players.PlayerAdded:Connect(function(plr)
	local leaderstats = Instance.new("Folder",plr)
	leaderstats.Name = "leaderstats"
	
	local Coins = Instance.new("IntValue",leaderstats)
	Coins.Name = "Coins"
	Coins.Value = 10000
end)

game.ReplicatedStorage.GetInfo.OnServerInvoke = function(player,name)
	return game.ServerStorage.ShopItems[name].Coins.Value,game.ServerStorage.ShopItems[name].IsGamepass.Value,game.ServerStorage.ShopItems[name].GamepassID.Value
end

game.ReplicatedStorage.CheckSale.OnServerInvoke = function(player,name,boolGamepass,gamepassId)
	local price = game.ServerStorage.ShopItems[name].Coins.Value
	
	if player.leaderstats.Coins.Value >= price then
		if boolGamepass == true then
			local Pass,Error = pcall(function()
				HasGamepass = MarketPlaceService:UserOwnsGamePassAsync(player.UserId,gamepassId)
			end)
			
			if not Pass then
				error("Failed while checking if player owned gamepass: "..Error)
			end
			
			if HasGamepass == false then
				print(player.UserId,gamepassId)
				
				MarketPlaceService:PromptGamePassPurchase(player.UserId,gamepassId)
			elseif HasGamepass == true then
				game.ServerStorage.ShopItems[name][name]:Clone().Parent = player.Backpack
				game.ServerStorage.ShopItems[name][name]:Clone().Parent = player.StarterGear
			end
		elseif boolGamepass == false then
			game.ServerStorage.ShopItems[name][name]:Clone().Parent = player.Backpack
		end
		
		return true
	else
		return false
	end
end

Select Gun Script

local MarketPlaceService = game:GetService("MarketplaceService")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local ServerStorage = game:GetService("ServerStorage")
local ToolNameText = script.Parent.ToolName
local ToolNameDesc = script.Parent.Description
local Information = script.Parent.Parent.Parent.Parent.Information

ToolNameText.Text = tostring(ToolNameText.ToolName.Value)
ToolNameDesc.Text = "Description: " .. tostring(ToolNameDesc.Description.Value)

script.Parent.MouseButton1Click:Connect(function(player)
	local Price,BoolGamepass,GamepassID = ReplicatedStorage.GetInfo:InvokeServer(tostring(ToolNameText.ToolName.Value))
	
	if Price ~= nil then
		Information.ToolName.Text = tostring(ToolNameText.ToolName.Value)
		if BoolGamepass == true then
			Information.ToolPrice.Text = "Gamepass: " .. Price .. " R$"
			ReplicatedStorage.BuyProcess:Fire(ToolNameText.ToolName.Value,Price,BoolGamepass,GamepassID)
		elseif BoolGamepass == false then
			Information.ToolPrice.Text = tonumber(Price)
			ReplicatedStorage.BuyProcess:Fire(ToolNameText.ToolName.Value,Price,BoolGamepass)
		end
	end
end)

Buy with Rubles Script

local MarketPlaceService = game:GetService("MarketplaceService")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local ServerStorage = game:GetService("ServerStorage")
local Information = script.Parent.Parent
local ToolNameText = Information.ToolName.ProductName
local ToolNameDesc = Information.ToolPrice.ProductPrice

ReplicatedStorage.BuyProcess.Event:Connect(function(name,price)
	repeat wait(0.1) until script.Parent.MouseButton1Click
	script.Parent.MouseButton1Click:Connect(function(player)
		local Success = ReplicatedStorage.CheckSale:InvokeServer(name,nil,nil)
		
		if Success == true then
			print("Purchase success!")
		elseif Success == false then
			print("Not enough money!")
		end
	end)
end)

Buy with Robux script

local MarketPlaceService = game:GetService("MarketplaceService")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local ServerStorage = game:GetService("ServerStorage")
local Information = script.Parent.Parent
local ToolNameText = Information.ToolName.ProductName
local ToolNameDesc = Information.ToolPrice.ProductPrice
local player = game.Players.LocalPlayer
local HasGamepass = false 

ReplicatedStorage.BuyProcess.Event:Connect(function(toolName,price,boolGamepass,gamepassId)
	repeat wait(0.1) until script.Parent.MouseButton1Click
	script.Parent.MouseButton1Click:Connect(function()
		if gamepassId == nil then
			local Success = ReplicatedStorage.CheckSale:InvokeServer(toolName)
			
			if Success == true then
				player.leaderstats.Coins.Value = player.leaderstats.Coins.Value - price
				
				ServerStorage.ShopItems[toolName][toolName]:Clone().Parent = player.Backpack
			elseif Success == false then
				print("Not enough money!")
			end
		elseif gamepassId ~= nil then
			print(player.UserId.." - "..gamepassId)
			
			local Pass,Error = pcall(function()
				HasGamepass = MarketPlaceService:UserOwnsGamePassAsync(player.UserId,gamepassId)
			end)
			
			if not Pass then
				error("Failed while checking if player owned gamepass: "..Error)
			end
			
			print(toolName,boolGamepass,gamepassId)
			
			local Success = ReplicatedStorage.CheckSale:InvokeServer(toolName,boolGamepass,gamepassId)
			
			if Success == true then
				print("Purchase success!")
			elseif Success == false then
				print("Not enough money!")
			end
		end
	end)
end)

If you need the hierarchy of the gui and everything, ask me in the comments.