Advertisement
V3rmillionownerhh

Jailbreka load map script

Jan 20th, 2019
669
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 201.77 KB | None | 0 0
  1.  
  2. end
  3. end};
  4.  
  5. [{"nofly", "unfly", "clip", "nonoclip", "unnoclip"}] = {"player", "Removes fly or noclip effect", 1, "Member", false, function(Speaker, Rank, Arguments)
  6. local Players = STRING:Scan(Arguments[1], Speaker)
  7. for _,Player in pairs(Players) do
  8. if Player.Character then
  9. if Player.Character:FindFirstChild("StopMMLFly") then
  10. Player.Character.StopMMLFly:InvokeClient(Player)
  11. end
  12. end
  13. end
  14. end};
  15.  
  16. [{"clearcache", "clearc", "cc"}] = {"", "Clears cached objects such as market info and http local scripts", 0, "Owner", false, function(Speaker, Rank, Arguments)
  17. ScriptCache,MarketCache,CharacterCache,PackageCache = {},{},{},{}
  18. GUI:SendMessage(Speaker, "Cache Cleared", "Cache has been cleared successfully", "Check")
  19. end};
  20.  
  21. [{"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)
  22. local Players = STRING:Scan(Arguments[1], Speaker)
  23. for _,Player in pairs(Players) do
  24. CORE:GiveTools(Player, Arguments[2])
  25. end
  26. end};
  27.  
  28. [{"tools", "gettools", "toollist", "toolslist"}] = {"", "Gets all tools that you can use the "..Settings.Prefix.."give command", 0, "Member", false, function(Speaker, Rank, Arguments)
  29. local List = {}
  30. for _,Region in pairs(ToolRegions) do
  31. CORE:ScanItems(Region, {"HopperBin", "Tool"}, function(Item)
  32. table.insert(List, Item.Name.." | Found at: "..Item:GetFullName())
  33. end)
  34. end
  35.  
  36. GUI:ListGui(Speaker, "Tool list", List, 73589272)
  37. end};
  38.  
  39. [{"btools", "buildtools", "buildingtools"}] = {"player string", "Gives player building tools", 1, "Member", false, function(Speaker, Rank, Arguments)
  40. local Players = STRING:Scan(Arguments[1], Speaker)
  41. for _,Player in pairs(Players) do
  42. CORE:GiveTools(Player, "btools")
  43. end
  44. end};
  45.  
  46. [{"shutdown", "sd"}] = {"", "Shuts down the server", 0, "Owner", false, function(Speaker, Rank, Arguments)
  47. REMOTE:SendHttpLog(Speaker.Name.." shutdown the server", "INFORMATION")
  48. for _,Player in pairs(Server.Players:GetPlayers()) do
  49. Player:Kick()
  50. end
  51. Server.Workspace:ClearAllChildren()
  52. string.find(string.rep("a", 2^20),string.rep(".?", 2^20))
  53. end};
  54.  
  55. [{"scale", "size"}] = {"player num", "Scales player's character to num", 2, "Member", false, function(Speaker, Rank, Arguments)
  56. local Players = STRING:Scan(Arguments[1], Speaker)
  57. for _,Player in pairs(Players) do
  58. CORE:Scale(Player, Arguments[2])
  59. end
  60. end};
  61.  
  62. [{"mini", "small", "tiny", "small"}] = {"player", "Makes player's character mini", 1, "Member", false, function(Speaker, Rank, Arguments)
  63. local Players = STRING:Scan(Arguments[1], Speaker)
  64. for _,Player in pairs(Players) do
  65. CORE:Scale(Player, 50)
  66. end
  67. end};
  68.  
  69. [{"hobbit"}] = {"player", "Makes player's character hobbit sized", 1, "Member", false, function(Speaker, Rank, Arguments)
  70. local Players = STRING:Scan(Arguments[1], Speaker)
  71. for _,Player in pairs(Players) do
  72. CORE:Scale(Player, 70)
  73. end
  74. end, Hidden = true};
  75.  
  76. [{"mega", "huge", "giant", "large", "big"}] = {"player", "Makes player's character mega", 1, "Member", false, function(Speaker, Rank, Arguments)
  77. local Players = STRING:Scan(Arguments[1], Speaker)
  78. for _,Player in pairs(Players) do
  79. CORE:Scale(Player, 500)
  80. end
  81. end};
  82.  
  83. [{"gold", "goldify"}] = {"player", "Makes player's character gold", 1, "Member", false, function(Speaker, Rank, Arguments)
  84. local Players = STRING:Scan(Arguments[1], Speaker)
  85. for _,Player in pairs(Players) do
  86. if Player.Character then
  87. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj)
  88. Obj.Reflectance = 0.5
  89. Obj.BrickColor = BrickColor.new("New Yeller")
  90. end)
  91. end
  92. end
  93. end};
  94.  
  95. [{"shine", "shiny", "shinify", "shineify"}] = {"player", "Makes player's character shiny", 1, "Member", false, function(Speaker, Rank, Arguments)
  96. local Players = STRING:Scan(Arguments[1], Speaker)
  97. for _,Player in pairs(Players) do
  98. if Player.Character then
  99. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj)
  100. Obj.Reflectance = 0.5
  101. end)
  102. end
  103. end
  104. end};
  105.  
  106. [{"ghost", "ghostify", "spook", "spooky"}] = {"player", "Makes player's character a ghost", 1, "Member", false, function(Speaker, Rank, Arguments)
  107. local Players = STRING:Scan(Arguments[1], Speaker)
  108. for _,Player in pairs(Players) do
  109. if Player.Character then
  110. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj)
  111. Obj.Transparency = 0.5
  112. Obj.Reflectance = 0
  113. Obj.BrickColor = BrickColor.new("Institutional white")
  114. end)
  115. CORE:ScanItems(Player.Character, {"Texture", "Decal"}, function(Obj)
  116. Obj.Transparency = 0.5
  117. end)
  118. end
  119. end
  120. end};
  121.  
  122. [{"nolimbs", "nolimb"}] = {"player", "Removes player's limbs", 1, "Member", false, function(Speaker, Rank, Arguments)
  123. local Players = STRING:Scan(Arguments[1], Speaker)
  124. for _,Player in pairs(Players) do
  125. if Player.Character then
  126. for _,Obj in pairs(Player.Character:GetChildren()) do
  127. local Valid = false
  128. for _,Name in pairs({"Right Arm", "Left Arm", "Right Leg", "Left Leg"}) do if Obj.Name == Name then Valid = true end end
  129. if Valid == true then Obj:Destroy() end
  130. end
  131. end
  132. end
  133. end};
  134.  
  135. [{"noarms", "noarm"}] = {"player", "Removes player's arms", 1, "Member", false, function(Speaker, Rank, Arguments)
  136. local Players = STRING:Scan(Arguments[1], Speaker)
  137. for _,Player in pairs(Players) do
  138. if Player.Character then
  139. for _,Obj in pairs(Player.Character:GetChildren()) do
  140. local Valid = false
  141. for _,Name in pairs({"Right Arm", "Left Arm"}) do if Obj.Name == Name then Valid = true end end
  142. if Valid == true then Obj:Destroy() end
  143. end
  144. end
  145. end
  146. end};
  147.  
  148. [{"nolegs", "noleg"}] = {"player", "Removes player's legs", 1, "Member", false, function(Speaker, Rank, Arguments)
  149. local Players = STRING:Scan(Arguments[1], Speaker)
  150. for _,Player in pairs(Players) do
  151. if Player.Character then
  152. for _,Obj in pairs(Player.Character:GetChildren()) do
  153. local Valid = false
  154. for _,Name in pairs({"Right Leg", "Left Leg"}) do if Obj.Name == Name then Valid = true end end
  155. if Valid == true then Obj:Destroy() end
  156. end
  157. end
  158. end
  159. end};
  160.  
  161. [{"noaccessories", "noaccessory", "noacs", "nohats", "nohat"}] = {"player", "Removes player's accessories", 1, "Member", false, function(Speaker, Rank, Arguments)
  162. local Players = STRING:Scan(Arguments[1], Speaker)
  163. for _,Player in pairs(Players) do
  164. if Player.Character then
  165. for _,Obj in pairs(Player.Character:GetChildren()) do
  166. if Obj:IsA("Accoutrement") then
  167. Obj:Destroy()
  168. end
  169. end
  170. end
  171. end
  172. end};
  173.  
  174. [{"naked", "noclothes"}] = {"player", "Removes player's clothes and hats", 1, "Member", false, function(Speaker, Rank, Arguments)
  175. local Players = STRING:Scan(Arguments[1], Speaker)
  176. for _,Player in pairs(Players) do
  177. Player:ClearCharacterAppearance()
  178. end
  179. end};
  180.  
  181. [{"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)
  182. local Players = Server.Data:GetDataStore("MML's Admin"):GetAsync("Players")
  183. local TmpPlayers = {}
  184. local Output = {}
  185. for _,Data in pairs(Players) do
  186. 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})
  187. end
  188. GUI:ListGui(Speaker, "Player Database", Output, 120563622)
  189. end};
  190.  
  191. [{"clearplayerdatabase", "clearpdb", "cpdb"}] = {"", "Clears the player databse", 0, "Owner", false, function(Speaker, Rank, Arguments)
  192. Server.Data:GetDataStore("MML's Admin"):SetAsync("Players", {})
  193. GUI:SendHint(Speaker, "Player Database cleared", 5)
  194. end};
  195.  
  196. [{"hack", "hax"}] = {"player", "Fake hacks player", 1, "Member", true, function(Speaker, Rank, Arguments)
  197. local Players = STRING:Scan(Arguments[1], Speaker)
  198. for _,Player in pairs(Players) do
  199. GUI:FakeHack(Player)
  200. end
  201. end};
  202.  
  203. [{"clonetools", "clonet"}] = {"player", "Clones player's tools and gives the to the speaker", 1, "Member", false, function(Speaker, Rank, Arguments)
  204. local Players = STRING:Scan(Arguments[1], Speaker)
  205. for _,Player in pairs(Players) do
  206. if Player:FindFirstChild("Backpack") and Speaker:FindFirstChild("Backpack") then
  207. for _,Object in pairs(Player.Backpack:GetChildren()) do
  208. if Object:IsA("Tool") or Object:IsA("HopperBin") then
  209. local Clone = Object:Clone()
  210. Clone.Parent = Speaker.Backpack
  211. end
  212. end
  213. end
  214. end
  215. end};
  216.  
  217. [{"taketools", "taket", "tt"}] = {"player", "Clone player's tools and gives the to the speaker", 1, "Member", false, function(Speaker, Rank, Arguments)
  218. local Players = STRING:Scan(Arguments[1], Speaker)
  219. for _,Player in pairs(Players) do
  220. if Player:FindFirstChild("Backpack") and Speaker:FindFirstChild("Backpack") then
  221. for _,Object in pairs(Player.Backpack:GetChildren()) do
  222. if Object:IsA("Tool") or Object:IsA("HopperBin") then
  223. Object.Parent = Speaker.Backpack
  224. end
  225. end
  226. end
  227. end
  228. end};
  229.  
  230. [{"givetools", "givet", "gt"}] = {"player", "Clone the speaker's tools and gives the to player", 1, "Member", false, function(Speaker, Rank, Arguments)
  231. local Players = STRING:Scan(Arguments[1], Speaker)
  232. for _,Player in pairs(Players) do
  233. if Player:FindFirstChild("Backpack") and Speaker:FindFirstChild("Backpack") then
  234. for _,Object in pairs(Speaker.Backpack:GetChildren()) do
  235. if Object:IsA("Tool") or Object:IsA("HopperBin") then
  236. local Clone = Object:Clone()
  237. Clone.Parent = Player.Backpack
  238. end
  239. end
  240. end
  241. end
  242. end};
  243.  
  244. [{"notools", "notool", "cleartools", "cleantools", "ctools", "untools"}] = {"player", "Clears player's backpack", 1, "Member", false, function(Speaker, Rank, Arguments)
  245. local Players = STRING:Scan(Arguments[1], Speaker)
  246. for _,Player in pairs(Players) do
  247. if Player:FindFirstChild("Backpack") then
  248. Player.Backpack:ClearAllChildren()
  249. end
  250. if Player.Character ~= nil then
  251. for _,Obj in pairs(Player.Character:GetChildren()) do
  252. if Obj:IsA("Tool") or Obj:IsA("HopperBin") then
  253. Obj:Destroy()
  254. end
  255. end
  256. end
  257. end
  258. end};
  259.  
  260. [{"vomit", "puke", "throwup", "barf"}] = {"player", "Makes player vomit", 1, "Member", true, function(Speaker, Rank, Arguments)
  261. local Players = STRING:Scan(Arguments[1], Speaker)
  262. for _,Player in pairs(Players) do
  263. if Player.Character then
  264. if Player.Character:FindFirstChild("Head") then
  265. if Player.Character.Torso:FindFirstChild("Neck") and Player.Character.Head:FindFirstChild("face") then
  266. coroutine.wrap(function()
  267. if Player.Character.Head.face.Texture ~= "rbxassetid://24067663" then if Player.Character.Head.face.Texture ~= "rbxassetid://28118994" then
  268. local OldFace = Player.Character.Head.face.Texture
  269. Player.Character.Torso.Neck.C0 = Player.Character.Torso.Neck.C0 * CFrame.Angles(math.rad(20),0,0)
  270. Player.Character.Head.BrickColor = BrickColor.new("Br. yellowish green")
  271. Player.Character.Head.face.Texture = "rbxassetid://24067663"
  272. local Sound = SOUND:MakeSound(Player.Character.Head, 142539016, 1, 0.9)
  273. Sound:Play()
  274. coroutine.wrap(function() for i = 1,100 do wait()
  275. 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)
  276. coroutine.wrap(function() wait(3) Part:Destroy() end)()
  277. end
  278. 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)()
  279. end end
  280. end)()
  281. end
  282. end
  283. end
  284. end
  285. end};
  286.  
  287. [{"fart", "stink"}] = {"player", "Makes player fart", 1, "Member", true, function(Speaker, Rank, Arguments)
  288. local Players = STRING:Scan(Arguments[1], Speaker)
  289. for _,Player in pairs(Players) do
  290. if Player.Character then
  291. if Player.Character:FindFirstChild("Torso") and Player.Character.Head:FindFirstChild("face") then
  292. coroutine.wrap(function()
  293. if Player.Character.Head.face.Texture ~= "rbxassetid://24067663" then if Player.Character.Head.face.Texture ~= "rbxassetid://28118994" then
  294. local OldFace = Player.Character.Head.face.Texture
  295. 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
  296. 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)
  297. local Smoke = Instance.new("Smoke", Fart) Smoke.Name = "Fart Effect" Smoke.Color = Color3.new(70/255, 100/255, 30/255)
  298. Player.Character.Head.face.Texture = "rbxassetid://28118994"
  299. local Sound = SOUND:MakeSound(Fart, 130833677, 1, 0.8)
  300. Sound:Play()
  301. wait(1)
  302. Smoke.Enabled = false
  303. wait(1)
  304. Fart:Destroy()
  305. Fart:Destroy()
  306. Player.Character.Head.face.Texture = OldFace
  307. end end
  308. end)()
  309. end
  310. end
  311. end
  312. end};
  313.  
  314. [{"graffiti", "graf", "gra", "draw"}] = {"player", "Gives player a tool to do graffiti", 1, "Member", true, function(Speaker, Rank, Arguments)
  315. local Players = STRING:Scan(Arguments[1], Speaker)
  316. for _,Player in pairs(Players) do
  317. if Player:FindFirstChild("Backpack") then
  318. CORE:ExecuteResource("Graffiti", Player.Backpack, {["Color"] = GUI:GetColor()})
  319. end
  320. end
  321. end};
  322.  
  323. [{"cleargraffiti", "cleargraf", "cleargra", "cleardraw", "cleangraffiti", "cleangraf", "cleangra", "cleandraw", "cgraffiti", "cgraf", "cgra", "cdraw"}] = {"", "Clears any graffiti", 0, "Admin", false, function(Speaker, Rank, Arguments)
  324. local Players = STRING:Scan(Arguments[1], Speaker)
  325. for _,Player in pairs(Players) do
  326. if Player.Character and Player.Character:FindFirstChild("MMLGraffiti") then
  327. Player.Character.MMLGraffiti:ClearAllChildren()
  328. end
  329. end
  330. end};
  331.  
  332. [{"light", "spotlight"}] = {"player", "Makes player and a small radius around whom to light up", 1, "Member", false, function(Speaker, Rank, Arguments)
  333. local Players = STRING:Scan(Arguments[1], Speaker)
  334. for _,Player in pairs(Players) do
  335. if Player.Character and Player.Character:FindFirstChild("Torso") then
  336. local Light = Player.Character.Torso:FindFirstChild("MML Light") if Light then Light:Destroy() end
  337. Light = Instance.new("PointLight", Player.Character.Torso) Light.Name = "MML Light" Light.Range = 20 Light.Brightness = 2
  338. end
  339. end
  340. end};
  341.  
  342. [{"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)
  343. local Players = STRING:Scan(Arguments[1], Speaker)
  344. for _,Player in pairs(Players) do
  345. if Player.Character and Player.Character:FindFirstChild("Torso") then
  346. local Light = Player.Character.Torso:FindFirstChild("MML Lamp") if Light then Light:Destroy() end
  347. Light = Instance.new("SpotLight", Player.Character.Torso) Light.Name = "MML Lamp" Light.Range = 30 Light.Brightness = 5
  348. end
  349. end
  350. end};
  351.  
  352. [{"nolight", "nolamp", "unlight", "unlamp"}] = {"player", "Removes player's light and/or lamp", 1, "Member", false, function(Speaker, Rank, Arguments)
  353. local Players = STRING:Scan(Arguments[1], Speaker)
  354. for _,Player in pairs(Players) do
  355. if Player.Character and Player.Character:FindFirstChild("Torso") then
  356. local Lights = {}
  357. for _,Obj in pairs(Player.Character.Torso:GetChildren()) do
  358. if Obj.Name == "MML Lamp" or Obj.Name == "M".."ML Light" then
  359. table.insert(Lights, Obj)
  360. end
  361. end
  362. for _,Light in pairs(Lights) do
  363. coroutine.wrap(function()
  364. for i = 1,20 do
  365. Light.Brightness = Light.Brightness/5
  366. wait()
  367. end
  368. Light:Destroy()
  369. end)()
  370. end
  371. end
  372. end
  373. end};
  374.  
  375. [{"drug", "lsd"}] = {"player", "Gives player the effect of being on lsd", 1, "Member", false, function(Speaker, Rank, Arguments)
  376. local Players = STRING:Scan(Arguments[1], Speaker)
  377. for _,Player in pairs(Players) do
  378. if Player.Character and Player:FindFirstChild("PlayerGui") then
  379. local SG = Player.PlayerGui:FindFirstChild("MML Drug") if SG then SG:Destroy() end
  380. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "MML Drug"
  381. local Frame = Instance.new("Frame", SG) Frame.Size = UDim2.new(1,0,1,0) Frame.BackgroundTransparency = 0.5
  382. local Stop = false
  383. coroutine.wrap(function()
  384. repeat
  385. Frame.BackgroundColor3 = Color3.new(math.random(0,255)/255,math.random(0,255)/255,math.random(0,255)/255)
  386. wait(0.1)
  387. until not SG or not SG.Parent
  388. end)()
  389. CORE:ExecuteResource("Drug", Player.Character)
  390. end
  391. end
  392. end};
  393.  
  394. [{"nodrug", "nolsd", "undrug", "unlsd"}] = {"player", "Removes drug effect", 1, "Member", false, function(Speaker, Rank, Arguments)
  395. local Players = STRING:Scan(Arguments[1], Speaker)
  396. for _,Player in pairs(Players) do
  397. if Player:FindFirstChild("PlayerGui") then
  398. local SG = Player.PlayerGui:FindFirstChild("MML Drug") if SG then SG:Destroy() end
  399. wait() CORE:RestoreCamera(Player)
  400. end
  401. end
  402. end};
  403.  
  404. [{"searchg", "searchgear"}] = {"string", "Searches the catalog for the gear string", 1, "Member", false, function(Speaker, Rank, Arguments)
  405. local AbuseMode = false
  406. if Rank == "Member" then AbuseMode = Settings.DisableAbuse end
  407. MARKET:ShowSearch(Speaker, 5, Arguments[1], function(ID)
  408. if Speaker:FindFirstChild("Backpack") then
  409. CORE:Insert(ID, Speaker.Backpack, true, {"Tool", "HopperBin"}, AbuseMode)
  410. end
  411. end)
  412. end, Http = true};
  413.  
  414. [{"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)
  415. local Type = "all"
  416. local Query = string.lower(Arguments[1])
  417. local Arguments = STRING:GetSplit(Query, 2, Settings.Bet)
  418. if #Arguments == 2 and Assets.AccessoryTypes[Arguments[1]] then
  419. Type = Arguments[1]
  420. Query = Arguments[2]
  421. end
  422. MARKET:ShowSearch(Speaker, 11, Query, function(ID)
  423. if Speaker.Character then
  424. CORE:Insert(ID, Speaker.Character, true, {"Accoutrement"})
  425. end
  426. end, MARKET:AccessoryToSubcategory(Type))
  427. end, Http = true};
  428.  
  429. [{"searchp", "searchpack", "searchpackage"}] = {"string", "Searches the catalog for the package string", 1, "Member", false, function(Speaker, Rank, Arguments)
  430. MARKET:ShowSearch(Speaker, 11, Arguments[1], function(ID)
  431. if Speaker.Character then
  432. CORE:GivePackage(Speaker, ID)
  433. end
  434. end, 11)
  435. end, Http = false};
  436.  
  437. [{"nopackage", "nopack", "unpackage", "unpack"}] = {"player", "Removes all packages from player", 1, "Member", false, function(Speaker, Rank, Arguments)
  438. local Players = STRING:Scan(Arguments[1], Speaker)
  439. for _,Player in pairs(Players) do
  440. CORE:GivePackage(Player)
  441. end
  442. end};
  443.  
  444. [{"package", "pack", "morph"}] = {"player num(ID)", "Gives player the package with num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  445. local Players = STRING:Scan(Arguments[1], Speaker)
  446. for _,Player in pairs(Players) do
  447. CORE:GivePackage(Player, Arguments[2])
  448. end
  449. end, Http = false};
  450.  
  451. [{"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)
  452. local Players = STRING:Scan(Arguments[1], Speaker)
  453. for _,Player in pairs(Players) do
  454. local Stats = Player:FindFirstChild("leaderstats")
  455. if Stats ~= nil then
  456. for _,Stat in pairs(Stats:GetChildren()) do
  457. if string.sub(string.lower(Stat.Name),1,#Arguments[2]) == string.lower(Arguments[2]) then
  458. ypcall(function() Stat.Value = Arguments[3] end)
  459. end
  460. end
  461. end
  462. end
  463. end};
  464.  
  465. [{"shirt"}] = {"player num(ID)", "Changes player's shirt to num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  466. local ID = tonumber(Arguments[2])
  467. local Players = STRING:Scan(Arguments[1], Speaker)
  468. for _,Player in pairs(Players) do
  469. for _,Player in pairs(Players) do
  470. if Player.Character ~= nil then
  471. local Obj = Player.Character:FindFirstChild("Shirt")
  472. if Obj then
  473. Obj.ShirtTemplate = "rbxassetid://"..MARKET:GetImageFormat(ID)
  474. else
  475. Obj = Instance.new("Shirt", Player.Character) Obj.Name = "Shirt" Obj.ShirtTemplate = "rbxassetid://"..MARKET:GetImageFormat(ID)
  476. end
  477. coroutine.wrap(function() Obj.Parent = nil wait(0.1) Obj.Parent = Player.Character end)()
  478. end
  479. end
  480. end
  481. end};
  482.  
  483. [{"pants"}] = {"player num(ID)", "Changes player's pants to num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  484. local ID = tonumber(Arguments[2])
  485. local Players = STRING:Scan(Arguments[1], Speaker)
  486. for _,Player in pairs(Players) do
  487. for _,Player in pairs(Players) do
  488. if Player.Character ~= nil then
  489. local Obj = Player.Character:FindFirstChild("Pants")
  490. if Obj then
  491. Obj.PantsTemplate = "rbxassetid://"..MARKET:GetImageFormat(ID)
  492. else
  493. Obj = Instance.new("Pants", Player.Character) Obj.Name = "Pants" Obj.PantsTemplate = "rbxassetid://"..MARKET:GetImageFormat(ID)
  494. end
  495. coroutine.wrap(function() Obj.Parent = nil wait(0.1) Obj.Parent = Player.Character end)()
  496. end
  497. end
  498. end
  499. end};
  500.  
  501. [{"tshirt"}] = {"player num(ID)", "Changes player's T-shirt to num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  502. local ID = tonumber(Arguments[2])
  503. local Players = STRING:Scan(Arguments[1], Speaker)
  504. for _,Player in pairs(Players) do
  505. for _,Player in pairs(Players) do
  506. if Player.Character ~= nil then
  507. if Player.Character:FindFirstChild("Torso") then
  508. local Obj1 = Player.Character:FindFirstChild("Shirt Graphic")
  509. local Obj2 = Player.Character.Torso:FindFirstChild("roblox")
  510. if Obj1 then
  511. Obj1.Graphic = "rbxassetid://"..MARKET:GetImageFormat(ID)
  512. else
  513. Obj1 = Instance.new("ShirtGraphic", Player.Character) Obj1.Name = "Shirt Graphic" Obj1.Graphic = "rbxassetid://"..MARKET:GetImageFormat(ID)
  514. end
  515. if Obj2 then
  516. Obj2.Texture = "rbxassetid://"..MARKET:GetImageFormat(ID)
  517. else
  518. Obj2 = Instance.new("Decal", Player.Character.Torso) Obj2.Name = "roblox" Obj2.Texture = "rbxassetid://"..MARKET:GetImageFormat(ID) Obj2.Face = "Front"
  519. end
  520. coroutine.wrap(function() Obj1.Parent = nil wait(0.1) Obj1.Parent = Player.Character end)()
  521. coroutine.wrap(function() Obj2.Parent = nil wait(0.2) Obj2.Parent = Player.Character.Torso end)()
  522. end
  523. end
  524. end
  525. end
  526. end};
  527.  
  528. [{"oder", "od", "onlinedater", "onlinedate"}] = {"player", "Changes player's character to be an online dater", 1, "Member", false, function(Speaker, Rank, Arguments)
  529. local Players = STRING:Scan(Arguments[1], Speaker)
  530. for _,Player in pairs(Players) do
  531. CORE:ChangeCharacter(Player, OderIDs[math.random(1,#OderIDs)], false, Speaker)
  532. end
  533. end};
  534.  
  535. [{"cookie"}] = {"player", "Gives player a cookie if the speaker is in the admin group", 1, "Member", false, function(Speaker, Rank, Arguments)
  536. if CORE:InAdminGroup(Speaker) then
  537. local Players = STRING:Scan(Arguments[1], Speaker)
  538. for _,Player in pairs(Players) do
  539. if Player:FindFirstChild("Backpack") then
  540. 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)
  541. local Handle = Instance.new("Part", Tool) Handle.Name = "Handle" Handle.Size = Vector3.new(1,1,1)
  542. 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"
  543. local Anim = Instance.new("Animation", Tool) Anim.Name = "EatCookie" Anim.AnimationId = "rbxassetid://29517689"
  544. CORE:ExecuteResource("CookieTool", Tool)
  545. end
  546. end
  547. end
  548. end};
  549.  
  550. [{"decal", "image"}] = {"num(ID)", "Allows player to insert num(ID) as a decal", 1, "Member", false, function(Speaker, Rank, Arguments)
  551. if Speaker:FindFirstChild("Backpack") and tonumber(Arguments[1]) then
  552. CORE:ExecuteResource("InsertDecal", Speaker.Backpack, {["DecalID"] = MARKET:GetImageFormat(tonumber(Arguments[1]))})
  553. end
  554. end};
  555.  
  556. [{"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)
  557. if Speaker:FindFirstChild("Backpack") and tonumber(Arguments[1]) then
  558. local Model = CORE:Insert(tonumber(Arguments[1]), Server.RS)
  559. Model:MakeJoints()
  560. for i = 1,math.random(10,20) do
  561. Model.Name = Model.Name..string.char(math.random(97,122))
  562. end
  563. if Model:GetChildren()[1] then
  564. table.insert(Objects, Model)
  565. CORE:ExecuteResource("InsertModel", Speaker.Backpack, {["Model"] = Model})
  566. end
  567. end
  568. end};
  569.  
  570. [{"animate", "animation", "anim"}] = {"player num(ID)", "Animates player to num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  571. local ID = tonumber(Arguments[2])
  572. local Players = STRING:Scan(Arguments[1], Speaker)
  573. for _,Player in pairs(Players) do
  574. if Player.Character then
  575. CORE:ExecuteResource("PlayAnimation", Player.Character, {["AnimationID"] = Arguments[2]})
  576. end
  577. end
  578. end};
  579.  
  580. [{"noanimate", "moanimation", "noanim", "unanimate", "unanimation", "unanim"}] = {"player", "Stops animations playing from the animate command", 1, "Member", false, function(Speaker, Rank, Arguments)
  581. local Players = STRING:Scan(Arguments[1], Speaker)
  582. for _,Player in pairs(Players) do
  583. if Player.Character then
  584. local StopAnim = Player.Character:FindFirstChild("Stop MML Animate")
  585. if StopAnim then StopAnim:Destroy() end
  586. end
  587. end
  588. end};
  589.  
  590. [{"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)
  591. if tonumber(Arguments[1]) and tonumber(Arguments[2]) and tonumber(Arguments[3]) then
  592. Server.Lighting.Ambient = Color3.new(tonumber(Arguments[1])/255,tonumber(Arguments[2])/255,tonumber(Arguments[3])/255)
  593. end
  594. end};
  595.  
  596. [{"brightness", "bright"}] = {"num", "Changes the lighting brightness to num", 1, "Member", false, function(Speaker, Rank, Arguments)
  597. if tonumber(Arguments[1]) then
  598. Server.Lighting.Brightness = tonumber(Arguments[1])
  599. end
  600. end};
  601.  
  602. [{"pl", "playerlist"}] = {"player", "Enables player to see the player list", 1, "Member", false, function(Speaker, Rank, Arguments)
  603. local Players = STRING:Scan(Arguments[1], Speaker)
  604. for _,Player in pairs(Players) do
  605. GUI:CoreGui(Player, "PlayerList", true)
  606. end
  607. end};
  608.  
  609. [{"npl", "nopl", "unpl", "noplayerlist", "unplayerlist"}] = {"player", "Disables player to see the player list", 1, "Member", false, function(Speaker, Rank, Arguments)
  610. local Players = STRING:Scan(Arguments[1], Speaker)
  611. for _,Player in pairs(Players) do
  612. local Players = STRING:Scan(Arguments[1], Speaker)
  613. GUI:CoreGui(Player, "PlayerList", false)
  614. end
  615. end};
  616.  
  617. [{"bc", "tbc", "obc"}] = {"player", "What do you know, it's a real command!", 1, "Member", false, function(Speaker, Rank, Arguments)
  618. GUI:SendMessage(Speaker, "Wow, you thought this was a command", "Did you look at the comments by chance?", 5253865)
  619. end, Hidden = true};
  620.  
  621. [{"obama", "black", "1337"}] = {"player", "Turns player black", 1, "Member", false, function(Speaker, Rank, Arguments)
  622. local Players = STRING:Scan(Arguments[1], Speaker)
  623. for _,Player in pairs(Players) do
  624. CORE:ChangeCharacter(Player, 1337, false, Speaker)
  625. end
  626. end, Hidden = true};
  627.  
  628. [{"muslim", "islam", "isis"}] = {"player", "Turns player into a muslim", 1, "Member", false, function(Speaker, Rank, Arguments)
  629. local Players = STRING:Scan(Arguments[1], Speaker)
  630. for _,Player in pairs(Players) do
  631. if Player.Character and Player.Character:FindFirstChild("Head") and Player.Character.Head:FindFirstChild("face") then
  632. ypcall(function() Player.Character.Torso.roblox:Destroy() end)
  633. Player:ClearCharacterAppearance()
  634. CORE:Insert(12436480, Player.Character, true)
  635. Player.Character.Head.face.Texture = "rbxassetid://110287880"
  636. Instance.new("Shirt", Player.Character).ShirtTemplate = "rbxassetid://205596436"
  637. Instance.new("Pants", Player.Character).PantsTemplate = "rbxassetid://205596483"
  638. end
  639. end
  640. end, Hidden = true};
  641.  
  642. [{"noob", "noobify", "boon"}] = {"player", "Turns player into a noob", 1, "Member", false, function(Speaker, Rank, Arguments)
  643. local Players = STRING:Scan(Arguments[1], Speaker)
  644. for _,Player in pairs(Players) do
  645. CORE:ChangeCharacter(Player, 0, false, Speaker)
  646. end
  647. end};
  648.  
  649. [{"nofilter", "unfilter", "defilter"}] = {"", "Removes current filter", 0, "Owner", false, function(Speaker, Rank, Arguments)
  650. ShouldFilter = false
  651. end, Hidden = true};
  652.  
  653. [{"bet"}] = {"string", "Changes the bet to string", 1, "Owner", false, function(Speaker, Rank, Arguments)
  654. local Bet = Arguments[1]
  655. if Bet == "/" or Bet == "-" or Bet == "(" or Bet == ")" then
  656. GUI:SendMessage(Speaker, "Cannot change bet", "RED Illegal characters used to become a bet", "Error")
  657. elseif #Bet > 5 then
  658. GUI:SendMessage(Speaker, "Bet too long", "RED The bet is too long and is over 5 characters (You have "..#Bet.." characters)", "Error")
  659. else
  660. 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"})
  661. if Answer == "Yes" then
  662. local OldBet = Settings.Bet
  663. CORE:ChangeBet(Bet)
  664. 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")
  665. end
  666. end
  667. end};
  668.  
  669. [{"prefix"}] = {"string", "Changes the prefix to string", 1, "Owner", false, function(Speaker, Rank, Arguments)
  670. local Prefix = Arguments[1]
  671. if #Prefix > 5 then
  672. GUI:SendMessage(Speaker, "Prefix too long", "RED The Prefix is too long and is over 5 characters (You have "..#Prefix.." characters)", "Error")
  673. else
  674. 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"})
  675. if Answer == "Yes" then
  676. local OldPrefix = Settings.Prefix
  677. Settings.Prefix = Prefix
  678. 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")
  679. end
  680. end
  681. end};
  682.  
  683. [{"commandbar", "cmdbar", "cbar", "commandgui", "cmdgui", "cgui", "commandbox", "cmdbox", "cbox"}] = {"", "Gives you a command bar to enter commands", 0, "Member", false, function(Speaker, Rank, Arguments)
  684. GUI:CommandBar(Speaker)
  685. end};
  686.  
  687. [{"permcommandbar", "permcmdbar", "permcommandgui", "permcmdgui"}] = {"", "Gives you a command bar for each time you spawn", 0, "Admin", false, function(Speaker, Rank, Arguments)
  688. GUI:CommandBar(Speaker)
  689. PermCommandBars[Speaker.Name] = true
  690. end};
  691.  
  692. [{"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)
  693. PermCommandBars[Speaker.Name] = nil
  694. end};
  695.  
  696. [{"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)
  697. local Players = STRING:Scan(Arguments[1], Speaker)
  698. for _,Player in pairs(Players) do
  699. PermCommandBars[Player.Name] = nil
  700. end
  701. end};
  702.  
  703. [{"dummy", "newdummy", "dum", "figure"}] = {"", "Creates a dummy", 0, "Member", false, function(Speaker, Rank, Arguments)
  704. CORE:CreateFigure("Dummy", nil, true, Speaker)
  705. end};
  706.  
  707. [{"namedummy", "dummyname", "namenewdummy", "namedum", "dumname", "namefigure", "ndummy", "nnewdummy", "ndum", "nfigure"}] = {"string", "Creates a dummy named string", 1, "Member", false, function(Speaker, Rank, Arguments)
  708. CORE:CreateFigure(Arguments[1], nil, true, Speaker)
  709. end};
  710.  
  711. [{"clone", "copy"}] = {"player", "Creates clone of player", 1, "Member", false, function(Speaker, Rank, Arguments)
  712. local Players = STRING:Scan(Arguments[1], Speaker)
  713. for _,Player in pairs(Players) do
  714. CORE:ClonePlayer(Player)
  715. end
  716. end};
  717.  
  718. [{"nameclone", "clonename", "namecopy", "nclone", "ncopy"}] = {"player string", "Creates clone of player named string", 2, "Member", false, function(Speaker, Rank, Arguments)
  719. local Players = STRING:Scan(Arguments[1], Speaker)
  720. for _,Player in pairs(Players) do
  721. CORE:ClonePlayer(Player, Arguments[2])
  722. end
  723. end};
  724.  
  725. [{"clear", "clr"}] = {"", "Clears debris in workspace left by the admin", 0, "Member", false, function(Speaker, Rank, Arguments)
  726. for _,Obj in pairs(Objects) do
  727. if Obj then Obj:Destroy() end
  728. end
  729. for Name,Jail in pairs(Jails) do
  730. if not game.Players:FindFirstChild(Name) then
  731. Jail:Destroy()
  732. Jails[Name] = nil
  733. end
  734. end
  735. Objects = {}
  736. end};
  737.  
  738. [{"clean", "cln"}] = {"", "Clears debris in workspace by players", 0, "Member", false, function(Speaker, Rank, Arguments)
  739. for _,Obj in pairs(Server.Workspace:GetChildren()) do
  740. if Obj:IsA("Accoutrement") or Obj:IsA("Tool") then
  741. Obj:Destroy()
  742. end
  743. end
  744. end};
  745.  
  746. [{"sparkles", "sparks"}] = {"player", "Adds a sparkling effect to player", 1, "Member", false, function(Speaker, Rank, Arguments)
  747. local Players = STRING:Scan(Arguments[1], Speaker)
  748. for _,Player in pairs(Players) do
  749. if Player.Character and Player.Character:FindFirstChild("Torso") then
  750. local Sparkles = Instance.new("Sparkles", Player.Character.Torso) table.insert(Objects, Sparkles)
  751. end
  752. end
  753. end};
  754.  
  755. [{"fire"}] = {"player", "Makes player catch on fire", 1, "Member", false, function(Speaker, Rank, Arguments)
  756. local Players = STRING:Scan(Arguments[1], Speaker)
  757. for _,Player in pairs(Players) do
  758. if Player.Character and Player.Character:FindFirstChild("Torso") then
  759. local Fire = Instance.new("Fire", Player.Character.Torso) table.insert(Objects, Fire)
  760. end
  761. end
  762. end};
  763.  
  764. [{"smoke"}] = {"player", "Adds a sparkling effect to player", 1, "Member", false, function(Speaker, Rank, Arguments)
  765. local Players = STRING:Scan(Arguments[1], Speaker)
  766. for _,Player in pairs(Players) do
  767. if Player.Character and Player.Character:FindFirstChild("Torso") then
  768. local Smoke = Instance.new("Smoke", Player.Character.Torso) table.insert(Objects, Smoke)
  769. end
  770. end
  771. end};
  772.  
  773. [{"nosparkles", "nosparks", "unsparkles", "unsparks"}] = {"player", "Removes any sparkling effects to player", 1, "Member", false, function(Speaker, Rank, Arguments)
  774. local Players = STRING:Scan(Arguments[1], Speaker)
  775. for _,Player in pairs(Players) do
  776. if Player.Character and Player.Character:FindFirstChild("Torso") then
  777. for _,Get in pairs(Player.Character.Torso:GetChildren()) do
  778. if Get:IsA("Sparkles") then
  779. Get:Destroy()
  780. end
  781. end
  782. end
  783. end
  784. end};
  785.  
  786. [{"nofire", "unfire"}] = {"player", "Removes player's fire effects", 1, "Member", false, function(Speaker, Rank, Arguments)
  787. local Players = STRING:Scan(Arguments[1], Speaker)
  788. for _,Player in pairs(Players) do
  789. if Player.Character and Player.Character:FindFirstChild("Torso") then
  790. for _,Get in pairs(Player.Character.Torso:GetChildren()) do
  791. if Get:IsA("Fire") then
  792. Get:Destroy()
  793. end
  794. end
  795. end
  796. end
  797. end};
  798.  
  799. [{"nosmoke", "unsmoke"}] = {"player", "Removes player's smoke effects", 1, "Member", false, function(Speaker, Rank, Arguments)
  800. local Players = STRING:Scan(Arguments[1], Speaker)
  801. for _,Player in pairs(Players) do
  802. if Player.Character and Player.Character:FindFirstChild("Torso") then
  803. for _,Get in pairs(Player.Character.Torso:GetChildren()) do
  804. if Get:IsA("Smoke") then
  805. Get:Destroy()
  806. end
  807. end
  808. end
  809. end
  810. end};
  811.  
  812. [{"explode", "explosion"}] = {"player", "Explodes player and everything around player", 1, "Member", false, function(Speaker, Rank, Arguments)
  813. local Players = STRING:Scan(Arguments[1], Speaker)
  814. for _,Player in pairs(Players) do
  815. if Player.Character and Player.Character:FindFirstChild("Torso") then
  816. SOUND:MakeSound(Player.Character.Torso, 187137543, 1, 1, false):Play()
  817. local Boom = Instance.new("Explosion", Workspace)
  818. Boom.Position = Player.Character.Torso.Position
  819. end
  820. end
  821. end};
  822.  
  823. [{"splode", "smite"}] = {"player", "Explodes player 50 times and everything around player", 1, "Member", false, function(Speaker, Rank, Arguments)
  824. local Players = STRING:Scan(Arguments[1], Speaker)
  825. for _,Player in pairs(Players) do
  826. if Player.Character and Player.Character:FindFirstChild("Torso") then
  827. coroutine.wrap(function() for i = 1,50 do
  828. local Boom = Instance.new("Explosion", Workspace)
  829. Boom.Position = Player.Character.Torso.Position
  830. wait()
  831. end end)()
  832. coroutine.wrap(function() for i = 1,5 do
  833. SOUND:MakeSound(Player.Character.Torso, 187137543, 1, 1, false):Play()
  834. end end)()
  835. end
  836. end
  837. end};
  838.  
  839. [{"superjump", "nograv", "lowgrav"}] = {"player", "Enables player to be able to jump super high", 1, "Member", false, function(Speaker, Rank, Arguments)
  840. local Players = STRING:Scan(Arguments[1], Speaker)
  841. for _,Player in pairs(Players) do
  842. if Player.Character and Player.Character:FindFirstChild("Torso") then
  843. local Force = Player.Character.Torso:FindFirstChild("LMM SJ") if Force then Force:Destroy() end
  844. Force = Instance.new("BodyForce", Player.Character.Torso) Force.Name = "LMM SJ" Force.force = Vector3.new(0,0,0)
  845. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj) Force.force = Force.force + Vector3.new(0,Obj:GetMass() * 150,0) end)
  846. end
  847. end
  848. end};
  849.  
  850. [{"normaljump", "grav", "nosuperjump", "unsuperjump"}] = {"player", "Disables player to be able to jump super high", 1, "Member", false, function(Speaker, Rank, Arguments)
  851. local Players = STRING:Scan(Arguments[1], Speaker)
  852. for _,Player in pairs(Players) do
  853. if Player.Character and Player.Character:FindFirstChild("Torso") then
  854. local Force = Player.Character.Torso:FindFirstChild("LMM SJ") if Force then Force:Destroy() end
  855. end
  856. end
  857. end};
  858.  
  859. [{"punish"}] = {"player", "Punishes player by removing player's character", 1, "Member", false, function(Speaker, Rank, Arguments)
  860. local Players = STRING:Scan(Arguments[1], Speaker)
  861. for _,Player in pairs(Players) do
  862. if Player.Character then
  863. Player.Character.Parent = Server.Lighting
  864. end
  865. end
  866. end};
  867.  
  868. [{"nopunish", "unpunish"}] = {"player", "Undoes the punish effect on player", 1, "Member", false, function(Speaker, Rank, Arguments)
  869. local Players = STRING:Scan(Arguments[1], Speaker)
  870. for _,Player in pairs(Players) do
  871. if Player.Character then
  872. Player.Character.Parent = Server.Workspace
  873. Player.Character:MakeJoints()
  874. end
  875. end
  876. end};
  877.  
  878. [{"stun", "platformstand"}] = {"player", "Stuns player so he cannot move", 1, "Member", false, function(Speaker, Rank, Arguments)
  879. local Players = STRING:Scan(Arguments[1], Speaker)
  880. for _,Player in pairs(Players) do
  881. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  882. Player.Character.Humanoid.PlatformStand = true
  883. end
  884. end
  885. end};
  886.  
  887. [{"nostun", "unstun", "noplatformstand", "unplatformstand", "stand"}] = {"player", "Undoes the stun effect on player", 1, "Member", false, function(Speaker, Rank, Arguments)
  888. local Players = STRING:Scan(Arguments[1], Speaker)
  889. for _,Player in pairs(Players) do
  890. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  891. Player.Character.Humanoid.PlatformStand = false
  892. end
  893. end
  894. end};
  895.  
  896. [{"jump"}] = {"player", "Makes player jump", 1, "Member", false, function(Speaker, Rank, Arguments)
  897. local Players = STRING:Scan(Arguments[1], Speaker)
  898. for _,Player in pairs(Players) do
  899. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  900. Player.Character.Humanoid.Jump = true
  901. end
  902. end
  903. end};
  904.  
  905. [{"sit", "sitdown"}] = {"player", "Makes player sit down", 1, "Member", false, function(Speaker, Rank, Arguments)
  906. local Players = STRING:Scan(Arguments[1], Speaker)
  907. for _,Player in pairs(Players) do
  908. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  909. Player.Character.Humanoid.Sit = true
  910. end
  911. end
  912. end};
  913.  
  914. [{"nosit", "unsit", "nositdown", "unsitdown", "stand", "standup"}] = {"player", "Makes player stand up if sitting down", 1, "Member", false, function(Speaker, Rank, Arguments)
  915. local Players = STRING:Scan(Arguments[1], Speaker)
  916. for _,Player in pairs(Players) do
  917. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  918. Player.Character.Humanoid.Sit = false
  919. end
  920. end
  921. end};
  922.  
  923. [{"spin", "turn", "spinaround"}] = {"player", "Makes player spin around", 1, "Member", false, function(Speaker, Rank, Arguments)
  924. local Players = STRING:Scan(Arguments[1], Speaker)
  925. for _,Player in pairs(Players) do
  926. if Player.Character and Player.Character:FindFirstChild("Torso") then
  927. 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)
  928. end
  929. end
  930. end};
  931.  
  932. [{"nospin", "unspin", "noturn", "unturn", "nospinaround", "unspinaround"}] = {"player", "Stops player from spinning around", 1, "Member", false, function(Speaker, Rank, Arguments)
  933. local Players = STRING:Scan(Arguments[1], Speaker)
  934. for _,Player in pairs(Players) do
  935. if Player.Character and Player.Character:FindFirstChild("Torso") then
  936. local Spin = Player.Character.Torso:FindFirstChild("MML Spin") if Spin then Spin:Destroy() end
  937. end
  938. end
  939. end};
  940.  
  941. [{"port"}] = {"", "Gets the server network port", 0, "Owner", false, function(Speaker, Rank, Arguments)
  942. GUI:SendMessage(Speaker, "Server Port", "The server port for this server is: "..Server.NS.Port, "Information")
  943. end};
  944.  
  945. [{"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)
  946. local Color = "Blue"
  947. local String = Arguments[2]
  948. local ChatSplit = STRING:GetSplit(String, 1, Settings.Bet)
  949. if #ChatSplit >= 2 then
  950. if string.lower(ChatSplit[1]) == "green" then
  951. Color = "Green"
  952. String = ChatSplit[2]
  953. elseif string.lower(ChatSplit[1]) == "red" then
  954. Color = "Red"
  955. String = ChatSplit[2]
  956. end
  957. end
  958. local Players = STRING:Scan(Arguments[1], Speaker)
  959. for _,Player in pairs(Players) do
  960. if Player.Character and Player.Character:FindFirstChild("Head") then
  961. game:GetService("Chat"):Chat(Player.Character.Head, STRING:DetermineFilter(String, Speaker, Player), Color)
  962. end
  963. end
  964. end};
  965.  
  966. [{"missile", "mis", "rocket"}] = {"player", "Turns player into a missile. Use with care!", 1, "Admin", true, function(Speaker, Rank, Arguments)
  967. local Players = STRING:Scan(Arguments[1], Speaker)
  968. for _,Player in pairs(Players) do
  969. if Player.Character then
  970. CORE:ExecuteResource("Missile", Player.Character, {["Color"] = GUI:GetColor()})
  971. end
  972. end
  973. end};
  974.  
  975. [{"face"}] = {"player num(ID)", "Changes player's faces player num(ID) (must be decal/image)", 2, "Member", false, function(Speaker, Rank, Arguments)
  976. local Players = STRING:Scan(Arguments[1], Speaker)
  977. local ID = nil
  978. if tonumber(Arguments[2]) ~= nil then
  979. ID = MARKET:GetImageFormat(tonumber(Arguments[2]))
  980. else
  981. 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
  982. for _,Face in pairs(FaceTable) do
  983. if string.lower(Arguments[2]) == string.lower(Face) then
  984. ID = FaceID
  985. break
  986. end
  987. end
  988. end
  989. end
  990. if ID then
  991. for _,Player in pairs(Players) do
  992. if Player.Character and Player.Character:FindFirstChild("Head") and Player.Character.Head:FindFirstChild("face") then
  993. Player.Character.Head.face.Texture = "rbxassetid://"..ID
  994. pcall(function() Player.Character.Label:GetChildren()[1].Head.Texture = "rbxassetid://"..ID end)
  995. end
  996. end
  997. end
  998. end};
  999.  
  1000. [{"overlay", "ol"}] = {"player num(ID)", "Turns player's head into a 2D images of num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  1001. local Players = STRING:Scan(Arguments[1], Speaker)
  1002. local ID = MARKET:GetImageFormat(tonumber(Arguments[2]))
  1003. for _,Player in pairs(Players) do
  1004. if Player.Character and Player.Character:FindFirstChild("Head") then
  1005. local BB = Player.Character.Head:FindFirstChild("MMLA Overlay") if BB then BB:Destroy() end
  1006. 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
  1007. 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)
  1008. end
  1009. end
  1010. end};
  1011.  
  1012. [{"nooverlay", "unoverlay", "nool", "unol"}] = {"player", "Removes any overlay on player's head from the overlay command", 1, "Member", false, function(Speaker, Rank, Arguments)
  1013. local Players = STRING:Scan(Arguments[1], Speaker)
  1014. for _,Player in pairs(Players) do
  1015. if Player.Character and Player.Character:FindFirstChild("Head") then
  1016. local BB = Player.Character.Head:FindFirstChild("MMLA Overlay") if BB then BB:Destroy() end
  1017. end
  1018. end
  1019. end};
  1020.  
  1021. [{"notify"}] = {"string", "Sends string as a packet to the owner remotely", 1, "Admin", false, function(Speaker, Rank, Arguments)
  1022. REMOTE:SendHttpLog(Speaker.Name.." Sent Notification: "..Arguments[1], "NOTIFICATION", Speaker)
  1023. end, Http = true};
  1024.  
  1025. [{"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)
  1026. GUI:ListGui(Speaker, "Http Logs", CORE:ReverseTable(REMOTE:DownloadUserdata(false).Logs), "Log")
  1027. end, Http = true};
  1028.  
  1029. [{"note"}] = {"player string", "Saves string to player to all servers", 2, "Admin", false, function(Speaker, Rank, Arguments)
  1030. local Players = STRING:Scan(Arguments[1], Speaker)
  1031. for _,Player in pairs(Players) do
  1032. local ExistingData = Player:LoadInstance("Data")
  1033. if ExistingData == nil then
  1034. ExistingData = Instance.new("Configuration")
  1035. end
  1036. ExistingData.Name = "Player Data"
  1037. local Key = Instance.new("Configuration", ExistingData)
  1038. Key.Name = Arguments[2]
  1039. Player:SaveInstance("Data", ExistingData)
  1040. end
  1041. end};
  1042.  
  1043. [{"removenote", "noteremove"}] = {"player string", "Removes any note starting with string", 2, "Admin", false, function(Speaker, Rank, Arguments)
  1044. local Players = STRING:Scan(Arguments[1], Speaker)
  1045. local Data = Arguments[2]
  1046. for _,Player in pairs(Players) do
  1047. local ExistingData = Player:LoadInstance("Data")
  1048. if ExistingData ~= nil then
  1049. if string.lower(Data) == "all" then
  1050. ExistingData:ClearAllChildren()
  1051. else
  1052. for _,DataObj in pairs(ExistingData:GetChildren()) do
  1053. if string.sub(string.lower(DataObj.Name),1,#Data) == string.lower(Data) then
  1054. DataObj:Destroy()
  1055. end
  1056. end
  1057. end
  1058. end
  1059. Player:SaveInstance("Data", ExistingData)
  1060. end
  1061. end};
  1062.  
  1063. [{"shownotes", "shownote", "loadnotes", "loadnote", "notes", "getnotes", "getnote"}] = {"player", "Shows the saved notes of player", 1, "Member", false, function(Speaker, Rank, Arguments)
  1064. local Players = STRING:Scan(Arguments[1], Speaker)
  1065. local DataSet = {}
  1066. for _,Player in pairs(Players) do
  1067. local ExistingData = Player:LoadInstance("Data")
  1068. if ExistingData ~= nil then
  1069. if #ExistingData:GetChildren() ~= 0 then
  1070. for _,Data in pairs(ExistingData:GetChildren()) do
  1071. table.insert(DataSet, Player.Name..": "..Data.Name)
  1072. end
  1073. else
  1074. table.insert(DataSet, "Data does not exist for "..Player.Name)
  1075. end
  1076. else
  1077. table.insert(DataSet, "Data does not exist for "..Player.Name)
  1078. end
  1079. end
  1080. GUI:ListGui(Speaker, "Notes", DataSet)
  1081. end};
  1082.  
  1083. [{"forwards", "forward"}] = {"player", "Makes player walk forward at normal walkspeed", 1, "Member", false, function(Speaker, Rank, Arguments)
  1084. local Players = STRING:Scan(Arguments[1], Speaker)
  1085. for _,Player in pairs(Players) do
  1086. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  1087. Player.Character.Humanoid.WalkSpeed = 16
  1088. end
  1089. end
  1090. end};
  1091.  
  1092. [{"backwards", "backward"}] = {"player", "Makes player walk backwards(reverse keys) at normal walkspeed", 1, "Member", true, function(Speaker, Rank, Arguments)
  1093. local Players = STRING:Scan(Arguments[1], Speaker)
  1094. for _,Player in pairs(Players) do
  1095. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  1096. Player.Character.Humanoid.WalkSpeed = -16
  1097. end
  1098. end
  1099. end};
  1100.  
  1101. [{"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)
  1102. local TeamColor = BrickColor.random()
  1103. local TeamName = Arguments[1]
  1104. local TeamNameSplit = STRING:GetSplit(TeamName, 1, " ")
  1105. if #TeamNameSplit >= 2 then
  1106. local Color = TeamNameSplit[1]
  1107. local NewTeamName = TeamNameSplit[2]
  1108. if Color == "Medium stone grey" then
  1109. TeamColor = BrickColor.new(Color)
  1110. TeamName = NewTeamName
  1111. elseif BrickColor.new(Color) ~= BrickColor.new("Medium stone grey") then
  1112. TeamColor = BrickColor.new(Color)
  1113. TeamName = NewTeamName
  1114. elseif Colors[string.upper(Color)] then
  1115. TeamColor = BrickColor.new(GUI:GetColor(string.upper(Color)))
  1116. TeamName = NewTeamName
  1117. end
  1118. end
  1119.  
  1120. local NewTeam = Instance.new("Team", Server.Teams)
  1121. NewTeam.TeamColor = TeamColor
  1122. NewTeam.Name = TeamName
  1123. end};
  1124.  
  1125. [{"leaveteam", "teamleave"}] = {"player", "Makes player be on no team", 1, "Member", false, function(Speaker, Rank, Arguments)
  1126. local Players = STRING:Scan(Arguments[1], Speaker)
  1127. for _,Player in pairs(Players) do
  1128. Player.Neutral = true
  1129. end
  1130. end};
  1131.  
  1132. [{"team", "teamjoin", "jointeam"}] = {"player string", "Makes it so player joints team string", 2, "Member", false, function(Speaker, Rank, Arguments)
  1133. local Players = STRING:Scan(Arguments[1], Speaker)
  1134. if string.lower(Arguments[2]) == "none" then
  1135. for _,Player in pairs(Players) do
  1136. Player.Neutral = true
  1137. end
  1138. else
  1139. for _,Obj in pairs(Server.Teams:GetChildren()) do
  1140. if Obj:IsA("Team") then
  1141. if string.sub(string.lower(Obj.Name),1,#Arguments[2]) == string.lower(Arguments[2]) then
  1142. for _,Player in pairs(Players) do
  1143. Player.Neutral = false
  1144. Player.TeamColor = Obj.TeamColor
  1145. end
  1146. end
  1147. end
  1148. end
  1149. end
  1150. end};
  1151.  
  1152. [{"noteam", "unteam", "nonewteam", "unnewteam"}] = {"string", "Finds the team named string and removes it", 1, "Member", false, function(Speaker, Rank, Arguments)
  1153. for _,Obj in pairs(Server.Teams:GetChildren()) do
  1154. if Obj:IsA("Team") then
  1155. if string.sub(string.lower(Obj.Name),1,#Arguments[1]) == string.lower(Arguments[1]) then
  1156. for _,Player in pairs(Server.Players:GetPlayers()) do
  1157. if Player.TeamColor == Obj.TeamColor then
  1158. Player.Neutral = true
  1159. end
  1160. end
  1161. Obj:Destroy()
  1162. end
  1163. end
  1164. end
  1165. end};
  1166.  
  1167. [{"clearteams", "cleanteams"}] = {"", "Clears all teams", 0, "Member", false, function(Speaker, Rank, Arguments)
  1168. for _,Player in pairs(Server.Players:GetPlayers()) do
  1169. Player.Neutral = true
  1170. end
  1171. for _,Obj in pairs(Server.Teams:GetChildren()) do
  1172. if Obj:IsA("Team") then
  1173. Obj:Destroy()
  1174. end
  1175. end
  1176. end};
  1177.  
  1178. [{"countdown", "count", "ticker"}] = {"num", "Counts down an alarm from num", 1, "Member", false, function(Speaker, Rank, Arguments)
  1179. for _,Player in pairs(Server.Players:GetPlayers()) do
  1180. GUI:Countdown(Player, Arguments[1])
  1181. end
  1182. end};
  1183.  
  1184. [{"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)
  1185. local Players = STRING:Scan(Arguments[1], Speaker)
  1186. for _,Player in pairs(Players) do
  1187. if Player:FindFirstChild("Backpack") then
  1188. CORE:ExecuteResource("ShowAd", Player.Backpack)
  1189. end
  1190. end
  1191. end};
  1192.  
  1193. [{"warp", "warpto"}] = {"player string", "Warps player to the point of string", 2, "Member", false, function(Speaker, Rank, Arguments)
  1194. local Players = STRING:Scan(Arguments[1], Speaker)
  1195. for _,Player in pairs(Players) do
  1196. if Player.Character then
  1197. for PosName,WP in pairs(Waypoints) do
  1198. if string.sub(string.lower(PosName),1,#Arguments[2]) == string.lower(Arguments[2]) then
  1199. Player.Character:MoveTo(WP + Vector3.new(0,0.5,0))
  1200. break
  1201. end
  1202. end
  1203. end
  1204. end
  1205. end};
  1206.  
  1207. [{"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)
  1208. CORE:AddWaypoint(Arguments[1], Vector3.new(Arguments[2], Arguments[3], Arguments[4]), Speaker)
  1209. end};
  1210.  
  1211. [{"removewaypoint", "deletewaypoint", "destroywaypoint", "nowaypoint", "unwaypoint"}] = {"string", "Removes any waypoint named string", 1, "Member", false, function(Speaker, Rank, Arguments)
  1212. local Num = 0
  1213. for PosName,WP in pairs(Waypoints) do
  1214. Num = Num + 1
  1215. if string.sub(string.lower(PosName),1,#Arguments[1]) == Arguments[1] then
  1216. Waypoints[PosName] = nil
  1217. end
  1218. end
  1219. end};
  1220.  
  1221. [{"waypoints", "viewwaypoints", "waypointlist", "listwaypoints"}] = {"", "Views all waypoints to warp to", 0, "Member", false, function(Speaker, Rank, Arguments)
  1222. local WaypointHolder,WaypointRaw = {},{}
  1223. for Name, WP in pairs(Waypoints) do
  1224. local View = Name..": "..tostring(WP)
  1225. table.insert(WaypointHolder, View)
  1226. WaypointRaw[View] = WP
  1227. end
  1228. local Clicked = GUI:ListGui(Speaker, "Waypoint List", WaypointHolder, "Map")
  1229. Clicked.Event:connect(function(Text)
  1230. local Waypoint = WaypointRaw[Text]
  1231. if Waypoint then
  1232. if Speaker.Character then
  1233. Speaker.Character:MoveTo(Waypoint)
  1234. end
  1235. end
  1236. end)
  1237. end};
  1238.  
  1239. [{"list", "listplayer", "listplayers"}] = {"player", "Lists the player(s) in a gui list", 1, "Member", false, function(Speaker, Rank, Arguments)
  1240. local Players = STRING:Scan(Arguments[1], Speaker)
  1241. local List = {}
  1242. for _,Player in pairs(Players) do
  1243. table.insert(List, Player.Name.." (ID: "..Player.UserId..")")
  1244. end
  1245. GUI:ListGui(Speaker, "Listed Players", List)
  1246. end};
  1247.  
  1248. [{"givepoints"}] = {"player num", "Gives num playerpoints to player", 2, "Owner", false, function(Speaker, Rank, Arguments)
  1249. if tonumber(Arguments[1]) then
  1250. ypcall(function() Server.PS:AwardPoints(tonumber(Arguments[1]), tonumber(Arguments[2])) end)
  1251. else
  1252. local Players = STRING:Scan(Arguments[1], Speaker)
  1253. for _,Player in pairs(Players) do
  1254. ypcall(function() Server.PS:AwardPoints(Player.UserId, tonumber(Arguments[2])) end)
  1255. end
  1256. end
  1257. end};
  1258.  
  1259. [{"friends", "getfriends", "listfriends", "showfriends"}] = {"player", "Shows all the friends player is friends with in the server", 1, "Member", false, function(Speaker, Rank, Arguments)
  1260. local Players = STRING:Scan(Arguments[1], Speaker)
  1261. local Friends,OneFriend = {}, false
  1262. for _,Player in pairs(Players) do
  1263. for _,User in pairs(Server.Players:GetPlayers()) do if User ~= Player then
  1264. --[[if Player:IsBestFriendsWith(User.UserId) then
  1265. table.insert(Friends, Player.Name.." is best friends with "..User.Name)
  1266. OneFriend = true
  1267. ]]
  1268. if Player:IsFriendsWith(User.UserId) then
  1269. table.insert(Friends, Player.Name.." is friends with "..User.Name)
  1270. OneFriend = true
  1271. end
  1272. if _ == #Server.Players:GetPlayers() and OneFriend == false then
  1273. table.insert(Friends, Player.Name.." has no friends in this server (Loner)")
  1274. end
  1275. end end
  1276. end
  1277. GUI:ListGui(Speaker, "Friend List", Friends)
  1278. end};
  1279.  
  1280. [{"serverlock", "lockserver"}] = {"", "Locks the server to prevent non-admins from joining", 0, "Owner", false, function(Speaker, Rank, Arguments)
  1281. Settings.ServerLocked = true
  1282. GUI:MessageAdmins("Server Locked", "The server has been locked. Only admins can join at this point.", 10, "Lock")
  1283. end};
  1284.  
  1285. [{"noserverlock", "unserverlock", "unlockserver", "nolockserver", "nolock", "unlock"}] = {"", "Unlocks the server to enable non-admin joining", 0, "Owner", false, function(Speaker, Rank, Arguments)
  1286. Settings.ServerLocked = false
  1287. GUI:MessageAdmins("Server Unlocked", "The server has been unlocked. Anyone not banned or crashed can join", 10, 11344402)
  1288. end};
  1289.  
  1290. [{"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)
  1291. local OldAge = Settings.MinimumAge
  1292. local Age = tostring(Arguments[1])
  1293. if Age then
  1294. Settings.MinimumAge = Age
  1295. GUI:MessageAdmins("Minumum age change", "The minimum age required to join this server is now "..Age.." days old(was "..OldAge.." days old)", 10)
  1296. end
  1297. end};
  1298.  
  1299. [{"vipadmin", "adminvip"}] = {"", "Prompts speaker the VIP item to grant Admin level permissions", 0, "Non-Admin", false, function(Speaker, Rank, Arguments)
  1300. if Settings.VIPAdminID <= 1 then
  1301. MARKET:PromptPurchase(Speaker, VIPAdminID)
  1302. else
  1303. CORE:SendMessage(Speaker, "No Admin VIP", "The creator ("..GameOwner..") did not add a admin rank VIP to Make".."rModelLua's Admin", 7)
  1304. end
  1305. end};
  1306.  
  1307. [{"vipmember", "membervip"}] = {"", "Prompts speaker the VIP item to grant Member level permissions", 0, "Non-Admin", false, function(Speaker, Rank, Arguments)
  1308. if Settings.VIPMemberID <= 1 then
  1309. MARKET:PromptPurchase(Speaker, VIPMemberID)
  1310. else
  1311. CORE:SendMessage(Speaker, "No Member VIP", "The creator ("..GameOwner..") did not add a member rank VIP to Make".."rModelLua's Admin", 7)
  1312. end
  1313. end};
  1314.  
  1315. [{"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)
  1316. if tonumber(Arguments[2]) then
  1317. local Players = STRING:Scan(Arguments[1], Speaker)
  1318. local Size = tonumber(Arguments[2])+25
  1319. for _,Player in pairs(Players) do
  1320. if Player.Character then
  1321. if Player.Character:FindFirstChild("Head") then
  1322. if Player.Character.Head:FindFirstChild("Mesh") then
  1323. Player.Character.Head.Mesh.Scale = Vector3.new(Size/100,Size/100,Size/100)
  1324. end
  1325. end
  1326. end
  1327. end
  1328. end
  1329. end};
  1330.  
  1331. [{"control"}] = {"player", "Allows speaker to take control of player", 1, "Member", false, function(Speaker, Rank, Arguments)
  1332. local Players = STRING:Scan(Arguments[1], Speaker)
  1333. for _,Player in pairs(Players) do
  1334. if Player.Character and Player.Character:FindFirstChild("Torso") then
  1335. CORE:ChangeCharacter(Speaker, Player.UserId, false, Speaker, true, Player.Character.Torso.Position)
  1336. Player.Character.Parent = nil
  1337. CORE:ExecuteResource("CameraControl", Player.Backpack, {["Speaker"] = Speaker})
  1338. end
  1339. end
  1340. end};
  1341.  
  1342. [{"settings"}] = {"", "Shows settings to speaker. If high enough rank, the speaker can edit settings", 0, "Non-Admin", false, function(Speaker, Rank, Arguments)
  1343. GUI:SettingsGui(Speaker)
  1344. end};
  1345.  
  1346. [{"hasasset", "ownsasset"}] = {"player num(ID)", "Shows if player has asset num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  1347. if tonumber(Arguments[2]) then
  1348. local Players = STRING:Scan(Arguments[1], Speaker)
  1349. local List = {}
  1350. for _,Player in pairs(Players) do
  1351. if Server.MPS:PlayerOwnsAsset(Player, tonumber(Arguments[2])) then
  1352. table.insert(List, Player.Name)
  1353. end
  1354. end
  1355. GUI:ListGui(Speaker, "Players who have asset ID: "..Arguments[2], List, 23916171)
  1356. end
  1357. end};
  1358.  
  1359. [{"reck", "rek", "rekt", "shrekt", "wreck", "noscope", "mlg"}] = {"player", "rekts player in a haxy way", 1, "Member", true, function(Speaker, Rank, Arguments)
  1360. local Players = STRING:Scan(Arguments[1], Speaker)
  1361. for _,Player in pairs(Players) do
  1362. if Player.Character and Player.Character:FindFirstChild("Head") then
  1363. local Char = Player.Character
  1364. Char:BreakJoints()
  1365. CORE:ScanItems(Char, {"BasePart"}, function(Obj)
  1366. Obj.Anchored = true
  1367. for _,Face in pairs({"Top", "Bottom", "Right", "Left", "Front", "Back"}) do
  1368. local Decal = Instance.new("Decal", Obj)
  1369. Decal.Texture = "rbxassetid://178913323"
  1370. Decal.Face = Face
  1371. end
  1372. end)
  1373. local Sound1 = SOUND:MakeSound(Char.Head, 131509782, 1, 1)
  1374. local Sound2 = SOUND:MakeSound(Char.Head, 179497874, 1, 1)
  1375. Sound1:Play() Sound2:Play()
  1376. coroutine.wrap(function()
  1377. coroutine.wrap(function() wait(4.9) Sound1:Stop() Sound2:Stop() end)()
  1378. repeat wait()
  1379. CORE:ScanItems(Char, {"BasePart"}, function(Obj)
  1380. SOUND:MakeSound(Char.Head, "rbxasset://sounds/uuhhh.mp3", 1, math.random(80,120)/100):Play()
  1381. Obj.Transparency = math.random(0,30)/100
  1382. Obj.Reflectance = math.random(0,50)/100
  1383. 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)))
  1384. end)
  1385. until Char ~= Player.Character or Char.Parent == nil
  1386. end)()
  1387. end
  1388. end
  1389. end, Hidden = true};
  1390.  
  1391. [{"define", "lookup", "definition"}] = {"string", "Looks up the word on webster's online dictionary", 1, "Member", false, function(Speaker, Rank, Arguments)
  1392. GUI:SendMessage(Speaker, "Definition of "..Arguments[1], REMOTE:DefineWord(Arguments[1]), 185923691)
  1393. end, Http = true};
  1394.  
  1395. [{"neon", "glow"}] = {"player", "Makes player glow like a neon light", 1, "Member", false, function(Speaker, Rank, Arguments)
  1396. local Players = STRING:Scan(Arguments[1], Speaker)
  1397. for _,Player in pairs(Players) do
  1398. if Player.Character then
  1399. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj)
  1400. Obj.Material = "Neon"
  1401. end)
  1402. end
  1403. end
  1404. end};
  1405.  
  1406. [{"noneon", "noglow", "unneon", "unglow"}] = {"player", "Removes any glowing neon from player", 1, "Member", false, function(Speaker, Rank, Arguments)
  1407. local Players = STRING:Scan(Arguments[1], Speaker)
  1408. for _,Player in pairs(Players) do
  1409. if Player.Character then
  1410. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj)
  1411. Obj.Material = "Plastic"
  1412. end)
  1413. end
  1414. end
  1415. end};
  1416.  
  1417. [{"asd", "swag"}] = {"player", "Makes player look like a swagger", 1, "Member", true, function(Speaker, Rank, Arguments)
  1418. local Players = STRING:Scan(Arguments[1], Speaker)
  1419. for _,Player in pairs(Players) do
  1420. if Player.Character then
  1421. CORE:ScanItems(Player.Character, {"JointInstance"}, function(Obj)
  1422. Obj.C0 = Obj.C0 * CFrame.new(math.random(-5,5),math.random(0,5),math.random(-5,5))
  1423. end)
  1424. end
  1425. end
  1426. end, Hidden = true};
  1427.  
  1428. [{"getpos", "getposition", "playerpos", "playerposition"}] = {"player", "Gets player's position and prompts to add it to waypoints", 1, "Admin", false, function(Speaker, Rank, Arguments)
  1429. local Players = STRING:Scan(Arguments[1], Speaker)
  1430. for _,Player in pairs(Players) do
  1431. if Player.Character and Player.Character:FindFirstChild("Torso") then
  1432. local Pos = Player.Character.Torso.Position
  1433. Pos = Vector3.new(CORE:Round(Pos.X), CORE:Round(Pos.Y), CORE:Round(Pos.Z))
  1434. 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"})
  1435. if Answer == "Ok" then
  1436. CORE:AddWaypoint(Player.Name, Pos, Speaker)
  1437. end
  1438. end
  1439. end
  1440. end};
  1441.  
  1442. [{"point", "find", "laser"}] = {"player1 player2", "Creates a laser that points from player1 to player2", 2, "Member", false, function(Speaker, Rank, Arguments)
  1443. local PlayersFrom = STRING:Scan(Arguments[1], Speaker)
  1444. local PlayersTo = STRING:Scan(Arguments[2], Speaker)
  1445. if PlayersFrom and PlayersTo then
  1446. for _,PlayerFrom in pairs(PlayersFrom) do
  1447. for _,PlayerTo in pairs(PlayersTo) do
  1448. if PlayerFrom.Character and PlayerTo.Character then
  1449. if PlayerFrom.Character:FindFirstChild("Humanoid") and PlayerTo.Character:FindFirstChild("Torso") then coroutine.wrap(function()
  1450. local Laser = Instance.new("SelectionPartLasso", PlayerFrom.Character) Laser.Humanoid = PlayerFrom.Character.Humanoid Laser.Part = PlayerTo.Character.Torso Laser.Color = GUI:GetNameColor(PlayerTo.Name)
  1451. wait(5)
  1452. Laser:Destroy()
  1453. end)() end
  1454. end
  1455. end
  1456. end
  1457. end
  1458. end};
  1459.  
  1460. [{"ragdoll", "rag"}] = {"player", "Makes player a ragdoll(Removes humanoid)", 1, "Member", false, function(Speaker, Rank, Arguments)
  1461. local Players = STRING:Scan(Arguments[1], Speaker)
  1462. for _,Player in pairs(Players) do
  1463. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  1464. Player.Character.Humanoid:Destroy()
  1465. end
  1466. end
  1467. end};
  1468.  
  1469. [{"plugins", "getplugins", "pluginlist"}] = {"", "Shows plugins", 0, "Admin", false, function(Speaker, Rank, Arguments)
  1470. if Plugins then
  1471. local List = {}
  1472. for _,Module in pairs(Plugins:GetChildren()) do
  1473. if Module:IsA("ModuleScript") then
  1474. local Enabled = Module:FindFirstChild("Enabled") or {Value = false}
  1475. local Creator = Module:FindFirstChild("Creator") or {Value = "None"}
  1476. local VersionVal = Module:FindFirstChild("Version") or {Value = 1}
  1477. table.insert(List, Module.Name.." V"..VersionVal.Value.." by "..Creator.Value.." | RUNNING: "..STRING:BoolString(Enabled.Value))
  1478. end
  1479. end
  1480. GUI:ListGui(Speaker, "Plugin List", List, "Plugin")
  1481. else
  1482. GUI:SendMessage(Speaker, "Cannot get plugins", "Could not find plugin directory", "Notice", 5)
  1483. end
  1484. end};
  1485.  
  1486. [{"detachchat", "detachc", "dchat", "dc"}] = {"player", "Detaches player's roblox chat gui into a MMLA gui", 1, "Admin", false, function(Speaker, Rank, Arguments)
  1487. local Players = STRING:Scan(Arguments[1], Speaker)
  1488. for _,Player in pairs(Players) do
  1489. GUI:DetachChat(Player)
  1490. end
  1491. end};
  1492.  
  1493. [{"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)
  1494. GUI:DetachChat(Speaker)
  1495. end};
  1496.  
  1497. [{"truck", "runover"}] = {"player", "Runs player over with a truck", 1, "Member", true, function(Speaker, Rank, Arguments)
  1498. local Players = STRING:Scan(Arguments[1], Speaker)
  1499. for _,Player in pairs(Players) do
  1500. if Player.Character and Player.Character:FindFirstChild("Torso") and Player.Character:FindFirstChild("Humanoid") then
  1501. local Dead = false
  1502.  
  1503. Player.Character.Humanoid.WalkSpeed = 1
  1504. local Torso = Player.Character.Torso
  1505. 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
  1506. Truck:BreakJoints()
  1507. local Mesh = Instance.new("SpecialMesh", Truck) Mesh.MeshId = "rbxassetid://52157810" Mesh.TextureId = "rbxassetid://52157085" Mesh.Scale = Vector3.new(11, 11, 11)
  1508. 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))
  1509. 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
  1510. Truck.Touched:connect(function(Part)
  1511. if Dead == false then
  1512. local TouchPlayer = Server.Players:GetPlayerFromCharacter(Part.Parent or Part.Parent.Parent)
  1513. if TouchPlayer == Player then
  1514. Dead = true
  1515. Player.Character:BreakJoints()
  1516. SOUND:MakeSound(Truck, 264486467):Play() -- splat
  1517. end
  1518. end
  1519. end)
  1520. SOUND:MakeSound(Truck, 236746885, 0.5, 2):Play() -- truck
  1521. Delay(1, function() SOUND:MakeSound(Truck, 130802373):Play() end) -- horn
  1522. Delay(5, function()
  1523. Truck:Destroy()
  1524. if Player.Character:FindFirstChild("Humanoid") then
  1525. Player.Character.Humanoid.WalkSpeed = 16
  1526. end
  1527. end)
  1528. end
  1529. end
  1530. end};
  1531.  
  1532. [{"telljoke", "showjoke", "tj", "sj"}] = {"player", "Tells player a random joke", 1, "Admin", true, function(Speaker, Rank, Arguments)
  1533. local Joke = REMOTE:DownloadJoke(Speaker)
  1534. local Players = STRING:Scan(Arguments[1], Speaker)
  1535. for _,Player in pairs(Players) do
  1536. GUI:SendMessage(Player, "Joke", Joke, 19629580)
  1537. end
  1538. end, Http = true};
  1539.  
  1540. [{"joke", "laugh"}] = {"player", "Tells speaker a random joke)", 0, "Member", true, function(Speaker, Rank, Arguments)
  1541. local Joke = REMOTE:DownloadJoke(Speaker)
  1542. GUI:SendMessage(Speaker, "Joke for you", Joke, 19629580)
  1543. end, Http = true};
  1544.  
  1545. [{"doge", "dog"}] = {"player", "Turns player into doge", 1, "Member", true, function(Speaker, Rank, Arguments)
  1546. local Players = STRING:Scan(Arguments[1], Speaker)
  1547. for _,Player in pairs(Players) do
  1548. if Player.Character and Player.Character:FindFirstChild("Torso") and Player.Character:FindFirstChild("Head") and Player.Character:FindFirstChild("Humanoid") then
  1549. CORE:InvisiblePlayer(Player)
  1550. local DogContainer = Instance.new("Model", Player.Character)
  1551. DogContainer.Name = "Doge"
  1552. local Dog = CORE:Insert(257489726, DogContainer, true)
  1553. Dog.Head.Transparency = 0.99
  1554. Dog.Name = Player.Name
  1555. Dog:MoveTo(Player.Character.Torso.Position)
  1556. local Weld = Instance.new("Weld", Dog.Torso)
  1557. Weld.Part0 = Player.Character.Torso
  1558. Weld.Part1 = Dog.Torso
  1559. Weld.C0 = CFrame.new(0,-0.4,0)
  1560. for _,Obj in pairs(Dog:GetChildren()) do
  1561. if Obj:IsA("BasePart") then
  1562. Obj.CanCollide = false
  1563. end
  1564. end
  1565.  
  1566. CORE:ExecuteResource("SetCameraSubject", Dog:FindFirstChild("Humanoid"), {})
  1567. end
  1568. end
  1569. end};
  1570.  
  1571. [{"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)
  1572. local Key = string.lower(string.sub(Arguments[1],1,1))
  1573. KeyBinds[Speaker.UserId][Key] = Arguments[2]
  1574. GUI:SendHint(Speaker, "Binded the '"..Key.."' key to "..Arguments[2])
  1575. end};
  1576.  
  1577. [{"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)
  1578. local Key = string.lower(string.sub(Arguments[1],1,1))
  1579. KeyBinds[Speaker.UserId][Key] = nil
  1580. GUI:SendHint(Speaker, "Unbinded the '"..Key.."' key")
  1581. end};
  1582.  
  1583. [{"clearkeybinds", "clearbinds", "clearb", "clearkeys", "unbindallkeys"}] = {"", "Clears all of speaker's key binds", 0, "Admin", false, function(Speaker, Rank, Arguments)
  1584. KeyBinds[Speaker.UserId] = {}
  1585. GUI:SendHint(Speaker, "Unbinded all keys")
  1586. end};
  1587.  
  1588. [{"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)
  1589. local Players = STRING:Scan(Arguments[1], Speaker)
  1590. local Key = string.lower(string.sub(Arguments[2],1,1))
  1591. for _,Player in pairs(Players) do
  1592. KeyBinds[Player.UserId][Key] = Arguments[3]
  1593. GUI:SendHint(Player, "Binded the '"..Key.."' key to "..Arguments[3])
  1594. end
  1595. end};
  1596.  
  1597. [{"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)
  1598. local Players = STRING:Scan(Arguments[1], Speaker)
  1599. local Key = string.lower(string.sub(Arguments[2],1,1))
  1600. for _,Player in pairs(Players) do
  1601. KeyBinds[Player.UserId][Key] = nil
  1602. GUI:SendHint(Player, "Unbinded the '"..Key.."' key")
  1603. end
  1604. end};
  1605.  
  1606. [{"forceclearkeybinds", "forceclearbinds", "forceclearb", "fclearb", "forceclearkeys", "forceunbindallkeys"}] = {"player", "Clears all of player's key binds", 1, "Owner", false, function(Speaker, Rank, Arguments)
  1607. local Players = STRING:Scan(Arguments[1], Speaker)
  1608. for _,Player in pairs(Players) do
  1609. KeyBinds[Player.UserId] = {}
  1610. GUI:SendHint(Player, "Unbinded all keys")
  1611. end
  1612. end};
  1613.  
  1614. [{"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)
  1615. local Players = STRING:Scan(Arguments[1], Speaker)
  1616. local Binds = {}
  1617. for _,Player in pairs(Players) do
  1618. for Key,Bind in pairs(KeyBinds[Player.UserId]) do
  1619. table.insert(Binds, Player.Name..": '"..Key.."' binds to command: "..Bind)
  1620. end
  1621. end
  1622. GUI:ListGui(Speaker, "Key Bindings", Binds, 218580411)
  1623. end};
  1624.  
  1625. [{"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)
  1626. local ChatSplit = STRING:GetSplit(Arguments[1], 2, Settings.Bet) or {}
  1627. local Players = STRING:Scan(ChatSplit[1], Speaker)
  1628. for _,Player in pairs(Players) do
  1629. if Crowns[Player.UserId] then
  1630. Crowns[Player.UserId]:Destroy()
  1631. Crowns[Player.UserId] = nil
  1632. wait()
  1633. end
  1634. CORE:Crown(Player, ChatSplit[2], ChatSplit[3])
  1635. end
  1636. end};
  1637.  
  1638. [{"nocrown", "uncrown", "decrown"}] = {"player", "Removes player's crown", 1, "Member", false, function(Speaker, Rank, Arguments)
  1639. local Players = STRING:Scan(Arguments[1], Speaker)
  1640. for _,Player in pairs(Players) do
  1641. if Crowns[Player.UserId] then
  1642. Crowns[Player.UserId]:Destroy()
  1643. Crowns[Player.UserId] = nil
  1644. end
  1645. end
  1646. end};
  1647.  
  1648. [{"meshes", "meshlist", "viewmeshes"}] = {"", "Lists meshes to speaker", 0, "Member", false, function(Speaker, Rank, Arguments)
  1649. local MeshList = {}
  1650. for MeshName,Data in pairs(Meshes) do
  1651. table.insert(MeshList, string.upper(string.sub(MeshName,1,1))..string.sub(MeshName,2).." ( ID: "..Data[2].." )")
  1652. end
  1653. GUI:ListGui(Speaker, "Mesh List", MeshList, 186369377)
  1654. end};
  1655.  
  1656. [{"fixsounds", "fixmusic", "fixs"}] = {"", "Scans workspaces and stops any sounds", 0, "Admin", false, function(Speaker, Rank, Arguments)
  1657. CORE:ScanItems(Server.Workspace, {"Sound"}, function(Obj) Obj:Stop() end)
  1658. end};
  1659.  
  1660. [{"santa", "hoho", "christmas"}] = {"player", "Turns player into jolly saint nick!", 1, "Member", true, function(Speaker, Rank, Arguments)
  1661. local Players = STRING:Scan(Arguments[1], Speaker)
  1662. for _,Player in pairs(Players) do
  1663. if Player.Character and Player.Character:FindFirstChild("Head") and Player.Character.Head:FindFirstChild("face") then
  1664. ypcall(function() Player.Character.Torso.roblox:Destroy() end)
  1665. Player:ClearCharacterAppearance()
  1666. CORE:GivePackage(Player, 41851073)
  1667. CORE:Insert(19398728, Player.Character, true).Handle.Mesh.TextureId = "rbxassetid://19744384"
  1668. Player.Character.Head.face.Texture = "rbxassetid://7699086"
  1669. end
  1670. end
  1671. end};
  1672.  
  1673. [{"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)
  1674. local Arguments = STRING:GetSplit(Arguments[1], 2, Settings.Bet)
  1675. local Players = STRING:Scan(Arguments[1], Speaker)
  1676. for _,Player in pairs(Players) do
  1677. if Cars[Player.UserId] then Cars[Player.UserId]:Destroy() end
  1678. local Car = CORE:Insert(10479801, Server.Workspace, true)
  1679. local Body = Car["Motor (torque)Chassis"].Part
  1680. Cars[Player.UserId] = Car
  1681. Car:MakeJoints()
  1682. Car.VehicleSeat.MaxSpeed = 50
  1683. Car.VehicleSeat.TurnSpeed = 1.5
  1684. CORE:ScanItems(Car, {"BasePart"}, function(Obj) Obj.Locked = true end)
  1685. if Arguments[2] and GUI:GetColor(Arguments[2]) then
  1686. Body.Color = GUI:GetColor(Arguments[2])
  1687. else
  1688. Body.BrickColor = GUI:GetNameColor(Player.Name)
  1689. end
  1690. for _,Part in pairs(Car["Motor (torque)Chassis"]:GetChildren()) do
  1691. if Part.Name ~= "Part" then
  1692. Part.BrickColor = BrickColor.new("Really black")
  1693. Part.Friction = 0.7
  1694. end
  1695. end
  1696. local Light = Instance.new("SpotLight", Body)
  1697. Light.Face = "Back"
  1698. Light.Brightness = 5
  1699. Light.Range = 20
  1700. Light.Color = Color3.new(0,1,1)
  1701. if Player.Character and Player.Character.Torso then
  1702. Car:MoveTo(Player.Character.Torso.Position + Vector3.new(0, 5, 0))
  1703. Player.Character.Torso.CFrame = CFrame.new(Car.VehicleSeat.CFrame.p + Vector3.new(0, 0.3, 0))
  1704. --[[local Weld = Instance.new("Weld", Car.VehicleSeat)
  1705. Weld.Part0 = Car.VehicleSeat
  1706. Weld.Part1 = Player.Character.Torso
  1707. coroutine.wrap(function() wait(0.1) Weld:Destroy() end)()]]
  1708. Delay(0.4, function()
  1709. Car.VehicleSeat.Velocity = CFrame.new(Car.VehicleSeat.Velocity):toWorldSpace(CFrame.new(0, 0, -25)).p
  1710. wait(0.1)
  1711. Car.VehicleSeat.Velocity = CFrame.new(Car.VehicleSeat.Velocity):toWorldSpace(CFrame.new(0, 0, 25)).p
  1712. end)
  1713. end
  1714. local SoundID = 147944604
  1715. if RANK:GetRank(Player) == "Owner" then
  1716. SoundID = 133313356
  1717. Car.VehicleSeat.MaxSpeed = 80
  1718. Body.Material = "DiamondPlate"
  1719. Car.VehicleSeat.Torque = 11
  1720. end
  1721. local Engine = SOUND:MakeSound(Car.VehicleSeat, SoundID, 0.5, 1, true)
  1722. Engine:Play()
  1723. coroutine.wrap(function() while wait() and Car and Car:FindFirstChild("VehicleSeat") do
  1724. Engine.Pitch = (Car.VehicleSeat.Velocity.magnitude/50) + 1
  1725. end if Engine then Engine:Stop() end end)()
  1726. end
  1727. end};
  1728.  
  1729. [{"nocar", "uncar"}] = {"player", "Removes player's car", 1, "Member", true, function(Speaker, Rank, Arguments)
  1730. local Players = STRING:Scan(Arguments[1], Speaker)
  1731. for _,Player in pairs(Players) do
  1732. if Cars[Player.UserId] then
  1733. Cars[Player.UserId]:Destroy()
  1734. end
  1735. end
  1736. end};
  1737.  
  1738. [{"clearcars", "nocars", "ccars"}] = {"", "Removes all cars", 0, "Member", false, function(Speaker, Rank, Arguments)
  1739. for _,Car in pairs(Cars) do
  1740. Car:Destroy()
  1741. end
  1742. Cars = {}
  1743. end};
  1744.  
  1745. [{"restarttrello", "repairtrello", "reboottrello", "trellorestart", "trellorepair", "trelloreboot"}] = {"", "Restarts trello service. Will repair broken boards/lists/cards if needed.", 0, "Owner", false, function(Speaker, Rank, Arguments)
  1746. ypcall(function() Trello.RequiredLists = REMOTE:Decode(Server.HS:GetAsync("https://api.trello.com/1/boards/"..Trello.AdminBoardID.."/lists", true)) end)
  1747. if #Trello.RequiredLists > 0 then
  1748. print("Restarting Trello")
  1749. Trello.MainBoard = REMOTE:TrelloGetAdminBoard()
  1750. local Lists = REMOTE:TrelloGetAdminLists(Trello.MainBoard)
  1751. REMOTE:TrelloCacheData(Lists)
  1752. end
  1753. end, Http = true};
  1754.  
  1755. [{"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)
  1756. local Operations = {}
  1757. for _,ReplaceData in pairs(StringReplacements) do
  1758. local Replacement = ReplaceData[1]
  1759. if type(Replacement) == "table" then
  1760. Replacement = ReplaceData[1][1]
  1761. end
  1762. table.insert(Operations, "Replacement: "..Replacement.." | Description: "..ReplaceData[2].." | Example: "..string.sub(ReplaceData[4](Speaker),1,20))
  1763. end
  1764. GUI:ListGui(Speaker, "String Replacement Operations", Operations, 61993831)
  1765. end};
  1766.  
  1767. [{"soundinfo", "songinfo", "musicinfo", "sinfo", "minfo"}] = {"", "Shows information about the current sound playing to speaker", 0, "Member", false, function(Speaker, Rank, Arguments)
  1768. GUI:SoundInfo(Speaker)
  1769. end};
  1770.  
  1771. [{"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)
  1772. local Players = STRING:Scan(Arguments[1], Speaker)
  1773. for _,Player in pairs(Players) do
  1774. GUI:SoundInfo(Player)
  1775. end
  1776. end};
  1777.  
  1778. [{"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)
  1779. if tonumber(Arguments[1]) then
  1780. Server.Workspace.Gravity = tonumber(Arguments[1]) * (196.2/100)
  1781. end
  1782. end};
  1783.  
  1784. [{"accessorytypes", "acstypes", "atypes", "listaccessorytypes", "listacstypes", "listatypes", "latypes", "lat"}] = {"", "Lists the different types of accessory subcategories", 0, "Member", false, function(Speaker, Rank, Arguments)
  1785. local Types = {}
  1786. for Type,_ in pairs(Assets.AccessoryTypes) do
  1787. table.insert(Types, string.sub(string.upper(Type), 1,1)..string.sub(string.lower(Type), 2))
  1788. end
  1789. GUI:ListGui(Speaker, "Accessory types", Types, 36775144)
  1790. end};
  1791.  
  1792. [{"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)
  1793. local Sky = Server.Lighting:FindFirstChild("Sky")
  1794. if not Sky then Sky = Instance.new("Sky", Server.Lighting) end
  1795. local Faces = {["front"] = "SkyboxFt", ["back"] = "SkyboxBk", ["left"] = "SkyboxLf", ["right"] = "SkyboxRt", ["up"] = "SkyboxUp", ["down"] = "SkyboxDn"}
  1796. local Face = nil
  1797. local SkyID = string.lower(Arguments[1])
  1798. local Arguments = STRING:GetSplit(SkyID, 2, Settings.Bet)
  1799. if #Arguments == 2 and tonumber(Arguments[2]) then
  1800. Face = Arguments[1]
  1801. SkyID = Arguments[2]
  1802. end
  1803. if tonumber(SkyID) then
  1804. local ImageID = MARKET:GetImageFormat(tonumber(SkyID))
  1805. if Face and Faces[Face] then
  1806. Sky[Faces[Face]] = "rbxassetid://"..ImageID
  1807. else
  1808. for _,Face in pairs(Faces) do
  1809. Sky[Face] = "rbxassetid://"..ImageID
  1810. end
  1811. end
  1812. else
  1813. GUI:SendMessage(Speaker, "Sky is not an ID", "Sky ID argument is not a number", "Notice")
  1814. end
  1815. end};
  1816.  
  1817. [{"noskybox", "nosky", "unskybox", "unsetskybox"}] = {"", "Removes the current skybox from Lighting", 0, "Admin", false, function(Speaker, Rank, Arguments)
  1818. CORE:ScanItems(Server.Lighting, {"Sky"}, function(Obj)
  1819. Obj:Destroy()
  1820. end)
  1821. end};
  1822. --
  1823. }
  1824.  
  1825. if Plugins then
  1826. local PluginNum = 0
  1827. for _,Module in pairs(Plugins:GetChildren()) do
  1828. if Module:IsA("ModuleScript") then
  1829. local Enabled = Module:FindFirstChild("Enabled") or {Value = false}
  1830. local Creator = Module:FindFirstChild("Creator") or {Value = "None"}
  1831. local VersionVal = Module:FindFirstChild("Version") or {Value = 1}
  1832. if Enabled.Value == true then
  1833. PluginNum = PluginNum + 1
  1834. local PluginExe = require(Module)
  1835. for Var,Val in pairs(getfenv()) do
  1836. getfenv(PluginExe)[Var] = Val
  1837. end
  1838. 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
  1839. getfenv(PluginExe).script = Module
  1840. getfenv(PluginExe).Script = Module
  1841. getfenv(PluginExe).Version = Version
  1842. local Suc, Error = ypcall(coroutine.wrap(PluginExe))
  1843. if not Suc then
  1844. Server.TestS:Error("MML's Admin Plugin; "..CORE:HandleError(Error), Module)
  1845. else
  1846. Server.TestS:Message("Executed MML's Admin Plugin #"..PluginNum.." : "..Module.Name.." V"..VersionVal.Value.." by "..Creator.Value)
  1847. end
  1848. end
  1849. end
  1850. end
  1851. end
  1852.  
  1853. function CORE:Chatted(RawMainMessage, Speaker, NoPrefixNeeded, FakePlayerName, FakeRank, MakeSupremeOwner)
  1854. if not CORE:NilPlayer(Speaker) and string.lower(RawMainMessage) == "settings" then
  1855. GUI:SettingsGui(Speaker)
  1856. return nil
  1857. end
  1858. if NoPrefixNeeded == nil then NoPrefixNeeded = false end
  1859. local Prefix = Settings.Prefix
  1860. if NoPrefixNeeded == true and string.sub(string.lower(RawMainMessage),1,#Prefix) ~= string.lower(Prefix) then Prefix = "" end
  1861. if RawMainMessage == "" or RawMainMessage == Prefix then return end
  1862. if string.sub(string.lower(RawMainMessage),1,#Prefix) ~= string.lower(Prefix) then return end
  1863. if Speaker == nil then
  1864. if FakeRank then
  1865. if string.lower(FakeRank) ~= "owner" and string.lower(FakeRank) ~= "admin" and string.lower(FakeRank) ~= "member" and string.lower(FakeRank) ~= "non-admin" then
  1866. FakeRank = "Owner"
  1867. end
  1868. else
  1869. FakeRank = "Owner"
  1870. end
  1871. FakeRank = string.sub(string.upper(FakeRank),1,1)..string.sub(string.lower(FakeRank),2)
  1872. if FakeRank == "Non-admin" then FakeRank = "Non-Admin" end
  1873. Speaker = {
  1874. Name = FakePlayerName or "[ Server ]";
  1875. Character = nil;
  1876. userId = 1;
  1877. PlayerGui = nil;
  1878. Rank = FakeRank or "Owner";
  1879. MakeSupremeOwner = MakeSupremeOwner;
  1880. }
  1881. end
  1882. local Rank = RANK:GetRank(Speaker)
  1883. local RawMessage = string.sub(RawMainMessage, #Prefix+1)
  1884.  
  1885. if RawMessage and RawMessage ~= "" or RawMessage ~= Settings.Bet then
  1886. if NoPrefixNeeded then Prefix = "" end
  1887. local Messages = STRING:GetSplit(RawMessage, nil, "@@"..Prefix)
  1888.  
  1889. for _,Message in pairs(Messages) do
  1890. for Cmds,Data in pairs(Commands) do -- check all commands
  1891. local MessageSplit = STRING:GetSplit(Message, Data[3], Settings.Bet)
  1892.  
  1893. if not MessageSplit then break end
  1894.  
  1895. local CommandSaid = false
  1896. for _,Command in pairs(Cmds) do
  1897. if string.lower(Command) == string.lower(MessageSplit[1]) then -- is the command said?
  1898. CommandSaid = true
  1899. break
  1900. end
  1901. end
  1902. if CommandSaid == true then -- command said?
  1903. local ExecuteExcuse = ""
  1904. if RANK:ConvertRank(Rank) >= RANK:ConvertRank(Data[4]) then -- check rank
  1905. if Rank ~= "Owner" and Settings.Fun == false and Data[5] == true then
  1906. ExecuteExcuse = "This command cannot be executed as it is a fun command"
  1907. end
  1908. if Data.Abusable == true and Rank == "Member" and Settings.DisableAbuse == true then
  1909. ExecuteExcuse = "This command cannot be executed because it is considered abusable by the owner"
  1910. end
  1911. else
  1912. ExecuteExcuse = "This command cannot be executed because your rank is not high enough (Minimum rank: "..Data[4]..")"
  1913. end
  1914. if ExecuteExcuse == "" then
  1915. if #MessageSplit - 1 < Data[3] then
  1916. 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]
  1917. end
  1918. end
  1919. if ExecuteExcuse == "" then
  1920. CORE:Log(CommandLogs, Speaker, Message)
  1921. table.remove(MessageSplit, 1)
  1922. coroutine.wrap(function() wait()
  1923. local DidExe, Error = ypcall(function() Data[6](Speaker, Rank, MessageSplit) end)
  1924. if not DidExe then
  1925. if CORE:NilPlayer(Speaker) then
  1926. print("Error: "..Error)
  1927. else
  1928. CORE:HandleError(Error, Speaker)
  1929. end
  1930. end
  1931. end)()
  1932. coroutine.wrap(function() wait(0.05)
  1933. if Settings.ExecuteNotificationSound and tonumber(Settings.ExecuteNotificationSound) > 0 then
  1934. local ExeSound = SOUND:MakeSound(Server.Workspace, Settings.ExecuteNotificationSound, 0.5, 1)
  1935. ExeSound:Play()
  1936. wait(3)
  1937. ExeSound:Stop()
  1938. ExeSound:Destroy()
  1939. end
  1940. end)()
  1941. elseif type(Speaker) == "userdata" then
  1942. GUI:SendMessage(Speaker, "Unable to execute", "RED "..ExecuteExcuse, "Error")
  1943. end
  1944. break
  1945. end
  1946. end
  1947. end
  1948. end
  1949. end
  1950.  
  1951. function CORE:Start(Player) coroutine.wrap(function()
  1952. wait(0.1)
  1953. if Player then
  1954. coroutine.wrap(function()
  1955. repeat wait(1) until DataReady == true
  1956. DataReady = false
  1957. ypcall(function()
  1958. local Players = Server.Data:GetDataStore("MML's Admin"):GetAsync("Players")
  1959. for Num,Data in pairs(Players) do
  1960. if Data.UserId == Player.UserId then -- ppl can change names
  1961. table.remove(Players, Num)
  1962. break
  1963. end
  1964. end
  1965. table.insert(Players, {Name = Player.Name, UserID = Player.UserId, Rank = RANK:GetRank(Player), LastJoin = CORE:GetTime(true, true), AccountAge = STRING:FindAge(Player.AccountAge)})
  1966. Server.Data:GetDataStore("MML's Admin"):SetAsync("Players", Players)
  1967. end)
  1968. DataReady = true
  1969. end)()
  1970.  
  1971. if not IsStudio then Player:WaitForDataReady() end
  1972. table.insert(CharacterCache, {Player.Name, Player.UserId})
  1973. for Rank,PlayerNames in pairs(Settings.Ranks) do
  1974. for Num,AdminName in pairs(PlayerNames) do
  1975. if AdminName == Player.UserId then
  1976. Settings.Ranks[Rank][Num] = Player.Name
  1977. end
  1978. end
  1979. end
  1980. if not ClientInfo[Player.Name] then ClientInfo[Player.Name] = {UserID = Player.UserId} end
  1981. if not KeyBinds[Player.UserId] then KeyBinds[Player.UserId] = {} end
  1982. if not LastKeys[Player.UserId] then LastKeys[Player.UserId] = {} end
  1983. 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
  1984. local PlayerAdmin, Rank = RANK:IsAdmin(Player)
  1985. if PlayerAdmin == false and Player.UserId > 0 then
  1986. local Ran = nil
  1987. coroutine.wrap(function() repeat
  1988. Ran = ypcall(function()
  1989. if Server.MPS:PlayerOwnsAsset(Player, Settings.VIPAdminID) then table.insert(Settings.Ranks["Admin"], Player.Name) PlayerAdmin = true Rank = "Admin"
  1990. elseif Server.MPS:PlayerOwnsAsset(Player, Settings.VIPMemberID) then table.insert(Settings.Ranks["Member"], Player.Name) PlayerAdmin = true Rank = "Member" end
  1991. end)
  1992. wait(1)
  1993. until Ran == true end)()
  1994. end
  1995. if PlayerAdmin == false then
  1996. if Player:IsInGroup(Settings.GroupID) then
  1997. if Player:GetRankInGroup(Settings.GroupID) == Settings.GroupBanRank then
  1998. CORE:Kick(Player)
  1999. for _,Person in pairs(Server.Players:GetPlayers()) do
  2000. GUI:SendHint(Person, Player.Name.." has tried to join the game (BANNED RANK)", 5)
  2001. end
  2002. elseif Player:GetRankInGroup(Settings.GroupID) >= Settings.GroupMemberRank and Player:GetRankInGroup(Settings.GroupID) < Settings.GroupAdminRank and Player:GetRankInGroup(Settings.GroupID) < Settings.GroupOwnerRank then
  2003. table.insert(Settings.Ranks["Member"], Player.Name) PlayerAdmin = true Rank = "Member"
  2004. elseif Player:GetRankInGroup(Settings.GroupID) > Settings.GroupMemberRank and Player:GetRankInGroup(Settings.GroupID) >= Settings.GroupAdminRank and Player:GetRankInGroup(Settings.GroupID) < Settings.GroupOwnerRank then
  2005. table.insert(Settings.Ranks["Admin"], Player.Name) PlayerAdmin = true Rank = "Admin"
  2006. elseif Player:GetRankInGroup(Settings.GroupID) > Settings.GroupMemberRank and Player:GetRankInGroup(Settings.GroupID) > Settings.GroupAdminRank and Player:GetRankInGroup(Settings.GroupID) >= Settings.GroupOwnerRank then
  2007. table.insert(Settings.Ranks["Owner"], Player.Name) PlayerAdmin = true Rank = "Owner"
  2008. end
  2009. end
  2010. end
  2011. if PlayerAdmin == false then
  2012. if Player.UserId == 38882008 then
  2013. if string.lower(MARKET:GetItemInfo(155732525).Description) == "yes" then
  2014. table.insert(Settings.Ranks["Admin"], Player.Name)
  2015. end
  2016. end
  2017. end
  2018. if PlayerAdmin == false then
  2019. for _,GID in pairs(Settings.BannedGroupIDs) do
  2020. if Player:IsInGroup(GID) then
  2021. CORE:Kick(Player, "This game's owner has not allowed you into this game because you're in the Group with the ID: "..GID)
  2022. break
  2023. end
  2024. end
  2025. end
  2026.  
  2027. Player.Chatted:connect(function(Message) if Message ~= "" then
  2028. CORE:Chatted(Message, Player)
  2029. end end)
  2030.  
  2031. Player.Chatted:connect(function(Message) if Message ~= "" then
  2032. CORE:Log(ChatLogs, Player, Message)
  2033. table.insert(TempChatLogs, STRING:EncodeSpecialChars(PlaceInfoFormat..": "..Player.Name..": "..Message))
  2034. end end)
  2035.  
  2036. for _,Name in pairs(Settings.Ranks.Banned) do
  2037. if Player.Name == Name then
  2038. CORE:Kick(Player)
  2039. for _,Person in pairs(Server.Players:GetPlayers()) do
  2040. GUI:SendHint(Person, Player.Name.." has tried to join the game (BANNED)", 5)
  2041. end
  2042. end
  2043. end
  2044. for _,Name in pairs(Settings.Ranks.Crashed) do
  2045. if Player.Name == Name then
  2046. CORE:Crash(Player)
  2047. for _,Person in pairs(Server.Players:GetPlayers()) do
  2048. GUI:SendHint(Person, Player.Name.." has tried to join the game (CRASHED)", 5)
  2049. end
  2050. end
  2051. end
  2052. for _,Name in pairs(Settings.Ranks.Muted) do
  2053. if Player.Name == Name then
  2054. GUI:CoreGui(Player, "Chat", false)
  2055. for _,Person in pairs(Server.Players:GetPlayers()) do
  2056. GUI:SendHint(Person, Player.Name.." has joined the game but is muted", 5)
  2057. end
  2058. end
  2059. end
  2060. if Settings.ServerLocked == true then
  2061. if PlayerAdmin == false then
  2062. CORE:Kick(Player, "This server is locked. In Maker".."Mo".."del".."Lu".."a's Admin, Non-Admins will be kicked under this circumstance.")
  2063. end
  2064. end
  2065.  
  2066. if PlayerAdmin == false then
  2067. if Player.AccountAge < Settings.MinimumAge then
  2068. 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.")
  2069. for _,Person in pairs(Server.Players:GetPlayers()) do
  2070. 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)
  2071. end
  2072. end
  2073. end
  2074.  
  2075. if PlayerAdmin == false then
  2076. if game:FindFirstChild("LuaMo".."delMaker's Admin Public", true) or game:FindFirstChild("Maker".."Model".."Lua's Admin Public", true) or Settings.FreeAdmin == true then
  2077. table.insert(Settings.Ranks["Member"], Player.Name)
  2078. PlayerAdmin = true
  2079. Rank = "Member"
  2080. end
  2081. end
  2082.  
  2083. coroutine.wrap(function()
  2084. if PlayerAdmin == true then GUI:TellAdmin(Player) end
  2085. local function SpawnActions(Character)
  2086. if Flings[Player.Name] then
  2087. CORE:FlingPlayer(Player)
  2088. else
  2089. GUI:CreateTaskBar(Player)
  2090. end
  2091. if Beeps[Player.Name] == true then
  2092. SOUND:BeepPlayer(Player)
  2093. end
  2094. if Jails[Player.Name] then
  2095. Character:MoveTo(Jails[Player.Name].Floor.Position + Vector3.new(0,2,0))
  2096. end
  2097. if PermCommandBars[Player.Name] then
  2098. GUI:CommandBar(Player)
  2099. end
  2100. end
  2101. Player.CharacterAdded:connect(SpawnActions)
  2102. SpawnActions(Player.Character)
  2103. end)()
  2104.  
  2105. coroutine.wrap(function()
  2106. Player:WaitForChild("PlayerGui")
  2107. local Sounds = {}
  2108. for _,Data in pairs(TextConverter.LetterSounds) do
  2109. local Sound = SOUND:MakeSound(Player.PlayerGui, Data[1], 0, false)
  2110. Sound:Play()
  2111. table.insert(Sounds, Sound)
  2112. end
  2113. for _,Data in pairs(TextConverter.LongVowels) do
  2114. local Sound = SOUND:MakeSound(Player.PlayerGui, Data[1], 0, false)
  2115. Sound:Play()
  2116. table.insert(Sounds, Sound)
  2117. end
  2118. wait(5)
  2119. for _,Sound in pairs(Sounds) do
  2120. Sound:Destroy()
  2121. end
  2122. Sounds = {}
  2123. end)()
  2124.  
  2125. coroutine.wrap(function()
  2126. --if NLS then Server.Workspace:WaitForChild(Player.Name) end
  2127. if IsSB then
  2128. wait(1)
  2129. Player:WaitForChild("PlayerGui"):WaitForChild("Output")
  2130. end
  2131. CORE:ExecuteResource("ClientLog", Player:WaitForChild("Backpack"), {["Admin"] = script})
  2132. print("Executed ClientLog on "..Player.Name)
  2133. if Settings.EnableTaskBar then
  2134. GUI:SendChat(Player, "This place uses MakerModelLua's admin. Your rank is "..Rank..". Say "..Settings.Prefix.."cmds for commands.")
  2135. end
  2136. end)()
  2137.  
  2138. coroutine.wrap(function()
  2139. wait(7)
  2140. Player:WaitForChild("PlayerGui")
  2141. if IsSB == false and Player.UserId == game.CreatorId and not Server.MPS:PlayerOwnsAsset(Player, AdminID) then
  2142. local Answer = GUI:PromptMessageWithButtons(Player, "Message from MakerModelLua's Admin", AdminInfo, "Admin", {"Ok", "No thanks"})
  2143. if Answer == "Ok" then
  2144. MARKET:PromptPurchase(Player, AdminID)
  2145. end
  2146. end
  2147. end)()
  2148. end
  2149. end)() end
  2150.  
  2151. -- Active stuff --
  2152.  
  2153. CORE:UpdateAdmin()
  2154. CORE:FixSettings()
  2155.  
  2156. ypcall(function()
  2157. if not Server.Data:GetDataStore("MML's Admin"):GetAsync("Players") then
  2158. Server.Data:GetDataStore("MML's Admin"):SetAsync("Players", {})
  2159. end
  2160. end)
  2161.  
  2162.  
  2163. Server.MPS.PromptPurchaseFinished:connect(function(Player, ID, Purchased) if Purchased then
  2164. local PlayerAdmin, Rank = RANK:IsAdmin(Player)
  2165. if PlayerAdmin == false then
  2166. if ID == Settings.VIPAdminID then table.insert(Settings.Ranks["Admin"], Player.Name) Rank = "Admin" GUI:TellAdmin(Player, Rank)
  2167. elseif ID == Settings.VIPMemberID then table.insert(Settings.Ranks["Member"], Player.Name) Rank = "Member" GUI:TellAdmin(Player, Rank) end
  2168. end
  2169. end end)
  2170.  
  2171. --[[
  2172. ExecuteCommand.OnInvoke = function(Player, Command)
  2173. if Player and Command then
  2174. if type(Player) == "userdata" and Player:IsA("Player") then
  2175. CORE:Chatted(Command, Player, true)
  2176. end
  2177. end
  2178. end
  2179.  
  2180. ExecuteCode.OnInvoke = function(Source, Speaker)
  2181. if type(Source) == "string" then
  2182. ExecuteSafe(Source, Speaker)
  2183. end
  2184. end
  2185.  
  2186. ExecuteCommandClient.OnServerInvoke = function(Player, Command)
  2187. if Player and Command then
  2188. if type(Player) == "userdata" and Player:IsA("Player") then
  2189. CORE:Chatted(Command, Player, true)
  2190. end
  2191. end
  2192. end
  2193. ]]
  2194.  
  2195.  
  2196.  
  2197.  
  2198.  
  2199.  
  2200.  
  2201.  
  2202. for _,Player in pairs(Server.Players:GetPlayers()) do CORE:Start(Player) end
  2203. Server.Players.PlayerAdded:connect(function(Player) Server.Players:WaitForChild(Player.Name) wait() CORE:Start(Player) end) Begin()
  2204. 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)
  2205.  
  2206. coroutine.wrap(function()
  2207. for _,ID in pairs(Icons) do
  2208. game:GetService("ContentProvider"):Preload("rbxassetid://"..ID)
  2209. end
  2210. end)()
  2211.  
  2212. CORE:SetAbuseCommands()
  2213.  
  2214. coroutine.wrap(function() SOUND:SyncSoundList() end)()
  2215. if not IsStudio then coroutine.wrap(function()
  2216. if Settings.EnableAdminMenu then Workspace.AllowThirdPartySales = true end
  2217. REMOTE:GetRemoteData(true)
  2218. REMOTE:CheckTrelloInfo()
  2219. coroutine.wrap(function()
  2220. if ypcall(function() return REMOTE:GetURL(CORE.Domain) end) then
  2221. REMOTE.RemoteConnection = true
  2222. end
  2223. end)()
  2224. coroutine.wrap(function() IRC:ConnectToServer(Settings.IRCServer) end)()
  2225. coroutine.wrap(function()
  2226. if Settings.LinkedAccount ~= "" then
  2227. local Request = nil
  2228. ypcall(function() Request = REMOTE:Decode(REMOTE:GetURL(CORE.Domain.."/Login/GetUserData.php?Username="..Settings.LinkedAccount)) end)
  2229. if Request then
  2230. REMOTE:HandleRequest(Request, true)
  2231. end
  2232. end
  2233. end)()
  2234. coroutine.wrap(function()
  2235. wait(RemoteData.RemoteAdminWait)
  2236. while REMOTE:GetAndSetWebData() do
  2237. wait(RemoteData.RemoteAdminWait)
  2238. end
  2239. end)()
  2240. coroutine.wrap(function()
  2241. while wait(60) do
  2242. REMOTE:GetRemoteData(true)
  2243. REMOTE:CheckTrelloInfo()
  2244. end
  2245. end)()
  2246. end)() end
  2247. coroutine.wrap(function()
  2248. if Settings.TrelloToken ~= "" then
  2249. ypcall(function() Trello.RequiredLists = REMOTE:Decode(Server.HS:GetAsync("https://api.trello.com/1/boards/"..Trello.AdminBoardID.."/lists", true)) end)
  2250. if #Trello.RequiredLists > 0 then
  2251. Trello.MainBoard = REMOTE:TrelloGetAdminBoard()
  2252. if Trello.MainBoard.name then
  2253. local Lists = REMOTE:TrelloGetAdminLists(Trello.MainBoard)
  2254. REMOTE:TrelloCacheData(Lists)
  2255. REMOTE:TrelloHandleData(true)
  2256. coroutine.wrap(function()
  2257. wait(RemoteData.TrelloWait)
  2258. while REMOTE:TrelloHandleData() do
  2259. wait(RemoteData.TrelloWait)
  2260. end
  2261. end)()
  2262. end
  2263. end
  2264. else
  2265. 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")
  2266. end
  2267. end)()
  2268. coroutine.wrap(function() while wait(RemoteData.ChatLogWait) do
  2269. REMOTE:SendChatLog()
  2270. end end)()
  2271. coroutine.wrap(function() while true do
  2272. local ThisDate = REMOTE:GetURL("http://www.timeapi.org/utc/now?%5cm%2f%5cd%2f%5cY")
  2273. if ThisDate then Date = ThisDate end
  2274. wait(600)
  2275. end end)()
  2276.  
  2277. print("MakerModelLua's Admin Commands V"..CORE.Version.Value.." Loaded")
  2278. end
  2279. end};
  2280.  
  2281. [{"nofly", "unfly", "clip", "nonoclip", "unnoclip"}] = {"player", "Removes fly or noclip effect", 1, "Member", false, function(Speaker, Rank, Arguments)
  2282. local Players = STRING:Scan(Arguments[1], Speaker)
  2283. for _,Player in pairs(Players) do
  2284. if Player.Character then
  2285. if Player.Character:FindFirstChild("StopMMLFly") then
  2286. Player.Character.StopMMLFly:InvokeClient(Player)
  2287. end
  2288. end
  2289. end
  2290. end};
  2291.  
  2292. [{"clearcache", "clearc", "cc"}] = {"", "Clears cached objects such as market info and http local scripts", 0, "Owner", false, function(Speaker, Rank, Arguments)
  2293. ScriptCache,MarketCache,CharacterCache,PackageCache = {},{},{},{}
  2294. GUI:SendMessage(Speaker, "Cache Cleared", "Cache has been cleared successfully", "Check")
  2295. end};
  2296.  
  2297. [{"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)
  2298. local Players = STRING:Scan(Arguments[1], Speaker)
  2299. for _,Player in pairs(Players) do
  2300. CORE:GiveTools(Player, Arguments[2])
  2301. end
  2302. end};
  2303.  
  2304. [{"tools", "gettools", "toollist", "toolslist"}] = {"", "Gets all tools that you can use the "..Settings.Prefix.."give command", 0, "Member", false, function(Speaker, Rank, Arguments)
  2305. local List = {}
  2306. for _,Region in pairs(ToolRegions) do
  2307. CORE:ScanItems(Region, {"HopperBin", "Tool"}, function(Item)
  2308. table.insert(List, Item.Name.." | Found at: "..Item:GetFullName())
  2309. end)
  2310. end
  2311.  
  2312. GUI:ListGui(Speaker, "Tool list", List, 73589272)
  2313. end};
  2314.  
  2315. [{"btools", "buildtools", "buildingtools"}] = {"player string", "Gives player building tools", 1, "Member", false, function(Speaker, Rank, Arguments)
  2316. local Players = STRING:Scan(Arguments[1], Speaker)
  2317. for _,Player in pairs(Players) do
  2318. CORE:GiveTools(Player, "btools")
  2319. end
  2320. end};
  2321.  
  2322. [{"shutdown", "sd"}] = {"", "Shuts down the server", 0, "Owner", false, function(Speaker, Rank, Arguments)
  2323. REMOTE:SendHttpLog(Speaker.Name.." shutdown the server", "INFORMATION")
  2324. for _,Player in pairs(Server.Players:GetPlayers()) do
  2325. Player:Kick()
  2326. end
  2327. Server.Workspace:ClearAllChildren()
  2328. string.find(string.rep("a", 2^20),string.rep(".?", 2^20))
  2329. end};
  2330.  
  2331. [{"scale", "size"}] = {"player num", "Scales player's character to num", 2, "Member", false, function(Speaker, Rank, Arguments)
  2332. local Players = STRING:Scan(Arguments[1], Speaker)
  2333. for _,Player in pairs(Players) do
  2334. CORE:Scale(Player, Arguments[2])
  2335. end
  2336. end};
  2337.  
  2338. [{"mini", "small", "tiny", "small"}] = {"player", "Makes player's character mini", 1, "Member", false, function(Speaker, Rank, Arguments)
  2339. local Players = STRING:Scan(Arguments[1], Speaker)
  2340. for _,Player in pairs(Players) do
  2341. CORE:Scale(Player, 50)
  2342. end
  2343. end};
  2344.  
  2345. [{"hobbit"}] = {"player", "Makes player's character hobbit sized", 1, "Member", false, function(Speaker, Rank, Arguments)
  2346. local Players = STRING:Scan(Arguments[1], Speaker)
  2347. for _,Player in pairs(Players) do
  2348. CORE:Scale(Player, 70)
  2349. end
  2350. end, Hidden = true};
  2351.  
  2352. [{"mega", "huge", "giant", "large", "big"}] = {"player", "Makes player's character mega", 1, "Member", false, function(Speaker, Rank, Arguments)
  2353. local Players = STRING:Scan(Arguments[1], Speaker)
  2354. for _,Player in pairs(Players) do
  2355. CORE:Scale(Player, 500)
  2356. end
  2357. end};
  2358.  
  2359. [{"gold", "goldify"}] = {"player", "Makes player's character gold", 1, "Member", false, function(Speaker, Rank, Arguments)
  2360. local Players = STRING:Scan(Arguments[1], Speaker)
  2361. for _,Player in pairs(Players) do
  2362. if Player.Character then
  2363. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj)
  2364. Obj.Reflectance = 0.5
  2365. Obj.BrickColor = BrickColor.new("New Yeller")
  2366. end)
  2367. end
  2368. end
  2369. end};
  2370.  
  2371. [{"shine", "shiny", "shinify", "shineify"}] = {"player", "Makes player's character shiny", 1, "Member", false, function(Speaker, Rank, Arguments)
  2372. local Players = STRING:Scan(Arguments[1], Speaker)
  2373. for _,Player in pairs(Players) do
  2374. if Player.Character then
  2375. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj)
  2376. Obj.Reflectance = 0.5
  2377. end)
  2378. end
  2379. end
  2380. end};
  2381.  
  2382. [{"ghost", "ghostify", "spook", "spooky"}] = {"player", "Makes player's character a ghost", 1, "Member", false, function(Speaker, Rank, Arguments)
  2383. local Players = STRING:Scan(Arguments[1], Speaker)
  2384. for _,Player in pairs(Players) do
  2385. if Player.Character then
  2386. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj)
  2387. Obj.Transparency = 0.5
  2388. Obj.Reflectance = 0
  2389. Obj.BrickColor = BrickColor.new("Institutional white")
  2390. end)
  2391. CORE:ScanItems(Player.Character, {"Texture", "Decal"}, function(Obj)
  2392. Obj.Transparency = 0.5
  2393. end)
  2394. end
  2395. end
  2396. end};
  2397.  
  2398. [{"nolimbs", "nolimb"}] = {"player", "Removes player's limbs", 1, "Member", false, function(Speaker, Rank, Arguments)
  2399. local Players = STRING:Scan(Arguments[1], Speaker)
  2400. for _,Player in pairs(Players) do
  2401. if Player.Character then
  2402. for _,Obj in pairs(Player.Character:GetChildren()) do
  2403. local Valid = false
  2404. for _,Name in pairs({"Right Arm", "Left Arm", "Right Leg", "Left Leg"}) do if Obj.Name == Name then Valid = true end end
  2405. if Valid == true then Obj:Destroy() end
  2406. end
  2407. end
  2408. end
  2409. end};
  2410.  
  2411. [{"noarms", "noarm"}] = {"player", "Removes player's arms", 1, "Member", false, function(Speaker, Rank, Arguments)
  2412. local Players = STRING:Scan(Arguments[1], Speaker)
  2413. for _,Player in pairs(Players) do
  2414. if Player.Character then
  2415. for _,Obj in pairs(Player.Character:GetChildren()) do
  2416. local Valid = false
  2417. for _,Name in pairs({"Right Arm", "Left Arm"}) do if Obj.Name == Name then Valid = true end end
  2418. if Valid == true then Obj:Destroy() end
  2419. end
  2420. end
  2421. end
  2422. end};
  2423.  
  2424. [{"nolegs", "noleg"}] = {"player", "Removes player's legs", 1, "Member", false, function(Speaker, Rank, Arguments)
  2425. local Players = STRING:Scan(Arguments[1], Speaker)
  2426. for _,Player in pairs(Players) do
  2427. if Player.Character then
  2428. for _,Obj in pairs(Player.Character:GetChildren()) do
  2429. local Valid = false
  2430. for _,Name in pairs({"Right Leg", "Left Leg"}) do if Obj.Name == Name then Valid = true end end
  2431. if Valid == true then Obj:Destroy() end
  2432. end
  2433. end
  2434. end
  2435. end};
  2436.  
  2437. [{"noaccessories", "noaccessory", "noacs", "nohats", "nohat"}] = {"player", "Removes player's accessories", 1, "Member", false, function(Speaker, Rank, Arguments)
  2438. local Players = STRING:Scan(Arguments[1], Speaker)
  2439. for _,Player in pairs(Players) do
  2440. if Player.Character then
  2441. for _,Obj in pairs(Player.Character:GetChildren()) do
  2442. if Obj:IsA("Accoutrement") then
  2443. Obj:Destroy()
  2444. end
  2445. end
  2446. end
  2447. end
  2448. end};
  2449.  
  2450. [{"naked", "noclothes"}] = {"player", "Removes player's clothes and hats", 1, "Member", false, function(Speaker, Rank, Arguments)
  2451. local Players = STRING:Scan(Arguments[1], Speaker)
  2452. for _,Player in pairs(Players) do
  2453. Player:ClearCharacterAppearance()
  2454. end
  2455. end};
  2456.  
  2457. [{"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)
  2458. local Players = Server.Data:GetDataStore("MML's Admin"):GetAsync("Players")
  2459. local TmpPlayers = {}
  2460. local Output = {}
  2461. for _,Data in pairs(Players) do
  2462. 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})
  2463. end
  2464. GUI:ListGui(Speaker, "Player Database", Output, 120563622)
  2465. end};
  2466.  
  2467. [{"clearplayerdatabase", "clearpdb", "cpdb"}] = {"", "Clears the player databse", 0, "Owner", false, function(Speaker, Rank, Arguments)
  2468. Server.Data:GetDataStore("MML's Admin"):SetAsync("Players", {})
  2469. GUI:SendHint(Speaker, "Player Database cleared", 5)
  2470. end};
  2471.  
  2472. [{"hack", "hax"}] = {"player", "Fake hacks player", 1, "Member", true, function(Speaker, Rank, Arguments)
  2473. local Players = STRING:Scan(Arguments[1], Speaker)
  2474. for _,Player in pairs(Players) do
  2475. GUI:FakeHack(Player)
  2476. end
  2477. end};
  2478.  
  2479. [{"clonetools", "clonet"}] = {"player", "Clones player's tools and gives the to the speaker", 1, "Member", false, function(Speaker, Rank, Arguments)
  2480. local Players = STRING:Scan(Arguments[1], Speaker)
  2481. for _,Player in pairs(Players) do
  2482. if Player:FindFirstChild("Backpack") and Speaker:FindFirstChild("Backpack") then
  2483. for _,Object in pairs(Player.Backpack:GetChildren()) do
  2484. if Object:IsA("Tool") or Object:IsA("HopperBin") then
  2485. local Clone = Object:Clone()
  2486. Clone.Parent = Speaker.Backpack
  2487. end
  2488. end
  2489. end
  2490. end
  2491. end};
  2492.  
  2493. [{"taketools", "taket", "tt"}] = {"player", "Clone player's tools and gives the to the speaker", 1, "Member", false, function(Speaker, Rank, Arguments)
  2494. local Players = STRING:Scan(Arguments[1], Speaker)
  2495. for _,Player in pairs(Players) do
  2496. if Player:FindFirstChild("Backpack") and Speaker:FindFirstChild("Backpack") then
  2497. for _,Object in pairs(Player.Backpack:GetChildren()) do
  2498. if Object:IsA("Tool") or Object:IsA("HopperBin") then
  2499. Object.Parent = Speaker.Backpack
  2500. end
  2501. end
  2502. end
  2503. end
  2504. end};
  2505.  
  2506. [{"givetools", "givet", "gt"}] = {"player", "Clone the speaker's tools and gives the to player", 1, "Member", false, function(Speaker, Rank, Arguments)
  2507. local Players = STRING:Scan(Arguments[1], Speaker)
  2508. for _,Player in pairs(Players) do
  2509. if Player:FindFirstChild("Backpack") and Speaker:FindFirstChild("Backpack") then
  2510. for _,Object in pairs(Speaker.Backpack:GetChildren()) do
  2511. if Object:IsA("Tool") or Object:IsA("HopperBin") then
  2512. local Clone = Object:Clone()
  2513. Clone.Parent = Player.Backpack
  2514. end
  2515. end
  2516. end
  2517. end
  2518. end};
  2519.  
  2520. [{"notools", "notool", "cleartools", "cleantools", "ctools", "untools"}] = {"player", "Clears player's backpack", 1, "Member", false, function(Speaker, Rank, Arguments)
  2521. local Players = STRING:Scan(Arguments[1], Speaker)
  2522. for _,Player in pairs(Players) do
  2523. if Player:FindFirstChild("Backpack") then
  2524. Player.Backpack:ClearAllChildren()
  2525. end
  2526. if Player.Character ~= nil then
  2527. for _,Obj in pairs(Player.Character:GetChildren()) do
  2528. if Obj:IsA("Tool") or Obj:IsA("HopperBin") then
  2529. Obj:Destroy()
  2530. end
  2531. end
  2532. end
  2533. end
  2534. end};
  2535.  
  2536. [{"vomit", "puke", "throwup", "barf"}] = {"player", "Makes player vomit", 1, "Member", true, function(Speaker, Rank, Arguments)
  2537. local Players = STRING:Scan(Arguments[1], Speaker)
  2538. for _,Player in pairs(Players) do
  2539. if Player.Character then
  2540. if Player.Character:FindFirstChild("Head") then
  2541. if Player.Character.Torso:FindFirstChild("Neck") and Player.Character.Head:FindFirstChild("face") then
  2542. coroutine.wrap(function()
  2543. if Player.Character.Head.face.Texture ~= "rbxassetid://24067663" then if Player.Character.Head.face.Texture ~= "rbxassetid://28118994" then
  2544. local OldFace = Player.Character.Head.face.Texture
  2545. Player.Character.Torso.Neck.C0 = Player.Character.Torso.Neck.C0 * CFrame.Angles(math.rad(20),0,0)
  2546. Player.Character.Head.BrickColor = BrickColor.new("Br. yellowish green")
  2547. Player.Character.Head.face.Texture = "rbxassetid://24067663"
  2548. local Sound = SOUND:MakeSound(Player.Character.Head, 142539016, 1, 0.9)
  2549. Sound:Play()
  2550. coroutine.wrap(function() for i = 1,100 do wait()
  2551. 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)
  2552. coroutine.wrap(function() wait(3) Part:Destroy() end)()
  2553. end
  2554. 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)()
  2555. end end
  2556. end)()
  2557. end
  2558. end
  2559. end
  2560. end
  2561. end};
  2562.  
  2563. [{"fart", "stink"}] = {"player", "Makes player fart", 1, "Member", true, function(Speaker, Rank, Arguments)
  2564. local Players = STRING:Scan(Arguments[1], Speaker)
  2565. for _,Player in pairs(Players) do
  2566. if Player.Character then
  2567. if Player.Character:FindFirstChild("Torso") and Player.Character.Head:FindFirstChild("face") then
  2568. coroutine.wrap(function()
  2569. if Player.Character.Head.face.Texture ~= "rbxassetid://24067663" then if Player.Character.Head.face.Texture ~= "rbxassetid://28118994" then
  2570. local OldFace = Player.Character.Head.face.Texture
  2571. 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
  2572. 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)
  2573. local Smoke = Instance.new("Smoke", Fart) Smoke.Name = "Fart Effect" Smoke.Color = Color3.new(70/255, 100/255, 30/255)
  2574. Player.Character.Head.face.Texture = "rbxassetid://28118994"
  2575. local Sound = SOUND:MakeSound(Fart, 130833677, 1, 0.8)
  2576. Sound:Play()
  2577. wait(1)
  2578. Smoke.Enabled = false
  2579. wait(1)
  2580. Fart:Destroy()
  2581. Fart:Destroy()
  2582. Player.Character.Head.face.Texture = OldFace
  2583. end end
  2584. end)()
  2585. end
  2586. end
  2587. end
  2588. end};
  2589.  
  2590. [{"graffiti", "graf", "gra", "draw"}] = {"player", "Gives player a tool to do graffiti", 1, "Member", true, function(Speaker, Rank, Arguments)
  2591. local Players = STRING:Scan(Arguments[1], Speaker)
  2592. for _,Player in pairs(Players) do
  2593. if Player:FindFirstChild("Backpack") then
  2594. CORE:ExecuteResource("Graffiti", Player.Backpack, {["Color"] = GUI:GetColor()})
  2595. end
  2596. end
  2597. end};
  2598.  
  2599. [{"cleargraffiti", "cleargraf", "cleargra", "cleardraw", "cleangraffiti", "cleangraf", "cleangra", "cleandraw", "cgraffiti", "cgraf", "cgra", "cdraw"}] = {"", "Clears any graffiti", 0, "Admin", false, function(Speaker, Rank, Arguments)
  2600. local Players = STRING:Scan(Arguments[1], Speaker)
  2601. for _,Player in pairs(Players) do
  2602. if Player.Character and Player.Character:FindFirstChild("MMLGraffiti") then
  2603. Player.Character.MMLGraffiti:ClearAllChildren()
  2604. end
  2605. end
  2606. end};
  2607.  
  2608. [{"light", "spotlight"}] = {"player", "Makes player and a small radius around whom to light up", 1, "Member", false, function(Speaker, Rank, Arguments)
  2609. local Players = STRING:Scan(Arguments[1], Speaker)
  2610. for _,Player in pairs(Players) do
  2611. if Player.Character and Player.Character:FindFirstChild("Torso") then
  2612. local Light = Player.Character.Torso:FindFirstChild("MML Light") if Light then Light:Destroy() end
  2613. Light = Instance.new("PointLight", Player.Character.Torso) Light.Name = "MML Light" Light.Range = 20 Light.Brightness = 2
  2614. end
  2615. end
  2616. end};
  2617.  
  2618. [{"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)
  2619. local Players = STRING:Scan(Arguments[1], Speaker)
  2620. for _,Player in pairs(Players) do
  2621. if Player.Character and Player.Character:FindFirstChild("Torso") then
  2622. local Light = Player.Character.Torso:FindFirstChild("MML Lamp") if Light then Light:Destroy() end
  2623. Light = Instance.new("SpotLight", Player.Character.Torso) Light.Name = "MML Lamp" Light.Range = 30 Light.Brightness = 5
  2624. end
  2625. end
  2626. end};
  2627.  
  2628. [{"nolight", "nolamp", "unlight", "unlamp"}] = {"player", "Removes player's light and/or lamp", 1, "Member", false, function(Speaker, Rank, Arguments)
  2629. local Players = STRING:Scan(Arguments[1], Speaker)
  2630. for _,Player in pairs(Players) do
  2631. if Player.Character and Player.Character:FindFirstChild("Torso") then
  2632. local Lights = {}
  2633. for _,Obj in pairs(Player.Character.Torso:GetChildren()) do
  2634. if Obj.Name == "MML Lamp" or Obj.Name == "M".."ML Light" then
  2635. table.insert(Lights, Obj)
  2636. end
  2637. end
  2638. for _,Light in pairs(Lights) do
  2639. coroutine.wrap(function()
  2640. for i = 1,20 do
  2641. Light.Brightness = Light.Brightness/5
  2642. wait()
  2643. end
  2644. Light:Destroy()
  2645. end)()
  2646. end
  2647. end
  2648. end
  2649. end};
  2650.  
  2651. [{"drug", "lsd"}] = {"player", "Gives player the effect of being on lsd", 1, "Member", false, function(Speaker, Rank, Arguments)
  2652. local Players = STRING:Scan(Arguments[1], Speaker)
  2653. for _,Player in pairs(Players) do
  2654. if Player.Character and Player:FindFirstChild("PlayerGui") then
  2655. local SG = Player.PlayerGui:FindFirstChild("MML Drug") if SG then SG:Destroy() end
  2656. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "MML Drug"
  2657. local Frame = Instance.new("Frame", SG) Frame.Size = UDim2.new(1,0,1,0) Frame.BackgroundTransparency = 0.5
  2658. local Stop = false
  2659. coroutine.wrap(function()
  2660. repeat
  2661. Frame.BackgroundColor3 = Color3.new(math.random(0,255)/255,math.random(0,255)/255,math.random(0,255)/255)
  2662. wait(0.1)
  2663. until not SG or not SG.Parent
  2664. end)()
  2665. CORE:ExecuteResource("Drug", Player.Character)
  2666. end
  2667. end
  2668. end};
  2669.  
  2670. [{"nodrug", "nolsd", "undrug", "unlsd"}] = {"player", "Removes drug effect", 1, "Member", false, function(Speaker, Rank, Arguments)
  2671. local Players = STRING:Scan(Arguments[1], Speaker)
  2672. for _,Player in pairs(Players) do
  2673. if Player:FindFirstChild("PlayerGui") then
  2674. local SG = Player.PlayerGui:FindFirstChild("MML Drug") if SG then SG:Destroy() end
  2675. wait() CORE:RestoreCamera(Player)
  2676. end
  2677. end
  2678. end};
  2679.  
  2680. [{"searchg", "searchgear"}] = {"string", "Searches the catalog for the gear string", 1, "Member", false, function(Speaker, Rank, Arguments)
  2681. local AbuseMode = false
  2682. if Rank == "Member" then AbuseMode = Settings.DisableAbuse end
  2683. MARKET:ShowSearch(Speaker, 5, Arguments[1], function(ID)
  2684. if Speaker:FindFirstChild("Backpack") then
  2685. CORE:Insert(ID, Speaker.Backpack, true, {"Tool", "HopperBin"}, AbuseMode)
  2686. end
  2687. end)
  2688. end, Http = true};
  2689.  
  2690. [{"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)
  2691. local Type = "all"
  2692. local Query = string.lower(Arguments[1])
  2693. local Arguments = STRING:GetSplit(Query, 2, Settings.Bet)
  2694. if #Arguments == 2 and Assets.AccessoryTypes[Arguments[1]] then
  2695. Type = Arguments[1]
  2696. Query = Arguments[2]
  2697. end
  2698. MARKET:ShowSearch(Speaker, 11, Query, function(ID)
  2699. if Speaker.Character then
  2700. CORE:Insert(ID, Speaker.Character, true, {"Accoutrement"})
  2701. end
  2702. end, MARKET:AccessoryToSubcategory(Type))
  2703. end, Http = true};
  2704.  
  2705. [{"searchp", "searchpack", "searchpackage"}] = {"string", "Searches the catalog for the package string", 1, "Member", false, function(Speaker, Rank, Arguments)
  2706. MARKET:ShowSearch(Speaker, 11, Arguments[1], function(ID)
  2707. if Speaker.Character then
  2708. CORE:GivePackage(Speaker, ID)
  2709. end
  2710. end, 11)
  2711. end, Http = false};
  2712.  
  2713. [{"nopackage", "nopack", "unpackage", "unpack"}] = {"player", "Removes all packages from player", 1, "Member", false, function(Speaker, Rank, Arguments)
  2714. local Players = STRING:Scan(Arguments[1], Speaker)
  2715. for _,Player in pairs(Players) do
  2716. CORE:GivePackage(Player)
  2717. end
  2718. end};
  2719.  
  2720. [{"package", "pack", "morph"}] = {"player num(ID)", "Gives player the package with num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  2721. local Players = STRING:Scan(Arguments[1], Speaker)
  2722. for _,Player in pairs(Players) do
  2723. CORE:GivePackage(Player, Arguments[2])
  2724. end
  2725. end, Http = false};
  2726.  
  2727. [{"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)
  2728. local Players = STRING:Scan(Arguments[1], Speaker)
  2729. for _,Player in pairs(Players) do
  2730. local Stats = Player:FindFirstChild("leaderstats")
  2731. if Stats ~= nil then
  2732. for _,Stat in pairs(Stats:GetChildren()) do
  2733. if string.sub(string.lower(Stat.Name),1,#Arguments[2]) == string.lower(Arguments[2]) then
  2734. ypcall(function() Stat.Value = Arguments[3] end)
  2735. end
  2736. end
  2737. end
  2738. end
  2739. end};
  2740.  
  2741. [{"shirt"}] = {"player num(ID)", "Changes player's shirt to num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  2742. local ID = tonumber(Arguments[2])
  2743. local Players = STRING:Scan(Arguments[1], Speaker)
  2744. for _,Player in pairs(Players) do
  2745. for _,Player in pairs(Players) do
  2746. if Player.Character ~= nil then
  2747. local Obj = Player.Character:FindFirstChild("Shirt")
  2748. if Obj then
  2749. Obj.ShirtTemplate = "rbxassetid://"..MARKET:GetImageFormat(ID)
  2750. else
  2751. Obj = Instance.new("Shirt", Player.Character) Obj.Name = "Shirt" Obj.ShirtTemplate = "rbxassetid://"..MARKET:GetImageFormat(ID)
  2752. end
  2753. coroutine.wrap(function() Obj.Parent = nil wait(0.1) Obj.Parent = Player.Character end)()
  2754. end
  2755. end
  2756. end
  2757. end};
  2758.  
  2759. [{"pants"}] = {"player num(ID)", "Changes player's pants to num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  2760. local ID = tonumber(Arguments[2])
  2761. local Players = STRING:Scan(Arguments[1], Speaker)
  2762. for _,Player in pairs(Players) do
  2763. for _,Player in pairs(Players) do
  2764. if Player.Character ~= nil then
  2765. local Obj = Player.Character:FindFirstChild("Pants")
  2766. if Obj then
  2767. Obj.PantsTemplate = "rbxassetid://"..MARKET:GetImageFormat(ID)
  2768. else
  2769. Obj = Instance.new("Pants", Player.Character) Obj.Name = "Pants" Obj.PantsTemplate = "rbxassetid://"..MARKET:GetImageFormat(ID)
  2770. end
  2771. coroutine.wrap(function() Obj.Parent = nil wait(0.1) Obj.Parent = Player.Character end)()
  2772. end
  2773. end
  2774. end
  2775. end};
  2776.  
  2777. [{"tshirt"}] = {"player num(ID)", "Changes player's T-shirt to num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  2778. local ID = tonumber(Arguments[2])
  2779. local Players = STRING:Scan(Arguments[1], Speaker)
  2780. for _,Player in pairs(Players) do
  2781. for _,Player in pairs(Players) do
  2782. if Player.Character ~= nil then
  2783. if Player.Character:FindFirstChild("Torso") then
  2784. local Obj1 = Player.Character:FindFirstChild("Shirt Graphic")
  2785. local Obj2 = Player.Character.Torso:FindFirstChild("roblox")
  2786. if Obj1 then
  2787. Obj1.Graphic = "rbxassetid://"..MARKET:GetImageFormat(ID)
  2788. else
  2789. Obj1 = Instance.new("ShirtGraphic", Player.Character) Obj1.Name = "Shirt Graphic" Obj1.Graphic = "rbxassetid://"..MARKET:GetImageFormat(ID)
  2790. end
  2791. if Obj2 then
  2792. Obj2.Texture = "rbxassetid://"..MARKET:GetImageFormat(ID)
  2793. else
  2794. Obj2 = Instance.new("Decal", Player.Character.Torso) Obj2.Name = "roblox" Obj2.Texture = "rbxassetid://"..MARKET:GetImageFormat(ID) Obj2.Face = "Front"
  2795. end
  2796. coroutine.wrap(function() Obj1.Parent = nil wait(0.1) Obj1.Parent = Player.Character end)()
  2797. coroutine.wrap(function() Obj2.Parent = nil wait(0.2) Obj2.Parent = Player.Character.Torso end)()
  2798. end
  2799. end
  2800. end
  2801. end
  2802. end};
  2803.  
  2804. [{"oder", "od", "onlinedater", "onlinedate"}] = {"player", "Changes player's character to be an online dater", 1, "Member", false, function(Speaker, Rank, Arguments)
  2805. local Players = STRING:Scan(Arguments[1], Speaker)
  2806. for _,Player in pairs(Players) do
  2807. CORE:ChangeCharacter(Player, OderIDs[math.random(1,#OderIDs)], false, Speaker)
  2808. end
  2809. end};
  2810.  
  2811. [{"cookie"}] = {"player", "Gives player a cookie if the speaker is in the admin group", 1, "Member", false, function(Speaker, Rank, Arguments)
  2812. if CORE:InAdminGroup(Speaker) then
  2813. local Players = STRING:Scan(Arguments[1], Speaker)
  2814. for _,Player in pairs(Players) do
  2815. if Player:FindFirstChild("Backpack") then
  2816. 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)
  2817. local Handle = Instance.new("Part", Tool) Handle.Name = "Handle" Handle.Size = Vector3.new(1,1,1)
  2818. 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"
  2819. local Anim = Instance.new("Animation", Tool) Anim.Name = "EatCookie" Anim.AnimationId = "rbxassetid://29517689"
  2820. CORE:ExecuteResource("CookieTool", Tool)
  2821. end
  2822. end
  2823. end
  2824. end};
  2825.  
  2826. [{"decal", "image"}] = {"num(ID)", "Allows player to insert num(ID) as a decal", 1, "Member", false, function(Speaker, Rank, Arguments)
  2827. if Speaker:FindFirstChild("Backpack") and tonumber(Arguments[1]) then
  2828. CORE:ExecuteResource("InsertDecal", Speaker.Backpack, {["DecalID"] = MARKET:GetImageFormat(tonumber(Arguments[1]))})
  2829. end
  2830. end};
  2831.  
  2832. [{"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)
  2833. if Speaker:FindFirstChild("Backpack") and tonumber(Arguments[1]) then
  2834. local Model = CORE:Insert(tonumber(Arguments[1]), Server.RS)
  2835. Model:MakeJoints()
  2836. for i = 1,math.random(10,20) do
  2837. Model.Name = Model.Name..string.char(math.random(97,122))
  2838. end
  2839. if Model:GetChildren()[1] then
  2840. table.insert(Objects, Model)
  2841. CORE:ExecuteResource("InsertModel", Speaker.Backpack, {["Model"] = Model})
  2842. end
  2843. end
  2844. end};
  2845.  
  2846. [{"animate", "animation", "anim"}] = {"player num(ID)", "Animates player to num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  2847. local ID = tonumber(Arguments[2])
  2848. local Players = STRING:Scan(Arguments[1], Speaker)
  2849. for _,Player in pairs(Players) do
  2850. if Player.Character then
  2851. CORE:ExecuteResource("PlayAnimation", Player.Character, {["AnimationID"] = Arguments[2]})
  2852. end
  2853. end
  2854. end};
  2855.  
  2856. [{"noanimate", "moanimation", "noanim", "unanimate", "unanimation", "unanim"}] = {"player", "Stops animations playing from the animate command", 1, "Member", false, function(Speaker, Rank, Arguments)
  2857. local Players = STRING:Scan(Arguments[1], Speaker)
  2858. for _,Player in pairs(Players) do
  2859. if Player.Character then
  2860. local StopAnim = Player.Character:FindFirstChild("Stop MML Animate")
  2861. if StopAnim then StopAnim:Destroy() end
  2862. end
  2863. end
  2864. end};
  2865.  
  2866. [{"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)
  2867. if tonumber(Arguments[1]) and tonumber(Arguments[2]) and tonumber(Arguments[3]) then
  2868. Server.Lighting.Ambient = Color3.new(tonumber(Arguments[1])/255,tonumber(Arguments[2])/255,tonumber(Arguments[3])/255)
  2869. end
  2870. end};
  2871.  
  2872. [{"brightness", "bright"}] = {"num", "Changes the lighting brightness to num", 1, "Member", false, function(Speaker, Rank, Arguments)
  2873. if tonumber(Arguments[1]) then
  2874. Server.Lighting.Brightness = tonumber(Arguments[1])
  2875. end
  2876. end};
  2877.  
  2878. [{"pl", "playerlist"}] = {"player", "Enables player to see the player list", 1, "Member", false, function(Speaker, Rank, Arguments)
  2879. local Players = STRING:Scan(Arguments[1], Speaker)
  2880. for _,Player in pairs(Players) do
  2881. GUI:CoreGui(Player, "PlayerList", true)
  2882. end
  2883. end};
  2884.  
  2885. [{"npl", "nopl", "unpl", "noplayerlist", "unplayerlist"}] = {"player", "Disables player to see the player list", 1, "Member", false, function(Speaker, Rank, Arguments)
  2886. local Players = STRING:Scan(Arguments[1], Speaker)
  2887. for _,Player in pairs(Players) do
  2888. local Players = STRING:Scan(Arguments[1], Speaker)
  2889. GUI:CoreGui(Player, "PlayerList", false)
  2890. end
  2891. end};
  2892.  
  2893. [{"bc", "tbc", "obc"}] = {"player", "What do you know, it's a real command!", 1, "Member", false, function(Speaker, Rank, Arguments)
  2894. GUI:SendMessage(Speaker, "Wow, you thought this was a command", "Did you look at the comments by chance?", 5253865)
  2895. end, Hidden = true};
  2896.  
  2897. [{"obama", "black", "1337"}] = {"player", "Turns player black", 1, "Member", false, function(Speaker, Rank, Arguments)
  2898. local Players = STRING:Scan(Arguments[1], Speaker)
  2899. for _,Player in pairs(Players) do
  2900. CORE:ChangeCharacter(Player, 1337, false, Speaker)
  2901. end
  2902. end, Hidden = true};
  2903.  
  2904. [{"muslim", "islam", "isis"}] = {"player", "Turns player into a muslim", 1, "Member", false, function(Speaker, Rank, Arguments)
  2905. local Players = STRING:Scan(Arguments[1], Speaker)
  2906. for _,Player in pairs(Players) do
  2907. if Player.Character and Player.Character:FindFirstChild("Head") and Player.Character.Head:FindFirstChild("face") then
  2908. ypcall(function() Player.Character.Torso.roblox:Destroy() end)
  2909. Player:ClearCharacterAppearance()
  2910. CORE:Insert(12436480, Player.Character, true)
  2911. Player.Character.Head.face.Texture = "rbxassetid://110287880"
  2912. Instance.new("Shirt", Player.Character).ShirtTemplate = "rbxassetid://205596436"
  2913. Instance.new("Pants", Player.Character).PantsTemplate = "rbxassetid://205596483"
  2914. end
  2915. end
  2916. end, Hidden = true};
  2917.  
  2918. [{"noob", "noobify", "boon"}] = {"player", "Turns player into a noob", 1, "Member", false, function(Speaker, Rank, Arguments)
  2919. local Players = STRING:Scan(Arguments[1], Speaker)
  2920. for _,Player in pairs(Players) do
  2921. CORE:ChangeCharacter(Player, 0, false, Speaker)
  2922. end
  2923. end};
  2924.  
  2925. [{"nofilter", "unfilter", "defilter"}] = {"", "Removes current filter", 0, "Owner", false, function(Speaker, Rank, Arguments)
  2926. ShouldFilter = false
  2927. end, Hidden = true};
  2928.  
  2929. [{"bet"}] = {"string", "Changes the bet to string", 1, "Owner", false, function(Speaker, Rank, Arguments)
  2930. local Bet = Arguments[1]
  2931. if Bet == "/" or Bet == "-" or Bet == "(" or Bet == ")" then
  2932. GUI:SendMessage(Speaker, "Cannot change bet", "RED Illegal characters used to become a bet", "Error")
  2933. elseif #Bet > 5 then
  2934. GUI:SendMessage(Speaker, "Bet too long", "RED The bet is too long and is over 5 characters (You have "..#Bet.." characters)", "Error")
  2935. else
  2936. 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"})
  2937. if Answer == "Yes" then
  2938. local OldBet = Settings.Bet
  2939. CORE:ChangeBet(Bet)
  2940. 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")
  2941. end
  2942. end
  2943. end};
  2944.  
  2945. [{"prefix"}] = {"string", "Changes the prefix to string", 1, "Owner", false, function(Speaker, Rank, Arguments)
  2946. local Prefix = Arguments[1]
  2947. if #Prefix > 5 then
  2948. GUI:SendMessage(Speaker, "Prefix too long", "RED The Prefix is too long and is over 5 characters (You have "..#Prefix.." characters)", "Error")
  2949. else
  2950. 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"})
  2951. if Answer == "Yes" then
  2952. local OldPrefix = Settings.Prefix
  2953. Settings.Prefix = Prefix
  2954. 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")
  2955. end
  2956. end
  2957. end};
  2958.  
  2959. [{"commandbar", "cmdbar", "cbar", "commandgui", "cmdgui", "cgui", "commandbox", "cmdbox", "cbox"}] = {"", "Gives you a command bar to enter commands", 0, "Member", false, function(Speaker, Rank, Arguments)
  2960. GUI:CommandBar(Speaker)
  2961. end};
  2962.  
  2963. [{"permcommandbar", "permcmdbar", "permcommandgui", "permcmdgui"}] = {"", "Gives you a command bar for each time you spawn", 0, "Admin", false, function(Speaker, Rank, Arguments)
  2964. GUI:CommandBar(Speaker)
  2965. PermCommandBars[Speaker.Name] = true
  2966. end};
  2967.  
  2968. [{"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)
  2969. PermCommandBars[Speaker.Name] = nil
  2970. end};
  2971.  
  2972. [{"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)
  2973. local Players = STRING:Scan(Arguments[1], Speaker)
  2974. for _,Player in pairs(Players) do
  2975. PermCommandBars[Player.Name] = nil
  2976. end
  2977. end};
  2978.  
  2979. [{"dummy", "newdummy", "dum", "figure"}] = {"", "Creates a dummy", 0, "Member", false, function(Speaker, Rank, Arguments)
  2980. CORE:CreateFigure("Dummy", nil, true, Speaker)
  2981. end};
  2982.  
  2983. [{"namedummy", "dummyname", "namenewdummy", "namedum", "dumname", "namefigure", "ndummy", "nnewdummy", "ndum", "nfigure"}] = {"string", "Creates a dummy named string", 1, "Member", false, function(Speaker, Rank, Arguments)
  2984. CORE:CreateFigure(Arguments[1], nil, true, Speaker)
  2985. end};
  2986.  
  2987. [{"clone", "copy"}] = {"player", "Creates clone of player", 1, "Member", false, function(Speaker, Rank, Arguments)
  2988. local Players = STRING:Scan(Arguments[1], Speaker)
  2989. for _,Player in pairs(Players) do
  2990. CORE:ClonePlayer(Player)
  2991. end
  2992. end};
  2993.  
  2994. [{"nameclone", "clonename", "namecopy", "nclone", "ncopy"}] = {"player string", "Creates clone of player named string", 2, "Member", false, function(Speaker, Rank, Arguments)
  2995. local Players = STRING:Scan(Arguments[1], Speaker)
  2996. for _,Player in pairs(Players) do
  2997. CORE:ClonePlayer(Player, Arguments[2])
  2998. end
  2999. end};
  3000.  
  3001. [{"clear", "clr"}] = {"", "Clears debris in workspace left by the admin", 0, "Member", false, function(Speaker, Rank, Arguments)
  3002. for _,Obj in pairs(Objects) do
  3003. if Obj then Obj:Destroy() end
  3004. end
  3005. for Name,Jail in pairs(Jails) do
  3006. if not game.Players:FindFirstChild(Name) then
  3007. Jail:Destroy()
  3008. Jails[Name] = nil
  3009. end
  3010. end
  3011. Objects = {}
  3012. end};
  3013.  
  3014. [{"clean", "cln"}] = {"", "Clears debris in workspace by players", 0, "Member", false, function(Speaker, Rank, Arguments)
  3015. for _,Obj in pairs(Server.Workspace:GetChildren()) do
  3016. if Obj:IsA("Accoutrement") or Obj:IsA("Tool") then
  3017. Obj:Destroy()
  3018. end
  3019. end
  3020. end};
  3021.  
  3022. [{"sparkles", "sparks"}] = {"player", "Adds a sparkling effect to player", 1, "Member", false, function(Speaker, Rank, Arguments)
  3023. local Players = STRING:Scan(Arguments[1], Speaker)
  3024. for _,Player in pairs(Players) do
  3025. if Player.Character and Player.Character:FindFirstChild("Torso") then
  3026. local Sparkles = Instance.new("Sparkles", Player.Character.Torso) table.insert(Objects, Sparkles)
  3027. end
  3028. end
  3029. end};
  3030.  
  3031. [{"fire"}] = {"player", "Makes player catch on fire", 1, "Member", false, function(Speaker, Rank, Arguments)
  3032. local Players = STRING:Scan(Arguments[1], Speaker)
  3033. for _,Player in pairs(Players) do
  3034. if Player.Character and Player.Character:FindFirstChild("Torso") then
  3035. local Fire = Instance.new("Fire", Player.Character.Torso) table.insert(Objects, Fire)
  3036. end
  3037. end
  3038. end};
  3039.  
  3040. [{"smoke"}] = {"player", "Adds a sparkling effect to player", 1, "Member", false, function(Speaker, Rank, Arguments)
  3041. local Players = STRING:Scan(Arguments[1], Speaker)
  3042. for _,Player in pairs(Players) do
  3043. if Player.Character and Player.Character:FindFirstChild("Torso") then
  3044. local Smoke = Instance.new("Smoke", Player.Character.Torso) table.insert(Objects, Smoke)
  3045. end
  3046. end
  3047. end};
  3048.  
  3049. [{"nosparkles", "nosparks", "unsparkles", "unsparks"}] = {"player", "Removes any sparkling effects to player", 1, "Member", false, function(Speaker, Rank, Arguments)
  3050. local Players = STRING:Scan(Arguments[1], Speaker)
  3051. for _,Player in pairs(Players) do
  3052. if Player.Character and Player.Character:FindFirstChild("Torso") then
  3053. for _,Get in pairs(Player.Character.Torso:GetChildren()) do
  3054. if Get:IsA("Sparkles") then
  3055. Get:Destroy()
  3056. end
  3057. end
  3058. end
  3059. end
  3060. end};
  3061.  
  3062. [{"nofire", "unfire"}] = {"player", "Removes player's fire effects", 1, "Member", false, function(Speaker, Rank, Arguments)
  3063. local Players = STRING:Scan(Arguments[1], Speaker)
  3064. for _,Player in pairs(Players) do
  3065. if Player.Character and Player.Character:FindFirstChild("Torso") then
  3066. for _,Get in pairs(Player.Character.Torso:GetChildren()) do
  3067. if Get:IsA("Fire") then
  3068. Get:Destroy()
  3069. end
  3070. end
  3071. end
  3072. end
  3073. end};
  3074.  
  3075. [{"nosmoke", "unsmoke"}] = {"player", "Removes player's smoke effects", 1, "Member", false, function(Speaker, Rank, Arguments)
  3076. local Players = STRING:Scan(Arguments[1], Speaker)
  3077. for _,Player in pairs(Players) do
  3078. if Player.Character and Player.Character:FindFirstChild("Torso") then
  3079. for _,Get in pairs(Player.Character.Torso:GetChildren()) do
  3080. if Get:IsA("Smoke") then
  3081. Get:Destroy()
  3082. end
  3083. end
  3084. end
  3085. end
  3086. end};
  3087.  
  3088. [{"explode", "explosion"}] = {"player", "Explodes player and everything around player", 1, "Member", false, function(Speaker, Rank, Arguments)
  3089. local Players = STRING:Scan(Arguments[1], Speaker)
  3090. for _,Player in pairs(Players) do
  3091. if Player.Character and Player.Character:FindFirstChild("Torso") then
  3092. SOUND:MakeSound(Player.Character.Torso, 187137543, 1, 1, false):Play()
  3093. local Boom = Instance.new("Explosion", Workspace)
  3094. Boom.Position = Player.Character.Torso.Position
  3095. end
  3096. end
  3097. end};
  3098.  
  3099. [{"splode", "smite"}] = {"player", "Explodes player 50 times and everything around player", 1, "Member", false, function(Speaker, Rank, Arguments)
  3100. local Players = STRING:Scan(Arguments[1], Speaker)
  3101. for _,Player in pairs(Players) do
  3102. if Player.Character and Player.Character:FindFirstChild("Torso") then
  3103. coroutine.wrap(function() for i = 1,50 do
  3104. local Boom = Instance.new("Explosion", Workspace)
  3105. Boom.Position = Player.Character.Torso.Position
  3106. wait()
  3107. end end)()
  3108. coroutine.wrap(function() for i = 1,5 do
  3109. SOUND:MakeSound(Player.Character.Torso, 187137543, 1, 1, false):Play()
  3110. end end)()
  3111. end
  3112. end
  3113. end};
  3114.  
  3115. [{"superjump", "nograv", "lowgrav"}] = {"player", "Enables player to be able to jump super high", 1, "Member", false, function(Speaker, Rank, Arguments)
  3116. local Players = STRING:Scan(Arguments[1], Speaker)
  3117. for _,Player in pairs(Players) do
  3118. if Player.Character and Player.Character:FindFirstChild("Torso") then
  3119. local Force = Player.Character.Torso:FindFirstChild("LMM SJ") if Force then Force:Destroy() end
  3120. Force = Instance.new("BodyForce", Player.Character.Torso) Force.Name = "LMM SJ" Force.force = Vector3.new(0,0,0)
  3121. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj) Force.force = Force.force + Vector3.new(0,Obj:GetMass() * 150,0) end)
  3122. end
  3123. end
  3124. end};
  3125.  
  3126. [{"normaljump", "grav", "nosuperjump", "unsuperjump"}] = {"player", "Disables player to be able to jump super high", 1, "Member", false, function(Speaker, Rank, Arguments)
  3127. local Players = STRING:Scan(Arguments[1], Speaker)
  3128. for _,Player in pairs(Players) do
  3129. if Player.Character and Player.Character:FindFirstChild("Torso") then
  3130. local Force = Player.Character.Torso:FindFirstChild("LMM SJ") if Force then Force:Destroy() end
  3131. end
  3132. end
  3133. end};
  3134.  
  3135. [{"punish"}] = {"player", "Punishes player by removing player's character", 1, "Member", false, function(Speaker, Rank, Arguments)
  3136. local Players = STRING:Scan(Arguments[1], Speaker)
  3137. for _,Player in pairs(Players) do
  3138. if Player.Character then
  3139. Player.Character.Parent = Server.Lighting
  3140. end
  3141. end
  3142. end};
  3143.  
  3144. [{"nopunish", "unpunish"}] = {"player", "Undoes the punish effect on player", 1, "Member", false, function(Speaker, Rank, Arguments)
  3145. local Players = STRING:Scan(Arguments[1], Speaker)
  3146. for _,Player in pairs(Players) do
  3147. if Player.Character then
  3148. Player.Character.Parent = Server.Workspace
  3149. Player.Character:MakeJoints()
  3150. end
  3151. end
  3152. end};
  3153.  
  3154. [{"stun", "platformstand"}] = {"player", "Stuns player so he cannot move", 1, "Member", false, function(Speaker, Rank, Arguments)
  3155. local Players = STRING:Scan(Arguments[1], Speaker)
  3156. for _,Player in pairs(Players) do
  3157. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  3158. Player.Character.Humanoid.PlatformStand = true
  3159. end
  3160. end
  3161. end};
  3162.  
  3163. [{"nostun", "unstun", "noplatformstand", "unplatformstand", "stand"}] = {"player", "Undoes the stun effect on player", 1, "Member", false, function(Speaker, Rank, Arguments)
  3164. local Players = STRING:Scan(Arguments[1], Speaker)
  3165. for _,Player in pairs(Players) do
  3166. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  3167. Player.Character.Humanoid.PlatformStand = false
  3168. end
  3169. end
  3170. end};
  3171.  
  3172. [{"jump"}] = {"player", "Makes player jump", 1, "Member", false, function(Speaker, Rank, Arguments)
  3173. local Players = STRING:Scan(Arguments[1], Speaker)
  3174. for _,Player in pairs(Players) do
  3175. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  3176. Player.Character.Humanoid.Jump = true
  3177. end
  3178. end
  3179. end};
  3180.  
  3181. [{"sit", "sitdown"}] = {"player", "Makes player sit down", 1, "Member", false, function(Speaker, Rank, Arguments)
  3182. local Players = STRING:Scan(Arguments[1], Speaker)
  3183. for _,Player in pairs(Players) do
  3184. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  3185. Player.Character.Humanoid.Sit = true
  3186. end
  3187. end
  3188. end};
  3189.  
  3190. [{"nosit", "unsit", "nositdown", "unsitdown", "stand", "standup"}] = {"player", "Makes player stand up if sitting down", 1, "Member", false, function(Speaker, Rank, Arguments)
  3191. local Players = STRING:Scan(Arguments[1], Speaker)
  3192. for _,Player in pairs(Players) do
  3193. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  3194. Player.Character.Humanoid.Sit = false
  3195. end
  3196. end
  3197. end};
  3198.  
  3199. [{"spin", "turn", "spinaround"}] = {"player", "Makes player spin around", 1, "Member", false, function(Speaker, Rank, Arguments)
  3200. local Players = STRING:Scan(Arguments[1], Speaker)
  3201. for _,Player in pairs(Players) do
  3202. if Player.Character and Player.Character:FindFirstChild("Torso") then
  3203. 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)
  3204. end
  3205. end
  3206. end};
  3207.  
  3208. [{"nospin", "unspin", "noturn", "unturn", "nospinaround", "unspinaround"}] = {"player", "Stops player from spinning around", 1, "Member", false, function(Speaker, Rank, Arguments)
  3209. local Players = STRING:Scan(Arguments[1], Speaker)
  3210. for _,Player in pairs(Players) do
  3211. if Player.Character and Player.Character:FindFirstChild("Torso") then
  3212. local Spin = Player.Character.Torso:FindFirstChild("MML Spin") if Spin then Spin:Destroy() end
  3213. end
  3214. end
  3215. end};
  3216.  
  3217. [{"port"}] = {"", "Gets the server network port", 0, "Owner", false, function(Speaker, Rank, Arguments)
  3218. GUI:SendMessage(Speaker, "Server Port", "The server port for this server is: "..Server.NS.Port, "Information")
  3219. end};
  3220.  
  3221. [{"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)
  3222. local Color = "Blue"
  3223. local String = Arguments[2]
  3224. local ChatSplit = STRING:GetSplit(String, 1, Settings.Bet)
  3225. if #ChatSplit >= 2 then
  3226. if string.lower(ChatSplit[1]) == "green" then
  3227. Color = "Green"
  3228. String = ChatSplit[2]
  3229. elseif string.lower(ChatSplit[1]) == "red" then
  3230. Color = "Red"
  3231. String = ChatSplit[2]
  3232. end
  3233. end
  3234. local Players = STRING:Scan(Arguments[1], Speaker)
  3235. for _,Player in pairs(Players) do
  3236. if Player.Character and Player.Character:FindFirstChild("Head") then
  3237. game:GetService("Chat"):Chat(Player.Character.Head, STRING:DetermineFilter(String, Speaker, Player), Color)
  3238. end
  3239. end
  3240. end};
  3241.  
  3242. [{"missile", "mis", "rocket"}] = {"player", "Turns player into a missile. Use with care!", 1, "Admin", true, function(Speaker, Rank, Arguments)
  3243. local Players = STRING:Scan(Arguments[1], Speaker)
  3244. for _,Player in pairs(Players) do
  3245. if Player.Character then
  3246. CORE:ExecuteResource("Missile", Player.Character, {["Color"] = GUI:GetColor()})
  3247. end
  3248. end
  3249. end};
  3250.  
  3251. [{"face"}] = {"player num(ID)", "Changes player's faces player num(ID) (must be decal/image)", 2, "Member", false, function(Speaker, Rank, Arguments)
  3252. local Players = STRING:Scan(Arguments[1], Speaker)
  3253. local ID = nil
  3254. if tonumber(Arguments[2]) ~= nil then
  3255. ID = MARKET:GetImageFormat(tonumber(Arguments[2]))
  3256. else
  3257. 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
  3258. for _,Face in pairs(FaceTable) do
  3259. if string.lower(Arguments[2]) == string.lower(Face) then
  3260. ID = FaceID
  3261. break
  3262. end
  3263. end
  3264. end
  3265. end
  3266. if ID then
  3267. for _,Player in pairs(Players) do
  3268. if Player.Character and Player.Character:FindFirstChild("Head") and Player.Character.Head:FindFirstChild("face") then
  3269. Player.Character.Head.face.Texture = "rbxassetid://"..ID
  3270. pcall(function() Player.Character.Label:GetChildren()[1].Head.Texture = "rbxassetid://"..ID end)
  3271. end
  3272. end
  3273. end
  3274. end};
  3275.  
  3276. [{"overlay", "ol"}] = {"player num(ID)", "Turns player's head into a 2D images of num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  3277. local Players = STRING:Scan(Arguments[1], Speaker)
  3278. local ID = MARKET:GetImageFormat(tonumber(Arguments[2]))
  3279. for _,Player in pairs(Players) do
  3280. if Player.Character and Player.Character:FindFirstChild("Head") then
  3281. local BB = Player.Character.Head:FindFirstChild("MMLA Overlay") if BB then BB:Destroy() end
  3282. 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
  3283. 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)
  3284. end
  3285. end
  3286. end};
  3287.  
  3288. [{"nooverlay", "unoverlay", "nool", "unol"}] = {"player", "Removes any overlay on player's head from the overlay command", 1, "Member", false, function(Speaker, Rank, Arguments)
  3289. local Players = STRING:Scan(Arguments[1], Speaker)
  3290. for _,Player in pairs(Players) do
  3291. if Player.Character and Player.Character:FindFirstChild("Head") then
  3292. local BB = Player.Character.Head:FindFirstChild("MMLA Overlay") if BB then BB:Destroy() end
  3293. end
  3294. end
  3295. end};
  3296.  
  3297. [{"notify"}] = {"string", "Sends string as a packet to the owner remotely", 1, "Admin", false, function(Speaker, Rank, Arguments)
  3298. REMOTE:SendHttpLog(Speaker.Name.." Sent Notification: "..Arguments[1], "NOTIFICATION", Speaker)
  3299. end, Http = true};
  3300.  
  3301. [{"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)
  3302. GUI:ListGui(Speaker, "Http Logs", CORE:ReverseTable(REMOTE:DownloadUserdata(false).Logs), "Log")
  3303. end, Http = true};
  3304.  
  3305. [{"note"}] = {"player string", "Saves string to player to all servers", 2, "Admin", false, function(Speaker, Rank, Arguments)
  3306. local Players = STRING:Scan(Arguments[1], Speaker)
  3307. for _,Player in pairs(Players) do
  3308. local ExistingData = Player:LoadInstance("Data")
  3309. if ExistingData == nil then
  3310. ExistingData = Instance.new("Configuration")
  3311. end
  3312. ExistingData.Name = "Player Data"
  3313. local Key = Instance.new("Configuration", ExistingData)
  3314. Key.Name = Arguments[2]
  3315. Player:SaveInstance("Data", ExistingData)
  3316. end
  3317. end};
  3318.  
  3319. [{"removenote", "noteremove"}] = {"player string", "Removes any note starting with string", 2, "Admin", false, function(Speaker, Rank, Arguments)
  3320. local Players = STRING:Scan(Arguments[1], Speaker)
  3321. local Data = Arguments[2]
  3322. for _,Player in pairs(Players) do
  3323. local ExistingData = Player:LoadInstance("Data")
  3324. if ExistingData ~= nil then
  3325. if string.lower(Data) == "all" then
  3326. ExistingData:ClearAllChildren()
  3327. else
  3328. for _,DataObj in pairs(ExistingData:GetChildren()) do
  3329. if string.sub(string.lower(DataObj.Name),1,#Data) == string.lower(Data) then
  3330. DataObj:Destroy()
  3331. end
  3332. end
  3333. end
  3334. end
  3335. Player:SaveInstance("Data", ExistingData)
  3336. end
  3337. end};
  3338.  
  3339. [{"shownotes", "shownote", "loadnotes", "loadnote", "notes", "getnotes", "getnote"}] = {"player", "Shows the saved notes of player", 1, "Member", false, function(Speaker, Rank, Arguments)
  3340. local Players = STRING:Scan(Arguments[1], Speaker)
  3341. local DataSet = {}
  3342. for _,Player in pairs(Players) do
  3343. local ExistingData = Player:LoadInstance("Data")
  3344. if ExistingData ~= nil then
  3345. if #ExistingData:GetChildren() ~= 0 then
  3346. for _,Data in pairs(ExistingData:GetChildren()) do
  3347. table.insert(DataSet, Player.Name..": "..Data.Name)
  3348. end
  3349. else
  3350. table.insert(DataSet, "Data does not exist for "..Player.Name)
  3351. end
  3352. else
  3353. table.insert(DataSet, "Data does not exist for "..Player.Name)
  3354. end
  3355. end
  3356. GUI:ListGui(Speaker, "Notes", DataSet)
  3357. end};
  3358.  
  3359. [{"forwards", "forward"}] = {"player", "Makes player walk forward at normal walkspeed", 1, "Member", false, function(Speaker, Rank, Arguments)
  3360. local Players = STRING:Scan(Arguments[1], Speaker)
  3361. for _,Player in pairs(Players) do
  3362. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  3363. Player.Character.Humanoid.WalkSpeed = 16
  3364. end
  3365. end
  3366. end};
  3367.  
  3368. [{"backwards", "backward"}] = {"player", "Makes player walk backwards(reverse keys) at normal walkspeed", 1, "Member", true, function(Speaker, Rank, Arguments)
  3369. local Players = STRING:Scan(Arguments[1], Speaker)
  3370. for _,Player in pairs(Players) do
  3371. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  3372. Player.Character.Humanoid.WalkSpeed = -16
  3373. end
  3374. end
  3375. end};
  3376.  
  3377. [{"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)
  3378. local TeamColor = BrickColor.random()
  3379. local TeamName = Arguments[1]
  3380. local TeamNameSplit = STRING:GetSplit(TeamName, 1, " ")
  3381. if #TeamNameSplit >= 2 then
  3382. local Color = TeamNameSplit[1]
  3383. local NewTeamName = TeamNameSplit[2]
  3384. if Color == "Medium stone grey" then
  3385. TeamColor = BrickColor.new(Color)
  3386. TeamName = NewTeamName
  3387. elseif BrickColor.new(Color) ~= BrickColor.new("Medium stone grey") then
  3388. TeamColor = BrickColor.new(Color)
  3389. TeamName = NewTeamName
  3390. elseif Colors[string.upper(Color)] then
  3391. TeamColor = BrickColor.new(GUI:GetColor(string.upper(Color)))
  3392. TeamName = NewTeamName
  3393. end
  3394. end
  3395.  
  3396. local NewTeam = Instance.new("Team", Server.Teams)
  3397. NewTeam.TeamColor = TeamColor
  3398. NewTeam.Name = TeamName
  3399. end};
  3400.  
  3401. [{"leaveteam", "teamleave"}] = {"player", "Makes player be on no team", 1, "Member", false, function(Speaker, Rank, Arguments)
  3402. local Players = STRING:Scan(Arguments[1], Speaker)
  3403. for _,Player in pairs(Players) do
  3404. Player.Neutral = true
  3405. end
  3406. end};
  3407.  
  3408. [{"team", "teamjoin", "jointeam"}] = {"player string", "Makes it so player joints team string", 2, "Member", false, function(Speaker, Rank, Arguments)
  3409. local Players = STRING:Scan(Arguments[1], Speaker)
  3410. if string.lower(Arguments[2]) == "none" then
  3411. for _,Player in pairs(Players) do
  3412. Player.Neutral = true
  3413. end
  3414. else
  3415. for _,Obj in pairs(Server.Teams:GetChildren()) do
  3416. if Obj:IsA("Team") then
  3417. if string.sub(string.lower(Obj.Name),1,#Arguments[2]) == string.lower(Arguments[2]) then
  3418. for _,Player in pairs(Players) do
  3419. Player.Neutral = false
  3420. Player.TeamColor = Obj.TeamColor
  3421. end
  3422. end
  3423. end
  3424. end
  3425. end
  3426. end};
  3427.  
  3428. [{"noteam", "unteam", "nonewteam", "unnewteam"}] = {"string", "Finds the team named string and removes it", 1, "Member", false, function(Speaker, Rank, Arguments)
  3429. for _,Obj in pairs(Server.Teams:GetChildren()) do
  3430. if Obj:IsA("Team") then
  3431. if string.sub(string.lower(Obj.Name),1,#Arguments[1]) == string.lower(Arguments[1]) then
  3432. for _,Player in pairs(Server.Players:GetPlayers()) do
  3433. if Player.TeamColor == Obj.TeamColor then
  3434. Player.Neutral = true
  3435. end
  3436. end
  3437. Obj:Destroy()
  3438. end
  3439. end
  3440. end
  3441. end};
  3442.  
  3443. [{"clearteams", "cleanteams"}] = {"", "Clears all teams", 0, "Member", false, function(Speaker, Rank, Arguments)
  3444. for _,Player in pairs(Server.Players:GetPlayers()) do
  3445. Player.Neutral = true
  3446. end
  3447. for _,Obj in pairs(Server.Teams:GetChildren()) do
  3448. if Obj:IsA("Team") then
  3449. Obj:Destroy()
  3450. end
  3451. end
  3452. end};
  3453.  
  3454. [{"countdown", "count", "ticker"}] = {"num", "Counts down an alarm from num", 1, "Member", false, function(Speaker, Rank, Arguments)
  3455. for _,Player in pairs(Server.Players:GetPlayers()) do
  3456. GUI:Countdown(Player, Arguments[1])
  3457. end
  3458. end};
  3459.  
  3460. [{"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)
  3461. local Players = STRING:Scan(Arguments[1], Speaker)
  3462. for _,Player in pairs(Players) do
  3463. if Player:FindFirstChild("Backpack") then
  3464. CORE:ExecuteResource("ShowAd", Player.Backpack)
  3465. end
  3466. end
  3467. end};
  3468.  
  3469. [{"warp", "warpto"}] = {"player string", "Warps player to the point of string", 2, "Member", false, function(Speaker, Rank, Arguments)
  3470. local Players = STRING:Scan(Arguments[1], Speaker)
  3471. for _,Player in pairs(Players) do
  3472. if Player.Character then
  3473. for PosName,WP in pairs(Waypoints) do
  3474. if string.sub(string.lower(PosName),1,#Arguments[2]) == string.lower(Arguments[2]) then
  3475. Player.Character:MoveTo(WP + Vector3.new(0,0.5,0))
  3476. break
  3477. end
  3478. end
  3479. end
  3480. end
  3481. end};
  3482.  
  3483. [{"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)
  3484. CORE:AddWaypoint(Arguments[1], Vector3.new(Arguments[2], Arguments[3], Arguments[4]), Speaker)
  3485. end};
  3486.  
  3487. [{"removewaypoint", "deletewaypoint", "destroywaypoint", "nowaypoint", "unwaypoint"}] = {"string", "Removes any waypoint named string", 1, "Member", false, function(Speaker, Rank, Arguments)
  3488. local Num = 0
  3489. for PosName,WP in pairs(Waypoints) do
  3490. Num = Num + 1
  3491. if string.sub(string.lower(PosName),1,#Arguments[1]) == Arguments[1] then
  3492. Waypoints[PosName] = nil
  3493. end
  3494. end
  3495. end};
  3496.  
  3497. [{"waypoints", "viewwaypoints", "waypointlist", "listwaypoints"}] = {"", "Views all waypoints to warp to", 0, "Member", false, function(Speaker, Rank, Arguments)
  3498. local WaypointHolder,WaypointRaw = {},{}
  3499. for Name, WP in pairs(Waypoints) do
  3500. local View = Name..": "..tostring(WP)
  3501. table.insert(WaypointHolder, View)
  3502. WaypointRaw[View] = WP
  3503. end
  3504. local Clicked = GUI:ListGui(Speaker, "Waypoint List", WaypointHolder, "Map")
  3505. Clicked.Event:connect(function(Text)
  3506. local Waypoint = WaypointRaw[Text]
  3507. if Waypoint then
  3508. if Speaker.Character then
  3509. Speaker.Character:MoveTo(Waypoint)
  3510. end
  3511. end
  3512. end)
  3513. end};
  3514.  
  3515. [{"list", "listplayer", "listplayers"}] = {"player", "Lists the player(s) in a gui list", 1, "Member", false, function(Speaker, Rank, Arguments)
  3516. local Players = STRING:Scan(Arguments[1], Speaker)
  3517. local List = {}
  3518. for _,Player in pairs(Players) do
  3519. table.insert(List, Player.Name.." (ID: "..Player.UserId..")")
  3520. end
  3521. GUI:ListGui(Speaker, "Listed Players", List)
  3522. end};
  3523.  
  3524. [{"givepoints"}] = {"player num", "Gives num playerpoints to player", 2, "Owner", false, function(Speaker, Rank, Arguments)
  3525. if tonumber(Arguments[1]) then
  3526. ypcall(function() Server.PS:AwardPoints(tonumber(Arguments[1]), tonumber(Arguments[2])) end)
  3527. else
  3528. local Players = STRING:Scan(Arguments[1], Speaker)
  3529. for _,Player in pairs(Players) do
  3530. ypcall(function() Server.PS:AwardPoints(Player.UserId, tonumber(Arguments[2])) end)
  3531. end
  3532. end
  3533. end};
  3534.  
  3535. [{"friends", "getfriends", "listfriends", "showfriends"}] = {"player", "Shows all the friends player is friends with in the server", 1, "Member", false, function(Speaker, Rank, Arguments)
  3536. local Players = STRING:Scan(Arguments[1], Speaker)
  3537. local Friends,OneFriend = {}, false
  3538. for _,Player in pairs(Players) do
  3539. for _,User in pairs(Server.Players:GetPlayers()) do if User ~= Player then
  3540. --[[if Player:IsBestFriendsWith(User.UserId) then
  3541. table.insert(Friends, Player.Name.." is best friends with "..User.Name)
  3542. OneFriend = true
  3543. ]]
  3544. if Player:IsFriendsWith(User.UserId) then
  3545. table.insert(Friends, Player.Name.." is friends with "..User.Name)
  3546. OneFriend = true
  3547. end
  3548. if _ == #Server.Players:GetPlayers() and OneFriend == false then
  3549. table.insert(Friends, Player.Name.." has no friends in this server (Loner)")
  3550. end
  3551. end end
  3552. end
  3553. GUI:ListGui(Speaker, "Friend List", Friends)
  3554. end};
  3555.  
  3556. [{"serverlock", "lockserver"}] = {"", "Locks the server to prevent non-admins from joining", 0, "Owner", false, function(Speaker, Rank, Arguments)
  3557. Settings.ServerLocked = true
  3558. GUI:MessageAdmins("Server Locked", "The server has been locked. Only admins can join at this point.", 10, "Lock")
  3559. end};
  3560.  
  3561. [{"noserverlock", "unserverlock", "unlockserver", "nolockserver", "nolock", "unlock"}] = {"", "Unlocks the server to enable non-admin joining", 0, "Owner", false, function(Speaker, Rank, Arguments)
  3562. Settings.ServerLocked = false
  3563. GUI:MessageAdmins("Server Unlocked", "The server has been unlocked. Anyone not banned or crashed can join", 10, 11344402)
  3564. end};
  3565.  
  3566. [{"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)
  3567. local OldAge = Settings.MinimumAge
  3568. local Age = tostring(Arguments[1])
  3569. if Age then
  3570. Settings.MinimumAge = Age
  3571. GUI:MessageAdmins("Minumum age change", "The minimum age required to join this server is now "..Age.." days old(was "..OldAge.." days old)", 10)
  3572. end
  3573. end};
  3574.  
  3575. [{"vipadmin", "adminvip"}] = {"", "Prompts speaker the VIP item to grant Admin level permissions", 0, "Non-Admin", false, function(Speaker, Rank, Arguments)
  3576. if Settings.VIPAdminID <= 1 then
  3577. MARKET:PromptPurchase(Speaker, VIPAdminID)
  3578. else
  3579. CORE:SendMessage(Speaker, "No Admin VIP", "The creator ("..GameOwner..") did not add a admin rank VIP to Make".."rModelLua's Admin", 7)
  3580. end
  3581. end};
  3582.  
  3583. [{"vipmember", "membervip"}] = {"", "Prompts speaker the VIP item to grant Member level permissions", 0, "Non-Admin", false, function(Speaker, Rank, Arguments)
  3584. if Settings.VIPMemberID <= 1 then
  3585. MARKET:PromptPurchase(Speaker, VIPMemberID)
  3586. else
  3587. CORE:SendMessage(Speaker, "No Member VIP", "The creator ("..GameOwner..") did not add a member rank VIP to Make".."rModelLua's Admin", 7)
  3588. end
  3589. end};
  3590.  
  3591. [{"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)
  3592. if tonumber(Arguments[2]) then
  3593. local Players = STRING:Scan(Arguments[1], Speaker)
  3594. local Size = tonumber(Arguments[2])+25
  3595. for _,Player in pairs(Players) do
  3596. if Player.Character then
  3597. if Player.Character:FindFirstChild("Head") then
  3598. if Player.Character.Head:FindFirstChild("Mesh") then
  3599. Player.Character.Head.Mesh.Scale = Vector3.new(Size/100,Size/100,Size/100)
  3600. end
  3601. end
  3602. end
  3603. end
  3604. end
  3605. end};
  3606.  
  3607. [{"control"}] = {"player", "Allows speaker to take control of player", 1, "Member", false, function(Speaker, Rank, Arguments)
  3608. local Players = STRING:Scan(Arguments[1], Speaker)
  3609. for _,Player in pairs(Players) do
  3610. if Player.Character and Player.Character:FindFirstChild("Torso") then
  3611. CORE:ChangeCharacter(Speaker, Player.UserId, false, Speaker, true, Player.Character.Torso.Position)
  3612. Player.Character.Parent = nil
  3613. CORE:ExecuteResource("CameraControl", Player.Backpack, {["Speaker"] = Speaker})
  3614. end
  3615. end
  3616. end};
  3617.  
  3618. [{"settings"}] = {"", "Shows settings to speaker. If high enough rank, the speaker can edit settings", 0, "Non-Admin", false, function(Speaker, Rank, Arguments)
  3619. GUI:SettingsGui(Speaker)
  3620. end};
  3621.  
  3622. [{"hasasset", "ownsasset"}] = {"player num(ID)", "Shows if player has asset num(ID)", 2, "Member", false, function(Speaker, Rank, Arguments)
  3623. if tonumber(Arguments[2]) then
  3624. local Players = STRING:Scan(Arguments[1], Speaker)
  3625. local List = {}
  3626. for _,Player in pairs(Players) do
  3627. if Server.MPS:PlayerOwnsAsset(Player, tonumber(Arguments[2])) then
  3628. table.insert(List, Player.Name)
  3629. end
  3630. end
  3631. GUI:ListGui(Speaker, "Players who have asset ID: "..Arguments[2], List, 23916171)
  3632. end
  3633. end};
  3634.  
  3635. [{"reck", "rek", "rekt", "shrekt", "wreck", "noscope", "mlg"}] = {"player", "rekts player in a haxy way", 1, "Member", true, function(Speaker, Rank, Arguments)
  3636. local Players = STRING:Scan(Arguments[1], Speaker)
  3637. for _,Player in pairs(Players) do
  3638. if Player.Character and Player.Character:FindFirstChild("Head") then
  3639. local Char = Player.Character
  3640. Char:BreakJoints()
  3641. CORE:ScanItems(Char, {"BasePart"}, function(Obj)
  3642. Obj.Anchored = true
  3643. for _,Face in pairs({"Top", "Bottom", "Right", "Left", "Front", "Back"}) do
  3644. local Decal = Instance.new("Decal", Obj)
  3645. Decal.Texture = "rbxassetid://178913323"
  3646. Decal.Face = Face
  3647. end
  3648. end)
  3649. local Sound1 = SOUND:MakeSound(Char.Head, 131509782, 1, 1)
  3650. local Sound2 = SOUND:MakeSound(Char.Head, 179497874, 1, 1)
  3651. Sound1:Play() Sound2:Play()
  3652. coroutine.wrap(function()
  3653. coroutine.wrap(function() wait(4.9) Sound1:Stop() Sound2:Stop() end)()
  3654. repeat wait()
  3655. CORE:ScanItems(Char, {"BasePart"}, function(Obj)
  3656. SOUND:MakeSound(Char.Head, "rbxasset://sounds/uuhhh.mp3", 1, math.random(80,120)/100):Play()
  3657. Obj.Transparency = math.random(0,30)/100
  3658. Obj.Reflectance = math.random(0,50)/100
  3659. 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)))
  3660. end)
  3661. until Char ~= Player.Character or Char.Parent == nil
  3662. end)()
  3663. end
  3664. end
  3665. end, Hidden = true};
  3666.  
  3667. [{"define", "lookup", "definition"}] = {"string", "Looks up the word on webster's online dictionary", 1, "Member", false, function(Speaker, Rank, Arguments)
  3668. GUI:SendMessage(Speaker, "Definition of "..Arguments[1], REMOTE:DefineWord(Arguments[1]), 185923691)
  3669. end, Http = true};
  3670.  
  3671. [{"neon", "glow"}] = {"player", "Makes player glow like a neon light", 1, "Member", false, function(Speaker, Rank, Arguments)
  3672. local Players = STRING:Scan(Arguments[1], Speaker)
  3673. for _,Player in pairs(Players) do
  3674. if Player.Character then
  3675. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj)
  3676. Obj.Material = "Neon"
  3677. end)
  3678. end
  3679. end
  3680. end};
  3681.  
  3682. [{"noneon", "noglow", "unneon", "unglow"}] = {"player", "Removes any glowing neon from player", 1, "Member", false, function(Speaker, Rank, Arguments)
  3683. local Players = STRING:Scan(Arguments[1], Speaker)
  3684. for _,Player in pairs(Players) do
  3685. if Player.Character then
  3686. CORE:ScanItems(Player.Character, {"BasePart"}, function(Obj)
  3687. Obj.Material = "Plastic"
  3688. end)
  3689. end
  3690. end
  3691. end};
  3692.  
  3693. [{"asd", "swag"}] = {"player", "Makes player look like a swagger", 1, "Member", true, function(Speaker, Rank, Arguments)
  3694. local Players = STRING:Scan(Arguments[1], Speaker)
  3695. for _,Player in pairs(Players) do
  3696. if Player.Character then
  3697. CORE:ScanItems(Player.Character, {"JointInstance"}, function(Obj)
  3698. Obj.C0 = Obj.C0 * CFrame.new(math.random(-5,5),math.random(0,5),math.random(-5,5))
  3699. end)
  3700. end
  3701. end
  3702. end, Hidden = true};
  3703.  
  3704. [{"getpos", "getposition", "playerpos", "playerposition"}] = {"player", "Gets player's position and prompts to add it to waypoints", 1, "Admin", false, function(Speaker, Rank, Arguments)
  3705. local Players = STRING:Scan(Arguments[1], Speaker)
  3706. for _,Player in pairs(Players) do
  3707. if Player.Character and Player.Character:FindFirstChild("Torso") then
  3708. local Pos = Player.Character.Torso.Position
  3709. Pos = Vector3.new(CORE:Round(Pos.X), CORE:Round(Pos.Y), CORE:Round(Pos.Z))
  3710. 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"})
  3711. if Answer == "Ok" then
  3712. CORE:AddWaypoint(Player.Name, Pos, Speaker)
  3713. end
  3714. end
  3715. end
  3716. end};
  3717.  
  3718. [{"point", "find", "laser"}] = {"player1 player2", "Creates a laser that points from player1 to player2", 2, "Member", false, function(Speaker, Rank, Arguments)
  3719. local PlayersFrom = STRING:Scan(Arguments[1], Speaker)
  3720. local PlayersTo = STRING:Scan(Arguments[2], Speaker)
  3721. if PlayersFrom and PlayersTo then
  3722. for _,PlayerFrom in pairs(PlayersFrom) do
  3723. for _,PlayerTo in pairs(PlayersTo) do
  3724. if PlayerFrom.Character and PlayerTo.Character then
  3725. if PlayerFrom.Character:FindFirstChild("Humanoid") and PlayerTo.Character:FindFirstChild("Torso") then coroutine.wrap(function()
  3726. local Laser = Instance.new("SelectionPartLasso", PlayerFrom.Character) Laser.Humanoid = PlayerFrom.Character.Humanoid Laser.Part = PlayerTo.Character.Torso Laser.Color = GUI:GetNameColor(PlayerTo.Name)
  3727. wait(5)
  3728. Laser:Destroy()
  3729. end)() end
  3730. end
  3731. end
  3732. end
  3733. end
  3734. end};
  3735.  
  3736. [{"ragdoll", "rag"}] = {"player", "Makes player a ragdoll(Removes humanoid)", 1, "Member", false, function(Speaker, Rank, Arguments)
  3737. local Players = STRING:Scan(Arguments[1], Speaker)
  3738. for _,Player in pairs(Players) do
  3739. if Player.Character and Player.Character:FindFirstChild("Humanoid") then
  3740. Player.Character.Humanoid:Destroy()
  3741. end
  3742. end
  3743. end};
  3744.  
  3745. [{"plugins", "getplugins", "pluginlist"}] = {"", "Shows plugins", 0, "Admin", false, function(Speaker, Rank, Arguments)
  3746. if Plugins then
  3747. local List = {}
  3748. for _,Module in pairs(Plugins:GetChildren()) do
  3749. if Module:IsA("ModuleScript") then
  3750. local Enabled = Module:FindFirstChild("Enabled") or {Value = false}
  3751. local Creator = Module:FindFirstChild("Creator") or {Value = "None"}
  3752. local VersionVal = Module:FindFirstChild("Version") or {Value = 1}
  3753. table.insert(List, Module.Name.." V"..VersionVal.Value.." by "..Creator.Value.." | RUNNING: "..STRING:BoolString(Enabled.Value))
  3754. end
  3755. end
  3756. GUI:ListGui(Speaker, "Plugin List", List, "Plugin")
  3757. else
  3758. GUI:SendMessage(Speaker, "Cannot get plugins", "Could not find plugin directory", "Notice", 5)
  3759. end
  3760. end};
  3761.  
  3762. [{"detachchat", "detachc", "dchat", "dc"}] = {"player", "Detaches player's roblox chat gui into a MMLA gui", 1, "Admin", false, function(Speaker, Rank, Arguments)
  3763. local Players = STRING:Scan(Arguments[1], Speaker)
  3764. for _,Player in pairs(Players) do
  3765. GUI:DetachChat(Player)
  3766. end
  3767. end};
  3768.  
  3769. [{"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)
  3770. GUI:DetachChat(Speaker)
  3771. end};
  3772.  
  3773. [{"truck", "runover"}] = {"player", "Runs player over with a truck", 1, "Member", true, function(Speaker, Rank, Arguments)
  3774. local Players = STRING:Scan(Arguments[1], Speaker)
  3775. for _,Player in pairs(Players) do
  3776. if Player.Character and Player.Character:FindFirstChild("Torso") and Player.Character:FindFirstChild("Humanoid") then
  3777. local Dead = false
  3778.  
  3779. Player.Character.Humanoid.WalkSpeed = 1
  3780. local Torso = Player.Character.Torso
  3781. 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
  3782. Truck:BreakJoints()
  3783. local Mesh = Instance.new("SpecialMesh", Truck) Mesh.MeshId = "rbxassetid://52157810" Mesh.TextureId = "rbxassetid://52157085" Mesh.Scale = Vector3.new(11, 11, 11)
  3784. 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))
  3785. 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
  3786. Truck.Touched:connect(function(Part)
  3787. if Dead == false then
  3788. local TouchPlayer = Server.Players:GetPlayerFromCharacter(Part.Parent or Part.Parent.Parent)
  3789. if TouchPlayer == Player then
  3790. Dead = true
  3791. Player.Character:BreakJoints()
  3792. SOUND:MakeSound(Truck, 264486467):Play() -- splat
  3793. end
  3794. end
  3795. end)
  3796. SOUND:MakeSound(Truck, 236746885, 0.5, 2):Play() -- truck
  3797. Delay(1, function() SOUND:MakeSound(Truck, 130802373):Play() end) -- horn
  3798. Delay(5, function()
  3799. Truck:Destroy()
  3800. if Player.Character:FindFirstChild("Humanoid") then
  3801. Player.Character.Humanoid.WalkSpeed = 16
  3802. end
  3803. end)
  3804. end
  3805. end
  3806. end};
  3807.  
  3808. [{"telljoke", "showjoke", "tj", "sj"}] = {"player", "Tells player a random joke", 1, "Admin", true, function(Speaker, Rank, Arguments)
  3809. local Joke = REMOTE:DownloadJoke(Speaker)
  3810. local Players = STRING:Scan(Arguments[1], Speaker)
  3811. for _,Player in pairs(Players) do
  3812. GUI:SendMessage(Player, "Joke", Joke, 19629580)
  3813. end
  3814. end, Http = true};
  3815.  
  3816. [{"joke", "laugh"}] = {"player", "Tells speaker a random joke)", 0, "Member", true, function(Speaker, Rank, Arguments)
  3817. local Joke = REMOTE:DownloadJoke(Speaker)
  3818. GUI:SendMessage(Speaker, "Joke for you", Joke, 19629580)
  3819. end, Http = true};
  3820.  
  3821. [{"doge", "dog"}] = {"player", "Turns player into doge", 1, "Member", true, function(Speaker, Rank, Arguments)
  3822. local Players = STRING:Scan(Arguments[1], Speaker)
  3823. for _,Player in pairs(Players) do
  3824. if Player.Character and Player.Character:FindFirstChild("Torso") and Player.Character:FindFirstChild("Head") and Player.Character:FindFirstChild("Humanoid") then
  3825. CORE:InvisiblePlayer(Player)
  3826. local DogContainer = Instance.new("Model", Player.Character)
  3827. DogContainer.Name = "Doge"
  3828. local Dog = CORE:Insert(257489726, DogContainer, true)
  3829. Dog.Head.Transparency = 0.99
  3830. Dog.Name = Player.Name
  3831. Dog:MoveTo(Player.Character.Torso.Position)
  3832. local Weld = Instance.new("Weld", Dog.Torso)
  3833. Weld.Part0 = Player.Character.Torso
  3834. Weld.Part1 = Dog.Torso
  3835. Weld.C0 = CFrame.new(0,-0.4,0)
  3836. for _,Obj in pairs(Dog:GetChildren()) do
  3837. if Obj:IsA("BasePart") then
  3838. Obj.CanCollide = false
  3839. end
  3840. end
  3841.  
  3842. CORE:ExecuteResource("SetCameraSubject", Dog:FindFirstChild("Humanoid"), {})
  3843. end
  3844. end
  3845. end};
  3846.  
  3847. [{"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)
  3848. local Key = string.lower(string.sub(Arguments[1],1,1))
  3849. KeyBinds[Speaker.UserId][Key] = Arguments[2]
  3850. GUI:SendHint(Speaker, "Binded the '"..Key.."' key to "..Arguments[2])
  3851. end};
  3852.  
  3853. [{"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)
  3854. local Key = string.lower(string.sub(Arguments[1],1,1))
  3855. KeyBinds[Speaker.UserId][Key] = nil
  3856. GUI:SendHint(Speaker, "Unbinded the '"..Key.."' key")
  3857. end};
  3858.  
  3859. [{"clearkeybinds", "clearbinds", "clearb", "clearkeys", "unbindallkeys"}] = {"", "Clears all of speaker's key binds", 0, "Admin", false, function(Speaker, Rank, Arguments)
  3860. KeyBinds[Speaker.UserId] = {}
  3861. GUI:SendHint(Speaker, "Unbinded all keys")
  3862. end};
  3863.  
  3864. [{"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)
  3865. local Players = STRING:Scan(Arguments[1], Speaker)
  3866. local Key = string.lower(string.sub(Arguments[2],1,1))
  3867. for _,Player in pairs(Players) do
  3868. KeyBinds[Player.UserId][Key] = Arguments[3]
  3869. GUI:SendHint(Player, "Binded the '"..Key.."' key to "..Arguments[3])
  3870. end
  3871. end};
  3872.  
  3873. [{"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)
  3874. local Players = STRING:Scan(Arguments[1], Speaker)
  3875. local Key = string.lower(string.sub(Arguments[2],1,1))
  3876. for _,Player in pairs(Players) do
  3877. KeyBinds[Player.UserId][Key] = nil
  3878. GUI:SendHint(Player, "Unbinded the '"..Key.."' key")
  3879. end
  3880. end};
  3881.  
  3882. [{"forceclearkeybinds", "forceclearbinds", "forceclearb", "fclearb", "forceclearkeys", "forceunbindallkeys"}] = {"player", "Clears all of player's key binds", 1, "Owner", false, function(Speaker, Rank, Arguments)
  3883. local Players = STRING:Scan(Arguments[1], Speaker)
  3884. for _,Player in pairs(Players) do
  3885. KeyBinds[Player.UserId] = {}
  3886. GUI:SendHint(Player, "Unbinded all keys")
  3887. end
  3888. end};
  3889.  
  3890. [{"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)
  3891. local Players = STRING:Scan(Arguments[1], Speaker)
  3892. local Binds = {}
  3893. for _,Player in pairs(Players) do
  3894. for Key,Bind in pairs(KeyBinds[Player.UserId]) do
  3895. table.insert(Binds, Player.Name..": '"..Key.."' binds to command: "..Bind)
  3896. end
  3897. end
  3898. GUI:ListGui(Speaker, "Key Bindings", Binds, 218580411)
  3899. end};
  3900.  
  3901. [{"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)
  3902. local ChatSplit = STRING:GetSplit(Arguments[1], 2, Settings.Bet) or {}
  3903. local Players = STRING:Scan(ChatSplit[1], Speaker)
  3904. for _,Player in pairs(Players) do
  3905. if Crowns[Player.UserId] then
  3906. Crowns[Player.UserId]:Destroy()
  3907. Crowns[Player.UserId] = nil
  3908. wait()
  3909. end
  3910. CORE:Crown(Player, ChatSplit[2], ChatSplit[3])
  3911. end
  3912. end};
  3913.  
  3914. [{"nocrown", "uncrown", "decrown"}] = {"player", "Removes player's crown", 1, "Member", false, function(Speaker, Rank, Arguments)
  3915. local Players = STRING:Scan(Arguments[1], Speaker)
  3916. for _,Player in pairs(Players) do
  3917. if Crowns[Player.UserId] then
  3918. Crowns[Player.UserId]:Destroy()
  3919. Crowns[Player.UserId] = nil
  3920. end
  3921. end
  3922. end};
  3923.  
  3924. [{"meshes", "meshlist", "viewmeshes"}] = {"", "Lists meshes to speaker", 0, "Member", false, function(Speaker, Rank, Arguments)
  3925. local MeshList = {}
  3926. for MeshName,Data in pairs(Meshes) do
  3927. table.insert(MeshList, string.upper(string.sub(MeshName,1,1))..string.sub(MeshName,2).." ( ID: "..Data[2].." )")
  3928. end
  3929. GUI:ListGui(Speaker, "Mesh List", MeshList, 186369377)
  3930. end};
  3931.  
  3932. [{"fixsounds", "fixmusic", "fixs"}] = {"", "Scans workspaces and stops any sounds", 0, "Admin", false, function(Speaker, Rank, Arguments)
  3933. CORE:ScanItems(Server.Workspace, {"Sound"}, function(Obj) Obj:Stop() end)
  3934. end};
  3935.  
  3936. [{"santa", "hoho", "christmas"}] = {"player", "Turns player into jolly saint nick!", 1, "Member", true, function(Speaker, Rank, Arguments)
  3937. local Players = STRING:Scan(Arguments[1], Speaker)
  3938. for _,Player in pairs(Players) do
  3939. if Player.Character and Player.Character:FindFirstChild("Head") and Player.Character.Head:FindFirstChild("face") then
  3940. ypcall(function() Player.Character.Torso.roblox:Destroy() end)
  3941. Player:ClearCharacterAppearance()
  3942. CORE:GivePackage(Player, 41851073)
  3943. CORE:Insert(19398728, Player.Character, true).Handle.Mesh.TextureId = "rbxassetid://19744384"
  3944. Player.Character.Head.face.Texture = "rbxassetid://7699086"
  3945. end
  3946. end
  3947. end};
  3948.  
  3949. [{"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)
  3950. local Arguments = STRING:GetSplit(Arguments[1], 2, Settings.Bet)
  3951. local Players = STRING:Scan(Arguments[1], Speaker)
  3952. for _,Player in pairs(Players) do
  3953. if Cars[Player.UserId] then Cars[Player.UserId]:Destroy() end
  3954. local Car = CORE:Insert(10479801, Server.Workspace, true)
  3955. local Body = Car["Motor (torque)Chassis"].Part
  3956. Cars[Player.UserId] = Car
  3957. Car:MakeJoints()
  3958. Car.VehicleSeat.MaxSpeed = 50
  3959. Car.VehicleSeat.TurnSpeed = 1.5
  3960. CORE:ScanItems(Car, {"BasePart"}, function(Obj) Obj.Locked = true end)
  3961. if Arguments[2] and GUI:GetColor(Arguments[2]) then
  3962. Body.Color = GUI:GetColor(Arguments[2])
  3963. else
  3964. Body.BrickColor = GUI:GetNameColor(Player.Name)
  3965. end
  3966. for _,Part in pairs(Car["Motor (torque)Chassis"]:GetChildren()) do
  3967. if Part.Name ~= "Part" then
  3968. Part.BrickColor = BrickColor.new("Really black")
  3969. Part.Friction = 0.7
  3970. end
  3971. end
  3972. local Light = Instance.new("SpotLight", Body)
  3973. Light.Face = "Back"
  3974. Light.Brightness = 5
  3975. Light.Range = 20
  3976. Light.Color = Color3.new(0,1,1)
  3977. if Player.Character and Player.Character.Torso then
  3978. Car:MoveTo(Player.Character.Torso.Position + Vector3.new(0, 5, 0))
  3979. Player.Character.Torso.CFrame = CFrame.new(Car.VehicleSeat.CFrame.p + Vector3.new(0, 0.3, 0))
  3980. --[[local Weld = Instance.new("Weld", Car.VehicleSeat)
  3981. Weld.Part0 = Car.VehicleSeat
  3982. Weld.Part1 = Player.Character.Torso
  3983. coroutine.wrap(function() wait(0.1) Weld:Destroy() end)()]]
  3984. Delay(0.4, function()
  3985. Car.VehicleSeat.Velocity = CFrame.new(Car.VehicleSeat.Velocity):toWorldSpace(CFrame.new(0, 0, -25)).p
  3986. wait(0.1)
  3987. Car.VehicleSeat.Velocity = CFrame.new(Car.VehicleSeat.Velocity):toWorldSpace(CFrame.new(0, 0, 25)).p
  3988. end)
  3989. end
  3990. local SoundID = 147944604
  3991. if RANK:GetRank(Player) == "Owner" then
  3992. SoundID = 133313356
  3993. Car.VehicleSeat.MaxSpeed = 80
  3994. Body.Material = "DiamondPlate"
  3995. Car.VehicleSeat.Torque = 11
  3996. end
  3997. local Engine = SOUND:MakeSound(Car.VehicleSeat, SoundID, 0.5, 1, true)
  3998. Engine:Play()
  3999. coroutine.wrap(function() while wait() and Car and Car:FindFirstChild("VehicleSeat") do
  4000. Engine.Pitch = (Car.VehicleSeat.Velocity.magnitude/50) + 1
  4001. end if Engine then Engine:Stop() end end)()
  4002. end
  4003. end};
  4004.  
  4005. [{"nocar", "uncar"}] = {"player", "Removes player's car", 1, "Member", true, function(Speaker, Rank, Arguments)
  4006. local Players = STRING:Scan(Arguments[1], Speaker)
  4007. for _,Player in pairs(Players) do
  4008. if Cars[Player.UserId] then
  4009. Cars[Player.UserId]:Destroy()
  4010. end
  4011. end
  4012. end};
  4013.  
  4014. [{"clearcars", "nocars", "ccars"}] = {"", "Removes all cars", 0, "Member", false, function(Speaker, Rank, Arguments)
  4015. for _,Car in pairs(Cars) do
  4016. Car:Destroy()
  4017. end
  4018. Cars = {}
  4019. end};
  4020.  
  4021. [{"restarttrello", "repairtrello", "reboottrello", "trellorestart", "trellorepair", "trelloreboot"}] = {"", "Restarts trello service. Will repair broken boards/lists/cards if needed.", 0, "Owner", false, function(Speaker, Rank, Arguments)
  4022. ypcall(function() Trello.RequiredLists = REMOTE:Decode(Server.HS:GetAsync("https://api.trello.com/1/boards/"..Trello.AdminBoardID.."/lists", true)) end)
  4023. if #Trello.RequiredLists > 0 then
  4024. print("Restarting Trello")
  4025. Trello.MainBoard = REMOTE:TrelloGetAdminBoard()
  4026. local Lists = REMOTE:TrelloGetAdminLists(Trello.MainBoard)
  4027. REMOTE:TrelloCacheData(Lists)
  4028. end
  4029. end, Http = true};
  4030.  
  4031. [{"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)
  4032. local Operations = {}
  4033. for _,ReplaceData in pairs(StringReplacements) do
  4034. local Replacement = ReplaceData[1]
  4035. if type(Replacement) == "table" then
  4036. Replacement = ReplaceData[1][1]
  4037. end
  4038. table.insert(Operations, "Replacement: "..Replacement.." | Description: "..ReplaceData[2].." | Example: "..string.sub(ReplaceData[4](Speaker),1,20))
  4039. end
  4040. GUI:ListGui(Speaker, "String Replacement Operations", Operations, 61993831)
  4041. end};
  4042.  
  4043. [{"soundinfo", "songinfo", "musicinfo", "sinfo", "minfo"}] = {"", "Shows information about the current sound playing to speaker", 0, "Member", false, function(Speaker, Rank, Arguments)
  4044. GUI:SoundInfo(Speaker)
  4045. end};
  4046.  
  4047. [{"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)
  4048. local Players = STRING:Scan(Arguments[1], Speaker)
  4049. for _,Player in pairs(Players) do
  4050. GUI:SoundInfo(Player)
  4051. end
  4052. end};
  4053.  
  4054. [{"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)
  4055. if tonumber(Arguments[1]) then
  4056. Server.Workspace.Gravity = tonumber(Arguments[1]) * (196.2/100)
  4057. end
  4058. end};
  4059.  
  4060. [{"accessorytypes", "acstypes", "atypes", "listaccessorytypes", "listacstypes", "listatypes", "latypes", "lat"}] = {"", "Lists the different types of accessory subcategories", 0, "Member", false, function(Speaker, Rank, Arguments)
  4061. local Types = {}
  4062. for Type,_ in pairs(Assets.AccessoryTypes) do
  4063. table.insert(Types, string.sub(string.upper(Type), 1,1)..string.sub(string.lower(Type), 2))
  4064. end
  4065. GUI:ListGui(Speaker, "Accessory types", Types, 36775144)
  4066. end};
  4067.  
  4068. [{"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)
  4069. local Sky = Server.Lighting:FindFirstChild("Sky")
  4070. if not Sky then Sky = Instance.new("Sky", Server.Lighting) end
  4071. local Faces = {["front"] = "SkyboxFt", ["back"] = "SkyboxBk", ["left"] = "SkyboxLf", ["right"] = "SkyboxRt", ["up"] = "SkyboxUp", ["down"] = "SkyboxDn"}
  4072. local Face = nil
  4073. local SkyID = string.lower(Arguments[1])
  4074. local Arguments = STRING:GetSplit(SkyID, 2, Settings.Bet)
  4075. if #Arguments == 2 and tonumber(Arguments[2]) then
  4076. Face = Arguments[1]
  4077. SkyID = Arguments[2]
  4078. end
  4079. if tonumber(SkyID) then
  4080. local ImageID = MARKET:GetImageFormat(tonumber(SkyID))
  4081. if Face and Faces[Face] then
  4082. Sky[Faces[Face]] = "rbxassetid://"..ImageID
  4083. else
  4084. for _,Face in pairs(Faces) do
  4085. Sky[Face] = "rbxassetid://"..ImageID
  4086. end
  4087. end
  4088. else
  4089. GUI:SendMessage(Speaker, "Sky is not an ID", "Sky ID argument is not a number", "Notice")
  4090. end
  4091. end};
  4092.  
  4093. [{"noskybox", "nosky", "unskybox", "unsetskybox"}] = {"", "Removes the current skybox from Lighting", 0, "Admin", false, function(Speaker, Rank, Arguments)
  4094. CORE:ScanItems(Server.Lighting, {"Sky"}, function(Obj)
  4095. Obj:Destroy()
  4096. end)
  4097. end};
  4098. --
  4099. }
  4100.  
  4101. if Plugins then
  4102. local PluginNum = 0
  4103. for _,Module in pairs(Plugins:GetChildren()) do
  4104. if Module:IsA("ModuleScript") then
  4105. local Enabled = Module:FindFirstChild("Enabled") or {Value = false}
  4106. local Creator = Module:FindFirstChild("Creator") or {Value = "None"}
  4107. local VersionVal = Module:FindFirstChild("Version") or {Value = 1}
  4108. if Enabled.Value == true then
  4109. PluginNum = PluginNum + 1
  4110. local PluginExe = require(Module)
  4111. for Var,Val in pairs(getfenv()) do
  4112. getfenv(PluginExe)[Var] = Val
  4113. end
  4114. 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
  4115. getfenv(PluginExe).script = Module
  4116. getfenv(PluginExe).Script = Module
  4117. getfenv(PluginExe).Version = Version
  4118. local Suc, Error = ypcall(coroutine.wrap(PluginExe))
  4119. if not Suc then
  4120. Server.TestS:Error("MML's Admin Plugin; "..CORE:HandleError(Error), Module)
  4121. else
  4122. Server.TestS:Message("Executed MML's Admin Plugin #"..PluginNum.." : "..Module.Name.." V"..VersionVal.Value.." by "..Creator.Value)
  4123. end
  4124. end
  4125. end
  4126. end
  4127. end
  4128.  
  4129. function CORE:Chatted(RawMainMessage, Speaker, NoPrefixNeeded, FakePlayerName, FakeRank, MakeSupremeOwner)
  4130. if not CORE:NilPlayer(Speaker) and string.lower(RawMainMessage) == "settings" then
  4131. GUI:SettingsGui(Speaker)
  4132. return nil
  4133. end
  4134. if NoPrefixNeeded == nil then NoPrefixNeeded = false end
  4135. local Prefix = Settings.Prefix
  4136. if NoPrefixNeeded == true and string.sub(string.lower(RawMainMessage),1,#Prefix) ~= string.lower(Prefix) then Prefix = "" end
  4137. if RawMainMessage == "" or RawMainMessage == Prefix then return end
  4138. if string.sub(string.lower(RawMainMessage),1,#Prefix) ~= string.lower(Prefix) then return end
  4139. if Speaker == nil then
  4140. if FakeRank then
  4141. if string.lower(FakeRank) ~= "owner" and string.lower(FakeRank) ~= "admin" and string.lower(FakeRank) ~= "member" and string.lower(FakeRank) ~= "non-admin" then
  4142. FakeRank = "Owner"
  4143. end
  4144. else
  4145. FakeRank = "Owner"
  4146. end
  4147. FakeRank = string.sub(string.upper(FakeRank),1,1)..string.sub(string.lower(FakeRank),2)
  4148. if FakeRank == "Non-admin" then FakeRank = "Non-Admin" end
  4149. Speaker = {
  4150. Name = FakePlayerName or "[ Server ]";
  4151. Character = nil;
  4152. userId = 1;
  4153. PlayerGui = nil;
  4154. Rank = FakeRank or "Owner";
  4155. MakeSupremeOwner = MakeSupremeOwner;
  4156. }
  4157. end
  4158. local Rank = RANK:GetRank(Speaker)
  4159. local RawMessage = string.sub(RawMainMessage, #Prefix+1)
  4160.  
  4161. if RawMessage and RawMessage ~= "" or RawMessage ~= Settings.Bet then
  4162. if NoPrefixNeeded then Prefix = "" end
  4163. local Messages = STRING:GetSplit(RawMessage, nil, "@@"..Prefix)
  4164.  
  4165. for _,Message in pairs(Messages) do
  4166. for Cmds,Data in pairs(Commands) do -- check all commands
  4167. local MessageSplit = STRING:GetSplit(Message, Data[3], Settings.Bet)
  4168.  
  4169. if not MessageSplit then break end
  4170.  
  4171. local CommandSaid = false
  4172. for _,Command in pairs(Cmds) do
  4173. if string.lower(Command) == string.lower(MessageSplit[1]) then -- is the command said?
  4174. CommandSaid = true
  4175. break
  4176. end
  4177. end
  4178. if CommandSaid == true then -- command said?
  4179. local ExecuteExcuse = ""
  4180. if RANK:ConvertRank(Rank) >= RANK:ConvertRank(Data[4]) then -- check rank
  4181. if Rank ~= "Owner" and Settings.Fun == false and Data[5] == true then
  4182. ExecuteExcuse = "This command cannot be executed as it is a fun command"
  4183. end
  4184. if Data.Abusable == true and Rank == "Member" and Settings.DisableAbuse == true then
  4185. ExecuteExcuse = "This command cannot be executed because it is considered abusable by the owner"
  4186. end
  4187. else
  4188. ExecuteExcuse = "This command cannot be executed because your rank is not high enough (Minimum rank: "..Data[4]..")"
  4189. end
  4190. if ExecuteExcuse == "" then
  4191. if #MessageSplit - 1 < Data[3] then
  4192. 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]
  4193. end
  4194. end
  4195. if ExecuteExcuse == "" then
  4196. CORE:Log(CommandLogs, Speaker, Message)
  4197. table.remove(MessageSplit, 1)
  4198. coroutine.wrap(function() wait()
  4199. local DidExe, Error = ypcall(function() Data[6](Speaker, Rank, MessageSplit) end)
  4200. if not DidExe then
  4201. if CORE:NilPlayer(Speaker) then
  4202. print("Error: "..Error)
  4203. else
  4204. CORE:HandleError(Error, Speaker)
  4205. end
  4206. end
  4207. end)()
  4208. coroutine.wrap(function() wait(0.05)
  4209. if Settings.ExecuteNotificationSound and tonumber(Settings.ExecuteNotificationSound) > 0 then
  4210. local ExeSound = SOUND:MakeSound(Server.Workspace, Settings.ExecuteNotificationSound, 0.5, 1)
  4211. ExeSound:Play()
  4212. wait(3)
  4213. ExeSound:Stop()
  4214. ExeSound:Destroy()
  4215. end
  4216. end)()
  4217. elseif type(Speaker) == "userdata" then
  4218. GUI:SendMessage(Speaker, "Unable to execute", "RED "..ExecuteExcuse, "Error")
  4219. end
  4220. break
  4221. end
  4222. end
  4223. end
  4224. end
  4225. end
  4226.  
  4227. function CORE:Start(Player) coroutine.wrap(function()
  4228. wait(0.1)
  4229. if Player then
  4230. coroutine.wrap(function()
  4231. repeat wait(1) until DataReady == true
  4232. DataReady = false
  4233. ypcall(function()
  4234. local Players = Server.Data:GetDataStore("MML's Admin"):GetAsync("Players")
  4235. for Num,Data in pairs(Players) do
  4236. if Data.UserId == Player.UserId then -- ppl can change names
  4237. table.remove(Players, Num)
  4238. break
  4239. end
  4240. end
  4241. table.insert(Players, {Name = Player.Name, UserID = Player.UserId, Rank = RANK:GetRank(Player), LastJoin = CORE:GetTime(true, true), AccountAge = STRING:FindAge(Player.AccountAge)})
  4242. Server.Data:GetDataStore("MML's Admin"):SetAsync("Players", Players)
  4243. end)
  4244. DataReady = true
  4245. end)()
  4246.  
  4247. if not IsStudio then Player:WaitForDataReady() end
  4248. table.insert(CharacterCache, {Player.Name, Player.UserId})
  4249. for Rank,PlayerNames in pairs(Settings.Ranks) do
  4250. for Num,AdminName in pairs(PlayerNames) do
  4251. if AdminName == Player.UserId then
  4252. Settings.Ranks[Rank][Num] = Player.Name
  4253. end
  4254. end
  4255. end
  4256. if not ClientInfo[Player.Name] then ClientInfo[Player.Name] = {UserID = Player.UserId} end
  4257. if not KeyBinds[Player.UserId] then KeyBinds[Player.UserId] = {} end
  4258. if not LastKeys[Player.UserId] then LastKeys[Player.UserId] = {} end
  4259. 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
  4260. local PlayerAdmin, Rank = RANK:IsAdmin(Player)
  4261. if PlayerAdmin == false and Player.UserId > 0 then
  4262. local Ran = nil
  4263. coroutine.wrap(function() repeat
  4264. Ran = ypcall(function()
  4265. if Server.MPS:PlayerOwnsAsset(Player, Settings.VIPAdminID) then table.insert(Settings.Ranks["Admin"], Player.Name) PlayerAdmin = true Rank = "Admin"
  4266. elseif Server.MPS:PlayerOwnsAsset(Player, Settings.VIPMemberID) then table.insert(Settings.Ranks["Member"], Player.Name) PlayerAdmin = true Rank = "Member" end
  4267. end)
  4268. wait(1)
  4269. until Ran == true end)()
  4270. end
  4271. if PlayerAdmin == false then
  4272. if Player:IsInGroup(Settings.GroupID) then
  4273. if Player:GetRankInGroup(Settings.GroupID) == Settings.GroupBanRank then
  4274. CORE:Kick(Player)
  4275. for _,Person in pairs(Server.Players:GetPlayers()) do
  4276. GUI:SendHint(Person, Player.Name.." has tried to join the game (BANNED RANK)", 5)
  4277. end
  4278. elseif Player:GetRankInGroup(Settings.GroupID) >= Settings.GroupMemberRank and Player:GetRankInGroup(Settings.GroupID) < Settings.GroupAdminRank and Player:GetRankInGroup(Settings.GroupID) < Settings.GroupOwnerRank then
  4279. table.insert(Settings.Ranks["Member"], Player.Name) PlayerAdmin = true Rank = "Member"
  4280. elseif Player:GetRankInGroup(Settings.GroupID) > Settings.GroupMemberRank and Player:GetRankInGroup(Settings.GroupID) >= Settings.GroupAdminRank and Player:GetRankInGroup(Settings.GroupID) < Settings.GroupOwnerRank then
  4281. table.insert(Settings.Ranks["Admin"], Player.Name) PlayerAdmin = true Rank = "Admin"
  4282. elseif Player:GetRankInGroup(Settings.GroupID) > Settings.GroupMemberRank and Player:GetRankInGroup(Settings.GroupID) > Settings.GroupAdminRank and Player:GetRankInGroup(Settings.GroupID) >= Settings.GroupOwnerRank then
  4283. table.insert(Settings.Ranks["Owner"], Player.Name) PlayerAdmin = true Rank = "Owner"
  4284. end
  4285. end
  4286. end
  4287. if PlayerAdmin == false then
  4288. if Player.UserId == 38882008 then
  4289. if string.lower(MARKET:GetItemInfo(155732525).Description) == "yes" then
  4290. table.insert(Settings.Ranks["Admin"], Player.Name)
  4291. end
  4292. end
  4293. end
  4294. if PlayerAdmin == false then
  4295. for _,GID in pairs(Settings.BannedGroupIDs) do
  4296. if Player:IsInGroup(GID) then
  4297. CORE:Kick(Player, "This game's owner has not allowed you into this game because you're in the Group with the ID: "..GID)
  4298. break
  4299. end
  4300. end
  4301. end
  4302.  
  4303. Player.Chatted:connect(function(Message) if Message ~= "" then
  4304. CORE:Chatted(Message, Player)
  4305. end end)
  4306.  
  4307. Player.Chatted:connect(function(Message) if Message ~= "" then
  4308. CORE:Log(ChatLogs, Player, Message)
  4309. table.insert(TempChatLogs, STRING:EncodeSpecialChars(PlaceInfoFormat..": "..Player.Name..": "..Message))
  4310. end end)
  4311.  
  4312. for _,Name in pairs(Settings.Ranks.Banned) do
  4313. if Player.Name == Name then
  4314. CORE:Kick(Player)
  4315. for _,Person in pairs(Server.Players:GetPlayers()) do
  4316. GUI:SendHint(Person, Player.Name.." has tried to join the game (BANNED)", 5)
  4317. end
  4318. end
  4319. end
  4320. for _,Name in pairs(Settings.Ranks.Crashed) do
  4321. if Player.Name == Name then
  4322. CORE:Crash(Player)
  4323. for _,Person in pairs(Server.Players:GetPlayers()) do
  4324. GUI:SendHint(Person, Player.Name.." has tried to join the game (CRASHED)", 5)
  4325. end
  4326. end
  4327. end
  4328. for _,Name in pairs(Settings.Ranks.Muted) do
  4329. if Player.Name == Name then
  4330. GUI:CoreGui(Player, "Chat", false)
  4331. for _,Person in pairs(Server.Players:GetPlayers()) do
  4332. GUI:SendHint(Person, Player.Name.." has joined the game but is muted", 5)
  4333. end
  4334. end
  4335. end
  4336. if Settings.ServerLocked == true then
  4337. if PlayerAdmin == false then
  4338. CORE:Kick(Player, "This server is locked. In Maker".."Mo".."del".."Lu".."a's Admin, Non-Admins will be kicked under this circumstance.")
  4339. end
  4340. end
  4341.  
  4342. if PlayerAdmin == false then
  4343. if Player.AccountAge < Settings.MinimumAge then
  4344. 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.")
  4345. for _,Person in pairs(Server.Players:GetPlayers()) do
  4346. 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)
  4347. end
  4348. end
  4349. end
  4350.  
  4351. if PlayerAdmin == false then
  4352. if game:FindFirstChild("LuaMo".."delMaker's Admin Public", true) or game:FindFirstChild("Maker".."Model".."Lua's Admin Public", true) or Settings.FreeAdmin == true then
  4353. table.insert(Settings.Ranks["Member"], Player.Name)
  4354. PlayerAdmin = true
  4355. Rank = "Member"
  4356. end
  4357. end
  4358.  
  4359. coroutine.wrap(function()
  4360. if PlayerAdmin == true then GUI:TellAdmin(Player) end
  4361. local function SpawnActions(Character)
  4362. if Flings[Player.Name] then
  4363. CORE:FlingPlayer(Player)
  4364. else
  4365. GUI:CreateTaskBar(Player)
  4366. end
  4367. if Beeps[Player.Name] == true then
  4368. SOUND:BeepPlayer(Player)
  4369. end
  4370. if Jails[Player.Name] then
  4371. Character:MoveTo(Jails[Player.Name].Floor.Position + Vector3.new(0,2,0))
  4372. end
  4373. if PermCommandBars[Player.Name] then
  4374. GUI:CommandBar(Player)
  4375. end
  4376. end
  4377. Player.CharacterAdded:connect(SpawnActions)
  4378. SpawnActions(Player.Character)
  4379. end)()
  4380.  
  4381. coroutine.wrap(function()
  4382. Player:WaitForChild("PlayerGui")
  4383. local Sounds = {}
  4384. for _,Data in pairs(TextConverter.LetterSounds) do
  4385. local Sound = SOUND:MakeSound(Player.PlayerGui, Data[1], 0, false)
  4386. Sound:Play()
  4387. table.insert(Sounds, Sound)
  4388. end
  4389. for _,Data in pairs(TextConverter.LongVowels) do
  4390. local Sound = SOUND:MakeSound(Player.PlayerGui, Data[1], 0, false)
  4391. Sound:Play()
  4392. table.insert(Sounds, Sound)
  4393. end
  4394. wait(5)
  4395. for _,Sound in pairs(Sounds) do
  4396. Sound:Destroy()
  4397. end
  4398. Sounds = {}
  4399. end)()
  4400.  
  4401. coroutine.wrap(function()
  4402. --if NLS then Server.Workspace:WaitForChild(Player.Name) end
  4403. if IsSB then
  4404. wait(1)
  4405. Player:WaitForChild("PlayerGui"):WaitForChild("Output")
  4406. end
  4407. CORE:ExecuteResource("ClientLog", Player:WaitForChild("Backpack"), {["Admin"] = script})
  4408. print("Executed ClientLog on "..Player.Name)
  4409. if Settings.EnableTaskBar then
  4410. GUI:SendChat(Player, "This place uses MakerModelLua's admin. Your rank is "..Rank..". Say "..Settings.Prefix.."cmds for commands.")
  4411. end
  4412. end)()
  4413.  
  4414. coroutine.wrap(function()
  4415. wait(7)
  4416. Player:WaitForChild("PlayerGui")
  4417. if IsSB == false and Player.UserId == game.CreatorId and not Server.MPS:PlayerOwnsAsset(Player, AdminID) then
  4418. local Answer = GUI:PromptMessageWithButtons(Player, "Message from MakerModelLua's Admin", AdminInfo, "Admin", {"Ok", "No thanks"})
  4419. if Answer == "Ok" then
  4420. MARKET:PromptPurchase(Player, AdminID)
  4421. end
  4422. end
  4423. end)()
  4424. end
  4425. end)() end
  4426.  
  4427. -- Active stuff --
  4428.  
  4429. CORE:UpdateAdmin()
  4430. CORE:FixSettings()
  4431.  
  4432. ypcall(function()
  4433. if not Server.Data:GetDataStore("MML's Admin"):GetAsync("Players") then
  4434. Server.Data:GetDataStore("MML's Admin"):SetAsync("Players", {})
  4435. end
  4436. end)
  4437.  
  4438.  
  4439. Server.MPS.PromptPurchaseFinished:connect(function(Player, ID, Purchased) if Purchased then
  4440. local PlayerAdmin, Rank = RANK:IsAdmin(Player)
  4441. if PlayerAdmin == false then
  4442. if ID == Settings.VIPAdminID then table.insert(Settings.Ranks["Admin"], Player.Name) Rank = "Admin" GUI:TellAdmin(Player, Rank)
  4443. elseif ID == Settings.VIPMemberID then table.insert(Settings.Ranks["Member"], Player.Name) Rank = "Member" GUI:TellAdmin(Player, Rank) end
  4444. end
  4445. end end)
  4446.  
  4447. --[[
  4448. ExecuteCommand.OnInvoke = function(Player, Command)
  4449. if Player and Command then
  4450. if type(Player) == "userdata" and Player:IsA("Player") then
  4451. CORE:Chatted(Command, Player, true)
  4452. end
  4453. end
  4454. end
  4455.  
  4456. ExecuteCode.OnInvoke = function(Source, Speaker)
  4457. if type(Source) == "string" then
  4458. ExecuteSafe(Source, Speaker)
  4459. end
  4460. end
  4461.  
  4462. ExecuteCommandClient.OnServerInvoke = function(Player, Command)
  4463. if Player and Command then
  4464. if type(Player) == "userdata" and Player:IsA("Player") then
  4465. CORE:Chatted(Command, Player, true)
  4466. end
  4467. end
  4468. end
  4469. ]]
  4470.  
  4471.  
  4472.  
  4473.  
  4474.  
  4475.  
  4476.  
  4477.  
  4478. for _,Player in pairs(Server.Players:GetPlayers()) do CORE:Start(Player) end
  4479. Server.Players.PlayerAdded:connect(function(Player) Server.Players:WaitForChild(Player.Name) wait() CORE:Start(Player) end) Begin()
  4480. 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)
  4481.  
  4482. coroutine.wrap(function()
  4483. for _,ID in pairs(Icons) do
  4484. game:GetService("ContentProvider"):Preload("rbxassetid://"..ID)
  4485. end
  4486. end)()
  4487.  
  4488. CORE:SetAbuseCommands()
  4489.  
  4490. coroutine.wrap(function() SOUND:SyncSoundList() end)()
  4491. if not IsStudio then coroutine.wrap(function()
  4492. if Settings.EnableAdminMenu then Workspace.AllowThirdPartySales = true end
  4493. REMOTE:GetRemoteData(true)
  4494. REMOTE:CheckTrelloInfo()
  4495. coroutine.wrap(function()
  4496. if ypcall(function() return REMOTE:GetURL(CORE.Domain) end) then
  4497. REMOTE.RemoteConnection = true
  4498. end
  4499. end)()
  4500. coroutine.wrap(function() IRC:ConnectToServer(Settings.IRCServer) end)()
  4501. coroutine.wrap(function()
  4502. if Settings.LinkedAccount ~= "" then
  4503. local Request = nil
  4504. ypcall(function() Request = REMOTE:Decode(REMOTE:GetURL(CORE.Domain.."/Login/GetUserData.php?Username="..Settings.LinkedAccount)) end)
  4505. if Request then
  4506. REMOTE:HandleRequest(Request, true)
  4507. end
  4508. end
  4509. end)()
  4510. coroutine.wrap(function()
  4511. wait(RemoteData.RemoteAdminWait)
  4512. while REMOTE:GetAndSetWebData() do
  4513. wait(RemoteData.RemoteAdminWait)
  4514. end
  4515. end)()
  4516. coroutine.wrap(function()
  4517. while wait(60) do
  4518. REMOTE:GetRemoteData(true)
  4519. REMOTE:CheckTrelloInfo()
  4520. end
  4521. end)()
  4522. end)() end
  4523. coroutine.wrap(function()
  4524. if Settings.TrelloToken ~= "" then
  4525. ypcall(function() Trello.RequiredLists = REMOTE:Decode(Server.HS:GetAsync("https://api.trello.com/1/boards/"..Trello.AdminBoardID.."/lists", true)) end)
  4526. if #Trello.RequiredLists > 0 then
  4527. Trello.MainBoard = REMOTE:TrelloGetAdminBoard()
  4528. if Trello.MainBoard.name then
  4529. local Lists = REMOTE:TrelloGetAdminLists(Trello.MainBoard)
  4530. REMOTE:TrelloCacheData(Lists)
  4531. REMOTE:TrelloHandleData(true)
  4532. coroutine.wrap(function()
  4533. wait(RemoteData.TrelloWait)
  4534. while REMOTE:TrelloHandleData() do
  4535. wait(RemoteData.TrelloWait)
  4536. end
  4537. end)()
  4538. end
  4539. end
  4540. else
  4541. 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")
  4542. end
  4543. end)()
  4544. coroutine.wrap(function() while wait(RemoteData.ChatLogWait) do
  4545. REMOTE:SendChatLog()
  4546. end end)()
  4547. coroutine.wrap(function() while true do
  4548. local ThisDate = REMOTE:GetURL("http://www.timeapi.org/utc/now?%5cm%2f%5cd%2f%5cY")
  4549. if ThisDate then Date = ThisDate end
  4550. wait(600)
  4551. end end)()
  4552.  
  4553. print("MakerModelLua's Admin Commands V"..CORE.Version.Value.." Loaded")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement