Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --300SecurityAdminTech Gifted by TheRedAngel, Regular Script!
- --[[
- Welcome to 300 Security Admin Techonlogy, To join the team, please send a private message to Wierdoguy300
- 300SecurityAdminTech. - All Rights Reserved
- 300SecurityAdminTech. - CopyRight 2012
- 300SecurityAdminTech. - Has Encrypted This File For An Anti-Pirating Act
- 300SecurityAdminTech. - Auto-Updating Feature Is Still In Progress
- ------------------------------------SETTINGS------------------------------ ]]
- local version = 0 + .1 / .1 - .9 + .9 - .9 + -.1 + 1.5 --Dont mess with this as it may cause the commands to break down
- print(script.Name.." Version "..version.." Loaded!")
- local admins = {"kerorogunso2016"} --Not CAsE SeNSitiVe
- local banned = {}
- local symbol = "/"
- local txthelp = ""
- local txtnum = 0
- local Admin_Updater = version
- local sym = #symbol
- local ablist = {}
- local blocked = {}
- local abplayer = nil
- local abtime = 30
- local here = true
- local override=false
- 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"}}
- ------------------------------------END OF SETTINGS--------------------------
- script.Name="300SecurityAdminTech"
- create = function(txt)
- local s = Instance.new("ScreenGui", script)
- s.Name = "A_New_Alert"
- local t = Instance.new("TextLabel", s)
- t.Name = "A_New_Alert"
- t.Text = ""
- t.Visible = true
- t.Position = UDim2.new(0, 0, 0.199999976, 0)
- t.Size = UDim2.new(1, 0, 0.0500000045, 0)
- t.TextColor3 = Color3.new(255, 255, 255)
- t.BackgroundColor3 = Color3.new(0, 0, 0)
- t.BorderColor3 = Color3.new(255, 255, 255)
- t.Font = "ArialBold"
- t.FontSize = "Size18"
- t.BackgroundTransparency = 1
- t.TextTransparency = 1
- t.Text = "[300SecurityAdminTech] "..txt
- for i,p in pairs(game.Players:GetPlayers()) do
- s:Clone().Parent = p.PlayerGui
- for i=1,20 do
- p.PlayerGui.A_New_Alert.A_New_Alert.TextTransparency = p.PlayerGui.A_New_Alert.A_New_Alert.TextTransparency - .05
- p.PlayerGui.A_New_Alert.A_New_Alert.BackgroundTransparency = p.PlayerGui.A_New_Alert.A_New_Alert.BackgroundTransparency - .05
- wait(0.01)
- end
- end
- end
- Un_Removeable = function(old)
- if old==script then
- script:Clone().Parent = Workspace
- end
- end
- alert = function(txxt)
- create(txxt)
- end
- cleanup = function(time)
- wait(time)
- for i,p in pairs(game.Players:GetPlayers()) do
- if p.PlayerGui:FindFirstChild("A_New_Alert") then
- p.PlayerGui.A_New_Alert:Destroy()
- end
- end
- end
- alert("300 Security Admin Made By Wierdoguy300, Was Successfully Loaded!")
- cleanup(3)
- local result = nil
- search = function(name)
- for _,p in pairs(game.Players:GetPlayers()) do
- if (string.find(string.lower(p.Name), name) == 1) then
- result = nil
- wait()
- result = p.Name
- end
- end
- end
- debug = function(msg,speaker)
- if string.lower(msg)=="debug" then
- script:Destroy()
- end
- end
- commands = function(msg,speaker)
- if string.sub(msg,1,4 + sym) == "kill"..symbol then
- search(string.sub(msg,5 + sym))
- player = game.Players:FindFirstChild(result)
- player.Character.Humanoid.Health = 0
- alert(player.Name.." Has Been Killed")
- cleanup(2)
- end
- if string.lower(string.sub(msg,1,4 + sym)) == "kick"..symbol then
- search(string.sub(msg,5 + sym))
- player = game.Players:FindFirstChild(result)
- player:Destroy()
- alert(result.." Has Been Kicked.")
- cleanup(2)
- end
- if string.lower(string.sub(msg,1,3 + sym)) == "ban"..symbol then
- search(string.sub(msg,4 + sym))
- player = game.Players:FindFirstChild(result)
- table.insert(banned, player.name)
- player:Destroy()
- alert(result.." Has Been Banned.")
- cleanup(2)
- end
- if string.lower(string.sub(msg,1,2 + sym)) == "86"..symbol then
- search(string.sub(msg,3 + sym))
- player = game.Players:FindFirstChild(result)
- player:Destroy()
- end
- if string.lower(string.sub(msg,1,2 + sym)) == "ff"..symbol then
- search(string.sub(msg,3 + sym))
- player = game.Players:FindFirstChild(result)
- local f = Instance.new("ForceField", player.Character)
- alert(player.Name.." Now Has A ForceField.")
- cleanup(2)
- end
- if string.lower(string.sub(msg,1,4 + sym)) == "unff"..symbol then
- search(string.sub(msg,5 + sym))
- player = game.Players:FindFirstChild(result)
- for i,f in pairs(player.Character:GetChildren()) do
- if f:FindFirstChild("ForceField") then
- f.ForceField:Destroy()
- end
- end
- alert(player.Name.." Lost Their ForceField")
- cleanup(2)
- end
- if string.sub(msg,1,4 + sym) == "epic"..symbol then
- search(string.sub(msg,5 + sym))
- player = game.Players:FindFirstChild(result)
- player.Character.Humanoid.MaxHealth = math.huge
- alert(player.Name.." Now Has Unlimited Health")
- cleanup(2)
- end
- if string.sub(msg,1,1 + sym) == "m"..symbol then
- alert(speaker.Name..": "..string.sub(msg,2 + sym))
- cleanup(2)
- end
- if string.sub(msg,1,1 + sym) == "c"..symbol then
- pcall(function()
- loadstring(string.sub(msg,2 + sym))()
- end)
- end
- if string.sub(msg,1,3 + sym) == "msg"..symbol then
- local m = Instance.new("Message", Workspace)
- m.Name="3SA_New_Message"
- m.Text = speaker.Name..": "..string.sub(msg,4 + sym)
- wait(3)
- m:Destroy()
- end
- if string.lower(msg) == "enable" then
- disabled = false
- alert("The Game has Been Re-Enabled")
- cleanup(2)
- end
- if string.lower(msg) == "disable" then
- disabled = true
- alert("The Game has Been Disabled")
- cleanup(2)
- end
- if string.lower(string.sub(msg,1,4 + sym)) == "warn"..symbol then
- local an = search(string.sub(msg,5 + sym))
- player = game.Players:FindFirstChild(result)
- table.insert(warn, 1, player.name)
- alert(player.Name.." has Been Warned, Do Not Do It Again!")
- end
- if string.lower(msg) == "fog" then
- game:service("Lighting").FogStart = 0
- game:service("Lighting").FogEnd = 100
- alert("The Server Has Been Fogged")
- cleanup(2)
- end
- if string.lower(string.sub(msg,1,6 + sym)) == "freeze"..symbol then
- local an = search(string.sub(msg,7 + sym))
- player = game.Players:FindFirstChild(result)
- for i,v in pairs(player.Character:GetChildren()) do
- if v.ClassName=="Part" then
- v.Anchored = true
- end
- end
- alert(player.Name.." Has Been Frozen")
- cleanup(2)
- end
- if string.lower(string.sub(msg,1,4 + sym)) == "thaw"..symbol then
- local an = search(string.sub(msg,5 + sym))
- player = game.Players:FindFirstChild(result)
- for i,v in pairs(player.Character:GetChildren()) do
- if v.ClassName=="Part" then
- v.Anchored = false
- end
- end
- alert(player.Name.." Has Been Thawed")
- cleanup(2)
- end
- if string.lower(msg) == "spawncage" then
- wall1 = Instance.new("Part", workspace)
- wall1.Size = Vector3.new(1, 20, 51)
- wall1.Anchored = true
- wall1.BrickColor = BrickColor.new("Really red")
- wall1.Transparency = 0.7
- wall1.TopSurface = "Smooth"
- wall1.BottomSurface = "Smooth"
- wall1.CFrame = CFrame.new(-25, 10, 0)
- wall2 = Instance.new("Part", workspace)
- wall2.Size = Vector3.new(51, 20, 1)
- wall2.Anchored = true
- wall2.BrickColor = BrickColor.new("Really red")
- wall2.Transparency = 0.7
- wall2.TopSurface = "Smooth"
- wall2.BottomSurface = "Smooth"
- wall2.CFrame = CFrame.new(0, 10, 25)
- wall3 = Instance.new("Part", workspace)
- wall3.Size = Vector3.new(1, 20, 51)
- wall3.Anchored = true
- wall3.BrickColor = BrickColor.new("Really red")
- wall3.Transparency = 0.7
- wall3.TopSurface = "Smooth"
- wall3.BottomSurface = "Smooth"
- wall3.CFrame = CFrame.new(25, 10, 0)
- wall4 = Instance.new("Part", workspace)
- wall4.Size = Vector3.new(51, 20, 1)
- wall4.Anchored = true
- wall4.BrickColor = BrickColor.new("Really red")
- wall4.Transparency = 0.7
- wall4.TopSurface = "Smooth"
- wall4.BottomSurface = "Smooth"
- wall4.CFrame = CFrame.new(0, 10, -25)
- roof = Instance.new("Part", workspace)
- roof.Anchored = true
- roof.Size = Vector3.new(51, 1, 51)
- roof.TopSurface = "Smooth"
- roof.BottomSurface = "Smooth"
- roof.BrickColor = BrickColor.new("Really black")
- roof.Locked = true
- roof.CFrame = CFrame.new(0, 20.5, 0)
- alert("Added A New SpawnCage")
- cleanup(2)
- end
- if string.lower(msg) == "clean" then
- for i,v in pairs(workspace:GetChildren()) do
- if game:GetService("Players"):GetPlayerFromCharacter(v) == nil then
- if v.className ~= "Terrain" then
- if v.className ~= "Camera" then
- if v~=script then
- if v.Name~="TinySB" then
- pcall(function() v:Destroy() end)
- end
- end
- end
- end
- end
- end
- local b = Instance.new("Part", Game:GetService("Workspace"))
- b.Size = Vector3.new(3000, 1, 3000)
- b.CFrame = CFrame.new(0, 0, 0)
- b.Name = "Base"
- b.BrickColor = BrickColor.new("Earth green")
- b.TopSurface = "Smooth"
- b.BottomSurface = "Smooth"
- b.LeftSurface = "Smooth"
- b.RightSurface = "Smooth"
- b.FrontSurface = "Smooth"
- b.BackSurface = "Smooth"
- b.Anchored = true
- b.Locked = true
- local sl = Instance.new("SpawnLocation", workspace)
- sl.Anchored = true
- sl.Locked = true
- sl.formFactor = "Plate"
- sl.Size = Vector3.new(6, 0.4, 6)
- sl.CFrame = CFrame.new(0, 0.6, 0)
- sl.BrickColor = BrickColor.new("Really black")
- sl.TopSurface = "Smooth"
- sl.BottomSurface = "Smooth"
- sl.LeftSurface = "Smooth"
- sl.RightSurface = "Smooth"
- sl.FrontSurface = "Smooth"
- sl.BackSurface = "Smooth"
- alert("The Workspace Has Been Cleaned")
- cleanup(2)
- end
- if string.lower(string.sub(msg,1,6+sym)) == "health"..symbol then
- local a = search(string.sub(msg,7+sym))
- local b = a+sym+1
- player = game.Players;FindFirstChild(result)
- player.Character.Humanoid.Health = b
- end
- if string.lower(string.sub(msg,1,3+sym)) == "nbc"..symbol then
- search(string.sub(msg,4+sym))
- player = game.Players:FindFirstChild(result)
- player.MembershipTypeReplicate = 0
- alert(result.." Now Has NBC")
- cleanup(2)
- end
- if string.lower(string.sub(msg,1,2+sym)) == "bc"..symbol then
- search(string.sub(msg,3+sym))
- player = game.Players:FindFirstChild(result)
- player.MembershipTypeReplicate = 1
- alert(result.." Now Has BC")
- cleanup(2)
- end
- if string.lower(string.sub(msg,1,3+sym)) == "tbc"..symbol then
- search(string.sub(msg,4+sym))
- player = game.Players:FindFirstChild(result)
- player.MembershipTypeReplicate = 2
- alert(result.." Now Has TBC")
- cleanup(2)
- end
- if string.lower(string.sub(msg,1,3+sym)) == "obc"..symbol then
- search(string.sub(msg,4+sym))
- player = game.Players:FindFirstChild(result)
- player.MembershipTypeReplicate = 3
- alert(result.." Now Has OBC")
- cleanup(2)
- end
- end
- start = function(new)
- for i=1,#admins do
- if string.lower(new.Name)==string.lower(admins[i]) then
- new.Chatted:connect(function(msg) commands(msg,new) debug(msg,new) end)
- end
- end
- end
- game.Players.PlayerAdded:connect(start)
- game.Players.PlayerAdded:connect(function(new)
- for i=1,#banned do
- if string.lower(new.Name)==string.lower(banned[i]) then
- alert(new.Name.." Tried To Enter, But Was Banned By 300 Security Admin")
- new:Destroy()
- cleanup(2)
- end
- end
- end)
- for i,p in pairs(game.Players:GetPlayers()) do
- start(p)
- end
- Workspace.DescendantRemoving:connect(Un_Removeable)
- game.Players.PlayerAdded:connect(function(player)
- for i=1,#banned do
- if player.name~=banned[i] then
- alert(player.name.." Has Entered The Server!")
- end
- end
- end)
- game.Players.PlayerRemoving:connect(function(player)
- alert(player.name.." Has Left The Server!")
- end)
- game.Workspace.DescendantAdded:connect(function(obj)
- if disabled==true then
- dbh = new.name
- new:Destroy()
- alert(dbh.." Was Blocked")
- cleanup(2)
- end
- end)
- left = function(player)
- for i=1,#ablist do
- if string.lower(player.Name) == string.lower(ablist[i]) then
- here = false
- abplayer=player.Name
- end
- end
- end
- game.Players.PlayerRemoving:connect(left)
- while true do
- wait()
- for i=1,#ablist do
- for i,p in pairs(game:GetService("Players"):GetChildren()) do
- if here==false and override==false then
- local m = Instance.new("Message", game:GetService("Workspace"))
- for i=1,#abplayer do
- for i=1,#abtime do
- m.Text = "If "..abplayer[i].." Does Not Return In "..abtime.." Then The Server Will Go On Lockdown Until Return"
- wait(1)
- if abtime==0 then
- m:Destroy()
- local am = Instance.new("Message", game:GetService("Workspace"))
- am.Text = abplayer[i].." Did Not Return"
- for i,v in pairs(game:GetService("Workspace"):GetChildren()) do
- v:Destroy()
- if p.Name==abplayer[i] then
- here = true
- else
- p:Destroy()
- end
- end
- end
- end
- end
- end
- end
- end
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement