API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 15th, 2015
405
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Asymptote 18.15 KB | None | 0 0
raw download clone embed print report
  1. local name = "ImmenseTechnicality"
  2.  
  3.  
  4.  
  5.  
  6.  
  7. repeat wait() until #Game.Players:GetChildren(
  8.     ) > 0
  9.  
  10. local char = Game.Players:FindFirstChild(name) or (Game.Players:GetChildren(
  11.     )[1].Name:sub(1,6) == "Player" and Game.Players:GetChildren(
  12.         )[1]
  13.             )
  14. if not char then return end
  15. local current = Workspace
  16. local cp = 0
  17. local fontcolor = Color3.new(1,1,1)
  18. local bordercolor = Color3.new(1,0,0)
  19. local backgroundcolor = Color3.new(0,0,0)
  20. local backgroundtrans = .35
  21. local copy = nil
  22. local sP = {
  23. "Name";
  24. "ClassName";
  25. "BrickColor";
  26. "Position"
  27. }
  28.  
  29. local sg = Instance.new("ScreenGui")
  30. sg.Parent = char.PlayerGui
  31.  
  32. local ok = Instance.new("TextButton", sg)
  33. ok.Size = UDim2.new(.6,0,.05,0)
  34. ok.Position = UDim2.new(.2,0,.6,0)
  35. ok.FontSize = "Size18"
  36. ok.Text = "Accept"
  37. ok.TextColor3 = Color3.new(1,1,1)
  38. ok.Style = "RobloxButton"
  39.  
  40. local fontS1 = Instance.new("Frame", sg)
  41. fontS1.Size = UDim2.new(.2,0,.2,0)
  42. fontS1.Style = "RobloxRound"
  43. fontS1.Position = UDim2.new(.2,0,.4,0)
  44. local tb1 = Instance.new("TextLabel", fontS1)
  45. tb1.Text = "Font Color"
  46. tb1.FontSize = "Size12"
  47. tb1.BackgroundTransparency = 1
  48. tb1.TextColor3 = Color3.new(1,1,1)
  49. tb1.Size = UDim2.new(1,0,.25,0)
  50. local r1 = Instance.new("TextBox", fontS1)
  51. r1.Position = UDim2.new(0,0,.25,0)
  52. r1.TextColor3 = Color3.new(1,1,1)
  53. r1.BackgroundTransparency = 1
  54. r1.Size = UDim2.new(.3,0,.25,0)
  55. r1.Text = "0"
  56. local g1 = Instance.new("TextBox", fontS1)
  57. g1.Position = UDim2.new(.3,0,.25,0)
  58. g1.TextColor3 = Color3.new(1,1,1)
  59. g1.BackgroundTransparency = 1
  60. g1.Size = UDim2.new(.3,0,.25,0)
  61. g1.Text = "0"
  62. local b1 = Instance.new("TextBox", fontS1)
  63. b1.Position = UDim2.new(.6,0,.25,0)
  64. b1.TextColor3 = Color3.new(1,1,1)
  65. b1.BackgroundTransparency = 1
  66. b1.Size = UDim2.new(.3,0,.25,0)
  67. b1.Text = "0"
  68. local prev1 = Instance.new("Frame", fontS1)
  69. prev1.Size = UDim2.new(1,0,.5,0)
  70. prev1.Position = UDim2.new(0,0,.5,0)
  71. prev1.BackgroundColor3 = Color3.new(0,0,0)
  72. prev1.BorderColor3 = Color3.new(0,0,0)
  73. r1.Changed:connect(function()
  74.     local color = tonumber(r1.Text) or 0
  75.     prev1.BackgroundColor3 = Color3.new(color, tonumber(g1.Text) or 0, tonumber(b1.Text) or 0)
  76. end)
  77. g1.Changed:connect(function()
  78.     local color = tonumber(g1.Text) or 0
  79.     prev1.BackgroundColor3 = Color3.new(tonumber(r1.Text) or 0, color, tonumber(b1.Text) or 0)
  80. end)
  81. b1.Changed:connect(function()
  82.     local color = tonumber(b1.Text) or 0
  83.     prev1.BackgroundColor3 = Color3.new(tonumber(r1.Text) or 0, tonumber(g1.Text) or 0, color)
  84. end)
  85.  
  86. local FontS2 = Instance.new("Frame", sg)
  87. FontS2.Size = UDim2.new(.2,0,.2,0)
  88. FontS2.Style = "RobloxRound"
  89. FontS2.Position = UDim2.new(.4,0,.4,0)
  90. local tb2 = Instance.new("TextLabel", FontS2)
  91. tb2.Text = "Background Color"
  92. tb2.FontSize = "Size12"
  93. tb2.BackgroundTransparency = 1
  94. tb2.TextColor3 = Color3.new(1,1,1)
  95. tb2.Size = UDim2.new(1,0,.25,0)
  96. local r2 = Instance.new("TextBox", FontS2)
  97. r2.Position = UDim2.new(0,0,.25,0)
  98. r2.TextColor3 = Color3.new(1,1,1)
  99. r2.BackgroundTransparency = 1
  100. r2.Size = UDim2.new(.3,0,.25,0)
  101. r2.Text = "0"
  102. local g2 = Instance.new("TextBox", FontS2)
  103. g2.Position = UDim2.new(.3,0,.25,0)
  104. g2.TextColor3 = Color3.new(1,1,1)
  105. g2.BackgroundTransparency = 1
  106. g2.Size = UDim2.new(.3,0,.25,0)
  107. g2.Text = "0"
  108. local b2 = Instance.new("TextBox", FontS2)
  109. b2.Position = UDim2.new(.6,0,.25,0)
  110. b2.TextColor3 = Color3.new(1,1,1)
  111. b2.BackgroundTransparency = 1
  112. b2.Size = UDim2.new(.3,0,.25,0)
  113. b2.Text = "0"
  114. local prev2 = Instance.new("Frame", FontS2)
  115. prev2.Size = UDim2.new(1,0,.5,0)
  116. prev2.Position = UDim2.new(0,0,.5,0)
  117. prev2.BackgroundColor3 = Color3.new(0,0,0)
  118. prev2.BorderColor3 = Color3.new(0,0,0)
  119. r2.Changed:connect(function()
  120.     local color = tonumber(r2.Text) or 0
  121.     prev2.BackgroundColor3 = Color3.new(color, tonumber(g2.Text) or 0, tonumber(b2.Text) or 0)
  122. end)
  123. g2.Changed:connect(function()
  124.     local color = tonumber(g2.Text) or 0
  125.     prev2.BackgroundColor3 = Color3.new(tonumber(r2.Text) or 0, color, tonumber(b2.Text) or 0)
  126. end)
  127. b2.Changed:connect(function()
  128.     local color = tonumber(b2.Text) or 0
  129.     prev2.BackgroundColor3 = Color3.new(tonumber(r2.Text) or 0, tonumber(g2.Text) or 0, color)
  130. end)
  131.  
  132. local fontS3 = Instance.new("Frame", sg)
  133. fontS3.Size = UDim2.new(.2,0,.2,0)
  134. fontS3.Style = "RobloxRound"
  135. fontS3.Position = UDim2.new(.6,0,.4,0)
  136. local tb3 = Instance.new("TextLabel", fontS3)
  137. tb3.Text = "Border Color"
  138. tb3.FontSize = "Size12"
  139. tb3.BackgroundTransparency = 1
  140. tb3.TextColor3 = Color3.new(1,1,1)
  141. tb3.Size = UDim2.new(1,0,.25,0)
  142. local r3 = Instance.new("TextBox", fontS3)
  143. r3.Position = UDim2.new(0,0,.25,0)
  144. r3.TextColor3 = Color3.new(1,1,1)
  145. r3.BackgroundTransparency = 1
  146. r3.Size = UDim2.new(.3,0,.25,0)
  147. r3.Text = "0"
  148. local g3 = Instance.new("TextBox", fontS3)
  149. g3.Position = UDim2.new(.3,0,.25,0)
  150. g3.TextColor3 = Color3.new(1,1,1)
  151. g3.BackgroundTransparency = 1
  152. g3.Size = UDim2.new(.3,0,.25,0)
  153. g3.Text = "0"
  154. local b3 = Instance.new("TextBox", fontS3)
  155. b3.Position = UDim2.new(.6,0,.25,0)
  156. b3.TextColor3 = Color3.new(1,1,1)
  157. b3.BackgroundTransparency = 1
  158. b3.Size = UDim2.new(.3,0,.25,0)
  159. b3.Text = "0"
  160. local prev3 = Instance.new("Frame", fontS3)
  161. prev3.Size = UDim2.new(1,0,.5,0)
  162. prev3.Position = UDim2.new(0,0,.5,0)
  163. prev3.BackgroundColor3 = Color3.new(0,0,0)
  164. prev3.BorderColor3 = Color3.new(0,0,0)
  165. r3.Changed:connect(function()
  166.     local color = tonumber(r3.Text) or 0
  167.     prev3.BackgroundColor3 = Color3.new(color, tonumber(g3.Text) or 0, tonumber(b3.Text) or 0)
  168. end)
  169. g3.Changed:connect(function()
  170.     local color = tonumber(g3.Text) or 0
  171.     prev3.BackgroundColor3 = Color3.new(tonumber(r3.Text) or 0, color, tonumber(b3.Text) or 0)
  172. end)
  173. b3.Changed:connect(function()
  174.     local color = tonumber(b3.Text) or 0
  175.     prev3.BackgroundColor3 = Color3.new(tonumber(r3.Text) or 0, tonumber(g3.Text) or 0, color)
  176. end)
  177.  
  178. ok.MouseButton1Click:wait()
  179.  
  180. local fontcolor = prev1.BackgroundColor3
  181. local backgroundcolor = prev2.BackgroundColor3
  182. local bordercolor = prev3.BackgroundColor3
  183. fontS1:Destroy()
  184. FontS2:Destroy()
  185. fontS3:Destroy()
  186. ok:Destroy()
  187.  
  188. local fr = Instance.new("Frame", sg)
  189. fr.Style = "RobloxRound"
  190. fr.Size = UDim2.new(.35,0,.5,0)
  191. fr.Position = UDim2.new(0,0,.25,0)
  192.  
  193. local sb = Instance.new("TextButton", sg) -- Scrollbar
  194. local issbDown = false
  195. local sblasty = nil
  196. sb.Size = UDim2.new(.035,0,.5,0)
  197. sb.Position = UDim2.new(.35,0,.25,0)
  198. sb.BackgroundTransparency = backgroundtrans
  199. sb.TextColor3 = fontcolor
  200. sb.BorderColor3 = bordercolor
  201. sb.BackgroundColor3 = backgroundcolor
  202. sb.Text = "="
  203. sb.MouseButton1Down:connect(function()
  204.     issbDown = true
  205. end)
  206. sb.MouseButton1Up:connect(function()
  207.     issbDown = false
  208. end)
  209. sb.MouseLeave:connect(function()
  210.     issbDown = false
  211. end)
  212. sb.MouseEnter:connect(function()
  213.     issbDown = false
  214. end)
  215. sb.MouseMoved:connect(function(x,y)
  216.     if issbDown then
  217.         if not sblasty then sblasty = y end
  218.         if sblasty - y < 0 then
  219.             -- moving up
  220.             for i,v in pairs(fr:GetChildren()) do
  221.                 v.Position = v.Position + UDim2.new(0,0,-.05,0)
  222.                 if v.Position.Y.Scale < .08 then
  223.                     v.BackgroundTransparency = 1
  224.                     v.TextButton.BackgroundTransparency = 1
  225.                     v.TextTransparency = 1
  226.                     v.TextButton.TextTransparency = 1
  227.                 elseif v.Position.Y.Scale >= .95 then
  228.                 else
  229.                     v.BackgroundTransparency = backgroundtrans
  230.                     v.TextButton.BackgroundTransparency = backgroundtrans
  231.                     v.TextTransparency = 0
  232.                     v.TextButton.TextTransparency = 0
  233.                 end
  234.             end
  235.         else
  236.             -- moving down
  237.             for i,v in pairs(fr:GetChildren()) do
  238.                 v.Position = v.Position + UDim2.new(0,0,.05,0)
  239.                 if v.Position.Y.Scale >= .95 then
  240.                     v.BackgroundTransparency = 1
  241.                     v.TextButton.BackgroundTransparency = 1
  242.                     v.TextTransparency = 1
  243.                     v.TextButton.TextTransparency = 1
  244.                 elseif v.Position.Y.Scale < .08 then
  245.                 else
  246.                     v.BackgroundTransparency = backgroundtrans
  247.                     v.TextButton.BackgroundTransparency = backgroundtrans
  248.                     v.TextTransparency = 0
  249.                     v.TextButton.TextTransparency = 0
  250.                 end
  251.             end
  252.         end
  253.     end
  254.     sblasty = y
  255. end)
  256.  
  257. local work = Instance.new("TextButton", sg)
  258. work.Position = UDim2.new(0,0,.2,0)
  259. work.Size = UDim2.new(.05,0,.05,0)
  260. work.BackgroundTransparency = backgroundtrans
  261. work.TextColor3 = fontcolor
  262. work.BorderColor3 = bordercolor
  263. work.BackgroundColor3 = backgroundcolor
  264. work.Text = "Workspace"
  265. work.MouseButton1Click:connect(function()
  266.     current = Workspace
  267.     Clear()
  268.     GetList()
  269. end)
  270. work.MouseButton2Up:connect(function(x,y)
  271.     local pos = UDim2.new(0,x,0,y)
  272.     CreatePasteMenu(pos, Workspace)
  273. end)
  274.  
  275. local light = Instance.new("TextButton", sg)
  276. light.Position = UDim2.new(0.06,0,.2,0)
  277. light.Size = UDim2.new(.05,0,.05,0)
  278. light.BackgroundTransparency = backgroundtrans
  279. light.TextColor3 = fontcolor
  280. light.BorderColor3 = bordercolor
  281. light.BackgroundColor3 = backgroundcolor
  282. light.Text = "Lighting"
  283. light.MouseButton1Click:connect(function()
  284.     current = game.Lighting
  285.     Clear()
  286.     GetList()
  287. end)
  288. light.MouseButton2Up:connect(function(x,y)
  289.     local pos = UDim2.new(0,x,0,y)
  290.     CreatePasteMenu(pos, game.Lighting)
  291. end)
  292.  
  293. local players = Instance.new("TextButton", sg)
  294. players.Position = UDim2.new(0.12,0,.2,0)
  295. players.Size = UDim2.new(.05,0,.05,0)
  296. players.BackgroundTransparency = backgroundtrans
  297. players.TextColor3 = fontcolor
  298. players.BorderColor3 = bordercolor
  299. players.BackgroundColor3 = backgroundcolor
  300. players.Text = "Players"
  301. players.MouseButton1Click:connect(function()
  302.     current = game.Players
  303.     Clear()
  304.     GetList()
  305. end)
  306. players.MouseButton2Up:connect(function(x,y)
  307.     local pos = UDim2.new(0,x,0,y)
  308.     CreatePasteMenu(pos, game.Players)
  309. end)
  310.  
  311. local starterp = Instance.new("TextButton", sg)
  312. starterp.Position = UDim2.new(0.18,0,.2,0)
  313. starterp.Size = UDim2.new(.05,0,.05,0)
  314. starterp.BackgroundTransparency = backgroundtrans
  315. starterp.TextColor3 = fontcolor
  316. starterp.BorderColor3 = bordercolor
  317. starterp.BackgroundColor3 = backgroundcolor
  318. starterp.Text = "StarterPack"
  319. starterp.MouseButton1Click:connect(function()
  320.     current = game.StarterPack
  321.     Clear()
  322.     GetList()
  323. end)
  324. starterp.MouseButton2Up:connect(function(x,y)
  325.     local pos = UDim2.new(0,x,0,y)
  326.     CreatePasteMenu(pos, game.StarterPack)
  327. end)
  328.  
  329. local starterg = Instance.new("TextButton", sg)
  330. starterg.Position = UDim2.new(0.24,0,.2,0)
  331. starterg.Size = UDim2.new(.05,0,.05,0)
  332. starterg.BackgroundTransparency = backgroundtrans
  333. starterg.TextColor3 = fontcolor
  334. starterg.BorderColor3 = bordercolor
  335. starterg.BackgroundColor3 = backgroundcolor
  336. starterg.Text = "StarterGui"
  337. starterg.MouseButton1Click:connect(function()
  338.     current = game.StarterGui
  339.     Clear()
  340.     GetList()
  341. end)
  342. starterg.MouseButton2Up:connect(function(x,y)
  343.     local pos = UDim2.new(0,x,0,y)
  344.     CreatePasteMenu(pos, game.StarterGui)
  345. end)
  346.  
  347. function CreateButtons(object, otr)
  348.     local tb = Instance.new("TextButton", fr)
  349.     tb.Size = UDim2.new(.9,0,.05,0)
  350.     tb.Text = object.Name
  351.     tb.Position = UDim2.new(0,0,cp + .05,0)
  352.     tb.BackgroundTransparency = otr or backgroundtrans
  353.     tb.TextColor3 = fontcolor
  354.     tb.BorderColor3 = bordercolor
  355.     tb.BackgroundColor3 = backgroundcolor
  356.     tb.TextTransparency = otr or 0
  357.     cp = cp + .05
  358.     local ov = Instance.new("ObjectValue", tb)
  359.     ov.Value = object
  360.     local x = Instance.new("TextButton", tb)
  361.     x.BackgroundTransparency = otr or backgroundtrans
  362.     x.TextColor3 = fontcolor
  363.     x.BorderColor3 = bordercolor
  364.     x.BackgroundColor3 = backgroundcolor
  365.     x.TextTransparency = otr or 0
  366.     x.Size = UDim2.new(.1,0,1,0)
  367.     x.Position = UDim2.new(1,0,0,0)
  368.     x.FontSize = "Size12"
  369.     x.Text = "+"
  370.     tb.MouseButton1Click:connect(function()-- properties window open
  371.         CreatePropertiesWindow(ov.Value)
  372.     end)
  373.     tb.MouseButton2Up:connect(function(x,y)
  374.         CreateDropDownMenu(UDim2.new(0,x,0,y), ov.Value)
  375.     end)
  376.     x.MouseButton1Click:connect(function()
  377.         current = ov.Value
  378.         Clear()
  379.         GetList()
  380.     end)
  381. end
  382.  
  383. function CreatePropertiesWindow(obj)
  384.     if not obj then return end
  385.     pcall(function() sg.P:Destroy() end)
  386.     local push = 0
  387.     local f = Instance.new("Frame", sg)
  388.     f.Name = "P"
  389.     f.Style = "RobloxRound"
  390.     f.Size = UDim2.new(.4,0,.7,0)
  391.     f.Position = UDim2.new(.6,0,.15,0)
  392.     if pcall(function() _ = obj["Name"] end) then
  393.         local pN = Instance.new("TextLabel", f)
  394.         pN.Size = UDim2.new(.5,0,.05,0)
  395.         pN.Position = UDim2.new(0,0, push,0)
  396.         pN.Text = "Name"
  397.         pN.BackgroundColor3 = backgroundcolor
  398.         pN.BorderColor3 = bordercolor
  399.         pN.TextColor3 = bordercolor
  400.         pN.FontSize = "Size10"
  401.             local pV = Instance.new("TextBox", f)
  402.             pV.ClearTextOnFocus = false
  403.             pV.Size = UDim2.new(.5,0,.05,0)
  404.             pV.Position = UDim2.new(.5,0,push,0)
  405.             push = push + .05
  406.             pV.Text = obj.Name
  407.             pV.BackgroundColor3 = backgroundcolor
  408.             pV.BorderColor3 = bordercolor
  409.             pV.TextColor3 = fontcolor
  410.             pV.FontSize = "Size10"
  411.             pV.Changed:connect(function()
  412.                 pcall(function()
  413.                     obj.Name = pV.Text
  414.                 end)
  415.             end)
  416.     end
  417.     if pcall(function() _ = obj["ClassName"] end) then
  418.         local pN = Instance.new("TextLabel", f)
  419.         pN.Size = UDim2.new(.5,0,.05,0)
  420.         pN.Position = UDim2.new(0,0, push,0)
  421.         pN.Text = "ClassName"
  422.         pN.BackgroundColor3 = backgroundcolor
  423.         pN.BorderColor3 = bordercolor
  424.         pN.TextColor3 = bordercolor
  425.         pN.FontSize = "Size10"
  426.             local pV = Instance.new("TextLabel", f)
  427.             pV.Size = UDim2.new(.5,0,.05,0)
  428.             pV.Position = UDim2.new(.5,0,push,0)
  429.             push = push + .05
  430.             pV.Text = obj.ClassName
  431.             pV.BackgroundColor3 = backgroundcolor
  432.             pV.BorderColor3 = bordercolor
  433.             pV.TextColor3 = bordercolor
  434.             pV.FontSize = "Size10"
  435.     end
  436.     if pcall(function() _ = obj["BrickColor"] end) then
  437.         local pN = Instance.new("TextLabel", f)
  438.         pN.Size = UDim2.new(.5,0,.05,0)
  439.         pN.Position = UDim2.new(0,0, push,0)
  440.         pN.Text = "BrickColor"
  441.         pN.BackgroundColor3 = backgroundcolor
  442.         pN.BorderColor3 = bordercolor
  443.         pN.TextColor3 = bordercolor
  444.         pN.FontSize = "Size10"
  445.             local pV = Instance.new("TextBox", f)
  446.             pV.Size = UDim2.new(.5,0,.05,0)
  447.             pV.Position = UDim2.new(.5,0,push,0)
  448.             push = push + .05
  449.             pV.Text = tostring(obj.BrickColor)
  450.             pV.BackgroundColor3 = backgroundcolor
  451.             pV.BorderColor3 = bordercolor
  452.             pV.TextColor3 = fontcolor
  453.             pV.FontSize = "Size10"
  454.             pV.Changed:connect(function()
  455.                 pcall(function()
  456.                     obj.BrickColor = BrickColor.new(pV.Text)
  457.                 end)
  458.             end)
  459.     end
  460.     if pcall(function() _ = obj["Text"] end) then
  461.         local pN = Instance.new("TextLabel", f)
  462.         pN.Size = UDim2.new(.5,0,.05,0)
  463.         pN.Position = UDim2.new(0,0, push,0)
  464.         pN.Text = "Text"
  465.         pN.BackgroundColor3 = backgroundcolor
  466.         pN.BorderColor3 = bordercolor
  467.         pN.TextColor3 = bordercolor
  468.         pN.FontSize = "Size10"
  469.             local pV = Instance.new("TextBox", f)
  470.             pV.Size = UDim2.new(.5,0,.05,0)
  471.             pV.Position = UDim2.new(.5,0,push,0)
  472.             push = push + .05
  473.             pV.Text = obj.Text
  474.             pV.BackgroundColor3 = backgroundcolor
  475.             pV.BorderColor3 = bordercolor
  476.             pV.TextColor3 = fontcolor
  477.             pV.FontSize = "Size10"
  478.             pV.Changed:connect(function()
  479.                 pcall(function()
  480.                     obj.Text = pV.Text
  481.                 end)
  482.             end)
  483.     end
  484.     if pcall(function() _ = obj["Value"] end) and (obj.ClassName == "StringValue" or obj.ClassName == "IntValue" or obj.ClassName == "NumberValue") then
  485.         local pN = Instance.new("TextLabel", f)
  486.         pN.Size = UDim2.new(.5,0,.05,0)
  487.         pN.Position = UDim2.new(0,0, push,0)
  488.         pN.Text = "Value"
  489.         pN.BackgroundColor3 = backgroundcolor
  490.         pN.BorderColor3 = bordercolor
  491.         pN.TextColor3 = bordercolor
  492.         pN.FontSize = "Size10"
  493.             local pV = Instance.new("TextBox", f)
  494.             pV.Size = UDim2.new(.5,0,.05,0)
  495.             pV.Position = UDim2.new(.5,0,push,0)
  496.             push = push + .05
  497.             pV.Text = obj.Value
  498.             pV.BackgroundColor3 = backgroundcolor
  499.             pV.BorderColor3 = bordercolor
  500.             pV.TextColor3 = fontcolor
  501.             pV.FontSize = "Size10"
  502.             pV.Changed:connect(function()
  503.                 pcall(function()
  504.                     if type(obj.Value) == "number" then
  505.                         obj.Value = tonumber(pV.Text) or 0
  506.                     else
  507.                         obj.Value = pV.Text
  508.                     end
  509.                 end)
  510.             end)
  511.     end
  512. end
  513.  
  514. function CreateDropDownMenu(pos, obj)
  515.     local f = Instance.new("Frame", sg)
  516.     f.BackgroundColor3 = backgroundcolor
  517.     f.BorderColor3 = bordercolor
  518.     f.Size = UDim2.new(.1,0,.2,0)
  519.     f.BackgroundTransparency = .3
  520.     f.Position = pos
  521.         local d = Instance.new("TextButton", f)
  522.         d.BackgroundTransparency = 1
  523.         d.Text = "Delete"
  524.         d.FontSize = "Size10"
  525.         d.TextColor3 = fontcolor
  526.         d.Size = UDim2.new(1,0,.15,0)
  527.         d.MouseButton1Click:connect(function()
  528.             pcall(function()
  529.                 obj:Destroy()
  530.             end)
  531.             Clear()
  532.             GetList()
  533.             f:Destroy()
  534.         end)
  535.         local c = Instance.new("TextButton", f)
  536.         c.BackgroundTransparency = 1
  537.         c.Text = "Copy"
  538.         c.FontSize = "Size10"
  539.         c.TextColor3 = fontcolor
  540.         c.Size = UDim2.new(1,0,.15,0)
  541.         c.Position = UDim2.new(0,0,.15,0)
  542.         c.MouseButton1Click:connect(function()
  543.             pcall(function()
  544.                 copy = obj:Clone()
  545.             end)
  546.             f:Destroy()
  547.         end)
  548.         local p = Instance.new("TextButton", f)
  549.         p.BackgroundTransparency = 1
  550.         p.Text = "Paste into"
  551.         p.FontSize = "Size10"
  552.         p.TextColor3 = fontcolor
  553.         p.Size = UDim2.new(1,0,.15,0)
  554.         p.Position = UDim2.new(0,0,.3,0)
  555.         p.MouseButton1Click:connect(function()
  556.             pcall(function()
  557.                 copy.Parent = obj
  558.             end)
  559.             f:Destroy()
  560.         end)
  561.         local x = Instance.new("TextButton", f)
  562.         x.BackgroundTransparency = 1
  563.         x.Text = "Close"
  564.         x.FontSize = "Size10"
  565.         x.TextColor3 = fontcolor
  566.         x.Size = UDim2.new(1,0,.15,0)
  567.         x.Position = UDim2.new(0,0,.45,0)
  568.         x.MouseButton1Click:connect(function()
  569.             f:Destroy()
  570.         end)
  571. end
  572.  
  573. function CreatePasteMenu(pos, obj)
  574.     local f = Instance.new("Frame", sg)
  575.     f.BackgroundColor3 = backgroundcolor
  576.     f.BorderColor3 = bordercolor
  577.     f.Size = UDim2.new(.1,0,.2,0)
  578.     f.BackgroundTransparency = .3
  579.     f.Position = pos
  580.         local p = Instance.new("TextButton", f)
  581.         p.BackgroundTransparency = 1
  582.         p.Text = "Paste into"
  583.         p.FontSize = "Size10"
  584.         p.TextColor3 = fontcolor
  585.         p.Size = UDim2.new(1,0,.15,0)
  586.         p.Position = UDim2.new(0,0,0,0)
  587.         p.MouseButton1Click:connect(function()
  588.             pcall(function()
  589.                 copy.Parent = obj
  590.             end)
  591.             f:Destroy()
  592.         end)
  593.         local x = Instance.new("TextButton", f)
  594.         x.BackgroundTransparency = 1
  595.         x.Text = "Close"
  596.         x.FontSize = "Size10"
  597.         x.TextColor3 = fontcolor
  598.         x.Size = UDim2.new(1,0,.15,0)
  599.         x.Position = UDim2.new(0,0,.45,0)
  600.         x.MouseButton1Click:connect(function()
  601.             f:Destroy()
  602.         end)
  603. end
  604.  
  605. function Clear()
  606.     for i,v in pairs(fr:GetChildren()) do
  607.         v:Destroy()
  608.         cp = 0
  609.     end
  610. end
  611.  
  612. function GetList()
  613.     local max = 100
  614.     local it = 0
  615.     for i,v in pairs(current:GetChildren()) do
  616.         if cp < .9 then
  617.             CreateButtons(v)
  618.         else
  619.             CreateButtons(v, 1)
  620.         end
  621.         it = it + 1
  622.         if it == max then break end
  623.     end
  624. end
  625.  
  626. GetList()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!