--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 = {"peyquinn"} --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