وفّر نقودك
الدرس 17 من 18 في دورة لعبة Roblox: تايكون المصنع على Coddy.
لا يلعب أحد لعبة محاكاة بناء مدن تنسى أمره. يحتفظ DataStore بجدول لكل لاعب، تحت UserId الخاص به: النقد وعمليات إعادة الإحياء، ويتم حفظهما عند مغادرته وتحميلهما عند انضمامه.
factoryStore:SetAsync(player.UserId, { Cash = 120, Rebirths = 1 })
local saved = factoryStore:GetAsync(player.UserId)
print(saved.Cash) --> 120قد تفشل استدعاءات DataStore، لذا يُغلَّف كل منها في pcall. يجري الحفظ عند PlayerRemoving، وكذلك لكل اللاعبين في game:BindToClose، الذي يعمل عند إيقاف الخادم.
عندما يغادر المالك، يُحرَّر المصنع أيضًا: يُعاد ضبطه، وتعود منصة المطالبة إلى اللون الأخضر، وتعود اللافتة إلى رسالتها، ليصبح جاهزًا للاعب التالي. وهذا هو الاستخدام الثاني لـ resetFactory، وسبب تحقّق startDropper من عدم تشغيله مرتين: فمطالبة جديدة تشغّل أداة الإسقاط الأولى مجددًا بينما لا تزال حلقتها القديمة تعمل.
التحدي
صعباحفظ بيانات اللاعب وأتح المصنع من جديد:
- احصل على
DataStoreServiceوDataStore باسمFactory. - في PlayerAdded، بعد leaderstats: حمّل جدول بياناته باستخدام
GetAsync(player.UserId)داخل pcall، وإذا عُثر عليه، فعيّن Cash وRebirths منه. - اكتب
saveFactory(player): استخدمSetAsync(player.UserId, { Cash = ..., Rebirths = ... })داخل pcall. - عند PlayerRemoving: احفظ البيانات؛ وإذا كان اللاعب يملك المصنع، فعيّن owner إلى nil، وأعد ضبط المصنع، واجعل منصة المطالبة خضراء ومادتها Neon مجددًا، وأعِد رسالة المطالبة إلى اللافتة. واحفظ بيانات الجميع أيضًا في
game:BindToClose.
اضغط Play، واكسب المال، ثم اضغط Stop وبعدها Play مجددًا: سيعود رصيد Cash الخاص بك. ثم اضغط Check.
جرّب بنفسك
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 Settings = require(game.ReplicatedStorage.Settings)
local tycoon = workspace.Tycoon
local items = ServerStorage.TycoonItems
local rebirthPad = ServerStorage.RebirthPad
local owner = nil
local headline = "Step on the green pad to claim this factory"
local earned = 0
print("Ore is worth " .. Settings.OreValue .. " Cash")
-- يحصل كل لاعب على Cash وRebirths في لوحة المتصدرين
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
end)
-- اللافتة فوق المصنع
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: قطعة صغيرة تساوي Cash، تسقط تحت آلة الإسقاط
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
-- تنفّذ آلة الإسقاط حلقة واحدة فقط، مهما تكرر تشغيلها
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
-- ينقل الحزام الناقل كل ما يستقر عليه
tycoon.Conveyor.AssemblyLinearVelocity = Vector3.new(Settings.BeltSpeed, 0, 0)
-- يحوّل جهاز الجمع الخام إلى 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)
-- يضاعف جهاز الترقية قيمة كل قطعة خام تمر عبره مرة واحدة
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)
-- منصات تنتظر بناء عنصر أولًا
local waiting = Instance.new("Folder")
waiting.Name = "WaitingPads"
waiting.Parent = ServerStorage
-- منصات اشتُريت بالفعل، وتُحفظ لإعادة الميلاد التالية
local bought = Instance.new("Folder")
bought.Name = "BoughtPads"
bought.Parent = ServerStorage
-- ترتفع قطعة جديدة إلى مكانها
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
-- ضع العنصر المشترى في المصنع
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
-- ابدأ الإسقاط بمجرد استقراره في مكانه
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
-- الشراء: تختفي المنصة ويُبنى العنصر المرتبط بها
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
-- تظهر بطاقة السعر فوق كل منصة
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
-- لا تظهر في البداية إلا المنصات الأولى
for _, pad in tycoon.Buttons:GetChildren() do
if pad:GetAttribute("After") then
pad.Parent = waiting
end
end
-- العودة إلى مصنع فارغ: تُنقل العناصر إلى التخزين وتعود المنصات إلى أماكنها الأصلية
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)
-- تعرض اللافتة دخل المالك كل 5 ثوانٍ
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)
-- المطالبة بالملكية: أول لاعب يطأ المنصة يصبح مالك المصنع
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)
يتضمن هذا الدرس اختبارًا قصيرًا. ابدأ الدرس للإجابة عليه وتتبّع تقدمك.