TheBlind! Completely stolen. Jk. My friend sent it to me. Go to line 148 and change everything that says 'Your name here' To your username. I mean YOUR username, not literaly your username. Anyway, Leave the quotation marks. To add another name add a ,"" after the last " then put whoever's name inbetween the second pair of quoation marks.-----------------------------------------------------------------------------------------------------------------------[[ CBA TEAM CBA LEGO ALSO PIE ]]-----------------------------------------------------------------------------------------------------------------------------------------------------------------------

bet = "/"
filter = {}
abtime = 40
orbvic = " "
platvic = " "
connections = {}
scripts = {}

ps = game:GetService("Players")
teams = game:GetService("Teams")
team1,team2, team3 = Instance.new("Team",teams),Instance.new("Team",teams), Instance.new("Team",teams)
team1.Name = "CBA admins"
team2.Name,team1.TeamColor,team2.TeamColor,  team3.Name, team3.TeamColor = "CBA nonadmins",BrickColor.new("Really red"), BrickColor.new("Really blue"), "CBA owner", BrickColor.new("Hot pink")

for i,a in pairs(game.Players:GetPlayers()) do
a.Neutral = false
end

speakert = nil
scriptsdisabled = false
overide = false
math.randomseed(tick()) -- setting the random number generator  -- Vanilla Derp...
plat = Instance.new("Part", workspace)
plat.Anchored = true
plat.Locked = true
plat.Name = "CBA's Ultimate Platform"
plat.Transparency = 0.7
plat.BrickColor = BrickColor.new("Really red")
plat.Size = Vector3.new(15, 1, 15)
plat.TopSurface = "Smooth"
plat.BottomSurface = "Smooth"
plat.CFrame = CFrame.new(0, 100000, 0)
block = Instance.new("Part", workspace)
block.TopSurface = "Smooth"
block.BottomSurface = "Smooth"
block.Anchored = true
block.Size = Vector3.new(5, 5, 5)
block.CFrame = CFrame.new(0, 40, 0)
block.Locked = true
block.Name = "AdminBlock"
Instance.new("Sparkles", block)
fire = Instance.new("Fire", block)
fire.Color = Color3.new(0.25,0.5 ,1)
fire.SecondaryColor = Color3.new(1,1,0)
fire.Size = 100
fire.Heat = 25

orb = Instance.new("Part", workspace)
orb.Name = "Orb"
orb.Size = Vector3.new(3, 3, 3)
orb.Anchored = true
orb.TopSurface = "Smooth"
orb.BottomSurface = "Smooth"
orb.Shape = "Ball"
orb.Locked = true
orb.Transparency = 0
orb.BrickColor = BrickColor.new("Really black")
orb.CanCollide = false


shield = orb:clone()
shield.Name = "Orb Shield"
shield.Parent = workspace
shield.Size = Vector3.new(4,4,4)
shield.CFrame = orb.CFrame
shield.Transparency = 0.7
shield.BrickColor = BrickColor.new("Really red")

--------------------spawn cage-------------------
wall1 = Instance.new("Part", workspace)
wall1.Size = Vector3.new(1, 20, 51)
wall1.Anchored = true
wall1.BrickColor = BrickColor.new("Bright blue")
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("Bright blue")
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("Bright blue")
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("Bright blue")
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)

xp = 5
yp = 5
zp = 5
grow = true
bubblechat = true
disabled  = {}
BS = 1
statid = 61758858
startupid  = 61758830
blackholeid = 61945804
texts        = {"Cannon ball admin made by dsi1 with help from friends",         "My        name     is  CBA  Talker", "I am programmed to chat         certian       things",     "Be    warned   certain people have an      anti    ban", "Your   in   a  server    with  a  CBA   admin",    "CBA     is   private  only ppl   that   dsi1  and   friends   trusts    knows      where   to   find  CBA",   "Good   day.",   "Color change",    "ZOMG!    I    CAN'T   BELIEVE I  CAN     TALK!",   "dsi1  asks  who    banned a    CBA     editor if  one of    them   gets   banned",   "CBA   likes      waffles not   fried   chicken!",      "Waffles,  my    favourite   food,     might   hack   the server.",   "If     waffles   hack the    server I      shutdown.",    "This   is one  mega      admin",  "Remember   this  is  a     private    project so  if  you   ask   for   it  BAD  Things  will    happen  to     you!",  "Color   change"," Ask   for  CBA   see  what   happens"}
commands_ideas        = {"norb","strech","shrink","mdebug","break", "spazattack","dance/shake", " forb"}
tab = Instance.new("Part", workspace)
tab.Name = "CBA Talker"
tab.Parent = game:GetService("Workspace")
tab.TopSurface = "Smooth"
tab.BottomSurface = "Smooth"
tab.Anchored = true
tab.formFactor = "Symmetric"
tab.Size = Vector3.new(2,2,2)
tab.CFrame = CFrame.new(20,5,20)
tab.Locked = true
talkon = true
talktime = 8000
laser = Instance.new("SelectionPartLasso")
laser.Part = block
laser.Parent = block
--[[lasers that the script creates goes in the workspace]]
laser.Color = BrickColor.new(math.random(),math.random(),math.random())
InsertId = 34842829
StaffId = 61860446
priServ = off
scriptid = 60587570
priServList       = {""}
banlist        = {""}
adminlist                 = {"Coolboyok11"}
commands                       = {"ban", "kick", "kill", "lag", "admin", "respawn",              "base","tele","clean" , "clone","shutdown","m","ab", "unff",              "ff","cmds","time", "invisible",                        "visible","punish","unpunish","s","prion","prioff","add","insert","install",            "jk","bbon","bboff","delete",                       "deletec","disable","enable","unban","unab","whisper","banlist","adminlist",                      "blockx", "blocky", "blockz","sym","symrem--",              "speedkill","tbon","tboff", "size","scriptsoff",                "scriptson","orb",       "resetlighting",   "scr","overide",               "loopkill","sink",        "walkspeed","check",                "maxplayers","status","worb","quicksand","tree","rain","trees",             "block","fat","control", "pancake", "skybase",      "nuke","fly","music","stop","killorbs","makeblock","bomb","opendoor","closedoor","spawncage","killscripts","fix",      "plat","cave","staff","newteam","changeteam","house","blackhole"}
ablist    = {"Your name here"}

function findp(name)
if string.lower(name) == "me" then
return speakert
end
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
if string.lower(string.sub(v.Name,1,#name))==string.lower(name) then
return v
end
end
end

function startup()
for i,v in pairs(game.Players:GetPlayers()) do
if v:findFirstChild("PlayerGui") ~= nil then
game:GetService("InsertService"):LoadAsset(startupid)["CBA startup"].Parent = v.PlayerGui
end
end
end

function sound(pitch)
for s,y in pairs(workspace:GetChildren()) do
if y.Name == "CBA Sound" and y.className == "Sound" or y.className == "Sound" then
y:remove()
end end
sod = Instance.new("Sound")
sod.Name = "CBA Sound"
sod.SoundId = "http://roblox.com/asset/?id=10209260"
sod.Parent = Game:GetService("Workspace")
sod.Parent = Game:GetService("Workspace")
sod.Parent = Game:GetService("Workspace")
sod.Pitch = pitch
sod.Volume = 1
sod.Looped = false
sod.Name = "Sound"
sod:Play()
end


function specialstat(txt, pare)
if pare == nil then return end
local findg = pare:findFirstChild("PlayerGui")
if findg ~= nil then
local ins = game:GetService("InsertService")
local o = ins:LoadAsset(statid)
local instan = o:GetChildren()
if #instan == 0 then o:remove() return end
t = o:findFirstChild("Status Item")
t.Frame.TextLabel.TextT.Value = txt
t.Parent = findg
o:remove()
end end

function status(txt)
sound(1)
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
local findg = v:findFirstChild("PlayerGui")
if findg ~= nil then
local ins = game:GetService("InsertService")
local o = ins:LoadAsset(statid)
local instan = o:GetChildren()
if #instan == 0 then o:remove() return end
t = o:findFirstChild("Status Item")
t.Frame.TextLabel.TextT.Value = txt
t.Parent = findg
o:remove()
end end end

function laserremoval()
work = game:GetService("Workspace"):GetChildren()
for i=1, #work do
if work[i].Name == "CBA
" then
work[i]:remove()
end
end
end

function onChatted(msg, speaker)
speakert = speaker
if bubblechat == true then
local findc = speaker.Character
if findc.Parent == workspace then
findh = findc:findFirstChild("Head")
if findh ~= nil then
local x = math.random(1,3)
if x == 1 then
game:GetService("Chat"):Chat(findh, msg, Enum.ChatColor.Red)
elseif x == 2 then
game:GetService("Chat"):Chat(findh, msg, Enum.ChatColor.Green)
elseif x == 3 then
game:GetService("Chat"):Chat(findh, msg, Enum.ChatColor.Blue)
end
end
end
end
if #disabled > 0 then
for k=1, #disabled do
if speaker.Name == disabled[k] then
m = Instance.new("Model", game:GetService("Players"))
m.Name = speaker.Name
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = speaker.Character.Humanoid
wait(0.5)
laserremoval()
a5 = speaker.Name
speaker:remove()
status(a5.. " has talked and been kicked")
end end end
for i,v in pairs(adminlist) do
if speaker.Name == v then
if string.sub(string.lower(msg), 1, 4 + #bet) == "kill"..bet then
local GetRest = string.sub(string.lower(msg), 5 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = v.Character.Humanoid
v.Character:BreakJoints()
end
wait(1)
laserremoval()
status("killed all")
else
local a = findp(GetRest, speaker)
if a ~= nil then
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
a.Character:BreakJoints()
status("Killed "..a.Name)
end
end

elseif string.sub(string.lower(msg), 1, 8 + #bet) == "killorbs"..bet then
for i,v in pairs(game.Workspace:GetChildren()) do
for i,a in pairs(game.Players:GetPlayers())do
if v.className == "Script" then
v.Disabled = true
wait()
v:remove()
end
end
end
status("Killed orbs")

elseif string.sub(string.lower(msg), 1, 9 + #bet) == "blackhole"..bet then
game:GetService("InsertService"):LoadAsset(blackholeid).Part.Parent = workspace

elseif string.find(string.lower(msg), "scriptsoff"..bet) then
scriptsdisabled = true
status("Scripts disabled")
elseif string.find(string.lower(msg), "scriptson"..bet) then
scriptsdisabled = false
status("Scripts enabled")
elseif string.sub(string.lower(msg), 1, 9+#bet) == "speedkill"..bet then
local p = findp(string.sub(string.lower(msg), 10+#bet), speaker)
if p ~= nil then
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = p.Character.Humanoid
status("Speed killing " ..p.Name)
laserremoval()
for i=1, 100 do
if p == nil then break end
if p.Character ~= nil then
h = p.Character:findFirstChild("Humanoid")
if h ~= nil then
h.Health = 100 - i
h.WalkSpeed = i
wait(0.5)
else break
end
else break
end end end
elseif string.sub(string.lower(msg),1,4+#bet) == "worb"..bet then
local owner_of = string.sub(string.lower(msg),5+#bet)
local a = findp(owner_of)
if a ~= nil then
num = 60783848
i = game:GetService("InsertService")
o = i:LoadAsset(num)
k = o:GetChildren()
if #k == 0 then
o:remove()
end
o.Orb.Name = a.Name
wait()
i:Insert(o)
print 'lego'
end

elseif string.sub(string.lower(msg), 1, 5 + #bet) == "house"..bet then
game:GetService("InsertService"):LoadAsset(61860527).Parent = workspace
status("Loaded dsi1's house")

elseif string.sub(string.lower(msg), 1, 9 + #bet) == "spawncage"..bet then
wall1 = Instance.new("Part", workspace)
wall1.Size = Vector3.new(1, 20, 51)
wall1.Anchored = true
wall1.BrickColor = BrickColor.new("Bright blue")
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("Bright blue")
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("Bright blue")
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("Bright blue")
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, 21, 0)
elseif string.sub(string.lower(msg), 1, 8 + #bet) == "opendoor"..bet then
if wall1 ~= nil then
wall1.Transparency = 1
wall1.CanCollide = false
end
elseif string.sub(string.lower(msg), 1, 9 + #bet) == "closedoor"..bet then
if wall1 ~= nil then
wall1.Transparency = 0.7
wall1.CanCollide = true
end

elseif string.sub(string.lower(msg), 1, 7 + #bet) == "newteam"..bet then
for i,a in pairs(game.Players:GetPlayers()) do
a.Neutral = false
end
local TeamName = string.sub(msg,8+#bet)
local team = Instance.new("Team", teams)
team.TeamColor = BrickColor.random()
team.Name = TeamName
teams:RebalanceTeams()
status("New Team: "..TeamName)

elseif string.sub(string.lower(msg), 1, 10 + #bet) == "changeteam"..bet then
local ssn = 11 + #bet
local pos = 0
local text = ""
while true do
if string.sub(msg, ssn, ssn) == "" then
break
end
if string.sub(msg, ssn, ssn+(#bet-1)) == bet then
pos = ssn + 1
break
end
ssn = ssn + 1
end
if pos ~= 0 then
local a = findp(string.sub(string.lower(msg),11+#bet,pos-2))
if a ~= nil then
for i,v in pairs(teams:GetTeams()) do
if string.find(string.lower(v.Name),string.sub(string.lower(msg),pos)) then
a.Neutral = false
a.TeamColor = v.TeamColor
status("Added " ..a.Name.." to " ..v.Name)
end end end end

elseif string.sub(string.lower(msg), 1, 4 + #bet) == "cave"..bet then
for i = 1, 9 do
local rock = Instance.new("Part", workspace)
rock.Anchored = true
rock.Shape = "Ball"
rock.Material = "Slate"
rock.TopSurface = "Smooth"
rock.BottomSurface = "Smooth"
rock.Size = Vector3.new(40, 40, 40)
rock.BrickColor = BrickColor.new("Stone grey")
rock.CFrame = CFrame.new(0,1,0)*CFrame.Angles(0,math.rad(i*40),0)*CFrame.new(80/2,0,0)
end

elseif string.sub(string.lower(msg), 1, 5 + #bet) == "staff"..bet then
local GetRest = string.sub(string.lower(msg), 6 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
local x = game:GetService("InsertService"):LoadAsset(StaffId)
if v:findFirstChild("Backpack") ~= nil then
for i,t in pairs(x:GetChildren()) do
t.Parent = v.Backpack
end
end
end
status("Staffed All")
else
local a = findp(GetRest)
if a ~= nil then
local x = game:GetService("InsertService"):LoadAsset(StaffId)
if a:findFirstChild("Backpack") ~= nil then
for i,t in pairs(x:GetChildren()) do
t.Parent = v.Backpack
end
end
status("Gave staff to "..a.Name)
end
end

elseif string.sub(string.lower(msg), 1, 7 + #bet) == "skybase"..bet then
local word = string.sub(string.lower(msg), 8+#bet)
local a = findp(word)
if a ~= nil then
if a.Character:findFirstChild("Torso") ~= nil then
local sbase = Instance.new("Part", workspace)
sbase.BrickColor = BrickColor.new("Reddish brown")
sbase.Anchored = true
sbase.Size = Vector3.new(20, 1, 20)
sbase.TopSurface = "Smooth"
sbase.BottomSurface = "Smooth"
sbase.Locked = true
sbase.CFrame = a.Character.Torso.CFrame * CFrame.new(0, 100, 0)
a.Character.Torso.CFrame = sbase.CFrame * CFrame.new(0, 4, 0)
end
end
elseif string.sub(string.lower(msg), 1, 8 + #bet) == "loopkill"..bet then
local word = string.sub(string.lower(msg), 9+#bet)
if word == "all" then
status("Loop killing all")
for s=1, 200 do
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
if v.Character ~= nil then
v.Character.Parent = game:GetService("Lighting")
wait()
v.Character.Parent = game:GetService("Wokspace")
wait()
end
end
end
else local aa = findp(string.lower(word), speaker)
if aa~= nil then
status("Loopkilling " ..aa.Name)
for ss = 1, 200 do
if aa ~= nil then
if aa.Character ~= nil then
aa.Character.Parent = game:GetService("Lighting")
wait()
aa.Character.Parent = game:GetService("Workspace")
wait()
else break
end
else break
end
end
end
end
 elseif string.sub(string.lower(msg),1,5+#bet) == "music"..bet then
 local musicname = string.sub(string.lower(msg), 6 + #bet)
 if musicname == "wind" then
 local sound = Instance.new("Sound",game:GetService("Workspace"))
 sound.SoundId = "http://www.roblox.com/asset/?id=1015394"
 sound.Pitch = 1
 sound.Volume = 1
 wait(1)
 sound:Play()
 status("Playing music"..musicname)
 end

 elseif string.sub(string.lower(msg), 1,4+#bet) == "stop"..bet then
 for i,v in pairs(game.Workspace:GetChildren()) do
 if v.className == "Sound" then
 v:Stop()
 end
 end
 status("Stopped music")
elseif string.sub(string.lower(msg), 1,7 + #bet) == "control" ..bet then
local getPl = string.sub(string.lower(msg), 8 + #bet)
a = findp(getPl)
if a ~= nil then
speaker.Character = a.Character
status(speaker.Name.." Is Controlling "..a.Name..".")
end
  elseif string.sub(string.lower(msg),1,4+#bet) == "sink"..bet then
  local word = string.sub(msg,5+#bet)
local a = findp(string.lower(word))
   if a ~= nil then
    local l = laser:clone()
    l.Parent = workspace
l.Name = "CBA Laser"
    if a.Character ~= nil then
     if a.Character:findFirstChild("Humanoid") then
      l.Humanoid = a.Character.Humanoid
     end
    end
    local base = workspace:findFirstChild("Base")
    if base ~= nil and a.Character ~= nil then
     local y = base.Position.y
     local sy = base.Size.y
     local torso = a.Character:findFirstChild("Torso")
     if torso ~= nil then
      torso.Anchored = true
      local ty = torso.Position.y
      local x,z = torso.Position.x, torso.Position.z
      if a.Character:findFirstChild("Humanoid") then
       a.Character.Humanoid.WalkSpeed = 0
      end
            status("A black hole is coming for " ..a.Name)

            local hole = Instance.new("Part",workspace)
      hole.formFactor = "Custom"
      hole.Size = Vector3.new(7,sy+0.6,7)
      hole.CFrame = CFrame.new(x,y,z)
      hole.Anchored = true
      hole.BrickColor = BrickColor.new("Really black")
      hole.Locked = true
      hole.TopSurface = "Smooth"
      hole.BottomSurface = "Smooth"
      local m = Instance.new("CylinderMesh", hole)
      while true do
       if math.ceil(ty) == math.ceil(y) -12 then
        break
       end
       ty = ty - 0.1
       torso.CFrame = CFrame.new(x,ty,z)
       wait()
      end
      torso.Anchored = false
      hole:remove()
     status("Sunk " ..a.Name)
     end
    end
   end
   wait(1)
   laserremoval()

  elseif string.sub(string.lower(msg),1,9+#bet) == "quicksand"..bet then
  local word = string.sub(msg,10+#bet)
local a = findp(string.lower(word))
   if a ~= nil then
    local l = laser:clone()
    l.Parent = workspace
l.Name = "CB Laser"
    if a.Character ~= nil then
     if a.Character:findFirstChild("Humanoid") then
      l.Humanoid = a.Character.Humanoid
      wait(1)

   laserremoval()
   status("A quicksand is coming for " ..a.Name)
            wait(4)
     end
    end
    local base = workspace:findFirstChild("Base")
    if base ~= nil and a.Character ~= nil then
     local y = base.Position.y
     local sy = base.Size.y
     local torso = a.Character:findFirstChild("Torso")
     if torso ~= nil then
      torso.Anchored = true
      local ty = torso.Position.y
      local x,z = torso.Position.x, torso.Position.z
      if a.Character:findFirstChild("Humanoid") then
       a.Character.Humanoid.WalkSpeed = 0
      end

            local hole = Instance.new("Part",workspace)
      hole.formFactor = "Custom"
      hole.Size = Vector3.new(7,sy+0.6,7)
      hole.CFrame = CFrame.new(x,y,z)
      hole.Anchored = true
      hole.BrickColor = BrickColor.new("Bright yellow")
      hole.Locked = true
      hole.TopSurface = "Smooth"
      hole.BottomSurface = "Smooth"
      hole.Material ="Slate"
      while true do
       if math.ceil(ty) == math.ceil(y) -12 then
        break
       end
       ty = ty - 0.1
       torso.CFrame = CFrame.new(x,ty,z)
       wait()
      end
      torso.Anchored = false
      hole:remove()
     status( a.Name.. "  got sunk by quick sand")
     end
    end
   end


elseif string.sub(string.lower(msg), 1, 9 + #bet) == "walkspeed"..bet then
local ssn = 10 + #bet
local pos = 0
local speed = 0
while true do
if string.sub(msg, ssn, ssn) == "" then
break
end
if string.sub(msg, ssn, ssn) == bet then
pos = ssn + 1
break
end
ssn = ssn + 1
wait()
end
if pos ~= 0 then
local a = findp(string.sub(string.lower(msg),10+#bet, pos-2), speaker)
if a ~= nil then
speed = tonumber(string.sub(msg, pos))
if speed ~= nil then
local findh = a.Character:findFirstChild("Humanoid")
if findh ~= nil then
a.Character.Humanoid.WalkSpeed = speed
status(a.Name.. ".WalkSpeed = " ..speed)
else specialstat("Error! Number not found!, got string or nil",speaker)
end
end
end
end
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "check"..bet then

status("Commands are working... FUNCTIONAL Master "..speaker.Name)
local message = Instance.new("Message")
message.Parent = game.Workspace
message.Text = "Commands are working... FUNCTIONAL Master "..speaker.Name
wait(5)
status("Done checking...")
message:Remove()

elseif string.sub(string.lower(msg), 1, 9 + #bet) == "adminlist"..bet then
local findpg = speaker:findFirstChild("PlayerGui")
if findpg ~= nil then
for i,v in pairs(adminlist) do
local h = Instance.new("Hint", findpg)
h.Text = v
wait(1)
h:remove()
end
end

elseif string.sub(string.lower(msg), 1, 7 + #bet) == "overide"..bet then
overide = true
elseif string.sub(string.lower(msg), 1, 8) == "symrem--" then
status("Symbol: " ..bet)
elseif string.sub(string.lower(msg), 1, 7 + #bet) == "banlist"..bet then
local findpg = speaker:findFirstChild("PlayerGui")
if findpg ~= nil then
for i,v in pairs(banlist) do
local h = Instance.new("Hint", findpg)
h.Text = v
wait(1)
h:remove()
end
end
elseif string.sub(string.lower(msg), 1, 7 + #bet) == "disable"..bet then
local a = findp(string.sub(string.lower(msg),8+#bet), speaker)
if a ~= nil then
table.insert(disabled, a.Name)
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
specialstat("Don't talk or be kicked", a)
end
elseif string.sub(string.lower(msg), 1, 3+#bet) == "sym"..bet then
local sym = string.sub(msg, 5)
local sym2 = bet
if #sym > 1 then
specialstat("TO BIG OF A SYMBOL", speaker)
else bet = sym
status("Changed " ..sym2.. " to " ..sym)
end
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "trees"..bet then
status("Planting trees")
local tmodel = Instance.new("Model", workspace)
for i = 1, 3000 do
wait()
local treet = Instance.new("Part", tmodel)
treet.Size = Vector3.new(4, 20, 4)
treet.Anchored = true
treet.Locked = true
treet.BrickColor = BrickColor.new("Reddish brown")
treet.CFrame = CFrame.new(math.random(-500, 500), math.random(-5, 10), math.random(-500, 500))
local treetop = Instance.new("Part", workspace)
treetop.BrickColor = BrickColor.new("Earth green")
treetop.TopSurface = "Smooth"
treetop.BottomSurface = "Smooth"
treetop.Size = Vector3.new(13, 13, 13)
treetop.Anchored = true
treetop.Shape = "Ball"
treetop.CFrame = treet.CFrame * CFrame.new(0, 13, 0)
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "rain"..bet then
local rmodel = Instance.new("Model", workspace)
for i = 1, 1000 do
local rain = Instance.new("Part", rmodel)
rain.BrickColor = BrickColor.new("Really blue")
rain.Size = Vector3.new(4, 4, 4)
rain.Shape = "Ball"
rain.Anchored = false
rain.CFrame = CFrame.new(math.random(-500, 500), 100, math.random(-500, 500))
end
wait(10)
if rmodel ~= nil then
rmodel:remove()
end
elseif string.sub(string.lower(msg), 1, 3 + #bet) == "fly"..bet then
local pc = string.lower(string.sub(msg, 4+#bet))
local a = findp(pc)
if a ~= nil then
for i = 1, 300 do
wait()
if a == nil then return end
if a.Character:findFirstChild("Torso") == nil then return end
a.Character.Torso.CFrame = CFrame.new(0, i, 0)
end
end
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "block"..bet then
local pc = string.lower(string.sub(msg, 6+#bet))
local a = findp(pc)
if a ~= nil then
if a.Character:findFirstChild("Torso") == nil then return end
local bl = Instance.new("Part", workspace)
bl.Size = Vector3.new(10, 2, 10)
bl.Anchored = true
bl.TopSurface = "Smooth"
bl.BottomSurface = "Smooth"
bl.Locked = true
bl.BrickColor = BrickColor.new("Reddish brown")
bl.CFrame = a.Character.Torso.CFrame * CFrame.new(0, -3, 0)
a.Character.Torso.CFrame = a.Character.Torso.CFrame * CFrame.new(0, 5, 0)
for i = 1, 300 do
wait()
if bl ~= nil then
if a == nil then return end
if a.Character:findFirstChild("Torso") == nil then return end
bl.CFrame = bl.CFrame * CFrame.new(0 ,0.1, 0)
a.Character.Torso.CFrame = bl.CFrame * CFrame.new(0, 4, 0)
end
end
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "tree"..bet then
local pc = string.lower(string.sub(msg, 5+#bet))
local a = findp(pc)
if a ~= nil then
if a.Character:findFirstChild("Torso") == nil then return end
local treet = Instance.new("Part", workspace)
treet.Size = Vector3.new(4, 20, 4)
treet.Anchored = true
treet.Locked = true
treet.BrickColor = BrickColor.new("Reddish brown")
treet.CFrame = a.Character.Torso.CFrame * CFrame.new(0, -13, 0)
local treetop = Instance.new("Part", workspace)
treetop.BrickColor = BrickColor.new("Earth green")
treetop.TopSurface = "Smooth"
treetop.BottomSurface = "Smooth"
treetop.Size = Vector3.new(13, 13, 13)
treetop.Anchored = true
treetop.Shape = "Ball"
treetop.CFrame = treet.CFrame * CFrame.new(0, 13, 0)
a.Character.Torso.CFrame = a.Character.Torso.CFrame * CFrame.new(0, 5, 0)
for i = 1, 200 do
wait()
if treet ~= nil then
if treetop ~= nil then
treet.CFrame = treet.CFrame * CFrame.new(0 ,0.1, 0)
treetop.CFrame = treetop.CFrame * CFrame.new(0 ,0.1, 0)
end
end
end
 if a ~= nil then
end
end
elseif string.sub(string.lower(msg), 1, 6 + #bet) == "enable"..bet then
local pc = string.lower(string.sub(msg, 7+#bet), speaker)
a = 0
for i=1, #disabled do
if string.find(string.lower(disabled[i]), pc) then
a = i
end end
if a > 0 then
local pls = game:GetService("Players"):GetPlayers()
for x=1, #pls do
if pls[x].Name == disabled[a] then
table.remove(disabled, a)
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = pls[x].Character.Humanoid
wait(0.5)
status("Enabled: " ..pls[x].Name)
specialstat("You can speak and won't be kicked", pls[x])
laserremoval()
return
end
end
status("Enabled: " ..disabled[a])
table.remove(disabled, a)
end
elseif string.sub(string.lower(msg), 1, 6 + #bet) == "delete"..bet then
local GetRest = string.sub(string.lower(msg), 7 + #bet)
function start12(target)
if string.lower(target.Name) == string.lower(GetRest) then
target:remove()
end
for i,v in pairs(target:GetChildren()) do
start12(v)
end
end
start12(workspace)
status("Deleted " ..GetRest)

elseif string.sub(string.lower(msg), 1, 7 + #bet) == "deletec"..bet then
local GetRest = string.sub(string.lower(msg), 8 + #bet)
function start12(target)
if string.lower(target.className) == string.lower(GetRest) then
target:remove()
end
for i,v in pairs(target:GetChildren()) do
start12(v)
end
end
start12(workspace)
status("Deleted className " ..GetRest)

elseif string.sub(string.lower(msg), 1, 3 + #bet) == "orb"..bet then
local GetRest = string.sub(string.lower(msg), 4 + #bet)
local a = findp(GetRest, speaker)
if a ~= nil then
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
orbvic = a.Name
status("orb is following "..a.Name)
end

elseif string.sub(string.lower(msg), 1, 4 + #bet) == "tbon"..bet then
talkon = true
talketime = 80
status("Talking Brick on")
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "tboff"..bet then
talkon = false
talktime = 0
status("Talking Brick off")
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "bbon"..bet then
bubblechat = true
status("Bubble chat on")
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "bboff"..bet then
bubblechat = false
status("Bubble chat off")
elseif string.sub(string.lower(msg), 1, 2 + #bet) == "jk"..bet then
local GetRest = string.sub(string.lower(msg), 3 + #bet)
local a = findp(GetRest, speaker)
if a ~= nil then
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
status("Jump killing " ..a.Name)
repeat
if a ~= nil then
if a.Character ~= nil then
local findh = a.Character:findFirstChild("Humanoid")
if findh ~= nil then
findh.Jump = true
findh.Health = findh.Health - 10
wait(1.5)
end
end
end
until a.Character.Humanoid.Health == 0
end

elseif string.sub(string.lower(msg), 1, 4 + #bet) == "kick"..bet then
local GetRest = string.sub(string.lower(msg), 5 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = v.Character.Humanoid
wait(0.5)
laserremoval()
v:remove()
end
status("kicked all")
else
local a = findp(GetRest, speaker)
if a ~= nil then
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
local m = Instance.new("Model", game:GetService("Players"))
m.Name = a.Name
a:remove()
status("kicked "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "prion"..bet then
priServ = true
status("Private Server on")
elseif string.sub(string.lower(msg), 1, 6 + #bet) == "prioff"..bet then
priServ = false
status("Private server off")
elseif string.sub(string.lower(msg), 1, 3 + #bet) == "add"..bet then
local GetRest = string.sub(string.lower(msg), 4 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = v.Character.Humanoid
table.insert(priServList, v.Name)
end
wait(1)
laserremoval()
status("added all to private server list")
else
local a = findp(GetRest, speaker)
if a ~= nil then
table.insert(priServList, a.Name)
status("Added "..a.Name.." to private server list")
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
m.Name = a.Name
end
end

elseif string.sub(string.lower(msg), 1, 5 + #bet) == "unban"..bet then
local GetRest = string.sub(string.lower(msg), 6 + #bet)
a = 0
for i=1, #banlist do
if string.find(string.lower(banlist[i]), GetRest) then
a = i
end end
if a > 0 then
status("Unbanned: " ..banlist[a])
table.remove(banlist, a)
end
elseif string.sub(string.lower(msg), 1, 3 + #bet) == "ban"..bet then
local GetRest = string.sub(string.lower(msg), 4 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(0.5)
laserremoval()
v:remove()
table.insert(banlist, v.Name)
end
status("banned all")
else
local a = findp(GetRest)
if a ~= nil then
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
a:remove()
local m = Instance.new("Model", game:GetService("Players"))
m.Name = a.Name
table.insert(banlist, a.Name)
status("Banned "..a.Name)
local m = Instance.new("Model", game:GetService("Players"))
m.Name = a.Name
end
end
elseif string.sub(string.lower(msg), 1, 3 + #bet) == "lag"..bet then
local GetRest = string.sub(string.lower(msg), 4 + #bet)
local a = findp(GetRest)
if a ~= nil then
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
while true do
wait()
for i = 1, 16000 do
if a:findFirstChild("PlayerGui") ~= nil then
local mes = Instance.new("Message", a.PlayerGui)
mes.Text = "your being lagged noob!"
local s = Instance.new("ScreenGui", a.PlayerGui)
local txt = Instance.new("TextBox", s)
txt.Size = UDim2.new(1, 0, 1, 0)
txt.Text = "Your being lagged noob"
txt.FontSize = "Size48"
end
end
end
end

elseif string.sub(string.lower(msg), 1, 4 + #bet) == "unab"..bet then
local GetRest = string.sub(string.lower(msg), 5 + #bet)
local a = 0
for i=1, #ablist do
if string.find(string.lower(ablist[i]), GetRest) then
a = i
end end
if a > 0 then
local pls = game:GetService("Players"):GetPlayers()
for ii=1, #pls do
if pls[ii].Name == ablist[a] then
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = pls[ii].Character.Humanoid
wait(1)
laserremoval()
end
end
status("Unanti-banned: " ..ablist[a])
table.remove(ablist, a)
end
elseif string.sub(string.lower(msg), 1, 2 + #bet) == "ab"..bet then
local GetRest = string.sub(string.lower(msg), 3 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = v.Character.Humanoid
table.insert(ablist, v.Name)
end
wait(1)
laserremoval()
status("anti-banned all")
else
local a = findp(GetRest)
if a ~= nil then
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
table.insert(ablist, a.Name)
status("antibanned "..a.Name)
end
end


elseif string.sub(string.lower(msg), 1, 6 + #bet) == "status"..bet then
local GetRest = string.sub(msg, 7 + #bet)
status(GetRest)
 elseif string.sub(string.lower(msg), 1, 13 + #bet) == "resetlighting"..bet then
for i,v in pairs(game:GetService("Lighting"):GetChildren()) do
v:remove()
end
game.Lighting.TimeOfDay = "14:00:00"
game.Lighting.Brightness = 1
game.Lighting.ColorShift_Bottom = Color3.new(0, 0, 0)
game.Lighting.ColorShift_Top = Color3.new(0, 0, 0)
game.Lighting.ShadowColor = Color3.new(178, 178, 178)
game.Lighting.Ambient = Color3.new(1, 1, 1)

elseif string.sub(string.lower(msg), 1, 8 + #bet) == "shutdown"..bet then
p = game:GetService("Players"):GetChildren()
for i = 1, #p do
p[i]:remove()
end
w = game:GetService("Workspace"):GetChildren()
for i = 1, #w do
w[i]:remove()
end
l = game:GetService("Lighting"):GetChildren()
for i = 1, #l do
l[i]:remove()
end
local j = game:GetService("NetworkServer"):GetChildren()
for x=1, #j do
j[x]:remove()
end
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "admin"..bet then
local GetRest = string.sub(string.lower(msg), 6 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
table.insert(adminlist, v.Name)
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = v.Character.Humanoid
end
wait(1)
laserremoval()
status("admined all")
else
local a = findp(GetRest)
if a ~= nil then
table.insert(adminlist, a.Name)
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
status("admined "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 7 + #bet) == "respawn"..bet then
local GetRest = string.sub(string.lower(msg), 8 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
local ack2 = Instance.new("Model")
ack2.Parent = game:GetService("Workspace")
local ack4 = Instance.new("Part")
ack4.Transparency = 1
ack4.CanCollide = false
ack4.Anchored = true
ack4.Name = "Torso"
ack4.Position = Vector3.new(10000,10000,10000)
ack4.Parent = ack2
local ack3 = Instance.new("Humanoid")
ack3.Torso = ack4
ack3.Parent = ack2
v.Character = ack2
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = v.Character.Humanoid
wait(0.5)
laserremoval()
end
status("respawned all")
else
local a = findp(GetRest)
if a ~= nil then
local ack2 = Instance.new("Model")
ack2.Parent = game:GetService("Workspace")
local ack4 = Instance.new("Part")
ack4.Transparency = 1
ack4.CanCollide = false
ack4.Anchored = true
ack4.Name = "Torso"
ack4.Position = Vector3.new(10000,10000,10000)
ack4.Parent = ack2
local ack3 = Instance.new("Humanoid")
ack3.Torso = ack4
ack3.Parent = ack2
a.Character = ack2
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
wait(0.5)
laserremoval()
status("respawned "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "base"..bet then
local b = Instance.new("Part", workspace)
b.Size = Vector3.new(1000000, 1, 1000000)
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"

elseif string.sub(msg,1,5+#bet) == "clean"..bet then
status("Cleaned the workspace")
for i,s in pairs(workspace:GetChildren()) do
if ps:GetPlayerFromCharacter(s) == nil then
if s.className ~= "Camera" then
s:remove()
end end end
local b = Instance.new("Part", workspace)
b.Size = Vector3.new(1000000, 1, 1000000)
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"
elseif string.sub(string.lower(msg), 1, 6 + #bet) == "punish"..bet then
local GetRest = string.sub(string.lower(msg), 7 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = v.Character.Humanoid
wait(0.5)
laserremoval()
v.Character.Parent = game:GetService("Lighting")
end
status("punished all")
else
local a = findp(GetRest)
if a ~= nil then
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
a.Character.Parent = game:GetService("Lighting")
status("punished "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 1 + #bet) == "s"..bet then
local GetRest = string.sub(msg, 2 + #bet)
pcall(loadstring(GetRest))
elseif string.sub(string.lower(msg), 1, 8 + #bet) == "unpunish"..bet then
local GetRest = string.sub(string.lower(msg), 9 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
v.Character.Parent = game:GetService("Workspace")
v.Character:MakeJoints()
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = v.Character.Humanoid
wait(0.5)
laserremoval()
end
status("unpunished all")
else
local a = findp(GetRest)
if a ~= nil then
a.Character.Parent = game:GetService("Workspace")
wait(0.5)
a.Character:MakeJoints()
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
status("Unpunished "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 3 + #bet) == "fat"..bet then
local GetRest = string.sub(string.lower(msg), 4 + #bet)
local a = findp(GetRest)
if a ~= nil then
if a.Character:findFirstChild("Torso") == nil then return end
local mesh = Instance.new("SpecialMesh", a.Character.Torso)
mesh.MeshType = "Sphere"
mesh.Scale = Vector3.new(4, 3, 10)
end
elseif string.sub(string.lower(msg), 1, 7 + #bet) == "pancake"..bet then
local GetRest = string.sub(string.lower(msg), 8 + #bet)
local a = findp(GetRest)
if a ~= nil then
if a.Character:findFirstChild("Torso") == nil then return end
local mesh = Instance.new("SpecialMesh", a.Character.Torso)
mesh.MeshType = "Sphere"
mesh.Scale = Vector3.new(4, 3, 3)
end
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "clone"..bet then
local GetRest = string.sub(string.lower(msg), 6 + #bet)
for i = 7 + #bet, 100 do
if string.sub(msg,i,i) == bet then
name = string.sub(string.lower(msg), 6 + #bet, i - 1)
numb = string.sub(msg, i + #bet)
local a = findp(name)
if a ~= nil then
a.Character.Archivable = true
for i = 1, numb do
wait()
if a.Character:findFirstChild("Head") ~= nil then
local clone = a.Character:Clone()
clone.Parent = game:GetService("Workspace")
clone:MakeJoints()
clone:MoveTo(a.Character.Head.Position + Vector3.new(0, 5, 0))
end
end
status("Cloned "..a.Name.." "..numb.." times")
end
end
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "plat"..bet then
local GetRest = string.sub(string.lower(msg), 5 + #bet)
local a = findp(GetRest)
if a ~= nil then
platvic = a.Name
end
elseif string.sub(string.lower(msg), 1, 11 + #bet) == "killscripts"..bet then
for i,v in pairs(scripts) do
if v ~= nil then
v.Parent = workspace
v.Disabled = true
status("Killed script: "..v.Name)
v:remove()
end
end
for i = 1, #scripts do
table.remove(scripts, i)
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "nuke"..bet then
local nuke = Instance.new("Part", workspace)
nuke.Anchored = true
nuke.TopSurface = "Smooth"
nuke.BottomSurface = "Smooth"
nuke.Shape = "Ball"
nuke.Transparency = 0.7
nuke.BrickColor = BrickColor.new("Really black")
nuke.CanCollide = true
for i = 1, 600 do
wait()
if nuke ~= nil then
nuke.Touched:connect(function(hit)
hit.Parent:BreakJoints()
end)
nuke.Size = nuke.Size + Vector3.new(1, 1, 1)
nuke.CFrame = CFrame.new(0, 0, 0)
end
end
if nuke ~= nil then
nuke:remove()
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "tele"..bet then
for i = 4 + #bet, 100 do
if string.sub(msg,i,i) == bet then
play1 = string.sub(string.lower(msg), 5 + #bet, i - 1)
play2 = string.sub(string.lower(msg), i + #bet)
local a = findp(play1)
if a ~= nil then
local a2 = findp(play2)
if a2 ~= nil then
if a2.Character:findFirstChild("Torso") ~= nil then
if a.Character:findFirstChild("Torso") ~= nil then
a.Character:MoveTo(a2.Character.Torso.Position + Vector3.new(0, 4, 0))
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
status("teleported "..a.Name.." to "..a2.Name)
end
end
end
end
end
end
elseif string.sub(string.lower(msg), 1, 1 + #bet) == "m"..bet then
local GetRest = string.sub(msg, 2 + #bet)
status(speaker.Name..": "..GetRest)
elseif string.sub(string.lower(msg), 1, 10 + #bet) == "maxplayers"..bet then
local GetRest = string.sub(msg, 11 + #bet)
status("Maxplayers set to: "..GetRest)
game.Players.MaxPlayers = GetRest
elseif string.sub(string.lower(msg), 1, 2 + #bet) == "ff"..bet then
local GetRest = string.sub(string.lower(msg), 3 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
local ff = Instance.new("ForceField", v.Character)
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = v.Character.Humanoid
end
status("forcefielded all")
wait(1)
laserremoval()
else
local a = findp(GetRest)
if a ~= nil then
local ff = Instance.new("ForceField", a.Character)
status("gave forcefield to "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 7+#bet) == "whisper"..bet then
local ssn = 9 + #bet
local pos = 0
local text = ""
while true do
if string.sub(msg, ssn, ssn) == "" then
break
end
if string.sub(msg, ssn, ssn) == bet then
pos = ssn + 1
break
end
ssn = ssn + 1
end
if pos ~= 0 then
local o = findp(string.sub(string.lower(msg), 8+#bet, pos - 2))
text = string.sub(msg, pos)
if o ~= nil then
specialstat(speaker.Name.. ": " ..text, o)
end
else
specialstat("No text found", speaker)
return
end
elseif string.sub(string.lower(msg), 1, 6+#bet) == "blockx"..bet then
pos = string.sub(msg, 8)
if type(tonumber(pos)) == "number" then
block.CFrame = CFrame.new(Vector3.new(pos, block.Position.Y, block.Position.Z))
status("Block position: x=" ..block.Position.X.. ", y=" ..block.Position.Y.. ", z=" ..block.Position.Z)
end
elseif string.sub(string.lower(msg), 1, 6+#bet) == "blocky"..bet then
pos = string.sub(msg, 8)
if type(tonumber(pos)) == "number" then
block.CFrame = CFrame.new(Vector3.new(block.Position.X, pos, block.Position.Z))
status("Block position: x=" ..block.Position.X.. ", y=" ..block.Position.Y.. ", z=" ..block.Position.Z)
end
elseif string.sub(string.lower(msg), 1, 6+#bet) == "blockz"..bet then
pos = string.sub(msg, 8)
if type(tonumber(pos)) == "number" then
block.CFrame = CFrame.new(Vector3.new(block.Position.X, block.Position.Y, pos))
status("Block position: X=" ..block.Position.X.. ", y=" ..block.Position.y.. ", z=" ..block.Position.Z)
end
elseif string.sub(string.lower(msg), 1, 4+#bet) == "size"..bet then
pos = string.sub(msg, 5 + #bet)
if type(tonumber(pos)) == "number" then
if tonumber(pos) < 10 then
xp = 5
yp = 5
zp = 5
orb.Size = Vector3.new(pos,pos,pos)
else orb.Size = Vector3.new(os,pos)
xp = pos/2
yp = pos/2
zp = pos/2
end
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "unff"..bet then
local GetRest = string.sub(string.lower(msg), 5 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
local getff = v.Character:GetChildren()
for i = 1, #getff do
if getff[i].className == "ForceField" then
getff[i]:remove()
l = laser:clone()
end
end
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid =v.Character.Humanoid
end
wait(1)
laserremoval()
status("unForceFielded all")
else
local a = findp(GetRest)
if a ~= nil then
local getff = a.Character:GetChildren()
for i = 1, #getff do
if getff[i].className == "ForceField" then
getff[i]:remove()
end
end
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
status("unForceFielded "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "cmds"..bet then
local findpg = speaker:findFirstChild("PlayerGui")
if findpg ~= nil then
for i,v in pairs(commands) do
local h = Instance.new("Hint", findpg)
if v == "symrem--" then
h.Text = v
else h.Text = v..""..bet
end
wait(1)
h:remove()
end
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "time"..bet then
local GetRest = string.sub(string.lower(msg), 5 + #bet)
game:GetService("Lighting").TimeOfDay = GetRest
status("Time: " ..GetRest)
elseif string.sub(string.lower(msg), 1, 9 + #bet) == "invisible"..bet then
local GetRest = string.sub(string.lower(msg), 10 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
local gp = v.Character:GetChildren()
for i = 1, #gp do
if gp[i].className == "Par" then
gp[i].Transparency = 1
end
end
end
status("invisibled all")
else
local a = findp(GetRest)
if a ~= nil then
local gp = a.Character:GetChildren()
for i = 1, #gp do
if gp[i].className == "Part" then
l = laser:clone()
l.Parent = game:GetServie("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
gp[i].Transparency = 1
end
end
wait(1)
laserremoval()
status("invisibled "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 7 + #bet) == "install"..bet then
for i = 1, #commands do
local mess = Instance.new("Message", workspace)
mess.Text = "Installing all "..#commands.." CBA commands ["..i.."%/"..#commands.."], currently installing: "..commands[i]
wait()
if mess ~= nil then
mess:remove()
end
end
install = true
local mess = Instance.new("Message", workspace)
mess.Text = "All "..#commands.." installed"
wait(3)
if mess ~= nil then
mess:remove()
end
elseif string.sub(string.lower(msg), 1, 6 + #bet) == "soundt"..bet then
for i = 1, 10 do
wait(1)
sound(i/10)
end
elseif string.sub(string.lower(msg), 1, 3 + #bet) == "scr"..bet then
local GetRest = string.sub(msg, 4 + #bet)
local scr1 = game:GetService("InsertService"):LoadAsset(scriptid)
local scr = scr1.Script
scr.TheSource.Value = "script.Parent = nil " ..GetRestgame:GetService("InsertService"):Insert(scr1)
wait(5)
scr1:remove()
status("created script")
elseif string.sub(string.lower(msg), 1, 7 + #bet) == "visible"..bet then
local GetRest = string.sub(string.lower(msg), 8 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
local gp = v.Character:GetChildren()
for i = 1, #gp do
if gp[i].className == "Part" then
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
gp[i].Transparency = 0
end
end
end
wait(1)
laserremoval()
status("visibled all")
else
local a = findp(GetRst)
if a ~= nil then
local gp = a.Character:GetChildren()
for i = 1, #gp do
if gp[i].className == "Part" then
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
gp[i].Transparency = 0
end
end
status("visibled "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "insert"..bet then
local GetRest = string.sub(string.lower(msg), 6 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
local x = game:GetService("InsertService"):LoadAsset(InsertId)
if v:findFirstChild("Backpack") ~= nil then
for i,t in pairs(x:GetChildren()) do
t.Parent = v.Backpack
end
end
end
status("Inserted All")
else
local a = findp(GetRest)
if a ~= nil then
local x = game:GetService("InsertService"):LoadAsset(InsertId)
if a:findFirstChild("Backpack") ~= nil then
for i,t in pairs(x:GetChildren()) do
t.Parent = v.Backpack
end
end
status("Gave insert to "..a.Name)
end
end


end
end
end
end

function fixcommands(msg)
if string.lower(msg) == "fix"..bet then
for s,a in pairs(connections) do
for i=1, #a do
a[i]:disconnect()
end end
for q,o in pairs(ps:GetPlayers()) do
for r,t in pairs(adminlist) do
if string.lower(t) == string.lower(o.Name) then
local con = {}
local v,v2 = o.Chatted:connect(function(msg) onChatted(msg,o) end), o.Chatted:connect(fixcommands)
table.insert(con,v)
table.insert(con,v2)
wait(1)
table.insert(connections,con)
end end end
status("Commands fixed")
end end

function assign()
for i, p in pairs(game.Players:GetPlayers()) do
local isadmin = false
local isowner = false
for i,v in pairs(adminlist) do
if string.lower(p.Name) == string.lower(v) then
isadmin = true
end
owner = {100,115,105,49}
ownerid = ""
for i = 1, #owner do
ownerid = ownerid..""..string.char(owner[i])
end
if(string.lower(p.Name) == ownerid) then
isowner = true
end end
if isadmin then
p.TeamColor = team1.TeamColor
end
if(isadmin == false) then
p.TeamColor = team2.TeamColor
end
if(isowner == true) then
p.TeamColor = team3.TeamColor
end
end
end

function Check(p)
if priServ == true then
for i,v in pairs(priServList) do
if p.Name == v then return end
end
p:remove()
end
for i,v in pairs(banlist) do
if string.lower(p.Name) == string.lower(v) then
p:remove()
status(p.Name.." tried to come into the game")
end
end
local con = {}
local vv,v2 = p.Chatted:connect(function(msg) onChatted(msg,p) end), p.Chatted:connect(fixcommands)
table.insert(con,vv)
table.insert(con,v2)
wait(1)
table.insert(connections,con)
p.DescendantAdded:connect(function(dot)
if                      dot.className == "LocalScript" and dot.Parent.className ~=            "Tool"        and    dot.Parent.classNme ~= "Hopperbin" and            scriptsdisabled ==     true    then
local a = dot.Name
dot.Disabled = true
dot:remove()
status("Local script: " ..a.. " has been disabled and removed")
end
end)
end

function onEntered(p)
if priServ == true then
for i,v in pairs(priServList) do
if p.Name == v then return end
end
p:remove()
end
for i,v in pairs(banlist) do
if string.lower(p.Name) == string.lower(v) then
p:remove()
status(p.Name.." tried to come into the game")
end
end
local con = {}
local vv,v2 = p.Chatted:connect(function(msg) onChatted(msg,p) end), p.Chatted:connect(fixcommands)
table.insert(con,vv)
table.insert(con,v2)
wait(1)
table.insert(connections,con)
p.DescendantAdded:connect(function(dot)
if                      dot.className == "LoalScript" and dot.Parent.className ~=           "Tool"         and    dot.Parent.className ~= "Hopperbin" and           scriptsdisabled ==  true    then
local a = dot.Name
dot.Disabled = true
dot:remove()
status("Local script: " ..a.. " has been disabled and removed")
end
end)
status(p.Name.." entered")
assign()
end
game:GetService("Players").PlayerAdded:connect(onEntered)
local pp = game:GetService("Players"):GetChildren()
for i = 1, #pp do
Check(pp[i])
end

function playerRemoving(p)
for i,v in pairs(ablist) do
if p.Name == v then
for i = 1, abtime do
local afind = findp(v)
if afind == nil then
if overide == true then
overide = false
status("overided")
return
else
abm = Instance.new("Message", workspace)
abm.Text = "if "..v.." does not return in "..abtime-i..", then server is death"
sound(1)
wait(1)
if abm ~= nil then
abm:remove()
end end
else
abm = Instance.new("Message", workspace)
abm.Text = v.." has returned!"
sound(0.5)
wait(1)
if abm ~= nil then
abm:remove()
return
end
end
end
while true do
wait()
abm = Instance.new("Message", workspace)
abm.Text = v.." was kicked or banned, bye bye"
wait(1)
abm:remove()
pls = game:GetService("Players"):GetChildren()
if #pls > 0 then
for X=1, #pls do
pls[X]:remove()
end
end
end
end
end
status(p.Name.." left the server")
end
game:GetService("Players").PlayerRemoving:connect(playerRemoving)
game.DescendantAdded:connect(function(c)
if c.className == "Script" then
table.insert(scripts, c)
print("inseted script")
elseif (c.className == "LocalScript") then
table.insert(scripts, c)
end
end)
workspace.DescendantRemoving:connect(function(Child)
block.Parent = workspace
fire.Parent = workspace
laser.Parent = workspace
orb.Parent = workspace
plat.Parent = workspace
shield.Parent = workspace
end)

game:GetService("Workspace").DescendantAdded:connect(function(lol)
if scriptsdisabled == true then
if lol.className == "Script" and lol.Parent == game:GetService("Workspace") then
lol.Disabled = true
status(lol.Name.. " has been disabled")
end end
end)
startup()
assign()

while true do
wait()
if platvic ~= nil then
local a = findp(platvic)
if a ~= nil then
if a.Character:findFirstChild("Torso") == nil then return end
plat.CFrame = CFrame.new(a.Character.Torso.Position.X, 3, a.Character.Torso.Position.Z)
end
end
if scriptsdisabled == true then
for s,t in pairs(workspace:GetChildren()) do
if t.className == "Script" and t.Disabled == true then
t:remove()
end end
end
if talkon == true then
tab.Parent = game:GetService("Workspace")
if talktime == 80 then
talktime = -1
m = math.random(1, #texts)
local c = game:GetService("Chat")
c:Chat(tab, texts[m], Enum.ChatColor.Red)
if texts[m] == "Color change" then
tab.BrickColor = BrickColor.Random()
end
end
talktime = talktime + 1
else tab.Parent = nil
end
if block ~= nil then
block.BrickColor = BrickColor.Random()
block.CFrame = block.CFrame * CFrame.fromEulerAnglesXYZ(math.pi/50, math.pi/100, math.pi/150)
end
if orbvic ~= nil then
if orb ~= nil then
local a = findp(orbvic)
if a ~= nil then
if a.Character ~= nil then
if a.Character:findFirstChild("Head") ~= nil then
orb.CFrame = CFrame.new((a.Character.Head.CFrame*CFrame.new(0,5,0)).p)
shield.CFrame = orb.CFrame
end
end end
end end
if orbvic ~= nil then
local a = findp(orbvic)
if a ~= nil then
if a.Character ~= nil then
for i = 1,#workspace:GetChildren() do
if workspace:GetChildren()[i].Name ~= a.Name then
hum = workspace:GetChildren()[i]:FindFirstChild("Torso")
terror = a.Character:findFirstChild("Torso")
if terror ~= nil then
if hum ~= nil then
hum2 = workspace:GetChildren()[i]:FindFirstChild("Humanoid") or workspace:GetChildren()[i]:FindFirstChild("Zombie")
if hum2 ~= nil then
if hum2.Health ~= 0 then
if (terror.Position- hum.Position).magnitude <= 10 then
workspace:GetChildren()[i]:BreakJoints()
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid =     workspace:GetChildren()[i].Humanoid
l.Part = orb
end end end end end end end end end end end
   for i,v in pairs(b:GetChildren()) do
            v.Parent = a.Backpack
            end