355 lines
9.1 KiB
Lua
355 lines
9.1 KiB
Lua
function waitForProperty(instance, property)
|
|
while not instance[property] do
|
|
instance.Changed:wait()
|
|
end
|
|
end
|
|
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 = nil
|
|
|
|
local friendRequestBlacklist = {}
|
|
|
|
local teleportEnabled = true
|
|
|
|
local makePopupInvisible = function()
|
|
if script.Parent.Popup then
|
|
script.Parent.Popup.Visible = false
|
|
end
|
|
end
|
|
|
|
function makeFriend(fromPlayer, toPlayer)
|
|
local popup = script.Parent:FindFirstChild "Popup"
|
|
if popup == nil then
|
|
return
|
|
end -- there is no popup!
|
|
if popup.Visible then
|
|
return
|
|
end -- currently popping something, abort!
|
|
if friendRequestBlacklist[fromPlayer] then
|
|
return
|
|
end -- previously cancelled friend request, we don't want it!
|
|
|
|
popup.PopupText.Text = "Accept Friend Request from " .. tostring(fromPlayer.Name) .. "?"
|
|
popup.PopupImage.Image = "http://www.roblox.com/thumbs/avatar.ashx?userId="
|
|
.. tostring(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
|
|
end
|
|
|
|
if fromPlayer == localPlayer then
|
|
if event == Enum.FriendRequestEvent.Accept then
|
|
game:GetService("GuiService"):SendNotification(
|
|
"You are Friends",
|
|
"With " .. toPlayer.Name .. "!",
|
|
"http://www.roblox.com/thumbs/avatar.ashx?userId=" .. tostring(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!
|
|
game:GetService("GuiService"):SendNotification(
|
|
"Friend Request",
|
|
"From " .. fromPlayer.Name,
|
|
"http://www.roblox.com/thumbs/avatar.ashx?userId=" .. tostring(fromPlayer.userId) .. "&x=48&y=48",
|
|
8,
|
|
function()
|
|
makeFriend(fromPlayer, toPlayer)
|
|
end
|
|
)
|
|
elseif event == Enum.FriendRequestEvent.Accept then
|
|
game:GetService("GuiService"):SendNotification(
|
|
"You are Friends",
|
|
"With " .. fromPlayer.Name .. "!",
|
|
"http://www.roblox.com/thumbs/avatar.ashx?userId=" .. tostring(fromPlayer.userId) .. "&x=48&y=48",
|
|
5,
|
|
function() end
|
|
)
|
|
end
|
|
end
|
|
end)
|
|
|
|
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
|
|
|
|
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
|
|
|
|
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
|
|
|
|
function onTeleport(teleportState, _, _)
|
|
if game:GetService("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)
|
|
|
|
game:GetService("TeleportService").ErrorCallback = function(message)
|
|
local popup = script.Parent:FindFirstChild "Popup"
|
|
showOneButton()
|
|
popup.PopupText.Text = message
|
|
local clickCon
|
|
clickCon = popup.OKButton.MouseButton1Click:connect(function()
|
|
game:GetService("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
|
|
game:GetService("TeleportService").ConfirmationCallback = function(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 success, err = pcall(function()
|
|
game:GetService("TeleportService"):TeleportImpl(placeId, spawnName)
|
|
end)
|
|
if not success 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()
|
|
game:GetService("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
|