-
HttpService
true
-
ReplicatedStorage
-
Shared
-
Config
-
Gear
-
Mutations
-
Pets
-
Remotes
server
BuySeed = getOrCreate(folder, "RemoteEvent", "BuySeed"),
PlantSeed = getOrCreate(folder, "RemoteEvent", "PlantSeed"),
HarvestCrop = getOrCreate(folder, "RemoteEvent", "HarvestCrop"),
SellAll = getOrCreate(folder, "RemoteEvent", "SellAll"),
BuyEgg = getOrCreate(folder, "RemoteEvent", "BuyEgg"),
HatchEgg = getOrCreate(folder, "RemoteEvent", "HatchEgg"),
EquipPet = getOrCreate(folder, "RemoteEvent", "EquipPet"),
FeedPet = getOrCreate(folder, "RemoteEvent", "FeedPet"),
BuyGear = getOrCreate(folder, "RemoteEvent", "BuyGear"),
PlaceGear = getOrCreate(folder, "RemoteEvent", "PlaceGear"),
-- server -> client
DataChanged = getOrCreate(folder, "RemoteEvent", "DataChanged"),
ShopChanged = getOrCreate(folder, "RemoteEvent", "ShopChanged"),
WeatherChanged= getOrCreate(folder, "RemoteEvent", "WeatherChanged"),
Notify = getOrCreate(folder, "RemoteEvent", "Notify"),
-- request/response
GetState = getOrCreate(folder, "RemoteFunction", "GetState"),
}
return Remotes
]]>
-
Seeds
-
Weather
-
ServerScriptService
-
Server
-
CropService
0 then
body.Color = Color3.new(r/n, g/n, b/n)
body.Material = Enum.Material.Neon
else
body.Color = seedDef.color
end
local label = body:FindFirstChildOfClass("BillboardGui")
if label then
local txt = body.BillboardGui.TextLabel
if crop.ready then
local mults = {}
for id in pairs(crop.mutations or {}) do table.insert(mults, id) end
txt.Text = (#mults > 0) and ("READY " .. table.concat(mults, "+")) or "READY"
else
txt.Text = ("%d%%"):format(math.floor(growthPct * 100))
end
end
end
function CropService.removeVisual(crop)
if crop.visual then crop.visual:Destroy(); crop.visual = nil end
end
function CropService.computeValue(crop, sellMult)
local seedDef = Seeds.get(crop.seedId)
local base = seedDef.sellBase
local mult = Mutations.computeMultiplier(crop.mutations)
return math.floor(base * mult * (sellMult or 1))
end
return CropService
]]>
-
GearService
-
GrowthService
= seedDef.growSec then
crop.ready = true
end
elseif seedDef.harvestType == "multi" and crop.regrowTimer then
local regrowMult = (petBonuses.regrowMult or 1) * growthMult
crop.regrowTimer = math.max(0, crop.regrowTimer - dt * regrowMult)
if crop.regrowTimer <= 0 then
crop.ready = true
crop.regrowTimer = nil
end
end
-- weather mutation rolls (only on growing/ready crops, not on regrow-cooldown)
if currentWeather and currentWeather.appliesMutation and crop.ready or (currentWeather and currentWeather.appliesMutation and not crop.ready) then
local mc = (currentWeather.mutationChancePerTick or 0) * (dt / 5) -- approximate per-tick scale
mc = mc + gearMutationChance(plot) * (dt / 5)
mc = mc + (petBonuses.mutationChance or 0) * (dt / 5)
if math.random() < mc then
crop.mutations = crop.mutations or {}
crop.mutations[currentWeather.appliesMutation] = true
end
if currentWeather.secondaryMutation and math.random() < (currentWeather.secondaryChance or 0) * (dt / 5) then
crop.mutations = crop.mutations or {}
crop.mutations[currentWeather.secondaryMutation] = true
end
end
CropService.updateVisual(crop)
end
function GrowthService.start()
PetService = PetService or require(script.Parent.PetService)
local last = tick()
game:GetService("RunService").Heartbeat:Connect(function()
local now = tick()
local dt = now - last
if dt < 0.5 then return end
last = now
for uid, plot in pairs(PlotService.all()) do
local petBonuses = PetService.bonusesFor(uid)
for key, crop in pairs(plot.crops) do
tickCrop(plot, key, crop, dt, petBonuses)
end
end
end)
end
return GrowthService
]]>
-
Main
0
-
PetService
= 3 then Remotes.Notify:FireClient(player, "Max 3 equipped"); return end
pet.equipped = true
end
PlayerData.push(player)
end
function PetService.feed(player, petUid)
local data = PlayerData.get(player); if not data then return end
local pet = data.pets[petUid]; if not pet then return end
-- consume one cheapest harvested crop
if #data.harvest == 0 then Remotes.Notify:FireClient(player, "No food (harvest first)"); return end
table.remove(data.harvest, 1)
pet.hunger = math.min(100, pet.hunger + 25)
PlayerData.push(player)
end
function PetService.bonusesFor(userId)
local bonuses = { growthMult = 1, mutationChance = 0, regrowMult = 1, sellMult = 1, shopWeight = 1 }
local data = PlayerData._cache[userId]; if not data then return bonuses end
for _, p in pairs(data.pets) do
if p.equipped and p.hunger > 0 then
local def = Pets.Defs[p.id]; if def then
if def.traitKind == "growthMult" then
bonuses.growthMult = bonuses.growthMult * def.value
elseif def.traitKind == "mutationChance" then
bonuses.mutationChance = bonuses.mutationChance + def.value
elseif def.traitKind == "regrowMult" then
bonuses.regrowMult = bonuses.regrowMult * def.value
elseif def.traitKind == "sellMult" then
bonuses.sellMult = bonuses.sellMult * def.value
elseif def.traitKind == "shopWeight" then
bonuses.shopWeight = bonuses.shopWeight * def.value
end
end
end
end
return bonuses
end
function PetService.start()
-- hunger/age tick
task.spawn(function()
while true do
task.wait(1)
for _, plr in ipairs(Players:GetPlayers()) do
local data = PlayerData.get(plr); if data then
local changed = false
for _, p in pairs(data.pets) do
if p.equipped then
local before = p.hunger
p.hunger = math.max(0, p.hunger - Config.PetHungerDrainPerSec)
if p.hunger > 0 and p.age < Config.PetMaxAge then
p.age = math.min(Config.PetMaxAge, p.age + Config.PetAgeXpPerSec / 10)
end
if math.floor(before) ~= math.floor(p.hunger) then changed = true end
end
end
if changed then PlayerData.push(plr) end
end
end
end
end)
Remotes.HatchEgg.OnServerEvent:Connect(PetService.hatch)
Remotes.EquipPet.OnServerEvent:Connect(PetService.equip)
Remotes.FeedPet.OnServerEvent:Connect(PetService.feed)
end
return PetService
]]>
-
PlantingService
plot.size or z > plot.size then return end
local key = PlotService.tileKey(x, z)
if plot.crops[key] then notify(player, "Tile occupied."); return end
local crop = {
seedId = seedId,
growth = 0,
ready = false,
mutations = {},
x = x, z = z,
}
local model = CropService.spawnVisual(plot, x, z, seedId)
crop.visual = model
plot.crops[key] = crop
PlayerData.addSeed(player, seedId, -1)
end
function PlantingService.harvest(player, x, z)
local plot = PlotService.get(player); if not plot then return end
local key = PlotService.tileKey(x, z)
local crop = plot.crops[key]
if not crop or not crop.ready then return end
local seedDef = Seeds.get(crop.seedId)
local value = CropService.computeValue(crop, 1)
PlayerData.addHarvest(player, {
seedId = crop.seedId,
value = value,
mutations = crop.mutations,
ts = os.time(),
})
if seedDef.harvestType == "multi" then
crop.ready = false
crop.regrowTimer = seedDef.regrowSec
crop.mutations = {}
CropService.updateVisual(crop)
else
CropService.removeVisual(crop)
plot.crops[key] = nil
end
end
function PlantingService.bind()
Remotes.PlantSeed.OnServerEvent:Connect(function(plr, seedId, x, z)
PlantingService.plant(plr, seedId, x, z)
end)
Remotes.HarvestCrop.OnServerEvent:Connect(function(plr, x, z)
PlantingService.harvest(plr, x, z)
end)
end
return PlantingService
]]>
-
PlayerData
-
PlotService
-
SellService
-
ShopService
0 then row = r; break end
end
if not row then Remotes.Notify:FireClient(player, "Out of stock"); return end
if not PlayerData.spend(player, def.price) then
Remotes.Notify:FireClient(player, "Not enough sheckles"); return
end
row.stock -= 1
PlayerData.addSeed(player, seedId, 1)
Remotes.ShopChanged:FireClient(player, ShopService.state)
end
function ShopService.buyEgg(player, eggId)
local def = Pets.Eggs[eggId]; if not def then return end
if not PlayerData.spend(player, def.price) then
Remotes.Notify:FireClient(player, "Not enough sheckles"); return
end
PlayerData.addEgg(player, eggId, 1)
end
function ShopService.buyGear(player, gearId)
local def = Gear[gearId]; if not def then return end
if not PlayerData.spend(player, def.price) then
Remotes.Notify:FireClient(player, "Not enough sheckles"); return
end
local data = PlayerData.get(player)
data.gear[gearId] = (data.gear[gearId] or 0) + 1
PlayerData.push(player)
end
function ShopService.start()
ShopService.refresh()
task.spawn(function()
while true do
task.wait(Config.ShopRefreshSeconds)
ShopService.refresh()
end
end)
Remotes.BuySeed.OnServerEvent:Connect(ShopService.buySeed)
Remotes.BuyEgg.OnServerEvent:Connect(ShopService.buyEgg)
Remotes.BuyGear.OnServerEvent:Connect(ShopService.buyGear)
end
return ShopService
]]>
-
WeatherService
-
StarterPlayer
-
StarterPlayerScripts
-
Client
-
Main
-
Workspace
true
false