Undian Kelangkaan

Pelajaran 10 dari 18 dalam kursus Game Roblox: Simulator Hewan Peliharaan di Coddy.

Telur tidak selalu menghasilkan Cat. Settings.Pets mencantumkan setiap peliharaan dengan Chance dari 100 (Cat 45, Dog 30, Bunny 15, Fox 8, Dragon 2), Rarity, dan Power.

Pengundian berbobot: pilih angka dari 0 hingga 100, lalu telusuri daftar sambil mengurangi peluang setiap peliharaan darinya. Peliharaan yang membuatnya menjadi 0 atau kurang akan menang, jadi peliharaan dengan peluang 45 menang rata-rata dalam 45 dari 100 pengundian:

local roll = math.random() * 100
for _, info in Settings.Pets do
	roll -= info.Chance
	if roll <= 0 then
		return info.Name
	end
end

Peliharaan yang menetas juga memiliki atribut Rarity dan Power. Tabel peliharaan berdasarkan nama (petInfo["Fox"]) menemukannya dengan cepat.

Tantangan

Sedang

Buat petInfo, dengan Settings.Pets menggunakan Name sebagai kunci.
Di givePet, atur atribut Rarity dan Power pet dari petInfo.
Tulis rollPet() untuk pengundian berbobot, lalu gunakan rollPet() saat menetaskan telur, bukan Cat (print menampilkan nama apa pun yang menetas).

Tekan Play dan tetaskan beberapa telur. Lalu tekan Check: pemeriksaan ini mengubah peluang untuk memastikan hasil undianmu mengikuti peluang tersebut.

Coba sendiri

local Players = game:GetService("Players")
local ServerStorage = game:GetService("ServerStorage")
local Settings = require(game.ReplicatedStorage.Settings)

local remotes = game.ReplicatedStorage.Remotes
local piles = workspace.Piles
local pileSpot = {} -- setiap tumpukan -> tempatnya berdiri
local lastHit = {} -- setiap pemain -> waktu terakhir mereka memukul

print("A Meadow pile gives " .. Settings.PileValue .. " coins")

-- Peliharaan: StringValue di folder Pets milik pemain yang menyimpan namanya
local function givePet(player, name)
	local pet = Instance.new("StringValue")
	pet.Name = "Pet"
	pet.Value = name
	pet.Parent = player.Pets
	return pet
end

-- Setiap pemain mendapat Coins di papan peringkat
Players.PlayerAdded:Connect(function(player)
	local leaderstats = Instance.new("Folder")
	leaderstats.Name = "leaderstats"
	leaderstats.Parent = player

	local coins = Instance.new("IntValue")
	coins.Name = "Coins"
	coins.Parent = leaderstats

	-- peliharaan yang mereka miliki
	local pets = Instance.new("Folder")
	pets.Name = "Pets"
	pets.Parent = player
end)

-- Tumpukan koin di suatu tempat: salinan ServerStorage.CoinPile dengan kesehatannya
-- dan nilainya sebagai atribut
local function spawnPile(spot)
	local pile = ServerStorage.CoinPile:Clone()
	pile.Position = spot.Position
	pile:SetAttribute("MaxHealth", Settings.PileHealth)
	pile:SetAttribute("Health", Settings.PileHealth)
	pile:SetAttribute("Value", Settings.PileValue)
	pile.HealthGui.Label.Text = pile:GetAttribute("Health") .. "/" .. pile:GetAttribute("MaxHealth")
	pileSpot[pile] = spot
	pile.Parent = piles
	return pile
end

-- Satu pukulan mengurangi kesehatan tumpukan sebesar 1;
-- saat mencapai 0, tumpukan hancur dan memberikan nilainya
local function hitPile(player, pile)
	local health = pile:GetAttribute("Health") - 1
	if health > 0 then
		pile:SetAttribute("Health", health)
		pile.HealthGui.Label.Text = health .. "/" .. pile:GetAttribute("MaxHealth")
		return
	end
	player.leaderstats.Coins.Value += pile:GetAttribute("Value")
	local spot = pileSpot[pile]
	pileSpot[pile] = nil
	pile:Destroy()
	-- tumpukan baru di tempat yang sama beberapa detik kemudian
	task.delay(Settings.RespawnTime, spawnPile, spot)
end

-- Satu tumpukan di setiap tempat di Meadow
for _, spot in workspace.Zones.Meadow.Spawns:GetChildren() do
	spawnPile(spot)
end

-- Client meminta untuk memukul tumpukan. Jangan pernah percaya pada client: siapa pun bisa mengirim
-- remote ini dengan apa saja, dari mana saja, secepat yang mereka mau.
remotes.Hit.OnServerEvent:Connect(function(player, pile)
	-- tumpukan yang benar-benar ada
	if typeof(pile) ~= "Instance" or pile.Parent ~= piles then
		return
	end
	-- dalam jangkauan
	local character = player.Character
	local root = character and character:FindFirstChild("HumanoidRootPart")
	if not root or (root.Position - pile.Position).Magnitude > Settings.Reach then
		return
	end
	-- tidak terlalu cepat
	local now = time()
	if lastHit[player] and now - lastHit[player] < Settings.HitCooldown then
		return
	end
	lastHit[player] = now
	hitPile(player, pile)
end)

-- Menetaskan: prompt telur, dibayar dengan koin
workspace.Egg.ProximityPrompt.Triggered:Connect(function(player)
	local coins = player.leaderstats.Coins
	if coins.Value < Settings.EggPrice then
		return
	end
	coins.Value -= Settings.EggPrice
	local name = "Cat"
	givePet(player, name)
	print(player.Name .. " hatched a " .. name)
end)