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

Asked by

5 years ago

Edited 5 years ago

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

01local MarketPlaceService = game:GetService("MarketplaceService")
02local player = game.Players.LocalPlayer
03local HasGamepass
04 
05game.Players.PlayerAdded:Connect(function(plr)
06    local leaderstats = Instance.new("Folder",plr)
07    leaderstats.Name = "leaderstats"
08 
09    local Coins = Instance.new("IntValue",leaderstats)
10    Coins.Name = "Coins"
11    Coins.Value = 10000
12end)
13 
14game.ReplicatedStorage.GetInfo.OnServerInvoke = function(player,name)
15    return game.ServerStorage.ShopItems[name].Coins.Value,game.ServerStorage.ShopItems[name].IsGamepass.Value,game.ServerStorage.ShopItems[name].GamepassID.Value
16end
17 
18game.ReplicatedStorage.CheckSale.OnServerInvoke = function(player,name,boolGamepass,gamepassId)
19    local price = game.ServerStorage.ShopItems[name].Coins.Value
20 
21    if player.leaderstats.Coins.Value >= price then
22        if boolGamepass == true then
23            local Pass,Error = pcall(function()
24                HasGamepass = MarketPlaceService:UserOwnsGamePassAsync(player.UserId,gamepassId)
25            end)
26 
27            if not Pass then
28                error("Failed while checking if player owned gamepass: "..Error)
29            end
30 
31            if HasGamepass == false then
32                print(player.UserId,gamepassId)
33 
34                MarketPlaceService:PromptGamePassPurchase(player.UserId,gamepassId)
35            elseif HasGamepass == true then
36                game.ServerStorage.ShopItems[name][name]:Clone().Parent = player.Backpack
37                game.ServerStorage.ShopItems[name][name]:Clone().Parent = player.StarterGear
38            end
39        elseif boolGamepass == false then
40            game.ServerStorage.ShopItems[name][name]:Clone().Parent = player.Backpack
41        end
42 
43        return true
44    else
45        return false
46    end
47end
 View all 47 lines...

Select Gun Script

01local MarketPlaceService = game:GetService("MarketplaceService")
02local ReplicatedStorage = game:GetService("ReplicatedStorage")
03local ServerStorage = game:GetService("ServerStorage")
04local ToolNameText = script.Parent.ToolName
05local ToolNameDesc = script.Parent.Description
06local Information = script.Parent.Parent.Parent.Parent.Information
07 
08ToolNameText.Text = tostring(ToolNameText.ToolName.Value)
09ToolNameDesc.Text = "Description: " .. tostring(ToolNameDesc.Description.Value)
10 
11script.Parent.MouseButton1Click:Connect(function(player)
12    local Price,BoolGamepass,GamepassID = ReplicatedStorage.GetInfo:InvokeServer(tostring(ToolNameText.ToolName.Value))
13 
14    if Price ~= nil then
15        Information.ToolName.Text = tostring(ToolNameText.ToolName.Value)
16        if BoolGamepass == true then
17            Information.ToolPrice.Text = "Gamepass: " .. Price .. " R$"
18            ReplicatedStorage.BuyProcess:Fire(ToolNameText.ToolName.Value,Price,BoolGamepass,GamepassID)
19        elseif BoolGamepass == false then
20            Information.ToolPrice.Text = tonumber(Price)
21            ReplicatedStorage.BuyProcess:Fire(ToolNameText.ToolName.Value,Price,BoolGamepass)
22        end
23    end
24end)
 View all 24 lines...

Buy with Rubles Script

01local MarketPlaceService = game:GetService("MarketplaceService")
02local ReplicatedStorage = game:GetService("ReplicatedStorage")
03local ServerStorage = game:GetService("ServerStorage")
04local Information = script.Parent.Parent
05local ToolNameText = Information.ToolName.ProductName
06local ToolNameDesc = Information.ToolPrice.ProductPrice
07 
08ReplicatedStorage.BuyProcess.Event:Connect(function(name,price)
09    repeat wait(0.1) until script.Parent.MouseButton1Click
10    script.Parent.MouseButton1Click:Connect(function(player)
11        local Success = ReplicatedStorage.CheckSale:InvokeServer(name,nil,nil)
12 
13        if Success == true then
14            print("Purchase success!")
15        elseif Success == false then
16            print("Not enough money!")
17        end
18    end)
19end)

Buy with Robux script

01local MarketPlaceService = game:GetService("MarketplaceService")
02local ReplicatedStorage = game:GetService("ReplicatedStorage")
03local ServerStorage = game:GetService("ServerStorage")
04local Information = script.Parent.Parent
05local ToolNameText = Information.ToolName.ProductName
06local ToolNameDesc = Information.ToolPrice.ProductPrice
07local player = game.Players.LocalPlayer
08local HasGamepass = false
09 
10ReplicatedStorage.BuyProcess.Event:Connect(function(toolName,price,boolGamepass,gamepassId)
11    repeat wait(0.1) until script.Parent.MouseButton1Click
12    script.Parent.MouseButton1Click:Connect(function()
13        if gamepassId == nil then
14            local Success = ReplicatedStorage.CheckSale:InvokeServer(toolName)
15 
16            if Success == true then
17                player.leaderstats.Coins.Value = player.leaderstats.Coins.Value - price
18 
19                ServerStorage.ShopItems[toolName][toolName]:Clone().Parent = player.Backpack
20            elseif Success == false then
21                print("Not enough money!")
22            end
23        elseif gamepassId ~= nil then
24            print(player.UserId.." - "..gamepassId)
25 
26            local Pass,Error = pcall(function()
27                HasGamepass = MarketPlaceService:UserOwnsGamePassAsync(player.UserId,gamepassId)
28            end)
29 
30            if not Pass then
31                error("Failed while checking if player owned gamepass: "..Error)
32            end
33 
34            print(toolName,boolGamepass,gamepassId)
35 
36            local Success = ReplicatedStorage.CheckSale:InvokeServer(toolName,boolGamepass,gamepassId)
37 
38            if Success == true then
39                print("Purchase success!")
40            elseif Success == false then
41                print("Not enough money!")
42            end
43        end
44    end)
45end)
 View all 45 lines...

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

What line and what script is the error happening in? Try to post code only relevant to the problem. pidgey 548 — 5y

It errors in line 34, in the leaderstats script. Time_URSS 146 — 5y

PromptGamePassPurchase ( Instance player , int64 gamePassId ) - your first argument at line 34 is a number (player.UserId). This method requires a Player object, not a number. pidgey 548 — 5y

MarketPlaceService:PromptGamePassPurchase(player, gamepassId) pidgey 548 — 5y

View all comments (2 more)

I see Time_URSS 146 — 5y

Now the error is "Unable to cast Instance to int64" Time_URSS 146 — 5y

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

1 answer

Answer this question