Advertisement
ryanswagg20

explorer

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