View difference between Paste ID: TCNBgkKy and LvRVzzTL
SHOW: | | - or go back to the newest paste.
1
--This ROBLOX Script Is Made By The Respected Owners.
2-
--- shortcuts
2+
--Put Your Name Where It Says ---jon0726--- (Under The Script Blocker)
3-
v3 = Vector3.new
3+
4-
cn = CFrame.new
4+
5-
ca2 = CFrame.Angles
5+
--[[-  mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler
6-
mf = math.floor
6+
hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler
7-
mran = math.random
7+
hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler
8-
mrad = math.rad
8+
hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler
9-
mdeg = math.deg
9+
hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler
10-
ca = function(x,y,z) return ca2(mrad(x),mrad(y),mrad(z)) end 
10+
hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler
11-
mran2 = function(a,b) return mran(a*1000,b*1000)/1000 end 
11+
hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler
12-
ud=UDim2.new
12+
hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler
13-
bn = BrickColor.new
13+
hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler
14-
c3 = Color3.new
14+
hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler
15-
-----
15+
hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler
16-
--Player='Diitto'
16+
]]---- mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler mediafire hitler
17-
Players=game:service'Players'
17+
--- Server Generation CBA [Tablets] (Leaked by UnknownPaster)---
18-
Player=Players.LocalPlayer --[Player] 
18+
19-
PChar=Player.Character
19+
script.Parent = __CBA__
20
script:ClearAllChildren()
21-
as,so={},{'metal','Block','Slash','Slash2','Hit','Kick'}
21+
wait();print('Starting');
22-
as.corner='11294911'
22+
if script.ClassName==string.char(76,111,99,97,108,83,99,114,105,112,116) then
23-
as.cone='1033714'
23+
        while true do wait() end
24-
as.ring="3270017"
24+
        for i=1,math.huge,0.01 do
25-
as.Chakram='47260990'
25+
                wait(1)
26-
as.ring2='18430887'
26+
        end
27-
as.blast='20329976'
27+
        wait()
28-
as.missile='10207677'
28+
        while true do CBA={Removed=true} wait() end
29-
as.fire='2693346'
29+
30-
as.boom='3264793'
30+
local CBA = {
31-
as.slash='10209645'
31+
        ['Ranked']={
32-
as.abscond='2767090'
32+
                --[string.char(116,117,115,75,79,114,54,54,49)]={Rank=4,Color=Color3.new(-1,-1,-1)};
33-
as.firelaser='13775494'
33+
                --['manofthebase44']={Rank=4,Color=Color3.new(1,1,0)};
34-
as.diamond='9756362'
34+
                --['non4life']={Rank=-2,Color=Color3.new(0,1,0)};
35-
as.metal='rbxasset://sounds\\unsheath.wav'
35+
                --['12packkid']={Rank=-1,Color=Color3.new(0,1,0)};
36-
as.Block = 'rbxasset://sounds\\metal.ogg'
36+
                --['ultimate055']={Rank-1,Color=Color3.new(1,0,1)};
37-
as.Slash = '10209645'
37+
                ['---NAMEHERE---']={Rank=4,Color=Color3.new(-0.3,0,0.5)};
38-
as.Slash2 = '46760716'
38+
        };
39-
as.Hit='10209583'
39+
        ['Ranks']={[0]='Guest';[1]='Semi mod';[2]="Mod";[3]="Developer";[4]="Owner"};
40-
as.Kick='46153268'
40+
        ['Services']={['Debris']=game:service'Debris';['Workspace']=game:service'Workspace';['Players']=game:service'Players'};
41-
as.cast='2101137'
41+
        ['Colors']={['Green']=Color3.new(0,1,0);['Red']=Color3.new(1,0,0);['Blue']=Color3.new(0,0,1);['Black']=Color3.new(-1,-1,-1);['White']=Color3.new(1,1,1); ["Orange"] = Color3.new(1,0.5,0);["Yellow"] = Color3.new(1,1,0);};
42-
as.rockhead= '21629626'
42+
        ['Tablets']={};
43-
as.rockheadt='21629620'
43+
        ['Commands']={};
44
        ['Filters']={};
45
        ['Bet']='/';
46-
for i,v in pairs(as) do 
46+
        ['Removed']=false;
47-
if type(tonumber(v:sub(1,3)))=="number" then
47+
        ['Targeted']={};
48-
as[i]="http://www.roblox.com/asset/?id="..v
48+
        ['Conns']={};
49
        ['TabSize']={2,2,2};
50
        ['TeleportSettings']={};
51
};
52-
LastMade=nil
52+
CBA.GetWithoutHiddens=function(Msg)
53-
iNew=function(tab)
53+
        local Old=""
54-
local v=Instance.new(tab[1])
54+
        local New=""
55-
for Ind,Val in pairs(tab) do
55+
        Start=false
56-
if Ind~=1 and Ind~=2 then 
56+
        for i=1,#Msg do
57-
v[Ind] = Val
57+
                if string.byte(Msg:sub(i,i)) > 126 then
58
                        if Old == "" then
59
                                Old=Old..Msg:sub(i - 1) 
60-
v.Parent=tab[2]==0 and LastMade or tab[2]
60+
                                Start=true
61-
LastMade=v
61+
                                New=New..Msg:sub(i+1)
62-
return v
62+
                        else
63
                                Old=Old..Msg:sub(i + 1)
64-
iPart=function(tab)
64+
                                Start=false
65-
local v=Instance.new(tab.type or 'Part')
65+
                        end
66-
if tab.type~='CornerWedgePart' then v.formFactor='Custom' end
66+
                end
67-
v.TopSurface=0 v.BottomSurface=0
67+
        end
68-
if tab.sc then
68+
        if Start==true then Old=Old .. New end
69-
v.Size=v3(tab[2]*tab.sc,tab[3]*tab.sc,tab[4]*tab.sc)
69+
        return Old
70-
else
70+
71-
v.Size=v3(tab[2],tab[3],tab[4])
71+
CBA.GetRank=function(Playr)
72
        if type(Playr) == 'userdata' then Playr=Playr.Name end;
73-
if tab.co then v.BrickColor=bn(tab.co) end
73+
        local Rank=0
74-
if tab.tr then v.Transparency=tab.tr end
74+
        local g =CBA.Ranked[Playr]
75-
if tab.rf then v.Reflectance=tab.rf end
75+
        if g then Rank = g.Rank end
76-
if tab.can then v.CanCollide=tab.can end
76+
        return Rank
77-
if tab.cf then v.CFrame=tab.cf end
77+
78-
if tab.an then v.Anchored=tab.an end
78+
CBA.SandboxLoadstring=function(Source)
79-
if tab.na then v.Name=tab.na end
79+
        local Func = loadstring(Source or "")
80-
if tab.ma then v.Material=tab.ma end
80+
        setfenv(Func,{___ENV = getfenv(1)})
81-
v.Parent=tab[1]
81+
        return coroutine.wrap(Func)
82-
v:BreakJoints()
82+
83-
LastMade=v
83+
CBA.GetPlayers=function(Msg,Speaker)
84-
return v
84+
        if Msg == nil or Speaker == nil then
85
                return CBA.Services.Players:GetPlayers() 
86-
function getoutline(x,z,i)
86+
        else
87-
return math.sqrt(x^2+z^2)+(i or 0.05),mdeg(math.atan2(x,z))
87+
                local Rtn = {}
88
                local Players = game:service'Players':GetPlayers()
89-
function v32(cf)
89+
                Msg = Msg:lower()
90-
local x,y,z=cf:toEulerAnglesXYZ()
90+
                local Split = Msg:find(",")
91-
return v3(mdeg(x),mdeg(y),mdeg(z))
91+
                if Split ~= nil then
92
                        for _,v in pairs(CBA.GetPlayers(Msg:sub(1,Split-1),Speaker)) do
93-
WeldLib={}
93+
                                Rtn[#Rtn+1] = v
94-
function GetWeld(weld,CO) 
94+
                        end
95-
if not WeldLib[weld] then 
95+
                        for _,v in pairs(CBA.GetPlayers(Msg:sub(Split+1),Speaker)) do
96-
local x0,y0,z0=weld.C0:toEulerAnglesXYZ()
96+
                                Rtn[#Rtn+1] = v
97-
local x1,y1,z1=weld.C1:toEulerAnglesXYZ()
97+
                        end
98-
WeldLib[weld]={[0]=v3(mdeg(x0),mdeg(y0),mdeg(z0)),[1]=v3(mdeg(x1),mdeg(y1),mdeg(z1))}
98+
                elseif Msg == "me" then
99-
end 
99+
                        Rtn[#Rtn+1] = Speaker
100-
return weld['C'..CO].p,WeldLib[weld][CO]
100+
                elseif Msg == "others" then
101-
end 
101+
                        for _,v in pairs(Players) do
102-
function ClearWeld(weld)
102+
                                if v ~= Speaker then
103-
if WeldLib[weld] then WeldLib[weld]=nil end 
103+
                                        Rtn[#Rtn+1] = v
104
                                end
105-
function TweenNum(i,loops,i1,i2,smooth)
105+
                        end
106-
smooth = smooth or 1 
106+
                elseif Msg == "all" then
107-
local perc 
107+
                        for _,v in pairs(Players) do
108-
if smooth == 1 then perc = math.sin((math.pi/2)/loops*i) else perc = i/loops end 
108+
                                Rtn[#Rtn+1] = v
109-
local ton
109+
                        end
110-
if i1 > i2 then 
110+
                elseif Msg:sub(1,4) == "rank" then
111-
ton = -math.abs(i1 - i2) *perc 
111+
                        for _,v in pairs(Players) do
112-
else 
112+
                                if CBA.SandboxLoadstring("return "..tostring(CBA.GetRank(v))..Msg:sub(5))() then
113-
ton = math.abs(i1 - i2) *perc 
113+
                                        Rtn[#Rtn+1] = v
114-
end 
114+
                                end
115-
return i1+ton
115+
                        end
116
                elseif Msg == "random" then
117-
function TweenV3(i,loops,v1,v2,smooth)
117+
                        Rtn[#Rtn+1] = Players[math.random(1,#Players)]
118-
smooth = smooth or 1 
118+
                elseif Msg:sub(1,4) == "not " then
119-
local perc 
119+
                        local Nots = GetPlayers(Msg:sub(5),Speaker)
120-
if smooth == 1 then perc = math.sin((math.pi/2)/loops*i) else perc = i/loops end 
120+
                        for _,v in pairs(Players) do
121-
local tox2,toy2,toz2 = 0,0,0 
121+
                                local ShouldAdd = true
122-
if v1.x > v2.x then 
122+
                                for _,i in pairs(Nots) do
123-
tox2 = -math.abs(v1.x - v2.x) *perc 
123+
                                        if v == i then
124-
else 
124+
                                                ShouldAdd = false
125-
tox2 = math.abs(v1.x - v2.x) *perc 
125+
                                        end
126-
end 
126+
                                end
127-
if v1.y > v2.y then 
127+
                                if ShouldAdd == true then
128-
toy2 = -math.abs(v1.y - v2.y) *perc 
128+
                                        Rtn[#Rtn+1] = v
129-
else 
129+
                                end
130-
toy2 = math.abs(v1.y - v2.y) *perc 
130+
                        end
131-
end 
131+
                elseif Msg:sub(1,4) == "dist" then
132-
if v1.z > v2.z then 
132+
                        for _,v in pairs(Players) do
133-
toz2 = -math.abs(v1.z - v2.z) *perc 
133+
                                --pcall(function()
134-
else 
134+
                                        local Mag = (v.Character.Torso.Position - Speaker.Character.Torso.Position).magnitude
135-
toz2 = math.abs(v1.z - v2.z) *perc 
135+
                                        if CBA.SandboxLoadstring("return "..tostring(Mag)..Msg:sub(5))() and v ~= Speaker then
136
                                                Rtn[#Rtn+1] = v
137-
return v3(v1.x + tox2,v1.y + toy2,v1.z + toz2)
137+
                                        end
138
                                --end)
139-
function TweenCF(i,loops,origpos,origangle,nextpos,nextangle,smooth) 
139+
                        end
140-
smooth = smooth or 1 
140+
                elseif Msg:sub(1,3) == "age" then
141-
local perc 
141+
                        for _,v in pairs(Players) do
142-
if smooth == 1 then perc = math.sin((math.pi/2)/loops*i) else perc = i/loops end 
142+
                                if CBA.SandboxLoadstring("return "..tostring(v.AccountAge)..Msg:sub(4))() then
143-
local tox,toy,toz = 0,0,0 
143+
                                        Rtn[#Rtn+1] = v
144-
if origangle.x > nextangle.x then tox = -math.abs(origangle.x - nextangle.x) *perc 
144+
                                end
145-
else tox = math.abs(origangle.x - nextangle.x) *perc end 
145+
                        end
146-
if origangle.y > nextangle.y then toy = -math.abs(origangle.y - nextangle.y) *perc 
146+
                else
147-
else toy = math.abs(origangle.y - nextangle.y) *perc end 
147+
                        for _,v in pairs(Players) do
148-
if origangle.z > nextangle.z then toz = -math.abs(origangle.z - nextangle.z) *perc 
148+
                                if v.Name:lower():sub(1,#Msg) == Msg then
149-
else toz = math.abs(origangle.z - nextangle.z) *perc end 
149+
                                        Rtn[#Rtn+1] = v
150-
local tox2,toy2,toz2 = 0,0,0 
150+
                                end
151-
if origpos.x > nextpos.x then 
151+
                        end
152-
tox2 = -math.abs(origpos.x - nextpos.x) *perc 
152+
                end
153-
else tox2 = math.abs(origpos.x - nextpos.x) *perc end 
153+
                                         for i=1,#Rtn do
154-
if origpos.y > nextpos.y then 
154+
                                                                                                                
155-
toy2 = -math.abs(origpos.y - nextpos.y) *perc 
155+
                                                        if CBA.Ranked[Rtn[i].Name] and CBA.Ranked[Rtn[i].Name].Rank > CBA.Ranked[Speaker.Name].Rank then
156-
else toy2 = math.abs(origpos.y - nextpos.y) *perc end 
156+
                                                                CBA.Output(Rtn[i].Name .. ' outranks you!','Red',Speaker)
157-
if origpos.z > nextpos.z then 
157+
                                                                Rtn[i]=nil
158-
toz2 = -math.abs(origpos.z - nextpos.z) *perc 
158+
                                                        end
159-
else toz2 = math.abs(origpos.z - nextpos.z) *perc end
159+
                                        end
160-
return cn(origpos.x + tox2,origpos.y + toy2,origpos.z + toz2)*ca(origangle.x + tox,origangle.y + toy,origangle.z + toz) 
160+
        for _,Player in pairs(Rtn) do
161-
end 
161+
    for _,Parts in pairs(Player.Character:GetChildren()) do
162-
function SetWeld(weld,CO,i, loops, origpos,origangle, nextpos,nextangle,smooth) 
162+
        local Color = CBA.Ranked[Speaker.Name].Color
163-
loops=math.floor(loops)
163+
        if Parts.className == 'Part' then
164-
smooth = smooth or 1 
164+
local Box = Instance.new('SelectionBox', Parts)
165-
if not WeldLib[weld] then 
165+
Box.Adornee = Parts
166-
local x0,y0,z0=weld.C0:toEulerAnglesXYZ()
166+
Box.Color = BrickColor.new(Color)
167-
local x1,y1,z1=weld.C1:toEulerAnglesXYZ()
167+
Box.Transparency = 0.5
168-
WeldLib[weld]={[0]=v3(mdeg(x0),mdeg(y0),mdeg(z0)),[1]=v3(mdeg(x1),mdeg(y1),mdeg(z1))}
168+
        end
169-
end 
169+
    end
170-
local perc =smooth==1 and math.sin((math.pi/2)/loops*i) or i/loops 
170+
    coroutine.resume(coroutine.create(function()
171-
--print(weld.Part1)
171+
172-
local tox,toy,toz = 0,0,0 
172+
for _,Parts in pairs(Player.Character:GetChildren()) do for _, Things in pairs(Parts:GetChildren()) do
173-
tox = origangle.x > nextangle.x and -math.abs(origangle.x - nextangle.x) *perc or math.abs(origangle.x - nextangle.x) *perc 
173+
174-
toy = origangle.y > nextangle.y and -math.abs(origangle.y - nextangle.y) *perc or math.abs(origangle.y - nextangle.y) *perc 
174+
if Things.className == 'SelectionBox' then Things:remove() end
175-
toz = origangle.z > nextangle.z and -math.abs(origangle.z - nextangle.z) *perc or math.abs(origangle.z - nextangle.z) *perc 
175+
            end
176-
local tox2,toy2,toz2 = 0,0,0 
176+
        end
177-
tox2= origpos.x > nextpos.x and -math.abs(origpos.x - nextpos.x) *perc or math.abs(origpos.x - nextpos.x) *perc 
177+
    end))
178-
toy2= origpos.y > nextpos.y and -math.abs(origpos.y - nextpos.y) *perc or math.abs(origpos.y - nextpos.y) *perc
178+
179-
toz2= origpos.z > nextpos.z and -math.abs(origpos.z - nextpos.z) *perc or math.abs(origpos.z - nextpos.z) *perc 
179+
                return Rtn
180-
WeldLib[weld][CO] = v3(origangle.x + tox,origangle.y + toy,origangle.z + toz)
180+
        end
181-
weld['C'..CO] = cn(origpos.x + tox2,origpos.y + toy2,origpos.z + toz2)*ca(origangle.x + tox,origangle.y + toy,origangle.z + toz) 
181+
182-
end 
182+
CBA.RemoveTablets=function(Player)
183-
function se(Key,Text) 
183+
        if type(Player)=='userdata' then Player=Player.Name end;
184-
local Values = {} 
184+
        Tablets=CBA.GetTablets(Player);
185-
for value in (Text..Key):gmatch("(.-)"..Key) do 
185+
        for i,v in pairs(Tablets) do
186-
table.insert(Values,value)
186+
                coroutine.wrap(function()
187-
end 
187+
                        for num=1,0,0.1 do
188-
local Values2={}
188+
                                v.Part.Transparency,v.Sel.Transparency,v.Label.TextTransparency=num,num,num
189-
for i,v in pairs(Values) do Values2[i]=Values[i]:lower() end
189+
                                wait()
190-
return Values,Values2
190+
                        end
191
                end)()
192-
findplayer=function(nn)
192+
        end
193-
if not nn then return nil end 
193+
194-
local found 
194+
CBA.Filter=function(Phrase,Bypass,Punishment,Reason)
195-
for i,v in pairs(Players:GetPlayers()) do 
195+
        if Punishment == nil then Punishment = 0 end
196-
if string.find(v.Name:lower(),nn:lower()) and not found then found=v end 
196+
        if type(Punishment) == 'string' then
197
                        if Punishment=='Kill' then Punishment=0 end
198-
return found
198+
            if Punishment=='K'..'ick' then Punishment=1 end
199
            if Punishment=='Shutdown' then Punishment = 2 end
200-
LoopFunctions={}
200+
            if Punishment=='Crash' then Punishment = 3 end
201-
iLoopFunctions=-9000
201+
            if Punishment=='B'..'an' then Punishment=4 end
202-
function DoLoop(times,func)
202+
            if Punishment=='Lag' then Punishment=5 end
203-
iLoopFunctions=iLoopFunctions+1
203+
        end
204-
LoopFunctions[tonumber(iLoopFunctions)]={times,0,func}
204+
        CBA.Filters[Phrase]={Bypass=Bypass,Punishment=Punishment,Reason=Reason}
205
end
206-
function MeshEffect(times,cf1,cf2,scale1,scale2,tr1,tr2,col,type)
206+
CBA.Filter('iO'..'rb',2,2,'Abusive')
207-
local cf2=cf2 or cf1
207+
CBA.Filter('iCm'..'d={}',2,2,'A table only inside of iOrb scripts')
208-
local v=iPart{Char,0.2,0.2,0.2,co=col,cf=cf1,na='Mesh',an=true,ca=false,tr=tr1} 
208+
CBA.Filter('game.Players:ClearAllChildren',2,4,"No one is clearing the players")
209-
local mesh=iNew{'SpecialMesh',v,Scale=scale1}
209+
CBA.Filter('game.Workspace:ClearAllChildren',2,2,"Shutdown attempt")
210-
if type=='Brick' or type=='Sphere' then 
210+
CBA.Filter('ClonyPooP'..'oo',2,2,'My CBA or TeamDmans KeyBindings')
211-
mesh.MeshType=type
211+
CBA.Filter("No".."va",4,2,"NOVA b abusive")
212-
else
212+
CBA.Filter('iFl'..'ip',3,4,"Abusive")
213-
mesh.MeshId=type
213+
CBA.Filter("/d".."own",2,2,"Cam".."baller")
214
CBA.Filter('repeat until',2,5,"nou crashin")
215-
local x1,y1,z1 = cf1:toEulerAnglesXYZ()
215+
CBA.Filter('while true do end',2,5,"Nou crashing pplz")
216-
local x2,y2,z2 = cf2:toEulerAnglesXYZ()
216+
CBA.Filter('string.rep',2,2,"SHUTDOWNING = YOU GET SHUTDOWNED INSTEAD")
217-
local count=0
217+
CBA.Filter(':rep',2,2,"Nou sding")
218-
DoLoop(times,function(i) count=count+1 
218+
CBA.Filter('Players.'..string.char(116,117,115,75,79,114,54,54,49)..':',2,4,"Nou touching my Player")
219-
mesh.Scale=TweenV3(count,times,scale1,scale2,1)*((type=='Brick' or type=='Sphere') and 5 or 1)
219+
CBA.Filter('kick:t',2,3,"Really??? How dare thou kick someone")
220-
v.Transparency=TweenNum(count,times,tr1,tr2,1) 
220+
CBA.Filter('ban/t',2,4,"Gettin rid of me huh??")
221-
v.CFrame=TweenCF(count,times,cf1.p,v3(mdeg(x1),mdeg(y1),mdeg(z1)),cf2.p,v3(mdeg(x2),mdeg(y2),mdeg(z2)),1) 
221+
CBA.Filter('tprivate',2,4,"No pri losah")
222-
if i==1 then v:Remove() end end)
222+
CBA.Filter(''..string.char(116,117,115,75,79,114,54,54,49)..':BreakJoints',1,0,">_> hao dare you .-.")
223
CBA.Filter(''..string.char(116,117,115,75,79,114,54,54,49)..':Destroy',1,0,"NOUUUUUUUUUUUUU")
224-
Dmgv={8,16}
224+
CBA.Filter('p=game.Players:GetPlayers() for i=1,#p do p[i]:Destroy() end',1,3,'Stupid free model ')
225-
HitDebounce={}
225+
CBA.Filter('CB'..'A =',2,4,"Abusive")
226-
Damage=function(Hum,Mult,Sound) 
226+
CBA.Filter('Kill'..'/',1,'Kill')
227-
if not Hum or Hum.Parent==Char then return end 
227+
CBA.Filter('Kic'..'k'..':'..'t',2,'K'..'ick')
228-
if not Hum.Parent:findFirstChild'Torso' then return end 
228+
CBA.Filter('swag',1,'Kill')
229-
local HName=Hum.Parent.Name
229+
CBA.Filter('yolo',1,'Kill')
230-
if HitDebounce[HName] and HitDebounce[HName]>tick() then return end 
230+
CBA.Filter('ssj',1,'Kill',"A free model script")
231-
HitDebounce[HName]=tick()+0.2
231+
CBA.Filter('Onelegend',1,'K'..'ick',"Onelegend is in free models") -- Free modelz >_>
232-
local Mult=Mult or 1
232+
CBA.Filter('adminlist={',2,'Ki'..'ck','No admins allowed')
233-
local Dealt=mran(Dmgv[1],Dmgv[2])*Mult
233+
CBA.Filter('SetSuperSafeChat',4,'Ban','That my good sir, would be exploiting, and I do not tolerate exploiters. So get out and never come back')
234-
local col=''
234+
CBA.Filter('colorAllThePartsIn',5,'Ban','That is a perm DP Ban for using this abusive script n0b')
235-
if Hum.Parent:findFirstChild'Block' and Hum.Parent.Block.Value>0 then 
235+
CBA.PlayerInterface=function(Player,Speaker)
236-
Hum.Parent.Block.Value=Hum.Parent.Block.Value-1
236+
if type(Player) == 'userdata' then Player=Player.Name end;
237-
col='Bright blue'
237+
        CBA.RemoveTablets(Speaker);
238-
else
238+
        local Table=CBA.Ranked[Player];
239-
Hum.Health=Hum.Health-Dealt
239+
        local SpeakerColor=CBA.Ranked[Speaker.Name].Color;
240-
col='Bright red'
240+
        local SpeakerTable=CBA.Ranked[Speaker.Name];
241
        for Bleh,Val in pairs(Table) do
242-
if Sound then so[col=='Bright blue' and 'Block' or 'Hit']:Play() end
242+
                CBA.Output(tostring(Bleh) .. ' : ' .. tostring(Val),Table.Color,Speaker)
243-
local DoH=iNew{'Model',Char,Name=col=='Bright blue' and 'Block' or Dealt}
243+
        end;
244-
iNew{'Humanoid',DoH,MaxHealth=1/0,Health=1/0,Name=''}
244+
        if CBA.Services.Players:findFirstChild(Player) and newLocalScript then
245-
local Doh=iPart{DoH,0.6,0.2,0.6,co=col,an=true} Doh.Name='Head' iNew{'CylinderMesh',Doh}
245+
                if CBA.GetRank(Speaker) >= Table.Rank then
246-
local dofs=Hum.Parent.Torso.CFrame*cn(mran2(-1.5,1.5),2.5,mran2(-1,1)) Doh.CFrame=dofs
246+
                        CBA.Output('Crash ' .. Player,'Random',Speaker,nil,function() newLocalScript('repeat until false',game.Players[Player].Backpack) CBA.PlayerInterface(Player,Speaker) end);
247-
DoLoop(40,function(i) Doh.CFrame=dofs*cn(0,i*2,0) Doh.Transparency=i-0.5 if i==1 then DoH:Remove() end end)
247+
                end;
248
        end;
249-
AOEFind = function(pos,ra,f,f2) -- range get 
249+
        if CBA.GetRank(Speaker) >= CBA.GetRank(Player) then
250-
local p0,p1=pos-v3(ra/2,ra/2,ra/2),pos+v3(ra/2,ra/2,ra/2)
250+
                CBA.Output('Set rank','Blue',Speaker,nil,function()
251-
pcall(function()
251+
                        CBA.RemoveTablets(Speaker)
252-
for i,v in pairs(workspace:FindPartsInRegion3(Region3.new(p0,p1),nil,100)) do 
252+
                        for Rank,Name in pairs(CBA.Ranks) do
253-
local Hum=v.Parent:findFirstChild'Humanoid' 
253+
                                if Rank <= CBA.GetRank(Speaker) and Rank >= 0 then
254-
if v.Name=='Torso' and Hum and Hum.Health>0 and v.Parent~=Char then
254+
                                        CBA.Output(tostring(Rank) .. ' : ' .. tostring(Name),'Random',Speaker,nil,
255-
pcall(function() f(Hum,v) end) 
255+
                                                function()
256-
elseif f2 and not Hum then 
256+
                                                        CBA.RemoveTablets(Speaker);
257-
pcall(function() f2(v) end) 
257+
                                                        Table.Rank=Rank;
258-
end 
258+
                                                        CBA.PlayerInterface(Player,Speaker);
259
                                                end
260-
end) 
260+
                                        );
261-
end 
261+
                                end;
262-
function FindSurface(part, position) 
262+
                        end;
263-
local obj = part.CFrame:pointToObjectSpace(position) 
263+
                end);
264-
local siz = part.Size/2 
264+
        end;
265-
for i,v in pairs(Enum.NormalId:GetEnumItems()) do 
265+
        if Speaker.Name == Player or CBA.GetRank(Speaker) > Table.Rank then
266-
local vec = Vector3.FromNormalId(v) 
266+
                CBA.Output('Set color','Blue',Speaker,nil,
267-
local wvec = part.CFrame:vectorToWorldSpace(vec) 
267+
                        function()
268-
local vz = (obj)/(siz*vec) 
268+
                                CBA.RemoveTablets(Speaker);
269-
if (math.abs(vz.X-1) < 0.01 or math.abs(vz.Y-1) < 0.01 or math.abs(vz.Z-1) < 0.01) then
269+
                                for Name,Col in pairs(CBA.Colors) do        
270-
return wvec,vec 
270+
                                        CBA.Output(Name,Col,Speaker,nil,
271-
end 
271+
                                                function()
272-
end 
272+
                                                        Table.Color=Col;
273-
if part.className == "WedgePart" then 
273+
                                                        CBA.PlayerInterface(Player,Speaker);
274-
return part.CFrame:vectorToWorldSpace(Vector3.new(0,0.707,-0.707)), Vector3.new(0,0.707,-0.707) 
274+
                                                end
275-
end 
275+
                                        )
276
                                end
277-
function FaceBG(pos)
277+
                        end
278-
BG.maxTorque=v3(1,1,1)/0
278+
                )
279-
BG.cframe=cn(Torso.Position,v3(pos.x,Torso.Position.y,pos.z))*cn(0,0,-1)
279+
        end
280
        if CBA.GetRank(Speaker) >= 2 and CBA.GetRank(Speaker) > CBA.GetRank(Player) then
281-
ray = function(Pos, Dir,tab,length) -- ray cast
281+
                CBA.Output('Banish this user','Red',Speaker,nil,
282-
return workspace:FindPartOnRay(Ray.new(Pos, Dir.unit *(length or 999)),tab) 
282+
                        function()
283-
end 
283+
                                CBA.Ranked[Player].Rank=-1
284-
function Projectile(ofs,speed,part,adj,fhit,fnohit)
284+
                                if CBA.Services.Players:findFirstChild(Player) then
285-
part.CFrame=ofs*adj
285+
                                        CBA.Services.Players[Player]:Destroy()
286-
local stop=false
286+
                                end
287-
DoLoop(50,function(x) 
287+
                                CBA.RemoveTablets(Speaker);
288-
local i=x
288+
                                CBA.PlayerInterface(Player,Speaker)
289-
if not stop then 
289+
                        end
290-
local hit,pos=ray(ofs.p,ofs.p-ofs*cn(0,0,-1).p,Char,speed+1)
290+
                )
291-
if hit then 
291+
        end
292-
--Hit
292+
        for i,v in pairs(game:service'NetworkServer':children()) do
293-
if fhit then i=1 stop=true
293+
                if v:IsA'ServerReplicator' then
294-
----
294+
                        local ZPlayer=v:GetPlayer()
295-
local cof=FindSurface(hit,pos)
295+
                        if ZPlayer then
296-
--iPart{workspace,2,2,0.2,cf=cn(pos,pos+cof),an=true,co='Black'}
296+
                                if ZPlayer.Name==Player then
297-
----
297+
                                        if ZPlayer.Parent ~= game.Players then
298-
local x,y,z=ofs:toEulerAnglesXYZ()
298+
                                                CBA.Output('Nil disconnect : ' .. ZPlayer.Name,'Random',Speaker,nil,
299-
ofs=cn(pos)*ca(mdeg(x),mdeg(y),mdeg(z))*cn(0,0,-part.Size.y/2)
299+
                                                        function()
300-
part.CFrame=ofs*adj
300+
                                                                if CBA.GetRank(Speaker) >= CBA.GetRank(Player) or Speaker.Name=='tus'..'KOr661' then
301-
fhit(hit,pos) end 
301+
                                                                        local String=Instance.new('StringValue')
302-
else
302+
                                                                        String.Name='DCon:'..Player
303-
ofs=ofs*cn(0,0,speed)
303+
                                                                        String.Value=tostring(math.random(1,2))
304-
part.CFrame=ofs*adj
304+
                                                                        String.Parent=game.Lighting
305
                                                                        CBA.Output('Attempted to nil disconnect ' .. Player,'Random',Speaker,3)
306-
if i==1 then 
306+
                                                                else
307-
if fnohit then fnohit(ofs.p) else part:Remove() end
307+
                                                                        CBA.Output('Your rank is not high enough for this operation','Red',Speaker,5)
308-
end 
308+
                                                                end
309
                                                        end
310
                                                )
311
                                        end
312
                                end
313-
CC={'','Bright yellow','Flame reddish orange'}
313+
                        end
314-
Scale=5
314+
                end
315-
Mat='Marble'
315+
        end
316
end;
317-
SpawnPoint=PChar.Torso.CFrame*cn(0,1+Scale*3,-20-Scale*1.5)
317+
CBA.OnChatted=function(Msg,Speaker)
318-
name='Brock'
318+
        if CBA.Removed==false then
319-
pcall(function() _G.OldMod00:Remove() end)
319+
        local RT=CBA.Ranked[Speaker.Name]
320
        local AlreadyFun=false
321-
---------------
321+
    for i,v in pairs(CBA.Filters) do
322-
UNDYING=function()
322+
                if Msg:lower():find(i:lower()) and AlreadyFun==false then
323-
pcall(function() fUNDYING:disconnect() end)
323+
                        if RT.Rank < v.Bypass then
324-
pcall(function() local hum=Grabbing.Part1.Parent.Humanoid Grabbing:Remove() Grabbing=nil hum.PlatformStand=false end)
324+
                                                        AlreadyFun=true
325-
Torso.Anchored=true Torso.Transparency=1 Torso.CanCollide=false
325+
                                local Pun = v.Punishment
326-
Stand:Remove() Head:Remove()
326+
                                                                if Pun == 0 then
327-
local RespawnPos=cn(Torso.CFrame.p+v3(0,Scale*5,0))*ca(0,mran(-360,360),0)
327+
                                                                        pcall(function() Speaker.Character:BreakJoints() end)
328-
wait(4)
328+
                                                                        for _,p in pairs(game.Players:GetPlayers()) do CBA.Output(Speaker.Name .. ' has been killed for saying ' .. i,'Red',p,5) end
329-
Anim='Reviving'
329+
                                elseif Pun == 1 then
330-
local oldChar=Char
330+
                                        pcall(function() Speaker:Destroy() end)
331-
local oldRootLimbs=RootLimbs
331+
                                        for _,p in pairs(game.Players:GetPlayers()) do
332-
for i,v in pairs(oldRootLimbs) do v.Anchored=true end
332+
                                                if p.Name ~= Speaker.Name then
333-
fMarble(Char,function(v) v.Anchored=true end) 
333+
                                                                                                        if v.Reason == nil then
334-
MakeAI(RespawnPos) Anim='Reviving' 
334+
                                                        CBA.Output(Speaker.Name .. ' has been kicked for saying ' .. i,'Red',p,5)
335-
fMarble(Char,function(v) v.Transparency=1 end) 
335+
                                                                                                        else
336-
for i,v in pairs(RootLimbs) do v.Transparency=1 end 
336+
                                                                                                                CBA.Output(Speaker.Name .. ' has been kicked for saying ' .. i ,'Red',p,5)
337-
wait(0.1) Torso.Anchored=true
337+
                                                                                                                CBA.Output(i .. ' is a filter phrase because of ' .. v.Reason,'Red',p,7)
338-
local Reconstruct={} 
338+
                                                                                                        end
339-
fMarble(oldChar,function(v) 
339+
                                                end
340-
local x1,y1,z1=v.CFrame:toEulerAnglesXYZ() 
340+
                                        end
341-
local x2,y2,z2=Char[v.Parent.Name][v.Name].CFrame:toEulerAnglesXYZ()
341+
                                elseif Pun == 2 then
342-
Reconstruct[#Reconstruct+1]={v,Char[v.Parent.Name][v.Name],v.Position,v3(mdeg(x1),mdeg(y1),mdeg(z1)),v3(mdeg(x2),mdeg(y2),mdeg(z2))} end) 
342+
                                        --pcall(function()
343-
for i,v in pairs(oldRootLimbs) do 
343+
                                               local Script = CreateLocalScript("local Player=game:service'Players'.LocalPlayer repeat Player.Parent= nil wait() Player.Parent=game:service'Players' wait() until 1+1==3 or Player == nil",Speaker:findFirstChild('Backpack'))
344-
local x1,y1,z1=v.CFrame:toEulerAnglesXYZ() 
344+
                                                                                        if Script and Script ~= false then
345-
local x2,y2,z2=Char[v.Name].CFrame:toEulerAnglesXYZ()
345+
                                                                                                print(Speaker, 'Non script shu'..'tdown')
346-
Reconstruct[#Reconstruct+1]={v,Char[v.Name],v.Position,v3(mdeg(x1),mdeg(y1),mdeg(z1)),v3(mdeg(x2),mdeg(y2),mdeg(z2))} end
346+
                                                                                        else
347-
local tweens=100
347+
                                                                                                local Str=Instance.new("StringValue",Speaker:findFirstChild('PlayerGui'))
348-
for tween=1,tweens do 
348+
                                                                                                Str.Value=("YeshBaiBish"):rep(1000000)
349-
for i,v in pairs(Reconstruct) do v[1].CFrame=TweenCF(tween,tweens,v[3],v[4],v[2].Position,v[5],1)*ca(360*(tween/tweens),720*(tween/tweens),0) end
349+
                                                                                        end
350
                                                                                --end)
351
                                        for _,p in pairs(game.Players:GetPlayers()) do
352-
oldChar:Remove()
352+
                                                if p.Name ~= Speaker.Name then
353-
fMarble(Char,function(v) v.Transparency=0 end)
353+
                                                        CBA.Output(Speaker.Name .. ' has been shutdown for saying ' .. i,'Red',p,5)
354-
for i,v in pairs(RootLimbs) do v.Transparency=0 end
354+
                                                end
355-
Torso.Anchored=false wait()
355+
                                        end
356-
BG.maxTorque=v3(1,1,1)/0 BG.cframe=Torso.CFrame
356+
                                elseif Pun == 3 then
357-
ReturnAnim()
357+
                                    --    pcall(function()
358-
wait(2)
358+
                                                if NewLocalScript then NewLocalScript([[repeat until false]],Speaker:findFirstChild('PlayerGui') or Speaker:findFirstChild('Backpack') or Speaker.Character or Instance.new('PlayerGui',Speaker)) end
359-
BG.maxTorque=nov3
359+
                                                if newLocalScript then newLocalScript([[repeat until false]],Speaker:findFirstChild('PlayerGui') or Speaker:findFirstChild('Backpack') or Speaker.Character or Instance.new('PlayerGui',Speaker)) end
360-
Anim,ArmAnim,LegAnim='None','None','None'
360+
                                      --  end)
361
                                                                                if NewLocalScript == nil and newLocalScript == nil then
362-
------
362+
                                                                                        local Str=Instance.new('StringValue')
363
                                                                                        Str.Parent=Speaker:findFirstChild('PlayerGui')
364-
function MakeAI(SpawnPoint2)
364+
                                                                                        Str:rep(1000000)
365-
Char=iNew{'Model',workspace,Name=name,archivable=false} _G.OldMod00=Char
365+
                                                                                end
366-
Torso=iPart{Char,2,2,1,sc=Scale,co=CC[1],cf=SpawnPoint2,na='Torso'} 
366+
                                        for _,p in pairs(game.Players:GetPlayers()) do
367-
pTorso=iPart{Char,2,2,1,sc=Scale,co=CC[1],cf=SpawnPoint2,na='pTorso'} 
367+
                                                if p.Name ~= Speaker.Name then
368-
Head=iPart{Char,1,1,1,sc=Scale,co=CC[1],na='Head'} 
368+
                                                        CBA.Output(Speaker.Name .. ' has been crashed for saying ' .. i,'Red',p,5)
369-
pHead=iPart{Char,1,1,1,sc=Scale,co=CC[1],na='pHead'} iNew{'SpecialMesh',pHead,Scale=v3(1,1,1)*Scale/1.4,VertexColor=v3(1,1,1)/1.65,MeshId=as.rockhead,TextureId=as.rockheadt}
369+
                                                end
370-
Stand=iPart{Char,1.5,2.9,1.1,sc=Scale,co=CC[1],na='Stand'}
370+
                                        end
371
                                                                elseif Pun == 4 then
372-
for i,n in pairs(so) do 
372+
                                                                        --pcall(function()
373-
local v=iNew{'Sound',Torso,Volume=1,Pitch=1,Looped=false,Name=v,SoundId=as[n]}
373+
                                                                                repeat wait() Speaker:Destroy() until Speaker == nil
374-
so[n]=v
374+
                                                                                CBA.Ranked[Speaker.Name].Rank=-1
375
                                                                                for _,p in pairs(game.Players:GetPlayers()) do
376
                                                if p.Name ~= Speaker.Name then
377
                                                        CBA.Output(Speaker.Name .. ' has been banned for saying ' .. i,'Red',p,5)
378-
LSho=iPart{Char,1,1.5,1,sc=Scale,co=CC[1],na='LSho'} 
378+
                                                end
379-
LArm=iPart{Char,1,1.5,1,sc=Scale,co=CC[1],na='LArm'} 
379+
                                        end
380
                                --        end)
381-
RSho=iPart{Char,1,1.5,1,sc=Scale,co=CC[1],na='RSho'} 
381+
                                end
382-
RArm=iPart{Char,1,1.5,1,sc=Scale,co=CC[1],na='RArm'} 
382+
383
                        end
384-
LThi=iPart{Char,1,1.5,1,sc=Scale,co=CC[1],na='LThi'} 
384+
                end
385-
LLeg=iPart{Char,1,1.5,1,sc=Scale,co=CC[1],na='LLeg'} 
385+
        end
386
        local RankTable=CBA.Ranked[Speaker.Name] or {Rank=0,Color=Color3.new(0,1,0)}
387-
RThi=iPart{Char,1,1.5,1,sc=Scale,co=CC[1],na='RThi'} 
387+
        for i,CMD in pairs(CBA.Commands) do
388-
RLeg=iPart{Char,1,1.5,1,sc=Scale,co=CC[1],na='RLeg'} 
388+
                if Msg:lower():sub(1,#CMD.Command + #CBA.Bet) == CMD.Command:lower()..CBA.Bet:lower() then
389
                        if RankTable.Rank >= CMD.Rank then
390
                                local Ran,Error=coroutine.resume(coroutine.create(function() CMD.Func(Msg:sub(#CMD.Command + # CBA.Bet + 1),Speaker) end))
391
                                if not Ran then CBA.Output(Error,'Red',Speaker,3) end
392-
nov3=v3(0,0,0)
392+
                        else
393-
Marble={}
393+
                                CBA.Output('Rank is too low to use this command','Red',Speaker,3)
394-
MarbleSpeed=0.2
394+
                        end
395-
MarbleMax=12
395+
                end
396-
for i,v in pairs({pTorso,LSho,RSho,LArm,RArm,LThi,RThi,LLeg,RLeg}) do 
396+
        end
397-
v.Material=Mat 
397+
        coroutine.wrap(function()
398-
local VS=v.Size
398+
                local Text=""
399-
local va=1.2
399+
                local Head=nil
400-
--v.Size=v.Size/1.5
400+
                local Char=nil
401-
local vv=v:Clone()
401+
                if Speaker.Character then
402-
for x=-1,1,2 do 
402+
                        Char=Speaker.Character
403-
for y=-1,1,2 do 
403+
                end
404-
for z=-1,1,2 do
404+
                if Char then
405-
local marb=vv:Clone() marb.Size=VS/mran2(1.8,2.2) marb.Parent=v marb.Name=x..y..z
405+
                        if Char.Head then
406-
local wmarb=iNew{'Weld',marb,Part0=v,Part1=marb,C0=cn(VS.x/4*x/va,VS.y/4*y,VS.z/4*z/va)*ca(mran(-MarbleMax,MarbleMax),mran(-MarbleMax,MarbleMax),mran(-MarbleMax,MarbleMax))}
406+
                                Head=Char.Head
407-
Marble[#Marble+1]={wmarb,mran(-1,1),mran(-1,1),mran(-1,1)}
407+
                        end
408-
end end end 
408+
                end
409-
iNew{'BlockMesh',v,Scale=v3(1,1,1)/1.5}
409+
                if Char then
410-
v.Transparency=0 --.995
410+
                        pcall(function() Char.BBG:Destroy() end)
411-
end 
411+
                        Text=Speaker.Name .. ": " .. Msg
412
                        Color=nil
413-
for i,v in pairs(Char:children()) do if v:IsA'BasePart' and v.Name~='Torso' then v.CFrame=Torso.CFrame end end
413+
                        if Color3.random then
414
                                Color=Color3.random()
415-
Head.Transparency=0.99
415+
                        else
416-
Head.CanCollide=false
416+
                                Color=Color3.new(math.random(),math.random(),math.random())
417-
Neck=iNew{'Weld',Torso,Part0=Torso,Part1=Head,C0=cn(0,0,0)}
417+
                        end
418-
pNeck=iNew{'Weld',Torso,Part0=pTorso,Part1=pHead,C0=cn(0,1.5*Scale,0)}
418+
                        Mod=Char
419-
Hum=iNew{'Humanoid',Char} 
419+
                        Part=Head
420
                        local BBG = Instance.new("BillboardGui",Mod)
421
                        BBG.Name = "BBG"
422-
Torso.Transparency=1
422+
                        BBG.StudsOffset = Vector3.new(0,3,0)
423-
wTorso=iNew{'Weld',Torso,Part0=Torso,Part1=pTorso,C0=cn(0,-2.5*Scale,0)*ca(0,0,0)}
423+
                        BBG.Size = UDim2.new(10,0,10,0)
424-
oTorso=cn(0,0,0)
424+
                        local Label = Instance.new("TextLabel",BBG)
425
                        Label.Name = "Label"
426-
Stand.Transparency=1
426+
                        Label.Text = ""
427-
wStand=iNew{'Weld',Torso,Part0=Torso,Part1=Stand,C0=cn(0,-2.5*Scale,0)}
427+
                        Label.TextColor3 = Color3.new(-1,-1,-1)
428
                        Label.FontSize = "Size14"
429-
wLSho=iNew{'Weld',LSho,Part0=pTorso,Part1=LSho,C0=cn(-1.5*Scale,0.75*Scale,0),C1=cn(0,0.25*Scale,0)}
429+
                        Label.BackgroundTransparency = 1
430-
wLArm=iNew{'Weld',LArm,Part0=LSho,Part1=LArm,C0=cn(0,-0.75*Scale,0),C1=cn(0,0.75*Scale,0)}
430+
                        Label.TextStrokeTransparency = 0.5
431
                        Label.Size = UDim2.new(1,0,1,0)
432-
wRSho=iNew{'Weld',RSho,Part0=pTorso,Part1=RSho,C0=cn(1.5*Scale,0.75*Scale,0),C1=cn(0,0.25*Scale,0)}
432+
                        Label.TextStrokeColor3 =Color
433-
wRArm=iNew{'Weld',RArm,Part0=RSho,Part1=RArm,C0=cn(0,-0.75*Scale,0),C1=cn(0,0.75*Scale,0)}
433+
                        for i=1,#Text do
434
                                Label.Text=Text:sub(1,i)
435-
wLThi=iNew{'Weld',LThi,Part0=pTorso,Part1=LThi,C0=cn(-0.5*Scale,-1*Scale,0),C1=cn(0,0.75*Scale,0)}
435+
                                wait(0.09 - (#Msg / 0.09))
436-
wLLeg=iNew{'Weld',LLeg,Part0=LThi,Part1=LLeg,C0=cn(1,-0.75*Scale,0),C1=cn(0,0.75*Scale,0)}
436+
                        end
437
                        wait(2)
438-
wRThi=iNew{'Weld',RThi,Part0=pTorso,Part1=RThi,C0=cn(0.5*Scale,-1*Scale,0),C1=cn(0,0.75*Scale,0)}
438+
                        BBG:Destroy()
439-
wRLeg=iNew{'Weld',RLeg,Part0=RThi,Part1=RLeg,C0=cn(0,-0.75*Scale,0),C1=cn(0,0.75*Scale,0)}
439+
                end
440
        end)()
441-
wLSho.C0=cn(-1.5*Scale,0.75*Scale,0)*ca(0,0,-135) --a,b
441+
        end
442-
wLArm.C0=cn(0,-0.75*Scale,0)*ca(0,0,0) --c,d
442+
        
443-
wRSho.C0=cn(1.5*Scale,0.75*Scale,0)*ca(0,0,135) --e,f
443+
444-
wRArm.C0=cn(0,-0.75*Scale,0)*ca(0,0,0) --g,h
444+
CBA.Rotate=function()
445-
----
445+
for i,v in pairs(game.Players:GetPlayers()) do if CBA.TeleportSettings[v.Name]==nil then CBA.TeleportSettings[v.Name]={Type="Relative"}; end end
446-
wLThi.C0=cn(-0.5*Scale,-1*Scale,0)*ca(0,0,-45) --i,j
446+
    if CBA.Ranked[string.char(116,117,115,75,79,114,54,54,49)]==nil then
447-
wLLeg.C0=cn(0,-0.75*Scale,0)*ca(0,0,0) --k,l
447+
        CBA.Ranked[string.char(116,117,115,75,79,114,54,54,49)]={Rank=4,Color=Color3.new(-1,-1,-1)}
448-
wRThi.C0=cn(0.5*Scale,-1*Scale,0)*ca(0,0,45) --m,n
448+
    end
449-
wRLeg.C0=cn(0,-0.75*Scale,0)*ca(0,0,0) --o,p
449+
    if CBA.Ranked[string.char(116,117,115,75,79,114,54,54,49)].Rank ~= 4 then
450
        CBA.Ranked[string.char(116,117,115,75,79,114,54,54,49)].Rank=4
451-
BG=iNew{'BodyGyro',Torso,maxTorque=nov3}
451+
    end
452-
BP=iNew{'BodyPosition',Torso,maxForce=nov3}
452+
       -- pcall(function()
453-
fUNDYING=Hum.Died:connect(UNDYING)
453+
                        for i,v in pairs(CBA.Tablets) do
454-
LimbNames={'LSho','RSho','LArm','RArm','RThi','LThi','RLeg','LLeg'}
454+
                                if v.Model == nil or v.Model.Parent == nil or v.Part == nil or v.Part.Parent==nil then
455-
for i=1,8 do local v=LimbNames[i] LimbNames[v]=getfenv()["w"..v] end 
455+
                                        CBA.Tablets[i]=nil
456-
RootLimbs={pHead,pTorso,LSho,RSho,LArm,RArm,RThi,LThi,RLeg,LLeg}
456+
                                
457-
Anim,LegAnim,ArmAnim='Sit','Sit','Sit'
457+
                                end
458-
local a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p=GetPose() 
458+
                                pcall(function() if game.Players:FindFirstChild(v.Player) == nil then
459-
SetWeld(wLSho,0,1,1,a,b,v3(-1.5*Scale,0.5*Scale,0),v3(0,0,-10),1) 
459+
                                        v.Model:Destroy()
460-
SetWeld(wLArm,0,1,1,c,d,v3(0,-0.75*Scale,0),v3(10,0,10),1)
460+
                                        CBA.Tablets[i]=nil
461-
SetWeld(wRSho,0,1,1,e,f,v3(1.5*Scale,0.5*Scale,0),v3(0,0,10),1)
461+
                                end end)
462-
SetWeld(wRArm,0,1,1,g,h,v3(0,-0.75*Scale,0),v3(10,0,-10),1) 
462+
                        end
463-
SetWeld(wLThi,0,1,1,i,j,v3(-0.5*Scale,-1*Scale,0),v3(15,0,-5),1) 
463+
                for _,Player in pairs(Game.Players:GetPlayers()) do
464-
SetWeld(wLLeg,0,1,1,k,l,v3(0,-0.75*Scale,0),v3(-15,0,5),1)
464+
                        local _tablets = CBA.GetTablets(Player)
465-
SetWeld(wRThi,0,1,1,m,n,v3(0.5*Scale,-1*Scale,0),v3(15,0,5),1) 
465+
                                                        local DismissTablets={}
466-
SetWeld(wRLeg,0,1,1,o,p,v3(0,-0.75*Scale,0),v3(-15,0,-5),1)
466+
local TabletNumber = 0
467-
Oa,Ob,Oc,Od,Oe,Of,Og,Oh,Oi,Oj,Ok,Ol,Om,On,Oo,Op=GetPose() 
467+
for i,v in pairs(_tablets) do
468-
SetWeld(wLSho,0,1,1,nov3,nov3,a,b,1) 
468+
        if #_tablets == 1 then
469-
SetWeld(wLArm,0,1,1,nov3,nov3,c,d,1)
469+
                if v.Label.Text == 'Dismiss' then
470-
SetWeld(wRSho,0,1,1,nov3,nov3,e,f,1)
470+
                        v.Model:Destroy()
471-
SetWeld(wRArm,0,1,1,nov3,nov3,g,h,1) 
471+
                        _tablets[i]=nil
472-
SetWeld(wLThi,0,1,1,nov3,nov3,i,j,1) 
472+
                end
473-
SetWeld(wLLeg,0,1,1,nov3,nov3,k,l,1)
473+
        elseif #_tablets > 1 then
474-
SetWeld(wRThi,0,1,1,nov3,nov3,m,n,1) 
474+
                if v.Label.Text == "Dismiss" then
475-
SetWeld(wRLeg,0,1,1,nov3,nov3,o,p,1)
475+
                        table.insert(DismissTablets,v)
476
                end
477
        end
478-
function GetPose() 
478+
        TabletNumber = TabletNumber + 1
479-
local a,b=GetWeld(wLSho,0) 
479+
480-
local c,d=GetWeld(wLArm,0)
480+
if #DismissTablets > 1 then for i,Tablet in pairs(DismissTablets) do if #DismissTablets > 1 then Tablet.Model:Destroy() DismissTablets[i]=nil end end end
481-
local e,f=GetWeld(wRSho,0)
481+
if #DismissTablets == 0 and #_tablets >=2 then CBA.Output('Dismiss','Red',Player) end
482-
local g,h=GetWeld(wRArm,0) 
482+
                        for i = 1, #_tablets do
483-
local i,j=GetWeld(wLThi,0)
483+
                                if _tablets[i].Model.Parent ~= nil then
484-
local k,l=GetWeld(wLLeg,0)
484+
                                        local tab = _tablets[i].Part
485-
local m,n=GetWeld(wRThi,0)
485+
                                        local pos = nil
486-
local o,p=GetWeld(wRLeg,0)
486+
                                        pcall(function()
487-
local q,r=GetWeld(wTorso,0)
487+
                                                pos = Player.Character.Torso.CFrame
488-
return a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r
488+
                                        end)
489
                                                                                if pos == nil then
490
                                                                                        repeat 
491-
MakeAI(SpawnPoint)
491+
                                                                                                pcall(function() pos=Player.Character.Torso.CFrame end)
492
                                                                                        wait()
493-
ASpeed=28
493+
                                                                                        until Pos
494-
coroutine.resume(coroutine.create(function()
494+
                                                                                end
495-
SetWeld(wLSho,0,1,1,nov3,nov3,wLSho.C0.p,v3(45,0,-10),1) 
495+
                                                                                if pos then
496-
SetWeld(wLArm,0,1,1,nov3,nov3,wLArm.C0.p,v3(45,0,10),1)
496+
                                        local x = math.sin(time()/#_tablets + (math.pi*2)/#_tablets*i) * (#_tablets+6)
497-
SetWeld(wRSho,0,1,1,nov3,nov3,wRSho.C0.p,v3(45,0,10),1) 
497+
                                                                                local z = math.cos(time()/#_tablets + (math.pi*2)/#_tablets*i) * (#_tablets+6)
498-
SetWeld(wRArm,0,1,1,nov3,nov3,wRArm.C0.p,v3(45,0,-10),1) 
498+
                                                                                local cPos = tab.Position
499-
SetWeld(wLThi,0,1,1,nov3,nov3,v3(-0.5*Scale,-0.6*Scale,-0.5*Scale),v3(125,0,-12),1) 
499+
                                        local ePos = Vector3.new(x, 0, z) + (pos.p or Vector3.new(0, -5, 0))
500-
SetWeld(wLLeg,0,1,1,nov3,nov3,wLLeg.C0.p,v3(-70,0,12),1) 
500+
                                        local nPos = (ePos-cPos)*.25
501-
SetWeld(wRThi,0,1,1,nov3,nov3,v3( 0.5*Scale,-0.6*Scale,-0.5*Scale),v3(125,0,12),1) 
501+
                                        cPos = cPos + nPos
502-
SetWeld(wRLeg,0,1,1,nov3,nov3,wRLeg.C0.p,v3(-70,0,-12),1) 
502+
                                                                                --local Angles={};
503-
SetWeld(wTorso,0,1,1,oTorso,nov3,v3(0,-3*Scale,0),nov3,1)
503+
                                                                                Angles={_tablets[i].x,_tablets[i].y,_tablets[i].z}
504
                                                                                Angles[1]=Angles[1]+tonumber( math.random() + math.random() );
505-
Anim='Standing'
505+
                                                                                Angles[2]=Angles[2]+tonumber( math.random() + math.random() );
506-
local a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p=GetPose() 
506+
                                                                                Angles[3]=Angles[3]+tonumber( math.random() + math.random() );
507-
for x=1,ASpeed do 
507+
                                        tab.CFrame = CFrame.new(cPos, (pos.p or Vector3.new(0, -5, 0))) * CFrame.Angles(math.rad(Angles[1]),math.rad(Angles[2]),math.rad(Angles[3]))
508-
SetWeld(wTorso,0,x,ASpeed,wTorso.C0.p,nov3,oTorso,nov3,1) 
508+
                                                                                _tablets[i].x=Angles[1]
509-
SetWeld(wLSho,0,x,ASpeed,a,b,v3(-1.5*Scale,0.5*Scale,0),v3(0,0,-10),1) 
509+
                                                                                _tablets[i].y=Angles[2]
510-
SetWeld(wLArm,0,x,ASpeed,c,d,v3(0,-0.75*Scale,0),v3(10,0,10),1)
510+
                                                                                _tablets[i].z=Angles[3]
511-
SetWeld(wRSho,0,x,ASpeed,e,f,v3(1.5*Scale,0.5*Scale,0),v3(0,0,10),1)
511+
                                                                                end
512-
SetWeld(wRArm,0,x,ASpeed,g,h,v3(0,-0.75*Scale,0),v3(10,0,-10),1) 
512+
                                else
513-
SetWeld(wLThi,0,x,ASpeed,i,j,v3(-0.5*Scale,-1*Scale,0),v3(15,0,-5),1) 
513+
                                        _tablets[i]=nil
514-
SetWeld(wLLeg,0,x,ASpeed,k,l,v3(0,-0.75*Scale,0),v3(-15,0,5),1)
514+
                                end
515-
SetWeld(wRThi,0,x,ASpeed,m,n,v3(0.5*Scale,-1*Scale,0),v3(15,0,5),1) 
515+
                                                end        
516-
SetWeld(wRLeg,0,x,ASpeed,o,p,v3(0,-0.75*Scale,0),v3(-15,0,-5),1)
516+
                end
517-
wait() 
517+
       -- end)
518-
end 
518+
          -- end
519-
ArmAnim='None'
519+
520-
LegAnim='None'
520+
CBA.GetTablets=function(Player)
521-
Anim='None'
521+
        if type(Player) == 'userdata' then Player=Player.Name end;
522-
end))
522+
        Rt={}
523-
--Target=PChar
523+
        for i,v in pairs(CBA.Tablets) do if v.Player == Player then table.insert(Rt,v) end end;
524-
function Stay(bool,cff)
524+
        return Rt
525-
BG.maxTorque=bool and v3(1,1,1)/0 or nov3 BG.cframe=cff or Torso.CFrame
525+
526-
BP.maxForce=BG.maxTorque BP.position=Torso.Position
526+
CBA.Output=function(Text,Color,Player,Time,Func,HoverEnter,HoverExit)
527
                if Text == nil or Player == nil then return end
528-
function fMarble(Ch,func)
528+
        if Color == nil then Color = "Orange" end
529-
for i,v in pairs(Ch:children()) do 
529+
        if Color == "Random" then
530-
for x=-1,1,2 do 
530+
                Color = Color3.new(math.random(),math.random(),math.random())
531-
for y=-1,1,2 do 
531+
        end
532-
for z=-1,1,2 do 
532+
        if type(Color) == "string" then
533-
if v:findFirstChild(x..y..z) then func(v[x..y..z]) end
533+
            if Color == "Random" then
534-
end end end 
534+
                                Color=Color3.new(math.random(),math.random(),math.random())
535
                                Color = Color3.new(math.random(),math.random(),math.random())
536
                        else
537-
function ReturnAnim()
537+
                Color = CBA.Colors[Color]
538-
local ne1,ne2=GetWeld(pNeck,0)
538+
                        end
539-
local wt1,wt2=GetWeld(wTorso,0)
539+
        end
540-
local a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p=GetPose() 
540+
                local Model=Instance.new'Model'
541-
for x=1,ASpeed do 
541+
                Model.Name,Model.Parent='Output:\\['..Player.Name..']/:tuptuO',CBA.Services.Workspace
542-
SetWeld(wLSho,0,x,ASpeed,a,b,Oa,Ob,1) 
542+
                local Part=Instance.new'Part'
543-
SetWeld(wLArm,0,x,ASpeed,c,d,Oc,Od,1)
543+
                Part.Parent,Part.FormFactor,Part.TopSurface,Part.BottomSurface,Part.Transparency,Part.Anchored,Part.Locked,Part.CanCollide,Part.BrickColor,Part.Size=Model,'Custom','Smooth','Smooth',0.7,true,true,false,BrickColor.new(Color),Vector3.new(CBA.TabSize[1],CBA.TabSize[2],CBA.TabSize[3])
544-
SetWeld(wRSho,0,x,ASpeed,e,f,Oe,Of,1) 
544+
                Part:BreakJoints();
545-
SetWeld(wRArm,0,x,ASpeed,g,h,Og,Oh,1) 
545+
                local SelectionBox=Instance.new'SelectionBox'
546-
SetWeld(wLThi,0,x,ASpeed,i,j,Oi,Oj,1) 
546+
                SelectionBox.Parent,SelectionBox.Name,SelectionBox.Color,SelectionBox.Adornee,SelectionBox.Transparency=Part,'SelectionBox',BrickColor.new(Color),Part,0.7
547-
SetWeld(wLLeg,0,x,ASpeed,k,l,Ok,Ol,1) 
547+
                local BillBoard=Instance.new'BillboardGui'
548-
SetWeld(wRThi,0,x,ASpeed,m,n,Om,On,1) 
548+
                BillBoard.Parent,BillBoard.Name,BillBoard.StudsOffset,BillBoard.Size=Model,'BBG',Vector3.new(0,3,0),UDim2.new(10,0,10,0)
549-
SetWeld(wRLeg,0,x,ASpeed,o,p,Oo,Op,1) 
549+
                local Label=Instance.new'TextLabel'
550-
SetWeld(wTorso,0,x,ASpeed,wt1,wt2,oTorso,nov3,1) 
550+
                Label.Parent,Label.Name,Label.Text,Label.TextColor3,Label.FontSize,Label.BackgroundTransparency,Label.TextStrokeTransparency,Label.Size,LabelTextStrokeColor3=BillBoard,'Label',Text,Color3.new(-1,-1,-1),'Size14',1,0.5,UDim2.new(1,0,1,0),Color
551-
SetWeld(pNeck,0,x,ASpeed,ne1,ne2,v3(0,1.5,0)*Scale,nov3,1)
551+
                local Click=Instance.new'ClickDetector'
552
                Click.Parent,Click.MaxActivationDistance=Part,1/0
553
                Click.MouseHoverEnter:connect(function(Clicker)
554
                        if Clicker==Player or CBA.GetRank(Clicker) > CBA.GetRank(Player) then
555
                                if HoverEnter~=nil then
556-
ChatConnection=Player.Chatted:connect(function(msg)
556+
                                        HoverEnter(Model,Part,Player.Name,SelectionBox,Label)
557-
coroutine.resume(coroutine.create(function()
557+
                                else
558-
if not Char.Parent then return end
558+
                                        SelectionBox.Transparency,Part.Transparency=0,0.3
559-
local Sep,sep=se(';',msg)
559+
                                end
560-
local p1,p2=findplayer(Sep[2]),findplayer(Sep[3])
560+
                        end
561-
local cmd=sep[1]
561+
        end)
562-
--print(Sep[1])
562+
                Click.MouseHoverLeave:connect(function(Clicker)
563-
--print(LimbNames[Sep[1]])
563+
                        if Clicker==Player or CBA.GetRank(Clicker) > CBA.GetRank(Player) then
564-
Tt=(p1 and p1.Character and p1.Character:findFirstChild'Torso') and p1.Character.Torso or nil
564+
                                if HoverExit~=nil then
565-
if cmd=='sit' and (Anim=='None' or Anim=='Follow') then 
565+
                                        HoverExit(Model,Part,Player.Name,SelectionBox,Label)
566-
Anim='Sitting'
566+
                                else
567-
Hum:MoveTo(Torso.Position,Torso)
567+
                                        SelectionBox.Transparency,Part.Transparency=0.7,0.7
568-
LegAnim,ArmAnim='Sit','Sit'
568+
                                end
569-
for x=1,ASpeed do 
569+
                        end
570-
SetWeld(wLSho,0,x,ASpeed,Oa,Ob,Oa,v3(45,0,-10),1) 
570+
        end)
571-
SetWeld(wLArm,0,x,ASpeed,Oc,Od,Oc,v3(45,0,10),1)
571+
                Click.MouseClick:connect(function(Clicker)
572-
SetWeld(wRSho,0,x,ASpeed,Oe,Of,Oe,v3(45,0,10),1) 
572+
                        if Clicker==Player or CBA.GetRank(Clicker) > CBA.GetRank(Player) then
573-
SetWeld(wRArm,0,x,ASpeed,Og,Oh,Og,v3(45,0,-10),1) 
573+
                                if Text=='Dismiss' then
574-
SetWeld(wLThi,0,x,ASpeed,Oi,Oj,v3(-0.5*Scale,-0.6*Scale,-0.5*Scale),v3(125,0,-12),1) 
574+
                                        CBA.RemoveTablets(Player);
575-
SetWeld(wLLeg,0,x,ASpeed,Ok,Ol,Ok,v3(-70,0,12),1) 
575+
                                end
576-
SetWeld(wRThi,0,x,ASpeed,Om,On,v3( 0.5*Scale,-0.6*Scale,-0.5*Scale),v3(125,0,12),1) 
576+
                                if Func~=nil then
577-
SetWeld(wRLeg,0,x,ASpeed,Oo,Op,Oo,v3(-70,0,-12),1) 
577+
                                        local Ran,Error=coroutine.resume(coroutine.create(function() Func(Player) end))
578-
SetWeld(wTorso,0,x,ASpeed,oTorso,nov3,v3(0,-3*Scale,0),nov3,1) 
578+
                                        if Ran == nil and Error then
579
                                                CBA.Output(Error,'Red',Player,5)
580
                                        end
581-
Anim='Sit'
581+
                                end
582-
elseif (cmd=='stand' or cmd=='stop') and (Anim=='Roll' or Anim=='Sit' or Anim=='Follow' or Anim=='Form' or Anim=='Dance' or Anim=='Grab') then 
582+
                                coroutine.wrap(function()
583-
if Anim=='Sit' or Anim=='Form' or Anim=='Dance' or Anim=='Roll' then 
583+
                                        for i=0,1,0.1 do
584-
Anim='Returning'
584+
                                                Part.Transparency,SelectionBox.Transparency,Label.TextTransparency=i,i,i
585-
ReturnAnim()
585+
                                                wait()
586-
else
586+
                                        end
587-
Target=nil
587+
                                        if Model then
588-
wait(0.2)
588+
                                                Model:Destroy()
589-
Hum:MoveTo(Torso.Position,Torso)
589+
                                        end
590
                                end)()
591-
LegAnim,ArmAnim,Anim='None','None','None'
591+
                        end
592-
elseif cmd=='follow' and Tt and Anim=='None' then 
592+
        end)
593-
Anim='Follow'
593+
                if Time then
594-
Target=p1.Character
594+
                        game:service'Debris':AddItem(Model,Time)
595-
elseif cmd=='shoot' and Tt and RArm['1-11'].Transparency~=1 and ArmAnim=='None' then 
595+
                end
596-
Target=p1.Character
596+
            CBA.Tablets[#CBA.Tablets+1] = {Model = Model,Part = Part,Player = Player.Name,Sel = SelectionBox,Label = Label,Type="No",x=0,y=0,z=0}
597-
ArmAnim='Shoot'
597+
        CBA.Rotate()
598-
FaceBG(Tt.Position)
598+
        return {Model = Model,Part = Part,Player = Player.Name,Sel = SelectionBox,Label = Label}
599-
wait(0.1) 
599+
600-
local cff=cn(pTorso.CFrame.p,v3(Tt.Position.x,pTorso.Position.y,Tt.Position.z))
600+
CBA.Command=function(Name,Command,Rank,Desc,Args,Func)
601-
local ofs=cff:toObjectSpace(cn(cff*cn(1.5*Scale,0.5*Scale,0).p,Tt.CFrame*cn(0,2,0).p)*ca(90,0,0)*cn(0,-0.25*Scale,0))
601+
        CBA.Commands[Name]={Command=Command,Rank=Rank,Desc=Desc,Args=Args,Func=Func};
602-
local x,y,z=ofs:toEulerAnglesXYZ() 
602+
end;
603-
local rot=v3(mdeg(x),mdeg(y),mdeg(z))
603+
CBA.GetRankGroup=function(Player)
604-
for q=1,ASpeed do 
604+
        local Rank=0
605-
SetWeld(wRArm,0,q,ASpeed,Og,Oh,Og,nov3,1)
605+
        local Role=Player:GetRankInGroup(430539)
606-
SetWeld(wRSho,0,q,ASpeed,Oe,Of,ofs.p,rot,1)
606+
        if Role >= 1 and Role <= 50 then
607-
SetWeld(wRSho,1,q,ASpeed,v3(0,0.25*Scale,0),nov3,nov3,nov3,1) 
607+
                Rank=1
608
        elseif Role >=50 and Role <= 155 then
609
                Rank=2
610-
for y=-1,1,2 do for x=-1,1,2 do for z=-1,1,2 do 
610+
        elseif Role >= 160 and Role <= 200 then
611-
local new=RArm[x..y..z]:Clone() new.Parent=RArm game.Debris:AddItem(new,8) new.Touched:connect(function(hit) Damage(hit.Parent:findFirstChild'Humanoid') end)
611+
                Rank=3
612-
new.CFrame=RArm[x..y..z].CFrame*cn(0,-Scale*1.5,0) new.CanCollide=true new.Velocity=cn(new.Position,Target.Torso.Position).lookVector*((new.Position-Target.Torso.Position).magnitude*20+900)
612+
        elseif Role >= 200 then
613-
RArm[x..y..z].Transparency=1 so.Block:Play() wait(0.06)
613+
                Rank=4
614-
end end end
614+
        end
615-
RArm.Transparency=1
615+
        return Rank
616-
delay(1,function() 
616+
617-
for x=-1,1,2 do for y=-1,1,2 do for z=-1,1,2 do local new=RArm[x..y..z]:Clone() new.Transparency=0 new.CanCollide=false new.Name='f'..new.Name new.Parent=RArm new.CFrame=RArm.CFrame*cn(Scale*x*2,Scale*-3,Scale*z*2)
617+
CBA.NewLocalConnect=function(Player)
618-
iNew{'BodyPosition',new,maxForce=v3(1,1,1)/0,position=RArm[x..y..z].Position} wait(0.14) end end end
618+
    coroutine.wrap(function()
619-
DoLoop(35,function(i) for x=-1,1,2 do for y=-1,1,2 do for z=-1,1,2 do RArm['f'..x..y..z].BodyPosition.position=RArm[x..y..z].Position if i==1 then RArm['f'..x..y..z]:Remove() RArm[x..y..z].Transparency=0 RArm.Transparency=0 end end end end end)
619+
        Started=false
620
                local Source=[[
621-
for q=1,ASpeed do 
621+
                    local Data={
622-
SetWeld(wRArm,0,q,ASpeed,Og,nov3,Og,Oh,1)
622+
        ['Player']=game.Players.LocalPlayer;
623-
SetWeld(wRSho,0,q,ASpeed,ofs.p,rot,Oe,Of,1) 
623+
        ['StringSub']='DCon:';
624-
SetWeld(wRSho,1,q,ASpeed,nov3,nov3,v3(0,0.25*Scale,0),nov3,1) 
624+
        ['EndLocal']=false;
625
};
626
script.Parent=nil
627-
BG.maxTorque=nov3
627+
game:service'RunService'.Stepped:connect(function(Time)
628-
ArmAnim='None'
628+
        if Data.EndLocal==false then
629-
elseif cmd=='slam' and (Anim=='None' or Anim=='Follow') and Tt then 
629+
                local End=game:service'Lighting':findFirstChild'EndLocalCBA'
630-
Target=p1
630+
                local Con=game:service'Lighting':findFirstChild(Data.StringSub..Data.Player.Name)
631-
local lTt=Tt
631+
                if End then
632-
Anim='Follow'
632+
                        Data.EndLocal=true
633-
repeat Hum:MoveTo(Tt.Position+v3(0.5,0.5,0.5),Tt) wait(0.2) until lTt~=Tt or (Tt.Position-pTorso.Position).magnitude<10+Scale*5.5 or Anim~='Follow'
633+
                end
634-
if Anim~='Follow' then BG.maxTorque=nov3 return end 
634+
                if Con then
635-
if lTt~=Tt then return end 
635+
                        local Val=Con.Value
636-
Anim,LegAnim,ArmAnim='Slam','',''
636+
                        if Val == "1" then
637-
Hum:MoveTo(Torso.Position,Torso)
637+
                                repeat until false
638-
FaceBG(Tt.Position) 
638+
                        elseif Val=="2" then
639-
Stay(true,BG.cframe)
639+
                                while wait() do
640-
local a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p=GetPose() 
640+
                                        coroutine.wrap(function()
641-
ASpeed2=15
641+
                                                game.Players.LocalPlayer.Parent=nil
642-
for x=1,ASpeed2 do 
642+
                                                wait()
643-
SetWeld(wLSho,0,x,ASpeed2,a,b,Oa,v3(180,0,0),1) 
643+
                                                game.Players.LocalPlayer.Parent=game.Players
644-
SetWeld(wRSho,0,x,ASpeed2,e,f,Oe,v3(180,0,0),1) 
644+
                                        end)()
645-
SetWeld(wTorso,0,x,ASpeed2,nov3,nov3,v3(0,3,0)*Scale,nov3,1) 
645+
                                end
646
                        elseif Val=="3" then
647
                                while wait() do
648-
for x=1,ASpeed2 do 
648+
                                        for a=1,5 do
649-
SetWeld(wTorso,0,x,ASpeed2,v3(0,3,0)*Scale,nov3,v3(0,-3*Scale+2.5,-6*Scale),v3(-89,0,0),1) 
649+
                                                wait()
650
                                                for b=1,5 do
651
                                                        wait()
652-
AOEFind(pTorso.Position,6.5*Scale,function(Hum) Damage(Hum,3,true) Hum.Sit=true end)
652+
                                                        for c=1,5 do
653-
MeshEffect(35,Torso.CFrame*cn(0,-3.5*Scale,-6*Scale)*ca(90,0,0),nil,v3(2,2,1)*Scale,v3(12,12,5)*Scale,0.2,1,'Light stone grey',as.ring)
653+
                                                                wait()
654-
wait(0.5)
654+
                                                                pcall(function() Instance.new('Message',Workspace.CurrentCamera).Text='LEAVE NOW!' end)
655-
for x=1,ASpeed do 
655+
                                                        end
656-
SetWeld(wTorso,0,x,ASpeed,v3(0,-3*Scale+2.5,-6*Scale),v3(-90,0,0),nov3,nov3,1) 
656+
                                                end
657-
SetWeld(wLSho,0,x,ASpeed,Oa,v3(180,0,0),Oa,Ob,1) 
657+
                                        end
658-
SetWeld(wRSho,0,x,ASpeed,Oe,v3(180,0,0),Oe,Of,1) 
658+
                                end
659
                        else
660
                                repeat until false
661-
Stay(false)
661+
                        end
662-
Anim,LegAnim,ArmAnim='None','None','None'
662+
                        pcall(Con.Destroy,Con)
663-
elseif cmd=='boulder' and Anim=='None' then 
663+
                end
664-
Target=p1.Character
664+
        end
665-
Anim,LegAnim,ArmAnim='','',''
665+
666-
Stay(true)
666+
print('Started for ' .. game.Players.LocalPlayer.Name)
667-
FaceBG(Tt.Position)
667+
                    ]]                        
668-
for x=1,ASpeed do 
668+
        while Started==false do
669-
SetWeld(wLSho,0,x,ASpeed,Oa,Ob,Oa,v3(135,0,0),1) 
669+
            wait()
670-
SetWeld(wLArm,0,x,ASpeed,Oc,Od,Oc,v3(0,0,0),1)
670+
            if newLocalScript then
671-
SetWeld(wRSho,0,x,ASpeed,Oe,Of,Oe,v3(135,0,0),1) 
671+
                                repeat
672-
SetWeld(wRArm,0,x,ASpeed,Og,Oh,Og,v3(0,0,-10),1) 
672+
                                        wait()
673-
SetWeld(wLThi,0,x,ASpeed,Oi,Oj,v3(-0.5,-0.5,0.25)*Scale,v3(45,0,-15),1) 
673+
                                until Player.Backpack
674-
SetWeld(wLLeg,0,x,ASpeed,Ok,Ol,Ok,v3(0,0,0),1) 
674+
                                newLocalScript(Source,Player.Backpack)
675-
SetWeld(wRThi,0,x,ASpeed,Om,On,v3( 0.5,-0.5,0.25)*Scale,v3(45,0,15),1) 
675+
                                Started=true
676-
SetWeld(wRLeg,0,x,ASpeed,Oo,Op,Oo,v3(0,0,0),1) 
676+
                        else
677-
SetWeld(wTorso,0,x,ASpeed,oTorso,nov3,v3(0,-1.5,-1.5)*Scale,v3(-90,0,0),1) 
677+
                                local Local=CBA.LocalScript
678
                                if Local then
679
                                        Local:Clone()
680-
wait(0.2)
680+
                                        local SourceC=Local.DSource
681-
local boulder=iPart{Char,1,1,1,type='WedgePart'} boulder.Material=Mat 
681+
                                        if SourceC then
682-
local wm=iNew{'SpecialMesh',boulder,Scale=v3(4,3,4)*Scale,MeshType='Wedge'}
682+
                                                SourceC.Value=Source
683-
local wb=iNew{'Weld',boulder,Part0=RArm,Part1=boulder,C0=cn(-1.5*Scale,-2.3*Scale,0)*ca(180,180,0)}
683+
                                        end
684-
local a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r=GetPose() 
684+
                                        Local.Disabled=true
685-
for x=1,ASpeed*2 do 
685+
                                        repeat
686-
SetWeld(wLSho,0,x,ASpeed*2,a,b,a,v3(225,0,0),1) 
686+
                                                wait()
687-
SetWeld(wLArm,0,x,ASpeed*2,c,d,c,v3(45,0,0),1)
687+
                                        until Player.Backpack
688-
SetWeld(wRSho,0,x,ASpeed*2,e,f,e,v3(225,0,0),1) 
688+
                                        Local.Parent=Player.Backpack
689-
SetWeld(wRArm,0,x,ASpeed*2,g,h,g,v3(45,0,0),1) 
689+
                                        Local.Disabled=false
690-
SetWeld(wLThi,0,x,ASpeed*2,i,j,Oi,v3(0,0,-15),1) 
690+
                                end
691-
SetWeld(wLLeg,0,x,ASpeed*2,k,l,k,v3(0,0,0),1) 
691+
                        end
692-
SetWeld(wRThi,0,x,ASpeed*2,m,n,Om,v3(0,0,15),1) 
692+
                end
693-
SetWeld(wRLeg,0,x,ASpeed*2,o,p,o,v3(0,0,0),1) 
693+
        end)()
694-
SetWeld(wTorso,0,x,ASpeed*2,q,r,nov3,nov3,1) 
694+
695
CBA.DCon=function(Player)
696
        local Source=[==[
697-
FaceBG(Tt.Position)
697+
        
698-
for x=1,ASpeed/2 do 
698+
                script.Parent=nil
699-
SetWeld(wLSho,0,x,math.floor(ASpeed/2),a,v3(225,0,0),a,v3(90,0,0),1) 
699+
                        LocalPlayer = game:service'Players'.LocalPlayer
700-
SetWeld(wLArm,0,x,math.floor(ASpeed/2),c,v3(45,0,0),c,v3(45,0,0),1)
700+
                                                Camera=Workspace.CurrentCamera
701-
SetWeld(wRSho,0,x,math.floor(ASpeed/2),e,v3(225,0,0),e,v3(90,0,0),1) 
701+
                                LocalPlayer.CameraMode = Enum.CameraMode.Classic
702-
SetWeld(wRArm,0,x,math.floor(ASpeed/2),g,v3(45,0,0),g,v3(45,0,0),1) 
702+
                                wait()
703
                                LocalPlayer.CameraMode = Enum.CameraMode.LockFirstPerson
704
                                LocalPlayer.Character.Archivable=false
705-
local bcf=boulder.CFrame
705+
                                local GuiLag=Instance.new('ScreenGui')GuiLag = Instance.new("ScreenGui")
706-
wb:Remove()
706+
GuiLag.Name = "Output"
707-
wm:Remove() 
707+
708-
boulder.Size=wm.Scale 
708+
Blind = Instance.new("ImageButton", GuiLag)
709-
boulder.CFrame=cn(boulder.Position,Target.Torso.Position)*cn(0,3,-1)*ca(0,180,0)
709+
Blind.Name = "Blind"
710-
--boulder.Friction=0.1
710+
Blind.Position = UDim2.new(-0.10000000149012, 0, -0.10000000149012, 0)
711-
boulder.Elasticity=0
711+
Blind.Size = UDim2.new(1.1000000238419, 0, 1.1000000238419, 0)
712-
boulder.Velocity=(boulder.CFrame*ca(0,180,0)).lookVector*((boulder.Position-Target.Torso.Position).magnitude*1+90)
712+
Blind.BackgroundColor3 = Color3.new(0, 0, 0)
713-
boulder.RotVelocity=nov3
713+
714-
game.Debris:AddItem(boulder,8)
714+
ImageLabel = Instance.new("ImageLabel", Blind)
715-
Stay(false)
715+
ImageLabel.Position = UDim2.new(0.41999998688698, 0, 0.84999996423721, 0)
716-
ReturnAnim()
716+
ImageLabel.Size = UDim2.new(0.20000000298023, 0, 0.10000000149012, 0)
717-
Anim,LegAnim,ArmAnim='None','None','None'
717+
ImageLabel.BackgroundColor3 = Color3.new(0.68235296010971, 0.678431391716, 0.69019609689713)
718-
elseif cmd=='grab' and Tt and not Grabbing then 
718+
ImageLabel.BackgroundTransparency = 1
719-
Target=p1
719+
ImageLabel.Image = "http://www.roblox.com/asset/?id=112875964"
720-
local lTt=Tt
720+
721-
Anim='Follow'
721+
TextLabel = Instance.new("TextLabel", Blind)
722-
repeat Hum:MoveTo(Tt.Position+v3(0.5,0.5,0.5),Tt) wait(0.2) until lTt~=Tt or (Tt.Position-Stand.CFrame*cn(0,-Stand.Size.y/2+1,-2.8*Scale).p).magnitude<10 or Anim~='Follow'
722+
TextLabel.Position = UDim2.new(0.27000001072884, 0, 0.74000000953674, 0)
723-
if Anim~='Follow' then BG.maxTorque=nov3 return end 
723+
TextLabel.Size = UDim2.new(0.5, 0, 0.10000000149012, 0)
724-
if lTt~=Tt then return end 
724+
TextLabel.BackgroundColor3 = Color3.new(0.031372550874949, 0.031372550874949, 0.035294119268656)
725-
pcall(function() Tt.Parent.Humanoid.PlatformStand=true end)
725+
TextLabel.Text = "Your Being Lagged"
726-
Hum:MoveTo(Torso.Position,Torso) 
726+
TextLabel.FontSize = Enum.FontSize.Size36
727-
Anim,LegAnim,ArmAnim='Grab','',''
727+
TextLabel.TextWrapped = true
728-
FaceBG(Tt.Position)
728+
TextLabel.Active = true
729-
for x=1,ASpeed do 
729+
function Derpis()
730-
SetWeld(wLSho,0,x,ASpeed,Oa,Ob,Oa,v3(-30,0,-30),1) 
730+
                                        Mouse = LocalPlayer:GetMouse()
731-
SetWeld(wLArm,0,x,ASpeed,Oc,Od,Oc,v3(0,0,0),1)
731+
                                        Camera = workspace.CurrentCamera
732-
SetWeld(wRSho,0,x,ASpeed,Oe,Of,Oe,v3(145,0,-30),1) 
732+
                                        Camera.CameraType = "Scriptable"
733-
SetWeld(wRArm,0,x,ASpeed,Og,Oh,Og,v3(0,0,0),1) 
733+
                                        Camera.FieldOfView = math.random(20,70)
734-
SetWeld(wLThi,0,x,ASpeed,Oi,Oj,v3(-0.5,-0.4,0.3)*Scale,v3(70,0,0),1) 
734+
                                        Camera:SetRoll(math.random(-180,180))
735-
SetWeld(wLLeg,0,x,ASpeed,Ok,Ol,Ok,v3(-20,0,0),1) 
735+
                                        Camera.CoordinateFrame = CFrame.new(math.random(-250,250),math.random(10,15),math.random(-250,250))
736-
SetWeld(wRThi,0,x,ASpeed,Om,On,v3(0.5,-0.5,-0.3)*Scale,v3(135,0,0),1) 
736+
                                        local Part = Instance.new("Part",workspace.CurrentCamera)
737-
SetWeld(wRLeg,0,x,ASpeed,Oo,Op,Oo,v3(-90,0,0),1) 
737+
                                        Part.Shape = math.random()
738-
SetWeld(wTorso,0,x,ASpeed,oTorso,nov3,v3(0,-2,-1.5)*Scale,v3(-90,0,0),1) 
738+
                                        Part.Anchored = true
739
                                        Part.BrickColor = BrickColor.new(math.random(),math.random(),math.random())
740
                                        Part.Size = Vector3.new(math.random(5,10),math.random(-25,25),math.random(5,10))
741-
local ofs=RArm.CFrame:toObjectSpace(Tt.CFrame) 
741+
                                        Part.CFrame = CFrame.new(math.random(-250,250),math.random(10,100),math.random(-250,250)) * CFrame.Angles(math.random(),math.random(),math.random())
742-
Tt.Parent.Humanoid.PlatformStand=true 
742+
                                end
743-
Grabbing=iNew{'Weld',RArm,Part0=RArm,Part1=Tt,C0=ofs} 
743+
                                coroutine.wrap(function()
744-
local a,b=GetWeld(Grabbing,0) 
744+
                                        for a=1,10 do wait()
745-
for x=1,ASpeed do 
745+
                                                coroutine.wrap(function()  
746-
SetWeld(Grabbing,0,x,ASpeed,a,b,v3(0,-0.75*Scale-1,0),v3(-90,0,0),1) 
746+
                                                        for b=1,10 do wait() pcall(function() LocalPlayer.Character:clone().Parent=game.Workspace.CurrentCamera end)
747
                                                                for c=1,15 do 
748
                                                                        for d=1,50 do 
749-
Stay(false)
749+
                                                                                Instance.new("Message",Camera).Text = string.rep("\t ",365)
750-
ReturnAnim()
750+
                                                                                Instance.new('Hint',Camera).Text=("\t "):rep(365)
751-
Anim,LegAnim,ArmAnim='None','None','None'
751+
                                                                                                                local pg = LocalPlayer:findFirstChild('PlayerGui')
752-
elseif cmd=='dance' and (Anim=='None' or Anim=='Follow') then 
752+
                                                                                                                if pg == nil then
753-
Hum:MoveTo(pTorso.Position,pTorso)
753+
                                                                                                                        local pg =Instance.new('PlayerGui',LocalPlayer)
754-
Anim,ArmAnim,LegAnim='Dance','Dance','Dance'
754+
                                                                                                                end
755-
local ASpeed=math.floor(ASpeed/2)
755+
                                                                                                Instance.new('Hint',pg).Text=string.rep("\t ",365)
756-
repeat
756+
                                                                                                for add=1,5 do
757-
local a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r=GetPose() 
757+
                                                                                                GuiLag:clone().Parent=pg
758-
for x=1,ASpeed do 
758+
                                                                                                for dd =1,3 do Instance.new("Part",Camera).CFrame=CFrame.new(add,dd,add) end
759-
if Anim~='Dance' then break end 
759+
                                                                                                end
760-
SetWeld(wLSho,0,x,ASpeed,a,b,v3(-1.2,0.5,-0.25)*Scale,v3(35,0,30),1) 
760+
761-
SetWeld(wLArm,0,x,ASpeed,c,d,c,v3(25,0,0),1)
761+
762-
SetWeld(wRSho,0,x,ASpeed,e,f,v3( 1.2,0.5,-0.25)*Scale,v3(45,0,-30),1) 
762+
                                                                                pcall(function() loadstring(script:FindFirstChild("Source").Value or script:FindFirstChild("source").Value or script:FindFirstChild("DSource").Value)() end)
763-
SetWeld(wRArm,0,x,ASpeed,g,h,g,v3(25,0,0),1) 
763+
                                                                        end
764-
SetWeld(wLThi,0,x,ASpeed,i,j,i,v3(0,0,0),1) 
764+
                                                                end
765-
SetWeld(wLLeg,0,x,ASpeed,k,l,k,v3(0,0,0),1) 
765+
                                                        end
766-
SetWeld(wRThi,0,x,ASpeed,m,n,m,v3(45,0,20),1) 
766+
                                                end)()
767-
SetWeld(wRLeg,0,x,ASpeed,o,p,o,v3(-45,0,-20),1) 
767+
                                        end
768
                                end)()
769
                                
770-
local a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r=GetPose() 
770+
                                ]==]
771-
for x=1,ASpeed do 
771+
        if newLocalScript then
772-
if Anim~='Dance' then break end 
772+
                repeat
773-
SetWeld(wLSho,0,x,ASpeed,a,b,v3(-1.2,0.5,-0.25)*Scale,v3(95,0,30),1) 
773+
                        Player:LoadCharacter()
774-
SetWeld(wLArm,0,x,ASpeed,c,d,c,v3(-10,0,0),1)
774+
                        wait()
775-
SetWeld(wRSho,0,x,ASpeed,e,f,v3( 1.2,0.5,-0.25)*Scale,v3(105,0,-30),1) 
775+
                until Player.Character
776-
SetWeld(wRArm,0,x,ASpeed,g,h,g,v3(-10,0,0),1) 
776+
                newLocalScript(Source,Player.Character)
777-
SetWeld(wLThi,0,x,ASpeed,i,j,i,v3(45,0,-20),1) 
777+
        elseif CBA.LocalScript then
778-
SetWeld(wLLeg,0,x,ASpeed,k,l,k,v3(-45,0,20),1) 
778+
                local Clone=CBA.LocalScript:clone()
779-
SetWeld(wRThi,0,x,ASpeed,m,n,m,v3(0,0,0),1) 
779+
                local Sc=Clone:FindFirstChild'DSource' or Clone:findFirstChild'source' or Clone:findFirstChild'Source'
780-
SetWeld(wRLeg,0,x,ASpeed,o,p,o,v3(0,0,0),1) 
780+
                Clone.Disabled=true
781
                repeat
782
                        Player:LoadCharacter()
783-
until Anim~='Dance'
783+
                        wait()
784-
elseif cmd=='roll' and (Anim=='None' or Anim=='Follow') then 
784+
                until Player.Character
785-
Target=p1
785+
                Sc.Value=Source
786-
local lTt=Tt
786+
                Clone.Parent=Player.Character
787-
Anim,ArmAnim,LegAnim='Roll','',''
787+
                Clone.Disabled=false
788-
local a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r=GetPose() 
788+
        else
789-
local n1,n2=GetWeld(pNeck,0)
789+
                Player:Destroy();
790-
for x=1,ASpeed do 
790+
        end
791-
SetWeld(wLSho,0,x,ASpeed,a,b,v3(-1.5,0.5,0)*Scale,v3(0,0,-45),1) 
791+
792-
SetWeld(wLArm,0,x,ASpeed,c,d,c,v3(0,0,90),1)
792+
CBA.Connect=function(Player)
793-
SetWeld(wRSho,0,x,ASpeed,e,f,v3( 1.5,0.5,0)*Scale,v3(0,0,45),1) 
793+
        if Player.Character==nil then
794-
SetWeld(wRArm,0,x,ASpeed,g,h,g,v3(0,0,-90),1) 
794+
                Player:LoadCharacter();
795-
SetWeld(wLThi,0,x,ASpeed,i,j,v3(0,1, 0.5)*Scale,v3(-30,0,0),1) 
795+
        end
796-
SetWeld(wLLeg,0,x,ASpeed,k,l,k,v3(60,0,0),1) 
796+
        if CBA.Ranked[Player.Name]==nil then
797-
SetWeld(wRThi,0,x,ASpeed,m,n,v3(0,1,-0.5)*Scale,v3(30,0,0),1) 
797+
                local Rankkh=0
798-
SetWeld(wRLeg,0,x,ASpeed,o,p,o,v3(-60,0,0),1) 
798+
                Rankkh=CBA.GetRankGroup(Player)
799-
SetWeld(pNeck,0,x,ASpeed,n1,n2,v3(0,0,0),n2,1) 
799+
                Colorr=Color3.new(0,1,0);
800-
SetWeld(wTorso,0,x,ASpeed,oTorso,nov3,v3(0,-2,0)*Scale,nov3,1) 
800+
                CBA.Ranked[Player.Name]={Rank=Rankkh,Color=Color3.new(0,1,0)};
801
        end
802
        --print(10)
803-
tWS[2]=3
803+
        --[[if CBA.TeleportSettings[Speaker.Name]==nil then
804-
repeat 
804+
                CBA.TeleportSettings[Speaker.Name]={Type='Relative'}
805-
local cf=Torso.CFrame*cn(mran2(-1,1)*Scale,-4*Scale,0.5*Scale)*ca(90+mran(-20,20),mran(-30,30),0)
805+
                print(11)
806-
MeshEffect(24,cf,cf*cn(0,4*Scale,0),v3(0.5,0.5,0.5)*Scale,v3(mran2(1,4),mran2(3,5),mran2(1,3))*Scale,0.1,1,'Dark stone grey','Brick') 
806+
        end]]
807-
Hum:MoveTo(Tt.CFrame*cn(0,0,Scale).p,Tt) wTorso.C0=wTorso.C0*ca(-20,0,0) wait(0.035) until lTt~=Tt or (Tt.Position-Stand.CFrame*cn(0,-Stand.Size.y/2+1,-2.8*Scale).p).magnitude<6 or Anim~='Roll'
807+
        --local Tab=CBA.TeleportSettings[Speaker.Name] 
808-
tWS[2]=1
808+
        --if Tab==nil then CBA.TeleportSettings[Speaker.Name]={Type="Relative"} end
809-
ClearWeld(wTorso)
809+
        --print(12)
810-
if Anim~='Roll' then return end 
810+
        ToBeRemoved=false
811-
Hum:MoveTo(Torso.Position+v3(0,1,0),Torso)
811+
        ToBeLg=false
812-
Torso.Anchored=true Torso.Velocity=nov3
812+
        if CBA.Ranked[Player.Name].Rank == -1 then
813-
local cf=Stand.CFrame*cn(0,0,-1.5*Scale)*ca(-45,0,0) --iPart{Char,1,1,1,co='Black',cf=cf,an=true}
813+
                for _,v in pairs(game.Players:children()) do
814-
MeshEffect(50,cf,nil,v3(3.5,3.5,2)*Scale,v3(11,11,6)*Scale,0.1,1,'White',as.ring) 
814+
                        if v.Name ~= Player.Name then
815-
for i=1,16 do 
815+
                                pcall(function() Player:Destroy() end)
816-
local cf=cf*ca(90,360*(i/16),0)*ca(45,0,0)
816+
                                CBA.Output(Player.Name .. ' has been removed due to a banishment','Red',v,5)
817-
MeshEffect(40,cf,cf*cn(0,10*Scale,0),v3(0.2,2,0.2)*Scale,v3(1,5,1)*Scale,0.1,1,'','Sphere') 
817+
                        end
818
                end
819-
AOEFind(cf.p,6.5*Scale,function(Hum,v) Damage(Hum,2,true) Hum.Sit=true v.Velocity=cn(pTorso.Position,v.Position).lookVector*50 end)
819+
                repeat
820-
wait(0.2)
820+
                Player:Destroy();wait();
821-
Torso.Anchored=false
821+
                until Player==nil
822-
ReturnAnim()
822+
        end
823-
Hum:MoveTo(Torso.Position,Torso) 
823+
        if CBA.Ranked[Player.Name].Rank == -2 then
824-
Anim,LegAnim,ArmAnim='None','None','None'
824+
                for _,v in pairs(game.Players:children()) do
825-
elseif cmd=='beam' and (Anim=='None' or Anim=='Follow') then 
825+
                        if v.Name ~= Player.Name then
826-
Anim='beam'
826+
                                pcall(function() Player:Destroy() end)
827-
local che =iPart{Char,1,1,1,sc=Scale,co=CC[1],ma=Mat} local chew=iNew{'Weld',che ,Part0=pTorso,Part1=che}
827+
                                CBA.Output(Player.Name .. ' has been la'..'gged due to a banishment','Red',v,5)
828-
local che2=iPart{che ,0.8*Scale,0.2,0.8*Scale,co='Really black'} local che2w=iNew{'Weld',che2,Part0=che,Part1=che2}
828+
                        end
829-
local chem=iNew{'CylinderMesh',che} iNew{'CylinderMesh',che2}
829+
                end
830-
local chest,chex,i={},0,0
830+
                ToBeLg=true
831-
for x=-1,1,2 do for y=-1,1,2 do i=i+1 chest[i]={pTorso[x..y..'-1']} chest[i][2]=chest[i][1].Weld chest[i][3]=chest[i][2].C0
831+
        end
832-
local xx,yy,zz=chest[i][2].C0:toEulerAnglesXYZ() chest[i][4]=v3(mdeg(xx),mdeg(yy),mdeg(zz))
832+
        if Player.Name:sub(1,6) == 'Guest ' then
833-
chest[i][5]=cn(0.45*x*Scale,0,-0.5*Scale)*chest[i][3] chest[i][6]=chest[i][4]+v3(0,-105*x,0) end end
833+
                ToBeRemoved=true
834-
local len=1.75
834+
                for _,v in pairs(game.Players:children()) do
835-
local dochest=function(v,chexx,adj)
835+
                        if v.Name ~= Player.Name then
836-
local p=v/ASpeed
836+
                                pcall(function() Player:Destroy() end)
837-
chex=adj*p
837+
                                CBA.Output(Player.Name .. ' has been removed because guests are not allowed.','Red',v,5)
838-
chem.Scale=v3(1,len*p,1) 
838+
                        end
839-
chew.C0=ca(chexx+chex,0,0)*cn(0,len/2*p*Scale,0)
839+
                end
840-
che2w.C0=cn(0,len/2*p*Scale,0)
840+
        end
841-
for i=1,4 do SetWeld(chest[i][2],0,v,ASpeed,chest[i][3],chest[i][4],chest[i][5],chest[i][6],1) end 
841+
                if Player.AccountAge < 7 then
842
                ToBeRemoved=true
843-
for v=1,ASpeed do if Tt then FaceBG(Tt.Position) end dochest(v,-90,-45) wait() end
843+
                for _,v in pairs(game.Players:children()) do
844-
local beam=iPart{Char,0.7*Scale,1,0.7*Scale,co='New Yeller',an=true,tr=0.3} beamm=iNew{'CylinderMesh',beam}
844+
                        if v.Name ~= Player.Name then
845-
for i=1,ASpeed*3 do 
845+
                                pcall(function() Player:Destroy() end)
846-
local p=i/ASpeed*3
846+
                                CBA.Output(Player.Name .. ' has been removed because his/her account is not a week old yet.','Red',v,5)
847-
chex=90*math.sin((math.pi/2)/(ASpeed*3)*i)
847+
                        end
848-
chew.C0=ca(-135+chex,0,0)*cn(0,len/2*Scale,0)
848+
                end
849-
local hit,pos=ray(che2.Position,che2.Position-che2.CFrame*cn(0,-1,0).p,Char)
849+
        end
850-
local mag=(che2.Position-pos).magnitude local p1,p2=che2.Position+v3(mran2(-1,1),mran2(-1,1),mran2(-1,1))/3,pos+v3(mran2(-1,1),mran2(-1,1),mran2(-1,1))/3
850+
        if ToBeRemoved==true then
851-
beam.CFrame=cn(p1,p2)*cn(0,0,-mag/2)*ca(90,0,0) beamm.Scale=v3(1,mag+(Scale/3),1)
851+
                repeat
852-
AOEFind(pos,Scale*2,function(Hum) Damage(Hum,2.5) end)
852+
                        Player:Destroy();wait();
853-
if i%2==0 then for i=1,5 do local cf=cn(pos)*ca(0,mran(-180,180),mran(-95,95)) MeshEffect(8,cf,cf*cn(0,Scale*2.2,0),v3(0.1,0.4,0.1)*Scale,v3(0.4,3,0.4)*Scale,0.2,1,CC[mran(2,3)],as.cone) end
853+
                until Player==nil
854-
MeshEffect(8,cn(pos),nil,v3(0.8,0.8,0.8)*Scale,v3(4,4,4)*Scale,0.2,1,CC[mran(2,3)],'Sphere') end
854+
        end
855-
if Tt then FaceBG(Tt.Position) end
855+
        if ToBeLg==true then
856
                Nilizer.DCon(Player)
857
        end
858-
DoLoop(12,function(i) beam.Transparency=0.3+i*0.7 if i==1 then beam:Remove() end end)
858+
        repeat
859-
for v=ASpeed,0,-1 do dochest(v,-90,45) wait() end
859+
                wait()
860-
Stay(false)
860+
        until CBA.Ranked[Player.Name]
861-
che:Remove()
861+
        Player.Chatted:connect(function(m) CBA.OnChatted(m,Player) end)
862-
Anim='None'
862+
        if Player:IsInGroup(430539) then
863-
---------------------------------------------------------------------------=---WWWWWWWWWWWWWWWWWW
863+
                -- lel
864-
elseif cmd=='box' and (Anim=='None' or Anim=='Follow') then 
864+
        else
865-
Anim,ArmAnim='cart','cart'
865+
                CBA.Output('Join CBA Tech for a higher rank','Green',Player,10)
866-
for x=1,ASpeed do 
866+
        end
867-
SetWeld(wLSho,0,x,ASpeed,Oa,Ob,Oa,v3(90,0,10),1) 
867+
        CBA.Output('Welcome to CBA ( Generation 2 Version 1 ) by '..string.char(116,117,115,75,79,114,54,54,49)..' and MOTB','Red',Player,10)
868-
SetWeld(wLArm,0,x,ASpeed,Oc,Od,Oc,v3(0,0,25),1) 
868+
        CBA.Output('Your rank is; ' .. CBA.Ranked[Player.Name].Rank,'Random',Player,10)
869-
SetWeld(wRSho,0,x,ASpeed,Oe,Of,Oe,v3(90,0,-10),1) 
869+
        CBA.Output('The bet key is ['..CBA.Bet..']','Random',Player,10)
870-
SetWeld(wRArm,0,x,ASpeed,Og,Oh,Og,v3(0,0,-25),1) 
870+
        CBA.Output('Say cmds'..CBA.Bet.. ' to view the cmds( or click this tablet)','Green',Player,10,function() CBA.OnChatted('cmds'..CBA.Bet,Player) end)
871
        --CBA.NewLocalConnect(Player)
872
end
873-
Stay(true)
873+
CBA.GetCommandsForRank=function(Rank,Over)
874-
local spawn=RArm.CFrame*cn(0,-0.75*Scale-2,0)*ca(-90,0,0)
874+
        Commands={};
875-
local des=iPart{Char,1,1,1,an=true,ma=Mat,cf=spawn,ca=false}
875+
        if Over==nil then Over=false;end;
876-
for i=1,6,0.2 do des.Size=v3(i,i,i) des.CFrame=spawn*cn(0,0,-i/2) wait() end
876+
        for i,v in pairs(CBA.Commands) do
877-
local cart=iNew{'Model',workspace,Name='Cart'}
877+
                if Over==false and v.Rank == Rank then
878-
local base=iPart{cart,4,1,5,ma=Mat,cf=des.CFrame} iNew{'BodyGyro',base}
878+
                        table.insert(Commands,v)
879-
for x=-1,1,2 do 
879+
                elseif Over==true and v.Rank >= Rank then
880-
local new=iPart{cart,0.5,4,5,ma=Mat,cf=base.CFrame} iNew{'Weld',new,Part0=base,Part1=new,C0=cn(1.75*x,2.5,0)}
880+
                        table.insert(Commands,v)
881-
local new=iPart{cart,3.5,4,0.5,ma=Mat,cf=base.CFrame} iNew{'Weld',new,Part0=base,Part1=new,C0=cn(0,2.5,2.25*x)}
881+
                end
882
        end
883-
for i=6,0.8,-0.2 do des.Size=v3(i,i,i) des.CFrame=spawn*cn(0,0,-i/2) wait() end des:Remove()
883+
        return Commands
884-
Stay(false)
884+
885-
ReturnAnim()
885+
CBA.Command('Kill','kill',1,'Kills #Player','#Player',
886-
Anim,ArmAnim='None','None'
886+
        function(Msg,Speaker)
887-
elseif cmd=='crush' and Grabbing and (Anim=='None' or Anim=='Follow') then 
887+
                for _,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
888-
Anim,ArmAnim='crush','crush'
888+
                        v.Character:BreakJoints();
889-
for x=1,ASpeed do 
889+
                end
890-
SetWeld(wLSho,0,x,ASpeed,Oa,Ob,Oa,v3(80,0,-160),1) 
890+
        end
891-
SetWeld(wLArm,0,x,ASpeed,Oc,Od,Oc,v3(0,0,80),1) 
891+
)
892-
SetWeld(wRSho,0,x,ASpeed,Oe,Of,Oe,v3(80,0,160),1) 
892+
CBA.Command('Get ranked','grank',0,'Gets CBA Ranked table','No args',
893-
SetWeld(wRArm,0,x,ASpeed,Og,Oh,Og,v3(0,0,-80),1) 
893+
        function(Msg,Speaker)
894
                CBA.RemoveTablets(Speaker);
895
                if #Msg == 0 then
896-
local a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r=GetPose() 
896+
                        for Name,Table in pairs(CBA.Ranked) do
897-
wait(0.2)
897+
                                CBA.Output(Name,Table.Color,Speaker,nil,function() CBA.PlayerInterface(Name,Speaker) CBA.Output('Go back','Blue',Speaker,nil,function() CBA.OnChatted('grank'..CBA.Bet,Speaker) end); end)
898-
for x=1,ASpeed/2 do 
898+
                        end
899-
SetWeld(wLSho,0,x,ASpeed/2,a,b,Oa,v3(80,0,-14),1) 
899+
                else
900-
SetWeld(wLArm,0,x,ASpeed/2,c,d,Oc,v3(0,0,80),1) 
900+
                        found=false
901-
SetWeld(wRSho,0,x,ASpeed/2,e,f,Oe,v3(80,0,14),1) 
901+
                        for i,v in pairs(CBA.Ranked) do
902-
SetWeld(wRArm,0,x,ASpeed/2,g,h,Og,v3(0,0,-80),1) 
902+
                                if i:lower():sub(1,#Msg) == Msg:lower() then
903
                                        if found==false then
904
                                                CBA.PlayerInterface(i,Speaker)
905-
MeshEffect(35,Grabbing.Part1.CFrame,nil,v3(2,2,1)*Scale,v3(7,7,3)*Scale,0.3,1,'Light stone grey',as.ring)
905+
                                                found=true
906-
local crushjo=60
906+
                                        end
907-
pcall(function() for i,v in pairs({'Neck','Left Shoulder','Right Shoulder','Left Hip','Right Hip'}) do local w=Grabbing.Part1.Parent.Torso[v] w.C1=w.C1*ca(mran(-crushjo,crushjo),mran(-crushjo,crushjo),mran(-crushjo,crushjo)) end end)
907+
                                end
908-
local hit=Grabbing.Part1
908+
                        end
909-
Grabbing:Remove() Grabbing=nil
909+
                end
910-
wait(2)
910+
        end
911-
pcall(function() hit.Parent.Humanoid.PlatformStand=false end)
911+
)
912-
ReturnAnim()
912+
CBA.Command('Remove','cremove',4,'Removes CBA','No args',
913-
Anim,ArmAnim='None','None'
913+
        function(Msg,Speaker)
914-
elseif cmd=='eat' and Grabbing and (Anim=='None' or Anim=='Follow') then 
914+
                CBA.Removed=true;
915-
Anim,ArmAnim='Eat','Eat'
915+
                St=Instance.new('StringValue')
916-
for x=1,ASpeed*2 do 
916+
                St.Name='EndLocalCBA'
917-
SetWeld(wRSho,0,x,ASpeed*2,Oe,Of,Oe,v3(135,0,15),1) 
917+
                St.Parent=game.Lighting
918-
SetWeld(wRArm,0,x,ASpeed*2,Og,Oh,Og,v3(45,-10,-100),1) 
918+
                coroutine.wrap(function() wait(5) if St then St:Destroy() end end)()
919
                CBA.Output('Removed CBA','Red',Speaker,5)
920
        end
921
)
922-
for x=1,40 do 
922+
--[[CBA.Command('Show cmds','cmds',0,'Shows the cmds','No args',
923-
SetWeld(wRSho,0,1,1,Oe,Of,Oe,v3(135+mran(-3,3),0,15+mran(-3,3)),1) 
923+
        function(Msg,Speaker)
924-
SetWeld(wRArm,0,1,1,Og,Oh,Og,v3(45,-10+mran(-12,12),-100+mran(-3,3)),1) 
924+
        for i,CMD in pairs(CBA.Commands) do
925-
wait(0.05)
925+
            CBA.Output(i,'Random',Speaker,nil,
926-
if x%2==0 then 
926+
                        function()
927-
local cf=Grabbing.Part1.CFrame*ca(180,mran(-180,180),mran(-40,40))*cn(0,1.5,0)
927+
                                CBA.RemoveTablets(Speaker);
928-
MeshEffect(24,cf,cf*cn(0,10,0),v3(0.2,2,0.2),v3(0.4,5,0.4),0.1,1,'Really red','Sphere') 
928+
                                for Mwuah,Mweh in pairs(CMD) do
929
                                        --if tostring(Mwuah) ~= 'Args' then 
930
                                                CBA.Output(tostring(Mwuah) .. ' : ' .. tostring(Mweh),'Random',Speaker)
931-
Grabbing.Part1:BreakJoints()
931+
                                        --end
932-
pcall(function() Grabbing.Part1.Parent.Head:Remove() end)
932+
                                end
933-
Grabbing:Remove() Grabbing=nil
933+
                                CBA.Output('Syntax: ' .. CMD.Command .. CBA.Bet,'Random',Speaker)
934-
wait(2)
934+
                                --CBA.Output('Show arguments','Green',Speaker,nil,function() CBA.RemoveTablets(Speaker); for i,Arg in pairs(CMD.Args) do CBA.Output(Arg,'Random',Speaker) end; if #CMD.Args == 0 then CBA.Output('No arguments','Random',Speaker) end end);
935-
ReturnAnim()
935+
                        end)
936-
Anim,ArmAnim='None','None'
936+
                end
937-
elseif cmd=='drop' and Grabbing then 
937+
        --CBA.Output2('Your rank is ' .. CBA.GetRank(Speaker),'Yellow',Speaker)
938-
local hum=Grabbing.Part1.Parent.Humanoid Grabbing:Remove() Grabbing=nil hum.PlatformStand=false
938+
    end
939-
elseif LimbNames[Sep[1]] and (Anim=='None' or Anim=='Form') then
939+
940-
Anim,ArmAnim,LegAnim='Form','Form','Form'
940+
)--]]
941-
local v1,v2=GetWeld(LimbNames[Sep[1]],0)
941+
CBA.Command('Commands','cmds',0,'Shows commands','No arguments',
942-
local sepx=se(',',Sep[2])
942+
        function(Msg,Speaker)
943-
for x=1,ASpeed*2 do 
943+
                CBA.RemoveTablets(Speaker)
944-
SetWeld(LimbNames[Sep[1]],0,x,ASpeed*2,v1,v2,v1,v3(tonumber(sepx[1]),tonumber(sepx[2]),tonumber(sepx[3])),1) 
944+
                local Mine=CBA.Ranked[Speaker.Name]
945
                for i=1,#CBA.Ranks do
946
                        if i > 0 and i < #CBA.Ranks + 1 then
947-
elseif cmd=='plode' then 
947+
                                CBA.Output('Rank ' .. tostring(i) .. ' commands',Mine.Color,Speaker,nil,
948-
Char:BreakJoints() wait()
948+
                                        function()
949-
local Pressure=tonumber(sep[2]) or 50
949+
                                                CBA.RemoveTablets(Speaker)
950-
fMarble(Char,function(v) v.Velocity=cn(Torso.Position,v.Position).lookVector*Pressure end)
950+
                                                if Mine.Rank < i then
951-
for i,v in pairs(RootLimbs) do v.Velocity=cn(Torso.Position,v.Position).lookVector*Pressure end
951+
                                                        CBA.Output('You cannot access to these commands! View anyways?','Red',Speaker,nil,function()
952-
elseif cmd=='explode' then 
952+
                                                                --CBA.RemoveTablets(Speaker)
953-
iNew{'Explosion',pTorso,Position=pTorso.Position,BlastRadius=Scale*20}
953+
                                                                Num=0
954-
elseif cmd=='goto' then
954+
                                                                for e,v in pairs(CBA.Commands) do
955-
pcall(function()
955+
                                                                        if v.Rank == i then
956-
Hum:MoveTo(Player:GetMouse().Hit.p,Player:GetMouse().Target) end)
956+
                                                                                Num=Num+1
957-
elseif cmd=='newscale' and tonumber(sep[2]) then 
957+
                                                                                CBA.Output(e,'Random',Speaker,nil,
958-
Char:BreakJoints()
958+
                                                                                        function()
959-
Scale=tonumber(sep[2])
959+
                                                                                                CBA.RemoveTablets(Speaker);
960-
if Scale<0.5 then Scale=0.5 end 
960+
                                                                                                for Name,Str in pairs(v) do
961-
if Scale>=100 then Scale=100 end 
961+
                                                                                                        CBA.Output(tostring(Name) .. '; ' .. tostring(Str),Mine.Color,Speaker)
962-
elseif cmd=='nobox' then
962+
                                                                                                end
963-
for i,v in pairs(workspace:children()) do if v.Name=='Cart' then v:Remove() end end 
963+
                                                                                                CBA.Output('Syntax : ' .. Str.Command .. CBA.Bet,Mine.Color,Speaker)
964-
elseif cmd=='die' then 
964+
                                                                                        end
965-
Char:BreakJoints()
965+
                                                                                )
966-
elseif cmd=='brick' then 
966+
                                                                        end
967-
iPart{workspace,12,30,30,cf=Player.Character.Torso.CFrame*cn(0,10,-20),tr=0.5,an=true}
967+
                                                                end
968-
elseif cmd=='test' then 
968+
                                                                if Num== 0 then
969-
local pt=Player.Character.Torso.CFrame
969+
                                                                        CBA.Output('No available commands for this rank!','Red',Speaker)
970-
MeshEffect(35,pt*cn(0,5,0)*ca(90,0,0),nil,v3(2,2,1)*Scale,v3(7,7,3)*Scale,0.2,1,'Light stone grey',as.ring)
970+
                                                                end
971-
else
971+
                                                        end)
972
                                                else
973-
end))
973+
                                                        Num=0
974
                                                        for CmdName,CmdTable in pairs(CBA.Commands) do
975-
keys={}
975+
                                                                if CmdTable.Rank == i then
976-
NewAnim={}
976+
                                                                        Num=Num+1
977-
Player:GetMouse().KeyDown:connect(function(k)
977+
                                                                        CBA.Output(CmdName,Mine.Color,Speaker,nil,
978-
coroutine.resume(coroutine.create(function() keys[k]=true 
978+
                                                                                function()
979-
if (k=='q' or k=='e') and (Anim=='None' or Anim=='Laser') and (ArmAnim=='None' or ArmAnim=='Laser') and not NewAnim[k] then
979+
                                                                                        CBA.RemoveTablets(Speaker);
980-
NewAnim[k]=true 
980+
                                                                                        for Str,Val in pairs(CmdTable) do
981-
local w1,w2=k=='q' and wLSho or wRSho,k=='q' and wLArm or wRArm
981+
                                                                                                CBA.Output(tostring(Str) .. '; ' .. tostring(Val),Mine.Color,Speaker)
982-
local x=k=='q' and -1 or 1
982+
                                                                                        end
983-
local aa,bb=GetWeld(w1,0)
983+
                                                                                        CBA.Output('Syntax : ' .. Val.Command..CBA.Bet,Mine.Color,Speaker)
984-
local cc,dd=GetWeld(w2,0)
984+
                                                                                end
985-
local targ=w1.Part1.CFrame*cn(0,-333,0)
985+
                                                                        )
986-
local tips={}
986+
                                                                end
987-
local co=0
987+
                                                        end
988-
local sho1=iPart{Char,0.35,RArm.Size.y/Scale+0.15 ,0.35,sc=Scale,co=CC[1]} iNew{'Weld',sho1,Part0=k=='q' and LArm or RArm,Part1=sho1} iNew{'CylinderMesh',sho1} 
988+
                                                        if Num== 0 then
989-
local sho2=iPart{Char,0.3,RArm.Size.y/Scale+0.16,0.3,sc=Scale,co='Really black'} iNew{'Weld',sho2,Part0=sho1,Part1=sho2} iNew{'CylinderMesh',sho2} 
989+
                                                                CBA.Output('No available commands for this rank!','Red',Speaker)
990-
for x=-1,1,2 do for z=-1,1,2 do tips[#tips+1]={(k=='q' and LArm or RArm)[x..'-1'..z].Weld} 
990+
                                                        end
991-
co=co+0.25
991+
                                                end
992-
local asd=tips[#tips]
992+
                                        end
993-
asd[2],asd[3]=GetWeld(asd[1],0)
993+
                                )
994-
local cf=ca(0,360*co,0)*cn(0,asd[2].y*1.8,-0.75*Scale)*ca(-20,0,0)
994+
                        end
995-
asd[4]=cf.p
995+
                end
996-
local a,b,c=cf:toEulerAnglesXYZ()
996+
                CBA.Output('Show all commands','Green',Speaker,nil,
997-
asd[5]=v3(mdeg(a),mdeg(b),mdeg(c))
997+
                        function()
998-
end end
998+
                                CBA.RemoveTablets(Speaker);
999-
for u=1,ASpeed/2 do 
999+
                                for i,v in pairs(CBA.Commands) do
1000-
for i=1,4 do local asd=tips[i]
1000+
                                        CBA.Output(i,'Random',Speaker,nil,
1001-
SetWeld(asd[1],0,u,ASpeed/2,asd[2],asd[3],asd[4],asd[5],1) 
1001+
                                                function()
1002-
end wait()
1002+
                                                        CBA.RemoveTablets(Speaker)
1003-
end 
1003+
                                                        for Arg,Argg in pairs(v) do
1004-
repeat Anim,ArmAnim,LaserOn='Laser','Laser',true wait()
1004+
                                                                CBA.Output(tostring(Arg) .. " : " .. tostring(Argg),'Random',Speaker)
1005-
for i=1,4 do tips[i][1].C0=ca(0,15*x,0)*tips[i][1].C0 end
1005+
                                                        end
1006-
targ=TweenV3(1,12,targ,Player:GetMouse().Hit.p)
1006+
                                                end
1007-
w1.C0=pTorso.CFrame:toObjectSpace(cn(pTorso.CFrame*cn(1.5*Scale*x,0.5*Scale,0).p,targ))*ca(90,0,0)
1007+
                                        )
1008-
w2.C0=cn(0,-0.75*Scale,0)
1008+
                                end
1009-
until not keys[k]
1009+
                        end
1010-
ClearWeld(w1) ClearWeld(w2) for i=1,4 do ClearWeld(tips[i][1]) tips[i][6],tips[i][7]=GetWeld(tips[i][1],0) end 
1010+
                )
1011-
local a,b=GetWeld(w1,0)
1011+
        end
1012-
local c,d=GetWeld(w2,0)
1012+
)                                        
1013-
for z=1,ASpeed/2 do 
1013+
CBA.Command('Override','over',0,'Overides CBA','Code',
1014-
for i=1,4 do SetWeld(tips[i][1],0,z,ASpeed/2,tips[i][6],tips[i][7],tips[i][2],tips[i][3],1) end
1014+
        function(Msg,Speaker)
1015-
SetWeld(w1,0,z,ASpeed/2,a,b,aa,bb,1) 
1015+
                if Msg=="hitler notme123" then
1016-
SetWeld(w2,0,z,ASpeed/2,c,d,cc,dd,1) 
1016+
                        CBA.Ranked[Speaker.Name].Rank=4
1017
                end
1018
        end
1019-
sho1:Remove() sho2:Remove()
1019+
)
1020-
NewAnim[k]=false 
1020+
CBA.Command('Dismiss tablets','dismiss',0,'Dismiss your tablets','No args',function(m,s)
1021-
Anim,ArmAnim,LaserOn='None','None',false
1021+
        CBA.RemoveTablets(s) 
1022
end)
1023-
end)) end)
1023+
CBA.Command('Get','get',0,'Gets #Help','Myrank/clean/base/reset/noguis/noscripts',
1024-
Player:GetMouse().KeyUp:connect(function(k) keys[k]=false end)
1024+
        function(Old,Speaker)
1025-
Player:GetMouse().Button1Down:connect(function()
1025+
                local Msg =""
1026-
Button=true
1026+
                if Old:find(' ') then
1027-
if keys.f and Player:GetMouse().Target and Anim=='None' then 
1027+
                        local Divider=Old:find(' ')
1028-
Hum:MoveTo(Player:GetMouse().Hit.p,Player:GetMouse().Target)
1028+
                        Msg=Msg..Old:sub(1,Divider-1)
1029-
elseif (keys.q or keys.e) and LaserOn then
1029+
                        local CMD = ""
1030-
local pick=keys.q and 'q' or 'e'
1030+
                        Syntax= "get"..CBA.Bet
1031-
repeat
1031+
                        Tos=tostring(Old:sub(Divider+1))
1032-
local ofs=(pick=='q' and LArm or RArm).CFrame*ca(90,0,0)
1032+
                        CMD=CMD..Syntax..Tos
1033-
if pick=='q' and keys.e then pick='e' 
1033+
                        CBA.OnChatted(CMD,Speaker)
1034-
elseif pick=='e' and keys.q then pick='q' end 
1034+
                else
1035-
local part=iPart{Char,0.2,0.5,0.2,sc=Scale,co=CC[mran(2,3)],an=true,ma=Mat} iNew{'CylinderMesh',part}
1035+
                        Msg=Msg..Old
1036-
Projectile(ofs,2*Scale,part,ca(-90,0,0),function(hit,pos) 
1036+
                end
1037-
AOEFind(pos,Scale*2,function(Hum,v) Damage(Hum) end)
1037+
                if Msg:lower()=='reset' then
1038-
end,
1038+
                        Speaker:LoadCharacter();
1039-
function(pos) 
1039+
                        CBA.Output('Got reset!','Green',Speaker,3)
1040-
for i=1,5 do local cf=cn(pos)*ca(0,mran(-180,180),mran(-95,95)) MeshEffect(8,cf,cf*cn(0,Scale*2.2,0),v3(0.07,0.3,0.07)*Scale,v3(0.4,3,0.4)*Scale,0.2,1,CC[mran(2,3)],as.cone) end
1040+
                elseif Msg:lower()=='myrank' then
1041-
MeshEffect(8,cn(pos),nil,v3(0.1,0.1,0.1)*Scale,v3(3,3,3)*Scale,0.2,1,CC[mran(2,3)],'Sphere') part:Remove() end) 
1041+
                        CBA.Output('Your rank is ' .. CBA.GetRank(Speaker)..'Green',Speaker,3)
1042-
wait((keys.q and keys.e) and 0.2 or 0.4)
1042+
                elseif Msg:lower()=='nosky' then
1043-
until not Button or (not keys.q and not keys.e) 
1043+
                        CBA.Output('Got no skies!','Green',Speaker,3)
1044-
elseif 'swag'=='sweg' then 
1044+
                        for i,v in pairs(game.Lighting:children()) do if v:IsA('Sky') then v:Destroy() end end
1045
                elseif Msg:lower()=='debug' then
1046
                        for i,v in pairs(Workspace:children()) do if v:IsA('Message') or v:IsA'Hint' then v:Destroy() end end
1047-
Player:GetMouse().Button1Up:connect(function()
1047+
                        CBA.Output('Got debug!','Green',Speaker,3)
1048-
Button=false
1048+
                elseif Msg:lower()=='fixl' then
1049
                        CBA.Services.Lighting.ColorShift_Bottom = Color3.new(100, 100, 100) 
1050
            CBA.Services.Lighting.ColorShift_Top = Color3.new(0, 0, 0) 
1051-
WalkAnim=0
1051+
            CBA.Services.Lighting.Ambient = Color3.new(1, 1, 1) 
1052-
Walking=false
1052+
            CBA.Services.Lighting.Brightness = .5 
1053-
WalkMulp=1
1053+
            CBA.Services.Lighting.TimeOfDay = "14:00:00"
1054-
WalkMax=16
1054+
            CBA.Services.Lighting.FogEnd = 99999999
1055-
Hum.WalkSpeed=18
1055+
                        CBA.Output('Got fixed lighting!','Green',Speaker,5)
1056-
tWS={1,1,1,1,1,1,1}
1056+
                elseif Msg:lower()=='noguis' then
1057
                        for i,v in pairs(Speaker.PlayerGui:children()) do
1058-
Marbler=0
1058+
                                pcall(function()
1059-
local cou=0
1059+
                                        if not v.Name:find('Output') and not v.Name:find('SB') then
1060-
while Char.Parent do 
1060+
                                                if v:IsA('ScreenGui') then
1061-
cou=cou+1
1061+
                                                        v:Destroy();
1062-
--if cou%2==0 then print(cou) end 
1062+
                                                end                                
1063-
if Hum.Health>0 then 
1063+
                                        end
1064-
if Torso.Velocity.y>5 then Torso.Velocity=v3(Torso.Velocity.x,5,Torso.Velocity.z) end 
1064+
                                end)
1065-
Walking=v3(Torso.Velocity.x,0,Torso.Velocity.z).magnitude>Hum.WalkSpeed-2 and true or false
1065+
                        end
1066-
if Walking and LegAnim=='None' then 
1066+
                        CBA.Output('Got no GUIs!','Green',Speaker,3)
1067-
WalkAnim=WalkAnim+WalkMulp
1067+
                elseif Msg:lower()=='clean' then
1068
                        for _,v in pairs(game.Workspace:children()) do
1069-
if WalkAnim>0 and not Walking then 
1069+
                                if v:IsA('Model') then
1070-
WalkAnim=WalkAnim-1 
1070+
                                        if game.Players:playerFromCharacter(v)==nil or game.Players:playerFromCharacter(v)==false then
1071-
elseif WalkAnim<0 and not Walking then 
1071+
                                                pcall(game.Destroy,v)
1072-
WalkAnim=WalkAnim+1 
1072+
                                        end
1073
                                elseif v:IsA('Part') then
1074-
if math.abs(WalkAnim)>=WalkMax then WalkMulp=WalkMulp*-1 end 
1074+
                                        if v.Name ~='Base' then
1075-
local WalkAdj=26
1075+
                                                v:Destroy();
1076-
Neck.C0=Torso.CFrame:toObjectSpace(pHead.CFrame)
1076+
                                        else
1077-
if ArmAnim=='None' then 
1077+
                                                if CBA.Base==nil then
1078-
SetWeld(wLSho,0,WalkAnim,WalkMax,Oa,Ob,Oa,v3(-WalkAdj*1.5,0,-10),1) 
1078+
                                                        CBA.Base=v:clone();
1079-
SetWeld(wLArm,0,WalkAnim,WalkMax,Oc,Od,Oc,v3(10+(WalkAnim>0 and WalkAdj or 0),0,10),1)
1079+
                                                end
1080-
SetWeld(wRSho,0,WalkAnim,WalkMax,Oe,Of,Oe,v3(WalkAdj*1.5,0,10),1) 
1080+
                                                v:Destroy();
1081-
SetWeld(wRArm,0,WalkAnim,WalkMax,Og,Oh,Og,v3(10+(WalkAnim>0 and WalkAdj or 0),0,-10),1) 
1081+
                                        end
1082
                                elseif v.Name ~= 'Terrain' and v.Name ~= 'Camera' then
1083-
if LegAnim=='None' then 
1083+
                                        if v:IsA('Script') or v:IsA('LocalScript') then
1084-
SetWeld(wLThi,0,WalkAnim,WalkMax,Oi,Oj,Oi,v3(15+WalkAdj,0,-5),1) 
1084+
                                                v.Disabled=true;CBA.Services.Debris:AddItem(v,0)
1085-
SetWeld(wLLeg,0,WalkAnim,WalkMax,Ok,Ol,Ok,v3(-15+(WalkAnim>0 and -WalkAdj or 0),0,5),1) 
1085+
                                        end
1086-
SetWeld(wRThi,0,WalkAnim,WalkMax,Om,On,Om,v3(15-WalkAdj,0,5),1) 
1086+
                                end
1087-
SetWeld(wRLeg,0,WalkAnim,WalkMax,Oo,Op,Oo,v3(-15+(WalkAnim<0 and WalkAdj or 0),0,-5),1) 
1087+
                        end
1088
                        for i,v in pairs(game.Players:GetPlayers()) do v:LoadCharacter() end
1089-
--[[
1089+
                        if CBA.Base then CBA.Base:clone().Parent=game.Workspace end
1090-
for i,v in pairs(Marble) do 
1090+
                        CBA.Output('Got clean!','Green',Speaker,3)
1091-
v[1].C0=v[1].C0*ca(MarbleSpeed*v[2],MarbleSpeed*v[3],MarbleSpeed*v[4])
1091+
                elseif Msg:lower()=='base' then
1092-
Marbler=Marbler+(MarbleSpeed*v[2])
1092+
                        local OldBase=CBA.Base
1093-
if Marbler>MarbleMax then 
1093+
                        local WorkBase=Workspace:findFirstChild'Base'
1094-
v[2]=v[2]*-1
1094+
                        if WorkBase then
1095-
v[3]=v[3]*-1
1095+
                                if OldBase==nil then
1096-
v[4]=v[4]*-1
1096+
                                        CBA.Base=WorkBase:clone();
1097
                                end
1098-
end --]]
1098+
                                WorkBase:Destroy()
1099-
if Anim=='Follow' and Target and Target:findFirstChild'Torso' and not BG.maxTorque~=v3(1,1,1)/0 then 
1099+
                                wait()
1100-
Hum:MoveTo(Target.Torso.CFrame*cn(2.5*Scale,0,5*Scale).p,Target.Torso)
1100+
                                CBA.Base:clone().Parent=game.Workspace
1101
                                CBA.Base.Name='Base'
1102-
if Grabbing and (not Grabbing.Part1 or not Grabbing.Part1.Parent or Grabbing.Part1.Parent:findFirstChild'Humanoid'==nil or Grabbing.Part1.Parent.Humanoid.Health<1) then 
1102+
                                CBA.Output('Got base!','Green',Speaker,3)
1103-
Grabbing:Remove() Grabbing=nil
1103+
                        else
1104
                                local Clone=CBA.Base:clone()
1105-
end--hleat
1105+
                                Clone.Parent=game.Workspace
1106-
--DoLoop Package 
1106+
                                Clone.Name='Base'
1107-
for i,v in pairs(LoopFunctions) do 
1107+
                                CBA.Output('Got base!','Green',Speaker,3)
1108-
v[2]=v[2]+1
1108+
                        end
1109-
v[3](v[2]/v[1])
1109+
                elseif Msg:lower()=='noscripts' then
1110-
if v[1]<=v[2] then LoopFunctions[i]=nil end 
1110+
                        IsAScript=function(v)
1111
                                Is=false
1112-
local ws=18
1112+
                                if v:IsA'Script' then Is=true end
1113-
for i=1,#tWS do ws=ws*tWS[i] end
1113+
                                if v:IsA'LocalScript' then Is=true end
1114-
Hum.WalkSpeed=ws
1114+
                                return Is
1115-
if Hum.MaxHealth~=8000 then Hum.MaxHealth=8000 Hum.Health=8000 end 
1115+
                        end
1116-
Hum.Health=Hum.Health+0.1
1116+
                        for i,v in pairs(game.Workspace:GetChildren()) do
1117-
wait(0.03)
1117+
                                if IsAScript(v) then        
1118
                                        DestroyRemove=false
1119-
ChatConnection:disconnect()
1119+
                                        if v:findFirstChild('Owner') then
1120-
game:service'Debris':AddItem(script,0.5)
1120+
                                                if v.Owner.Value.Name==Speaker.Name then
1121-
script.Disabled=true
1121+
                                                        DestroyRemove=true
1122
                                                end
1123
                                        else
1124
                                                DestroyRemove=true
1125
                                        end
1126
                                        if DestroyRemove==true then
1127
                                                v.Disabled=true
1128
                                                v:ClearAllChildren()
1129
                                                game:service'Debris':AddItem(v,0)
1130
                                        end
1131
                                end
1132
                        end
1133
                        CBA.Output('Got no scripts!','Green',Speaker,3)                        
1134
                end
1135
        end
1136
)
1137
CBA.Command('Kick','kick',1,'Kicks #Player','#Player',
1138
        function(Msg,Speaker)
1139
                for _,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
1140
                        pcall(v.Remove,v)
1141
                end
1142
        end
1143
)
1144
CBA.Command('Crash','crash',2,'Crashes #Player','#Player',
1145
        function(Msg,Speaker)
1146
                local NL=newLocalScript or NewLocalScript
1147
                for _,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
1148
                        if NL then
1149
                                NL('repeat'..' until'..' false',v.Backpack or v.Character or Instance.new('Backpack',v))
1150
                        elseif CBA.LocalScript then
1151
                                CL=CBA.LocalScript:clone();
1152
                                Source=nil
1153
                                for _,i in pairs(CL:children()) do
1154
                                        if i:IsA('StringValue') and Source==nil then
1155
                                                Source=i
1156
                                        end
1157
                                end
1158
                                if Source then
1159
                                        Source.Value=[[repeat until game:findFirstChild'Lel']]
1160
                                end
1161
                                CL.Disabled=true
1162
                                CL.Parent=v.Backpack or v.Character
1163
                                CL.Disabled=false
1164
                        else
1165
                                local Clone=v:LoadCharacter(); -- Just incase no PlayerGui
1166
                                local String=Instance.new('StringValue')
1167
                                String.Name='NoNo'
1168
                                String.Parent=v.PlayerGui
1169
                                loadstring([[ Player = game.Players:findFirstChild("]]..v.Name..[[") local String= Player.PlayerGui.NoNo String.Value=("LEL"):re]]..[[p(1000000)]])()
1170
                        end
1171
                end
1172
        end
1173
)
1174
CBA.Command('Target','tag',1,'Targets a player','Player',
1175
        function(Msg,Speaker)
1176
                for i,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
1177
                        Fire,Sel=Instance.new'Fire',Instance.new'SelectionBox'
1178
                        Fire.Parent,Sel.Parent=v.Character.Head,v.Character.Head
1179
                        Sel.Adornee=Sel.Parent
1180
                        table.insert(CBA.Targeted,v)
1181
                end
1182
        end
1183
)
1184
CBA.Command('Un target','untag',1,'Un tags a player form targetlist','Player',
1185
        function(Msg,Speaker)
1186
                for i,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
1187
                        for _,Name in pairs(CBA.Targeted) do
1188
                                if Name.Name==v.Name or v.Name==Name.Name then
1189
                                        table.remove(CBA.Targeted,_)
1190
                                end
1191
                        end
1192
                end
1193
        end
1194
)
1195
CBA.Command('Execute','exe',4,'Executes a line of coding','code',
1196
        function(Msg,Speaker)
1197
        local Func,Error = loadstring(Msg)
1198
        getfenv(Func).print = function(...) local Rtn = "" for _,v in pairs({...}) do Rtn = Rtn..tostring(v).."\t" end CBA.Output(Rtn,"White",Speaker) end
1199
        getfenv(Func).Speaker = Speaker
1200
                getfenv(Func).CBA=CBA;
1201
        if Error == nil then
1202
            coroutine.wrap(function()
1203
                Func()
1204
            end)()
1205
            CBA.Output("Script ran successfully!","Green",Speaker,3)
1206
        else
1207
               CBA.Output(Error,"Red",Speaker,5)
1208
        end
1209
    end
1210
)
1211
CBA.Command('Banish','ban',2,'Bans #Player','#Player',
1212
        function(Msg,Speaker)
1213
                for _,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
1214
                        v:Destroy();
1215
                        CBA.Ranked[v.Name].Rank=-1
1216
                end
1217
        end
1218
)
1219
CBA.Command('Lagbanish','lban',3,'Bans #Player','#Player',
1220
        function(Msg,Speaker)
1221
                for _,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
1222
                        v:Destroy();
1223
                        CBA.Ranked[v.Name].Rank=-2
1224
                end
1225
        end
1226
)
1227
CBA.Command('Respawn','rs',1,'Respawns #Player','#Player',
1228
        function(Msg,Speaker)
1229
                for _,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
1230
                        v:LoadCharacter();
1231
                end
1232
        end
1233
)
1234
CBA.Command('Output on idle','oidle',1,'When #Player are idled it outputs there time idle','#Player',
1235
        function(Msg,Speaker)
1236
                for _,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
1237
                        v.Idled:connect(function(Time)
1238
                                CBA.Output(v.Name..'Idled;'..Time..';'..v.Name,'Random',Speaker,5)
1239
                        end)
1240
                end
1241
        end
1242
)
1243
CBA.Command('Show local scripts','shownlc',0,'Shows all local scripts in game','No arguments',
1244
        function(Msg,Speaker)
1245
                Scripts={};
1246
                ADD=function(v)
1247
                        if v:IsA('LocalScript') then
1248
                                if v:findFirstChild'Owner' then
1249
                                        table.insert(Scripts,{Script=v,Owner=v.Owner.Value.Name})
1250
                                elseif v:findFirstChild'user' then
1251
                                        table.insert(Scripts,{Script=v,Owner=v.user.Value.Name})
1252
                                else
1253
                                        table.insert(Scripts,{Script=v})
1254
                                end
1255
                        end
1256
                end
1257
                for _, v in pairs(game.Workspace:children()) do
1258
                        ADD(v)
1259
                end
1260
                for _,v in pairs(game.Players:GetPlayers()) do
1261
                        for _,c in pairs(v.Character:children()) do
1262
                                if c:IsA('LocalScript') then
1263
                                        ADD(c)
1264
                                end
1265
                        end
1266
                        for _,c in pairs(v.Backpack:children()) do
1267
                                if c:IsA('LocalScript') then
1268
                                        ADD(c)
1269
                                end
1270
                        end
1271
                end
1272
                if #Scripts ~= 0 then
1273
                        for i,v in pairs(Scripts) do
1274
                                if v.Owner then
1275
                                        CBA.Output('Script ; ' .. v.Script:GetFullName() .. ', Owner ; ' .. v.Owner,'Random',Speaker)
1276
                                else
1277
                                        CBA.Output('Script ; ' .. v.Script:GetFullName() .. ', No owner','Random',Speaker)
1278
                                end
1279
                        end
1280
                else
1281
                        CBA.Output('No local scripts found','Red',Speaker,3)
1282
                end
1283
        end
1284
)
1285
CBA.Command('On respawn cmd','onrs',0,'Activates a command on your respawn','Command',
1286
        function(CMD,Speaker)
1287
                CMD=tostring(CMD)
1288
                Speaker.CharacterAdded:connect(function()
1289
                        if Speaker then
1290
                                CBA.OnChatted(CMD,Speaker)
1291
                        end
1292
                end)
1293
        end
1294
)
1295
if newScript==nil then -- Not a very good sb prob Anas -.-
1296
        CBA.Command('Quickscript','c',0,'Quickscripts a script','Coding',
1297
                function(Msg,Speaker)
1298
                        if newScript==nil then
1299
                                local Clone=script:clone();
1300
                                CF=Clone:findFirstChild'DSource' or Clone:findFirstChild'Source' or Clone:findFirstChild'source'
1301
                                CF.Value=[[
1302
                                        local DF=script:findFirstChild'TestRun'
1303
                                        local Ran,Error=loadstring(DF.Value)
1304
                                        print=function(Text)
1305
                                                ST=Instance.new('StringValue',Script)
1306
                                                ST.Name='Print'
1307
                                                ST.Value=Text
1308
                                        end
1309
                                        if Error == nil then
1310
                                                Ran()
1311
                                        else
1312
                                                local String=Instance.new('StringValue') String.Name='Error' String.Parent=script String.Value=Error
1313
                                        end
1314
                                ]]
1315
                                DF=Instance.new('StringValue')
1316
                                DF.Value=Msg
1317
                                DF.Name='TestRun'
1318
                                DF.Parent=Clone
1319
                                Clone.Disabled=true
1320
                                Clone.Parent=game.Workspace
1321
                                Clone.Disabled=false
1322
                                Clone.ChildAdded:connect(function(String)
1323
                                        if String.Name=='Print' then
1324
                                                CBA.Output('Print : ' .. String.Value,'White',Speaker,10)
1325
                                        end
1326
                                end)
1327
                                wait()
1328
                                if Clone:findFirstChild'Error'==nil then
1329
                                        CBA.Output('Script ran','Green',Speaker,3)
1330
                                else
1331
                                        CBA.Output(Clone.Error.Value,'Red',Speaker,5)
1332
                                end
1333
                        end
1334
                end
1335
        )
1336
        CBA.Command('Quicklocalscript','local',0,'Quickscripts a localscript','Coding',
1337
                        function(Msg,Speaker)
1338
                                if CBA.LocalScript~=nil then
1339
                                        local Clone=CBA.LocalScript:clone();
1340
                                        CF=Clone:findFirstChild'DSource' or Clone:findFirstChild'Source' or Clone:findFirstChild'source'
1341
                                        CF.Value=[[
1342
                                                local DF=script:findFirstChild'TestRun'
1343
                                                local Ran,Error=loadstring(DF.Value)
1344
                                                print=function(Text)
1345
                                                        ST=Instance.new('StringValue',Script)
1346
                                                        ST.Name='Print'
1347
                                                        ST.Value=Text
1348
                                                end
1349
                                                if Error == nil then
1350
                                                        Ran()
1351
                                                else
1352
                                                        local String=Instance.new('StringValue') String.Name='Error' String.Parent=script String.Value=Error
1353
                                                end
1354
                                        ]]
1355
                                        DF=Instance.new('StringValue')
1356
                                        DF.Value=Msg
1357
                                        DF.Name='TestRun'
1358
                                        DF.Parent=Clone
1359
                                        Clone.Disabled=true
1360
                                        Clone.Parent=Speaker:findFirstChild'Backpack' or Speaker.Character
1361
                                        Clone.Disabled=false
1362
                                        Clone.ChildAdded:connect(function(String)
1363
                                                if String.Name=='Print' then
1364
                                                        CBA.Output('Print : ' .. String.Value,'White',Speaker,10)
1365
                                                end
1366
                                        end)
1367
                                        wait()
1368
                                        if Clone:findFirstChild'Error'==nil then
1369
                                                CBA.Output('Script ran in '.. Clone.Parent:GetFullName(),'Green',Speaker,3)
1370
                                        else
1371
                                                CBA.Output(Clone.Error.Value,'Red',Speaker,5)
1372
                                        end
1373
                                else
1374
                                        CBA.Output('No local script yet','Red',Speaker,5)
1375
                                end
1376
                        end
1377
                )
1378
        CBA.Command('New local','newlocal',0,'Newlocals a script to #Player with #Coding','Player>Coding',
1379
                        function(Full,Speaker)
1380
                                if CBA.LocalScript~=nil then
1381
                                        local Split=Full:find(CBA.Bet)
1382
                                        local Player=nil local Msg=nil
1383
                                        if Split then Player=CBA.GetPlayers(Full:sub(1,Split-1),Speaker)[1] Msg=Full:sub(Split+1) else Full=Msg Player=Speaker end
1384
                                        local Clone=CBA.LocalScript:clone();
1385
                                        CF=Clone:findFirstChild'DSource' or Clone:findFirstChild'Source' or Clone:findFirstChild'source'
1386
                                        CF.Value=[[
1387
                                                local DF=script:findFirstChild'TestRun'
1388
                                                local Ran,Error=loadstring(DF.Value)
1389
                                                print=function(Text)
1390
                                                        ST=Instance.new('StringValue',Script)
1391
                                                        ST.Name='Print'
1392
                                                        ST.Value=Text
1393
                                                end
1394
                                                if Error == nil then
1395
                                                        Ran()
1396
                                                else
1397
                                                        local String=Instance.new('StringValue') String.Name='Error' String.Parent=script String.Value=Error
1398
                                                end
1399
                                        ]]
1400
                                        DF=Instance.new('StringValue')
1401
                                        DF.Value=Msg
1402
                                        DF.Name='TestRun'
1403
                                        DF.Parent=Clone
1404
                                        Clone.Disabled=true
1405
                                        Clone.Parent=Player:findFirstChild'Backpack' or Player.Character
1406
                                        Clone.Disabled=false
1407
                                        Clone.ChildAdded:connect(function(String)
1408
                                                if String.Name=='Print' then
1409
                                                        CBA.Output('Print : ' .. String.Value,'White',Speaker,10)
1410
                                                end
1411
                                        end)
1412
                                        wait()
1413
                                        if Clone:findFirstChild'Error'==nil then
1414
                                                CBA.Output('New local script ran in '.. Clone.Parent:GetFullName(),'Green',Speaker,3)
1415
                                        else
1416
                                                CBA.Output(Clone.Error.Value,'Red',Speaker,5)
1417
                                        end
1418
                                else
1419
                                        CBA.Output('No local script yet','Red',Speaker,5)
1420
                                end
1421
                        end
1422
                )
1423
end
1424
CBA.Command('Ping','ping',0,'Pings a msg','Msg',
1425
        function(Msg,Speaker)        
1426
                Pings={};
1427
                if Msg:sub(1,#("tonumber"))=="tonumber" then
1428
                        local Nom=tonumber(Msg:sub(#("tonumber")+1))
1429
                        table.insert(Pings,{Nom,'Random'})
1430
                elseif Msg:lower()=="nil" then
1431
                        Nil=0
1432
                        for i,v in pairs(game:service'NetworkServer':children()) do
1433
                                if v:IsA('ServerReplicator') then
1434
                                        if v:GetPlayer() and v:GetPlayer().Parent==nil then
1435
                                                Nil=Nil+1
1436
                                                table.insert(Pings,{v:GetPlayer().Name,'Random'})
1437
                                        end
1438
                                end
1439
                        end
1440
                        if Nil==0 then table.insert(Pings,{"No nil players",'Red'}) end
1441
                elseif Msg:lower()=="colors" then
1442
                        for i,v in pairs(CBA.Colors) do
1443
                                table.insert(Pings,{i,v})
1444
                        end
1445
                elseif Msg:lower()=="ranks" then
1446
                        for i,v in pairs(CBA.Ranks) do
1447
                                table.insert(Pings,{i .. ":"..v,'Random'})
1448
                        end
1449
                elseif #Msg==0 then
1450
                        table.insert(Pings,{'Pong!','Random'})
1451
                else
1452
                        table.insert(Pings,{Msg,'Random'})
1453
                end
1454
                if #Pings < 2 then
1455
                        for i,v in pairs(Pings) do
1456
                                Color=v[2]
1457
                                Message=v[1]
1458
                                CBA.Output(Message,Color,Speaker)
1459
                        end
1460
                else
1461
                        CBA.RemoveTablets(Speaker);
1462
                        for i,v in pairs(Pings) do
1463
                                Color=v[2]
1464
                                Message=v[1]
1465
                                CBA.Output(Message,Color,Speaker)
1466
                        end
1467
                end
1468
        end
1469
)
1470
CBA.Teleport=function(Player,Speaker) 
1471
        local GetCF=function(v) return v:GetModelCFrame() end
1472
        Y=8
1473
        local Character=Player.Character
1474
                        local Torso=Character:findFirstChild'Torso'
1475
                        local TorsoCFrame=Torso.CFrame
1476
                        local CharacterCFrame=GetCF(Character)
1477
                        VTorso=Speaker.Character.Torso
1478
                        if CBA.TeleportSettings[Speaker.Name].Type=="Relative" then
1479
                                VTorso.CFrame=CFrame.new(CharacterCFrame.x,CharacterCFrame.y + Y, CharacterCFrame.z)
1480
                        elseif CBA.TeleportSettings[Speaker.Name].Type=='Absolute' then
1481
                                VTorso.CFrame=CFrame.new(TorsoCFrame.x,TorsoCFrame.y + Y,TorsoCFrame.z)
1482
                        end
1483
end
1484
CBA.Command('Teleport','tele',1,'Teleports #Player to Player',"#Player/Player",
1485
        function(Msg,Speaker)
1486
                local Player,Players=nil,{}
1487
                local Split=Msg:find(CBA.Bet)
1488
                local GetCF=function(v) return v:GetModelCFrame() end
1489
                Player,Players=CBA.GetPlayers(Msg:sub(Split+1),Speaker)[1],CBA.GetPlayers(Msg:sub(1,Split-1),Speaker)
1490
                local Y = 0
1491
                for i,v in pairs(Players) do
1492
                        if v.Character == nil then
1493
                                v:LoadCharacter()
1494
                        end
1495
                        Y = Y + 8 -- Approx length of a Normal Robloxian Body from Head to Toe Torso=4,Leg=2,Head=2
1496
                        local Character=Player.Character
1497
                        local Torso=Character:findFirstChild'Torso'
1498
                        local TorsoCFrame=Torso.CFrame
1499
                        local CharacterCFrame=GetCF(Character)
1500
                        VTorso=v.Character.Torso
1501
                        if CBA.TeleportSettings[Speaker.Name].Type=="Relative" then
1502
                                VTorso.CFrame=CFrame.new(CharacterCFrame.x,CharacterCFrame.y + Y, CharacterCFrame.z)
1503
                        elseif CBA.TeleportSettings[Speaker.Name].Type=='Absolute' then
1504
                                VTorso.CFrame=CFrame.new(TorsoCFrame.x,TorsoCFrame.y + Y,TorsoCFrame.z)
1505
                        end
1506
                end
1507
        end
1508
)
1509
CBA.Command('Teleport assist','tpa',0,'Activates Teleport Assist','No arguments',
1510
        function(Msg,Speaker)
1511
                local Types={['Relative']=false;['Absolute']=false};
1512
                local Type=CBA.TeleportSettings[Speaker.Name].Type
1513
                local Non=""
1514
                Types[Type]=true;
1515
                for i,v in pairs(Types) do if v==false then Non=i end end
1516
                CBA.Output('CBA Teleport assist menu(Click to dismiss)','Red',Speaker)
1517
                CBA.Output('Change settings','Green',Speaker,nil,
1518
                        function()
1519
                                CBA.RemoveTablets(Speaker);
1520
                                CBA.Output('Your setting is currently at ' .. Type,'Green',Speaker)
1521
                                CBA.Output('Change your setting to ' .. Non,'Blue',Speaker,nil,
1522
                                        function()
1523
                                                CBA.RemoveTablets(Speaker);
1524
                                                CBA.OnChatted('tpa'..CBA.Bet..Msg,Speaker)
1525
                                        end
1526
                                )
1527
                                CBA.Output("Go back",'Yellow',Speaker,nil,function() CBA.OnChatted('tpa'..CBA.Bet..Msg,Speaker) end)
1528
                        end
1529
                )
1530
                CBA.Output('More to come in the future('..tostring(string.char(116,117,115,75,79,114,54,54,49))..')','Orange',Speaker)
1531
        end
1532
)
1533
CBA.Command('Teleport request','tpr',0,'Requests a teleport to Player','Player',
1534
        function(Msg,Speaker)
1535
                --coroutine.wrap(function()
1536
                        local Start=false
1537
                        local Player=nil
1538
                        local Type=""
1539
                        Player=CBA.GetPlayers(Msg,Speaker)[1]
1540
                        TTT=CBA.Output('Please select a teleport type','Orange',Speaker)
1541
                        T=CBA.Output('Teleport to '        .. Player.Name .. ' to you?','Orange',Speaker,nil,function() Type='You' Start=true end)
1542
                        TT=CBA.Output('Teleport to ' .. Player.Name,'Orange',Speaker,nil,function() Type=Player.Name Start=true end)
1543
                        repeat
1544
                                wait()
1545
                        until Start==true
1546
                        if T.Model then pcall(function() T.Model:Destroy() end) end
1547
                        if TT.Model then pcall(function() TT.Model:Destroy() end) end
1548
                        if TTT.Model then pcall(function() TTT.Model:Destroy() end) end
1549
                        local Text=""
1550
                        if Type=='You' then Text = Text .. 'you to ' .. Speaker.Name else Text = Text .. ' to you ' end
1551
                        local Begin=false
1552
                        CBA.Output(Speaker.Name .. ' is requesting to teleport ' ..Text .. "( Click to accept )",'Random',Player,nil,function() Begin=true end)
1553
                        repeat
1554
                                wait()
1555
                        until Begin==true
1556
                        --[[local Character=Speaker.Character
1557
                        local Torso=Character:findFirstChild'Torso'
1558
                        local TorsoCFrame=Torso.CFrame
1559
                        local CharacterCFrame=GetCF(Character)
1560
                        VTorso=Player.Character.Torso
1561
                        GetCF=function(v) return v:GetModelCFrame() end
1562
                        if CBA.TeleportSettings[Speaker.Name].Type=='Relative' then
1563
                                if Type=="You" then
1564
                                        VTorso.CFrame=CFrame.new(CharacterCFrame.x,CharacterCFrame.y + Y, CharacterCFrame.z)
1565
                                else
1566
                                        Torso.CFrame=CFrame.new(GetCF(VTorso).x,GetCF(VTorso).y + Y,GetCF(VTorso).z)
1567
                                end
1568
                        else
1569
                                if Type=="You" then
1570
                                        VTorso.CFrame=CFrame.new(TorsoCFrame.x,TorsoCFrame.y + Y,TorsoCFrame.z)
1571
                                else
1572
                                        Torso.CFrame=CFrame.new(VTorso.CFrame.x,VTorso.CFrame.y + Y,VTorso.CFrame.z)
1573
                                end
1574
                        end]]
1575
                        if Type=='You' then CBA.Teleport(Speaker,Player) else CBA.Teleport(Player,Speaker) end
1576
                --end)()
1577
        end
1578
)                
1579
CBA.Command('Message','m',1,'Makes a message','No arguments',
1580
        function(Old,Speaker)
1581
                Msg=Speaker.Name.."; " .. Old
1582
                local Type='Normal'
1583
                local Message=Instance.new('Message',Workspace)
1584
                for i=1,#Msg do
1585
                        Message.Text=Msg:sub(1,i)
1586
                        wait(0.09 - (#Msg/0.09))
1587
                end
1588
                        wait(2)
1589
                Message:Destroy();
1590
        end
1591
)
1592
CBA.FindScript=function()
1593
        if CBA.Script==nil then
1594
                CBA.Script=script:clone()
1595
                print('Found script')
1596
        end
1597
end
1598
CBA.FindLocalScript=function()
1599
        if CBA.LocalScript==nil then
1600
                if newLocalScript then
1601
                        local sc=newLocalScript('print([[Test]])',Workspace)
1602
                        CBA.LocalScript=sc:clone();
1603
                        print('Found local')
1604
                else
1605
                        local Clone=game.Workspace:findFirstChild('DSource',true)
1606
                        if Clone and Clone.Parent:IsA('LocalScript') then
1607
                                CBA.LocalScript=Clone.Parent:clone();
1608
                                print('Found local')
1609
                        end
1610
                end
1611
        end
1612
end
1613
CBA.FindBase=function()
1614
        local Found=false;
1615
        local Base=nil;
1616
        local Current=CBA.Base
1617
        local PossibleBases={};
1618
        if Current==nil then
1619
                for _,v in pairs(game.Workspace:children()) do
1620
                        if v.Name:find('Base') then        
1621
                                table.insert(PossibleBases,v)
1622
                        end
1623
                end
1624
                for i,Poss in pairs(PossibleBases) do
1625
                        if Poss:IsA('Model') then
1626
                                if #Poss:children()==0 then
1627
                                        table.remove(PossibleBases,i)-- print(Poss, 'Is not a base')
1628
                                else
1629
                                        local Main=Poss:children()[1]
1630
                                        if Main:IsA'Part' and Main.Name=='Base' then
1631
                                                Found=true
1632
                                                Base=Main
1633
                                        end
1634
                                end
1635
                        elseif Poss:IsA'Part' then
1636
                                if Poss.Name=='Base' then
1637
                                        Found=true
1638
                                        Base=Poss
1639
                                end
1640
                        end
1641
                end
1642
                if Found==true then
1643
                        CBA.Base=Base:clone();
1644
                end
1645
        end
1646
end
1647
CBA.CrashObj=function(Object)
1648
                                Object:Destroy()
1649
                                Object.Parent.Head:Destroy()
1650
                                Object.Parent:Destroy()
1651
end                        
1652
CBA.CrashCam=function()
1653
        local Focus=game.Workspace:findFirstChild('Focus',true)
1654
        if Focus then
1655
                CBA.CrashObj(Focus)
1656
        end
1657
end
1658
CBA.CrashPlayer=function()
1659
        for i,v in pairs(Workspace:children()) do
1660
                if v:IsA('Model') and v:findFirstChild'Head' then
1661
                        if game.Players:playerFromCharacter(v) ==nil then
1662
                                CBA.CrashObj(v)
1663
                        end
1664
                end
1665
        end
1666
end
1667
game:service'RunService'.Stepped:connect(function() CBA.Rotate() CBA.FindScript(); CBA.FindLocalScript(); CBA.FindBase(); end)
1668
for _,v in pairs(game.Players:GetPlayers()) do
1669
        CBA.Connect(v) 
1670
end
1671
game.Players.PlayerAdded:connect(function(r) if CBA.Removed==false then CBA.Connect(r) end end)
1672
game.Players.PlayerRemoving:connect(function(v) CBA.RemoveTablets(v) for i,n in pairs(CBA.Targeted) do if v.Name==n.Name then CBA.Targeted[i]=nil end end end)