Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- local Library = {}
- local ScreenGui = Instance.new("ScreenGui")
- ScreenGui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")
- ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
- ScreenGui.ResetOnSpawn = false
- function Library:Create()
- local Frame = Instance.new("Frame")
- local Top = Instance.new("Frame")
- local TextLabel = Instance.new("TextLabel")
- local UIGradient = Instance.new("UIGradient")
- local Minimize = Instance.new("TextButton")
- local TextLabel_2 = Instance.new("TextLabel")
- local ScrollingFrame = Instance.new("ScrollingFrame")
- local UIListLayout = Instance.new("UIListLayout")
- Frame.Parent = ScreenGui
- Frame.BackgroundColor3 = Color3.fromRGB(45, 45, 45)
- Frame.BorderColor3 = Color3.fromRGB(85, 255, 127)
- Frame.Position = UDim2.new(0.281763822, 0, 0.231098428, 0)
- Frame.Size = UDim2.new(0, 350, 0, 400)
- Frame.ClipsDescendants = true
- Frame.Active = true
- local dragger = {}; do
- local mouse = game:GetService("Players").LocalPlayer:GetMouse();
- local inputService = game:GetService('UserInputService');
- local heartbeat = game:GetService("RunService").Heartbeat;
- -- // credits to Ririchi / Inori for this cute drag function :)
- function dragger.new(frame)
- local s, event = pcall(function()
- return frame.MouseEnter
- end)
- if s then
- frame.Active = true;
- event:connect(function()
- local input = frame.InputBegan:connect(function(key)
- if key.UserInputType == Enum.UserInputType.MouseButton1 then
- local objectPosition = Vector2.new(mouse.X - frame.AbsolutePosition.X, mouse.Y - frame.AbsolutePosition.Y);
- while heartbeat:wait() and inputService:IsMouseButtonPressed(Enum.UserInputType.MouseButton1) do
- pcall(function()
- frame:TweenPosition(UDim2.new(0, mouse.X - objectPosition.X + (frame.Size.X.Offset * frame.AnchorPoint.X), 0, mouse.Y - objectPosition.Y + (frame.Size.Y.Offset * frame.AnchorPoint.Y)), 'Out', 'Linear', 0.1, true);
- end)
- end
- end
- end)
- local leave;
- leave = frame.MouseLeave:connect(function()
- input:disconnect();
- leave:disconnect();
- end)
- end)
- end
- end
- end
- dragger.new(Frame)
- Top.Name = "Top"
- Top.Parent = Frame
- Top.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
- Top.BorderSizePixel = 0
- Top.Size = UDim2.new(0, 350, 0, 50)
- TextLabel.Parent = Top
- TextLabel.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
- TextLabel.BackgroundTransparency = 1.000
- TextLabel.Size = UDim2.new(0, 300, 0, 30)
- TextLabel.Font = Enum.Font.GothamBold
- TextLabel.Text = "Egg Hunt Haxx"
- TextLabel.TextColor3 = Color3.fromRGB(0, 0, 0)
- TextLabel.TextScaled = true
- TextLabel.TextSize = 14.000
- TextLabel.TextWrapped = true
- UIGradient.Color = ColorSequence.new{ColorSequenceKeypoint.new(0.00, Color3.fromRGB(85, 255, 127)), ColorSequenceKeypoint.new(1.00, Color3.fromRGB(45, 45, 45))}
- UIGradient.Rotation = 270
- UIGradient.Parent = Top
- Minimize.Name = "Minimize"
- Minimize.Parent = Top
- Minimize.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
- Minimize.BackgroundTransparency = 1.000
- Minimize.Position = UDim2.new(0.857142866, 0, 0, 0)
- Minimize.Size = UDim2.new(0, 50, 0, 50)
- Minimize.Font = Enum.Font.GothamSemibold
- Minimize.Text = "-"
- Minimize.TextColor3 = Color3.fromRGB(0, 0, 0)
- Minimize.TextScaled = true
- Minimize.TextSize = 14.000
- Minimize.TextWrapped = true
- Minimize.MouseButton1Click:Connect(function()
- if Minimize.Text == "-" then
- ScrollingFrame:TweenSize(UDim2.new(0,350,0,0),"In","Sine",0.75,true,nil)
- Frame:TweenSize(UDim2.new(0,350,0,50),"In","Sine",0.75,true,nil)
- wait(0.75)
- Minimize.Text = "+"
- ScrollingFrame.Visible = false
- else
- ScrollingFrame:TweenSize(UDim2.new(0,350,0,350),"Out","Sine",0.75,true,nil)
- Frame:TweenSize(UDim2.new(0,350,0,400),"Out","Sine",0.75,true,nil)
- ScrollingFrame.Visible = true
- wait(0.75)
- Minimize.Text = "-"
- end
- end)
- TextLabel_2.Parent = Top
- TextLabel_2.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
- TextLabel_2.BackgroundTransparency = 1.000
- TextLabel_2.Position = UDim2.new(0, 0, 0.600000024, 0)
- TextLabel_2.Size = UDim2.new(0, 300, 0, 20)
- TextLabel_2.Font = Enum.Font.GothamBlack
- TextLabel_2.Text = "By SkeletalScripts"
- TextLabel_2.TextColor3 = Color3.fromRGB(0, 0, 0)
- TextLabel_2.TextScaled = true
- TextLabel_2.TextSize = 14.000
- TextLabel_2.TextWrapped = true
- ScrollingFrame.Parent = Frame
- ScrollingFrame.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
- ScrollingFrame.BackgroundTransparency = 1.000
- ScrollingFrame.BorderColor3 = Color3.fromRGB(85, 255, 127)
- ScrollingFrame.Position = UDim2.new(0, 0, 0.125, 0)
- ScrollingFrame.Size = UDim2.new(0, 350, 0, 350)
- ScrollingFrame.CanvasSize = UDim2.new(0, 0, 1, 0)
- ScrollingFrame.VerticalScrollBarPosition = Enum.VerticalScrollBarPosition.Left
- UIListLayout.Parent = ScrollingFrame
- UIListLayout.SortOrder = Enum.SortOrder.LayoutOrder
- local cr = {}
- function cr:Button(name,callback)
- callback = callback or function() end
- local TextButton = Instance.new("TextButton")
- local UIGradient_2 = Instance.new("UIGradient")
- local Sample = Instance.new("ImageLabel")
- TextButton.Parent = ScrollingFrame
- TextButton.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
- TextButton.ClipsDescendants = true
- TextButton.Size = UDim2.new(1, 0, 0, 30)
- TextButton.Font = Enum.Font.GothamBold
- TextButton.Text = " "..name
- TextButton.TextColor3 = Color3.fromRGB(0, 0, 0)
- TextButton.TextScaled = true
- TextButton.TextSize = 14.000
- TextButton.TextWrapped = true
- TextButton.TextXAlignment = Enum.TextXAlignment.Left
- UIGradient_2.Color = ColorSequence.new{ColorSequenceKeypoint.new(0.00, Color3.fromRGB(65, 65, 65)), ColorSequenceKeypoint.new(1.00, Color3.fromRGB(85, 255, 127))}
- UIGradient_2.Rotation = 90
- UIGradient_2.Parent = TextButton
- Sample.Name = "Sample"
- Sample.Parent = TextButton
- Sample.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
- Sample.BackgroundTransparency = 1.000
- Sample.ZIndex = 7
- Sample.Image = "http://www.roblox.com/asset/?id=4560909609"
- Sample.ImageTransparency = 0.600
- local ms = game.Players.LocalPlayer:GetMouse()
- local btn = TextButton
- local sample = Sample
- btn.MouseButton1Click:Connect(function()
- local c = sample:Clone()
- c.Parent = btn
- local x, y = (ms.X - c.AbsolutePosition.X), (ms.Y - c.AbsolutePosition.Y)
- c.Position = UDim2.new(0, x, 0, y)
- local len, size = 0.35, nil
- if btn.AbsoluteSize.X >= btn.AbsoluteSize.Y then
- size = (btn.AbsoluteSize.X * 1.5)
- else
- size = (btn.AbsoluteSize.Y * 1.5)
- end
- c:TweenSizeAndPosition(UDim2.new(0, size, 0, size), UDim2.new(0.5, (-size / 2), 0.5, (-size / 2)), 'Out', 'Quad', len, true, nil)
- for i = 1, 10 do
- c.ImageTransparency = c.ImageTransparency + 0.05
- wait(len / 12)
- end
- c:Destroy()
- end)
- TextButton.MouseButton1Click:Connect(callback)
- ScrollingFrame.CanvasSize = ScrollingFrame.CanvasSize + UDim2.new(0,0,0,30)
- end
- return cr;
- end
- return Library
Advertisement
Add Comment
Please, Sign In to add comment