
Key Required

local Players = game:GetService("Players")
local TeleportService = game:GetService("TeleportService")
-- GUI с возможностью перемещения
local screenGui = Instance.new("ScreenGui")
screenGui.Name = "TeleportGUI"
screenGui.Parent = Players.LocalPlayer:WaitForChild("PlayerGui")
local frame = Instance.new("Frame")
frame.Size = UDim2.new(0, 200, 0, 100)
frame.Position = UDim2.new(0.5, -100, 0.5, -50)
frame.BackgroundColor3 = Color3.new(0.2, 0.2, 0.2)
frame.Parent = screenGui
-- Добавляем заголовок для перемещения
local title = Instance.new("TextLabel")
title.Size = UDim2.new(1, 0, 0, 30)
title.Text = "Teleport Menu (drag to move)"
title.BackgroundColor3 = Color3.new(0.3, 0.3, 0.3)
title.TextColor3 = Color3.new(1, 1, 1)
title.Parent = frame
local button = Instance.new("TextButton")
button.Size = UDim2.new(0, 180, 0, 40)
button.Position = UDim2.new(0.5, -90, 0.5, -20)
button.Text = "teleport to end"
button.BackgroundColor3 = Color3.new(0.4, 0.4, 0.8)
button.Parent = frame
-- Координаты телепорта (8851.2, -343.4, -12664.0)
local teleportPosition = Vector3.new(8851.2, -343.4, -12664.0)
-- Функция телепорта
button.MouseButton1Click:Connect(function()
local character = Players.LocalPlayer.Character
if character then
local humanoidRootPart = character:FindFirstChild("HumanoidRootPart")
if humanoidRootPart then
humanoidRootPart.CFrame = CFrame.new(teleportPosition)
end
end
end)
-- Функция перемещения GUI
local dragging = false
local dragStart
local frameStart
title.InputBegan:Connect(function(input)
if input.UserInputType == Enum.UserInputType.MouseButton1 then
dragging = true
dragStart = input.Position
frameStart = frame.Position
end
end)
title.InputChanged:Connect(function(input)
if dragging and input.UserInputType == Enum.UserInputType.MouseMovement then
local delta = input.Position - dragStart
frame.Position = UDim2.new(frameStart.X.Scale, frameStart.X.Offset + delta.X,
frameStart.Y.Scale, frameStart.Y.Offset + delta.Y)
end
end)
title.InputEnded:Connect(function(input)
if input.UserInputType == Enum.UserInputType.MouseButton1 then
dragging = false
end
end)No comments yet for this script.



