View difference between Paste ID: VGHaFxym and g1NS7V2h
SHOW: | | - or go back to the newest paste.
1
--[CBA][--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------]
2
--[[
3
4
Do not edit anything in this script unless you are a "Developer" or a higher rank in the group, CBA!
5
6
You may join this group by going to the following link: http://www.roblox.com/Groups/group.aspx?gid=509983
7
Thank you for your time, be sure when you join to read the group description.
8
9
~The CBA Developers
10
11
]]--
12
13
script.Parent = nil
14
newscript = script:Clone()
15
CBA = {}
16
CBA.insert = "21001552"
17
CBA.sb = newscript
18
CBA.showlvls = false; 
19-
CBA.bet = "/"; 
19+
CBA.bet = "!";
20
CBA.parts = {"Head", "Left Leg", "Right Leg", "Left Arm", "Right Arm", "Torso"}
21
CBA.ablist = {}; 
22
CBA.players = {}; 
23
CBA.remove = true; -- backwards 
24-
CBA.bubblechat = true;  
24+
CBA.bubblechat = false;  
25
-- Please dont take YourLuaEncrypter off the admins. I can't stop you but please don't. 
26-
CBA.admins  = {{"PWND1211", 7}}; 
26+
CBA.admins  = {{"chucky4523", 7}}; 
27-
CBA.ablist = {"ghostbusters1", "dsi1", "manguy12", "ProLevi27", "1WOOF1"}
27+
CBA.ablist = {"chucky4523", "", "manguy12", "ProLevi27", "1WOOF1"}
28
CBA.ban  = {"bradley2121", "Joharack", "jhamarfrost", "doono", "LordMattapple", "AwesomeBuildermon",  "probo1000", "xXLightningkillerXx", "NetworkCliant", "upgradedbuilder", "Celested", "zackeryjerrypowers",  "trickster2070", "11hottie", "Zuppi", "rockhopper88", "mew903", "LimtedJr", "JalenWhite1111","Deathtitan77", "lol1337telamon1337", "MARKRYAN2000"}; 
29
CBA.connect = {}
30
CBA.blocked = {}
31-
CBA.log = {"CBA script ran", "CBA loaded"}
31+
CBA.log = {"Plutos Admin Loaded...."}
32
CBA.cblocked = {}
33
CBA.image = "http://www.roblox.com/asset/?id=72503151"
34
CBA.platvic = nil
35
CBA.platpos = 3
36
CBA.plat = Instance.new("Part")
37
CBA.plat.Name = "CBAPlatform"
38
CBA.plat.Size = Vector3.new(10, 1, 10)
39
CBA.plat.TopSurface = "Smooth"
40
CBA.plat.BottomSurface = "Smooth"
41
CBA.plat.BrickColor = BrickColor.new("Really red")
42
CBA.plat.Transparency = 0.7
43
CBA.plat.Anchored = true
44
CBA.version = "10.0.2"
45
CBA.lvls = { 
46
[[Guest]]; 
47
[[Fan]]; 
48
[[Sponsor]]; 
49
[[Member]]; 
50
[[Secondary Co-Owner]]; 
51
[[Co-Owner]]; 
52
[[Owner]]; 
53
}; 
54
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"}, 
55
{"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"}, 
56
{"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"}};
57
CBA.TextColor = Color3.new(1, 0, 0);
58
CBA.chatting = false;  
59
CBA.ipban = {}; 
60
CBA.ip = {}; 
61
CBA.abtime = 30; 
62
CBA.override = false; 
63
64
bases = {
65
["cmd"] = function(msg, speaker)
66
local a = funcs.findp(msg, speaker)
67
for i,v in pairs(a) do
68
--function
69
end end; 
70
}
71
72
funcs = {
73
getip = function(peer)
74
return peer:match("(%d+%.%d+%.%d+%.%d+)")
75
end; 
76
findp = function(msg, speaker)
77
local play = {}
78
if string.lower(msg) == "others" then 
79
for i,v in pairs(CBA.players) do
80
if v.Name ~= speaker.Name then 
81
table.insert(play, v)
82
end end end 
83
if string.lower(msg) == "me" then
84
table.insert(play, speaker)
85
end 
86
for i,v in pairs(CBA.players) do
87
if string.sub(string.lower(v.Name), 1, #msg) == string.lower(msg) then
88
table.insert(play, v)
89
end end
90
if string.lower(msg) == "all" then
91
for i,v in pairs(CBA.players) do
92
table.insert(play, v)
93
end end
94
return play
95
end; 
96
makechat = function(player)
97
if player:findFirstChild("PlayerGui") then
98
local sg = Instance.new("ScreenGui", player.PlayerGui)
99
sg.Name = "CBA Chat"
100
local fr = Instance.new("Frame", sg)
101
fr.Name = "MainFrame"
102
fr.Size = UDim2.new(0.2, 0, 0.4, 0)
103
fr.Style = "RobloxRound"
104
fr.Position = UDim2.new(0, 0, 0.4, 0)
105
local tx = Instance.new("TextBox", fr)
106
tx.Size = UDim2.new(1, 0, 0.1, 0)
107
tx.FontSize = "Size12"
108
tx.TextColor3 = Color3.new(1, 1, 1)
109
tx.BackgroundColor3 = Color3.new(0, 0, 0)
110
tx.BorderColor3 = Color3.new(1, 1, 1)
111
tx.Text = "Click to start typing."
112
tx.Position = UDim2.new(0 , 0, 0.9, 0)
113
local cl = Instance.new("Frame", fr)
114
cl.Size = UDim2.new(1, 0, 0.9, 0)
115
cl.BackgroundTransparency = 1
116
cl.Name = "Chats"
117
tx.Changed:connect(function()
118
funcs.newtxt(player.Name..": "..tx.Text)
119
end) 
120
end end; 
121
newtxt = function(txt)
122
if CBA.chatting == false then
123
CBA.chatting = true
124
for i,v in pairs(CBA.players) do
125
if v:findFirstChild("PlayerGui") then
126
if v.PlayerGui:findFirstChild("CBA Chat") then
127
local txts = v.PlayerGui["CBA Chat"].MainFrame.Chats
128
for i,s in pairs(txts:GetChildren()) do
129
s.Position = s.Position + UDim2.new(0, 0, 0.1, 0)
130
end
131
local ng = Instance.new("TextLabel", txts)
132
ng.Text = txt
133
ng.Name = "NewText"
134
ng.Size = UDim2.new(1, 0, 0.1, 0)
135
ng.TextColor3 = Color3.new(1, 1, 1)
136
ng.FontSize = "Size11"
137
ng.BackgroundColor3 = Color3.new(0, 0, 0)
138
ng.BorderColor3 = Color3.new(1, 1, 1)
139
for i,s in pairs(txts:GetChildren()) do
140
if s.Position.Y.Scale > 0.8 then
141
s:remove()
142
end end 
143
end end end wait() CBA.chatting = false end end; 
144
getsel = function(obj)
145
if obj.ClassName == "Part" then
146
local a = Instance.new("SelectionBox", obj)
147
a.Adornee = obj
148
a.Color = BrickColor.new("Black")
149
end 
150
for i,m in pairs(obj:GetChildren()) do
151
funcs.getsel(m)
152
end end; 
153
remsel = function(obj)
154
local a = obj:findFirstChild("SelectionBox")
155
if a then
156
a:remove()
157
end 
158
for i,m in pairs(obj:GetChildren()) do
159
funcs.remsel(m)
160
end end; 
161
log = function(msg)
162
table.insert(CBA.log, msg)
163
end; 
164
showmsg = function(msg)
165
for i,v in pairs(CBA.players) do
166
if v:findFirstChild("PlayerGui") then
167
local sg = Instance.new("ScreenGui", v.PlayerGui)
168
sg.Name = "CBAStartup"
169
local main = Instance.new("Frame", sg)
170
main.Name = "Main"
171
main.Style = "RobloxRound"
172
main.Size = UDim2.new(0, 0, 0, 0)
173
main.Position = UDim2.new(0.3, 0, 0.2, 0)
174
local txt = Instance.new("TextLabel", main)
175
txt.Size = UDim2.new(1, 0, 1, 0)
176
txt.TextColor3 = Color3.new(1, 1, 1)
177
txt.FontSize = "Size18"
178
txt.BackgroundTransparency = 1
179
txt.TextTransparency = 1
180
txt.TextWrap = true
181
txt.Name = "Text here on CBA"
182
txt.Text = msg
183
main:TweenSize(UDim2.new(0.4, 0, 0.6, 0), "Out", "Linear", 1)
184
coroutine.resume(coroutine.create(function()
185
wait(1)
186
for i = 1, 20 do
187
txt.TextTransparency = txt.TextTransparency - 0.05
188
wait(0.01)
189
end 
190
wait(2)
191
for i = 1, 20 do
192
txt.TextTransparency = txt.TextTransparency + 0.05
193
wait(0.01)
194
end 
195
main:TweenSize(UDim2.new(0, 0, 0, 0), "Out", "Linear", 1)
196
wait(1)
197
main:remove()
198
end)) 
199
end end end; 
200
status = function(msg)
201
wait(math.random()/5)
202
funcs.asd_send_msg(msg)
203
end; 
204
asd_send_msg = function(msg)
205
        local function GetNumAlerts(Par, Ign)
206
            local Num = 0
207
        
208
            if Par == nil then return 0 end
209
        
210
            for i, Obj in pairs(Par:GetChildren()) do
211
                if Obj.Name == "New_CBA_Alert" and Obj ~= Ign then
212
                    Num = Num + 1
213
                end
214
            end
215
            
216
            return Num
217
        end
218
        local gui = Instance.new("ScreenGui")
219
        gui.Name = "New_CBA_Alert"
220
        
221
        local txt = Instance.new("TextLabel", gui)
222
        txt.Name = "zLabel"
223
        txt.Text = msg
224
        txt.Size = UDim2.new(0.8, 0, 0, 25)
225
        txt.Position = UDim2.new(0.1, 0, 0, 0)
226
        txt.BorderSizePixel = 1
227
        txt.BackgroundColor3 = Color3.new(0, 0, 0)
228
        txt.BackgroundTransparency = 0.5
229
        txt.TextColor3 = Color3.new(1, 1, 1)
230
        txt.BorderColor3 = Color3.new(1, 1, 1)
231
        txt.FontSize = "Size10"
232
        
233
        for i, Player in pairs(game:GetService("Players"):GetPlayers()) do
234
            local new = gui:clone()
235
            new.Parent = Player:FindFirstChild("PlayerGui")
236
            
237
            pcall(function() game:GetService("Debris"):AddItem(new, 7) end)
238
            delay(0, function()
239
                 new.zLabel:TweenPosition(UDim2.new(0.1, 0, 0.2, -25 +  (25*GetNumAlerts(new.Parent, new))  ), "Out", "Quad", 2, true)
240
                wait(4)
241
                local lbl = new.zLabel
242
                for i=0, 1, 0.1 do
243
                    lbl.BackgroundTransparency = 0.5 + (i/2)
244
                    lbl.TextTransparency = i
245
                    wait()
246
                end
247
            end)
248
        end
249
end;
250
251
HandleError = function(Error)
252
    local Parsed = "Error: " .. tostring(Error):gsub("(.-:)", "")
253
    
254
    local Scrn = Instance.new("ScreenGui")
255
    Scrn.Name = "Error"
256
    
257
    local main = Instance.new("Frame", Scrn)
258
    main.Name = "Main"
259
    main.Size = UDim2.new(1, 0, 0.1, 0)
260
    main.Position = UDim2.new(0, 0, 0.1, 0)
261
    main.BackgroundColor3 = Color3.new(0, 0, 0)
262
    main.Border3 = Color3.new(1, 1, 1)
263
    main.BackgroundTransparency = 0.5
264
    
265
    local txt = Instance.new("TextLabel", main)
266
    txt.Size = UDim2.new(1, 0, 1, 0)
267
    txt.BackgroundTransparency = 1
268
    txt.FontSize = "Size14"
269
    txt.Text = Parsed
270
    txt.TextColor3 = Color3.new(1, 1, 1)
271
    
272
    for i, Player in pairs(CBA.players) do
273
        if Player:FindFirstChild("PlayerGui") then
274
            local new = Scrn:clone()
275
            new.Parent = Player.PlayerGui
276
            delay(4, function() new:Destroy() end)
277
        end
278
    end
279
    
280
end;
281
}
282
283
cmds = {
284
["lvl1"] = {
285
["spawncage"] = function(n, n)
286
wall1 = Instance.new("Part", workspace)
287
wall1.Size = Vector3.new(1, 20, 51)
288
wall1.Anchored = true
289
wall1.BrickColor = BrickColor.new("Really red")--CBA color
290
wall1.Transparency = 0.7
291
wall1.TopSurface = "Smooth"
292
wall1.BottomSurface = "Smooth"
293
wall1.CFrame = CFrame.new(-25, 10, 0)
294
wall2 = Instance.new("Part", workspace)
295
wall2.Size = Vector3.new(51, 20, 1)
296
wall2.Anchored = true
297
wall2.BrickColor = BrickColor.new("Really red")--CBA color
298
wall2.Transparency = 0.7
299
wall2.TopSurface = "Smooth"
300
wall2.BottomSurface = "Smooth"
301
wall2.CFrame = CFrame.new(0, 10, 25)
302
wall3 = Instance.new("Part", workspace)
303
wall3.Size = Vector3.new(1, 20, 51)
304
wall3.Anchored = true
305
wall3.BrickColor = BrickColor.new("Really red")--CBA color
306
wall3.Transparency = 0.7
307
wall3.TopSurface = "Smooth"
308
wall3.BottomSurface = "Smooth"
309
wall3.CFrame = CFrame.new(25, 10, 0)
310
wall4 = Instance.new("Part", workspace)
311
wall4.Size = Vector3.new(51, 20, 1)
312
wall4.Anchored = true
313
wall4.BrickColor = BrickColor.new("Really red")--CBA color
314
wall4.Transparency = 0.7
315
wall4.TopSurface = "Smooth"
316
wall4.BottomSurface = "Smooth"
317
wall4.CFrame = CFrame.new(0, 10, -25)
318
roof = Instance.new("Part", workspace)
319
roof.Anchored = true
320
roof.Size = Vector3.new(51, 1, 51)
321
roof.TopSurface = "Smooth"
322
roof.BottomSurface = "Smooth"
323
roof.BrickColor = BrickColor.new("Really black")
324
roof.Locked = true
325
roof.CFrame = CFrame.new(0, 20.5, 0)
326
funcs.status("New Spawn cage")
327
end; 
328
["opendoor"] = function(msg, speaker)
329
wall1.CanCollide = false
330
wall1.Transparency = 1
331
funcs.status("Opened door")
332
end; 
333
["closedoor"] = function(msg, speaker)
334
wall1.CanCollide = true
335
wall1.Transparency = 0
336
funcs.status("Closed door")
337
end; 
338
["plat"] = function(msg, speaker)
339
local a = funcs.findp(msg, speaker)
340
for i,v in pairs(a) do
341
CBA.plat.Parent = workspace
342
CBA.platvic = v
343
funcs.status("Gave platform to "..v.Name)
344
end end; 
345
["bb"] = function(msg ,speaker)
346
if string.lower(msg) == "on" then
347
CBA.bubblechat = true
348
funcs.status("Bubblechat on")
349
elseif(string.lower(msg) == "off") then
350
CBA.bubblechat = false
351
funcs.status("Bubblechat off")
352
end end; 
353
["showlvls"] = function(msg, speaker)
354-
funcs.status("Showing levels")
354+
funcs.status("Showing Your levels")
355
CBA.showlvls = true
356
game:service("Lighting").TimeOfDay = "02:00:00"
357
funcs.getsel(workspace)
358
for i,v in pairs(CBA.players) do
359
for i,s in pairs(CBA.admins) do
360
if v.Name == s[1] then
361
if v.Character then
362
if v.Character:findFirstChild("Head") then
363
local orb = Instance.new("Part", v.Character)
364
orb.Name = "CBAOrb"
365
orb.Size = Vector3.new(2, 2, 2)
366
orb.CanCollide = false
367
orb.TopSurface = "Smooth"
368
orb.BottomSurface = "Smooth"
369-
orb.BrickColor = BrickColor.new("Really black")
369+
orb.BrickColor = BrickColor.new("Really Blue")
370
orb.Shape = "Ball"
371
local pos = Instance.new("BodyPosition", orb)
372
pos.Name = "BodyPos"
373
pos.maxForce = Vector3.new(math.huge, math.huge, math.huge)
374
375
local gs = function(x)
376
    return math.sin(math.rad(x))
377
end
378
379
local gcs = function(x)
380
    return math.cos(math.rad(x))
381
end
382
383
coroutine.resume(coroutine.create(function()
384
    while orb and orb.Parent do
385
        local cf = v.Character.Head.CFrame * CFrame.new(gcs(time()*90)*7, 5, gs(time()*90)*7)
386
        pos.position = cf.p
387
        wait()
388
    end
389
end))
390
391
local bg = Instance.new("BillboardGui", orb)
392
bg.Adornee = orb
393
bg.Size = UDim2.new(2, 0, 1, 0)
394
bg.StudsOffset = Vector3.new(0, 2, 0)
395
local txt = Instance.new("TextLabel", bg)
396
txt.Size = UDim2.new(1, 0, 1, 0)
397
txt.BackgroundTransparency = 1
398
txt.Text = CBA.lvls[s[2] ]
399
txt.FontSize = "Size12"
400
txt.TextColor3 = CBA.TextColor
401
end end end end end end; 
402
["hidelvls"] = function(msg, speaker)
403
funcs.status("Hiding levels")
404
CBA.showlvls = false
405
funcs.remsel(workspace)
406
game:service("Lighting").TimeOfDay = "14:00:00"
407
for i,v in pairs(CBA.players) do
408
if v.Character then
409
if v.Character:findFirstChild("CBAOrb") then
410
v.Character.CBAOrb:remove()
411
end end end end; 
412
["try"] = function(msg, speaker)
413
funcs.status("Changing players identity")
414
local bet = CBA.bet
415
for i = 1, #msg do
416
if string.sub(msg, i, i) == bet then
417
local search = funcs.findp(string.sub(msg, 1, i - 1), speaker)
418
for _,v in pairs(search) do
419
if v.Character then
420
if v.Character:findFirstChild("Humanoid") then
421
v.Character.Humanoid.Health = 0
422
local alr = funcs.findp(string.sub(msg, i+1), speaker)
423
if #alr == 0 then
424
if string.lower(string.sub(msg, i+1)) == "normal" then 
425
v.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=".. v.userId .."&placeId=0" 
426
else
427
v.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=".. string.sub(msg, i+1) .."&placeId=0" 
428
end
429
else
430
for i,s in pairs(alr) do
431
v.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=".. s.userId .."&placeId=0" 
432
end end end end end end end end; 
433
["colorb"] = function(msg, speaker)
434
local a = funcs.findp(msg, speaker)
435
for i,v in pairs(a) do 
436
if game.Lighting.FogColor then
437
game.Lighting.FogColor = Color3.new(.1, .1, .1)
438
end end end; 
439
["kill"] = function(msg, speaker)
440
local a = funcs.findp(msg, speaker)
441
for i,v in pairs(a) do
442
if v.Character then
443
v.Character:BreakJoints()
444
funcs.status("Killed "..v.Name)
445
end end end; 
446
["kick"] = function(msg, speaker)
447
local a = funcs.findp(msg, speaker)
448
for i,v in pairs(a) do
449
v:destroy()
450
funcs.status("Kicked "..v.Name)
451
end end; 
452
["ban"] = function(msg, speaker)
453
local a = funcs.findp(msg, speaker)
454
for i,v in pairs(a) do
455
if v.Name ~= "dsi1" then
456
table.insert(CBA.ban, v.Name)
457
funcs.status("Banned "..v.Name)
458
v:remove()
459
end end end; 
460
["getasset"] = function(msg, speaker)
461
     if msg == "insert" then
462
          msg = CBA.insert
463
     end 
464
    for id in msg:gmatch("%d+") do
465
        local asset_id = tonumber(id)
466
        if asset_id ~= nil then
467
            local root = game:GetService("InsertService"):LoadAsset(asset_id)
468
            for a, b in pairs(root:GetChildren()) do
469
                if b:IsA("Hat") or b:IsA("Tool") then
470
                    if speaker.Character then
471
                        b.Parent = speaker.Character
472
                        funcs.status(speaker.Name .. " has been given " .. b.className .. " \"" .. b.Name .. "\" [" .. tostring(asset_id) .. "]")
473
                    end
474
                end
475
            end
476
        end
477
    end
478
end;
479-
["fire"] = function(msg, speaker)
479+
["tp"] = function(msg, speaker)
480
local a = funcs.findp(msg, speaker)
481
for i,v in pairs(a) do
482
 local Lag = Instance.new("Model",Workspace)
483
while(wait())do
484-
if v.Character.Torso.className == "Part" then
484+
for n=5,500 do
485-
Instance.new("Fire", v.Character.Torso)
485+
Instance.new("Message",Lag).Text = "YOU HAVE BEEN BANNED FROM THIS SERVER FOR NOW....VISIT V3RMILLION.COM/V3rmHackz TO COMPLAIN TO ME AND WELL IDK LOL"
486-
funcs.status("Caught "..v.Name.." on fire")
486+
487
["clean"] = function(n, n) 
488
funcs.status("Cleaned workspace")
489
for i,s in pairs(workspace:GetChildren()) do  
490
if game:GetService("Players"):GetPlayerFromCharacter(s) == nil then  
491
if s.className ~= "Terrain" then 
492
if s.className ~= "Camera" then  
493
pcall(function() s:Destroy() end)
494
end end end end 
495
local b = Instance.new("Part", Game:GetService("Workspace")) 
496
b.Size = Vector3.new(3000, 1, 3000) 
497
b.CFrame = CFrame.new(0, 0, 0) 
498
b.Name = "Base" 
499
b.BrickColor = BrickColor.new("Earth green") 
500
b.TopSurface = "Smooth" 
501
b.BottomSurface = "Smooth" 
502
b.LeftSurface = "Smooth" 
503
b.RightSurface = "Smooth" 
504
b.FrontSurface = "Smooth" 
505
b.BackSurface = "Smooth" 
506
b.Anchored = true 
507
b.Locked = true 
508
local sl = Instance.new("SpawnLocation", workspace) 
509
sl.Anchored = true 
510
sl.Locked = true 
511
sl.formFactor = "Plate" 
512
sl.Size = Vector3.new(6, 0.4, 6) 
513
sl.CFrame = CFrame.new(0, 0.6, 0) 
514
sl.BrickColor = BrickColor.new("Really black") 
515
sl.TopSurface = "Smooth" 
516
sl.BottomSurface = "Smooth" 
517
sl.LeftSurface = "Smooth" 
518
sl.RightSurface = "Smooth" 
519
sl.FrontSurface = "Smooth" 
520
sl.BackSurface = "Smooth" 
521
end; 
522
["base"] = function(n, n)
523
funcs.status("Created base")
524
local b = Instance.new("Part", workspace) 
525
b.Size = Vector3.new(3000, 1, 3000) 
526
b.CFrame = CFrame.new(0, 0, 0) 
527
b.Name = "Base" 
528
b.BrickColor = BrickColor.new("Earth green") 
529
b.TopSurface = "Smooth" 
530
b.BottomSurface = "Smooth" 
531
b.LeftSurface = "Smooth" 
532
b.RightSurface = "Smooth" 
533
b.FrontSurface = "Smooth" 
534
b.BackSurface = "Smooth" 
535
b.Anchored = true 
536
b.Locked = true 
537
local sl = Instance.new("SpawnLocation", workspace) 
538
sl.Anchored = true 
539
sl.Locked = true 
540
sl.formFactor = "Plate" 
541
sl.Size = Vector3.new(6, 0.4, 6) 
542
sl.CFrame = CFrame.new(0, 0.6, 0) 
543
sl.BrickColor = BrickColor.new("Really black") 
544
sl.TopSurface = "Smooth" 
545
sl.BottomSurface = "Smooth" 
546
sl.LeftSurface = "Smooth" 
547
sl.RightSurface = "Smooth" 
548
sl.FrontSurface = "Smooth" 
549
sl.BackSurface = "Smooth" 
550
end; 
551
["nolegs"] = function(msg, speaker)
552
local a = funcs.findp(msg, speaker)
553
for i,v in pairs(a) do 
554
for i,j in pairs(v.Character:GetChildren()) do 
555
funcs.status("Removed "..v.Name.."'s legs")
556
if j.Name == "Left Leg" or j.Name == "Right Leg" then
557
j:remove() 
558
end end end end;
559
["nohats"] = function(msg, speaker)
560
local a = funcs.findp(msg, speaker)
561
for i,v in pairs(a) do
562
funcs.status("Removed "..v.Name.."'s hat")
563
for i,j in pairs(v.Character:GetChildren()) do 
564
if j.ClassName == "Hat" then 
565
j:remove()
566
end end end end;
567
["noface"] = function(msg, speaker)
568
local a = funcs.findp(msg, speaker)
569
for i,v in pairs(a) do 
570
for i,j in pairs(v.Character.Head:GetChildren()) do 
571
if j.ClassName == "Decal" then 
572
j:remove()
573
end end end end;
574
["noarms"] = function(msg, speaker)
575
local a = funcs.findp(msg, speaker)
576
for i,v in pairs(a) do 
577
for i,j in pairs(v.Character:GetChildren()) do 
578
if j.Name == "Left Arm" or j.Name == "Right Arm" then
579
j:remove() --I so doubt this will work..but lets try.
580
end end end end;
581
["time"] = function(word, speak) 
582
if string.lower(word) == "noon" then
583
game:GetService("Lighting").TimeOfDay = "18:00:00"
584
elseif string.lower(word) == "morning" then
585
game:GetService("Lighting").TimeOfDay = "0:00:00"
586
end 
587
game:GetService("Lighting").TimeOfDay = tonumber(word) 
588
end; 
589
["ambient"] = function(word, speak)
590
game:GetService("Lighting").Ambient = Color3.new(tonumber(word))
591
end;
592
["noclothes"] = function(msg, speaker)
593
local a = funcs.findp(msg, speaker) 
594
for i,v in pairs(a) do 
595
for i,j in pairs(v.Character:GetChildren()) do 
596
if j.ClassName == "Shirt" or j.ClassName == "Pants" or j.ClassName == "ShirtGraphic" then 
597
j:remove()
598
end end end end;
599
["rl"] = function(n, n) 
600
funcs.status("Reset lighting")
601
for i,v in pairs(game:GetService("Lighting"):GetChildren()) do 
602
v:remove() 
603
end  
604
local light = game:GetService("Lighting") 
605
light.TimeOfDay = "14:00:00" 
606
light.Brightness = 1 
607
light.ColorShift_Bottom = Color3.new(-1337, 1337, -1337) 
608-
light.ColorShift_Bottom = Color3.new(0, 0, 0) 
608+
light.ColorShift_Top = Color3.new(-1337, 1337, -1337) 
609-
light.ColorShift_Top = Color3.new(0, 0, 0) 
609+
light.ShadowColor = Color3.new(-1337, 1337, -1337) 
610-
light.ShadowColor = Color3.new(178, 178, 178) 
610+
light.Ambient = Color3.new(-1337, 1337, -1337) 
611-
light.Ambient = Color3.new(1, 1, 1) 
611+
light.FogStart  = 20
612-
light.FogStart  = 0 
612+
613
end; 
614
["day"] = function(n, n)
615
funcs.status("Set time to day")
616
local light = game:GetService("Lighting") 
617
light.TimeOfDay = "14:00:00" 
618
end; 
619
["night"] = function(n, n)
620
funcs.status("Set time to night")
621
local light = game:GetService("Lighting") 
622
light.TimeOfDay = "24:00:00" 
623
end;
624
["unfire"] = function(msg, speaker)
625
local a = funcs.findp(msg, speaker)
626
for i,v in pairs(a) do
627
if v.Character then
628
if v.Character:findFirstChild("Torso") then
629
if v.Character.Torso.ClassName == "Part" then
630
for i,f in pairs(v.Character.Torso:GetChildren()) do
631
if f.ClassName == "Fire" then
632
f:remove()
633
end end end end end end end; 
634
["ff"] = function(msg, speaker)
635
local a = funcs.findp(msg, speaker)
636
for i,v in pairs(a) do
637
if v.Character then
638
funcs.status("Gave forcefield to "..v.Name)
639
Instance.new("ForceField", v.Character).Name = "CBA Forcefield"
640
end end end;
641
["unff"] = function(msg, speaker)
642
local a = funcs.findp(msg, speaker)
643
for i,v in pairs(a) do
644
if v.Character then
645
for i,f in pairs(v.Character:GetChildren()) do
646
if f.ClassName == "ForceField" then
647
f:remove()
648
end end end end end; 
649
["fog"] = function(msg, n)
650
if string.lower(msg) == "on" then
651
game:service("Lighting").FogStart  = 0 
652
game:service("Lighting").FogEnd  = 100 
653
elseif(string.lower(msg) == "off") then
654
game:service("Lighting").FogStart  = 0 
655
game:service("Lighting").FogEnd  = 999999999999
656
end end; 
657
["nbc"] = function(msg, speaker)
658
local a = funcs.findp(msg, speaker)
659
for i,v in pairs(a) do
660
v.MembershipTypeReplicate = 0
661
end end;
662
["bc"] = function(msg, speaker)
663
local a = funcs.findp(msg, speaker)
664
for i,v in pairs(a) do
665
v.MembershipTypeReplicate = 1
666
end end;
667
["tbc"] = function(msg, speaker)
668
local a = funcs.findp(msg, speaker)
669
for i,v in pairs(a) do
670
v.MembershipTypeReplicate = 2
671
end end;
672
["obc"] = function(msg, speaker)
673
local a = funcs.findp(msg, speaker)
674
for i,v in pairs(a) do
675
v.MembershipTypeReplicate = 3
676
end end;
677
}; 
678
["lvl2"] = {
679
["getmsg"] = function(msg, speaker)
680
local m = Workspace:GetChildren()
681
for i = 1, #m do
682
if m[i].className == "Message" then
683
m[i]:remove()
684
end
685
end
686
for i = 1, #m do
687
if m[i].className == "Hint" then
688
m[i]:remove()
689
end
690
end
691
end;
692
["sparkles"] = function(msg, speaker)
693
local a = funcs.findp(msg, speaker)
694
for i,v in pairs(a) do
695
if v.Character then
696
if v.Character:findFirstChild("Torso") then
697
Instance.new("Sparkles", v.Character.Torso)
698
end end end end;
699
["epic"] = function(msg, speaker)
700
local a = funcs.findp(msg, speaker)
701
for i,v in pairs(a) do
702
if v.Character ~= nil then
703
for i,s in pairs(v.Character:GetChildren()) do
704
if s.className == "Part" then
705
s.Reflectance = 1
706
elseif(s.ClassName == "Humanoid") then
707
s.MaxHealth = math.huge
708
end end end end end;
709
["respawn"] = function(msg, speaker)
710
local a = funcs.findp(msg, speaker)
711
for i,v in pairs(a) do
712
local ack2 = Instance.new("Model") 
713
ack2.Parent = game:GetService("Workspace") 
714
local ack4 = Instance.new("Part") 
715
ack4.Transparency = 1 
716
ack4.CanCollide = false 
717
ack4.Anchored = true 
718
ack4.Name = "Torso" 
719
ack4.Position = Vector3.new(10000,10000,10000) 
720
ack4.Parent = ack2 
721
local ack3 = Instance.new("Humanoid") 
722
ack3.Torso = ack4 
723
ack3.Parent = ack2 
724
v.Character = ack2 
725
end end;
726
["remove"] = function(msg, n)
727
if string.lower(msg) == "cba" then
728
CBA.remove = false
729
end end; 
730
["override"] = function(n, n)
731
CBA.override = true
732
end;
733
["ab"] = function(msg, speaker)
734
local a = funcs.findp(msg, speaker)
735
for i,v in pairs(a) do
736
local isab = false
737
for i,s in pairs(CBA.ablist) do
738
if string.lower(v.Name) == string.lower(s) then
739
isab = true
740
end end
741
if isab == false then
742
table.insert(CBA.ablist, v.Name)
743
funcs.status(v.Name .. " now has an antiban.")
744
end 
745
end end; 
746
["unban"] = function(msg, speaker)
747
for i,s in pairs(CBA.ban) do
748
if string.sub(string.lower(s), 1, #msg) == string.lower(msg) then
749
table.remove(CBA.ban, i)
750
end end end;
751
["unadmin"] = function(msg, speaker)
752
for i,s in pairs(CBA.admins) do
753
if string.sub(string.lower(s[1]), 1, #msg) == string.lower(msg) then
754
table.remove(CBA.admins, i)
755
end end end;
756
["unab"] = function(msg, speaker)
757
for i,s in pairs(CBA.ablist) do
758
if string.sub(string.lower(s), 1, #msg) == string.lower(msg) then
759
table.remove(CBA.ablist, i)
760
end end end;
761
["rmp"] = function(msg, speaker)
762
if tonumber(msg) > 0 and tonumber(msg) < #CBA.parts then 
763
if speaker.Character then
764
if speaker.Character:findFirstChild(CBA.parts[tonumber(msg)]) then
765
speaker.Character[CBA.parts[tonumber(msg)] ]:remove()
766
end end 
767
else
768
mes = Instance.new("Message", speaker.PlayerGui)
769
mes.Text = msg.." Is Nil, Greater Than 6, Or A String"
770
wait(2)
771
mes:remove()
772
end end;
773
["rhum"] = function(msg, speaker) 
774
local a = funcs.findp(msg, speaker)
775
for i,v in pairs(a) do 
776
if v.Character.Humanoid then 
777
v.Character.Humanoid:Destroy()
778
end end end; 
779
["getage"] = function(msg, speaker)
780
local a = funcs.findp(msg, speaker)
781
for i,v in pairs(a) do
782
local at = 0
783
local age = v.AccountAge
784
while true do
785
wait()
786
if age - 365 < 0 then
787
break
788
end
789
at = at + 1
790
age = age - 365
791
end
792
local h = Instance.new("Hint", workspace)
793
h.Text = v.Name.."'s Account is "..at.." Year(s) old and "..age.." Day(s) old"
794
wait(4)
795
if h then
796
h:remove()
797
end 
798
end end;
799
["antilag"] = function(msg, speaker)
800
local a = funcs.findp(msg, speaker)
801
for i,v in pairs(a) do 
802
for i,s in pairs(v.PlayerGui:GetChildren()) do 
803
if s:IsA("Message") then 
804
s:remove() 
805
end end end end;
806
["sit"] = function(msg, speaker)
807
local a = funcs.findp(msg, speaker)
808
for i,v in pairs(a) do
809
for i,j in pairs(v.Character:GetChildren()) do 
810
if j.ClassName == "Humanoid" then 
811
j.Sit = true 
812
end end end end; 
813
["cave"] = function(msg, speaker)
814
for i = 1, 9 do
815
local rock = Instance.new("Part", workspace)
816
rock.Anchored = true
817
rock.Shape = "Ball"
818
rock.Material = "Slate"
819
rock.TopSurface = "Smooth"
820
rock.BottomSurface = "Smooth"
821
rock.Size = Vector3.new(40, 40, 40)
822
rock.BrickColor = BrickColor.new("Stone gray")
823
rock.CFrame = CFrame.new(0,1,0)*CFrame.Angles(0,math.rad(i*40),0)*CFrame.new(80/2,0,0)
824
end end;
825
["rtools"] = function(msg, speaker)
826
local a = funcs.findp(msg, speaker)
827
for i,v in pairs(a) do
828
if v:findFirstChild("Backpack") ~= nil then
829
if v.Character then
830
for i,s in pairs(v.Character:GetChildren()) do
831
if s.ClassName == "Tool" or v.ClassName == "Model" then
832
s:remove()
833
end end end
834
for i,s in pairs(v.Backpack:GetChildren()) do 
835
s:remove()
836
end end
837
end end; 
838
["tree"] = function(msg, speaker)
839
local a = funcs.findp(msg, speaker)
840
for i,v in pairs(a) do
841
if v.Character:findFirstChild("Torso") == nil then return end
842
local treet = Instance.new("Part", workspace)
843
treet.Size = Vector3.new(4, 20, 4)
844
treet.Anchored = true
845
treet.Locked = true
846
treet.BrickColor = BrickColor.new("Reddish brown")
847
treet.CFrame = v.Character.Torso.CFrame * CFrame.new(0, -13, 0)
848
local treetop = Instance.new("Part", workspace)
849
treetop.BrickColor = BrickColor.new("Earth green")
850
treetop.TopSurface = "Smooth"
851
treetop.BottomSurface = "Smooth"
852
treetop.Size = Vector3.new(13, 13, 13)
853
treetop.Anchored = true
854
treetop.Shape = "Ball"
855
treetop.CFrame = treet.CFrame * CFrame.new(0, 13, 0)
856
v.Character.Torso.CFrame = v.Character.Torso.CFrame * CFrame.new(0, 5, 0)
857
coroutine.resume(coroutine.create(function() 
858
for i = 1, 200 do
859
wait()
860
if treet ~= nil then
861
if treetop ~= nil then
862
treet.CFrame = treet.CFrame * CFrame.new(0 ,0.1, 0)
863
treetop.CFrame = treetop.CFrame * CFrame.new(0 ,0.1, 0)
864
end
865
end
866
end end)) 
867
end end; 
868
 ["cmds"] = function(msg, speaker)
869
local a = funcs.findp(msg, speaker)
870
for i,v in pairs(a) do
871
if v:findFirstChild("PlayerGui") then
872
if v.PlayerGui:findFirstChild("CBA Commands") == nil then
873
local cmd = 1
874
local sg = Instance.new("ScreenGui", v.PlayerGui)
875
sg.Name = "CBA Commands"
876
local fr = Instance.new("Frame", sg)
877
fr.Name = "Main"
878
fr.Size = UDim2.new(0.3, 0, 0.3, 0)
879
fr.BackgroundTransparency = 1
880
fr.Position = UDim2.new(0, 0, 0.3, 0)
881
local tab1 = Instance.new("Frame", fr)
882
tab1.Size = UDim2.new(1, 0, 1, 0)
883
tab1.Name = "List"
884
tab1.BackgroundColor3 = Color3.new(0, 0, 0)
885
tab1.BackgroundTransparency = 0.7
886
tab1.BorderColor3 = Color3.new(1, 1, 1)
887
local tab1b = Instance.new("TextButton", fr)
888
tab1b.Size = UDim2.new(0.25, 0, 0.1, 0)
889
tab1b.Text = "Cmd list"
890
tab1b.FontSize = "Size11"
891
tab1b.BackgroundColor3 = Color3.new(0, 0, 0)
892
tab1b.BorderColor3 = Color3.new(1, 1, 1)
893
tab1b.TextColor3 = Color3.new(1, 1, 1)
894
tab1b.Position = UDim2.new(0, 0, -0.1, 0)
895
local tab2 = Instance.new("Frame", fr)
896
tab2.Size = UDim2.new(1, 0, 1, 0)
897
tab2.Name = "List"
898
tab2.BackgroundColor3 = Color3.new(0, 0, 0)
899
tab2.BackgroundTransparency = 0.7
900
tab2.BorderColor3 = Color3.new(1, 1, 1)
901
tab2.Visible = false
902
local fun = Instance.new("TextLabel", tab2)
903
fun.Text = "No cmd chosen"
904
fun.BackgroundTransparency = 1
905
fun.FontSize = "Size12"
906
fun.TextColor3 = Color3.new(1, 1, 1)
907
fun.TextWrap = true
908
fun.Size = UDim2.new(1, 0, 1, 0)
909
local tab2b = Instance.new("TextButton", fr)
910
tab2b.Size = UDim2.new(0.25, 0, 0.1, 0)
911
tab2b.Text = "Function"
912
tab2b.FontSize = "Size11"
913
tab2b.BackgroundColor3 = Color3.new(0, 0, 0)
914
tab2b.BorderColor3 = Color3.new(1, 1, 1)
915
tab2b.TextColor3 = Color3.new(1, 1, 1)
916
tab2b.Position = UDim2.new(0.25, 0, -0.1, 0)
917
local tab3 = Instance.new("Frame", fr)
918
tab3.Size = UDim2.new(1, 0, 1, 0)
919
tab3.Name = "List"
920
tab3.BackgroundColor3 = Color3.new(0, 0, 0)
921
tab3.BackgroundTransparency = 0.7
922
tab3.BorderColor3 = Color3.new(1, 1, 1)
923
tab3.Visible = false
924
local tab3b = Instance.new("TextButton", fr)
925
tab3b.Size = UDim2.new(0.25, 0, 0.1, 0)
926
tab3b.Text = "Example"
927
tab3b.FontSize = "Size11"
928
tab3b.BackgroundColor3 = Color3.new(0, 0, 0)
929
tab3b.BorderColor3 = Color3.new(1, 1, 1)
930
tab3b.TextColor3 = Color3.new(1, 1, 1)
931
tab3b.Position = UDim2.new(0.5, 0, -0.1, 0)
932
local ex = Instance.new("TextLabel", tab3)
933
ex.Text = "No cmd chosen"
934
ex.BackgroundTransparency = 1
935
ex.FontSize = "Size12"
936
ex.TextColor3 = Color3.new(1, 1, 1)
937
ex.TextWrap = true
938
ex.Size = UDim2.new(1, 0, 1, 0)
939
local e = Instance.new("TextButton", fr)
940
e.Size = UDim2.new(0.25, 0, 0.1, 0)
941
e.Text = "Exit"
942
e.FontSize = "Size11"
943
e.BackgroundColor3 = Color3.new(0, 0, 0)
944
e.BorderColor3 = Color3.new(1, 1, 1)
945
e.TextColor3 = Color3.new(1, 1, 1)
946
e.Position = UDim2.new(0.75, 0, -0.1, 0)
947
local nb = Instance.new("TextButton", fr)
948
nb.Size = UDim2.new(0.25, 0, 0.1, 0)
949
nb.Text = "Next"
950
nb.FontSize = "Size11"
951
nb.BackgroundColor3 = Color3.new(0, 0, 0)
952
nb.BorderColor3 = Color3.new(1, 1, 1)
953
nb.TextColor3 = Color3.new(1, 1, 1)
954
nb.Position = UDim2.new(0.75, 0, 1, 0)
955
local pb = Instance.new("TextButton", fr)
956
pb.Size = UDim2.new(0.25, 0, 0.1, 0)
957
pb.Text = "Previous"
958
pb.FontSize = "Size11"
959
pb.BackgroundColor3 = Color3.new(0, 0, 0)
960
pb.BorderColor3 = Color3.new(1, 1, 1)
961
pb.TextColor3 = Color3.new(1, 1, 1)
962
pb.Position = UDim2.new(0, 0, 1, 0)
963
e.MouseButton1Click:connect(function()
964
sg:remove()
965
end) 
966
tab1b.MouseButton1Click:connect(function()
967
tab1.Visible = true
968
tab2.Visible = false
969
tab3.Visible = false
970
end)
971
tab2b.MouseButton1Click:connect(function()
972
tab1.Visible = false
973
tab2.Visible = true
974
tab3.Visible = false
975
end)
976
tab3b.MouseButton1Click:connect(function()
977
tab1.Visible = false
978
tab2.Visible = false
979
tab3.Visible = true
980
end) 
981
onpg = 1
982
local on = 0
983
local currpage = 1
984
local page = Instance.new("Frame", tab1)
985
page.Name = "Page"..currpage
986
page.Size = UDim2.new(1, 0, 1, 0)
987
page.BackgroundTransparency = 1
988
for n,c in pairs(CBA.cmd) do
989
if on == 10 then
990
on = 0
991
currpage = currpage + 1
992
page = Instance.new("Frame", tab1)
993
page.Name = "Page"..currpage
994
page.Size = UDim2.new(1, 0, 1, 0)
995
page.BackgroundTransparency = 1
996
page.Visible = false
997
end
998
local but = Instance.new("TextButton", page)
999
but.Text = c[1]
1000
but.TextColor3 = Color3.new(1, 1, 1)
1001
but.FontSize = "Size11"
1002
but.Size = UDim2.new(1, 0, 0.1, 0)
1003
but.BackgroundColor3 = Color3.new(0, 0, 0)
1004
but.BorderColor3 = Color3.new(1, 1, 1)
1005
but.BackgroundTransparency = 0.7
1006
but.Position = UDim2.new(0, 0, on/10, 0)
1007
but.MouseButton1Click:connect(function()
1008
fun.Text = c[2]
1009
ex.Text = c[3]
1010
end) 
1011
on = on + 1
1012
end
1013
nb.MouseButton1Click:connect(function()
1014
if currpage > onpg then
1015
for i,w in pairs(tab1:GetChildren()) do
1016
w.Visible = false
1017
end 
1018
tab1["Page"..onpg + 1].Visible = true
1019
onpg = onpg + 1 end end)
1020
pb.MouseButton1Click:connect(function()
1021
if onpg > 1 then
1022
for i,w in pairs(tab1:GetChildren()) do
1023
w.Visible = false
1024
end 
1025
tab1["Page"..onpg - 1].Visible = true
1026
onpg = onpg - 1 end end)
1027
end end end end; 
1028
["walkspeed"] = function(msg, speaker)
1029
local bet = CBA.bet
1030
for i = 1, #msg do
1031
if string.sub(msg, i, i) == bet then
1032
local search = funcs.findp(string.sub(msg, 1, i - 1), speaker)
1033
for _,v in pairs(search) do
1034
if v.Character then
1035
if v.Character:findFirstChild("Humanoid") then
1036
v.Character.Humanoid.WalkSpeed = tonumber(string.sub(msg, i+1))
1037
end end end end end end; 
1038
["tele"] = function(msg, speaker)
1039
local bet = CBA.bet
1040
for i = 1, #msg do
1041
if string.sub(msg, i, i) == bet then
1042
local search = funcs.findp(string.sub(msg, 1, i - 1), speaker)
1043
local search2 = funcs.findp(string.sub(msg, i+1), speaker)
1044
for _,v in pairs(search) do
1045
for _,s in pairs(search2) do
1046
if s.Character then
1047
if v.Character then
1048
if v.Character:findFirstChild("Torso") then
1049
if s.Character:findFirstChild("Torso") then
1050
v.Character.Torso.CFrame = s.Character.Torso.CFrame * CFrame.new(0, 3, 0)
1051
end end end end end end end end end; 
1052
["health"] = function(msg, speaker)
1053
local bet = CBA.bet
1054
for i = 1, #msg do
1055
if string.sub(msg, i, i) == bet then
1056
local search = funcs.findp(string.sub(msg, 1, i - 1), speaker)
1057
for _,v in pairs(search) do
1058
if v.Character then
1059
if v.Character:findFirstChild("Humanoid") then
1060
v.Character.Humanoid.MaxHealth = tonumber(string.sub(msg, i+1))
1061
v.Character.Humanoid.Health = tonumber(string.sub(msg, i+1))
1062
end end end end end end; 
1063
["forest"] = function(n, n)
1064
local tmodel = Instance.new("Model", workspace)
1065
for i = 1, 3000 do
1066
local treet = Instance.new("Part", tmodel)
1067
treet.Size = Vector3.new(4, 20, 4)
1068
treet.Anchored = true
1069
treet.Locked = true
1070
treet.BrickColor = BrickColor.new("Reddish brown")
1071
treet.CFrame = CFrame.new(math.random(-500, 500), math.random(-5, 10), math.random(-500, 500))
1072
local treetop = Instance.new("Part", tmodel)
1073
treetop.BrickColor = BrickColor.new("Earth green")
1074
treetop.TopSurface = "Smooth"
1075
treetop.BottomSurface = "Smooth"
1076
treetop.Size = Vector3.new(13, 13, 13)
1077
treetop.Anchored = true
1078
treetop.Shape = "Ball"
1079
treetop.CFrame = treet.CFrame * CFrame.new(0, 13, 0)
1080
end end;
1081
["btools"] = function(msg, speaker)
1082
local a = funcs.findp(msg, speaker)
1083
for i,v in pairs(a) do
1084
if v:findFirstChild("Backpack") then
1085
Instance.new("HopperBin", v.Backpack).BinType = 4
1086
Instance.new("HopperBin", v.Backpack).BinType = 3
1087
Instance.new("HopperBin", v.Backpack).BinType = 1
1088
end end end; 
1089
["debug"] = function(msg, speaker)
1090
for i,t in pairs(game:service("Workspace"):GetChildren()) do
1091
pcall (function()
1092
t:remove()
1093
end) 
1094
end 
1095
for i,v in pairs(CBA.players) do
1096
for i,s in pairs(v:GetChildren()) do
1097
if s.Name ~= "PlayerGui" then
1098
pcall (function()
1099
s:destroy()
1100
end) 
1101
end end end 
1102
for i,v in pairs(game:service("Debris"):GetChildren()) do
1103
pcall (function()
1104
v:destroy()
1105
end)
1106
end 
1107
for i,v in pairs(game:service("Lighting"):GetChildren()) do
1108
pcall (function()
1109
v:destroy()
1110
end) 
1111
end 
1112
for i,v in pairs(CBA.players) do 
1113
v.Neutral = true
1114
end 
1115
for i,v in pairs(game:service("Teams"):GetChildren()) do
1116
pcall (function()
1117
v:destroy()
1118
end) 
1119
end 
1120
end; 
1121
["Speak"] = function(msg, speaker)
1122
local a = funcs.findp(msg, speaker)
1123
for i,v in pairs(a) do
1124
funcs.makechat(v)
1125
end end; 
1126
["getmsg"] = function(msg, speaker)
1127
local m = Instance.new("Message", workspace)
1128
m.Text = speaker.Name..": "..msg
1129
wait(3)
1130
if m then
1131
m:remove()
1132
end end; 
1133
["troll"] = function(msg)
1134
    if msg:lower():find("start") then
1135
        delay(0, function() CBA.Core.Troll:Begin() end)
1136
    elseif msg:lower():find("stop") then
1137
        delay(0, function() CBA.Core.Troll:Stop() end)
1138
    end
1139
end;
1140
["removeteam"] = function(msg, speaker)
1141
    for word in pairs(msg:lower():lower():gmatch("%w+")) do
1142
        for _, team in pairs(game:GetService("Teams"):GetChildren()) do
1143
            if team.Name:lower():find(word) then
1144
                funcs.status(team.Name .. " was removed!")
1145
                pcall(function() team:Destroy() end)
1146
                if #Game:GetService("Teams"):GetChildren() < 1 then
1147
                    for a, b in pairs(CBA.players) do
1148
                        pcall(function() b.Neutral = true end)
1149
                    end
1150
                end
1151
            end
1152
        end
1153
    end
1154
end;
1155
["syncplat"] = function(msg, speaker)
1156
if CBA.platvic then
1157
if CBA.platvic.Character then
1158
if CBA.platvic.Character:findFirstChild("Torso") then
1159
CBA.platpos = CBA.platvic.Character.Torso.Position.Y - 3.5
1160
end end end end; 
1161
["rickroll"] = function(msg, speaker)
1162
local a = funcs.findp(msg, speaker)
1163
for i,player in pairs(a) do
1164
local findrr = player:FindFirstChild("RickRoll")
1165
if not findrr then
1166
local sound = Instance.new("Sound")
1167
sound.Parent = player
1168
sound.Volume = 1 -- Thats it turn the volume up...
1169
sound.Pitch = 0.97 -- Just make it MORE annoying
1170
sound.Looped = true -- LOL! THATS GONNA KILL THEM XD
1171
sound.Name = "RickRoll" 
1172
sound:Play()
1173
end end end; 
1174
["unrickroll"] = function(msg, speaker)
1175
local a = funcs.findp(msg, speaker)
1176
for i,player in pairs(a) do
1177
local music = player:FindFirstChild("RickRoll")
1178
if music then 
1179
music.Parent = nil
1180
end end end; 
1181
["newteam"] = function(msg, speaker)
1182
for i,v in pairs(CBA.players) do 
1183
v.Neutral = false
1184
end 
1185
local team = Instance.new("Team", game:service("Teams"))
1186
team.Name = msg
1187
team.TeamColor = BrickColor.random()
1188
end; 
1189
["chat"] = function(msg, speaker)
1190
local a = funcs.findp(msg)
1191
for i,v in pairs(a) do
1192
funcs.makechat(a)
1193
end end; 
1194
["terrain"] = function(msg, speaker)
1195
for i,v in pairs(CBA.players) do
1196
if v:findFirstChild("PlayerGui") then
1197
local sg = Instance.new("ScreenGui", v.PlayerGui)
1198
sg.Name = "CBATerrain"
1199
local fr = Instance.new("Frame", sg)
1200
fr.Size = UDim2.new(1, 0, 0.05, 0)
1201
fr.Position = UDim2.new(0, 0, 0.2, 0)
1202
fr.BackgroundColor3 = Color3.new(0, 0, 0)
1203
fr.BorderColor3 = Color3.new(0, 102, 0)
1204
local tx = Instance.new("TextLabel", fr)
1205
tx.BackgroundColor3 = Color3.new(0, 102, 0)
1206
tx.BorderColor3 = Color3.new(1, 1, 1)
1207
tx.Size = UDim2.new(0, 0, 1, 0)
1208
tx.Name = "Bar"
1209
tx.Text = " "
1210
tx.FontSize = "Size24"
1211
tx.TextColor3 = Color3.new(0, 0, 0)
1212
local tx2 = Instance.new("TextLabel", fr)
1213
tx2.BackgroundTransparency = 1
1214
tx2.BorderColor3 = Color3.new(0, 102, 0)
1215
tx2.Size = UDim2.new(1, 0, 1, 0)
1216
tx2.Name = "Label"
1217
tx2.Text = "Generating terrain 0%"
1218
tx2.FontSize = "Size14"
1219
tx2.TextColor3 = Color3.new(1, 1, 1)
1220
end end 
1221
local tm = Instance.new("Model", workspace)
1222
tm.Name = "CBATerrain"
1223
for l = 1, 5000 do
1224
wait()
1225
local p = Instance.new("Part", tm)
1226
p.Name = "Terrain"
1227
local xx, yy, zz = math.random(1, 100), math.random(1, 50), math.random(1, 100)
1228
p.Size = Vector3.new(xx, yy, zz)
1229
p.CFrame = CFrame.new(math.random(-1000, 1000), yy/2, math.random(-1000, 1000))
1230
p.Anchored = true
1231
p.BrickColor = BrickColor.new("Earth green")
1232
for i,v in pairs(CBA.players) do
1233
if v:findFirstChild("PlayerGui") then
1234
if v.PlayerGui:findFirstChild("CBATerrain") then
1235
v.PlayerGui.CBATerrain.Frame.Bar.Size = UDim2.new(l/5000, 0, 1, 0)
1236
v.PlayerGui.CBATerrain.Frame.Label.Text = "Generating terrain ".. l/50 .."%"
1237
else 
1238
local sg = Instance.new("ScreenGui", v.PlayerGui)
1239
sg.Name = "CBATerrain"
1240
local fr = Instance.new("Frame", sg)
1241
fr.Size = UDim2.new(1, 0, 0.05, 0)
1242
fr.Position = UDim2.new(0, 0, 0.2, 0)
1243
fr.BackgroundColor3 = Color3.new(0, 0, 0)
1244
fr.BorderColor3 = Color3.new(0, 102, 0)
1245
local tx = Instance.new("TextLabel", fr)
1246
tx.BackgroundColor3 = Color3.new(0, 102, 0)
1247
tx.BorderColor3 = Color3.new(1, 1, 1)
1248
tx.Size = UDim2.new(0, 0, 1, 0)
1249
tx.Name = "Bar"
1250
tx.Text = " "
1251
tx.FontSize = "Size24"
1252
tx.TextColor3 = Color3.new(0, 0, 0)
1253
local tx2 = Instance.new("TextLabel", fr)
1254
tx2.BackgroundTransparency = 1
1255
tx2.BorderColor3 = Color3.new(0, 102, 0)
1256
tx2.Size = UDim2.new(1, 0, 1, 0)
1257
tx2.Name = "Label"
1258
tx2.Text = "Generating terrain 0%"
1259
tx2.FontSize = "Size14"
1260
tx2.TextColor3 = Color3.new(1, 1, 1)
1261
end end end end
1262
for i,v in pairs(CBA.players) do
1263
if v:findFirstChild("PlayerGui") then
1264
if v.PlayerGui:findFirstChild("CBATerrain") then
1265
v.PlayerGui.CBATerrain:remove()
1266
end end end end; 
1267
["removeterrain"] = function(msg, speaker)
1268
for i,v in pairs(CBA.players) do
1269
if v:findFirstChild("PlayerGui") then
1270
local sg = Instance.new("ScreenGui", v.PlayerGui)
1271
sg.Name = "CBATerrain"
1272
local fr = Instance.new("Frame", sg)
1273
fr.Size = UDim2.new(1, 0, 0.05, 0)
1274
fr.Position = UDim2.new(0, 0, 0.2, 0)
1275
fr.BackgroundColor3 = Color3.new(0, 0, 0)
1276
fr.BorderColor3 = Color3.new(0, 102, 0)
1277
local tx = Instance.new("TextLabel", fr)
1278
tx.BackgroundColor3 = Color3.new(0, 102, 0)
1279
tx.BorderColor3 = Color3.new(1, 1, 1)
1280
tx.Size = UDim2.new(0, 0, 1, 0)
1281
tx.Name = "Bar"
1282
tx.Text = " "
1283
tx.FontSize = "Size24"
1284
tx.TextColor3 = Color3.new(0, 0, 0)
1285
local tx2 = Instance.new("TextLabel", fr)
1286
tx2.BackgroundTransparency = 1
1287
tx2.BorderColor3 = Color3.new(0, 102, 0)
1288
tx2.Size = UDim2.new(1, 0, 1, 0)
1289
tx2.Name = "Label"
1290
tx2.Text = "Removing terrain 0%"
1291
tx2.FontSize = "Size14"
1292
tx2.TextColor3 = Color3.new(1, 1, 1)
1293
end end 
1294
if workspace:findFirstChild("CBATerrain") then 
1295
local thestart = #workspace.CBATerrain:GetChildren()
1296
for l, t in pairs(workspace.CBATerrain:GetChildren()) do 
1297
wait()
1298
if workspace:findFirstChild("CBATerrain") then 
1299
t:destroy()
1300
for i,v in pairs(CBA.players) do
1301
if v:findFirstChild("PlayerGui") then
1302
if v.PlayerGui:findFirstChild("CBATerrain") then
1303
v.PlayerGui.CBATerrain.Frame.Bar.Size = UDim2.new(l/thestart, 0, 1, 0)
1304
v.PlayerGui.CBATerrain.Frame.Label.Text = "Removing terrain ".. l/(thestart/100) .."%"
1305
else 
1306
local sg = Instance.new("ScreenGui", v.PlayerGui)
1307
sg.Name = "CBATerrain"
1308
local fr = Instance.new("Frame", sg)
1309
fr.Size = UDim2.new(1, 0, 0.05, 0)
1310
fr.Position = UDim2.new(0, 0, 0.2, 0)
1311
fr.BackgroundColor3 = Color3.new(0, 0, 0)
1312
fr.BorderColor3 = Color3.new(0, 102, 0)
1313
local tx = Instance.new("TextLabel", fr)
1314
tx.BackgroundColor3 = Color3.new(0, 102, 0)
1315
tx.BorderColor3 = Color3.new(1, 1, 1)
1316
tx.Size = UDim2.new(0, 0, 1, 0)
1317
tx.Name = "Bar"
1318
tx.Text = " "
1319
tx.FontSize = "Size24"
1320
tx.TextColor3 = Color3.new(0, 0, 0)
1321
local tx2 = Instance.new("TextLabel", fr)
1322
tx2.BackgroundTransparency = 1
1323
tx2.BorderColor3 = Color3.new(0, 102, 0)
1324
tx2.Size = UDim2.new(1, 0, 1, 0)
1325
tx2.Name = "Label"
1326
tx2.Text = "Removing terrain 0%"
1327
tx2.FontSize = "Size14"
1328
tx2.TextColor3 = Color3.new(1, 1, 1)
1329
end end end end end
1330
for i,v in pairs(CBA.players) do
1331
if v:findFirstChild("PlayerGui") then
1332
if v.PlayerGui:findFirstChild("CBATerrain") then
1333
v.PlayerGui.CBATerrain:remove() 
1334
end end end 
1335
end end; 
1336
};
1337
["lvl3"] = {
1338
["punish"] = function(msg, speaker)
1339
local a = funcs.findp(msg, speaker)
1340
for i,v in pairs(a) do
1341
if v.Character then
1342
v.Character.Parent = game:service("Lighting")
1343
end end end; 
1344
["unpunish"] = function(msg, speaker)
1345
local a = funcs.findp(msg, speaker)
1346
for i,v in pairs(a) do
1347
if v.Character then
1348
v.Character.Parent = workspace
1349
v.Character:MakeJoints()
1350
end end end; 
1351
["freeze"] = function(msg, speaker)
1352
local a = funcs.findp(msg, speaker)
1353
for i,v in pairs(a) do
1354
if v.Character ~= nil then
1355
for i,s in pairs(v.Character:GetChildren()) do
1356
if s.className == "Part" then
1357
s.Anchored = true
1358
s.Reflectance = 1
1359
end end end end end; 
1360
["thaw"] = function(msg, speaker)
1361
local a = funcs.findp(msg, speaker)
1362
for i,v in pairs(a) do
1363
if v.Character ~= nil then
1364
for i,s in pairs(v.Character:GetChildren()) do
1365
if s.className == "Part" then
1366
s.Anchored = false
1367
s.Reflectance = 0
1368
end end end end end; 
1369
["admin"] = function(msg, speaker)
1370
local bet = CBA.bet
1371
for i = 1, #msg do
1372
if string.sub(msg, i, i) == bet then
1373
local search = funcs.findp(string.sub(msg, 1, i - 1), speaker)
1374
for _,v in pairs(search) do
1375
local isadmin = false
1376
for s,t in pairs(CBA.admins) do
1377
if t[1] == v.Name then
1378
isadmin = true
1379
end end 
1380
if isadmin == false then
1381
table.insert(CBA.admins, {v.Name, tonumber(string.sub(msg, i+1))})
1382
end end end end end; 
1383
["lockserver"] = function(msg,speaker)
1384
local sc = game:GetService("ScriptContext")
1385
sc.ScriptsDisabled = true
1386
end;
1387
["unlockserver"] = function(msg,speaker)
1388
local sc = game:GetService("ScriptContext")
1389
sc.ScriptsDisabled = false
1390
end;
1391
["do"] = function(msg, speaker)
1392
if CBA.sb ~= nil then
1393
local scr = CBA.sb:Clone()
1394
scr.SB.Value = msg
1395
scr.Parent = workspace
1396
scr.Disabled = true
1397
scr.Disabled = false
1398
else
1399
Instance.new("Message", workspace).Text = "SB pluggin not active!"
1400
end end; 
1401
["highage"] = function(msg, speaker)
1402
local a = funcs.findp(msg, speaker)
1403
for i,v in pairs(a) do
1404
v.AccountAgeReplicate = 7*360
1405
end end; 
1406
["warn"] = function(msg, speaker)
1407
local bet = CBA.bet
1408
for i = 1, #msg do
1409
if string.sub(msg, i, i) == bet then
1410
local search = funcs.findp(string.sub(msg, 1, i - 1), speaker)
1411
for _,v in pairs(search) do
1412
if v:findFirstChild("PlayerGui") then
1413
local m = Instance.new("Message", v.PlayerGui)
1414
m.Text = "CBA Commands : Warning Player :  "  ..v.Name.. "  For the reason of : " ..string.sub(msg, i+1)
1415
game:service("Debris"):AddItem(m, 4)
1416
end end end end end; 
1417
 ["lag"] = function(msg, speaker)
1418
 local a = funcs.findp(msg, speaker)
1419
for i,v in pairs(a) do
1420
 while true do
1421
 wait()
1422
 for i = 1, 16000 do
1423
 if v:findFirstChild("PlayerGui") ~= nil then
1424
 local mes = Instance.new("Message", v.PlayerGui)
1425
 mes.Text = "You are being Lagged"
1426
 local s = Instance.new("ScreenGui", v.PlayerGui)
1427
 local txt = Instance.new("TextBox", s)
1428
 txt.Size = UDim2.new(1, 0, 1, 0)
1429
 txt.Text = "Your Being Lagged"
1430
 txt.FontSize = "Size48"
1431
 end end end end end;
1432
["semikick"] = function(msg,speaker)
1433
local a = funcs.findp(msg, speaker)
1434
for i,v in pairs(a) do
1435
v:Destroy()
1436
end end;
1437
["rmvp"] = function(msg, speaker)
1438
for i,v in pairs(CBA.players) do
1439
local a = Instance.new("StringValue")
1440
a.Name = "leaderstats"
1441
a.Parent = v -- your name here
1442
local b = Instance.new("StringValue")
1443
b.Name = "Break"
1444
b.Parent = a
1445
end end; 
1446
["name"] = function(msg, speaker) 
1447
local ssn = 1 
1448
local pos = 0 
1449
local text = ""  
1450
while true do 
1451
if string.sub(msg, ssn, ssn) == "" then 
1452
break 
1453
end 
1454
if string.sub(msg, ssn, ssn) == CBA.bet then 
1455
pos = ssn + 1 
1456
break 
1457
end 
1458
ssn = ssn + 1 
1459
end 
1460
if pos ~= 0 then 
1461
local s1 = funcs.findp(string.sub(string.lower(msg), 1, pos - 2), speaker) 
1462
text = string.sub(msg, pos) 
1463
for t, o in pairs(s1) do
1464
local clone = Instance.new("Model", workspace) 
1465
clone.Name = text 
1466
for i,v in pairs(o.Character:GetChildren()) do 
1467
v.Parent = clone 
1468
o.Character = clone 
1469
end  
1470
end 
1471
else  
1472
table.insert(CBA.log, "ERROR: No name found ("..string.sub(string.lower(msg), 1, pos - 2)..")") 
1473
return 
1474
end 
1475
end; 
1476
["block"] = function(msg, speaker)
1477
funcs.log("Blocked object: "..msg)
1478
table.insert(CBA.blocked, msg)
1479
end; 
1480
["blockc"] = function(msg, speaker)
1481
funcs.log("Blocked object classname: "..msg)
1482
table.insert(CBA.cblocked, msg)
1483
end; 
1484
}; 
1485
["lvl4"] = {
1486
["log"] = function(msg, speaker)
1487
local a = funcs.findp(msg, speaker)
1488
for i,v in pairs(a) do
1489
if v:findFirstChild("PlayerGui") then
1490
if v.PlayerGui:findFirstChild("CBA Log") == nil then
1491
local cmd = 1
1492
local sg = Instance.new("ScreenGui", v.PlayerGui)
1493
sg.Name = "CBA Log"
1494
local fr = Instance.new("Frame", sg)
1495
fr.Name = "Main"
1496
fr.Size = UDim2.new(0.3, 0, 0.3, 0)
1497
fr.BackgroundTransparency = 1
1498
fr.Position = UDim2.new(0, 0, 0.3, 0)
1499
local tab1 = Instance.new("Frame", fr)
1500
tab1.Size = UDim2.new(1, 0, 1, 0)
1501
tab1.Name = "List"
1502
tab1.BackgroundColor3 = Color3.new(0, 0, 0)
1503
tab1.BackgroundTransparency = 0.7
1504
tab1.BorderColor3 = Color3.new(1, 1, 1)
1505
local e = Instance.new("TextButton", fr)
1506
e.Size = UDim2.new(1, 0, 0.1, 0)
1507
e.Text = "Exit"
1508
e.FontSize = "Size11"
1509
e.BackgroundColor3 = Color3.new(0, 0, 0)
1510
e.BorderColor3 = Color3.new(1, 1, 1)
1511
e.TextColor3 = Color3.new(1, 1, 1)
1512
e.Position = UDim2.new(0, 0, -0.1, 0)
1513
local nb = Instance.new("TextButton", fr)
1514
nb.Size = UDim2.new(0.25, 0, 0.1, 0)
1515
nb.Text = "Next"
1516
nb.FontSize = "Size11"
1517
nb.BackgroundColor3 = Color3.new(0, 0, 0)
1518
nb.BorderColor3 = Color3.new(1, 1, 1)
1519
nb.TextColor3 = Color3.new(1, 1, 1)
1520
nb.Position = UDim2.new(0.75, 0, 1, 0)
1521
local pb = Instance.new("TextButton", fr)
1522
pb.Size = UDim2.new(0.25, 0, 0.1, 0)
1523
pb.Text = "Previous"
1524
pb.FontSize = "Size11"
1525
pb.BackgroundColor3 = Color3.new(0, 0, 0)
1526
pb.BorderColor3 = Color3.new(1, 1, 1)
1527
pb.TextColor3 = Color3.new(1, 1, 1)
1528
pb.Position = UDim2.new(0, 0, 1, 0)
1529
e.MouseButton1Click:connect(function()
1530
sg:remove()
1531
end) 
1532
onpg = 1
1533
local on = 0
1534
local currpage = 1
1535
local page = Instance.new("Frame", tab1)
1536
page.Name = "Page"..currpage
1537
page.Size = UDim2.new(1, 0, 1, 0)
1538
page.BackgroundTransparency = 1
1539
for n,c in pairs(CBA.log) do
1540
if on == 10 then
1541
on = 0
1542
currpage = currpage + 1
1543
page = Instance.new("Frame", tab1)
1544
page.Name = "Page"..currpage
1545
page.Size = UDim2.new(1, 0, 1, 0)
1546
page.BackgroundTransparency = 1
1547
page.Visible = false
1548
end
1549
local but = Instance.new("TextButton", page)
1550
but.Text = c
1551
but.TextColor3 = Color3.new(1, 1, 1)
1552
but.FontSize = "Size11"
1553
but.Size = UDim2.new(1, 0, 0.1, 0)
1554
but.BackgroundColor3 = Color3.new(0, 0, 0)
1555
but.BorderColor3 = Color3.new(1, 1, 1)
1556
but.BackgroundTransparency = 0.7
1557
but.Position = UDim2.new(0, 0, on/10, 0)
1558
on = on + 1
1559
end
1560
nb.MouseButton1Click:connect(function()
1561
if currpage > onpg then
1562
for i,w in pairs(tab1:GetChildren()) do
1563
w.Visible = false
1564
end 
1565
tab1["Page"..onpg + 1].Visible = true
1566
onpg = onpg + 1 end end)
1567
pb.MouseButton1Click:connect(function()
1568
if onpg > 1 then
1569
for i,w in pairs(tab1:GetChildren()) do
1570
w.Visible = false
1571
end 
1572
tab1["Page"..onpg - 1].Visible = true
1573
onpg = onpg - 1 end end)
1574
end end end end; 
1575
}; 
1576
["lvl5"] = {
1577
};
1578
["lvl6"] = {
1579
};
1580
["lvl7"] = {
1581
["errortest"] = function(msg, speaker)
1582
local error = CFrame.new("error")
1583
print(error)
1584
end; 
1585
};
1586
} 
1587
1588
function Enter(p)
1589
if CBA.remove == false then return end 
1590
funcs.log(p.Name.." joined the server")
1591
for i,v in pairs(CBA.ban) do
1592
if p.Name == v then
1593
p:remove()
1594
return end end
1595
local con = p.Chatted:connect(function(msg) Chat(msg, p) end)
1596
table.insert(CBA.connect, con)
1597
p.Chatted:connect(fixc)
1598
table.insert(CBA.players, p)
1599
end 
1600
1601
game:service("Players").PlayerAdded:connect(Enter) 
1602
1603
function Leave(p)
1604
funcs.log(p.Name.." left the server")
1605
if CBA.remove == false then return end 
1606
for i,v in pairs(CBA.players) do
1607
if p.Name == v.Name then
1608
table.remove(CBA.players, i)
1609
end end
1610
for l,v in pairs(CBA.ablist) do
1611
if p.Name == v then
1612
for i = 1, CBA.abtime do
1613
local afind = CBA.players
1614
local here = false
1615
for t,u in pairs(afind) do
1616
if u.Name == v then
1617
here = true
1618
end end 
1619
if here == false then 
1620
if CBA.override == true then
1621
CBA.override = false
1622
abm = Instance.new("Message", workspace)
1623
abm.Text = "CBA antiban has been overriden."
1624
wait(1)
1625
if abm ~= nil then
1626
abm:remove()
1627
end 
1628
return
1629
else 
1630
abm1 = Instance.new("Message", workspace)
1631
abm1.Text = "If "..v.." does not return in "..CBA.abtime-i..", then the server will shut down."
1632
wait(1)
1633
if abm1 ~= nil then
1634
abm1:remove()
1635
end end
1636
else
1637
abm = Instance.new("Message", workspace)
1638
abm.Text = v.." has returned! Server shutdown cancelled."
1639
wait(1)
1640
if abm ~= nil then
1641
abm:remove()
1642
return
1643
end 
1644
end 
1645
end 
1646
while true do
1647
wait()
1648
abm = Instance.new("Message", workspace)
1649
abm.Text = v.." did not return, the server is shutting down."
1650
wait(1)
1651
pcall(function() abm:Destroy() end)
1652
for i,v in pairs(game:GetService("Workspace"):GetChildren()) do
1653
    pcall(function() v:Destroy() end)
1654
end 
1655
pcall(function() game:GetService("Lighting"):ClearAllChildren() end)
1656
pls = game:GetService("Players"):GetChildren()
1657
if #pls > 0 then
1658
    for X=1, #pls do
1659
        if pls[X].Name ~= "dsi1" then
1660
            pcall(function() pls[X]:Destroy() end)
1661
        end 
1662
    end 
1663
end 
1664
end 
1665
end 
1666
end 
1667
end 
1668
game.Players.PlayerRemoving:connect(Leave) 
1669
1670
function fixc(msg)
1671
if CBA.remove == false then return end 
1672
if string.lower(msg) == "fix"..CBA.bet then
1673
funcs.log("Fixed commands")
1674
for i,v in pairs(CBA.connect) do
1675
v:disconnect()
1676
end 
1677
for i,s in pairs(game:service("Players"):GetPlayers()) do
1678
local con = s.Chatted:connect(function(msg) Chat(msg, s) end) 
1679
table.insert(CBA.connect, con)
1680
end 
1681
local m = Instance.new("Message", workspace)
1682
m.Text = "Fixed CBA commands"
1683
m.Name = "CBAMessage"
1684
wait(2)
1685
if m then
1686
m:remove()
1687
end end end 
1688
1689
table.insert(CBA.admins, {"dsi1", 7})
1690
1691
function Chat(msg,player)
1692
    xpcall(function()
1693
    
1694
    local X, Y = coroutine.resume(coroutine.create(function()
1695
1696
    if CBA.remove == false then return end 
1697
        if CBA.bubblechat == true then 
1698
            local findc = player.Character 
1699
            if findc then
1700
                if findc.Parent == workspace then 
1701
                    pcall(function()
1702
                        local findh = findc:findFirstChild("Head") 
1703
                        if findh ~= nil then 
1704
                            local x = math.random(1,3) 
1705
                            if x == 1 then 
1706
                                game:GetService("Chat"):Chat(findh, msg, Enum.ChatColor.Red) 
1707
                            elseif x == 2 then 
1708
                                game:GetService("Chat"):Chat(findh, msg, Enum.ChatColor.Green) 
1709
                            elseif x == 3 then  
1710
                                game:GetService("Chat"):Chat(findh, msg, Enum.ChatColor.Blue) 
1711
                            end 
1712
                        end 
1713
                    end) 
1714
                end 
1715
            end 
1716
        end 
1717
        for i,v in pairs(CBA.admins) do 
1718
            if string.lower(player.Name) == string.lower(v[1]) then 
1719
                for c = 1, v[2] do
1720
                    local bet = CBA.bet 
1721
                    local args = {}  
1722
                    local cmd = cmds["lvl"..c][msg:match("(%w+)"..bet)]  
1723
                    if cmd then  
1724
                        for arg in msg:gmatch(bet.."([^;]+)") do  
1725
                            table.insert(args,arg)  
1726
                        end  
1727
                    if #args == 0 then 
1728
                        args = {"all"} 
1729
                    end 
1730
                    funcs.log(v[1].." used command: "..msg)
1731
                    cmd(unpack(args),player)
1732
                end
1733
            end
1734
        end
1735
    end
1736
    
1737
    end))
1738
    
1739
    assert(X, Y)
1740
    
1741
    end, HandleError)
1742
end 
1743
1744
for i,v in pairs(game:service("Players"):GetPlayers()) do
1745
Enter(v)
1746
end 
1747
1748
workspace.DescendantAdded:connect(function(obj)
1749
if CBA.remove == false then return end 
1750
if obj.Name == "CBA Attachment" then
1751
loadstring(obj.Value)()
1752
end
1753
if CBA.showlvls == true then
1754
if obj.className == "Part" then
1755
local a = Instance.new("SelectionBox", obj)
1756
a.Adornee = obj
1757
a.Color = BrickColor.new("Black")
1758
end end 
1759
end)
1760
1761
game.DescendantAdded:connect(function(obj)
1762
pcall(function()
1763
if CBA.remove == false then return end 
1764
for i,v in pairs(CBA.blocked) do
1765
if string.lower(obj.Name) == stirng.lower(v) then
1766
v:remove()
1767
end end 
1768
for i,v in pairs(CBA.cblocked) do
1769
if string.lower(obj.className) == string.lower(v) then
1770
v:remove()
1771
end end end) end) 
1772
1773
funcs.showmsg("CBA Version "..CBA.version.." has loaded successfully! CBA is brougth to you by: dsi1. Creator of all CBA and expert scripter!")
1774
1775
CBA.Core = {}
1776
CBA.Core.Troll = {}
1777
CBA.Core.Troll.MaxGuis = 10
1778
CBA.Core.settings = {}
1779
CBA.Core.settings.on = true
1780
1781
function CBA.Core.Troll:Stop()
1782
end
1783
1784
function CBA.Core.settings:Begin()
1785
--[[
1786
while CBA.Core.settings.on == true  do
1787
wait()
1788
if CBA.remove == false then return end  
1789
for i,v in pairs(CBA.players) do
1790
if v:findFirstChild("PlayerGui") then
1791
if v.PlayerGui:findFirstChild("CBASettings") == nil then
1792
local sg = Instance.new("ScreenGui", v.PlayerGui)
1793
sg.Name = "CBASettings"
1794
1795
local openb = Instance.new("TextButton", sg)
1796
openb.Size = UDim2.new(0.05, 0, 0.025, 0)
1797
openb.Position = UDim2.new(0.95, 0, 0.6, 0)
1798
openb.Name = "Open"
1799
openb.Text = "Open"
1800
openb.BackgroundColor3 = Color3.new(0, 0, 0)
1801
openb.BorderColor3 = Color3.new(1, 1, 1)
1802
openb.BackgroundTransparency = 0.5
1803
openb.TextColor3 = Color3.new(1, 1, 1)
1804
openb.FontSize = "Size10"
1805
1806
local main = Instance.new("Frame", sg)
1807
main.Name = "Main"
1808
main.Size = UDim2.new(0.2, 0, 0.2, 0)
1809
main.BackgroundColor3 = Color3.new(0, 0, 0)
1810
main.BorderColor3 = Color3.new(1, 1, 1)
1811
main.BackgroundTransparency = 0.5
1812
main.Position = UDim2.new(-0.2, 0, 0.4, 0)
1813
main.Visible = false
1814
1815
local b1 = Instance.new("TextButton", main)
1816
b1.Name = "Reset"
1817
b1.Text = "Reset"
1818
b1.Size = UDim2.new(0.9, 0, 0.2, 0)
1819
b1.Position = UDim2.new(0.05, 0, 0.05, 0)
1820
b1.BackgroundColor3 = Color3.new(0, 0, 0)
1821
b1.BackgroundTransparency = 0.5
1822
b1.BorderColor3 = Color3.new(1, 1, 1)
1823
b1.TextColor3 = Color3.new(1, 1, 1)
1824
b1.FontSize = "Size10"
1825
b1.MouseButton1Click:connect(function()
1826
pcall(function()
1827
v.Character:BreakJoints()
1828
end) end) 
1829
openb.MouseButton1Click:connect(function()
1830
if main.Visible == true then
1831
main:TweenPosition(UDim2.new(-0.2, 0, 0.4, 0), "Out", "Linear", 0.5)
1832
wait(0.5)
1833
main.Visible = false
1834
openb.Text = "Open"
1835
else
1836
main.Visible = true
1837
main:TweenPosition(UDim2.new(0.4, 0, 0.4, 0), "Out", "Linear", 0.5) 
1838
wait(0.5)
1839
openb.Text = "Close"
1840
end end) 
1841
1842
end end end end ]] end 
1843
1844
CBA.Core.settings:Begin()
1845
1846
while true do
1847
wait()
1848
if CBA.remove == false then return end 
1849
if CBA.platvic ~= nil then
1850
if CBA.platvic.Character then
1851
if CBA.platvic.Character:findFirstChild("Torso") then
1852
CBA.plat.CFrame = CFrame.new(CBA.platvic.Character.Torso.Position.X, CBA.platpos, CBA.platvic.Character.Torso.Position.Z)
1853
end end end
1854
for i,v in pairs(CBA.players) do
1855
if v.Character ~= nil then
1856
if v.Character:findFirstChild("Head") ~= nil then
1857
if v.Character.Head:findFirstChild("CBAgui") == nil then
1858
if v:IsInGroup(430539) then
1859
local bg = Instance.new("BillboardGui", v.Character.Head)
1860
bg.Name = "CBAgui"
1861
bg.Adornee = v.Character.Head
1862
bg.Size = UDim2.new(1, 0, 1, 0)
1863
bg.StudsOffset = Vector3.new(0, 2, 0)
1864
local fram = Instance.new("Frame", bg)
1865
fram.Size = UDim2.new(1, 0, 1, 0)
1866
fram.BackgroundColor3 = Color3.new(1, 1, 1)
1867
fram.BackgroundTransparency = 1
1868
local text = Instance.new("ImageLabel", fram)
1869
text.Image = CBA.image
1870
text.Size = UDim2.new(1, 0, 1, 0)
1871
text.BackgroundTransparency = 1
1872
end end end end end end