How to make and award a badge in Roblox

-- ModuleScript in ServerScriptService named Badges.
-- Badges.award(player, badgeId): gives the badge once, safely. Server only.
local BadgeService = game:GetService("BadgeService")
local Players = game:GetService("Players")

local Badges = {}

local enabledCache: { [number]: boolean } = {}
local awardedThisSession: { [Player]: { [number]: boolean } } = {}

local function isEnabled(badgeId: number): boolean
	local cached = enabledCache[badgeId]
	if cached ~= nil then
		return cached
	end
	local ok, info = pcall(function()
		return BadgeService:GetBadgeInfoAsync(badgeId)
	end)
	if not ok then
		warn("[Badges] could not read badge", badgeId, info)
		return false
	end
	enabledCache[badgeId] = info.IsEnabled == true
	return enabledCache[badgeId]
end

function Badges.award(player: Player, badgeId: number)
	local given = awardedThisSession[player]
	if not given then
		given = {}
		awardedThisSession[player] = given
	end
	if given[badgeId] or not isEnabled(badgeId) then
		return
	end
	given[badgeId] = true -- do not try again this session, even if a call below fails

	local okHas, hasBadge = pcall(function()
		return BadgeService:UserHasBadgeAsync(player.UserId, badgeId)
	end)
	if okHas and hasBadge then
		return -- already earned in an earlier visit
	end

	local okAward, result = pcall(function()
		return BadgeService:AwardBadgeAsync(player.UserId, badgeId)
	end)
	if not okAward then
		warn("[Badges] could not award", badgeId, "to", player.Name, result)
		given[badgeId] = nil -- allow a later retry
	end
end

Players.PlayerRemoving:Connect(function(player: Player)
	awardedThisSession[player] = nil
end)

return Badges

-- Script in ServerScriptService named WelcomeBadge.
local Players = game:GetService("Players")
local ServerScriptService = game:GetService("ServerScriptService")

type BadgesModule = { award: (Player, number) -> () }
local Badges = require(ServerScriptService:WaitForChild("Badges")) :: BadgesModule

local WELCOME_BADGE_ID = 0 -- paste your badge ID

Players.PlayerAdded:Connect(function(player: Player)
	Badges.award(player, WELCOME_BADGE_ID)
end)

-- Script in ServerScriptService named SummitBadge.
-- Awards a badge to players who touch the part named Summit, such as the end of an obby.
local Players = game:GetService("Players")
local ServerScriptService = game:GetService("ServerScriptService")

type BadgesModule = { award: (Player, number) -> () }
local Badges = require(ServerScriptService:WaitForChild("Badges")) :: BadgesModule

local SUMMIT_BADGE_ID = 0 -- paste your badge ID
local summit = workspace:WaitForChild("Summit") :: BasePart

summit.Touched:Connect(function(hit: BasePart)
	local character = hit.Parent
	local player = if character and character:IsA("Model") then Players:GetPlayerFromCharacter(character) else nil
	local humanoid = character and character:FindFirstChildOfClass("Humanoid")
	if player and humanoid and humanoid.Health > 0 then
		Badges.award(player, SUMMIT_BADGE_ID)
	end
end)

-- Script in ServerScriptService named CoinBadge.
-- Awards a badge when a player's Coins reach 1,000.
local Players = game:GetService("Players")
local ServerScriptService = game:GetService("ServerScriptService")

type BadgesModule = { award: (Player, number) -> () }
local Badges = require(ServerScriptService:WaitForChild("Badges")) :: BadgesModule

local RICH_BADGE_ID = 0 -- paste your badge ID
local GOAL = 1000

Players.PlayerAdded:Connect(function(player: Player)
	local leaderstats = player:WaitForChild("leaderstats", 30)
	local coins = leaderstats and leaderstats:WaitForChild("Coins", 30)
	if not (coins and coins:IsA("IntValue")) then
		return
	end
	local function check()
		if coins.Value >= GOAL then
			Badges.award(player, RICH_BADGE_ID)
		end
	end
	coins.Changed:Connect(check)
	check()
end)

-- Script in ServerScriptService named BadgePerks.
local BadgeService = game:GetService("BadgeService")
local Players = game:GetService("Players")

local SUMMIT_BADGE_ID = 0 -- paste your badge ID

Players.PlayerAdded:Connect(function(player: Player)
	local ok, hasBadge = pcall(function()
		return BadgeService:UserHasBadgeAsync(player.UserId, SUMMIT_BADGE_ID)
	end)
	player:SetAttribute("BeatTheObby", ok and hasBadge == true)
end)