Advertisement
Guest User

Untitled

a guest
Oct 17th, 2019
114
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.81 KB | None | 0 0
  1. local finder = Instance.new("ScreenGui")
  2. local Main = Instance.new("Frame")
  3. local nameofgui = Instance.new("TextLabel")
  4. local random = Instance.new("TextLabel")
  5. local cl = Instance.new("TextLabel")
  6. local border = Instance.new("TextLabel")
  7. local copy = Instance.new("TextButton")
  8.  
  9. finder.Name = "finder"
  10. finder.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")
  11. finder.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
  12. finder.ResetOnSpawn = false
  13.  
  14. Main.Name = "Main"
  15. Main.Parent = finder
  16. Main.BackgroundColor3 = Color3.new(0.196078, 0.196078, 0.196078)
  17. Main.Position = UDim2.new(0.460674137, 0, 0.360557795, 0)
  18. Main.Size = UDim2.new(0, 254, 0, 192)
  19.  
  20. nameofgui.Name = "nameofgui"
  21. nameofgui.Parent = Main
  22. nameofgui.BackgroundColor3 = Color3.new(1, 1, 1)
  23. nameofgui.BackgroundTransparency = 1
  24. nameofgui.Size = UDim2.new(0, 254, 0, 26)
  25. nameofgui.Font = Enum.Font.SourceSans
  26. nameofgui.Text = "Location Finder"
  27. nameofgui.TextColor3 = Color3.new(1, 1, 1)
  28. nameofgui.TextSize = 20
  29.  
  30. random.Name = "random"
  31. random.Parent = Main
  32. random.BackgroundColor3 = Color3.new(1, 1, 1)
  33. random.BackgroundTransparency = 1
  34. random.Position = UDim2.new(0.106299214, 0, 0.197916672, 0)
  35. random.Size = UDim2.new(0, 200, 0, 37)
  36. random.Font = Enum.Font.SourceSans
  37. random.Text = "Your current location is "
  38. random.TextColor3 = Color3.new(1, 1, 1)
  39. random.TextSize = 18
  40.  
  41. cl.Name = "cl"
  42. cl.Parent = Main
  43. cl.BackgroundColor3 = Color3.new(1, 1, 1)
  44. cl.BackgroundTransparency = 1
  45. cl.Position = UDim2.new(0.106299214, 0, 0.39062503, 0)
  46. cl.Size = UDim2.new(0, 200, 0, 36)
  47. cl.Font = Enum.Font.SourceSans
  48. cl.TextColor3 = Color3.new(1, 1, 1)
  49. cl.TextSize = 18
  50.  
  51.  
  52.  
  53. border.Name = "border"
  54. border.Parent = Main
  55. border.BackgroundColor3 = Color3.new(1, 1, 1)
  56. border.Position = UDim2.new(0, 0, 0.114583336, 0)
  57. border.Size = UDim2.new(0, 254, 0, 4)
  58. border.Font = Enum.Font.SourceSans
  59. border.Text = ""
  60. border.TextColor3 = Color3.new(0, 0, 0)
  61. border.TextSize = 14
  62.  
  63. copy.Name = "copy"
  64. copy.Parent = Main
  65. copy.BackgroundColor3 = Color3.new(1, 1, 1)
  66. copy.Position = UDim2.new(0.106299214, 0, 0.666666687, 0)
  67. copy.Size = UDim2.new(0, 200, 0, 31)
  68. copy.Font = Enum.Font.SourceSans
  69. copy.Text = "Copy to clipboard"
  70. copy.TextColor3 = Color3.new(0, 0, 0)
  71. copy.TextSize = 20
  72. copy.MouseButton1Click:connect(function()
  73. setclipboard(cl.Text)
  74. end)
  75.  
  76. local isHidden = false
  77. local mause = game.Players.LocalPlayer:GetMouse()
  78.  
  79. do
  80. local mouse = game:GetService("Players").LocalPlayer:GetMouse();
  81. local inputService = game:GetService('UserInputService');
  82. local heartbeat = game:GetService("RunService").Heartbeat;
  83. function Draggable(frame)
  84. local s, event = pcall(function()
  85. return frame.MouseEnter
  86. end)
  87. if s then
  88. frame.Active = true;
  89. event:connect(function()
  90. local input = frame.InputBegan:connect(function(key)
  91. if key.UserInputType == Enum.UserInputType.MouseButton1 then
  92. local objectPosition = Vector2.new(mouse.X - frame.AbsolutePosition.X, mouse.Y - frame.AbsolutePosition.Y);
  93. while heartbeat:wait() and inputService:IsMouseButtonPressed(Enum.UserInputType.MouseButton1) do
  94. frame:TweenPosition(UDim2.new(0, mouse.X - objectPosition.X + (frame.Size.X.Offset * frame.AnchorPoint.X), 0, mouse.Y - objectPosition.Y + (frame.Size.Y.Offset * frame.AnchorPoint.Y)), 'Out', 'Quad', 0.1, true);
  95. end
  96. end
  97. end)
  98. local leave;
  99. leave = frame.MouseLeave:connect(function()
  100. input:disconnect();
  101. leave:disconnect();
  102. end)
  103. end)
  104. end
  105. end
  106. end
  107.  
  108. Draggable(Main)
  109.  
  110. mause.KeyDown:connect(function(key)
  111. if key == ";" then
  112. if isHidden == false then
  113. Main:TweenPosition(Main.Position - UDim2.new(0,0,1,0),"Out","Quad",0.4,false)
  114. isHidden = true
  115. else
  116. Main:TweenPosition(Main.Position + UDim2.new(0,0,1,0),"Out","Quad",0.4,false)
  117. isHidden = false
  118. end
  119. end
  120. end)
  121.  
  122.  
  123. while true do
  124. wait()
  125. cl.Text = tostring(game.Players.LocalPlayer.Character.HumanoidRootPart.Position)
  126. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement