2013/luau/48488398.luau

-- CoreGui.MercuryGui.CoreScripts/NotificationScript
print "[Mercury]: Loaded corescript 48488398"

local GuiService = game:GetService "GuiService"
local TeleportService = game:GetService "TeleportService"

local function waitForProperty(instance, property)
	while not instance[property] do
		instance.Changed:wait()
	end
end
local function waitForChild(instance, name)
	while not instance:FindFirstChild(name) do
		instance.ChildAdded:wait()
	end
end

waitForProperty(game.Players, "LocalPlayer")
waitForChild(script.Parent, "Popup")
waitForChild(script.Parent.Popup, "AcceptButton")
script.Parent.Popup.AcceptButton.Modal = true

local localPlayer = game.Players.LocalPlayer
local teleportUI

local friendRequestBlacklist = {}

local teleportEnabled = true

local function makePopupInvisible()
	if script.Parent.Popup then
		script.Parent.Popup.Visible = false
	end
end

local function showOneButton()
	local popup = script.Parent:FindFirstChild "Popup"
	if popup then
		popup.OKButton.Visible = true
		popup.DeclineButton.Visible = false
		popup.AcceptButton.Visible = false
	end
end

local function showTwoButtons()
	local popup = script.Parent:FindFirstChild "Popup"
	if popup then
		popup.OKButton.Visible = false
		popup.DeclineButton.Visible = true
		popup.AcceptButton.Visible = true
	end
end

local function makeFriend(fromPlayer, toPlayer)
	local popup = script.Parent:FindFirstChild "Popup"
	if
		popup == nil -- there is no popup!
		or popup.Visible -- currently popping something, abort!
		or friendRequestBlacklist[fromPlayer] -- previously cancelled friend request, we don't want it!
	then
		return
	end

	popup.PopupText.Text = `Accept Friend Request from {fromPlayer.Name}?`
	popup.PopupImage.Image =
		`http://banland.xyz/thumbs/avatar.ashx?userId={fromPlayer.userId}&x=352&y=352`

	showTwoButtons()
	popup.Visible = true
	popup.AcceptButton.Text = "Accept"
	popup.DeclineButton.Text = "Decline"
	popup:TweenSize(
		UDim2.new(0, 330, 0, 350),
		Enum.EasingDirection.Out,
		Enum.EasingStyle.Quart,
		1,
		true
	)

	local yesCon, noCon

	yesCon = popup.AcceptButton.MouseButton1Click:connect(function()
		popup.Visible = false
		toPlayer:RequestFriendship(fromPlayer)
		if yesCon then
			yesCon:disconnect()
		end
		if noCon then
			noCon:disconnect()
		end
		popup:TweenSize(
			UDim2.new(0, 0, 0, 0),
			Enum.EasingDirection.Out,
			Enum.EasingStyle.Quart,
			1,
			true,
			makePopupInvisible()
		)
	end)

	noCon = popup.DeclineButton.MouseButton1Click:connect(function()
		popup.Visible = false
		toPlayer:RevokeFriendship(fromPlayer)
		friendRequestBlacklist[fromPlayer] = true
		print "pop up blacklist"
		if yesCon then
			yesCon:disconnect()
		end
		if noCon then
			noCon:disconnect()
		end
		popup:TweenSize(
			UDim2.new(0, 0, 0, 0),
			Enum.EasingDirection.Out,
			Enum.EasingStyle.Quart,
			1,
			true,
			makePopupInvisible()
		)
	end)
end

game.Players.FriendRequestEvent:connect(function(fromPlayer, toPlayer, event)
	-- if this doesn't involve me, then do nothing
	if fromPlayer ~= localPlayer and toPlayer ~= localPlayer then
		return
	elseif fromPlayer == localPlayer then
		if event == Enum.FriendRequestEvent.Accept then
			GuiService:SendNotification(
				"You are Friends",
				`With {toPlayer.Name}!`,
				`http://banland.xyz/thumbs/avatar.ashx?userId={toPlayer.userId}&x=48&y=48`,
				5,
				function() end
			)
		end
	elseif toPlayer == localPlayer then
		if event == Enum.FriendRequestEvent.Issue then
			if friendRequestBlacklist[fromPlayer] then
				return
			end -- previously cancelled friend request, we don't want it!
			GuiService:SendNotification(
				"Friend Request",
				`From {fromPlayer.Name}`,
				`http://banland.xyz/thumbs/avatar.ashx?userId={fromPlayer.userId}&x=48&y=48`,
				8,
				function()
					makeFriend(fromPlayer, toPlayer)
				end
			)
		elseif event == Enum.FriendRequestEvent.Accept then
			GuiService:SendNotification(
				"You are Friends",
				`With {fromPlayer.Name}!`,
				`http://banland.xyz/thumbs/avatar.ashx?userId={fromPlayer.userId}&x=48&y=48`,
				5,
				function() end
			)
		end
	end
end)

local function showTeleportUI(message, timer)
	if teleportUI ~= nil then
		teleportUI:Remove()
	end
	waitForChild(localPlayer, "PlayerGui")
	teleportUI = Instance.new "Message"
	teleportUI.Text = message
	teleportUI.Parent = localPlayer.PlayerGui
	if timer > 0 then
		wait(timer)
		teleportUI:Remove()
	end
end

local function onTeleport(teleportState)
	if TeleportService.CustomizedTeleportUI == false then
		if teleportState == Enum.TeleportState.Started then
			showTeleportUI("Teleport started...", 0)
		elseif teleportState == Enum.TeleportState.WaitingForServer then
			showTeleportUI("Requesting server...", 0)
		elseif teleportState == Enum.TeleportState.InProgress then
			showTeleportUI("Teleporting...", 0)
		elseif teleportState == Enum.TeleportState.Failed then
			showTeleportUI(
				"Teleport failed. Insufficient privileges or target place does not exist.",
				3
			)
		end
	end
end

if teleportEnabled then
	localPlayer.OnTeleport:connect(onTeleport)

	function TeleportService.ErrorCallback(message)
		local popup = script.Parent:FindFirstChild "Popup"
		showOneButton()
		popup.PopupText.Text = message
		local clickCon
		clickCon = popup.OKButton.MouseButton1Click:connect(function()
			TeleportService:TeleportCancel()
			if clickCon then
				clickCon:disconnect()
			end
			game.GuiService:RemoveCenterDialog(
				script.Parent:FindFirstChild "Popup"
			)
			popup:TweenSize(
				UDim2.new(0, 0, 0, 0),
				Enum.EasingDirection.Out,
				Enum.EasingStyle.Quart,
				1,
				true,
				makePopupInvisible()
			)
		end)
		game.GuiService:AddCenterDialog(
			script.Parent:FindFirstChild "Popup",
			Enum.CenterDialogType.QuitDialog,
			--ShowFunction
			function()
				showOneButton()
				script.Parent:FindFirstChild("Popup").Visible = true
				popup:TweenSize(
					UDim2.new(0, 330, 0, 350),
					Enum.EasingDirection.Out,
					Enum.EasingStyle.Quart,
					1,
					true
				)
			end,
			--HideFunction
			function()
				popup:TweenSize(
					UDim2.new(0, 0, 0, 0),
					Enum.EasingDirection.Out,
					Enum.EasingStyle.Quart,
					1,
					true,
					makePopupInvisible()
				)
			end
		)
	end
	function TeleportService.ConfirmationCallback(message, placeId, spawnName)
		local popup = script.Parent:FindFirstChild "Popup"
		popup.PopupText.Text = message
		popup.PopupImage.Image = ""

		local yesCon, noCon

		local function killCons()
			if yesCon then
				yesCon:disconnect()
			end
			if noCon then
				noCon:disconnect()
			end
			game.GuiService:RemoveCenterDialog(
				script.Parent:FindFirstChild "Popup"
			)
			popup:TweenSize(
				UDim2.new(0, 0, 0, 0),
				Enum.EasingDirection.Out,
				Enum.EasingStyle.Quart,
				1,
				true,
				makePopupInvisible()
			)
		end

		yesCon = popup.AcceptButton.MouseButton1Click:connect(function()
			killCons()
			local ok, err = pcall(function()
				TeleportService:TeleportImpl(placeId, spawnName)
			end)
			if not ok then
				showOneButton()
				popup.PopupText.Text = err
				local clickCon
				clickCon = popup.OKButton.MouseButton1Click:connect(function()
					if clickCon then
						clickCon:disconnect()
					end
					game.GuiService:RemoveCenterDialog(
						script.Parent:FindFirstChild "Popup"
					)
					popup:TweenSize(
						UDim2.new(0, 0, 0, 0),
						Enum.EasingDirection.Out,
						Enum.EasingStyle.Quart,
						1,
						true,
						makePopupInvisible()
					)
				end)
				game.GuiService:AddCenterDialog(
					script.Parent:FindFirstChild "Popup",
					Enum.CenterDialogType.QuitDialog,
					--ShowFunction
					function()
						showOneButton()
						script.Parent:FindFirstChild("Popup").Visible = true
						popup:TweenSize(
							UDim2.new(0, 330, 0, 350),
							Enum.EasingDirection.Out,
							Enum.EasingStyle.Quart,
							1,
							true
						)
					end,
					--HideFunction
					function()
						popup:TweenSize(
							UDim2.new(0, 0, 0, 0),
							Enum.EasingDirection.Out,
							Enum.EasingStyle.Quart,
							1,
							true,
							makePopupInvisible()
						)
					end
				)
			end
		end)

		noCon = popup.DeclineButton.MouseButton1Click:connect(function()
			killCons()
			pcall(function()
				TeleportService:TeleportCancel()
			end)
		end)

		local centerDialogSuccess = pcall(function()
			game.GuiService:AddCenterDialog(
				script.Parent:FindFirstChild "Popup",
				Enum.CenterDialogType.QuitDialog,
				--ShowFunction
				function()
					showTwoButtons()
					popup.AcceptButton.Text = "Leave"
					popup.DeclineButton.Text = "Stay"
					script.Parent:FindFirstChild("Popup").Visible = true
					popup:TweenSize(
						UDim2.new(0, 330, 0, 350),
						Enum.EasingDirection.Out,
						Enum.EasingStyle.Quart,
						1,
						true
					)
				end,
				--HideFunction
				function()
					popup:TweenSize(
						UDim2.new(0, 0, 0, 0),
						Enum.EasingDirection.Out,
						Enum.EasingStyle.Quart,
						1,
						true,
						makePopupInvisible()
					)
				end
			)
		end)

		if centerDialogSuccess == false then
			script.Parent:FindFirstChild("Popup").Visible = true
			popup.AcceptButton.Text = "Leave"
			popup.DeclineButton.Text = "Stay"
			popup:TweenSize(
				UDim2.new(0, 330, 0, 350),
				Enum.EasingDirection.Out,
				Enum.EasingStyle.Quart,
				1,
				true
			)
		end
		return true
	end
end