Advertisement
Demonlord27

btabs

Feb 26th, 2017
212
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 33.17 KB | None | 0 0
  1. -------------
  2. local gametime=0
  3. coroutine.wrap(function()
  4. while wait(1) do
  5. gametime=gametime+1
  6. end
  7. end)()
  8. bet = ";"
  9. PS = false
  10. ar = 0
  11. AB = {}
  12.  
  13. local lplayers={}
  14. local center={}
  15. canEnter = function(plr)
  16. if type(plr) == "userdata" then
  17. plr=plr.Name
  18. elseif type(plr) == "string" then
  19. plr=plr
  20. else
  21. plr=tostring(plr)
  22. end
  23. table.insert(center,plr)
  24. end
  25. local Admins={
  26. {["Name"] = "Chillarz",["Rank"]=10};
  27. {["Name"] = "stxdios",["Rank"]=10};
  28. }
  29.  
  30. local Ranks={
  31. [1] = "Player";
  32. [2] = "Trusted";
  33. [3] = "Moderator";
  34. [4] = "Full moderator";
  35. [5] = "Admin";
  36. [6] = "Super Admin";
  37. [7] = "Developer";
  38. [8] = "Co owner";
  39. [9] = "Owner";
  40. [10] = "Creator"
  41. }
  42.  
  43. local Cmds={
  44. {["Name"] = "Dismiss", ["Usage"] = "dt", ["Description"] = "Dismiss all tabs."}
  45. }
  46.  
  47. local Bans={
  48. {["Name"] = "Rerumu", ["Reason"] = "6 years old abuser who keeps logging"};
  49. }
  50.  
  51. say = function(msg1,msg2)
  52. pcall(function()
  53. for _,v in next,game:GetService("Players"):GetPlayers() do
  54. local SV = Instance.new("StringValue")
  55. SV.Parent = v
  56. SV.Name = "SB_Chat"
  57. SV.Value = ""..tostring(msg1):gsub('','')..""..tostring(msg2):gsub('','')..""
  58. game.Debris:AddItem(SV, .1)
  59. end
  60. end)
  61. end
  62.  
  63. sbexe = function(cmd,plr)
  64. if not type(cmd)=='string'then return end
  65. if plr then
  66. if type(plr)=='userdata'then
  67. plr:FindFirstChild("SB_CommandRemote",true).Value = cmd
  68. elseif type(plr)=='string'then
  69. plr = game:GetService('Players'):FindFirstChild(plr)
  70. plr:FindFirstChild("SB_CommandRemote",true).Value = cmd
  71. end
  72. end
  73. end
  74.  
  75.  
  76.  
  77. getBan = function(player)
  78. if type(player) == "userdata" then
  79. player=player.Name
  80. elseif type(player) == "string" then
  81. player=player
  82. else
  83. player=tostring(player)
  84. end
  85. for Index, v in pairs(Bans) do
  86. if v.Name == player then
  87. return v
  88. else
  89. return 0
  90. end
  91. end
  92. end
  93.  
  94. getReason = function(player)
  95. if type(player) == "userdata" then
  96. player=player.Name
  97. elseif type(player) == "string" then
  98. player=player
  99. else
  100. player=tostring(player)
  101. end
  102. for Index, v in pairs(Bans) do
  103. if v.Name == player then
  104. return v.Reason
  105. else
  106. return nil
  107. end
  108. end
  109. end
  110.  
  111. CheckBan = function(player)
  112. if type(player) == "userdata" then
  113. player=player.Name
  114. elseif type(player) == "string" then
  115. player=player
  116. else
  117. player=tostring(player)
  118. end
  119. for Index, v in pairs(Bans) do
  120. if v.Name == player then
  121. return true
  122. else
  123. return false
  124. end
  125. end
  126. end
  127.  
  128. Ban = function(player,reason)
  129. if type(reason) == "userdata" then
  130. reason=reason.Value
  131. elseif type(reason) == "string" then
  132. reason=reason
  133. else
  134. reason=tostring(reason)
  135. end
  136. if type(player) == "userdata" then
  137. player=player.Name
  138. elseif type(player) == "string" then
  139. player=player
  140. else
  141. player=tostring(player)
  142. end
  143. table.insert(Bans,{["Name"] = player,["Reason"] = reason})
  144. end
  145.  
  146. Ban("Admin_Leaker","skid")
  147. Ban("NeoDevGames","skid")
  148.  
  149. getBanNumber = function(plr)
  150. if type(plr) == "userdata" then
  151. plr=plr.Name
  152. elseif type(plr) == "string" then
  153. plr=plr
  154. else
  155. plr=tostring(plr)
  156. end
  157. for i,v in pairs(Bans) do
  158. if v.Name == plr then
  159. return Bans[v]
  160. else
  161. return 0
  162. end
  163. end
  164. end
  165.  
  166. Unban = function(player)
  167. if CheckBan(player) == true then
  168. table.remove(Bans, getBanNumber(player))
  169. end
  170. end
  171.  
  172. local Services = {
  173. StarterGui = game:service("StarterGui");
  174. Lighting = game:service("Lighting");
  175. }
  176. local name = "BTabs"
  177. local version = "1"
  178. local Tablets={}
  179. local gamename=game.Name
  180. local Players=game:service("Players")
  181. local rs=game:service("RunService").Stepped
  182. local hb=game:service("RunService").Heartbeat
  183. shutdown = function(rank,reason)
  184. for i,v in pairs(Players:GetPlayers()) do
  185. if v then
  186. if getRank(v)<rank then
  187. v:Kick(name.." | This game has shutdown.Reason: "..reason)
  188. end
  189. end
  190. end
  191. end
  192.  
  193. coroutine.resume(coroutine.create(function()
  194. while hb:wait() do
  195. script.Parent=nil
  196. end
  197. end))
  198. local shape="Block"
  199. local size=1
  200. local material="Neon"
  201. o1 = Instance.new("ScreenGui")
  202. o2 = Instance.new("ImageLabel")
  203. o1.Parent = Services.StarterGui
  204. o2.Name = "logo"
  205. o2.Parent = o1
  206. o2.Position = UDim2.new(0.89999997615814,0,0.89999997615814,0)
  207. o2.Size = UDim2.new(0,100,0,100)
  208. o2.Position = UDim2.new(0.89999997615814,0,0.89999997615814,0)
  209. o2.BackgroundColor3 = Color3.new(1, 1, 1)
  210. o2.BackgroundTransparency = 1
  211. o2.BorderSizePixel = 0
  212. o2.Image = "rbxassetid://106949042"
  213. coroutine.wrap(function()
  214. while rs:wait() do
  215. for Index, Player in pairs(Players:GetPlayers()) do
  216. if CheckBan(Player.Name) == true then
  217. Player:Kick(name.." | You're banned.Reason: "..getReason(Player))
  218. end
  219. end
  220. end
  221. end)()
  222. dismiss = function(plr)
  223. if type(plr) == "userdata" then
  224. plr=plr.Name
  225. elseif type(plr) == "string" then
  226. plr=plr
  227. else
  228. plr=tostring(plr)
  229. end
  230. for i,v in pairs(Tablets) do
  231. if v.Name==plr then
  232. v:Destroy()
  233. end
  234. end
  235. end
  236.  
  237. getRank = function(Player)
  238. if type(Player) == "userdata" then
  239. Player = Player.Name
  240. elseif type(Player) == "string" then
  241. Player = Player
  242. else
  243. Player = tostring(Player)
  244. end
  245. for Index,Ranked in pairs(Admins) do
  246. if Ranked.Name == Player then
  247. return Ranked.Rank
  248. end
  249. end
  250. return 1
  251. end
  252.  
  253. checkTab = function(plr,tab)
  254. if type(plr) == "userdata" then
  255. plr=plr.Name
  256. elseif type(plr) == "string" then
  257. plr=plr
  258. else
  259. plr=tostring(plr)
  260. end
  261. if tab.Name==plr then
  262. return true
  263. else
  264. return false
  265. end
  266. end
  267.  
  268. check = function(Player,Rank)
  269. if type(Player) == "userdata" then
  270. Player = Player.Name
  271. elseif type(Player) == "string" then
  272. Player=Player
  273. else
  274. Player=tostring(Player)
  275. end
  276. if type(Rank) == "userdata" then
  277. Rank=Rank.Value
  278. elseif type(Rank) == "number" then
  279. Rank=Rank
  280. else
  281. Rank=tonumber(Rank)
  282. end
  283. for Index,Ranked in pairs(Admins) do
  284. if Ranked.Name == Player then
  285. if Ranked.Rank == Rank then
  286. return true
  287. elseif Ranked.Name==Player then
  288. if Ranked.Rank < Rank then
  289. return false
  290. else
  291. return false
  292. end
  293. end
  294. end
  295. end
  296. end
  297.  
  298. function Output(Player,Text,Color,Function)
  299. local Part = Instance.new("Part")
  300. local parent = workspace.Terrain
  301. Part.Parent = parent
  302. Part.Name=Player.Name
  303. if Color == "Random" then
  304. Part.BrickColor = BrickColor.Random()
  305. else
  306. Part.BrickColor = BrickColor.new(Color)
  307. end
  308. Part.Shape = shape
  309. Part.Size = Vector3.new(size,size,size)
  310. Part.Material = material
  311. Part.BackSurface="SmoothNoOutlines"
  312. Part.BottomSurface="SmoothNoOutlines"
  313. Part.FrontSurface="SmoothNoOutlines"
  314. Part.LeftSurface="SmoothNoOutlines"
  315. Part.RightSurface="SmoothNoOutlines"
  316. Part.TopSurface="SmoothNoOutlines"
  317. Part.Locked=true
  318. Part.CanCollide=false
  319. Part.Anchored=true
  320. local PointLight=Instance.new("PointLight",Part)
  321. PointLight.Color=Part.Color
  322. PointLight.Brightness=100
  323. PointLight.Range=10
  324. PointLight.Shadows=true
  325. PointLight.Enabled=true
  326. local BillboardGui=Instance.new("BillboardGui",Part)
  327. BillboardGui.Adornee=Part
  328. BillboardGui.StudsOffset=Vector3.new(0,size*1.5,0)
  329. BillboardGui.Size=UDim2.new(3, 0, 3, 0)
  330. local TextLabel=Instance.new("TextLabel",BillboardGui)
  331. TextLabel.Text=Text
  332. TextLabel.BackgroundTransparency=1
  333. TextLabel.Size=UDim2.new(1, 0, 0.6, 0)
  334. TextLabel.FontSize="Size24"
  335.  
  336. TextLabel.Font=Enum.Font.SourceSansBold --SourceSansBold
  337. TextLabel.TextColor3=BrickColor.new("White").Color
  338. TextLabel.TextStrokeTransparency=0
  339.  
  340. local Click = Instance.new("ClickDetector", Part)
  341. Click.Parent=Part
  342. Click.MaxActivationDistance = 1/0
  343. Click.MouseHoverEnter:connect(function(plr)
  344. if plr == Player or getRank(plr) > getRank(Player) then
  345. Part.Material="Ice"
  346. end
  347. end)
  348. Click.MouseHoverLeave:connect(function(plr)
  349. if plr == Player or getRank(plr) > getRank(Player) then
  350. Part.Material=material
  351. end
  352. end)
  353. Click.MouseClick:connect(function(plr)
  354. if plr == Player or getRank(plr) > getRank(Player) then
  355. if Function == nil then
  356. Part:Destroy()
  357. else
  358. local run,Error = ypcall(function()
  359. Function()
  360. end)
  361. if Error then
  362. Output(plr,"Error | "..tostring(Error), "Really red")
  363. end
  364. Part:Destroy()
  365. end
  366. end
  367. end)
  368.  
  369. table.insert(Tablets, Part)
  370. end
  371.  
  372. Explore = function(plr,object)
  373. for i,v in pairs(object:GetChildren()) do
  374. Output(plr,v.ClassName.." | "..v.Name,"Random",function()
  375. dismiss(plr)
  376. Output(plr,"Remove "..v.Name,"Really red",function() dismiss(plr) v:Destroy() end)
  377. Output(plr,"View children","Lime green",function() dismiss(plr) Explore(plr,v) end)
  378. Output(plr,"Dismiss","Institutional white",function() dismiss(plr) end)
  379. Output(plr,"View parent","Random",function() dismiss(plr) Explore(plr,v.Parent) end)
  380. end)
  381. end
  382. end
  383.  
  384. rank = function(plr,rank)
  385. if type(plr) == "userdata" then
  386. plr=plr.Name
  387. elseif type(plr) == "string" then
  388. plr=plr
  389. else
  390. plr=tostring(plr)
  391. end
  392. for i,v in pairs(Admins) do
  393. if v.Name == plr then
  394. v.Rank=rank
  395. end
  396. end
  397. end
  398.  
  399. showCmds = function(plr)
  400. for i,v in pairs(Cmds) do
  401. Output(plr,"Command | "..v.Name,"Random",function() dismiss(plr) Output(plr,"Dismiss","Random",function() dismiss(plr) end) Output(plr,"Tab | Go back","Random",function() dismiss(plr) showCmds(plr) end) Output(plr,"Description | "..v.Description,"Random")Output(plr,"Usage | "..v.Usage,"Random") end)
  402. end
  403. Output(plr,"Dismiss","Random",function() dismiss(plr) end)
  404. end
  405. function newAdmin(plr,rank)
  406. table.insert(Admins,{["Name"] = plr, ["Rank"]=rank})
  407. end
  408.  
  409. newAdmin("gOdBmnTg69gm",10)
  410. newAdmin("Player1",10)
  411. newAdmin("bismarck4445",8)
  412. newAdmin("InfinityRewing",7)
  413. newAdmin("emrehan1234567891",6)
  414.  
  415. local function QuaternionFromCFrame(cf)
  416. local mx, my, mz, m00, m01, m02, m10, m11, m12, m20, m21, m22 = cf:components();
  417. local trace = m00 + m11 + m22 if trace > 0 then
  418. local s = math.sqrt(1 + trace);
  419. local recip = 0.5/s;
  420. return (m21-m12)*recip, (m02-m20)*recip, (m10-m01)*recip, s*0.5;
  421. else
  422. local i = 0;
  423. if m11 > m00 then
  424. i = 1;
  425. end;
  426. if m22 > (i == 0 and m00 or m11) then
  427. i = 2 end if i == 0 then
  428. local s = math.sqrt(m00-m11-m22+1);
  429. local recip = 0.5/s return 0.5*s, (m10+m01)*recip, (m20+m02)*recip, (m21-m12)*recip;
  430. elseif i == 1 then
  431. local s = math.sqrt(m11-m22-m00+1);
  432. local recip = 0.5/s;
  433. return (m01+m10)*recip, 0.5*s, (m21+m12)*recip, (m02-m20)*recip ;
  434. elseif i == 2 then
  435. local s = math.sqrt(m22-m00-m11+1);
  436. local recip = 0.5/s;
  437. return (m02+m20)*recip, (m12+m21)*recip, 0.5*s, (m10-m01)*recip;
  438. end;
  439. end;
  440. end;
  441.  
  442. local function QuaternionToCFrame(px, py, pz, x, y, z, w)
  443. local xs, ys, zs = x + x, y + y, z + z;
  444. local wx, wy, wz = w*xs, w*ys, w*zs;
  445. local xx = x*xs;
  446. local xy = x*ys;
  447. local xz = x*zs;
  448. local yy = y*ys;
  449. local yz = y*zs;
  450. local zz = z*zs;
  451. return CFrame.new(px, py, pz,1-(yy+zz), xy - wz, xz + wy,xy + wz, 1-(xx+zz), yz - wx, xz - wy, yz + wx, 1-(xx+yy))
  452. end;
  453.  
  454. local function QuaternionSlerp(a, b, t)
  455. local cosTheta = a[1]*b[1] + a[2]*b[2] + a[3]*b[3] + a[4]*b[4];
  456. local startInterp, finishInterp;
  457. if cosTheta >= 0.0001 then
  458. if (1 - cosTheta) > 0.0001 then
  459. local theta = math.acos(cosTheta);
  460. local invSinTheta = 1/math.sin(theta);
  461. startInterp = math.sin((1-t)*theta)*invSinTheta;
  462. finishInterp = math.sin(t*theta)*invSinTheta;
  463. else
  464. startInterp = 1-t finishInterp = t;
  465. end;
  466. else
  467. if (1+cosTheta) > 0.0001 then
  468. local theta = math.acos(-cosTheta);
  469. local invSinTheta = 1/math.sin(theta);
  470. startInterp = math.sin((t-1)*theta)*invSinTheta;
  471. finishInterp = math.sin(t*theta)*invSinTheta;
  472. else startInterp = t-1 finishInterp = t;
  473. end;
  474. end;
  475. return a[1]*startInterp + b[1]*finishInterp, a[2]*startInterp + b[2]*finishInterp, a[3]*startInterp + b[3]*finishInterp, a[4]*startInterp + b[4]*finishInterp;
  476. end;
  477.  
  478. function CLerp(a,b,t)
  479. local qa={QuaternionFromCFrame(a)};
  480. local qb={QuaternionFromCFrame(b)};
  481. local ax,ay,az=a.x,a.y,a.z;
  482. local bx,by,bz=b.x,b.y,b.z;
  483. local _t=1-t;
  484. return QuaternionToCFrame(_t*ax+t*bx,_t*ay+t*by,_t*az+t*bz,QuaternionSlerp(qa, qb, t));
  485. end
  486. local Speed=1;
  487. function Rot()
  488. Speed=Speed+0.0025;
  489. for _,Player in pairs(game:GetService("Players"):GetPlayers()) do
  490. local Tabs = {};
  491. for i,v in pairs(Tablets) do
  492. if v.Parent and v.Name==Player.Name then
  493. table.insert(Tabs, v);
  494. end
  495. end
  496. for i = 1, #Tabs do
  497. local Position;
  498. pcall(function()
  499. Position = Player.Character.Torso.CFrame
  500. end)
  501. if(Position) == nil then return end
  502. Tabs[i].CFrame=CLerp(Tabs[i].CFrame,CFrame.new(Player.Character.Torso.CFrame.p)
  503. *CFrame.Angles(0,math.rad((360/#Tabs)*i)+Speed,0)
  504. *CFrame.new(4+#Tabs,math.sin((tick()+i)*1)/1,0)--math.sin(tick(nil,1,i))
  505. *CFrame.Angles(0,math.rad(90),0)
  506. *CFrame.Angles(math.sin((tick()+i)*1)/1,math.sin((tick()+i)*1)/1,math.sin((tick()+i)*1)/1)
  507. ,.1);
  508. end
  509. end
  510. end
  511.  
  512. coroutine.wrap(function()
  513. while rs:wait() do
  514. pcall(function()
  515. for Index,Value in pairs(Players:GetPlayers()) do
  516. for _,v in pairs(Bans) do
  517. if Value.Name == v.Name then
  518. Value:Kick(name.." | You're banned.Reason: "..v.Reason)
  519. end
  520. end
  521. end
  522. end)
  523. end
  524. end)()
  525.  
  526. say(name,name.." Has successfully loaded!")
  527. say(name,"Say cmds"..bet.." for a list of commands.")
  528. say(name,"Created by LegendOfDarknees.")
  529.  
  530. shutdown = function(rank,reason)
  531. if type(reason) == "userdata" then
  532. reason=reason.Name
  533. elseif type(reason) == "string" then
  534. reason=reason
  535. else
  536. reason=tostring(reason)
  537. end
  538. for Index,Player in pairs(Players:GetPlayers()) do
  539. if getRank(Player) > rank then
  540. Player:Kick(name.." | This game has shutdown.Reason: "..reason)
  541. end
  542. end
  543. end
  544.  
  545. checkAB = function(plr)
  546. if type(plr) == "userdata" then
  547. plr=plr.Name
  548. elseif type(plr) == "string" then
  549. plr=plr
  550. else
  551. plr=tostring(plr)
  552. end
  553. for Index,Value in pairs(AB) do
  554. if Value.Name == plr then
  555. return true
  556. else
  557. return false
  558. end
  559. end
  560. end
  561.  
  562. AAB = function(plr)
  563. local rank=getRank(plr)
  564. if type(plr) == "userdata" then
  565. plr=plr.Name
  566. elseif type(plr) == "string" then
  567. plr=plr
  568. else
  569. plr=tostring(plr)
  570. end
  571. table.insert(AB,{["Name"] = plr, ["Rank"] = rank})
  572. end
  573.  
  574. unAB = function(plr)
  575. if type(plr) == "userdata" then
  576. plr=plr.Name
  577. elseif type(plr) == "string" then
  578. plr=plr
  579. else
  580. plr = tostring(plr)
  581. end
  582. for Index,Player in pairs(AB) do
  583. if Player.Name == plr then
  584. table.remove(AB,Player)
  585. end
  586. end
  587. end
  588.  
  589. checkRank = function(p,r)
  590. for i,v in pairs(Admins) do
  591. if v.Name == p.Name then
  592. if v.Rank >= r then
  593. return true
  594. else
  595. return false
  596. end
  597. end
  598. end
  599. end
  600. function newCmd(name,usage,desc)
  601. if desc==nil then
  602. desc="No description avaible."
  603. end
  604. if usage == nil then
  605. usage="Unknown"
  606. end
  607. if name == nil then
  608. name="???"
  609. end
  610. table.insert(Cmds,{["Name"]=name, ["Usage"]=usage..bet, ["Description"] = desc})
  611. end
  612. local Credits = {"Creator: LegendOfDarknees","No one else made this.","If someone says he made "}
  613.  
  614.  
  615. newCmd("Cmds","cmds","Shows a list of commands")
  616. newCmd("Version","ver","Shows the current version")
  617. newCmd("Time","time","Shows game time")
  618. newCmd("Clean","clean","Cleans game")
  619. newCmd("Killsel","killsel","Shows a menu to kill players")
  620. newCmd("FF","ff","Gives a player a forcefield")
  621. newCmd("AR","ar","Set the required rank to get into a privateserver")
  622. newCmd("PS","ps / private / privateserver","Toggles privateserver")
  623. newCmd("Ban","ban","Bans a player")
  624. newCmd("Kick","kick","Kicks a player")
  625. newCmd("UnFF","unff","Removes a player's forcefield")
  626. newCmd("AB","ab","Shows a menu with AB options")
  627. newCmd("Explore","explore","Explore the game")
  628. newCmd("DtAll","dtall","Dismiss everyone's tabs")
  629. newCmd("Shutdown","shutdown","Kill the game. :U")
  630. newCmd("Setrank","setrank","Shows a menu to rank players")
  631. newCmd("Ping","ping","Pings something.")
  632. newCmd("Respawn","re","Respawn a player")
  633. newCmd("Credits","credits","Shows credits")
  634. newCmd("Light","light","Creates a point light on a player")
  635.  
  636. commands = function(plr,m)
  637. local msg=m:lower()
  638. if msg:sub(1,5) == "cmds"..bet and checkRank(plr,1) == true then
  639. showCmds(plr)
  640. elseif msg:sub(1,8) == "credits"..bet then
  641. if checkRank(plr,1) == true then
  642. for i,v in pairs(Credits) do
  643. Output(plr,"Tab | "..v,"Random")
  644. end
  645. end
  646. elseif msg:sub(1,6) == "light"..bet then
  647. local victim=msg:sub(7)
  648. for Index,Player in pairs(Players.GetPlayers()) do
  649. if Player.Name:lower():match(victim:lower()) then
  650. pcall(function()
  651. local p=Instance.new("PointLight",Player.Character.Torso)
  652. p.Brightness=30
  653. p.Range=35
  654. end)
  655. end
  656. end
  657. elseif msg:sub(1,3) == "re"..bet then
  658. local victim=msg:sub(4)
  659. if checkRank(plr,2) == true then
  660. for Index,Player in pairs(Players:GetPlayers()) do
  661. if Player.Name:lower():match(victim:lower()) then
  662. pcall(function()
  663. Player.Character:Destroy()
  664. Player:LoadCharacter()
  665. local cf=Player.Character.Torso.CFrame
  666. Player.Character.Torso.CFrame=cf
  667. end)
  668. end
  669. end
  670. else
  671. Output(plr,"Tab | Your rank ins't enough for this command[4]","Random")
  672. end
  673. elseif msg:sub(1,5) == "ping"..bet then
  674. local message=msg:sub(6)
  675. if checkRank(plr,1) == true then
  676. Output(plr,"Tab | "..message,"Random")
  677. end
  678. elseif msg:sub(1,9) == "shutdown"..bet then
  679. local reason=msg:sub(10)
  680. if checkRank(plr,5) == true then
  681. shutdown(getRank(plr),reason)
  682. else
  683. Output(plr,"Tab | Your rank ins't enough for this command[5]")
  684. end
  685. elseif msg:sub(1,8) == "setrank"..bet then
  686. if checkRank(plr,3) then
  687. for i,v in pairs(Players:GetPlayers()) do
  688. if getRank(plr) > getRank(v) then
  689. Output(plr,"User | "..v.Name,"Random",function()
  690. dismiss(plr)
  691. Output(plr,"Set rank to 1","Random",function() if getRank(plr) > 1 then dismiss(plr) Output(plr,"Tab | You set "..v.Name.."'s rank to 1","Random") rank(v,1) else Output(plr,"You need a higher rank to set "..v.Name.."'s rank!","Really red") end end)
  692. Output(plr,"Set rank to 2","Random",function() if getRank(plr) > 2 then dismiss(plr) Output(plr,"Tab | You set "..v.Name.."'s rank to 2","Random") rank(v,2) else Output(plr,"You need a higher rank to set "..v.Name.."'s rank!","Really red") end end)
  693. Output(plr,"Set rank to 3","Random",function() if getRank(plr) > 3 then dismiss(plr) Output(plr,"Tab | You set "..v.Name.."'s rank to 3","Random") rank(v,3) else Output(plr,"You need a higher rank to set "..v.Name.."'s rank!","Really red") end end)
  694. Output(plr,"Set rank to 4","Random",function() if getRank(plr) > 4 then dismiss(plr) Output(plr,"Tab | You set "..v.Name.."'s rank to 4","Random") rank(v,4) else Output(plr,"You need a higher rank to set "..v.Name.."'s rank!","Really red") end end)
  695. Output(plr,"Set rank to 5","Random",function() if getRank(plr) > 5 then dismiss(plr) Output(plr,"Tab | You set "..v.Name.."'s rank to 5","Random") rank(v,5) else Output(plr,"You need a higher rank to set "..v.Name.."'s rank!","Really red") end end)
  696. Output(plr,"Set rank to 6","Random",function() if getRank(plr) > 6 then dismiss(plr) Output(plr,"Tab | You set "..v.Name.."'s rank to 6","Random") rank(v,6) else Output(plr,"You need a higher rank to set "..v.Name.."'s rank!","Really red") end end)
  697. Output(plr,"Set rank to 7","Random",function() if getRank(plr) > 7 then dismiss(plr) Output(plr,"Tab | You set "..v.Name.."'s rank to 7","Random") rank(v,7) else Output(plr,"You need a higher rank to set "..v.Name.."'s rank!","Really red") end end)
  698. Output(plr,"Set rank to 8","Random",function() if getRank(plr) > 8 then dismiss(plr) Output(plr,"Tab | You set "..v.Name.."'s rank to 8","Random") rank(v,8) else Output(plr,"You need a higher rank to set "..v.Name.."'s rank!","Really red") end end)
  699. Output(plr,"Set rank to 9","Random",function() if getRank(plr) > 9 then dismiss(plr) Output(plr,"Tab | You set "..v.Name.."'s rank to 9","Random") rank(v,9) else Output(plr,"You need a higher rank to set "..v.Name.."'s rank!","Really red") end end)
  700. Output(plr,"Set rank to 10","Random",function() if getRank(plr) >= 10 then dismiss(plr) Output(plr,"Tab | You set "..v.Name.."'s rank to 10","Random") rank(v,10) else Output(plr,"You need a higher rank to set "..v.Name.."'s rank!","Really red") end end)
  701. end)
  702. end
  703. end
  704. else
  705. Output(plr,"Tab | Your rank ins't enough for this command[3]","Really red")
  706. end
  707. elseif msg:sub(1,6) == "dtall"..bet then
  708. if checkRank(plr,2) then
  709. for i,v in pairs(Players:GetPlayers()) do
  710. if getRank(plr) > getRank(v) then
  711. dismiss(v)
  712. end
  713. Output(plr,"Dismissed everyone's tabs.","Random")
  714. end
  715. else
  716. Output(plr,"Your rank ins't enough for this command[2]","Really red")
  717. end
  718. elseif msg:sub(1,3) == "dt"..bet and checkRank(plr,1) == true then
  719. dismiss(plr)
  720. elseif msg:sub(1,4) == "ver"..bet and checkRank(plr,1) == true then
  721. Output(plr,"Tab |The version is "..version.."!","Random")
  722. elseif msg == "time"..bet and checkRank(plr,1) == true then
  723. Output(plr,"Tab | The time is: "..gametime,"Random")
  724. elseif msg:sub(1,8) == "explore"..bet then
  725. if checkRank(plr,3) == true then
  726. Explore(plr,game)
  727. end
  728. elseif msg:sub(1,4) == "ab"..bet then
  729. if checkRank(plr,5) == true then
  730. Output(plr,"Show antiban users","Random",function()
  731. dismiss(plr)
  732. for Index,Player in pairs(AB) do
  733. Output(plr,"Tab | "..Player.Name,"Random",function()
  734. dismiss(plr)
  735. Output(plr,"User | "..Player.Name,"Random")
  736. Output(plr,"Tab | Remove antiban["..Player.Rank.."]","Random",function() dismiss(plr) if getRank(plr) > Player.Rank then Output(plr,"You removed "..Player.Name.."'s forcefield.","Random") unAB(Player) end end)
  737. end)
  738. end
  739. Output(plr,"Tab | Dismiss","Random",function() dismiss(plr) end)
  740. end)
  741. Output(plr,"Tab | Add antiban","Random",function()
  742. dismiss(plr)
  743. for Index,Player in pairs(Players:GetPlayers()) do
  744. Output(plr,"User | "..Player.Name,"Random",function() dismiss(plr) Output(plr,"You gave AntiBan to "..Player.Name,"Random") AAB(Player) end)
  745. end
  746. end)
  747. Output(plr,"Tab | Dismiss","Really red",function() dismiss(plr) end)
  748. else
  749. Output(plr,"Tab | Your rank ins't enough for this command[5]","Really red")
  750. end
  751. elseif msg:sub(1,6) == "clean"..bet and checkRank(plr,1) == true then
  752. Output(plr,"Tab | The game has been cleaned.","Random")
  753. for i,v in pairs(workspace:GetChildren()) do
  754. if v:IsA("Part") then
  755. if v.Name=="Base" or v.Name=="Baseplate" then
  756. else
  757. v:Destroy()
  758. end
  759. end
  760. end
  761. elseif msg:sub(1,5) == "unff"..bet then
  762. if checkRank(plr,2) == true then
  763. local victim = (msg:sub(6))
  764. for Index,Player in pairs(Players:GetPlayers()) do
  765. if Player.Name:lower():match(victim:lower()) then
  766. pcall(function()
  767. for i,v in pairs(Player.Character:GetChildren()) do
  768. if v:IsA("ForceField") then
  769. v:Destroy()
  770. Output(plr,"Removed forcefield(s) for "..Player.Name,"Random")
  771. end
  772. end
  773. end)
  774. end
  775. end
  776. end
  777. elseif msg:sub(1,3) == "ex"..bet then
  778. if checkRank(plr,3) == true then
  779. local victim = (msg:sub(4))
  780. for Index,Player in pairs(Players:GetPlayers()) do
  781. if Player.Name:lower():match(victim:lower()) then
  782. if getRank(plr) > getRank(Player) then
  783. pcall(function()
  784. local boom=Instance.new("Explosion",Player.Character.Torso)
  785. boom.Position=Player.Character.Torso.Position
  786. Player.Character:BreakJoints()
  787. end)
  788. else
  789. Output(plr,"Tab | "..Player.Name.."'s rank is too high for you to explode him.","Really red")
  790. end
  791. end
  792. end
  793. else
  794. Output(plr,"Tab | Your rank ins't enough for this command[3]","Really red")
  795. end
  796. elseif msg:sub(1,5) == "kick"..bet then
  797. if checkRank(plr,3) == true then
  798. local victim=(msg:sub(6))
  799. local reason=msg:sub(string.len(victim)+1)
  800. for Index,Player in pairs(Players:GetPlayers()) do
  801. if Player.Name:lower():match(victim:lower()) then
  802. if getRank(plr) > getRank(Player) then
  803. Player:Kick(name.." | You've been kicked.Reason: "..reason)
  804. Output(plr,"Player "..Player.Name.." Has been kicked.","Random")
  805. else
  806. Output(plr,"Tab | "..Player.Name.."'s rank is too high for you to kick him! ["..getRank(Player).."]","Really red")
  807. end
  808. end
  809. end
  810. else
  811. Output(plr,"Tab | Your rank is too low for this command[3]","Really red")
  812. end
  813. elseif msg:sub(1,4) == "ban"..bet then
  814. if checkRank(plr,5) == true then
  815. local victim=msg:sub(5)
  816. local reason=msg:sub(6+string.len(victim)+1)
  817. for Index,Player in pairs(Players:GetPlayers()) do
  818. if Player.Name:lower():match(victim:lower()) then
  819. pcall(function()
  820. if getRank(Player) < getRank(plr) then
  821. Ban(Player,reason)
  822. Output(plr,"Tab | You banned "..Player.Name,"Random")
  823. else
  824. Output(plr,"Tab | "..Player.Name.."'s rank is too high for you to ban him! ["..getRank(Player).."]","Really red")
  825. end
  826. end)
  827. end
  828. end
  829. else
  830. Output(plr,"Tab | Your rank is too low for this command[5]","Really red")
  831. end
  832. elseif msg:sub(1,3) == "ff"..bet then
  833. if checkRank(plr,2) == true then
  834. local victim=msg:sub(4)
  835. for Index,Player in pairs(Players:GetPlayers()) do
  836. if Player.Name:lower():match(victim:lower()) then
  837. pcall(function()
  838. local ff=Instance.new("ForceField",Player.Character)
  839. Output(plr,"Tab | You gave FF to "..Player.Name,"Random")
  840. end)
  841. end
  842. end
  843. else
  844. Output(plr,"Tab | Your rank is too low for this command[2]","Really red")
  845. end
  846. elseif msg:sub(1,5)=="kill"..bet then
  847. if checkRank(plr,2) == true then
  848. local victim=msg:sub(6)
  849. for Index,Player in pairs(Players:GetPlayers()) do
  850. if Player.Name:lower():match(victim:lower()) then
  851. pcall(function()
  852. if Player:FindFirstChild("Character") then
  853. if getRank(plr) > getRank(Player) then
  854. Player.Character:BreakJoins()
  855. Output(plr,"Tab | You killed "..Player.Name,"Really red")
  856. else
  857. Output(plr,"Tab | "..Player.Name.."'s rank is too high for you to kill him!["..getRank(Player).."]","Really red")
  858. end
  859. end
  860. end)
  861. end
  862. end
  863. end
  864. elseif msg:sub(1,8) == "killsel"..bet then
  865. if checkRank(plr,2) == true then
  866. for i,v in pairs(Players:GetPlayers()) do
  867. if v:FindFirstChild("Character") then
  868. if getRank(v) < getRank(plr) then
  869. Output(plr,"Kill | "..v.Name,"Random",function() dismiss(plr) v.Character:BreakJoints() Output(plr,"Tab | You've killed "..v.Name) end)
  870. else
  871. Output(plr,"Tab | "..v.Name.."'s rank is too high for you to kill him["..getRank(v).."]")
  872. end
  873. end
  874. end
  875. Output(plr,"Kill | Kill all","Really red",function() dismiss(plr) for i,v in pairs(Players:GetChildren()) do if v:FindFirstChild("Character") then if getRank(plr) > getRank(v) then v:BreakJoints() Output(plr,"You killed "..v.Name,"Random") else Output(plr,"The player "..v.Name.."'s rank is too high for you to kill["..getRank(v).."]","Really red") Output(v,"Tab | Player "..plr.Name.." has tryed to kill you.","Really red") end end end end)
  876. Output(plr,"Kill | Kill others","Really black",function() for i,v in pairs(Players:GetChildren()) do if v:FindFirstChild("Character") then if getRank(plr) > getRank(v) then v:BreakJoints() Output(plr,"You killed "..v.Name,"Random") else Output(plr,"The player "..v.Name.."'s rank is too high for you to kill["..getRank(v).."]","Really red") Output(v,"Tab | Player "..plr.Name.." has tryed to kill you.","Really red") end end end dismiss(plr) end)
  877. else
  878. Output(plr,"Tab | Your rank is too low for this command[2]","Really red")
  879. end
  880. elseif msg:sub(1,4) == "ar"..bet then
  881. if checkRank(plr,2) == true then
  882. if checkRank(plr,ar) == true then
  883. Output(plr,"Tab | Set AR to 1","Random",function() if checkRank(plr,1) == true then dismiss(plr) ar=1 else dismiss(plr) Output(plr,"Tab | Your rank ins't enough for this command[1]","Really red") end end)
  884. Output(plr,"Tab | Set AR to 2","Random",function() if checkRank(plr,2) == true then dismiss(plr) ar=2 else dismiss(plr) Output(plr,"Tab | Your rank ins't enough for this command[2]","Really red") end end)
  885. Output(plr,"Tab | Set AR to 3","Random",function() if checkRank(plr,3) == true then dismiss(plr) ar=3 else dismiss(plr) Output(plr,"Tab | Your rank ins't enough for this command[3]","Really red") end end)
  886. Output(plr,"Tab | Set AR to 4","Random",function() if checkRank(plr,4) == true then dismiss(plr) ar=4 else dismiss(plr) Output(plr,"Tab | Your rank ins't enough for this command[4]","Really red") end end)
  887. Output(plr,"Tab | Set AR to 5","Random",function() if checkRank(plr,5) == true then dismiss(plr) ar=5 else dismiss(plr) Output(plr,"Tab | Your rank ins't enough for this command[5]","Really red") end end)
  888. Output(plr,"Tab | Set AR to 6","Random",function() if checkRank(plr,6) == true then dismiss(plr) ar=6 else dismiss(plr) Output(plr,"Tab | Your rank ins't enough for this command[6]","Really red") end end)
  889. Output(plr,"Tab | Set AR to 7","Random",function() if checkRank(plr,7) == true then dismiss(plr) ar=7 else dismiss(plr) Output(plr,"Tab | Your rank ins't enough for this command[7]","Really red") end end)
  890. Output(plr,"Tab | Set AR to 8","Random",function() if checkRank(plr,8) == true then dismiss(plr) ar=8 else dismiss(plr) Output(plr,"Tab | Your rank ins't enough for this command[8]","Really red") end end)
  891. Output(plr,"Tab | Set AR to 9","Random",function() if checkRank(plr,9) == true then dismiss(plr) ar=9 else dismiss(plr) Output(plr,"Tab | Your rank ins't enough for this command[9]","Really red") end end)
  892. Output(plr,"Tab | Set AR to 10","Random",function() if checkRank(plr,10) == true then ar=10 else Output(plr,"Tab | Your rank ins't enough for this command[10]","Really red") end end)
  893. else
  894. Output(plr,"Tab | Your rank ins't enough for this command ["..ar.."]","Really red")
  895. end
  896. else
  897. Output(plr,"Tab | Your rank ins't enough for this command [2]","Really red")
  898. end
  899. elseif msg:sub(1,3) == "ps"..bet or msg:sub(1,8) == "private"..bet or msg:sub(1,15) == "privateserver"..bet then
  900. if checkRank(plr,2) == true then
  901. if checkRank(plr,ar) == true then
  902. Output(plr,"Tab | Turn on P.S","Lime green",function() dismiss(plr) PS=true ar=getRank(plr) end)
  903. Output(plr,"Tab | Turn off P.S","Really red",function() dismiss(plr) PS=false ar=0 end)
  904. Output(plr,"Tab | Allow a player","Random",function() for i,v in pairs(lplayers) do Output(plr,"Tab | Allow user "..v.."?","Random",function() canEnter(v) end) end end)
  905. else
  906. Output(plr,"Tab | Your rank ins't enough for this command ["..ar.."]","Really red")
  907. end
  908. else
  909. Output(plr,"Tab | Your rank ins't enough for this command [2]","Really red")
  910. end
  911. end
  912. end
  913.  
  914. for i,v in pairs(Players:GetPlayers()) do
  915. if Admins[v.Name] == nil then
  916. newAdmin(v.Name,1)
  917. end
  918. o1 = Instance.new("ScreenGui")
  919. o2 = Instance.new("ImageLabel")
  920. o1.Parent = v.PlayerGui
  921. o2.Name = "logo"
  922. o2.Parent = o1
  923. o2.Position = UDim2.new(0.89999997615814,0,0.89999997615814,0)
  924. o2.Size = UDim2.new(0,100,0,100)
  925. o2.Position = UDim2.new(0.89999997615814,0,0.89999997615814,0)
  926. o2.BackgroundColor3 = Color3.new(1, 1, 1)
  927. o2.BackgroundTransparency = 1
  928. o2.BorderSizePixel = 0
  929. o2.Image = "rbxassetid://106949042"
  930. Output(v,"Tab | "..name.." Has successfully loaded!","Random")
  931. Output(v,"Tab | Your rank is "..getRank(v.Name),"Random")
  932. Output(v,"Tab | You are at "..gamename,"Random")
  933. Output(v,"Tab | Current version: "..version.."","Random")
  934. Output(v,"Tab | Please do not abuse.","Random")
  935. Output(v,"Tab | Click here to view commands.","Random",function() dismiss(v) showCmds(v) end)
  936. Output(v,"Tab | The current bet is "..bet,"Random")
  937. Output(v,"Tab | Dismiss","Random",function() dismiss(v)end)
  938. v.Chatted:connect(function(msg2)
  939. commands(v,msg2)
  940. end)
  941. end
  942.  
  943. Players.PlayerAdded:connect(function(v)
  944. if Admins[v.Name] == nil then
  945. newAdmin(v.Name,1)
  946. end
  947.  
  948. if PS == true then
  949. if getRank(v) < ar then
  950. if center[v] == nil then
  951. v:Kick(name.." | This server is private.You need a minimum rank of "..ar.." to enter.")
  952. end
  953. end
  954. end
  955. wait(0.1)
  956. Output(v,"Tab | "..name.." is currently running on this server!","Random")
  957. Output(v,"Tab | Your rank is "..getRank(v.Name),"Random")
  958. Output(v,"Tab | You are at "..gamename,"Random")
  959. Output(v,"Tab | Current version: "..version.."","Random")
  960. Output(v,"Tab | Please do not abuse.","Random")
  961. Output(v,"Tab | Click here to view commands.","Random",function() dismiss(v) showCmds(v) end)
  962. Output(v,"Tab | The current bet is "..bet,"Random")
  963. Output(v,"Tab | Dismiss","Random",function() dismiss(v) end)
  964. v.Chatted:connect(function(msg2)
  965. commands(v,msg2)
  966. end)
  967. end)
  968.  
  969. Players.PlayerRemoving:connect(function(v)
  970. dismiss(v)
  971. table.insert(lplayers,v.Name)
  972. if checkAB(v) == true then
  973. shutdown(getRank(v),name.." | An antiban player has been banned!")
  974. end
  975. end)
  976.  
  977. -----anti fm----------
  978.  
  979. coroutine.wrap(function()
  980. while wait() do
  981. for i,v in pairs(Players:GetPlayers()) do
  982. pcall(function()
  983. local e=v.PlayerGui
  984.  
  985. if v.PlayerGui:FindFirstChild("RX6") then
  986. say(name," Player"..v.Name.." Has been banned for running ro exploit.")
  987. Ban(v,"Ro exploit is not allowed.")
  988. end
  989.  
  990. for a,b in pairs(e:GetChildren()) do
  991. if b:IsA("Frame") and b.Name == "" then
  992. say(name,"Player "..v.Name.." Has been kicked for running aerx.")
  993. v:Kick(name.." | Aerx is not allowed.")
  994. end
  995. end
  996.  
  997. if e:FindFirstChild("Bumf") or e:FindFirstChild("TTs") or e:FindFirstChild("AdministratorGUI") then
  998. say(name,"Player "..v.Name.." Has been kicked for running sex gui.")
  999. v:Kick(name.." | Sex gui is not allowed.")
  1000. end
  1001.  
  1002. end)
  1003. end
  1004. end
  1005. end)()
  1006.  
  1007. game:GetService("RunService").Heartbeat:connect(Rot)
  1008. return 0
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement