Camball

--CamBall V10.2 Gifted by machontz, Local Script!

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  = {{"AwesomeTelamon444", 7}, {"TheMoonlightGlows", 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.." has loaded successfully! CBA is brought to you by: dsi1. Creator of all CBA and expert scripter!")


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