Pluie de météores

Leçon 11 sur 18 du cours Jeu Roblox : Survivre aux catastrophes de Coddy.

La deuxième catastrophe fait tomber une météorite en feu toutes les demi-secondes pendant toute la manche. Une boucle qui attendrait bloquerait le compte à rebours de la manche ; elle s’exécute donc en parallèle avec task.spawn :

task.spawn(function()
	while map.Parent do
		-- faire tomber une météorite
		task.wait(0.5)
	end
end)

while map.Parent do s’arrête d’elle-même : lorsque la manche détruit la carte, son Parent devient nil. Chaque météorite atterrit à un endroit aléatoire, à math.random(-15, 15) studs du centre de l’île, et Debris:AddItem(meteor, 4) la supprime 4 secondes plus tard afin qu’elles ne s’accumulent pas.

Avec deux catastrophes, la manche doit choisir. Une fonction dans une table peut être récupérée par son nom sous forme de chaîne, Disasters["Meteors"], afin que la manche puisse lancer la catastrophe nommée par Settings.Disaster. Les paramètres de cette leçon désignent les météorites.

Défi

Moyen

Ajoutez la pluie de météores :

Récupérez le service Debris en haut.
Écrivez Disasters.Meteors(map) : dans un task.spawn, tant que la carte est dans le jeu, créez dans la carte une pièce sphérique nommée Meteor (3 par 3 par 3, orange, Neon), à des coordonnées X et Z aléatoires dans un rayon de 15 studs autour de map.Base, à 40 studs de hauteur. La toucher entraîne la défaite ; Debris la supprime au bout de 4 secondes ; attendez 0.5 seconde avant la suivante.
Remplacez Disasters.Flood(map) par Disasters[Settings.Disaster](map).

Appuyez sur Play et esquivez les météores, puis cliquez sur Check.

Essayez vous-même

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

local lobbySpawn = workspace.LobbySpawn

print("Rounds last " .. Settings.RoundLength .. " seconds")

-- Chaque joueur reçoit Wins dans le classement
Players.PlayerAdded:Connect(function(player)
	local leaderstats = Instance.new("Folder")
	leaderstats.Name = "leaderstats"
	leaderstats.Parent = player

	local wins = Instance.new("IntValue")
	wins.Name = "Wins"
	wins.Parent = leaderstats
end)

-- Le panneau d’état dans le hall
local gui = Instance.new("SurfaceGui")
gui.Parent = workspace.StatusBoard

local status = Instance.new("TextLabel")
status.Name = "Status"
status.Size = UDim2.fromScale(1, 1)
status.BackgroundColor3 = Color3.fromRGB(25, 25, 35)
status.TextColor3 = Color3.fromRGB(255, 255, 255)
status.TextScaled = true
status.Text = "Welcome to Disaster Survival!"
status.Parent = gui

local function setStatus(text)
	status.Text = text
end

local function teleport(player, target)
	local character = player.Character
	if character then
		character:PivotTo(target.CFrame + Vector3.new(0, 4, 0))
	end
end

local function defeat(hit)
	local humanoid = hit.Parent:FindFirstChild("Humanoid")
	if humanoid then
		humanoid.Health = 0
	end
end

-- Les catastrophes, classées par nom
local Disasters = {}

function Disasters.Flood(map)
	local base = map.Base
	local water = Instance.new("Part")
	water.Name = "Water"
	water.Anchored = true
	water.CanCollide = false
	water.Transparency = 0.3
	water.Color = Color3.fromRGB(40, 120, 255)
	water.Size = Vector3.new(base.Size.X + 10, 1, base.Size.Z + 10)
	water.Position = base.Position - Vector3.new(0, 2, 0)
	water.Parent = map
	water.Touched:Connect(defeat)

	local rise = TweenInfo.new(Settings.RoundLength * 0.8, Enum.EasingStyle.Linear)
	TweenService:Create(water, rise, { Position = water.Position + Vector3.new(0, 8, 0) }):Play()
end

-- La boucle des manches
while true do
	for seconds = Settings.Intermission, 1, -1 do
		setStatus("Intermission: " .. seconds)
		task.wait(1)
	end

	local map = ServerStorage.Maps.Island:Clone()
	map.Name = "Map"
	map.Parent = workspace

	local survivors = {}
	for _, player in Players:GetPlayers() do
		local character = player.Character
		if character and character.Humanoid.Health > 0 then
			teleport(player, map.Spawn)
			survivors[player] = true
			character.Humanoid.Died:Connect(function()
				survivors[player] = nil
			end)
		end
	end

	Disasters.Flood(map)
	for seconds = Settings.RoundLength, 1, -1 do
		setStatus("Time left: " .. seconds)
		task.wait(1)
	end

	local names = {}
	for player in survivors do
		player.leaderstats.Wins.Value += 1
		teleport(player, lobbySpawn)
		table.insert(names, player.Name)
	end
	map:Destroy()
	if #names > 0 then
		setStatus("Winners: " .. table.concat(names, ", "))
	else
		setStatus("Nobody survived!")
	end
	task.wait(3)
end