I am trying to make this give out a badge when youwin the mega jackpot but it wont give it out?

So You are declaring the awardBadge function (with the lowercase a), but You never call it. On top of that it is rather unfeasible to declare it inside the anonymous touched function. Do not nest function declarations, unless You really really know what You are doing.

The second problem is at the AwardBadge call (with the upppercase A). AwardBadge is the function of BadgeService and should be called like this BadgeService:AwardBadge(...)

Here is Your script:

local BadgeService = game:GetService("BadgeService")

local function awardBadge(player, badgeId)
            -- Fetch badge information
            local success, badgeInfo = pcall(function()
                return BadgeService:GetBadgeInfoAsync(badgeId)
            end)

            if success then
                -- Confirm that badge can be awarded
                if badgeInfo.IsEnabled then
                    -- Award badge
                    local success, result = pcall(function()
                        return BadgeService:AwardBadge(player,badgeId) --use passed arguments
                    end)

                    if not success then
                        -- the AwardBadge function threw an error
                        warn("Error while awarding badge:", result)
                    elseif not result then
                        -- the AwardBadge function did not award a badge
                        warn("Failed to award badge.")
                    end
                end
            else

        warn("Error while fetching badge info: " .. badgeInfo)
            end
end


machine.SuperJPSensor.Touched:Connect(function(hit) -- Registers the ball reaching the Mega Jackpot hole
    if hit.Name == "Neptune_Ball" then
        muteMusic()
    --add this line, and pass arguments here
--error fixed
    awardBadge(game.Players:FindFirstChild(machine.CardReader.GameInfo.Player.Value), 2126911393) 
       machine.Particle.ParticleEmitter.Enabled = true
        sounds.MonsterJackpot2:Play()
        wait(2)
        sounds.MonsterDropMonsterJackpotSong:Play()
        ticketOut(machine.MegaJackpotScreen.Value.Value)
        for i = 1, 200 do
            machine.MegaJackpotScreen.SurfaceGui.Enabled = true
            for _,a in pairs(SideLights:GetChildren()) do a.SurfaceLight.Enabled = true; a.Material = Enum.Material.Neon end
            wait(0.1)
            for _,a in pairs(SideLights:GetChildren()) do a.SurfaceLight.Enabled = false; a.Material = Enum.Material.SmoothPlastic end
            machine.MegaJackpotScreen.SurfaceGui.Enabled = false
            wait(0.1)
        end
        machine.MegaJackpotScreen.Value.Value = MegaJPDefault
        for _,a in pairs(SideLights:GetChildren()) do a.SurfaceLight.Enabled = true; a.Material = Enum.Material.Neon end
        for i = 2, 0, -0.2 do
            sounds.MonsterJackpot2.Volume = i
            wait(0.1)
        end
        sounds.MonsterDropMonsterJackpotSong:Stop()
        machine.Particle.ParticleEmitter.Enabled = false
    end
end)

This code is a bit messy, so idk it it will work. And Ceebeebies is not poo, I LOVE it :)