My Script isnt working, how to fix it?

This is a Buying script but its not working how could I fix this?

local figure = script.Parent
local shop = figure.Parent
local dialog = figure.Head.Dialog
local items = shop.Items
currency = "Cash"
keepOnDeath = true


--/main\
d = dialog:GetChildren()
for i = 1,#d do
    d[i].UserDialog = ""..d[i].ItemName.Value.." for "..d[i].Cost.Value.." "..currency..""
end
function arm_GiveEffect(LA,RA)
    a = LA.CFrame
    b = RA.CFrame
    for i = 0,1.5,0.1 do
        wait(0.025)
        LA.CFrame = LA.CFrame*CFrame.fromEulerAnglesXYZ(0.1,-0.03,0)*CFrame.new(0,0,-0.05)
        RA.CFrame = RA.CFrame*CFrame.fromEulerAnglesXYZ(0.1,0.03,0)*CFrame.new(0,0,-0.05)
    end
    wait(0.025)
    for i = 0,1.5,0.1 do
        wait(0.025)
        LA.CFrame = LA.CFrame*CFrame.fromEulerAnglesXYZ(-0.1,0.03,0)*CFrame.new(0,0,0.05)
        RA.CFrame = RA.CFrame*CFrame.fromEulerAnglesXYZ(-0.1,-0.03,0)*CFrame.new(0,0,0.05)
    end
    wait(0.025)
    LA.CFrame = a
    RA.CFrame = b 
end
local larm = figure:FindFirstChild("Left Arm")
local rarm = figure:FindFirstChild("Right Arm")
function onReplied(player,pick)
    local stats = player:findFirstChild("leaderstats") 
    local cur = stats:findFirstChild(currency) 
    if (cur.Parent == nil) then
        return
    end
    local c = d
    for i = 1,#c do
        if (pick.Name == c[i].Name) then
            if (cur.Value >= pick.Cost.Value) then 
                cur.Value = cur.Value - c[i].Cost.Value 
                if (keepOnDeath == true) then
                    arm_GiveEffect(larm,rarm)
                    local item1 = items:FindFirstChild(c[i].ItemName.Value)
                    local item2 = items:FindFirstChild(c[i].ItemName.Value)
                    item1:clone().Parent = player.StarterGear
                    item2:clone().Parent = player.Backpack
                    print("Item safe")
                else
                    arm_GiveEffect(larm,rarm)
                    local item = items:FindFirstChild(c[i].ItemName.Value)
                    item:clone().Parent = player.Backpack
                end
            else
                print("Not enough ",currency)
            end
        end 
    end
end
dialog.DialogChoiceSelected:connect(onReplied)