Advertisement
KeroroGunso0

Private admin do not Touch or edit

Jul 10th, 2015
292
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.02 KB | None | 0 0
  1. --300SecurityAdminTech Gifted by TheRedAngel, Regular Script!
  2.  
  3. --[[
  4. Welcome to 300 Security Admin Techonlogy, To join the team, please send a private message to Wierdoguy300
  5. 300SecurityAdminTech. - All Rights Reserved
  6. 300SecurityAdminTech. - CopyRight 2012
  7. 300SecurityAdminTech. - Has Encrypted This File For An Anti-Pirating Act
  8. 300SecurityAdminTech. - Auto-Updating Feature Is Still In Progress
  9. ------------------------------------SETTINGS------------------------------ ]]
  10. local version = 0 + .1 / .1 - .9 + .9 - .9 + -.1 + 1.5 --Dont mess with this as it may cause the commands to break down
  11. print(script.Name.." Version "..version.." Loaded!")
  12. local admins = {"kerorogunso2016"} --Not CAsE SeNSitiVe
  13. local banned = {}
  14. local symbol = "/"
  15. local txthelp = ""
  16. local txtnum = 0
  17. local Admin_Updater = version
  18. local sym = #symbol
  19. local ablist = {}
  20. local blocked = {}
  21. local abplayer = nil
  22. local abtime = 30
  23. local here = true
  24. local override=false
  25. local cmd = {{"Kill", "Kills A Player", "kill/player"}, {"Kick", "Kicks A Player", "kick/player"}, {"Ban", "Bans A Player", "ban/player"}, {"ff", "Gives Player A ForceField", "ff/player"}, {"unff", "Removes Players ForceField", "unff/player"}, {"epic", "Gives Player Unlimited Health", "epic/player"}}
  26. ------------------------------------END OF SETTINGS--------------------------
  27. script.Name="300SecurityAdminTech"
  28. create = function(txt)
  29. local s = Instance.new("ScreenGui", script)
  30. s.Name = "A_New_Alert"
  31. local t = Instance.new("TextLabel", s)
  32. t.Name = "A_New_Alert"
  33. t.Text = ""
  34. t.Visible = true
  35. t.Position = UDim2.new(0, 0, 0.199999976, 0)
  36. t.Size = UDim2.new(1, 0, 0.0500000045, 0)
  37. t.TextColor3 = Color3.new(255, 255, 255)
  38. t.BackgroundColor3 = Color3.new(0, 0, 0)
  39. t.BorderColor3 = Color3.new(255, 255, 255)
  40. t.Font = "ArialBold"
  41. t.FontSize = "Size18"
  42. t.BackgroundTransparency = 1
  43. t.TextTransparency = 1
  44. t.Text = "[300SecurityAdminTech] "..txt
  45. for i,p in pairs(game.Players:GetPlayers()) do
  46. s:Clone().Parent = p.PlayerGui
  47. for i=1,20 do
  48. p.PlayerGui.A_New_Alert.A_New_Alert.TextTransparency = p.PlayerGui.A_New_Alert.A_New_Alert.TextTransparency - .05
  49. p.PlayerGui.A_New_Alert.A_New_Alert.BackgroundTransparency = p.PlayerGui.A_New_Alert.A_New_Alert.BackgroundTransparency - .05
  50. wait(0.01)
  51. end
  52. end
  53. end
  54. Un_Removeable = function(old)
  55. if old==script then
  56. script:Clone().Parent = Workspace
  57. end
  58. end
  59. alert = function(txxt)
  60. create(txxt)
  61. end
  62. cleanup = function(time)
  63. wait(time)
  64. for i,p in pairs(game.Players:GetPlayers()) do
  65. if p.PlayerGui:FindFirstChild("A_New_Alert") then
  66. p.PlayerGui.A_New_Alert:Destroy()
  67. end
  68. end
  69. end
  70. alert("300 Security Admin Made By Wierdoguy300, Was Successfully Loaded!")
  71. cleanup(3)
  72.  
  73. local result = nil
  74. search = function(name)
  75. for _,p in pairs(game.Players:GetPlayers()) do
  76. if (string.find(string.lower(p.Name), name) == 1) then
  77. result = nil
  78. wait()
  79. result = p.Name
  80. end
  81. end
  82. end
  83. debug = function(msg,speaker)
  84. if string.lower(msg)=="debug" then
  85. script:Destroy()
  86. end
  87. end
  88. commands = function(msg,speaker)
  89. if string.sub(msg,1,4 + sym) == "kill"..symbol then
  90. search(string.sub(msg,5 + sym))
  91. player = game.Players:FindFirstChild(result)
  92. player.Character.Humanoid.Health = 0
  93. alert(player.Name.." Has Been Killed")
  94. cleanup(2)
  95. end
  96. if string.lower(string.sub(msg,1,4 + sym)) == "kick"..symbol then
  97. search(string.sub(msg,5 + sym))
  98. player = game.Players:FindFirstChild(result)
  99. player:Destroy()
  100. alert(result.." Has Been Kicked.")
  101. cleanup(2)
  102. end
  103. if string.lower(string.sub(msg,1,3 + sym)) == "ban"..symbol then
  104. search(string.sub(msg,4 + sym))
  105. player = game.Players:FindFirstChild(result)
  106. table.insert(banned, player.name)
  107. player:Destroy()
  108. alert(result.." Has Been Banned.")
  109. cleanup(2)
  110. end
  111. if string.lower(string.sub(msg,1,2 + sym)) == "86"..symbol then
  112. search(string.sub(msg,3 + sym))
  113. player = game.Players:FindFirstChild(result)
  114. player:Destroy()
  115. end
  116. if string.lower(string.sub(msg,1,2 + sym)) == "ff"..symbol then
  117. search(string.sub(msg,3 + sym))
  118. player = game.Players:FindFirstChild(result)
  119. local f = Instance.new("ForceField", player.Character)
  120. alert(player.Name.." Now Has A ForceField.")
  121. cleanup(2)
  122. end
  123. if string.lower(string.sub(msg,1,4 + sym)) == "unff"..symbol then
  124. search(string.sub(msg,5 + sym))
  125. player = game.Players:FindFirstChild(result)
  126. for i,f in pairs(player.Character:GetChildren()) do
  127. if f:FindFirstChild("ForceField") then
  128. f.ForceField:Destroy()
  129. end
  130. end
  131. alert(player.Name.." Lost Their ForceField")
  132. cleanup(2)
  133. end
  134. if string.sub(msg,1,4 + sym) == "epic"..symbol then
  135. search(string.sub(msg,5 + sym))
  136. player = game.Players:FindFirstChild(result)
  137. player.Character.Humanoid.MaxHealth = math.huge
  138. alert(player.Name.." Now Has Unlimited Health")
  139. cleanup(2)
  140. end
  141. if string.sub(msg,1,1 + sym) == "m"..symbol then
  142. alert(speaker.Name..": "..string.sub(msg,2 + sym))
  143. cleanup(2)
  144. end
  145. if string.sub(msg,1,1 + sym) == "c"..symbol then
  146. pcall(function()
  147. loadstring(string.sub(msg,2 + sym))()
  148. end)
  149. end
  150. if string.sub(msg,1,3 + sym) == "msg"..symbol then
  151. local m = Instance.new("Message", Workspace)
  152. m.Name="3SA_New_Message"
  153. m.Text = speaker.Name..": "..string.sub(msg,4 + sym)
  154. wait(3)
  155. m:Destroy()
  156. end
  157. if string.lower(msg) == "enable" then
  158. disabled = false
  159. alert("The Game has Been Re-Enabled")
  160. cleanup(2)
  161. end
  162. if string.lower(msg) == "disable" then
  163. disabled = true
  164. alert("The Game has Been Disabled")
  165. cleanup(2)
  166. end
  167. if string.lower(string.sub(msg,1,4 + sym)) == "warn"..symbol then
  168. local an = search(string.sub(msg,5 + sym))
  169. player = game.Players:FindFirstChild(result)
  170. table.insert(warn, 1, player.name)
  171. alert(player.Name.." has Been Warned, Do Not Do It Again!")
  172. end
  173. if string.lower(msg) == "fog" then
  174. game:service("Lighting").FogStart = 0
  175. game:service("Lighting").FogEnd = 100
  176. alert("The Server Has Been Fogged")
  177. cleanup(2)
  178. end
  179. if string.lower(string.sub(msg,1,6 + sym)) == "freeze"..symbol then
  180. local an = search(string.sub(msg,7 + sym))
  181. player = game.Players:FindFirstChild(result)
  182. for i,v in pairs(player.Character:GetChildren()) do
  183. if v.ClassName=="Part" then
  184. v.Anchored = true
  185. end
  186. end
  187. alert(player.Name.." Has Been Frozen")
  188. cleanup(2)
  189. end
  190. if string.lower(string.sub(msg,1,4 + sym)) == "thaw"..symbol then
  191. local an = search(string.sub(msg,5 + sym))
  192. player = game.Players:FindFirstChild(result)
  193. for i,v in pairs(player.Character:GetChildren()) do
  194. if v.ClassName=="Part" then
  195. v.Anchored = false
  196. end
  197. end
  198. alert(player.Name.." Has Been Thawed")
  199. cleanup(2)
  200. end
  201. if string.lower(msg) == "spawncage" then
  202. wall1 = Instance.new("Part", workspace)
  203. wall1.Size = Vector3.new(1, 20, 51)
  204. wall1.Anchored = true
  205. wall1.BrickColor = BrickColor.new("Really red")
  206. wall1.Transparency = 0.7
  207. wall1.TopSurface = "Smooth"
  208. wall1.BottomSurface = "Smooth"
  209. wall1.CFrame = CFrame.new(-25, 10, 0)
  210. wall2 = Instance.new("Part", workspace)
  211. wall2.Size = Vector3.new(51, 20, 1)
  212. wall2.Anchored = true
  213. wall2.BrickColor = BrickColor.new("Really red")
  214. wall2.Transparency = 0.7
  215. wall2.TopSurface = "Smooth"
  216. wall2.BottomSurface = "Smooth"
  217. wall2.CFrame = CFrame.new(0, 10, 25)
  218. wall3 = Instance.new("Part", workspace)
  219. wall3.Size = Vector3.new(1, 20, 51)
  220. wall3.Anchored = true
  221. wall3.BrickColor = BrickColor.new("Really red")
  222. wall3.Transparency = 0.7
  223. wall3.TopSurface = "Smooth"
  224. wall3.BottomSurface = "Smooth"
  225. wall3.CFrame = CFrame.new(25, 10, 0)
  226. wall4 = Instance.new("Part", workspace)
  227. wall4.Size = Vector3.new(51, 20, 1)
  228. wall4.Anchored = true
  229. wall4.BrickColor = BrickColor.new("Really red")
  230. wall4.Transparency = 0.7
  231. wall4.TopSurface = "Smooth"
  232. wall4.BottomSurface = "Smooth"
  233. wall4.CFrame = CFrame.new(0, 10, -25)
  234. roof = Instance.new("Part", workspace)
  235. roof.Anchored = true
  236. roof.Size = Vector3.new(51, 1, 51)
  237. roof.TopSurface = "Smooth"
  238. roof.BottomSurface = "Smooth"
  239. roof.BrickColor = BrickColor.new("Really black")
  240. roof.Locked = true
  241. roof.CFrame = CFrame.new(0, 20.5, 0)
  242. alert("Added A New SpawnCage")
  243. cleanup(2)
  244. end
  245. if string.lower(msg) == "clean" then
  246. for i,v in pairs(workspace:GetChildren()) do
  247. if game:GetService("Players"):GetPlayerFromCharacter(v) == nil then
  248. if v.className ~= "Terrain" then
  249. if v.className ~= "Camera" then
  250. if v~=script then
  251. if v.Name~="TinySB" then
  252. pcall(function() v:Destroy() end)
  253. end
  254. end
  255. end
  256. end
  257. end
  258. end
  259. local b = Instance.new("Part", Game:GetService("Workspace"))
  260. b.Size = Vector3.new(3000, 1, 3000)
  261. b.CFrame = CFrame.new(0, 0, 0)
  262. b.Name = "Base"
  263. b.BrickColor = BrickColor.new("Earth green")
  264. b.TopSurface = "Smooth"
  265. b.BottomSurface = "Smooth"
  266. b.LeftSurface = "Smooth"
  267. b.RightSurface = "Smooth"
  268. b.FrontSurface = "Smooth"
  269. b.BackSurface = "Smooth"
  270. b.Anchored = true
  271. b.Locked = true
  272. local sl = Instance.new("SpawnLocation", workspace)
  273. sl.Anchored = true
  274. sl.Locked = true
  275. sl.formFactor = "Plate"
  276. sl.Size = Vector3.new(6, 0.4, 6)
  277. sl.CFrame = CFrame.new(0, 0.6, 0)
  278. sl.BrickColor = BrickColor.new("Really black")
  279. sl.TopSurface = "Smooth"
  280. sl.BottomSurface = "Smooth"
  281. sl.LeftSurface = "Smooth"
  282. sl.RightSurface = "Smooth"
  283. sl.FrontSurface = "Smooth"
  284. sl.BackSurface = "Smooth"
  285. alert("The Workspace Has Been Cleaned")
  286. cleanup(2)
  287. end
  288. if string.lower(string.sub(msg,1,6+sym)) == "health"..symbol then
  289. local a = search(string.sub(msg,7+sym))
  290. local b = a+sym+1
  291. player = game.Players;FindFirstChild(result)
  292. player.Character.Humanoid.Health = b
  293. end
  294. if string.lower(string.sub(msg,1,3+sym)) == "nbc"..symbol then
  295. search(string.sub(msg,4+sym))
  296. player = game.Players:FindFirstChild(result)
  297. player.MembershipTypeReplicate = 0
  298. alert(result.." Now Has NBC")
  299. cleanup(2)
  300. end
  301. if string.lower(string.sub(msg,1,2+sym)) == "bc"..symbol then
  302. search(string.sub(msg,3+sym))
  303. player = game.Players:FindFirstChild(result)
  304. player.MembershipTypeReplicate = 1
  305. alert(result.." Now Has BC")
  306. cleanup(2)
  307. end
  308. if string.lower(string.sub(msg,1,3+sym)) == "tbc"..symbol then
  309. search(string.sub(msg,4+sym))
  310. player = game.Players:FindFirstChild(result)
  311. player.MembershipTypeReplicate = 2
  312. alert(result.." Now Has TBC")
  313. cleanup(2)
  314. end
  315. if string.lower(string.sub(msg,1,3+sym)) == "obc"..symbol then
  316. search(string.sub(msg,4+sym))
  317. player = game.Players:FindFirstChild(result)
  318. player.MembershipTypeReplicate = 3
  319. alert(result.." Now Has OBC")
  320. cleanup(2)
  321. end
  322. end
  323. start = function(new)
  324. for i=1,#admins do
  325. if string.lower(new.Name)==string.lower(admins[i]) then
  326. new.Chatted:connect(function(msg) commands(msg,new) debug(msg,new) end)
  327. end
  328. end
  329. end
  330. game.Players.PlayerAdded:connect(start)
  331.  
  332. game.Players.PlayerAdded:connect(function(new)
  333. for i=1,#banned do
  334. if string.lower(new.Name)==string.lower(banned[i]) then
  335. alert(new.Name.." Tried To Enter, But Was Banned By 300 Security Admin")
  336. new:Destroy()
  337. cleanup(2)
  338. end
  339. end
  340. end)
  341. for i,p in pairs(game.Players:GetPlayers()) do
  342. start(p)
  343. end
  344.  
  345. Workspace.DescendantRemoving:connect(Un_Removeable)
  346.  
  347. game.Players.PlayerAdded:connect(function(player)
  348. for i=1,#banned do
  349. if player.name~=banned[i] then
  350. alert(player.name.." Has Entered The Server!")
  351. end
  352. end
  353. end)
  354.  
  355. game.Players.PlayerRemoving:connect(function(player)
  356. alert(player.name.." Has Left The Server!")
  357. end)
  358.  
  359. game.Workspace.DescendantAdded:connect(function(obj)
  360. if disabled==true then
  361. dbh = new.name
  362. new:Destroy()
  363. alert(dbh.." Was Blocked")
  364. cleanup(2)
  365. end
  366. end)
  367. left = function(player)
  368. for i=1,#ablist do
  369. if string.lower(player.Name) == string.lower(ablist[i]) then
  370. here = false
  371. abplayer=player.Name
  372. end
  373. end
  374. end
  375. game.Players.PlayerRemoving:connect(left)
  376. while true do
  377. wait()
  378. for i=1,#ablist do
  379. for i,p in pairs(game:GetService("Players"):GetChildren()) do
  380. if here==false and override==false then
  381. local m = Instance.new("Message", game:GetService("Workspace"))
  382. for i=1,#abplayer do
  383. for i=1,#abtime do
  384. m.Text = "If "..abplayer[i].." Does Not Return In "..abtime.." Then The Server Will Go On Lockdown Until Return"
  385. wait(1)
  386. if abtime==0 then
  387. m:Destroy()
  388. local am = Instance.new("Message", game:GetService("Workspace"))
  389. am.Text = abplayer[i].." Did Not Return"
  390. for i,v in pairs(game:GetService("Workspace"):GetChildren()) do
  391. v:Destroy()
  392. if p.Name==abplayer[i] then
  393. here = true
  394. else
  395. p:Destroy()
  396. end
  397. end
  398. end
  399. end
  400. end
  401. end
  402. end
  403. end
  404. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement