yamanohera155233

Untitled

Jun 19th, 2016
137
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.51 KB | None | 0 0
  1. local name = "TerminalZero"
  2. local PluginManagerObject = PluginManager()
  3. local Plugin = PluginManagerObject:CreatePlugin()
  4. local Toolbar = Plugin:CreateToolbar("Hello World Plugin Toolbar")
  5. local Button = Toolbar:CreateButton("Explorer", "View Hidden Items", "LuaIcon")
  6. local active = true
  7. print 'Teleport Plugin Loaded'
  8.  
  9. local run = true
  10.  
  11. while true and wait() do
  12. if (game.Players.LocalPlayer == nil) then else break end end
  13.  
  14. Properties={nil,"Name","className","Parent","archivable","AttachmentForward","AttachmentPos","AttachmentRight","AttachmentUp","AnimationId","HeadColor","RightArmColor","LeftArmColor","TorsoColor","LeftLegColor","RightLegColor","Value","CameraType","CameraSubject","BaseTextureId","BodyPart","MeshId","OverlayTextureId","MaxActivationDistance","Shiny","Specular","Texture","Face","GripForward","GripPos","GripRight","GripUp","TextureId","TeamColor","Enabled","CFrame","BrickColor","Material","Reflectance","Transparency","Position","RotVelocity","Velocity","Anchored","CanCollide","Locked","Elasticity","Friction","Shape","Size","formFactor","BackSurface","BottomSurface","FrontSurface","LeftSurface","RightSurface","TopSurface","AbsolutePosition","AbsoluteSize","Active","BackgroundColor3","BackgroundTransparency","BorderColor3","BorderSizePixel","SizeConstraint","Visible","ZIndex","C0","C1","Part0","Part1","BinType","LeftLeg","RightLeg","Torso","Health","MaxHealth","WalkSpeed","Jump","PlatformStand","Sit","AutoButtonColor","Image","LinkedSource","Disabled","Text","PrimaryPart","CurrentAngle","DesiredAngle","MaxVelocity","PantsTemplate","ShirtTemplate","SoundId","Pitch","IsPlaying","IsPaused","Looped","PlayOnRemove","StudsPerTileU","StudsPerTileV","userId","BubbleChat","ClassicChat","MaxPlayers","NumPlayers","LocalPlayer","CharacterAppearance","Character","CurrentCamera","Ambient","Brightness","ColorShift_Bottom","ColorShift_Top","ShadowColor","GeographicLatitude","TimeOfDay","AmbientReverb","DistanceFactor","DopplerScale","RolloffScale"}
  15. GlobalProperties={nil,"Name","className","Parent","archivable"}
  16. GlobalEvents={nil,"AncestryChanged","ChildAdded","ChildRemoved","DescendantAdded","DescendantRemoving"}
  17. GlobalFunctions={nil,"Clone","FindFirstChild","GetChildren","GetFullName","IsA","IsAncesterOf","IsDescendantOf","Remove"}
  18. local Selection=game
  19. local updateDebounce=1
  20. Base="http://www.roblox.com/asset/?id="
  21. Images={Value=40332408,Sound=40332463,Script=40332546,ScreenGui=40332596,Part=40332760,Nil=40332825,Model=40332865,Message=40332942,LocalScript=40332996,Joint=40333049,Frame=40333121,Camera=40333217,Backpack=40333260,Player=40332674,Body=40339623,HopperBin=40339572,Tool=40339513,Workspace=40484518,Mesh=40484580,Property=40493937,Animation=40531758,Hat=40531808,Humanoid=40531903}
  22. Min=1
  23. Max=40
  24. MAXPAGEN=40
  25. --[[==================================================================]]
  26. function GetProperties(Object,Table)
  27. local Return={}
  28. local function C() end
  29. for i=1,#Table do
  30. if pcall(function() C(Object[Table[i]]) end) then
  31. if (Object:FindFirstChild(Table[i])==nil) then
  32. table.insert(Return,Table[i])
  33. end end end
  34. return Return
  35. end
  36.  
  37. function GetType(Prop)
  38. if (type(Prop)=="userdata") then
  39. if pcall(function() Prop.Name=Prop.Name end) then
  40. return Prop.Name
  41. end end
  42. return Prop
  43. end
  44.  
  45. function SetPropGui()
  46. if (Selection~=nil) then
  47. local PropGuiPos=0
  48. local Gui=game:GetService("CoreGui"):FindFirstChild("PropertiesGui")
  49. if (Gui~=nil) then
  50. Gui:Remove()
  51. end
  52. PropGui=Instance.new("ScreenGui")
  53. PropGui.Parent=game:GetService("CoreGui")
  54. PropGui.Name="PropertiesGui"
  55. local Props=GetProperties(Selection,Properties)
  56. for i=1,#Props do
  57. PropGuiPos=i
  58. local Get=GetType(Props[i])
  59. local Label=Instance.new("TextButton")
  60. Label.Parent=PropGui
  61. Label.Size=UDim2.new(0,150,0,15)
  62. Label.Text=" "..tostring(Get).." | "..tostring(Selection[Get])
  63. Label.BackgroundColor3=Color3.new(0.7,0.7,0.9)
  64. Label.Name=tostring(Get)
  65. Label.TextXAlignment="Left"
  66. Label.Position=UDim2.new(0,230,0,(i*15)-15)
  67. Label.TextColor3=Color3.new(0,0,0)
  68. Label.BorderColor3=Color3.new(0,0,0)
  69. Label.BackgroundTransparency=0.5
  70. Label.Active=false
  71. Label.AutoButtonColor=false
  72. CreateImageLabel(Label,Base..Images.Property)
  73. if (type(Selection[Props[i]])=="boolean") then
  74. if pcall(function() Selection[Props[i]]=Selection[Props[i]] end) then
  75. Label.Active=true
  76. Label.AutoButtonColor=true
  77. Label.BackgroundColor3=Color3.new(0.5,0.5,1)
  78. Label.MouseButton1Click:connect(function()
  79. if (Selection[Props[i]]==true) then
  80. Selection[Props[i]]=false
  81. elseif (Selection[Props[i]]==false) then
  82. Selection[Props[i]]=true
  83. end
  84. Label.Text=" "..tostring(Props[i]).." | "..tostring(Selection[Props[i]])
  85. end) end end end
  86. end end
  87.  
  88. function CreateImageLabel(Par,image)
  89. local label=Instance.new("ImageLabel")
  90. label.BackgroundColor3=Color3.new(1,1,1)
  91. label.BackgroundTransparency=1
  92. label.Name="ItemImage"
  93. label.Size=UDim2.new(0,13,0,13)
  94. label.Position=UDim2.new(0,1,0,1)
  95. label.Image=image
  96. label.BorderSizePixel=0
  97. label.Parent=Par
  98. end
  99.  
  100. function SetImage(Par,class)
  101. if (class=="IntValue") or (class=="BoolValue") or (class=="StringValue") or (class=="ObjectValue") or (class=="CFrameValue") or (class=="Vector3Value") or (class=="NumberValue") or (class=="RayValue") or (class=="Color3Value") or (class=="BrickColorValue") then
  102. CreateImageLabel(Par,Base..Images.Value)
  103. elseif (class=="Sound") or (class=="StockSound") or (class=="SoundService") then
  104. CreateImageLabel(Par,Base..Images.Sound)
  105. elseif (class=="Script") then
  106. CreateImageLabel(Par,Base..Images.Script)
  107. elseif (class=="ScreenGui") or (class=="GuiMain") or (class=="BillboardGui") then
  108. CreateImageLabel(Par,Base..Images.ScreenGui)
  109. elseif (class=="Part") or (class=="WedgePart") or (class=="TrussPart") then
  110. CreateImageLabel(Par,Base..Images.Part)
  111. elseif (class=="Model") then
  112. CreateImageLabel(Par,Base..Images.Model)
  113. elseif (class=="Hint") or (class=="Message") then
  114. CreateImageLabel(Par,Base..Images.Message)
  115. elseif (class=="LocalScript") then
  116. CreateImageLabel(Par,Base..Images.LocalScript)
  117. elseif (class=="Weld") or (class=="Snap") or (class=="Glue") or (class=="Rotate") or (class=="RotateP") or (class=="RotateV") or (class=="JointsService") then
  118. CreateImageLabel(Par,Base..Images.Joint)
  119. elseif (class=="Frame") or (class=="TextLabel") or (class=="TextButton") or (class=="TextBox") or (class=="ImageButton") or (class=="ImageLabel") then
  120. CreateImageLabel(Par,Base..Images.Frame)
  121. elseif (class=="Camera") then
  122. CreateImageLabel(Par,Base..Images.Camera)
  123. elseif (class=="Backpack") or (class=="StarterGear") or (class=="StarterPack") or (class=="StarterGui") or (class=="PlayerGui") then
  124. CreateImageLabel(Par,Base..Images.Backpack)
  125. elseif (class=="Player") or (class=="PseudoPlayer") or (class=="Players") then
  126. CreateImageLabel(Par,Base..Images.Player)
  127. elseif (class=="BodyPosition") or (class=="BodyGyro") or (class=="BodyVelocity") or (class=="BodyThrust") or (class=="BodyForce") or (class=="RocketPropulsion") then
  128. CreateImageLabel(Par,Base..Images.Body)
  129. elseif (class=="HopperBin") then
  130. CreateImageLabel(Par,Base..Images.HopperBin)
  131. elseif (class=="Tool") then
  132. CreateImageLabel(Par,Base..Images.Tool)
  133. elseif (class=="Workspace") then
  134. CreateImageLabel(Par,Base..Images.Workspace)
  135. elseif (class=="BlockMesh") or (class=="SpecialMesh") or (class=="CylinderMesh") then
  136. CreateImageLabel(Par,Base..Images.Mesh)
  137. elseif (class=="Animation") or (class=="CharacterMesh") then
  138. CreateImageLabel(Par,Base..Images.Animation)
  139. elseif (class=="Hat") then
  140. CreateImageLabel(Par,Base..Images.Hat)
  141. elseif (class=="Humanoid") then
  142. CreateImageLabel(Par,Base..Images.Humanoid)
  143. elseif (class=="StarterScript") then
  144. CreateImageLabel(Par,Base..Images.LocalScript)
  145. elseif (class=="CoreScript") then
  146. CreateImageLabel(Par,Base..Images.LocalScript)
  147. else CreateImageLabel(Par,Base..Images.Nil)
  148. end
  149. end
  150.  
  151. function SetExplGui()
  152. if (Selection~=nil) then
  153. local Gui=game:GetService("CoreGui"):FindFirstChild("ExplorerGui")
  154. if (Gui~=nil) then Gui:Remove() end
  155. local Children=Selection:GetChildren()
  156. ExplGui=Instance.new("ScreenGui")
  157. ExplGui.Parent=game:GetService("CoreGui")
  158. ExplGui.Name="ExplorerGui"
  159. if (Selection.Parent~=nil) then
  160. local BackButton=Instance.new("TextButton")
  161. BackButton.Size=UDim2.new(0,120,0,15)
  162. BackButton.BorderColor3=Color3.new(0,0,0)
  163. BackButton.TextColor3=Color3.new(0,0,0)
  164. BackButton.Parent=ExplGui
  165. BackButton.Text="Back to " .. Selection.Parent.Name
  166. BackButton.BackgroundColor3=Color3.new(0.3,0.3,1)
  167. BackButton.BackgroundTransparency=0.5
  168. BackButton.Position=UDim2.new(0,380,0,0)
  169. BackButton.Name="Back"
  170. BackButton.MouseButton1Click:connect(function()
  171. Selection=Selection.Parent
  172. SetExplGui()
  173. SetPropGui()
  174. end) end
  175. if (#Children>=MAXPAGEN) then
  176. local f=0
  177. for i=Min,Max do
  178. f=f+1
  179. local Obj=Instance.new("TextButton")
  180. Obj.Size=UDim2.new(0,120,0,15)
  181. Obj.BorderColor3=Color3.new(0,0,0)
  182. Obj.TextColor3=Color3.new(0,0,0)
  183. Obj.Parent=ExplGui
  184. Obj.Text=" "..Children[i].Name
  185. Obj.BackgroundColor3=Color3.new(0.4,0.4,0.6)
  186. Obj.BackgroundTransparency=0.5
  187. Obj.TextXAlignment="Left"
  188. if (Selection.Parent~=nil) then Obj.Position=UDim2.new(0,380,0,(f*15)) else Obj.Position=UDim2.new(0,380,0,(f*15)-15) end
  189. Obj.Name=Children[i].Name
  190. SetImage(Obj,Children[i].className)
  191. Obj.MouseButton1Click:connect(function() pcall(function() Selection=Children[i] SetExplGui() SetPropGui() end) end)
  192. local Remove=Instance.new("TextButton")
  193. Remove.Size=UDim2.new(0,15,0,15)
  194. Remove.BorderColor3=Color3.new(0,0,0)
  195. Remove.TextColor3=Color3.new(0,0,0)
  196. Remove.Parent=ExplGui
  197. Remove.Text="X"
  198. Remove.BackgroundColor3=Color3.new(1,0.25,0.25)
  199. Remove.BackgroundTransparency=0.5
  200. Remove.Name="Remove" .. Children[i].Name
  201. if (Selection.Parent~=nil) then Remove.Position=UDim2.new(0,500,0,(f*15)) else Remove.Position=UDim2.new(0,500,0,(f*15)-15) end
  202. Remove.MouseButton1Click:connect(function() if (pcall(function() Children[i]:Remove() end)) then SetPropGui() SetExplGui() else Remove.BackgroundColor3=Color3.new(1,1,1) wait(1) Remove.BackgroundColor3=Color3.new(1,0.25,0.25) end end)
  203. end
  204. local UP=Instance.new("TextButton")
  205. UP.Position=UDim2.new(0,515,0,0)
  206. UP.Size=UDim2.new(0,15,0,15)
  207. UP.BorderColor3=Color3.new(0,0,0)
  208. UP.TextColor3=Color3.new(0,0,0)
  209. UP.Parent=ExplGui
  210. UP.Text="^"
  211. UP.BackgroundColor3=Color3.new(1,0.25,0.25)
  212. UP.BackgroundTransparency=0.5
  213. UP.Name="UpButton"
  214. UP.MouseButton1Click:connect(function() if (Min<=1) then return end Min=Min-1 Max=Max-1 SetExplGui() end)
  215. local DOWN=Instance.new("TextButton")
  216. DOWN.Position=UDim2.new(0,515,0,15)
  217. DOWN.Size=UDim2.new(0,15,0,15)
  218. DOWN.BorderColor3=Color3.new(0,0,0)
  219. DOWN.TextColor3=Color3.new(0,0,0)
  220. DOWN.Parent=ExplGui
  221. DOWN.Text="v"
  222. DOWN.BackgroundColor3=Color3.new(1,0.25,0.25)
  223. DOWN.BackgroundTransparency=0.5
  224. DOWN.Name="DownButton"
  225. DOWN.MouseButton1Click:connect(function() if (Max>=#Children) then return end Min=Min+1 Max=Max+1 SetExplGui() end)
  226. else
  227. Max=MAXPAGEN
  228. Min=1
  229. for i=1,#Children do
  230. local Obj=Instance.new("TextButton")
  231. Obj.Size=UDim2.new(0,120,0,15)
  232. Obj.BorderColor3=Color3.new(0,0,0)
  233. Obj.TextColor3=Color3.new(0,0,0)
  234. Obj.Parent=ExplGui
  235. Obj.Text=" "..Children[i].Name
  236. Obj.BackgroundColor3=Color3.new(0.4,0.4,0.6)
  237. Obj.BackgroundTransparency=0.5
  238. Obj.TextXAlignment="Left"
  239. if (Selection.Parent~=nil) then Obj.Position=UDim2.new(0,380,0,(i*15)) else Obj.Position=UDim2.new(0,380,0,(i*15)-15) end
  240. Obj.Name=Children[i].Name
  241. SetImage(Obj,Children[i].className)
  242. Obj.MouseButton1Click:connect(function() pcall(function() Selection=Children[i] SetExplGui() SetPropGui() end) end)
  243. local Remove=Instance.new("TextButton")
  244. Remove.Size=UDim2.new(0,15,0,15)
  245. Remove.BorderColor3=Color3.new(0,0,0)
  246. Remove.TextColor3=Color3.new(0,0,0)
  247. Remove.Parent=ExplGui
  248. Remove.Text="X"
  249. Remove.BackgroundColor3=Color3.new(1,0.25,0.25)
  250. Remove.BackgroundTransparency=0.5
  251. Remove.Name="Remove" .. Children[i].Name
  252. if (Selection.Parent~=nil) then Remove.Position=UDim2.new(0,500,0,(i*15)) else Remove.Position=UDim2.new(0,500,0,(i*15)-15) end
  253. Remove.MouseButton1Click:connect(function() if (pcall(function() Children[i]:Remove() end)) then SetPropGui() SetExplGui() else Remove.BackgroundColor3=Color3.new(1,1,1) wait(1) Remove.BackgroundColor3=Color3.new(1,0.25,0.25) end end)
  254. end
  255. end
  256. end
  257. ----------------
  258. Selection.Changed:connect(function(prop)
  259. if (Selection==game) then return end
  260. if (updateDebounce==1) then
  261. updateDebounce=0
  262. if (Selection.Parent==nil) then
  263. Selection=game
  264. updateDebounce=1
  265. SetPropGui()
  266. SetExplGui()
  267. return end
  268. if (PropGui~=nil) then
  269. local Button=PropGui:FindFirstChild(prop)
  270. if (Button~=nil) then
  271. local Get=GetType(prop)
  272. Button.Text=" "..tostring(Get).." | "..tostring(Selection[Get])
  273. end end
  274. wait()
  275. updateDebounce=1
  276. end end)
  277. ---------------------------
  278. end
  279. SetPropGui()
  280. SetExplGui()
Add Comment
Please, Sign In to add comment