https://youtu.be/VjS5jvRtCnY
wait(1)
local noob = workspace["3dokodedarega"].Model.Noob1.Head
local click = script.Parent.ClickDetector
local kanban = script.Parent.Parent.Parent.Parent.kanban.SurfaceGui.TextLabel
local itsu = {
"今日",
"昨日",
"明日",
"一年後"
}
local dokode = {
"学校で",
"南極で",
"海で",
"山で",
"裁判所で",
"トイレで",
}
local darega = {
"先生が",
"ペンギンが",
"私が",
"国民的スターが",
"ゴマちゃんが"
}
local nanishita = {
"くしゃみした",
"死を覚悟した",
"ウソを暴いた",
"歯を抜いた",
"昼寝した",
"狩りをした",
"魚を食べた"
}
kanban.Text = "全部で"..#itsu*#dokode*#darega*#nanishita.."通りの結果！" --それぞれの答えの数をかけ、何通りになるか計算。それをkanbanのTextに書き込む。
local function gamestart () --クリックされたときに実行されるものの内容。
click.MaxActivationDistance = 0 --連打を防ぐため、一時的にクリックできないようにする。
local itsu1 = itsu[math.random(1,#itsu)] --itsuの答えの中から一つをランダムに選ぶ
local dokode1 = dokode[math.random(1,#dokode)]
local darega1 = darega[math.random(1,#darega)]
local nanishita1 = nanishita[math.random(1,#nanishita)]
local iukoto = itsu1.." "..dokode1.." "..darega1.." "..nanishita1 --ランダムに選んだ文を一つの文にまとめる。スペースを入れて読みやすくする。
game:GetService("Chat"):Chat(noob,iukoto) --noobにiukotoをしゃべらせる
click.MaxActivationDistance = 32 --押せるように元に戻す。
end
click.MouseClick:Connect(gamestart) --クリックされたときにgamestartを実行。