Video Player

local UserInputService = game:GetService("UserInputService")
local Players = game:GetService("Players")

local success, content = pcall(readfile, "intro.webm")
if not success then
	local data = game:HttpGet("https://raw.githubusercontent.com/gm-scriptblox/Files/main/intro.webm")
	writefile("intro.webm", data)
end

local cloneref = cloneref or function(o) return o end
local coregui = cloneref(game:GetService("CoreGui"))

local screen = Instance.new("ScreenGui", coregui)
screen.Name = "videoGui"
screen.Enabled = true
screen.IgnoreGuiInset = true
screen.ResetOnSpawn = false
screen.DisplayOrder = 0

local frame = Instance.new("Frame", screen)
frame.BorderSizePixel = 0
frame.BackgroundColor3 = Color3.fromRGB(21, 21, 21)
frame.Size = UDim2.new(0, 600, 0, 360)
frame.Position = UDim2.new(0, 118, 0, 22)

local frameCorner = Instance.new("UICorner", frame)

local dragBar = Instance.new("Frame", frame)
dragBar.Size = UDim2.new(1, 0, 0, 30)
dragBar.Position = UDim2.new(0, 0, 0, 0)
dragBar.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
dragBar.BorderSizePixel = 0
dragBar.ZIndex = 10

local dragBarCorner = Instance.new("UICorner", dragBar)
dragBarCorner.CornerRadius = UDim.new(0, 8)

local video = Instance.new("VideoFrame", frame)
video.Name = "video"
video.BorderSizePixel = 0
video.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
video.BackgroundTransparency = 1
video.Size = UDim2.new(0, 588, 0, 314)
video.Position = UDim2.new(0, 6, 0, 36)
video.Playing = true
video.Looped = true
video.Video = getcustomasset("intro.webm")

local videoCorner = Instance.new("UICorner", video)

local dragging = false
local dragInput = nil
local dragStart = nil
local startPos = nil

local function update(input)
	local delta = input.Position - dragStart
	frame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
end

dragBar.InputBegan:Connect(function(input)
	if input.UserInputType == Enum.UserInputType.Touch or input.UserInputType == Enum.UserInputType.MouseButton1 then
		dragging = true
		dragStart = input.Position
		startPos = frame.Position
		input.Changed:Connect(function()
			if input.UserInputState == Enum.UserInputState.End then
				dragging = false
			end
		end)
	end
end)

dragBar.InputChanged:Connect(function(input)
	if input.UserInputType == Enum.UserInputType.Touch or input.UserInputType == Enum.UserInputType.MouseMovement then
		dragInput = input
	end
end)

UserInputService.InputChanged:Connect(function(input)
	if input == dragInput and dragging then
		update(input)
	end
end)