Lluvia de meteoritos

Lección 12 de 20 del curso Juego de Roblox: Supervivencia ante desastres de Coddy.

El segundo desastre deja caer un meteorito en llamas cada medio segundo durante toda la ronda. Un bucle que espera retrasaría la cuenta regresiva de la ronda, así que se ejecuta al mismo tiempo que ella con task.spawn:

task.spawn(function()
	while map.Parent do
		-- deja caer un meteorito
		task.wait(0.5)
	end
end)

while map.Parent do se detiene por sí solo: cuando la ronda destruye el mapa, su Parent pasa a ser nil. Cada meteorito aterriza en un lugar aleatorio, a math.random(-15, 15) studs del centro de la isla, y Debris:AddItem(meteor, 4) lo elimina 4 segundos después para que no se acumulen.

Por ahora, la ronda lanza meteoritos en lugar de la inundación. La lección 13 le permitirá elegir.

Desafío

Intermedio

Añade una lluvia de meteoritos.

Obtén el servicio Debris al principio.
Escribe Disasters.Meteors(map): dentro de un task.spawn, crea un bucle while map.Parent do, con task.wait(0.5) en cada iteración.
En cada iteración, crea en el mapa una esfera sin anclar de 3 por 3 por 3 llamada Meteor, a 40 studs de altura y a menos de 15 studs de map.Base; el evento Touched elimina al jugador; Debris:AddItem(meteor, 4).
Llámala en lugar de Disasters.Flood(map).

Pulsa «Jugar»: los meteoritos llueven sobre la isla durante toda la ronda. Después, pulsa «Comprobar».

Pruébalo tú mismo

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")

-- Cada jugador obtiene Wins en la tabla de clasificación
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)

-- El panel de estado en la sala de espera
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

-- Los desastres, por nombre
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

-- Lección 12: Meteor Shower va aquí

-- El bucle de rondas
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