Menu
CoddyTech

Simpan Bangunan

Pelajaran 21 dari 22 dalam kursus Game Roblox: Tycoon Pabrik di Coddy.

Kembali ke lahan kosong setelah membangun seluruh pabrik tentu menyedihkan. Data simpanan pemilik juga bisa mencatat apa yang mereka bangun. Instance tidak bisa dimasukkan ke DataStore, tetapi namanya bisa disimpan dalam list yang mempertahankan urutannya:

data.Pets = {}
for _, pet in pets:GetChildren() do
	table.insert(data.Pets, pet.Name)
end

Hanya pemilik yang memiliki pabrik, jadi hanya data simpanan pemilik yang memuat list tersebut.

challenge icon

Tantangan

Sulit

Simpan juga apa yang dibangun pemilik.

  1. Di saveFactory, sebelum menyimpan, jika player == owner, tetapkan data.Built = {}.
  2. Masukkan Name setiap item di tycoon.Built ke dalamnya, sesuai urutan.

Tekan tombol “Main”: permainan berjalan seperti sebelumnya, dan pelajaran berikutnya membangun kembali apa yang disimpan oleh pelajaran ini. Lalu tekan tombol “Periksa”.

Coba sendiri

local Players = game:GetService("Players")
local ServerStorage = game:GetService("ServerStorage")
local CollectionService = game:GetService("CollectionService")
local TweenService = game:GetService("TweenService")
local Debris = game:GetService("Debris")
local DataStoreService = game:GetService("DataStoreService")
local Settings = require(game.ReplicatedStorage.Settings)

local tycoon = workspace.Tycoon
local items = ServerStorage.TycoonItems
local rebirthPad = ServerStorage.RebirthPad
local factoryStore = DataStoreService:GetDataStore("Factory")
local owner = nil
local headline = "Step on the green pad to claim this factory"
local earned = 0

print("Ore is worth " .. Settings.OreValue .. " Cash")

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

	local cash = Instance.new("IntValue")
	cash.Name = "Cash"
	cash.Parent = leaderstats

	local rebirths = Instance.new("IntValue")
	rebirths.Name = "Rebirths"
	rebirths.Parent = leaderstats

	-- Yang dimiliki pemain ini terakhir kali
	local ok, saved = pcall(function()
		return factoryStore:GetAsync(player.UserId)
	end)
	if ok and saved then
		cash.Value = saved.Cash or 0
		rebirths.Value = saved.Rebirths or 0
	end
end)

-- Papan di atas pabrik
local gui = Instance.new("SurfaceGui")
gui.Parent = tycoon.Sign

local signLabel = Instance.new("TextLabel")
signLabel.Name = "Status"
signLabel.Size = UDim2.fromScale(1, 1)
signLabel.BackgroundColor3 = Color3.fromRGB(25, 25, 35)
signLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
signLabel.TextScaled = true
signLabel.Text = "Step on the green pad to claim this factory"
signLabel.Parent = gui

local function setSign(text)
	signLabel.Text = text
end

-- Ore: bagian kecil bernilai Cash yang dijatuhkan di bawah dropper
local function dropOre(dropper)
	local ore = Instance.new("Part")
	ore.Name = "Ore"
	ore.Size = Vector3.new(1, 1, 1)
	ore.Color = Color3.fromRGB(150, 150, 160)
	ore.Position = dropper.Position - Vector3.new(0, 2.5, 0)
	ore:SetAttribute("Value", Settings.OreValue)
	if math.random() < Settings.GoldChance then
		ore.Color = Color3.fromRGB(255, 200, 40)
		ore.Material = Enum.Material.Neon
		ore:SetAttribute("Value", Settings.OreValue * 5)
	end
	ore.Parent = workspace
	Debris:AddItem(ore, 20)
end

-- Dropper menjalankan satu perulangan, meski diaktifkan berkali-kali
local function startDropper(dropper)
	if dropper:GetAttribute("Running") then
		return
	end
	dropper:SetAttribute("Running", true)
	task.spawn(function()
		while dropper:IsDescendantOf(workspace) do
			dropOre(dropper)
			task.wait(Settings.DropInterval)
		end
		dropper:SetAttribute("Running", nil)
	end)
end

-- Konveyor membawa apa pun yang ada di atasnya
tycoon.Conveyor.AssemblyLinearVelocity = Vector3.new(Settings.BeltSpeed, 0, 0)

-- Pengumpul mengubah ore menjadi Cash
tycoon.Collector.Touched:Connect(function(hit)
	if hit.Name == "Ore" then
		local value = hit:GetAttribute("Value")
		hit:Destroy()
		if owner then
			value = math.floor(value * (1 + owner.leaderstats.Rebirths.Value * Settings.RebirthBonus))
			owner.leaderstats.Cash.Value += value
			earned += value
		end
	end
end)

-- Upgrader menggandakan nilai setiap ore yang melewatinya, satu kali saja
items.Upgrader.Touched:Connect(function(hit)
	if hit.Name == "Ore" and not hit:GetAttribute("Upgraded") then
		hit:SetAttribute("Upgraded", true)
		hit:SetAttribute("Value", hit:GetAttribute("Value") * 2)
		hit.Color = Color3.fromRGB(155, 89, 182)
	end
end)

-- Pad yang menunggu suatu item dibuat terlebih dahulu
local waiting = Instance.new("Folder")
waiting.Name = "WaitingPads"
waiting.Parent = ServerStorage

-- Pad yang sudah dibeli, disimpan untuk rebirth berikutnya
local bought = Instance.new("Folder")
bought.Name = "BoughtPads"
bought.Parent = ServerStorage

-- Bagian baru naik ke tempatnya
local function riseIn(part)
	local goal = part.Position
	local transparency = part.Transparency
	part.Position = goal - Vector3.new(0, 8, 0)
	part.Transparency = 1
	TweenService:Create(part, TweenInfo.new(1), { Position = goal, Transparency = transparency }):Play()
end

local function checkComplete()
	if #tycoon.Buttons:GetChildren() == 0 and #waiting:GetChildren() == 0 then
		headline = "Factory complete! Step on the purple pad to rebirth"
		setSign(headline)
		rebirthPad.Parent = tycoon
	end
end

-- Tempatkan item yang dibeli di pabrik
local function build(item)
	item.Parent = tycoon.Built
	if item:IsA("BasePart") then
		riseIn(item)
	end
	for _, part in item:GetDescendants() do
		if part:IsA("BasePart") then
			riseIn(part)
		end
	end
	if item:HasTag("Dropper") then
		-- mulai menjatuhkan bijih setelah berada di tempatnya
		task.delay(1, startDropper, item)
	end
	for _, pad in waiting:GetChildren() do
		if pad:GetAttribute("After") == item.Name then
			pad.Parent = tycoon.Buttons
		end
	end
	checkComplete()
end

-- Pembelian: pad menghilang dan itemnya dibangun
local function buy(pad, player)
	if player ~= owner or pad.Parent ~= tycoon.Buttons then
		return
	end
	local cash = player.leaderstats.Cash
	local price = pad:GetAttribute("Price")
	if cash.Value < price then
		return
	end
	cash.Value -= price
	pad.Parent = bought
	build(items:FindFirstChild(pad:GetAttribute("Item")))
end

for _, pad in tycoon.Buttons:GetChildren() do
	pad.Touched:Connect(function(hit)
		local player = Players:GetPlayerFromCharacter(hit.Parent)
		if player then
			buy(pad, player)
		end
	end)
end

-- Label harga melayang di atas setiap pad
for _, pad in tycoon.Buttons:GetChildren() do
	local tag = Instance.new("BillboardGui")
	tag.Name = "PriceTag"
	tag.Size = UDim2.fromOffset(160, 40)
	tag.StudsOffset = Vector3.new(0, 3, 0)
	tag.Parent = pad

	local label = Instance.new("TextLabel")
	label.Size = UDim2.fromScale(1, 1)
	label.BackgroundColor3 = Color3.fromRGB(25, 25, 35)
	label.BackgroundTransparency = 0.2
	label.TextColor3 = Color3.fromRGB(255, 255, 255)
	label.TextScaled = true
	label.Text = pad:GetAttribute("Label") .. ": $" .. pad:GetAttribute("Price")
	label.Parent = tag
end

-- Hanya pad awal yang muncul saat dimulai
for _, pad in tycoon.Buttons:GetChildren() do
	if pad:GetAttribute("After") then
		pad.Parent = waiting
	end
end

-- Kembali ke pabrik kosong: item masuk penyimpanan, pad kembali ke tempat semula
local function resetFactory()
	rebirthPad.Parent = ServerStorage
	for _, item in tycoon.Built:GetChildren() do
		item.Parent = items
	end
	for _, pad in bought:GetChildren() do
		if pad:GetAttribute("After") then
			pad.Parent = waiting
		else
			pad.Parent = tycoon.Buttons
		end
	end
end

rebirthPad.Touched:Connect(function(hit)
	local player = Players:GetPlayerFromCharacter(hit.Parent)
	if player and player == owner and rebirthPad.Parent == tycoon then
		resetFactory()
		player.leaderstats.Rebirths.Value += 1
		player.leaderstats.Cash.Value = 0
		headline = player.Name .. "'s Factory"
		setSign(headline)
	end
end)

-- Menyimpan: Cash dan Rebirths
local function saveFactory(player)
	local data = {
		Cash = player.leaderstats.Cash.Value,
		Rebirths = player.leaderstats.Rebirths.Value,
	}
	-- Pelajaran 21: Save the Build ditempatkan di sini
	pcall(function()
		factoryStore:SetAsync(player.UserId, data)
	end)
end

-- Saat pemilik pergi, pabrik disimpan dan bisa diklaim lagi
Players.PlayerRemoving:Connect(function(player)
	saveFactory(player)
	if player == owner then
		owner = nil
		resetFactory()
		tycoon.ClaimPad.Color = Color3.fromRGB(46, 204, 113)
		tycoon.ClaimPad.Material = Enum.Material.Neon
		headline = "Step on the green pad to claim this factory"
		setSign(headline)
	end
end)

game:BindToClose(function()
	for _, player in Players:GetPlayers() do
		saveFactory(player)
	end
end)

-- Papan menunjukkan pendapatan pemilik setiap 5 detik
task.spawn(function()
	while true do
		task.wait(5)
		if owner then
			setSign(headline .. "\n$" .. math.floor(earned / 5) .. " a second")
		end
		earned = 0
	end
end)

-- Klaim: pemain pertama yang menginjak pad menjadi pemilik pabrik
local claimPad = tycoon.ClaimPad
claimPad.Touched:Connect(function(hit)
	local player = Players:GetPlayerFromCharacter(hit.Parent)
	if player and not owner then
		owner = player
		claimPad.Color = Color3.fromRGB(120, 120, 120)
		claimPad.Material = Enum.Material.SmoothPlastic
		headline = player.Name .. "'s Factory"
		setSign(headline)
		for _, dropper in CollectionService:GetTagged("Dropper") do
			if dropper:IsDescendantOf(workspace) then
				startDropper(dropper)
			end
		end
	end
end)

Semua pelajaran di Game Roblox: Tycoon Pabrik

Latihan sendiri: Playground Roblox