--- Sungmingamerpro13

-- Services
PlayerService = game:GetService('Players')
TweenService = game:GetService('TweenService')

-- Variables
DefaultMessageDelayTime = 4
LetterInvertal = 0.05
MessageWaitSigns = {',', '?', '.'}
MessageWaitSignDelay = 1

MessageValue = game.ReplicatedStorage.Message
ImageValue = game.ReplicatedStorage.Message.SpeakerImage
SpeakerNameValue = game.ReplicatedStorage.Message.SpeakerName

-- Setup Player Images

local RandomPlayer

PlayerImages = {}


function MakePlayerImage(Player)
local Image = ''
local Success,Error = pcall(function()
local ID = PlayerService:GetUserIdFromNameAsync(Player.Name)or ''
local PlayerImage, IsReady = PlayerService:GetUserThumbnailAsync(ID, Enum.ThumbnailType.AvatarBust, Enum.ThumbnailSize.Size420x420)
if IsReady == true then
-- Ready to use image
Image = tostring(PlayerImage)
else
-- Use alternative picture
Image = ("http://www.roblox.com/Thumbs/Avatar.ashx?x=100&y=100&Format=Png&username=%s"):format(Player.Name)
end
end)
if Success == true then
-- Successful
else
Image = ("http://www.roblox.com/Thumbs/Avatar.ashx?x=100&y=100&Format=Png&username=%s"):format(Player.Name)
end
PlayerImages[Player.Name] = Image
end


game.Players.PlayerAdded:Connect(function(Player)
MakePlayerImage(Player)
end)
for _, Player in pairs(game.Players:GetChildren()) do
MakePlayerImage(Player) -- This is cause dosent rly activate PlayerAdded event on play testing
end



-- Functions


function BroadcastMessage(Text, MessageDelayTime)
-- This makes the message appear like a typewriter
for i = 1,#Text,1 do
MessageValue.Value = string.sub(Text,1,i)
for _, L in pairs(MessageWaitSigns) do
if string.sub(Text,i,i) == L then
wait(MessageWaitSignDelay)
end
end
wait(LetterInvertal)
end
if tonumber(MessageDelayTime) ~= nil then
wait(MessageDelayTime)
else
wait(DefaultMessageDelayTime)
end
MessageValue.Value = 'None'
return true
end



function SetMessageSpeaker(Name)
if Name == 'Random' then
RandomPlayer = game.Players:GetChildren()[math.random(1,#game.Players:GetChildren())]
Name = RandomPlayer.Name
end
ImageValue.Value = PlayerImages[Name] or 'rbxassetid://0'
SpeakerNameValue.Value = Name
end

function ChangeTime(ToTime, TweenDuration)
local Lightning = game.Lighting
local TI = TweenInfo.new(TweenDuration,Enum.EasingStyle.Linear)
local Tween = TweenService:Create(Lightning, TI, {ClockTime = ToTime})
Tween:Play()
end

function ChangeFogend(ChangeTo, TweenDuration,ColourOrNone)
if ColourOrNone ~= 'None' then
game.Lighting.FogColor = ColourOrNone
end
local FogendValue = Instance.new('IntValue')
FogendValue.Value = game.Lighting.FogEnd
FogendValue:GetPropertyChangedSignal('Value'):Connect(function()
game.Lighting.FogEnd = FogendValue.Value
end)
local TI = TweenInfo.new(TweenDuration,Enum.EasingStyle.Linear)
local Tween = TweenService:Create(FogendValue, TI, {Value = ChangeTo})
Tween:Play()
spawn(function()
Tween.Completed:Connect(function()
FogendValue:Destroy()
end)
end)
end

function teleportPlayers(partCFrame)
local players = game.Players:getPlayers()
for _,player in pairs(players) do
if player.Character then
if player.Character.HumanoidRootPart.Anchored == false then
player.Character.Humanoid.Jump = true
end
end
end
wait(.5)
for _,player in pairs(players) do
if player.Character then
if player.Character.HumanoidRootPart.Anchored == false then
player.Character:SetPrimaryPartCFrame(partCFrame)
end
end
end
end

------------------------ MAIN SCRIPT OF STORY -------------------------------------