improved video player

local VideoCollection = loadstring(game:GetService("HttpService"):GetAsync("https://glot.io/snippets/gur7rc9dq6/raw/data.lua",true))()
local args = {...}
local ChosenVideo = VideoCollection[args[1]]
local horizontal = ChosenVideo.horizontal
local frames = ChosenVideo.frames
local fps = ChosenVideo.fps

local Main = Instance.new("Part",script)
Main.Anchored = true
Main.Transparency = 0
Main.Size = (not horizontal and Vector3.new(6.6, 14.031, 0.096) or Vector3.new(18.3, 10.831, 0.096))
Main.CFrame = owner.Character.HumanoidRootPart.CFrame * CFrame.new(0,5,-5) * CFrame.Angles(0,math.rad(180),0)

local Surface = Instance.new("SurfaceGui",Main)
local PrimaryFrame = Instance.new("Frame",Surface)
PrimaryFrame.ClipsDescendants = true
PrimaryFrame.BackgroundTransparency = 1
PrimaryFrame.Size = UDim2.fromScale(1, 1)
PrimaryFrame.AnchorPoint = Vector2.one*.5
PrimaryFrame.Position = UDim2.fromScale(.5, .5)

local Configuration = {
	framerate = fps;
	currentInfo = nil;
	currentFrame = 0;
	absoluteTotal = 0;
	currentImage = nil;
	atFrame = 0;
	infoNumber = 0;
}

local function preload(id)
	local id = id
	if type(id) == string then
		id = {id}
	end
	game:GetService("ContentProvider"):PreloadAsync(id,function(id,assetfetchstatus)
		if assetfetchstatus == Enum.AssetFetchStatus.Success then
			print(`Preloaded {id}.`)
		else
			task.spawn(warn,`Preloading of {id} failed.`)
		end
	end)
end

local toLoad = {}

for i,v in frames do
	Configuration.absoluteTotal+=v.Frames
	toLoad[i] = `rbxassetid://{v.Id}`
end

preload(toLoad)

local Audio = Instance.new("Sound",Main)
local CurrentAudioSegment = 1
local Audios = ChosenVideo.audios
local AudioSpeeds = ChosenVideo.audioSpeeds
local TimePosition = 0

Audio.Volume = 5
Audio.SoundId = "rbxassetid://"..Audios[CurrentAudioSegment]
Audio.PlaybackSpeed = (typeof(AudioSpeeds) == "table" and AudioSpeeds[1] or AudioSpeeds)
Audio:Play()

Audio.Ended:Connect(function()
	CurrentAudioSegment = (CurrentAudioSegment == #Audios and 1 or CurrentAudioSegment+1)
	if typeof(audioSpeeds) == "table" then
		if audioSpeeds[CurrentAudioSegment] then
			Audio.PlaybackSpeed = AudioSpeeds[CurrentAudioSegment]
		else
			Audio.PlaybackSpeed = 1
		end
	elseif typeof(audioSpeeds) == "number" then
		Audio.PlaybackSpeed = audioSpeeds
	end
	Configuration.currentFrame = 0
	TimePosition = 0
	warn("_Sound has ended. Now heading to the next segment.")
	Audio.SoundId = "rbxassetid://"..Audios[CurrentAudioSegment]
	Audio.PlaybackSpeed = (typeof(AudioSpeeds) == "table" and AudioSpeeds[1] or AudioSpeeds)
	Audio:Play()
end)

local sync = false
local sync1 = false

local duration = Configuration.absoluteTotal / Configuration.framerate

local r1 = duration / Configuration.absoluteTotal
local r2 = r1 * Configuration.currentFrame
local tp = r2 * Audio.PlaybackSpeed

game:GetService("RunService").Heartbeat:connect(function()
	if sync == true then
		sync = false
		sync1 = true

		coroutine.wrap(function()
			Audio.TimePosition = 0
			Audio.TimePosition = tp + task.wait()
		end)()

		sync1 = false
	end
end)

local function create(data)
	if Configuration.infoNumber + 1 > #frames then
		Configuration.infoNumber = 0
		PrimaryFrame:ClearAllChildren()
	end
	pcall(game.Destroy,Configuration.currentImage)
	Configuration.infoNumber+=1
	Configuration.currentInfo = data
	Configuration.atFrame = 1

	local Image = Instance.new("ImageLabel", PrimaryFrame)
	Image.BackgroundTransparency = 1
	Image.Size = UDim2.new(data.Columns, 0, data.Rows, 0)
	Image.Position = UDim2.new(.5, 0, .5, 0)
	Image.Image = `rbxassetid://{data.Id}`

	Configuration.currentImage = Image
end

create(frames[Configuration.infoNumber])

local currentTimer = 0
local stillRunningTask = false

owner.Chatted:Connect(function(v)
	if v:sub(1,5) == "-sync" then
		sync = true
	end
end)

game:GetService("Players").PlayerAdded:Connect(function(v)
	v.CharacterAdded:Once(function()
		sync = true
	end)
end)

local gabrgaeeeee = os.clock()
game:GetService("RunService").PostSimulation:Connect(function(DeltaTime)
	--if stillRunningTask then return end
	--stillRunningTask = true

	currentTimer+=DeltaTime
	local framerategarbage = (1/Configuration.framerate)

	if os.clock() - gabrgaeeeee >= framerategarbage then
		currentTimer = 0
		gabrgaeeeee = os.clock()

		Configuration.currentFrame+=1
		local data = Configuration.currentInfo
		Configuration.atFrame = (Configuration.atFrame + 1 > data.Frames and create(frames[Configuration.infoNumber]) or Configuration.atFrame+1)

		local currentRow = 1
		local currentColumn = Configuration.atFrame

		--repeat
		if currentColumn > data.Columns then
			currentRow += 1
			currentColumn -= data.Columns
		end
		--	until not (currentColumn > data.Columns)

		Configuration.currentImage.Position = UDim2.new(-(currentColumn - 1), 0, -(currentRow - 1), 0)

		r1 = duration / Configuration.absoluteTotal
		r2 = r1 * Configuration.currentFrame
		tp = r2 * Audio.PlaybackSpeed

		if math.abs(Audio.TimePosition - tp) >= .15 then
			Audio.TimePosition = tp
		end
	end
	--	stillRunningTask = false
end)