Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- local push = 0
- local f = Instance.new("Frame", sg)
- f.Name = "P"
- f.Style = "RobloxRound"
- f.Size = UDim2.new(.4,0,.7,0)
- f.Position = UDim2.new(.6,0,.15,0)
- if pcall(function() _ = obj["Name"] end) then
- local pN = Instance.new("TextLabel", f)
- pN.Size = UDim2.new(.5,0,.05,0)
- pN.Position = UDim2.new(0,0, push,0)
- pN.Text = "Name"
- pN.BackgroundColor3 = backgroundcolor
- pN.BorderColor3 = bordercolor
- pN.TextColor3 = bordercolor
- pN.FontSize = "Size10"
- local pV = Instance.new("TextBox", f)
- pV.ClearTextOnFocus = false
- pV.Size = UDim2.new(.5,0,.05,0)
- pV.Position = UDim2.new(.5,0,push,0)
- push = push + .05
- pV.Text = obj.Name
- pV.BackgroundColor3 = backgroundcolor
- pV.BorderColor3 = bordercolor
- pV.TextColor3 = fontcolor
- pV.FontSize = "Size10"
- pV.Changed:connect(function()
- pcall(function()
- obj.Name = pV.Text
- end)
- end)
- end
- if pcall(function() _ = obj["ClassName"] end) then
- local pN = Instance.new("TextLabel", f)
- pN.Size = UDim2.new(.5,0,.05,0)
- pN.Position = UDim2.new(0,0, push,0)
- pN.Text = "ClassName"
- pN.BackgroundColor3 = backgroundcolor
- pN.BorderColor3 = bordercolor
- pN.TextColor3 = bordercolor
- pN.FontSize = "Size10"
- local pV = Instance.new("TextLabel", f)
- pV.Size = UDim2.new(.5,0,.05,0)
- pV.Position = UDim2.new(.5,0,push,0)
- push = push + .05
- pV.Text = obj.ClassName
- pV.BackgroundColor3 = backgroundcolor
- pV.BorderColor3 = bordercolor
- pV.TextColor3 = bordercolor
- pV.FontSize = "Size10"
- end
- if pcall(function() _ = obj["Transparency"] end) then
- local pN = Instance.new("TextLabel", f)
- pN.Size = UDim2.new(.5,0,.05,0)
- pN.Position = UDim2.new(0,0, push,0)
- pN.Text = "Transparency"
- pN.BackgroundColor3 = backgroundcolor
- pN.BorderColor3 = bordercolor
- pN.TextColor3 = bordercolor
- pN.FontSize = "Size10"
- local pV = Instance.new("TextBox", f)
- pV.Size = UDim2.new(.5,0,.05,0)
- pV.Position = UDim2.new(.5,0,push,0)
- push = push + .05
- pV.Text = tostring(obj.Transparency)
- pV.BackgroundColor3 = backgroundcolor
- pV.BorderColor3 = bordercolor
- pV.TextColor3 = fontcolor
- pV.FontSize = "Size10"
- pV.Changed:connect(function()
- pcall(function()
- obj.Transparency = pV.Text
- end)
- end)
- end
- if pcall(function() _ = obj["Parent"] end) then
- local pN = Instance.new("TextLabel", f)
- pN.Size = UDim2.new(.5,0,.05,0)
- pN.Position = UDim2.new(0,0, push,0)
- pN.Text = "Parent"
- pN.BackgroundColor3 = backgroundcolor
- pN.BorderColor3 = bordercolor
- pN.TextColor3 = bordercolor
- pN.FontSize = "Size10"
- local pV = Instance.new("TextBox", f)
- pV.Size = UDim2.new(.5,0,.05,0)
- pV.Position = UDim2.new(.5,0,push,0)
- push = push + .05
- pV.Text = tostring(obj.Parent)
- pV.BackgroundColor3 = backgroundcolor
- pV.BorderColor3 = bordercolor
- pV.TextColor3 = fontcolor
- pV.FontSize = "Size10"
- pV.Changed:connect(function()
- pcall(function()
- obj.Parent = pV.Text
- end)
- end)
- end
- if pcall(function() _ = obj["BrickColor"] end) then
- local pN = Instance.new("TextLabel", f)
- pN.Size = UDim2.new(.5,0,.05,0)
- pN.Position = UDim2.new(0,0, push,0)
- pN.Text = "BrickColor"
- pN.BackgroundColor3 = backgroundcolor
- pN.BorderColor3 = bordercolor
- pN.TextColor3 = bordercolor
- pN.FontSize = "Size10"
- local pV = Instance.new("TextBox", f)
- pV.Size = UDim2.new(.5,0,.05,0)
- pV.Position = UDim2.new(.5,0,push,0)
- push = push + .05
- pV.Text = tostring(obj.BrickColor)
- pV.BackgroundColor3 = backgroundcolor
- pV.BorderColor3 = bordercolor
- pV.TextColor3 = fontcolor
- pV.FontSize = "Size10"
- pV.Changed:connect(function()
- pcall(function()
- obj.BrickColor = BrickColor.new(pV.Text)
- end)
- end)
- end
- if pcall(function() _ = obj["Text"] end) then
- local pN = Instance.new("TextLabel", f)
- pN.Size = UDim2.new(.5,0,.05,0)
- pN.Position = UDim2.new(0,0, push,0)
- pN.Text = "Text"
- pN.BackgroundColor3 = backgroundcolor
- pN.BorderColor3 = bordercolor
- pN.TextColor3 = bordercolor
- pN.FontSize = "Size10"
- local pV = Instance.new("TextBox", f)
- pV.Size = UDim2.new(.5,0,.05,0)
- pV.Position = UDim2.new(.5,0,push,0)
- push = push + .05
- pV.Text = obj.Text
- pV.BackgroundColor3 = backgroundcolor
- pV.BorderColor3 = bordercolor
- pV.TextColor3 = fontcolor
- pV.FontSize = "Size10"
- pV.Changed:connect(function()
- pcall(function()
- obj.Text = pV.Text
- end)
- end)
- end
- if pcall(function() _ = obj["Value"] end) and (obj.ClassName == "StringValue" or obj.ClassName == "IntValue" or obj.ClassName == "NumberValue") then
- local pN = Instance.new("TextLabel", f)
- pN.Size = UDim2.new(.5,0,.05,0)
- pN.Position = UDim2.new(0,0, push,0)
- pN.Text = "Value"
- pN.BackgroundColor3 = backgroundcolor
- pN.BorderColor3 = bordercolor
- pN.TextColor3 = bordercolor
- pN.FontSize = "Size10"
- local pV = Instance.new("TextBox", f)
- pV.Size = UDim2.new(.5,0,.05,0)
- pV.Position = UDim2.new(.5,0,push,0)
- push = push + .05
- pV.Text = obj.Value
- pV.BackgroundColor3 = backgroundcolor
- pV.BorderColor3 = bordercolor
- pV.TextColor3 = fontcolor
- pV.FontSize = "Size10"
- pV.Changed:connect(function()
- pcall(function()
- if type(obj.Value) == "number" then
- obj.Value = tonumber(pV.Text) or 0
- else
- obj.Value = pV.Text
- end
- end)
- end)
- end
- end
- function CreateDropDownMenu(pos, obj)
- local f = Instance.new("Frame", sg)
- f.BackgroundColor3 = backgroundcolor
- f.BorderColor3 = bordercolor
- f.Size = UDim2.new(.1,0,.2,0)
- f.BackgroundTransparency = .3
- f.Position = pos
- local d = Instance.new("TextButton", f)
- d.BackgroundTransparency = 1
- d.Text = "Delete"
- d.FontSize = "Size10"
- d.TextColor3 = fontcolor
- d.Size = UDim2.new(1,0,.15,0)
- d.MouseButton1Click:connect(function()
- pcall(function()
- obj:Destroy()
- end)
- Clear()
- GetList()
- f:Destroy()
- end)
- local c = Instance.new("TextButton", f)
- c.BackgroundTransparency = 1
- c.Text = "Copy"
- c.FontSize = "Size10"
- c.TextColor3 = fontcolor
- c.Size = UDim2.new(1,0,.15,0)
- c.Position = UDim2.new(0,0,.15,0)
- c.MouseButton1Click:connect(function()
- pcall(function()
- copy = obj:Clone()
- end)
- f:Destroy()
- end)
- local p = Instance.new("TextButton", f)
- p.BackgroundTransparency = 1
- p.Text = "Paste into"
- p.FontSize = "Size10"
- p.TextColor3 = fontcolor
- p.Size = UDim2.new(1,0,.15,0)
- p.Position = UDim2.new(0,0,.3,0)
- p.MouseButton1Click:connect(function()
- pcall(function()
- copy.Parent = obj
- end)
- f:Destroy()
- end)
- local ka = Instance.new("TextButton", f)
- ka.BackgroundTransparency = 1
- ka.Text = "Kill"
- ka.FontSize = "Size10"
- ka.TextColor3 = fontcolor
- ka.Size = UDim2.new(1,0,.15,0)
- ka.Position = UDim2.new(0,0,.65,0)
- ka.MouseButton1Click:connect(function()
- pcall(function()
- obj:BreakJoints()
- end)
- Clear()
- GetList()
- f:Destroy()
- end)
- local x = Instance.new("TextButton", f)
- x.BackgroundTransparency = 1
- x.Text = "Close"
- x.FontSize = "Size10"
- x.TextColor3 = fontcolor
- x.Size = UDim2.new(1,0,.15,0)
- x.Position = UDim2.new(0,0,.45,0)
- x.MouseButton1Click:connect(function()
- f:Destroy()
- end)
- end
- function CreatePasteMenu(pos, obj)
- local f = Instance.new("Frame", sg)
- f.BackgroundColor3 = backgroundcolor
- f.BorderColor3 = bordercolor
- f.Size = UDim2.new(.1,0,.2,0)
- f.BackgroundTransparency = .3
- f.Position = pos
- local p = Instance.new("TextButton", f)
- p.BackgroundTransparency = 1
- p.Text = "Paste into"
- p.FontSize = "Size10"
- p.TextColor3 = fontcolor
- p.Size = UDim2.new(1,0,.15,0)
- p.Position = UDim2.new(0,0,0,0)
- p.MouseButton1Click:connect(function()
- pcall(function()
- copy.Parent = obj
- end)
- f:Destroy()
- end)
- local x = Instance.new("TextButton", f)
- x.BackgroundTransparency = 1
- x.Text = "Close"
- x.FontSize = "Size10"
- x.TextColor3 = fontcolor
- x.Size = UDim2.new(1,0,.15,0)
- x.Position = UDim2.new(0,0,.45,0)
- x.MouseButton1Click:connect(function()
- f:Destroy()
- end)
- end
- function Clear()
- for i,v in pairs(fr:GetChildren()) do
- v:Destroy()
- cp = 0
- end
- end
- function GetList()
- local max = 100
- local it = 0
- for i,v in pairs(current:GetChildren()) do
- if cp < .9 then
- CreateButtons(v)
- else
- CreateButtons(v, 1)
- end
- it = it + 1
- if it == max then break end
- end
- end
- GetList()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement