増水する洪水

Coddyの「Robloxゲーム：災害サバイバル」コースのレッスン 10/18。

最初の災害の時間です。ゲームにはいくつかの災害があるので、それらを1つのテーブルにまとめ、それぞれマップを受け取る関数にします。テーブルに格納された関数は、ほかの関数と同じように呼び出せます。

local Disasters = {}

function Disasters.Flood(map)
	-- 水を生成して水位を上げる
end

Disasters.Flood(map)

洪水は島の下から始まって上昇する、幅広い青いパーツですが、最上部までは達しません。Islandの岩場やRooftopsの屋根は濡れないので、間に合うようによじ登ったプレイヤーは生き残れます。誰も生き残れない災害では、ゲームになりません。TweenServiceは時間をかけてプロパティを滑らかに変化させます。所要時間をTweenInfoで指定し、目標値を設定して、Playを実行します。

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

水がプレイヤーを支えてはいけないので、CanCollideはfalseにし、Anchoredのままにします。触れた相手を倒す処理は、最初のコースで溶岩が担っていたものと同じです。このゲームではそれにdefeat(hit)という名前を付けます。すべての災害で使うからです。

水をマップの子にします。ラウンド終了時にマップを破棄すると、水も一緒に削除されます。

チャレンジ

中級

洪水を追加します。

先頭でTweenServiceを取得します。
defeat(hit)を記述します。hit.ParentにHumanoidがあれば、そのHealthを0に設定します。
local Disasters = {}とfunction Disasters.Flood(map)を作成します。マップ内にWaterという名前のPartを配置し、Anchoredを有効にし、CanCollideを無効にして、青色で半透明（Transparency 0.3）にします。map.Baseより各方向に10 studs広くし、そこから2 studs下の位置を開始位置にします。触れるとプレイヤーを倒します。Settings.RoundLength * 0.8秒かけて一定の速度（Enum.EasingStyle.Linear）でPositionを8 studs上昇させ、岩の頂上より下で止まるようにします。
プレイヤーをテレポートした直後にDisasters.Flood(map)を呼び出します。

Playを押して、潮の満ちる速さと競争しましょう。スポーン地点の左にある岩を跳び上がります。その後、Checkを押します。

自分で試してみよう

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

local lobbySpawn = workspace.LobbySpawn

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

-- すべてのプレイヤーのリーダーボードにWinsを追加する
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)

-- ロビーにあるステータスボード
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

-- ラウンドを繰り返すループ
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

	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