local plugin = PluginManager():CreatePlugin()
local initiated = false

local HttpService = game:GetService "HttpService"
HttpService.HttpEnabled = true

local function initiate()
	if initiated then
		return
	end
	initiated = true

	print "Initiating network server for Mercury Sync."
	print "Hosting servers is not possible after opening Mercury Sync! Please restart Studio to host servers again."

	game:GetService("NetworkServer"):Start()
end

local toolbar = plugin:CreateToolbar "Mercury Sync"

local buttons = {
	toolbar:CreateButton(
		"", -- The text next to the icon. Leave this blank if the icon is sufficient.
		"Sync!", -- hover text
		"icon.png" -- The icon file's name. Make sure you change it to your own icon file's name!
	),
}

local Fusion = LoadLibrary "RbxFusion"

local New = Fusion.New
local Children = Fusion.Children
local Value = Fusion.Value
local Spring = Fusion.Spring
-- local Tween = Fusion.Tween
-- local TweenInfo = Fusion.TweenInfo
local Observer = Fusion.Observer
local peek = Fusion.peek

local g
local notifications = {}

local WIDTH = 250

-- the gui is removed when there are no notifications,
-- to prevent remaining in StarterGui
local function gui()
	if not g then
		g = New "ScreenGui" {
			Name = "Mercury Sync",
			Parent = game.StarterGui,

			[Children] = New "Frame" {
				Name = "Notifications",
				BackgroundColor3 = Color3.new(0, 0, 0),
				BackgroundTransparency = 1,
				Position = UDim2.new(0, 0, 0, 0),
				Size = UDim2.new(0, WIDTH, 1, 0),
			},
		}

		local conn, destroyed
		conn = g.Notifications.DescendantRemoving:connect(function()
			wait(1)
			if not destroyed and #g.Notifications:GetChildren() == 0 then
				g:Destroy()
				g = nil
				notifications = {}
				destroyed = true
				conn:disconnect()
			end
		end)
	end

	return g
end

local idCount = 0
local nCount = 0

local function notify(text, willUpdate)
	nCount = nCount + 1
	idCount = idCount + 1
	local id = idCount

	local position = Value(UDim2.new(0, -WIDTH, 0, 60 * nCount - 50))
	local transparency = Value(0)
	local textValue = Value(text)
	local textChanged
	local arrowRotation = Value(0)
	local done = Value(not willUpdate)
	local background = Value(Color3.new())
	local backgroundSpring = Spring(background, 4)
	local start = tick()

	local disconn = function() end

	if willUpdate then
		textChanged = Observer(textValue)
		disconn = textChanged:onChange(function()
			if tick() - start > 0.5 then -- don't change color if it's just appearing
				backgroundSpring:setPosition(Color3.new(0.4, 0.4, 0.4))
			end
		end)
	end

	local t = New "Frame" {
		Name = "Notification",
		Parent = gui().Notifications,
		BackgroundColor3 = backgroundSpring,
		BackgroundTransparency = Spring(transparency, 15),
		BorderSizePixel = 0,
		Position = Spring(position, 15),
		Size = UDim2.new(1, 0, 0, 50),

		[Children] = {
			New "ImageLabel" {
				Name = "InnerIcon",
				Image = "rbxasset://../../../Plugins/TestPlugin/innerIcon.png",
				BackgroundTransparency = 1,
				Position = UDim2.new(0, 5, 0, 5),
				Size = UDim2.new(0, 40, 0, 40),
			},
			New "ImageLabel" {
				Name = "OuterIcon",
				Image = "rbxasset://../../../Plugins/TestPlugin/outerIcon.png",
				BackgroundTransparency = 1,
				Position = UDim2.new(0, 5, 0, 5),
				Rotation = Spring(arrowRotation),
				Size = UDim2.new(0, 40, 0, 40),
			},
			New "TextLabel" {
				Position = UDim2.new(0, 50, 0, 0),
				Size = UDim2.new(1, -60, 1, 0),
				BackgroundTransparency = 1,
				Text = textValue,
				TextWrapped = true,
				TextColor3 = Color3.new(1, 1, 1),
				Font = Enum.Font.SourceSans,
				FontSize = Enum.FontSize.Size18,
				TextXAlignment = Enum.TextXAlignment.Center,
				TextYAlignment = Enum.TextYAlignment.Center,
			},
		},
	}

	Spawn(function()
		local tbl = {
			obj = t,
			pos = position,
		}

		notifications[id] = tbl

		position:set(peek(position) + UDim2.new(0, WIDTH, 0, 0))
		transparency:set(0.5)

		repeat
			wait(1)
		until peek(done)

		wait(3)

		position:set(UDim2.new(0, 0, 0, -60))
		transparency:set(1)

		notifications[id] = nil
		nCount = nCount - 1

		for _, v in pairs(notifications) do
			if peek(v.pos).Y.Offset > peek(position).Y.Offset then
				v.pos:set(peek(v.pos) - UDim2.new(0, 0, 0, 60))
			end
		end

		wait(1)
		disconn()
		t:Destroy()
	end)

	if willUpdate then
		return {
			text = textValue,
			arrowRotation = arrowRotation,
			done = done,
		}
	end
	return
end

local function makeScript(s) -- because no continue
	local path = s.path -- { "ServerScriptService", "script" }
	local content = s.content
	local filetype = s.type

	local obj = game
	local ok, err = pcall(function()
		for i = 1, #path - 1 do
			obj = obj:FindFirstChild(path[i])
			if not obj then
				local folder = Instance.new "Model"
				folder.Name = path[i]
				folder.Parent = obj
				obj = folder
			end
		end
	end)
	if not ok then
		notify(
			"Failed to sync "
				.. table.concat(path, ".")
				.. "! Is the path correct?"
		)
		print("Failed to sync:", err)
		return
	end

	local name = path[#path]
	local existingObj = obj:FindFirstChild(name)
	if existingObj then
		if existingObj:IsA "Script" then
			local ok2, err2 = pcall(function()
				existingObj.Source = content
			end)
			if not ok2 then
				notify(
					"Failed to sync "
						.. table.concat(path, ".")
						.. " to an existing file!"
				)
				print("Failed to sync to existing:", err2)
				return
			end
		else
			notify(
				"Object already exists at path "
					.. table.concat(path, ".")
					.. "! Please remove it and try again."
			)
			return
		end
	else
		local createScript

		if filetype == "server" then
			createScript = Instance.new "Script"
		elseif filetype == "client" then
			createScript = Instance.new "LocalScript"
		else
			return
		end

		print("Name", name)
		print("Content", content, type(content))

		if type(content) == "table" then
			for i, v in pairs(content) do
				print(i, v)
			end
		end

		local ok2, err2 = pcall(function()
			createScript.Name = name
			createScript.Source = content
			createScript.Parent = obj
		end)
		if not ok2 then
			notify(
				"Failed to write "
					.. table.concat(path, ".")
					.. "! Is the content valid?"
			)
			print("Failed to write:", err2)
			return
		end
	end
end

local debounce

buttons[1].Click:connect(function()
	if debounce then
		return
	end
	debounce = true
	initiate()

	local n = notify("Syncing...", true)

	Spawn(function()
		while not peek(n.done) do
			n.arrowRotation:set(peek(n.arrowRotation) + 180)
			wait(0.9)
		end
	end)

	Spawn(function()
		local ok, res = ypcall(function()
			return HttpService:GetAsync(
				"http://localhost:2013/sync?" .. tick() * 10000
				-- nocache parameter doesn't work
			)
		end)

		local function finish()
			n.done:set(true)
			wait(0.05)
			debounce = false
		end

		if not ok then
			n.text:set "Failed to sync! Is Mercury Sync Server running?"
			finish()
			return
		end

		n.text:set "Decoding..."
		local json = HttpService:JSONDecode(res) -- { files }

		if not json.files or json.files == "null" then
			n.text:set "No files to sync!"
			finish()
			return
		end
		n.text:set "Applying..."

		for _, v in pairs(json.files) do -- { path, content, type }
			makeScript(v)
		end

		n.text:set "Successfully synchronised!"

		finish()
	end)
end)