Advertisement
Guest User

Prorod

a guest
Jan 23rd, 2020
100
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 23.15 KB | None | 0 0
  1. PASTEBINpasteSIGN IN SIGN UP
  2.  
  3. Hack Full Slot
  4. A GUEST DEC 9TH, 2018 154,170 NEVER
  5. [Pics] This Is The Car Shaquille O'Neal Drives At 47[Pics] This Is The Car Shaquille O'Neal Drives At 47Sponsored - BuzzFond
  6. Recommended by
  7. Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  8. rawdownloadreport11.19 KB
  9. TextProperties = {"ClassName", "Name", "Value", "Text", "Reflectance", "Transparency", "Heat", "TeamName", "WalkSpeed", "Health", "MaxHealth", "Size", "Position", "AccountAge", "RobloxLocked", "TeamColor", "userId", "Brightness", "Ambient", "TimeOfDay", "FieldOfView", "CameraType", "LinkedSource"}
  10. BoolProperties = {"Anchored", "CanCollide", "Disabled", "Jump", "Sit", "Visible", "Enabled", "Locked", "FilteringEnabled", "StreamingEnabled", "GlobalShadows"}
  11. BrickColorProperties = {"BrickColor", "Color", "TeamColor", "Texture", "Value"}
  12. s = Instance.new("ScreenGui", game.CoreGui)
  13. pgr = Instance.new("TextButton")
  14. pgr.Parent = s
  15. pgr.Size = UDim2.new(0,100,0,40)
  16. pgr.Position = UDim2.new(0,30,0,440)
  17. pgr.Text="Explorer"
  18. pgr.BackgroundTransparency = 0.3
  19. pgr.TextColor = BrickColor.new("White")
  20. pgr.BackgroundColor = BrickColor.new("Really Black")
  21. pgr.BorderColor = BrickColor.new("Black")
  22. pgr.Font = "ArialBold"
  23. pgr.FontSize = "Size14"
  24. pgr.TextStrokeColor3 = Color3.new(0/0,0/0,0/0)
  25. pgr.TextStrokeTransparency = 0.3
  26. pgr.BorderSizePixel = 1
  27. pgr.BorderColor = BrickColor.new("White")
  28.  
  29. if game.CoreGui:findFirstChild("Explorer") then
  30. game.CoreGui:findFirstChild("Explorer"):Remove()
  31. end
  32.  
  33. local Cloned
  34. local Deleted
  35. local DeleteParent
  36. local Player
  37. local Search
  38. local ScriptSearch
  39. local Gui
  40. local Cloned = nil
  41. local Deleted = nil
  42. local DeleteParent = nil
  43. local Current = 0
  44. local CurrentOption = 0
  45.  
  46. function Clear()
  47. if Gui then
  48. Gui:Remove()
  49. end
  50. Current = 0
  51. CurrentOption = 0
  52. end
  53.  
  54. function AddButton(N, Function, Color, Copy)
  55. if not N then
  56. error("RenderButton - No Name Specified")
  57. end
  58. if not Function then
  59. error("RenderButton - No Function Specified")
  60. end
  61. if not Color then
  62. Color = Color3.new(1, 1, 1)
  63. end
  64. if Copy == nil then
  65. Copy = true
  66. end
  67. P = Instance.new("TextButton")
  68. if Copy then
  69. P.Size = UDim2.new(0, 110, 0, 20)
  70. else
  71. P.Size = UDim2.new(0, 130, 0, 20)
  72. end
  73. P.Text = N.Name
  74. P.Name = N.Name
  75. P.Parent = Gui
  76. P.BackgroundColor3 = Color
  77. P.TextColor3 = Color3.new(0, 0, 0)
  78. P.BackgroundTransparency = 0.5
  79. P.Position = UDim2.new(0, ((math.modf(Current/30))*150)+300, 0, 50+(20*((Current%30)-1)))
  80. P.MouseButton1Click:connect(function()
  81. Function(P)
  82. end)
  83. D = Instance.new("TextButton")
  84. D.Size = UDim2.new(0, 20, 0, 20)
  85. D.Text = "X"
  86. D.Name = N.Name
  87. D.Parent = Gui
  88. D.BackgroundColor3 = Color3.new(1, 0, 0)
  89. D.TextColor3 = Color3.new(0, 0, 0)
  90. D.BackgroundTransparency = 0.5
  91. D.Position = UDim2.new(0, ((math.modf(Current/30))*150)+300+130, 0, 50+(20*((Current%30)-1)))
  92. D.MouseButton1Click:connect(function()
  93. Deleted = N
  94. DeleteParent = N.Parent
  95. N.Parent = nil
  96. Clear()
  97. Search(DeleteParent)
  98. end)
  99. if Copy then
  100. C = Instance.new("TextButton")
  101. C.Size = UDim2.new(0, 20, 0, 20)
  102. C.Text = "C"
  103. C.Name = N.Name
  104. C.Parent = Gui
  105. C.BackgroundColor3 = Color3.new(0, 1, 0.5)
  106. C.TextColor3 = Color3.new(0, 0, 0)
  107. C.BackgroundTransparency = 0.5
  108. C.Position = UDim2.new(0, ((math.modf(Current/30))*150)+300+110, 0, 50+(20*((Current%30)-1)))
  109. C.MouseButton1Click:connect(function()
  110. Cloned = N
  111. Clear()
  112. Search(N.Parent)
  113. end)
  114. end
  115. Current = Current + 1
  116. return P
  117. end
  118.  
  119. function AddOption(N, Function, Color, Text)
  120. if not N then
  121. error("RenderButton - No Name Specified")
  122. end
  123. if not Color then
  124. Color = Color3.new(1, 1, 1)
  125. end
  126. if Text == nil then
  127. Text = false
  128. end
  129. if Text then
  130. P = Instance.new("TextBox")
  131. else
  132. P = Instance.new("TextButton")
  133. end
  134. P.Text = N
  135. P.Name = N
  136. P.Parent = Gui
  137. P.BackgroundColor3 = Color
  138. P.TextColor3 = Color3.new(0, 0, 0)
  139. P.BackgroundTransparency = 0.5
  140. P.Size = UDim2.new(0, 150, 0, 20)
  141. P.Position = UDim2.new(0, ((math.modf(CurrentOption/30))*150)+150, 0, 50+(20*((CurrentOption%30)-1)))
  142. if not Text and Function then
  143. P.MouseButton1Click:connect(function() Function(P) end)
  144. end
  145. CurrentOption = CurrentOption + 1
  146. return P
  147. end
  148.  
  149. function AddTextOption(Obj, Prop)
  150. local Ob = Obj
  151. local Pro = Prop
  152. if type(Ob[Pro]) == "number" or type(Ob[Pro]) == "string" then
  153. CurrentOption = CurrentOption + 1
  154. local T = AddOption(Ob[Pro], nil, Color3.new(0.1, 0.4, 0.1), true)
  155. CurrentOption = CurrentOption - 2
  156. local O = AddOption("Change "..Pro..":", function() Ob[Pro] = T.Text end, Color3.new(0.1, 0.8, 0.1), false)
  157. CurrentOption = CurrentOption + 1
  158. end
  159. end
  160.  
  161. function AddBrickColorOption(Obj, Prop)
  162. local Ob = Obj
  163. local Pro = Prop
  164. if BrickColor.new(tostring(Ob[Pro])) == Ob[Pro] then
  165. CurrentOption = CurrentOption + 1
  166. local T = AddOption(tostring(Ob[Pro]), nil, Color3.new(0.1, 0.4, 0.1), true)
  167. CurrentOption = CurrentOption - 2
  168. local O = AddOption("Change "..Pro..":", function() Ob[Pro] = BrickColor.new(T.Text) end, Color3.new(0.1, 0.8, 0.1), false)
  169. CurrentOption = CurrentOption + 1
  170. end
  171. end
  172.  
  173. function AddBoolOption(Obj, Prop)
  174. local Ob = Obj
  175. local Pro = Prop
  176. if type(Ob[Pro]) == "boolean" then
  177. local O = AddOption(Pro..": "..tostring(Ob[Pro]), nil, Color3.new(0.1, 0.8, 0.1), false)
  178. O.MouseButton1Click:connect(function()
  179. if Ob[Pro] then
  180. Ob[Pro] = false
  181. O.Text = Pro..": false"
  182. else
  183. Ob[Pro] = true
  184. O.Text = Pro..": true"
  185. end
  186. end)
  187. end
  188. end
  189.  
  190. function TestProperty(Obj, Property)
  191. Success = pcall(function()
  192. if Obj[Property] then
  193. return
  194. end
  195. end)
  196. return Success
  197. end
  198.  
  199. function LoadOptions(Object)
  200. for Num, Prop in pairs(TextProperties) do
  201. if TestProperty(Object, Prop) then
  202. AddTextOption(Object, Prop)
  203. end
  204. end
  205. for Num, Prop in pairs(BoolProperties) do
  206. if TestProperty(Object, Prop) then
  207. AddBoolOption(Object, Prop)
  208. end
  209. end
  210. for Num, Prop in pairs(BrickColorProperties) do
  211. if TestProperty(Object, Prop) then
  212. AddBrickColorOption(Object, Prop)
  213. end
  214. end
  215. end
  216.  
  217. function Search(Object)
  218. Gui = Instance.new("ScreenGui")
  219. Gui.Parent = game.CoreGui
  220. Gui.Name = "Explorer"
  221. if Object ~= game then
  222. AddOption("Back", function()
  223. Clear();
  224. Search(Object.Parent)
  225. end, Color3.new(0.5, 1, 1), false)
  226. end
  227. AddOption("Reload", function() Clear(); Search(Object); end, Color3.new(0.2, 1, 0.2), false)
  228. if Cloned then
  229. AddOption("Paste", function() Cloned:Clone().Parent = Object; Clear(); Search(Object); end, Color3.new(0.5, 1, 1), false)
  230. end
  231. if Deleted then
  232. AddOption("Undo", function() Deleted.Parent = DeleteParent; Deleted = nil; DeletedParent = nil; Clear(); Search(Object); end, Color3.new(1, 0.6, 0.1), false)
  233. end
  234. if Object:IsA("Player") then
  235. AddOption("Goto Character", function() Clear(); if Object.Character then Search(Object.Character); end end, Color3.new(1, 1, 1), false)
  236. end
  237. if Object:IsA("LocalScript") then
  238. AddOption("EditScript", function() Clear(); ScriptSearch(Object); end, Color3.new(1, 1, 1), false)
  239. end
  240. if Object:IsA("Terrain") then
  241. AddOption("Clear", function() Object:Clear(); end, Color3.new(1, 1, 1), false)
  242. end
  243. LoadOptions(Object)
  244. AddOption("Close", Clear, Color3.new(1, 0.2, 0), false)
  245. if not Object:IsA("Workspace") or not Object:IsA("Player") then
  246. for Num, Obj in pairs(Object:GetChildren()) do
  247. --if not Obj:IsA("BasePart") or not Object.Parent == game.Workspace then
  248. if true then
  249. if Obj:IsA("LocalScript") then
  250. AddButton(Obj, function() Clear(); Search(Obj); end, Color3.new(1, 0, 0), true)
  251. elseif Obj:IsA("Script") or Obj:IsA("StarterScript") or Obj:IsA("CoreScript") then
  252. AddButton(Obj, function() Clear(); Search(Obj); end, Color3.new(0.5, 0.5, 0.8), true)
  253. elseif Obj.Parent == game then
  254. AddButton(Obj, function() Clear(); Search(Obj); end, Color3.new(1, 1, 1), false)
  255. else
  256. AddButton(Obj, function() Clear(); Search(Obj); end, Color3.new(1, 1, 1), true)
  257. end
  258. end
  259. end
  260. end
  261. function MoveUp(Place, Amount)
  262. for i,v in pairs(Place:GetChildren()) do
  263. if v:IsA("TextLabel") or v:IsA("TextBox") then
  264. v.Position = v.Position + UDim2.new(0,0,0,-Amount)
  265. end
  266. end
  267. end
  268. function MoveDown(Place, Amount)
  269. for i,v in pairs(Place:GetChildren()) do
  270. if v:IsA("TextLabel") or v:IsA("TextBox") then
  271. v.Position = v.Position + UDim2.new(0,0,0,Amount)
  272. end
  273. end
  274. end
  275. i=0
  276. function ScriptSearch(S)
  277. Script2 = S
  278. Script = Script2.Source
  279. Table = {}
  280. Enabled = true
  281. Gui = Instance.new("ScreenGui")
  282. Gui.Parent = game.CoreGui
  283. Gui.Name = "Explorer"
  284. while Enabled do
  285. Start, End = string.find(Script, '\n')
  286. print(Start, End)
  287. if Start and End then
  288. table.insert(Table, string.sub(Script, 1, End))
  289. New = string.sub(Script, End+1, string.len(Script))
  290. Script = New
  291. else
  292. Enabled = false
  293. table.insert(Table, string.sub(Script, 1, End))
  294. print("Finished")
  295. end
  296. end
  297. P = Instance.new("TextLabel")
  298. P.Size = UDim2.new(0, 500, 0, 20)
  299. P.Text = Script2.Name
  300. P.Name = "Script Line"
  301. P.Parent = Gui
  302. P.BackgroundColor3 = Color3.new(1, 1, 1)
  303. P.TextColor3 = Color3.new(0, 0, 0)
  304. P.BackgroundTransparency = 0.5
  305. P.Position = UDim2.new(0.5, -250, 0, 150+(20*(i-1)))
  306. P.TextXAlignment = "Left"
  307. i=i+1
  308. New = {}
  309. for I,Val in pairs(Table) do
  310. print(Val)
  311. P = Instance.new("TextBox")
  312. P.ClearTextOnFocus = false
  313. P.Size = UDim2.new(0, 500, 0, 20)
  314. P.Text = Val
  315. P.Name = "Script Line"
  316. P.Parent = Gui
  317. P.BackgroundColor3 = Color3.new(1, 1, 1)
  318. P.TextColor3 = Color3.new(0, 0, 0)
  319. P.BackgroundTransparency = 0.5
  320. P.Position = UDim2.new(0.5, -250, 0, 150+(20*(i-1)))
  321. P.TextXAlignment = "Left"
  322. table.insert(New, P)
  323. i=i+1
  324. end
  325. i=1
  326. P = Instance.new("TextButton")
  327. P.Size = UDim2.new(0, 20, 0, 20)
  328. P.Text = "^"
  329. P.Name = "Scroll"
  330. P.Parent = Gui
  331. P.BackgroundColor3 = Color3.new(1, 1, 1)
  332. P.TextColor3 = Color3.new(0, 0, 0)
  333. P.BackgroundTransparency = 0.5
  334. P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
  335. P.MouseButton1Click:connect(function()
  336. MoveUp(Gui, -20)
  337. end)
  338. i=i+1
  339. P = Instance.new("TextButton")
  340. P.Size = UDim2.new(0, 20, 0, 20)
  341. P.Text = "v"
  342. P.Name = "Scroll"
  343. P.Parent = Gui
  344. P.BackgroundColor3 = Color3.new(1, 1, 1)
  345. P.TextColor3 = Color3.new(0, 0, 0)
  346. P.BackgroundTransparency = 0.5
  347. P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
  348. P.MouseButton1Click:connect(function()
  349. MoveDown(Gui, -20)
  350. end)
  351. i=i+1
  352. P = Instance.new("TextButton")
  353. P.Size = UDim2.new(0, 20, 0, 20)
  354. P.Text = "^^"
  355. P.Name = "Scroll"
  356. P.Parent = Gui
  357. P.BackgroundColor3 = Color3.new(1, 1, 1)
  358. P.TextColor3 = Color3.new(0, 0, 0)
  359. P.BackgroundTransparency = 0.5
  360. P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
  361. P.MouseButton1Click:connect(function()
  362. MoveUp(Gui, -200)
  363. end)
  364. i=i+1
  365. P = Instance.new("TextButton")
  366. P.Size = UDim2.new(0, 20, 0, 20)
  367. P.Text = "vv"
  368. P.Name = "Scroll"
  369. P.Parent = Gui
  370. P.BackgroundColor3 = Color3.new(1, 1, 1)
  371. P.TextColor3 = Color3.new(0, 0, 0)
  372. P.BackgroundTransparency = 0.5
  373. P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
  374. P.MouseButton1Click:connect(function()
  375. MoveDown(Gui, -200)
  376. end)
  377. i=i+1
  378. P = Instance.new("TextButton")
  379. P.Size = UDim2.new(0, 20, 0, 20)
  380. P.Text = "S"
  381. P.Name = "Save"
  382. P.Parent = Gui
  383. P.BackgroundColor3 = Color3.new(0, 1, 0)
  384. P.TextColor3 = Color3.new(0, 0, 0)
  385. P.BackgroundTransparency = 0.5
  386. P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
  387. P.MouseButton1Click:connect(function()
  388. StringS = ""
  389. for Num, Obj in pairs(New) do
  390. StringS = StringS..Obj.Text..'\n'
  391. end
  392. S.Source = StringS
  393. S.Disabled = true
  394. S.Disabled = false
  395. end)
  396. i=i+1
  397. P = Instance.new("TextButton")
  398. P.Size = UDim2.new(0, 20, 0, 20)
  399. P.Text = "x"
  400. P.Name = "Back"
  401. P.Parent = Gui
  402. P.BackgroundColor3 = Color3.new(1, 0.2, 0)
  403. P.TextColor3 = Color3.new(0, 0, 0)
  404. P.BackgroundTransparency = 0.5
  405. P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
  406. P.MouseButton1Click:connect(function()
  407. Clear()
  408. i=0
  409. Search(S)
  410. end)
  411. i=i+1
  412. end
  413. end
  414.  
  415. pgr.MouseButton1Click:connect(function()
  416. Clear()
  417. Search(game)
  418. end)
  419. RAW Paste Data
  420. TextProperties = {"ClassName", "Name", "Value", "Text", "Reflectance", "Transparency", "Heat", "TeamName", "WalkSpeed", "Health", "MaxHealth", "Size", "Position", "AccountAge", "RobloxLocked", "TeamColor", "userId", "Brightness", "Ambient", "TimeOfDay", "FieldOfView", "CameraType", "LinkedSource"}
  421. BoolProperties = {"Anchored", "CanCollide", "Disabled", "Jump", "Sit", "Visible", "Enabled", "Locked", "FilteringEnabled", "StreamingEnabled", "GlobalShadows"}
  422. BrickColorProperties = {"BrickColor", "Color", "TeamColor", "Texture", "Value"}
  423. s = Instance.new("ScreenGui", game.CoreGui)
  424. pgr = Instance.new("TextButton")
  425. pgr.Parent = s
  426. pgr.Size = UDim2.new(0,100,0,40)
  427. pgr.Position = UDim2.new(0,30,0,440)
  428. pgr.Text="Explorer"
  429. pgr.BackgroundTransparency = 0.3
  430. pgr.TextColor = BrickColor.new("White")
  431. pgr.BackgroundColor = BrickColor.new("Really Black")
  432. pgr.BorderColor = BrickColor.new("Black")
  433. pgr.Font = "ArialBold"
  434. pgr.FontSize = "Size14"
  435. pgr.TextStrokeColor3 = Color3.new(0/0,0/0,0/0)
  436. pgr.TextStrokeTransparency = 0.3
  437. pgr.BorderSizePixel = 1
  438. pgr.BorderColor = BrickColor.new("White")
  439.  
  440. if game.CoreGui:findFirstChild("Explorer") then
  441. game.CoreGui:findFirstChild("Explorer"):Remove()
  442. end
  443.  
  444. local Cloned
  445. local Deleted
  446. local DeleteParent
  447. local Player
  448. local Search
  449. local ScriptSearch
  450. local Gui
  451. local Cloned = nil
  452. local Deleted = nil
  453. local DeleteParent = nil
  454. local Current = 0
  455. local CurrentOption = 0
  456.  
  457. function Clear()
  458. if Gui then
  459. Gui:Remove()
  460. end
  461. Current = 0
  462. CurrentOption = 0
  463. end
  464.  
  465. function AddButton(N, Function, Color, Copy)
  466. if not N then
  467. error("RenderButton - No Name Specified")
  468. end
  469. if not Function then
  470. error("RenderButton - No Function Specified")
  471. end
  472. if not Color then
  473. Color = Color3.new(1, 1, 1)
  474. end
  475. if Copy == nil then
  476. Copy = true
  477. end
  478. P = Instance.new("TextButton")
  479. if Copy then
  480. P.Size = UDim2.new(0, 110, 0, 20)
  481. else
  482. P.Size = UDim2.new(0, 130, 0, 20)
  483. end
  484. P.Text = N.Name
  485. P.Name = N.Name
  486. P.Parent = Gui
  487. P.BackgroundColor3 = Color
  488. P.TextColor3 = Color3.new(0, 0, 0)
  489. P.BackgroundTransparency = 0.5
  490. P.Position = UDim2.new(0, ((math.modf(Current/30))*150)+300, 0, 50+(20*((Current%30)-1)))
  491. P.MouseButton1Click:connect(function()
  492. Function(P)
  493. end)
  494. D = Instance.new("TextButton")
  495. D.Size = UDim2.new(0, 20, 0, 20)
  496. D.Text = "X"
  497. D.Name = N.Name
  498. D.Parent = Gui
  499. D.BackgroundColor3 = Color3.new(1, 0, 0)
  500. D.TextColor3 = Color3.new(0, 0, 0)
  501. D.BackgroundTransparency = 0.5
  502. D.Position = UDim2.new(0, ((math.modf(Current/30))*150)+300+130, 0, 50+(20*((Current%30)-1)))
  503. D.MouseButton1Click:connect(function()
  504. Deleted = N
  505. DeleteParent = N.Parent
  506. N.Parent = nil
  507. Clear()
  508. Search(DeleteParent)
  509. end)
  510. if Copy then
  511. C = Instance.new("TextButton")
  512. C.Size = UDim2.new(0, 20, 0, 20)
  513. C.Text = "C"
  514. C.Name = N.Name
  515. C.Parent = Gui
  516. C.BackgroundColor3 = Color3.new(0, 1, 0.5)
  517. C.TextColor3 = Color3.new(0, 0, 0)
  518. C.BackgroundTransparency = 0.5
  519. C.Position = UDim2.new(0, ((math.modf(Current/30))*150)+300+110, 0, 50+(20*((Current%30)-1)))
  520. C.MouseButton1Click:connect(function()
  521. Cloned = N
  522. Clear()
  523. Search(N.Parent)
  524. end)
  525. end
  526. Current = Current + 1
  527. return P
  528. end
  529.  
  530. function AddOption(N, Function, Color, Text)
  531. if not N then
  532. error("RenderButton - No Name Specified")
  533. end
  534. if not Color then
  535. Color = Color3.new(1, 1, 1)
  536. end
  537. if Text == nil then
  538. Text = false
  539. end
  540. if Text then
  541. P = Instance.new("TextBox")
  542. else
  543. P = Instance.new("TextButton")
  544. end
  545. P.Text = N
  546. P.Name = N
  547. P.Parent = Gui
  548. P.BackgroundColor3 = Color
  549. P.TextColor3 = Color3.new(0, 0, 0)
  550. P.BackgroundTransparency = 0.5
  551. P.Size = UDim2.new(0, 150, 0, 20)
  552. P.Position = UDim2.new(0, ((math.modf(CurrentOption/30))*150)+150, 0, 50+(20*((CurrentOption%30)-1)))
  553. if not Text and Function then
  554. P.MouseButton1Click:connect(function() Function(P) end)
  555. end
  556. CurrentOption = CurrentOption + 1
  557. return P
  558. end
  559.  
  560. function AddTextOption(Obj, Prop)
  561. local Ob = Obj
  562. local Pro = Prop
  563. if type(Ob[Pro]) == "number" or type(Ob[Pro]) == "string" then
  564. CurrentOption = CurrentOption + 1
  565. local T = AddOption(Ob[Pro], nil, Color3.new(0.1, 0.4, 0.1), true)
  566. CurrentOption = CurrentOption - 2
  567. local O = AddOption("Change "..Pro..":", function() Ob[Pro] = T.Text end, Color3.new(0.1, 0.8, 0.1), false)
  568. CurrentOption = CurrentOption + 1
  569. end
  570. end
  571.  
  572. function AddBrickColorOption(Obj, Prop)
  573. local Ob = Obj
  574. local Pro = Prop
  575. if BrickColor.new(tostring(Ob[Pro])) == Ob[Pro] then
  576. CurrentOption = CurrentOption + 1
  577. local T = AddOption(tostring(Ob[Pro]), nil, Color3.new(0.1, 0.4, 0.1), true)
  578. CurrentOption = CurrentOption - 2
  579. local O = AddOption("Change "..Pro..":", function() Ob[Pro] = BrickColor.new(T.Text) end, Color3.new(0.1, 0.8, 0.1), false)
  580. CurrentOption = CurrentOption + 1
  581. end
  582. end
  583.  
  584. function AddBoolOption(Obj, Prop)
  585. local Ob = Obj
  586. local Pro = Prop
  587. if type(Ob[Pro]) == "boolean" then
  588. local O = AddOption(Pro..": "..tostring(Ob[Pro]), nil, Color3.new(0.1, 0.8, 0.1), false)
  589. O.MouseButton1Click:connect(function()
  590. if Ob[Pro] then
  591. Ob[Pro] = false
  592. O.Text = Pro..": false"
  593. else
  594. Ob[Pro] = true
  595. O.Text = Pro..": true"
  596. end
  597. end)
  598. end
  599. end
  600.  
  601. function TestProperty(Obj, Property)
  602. Success = pcall(function()
  603. if Obj[Property] then
  604. return
  605. end
  606. end)
  607. return Success
  608. end
  609.  
  610. function LoadOptions(Object)
  611. for Num, Prop in pairs(TextProperties) do
  612. if TestProperty(Object, Prop) then
  613. AddTextOption(Object, Prop)
  614. end
  615. end
  616. for Num, Prop in pairs(BoolProperties) do
  617. if TestProperty(Object, Prop) then
  618. AddBoolOption(Object, Prop)
  619. end
  620. end
  621. for Num, Prop in pairs(BrickColorProperties) do
  622. if TestProperty(Object, Prop) then
  623. AddBrickColorOption(Object, Prop)
  624. end
  625. end
  626. end
  627.  
  628. function Search(Object)
  629. Gui = Instance.new("ScreenGui")
  630. Gui.Parent = game.CoreGui
  631. Gui.Name = "Explorer"
  632. if Object ~= game then
  633. AddOption("Back", function()
  634. Clear();
  635. Search(Object.Parent)
  636. end, Color3.new(0.5, 1, 1), false)
  637. end
  638. AddOption("Reload", function() Clear(); Search(Object); end, Color3.new(0.2, 1, 0.2), false)
  639. if Cloned then
  640. AddOption("Paste", function() Cloned:Clone().Parent = Object; Clear(); Search(Object); end, Color3.new(0.5, 1, 1), false)
  641. end
  642. if Deleted then
  643. AddOption("Undo", function() Deleted.Parent = DeleteParent; Deleted = nil; DeletedParent = nil; Clear(); Search(Object); end, Color3.new(1, 0.6, 0.1), false)
  644. end
  645. if Object:IsA("Player") then
  646. AddOption("Goto Character", function() Clear(); if Object.Character then Search(Object.Character); end end, Color3.new(1, 1, 1), false)
  647. end
  648. if Object:IsA("LocalScript") then
  649. AddOption("EditScript", function() Clear(); ScriptSearch(Object); end, Color3.new(1, 1, 1), false)
  650. end
  651. if Object:IsA("Terrain") then
  652. AddOption("Clear", function() Object:Clear(); end, Color3.new(1, 1, 1), false)
  653. end
  654. LoadOptions(Object)
  655. AddOption("Close", Clear, Color3.new(1, 0.2, 0), false)
  656. if not Object:IsA("Workspace") or not Object:IsA("Player") then
  657. for Num, Obj in pairs(Object:GetChildren()) do
  658. --if not Obj:IsA("BasePart") or not Object.Parent == game.Workspace then
  659. if true then
  660. if Obj:IsA("LocalScript") then
  661. AddButton(Obj, function() Clear(); Search(Obj); end, Color3.new(1, 0, 0), true)
  662. elseif Obj:IsA("Script") or Obj:IsA("StarterScript") or Obj:IsA("CoreScript") then
  663. AddButton(Obj, function() Clear(); Search(Obj); end, Color3.new(0.5, 0.5, 0.8), true)
  664. elseif Obj.Parent == game then
  665. AddButton(Obj, function() Clear(); Search(Obj); end, Color3.new(1, 1, 1), false)
  666. else
  667. AddButton(Obj, function() Clear(); Search(Obj); end, Color3.new(1, 1, 1), true)
  668. end
  669. end
  670. end
  671. end
  672. function MoveUp(Place, Amount)
  673. for i,v in pairs(Place:GetChildren()) do
  674. if v:IsA("TextLabel") or v:IsA("TextBox") then
  675. v.Position = v.Position + UDim2.new(0,0,0,-Amount)
  676. end
  677. end
  678. end
  679. function MoveDown(Place, Amount)
  680. for i,v in pairs(Place:GetChildren()) do
  681. if v:IsA("TextLabel") or v:IsA("TextBox") then
  682. v.Position = v.Position + UDim2.new(0,0,0,Amount)
  683. end
  684. end
  685. end
  686. i=0
  687. function ScriptSearch(S)
  688. Script2 = S
  689. Script = Script2.Source
  690. Table = {}
  691. Enabled = true
  692. Gui = Instance.new("ScreenGui")
  693. Gui.Parent = game.CoreGui
  694. Gui.Name = "Explorer"
  695. while Enabled do
  696. Start, End = string.find(Script, '\n')
  697. print(Start, End)
  698. if Start and End then
  699. table.insert(Table, string.sub(Script, 1, End))
  700. New = string.sub(Script, End+1, string.len(Script))
  701. Script = New
  702. else
  703. Enabled = false
  704. table.insert(Table, string.sub(Script, 1, End))
  705. print("Finished")
  706. end
  707. end
  708. P = Instance.new("TextLabel")
  709. P.Size = UDim2.new(0, 500, 0, 20)
  710. P.Text = Script2.Name
  711. P.Name = "Script Line"
  712. P.Parent = Gui
  713. P.BackgroundColor3 = Color3.new(1, 1, 1)
  714. P.TextColor3 = Color3.new(0, 0, 0)
  715. P.BackgroundTransparency = 0.5
  716. P.Position = UDim2.new(0.5, -250, 0, 150+(20*(i-1)))
  717. P.TextXAlignment = "Left"
  718. i=i+1
  719. New = {}
  720. for I,Val in pairs(Table) do
  721. print(Val)
  722. P = Instance.new("TextBox")
  723. P.ClearTextOnFocus = false
  724. P.Size = UDim2.new(0, 500, 0, 20)
  725. P.Text = Val
  726. P.Name = "Script Line"
  727. P.Parent = Gui
  728. P.BackgroundColor3 = Color3.new(1, 1, 1)
  729. P.TextColor3 = Color3.new(0, 0, 0)
  730. P.BackgroundTransparency = 0.5
  731. P.Position = UDim2.new(0.5, -250, 0, 150+(20*(i-1)))
  732. P.TextXAlignment = "Left"
  733. table.insert(New, P)
  734. i=i+1
  735. end
  736. i=1
  737. P = Instance.new("TextButton")
  738. P.Size = UDim2.new(0, 20, 0, 20)
  739. P.Text = "^"
  740. P.Name = "Scroll"
  741. P.Parent = Gui
  742. P.BackgroundColor3 = Color3.new(1, 1, 1)
  743. P.TextColor3 = Color3.new(0, 0, 0)
  744. P.BackgroundTransparency = 0.5
  745. P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
  746. P.MouseButton1Click:connect(function()
  747. MoveUp(Gui, -20)
  748. end)
  749. i=i+1
  750. P = Instance.new("TextButton")
  751. P.Size = UDim2.new(0, 20, 0, 20)
  752. P.Text = "v"
  753. P.Name = "Scroll"
  754. P.Parent = Gui
  755. P.BackgroundColor3 = Color3.new(1, 1, 1)
  756. P.TextColor3 = Color3.new(0, 0, 0)
  757. P.BackgroundTransparency = 0.5
  758. P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
  759. P.MouseButton1Click:connect(function()
  760. MoveDown(Gui, -20)
  761. end)
  762. i=i+1
  763. P = Instance.new("TextButton")
  764. P.Size = UDim2.new(0, 20, 0, 20)
  765. P.Text = "^^"
  766. P.Name = "Scroll"
  767. P.Parent = Gui
  768. P.BackgroundColor3 = Color3.new(1, 1, 1)
  769. P.TextColor3 = Color3.new(0, 0, 0)
  770. P.BackgroundTransparency = 0.5
  771. P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
  772. P.MouseButton1Click:connect(function()
  773. MoveUp(Gui, -200)
  774. end)
  775. i=i+1
  776. P = Instance.new("TextButton")
  777. P.Size = UDim2.new(0, 20, 0, 20)
  778. P.Text = "vv"
  779. P.Name = "Scroll"
  780. P.Parent = Gui
  781. P.BackgroundColor3 = Color3.new(1, 1, 1)
  782. P.TextColor3 = Color3.new(0, 0, 0)
  783. P.BackgroundTransparency = 0.5
  784. P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
  785. P.MouseButton1Click:connect(function()
  786. MoveDown(Gui, -200)
  787. end)
  788. i=i+1
  789. P = Instance.new("TextButton")
  790. P.Size = UDim2.new(0, 20, 0, 20)
  791. P.Text = "S"
  792. P.Name = "Save"
  793. P.Parent = Gui
  794. P.BackgroundColor3 = Color3.new(0, 1, 0)
  795. P.TextColor3 = Color3.new(0, 0, 0)
  796. P.BackgroundTransparency = 0.5
  797. P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
  798. P.MouseButton1Click:connect(function()
  799. StringS = ""
  800. for Num, Obj in pairs(New) do
  801. StringS = StringS..Obj.Text..'\n'
  802. end
  803. S.Source = StringS
  804. S.Disabled = true
  805. S.Disabled = false
  806. end)
  807. i=i+1
  808. P = Instance.new("TextButton")
  809. P.Size = UDim2.new(0, 20, 0, 20)
  810. P.Text = "x"
  811. P.Name = "Back"
  812. P.Parent = Gui
  813. P.BackgroundColor3 = Color3.new(1, 0.2, 0)
  814. P.TextColor3 = Color3.new(0, 0, 0)
  815. P.BackgroundTransparency = 0.5
  816. P.Position = UDim2.new(0.5, -270, 0, 150+(20*(i-1)))
  817. P.MouseButton1Click:connect(function()
  818. Clear()
  819. i=0
  820. Search(S)
  821. end)
  822. i=i+1
  823. end
  824. end
  825.  
  826. pgr.MouseButton1Click:connect(function()
  827. Clear()
  828. Search(game)
  829. end)
  830. [Pics] In 26 Pictures, See How Much Prince Harry Loves Meghan Markle
  831. [Pics] In 26 Pictures, See How Much Prince Harry Loves Meghan Markle
  832. BuzzAura
  833. Recommended by
  834.  
  835.  
  836. create new paste / dealsnew! / syntax languages / archive / faq / tools / night mode / api / scraping api
  837. privacy statement / cookies policy / terms of service / security disclosure / dmca / contact
  838.  
  839. Dedicated Server Hosting by Steadfast
  840. Top
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement