NPCが声を出して話す【Robloxスタジオ】Text-to-Speech API 使い方｜話し方・音声選び・日本語は？

-- NPCが一言しゃべる
-- 音声の種類はVOICE_IDで1から10のどれかを配置

local Players = game:GetService("Players")
local ProximityPromptService = game:GetService("ProximityPromptService")
local TextChatService = game:GetService("TextChatService")

-- ===== 表示/音声設定 =====
local DIALOG_EN          = "Welcome! This is Roblok Village."
local VOICE_ID           = "9"       -- "1"〜"10"
local BUBBLE_DURATION_SEC= 8.0       -- ★ 吹き出しの表示秒数
local COOLDOWN_SEC       = 2.0       -- 連打抑制
local TALK_TIMEOUT_SEC   = 20.0      -- 取り逃し用の最大片付けタイムアウト
-- ========================

-- 起動時にバブル設定（クライアントのみ影響）
do
	local cfg = TextChatService:FindFirstChildOfClass("BubbleChatConfiguration")
	if not cfg then
		cfg = Instance.new("BubbleChatConfiguration")
		cfg.Parent = TextChatService
	end
	cfg.BubbleDuration = BUBBLE_DURATION_SEC
	-- 必要なら下も調整可能（コメント解除して使う）
	-- cfg.MaxBubbles = 1
	-- cfg.MaxDistance = 100
	-- cfg.TailVisible = true
end

-- 出力デバイスを使い回し
local deviceOutput: AudioDeviceOutput?
local function getDeviceOutput(): AudioDeviceOutput
	if deviceOutput and deviceOutput.Parent then return deviceOutput end
	local out = Instance.new("AudioDeviceOutput")
	out.Name = "LocalDeviceOutput"
	out.Parent = workspace
	deviceOutput = out
	return out
end

-- 吹き出しの付け先（Head優先）
local function pickChatPart(model: Model): BasePart?
	if model.PrimaryPart and model.PrimaryPart:IsA("BasePart") then return model.PrimaryPart end
	local head = model:FindFirstChild("Head")
	if head and head:IsA("BasePart") then return head end
	for _, d in ipairs(model:GetDescendants()) do
		if d:IsA("BasePart") then return d end
	end
	return nil
end

-- 失敗時のASCII保険
local function asciiFallback(s: string): string
	local cleaned = s:gsub("[^%w%p%s]", " ")
	cleaned = cleaned:gsub("%s+", " "):gsub("^%s+", ""):gsub("%s+$", "")
	return cleaned ~= "" and cleaned or "Hello there!"
end

-- 安全な片付け
local function safeCleanup(tts: Instance?, wire: Instance?)
	if wire and wire.Parent then pcall(function() wire:Destroy() end) end
	if tts  and tts.Parent  then pcall(function() tts:Destroy()  end) end
end

-- TTS（ピッチ/速度変更なし、喋りきりで片付け）
local function speakTTS(textForTTS: string)
	local tts = Instance.new("AudioTextToSpeech")
	tts.Name = "NPC_TTS"
	tts.Text = textForTTS
	tts.VoiceId = VOICE_ID
	tts.Parent = workspace

	local out = getDeviceOutput()
	local wire = Instance.new("Wire")
	wire.SourceInstance = tts
	wire.TargetInstance = out
	wire.Parent = workspace

	local snd: Sound? = tts:FindFirstChildOfClass("Sound")
	if snd then
		local endedConn: RBXScriptConnection? = nil
		endedConn = snd.Ended:Connect(function()
			if endedConn then endedConn:Disconnect() end
			safeCleanup(tts, wire)
		end)

		task.delay(TALK_TIMEOUT_SEC, function()
			if tts and tts.Parent then
				if endedConn then endedConn:Disconnect() end
				safeCleanup(tts, wire)
			end
		end)

		snd:Play()
	else
		-- 実装差保険
		if (tts :: any).Play then
			(tts :: any):Play()
		elseif (tts :: any).SpeakAsync then
			(tts :: any):SpeakAsync()
		end
		task.delay(TALK_TIMEOUT_SEC, function()
			safeCleanup(tts, wire)
		end)
	end
end

-- 失敗時フォールバック（ASCII化）
local function safeSpeak(text: string)
	local ok = pcall(function() speakTTS(text) end)
	if ok then return end
	speakTTS(asciiFallback(text))
end

-- 近プロの連打クールダウン
local cooldownUntilByPrompt: { [Instance]: number } = {}

ProximityPromptService.PromptTriggered:Connect(function(prompt: ProximityPrompt, who: Player)
	if who ~= Players.LocalPlayer then return end

	local npc = prompt:FindFirstAncestorOfClass("Model")
	if not npc then return end
	if who.Character and npc == who.Character then return end

	local now = os.clock()
	local untilTs = cooldownUntilByPrompt[prompt] or 0
	if now < untilTs then return end
	cooldownUntilByPrompt[prompt] = now + COOLDOWN_SEC

	local part = pickChatPart(npc)
	if not part then return end

	-- 英語の吹き出し（表示8秒）
	TextChatService:DisplayBubble(part, DIALOG_EN)

	-- 英語のTTS
	safeSpeak(DIALOG_EN)
end)