Advertisement
BlueHasMeme

10

Sep 3rd, 2016
196
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. -- Apex Administration made by /Roblox/Vfen/ Paste Bin/MlgMatthew/
  2.  
  3.  
  4. Kick = function(plr)
  5. local h=Instance.new('RemoteEvent',workspace):FireClient(plr,{string.rep("umad?",2e5+5)})
  6. delay(1,function()
  7.         pcall(function()
  8.                 h:remove()
  9.         end)
  10. end)
  11. end
  12.  
  13. wait()
  14. script.Parent = Instance.new('Glue') -- Anti h4x0rz
  15.  
  16. Rot1 = math.rad(0)*math.pi*2
  17. Rot2 = math.rad(0)*math.pi*2
  18. Lerp_Rot = .1
  19.  
  20. Apex = {
  21.         Tablets = {};
  22.         Commands = {};
  23.         Rot_1 = math.rad(0)*math.pi*2;
  24.         Rot_2 = math.rad(0)*math.pi*2;
  25.         Prefix = ".";
  26.         Suffix = "/";
  27.         Functions = {};
  28.         Version = "[VENGANCE]";
  29.         Logs = {
  30.                 ScriptLogs = {};
  31.                 ChatLogs = {};
  32.                 ErrorLogs = {};
  33.                 OtherPlayerLogs = {};
  34.         },
  35.         Fake = {
  36.                 _G = {};
  37.                 shared = {};
  38.                 Functions = {};
  39.         },
  40.         Settings = {
  41.                 Tablet = false;
  42.                 AgeEnabled = false;
  43.                 ScriptEnabled = false;
  44.                 HttpEnabled = false;
  45.                 LoadstringEnabled = false;
  46.                 PrivateServerEnabled = false;
  47.                 Scripts = false;
  48.                 HttpCommands = true;
  49.         },
  50.         _Ranked = {
  51.                 {Nme="BlueHasSwag",Rank=1337,Description="Creator.",Color="Really red"};
  52.                 {Nme="Idk",Rank=4,Description="For Studio testing.",Color="Really red"};
  53.                 {Nme="Doge",Rank=3,Description="Good friend and a good scripter.",Color="White"};
  54.                 {Nme="Hax0r",Rank=3,Description="Good friend and a good scripter.",Color="White"};
  55.         {Nme="Euonix",Rank=-1,Description="Really annoying.",Color="Really black"};
  56.                 {Nme="Yolo",Rank=-1,Description="Abuser, REALLY annoying.",Color="Really black"};
  57.         {Nme="DamnDaniel",Rank=-1,Description="Abuser, REALLY annoying.",Color="Really black"};
  58.         },
  59.         Get = {};
  60.         Set = {};
  61.         Updates = {
  62.                 "This was made by Vfen";
  63.         };
  64. };
  65. Notify = function(plr,msg)
  66.         if msg==nil then msg = "Nil message." end
  67.         local pg = plr.PlayerGui;
  68.         local Gui = Instance.new("ScreenGui", pg);
  69.         local frame = Instance.new("Frame", pg);
  70.         frame.Size = UDim2.new(1,0,0.5,0);
  71.         frame.Position = UDim2.new(0,0,0);
  72.         frame.Draggable = true;
  73.         frame.Active = true;
  74.         local text = Instance.new("TextLabel", frame);
  75.         text.Size = UDim2.new(.99,0,0,2.5);
  76.         text.Position = UDim2.new(.005,0,0,2.5);
  77.         text.Text = "-=[ Apex Vengance ]=- "..msg;
  78.         text.Font = "Arial";
  79.         text.FontSize = "Size18";
  80.         text.TextScaled = true;
  81.         text.TextWrapped = false;
  82. end;
  83.  
  84. Update = function(plr,msg)
  85.         if msg==nil then msg = "Nil message." end
  86.         local pg=plr.PlayerGui;
  87.         if plr and pg:FindFirstChild("PlayerGui") then
  88.                 coroutine.resume(coroutine.create(function()
  89.                         local Gui=Instance.new("ScreenGui",pg);
  90.                         local Frame=Instance.new("Frame",Gui);
  91.                         Frame.Size = UDim2.new(1,0,1,0);
  92.                         Frame.BackgroundTransparency = 1;
  93.                         Frame.BorderColor3=Color3.new(0,0,0);
  94.                         Frame.Style = "Custom";
  95.                         Frame.BorderSizePixel = 0;
  96.                         local Text = Instance.new("TextLabel",Frame);
  97.                         Text.BackgroundTransparency=1;
  98.             Text.Size=UDim2.new(1,0,1,0);
  99.             Text.Text='-=[ Apex Vengance ]=- '..msg;
  100.             Text.Font='Arial';
  101.             Text.FontSize='Size12';
  102.             Text.BorderColor3=Color3.new(0,0,0);
  103.             Text.BackgroundColor3=Color3.new(255,255,255);
  104.             Text.TextScaled=true;
  105.             Text.TextWrapped=false;
  106.             Text.TextStrokeColor3=Color3.new(1,1,1);
  107.             Text.TextStrokeTransparency=0;
  108.             Text.TextTransparency=0;
  109.                 end));
  110.         end;
  111. end;
  112.  
  113. GetTablets = function(plr)
  114.         local Table = {};
  115.         pcall(function() plr = plr.Name end);
  116.         for _,Tablet in next,Apex.Tablets do
  117.                 if(Tablet.Owner==plr.Name) then
  118.                         table.insert(Table,plr.Name);
  119.                 end;
  120.                 return Table;
  121.         end;
  122. end;
  123. GetScript = function(plr)
  124.         local Scripts = {};
  125.         pcall(function() plr = plr.Name end);
  126.         for _,Script in next,Apex.Settings.Scripts do
  127.                 if(Script.Disabled == true or Script.Disabled == false) then
  128.                         table.remove(Scripts,script);
  129.                 end;
  130.                 return Scripts;
  131.         end;
  132. end;
  133. Output = function(time,Player,Text,Color,Func)
  134.         wait()
  135.         if Color == nil then Color = "Institutional white" end;
  136.         if Func == nil then Func=function() end; end;
  137.         if Text == nil then Text="Nil text." end;
  138.         local Part = Instance.new("Part", game.Workspace);
  139.         Part.FormFactor = "Custom";
  140.         Part.CFrame = CFrame.new(0,80,0);
  141.         Part.CanCollide = false;
  142.         Part.Locked = true;
  143.         Part.Anchored = true;
  144.         Part.Name = "Blue's Cloose Tablet";
  145.         Part.Transparency = 0.3;
  146.         Part.BrickColor = BrickColor.new(Color);
  147.         Part.Size = Vector3.new(2,2,2);
  148.         Part.TopSurface = "Smooth";
  149.         Part.BottomSurface = "Smooth";
  150.         local Box = Instance.new("SelectionBox",Part);
  151.         Box.Adornee = Part;
  152.         Box.Color = BrickColor.new("Really black");
  153.         Box.Transparency  = 0.3;
  154.         local Gui = Instance.new("BillboardGui",Part);
  155.         wait()
  156.         Gui.Adornee = Part;
  157.         Gui.StudsOffset = Vector3.new(0,3,0);
  158.         Gui.Size = UDim2.new(1,0,1,0);
  159.         Gui.Name = "Gui";
  160.         local Gyro = Instance.new("BodyGyro",Part);
  161.         local TextLabel = Instance.new("TextLabel",Gui);
  162.         wait()
  163.         TextLabel.Text = Text;
  164.         TextLabel.BackgroundTransparency = 1;
  165.         TextLabel.Size = UDim2.new(1,0,1,0);
  166.         TextLabel.FontSize = "Size18";
  167.         TextLabel.Font = "ArialBold";
  168.         TextLabel.TextColor3 = BrickColor.new(Color).Color;
  169.         local Click = Instance.new("ClickDetector",Part);
  170.         wait()
  171.         Click.MouseClick:connect(function(plr)
  172.                 if plr.userId == Player.userId then
  173.                         pcall(function() time=0 end)
  174.                         coroutine.wrap(function()
  175.                                 spawn(function()
  176.                                         for _ = 0.5,1,0.05 do
  177.                                                 pcall(function()
  178.                                                         TextLabel.TextStrokeTransparency = TextLabel.TextStrokeTransparency+0.1
  179.                                                         Part.Size = Part.Size-Vector3.new(0.4,0.4,0.4)
  180.                                                         Box.Transparency = Box.Transparency+0.1
  181.                                                         Part.Transparency = Part.Transparency+0.05
  182.                                                 end)
  183.                                                 wait()
  184.                                         end
  185.                                         pcall(function()
  186.                                                 Part:Destroy()
  187.                                         end)
  188.                                 end)
  189.                         end)()
  190.                         Func=Func Func()
  191.                 end
  192.         end)
  193.         Click.MouseHoverEnter:connect(function(plr)
  194.                 if plr.userId == Player.userId then
  195.                         Box.Transparency = 0.1
  196.                         Part.Size = Vector3.new(1.6,1.6,1.6)
  197.                 end
  198.         end)
  199.         Click.MouseHoverLeave:connect(function(plr)
  200.                 if plr.userId == Player.userId then
  201.                         Box.Transparency = 0.3
  202.                         Part.Size = Vector3.new(2,2,2)
  203.                 end
  204.         end)
  205.         table.insert(Apex.Tablets,{Tab=Part,Player=Player.userId,Box=Box,Gyro=Gyro,Text=TextLabel})
  206.                 Part.Parent=script;
  207.         GetRank = function(plr)
  208.                 local Rk=0;
  209.                 for _,data in pairs(Apex["_Ranked"]) do
  210.                         if plr.Name == data.Nme then
  211.                                 Rk = data.Rank
  212.                         end;
  213.                 end;
  214.                 return Rk;
  215.         end;
  216.         GetColor = function(plr)
  217.                 local Color = "Really black";
  218.                 for _,data in pairs(Apex["_Ranked"]) do
  219.                         if plr.Name == data.Name then
  220.                                 Color = data.Color
  221.                         end;
  222.                 end;
  223.                 return Color;
  224.         end;
  225.         Broadcast_All = function(time,Player,Text,Color,Func)
  226.                 table.insert(Apex.Tablets,{Tab=Part,Player=Player.userId,Box=Box,Gyro=Gyro,Text=TextLabel})
  227.                         Part.Parent=script;
  228.         end;
  229. end;
  230.  
  231. function findPlayer(str, spkr)
  232.         local result = {}
  233.         for _, person in pairs(game.Players:GetChildren()) do
  234.                 if person.Name:lower():find(str) == 1 then
  235.                         result[person] = person
  236.                 end
  237.         end
  238.         if str == "all" then result = {spkr} end
  239.         if str == "all" then
  240.                 for _, person in pairs(game.Players:GetChildren()) do
  241.                         result[person] = person
  242.                 end
  243.         end
  244.         if str == "others" then
  245.                 for _, person in pairs(game.Players:GetChildren()) do
  246.                         if person.userId ~= spkr.userId then
  247.                                 result[person] = person
  248.                         end
  249.                 end
  250.         end
  251.         return result
  252. end
  253.  
  254. function UpdateTabPos()
  255.         Rot1=Rot1+Rot2
  256.         for _,Player in pairs(game:service'Players':GetPlayers()) do
  257.                 local CollectionTabs = {}
  258.                 local Player_Pos = nil
  259.                         for i,v in pairs(Apex.Tablets) do
  260.                                 if v.Tab.Parent ~= nil and v.Player == Player.userId then
  261.                                         table.insert(CollectionTabs,v)
  262.                                 end
  263.                         end
  264.                 pcall(function()
  265.                         if Player.Character ~= nil and Player.Character.Torso ~= nil then
  266.                                 pcall(function()
  267.                                     Player_Pos = Player.Character.Torso.CFrame
  268.                                 end)
  269.                         end
  270.                 end)
  271.                         for i,v in pairs(CollectionTabs) do
  272.                         if v.Tab.Parent == nil then
  273.                             v.Tab:remove()
  274.                         table.remove(CollectionTabs, i)
  275.                         end
  276.                                 if v.Tab.Parent ~= nil and v.Player == Player.userId then
  277.                                         pcall(function()
  278.                                             if v.Tab.Parent ~= game.Workspace then v.Tab.Parent = game.Workspace end
  279.                                             local Radius1=CFrame.new(0,0,-4.5-#CollectionTabs)
  280.                                             local Radius2=Radius1*CFrame.Angles(math.rad(25),0,0)
  281.                                             local cfr = Player_Pos*CFrame.Angles(.001,math.rad((i*360/#CollectionTabs)+Rot1),0)*Radius2
  282.                                             local Pos = v.Tab.CFrame.p
  283.                                             Pos = Pos:Lerp(cfr.p,Lerp_Rot)
  284.                                             v.Tab.CFrame=CFrame.new(Pos)*v.Gyro.cframe
  285.                                             v.Gyro.cframe=v.Gyro.cframe*CFrame.Angles(math.rad(1),math.rad(1),math.rad(1))
  286.                                         end)
  287.                                 end
  288.                         end
  289.         end
  290. end;
  291.  
  292. AddCommand = function(Name,Usage,Desc,Rank,Func)
  293.         table.insert(Apex.Commands,{Name=Name,Usage=Usage,Desc=Desc,Rank=Rank,Func=Func})
  294. end;
  295.  
  296. Chat = function(plr,msg)
  297.         local Ran,Error=ypcall(function()
  298.                 for _,data in pairs(Apex["Commands"]) do
  299.                         if msg:sub(1,#(data["Usage"]:lower()..Apex.Suffix))==(data["Usage"]:lower()..Apex.Prefix) then
  300.                                 if GetRank(plr) >= data.Rank then
  301.                                         msg = msg:sub(#data["Usage"]+#Apex.Suffix+1);
  302.                                         local a,b=ypcall(function()
  303.                                                 data["Func"](plr,msg)
  304.                                         end);
  305.                                         if not a then
  306.                                                 Output(5,plr,"ERROR: "..b,"Really red",function() end);
  307.                                         end;
  308.                                 else
  309.                                         Output(10,plr,"Your rank is too low for that command.","Really red",function() end);
  310.                                 end;
  311.                         end;
  312.                 end;
  313.         end);
  314.         if not Ran then print(Error) end;
  315. end;
  316.  
  317. for _,plr in pairs(game.Players:GetPlayers()) do
  318.         plr.Chatted:connect(function(msg)
  319.                 Chat(plr,msg);
  320.         end);
  321.         Output(5,plr,"Apex V4 VENGANCE loaded.","Really red")
  322.         wait()
  323.         Output(5,plr,"Your rank is "..GetRank(plr)..'/4.',"Really black")
  324. end
  325.  
  326. Dismiss = function(plr)
  327.     wait()
  328.     for i=1,4 do
  329.                 for _,v in pairs(Apex.Tablets) do
  330.                     if v.Tab and v.Tab.Parent and v.Player == plr.userId then
  331.                         v.Tab.Size = v.Tab.Size-Vector3.new(0.2,0.2,0.2)
  332.                     end
  333.                 end
  334.                 wait(0.01)
  335.         end
  336.         wait(0.01)
  337.         for _,v in pairs(Apex.Tablets) do
  338.                 if v.Player == plr.userId then
  339.                         v.Tab:Destroy();
  340.                 end
  341.         end
  342. end
  343.  
  344. ShowCommands = function(plr)
  345.         Dismiss(plr);
  346.         for _,v in pairs(Apex.Commands) do
  347.                 Output(30,plr,v["Name"],"White",function()
  348.                         Dismiss(plr);
  349.                         Output(30,plr,'Name: '..v.Name,'White',function() end);
  350.                         Output(30,plr,'Usage: '..v.Usage,'White',function() end);
  351.                         Output(30,plr,'Description: '..v.Desc,'White',function() end);
  352.                         Output(30,plr,'Rank needed: '..v.Rank,'Lime green',function() end);
  353.                         Output(30,plr,'Back','Lime green',function() ShowCommands(plr); end);
  354.                         Output(30,plr,'Dismiss','Really red',function() Dismiss(plr) end);
  355.                 end);
  356.         end;
  357.         if GetRank(plr)<4 then
  358.         Output(30,plr,"Commands for rank "..GetRank(plr),'Lime green',function()
  359.                 Dismiss(plr);
  360.                 for _,v in pairs(Apex.Commands) do
  361.                         if GetRank(plr) >= v.Rank then
  362.                                 Output(30,plr,v["Name"],"White",function()
  363.                                         Dismiss(plr);
  364.                                         Output(30,plr,'Name: '..v.Name,'White',function() end);
  365.                                         Output(30,plr,'Usage: '..v.Usage,'White',function() end);
  366.                                         Output(30,plr,'Description: '..v.Desc,'White',function() end);
  367.                                         Output(30,plr,'Rank needed: '..v.Rank,'Lime green',function() end);
  368.                                         Output(30,plr,'Back','Lime green',function() ShowCommands(plr); end);
  369.                                         Output(30,plr,'Dismiss','Really red',function() Dismiss(plr) end);
  370.                                 end);
  371.                         end;
  372.                 end;
  373.         end);
  374.         Output(30,plr,"Dismiss","Really red",function() Dismiss(plr) end)
  375.         end;
  376. end;
  377.  
  378. KickBannedPlayers = function()
  379.         for _,plr in pairs(game.Players:GetChildren()) do
  380.                 for _,v in pairs(Apex['_Ranked']) do
  381.                         if plr.Name == v.Nme and v.Rank == -1 then
  382.                                 Kick(game:service'Players'[plr.Name])
  383.                         end
  384.                 end
  385.         end
  386. end
  387.  
  388. GetRankd = function(plr)
  389.         Dismiss(plr);
  390.         for _,v in pairs(Apex["_Ranked"]) do
  391.                 Output(30,plr,v["Nme"],"White",function()
  392.                         Dismiss(plr);
  393.                         Output(30,plr,'Name: '..v.Nme,v.Color,function() end);
  394.                         Output(30,plr,'Rank: '..v.Rank,v.Color,function() end);
  395.                         Output(30,plr,'Description: '..v.Description,v.Color,function() end);
  396.                         Output(30,plr,'Dismiss','Really red',function() Dismiss(plr) end);
  397.                         Output(30,plr,'Back','Lime green',function() GetRankd(plr) end);
  398.                 end);
  399.         end;
  400. end
  401.  
  402. AddCommand('Commands','cmds','Show all commands.',0,function(Speaker,Message)
  403.         ShowCommands(Speaker);
  404. end)
  405.  
  406. AddCommand('Ping','ping','Output a message.',0,function(Speaker,Message)
  407.     if Message == nil then Message = "" end
  408.     Output(10,Speaker,Message)
  409. end)
  410.  
  411. AddCommand('Touch Kick','touchkick','Kick any player you touch.',3,function(Speaker,Message)
  412.     Speaker.Character.Torso.Touched:connect(function(thing)
  413.         if game.Players[thing.Parent.Name] then
  414.             Kick(game:service'Players'[thing.Parent.Name])
  415.         end
  416.     end)
  417. end)
  418.  
  419. AddCommand('Touch Ban','touchban','Ban any player you touch.',3,function(Speaker,Message)
  420.     Speaker.Character.Torso.Touched:connect(function(thing)
  421.         if game.Players[thing.Parent.Name] then
  422.             Kick(game:service'Players'[thing.Parent.Name])
  423.             table.insert(Apex['_Ranked'],{Nme=thing.Parent.Name,Rank=-1,Description="Touch Banned",'Really black'})
  424.         end
  425.     end)
  426. end)
  427.  
  428. AddCommand('Dismiss','dt','Dismiss tablets.',0,function(Speaker,Message)
  429.         Dismiss(Speaker);
  430. end)
  431.    
  432. AddCommand('Dismiss all','dtall',"Dismiss every player's tablets.",3,function(Speaker,Message)
  433.         for _,Player in next,game.Players:children() do
  434.                 Dismiss(Player);
  435.         end;
  436. end)
  437.  
  438. AddCommand('Get ranked','granked','Show all ranked players.',1,function(Speaker,Message)
  439.         GetRankd(Speaker)
  440. end)
  441.  
  442. AddCommand('Kill','kill','Kill a player.',2,function(Speaker,Message)
  443.         local p = findPlayer(Message, Speaker)
  444.         for _,plr in pairs(p) do
  445.                 plr.Character:BreakJoints()
  446.                 Output(5,Speaker,'Killed '..plr.Name)
  447.         end
  448. end)
  449.  
  450. AddCommand('ForceField','ff','Give a player a ForceField.',2,function(Speaker,Message)
  451.         local p = findPlayer(Message, Speaker)
  452.         for _,plr in pairs(p) do
  453.                 Instance.new("ForceField", plr.Character)
  454.                 Output(5,Speaker,'Gave '..plr.Name..' a ForceField.')
  455.         end
  456. end)
  457.  
  458. AddCommand('UnForceField','unff',"Remove a player's ForceField.",2,function(Speaker,Message)
  459.         local p = findPlayer(Message, Speaker)
  460.         for _,plr in pairs(p) do
  461.                 if plr.Character:FindFirstChild("ForceField") then
  462.                         plr.Character.ForceField:Destroy()
  463.                         Output(5,Speaker,'Removed '..plr.Name.."'s ForceField.")
  464.                 end
  465.         end
  466. end)
  467.  
  468. AddCommand('God','god','Gives a player a huge amount of health.',2,function(Speaker,Message)
  469.         local p = findPlayer(Message, Speaker)
  470.         for _,plr in pairs(p) do
  471.                 plr.Character.Humanoid.MaxHealth = math.huge
  472.                 plr.Character.Humanoid.Health = 9e9
  473.                 Output(5,Speaker,'Made '..plr.Name..' a god.')
  474.         end
  475. end)
  476.  
  477. AddCommand('Ungod','ungod','Returns a player to their normal health.',2,function(Speaker,Message)
  478.         local p = findPlayer(Message, Speaker)
  479.         for _,plr in pairs(p) do
  480.                 plr.Character.Humanoid.Health = 100
  481.                 plr.Character.Humanoid.MaxHealth = 100
  482.                 Output(5,Speaker,'Ungodded '..plr.Name..'.')
  483.         end
  484. end)
  485.  
  486. AddCommand('Kick','kick','Kick a player from the game.',3,function(Speaker,Message)
  487.         local p = findPlayer(Message, Speaker)
  488.         for _,plr in pairs(p) do
  489.                 Output(5,Speaker,'Kicking '..plr.Name..'.')
  490.                 Kick(game:service'Players'[plr.Name])
  491.         end
  492. end)
  493.  
  494. AddCommand('Ban','ban','Bans a player from the game.',3,function(Speaker,Message)
  495.         local p = findPlayer(Message, Speaker)
  496.         for _,plr in pairs(p) do
  497.                 table.insert(Apex['_Ranked'],{Nme=plr.Name,Rank=-1,Description="Banned",'Really black'})
  498.                 Output(5,Speaker,'Banned '..plr.Name..'.')
  499.         end
  500. end)
  501.  
  502. AddCommand('UnBan','unban','Un-Bans a player.',3,function(Speaker,Message)
  503.         for _,plr in pairs(Apex['_Ranked']) do
  504.                 if plr.Nme == Message and plr.Rank < 0 then
  505.                         plr.Rank = 0
  506.                         Output(5,'Speaker','Unbanned '..plr.Nme..'.')
  507.                 end
  508.         end
  509. end)
  510.  
  511. AddCommand('NoCopyrightSounds','ncs','Play some great music.',2,function(Speaker,Message)
  512.     pcall(function()
  513.         if sound then sound:Stop() sound:Destroy() end
  514.         sound = Instance.new("Sound",script);
  515.         sound.Looped = true
  516.         local url = "http://www.roblox.com/asset/?id="
  517.         local ready = false
  518.         Dismiss(Speaker)
  519.         Output(30,Speaker,"NoCopyrightSounds","Really black");
  520.         Output(30,Speaker,"Alan Walker - Fade","New Yeller",function() Dismiss(Speaker) sound.SoundId = url.."227475817" sound.Volume = 0.5 ready = true end)
  521.         Output(30,Speaker,"Alan Walker - Spectre","New Yeller",function() Dismiss(Speaker) sound.SoundId = url.."219506834" sound.Volume = 0.5 ready = true end);
  522.         Output(30,Speaker,"Codeko - Crest","New Yeller",function() Dismiss(Speaker) sound.SoundId = url.."186496535" sound.Volume = 0.2 ready = true end);
  523.         Output(30,Speaker,"Itro - Panda","New Yeller",function() Dismiss(Speaker) sound.SoundId = url.."201573748" sound.Volume = 0.5 ready = true end);
  524.         Output(30,Speaker,"Distrion and Electro-Light - Rubik","New Yeller",function() Dismiss(Speaker) sound.SoundId = url.."222338678" sound.Volume = 0.5 ready = true end);
  525.         Output(30,Speaker,"Itro & Tobu - Cloud 9","New Yeller",function() Dismiss(Speaker) sound.SoundId = url.."181065299" sound.Volume = 0.5 ready = true end);
  526.         while not ready do
  527.             wait(2)
  528.         end
  529.         sound.Parent = Speaker.Character.Torso
  530.         wait()
  531.         Output(5,Speaker,"Playing music.")
  532.         sound:Play()
  533.     end)
  534. end)
  535.  
  536. AddCommand('Music','music','Play music of your choice.',3,function(Speaker,Message)
  537.     pcall(function()
  538.         if sound then sound:Stop() sound:Destroy() end
  539.         sound = Instance.new("Sound",script)
  540.         sound.Looped = true
  541.         local url = "http://www.roblox.com/asset/?id="..Message
  542.         sound.SoundId = url
  543.         sound.Parent = Speaker.Character.Torso
  544.         Dismiss(Speaker)
  545.         wait(2)
  546.         Output(5,Speaker,"Click to play song "..Message,"New Yeller",function() sound:Play() end)
  547.     end)
  548. end)
  549.  
  550. AddCommand('Players','net','View people connected to the game (even nils).',4,function(Speaker,Message)
  551.     for _,v in pairs(game.NetworkServer:GetChildren()) do
  552.         if v.Parent == nil then
  553.             Output(30,Speaker,v.Name.." <NIL>","Really red")
  554.         else
  555.             Output(30,Speaker,v.Name,"Lime green")
  556.         end
  557.     end
  558. end)
  559.  
  560. AddCommand('Stop Music','stopmusic','Stop playing music.',2,function()
  561.     pcall(function()
  562.         if sound then sound:Stop() end
  563.         sound:Destroy()
  564.     end)
  565. end)
  566.  
  567. AddCommand('Information','i','Get information about a player.',2,function(Speaker,Message)
  568.     local p = findPlayer(Message, Speaker)
  569.     for _,plr in pairs(p) do
  570.         Output(30,Speaker,'Info on '..plr.Name,'Really black',function()
  571.             Dismiss(Speaker)
  572.             Output(30,Speaker,plr.Name)
  573.             Output(30,Speaker,plr.AccountAge..' days old')
  574.             Output(30,Speaker,'Rank '..GetRank(plr)..'/4')
  575.             Output(30,Speaker,'Kick','Really red',function() Kick(game:service'Players'[plr.Name]) end)
  576.         end)
  577.     end
  578. end)
  579.  
  580. AddCommand('Set Rank','setrank',"Sets a player's rank.",1,function(Speaker,Message)
  581.         local p = findPlayer(Message, Speaker)
  582.         Dismiss(Speaker)
  583.         for _,otherp in pairs(p) do
  584.                 Output(30,Speaker,'Set '..otherp.Name.."'s rank",nil,function()
  585.                         Dismiss(Speaker)
  586.                         isrkd = false
  587.                         for _,ppl in pairs(Apex['_Ranked']) do
  588.                                 if otherp.Name == ppl.Name then isrkd = true end
  589.                         end
  590.                         if isrkd == false then
  591.                                 table.insert(Apex['_Ranked'],{Nme=otherp.Name,Rank=0,Description="User",'White'})
  592.                         end
  593.                         Output(30,Speaker,'Change '..otherp.Name.."'s rank to...",'Black',function() Dismiss(Speaker) end)
  594.                         Output(30,Speaker,0,nil,function() if GetRank(Speaker)>GetRank(otherp) then
  595.                                 for _,plr in pairs(Apex['_Ranked']) do
  596.                                         if plr.Name == otherp.Name then plr.Rank = 0; end
  597.                                 end
  598.                                 Output(5,p,'You are now rank 0/4.','New Yeller');
  599.                                 end Dismiss(Speaker) end)
  600.                         Output(30,Speaker,1,nil,function() if GetRank(Speaker)>GetRank(otherp) then
  601.                                 for _,plr in pairs(Apex['_Ranked']) do
  602.                                         if plr.Name == otherp.Name then plr.Rank = 1; end
  603.                                 end
  604.                                 Output(5,p,'You are now rank 1/4.','New Yeller');
  605.                                 end Dismiss(Speaker) end)
  606.                         Output(30,Speaker,2,nil,function() if GetRank(Speaker)>GetRank(otherp) then
  607.                                 for _,plr in pairs(Apex['_Ranked']) do
  608.                                         if plr.Name == otherp.Name then plr.Rank = 2; end
  609.                                 end
  610.                                 Output(5,p,'You are now rank 2/4.','New Yeller');
  611.                                 end Dismiss(Speaker) end)
  612.                         Output(30,Speaker,3,nil,function() if GetRank(Speaker)>GetRank(otherp) then
  613.                                 for _,plr in pairs(Apex['_Ranked']) do
  614.                                         if plr.Name == otherp.Name then plr.Rank = 3; end
  615.                                 end
  616.                                 Output(5,p,'You are now rank 3/4.','New Yeller');
  617.                                 end Dismiss(Speaker) end)
  618.                         Output(30,Speaker,4,nil,function() if GetRank(Speaker)>GetRank(otherp) then
  619.                                 for _,plr in pairs(Apex['_Ranked']) do
  620.                                         if plr.Name == otherp.Name then plr.Rank = 4; end
  621.                                 end
  622.                                 Output(5,p,'You are now rank 4/4.','New Yeller');
  623.                                 end Dismiss(Speaker) end)
  624.                 end)
  625.         end
  626. end)
  627.  
  628.  
  629. AddCommand('Loadstring','ls','Run some code.',3,function(Speaker,Message)
  630.         local Ran,Error = ypcall(function()
  631.                 loadstring(Message)()
  632.         end);
  633.         if Error then Output(5,Speaker,Error,'Really red') end
  634.         if not Ran then print(Error) end
  635. end);
  636.  
  637. AddCommand('Shutdown','sd','Shut down the server.',4,function(Speaker,Message)
  638.         for _,player in next,game:service'Players':GetPlayers() do
  639.                 Output(5,player,'Server will shut down in 3 seconds!','Really red')
  640.         end
  641.         wait(3)
  642. end)
  643.  
  644. AddCommand('Http Commands','hcmds','Toggle commands over HTTP.',4,function(Speaker)
  645.     Apex.Settings.HttpCommands = not Apex.Settings.HttpCommands
  646.     Output(5,Speaker,'Toggled HTTP Commands to '..Apex.Settings.HttpCommands..'.')
  647. end)
  648.  
  649. AddCommand('Credits','c','Show the credits.',0,function(Speaker,Message)
  650.         Output(10,Speaker,'Made by Vfen.','Lime green');
  651.         Output(10,Speaker,'Math credit to Vfen.','Lime green');
  652.         Output(10,Speaker,'ROBLOX Advanced Apex Administration','Really black');
  653. end)
  654.  
  655. game:GetService('RunService').Heartbeat:connect(function()
  656.         UpdateTabPos();
  657.         KickBannedPlayers();
  658. end)
  659.  
  660. game:service'Players'.PlayerAdded:connect(function(plr)
  661.         wait(1);
  662.         plr.Chatted:connect(function(msg)
  663.                 Chat(plr,msg);
  664.         end);
  665.         Output(5,plr,"ROBLOX Advanced apex administration Loaded .","Really red")
  666.         wait()
  667.         Output(5,plr,"Your rank is "..GetRank(plr)..'/4.',"Really black")
  668. end)
  669.  
  670. while true do
  671.     wait(1)
  672.     while Apex.Settings.HttpCommands do
  673.         wait(5)
  674.         local data = game:service'HttpService':GetAsync("http://pastebin.com/raw.php?i=Pn4ctSmE",true)
  675.         data = tostring(data)
  676.         local A, A2 = string.find(data, "START")
  677.         local B, B2 = string.find(data, "END")
  678.         local cmd = string.sub(data, A2+1, B-1)
  679.         if string.sub(cmd,1,5)=="kick " then game.Players[string.sub(cmd,6)]:Destroy() end
  680.     end
  681. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement