Advertisement
gogo92111

Untitled

Mar 8th, 2020
500
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.92 KB | None | 0 0
  1. -- Farewell Infortality.
  2. -- Version: 2.82
  3. -- Instances:
  4. local ScreenGui = Instance.new("ScreenGui")
  5. local DropShadow = Instance.new("Frame")
  6. local Main = Instance.new("Frame")
  7. local Input = Instance.new("TextBox")
  8. local btnExecute = Instance.new("TextButton")
  9. local btnClear = Instance.new("TextButton")
  10. local TextLabel = Instance.new("TextLabel")
  11. --Properties:
  12. ScreenGui.Parent = game.CoreGui
  13.  
  14.  
  15. DropShadow.Name = "DropShadow"
  16. DropShadow.Parent = ScreenGui
  17. DropShadow.BackgroundColor3 = Color3.new(0.733333, 0.52549, 0.988235)
  18. DropShadow.BorderSizePixel = 0
  19. DropShadow.Position = UDim2.new(0, 400, 0, 209)
  20. DropShadow.Size = UDim2.new(0.216, 0, 0.010, 0)
  21. DropShadow.ZIndex = -1
  22.  
  23. Main.Name = "Main"
  24. Main.Parent = DropShadow
  25. Main.BackgroundColor3 = Color3.new(0.0784314, 0.0784314, 0.0784314)
  26. Main.BorderSizePixel = 0
  27. Main.Position = UDim2.new(-0.000772879925, 0, 0.995309711, 0)
  28. Main.Size = UDim2.new(0, 415, 0, 218)
  29. Main.ZIndex = 0
  30.  
  31. Input.Name = "Input"
  32. Input.Parent = Main
  33. Input.BackgroundColor3 = Color3.new(0.0980392, 0.0980392, 0.0980392)
  34. Input.BorderColor3 = Color3.new(0.392157, 0.392157, 0.392157)
  35. Input.Position = UDim2.new(0.0156478882, 0, 0.0291930027, 0)
  36. Input.Size = UDim2.new(0, 402, 0, 178)
  37. Input.ZIndex = 2
  38. Input.Font = Enum.Font.SourceSans
  39. Input.PlaceholderText = "[Script]"
  40. Input.Text = ""
  41. Input.TextColor3 = Color3.new(0.392157, 0.392157, 0.392157)
  42. Input.TextSize = 20
  43. Input.TextWrapped = true
  44. Input.TextXAlignment = Enum.TextXAlignment.Left
  45. Input.TextYAlignment = Enum.TextYAlignment.Top
  46. Input.ClearTextOnFocus = false
  47.  
  48. btnExecute.Name = "btnExecute"
  49. btnExecute.Parent = Main
  50. btnExecute.BackgroundColor3 = Color3.new(0.0980392, 0.0980392, 0.0980392)
  51. btnExecute.BorderColor3 = Color3.new(0.392157, 0.392157, 0.392157)
  52. btnExecute.Position = UDim2.new(0.0160000008, 0, 0.876146793, 0)
  53. btnExecute.Size = UDim2.new(0, 106, 0, 23)
  54. btnExecute.ZIndex = 7
  55. btnExecute.Font = Enum.Font.SourceSansBold
  56. btnExecute.Text = "Execute"
  57. btnExecute.TextColor3 = Color3.new(0.392157, 0.392157, 0.392157)
  58. btnExecute.TextSize = 20
  59. btnExecute.TextStrokeColor3 = Color3.new(0.392157, 0.392157, 0.392157)
  60.  
  61. btnClear.Name = "btnClear"
  62. btnClear.Parent = Main
  63. btnClear.BackgroundColor3 = Color3.new(0.0980392, 0.0980392, 0.0980392)
  64. btnClear.BorderColor3 = Color3.new(0.392157, 0.392157, 0.392157)
  65. btnClear.Position = UDim2.new(0.297250003, 0, 0.876146793, 0)
  66. btnClear.Size = UDim2.new(0, 106, 0, 23)
  67. btnClear.ZIndex = 7
  68. btnClear.Font = Enum.Font.SourceSansBold
  69. btnClear.Text = "Clear"
  70. btnClear.TextColor3 = Color3.new(0.392157, 0.392157, 0.392157)
  71. btnClear.TextSize = 20
  72. btnClear.TextStrokeColor3 = Color3.new(0.392157, 0.392157, 0.392157)
  73.  
  74. TextLabel.Parent = Main
  75. TextLabel.BackgroundColor3 = Color3.new(0.0784314, 0.0784314, 0.0784314)
  76. TextLabel.BorderSizePixel = 0
  77. TextLabel.Position = UDim2.new(0.576923072, 0, 0.876146793, 0)
  78. TextLabel.Size = UDim2.new(0, 168, 0, 17)
  79. TextLabel.ZIndex = 7
  80. TextLabel.Font = Enum.Font.SourceSans
  81. TextLabel.Text = "'INSERT' Open/Close"
  82. TextLabel.TextColor3 = Color3.new(0.392157, 0.392157, 0.392157)
  83. TextLabel.TextSize = 17
  84. TextLabel.TextStrokeColor3 = Color3.new(0.392157, 0.392157, 0.392157)
  85.  
  86. -- Scripts:
  87. function dragify(Frame)
  88. dragToggle = nil
  89. dragSpeed = 10 -- You can edit this.
  90. dragInput = nil
  91. dragStart = nil
  92. dragPos = nil
  93.  
  94. function updateInput(input)
  95. Delta = input.Position - dragStart
  96. Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + Delta.X, startPos.Y.Scale, startPos.Y.Offset + Delta.Y)
  97. game:GetService("TweenService"):Create(Frame, TweenInfo.new(.25), {Position = Position}):Play()
  98. end
  99. -- below in script.Parent.Frame put your dragging bar
  100. DropShadow.InputBegan:Connect(function(input)
  101. if (input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch) then
  102. dragToggle = true
  103. dragStart = input.Position
  104. startPos = Frame.Position
  105. input.Changed:Connect(function()
  106. if (input.UserInputState == Enum.UserInputState.End) then
  107. dragToggle = false
  108. end
  109. end)
  110. end
  111. end)
  112.  
  113. Frame.InputChanged:Connect(function(input)
  114. if (input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch) then
  115. dragInput = input
  116. end
  117. end)
  118.  
  119. game:GetService("UserInputService").InputChanged:Connect(function(input)
  120. if (input == dragInput and dragToggle) then
  121. updateInput(input)
  122. end
  123. end)
  124. end
  125. dragify(DropShadow)
  126.  
  127. local UserInputService = game:GetService("UserInputService")
  128. btnExecute.MouseButton1Down:Connect(function()
  129. local success, message = pcall(function()
  130. coroutine.wrap(execute)()
  131. coroutine.wrap(execute)()
  132. coroutine.resume(execute)()
  133. wait()
  134. end)
  135. end)
  136.  
  137. btnClear.MouseButton1Down:Connect(function()
  138. Input.Text = ""
  139. end)
  140. function execute()
  141. loadstring(Input.Text)()
  142. end
  143.  
  144. UserInputService.InputBegan:Connect(function(k)
  145. if k.KeyCode == Enum.KeyCode.Insert then
  146. if DropShadow.Visible == true then
  147. DropShadow.Visible = false
  148. else
  149. DropShadow.Visible = true
  150. end
  151. end
  152. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement