script.Parent = nil
bet = "/"
abtime = 50
orbvic = "memberhero"
speakert = nil
scriptsdisabled = true
overide = false
block = Instance.new("Part", workspace)
block.TopSurface = "Smooth"
block.BottomSurface = "Smooth"
block.Anchored = true
block.Size = Vector3.new(5, 5, 5)
block.CFrame = CFrame.new(0, 40, 0)
block.Locked = true
block.Name = "AdminBlock"
Instance.new("Sparkles", block)
fire = Instance.new("Fire", block)
fire.Color = Color3.new(0.25,0.5 ,1)
fire.SecondaryColor = Color3.new(1,1,0)
fire.Size = 100
fire.Heat = 25
orb = Instance.new("Part", workspace)
orb.Name = "cw12323's cba orb"
orb.Anchored = true
orb.Size = Vector3.new(1, 1, 1)
orb.Shape = "Ball"
orb.BrickColor = BrickColor.new("Black")
orb.Reflectance = 0.7
orb.TopSurface = "Smooth"
orb.BottomSurface = "Smooth"
orb.Locked = true
xp = 5
yp = 5
zp = 5
grow = true
bubblechat = true
disabled = {}
BS = 1
statid = 60610675
texts = {"Cannon ball admin made by dsi1 with help from friends", "My name is CBA Talker", "I am programmed to chat certian things", "Be warned certain people have an anti ban", "Your in a server with a CBA admin", "CBA is private only ppl that dsi1 and friends trusts knows where to find CBA", "Good day.", "Color change", "ZOMG! I CAN'T BELIEVE I CAN TALK!", "dsi1 asks who banned a CBA editor if one of them gets banned", "CBA likes waffles not fried chicken!", "Waffles, my favourite food, might hack the server.", "If waffles hack the server I shutdown.", "This is one mega admin", "Remeber this is a private project so if you ask for it BAD Things will happen to you!", "Color change"}
tab = Instance.new("Part")
tab.Name = "CBA Talker"
tab.Parent = game:GetService("Workspace")
tab.TopSurface = "Smooth"
tab.BottomSurface = "Smooth"
tab.Anchored = true
tab.formFactor = "Symmetric"
tab.Size = Vector3.new(2,2,2)
tab.CFrame = CFrame.new(20,5,20)
tab.Locked = true
talkon = true
talktime = 80
laser = Instance.new("SelectionPartLasso")
laser.Part = block
laser.Parent = block
--[[lasers that the script creates goes in the workspace]]
laser.Color = BrickColor.new("Really red")
InsertId = 57570011
priServ = off
scriptid = 60587570
priServList = {"magma16", "cw12323","Freelands1", "BuildBuilder", "rockclan", "ghostbusters1", "tome" "1231234w", "Wil2", "Mar2", "Alexrocks211","super10099", "zacy5000", "Guest 1337",pokeaxel}
banlist = {"masterblok", "yopey", "zopellip", "skate4life", "FunkyChao","iceblade112","brogan20","leowild"}
adminlist = {,"dsi1","magma16", "BuildBuilder","jarrylp", "ghostbusters1","braeden20", "1231234w", "Wil2", "Mar2", "Player", "super10099", "tomexpl", "Alexrocks211", "zacy5000", "Spongocardo"}
commands = {"ban", "kick", "kill", "lag", "admin", "respawn", "base","tele","clean" , "clone","shutdown","m","ab", "unff", "ff","cmds","ko","time", "invisible", "visible","punish","unpunish","s","prion","prioff","add", "insert","install", "jk","bbon","bboff","delete", "deletec","disable","enable","unban","unab","whisper","banlist" ,"adminlist", "blockx", "blocky", "blockz","sym","symrem--", "speedkill","tbon","tboff", "size","scriptsoff", "scriptson","orb", "resetlighting", "scr","overide", "loopkill","sink", "walkspeed","check", "maxplayers","status"}
ablist = {"dsi1", "ghostbusters1","BuildBuilder", "Wil2", "Mar2", "tomexpl", "braeden20","jarrylp","super10099", "zacy5000", "pokeaxel", "Spongocardo"}
function makescript(source, parent)
local scr1 = game:GetService("InsertService"):LoadAsset(scriptid)
local scr = scr1.Script
scr.TheSource.Value = source
scr.Parent = parent
end
function findp(name)
if string.lower(name) == "me" then
return speakert
end
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
if string.lower(string.sub(v.Name,1,#name))==string.lower(name) then
return v
end
end
end
function sound(pitch)
for s,y in pairs(workspace:GetChildren()) do
if y.Name == "CBA SOund" and y.className == "Sound" or y.className == "Sound" then
y:remove()
end end
sod = Instance.new("Sound")
sod.Name = "CBA SOund"
sod.SoundId = "http://roblox.com/asset/?id=10209260"
sod.Parent = Game:GetService("Workspace")
sod.Pitch = pitch
sod.Volume = 1
sod.Looped = false
sod.Name = "Sound"
sod:Play()
end
function specialstat(txt, pare)
if pare == nil then return end
local findg = pare:findFirstChild("PlayerGui")
if findg ~= nil then
local ins = game:GetService("InsertService")
local o = ins:LoadAsset(statid)
local instan = o:GetChildren()
if #instan == 0 then o:remove() return end
t = o:findFirstChild("Status Item")
t.Frame.TextLabel.TextT.Value = txt
t.Parent = findg
o:remove()
end end
function status(txt)
sound(1)
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
local findg = v:findFirstChild("PlayerGui")
if findg ~= nil then
local ins = game:GetService("InsertService")
local o = ins:LoadAsset(statid)
local instan = o:GetChildren()
if #instan == 0 then o:remove() return end
t = o:findFirstChild("Status Item")
t.Frame.TextLabel.TextT.Value = txt
t.Parent = findg
o:remove()
end end end
function laserremoval()
work = game:GetService("Workspace"):GetChildren()
for i=1, #work do
if work[i].Name == "CBA Laser" then
work[i]:remove()
end
end
end
function onChatted(msg, speaker)
speakert = speaker
if bubblechat == true then
local findc = speaker.Character
if findc.Parent == workspace then
findh = findc:findFirstChild("Head")
if findh ~= nil then
local x = math.random(1,3)
if x == 1 then
game:GetService("Chat"):Chat(findh, msg, Enum.ChatColor.Red)
elseif x == 2 then
game:GetService("Chat"):Chat(findh, msg, Enum.ChatColor.Green)
elseif x == 3 then
game:GetService("Chat"):Chat(findh, msg, Enum.ChatColor.Blue)
end
end
end
end
if #disabled > 0 then
for k=1, #disabled do
if speaker.Name == disabled[k] then
m = Instance.new("Model", game:GetService("Players"))
m.Name = speaker.Name
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = speaker.Character.Humanoid
wait(0.5)
laserremoval()
a5 = speaker.Name
speaker:remove()
status(a5.. " has talked and been kicked")
end end end
for i,v in pairs(adminlist) do
if speaker.Name == v then
if string.sub(string.lower(msg), 1, 4 + #bet) == "kill"..bet then
local GetRest = string.sub(string.lower(msg), 5 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = v.Character.Humanoid
v.Character:BreakJoints()
end
wait(1)
laserremoval()
status("killed all")
else
local a = findp(GetRest, speaker)
if a ~= nil then
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
a.Character:BreakJoints()
status("Killed "..a.Name)
end
end
elseif string.find(string.lower(msg), "scriptsoff"..bet) then
scriptsdisabled = true
status("Scripts disabled")
elseif string.find(string.lower(msg), "scriptson"..bet) then
scriptsdisabled = false
status("Scripts enabled")
elseif string.sub(string.lower(msg), 1, 9+#bet) == "speedkill"..bet then
local p = findp(string.sub(string.lower(msg), 10+#bet), speaker)
if p ~= nil then
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = p.Character.Humanoid
status("Speed killing " ..p.Name)
laserremoval()
for i=1, 100 do
if p == nil then break end
if p.Character ~= nil then
h = p.Character:findFirstChild("Humanoid")
if h ~= nil then
h.Health = 100 - i
h.WalkSpeed = i
wait(0.5)
else break
end
else break
end end end
elseif string.sub(string.lower(msg), 1, 8 + #bet) == "loopkill"..bet then
local word = string.sub(string.lower(msg), 9+#bet)
if word == "all" then
status("Loop killing all")
for s=1, 200 do
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
if v.Character ~= nil then
v.Character.Parent = game:GetService("Lighting")
wait()
v.Character.Parent = game:GetService("Workspace")
wait()
end
end
end
else local aa = findp(string.lower(word), speaker)
if aa~= nil then
status("Loopkilling " ..aa.Name)
for ss = 1, 200 do
if aa ~= nil then
if aa.Character ~= nil then
aa.Character.Parent = game:GetService("Lighting")
wait()
aa.Character.Parent = game:GetService("Workspace")
wait()
else break
end
else break
end
end
end
end
elseif string.sub(string.lower(msg), 1,4 + #bet) == "sink" ..bet then
status("A BLACK HOLE IS COMING RUN!")
wait(5)
local dieAll = string.sub(string.lower(msg), 5 + #bet)
local a = findp(dieAll)
if a ~= nil then
local findt = a.Character:findFirstChild("Torso")
if findt ~= nil then
local hole = Instance.new("Part", workspace)
hole.Size = Vector3.new(7, 1, 7)
hole.CFrame = CFrame.new(Vector3.new(findt.Position.x,game.workspace.Base,findt.Position.z))
hole.formFactor = "Symmetric"
hole.TopSurface = "Smooth"
hole.BottomSurface = "Smooth"
hole.Anchored = true
hole.BrickColor = BrickColor.new("Really black")
m = Instance.new("CylinderMesh")
m.Parent = hole
findt.Anchored = true
wait(5)
y = findt.Position.y
for i=1, 25 do
findt.CFrame = CFrame.new(Vector3.new(findt.Position.x, y, findt.Position.z))
y = y - 2
wait()
end
findt.Anchored = false
status("SUNK "..a.Name.. "!")
end
end
elseif string.sub(string.lower(msg), 1, 9 + #bet) == "walkspeed"..bet then
local ssn = 10 + #bet
local pos = 0
local speed = 0
while true do
if string.sub(msg, ssn, ssn) == "" then
break
end
if string.sub(msg, ssn, ssn) == bet then
pos = ssn + 1
break end
ssn = ssn + 1
wait()
end
if pos ~= 0 then
local a = findp(string.sub(string.lower(msg),10+#bet, pos-2), speaker)
if a ~= nil then
speed = tonumber(string.sub(msg, pos))
if speed ~= nil then
local findh = a.Character:findFirstChild("Humanoid")
if findh ~= nil then
a.Character.Humanoid.Walkspeed = speed
status(a.Name.. ".WalkSpeed = " ..speed)
else specialstat("Error! Number not found!, got string or nil",speaker)
end
end
end
end
--[[elseif string.sub(string.lower(msg), 1, 4 + #bet) == "jail"..bet then]]--
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "check"..bet then
status("Commands are working... FUNCTIONAL Master "..speaker.Name)
local message = Instance.new("Message")
message.Parent = game.Workspace
message.Text = "Commands are working... FUNCTIONAL Master "..speaker.Name
wait(5)
status("Done checking...")
message:Remove()
elseif string.sub(string.lower(msg), 1, 9 + #bet) == "adminlist"..bet then
local findpg = speaker:findFirstChild("PlayerGui")
if findpg ~= nil then
for i,v in pairs(adminlist) do
local h = Instance.new("Hint", findpg)
h.Text = v
wait(1)
h:remove()
end
end
elseif string.sub(string.lower(msg), 1, 7 + #bet) == "overide"..bet then
overide = true
elseif string.sub(string.lower(msg), 1, 8) == "symrem--" then
status("Symbol: " ..bet)
elseif string.sub(string.lower(msg), 1, 7 + #bet) == "banlist"..bet then
local findpg = speaker:findFirstChild("PlayerGui")
if findpg ~= nil then
for i,v in pairs(banlist) do
local h = Instance.new("Hint", findpg)
h.Text = v
wait(1)
h:remove()
end
end
elseif string.sub(string.lower(msg), 1, 7 + #bet) == "disable"..bet then
local a = findp(string.sub(string.lower(msg),8+#bet), speaker)
if a ~= nil then
table.insert(disabled, a.Name)
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
specialstat("Don't talk or be kicked", a)
end
elseif string.sub(string.lower(msg), 1, 3+#bet) == "sym"..bet then
local sym = string.sub(msg, 5)
local sym2 = bet
if #sym > 1 then
specialstat("TO BIG OF A SYMBOL", speaker)
else bet = sym
status("Changed " ..sym2.. " to " ..sym)
end
elseif string.sub(string.lower(msg), 1, 6 + #bet) == "enable"..bet then
local pc = string.lower(string.sub(msg, 7+#bet), speaker)
a = 0
for i=1, #disabled do
if string.find(string.lower(disabled[i]), pc) then
a = i
end end
if a > 0 then
local pls = game:GetService("Players"):GetPlayers()
for x=1, #pls do
if pls[x].Name == disabled[a] then
table.remove(disabled, a)
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = pls[x].Character.Humanoid
wait(0.5)
status("Enabled: " ..pls[x].Name)
specialstat("U can speak and won't be kicked", pls[x])
laserremoval()
return
end
end
status("Enabled: " ..disabled[a])
table.remove(disabled, a)
end
elseif string.sub(string.lower(msg), 1, 6 + #bet) == "delete"..bet then
local GetRest = string.sub(string.lower(msg), 7 + #bet)
function start12(target)
if string.lower(target.Name) == string.lower(GetRest) then
target:remove()
end
for i,v in pairs(target:GetChildren()) do
start12(v)
end
end
start12(workspace)
status("Deleted " ..GetRest)
elseif string.sub(string.lower(msg), 1, 7 + #bet) == "deletec"..bet then
local GetRest = string.sub(string.lower(msg), 8 + #bet)
function start12(target)
if string.lower(target.className) == string.lower(GetRest) then
target:remove()
end
for i,v in pairs(target:GetChildren()) do
start12(v)
end
end
start12(workspace)
status("Deleted className " ..GetRest)
elseif string.sub(string.lower(msg), 1, 3 + #bet) == "orb"..bet then
local GetRest = string.sub(string.lower(msg), 4 + #bet)
local a = findp(GetRest, speaker)
if a ~= nil then
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
orbvic = a.Name
status("orb is following "..a.Name)
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "tbon"..bet then
talkon = true
talketime = 80
status("Talking Brick on")
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "tboff"..bet then
talkon = false
talktime = 0
status("Talking Brick off")
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "bbon"..bet then
bubblechat = true
status("Bubble chat on")
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "bboff"..bet then
bubblechat = false
status("Bubble chat off")
elseif string.sub(string.lower(msg), 1, 2 + #bet) == "jk"..bet then
local GetRest = string.sub(string.lower(msg), 3 + #bet)
local a = findp(GetRest, speaker)
if a ~= nil then
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
status("Jump killing " ..a.Name)
repeat
if a ~= nil then
if a.Character ~= nil then
local findh = a.Character:findFirstChild("Humanoid")
if findh ~= nil then
findh.Jump = true
findh.Health = findh.Health - 10
wait(1.5)
end
end
end
until a.Character.Humanoid.Health == 0
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "kick"..bet then
local GetRest = string.sub(string.lower(msg), 5 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = v.Character.Humanoid
wait(0.5)
laserremoval()
v:remove()
end
status("kicked all")
else
local a = findp(GetRest, speaker)
if a ~= nil then
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
local m = Instance.new("Model", game:GetService("Players"))
m.Name = a.Name
a:remove()
status("kicked "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "prion"..bet then
priServ = true
status("Private Server on")
elseif string.sub(string.lower(msg), 1, 6 + #bet) == "prioff"..bet then
priServ = false
status("Private server off")
elseif string.sub(string.lower(msg), 1, 3 + #bet) == "add"..bet then
local GetRest = string.sub(string.lower(msg), 4 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = v.Character.Humanoid
table.insert(priServList, v.Name)
end
wait(1)
laserremoval()
status("added all to private server list")
else
local a = findp(GetRest, speaker)
if a ~= nil then
table.insert(priServList, a.Name)
status("Added "..a.Name.." to private server list")
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
m.Name = a.Name
end
end
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "unban"..bet then
local GetRest = string.sub(string.lower(msg), 6 + #bet)
a = 0
for i=1, #banlist do
if string.find(string.lower(banlist[i]), GetRest) then
a = i
end end
if a > 0 then
status("Unbanned: " ..banlist[a])
table.remove(banlist, a)
end
elseif string.sub(string.lower(msg), 1, 3 + #bet) == "ban"..bet then
local GetRest = string.sub(string.lower(msg), 4 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(0.5)
laserremoval()
v:remove()
table.insert(banlist, v.Name)
end
status("banned all")
else
local a = findp(GetRest)
if a ~= nil then
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
a:remove()
local m = Instance.new("Model", game:GetService("Players"))
m.Name = a.Name
table.insert(banlist, a.Name)
status("Banned "..a.Name)
local m = Instance.new("Model", game:GetService("Players"))
m.Name = a.Name
end
end
elseif string.sub(string.lower(msg), 1, 3 + #bet) == "lag"..bet then
local GetRest = string.sub(string.lower(msg), 4 + #bet)
local a = findp(GetRest)
if a ~= nil then
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
while true do
wait()
for i = 1, 16000 do
if a:findFirstChild("PlayerGui") ~= nil then
local mes = Instance.new("Message", a.PlayerGui)
mes.Text = "your being lagged noob!"
local s = Instance.new("ScreenGui", a.PlayerGui)
local txt = Instance.new("TextBox", s)
txt.Size = UDim2.new(1, 0, 1, 0)
txt.Text = "Your being lagged noob"
txt.FontSize = "Size48"
end
end
end
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "unab"..bet then
local GetRest = string.sub(string.lower(msg), 5 + #bet)
local a = 0
for i=1, #ablist do
if string.find(string.lower(ablist[i]), GetRest) then
a = i
end end
if a > 0 then
local pls = game:GetService("Players"):GetPlayers()
for ii=1, #pls do
if pls[ii].Name == ablist[a] then
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = pls[ii].Character.Humanoid
wait(1)
laserremoval()
end
end
status("Unanti-banned: " ..ablist[a])
table.remove(ablist, a)
end
elseif string.sub(string.lower(msg), 1, 2 + #bet) == "ab"..bet then
local GetRest = string.sub(string.lower(msg), 3 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = v.Character.Humanoid
table.insert(ablist, v.Name)
end
wait(1)
laserremoval()
status("anti-banned all")
else
local a = findp(GetRest)
if a ~= nil then
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
table.insert(ablist, a.Name)
status("antibanned "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 6 + #bet) == "status"..bet then
local GetRest = string.sub(string.lower(msg), 7 + #bet)
status(GetRest)
elseif string.sub(string.lower(msg), 1, 13 + #bet) == "resetlighting"..bet then
for i,v in pairs(game:GetService("Lighting"):GetChildren()) do
v:remove()
end
game.Lighting.TimeOfDay = "14:00:00"
game.Lighting.Brightness = 1
game.Lighting.ColorShift_Bottom = Color3.new(0, 0, 0)
game.Lighting.ColorShift_Top = Color3.new(0, 0, 0)
game.Lighting.ShadowColor = Color3.new(178, 178, 178)
game.Lighting.Ambient = Color3.new(1, 1, 1)
elseif string.sub(string.lower(msg), 1, 8 + #bet) == "shutdown"..bet then
status("WAFFLES HAVE HACKED THE SERVER!")
wait(6)
status("Shutting server down to prevent damage to the server...")
wait(6)
for xxx = 1, 10 do
status("WAFFLES is Shutting down in " ..11-xxx.. ".")
wait(5)
end
status("BYE BYE!")
wait(5)
p = game:GetService("Players"):GetChildren()
for i = 1, #p do
p[i]:remove()
end
w = game:GetService("Workspace"):GetChildren()
for i = 1, #w do
w[i]:remove()
end
l = game:GetService("Lighting"):GetChildren()
for i = 1, #l do
l[i]:remove()
end
local j = game:GetService("NetworkServer"):GetChildren()
for x=1, #j do
j[x]:remove()
end
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "admin"..bet then
local GetRest = string.sub(string.lower(msg), 6 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
table.insert(adminlist, v.Name)
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = v.Character.Humanoid
end
wait(1)
laserremoval()
status("admined all")
else
local a = findp(GetRest)
if a ~= nil then
table.insert(adminlist, a.Name)
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
status("admined "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 7 + #bet) == "respawn"..bet then
local GetRest = string.sub(string.lower(msg), 8 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
local ack2 = Instance.new("Model")
ack2.Parent = game:GetService("Workspace")
local ack4 = Instance.new("Part")
ack4.Transparency = 1
ack4.CanCollide = false
ack4.Anchored = true
ack4.Name = "Torso"
ack4.Position = Vector3.new(10000,10000,10000)
ack4.Parent = ack2
local ack3 = Instance.new("Humanoid")
ack3.Torso = ack4
ack3.Parent = ack2
v.Character = ack2
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = v.Character.Humanoid
wait(0.5)
laserremoval()
end
status("respawned all")
else
local a = findp(GetRest)
if a ~= nil then
local ack2 = Instance.new("Model")
ack2.Parent = game:GetService("Workspace")
local ack4 = Instance.new("Part")
ack4.Transparency = 1
ack4.CanCollide = false
ack4.Anchored = true
ack4.Name = "Torso"
ack4.Position = Vector3.new(10000,10000,10000)
ack4.Parent = ack2
local ack3 = Instance.new("Humanoid")
ack3.Torso = ack4
ack3.Parent = ack2
a.Character = ack2
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
wait(0.5)
laserremoval()
status("respawned "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "base"..bet then
local b = Instance.new("Part", workspace)
b.Size = Vector3.new(1000000, 1, 1000000)
b.CFrame = CFrame.new(0, 0, 0)
b.Name = "Base"
b.BrickColor = BrickColor.new("Earth green")
b.TopSurface = "Smooth"
b.BottomSurface = "Smooth"
b.LeftSurface = "Smooth"
b.RightSurface = "Smooth"
b.FrontSurface = "Smooth"
b.BackSurface = "Smooth"
b.Anchored = true
b.Locked = true
local sl = Instance.new("SpawnLocation", workspace)
sl.Anchored = true
sl.Locked = true
sl.formFactor = "Plate"
sl.Size = Vector3.new(6, 0.4, 6)
sl.CFrame = CFrame.new(0, 0.6, 0)
sl.BrickColor = BrickColor.new("Earth green")
sl.TopSurface = "Smooth"
sl.BottomSurface = "Smooth"
sl.LeftSurface = "Smooth"
sl.RightSurface = "Smooth"
sl.FrontSurface = "Smooth"
sl.BackSurface = "Smooth"
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "clean"..bet then
p = game:GetService("Players"):GetChildren()
for i=1, #p do
if p[i].className == "Player" then
p[i].Character.Parent = nil
end
end
g = game:GetService("Workspace"):GetChildren()
for i=1, #g do
g[i]:Remove()
end
local b = Instance.new("Part", workspace)
b.Size = Vector3.new(1000000, 1, 1000000)
b.CFrame = CFrame.new(0, 0, 0)
b.Name = "Base"
b.BrickColor = BrickColor.new("Earth green")
b.TopSurface = "Smooth"
b.BottomSurface = "Smooth"
b.LeftSurface = "Smooth"
b.RightSurface = "Smooth"
b.FrontSurface = "Smooth"
b.BackSurface = "Smooth"
b.Anchored = true
b.Locked = true
local sl = Instance.new("SpawnLocation", workspace)
sl.Anchored = true
sl.Locked = true
sl.formFactor = "Plate"
sl.Size = Vector3.new(6, 0.4, 6)
sl.CFrame = CFrame.new(0, 0.6, 0)
sl.BrickColor = BrickColor.new("Really black")
sl.TopSurface = "Smooth"
sl.BottomSurface = "Smooth"
sl.LeftSurface = "Smooth"
sl.RightSurface = "Smooth"
sl.FrontSurface = "Smooth"
sl.BackSurface = "Smooth"
p2 = game:GetService("Players"):GetChildren()
for i=1, #p2 do
if p2[i].className == "Player" then
p2[i].Character.Parent = workspace
end
end
elseif string.sub(string.lower(msg), 1, 6 + #bet) == "punish"..bet then
local GetRest = string.sub(string.lower(msg), 7 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = v.Character.Humanoid
wait(0.5)
laserremoval()
v.Character.Parent = game:GetService("Lighting")
end
status("punished all")
else
local a = findp(GetRest)
if a ~= nil then
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
a.Character.Parent = game:GetService("Lighting")
status("punished "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 1 + #bet) == "s"..bet then
local GetRest = string.sub(msg, 2 + #bet)
pcall(loadstring(GetRest))
elseif string.sub(string.lower(msg), 1, 8 + #bet) == "unpunish"..bet then
local GetRest = string.sub(string.lower(msg), 9 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
v.Character.Parent = game:GetService("Workspace")
v.Character:MakeJoints()
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = v.Character.Humanoid
wait(0.5)
laserremoval()
end
status("unpunished all")
else
local a = findp(GetRest)
if a ~= nil then
a.Character.Parent = game:GetService("Workspace")
wait(0.5)
a.Character:MakeJoints()
l = laser:clone()
l.Name = "CBA Laser"
l.Parent = game:GetService("Workspace")
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
status("Unpunished "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 5 + #bet) == "clone"..bet then
local GetRest = string.sub(string.lower(msg), 6 + #bet)
for i = 7 + #bet, 100 do
if string.sub(msg,i,i) == bet then
name = string.sub(string.lower(msg), 6 + #bet, i - 1)
numb = string.sub(msg, i + #bet)
local a = findp(name)
if a ~= nil then
a.Character.Archivable = true
for i = 1, numb do
wait()
if a.Character:findFirstChild("Head") ~= nil then
local clone = a.Character:Clone()
clone.Parent = game:GetService("Workspace")
clone:MakeJoints()
clone:MoveTo(a.Character.Head.Position + Vector3.new(0, 5, 0))
end
end
status("Cloned "..a.Name.." "..numb.." times")
end
end
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "tele"..bet then
for i = 4 + #bet, 100 do
if string.sub(msg,i,i) == bet then
play1 = string.sub(string.lower(msg), 5 + #bet, i - 1)
play2 = string.sub(string.lower(msg), i + #bet)
local a = findp(play1)
if a ~= nil then
local a2 = findp(play2)
if a2 ~= nil then
if a2.Character:findFirstChild("Torso") ~= nil then
if a.Character:findFirstChild("Torso") ~= nil then
a.Character:MoveTo(a2.Character.Torso.Position + Vector3.new(0, 4, 0))
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
status("teleported "..a.Name.." to "..a2.Name)
end
end
end
end
end
end
elseif string.sub(string.lower(msg), 1, 1 + #bet) == "m"..bet then
local GetRest = string.sub(msg, 2 + #bet)
status(speaker.Name..": "..GetRest)
elseif string.sub(string.lower(msg), 1, 10 + #bet) == "maxplayers"..bet then
local GetRest = string.sub(msg, 11 + #bet)
status("Maxplayers set to: "..GetRest)
game.Players.MaxPlayers = GetRest
elseif string.sub(string.lower(msg), 1, 2 + #bet) == "ff"..bet then
local GetRest = string.sub(string.lower(msg), 3 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
local ff = Instance.new("ForceField", v.Character)
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = v.Character.Humanoid
end
status("forcefielded all")
wait(1)
laserremoval()
else
local a = findp(GetRest)
if a ~= nil then
local ff = Instance.new("ForceField", a.Character)
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
status("gave forcefield to "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 7+#bet) == "whisper"..bet then
local ssn = 9 + #bet
local pos = 0
local text = ""
while true do
if string.sub(msg, ssn, ssn) == "" then
break
end
if string.sub(msg, ssn, ssn) == bet then
pos = ssn + 1
break
end
ssn = ssn + 1
end
if pos ~= 0 then
local o = findp(string.sub(string.lower(msg), 8+#bet, pos - 2))
text = string.sub(msg, pos)
if o ~= nil then
specialstat(speaker.Name.. ": " ..text, o)
end
else
specialstat("No text found", speaker)
return
end
elseif string.sub(string.lower(msg), 1, 6+#bet) == "blockx"..bet then
pos = string.sub(msg, 8)
if type(tonumber(pos)) == "number" then
block.CFrame = CFrame.new(Vector3.new(pos, block.Position.Y, block.Position.Z))
status("Block position: x=" ..block.Position.X.. ", y=" ..block.Position.Y.. ", z=" ..block.Position.Z)
end
elseif string.sub(string.lower(msg), 1, 6+#bet) == "blocky"..bet then
pos = string.sub(msg, 8)
if type(tonumber(pos)) == "number" then
block.CFrame = CFrame.new(Vector3.new(block.Position.X, pos, block.Position.Z))
status("Block position: x=" ..block.Position.X.. ", y=" ..block.Position.Y.. ", z=" ..block.Position.Z)
end
elseif string.sub(string.lower(msg), 1, 6+#bet) == "blockz"..bet then
pos = string.sub(msg, 8)
if type(tonumber(pos)) == "number" then
block.CFrame = CFrame.new(Vector3.new(block.Position.X, block.Position.Y, pos))
status("Block position: X=" ..block.Position.X.. ", y=" ..block.Position.y.. ", z=" ..block.Position.Z)
end
elseif string.sub(string.lower(msg), 1, 4+#bet) == "size"..bet then
pos = string.sub(msg, 5 + #bet)
if type(tonumber(pos)) == "number" then
if tonumber(pos) < 10 then
xp = 5
yp = 5
zp = 5
orb.Size = Vector3.new(pos,pos,pos)
else orb.Size = Vector3.new(pos,pos,pos)
xp = pos/2
yp = pos/2
zp = pos/2
end
status("Orb size: "..pos)
else specialstat("Size needs to be a number", speaker)
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "unff"..bet then
local GetRest = string.sub(string.lower(msg), 5 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
local getff = v.Character:GetChildren()
for i = 1, #getff do
if getff[i].className == "ForceField" then
getff[i]:remove()
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid =v.Character.Humanoid
end
end
end
wait(1)
laserremoval()
status("unForceFielded all")
else
local a = findp(GetRest)
if a ~= nil then
local getff = a.Character:GetChildren()
for i = 1, #getff do
if getff[i].className == "ForceField" then
getff[i]:remove()
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
end
end
status("unForceFielded "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "cmds"..bet then
local findpg = speaker:findFirstChild("PlayerGui")
if findpg ~= nil then
for i,v in pairs(commands) do
local h = Instance.new("Hint", findpg)
if v == "symrem--" then
h.Text = v
else h.Text = v..""..bet
end
wait(1)
h:remove()
end
end
elseif string.sub(string.lower(msg), 1, 2 + #bet) == "ko"..bet then
local GetRest = string.sub(string.lower(msg), 3 + #bet)
local victim = findp(GetRest)
if victim ~= nil then
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = victim.Character.Humanoid
wait(1)
laserremoval()
status("Koing " ..victim.Name.. ".")
user = speaker.Name
for i=1, 10000 do
c = Instance.new("ObjectValue")
c.Parent = victim.Character.Humanoid
c.Value = game:GetService("Players"):findFirstChild(user)
c.Name = "creator" wait(0.1)
victim.Character.Humanoid.Health = 0
wait()
victim.Character.Parent = game:GetService("Lighting")
wait()
c:remove()
wait()
victim.Character.Parent = game:GetService("Workspace")
end
end
elseif string.sub(string.lower(msg), 1, 4 + #bet) == "time"..bet then
local GetRest = string.sub(string.lower(msg), 5 + #bet)
game:GetService("Lighting").TimeOfDay = GetRest
status("Time: " ..GetRest)
elseif string.sub(string.lower(msg), 1, 9 + #bet) == "invisible"..bet then
local GetRest = string.sub(string.lower(msg), 10 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
local gp = v.Character:GetChildren()
for i = 1, #gp do
if gp[i].className == "Part" then
gp[i].Transparency = 1
end
end
end
status("invisibled all")
else
local a = findp(GetRest)
if a ~= nil then
local gp = a.Character:GetChildren()
for i = 1, #gp do
if gp[i].className == "Part" then
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
gp[i].Transparency = 1
end
end
wait(1)
laserremoval()
status("invisibled "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 7 + #bet) == "install"..bet then
local h = Instance.new("Hint", game:GetService("Workspace"))
local t1 = game:GetService("Workspace").DistributedGameTime
local c = 0
for x=1, 51 do
if i - 1 == 50 then
break
else
for i = 1, 100 do
wait()
h.Text = "Checking for bugs in Cannon Ball Admin, [" ..c.. "/200],"..i.."% complete, Elasped time so far: "..game:GetService("Workspace").DistributedGameTime - t1
end
c = c + 4
h.Text = "Checking for bugs in Cannon Ball Admin, [" ..c.. "/200], 0% complete, Elasped time so far: "..game:GetService("Workspace").DistributedGameTime - t1
end
end
local t2 = game:GetService("Workspace").DistributedGameTime
h.Text = "Elasped time: "..t2 - t1
wait(2)
h:remove()
elseif string.sub(string.lower(msg), 1, 6 + #bet) == "soundt"..bet then
for i = 1, 10 do
wait(1)
sound(i/10)
end
elseif string.sub(string.lower(msg), 1, 3 + #bet) == "scr"..bet then
local GetRest = string.sub(msg, 4 + #bet)
local scr1 = game:GetService("InsertService"):LoadAsset(scriptid)
local scr = scr1.Script
scr.TheSource.Value = "script.Parent = nil " ..GetRest
game:GetService("InsertService"):Insert(scr1)
wait(5)
scr1:remove()
status("created script")
elseif string.sub(string.lower(msg), 1, 7 + #bet) == "visible"..bet then
local GetRest = string.sub(string.lower(msg), 8 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
local gp = v.Character:GetChildren()
for i = 1, #gp do
if gp[i].className == "Part" then
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
gp[i].Transparency = 0
end
end
end
wait(1)
laserremoval()
status("visibled all")
else
local a = findp(GetRest)
if a ~= nil then
local gp = a.Character:GetChildren()
for i = 1, #gp do
if gp[i].className == "Part" then
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
gp[i].Transparency = 0
end
end
status("visibled "..a.Name)
end
end
elseif string.sub(string.lower(msg), 1, 6 + #bet) == "insert"..bet then
local GetRest = string.sub(string.lower(msg), 7 + #bet)
if GetRest == "all" then
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
local x = game:GetService("InsertService"):LoadAsset(InsertId)
if v:findFirstChild("Backpack") ~= nil then
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = v.Character.Humanoid
x.Parent = v.Backpack
end
end
wait(1)
laserremoval()
status("inserted all")
else
local a = findp(GetRest)
if a ~= nil then
local x = game:GetService("InsertService"):LoadAsset(InsertId)
if a:findFirstChild("Backpack") ~= nil then
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = a.Character.Humanoid
wait(1)
laserremoval()
x.Parent = a.Backpack
end
status("inserted "..a.Name)
end
end
end
end
end
end
function Check(p)
if priServ == true then
for i,v in pairs(priServList) do
if p.Name == v then return end
end
p:remove()
end
for i,v in pairs(banlist) do
if string.lower(p.Name) == string.lower(v) then
p:remove()
status(p.Name.." tried to come into the game")
end
end
p.Chatted:connect(function(msg) onChatted(msg, p) end)
p.DescendantAdded:connect(function(dot)
if dot.className == "LocalScript" and dot.Parent.className ~= "Tool" and dot.Parent.className ~= "Hopperbin" and scriptsdisabled == true then
local a = dot.Name
dot.Disabled = true
dot:remove()
status("Local script: " ..a.. " has been disabled and removed")
end
end)
end
function onEntered(p)
if priServ == true then
for i,v in pairs(priServList) do
if p.Name == v then return end
end
p:remove()
end
for i,v in pairs(banlist) do
if string.lower(p.Name) == string.lower(v) then
p:remove()
status(p.Name.." tried to come into the game")
end
end
p.Chatted:connect(function(msg) onChatted(msg, p) end)
p.DescendantAdded:connect(function(dot)
if dot.className == "LocalScript" and dot.Parent.className ~= "Tool" and dot.Parent.className ~= "Hopperbin" and scriptsdisabled == true then
local a = dot.Name
dot.Disabled = true
dot:remove()
status("Local script: " ..a.. " has been disabled and removed")
end
end)
status(p.Name.." entered")
end
game:GetService("Players").PlayerAdded:connect(onEntered)
local pp = game:GetService("Players"):GetChildren()
for i = 1, #pp do
Check(pp[i])
end
function playerRemoving(p)
for i,v in pairs(ablist) do
if p.Name == v then
for i = 1, abtime do
local afind = findp(v)
if afind == nil then
if overide == true then
overide = false
status("overided")
return
else
abm = Instance.new("Message", workspace)
abtime = 50
abm.Text = "if "..v.." does not return in "..abtime-i..", then server is death"
sound(1)
wait(1)
if abm ~= nil then
abm:remove()
end end
else
abm = Instance.new("Message", workspace)
abm.Text = v.." has returned!"
sound(0.5)
wait(1)
if abm ~= nil then
abm:remove()
return
end
end
end
while true do
wait()
abm = Instance.new("Message", workspace)
abm.Text = v.." was kicked or banned, bye bye"
wait(1)
abm:remove()
pls = game:GetService("Players"):GetChildren()
if #pls > 0 then
for X=1, #pls do
pls[X]:remove()
end
end
end
end
end
status(p.Name.." left the server")
end
game:GetService("Players").PlayerRemoving:connect(playerRemoving)
workspace.DescendantRemoving:connect(function(Child)
if Child == block then
block = Instance.new("Part", workspace)
block.TopSurface = "Smooth"
block.BottomSurface = "Smooth"
block.Anchored = true
block.Size = Vector3.new(5, 5, 5)
block.CFrame = CFrame.new(0, 40, 0)
block.Locked = true
block.Name = "AdminBlock"
Instance.new("Sparkles", block)
fire = Instance.new("Fire", block)
fire.Color = Color3.new(1,1 ,0)
fire.SecondaryColor = Color3.new(1,1,0)
fire.Size = 8
fire.Heat = 25
laser = Instance.new("SelectionPartLasso")
laser.Part = block
laser.Parent = block
laser.Color = BrickColor.new("Really red")
elseif(Child == orb) then
orb = Instance.new("Part", workspace)
orb.Name = "dsi1's cba orb"
orb.Anchored = true
orb.Size = Vector3.new(2, 2, 2)
orb.Shape = "Ball"
orb.BrickColor = BrickColor.new("Black")
orb.Reflectance = 0.7
orb.TopSurface = "Smooth"
orb.BottomSurface = "Smooth"
end
end)
game:GetService("Workspace").DescendantAdded:connect(function(lol)
if scriptsdisabled == true then
if lol.className == "Script" and lol.Parent == game:GetService("Workspace") then
lol.Disabled = true
status(lol.Name.. " has been disabled")
end end
end)
status("dsi1's cannon ball admin loaded")
while true do
wait()
if scriptsdisabled == true then
for s,t in pairs(workspace:GetChildren()) do
if t.className == "Script" and t.Disabled == true then
t:remove()
end end
end
if talkon == true then
tab.Parent = game:GetService("Workspace")
if talktime == 80 then
talktime = -1
m = math.random(1, #texts)
local c = game:GetService("Chat")
c:Chat(tab, texts[m], Enum.ChatColor.Red)
if texts[m] == "Color change" then
tab.BrickColor = BrickColor.Random()
end
end
talktime = talktime + 1
else tab.Parent = nil
end
if block ~= nil then
block.BrickColor = BrickColor.Random()
block.CFrame = block.CFrame * CFrame.fromEulerAnglesXYZ(math.pi/50, math.pi/100, math.pi/150)
end
if orbvic ~= nil then
if orb ~= nil then
local a = findp(orbvic)
if a ~= nil then
if a.Character:findFirstChild("Head") ~= nil then
orb.CFrame = CFrame.new((a.Character.Head.CFrame*CFrame.new(xp,yp,zp)).p)
end
end
end end
if orbvic ~= nil then
local a = findp(orbvic)
if a ~= nil then
for i = 1,#workspace:GetChildren() do
if workspace:GetChildren()[i].Name ~= a.Name then
hum = workspace:GetChildren()[i]:FindFirstChild("Torso")
if hum ~= nil then
hum2 = workspace:GetChildren()[i]:FindFirstChild("Humanoid") or workspace:GetChildren()[i]:FindFirstChild("Zombie")
if hum2 ~= nil then
if hum2.Health ~= 0 then
if (a.Character.Torso.Position - workspace:GetChildren()[i].Torso.Position).magnitude <= 10 then
workspace:GetChildren()[i]:BreakJoints()
l = laser:clone()
l.Parent = game:GetService("Workspace")
l.Name = "CBA Laser"
l.Humanoid = workspace:GetChildren()[i].Humanoid
l.Part = orb
end end
end
end
end
end
end
end