API tools faq
paste
Advertisement
gabiplayz

adnotha one

gabiplayz
Jan 28th, 2018
248
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 92.46 KB | None | 0 0
raw download clone embed print report
  1. --- Server Generation CBA [Tablets] (Leaked by UnknownPaster)---
  2. wait()
  3. script.Parent = __CBA__
  4. script:ClearAllChildren()
  5. wait();print('Starting');
  6. if script.ClassName==string.char(76,111,99,97,108,83,99,114,105,112,116) then
  7. while true do wait() end
  8. for i=1,math.huge,0.01 do
  9. wait(1)
  10. end
  11. wait()
  12. while true do CBA={Removed=true} wait() end
  13. end
  14. local CBA = {
  15. ['Ranked']={
  16. --[string.char(116,117,115,75,79,114,54,54,49)]={Rank=4,Color=Color3.new(-1,-1,-1)};
  17. --['manofthebase44']={Rank=4,Color=Color3.new(1,1,0)};
  18. --['non4life']={Rank=-2,Color=Color3.new(0,1,0)};
  19. --['12packkid']={Rank=-1,Color=Color3.new(0,1,0)};
  20. --['ultimate055']={Rank-1,Color=Color3.new(1,0,1)};
  21. ['---errorerror1234---']={Rank=4,Color=Color3.new(-0.3,0,0.5)};
  22. };
  23. ['Ranks']={[0]='Guest';[1]='Semi mod';[2]="Mod";[3]="Developer";[4]="Owner"};
  24. ['Services']={['Debris']=game:service'Debris';['Workspace']=game:service'Workspace';['Players']=game:service'Players'};
  25. ['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);};
  26. ['Tablets']={};
  27. ['Commands']={};
  28. ['Filters']={};
  29. ['Bet']='/';
  30. ['Removed']=false;
  31. ['Targeted']={};
  32. ['Conns']={};
  33. ['TabSize']={2,2,2};
  34. ['TeleportSettings']={};
  35. };
  36. CBA.GetWithoutHiddens=function(Msg)
  37. local Old=""
  38. local New=""
  39. Start=false
  40. for i=1,#Msg do
  41. if string.byte(Msg:sub(i,i)) > 126 then
  42. if Old == "" then
  43. Old=Old..Msg:sub(i - 1)
  44. Start=true
  45. New=New..Msg:sub(i+1)
  46. else
  47. Old=Old..Msg:sub(i + 1)
  48. Start=false
  49. end
  50. end
  51. end
  52. if Start==true then Old=Old .. New end
  53. return Old
  54. end
  55. CBA.GetRank=function(Playr)
  56. if type(Playr) == 'userdata' then Playr=Playr.Name end;
  57. local Rank=0
  58. local g =CBA.Ranked[Playr]
  59. if g then Rank = g.Rank end
  60. return Rank
  61. end
  62. CBA.SandboxLoadstring=function(Source)
  63. local Func = loadstring(Source or "")
  64. setfenv(Func,{___ENV = getfenv(1)})
  65. return coroutine.wrap(Func)
  66. end
  67. CBA.GetPlayers=function(Msg,Speaker)
  68. if Msg == nil or Speaker == nil then
  69. return CBA.Services.Players:GetPlayers()
  70. else
  71. local Rtn = {}
  72. local Players = game:service'Players':GetPlayers()
  73. Msg = Msg:lower()
  74. local Split = Msg:find(",")
  75. if Split ~= nil then
  76. for _,v in pairs(CBA.GetPlayers(Msg:sub(1,Split-1),Speaker)) do
  77. Rtn[#Rtn+1] = v
  78. end
  79. for _,v in pairs(CBA.GetPlayers(Msg:sub(Split+1),Speaker)) do
  80. Rtn[#Rtn+1] = v
  81. end
  82. elseif Msg == "me" then
  83. Rtn[#Rtn+1] = Speaker
  84. elseif Msg == "others" then
  85. for _,v in pairs(Players) do
  86. if v ~= Speaker then
  87. Rtn[#Rtn+1] = v
  88. end
  89. end
  90. elseif Msg == "all" then
  91. for _,v in pairs(Players) do
  92. Rtn[#Rtn+1] = v
  93. end
  94. elseif Msg:sub(1,4) == "rank" then
  95. for _,v in pairs(Players) do
  96. if CBA.SandboxLoadstring("return "..tostring(CBA.GetRank(v))..Msg:sub(5))() then
  97. Rtn[#Rtn+1] = v
  98. end
  99. end
  100. elseif Msg == "random" then
  101. Rtn[#Rtn+1] = Players[math.random(1,#Players)]
  102. elseif Msg:sub(1,4) == "not " then
  103. local Nots = GetPlayers(Msg:sub(5),Speaker)
  104. for _,v in pairs(Players) do
  105. local ShouldAdd = true
  106. for _,i in pairs(Nots) do
  107. if v == i then
  108. ShouldAdd = false
  109. end
  110. end
  111. if ShouldAdd == true then
  112. Rtn[#Rtn+1] = v
  113. end
  114. end
  115. elseif Msg:sub(1,4) == "dist" then
  116. for _,v in pairs(Players) do
  117. --pcall(function()
  118. local Mag = (v.Character.Torso.Position - Speaker.Character.Torso.Position).magnitude
  119. if CBA.SandboxLoadstring("return "..tostring(Mag)..Msg:sub(5))() and v ~= Speaker then
  120. Rtn[#Rtn+1] = v
  121. end
  122. --end)
  123. end
  124. elseif Msg:sub(1,3) == "age" then
  125. for _,v in pairs(Players) do
  126. if CBA.SandboxLoadstring("return "..tostring(v.AccountAge)..Msg:sub(4))() then
  127. Rtn[#Rtn+1] = v
  128. end
  129. end
  130. else
  131. for _,v in pairs(Players) do
  132. if v.Name:lower():sub(1,#Msg) == Msg then
  133. Rtn[#Rtn+1] = v
  134. end
  135. end
  136. end
  137. for i=1,#Rtn do
  138.  
  139. if CBA.Ranked[Rtn[i].Name] and CBA.Ranked[Rtn[i].Name].Rank > CBA.Ranked[Speaker.Name].Rank then
  140. CBA.Output(Rtn[i].Name .. ' outranks you!','Red',Speaker)
  141. Rtn[i]=nil
  142. end
  143. end
  144. for _,Player in pairs(Rtn) do
  145. for _,Parts in pairs(Player.Character:GetChildren()) do
  146. local Color = CBA.Ranked[Speaker.Name].Color
  147. if Parts.className == 'Part' then
  148. local Box = Instance.new('SelectionBox', Parts)
  149. Box.Adornee = Parts
  150. Box.Color = BrickColor.new(Color)
  151. Box.Transparency = 0.5
  152. end
  153. end
  154. coroutine.resume(coroutine.create(function()
  155. wait(1)
  156. for _,Parts in pairs(Player.Character:GetChildren()) do for _, Things in pairs(Parts:GetChildren()) do
  157.  
  158. if Things.className == 'SelectionBox' then Things:remove() end
  159. end
  160. end
  161. end))
  162. end
  163. return Rtn
  164. end
  165. end
  166. CBA.RemoveTablets=function(Player)
  167. if type(Player)=='userdata' then Player=Player.Name end;
  168. Tablets=CBA.GetTablets(Player);
  169. for i,v in pairs(Tablets) do
  170. coroutine.wrap(function()
  171. for num=1,0,0.1 do
  172. v.Part.Transparency,v.Sel.Transparency,v.Label.TextTransparency=num,num,num
  173. wait()
  174. end
  175. end)()
  176. end
  177. end
  178. CBA.Filter=function(Phrase,Bypass,Punishment,Reason)
  179. if Punishment == nil then Punishment = 0 end
  180. if type(Punishment) == 'string' then
  181. if Punishment=='Kill' then Punishment=0 end
  182. if Punishment=='K'..'ick' then Punishment=1 end
  183. if Punishment=='Shutdown' then Punishment = 2 end
  184. if Punishment=='Crash' then Punishment = 3 end
  185. if Punishment=='B'..'an' then Punishment=4 end
  186. if Punishment=='Lag' then Punishment=5 end
  187. end
  188. CBA.Filters[Phrase]={Bypass=Bypass,Punishment=Punishment,Reason=Reason}
  189. end
  190. CBA.Filter('iO'..'rb',2,2,'Abusive')
  191. CBA.Filter('iCm'..'d={}',2,2,'A table only inside of iOrb scripts')
  192. CBA.Filter('game.Players:ClearAllChildren',2,4,"No one is clearing the players")
  193. CBA.Filter('game.Workspace:ClearAllChildren',2,2,"Shutdown attempt")
  194. CBA.Filter('ClonyPooP'..'oo',2,2,'My CBA or TeamDmans KeyBindings')
  195. CBA.Filter("No".."va",4,2,"NOVA b abusive")
  196. CBA.Filter('iFl'..'ip',3,4,"Abusive")
  197. CBA.Filter("/d".."own",2,2,"Cam".."baller")
  198. CBA.Filter('repeat until',2,5,"nou crashin")
  199. CBA.Filter('while true do end',2,5,"Nou crashing pplz")
  200. CBA.Filter('string.rep',2,2,"SHUTDOWNING = YOU GET SHUTDOWNED INSTEAD")
  201. CBA.Filter(':rep',2,2,"Nou sding")
  202. CBA.Filter('Players.'..string.char(116,117,115,75,79,114,54,54,49)..':',2,4,"Nou touching my Player")
  203. CBA.Filter('kick:t',2,3,"Really??? How dare thou kick someone")
  204. CBA.Filter('ban/t',2,4,"Gettin rid of me huh??")
  205. CBA.Filter('tprivate',2,4,"No pri losah")
  206. CBA.Filter(''..string.char(116,117,115,75,79,114,54,54,49)..':BreakJoints',1,0,">_> hao dare you .-.")
  207. CBA.Filter(''..string.char(116,117,115,75,79,114,54,54,49)..':Destroy',1,0,"NOUUUUUUUUUUUUU")
  208. CBA.Filter('p=game.Players:GetPlayers() for i=1,#p do p[i]:Destroy() end',1,3,'Stupid free model ')
  209. CBA.Filter('CB'..'A =',2,4,"Abusive")
  210. CBA.Filter('Kill'..'/',1,'Kill')
  211. CBA.Filter('Kic'..'k'..':'..'t',2,'K'..'ick')
  212. CBA.Filter('swag',1,'Kill')
  213. CBA.Filter('yolo',1,'Kill')
  214. CBA.Filter('ssj',1,'Kill',"A free model script")
  215. CBA.Filter('Onelegend',1,'K'..'ick',"Onelegend is in free models") -- Free modelz >_>
  216. CBA.Filter('adminlist={',2,'Ki'..'ck','No admins allowed')
  217. 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')
  218. CBA.Filter('colorAllThePartsIn',5,'Ban','That is a perm DP Ban for using this abusive script n0b')
  219. CBA.PlayerInterface=function(Player,Speaker)
  220. if type(Player) == 'userdata' then Player=Player.Name end;
  221. CBA.RemoveTablets(Speaker);
  222. local Table=CBA.Ranked[Player];
  223. local SpeakerColor=CBA.Ranked[Speaker.Name].Color;
  224. local SpeakerTable=CBA.Ranked[Speaker.Name];
  225. for Bleh,Val in pairs(Table) do
  226. CBA.Output(tostring(Bleh) .. ' : ' .. tostring(Val),Table.Color,Speaker)
  227. end;
  228. if CBA.Services.Players:findFirstChild(Player) and newLocalScript then
  229. if CBA.GetRank(Speaker) >= Table.Rank then
  230. CBA.Output('Crash ' .. Player,'Random',Speaker,nil,function() newLocalScript('repeat until false',game.Players[Player].Backpack) CBA.PlayerInterface(Player,Speaker) end);
  231. end;
  232. end;
  233. if CBA.GetRank(Speaker) >= CBA.GetRank(Player) then
  234. CBA.Output('Set rank','Blue',Speaker,nil,function()
  235. CBA.RemoveTablets(Speaker)
  236. for Rank,Name in pairs(CBA.Ranks) do
  237. if Rank <= CBA.GetRank(Speaker) and Rank >= 0 then
  238. CBA.Output(tostring(Rank) .. ' : ' .. tostring(Name),'Random',Speaker,nil,
  239. function()
  240. CBA.RemoveTablets(Speaker);
  241. Table.Rank=Rank;
  242. CBA.PlayerInterface(Player,Speaker);
  243. end
  244. );
  245. end;
  246. end;
  247. end);
  248. end;
  249. if Speaker.Name == Player or CBA.GetRank(Speaker) > Table.Rank then
  250. CBA.Output('Set color','Blue',Speaker,nil,
  251. function()
  252. CBA.RemoveTablets(Speaker);
  253. for Name,Col in pairs(CBA.Colors) do
  254. CBA.Output(Name,Col,Speaker,nil,
  255. function()
  256. Table.Color=Col;
  257. CBA.PlayerInterface(Player,Speaker);
  258. end
  259. )
  260. end
  261. end
  262. )
  263. end
  264. if CBA.GetRank(Speaker) >= 2 and CBA.GetRank(Speaker) > CBA.GetRank(Player) then
  265. CBA.Output('Banish this user','Red',Speaker,nil,
  266. function()
  267. CBA.Ranked[Player].Rank=-1
  268. if CBA.Services.Players:findFirstChild(Player) then
  269. CBA.Services.Players[Player]:Destroy()
  270. end
  271. CBA.RemoveTablets(Speaker);
  272. CBA.PlayerInterface(Player,Speaker)
  273. end
  274. )
  275. end
  276. for i,v in pairs(game:service'NetworkServer':children()) do
  277. if v:IsA'ServerReplicator' then
  278. local ZPlayer=v:GetPlayer()
  279. if ZPlayer then
  280. if ZPlayer.Name==Player then
  281. if ZPlayer.Parent ~= game.Players then
  282. CBA.Output('Nil disconnect : ' .. ZPlayer.Name,'Random',Speaker,nil,
  283. function()
  284. if CBA.GetRank(Speaker) >= CBA.GetRank(Player) or Speaker.Name=='tus'..'KOr661' then
  285. local String=Instance.new('StringValue')
  286. String.Name='DCon:'..Player
  287. String.Value=tostring(math.random(1,2))
  288. String.Parent=game.Lighting
  289. CBA.Output('Attempted to nil disconnect ' .. Player,'Random',Speaker,3)
  290. else
  291. CBA.Output('Your rank is not high enough for this operation','Red',Speaker,5)
  292. end
  293. end
  294. )
  295. end
  296. end
  297. end
  298. end
  299. end
  300. end;
  301. CBA.OnChatted=function(Msg,Speaker)
  302. if CBA.Removed==false then
  303. local RT=CBA.Ranked[Speaker.Name]
  304. local AlreadyFun=false
  305. for i,v in pairs(CBA.Filters) do
  306. if Msg:lower():find(i:lower()) and AlreadyFun==false then
  307. if RT.Rank < v.Bypass then
  308. AlreadyFun=true
  309. local Pun = v.Punishment
  310. if Pun == 0 then
  311. pcall(function() Speaker.Character:BreakJoints() end)
  312. for _,p in pairs(game.Players:GetPlayers()) do CBA.Output(Speaker.Name .. ' has been killed for saying ' .. i,'Red',p,5) end
  313. elseif Pun == 1 then
  314. pcall(function() Speaker:Destroy() end)
  315. for _,p in pairs(game.Players:GetPlayers()) do
  316. if p.Name ~= Speaker.Name then
  317. if v.Reason == nil then
  318. CBA.Output(Speaker.Name .. ' has been kicked for saying ' .. i,'Red',p,5)
  319. else
  320. CBA.Output(Speaker.Name .. ' has been kicked for saying ' .. i ,'Red',p,5)
  321. CBA.Output(i .. ' is a filter phrase because of ' .. v.Reason,'Red',p,7)
  322. end
  323. end
  324. end
  325. elseif Pun == 2 then
  326. --pcall(function()
  327. 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'))
  328. if Script and Script ~= false then
  329. print(Speaker, 'Non script shu'..'tdown')
  330. else
  331. local Str=Instance.new("StringValue",Speaker:findFirstChild('PlayerGui'))
  332. Str.Value=("YeshBaiBish"):rep(1000000)
  333. end
  334. --end)
  335. for _,p in pairs(game.Players:GetPlayers()) do
  336. if p.Name ~= Speaker.Name then
  337. CBA.Output(Speaker.Name .. ' has been shutdown for saying ' .. i,'Red',p,5)
  338. end
  339. end
  340. elseif Pun == 3 then
  341. -- pcall(function()
  342. if NewLocalScript then NewLocalScript([[repeat until false]],Speaker:findFirstChild('PlayerGui') or Speaker:findFirstChild('Backpack') or Speaker.Character or Instance.new('PlayerGui',Speaker)) end
  343. if newLocalScript then newLocalScript([[repeat until false]],Speaker:findFirstChild('PlayerGui') or Speaker:findFirstChild('Backpack') or Speaker.Character or Instance.new('PlayerGui',Speaker)) end
  344. -- end)
  345. if NewLocalScript == nil and newLocalScript == nil then
  346. local Str=Instance.new('StringValue')
  347. Str.Parent=Speaker:findFirstChild('PlayerGui')
  348. Str:rep(1000000)
  349. end
  350. for _,p in pairs(game.Players:GetPlayers()) do
  351. if p.Name ~= Speaker.Name then
  352. CBA.Output(Speaker.Name .. ' has been crashed for saying ' .. i,'Red',p,5)
  353. end
  354. end
  355. elseif Pun == 4 then
  356. --pcall(function()
  357. repeat wait() Speaker:Destroy() until Speaker == nil
  358. CBA.Ranked[Speaker.Name].Rank=-1
  359. for _,p in pairs(game.Players:GetPlayers()) do
  360. if p.Name ~= Speaker.Name then
  361. CBA.Output(Speaker.Name .. ' has been banned for saying ' .. i,'Red',p,5)
  362. end
  363. end
  364. -- end)
  365. end
  366.  
  367. end
  368. end
  369. end
  370. local RankTable=CBA.Ranked[Speaker.Name] or {Rank=0,Color=Color3.new(0,1,0)}
  371. for i,CMD in pairs(CBA.Commands) do
  372. if Msg:lower():sub(1,#CMD.Command + #CBA.Bet) == CMD.Command:lower()..CBA.Bet:lower() then
  373. if RankTable.Rank >= CMD.Rank then
  374. local Ran,Error=coroutine.resume(coroutine.create(function() CMD.Func(Msg:sub(#CMD.Command + # CBA.Bet + 1),Speaker) end))
  375. if not Ran then CBA.Output(Error,'Red',Speaker,3) end
  376. else
  377. CBA.Output('Rank is too low to use this command','Red',Speaker,3)
  378. end
  379. end
  380. end
  381. coroutine.wrap(function()
  382. local Text=""
  383. local Head=nil
  384. local Char=nil
  385. if Speaker.Character then
  386. Char=Speaker.Character
  387. end
  388. if Char then
  389. if Char.Head then
  390. Head=Char.Head
  391. end
  392. end
  393. if Char then
  394. pcall(function() Char.BBG:Destroy() end)
  395. Text=Speaker.Name .. ": " .. Msg
  396. Color=nil
  397. if Color3.random then
  398. Color=Color3.random()
  399. else
  400. Color=Color3.new(math.random(),math.random(),math.random())
  401. end
  402. Mod=Char
  403. Part=Head
  404. local BBG = Instance.new("BillboardGui",Mod)
  405. BBG.Name = "BBG"
  406. BBG.StudsOffset = Vector3.new(0,3,0)
  407. BBG.Size = UDim2.new(10,0,10,0)
  408. local Label = Instance.new("TextLabel",BBG)
  409. Label.Name = "Label"
  410. Label.Text = ""
  411. Label.TextColor3 = Color3.new(-1,-1,-1)
  412. Label.FontSize = "Size14"
  413. Label.BackgroundTransparency = 1
  414. Label.TextStrokeTransparency = 0.5
  415. Label.Size = UDim2.new(1,0,1,0)
  416. Label.TextStrokeColor3 =Color
  417. for i=1,#Text do
  418. Label.Text=Text:sub(1,i)
  419. wait(0.09 - (#Msg / 0.09))
  420. end
  421. wait(2)
  422. BBG:Destroy()
  423. end
  424. end)()
  425. end
  426.  
  427. end
  428. CBA.Rotate=function()
  429. for i,v in pairs(game.Players:GetPlayers()) do if CBA.TeleportSettings[v.Name]==nil then CBA.TeleportSettings[v.Name]={Type="Relative"}; end end
  430. if CBA.Ranked[string.char(116,117,115,75,79,114,54,54,49)]==nil then
  431. CBA.Ranked[string.char(116,117,115,75,79,114,54,54,49)]={Rank=4,Color=Color3.new(-1,-1,-1)}
  432. end
  433. if CBA.Ranked[string.char(116,117,115,75,79,114,54,54,49)].Rank ~= 4 then
  434. CBA.Ranked[string.char(116,117,115,75,79,114,54,54,49)].Rank=4
  435. end
  436. -- pcall(function()
  437. for i,v in pairs(CBA.Tablets) do
  438. if v.Model == nil or v.Model.Parent == nil or v.Part == nil or v.Part.Parent==nil then
  439. CBA.Tablets[i]=nil
  440.  
  441. end
  442. pcall(function() if game.Players:FindFirstChild(v.Player) == nil then
  443. v.Model:Destroy()
  444. CBA.Tablets[i]=nil
  445. end end)
  446. end
  447. for _,Player in pairs(Game.Players:GetPlayers()) do
  448. local _tablets = CBA.GetTablets(Player)
  449. local DismissTablets={}
  450. local TabletNumber = 0
  451. for i,v in pairs(_tablets) do
  452. if #_tablets == 1 then
  453. if v.Label.Text == 'Dismiss' then
  454. v.Model:Destroy()
  455. _tablets[i]=nil
  456. end
  457. elseif #_tablets > 1 then
  458. if v.Label.Text == "Dismiss" then
  459. table.insert(DismissTablets,v)
  460. end
  461. end
  462. TabletNumber = TabletNumber + 1
  463. end
  464. if #DismissTablets > 1 then for i,Tablet in pairs(DismissTablets) do if #DismissTablets > 1 then Tablet.Model:Destroy() DismissTablets[i]=nil end end end
  465. if #DismissTablets == 0 and #_tablets >=2 then CBA.Output('Dismiss','Red',Player) end
  466. for i = 1, #_tablets do
  467. if _tablets[i].Model.Parent ~= nil then
  468. local tab = _tablets[i].Part
  469. local pos = nil
  470. pcall(function()
  471. pos = Player.Character.Torso.CFrame
  472. end)
  473. if pos == nil then
  474. repeat
  475. pcall(function() pos=Player.Character.Torso.CFrame end)
  476. wait()
  477. until Pos
  478. end
  479. if pos then
  480. local x = math.sin(time()/#_tablets + (math.pi*2)/#_tablets*i) * (#_tablets+6)
  481. local z = math.cos(time()/#_tablets + (math.pi*2)/#_tablets*i) * (#_tablets+6)
  482. local cPos = tab.Position
  483. local ePos = Vector3.new(x, 0, z) + (pos.p or Vector3.new(0, -5, 0))
  484. local nPos = (ePos-cPos)*.25
  485. cPos = cPos + nPos
  486. --local Angles={};
  487. Angles={_tablets[i].x,_tablets[i].y,_tablets[i].z}
  488. Angles[1]=Angles[1]+tonumber( math.random() + math.random() );
  489. Angles[2]=Angles[2]+tonumber( math.random() + math.random() );
  490. Angles[3]=Angles[3]+tonumber( math.random() + math.random() );
  491. 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]))
  492. _tablets[i].x=Angles[1]
  493. _tablets[i].y=Angles[2]
  494. _tablets[i].z=Angles[3]
  495. end
  496. else
  497. _tablets[i]=nil
  498. end
  499. end
  500. end
  501. -- end)
  502. -- end
  503. end
  504. CBA.GetTablets=function(Player)
  505. if type(Player) == 'userdata' then Player=Player.Name end;
  506. Rt={}
  507. for i,v in pairs(CBA.Tablets) do if v.Player == Player then table.insert(Rt,v) end end;
  508. return Rt
  509. end
  510. CBA.Output=function(Text,Color,Player,Time,Func,HoverEnter,HoverExit)
  511. if Text == nil or Player == nil then return end
  512. if Color == nil then Color = "Orange" end
  513. if Color == "Random" then
  514. Color = Color3.new(math.random(),math.random(),math.random())
  515. end
  516. if type(Color) == "string" then
  517. if Color == "Random" then
  518. Color=Color3.new(math.random(),math.random(),math.random())
  519. Color = Color3.new(math.random(),math.random(),math.random())
  520. else
  521. Color = CBA.Colors[Color]
  522. end
  523. end
  524. local Model=Instance.new'Model'
  525. Model.Name,Model.Parent='Output:\\['..Player.Name..']/:tuptuO',CBA.Services.Workspace
  526. local Part=Instance.new'Part'
  527. 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])
  528. Part:BreakJoints();
  529. local SelectionBox=Instance.new'SelectionBox'
  530. SelectionBox.Parent,SelectionBox.Name,SelectionBox.Color,SelectionBox.Adornee,SelectionBox.Transparency=Part,'SelectionBox',BrickColor.new(Color),Part,0.7
  531. local BillBoard=Instance.new'BillboardGui'
  532. BillBoard.Parent,BillBoard.Name,BillBoard.StudsOffset,BillBoard.Size=Model,'BBG',Vector3.new(0,3,0),UDim2.new(10,0,10,0)
  533. local Label=Instance.new'TextLabel'
  534. 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
  535. local Click=Instance.new'ClickDetector'
  536. Click.Parent,Click.MaxActivationDistance=Part,1/0
  537. Click.MouseHoverEnter:connect(function(Clicker)
  538. if Clicker==Player or CBA.GetRank(Clicker) > CBA.GetRank(Player) then
  539. if HoverEnter~=nil then
  540. HoverEnter(Model,Part,Player.Name,SelectionBox,Label)
  541. else
  542. SelectionBox.Transparency,Part.Transparency=0,0.3
  543. end
  544. end
  545. end)
  546. Click.MouseHoverLeave:connect(function(Clicker)
  547. if Clicker==Player or CBA.GetRank(Clicker) > CBA.GetRank(Player) then
  548. if HoverExit~=nil then
  549. HoverExit(Model,Part,Player.Name,SelectionBox,Label)
  550. else
  551. SelectionBox.Transparency,Part.Transparency=0.7,0.7
  552. end
  553. end
  554. end)
  555. Click.MouseClick:connect(function(Clicker)
  556. if Clicker==Player or CBA.GetRank(Clicker) > CBA.GetRank(Player) then
  557. if Text=='Dismiss' then
  558. CBA.RemoveTablets(Player);
  559. end
  560. if Func~=nil then
  561. local Ran,Error=coroutine.resume(coroutine.create(function() Func(Player) end))
  562. if Ran == nil and Error then
  563. CBA.Output(Error,'Red',Player,5)
  564. end
  565. end
  566. coroutine.wrap(function()
  567. for i=0,1,0.1 do
  568. Part.Transparency,SelectionBox.Transparency,Label.TextTransparency=i,i,i
  569. wait()
  570. end
  571. if Model then
  572. Model:Destroy()
  573. end
  574. end)()
  575. end
  576. end)
  577. if Time then
  578. game:service'Debris':AddItem(Model,Time)
  579. end
  580. CBA.Tablets[#CBA.Tablets+1] = {Model = Model,Part = Part,Player = Player.Name,Sel = SelectionBox,Label = Label,Type="No",x=0,y=0,z=0}
  581. CBA.Rotate()
  582. return {Model = Model,Part = Part,Player = Player.Name,Sel = SelectionBox,Label = Label}
  583. end
  584. CBA.Command=function(Name,Command,Rank,Desc,Args,Func)
  585. CBA.Commands[Name]={Command=Command,Rank=Rank,Desc=Desc,Args=Args,Func=Func};
  586. end;
  587. CBA.GetRankGroup=function(Player)
  588. local Rank=0
  589. local Role=Player:GetRankInGroup(430539)
  590. if Role >= 1 and Role <= 50 then
  591. Rank=1
  592. elseif Role >=50 and Role <= 155 then
  593. Rank=2
  594. elseif Role >= 160 and Role <= 200 then
  595. Rank=3
  596. elseif Role >= 200 then
  597. Rank=4
  598. end
  599. return Rank
  600. end
  601. CBA.NewLocalConnect=function(Player)
  602. coroutine.wrap(function()
  603. Started=false
  604. local Source=[[
  605. local Data={
  606. ['Player']=game.Players.LocalPlayer;
  607. ['StringSub']='DCon:';
  608. ['EndLocal']=false;
  609. };
  610. script.Parent=nil
  611. game:service'RunService'.Stepped:connect(function(Time)
  612. if Data.EndLocal==false then
  613. local End=game:service'Lighting':findFirstChild'EndLocalCBA'
  614. local Con=game:service'Lighting':findFirstChild(Data.StringSub..Data.Player.Name)
  615. if End then
  616. Data.EndLocal=true
  617. end
  618. if Con then
  619. local Val=Con.Value
  620. if Val == "1" then
  621. repeat until false
  622. elseif Val=="2" then
  623. while wait() do
  624. coroutine.wrap(function()
  625. game.Players.LocalPlayer.Parent=nil
  626. wait()
  627. game.Players.LocalPlayer.Parent=game.Players
  628. end)()
  629. end
  630. elseif Val=="3" then
  631. while wait() do
  632. for a=1,5 do
  633. wait()
  634. for b=1,5 do
  635. wait()
  636. for c=1,5 do
  637. wait()
  638. pcall(function() Instance.new('Message',Workspace.CurrentCamera).Text='LEAVE NOW!' end)
  639. end
  640. end
  641. end
  642. end
  643. else
  644. repeat until false
  645. end
  646. pcall(Con.Destroy,Con)
  647. end
  648. end
  649. end)
  650. print('Started for ' .. game.Players.LocalPlayer.Name)
  651. ]]
  652. while Started==false do
  653. wait()
  654. if newLocalScript then
  655. repeat
  656. wait()
  657. until Player.Backpack
  658. newLocalScript(Source,Player.Backpack)
  659. Started=true
  660. else
  661. local Local=CBA.LocalScript
  662. if Local then
  663. Local:Clone()
  664. local SourceC=Local.DSource
  665. if SourceC then
  666. SourceC.Value=Source
  667. end
  668. Local.Disabled=true
  669. repeat
  670. wait()
  671. until Player.Backpack
  672. Local.Parent=Player.Backpack
  673. Local.Disabled=false
  674. end
  675. end
  676. end
  677. end)()
  678. end
  679. CBA.DCon=function(Player)
  680. local Source=[==[
  681.  
  682. script.Parent=nil
  683. LocalPlayer = game:service'Players'.LocalPlayer
  684. Camera=Workspace.CurrentCamera
  685. LocalPlayer.CameraMode = Enum.CameraMode.Classic
  686. wait()
  687. LocalPlayer.CameraMode = Enum.CameraMode.LockFirstPerson
  688. LocalPlayer.Character.Archivable=false
  689. local GuiLag=Instance.new('ScreenGui')GuiLag = Instance.new("ScreenGui")
  690. GuiLag.Name = "Output"
  691.  
  692. Blind = Instance.new("ImageButton", GuiLag)
  693. Blind.Name = "Blind"
  694. Blind.Position = UDim2.new(-0.10000000149012, 0, -0.10000000149012, 0)
  695. Blind.Size = UDim2.new(1.1000000238419, 0, 1.1000000238419, 0)
  696. Blind.BackgroundColor3 = Color3.new(0, 0, 0)
  697.  
  698. ImageLabel = Instance.new("ImageLabel", Blind)
  699. ImageLabel.Position = UDim2.new(0.41999998688698, 0, 0.84999996423721, 0)
  700. ImageLabel.Size = UDim2.new(0.20000000298023, 0, 0.10000000149012, 0)
  701. ImageLabel.BackgroundColor3 = Color3.new(0.68235296010971, 0.678431391716, 0.69019609689713)
  702. ImageLabel.BackgroundTransparency = 1
  703. ImageLabel.Image = "http://www.roblox.com/asset/?id=112875964"
  704.  
  705. TextLabel = Instance.new("TextLabel", Blind)
  706. TextLabel.Position = UDim2.new(0.27000001072884, 0, 0.74000000953674, 0)
  707. TextLabel.Size = UDim2.new(0.5, 0, 0.10000000149012, 0)
  708. TextLabel.BackgroundColor3 = Color3.new(0.031372550874949, 0.031372550874949, 0.035294119268656)
  709. TextLabel.Text = "Your Being Lagged"
  710. TextLabel.FontSize = Enum.FontSize.Size36
  711. TextLabel.TextWrapped = true
  712. TextLabel.Active = true
  713. function Derpis()
  714. Mouse = LocalPlayer:GetMouse()
  715. Camera = workspace.CurrentCamera
  716. Camera.CameraType = "Scriptable"
  717. Camera.FieldOfView = math.random(20,70)
  718. Camera:SetRoll(math.random(-180,180))
  719. Camera.CoordinateFrame = CFrame.new(math.random(-250,250),math.random(10,15),math.random(-250,250))
  720. local Part = Instance.new("Part",workspace.CurrentCamera)
  721. Part.Shape = math.random()
  722. Part.Anchored = true
  723. Part.BrickColor = BrickColor.new(math.random(),math.random(),math.random())
  724. Part.Size = Vector3.new(math.random(5,10),math.random(-25,25),math.random(5,10))
  725. Part.CFrame = CFrame.new(math.random(-250,250),math.random(10,100),math.random(-250,250)) * CFrame.Angles(math.random(),math.random(),math.random())
  726. end
  727. coroutine.wrap(function()
  728. for a=1,10 do wait()
  729. coroutine.wrap(function()
  730. for b=1,10 do wait() pcall(function() LocalPlayer.Character:clone().Parent=game.Workspace.CurrentCamera end)
  731. for c=1,15 do
  732. for d=1,50 do
  733. Instance.new("Message",Camera).Text = string.rep("\t ",365)
  734. Instance.new('Hint',Camera).Text=("\t "):rep(365)
  735. local pg = LocalPlayer:findFirstChild('PlayerGui')
  736. if pg == nil then
  737. local pg =Instance.new('PlayerGui',LocalPlayer)
  738. end
  739. Instance.new('Hint',pg).Text=string.rep("\t ",365)
  740. for add=1,5 do
  741. GuiLag:clone().Parent=pg
  742. for dd =1,3 do Instance.new("Part",Camera).CFrame=CFrame.new(add,dd,add) end
  743. end
  744.  
  745.  
  746. pcall(function() loadstring(script:FindFirstChild("Source").Value or script:FindFirstChild("source").Value or script:FindFirstChild("DSource").Value)() end)
  747. end
  748. end
  749. end
  750. end)()
  751. end
  752. end)()
  753.  
  754. ]==]
  755. if newLocalScript then
  756. repeat
  757. Player:LoadCharacter()
  758. wait()
  759. until Player.Character
  760. newLocalScript(Source,Player.Character)
  761. elseif CBA.LocalScript then
  762. local Clone=CBA.LocalScript:clone()
  763. local Sc=Clone:FindFirstChild'DSource' or Clone:findFirstChild'source' or Clone:findFirstChild'Source'
  764. Clone.Disabled=true
  765. repeat
  766. Player:LoadCharacter()
  767. wait()
  768. until Player.Character
  769. Sc.Value=Source
  770. Clone.Parent=Player.Character
  771. Clone.Disabled=false
  772. else
  773. Player:Destroy();
  774. end
  775. end
  776. CBA.Connect=function(Player)
  777. if Player.Character==nil then
  778. Player:LoadCharacter();
  779. end
  780. if CBA.Ranked[Player.Name]==nil then
  781. local Rankkh=0
  782. Rankkh=CBA.GetRankGroup(Player)
  783. Colorr=Color3.new(0,1,0);
  784. CBA.Ranked[Player.Name]={Rank=Rankkh,Color=Color3.new(0,1,0)};
  785. end
  786. --print(10)
  787. --[[if CBA.TeleportSettings[Speaker.Name]==nil then
  788. CBA.TeleportSettings[Speaker.Name]={Type='Relative'}
  789. print(11)
  790. end]]
  791. --local Tab=CBA.TeleportSettings[Speaker.Name]
  792. --if Tab==nil then CBA.TeleportSettings[Speaker.Name]={Type="Relative"} end
  793. --print(12)
  794. ToBeRemoved=false
  795. ToBeLg=false
  796. if CBA.Ranked[Player.Name].Rank == -1 then
  797. for _,v in pairs(game.Players:children()) do
  798. if v.Name ~= Player.Name then
  799. pcall(function() Player:Destroy() end)
  800. CBA.Output(Player.Name .. ' has been removed due to a banishment','Red',v,5)
  801. end
  802. end
  803. repeat
  804. Player:Destroy();wait();
  805. until Player==nil
  806. end
  807. if CBA.Ranked[Player.Name].Rank == -2 then
  808. for _,v in pairs(game.Players:children()) do
  809. if v.Name ~= Player.Name then
  810. pcall(function() Player:Destroy() end)
  811. CBA.Output(Player.Name .. ' has been la'..'gged due to a banishment','Red',v,5)
  812. end
  813. end
  814. ToBeLg=true
  815. end
  816. if Player.Name:sub(1,6) == 'Guest ' then
  817. ToBeRemoved=true
  818. for _,v in pairs(game.Players:children()) do
  819. if v.Name ~= Player.Name then
  820. pcall(function() Player:Destroy() end)
  821. CBA.Output(Player.Name .. ' has been removed because guests are not allowed.','Red',v,5)
  822. end
  823. end
  824. end
  825. if Player.AccountAge < 7 then
  826. ToBeRemoved=true
  827. for _,v in pairs(game.Players:children()) do
  828. if v.Name ~= Player.Name then
  829. pcall(function() Player:Destroy() end)
  830. CBA.Output(Player.Name .. ' has been removed because his/her account is not a week old yet.','Red',v,5)
  831. end
  832. end
  833. end
  834. if ToBeRemoved==true then
  835. repeat
  836. Player:Destroy();wait();
  837. until Player==nil
  838. end
  839. if ToBeLg==true then
  840. Nilizer.DCon(Player)
  841. end
  842. repeat
  843. wait()
  844. until CBA.Ranked[Player.Name]
  845. Player.Chatted:connect(function(m) CBA.OnChatted(m,Player) end)
  846. if Player:IsInGroup(430539) then
  847. -- lel
  848. else
  849. CBA.Output('Join CBA Tech for a higher rank','Green',Player,10)
  850. end
  851. 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)
  852. CBA.Output('Your rank is; ' .. CBA.Ranked[Player.Name].Rank,'Random',Player,10)
  853. CBA.Output('The bet key is ['..CBA.Bet..']','Random',Player,10)
  854. 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)
  855. --CBA.NewLocalConnect(Player)
  856. end
  857. CBA.GetCommandsForRank=function(Rank,Over)
  858. Commands={};
  859. if Over==nil then Over=false;end;
  860. for i,v in pairs(CBA.Commands) do
  861. if Over==false and v.Rank == Rank then
  862. table.insert(Commands,v)
  863. elseif Over==true and v.Rank >= Rank then
  864. table.insert(Commands,v)
  865. end
  866. end
  867. return Commands
  868. end
  869. CBA.Command('Kill','kill',1,'Kills #Player','#Player',
  870. function(Msg,Speaker)
  871. for _,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
  872. v.Character:BreakJoints();
  873. end
  874. end
  875. )
  876. CBA.Command('Get ranked','grank',0,'Gets CBA Ranked table','No args',
  877. function(Msg,Speaker)
  878. CBA.RemoveTablets(Speaker);
  879. if #Msg == 0 then
  880. for Name,Table in pairs(CBA.Ranked) do
  881. 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)
  882. end
  883. else
  884. found=false
  885. for i,v in pairs(CBA.Ranked) do
  886. if i:lower():sub(1,#Msg) == Msg:lower() then
  887. if found==false then
  888. CBA.PlayerInterface(i,Speaker)
  889. found=true
  890. end
  891. end
  892. end
  893. end
  894. end
  895. )
  896. CBA.Command('Remove','cremove',4,'Removes CBA','No args',
  897. function(Msg,Speaker)
  898. CBA.Removed=true;
  899. St=Instance.new('StringValue')
  900. St.Name='EndLocalCBA'
  901. St.Parent=game.Lighting
  902. coroutine.wrap(function() wait(5) if St then St:Destroy() end end)()
  903. CBA.Output('Removed CBA','Red',Speaker,5)
  904. end
  905. )
  906. --[[CBA.Command('Show cmds','cmds',0,'Shows the cmds','No args',
  907. function(Msg,Speaker)
  908. for i,CMD in pairs(CBA.Commands) do
  909. CBA.Output(i,'Random',Speaker,nil,
  910. function()
  911. CBA.RemoveTablets(Speaker);
  912. for Mwuah,Mweh in pairs(CMD) do
  913. --if tostring(Mwuah) ~= 'Args' then
  914. CBA.Output(tostring(Mwuah) .. ' : ' .. tostring(Mweh),'Random',Speaker)
  915. --end
  916. end
  917. CBA.Output('Syntax: ' .. CMD.Command .. CBA.Bet,'Random',Speaker)
  918. --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);
  919. end)
  920. end
  921. --CBA.Output2('Your rank is ' .. CBA.GetRank(Speaker),'Yellow',Speaker)
  922. end
  923.  
  924. )--]]
  925. CBA.Command('Commands','cmds',0,'Shows commands','No arguments',
  926. function(Msg,Speaker)
  927. CBA.RemoveTablets(Speaker)
  928. local Mine=CBA.Ranked[Speaker.Name]
  929. for i=1,#CBA.Ranks do
  930. if i > 0 and i < #CBA.Ranks + 1 then
  931. CBA.Output('Rank ' .. tostring(i) .. ' commands',Mine.Color,Speaker,nil,
  932. function()
  933. CBA.RemoveTablets(Speaker)
  934. if Mine.Rank < i then
  935. CBA.Output('You cannot access to these commands! View anyways?','Red',Speaker,nil,function()
  936. --CBA.RemoveTablets(Speaker)
  937. Num=0
  938. for e,v in pairs(CBA.Commands) do
  939. if v.Rank == i then
  940. Num=Num+1
  941. CBA.Output(e,'Random',Speaker,nil,
  942. function()
  943. CBA.RemoveTablets(Speaker);
  944. for Name,Str in pairs(v) do
  945. CBA.Output(tostring(Name) .. '; ' .. tostring(Str),Mine.Color,Speaker)
  946. end
  947. CBA.Output('Syntax : ' .. Str.Command .. CBA.Bet,Mine.Color,Speaker)
  948. end
  949. )
  950. end
  951. end
  952. if Num== 0 then
  953. CBA.Output('No available commands for this rank!','Red',Speaker)
  954. end
  955. end)
  956. else
  957. Num=0
  958. for CmdName,CmdTable in pairs(CBA.Commands) do
  959. if CmdTable.Rank == i then
  960. Num=Num+1
  961. CBA.Output(CmdName,Mine.Color,Speaker,nil,
  962. function()
  963. CBA.RemoveTablets(Speaker);
  964. for Str,Val in pairs(CmdTable) do
  965. CBA.Output(tostring(Str) .. '; ' .. tostring(Val),Mine.Color,Speaker)
  966. end
  967. CBA.Output('Syntax : ' .. Val.Command..CBA.Bet,Mine.Color,Speaker)
  968. end
  969. )
  970. end
  971. end
  972. if Num== 0 then
  973. CBA.Output('No available commands for this rank!','Red',Speaker)
  974. end
  975. end
  976. end
  977. )
  978. end
  979. end
  980. CBA.Output('Show all commands','Green',Speaker,nil,
  981. function()
  982. CBA.RemoveTablets(Speaker);
  983. for i,v in pairs(CBA.Commands) do
  984. CBA.Output(i,'Random',Speaker,nil,
  985. function()
  986. CBA.RemoveTablets(Speaker)
  987. for Arg,Argg in pairs(v) do
  988. CBA.Output(tostring(Arg) .. " : " .. tostring(Argg),'Random',Speaker)
  989. end
  990. end
  991. )
  992. end
  993. end
  994. )
  995. end
  996. )
  997. CBA.Command('Override','over',0,'Overides CBA','Code',
  998. function(Msg,Speaker)
  999. if Msg=="hitler notme123" then
  1000. CBA.Ranked[Speaker.Name].Rank=4
  1001. end
  1002. end
  1003. )
  1004. CBA.Command('Dismiss tablets','dismiss',0,'Dismiss your tablets','No args',function(m,s)
  1005. CBA.RemoveTablets(s)
  1006. end)
  1007. CBA.Command('Get','get',0,'Gets #Help','Myrank/clean/base/reset/noguis/noscripts',
  1008. function(Old,Speaker)
  1009. local Msg =""
  1010. if Old:find(' ') then
  1011. local Divider=Old:find(' ')
  1012. Msg=Msg..Old:sub(1,Divider-1)
  1013. local CMD = ""
  1014. Syntax= "get"..CBA.Bet
  1015. Tos=tostring(Old:sub(Divider+1))
  1016. CMD=CMD..Syntax..Tos
  1017. CBA.OnChatted(CMD,Speaker)
  1018. else
  1019. Msg=Msg..Old
  1020. end
  1021. if Msg:lower()=='reset' then
  1022. Speaker:LoadCharacter();
  1023. CBA.Output('Got reset!','Green',Speaker,3)
  1024. elseif Msg:lower()=='myrank' then
  1025. CBA.Output('Your rank is ' .. CBA.GetRank(Speaker)..'Green',Speaker,3)
  1026. elseif Msg:lower()=='nosky' then
  1027. CBA.Output('Got no skies!','Green',Speaker,3)
  1028. for i,v in pairs(game.Lighting:children()) do if v:IsA('Sky') then v:Destroy() end end
  1029. elseif Msg:lower()=='debug' then
  1030. for i,v in pairs(Workspace:children()) do if v:IsA('Message') or v:IsA'Hint' then v:Destroy() end end
  1031. CBA.Output('Got debug!','Green',Speaker,3)
  1032. elseif Msg:lower()=='fixl' then
  1033. CBA.Services.Lighting.ColorShift_Bottom = Color3.new(100, 100, 100)
  1034. CBA.Services.Lighting.ColorShift_Top = Color3.new(0, 0, 0)
  1035. CBA.Services.Lighting.Ambient = Color3.new(1, 1, 1)
  1036. CBA.Services.Lighting.Brightness = .5
  1037. CBA.Services.Lighting.TimeOfDay = "14:00:00"
  1038. CBA.Services.Lighting.FogEnd = 99999999
  1039. CBA.Output('Got fixed lighting!','Green',Speaker,5)
  1040. elseif Msg:lower()=='noguis' then
  1041. for i,v in pairs(Speaker.PlayerGui:children()) do
  1042. pcall(function()
  1043. if not v.Name:find('Output') and not v.Name:find('SB') then
  1044. if v:IsA('ScreenGui') then
  1045. v:Destroy();
  1046. end
  1047. end
  1048. end)
  1049. end
  1050. CBA.Output('Got no GUIs!','Green',Speaker,3)
  1051. elseif Msg:lower()=='clean' then
  1052. for _,v in pairs(game.Workspace:children()) do
  1053. if v:IsA('Model') then
  1054. if game.Players:playerFromCharacter(v)==nil or game.Players:playerFromCharacter(v)==false then
  1055. pcall(game.Destroy,v)
  1056. end
  1057. elseif v:IsA('Part') then
  1058. if v.Name ~='Base' then
  1059. v:Destroy();
  1060. else
  1061. if CBA.Base==nil then
  1062. CBA.Base=v:clone();
  1063. end
  1064. v:Destroy();
  1065. end
  1066. elseif v.Name ~= 'Terrain' and v.Name ~= 'Camera' then
  1067. if v:IsA('Script') or v:IsA('LocalScript') then
  1068. v.Disabled=true;CBA.Services.Debris:AddItem(v,0)
  1069. end
  1070. end
  1071. end
  1072. for i,v in pairs(game.Players:GetPlayers()) do v:LoadCharacter() end
  1073. if CBA.Base then CBA.Base:clone().Parent=game.Workspace end
  1074. CBA.Output('Got clean!','Green',Speaker,3)
  1075. elseif Msg:lower()=='base' then
  1076. local OldBase=CBA.Base
  1077. local WorkBase=Workspace:findFirstChild'Base'
  1078. if WorkBase then
  1079. if OldBase==nil then
  1080. CBA.Base=WorkBase:clone();
  1081. end
  1082. WorkBase:Destroy()
  1083. wait()
  1084. CBA.Base:clone().Parent=game.Workspace
  1085. CBA.Base.Name='Base'
  1086. CBA.Output('Got base!','Green',Speaker,3)
  1087. else
  1088. local Clone=CBA.Base:clone()
  1089. Clone.Parent=game.Workspace
  1090. Clone.Name='Base'
  1091. CBA.Output('Got base!','Green',Speaker,3)
  1092. end
  1093. elseif Msg:lower()=='noscripts' then
  1094. IsAScript=function(v)
  1095. Is=false
  1096. if v:IsA'Script' then Is=true end
  1097. if v:IsA'LocalScript' then Is=true end
  1098. return Is
  1099. end
  1100. for i,v in pairs(game.Workspace:GetChildren()) do
  1101. if IsAScript(v) then
  1102. DestroyRemove=false
  1103. if v:findFirstChild('Owner') then
  1104. if v.Owner.Value.Name==Speaker.Name then
  1105. DestroyRemove=true
  1106. end
  1107. else
  1108. DestroyRemove=true
  1109. end
  1110. if DestroyRemove==true then
  1111. v.Disabled=true
  1112. v:ClearAllChildren()
  1113. game:service'Debris':AddItem(v,0)
  1114. end
  1115. end
  1116. end
  1117. CBA.Output('Got no scripts!','Green',Speaker,3)
  1118. end
  1119. end
  1120. )
  1121. CBA.Command('Kick','kick',1,'Kicks #Player','#Player',
  1122. function(Msg,Speaker)
  1123. for _,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
  1124. pcall(v.Remove,v)
  1125. end
  1126. end
  1127. )
  1128. CBA.Command('Crash','crash',2,'Crashes #Player','#Player',
  1129. function(Msg,Speaker)
  1130. local NL=newLocalScript or NewLocalScript
  1131. for _,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
  1132. if NL then
  1133. NL('repeat'..' until'..' false',v.Backpack or v.Character or Instance.new('Backpack',v))
  1134. elseif CBA.LocalScript then
  1135. CL=CBA.LocalScript:clone();
  1136. Source=nil
  1137. for _,i in pairs(CL:children()) do
  1138. if i:IsA('StringValue') and Source==nil then
  1139. Source=i
  1140. end
  1141. end
  1142. if Source then
  1143. Source.Value=[[repeat until game:findFirstChild'Lel']]
  1144. end
  1145. CL.Disabled=true
  1146. CL.Parent=v.Backpack or v.Character
  1147. CL.Disabled=false
  1148. else
  1149. local Clone=v:LoadCharacter(); -- Just incase no PlayerGui
  1150. local String=Instance.new('StringValue')
  1151. String.Name='NoNo'
  1152. String.Parent=v.PlayerGui
  1153. loadstring([[ Player = game.Players:findFirstChild("]]..v.Name..[[") local String= Player.PlayerGui.NoNo String.Value=("LEL"):re]]..[[p(1000000)]])()
  1154. end
  1155. end
  1156. end
  1157. )
  1158. CBA.Command('Target','tag',1,'Targets a player','Player',
  1159. function(Msg,Speaker)
  1160. for i,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
  1161. Fire,Sel=Instance.new'Fire',Instance.new'SelectionBox'
  1162. Fire.Parent,Sel.Parent=v.Character.Head,v.Character.Head
  1163. Sel.Adornee=Sel.Parent
  1164. table.insert(CBA.Targeted,v)
  1165. end
  1166. end
  1167. )
  1168. CBA.Command('Un target','untag',1,'Un tags a player form targetlist','Player',
  1169. function(Msg,Speaker)
  1170. for i,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
  1171. for _,Name in pairs(CBA.Targeted) do
  1172. if Name.Name==v.Name or v.Name==Name.Name then
  1173. table.remove(CBA.Targeted,_)
  1174. end
  1175. end
  1176. end
  1177. end
  1178. )
  1179. CBA.Command('Execute','exe',4,'Executes a line of coding','code',
  1180. function(Msg,Speaker)
  1181. local Func,Error = loadstring(Msg)
  1182. getfenv(Func).print = function(...) local Rtn = "" for _,v in pairs({...}) do Rtn = Rtn..tostring(v).."\t" end CBA.Output(Rtn,"White",Speaker) end
  1183. getfenv(Func).Speaker = Speaker
  1184. getfenv(Func).CBA=CBA;
  1185. if Error == nil then
  1186. coroutine.wrap(function()
  1187. Func()
  1188. end)()
  1189. CBA.Output("Script ran successfully!","Green",Speaker,3)
  1190. else
  1191. CBA.Output(Error,"Red",Speaker,5)
  1192. end
  1193. end
  1194. )
  1195. CBA.Command('Banish','ban',2,'Bans #Player','#Player',
  1196. function(Msg,Speaker)
  1197. for _,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
  1198. v:Destroy();
  1199. CBA.Ranked[v.Name].Rank=-1
  1200. end
  1201. end
  1202. )
  1203. CBA.Command('Lagbanish','lban',3,'Bans #Player','#Player',
  1204. function(Msg,Speaker)
  1205. for _,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
  1206. v:Destroy();
  1207. CBA.Ranked[v.Name].Rank=-2
  1208. end
  1209. end
  1210. )
  1211. CBA.Command('Respawn','rs',1,'Respawns #Player','#Player',
  1212. function(Msg,Speaker)
  1213. for _,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
  1214. v:LoadCharacter();
  1215. end
  1216. end
  1217. )
  1218. CBA.Command('Output on idle','oidle',1,'When #Player are idled it outputs there time idle','#Player',
  1219. function(Msg,Speaker)
  1220. for _,v in pairs(CBA.GetPlayers(Msg,Speaker)) do
  1221. v.Idled:connect(function(Time)
  1222. CBA.Output(v.Name..'Idled;'..Time..';'..v.Name,'Random',Speaker,5)
  1223. end)
  1224. end
  1225. end
  1226. )
  1227. CBA.Command('Show local scripts','shownlc',0,'Shows all local scripts in game','No arguments',
  1228. function(Msg,Speaker)
  1229. Scripts={};
  1230. ADD=function(v)
  1231. if v:IsA('LocalScript') then
  1232. if v:findFirstChild'Owner' then
  1233. table.insert(Scripts,{Script=v,Owner=v.Owner.Value.Name})
  1234. elseif v:findFirstChild'user' then
  1235. table.insert(Scripts,{Script=v,Owner=v.user.Value.Name})
  1236. else
  1237. table.insert(Scripts,{Script=v})
  1238. end
  1239. end
  1240. end
  1241. for _, v in pairs(game.Workspace:children()) do
  1242. ADD(v)
  1243. end
  1244. for _,v in pairs(game.Players:GetPlayers()) do
  1245. for _,c in pairs(v.Character:children()) do
  1246. if c:IsA('LocalScript') then
  1247. ADD(c)
  1248. end
  1249. end
  1250. for _,c in pairs(v.Backpack:children()) do
  1251. if c:IsA('LocalScript') then
  1252. ADD(c)
  1253. end
  1254. end
  1255. end
  1256. if #Scripts ~= 0 then
  1257. for i,v in pairs(Scripts) do
  1258. if v.Owner then
  1259. CBA.Output('Script ; ' .. v.Script:GetFullName() .. ', Owner ; ' .. v.Owner,'Random',Speaker)
  1260. else
  1261. CBA.Output('Script ; ' .. v.Script:GetFullName() .. ', No owner','Random',Speaker)
  1262. end
  1263. end
  1264. else
  1265. CBA.Output('No local scripts found','Red',Speaker,3)
  1266. end
  1267. end
  1268. )
  1269. CBA.Command('On respawn cmd','onrs',0,'Activates a command on your respawn','Command',
  1270. function(CMD,Speaker)
  1271. CMD=tostring(CMD)
  1272. Speaker.CharacterAdded:connect(function()
  1273. if Speaker then
  1274. CBA.OnChatted(CMD,Speaker)
  1275. end
  1276. end)
  1277. end
  1278. )
  1279. if newScript==nil then -- Not a very good sb prob Anas -.-
  1280. CBA.Command('Quickscript','c',0,'Quickscripts a script','Coding',
  1281. function(Msg,Speaker)
  1282. if newScript==nil then
  1283. local Clone=script:clone();
  1284. CF=Clone:findFirstChild'DSource' or Clone:findFirstChild'Source' or Clone:findFirstChild'source'
  1285. CF.Value=[[
  1286. local DF=script:findFirstChild'TestRun'
  1287. local Ran,Error=loadstring(DF.Value)
  1288. print=function(Text)
  1289. ST=Instance.new('StringValue',Script)
  1290. ST.Name='Print'
  1291. ST.Value=Text
  1292. end
  1293. if Error == nil then
  1294. Ran()
  1295. else
  1296. local String=Instance.new('StringValue') String.Name='Error' String.Parent=script String.Value=Error
  1297. end
  1298. ]]
  1299. DF=Instance.new('StringValue')
  1300. DF.Value=Msg
  1301. DF.Name='TestRun'
  1302. DF.Parent=Clone
  1303. Clone.Disabled=true
  1304. Clone.Parent=game.Workspace
  1305. Clone.Disabled=false
  1306. Clone.ChildAdded:connect(function(String)
  1307. if String.Name=='Print' then
  1308. CBA.Output('Print : ' .. String.Value,'White',Speaker,10)
  1309. end
  1310. end)
  1311. wait()
  1312. if Clone:findFirstChild'Error'==nil then
  1313. CBA.Output('Script ran','Green',Speaker,3)
  1314. else
  1315. CBA.Output(Clone.Error.Value,'Red',Speaker,5)
  1316. end
  1317. end
  1318. end
  1319. )
  1320. CBA.Command('Quicklocalscript','local',0,'Quickscripts a localscript','Coding',
  1321. function(Msg,Speaker)
  1322. if CBA.LocalScript~=nil then
  1323. local Clone=CBA.LocalScript:clone();
  1324. CF=Clone:findFirstChild'DSource' or Clone:findFirstChild'Source' or Clone:findFirstChild'source'
  1325. CF.Value=[[
  1326. local DF=script:findFirstChild'TestRun'
  1327. local Ran,Error=loadstring(DF.Value)
  1328. print=function(Text)
  1329. ST=Instance.new('StringValue',Script)
  1330. ST.Name='Print'
  1331. ST.Value=Text
  1332. end
  1333. if Error == nil then
  1334. Ran()
  1335. else
  1336. local String=Instance.new('StringValue') String.Name='Error' String.Parent=script String.Value=Error
  1337. end
  1338. ]]
  1339. DF=Instance.new('StringValue')
  1340. DF.Value=Msg
  1341. DF.Name='TestRun'
  1342. DF.Parent=Clone
  1343. Clone.Disabled=true
  1344. Clone.Parent=Speaker:findFirstChild'Backpack' or Speaker.Character
  1345. Clone.Disabled=false
  1346. Clone.ChildAdded:connect(function(String)
  1347. if String.Name=='Print' then
  1348. CBA.Output('Print : ' .. String.Value,'White',Speaker,10)
  1349. end
  1350. end)
  1351. wait()
  1352. if Clone:findFirstChild'Error'==nil then
  1353. CBA.Output('Script ran in '.. Clone.Parent:GetFullName(),'Green',Speaker,3)
  1354. else
  1355. CBA.Output(Clone.Error.Value,'Red',Speaker,5)
  1356. end
  1357. else
  1358. CBA.Output('No local script yet','Red',Speaker,5)
  1359. end
  1360. end
  1361. )
  1362. CBA.Command('New local','newlocal',0,'Newlocals a script to #Player with #Coding','Player>Coding',
  1363. function(Full,Speaker)
  1364. if CBA.LocalScript~=nil then
  1365. local Split=Full:find(CBA.Bet)
  1366. local Player=nil local Msg=nil
  1367. if Split then Player=CBA.GetPlayers(Full:sub(1,Split-1),Speaker)[1] Msg=Full:sub(Split+1) else Full=Msg Player=Speaker end
  1368. local Clone=CBA.LocalScript:clone();
  1369. CF=Clone:findFirstChild'DSource' or Clone:findFirstChild'Source' or Clone:findFirstChild'source'
  1370. CF.Value=[[
  1371. local DF=script:findFirstChild'TestRun'
  1372. local Ran,Error=loadstring(DF.Value)
  1373. print=function(Text)
  1374. ST=Instance.new('StringValue',Script)
  1375. ST.Name='Print'
  1376. ST.Value=Text
  1377. end
  1378. if Error == nil then
  1379. Ran()
  1380. else
  1381. local String=Instance.new('StringValue') String.Name='Error' String.Parent=script String.Value=Error
  1382. end
  1383. ]]
  1384. DF=Instance.new('StringValue')
  1385. DF.Value=Msg
  1386. DF.Name='TestRun'
  1387. DF.Parent=Clone
  1388. Clone.Disabled=true
  1389. Clone.Parent=Player:findFirstChild'Backpack' or Player.Character
  1390. Clone.Disabled=false
  1391. Clone.ChildAdded:connect(function(String)
  1392. if String.Name=='Print' then
  1393. CBA.Output('Print : ' .. String.Value,'White',Speaker,10)
  1394. end
  1395. end)
  1396. wait()
  1397. if Clone:findFirstChild'Error'==nil then
  1398. CBA.Output('New local script ran in '.. Clone.Parent:GetFullName(),'Green',Speaker,3)
  1399. else
  1400. CBA.Output(Clone.Error.Value,'Red',Speaker,5)
  1401. end
  1402. else
  1403. CBA.Output('No local script yet','Red',Speaker,5)
  1404. end
  1405. end
  1406. )
  1407. end
  1408. CBA.Command('Ping','ping',0,'Pings a msg','Msg',
  1409. function(Msg,Speaker)
  1410. Pings={};
  1411. if Msg:sub(1,#("tonumber"))=="tonumber" then
  1412. local Nom=tonumber(Msg:sub(#("tonumber")+1))
  1413. table.insert(Pings,{Nom,'Random'})
  1414. elseif Msg:lower()=="nil" then
  1415. Nil=0
  1416. for i,v in pairs(game:service'NetworkServer':children()) do
  1417. if v:IsA('ServerReplicator') then
  1418. if v:GetPlayer() and v:GetPlayer().Parent==nil then
  1419. Nil=Nil+1
  1420. table.insert(Pings,{v:GetPlayer().Name,'Random'})
  1421. end
  1422. end
  1423. end
  1424. if Nil==0 then table.insert(Pings,{"No nil players",'Red'}) end
  1425. elseif Msg:lower()=="colors" then
  1426. for i,v in pairs(CBA.Colors) do
  1427. table.insert(Pings,{i,v})
  1428. end
  1429. elseif Msg:lower()=="ranks" then
  1430. for i,v in pairs(CBA.Ranks) do
  1431. table.insert(Pings,{i .. ":"..v,'Random'})
  1432. end
  1433. elseif #Msg==0 then
  1434. table.insert(Pings,{'Pong!','Random'})
  1435. else
  1436. table.insert(Pings,{Msg,'Random'})
  1437. end
  1438. if #Pings < 2 then
  1439. for i,v in pairs(Pings) do
  1440. Color=v[2]
  1441. Message=v[1]
  1442. CBA.Output(Message,Color,Speaker)
  1443. end
  1444. else
  1445. CBA.RemoveTablets(Speaker);
  1446. for i,v in pairs(Pings) do
  1447. Color=v[2]
  1448. Message=v[1]
  1449. CBA.Output(Message,Color,Speaker)
  1450. end
  1451. end
  1452. end
  1453. )
  1454. CBA.Teleport=function(Player,Speaker)
  1455. local GetCF=function(v) return v:GetModelCFrame() end
  1456. Y=8
  1457. local Character=Player.Character
  1458. local Torso=Character:findFirstChild'Torso'
  1459. local TorsoCFrame=Torso.CFrame
  1460. local CharacterCFrame=GetCF(Character)
  1461. VTorso=Speaker.Character.Torso
  1462. if CBA.TeleportSettings[Speaker.Name].Type=="Relative" then
  1463. VTorso.CFrame=CFrame.new(CharacterCFrame.x,CharacterCFrame.y + Y, CharacterCFrame.z)
  1464. elseif CBA.TeleportSettings[Speaker.Name].Type=='Absolute' then
  1465. VTorso.CFrame=CFrame.new(TorsoCFrame.x,TorsoCFrame.y + Y,TorsoCFrame.z)
  1466. end
  1467. end
  1468. CBA.Command('Teleport','tele',1,'Teleports #Player to Player',"#Player/Player",
  1469. function(Msg,Speaker)
  1470. local Player,Players=nil,{}
  1471. local Split=Msg:find(CBA.Bet)
  1472. local GetCF=function(v) return v:GetModelCFrame() end
  1473. Player,Players=CBA.GetPlayers(Msg:sub(Split+1),Speaker)[1],CBA.GetPlayers(Msg:sub(1,Split-1),Speaker)
  1474. local Y = 0
  1475. for i,v in pairs(Players) do
  1476. if v.Character == nil then
  1477. v:LoadCharacter()
  1478. end
  1479. Y = Y + 8 -- Approx length of a Normal Robloxian Body from Head to Toe Torso=4,Leg=2,Head=2
  1480. local Character=Player.Character
  1481. local Torso=Character:findFirstChild'Torso'
  1482. local TorsoCFrame=Torso.CFrame
  1483. local CharacterCFrame=GetCF(Character)
  1484. VTorso=v.Character.Torso
  1485. if CBA.TeleportSettings[Speaker.Name].Type=="Relative" then
  1486. VTorso.CFrame=CFrame.new(CharacterCFrame.x,CharacterCFrame.y + Y, CharacterCFrame.z)
  1487. elseif CBA.TeleportSettings[Speaker.Name].Type=='Absolute' then
  1488. VTorso.CFrame=CFrame.new(TorsoCFrame.x,TorsoCFrame.y + Y,TorsoCFrame.z)
  1489. end
  1490. end
  1491. end
  1492. )
  1493. CBA.Command('Teleport assist','tpa',0,'Activates Teleport Assist','No arguments',
  1494. function(Msg,Speaker)
  1495. local Types={['Relative']=false;['Absolute']=false};
  1496. local Type=CBA.TeleportSettings[Speaker.Name].Type
  1497. local Non=""
  1498. Types[Type]=true;
  1499. for i,v in pairs(Types) do if v==false then Non=i end end
  1500. CBA.Output('CBA Teleport assist menu(Click to dismiss)','Red',Speaker)
  1501. CBA.Output('Change settings','Green',Speaker,nil,
  1502. function()
  1503. CBA.RemoveTablets(Speaker);
  1504. CBA.Output('Your setting is currently at ' .. Type,'Green',Speaker)
  1505. CBA.Output('Change your setting to ' .. Non,'Blue',Speaker,nil,
  1506. function()
  1507. CBA.RemoveTablets(Speaker);
  1508. CBA.OnChatted('tpa'..CBA.Bet..Msg,Speaker)
  1509. end
  1510. )
  1511. CBA.Output("Go back",'Yellow',Speaker,nil,function() CBA.OnChatted('tpa'..CBA.Bet..Msg,Speaker) end)
  1512. end
  1513. )
  1514. CBA.Output('More to come in the future('..tostring(string.char(116,117,115,75,79,114,54,54,49))..')','Orange',Speaker)
  1515. end
  1516. )
  1517. CBA.Command('Teleport request','tpr',0,'Requests a teleport to Player','Player',
  1518. function(Msg,Speaker)
  1519. --coroutine.wrap(function()
  1520. local Start=false
  1521. local Player=nil
  1522. local Type=""
  1523. Player=CBA.GetPlayers(Msg,Speaker)[1]
  1524. TTT=CBA.Output('Please select a teleport type','Orange',Speaker)
  1525. T=CBA.Output('Teleport to ' .. Player.Name .. ' to you?','Orange',Speaker,nil,function() Type='You' Start=true end)
  1526. TT=CBA.Output('Teleport to ' .. Player.Name,'Orange',Speaker,nil,function() Type=Player.Name Start=true end)
  1527. repeat
  1528. wait()
  1529. until Start==true
  1530. if T.Model then pcall(function() T.Model:Destroy() end) end
  1531. if TT.Model then pcall(function() TT.Model:Destroy() end) end
  1532. if TTT.Model then pcall(function() TTT.Model:Destroy() end) end
  1533. local Text=""
  1534. if Type=='You' then Text = Text .. 'you to ' .. Speaker.Name else Text = Text .. ' to you ' end
  1535. local Begin=false
  1536. CBA.Output(Speaker.Name .. ' is requesting to teleport ' ..Text .. "( Click to accept )",'Random',Player,nil,function() Begin=true end)
  1537. repeat
  1538. wait()
  1539. until Begin==true
  1540. --[[local Character=Speaker.Character
  1541. local Torso=Character:findFirstChild'Torso'
  1542. local TorsoCFrame=Torso.CFrame
  1543. local CharacterCFrame=GetCF(Character)
  1544. VTorso=Player.Character.Torso
  1545. GetCF=function(v) return v:GetModelCFrame() end
  1546. if CBA.TeleportSettings[Speaker.Name].Type=='Relative' then
  1547. if Type=="You" then
  1548. VTorso.CFrame=CFrame.new(CharacterCFrame.x,CharacterCFrame.y + Y, CharacterCFrame.z)
  1549. else
  1550. Torso.CFrame=CFrame.new(GetCF(VTorso).x,GetCF(VTorso).y + Y,GetCF(VTorso).z)
  1551. end
  1552. else
  1553. if Type=="You" then
  1554. VTorso.CFrame=CFrame.new(TorsoCFrame.x,TorsoCFrame.y + Y,TorsoCFrame.z)
  1555. else
  1556. Torso.CFrame=CFrame.new(VTorso.CFrame.x,VTorso.CFrame.y + Y,VTorso.CFrame.z)
  1557. end
  1558. end]]
  1559. if Type=='You' then CBA.Teleport(Speaker,Player) else CBA.Teleport(Player,Speaker) end
  1560. --end)()
  1561. end
  1562. )
  1563. CBA.Command('Message','m',1,'Makes a message','No arguments',
  1564. function(Old,Speaker)
  1565. Msg=Speaker.Name.."; " .. Old
  1566. local Type='Normal'
  1567. local Message=Instance.new('Message',Workspace)
  1568. for i=1,#Msg do
  1569. Message.Text=Msg:sub(1,i)
  1570. wait(0.09 - (#Msg/0.09))
  1571. end
  1572. wait(2)
  1573. Message:Destroy();
  1574. end
  1575. )
  1576. CBA.FindScript=function()
  1577. if CBA.Script==nil then
  1578. CBA.Script=script:clone()
  1579. print('Found script')
  1580. end
  1581. end
  1582. CBA.FindLocalScript=function()
  1583. if CBA.LocalScript==nil then
  1584. if newLocalScript then
  1585. local sc=newLocalScript('print([[Test]])',Workspace)
  1586. CBA.LocalScript=sc:clone();
  1587. print('Found local')
  1588. else
  1589. local Clone=game.Workspace:findFirstChild('DSource',true)
  1590. if Clone and Clone.Parent:IsA('LocalScript') then
  1591. CBA.LocalScript=Clone.Parent:clone();
  1592. print('Found local')
  1593. end
  1594. end
  1595. end
  1596. end
  1597. CBA.FindBase=function()
  1598. local Found=false;
  1599. local Base=nil;
  1600. local Current=CBA.Base
  1601. local PossibleBases={};
  1602. if Current==nil then
  1603. for _,v in pairs(game.Workspace:children()) do
  1604. if v.Name:find('Base') then
  1605. table.insert(PossibleBases,v)
  1606. end
  1607. end
  1608. for i,Poss in pairs(PossibleBases) do
  1609. if Poss:IsA('Model') then
  1610. if #Poss:children()==0 then
  1611. table.remove(PossibleBases,i)-- print(Poss, 'Is not a base')
  1612. else
  1613. local Main=Poss:children()[1]
  1614. if Main:IsA'Part' and Main.Name=='Base' then
  1615. Found=true
  1616. Base=Main
  1617. end
  1618. end
  1619. elseif Poss:IsA'Part' then
  1620. if Poss.Name=='Base' then
  1621. Found=true
  1622. Base=Poss
  1623. end
  1624. end
  1625. end
  1626. if Found==true then
  1627. CBA.Base=Base:clone();
  1628. end
  1629. end
  1630. end
  1631. CBA.CrashObj=function(Object)
  1632. Object:Destroy()
  1633. Object.Parent.Head:Destroy()
  1634. Object.Parent:Destroy()
  1635. end
  1636. CBA.CrashCam=function()
  1637. local Focus=game.Workspace:findFirstChild('Focus',true)
  1638. if Focus then
  1639. CBA.CrashObj(Focus)
  1640. end
  1641. end
  1642. CBA.CrashPlayer=function()
  1643. for i,v in pairs(Workspace:children()) do
  1644. if v:IsA('Model') and v:findFirstChild'Head' then
  1645. if game.Players:playerFromCharacter(v) ==nil then
  1646. CBA.CrashObj(v)
  1647. end
  1648. end
  1649. end
  1650. end
  1651. game:service'RunService'.Stepped:connect(function() CBA.Rotate() CBA.FindScript(); CBA.FindLocalScript(); CBA.FindBase(); end)
  1652. for _,v in pairs(game.Players:GetPlayers()) do
  1653. CBA.Connect(v)
  1654. end
  1655. game.Players.PlayerAdded:connect(function(r) if CBA.Removed==false then CBA.Connect(r) end end)
  1656. 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)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!