--- 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
SpeakerValue = game.ReplicatedStorage.Message.SpeakerName
PlayerImageValue = game.ReplicatedStorage.Message.PlayerImage
PlayerNameValue = game.ReplicatedStorage.Message.PlayerName
HideDialogueEvent = game.ReplicatedStorage.Message.HideDialogueEvent

-- randomPlayer or NPC

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.HeadShot, 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)
	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
end

function HideCastMessage()
	HideDialogueEvent:FireAllClients()
end

function SetMessagePlayer(Name)
	if Name == "Random" then
		randomPlayer = game.Players:GetChildren()[math.random(1,#game.Players:GetChildren())]
		Name = randomPlayer.Name
	end
	PlayerImageValue.Value = PlayerImages[Name]
	PlayerNameValue.Value = Name
end

function SetMessageSpeaker(Name, Model)
	ImageValue.Value = Model
	SpeakerValue.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

function TransitionScreen()
	for _, player in pairs(game.Players:GetPlayers()) do
		spawn(function()
			local NewGui = game.ServerStorage.Assets.TransitionScreen:Clone()
			NewGui.Parent = player.PlayerGui
		end)
	end
end

--- MainScript ---