Advertisement
Guest User

fe admin

a guest
Jun 1st, 2019
5,375
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.37 KB | None | 0 0
  1. - Hello! It seems you have bought the source for "Kermit's FE Admin"
  2. -- Please do not new user off of this script.
  3. local LPLR = game:GetService('Players').LocalPlayer
  4. local CMDS = {}
  5. local SEIZURE = false
  6. local FEAdmin = Instance.new("ScreenGui")
  7. local Cmdbar = Instance.new("Frame")
  8. local TextLabel = Instance.new("TextLabel")
  9. local TextLabel_2 = Instance.new("TextLabel")
  10. local Bar = Instance.new("TextBox")
  11. local Scroll = Instance.new("ScrollingFrame")
  12. FEAdmin.Name = "FEAdmin"
  13. FEAdmin.Parent = game:GetService('CoreGui')
  14. FEAdmin.ResetOnSpawn = false
  15. Cmdbar.Name = "Cmdbar"
  16. Cmdbar.Parent = FEAdmin
  17. Cmdbar.Active = true
  18. Cmdbar.Visible = false
  19. Cmdbar.BackgroundColor3 = Color3.new(0.266667, 0.266667, 0.266667)
  20. Cmdbar.BorderSizePixel = 0
  21. Cmdbar.Position = UDim2.new(0.137623757, 0, 0.874380171, 0)
  22. Cmdbar.Size = UDim2.new(0, 731, 0, 31)
  23. TextLabel.Parent = Cmdbar
  24. TextLabel.BackgroundColor3 = Color3.new(1, 1, 1)
  25. TextLabel.BackgroundTransparency = 1
  26. TextLabel.BorderSizePixel = 0
  27. TextLabel.Size = UDim2.new(0.0357045159, 0, 1, 0)
  28. TextLabel.Font = Enum.Font.SourceSansLight
  29. TextLabel.Text = ">"
  30. TextLabel.TextColor3 = Color3.new(1, 1, 1)
  31. TextLabel.TextSize = 18
  32. TextLabel.TextStrokeColor3 = Color3.new(1, 1, 1)
  33. TextLabel.TextStrokeTransparency = 0.80000001192093
  34. TextLabel.TextWrapped = true
  35. TextLabel_2.Parent = Cmdbar
  36. TextLabel_2.BackgroundColor3 = Color3.new(1, 1, 1)
  37. TextLabel_2.BackgroundTransparency = 1
  38. TextLabel_2.BorderSizePixel = 0
  39. TextLabel_2.Position = UDim2.new(0.645690858, 0, 1, 0)
  40. TextLabel_2.Size = UDim2.new(0.353078157, 0, 0.45161289, 0)
  41. TextLabel_2.Font = Enum.Font.SourceSansLight
  42. TextLabel_2.Text = "Kermit's FE Admin (scuba kermit#0104)"
  43. TextLabel_2.TextColor3 = Color3.new(1, 1, 1)
  44. TextLabel_2.TextSize = 18
  45. TextLabel_2.TextWrapped = true
  46. TextLabel_2.TextXAlignment = Enum.TextXAlignment.Right
  47. Bar.Name = "Bar"
  48. Bar.Parent = Cmdbar
  49. Bar.BackgroundColor3 = Color3.new(1, 1, 1)
  50. Bar.BackgroundTransparency = 1
  51. Bar.BorderSizePixel = 0
  52. Bar.Position = UDim2.new(0.0355677158, 0, 0, 0)
  53. Bar.Size = UDim2.new(0.922024608, 0, 1, 0)
  54. Bar.ClearTextOnFocus = false
  55. Bar.Font = Enum.Font.SourceSansLight
  56. Bar.PlaceholderText = "enter command here"
  57. Bar.Text = ""
  58. Bar.TextColor3 = Color3.new(1, 1, 1)
  59. Bar.TextSize = 16
  60. Bar.TextXAlignment = Enum.TextXAlignment.Left
  61. Scroll.Name = "Scroll"
  62. Scroll.Parent = FEAdmin
  63. Scroll.Active = true
  64. Scroll.BackgroundColor3 = Color3.new(0.266667, 0.266667, 0.266667)
  65. Scroll.BackgroundTransparency = 1
  66. Scroll.BorderSizePixel = 0
  67. Scroll.Position = UDim2.new(0.137623787, 0, 0.656198382, 0)
  68. Scroll.Rotation = 180
  69. Scroll.Selectable = false
  70. Scroll.Visible = false
  71. Scroll.Size = UDim2.new(0.722871363, 0, 0.20578517, 0)
  72. Scroll.ScrollBarThickness = 0
  73. function AddCmd(name,desc,func)
  74. local TextLab = Instance.new('TextLabel',Scroll)
  75. TextLab.Parent = Scroll
  76. TextLab.BackgroundColor3 = Color3.new(0.266667, 0.266667, 0.266667)
  77. TextLab.BackgroundTransparency = 0.10000000149012
  78. TextLab.BorderSizePixel = 0
  79. TextLab.Rotation = 180
  80. TextLab.Size = UDim2.new(1, 0, 0, 35)
  81. TextLab.Font = Enum.Font.SourceSansLight
  82. TextLab.Text = name.." | "..desc
  83. TextLab.TextColor3 = Color3.new(1, 1, 1)
  84. TextLab.TextSize = 16
  85. CMDS[name]=func
  86. end
  87. function Service(thing)
  88. return game:GetService(thing)
  89. end
  90. AddCmd('blockhats','Turns your hats into blocks!',function()
  91. for i,v in pairs(LPLR.Character:GetChildren()) do
  92. if v:IsA('Accessory') or v:IsA('Hat') then
  93. for _,x in pairs(v.Handle:GetChildren()) do
  94. if x:IsA('FileMesh') or x:IsA('SpecialMesh') then
  95. x:Destroy()
  96. end
  97. end
  98. end
  99. end
  100. end)
  101. AddCmd('drophats','Drops your hats on the ground!',function()
  102. for i,v in pairs(LPLR.Character:GetChildren()) do
  103. if v:IsA('Accessory') or v:IsA('Hat') then
  104. v.Parent = workspace
  105. end
  106. end
  107. end)
  108. AddCmd('boombox','Checks for a boombox and plays a meme on it!',function()
  109. for i,v in pairs(Service('Players'):GetPlayers()) do
  110. for _,x in pairs(v.Character:GetChildren()) do
  111. if string.find(x.Name:lower(),'boombo') then
  112. x.Remote:FireServer("PlaySong",2823274771)
  113. end
  114. end
  115. end
  116. end)
  117. AddCmd('breakgame','Breaks the game (WARNING: IRREVERSIBLE)',function()
  118. game:GetService('StarterGui'):SetCoreGuiEnabled('Backpack',false)
  119. game:GetService('StarterGui'):SetCoreGuiEnabled('Chat',false)
  120. for i,v in pairs(workspace:GetDescendants()) do
  121. if v:IsA('BasePart') then
  122. local ahh=Instance.new('Decal',v)
  123. ahh.Texture='rbxassetid://888498549'
  124. ahh.Face='Front'
  125. local ahh2=ahh:Clone()
  126. ahh2.Parent=v
  127. ahh2.Face='Top'
  128. local ahh3=ahh:Clone()
  129. ahh3.Parent=v
  130. ahh3.Face='Bottom'
  131. local ahh4=ahh:Clone()
  132. ahh4.Parent=v
  133. ahh4.Face='Back'
  134. local ahh5=ahh:Clone()
  135. ahh5.Parent=v
  136. ahh5.Face='Left'
  137. local ahh6=ahh:Clone()
  138. ahh6.Parent=v
  139. ahh6.Face='Right'
  140. end
  141. end
  142. end)
  143. AddCmd('doublejump','Makes you jump twice! (BUGGY)',function()
  144. LPLR:GetMouse().KeyDown:Connect(function(key)
  145. if key == ' ' then
  146. wait(.1)
  147. LPLR.Character.Humanoid.Sit = true
  148. wait()
  149. LPLR.Character.Humanoid.Jump = true
  150. wait()
  151. LPLR.Character.Humanoid.Sit = true
  152. wait()
  153. LPLR.Character.Humanoid.Jump = true
  154. end
  155. end)
  156. end)
  157. AddCmd('invisible','Makes you invisible! (BUGGY)',function()
  158. LPLR.Character.HumanoidRootPart.Anchored = true
  159. end)
  160. AddCmd('visible','Makes you visible! (BUGGY)',function()
  161. LPLR.Character.HumanoidRootPart.Anchored = false
  162. end)
  163. AddCmd('seizure','Makes you have a seizure!',function()
  164. SEIZURE = true
  165. end)
  166. AddCmd('stopseizure','Stops the seizure!',function()
  167. SEIZURE = false
  168. end)
  169.  
  170. -- Bar handling
  171. LPLR:GetMouse().KeyDown:Connect(function(k)
  172. if k == '-' then
  173. Cmdbar.Visible = true
  174. Scroll.Visible = true
  175. Bar:CaptureFocus()
  176. wait()
  177. Bar.Text = ""
  178. end
  179. end)
  180. Bar.FocusLost:Connect(function(enter)
  181. if enter == true then
  182. Cmdbar.Visible = false
  183. Scroll.Visible = false
  184. if CMDS[Bar.Text] then
  185. CMDS[Bar.Text]()
  186. end
  187. Bar.Text = ""
  188. end
  189. end)
  190.  
  191. -- Text stuff
  192. Match = function(name,str) return name:lower():find(str:lower()) and true end
  193. function CIndex(Text)
  194. local Index,SizeY = 0,0
  195. for i,x in pairs(Scroll:GetChildren()) do
  196. if Match(x.Text,Text) then
  197. Index = Index + 1
  198. x.Position = UDim2.new(0,0,0,Index*x.AbsoluteSize.Y-x.AbsoluteSize.Y)
  199. x.Visible = true
  200. SizeY = SizeY + x.AbsoluteSize.Y
  201. Scroll.CanvasSize = UDim2.new(0,0,0,SizeY)
  202. else
  203. x.Visible = false
  204. end
  205. end
  206. end
  207. CIndex('')
  208. Bar:GetPropertyChangedSignal("Text"):Connect(function()
  209. CIndex(Bar.Text)
  210. end)
  211. --Stuff
  212. while wait() do
  213. if SEIZURE then
  214. LPLR.Character.HumanoidRootPart.Massless = true
  215. wait()
  216. LPLR.Character.HumanoidRootPart.Massless = false
  217. wait()
  218. end
  219. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement