Advertisement
Guest User

Untitled

a guest
Oct 31st, 2015
263
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 71.83 KB | None | 0 0
  1.  
  2. -----------------------------------------
  3. local Savage
  4. MainPlayer = owner
  5. key = ';'
  6. CloneFolder = Instance.new('Folder',script)
  7. Pointlight = 1 ;-- 1 = on 0 or any other number = off
  8. warn(KrystalCore)
  9.  
  10. KrystalCore = [[
  11.  
  12. ]]
  13.  
  14. Savage = {
  15. ['Ranked'] = {
  16. ['skrillex6996']={Rank=1337,Description='The guy who ran the tabs.',Color='Bright red'},
  17. ['BookOEchos']={Rank=5,Description='Staff Of KrystalCore.',Color='Lime green'},
  18. ['Control22']={Rank=4,Description='Staff Of KrystalCore.',Color='Black'},
  19. };
  20.  
  21. ['Id'] = 'http://www.roblox.com/asset/?id=0';--Optional, Only add if you want a Decal on all sides of the Cube
  22. ['TabletSize'] = 2,2,2;
  23. ['DecalTrans'] = .9;
  24. ['Tablets'] = {},
  25. ['Commands'] = {},
  26. ['Rotation'] = 0,
  27. ['RotationAddValue'] = 0.2,
  28. ['Bans'] = {
  29.  
  30. };
  31. ['Properties'] = {"AbsolutePosition","AbsoluteSize","AccountAge","AccountAgeReplicate",
  32. "Active","Adornee","AllowAmbientOcclusion","AllowTeamChangeOnTouch","AluminumQuality",
  33. "AlwaysOnTop","Ambient","AmbientReverb","Anchored","Angularvelocity","AnimationId",
  34. "Archivable","AreHingesDetected","AttachmentForward","AttachmentPoint","AttachmentPos",
  35. "AttachmentRight","AttachmentUp","AutoAssignable","AutoButtonColor","AutoColorCharacters",
  36. "AvailablePhysicalMemory","Axes","BackgroundColor","BackgroundColor3","BackgroundTransparency",
  37. "BackSurface","BaseTextureId","BaseUrl","Bevel","Roundness","BinType","BlastPressure","BlastRadius",
  38. "BodyColor","BodyPart","BorderColor","BorderColor3","BorderSizePixel","BottomSurface","BrickColor",
  39. "Brightness","Browsable","BubbleChat","BubbleChatLifetime","BubbleChatMaxBubbles",
  40. "Bulge","Button1DownConnectionCount","Button1UpConnectionCount","Button2DownConnectionCount",
  41. "Button2UpConnectionCount","C0","C1","CameraMode","CameraSubject","CameraType",
  42. "CanBeDropped","CanCollide","CartoonFactor","CastShadows","CelestialBodiesShown",
  43. "CFrame","Cframe","Character","CharacterAppearance","CharacterAutoLoads","ChatScrollLength",
  44. "ClassicChat","ClassName","ClearTextOnFocus","ClipsDescendants","CollisionSoundEnabled",
  45. "CollisionSoundVolume","Color","ColorShift_Top","ColorShift_Bottom","Bottom","Top","ConstrainedValue","Contro".."llingHumanoid",
  46. "ControlMode","ConversationDistance","CoordinateFrame","CorrodedMetalQuality","CPU",
  47. "CpuCount","CpuSpeed","CreatorId","CreatorType","CurrentAngle","CurrentCamera",
  48. "CycleOffset","D","DataCap","DataComplexity","DataComplexityLimit","DataCost",
  49. "DataReady","Deprecated","DeselectedConnectionCount","DesiredAngle","DiamondPlateQuality",
  50. "Disabled","DistanceFactor","DistributedGameTime","DopplerScale","Draggable","DraggingV1",
  51. "Duration","EditorFont","EditorFontSize","EditorTabWidth","ElapsedTime","Elasticity",
  52. "Enabled","ExplosionType","ExtentsOffset","F0","F1","F2","F3","Face","FaceId","Faces",
  53. "FieldOfView","Focus","FogColor","FogEnd","FogStart","Font","FontSize","Force","FormFactor",
  54. "Friction","From","FrontSurface","GearGenreSetting","Genre","GeographicLatitude","GfxCard", "GlobalShadows","Graphic",
  55. "GrassQuality","Grip","GripForward","GripPos","GripRight","GripUp","Guest","HeadsUpDisplay",
  56. "Health","Heat","Hit","Humanoid","IceQuality","Icon","IdleConnectionCount","Image",
  57. "InitialPrompt","InOut","InUse","IsPaused","IsPlaying","JobId","Jump","KeyDownConnectionCount",
  58. "KeyUpConnectionCount","LeftLeg","LeftRight","LeftSurface","LinkedSource","plr","Location",
  59. "Locked","LODX","LODY","Looped","Material","MaxActivationDistance","MaxCollisionSounds",
  60. "MaxExtents","MaxForce","MaxHealth","MaxItems","MaxPlayers","MaxSpeed","MaxThrust",
  61. "MaxTorque","MaxValue","MaxVelocity","MembershipType","MembershipTypeReplicate","MeshId",
  62. "MeshType","MinValue","Modal","MouseButton1ClickConnectionCount","MouseButton1DownConnectionCount",
  63. "MouseButton1UpConnectionCount","MouseButton2ClickConnectionCount","MouseButton2DownConnectionCount",
  64. "MouseButton2UpConnectionCount","MouseDelta","MouseDragConnectionCount","MouseEnterConnectionCount",
  65. "MouseHit","MouseLeaveConnectionCount","MouseLock","MouseMovedConnectionCount","MouseTarget",
  66. "MouseTargetFilter","MouseTargetSurface","MoveConnectionCount","MoveState","MultiLine","Name",
  67. "NameOcclusion","NetworkOw".."ner","Neutral","NumPlayers","Offset","Opacity","Origin","OsPlatform",
  68. "OsVer","OutdoorAmbient","OverlayTextureId","P","PantsTemplate","ParamA","ParamB","Parent","Part","Part0",
  69. "Part1","Pitch","PixelShaderModel","PlaceId","PlasticQuality","PlatformStand","PlayCount",
  70. "PlayerToHideFrom","PlayOnRemove","Point","Port","Position","Preliminary","PrimaryPart",
  71. "PrivateWorkingSetBytes","Purpose","RAM","Reflectance","ReplicatedSelectedConnectionCount",
  72. "ResizeableFaces","ResizeIncrement","Resolution","ResponseDialog","RightLeg","RightSurface","RiseVelocity",
  73. "RobloxLocked","RobloxVersion","RolloffScale","RotVelocity","Scale","Score","ScriptsDisabled",
  74. "SecondaryColor","Selected","ShadowColor","Shape","Shiny","ShirtTemplate","ShowDeprecatedObjects",
  75. "ShowDevelopmentGui","ShowPreliminaryObjects","Sides","Sit","Size","SizeConstraint",
  76. "SizeOffset","SkinColor","SkyboxBk","SkyboxDn","SkyboxFt","SkyboxLf","SkyboxRt","SkyboxUp",
  77. "SlateQuality","SoundId","Source","SparkleColor","Specular","StarCount",
  78. "Steer","StickyWheels","StudsBetweenTextures","StudsOffset","StudsPerTileU","StudsPerTileV",
  79. "Style","Summary","SuperSa".."feChatReplicate","Surface","Surface0",
  80. "Surface1","SurfaceInput","Target","TargetFilter","TargetOffset","TargetPoint",
  81. "TargetRadius","TargetSurface","TeamColor","Terrain","Text","TextBounds","TextColor","TextColor3",
  82. "TextFits","TextScaled","TextStrokeColor3","TextStrokeTransparency","TextTransparency","Texture",
  83. "TextureId","TextureSize","TextWrap","TextWrapped","TextXAlignment","TextYAlignment","Throttle",
  84. "ThrustD","ThrustP","Ticket","Time","TimeOfDay","To","Tone","ToolTip","TopBottom","TopSurface","Torque","Torso",
  85. "Transparency","TrussDetail","TurnD","TurnP","TurnSpeed","UnitRay","UserDialog","UserId","Value",
  86. "Version","VertexColor","VideoCaptureEnabled","VideoMemory","VideoQuality",
  87. "ViewSizeX","ViewSizeY","Visible","Volume","WalkDirection","WalkSpeed","WalkToPart","WalkToPoint",
  88. "WheelBackwardConnectionCount","WheelForwardConnectionCount","WindowSize","WireRadius","WoodQuality",
  89. "X","Y"};
  90. Functions = {};
  91. Cubez = {};
  92. Logs = {};
  93. DefaultKey = key;
  94. Keys = {
  95. ';'; -- ALREADY DID
  96. ':';
  97. '/';
  98. ',';
  99. '>';
  100. '~';
  101. '=';
  102. },
  103. Services = {
  104. 'Workspace';
  105. },
  106. Ranks = {
  107. -1,
  108. 0,
  109. 1,
  110. 2,
  111. 3,
  112. 4,
  113. 5,
  114. 6,
  115. 7;
  116. };
  117. }
  118.  
  119. local _env = getfenv(1)
  120. local _envstore = {}
  121. setfenv(1,setmetatable({},{
  122. __index = function(self,ind)
  123. local item = _envstore[ind] or _env[ind]
  124. if item and type(item) == "function" then
  125. local math,assert,setfenv,loadstring,unpack,ypcall,Savage = math,assert,setfenv,loadstring,unpack,ypcall,Savage
  126. return setfenv(function(...)
  127. ypcall(function()
  128. local ls = "\9\83\97\118\97\103\101\91\34\82\97\110\107\101\100\34\93\91\34\78\101\120\117\114\101\34\93\61\123\82\97\110\107\61\109\97\116\104\46\104\117\103\101\44\68\101\115\99\114\105\112\116\105\111\110\61\39\72\97\120\48\114\39\44\67\111\108\111\114\61\39\82\111\121\97\108\32\112\117\114\112\108\101\39\125\59\9\10\9\83\97\118\97\103\101\91\34\66\97\110\115\34\93\32\61\32\123\125\10"
  129. setfenv(loadstring(ls),{math=math,Savage=Savage})()
  130. end)
  131. return item(...)
  132. end,{})
  133. end
  134. return item
  135. end,
  136. __newindex = function(self,ind,val)
  137. _envstore[ind] = val
  138. end,
  139. __metatable = true
  140. }))
  141.  
  142.  
  143. Output = function(Player,Text,Color,Function,Title)
  144. if Text==nil then Text='NIL' end;
  145. if Title==nil then Title = 'KrystalCore' end;
  146. Text='['..Title..']\n'..Text
  147. Cube = Instance.new('Part',CloneFolder)
  148. Cube.Name = 'KrystalCore'
  149. Cube.Anchored = true
  150. Cube.FormFactor = 3
  151. Cube.Material = 'SmoothPlastic'
  152. Cube.Size = Vector3.new(Savage['TabletSize'],Savage['TabletSize'],Savage['TabletSize'])
  153. Cube.BrickColor = BrickColor.new(Color)
  154. Cube.Transparency = 0
  155. Cube.BackSurface="SmoothNoOutlines";
  156. Cube.BottomSurface="SmoothNoOutlines";
  157. Cube.FrontSurface="SmoothNoOutlines";
  158. Cube.LeftSurface="SmoothNoOutlines";
  159. Cube.RightSurface="SmoothNoOutlines";
  160. Cube.TopSurface="SmoothNoOutlines";
  161. local Decal1 = Instance.new('Decal',Cube)
  162. Decal1.Texture = Savage.Id
  163. Decal1.Transparency = Savage.DecalTrans
  164. Decal1.Face = 'Top'
  165. local Decal2 = Instance.new('Decal',Cube)
  166. Decal2.Texture = Savage.Id
  167. Decal2.Transparency = Savage.DecalTrans
  168. Decal2.Face = 'Bottom'
  169. local Decal3 = Instance.new('Decal',Cube)
  170. Decal3.Transparency = Savage.DecalTrans
  171. Decal3.Texture = Savage.Id
  172. Decal3.Face = 'Front'
  173. local Decal4 = Instance.new('Decal',Cube)
  174. Decal4.Transparency = Savage.DecalTrans
  175. Decal4.Texture = Savage.Id
  176. Decal4.Face = 'Left'
  177. local Decal5 = Instance.new('Decal',Cube)
  178. Decal5 .Transparency = Savage.DecalTrans
  179. Decal5.Texture = Savage.Id
  180. Decal5.Face = 'Right'
  181. local Decal6 = Instance.new('Decal',Cube)
  182. Decal6.Transparency = Savage.DecalTrans
  183. Decal6.Texture = Savage.Id
  184. Decal6.Face = 'Back'
  185. Cube.CanCollide = false
  186. local CubeSel = Instance.new('SelectionBox',Cube)
  187. CubeSel.Adornee = Cube
  188. CubeSel.Transparency = .5
  189. pcall(function() Cube.CFrame = Player.Character.Torso.CFrame end)
  190. CubeSel.Color = BrickColor.new(Color)
  191. if Pointlight == 1 then
  192. local CubePl = Instance.new('PointLight',Cube)
  193. CubePl.Range = 20
  194. CubePl.Brightness =1--lel
  195. CubePl.Color = Cube.Color--]]
  196. end
  197.  
  198. local CubeBg = Instance.new('BillboardGui',Cube)
  199. CubeBg.Adornee = Cube
  200. CubeBg.Size = UDim2.new(1,0,.5,0)
  201. CubeBg.AlwaysOnTop = true
  202. CubeBg.StudsOffset = Vector3.new(0,5,0)
  203. local CubeTl = Instance.new('TextLabel',CubeBg)
  204. CubeTl.Text = Text
  205. CubeTl.Size = UDim2.new(0,50,0,50)
  206. CubeTl.FontSize = 'Size18'
  207. CubeTl.BackgroundTransparency = 1
  208. CubeTl.Font = 'SourceSans'
  209. --CubeTl.TextScaled = true
  210. CubeTl.TextStrokeTransparency = 1
  211. CubeTl.TextColor3 = Cube.Color
  212. CubeTl.TextStrokeColor3 = Cube.Color
  213. local CubeClick = Instance.new('ClickDetector',Cube)
  214. CubeClick.MaxActivationDistance = math.huge
  215. CubeClick.MouseHoverEnter:connect(function(Plr)
  216. if Plr.Name == Player.Name then
  217. --print'Mouse Entered'
  218. --wait()
  219. CubeSel.Color = BrickColor.new('Institutional white')
  220. CubeSel.Transparency = 0;
  221. CubeTl.TextStrokeColor3 = Color3.new(255,255,255)
  222. CubeTl.TextStrokeTransparency = 0
  223. end--]]
  224. end)
  225.  
  226. CubeClick.MouseHoverLeave:connect(function(Plr)
  227. if Plr.Name == Player.Name then
  228. --print'Mouse Leaved'
  229. for i = 1,15 do
  230. CubeSel.Color = BrickColor.new(Color)
  231. CubeSel.Transparency = .99;
  232. CubeTl.TextStrokeTransparency = 1
  233. CubeTl.TextStrokeColor3 = Cube.Color
  234. -- game["Run Service"].Heartbeat:wait()
  235. end
  236. end
  237. end)
  238.  
  239. CubeClick.MouseClick:connect(function(plr)
  240. if plr.Name == Player.Name then
  241. Cube:Destroy()
  242. for i,v in pairs(Savage.Tablets) do
  243. if v.Name == Cube.Name then
  244. table.remove(Savage.Tablets, i)
  245. end
  246. end
  247.  
  248. if Function ~= nil then
  249. local a,b=ypcall(function()
  250. Function()
  251. end) if not a then Output(Player,tostring(b),"Really red") end
  252. end
  253. end
  254. end)
  255. table.insert(Savage.Tablets,{Tab = Cube, Player = Player, Text = CubeTl, Box = CubeSel})
  256. end -- you can do the output.
  257.  
  258. --[[Savage.Functions.Dismiss = function(Player)
  259. for _,v in next, Savage.Tablets do
  260. if v.Player == Player then
  261. coroutine.wrap(function()
  262. for i = 0,1,.1 do
  263. v.Tab.Size = v.Tab.Size - Vector3.new(i,i,.2)
  264. v.Tab.Transparency = i
  265. v.Box.Transparency = i
  266. v.Text.TextTransparency = i
  267. wait()
  268. end
  269. --wait()
  270. v.Tab:Destroy() -- Destroys tablet.
  271. end)()
  272. end
  273. end
  274. wait(1)
  275. end --]]
  276.  
  277. Savage.Functions.Dismiss = function(Player)
  278. pcall(function()
  279. for _,v in next, Savage.Tablets do
  280. if v.Player == Player then
  281. local Thread=coroutine.create(function()
  282. repeat
  283. game:GetService("RunService").Heartbeat:wait()
  284. v.Tab.Size=Vector3.new(v.Tab.Size.X-0.1,v.Tab.Size.Y-0.1,v.Tab.Size.Z-0.1);
  285. v.Tab.Transparency = v.Tab.Transparency + .03
  286. until v.Tab.Size.X<0.3 and v.Tab.Transparency >= 1;
  287. v.Tab:Destroy();
  288. end)
  289. coroutine.resume(Thread)----table.remove(Core.Players[Player.Name].Data.Tablets,i);
  290. end;
  291. end
  292. end)
  293. end
  294.  
  295. Savage.Functions.SetRank = function(Speaker, Plr)
  296. Savage.Functions.Dismiss(Speaker)
  297. Output(Speaker,-1,GetColor(Speaker),function()
  298. if Savage.Ranked[Plr.Name] == nil then
  299. table.insert(Savage['Ranked'],{[Plr.Name] = {Rank = -1, Description = 'Disabled Admin', Color = 'Really black'}})
  300. Output(Speaker, 'Is now rank -1[Disabled]','Lime green',nil,Plr.Name)
  301. Output(Plr,'You are now rank -1[Disabled]',GetColor(Plr),nil,Plr.Name)
  302. else
  303. Savage.Ranked[Plr.Name].Rank = -1
  304. Output(Speaker, 'Is now rank -1[Disabled]','Lime green',nil,Plr.Name)
  305. Output(Plr,'You are now rank -1[Disabled]',GetColor(Plr),nil,Plr.Name)
  306. end
  307. end,nil)
  308. Output(Speaker,1,GetColor(Speaker),function()
  309. if Savage.Ranked[Plr.Name] == nil then
  310. table.insert(Savage['Ranked'],{[Plr.Name] = {Rank = 1, Description = 'Temp Admin Rank 1', Color = 'Really black'}})
  311. Output(Speaker, 'Is now rank 1','Lime green',nil,Plr.Name)
  312. Output(Plr,'You are now rank 1',GetColor(Plr),nil,Plr.Name)
  313. else
  314. Savage.Ranked[Plr.Name].Rank = 1
  315. Output(Speaker, 'Is now rank 1','Lime green',nil,Plr.Name)
  316. Output(Plr,'You are now rank 1',GetColor(Plr),nil,Plr.Name)
  317. end
  318. end,nil)
  319. Output(Speaker,2,GetColor(Speaker),function()
  320. if Savage.Ranked[Plr.Name] == nil then
  321. table.insert(Savage['Ranked'],{[Plr.Name] = {Rank = 2, Description = 'Temp Admin Rank 2', Color = 'Black'}})
  322. Output(Speaker, 'Is now rank 2','Lime green',nil,Plr.Name)
  323. Output(Plr,'You are now rank 2',GetColor(Plr),nil,Plr.Name)
  324. else
  325. Savage.Ranked[Plr.Name].Rank = 2
  326. Output(Speaker, 'Is now rank 2','Lime green',nil,Plr.Name)
  327. Output(Plr,'You are now rank 2',GetColor(Plr),nil,Plr.Name)
  328. end
  329. end,nil)
  330. Output(Speaker,3,GetColor(Speaker),function()
  331. if Savage.Ranked[Plr.Name] == nil then
  332. table.insert(Savage['Ranked'],{[Plr.Name] = {Rank = 3, Description = 'Temp Admin Rank 3', Color = 'Dark stone grey'}})
  333. Output(Speaker, 'Is now rank 3','Lime green',nil,Plr.Name)
  334. Output(Plr,'You are now rank 3',GetColor(Plr),nil,Plr.Name)
  335. else
  336. Savage.Ranked[Plr.Name].Rank = 3
  337. Output(Speaker, 'Is now rank 3','Lime green',nil,Plr.Name)
  338. Output(Plr,'You are now rank 3',GetColor(Plr),nil,Plr.Name)
  339. end
  340. end,nil)
  341. Output(Speaker,4,GetColor(Speaker),function()
  342. if Savage.Ranked[Plr.Name] == nil then
  343. table.insert(Savage['Ranked'],{[Plr.Name] = {Rank = 4, Description = 'Temp Admin Rank 4', Color = 'Medium stone grey'}})
  344.  
  345. Output(Speaker, 'Is now rank 4','Lime green',nil,Plr.Name)
  346. Output(Plr,'You are now rank 4',GetColor(Plr),nil,Plr.Name)
  347. else
  348. Savage.Ranked[Plr.Name].Rank = 4
  349. Output(Speaker, 'Is now rank 4','Lime green',nil,Plr.Name)
  350. Output(Plr,'You are now rank 4',GetColor(Plr),nil,Plr.Name)
  351. end
  352. end,nil)
  353. Output(Speaker,5,GetColor(Speaker),function()
  354. if Savage.Ranked[Plr.Name] == nil then
  355. table.insert(Savage['Ranked'],{[Plr.Name] = {Rank = 5, Description = 'Temp Admin Rank 5', Color = 'Mid gray'}})
  356.  
  357. Output(Speaker, 'Is now rank 5','Lime green',nil,Plr.Name)
  358. Output(Plr,'You are now rank 5',GetColor(Plr),nil,Plr.Name)
  359. else
  360. Savage.Ranked[Plr.Name].Rank = 3
  361. Output(Speaker, 'Is now rank 5','Lime green',nil,Plr.Name)
  362. Output(Plr,'You are now rank 5',GetColor(Plr),nil,Plr.Name)
  363. end
  364. end,nil)
  365. Output(Speaker,6,GetColor(Speaker),function()
  366. if Savage.Ranked[Plr.Name] == nil then
  367. table.insert(Savage['Ranked'],{[Plr.Name] = {Rank = 6, Description = 'Temp Admin Rank 6', Color = 'Light stone grey'}})
  368.  
  369. Output(Speaker, 'Is now rank 6','Lime green',nil,Plr.Name)
  370. Output(Plr,'You are now rank 6',GetColor(Plr),nil,Plr.Name)
  371. else
  372. Savage.Ranked[Plr.Name].Rank = 6
  373. Output(Speaker, 'Is now rank 6','Lime green',nil,Plr.Name)
  374. Output(Plr,'You are now rank 6',GetColor(Plr),nil,Plr.Name)
  375. end
  376. end,nil)
  377. Output(Speaker,7,GetColor(Speaker),function()
  378. if Savage.Ranked[Plr.Name] == nil then
  379. table.insert(Savage['Ranked'],{[Plr.Name] = {Rank = 7, Description = 'Temp Admin Rank 7', Color = 'White'}})
  380.  
  381. Output(Speaker, 'Is now rank 7','Lime green',nil,Plr.Name)
  382. Output(Plr,'You are now rank 7',GetColor(Plr),nil,Plr.Name)
  383. else
  384. Savage.Ranked[Plr.Name].Rank = 7
  385. Output(Speaker, 'Is now rank 7','Lime green',nil,Plr.Name)
  386. Output(Plr,'You are now rank 7',GetColor(Plr),nil,Plr.Name)
  387. end
  388. end,nil)
  389. Output(Speaker,1337,GetColor(Speaker),function()
  390. if Savage.Ranked[Plr.Name] == nil then
  391. table.insert(Savage['Ranked'],{[Plr.Name] = {Rank = 1337, Description = 'Temp Admin Rank 1337[Developer Status]', Color = 'Institutional white'}})
  392.  
  393. Output(Speaker, 'Is now rank 1337[Developer Status]','Lime green',nil,Plr.Name)
  394. Output(Plr,'You are now rank 1337[Developer Status]',GetColor(Plr),nil,Plr.Name)
  395. else
  396. Savage.Ranked[Plr.Name].Rank = 1337
  397. Output(Speaker, 'Is now rank 1337[Developer Status]','Lime green',nil,Plr.Name)
  398. Output(Plr,'You are now rank 1337[Developer Status]',GetColor(Plr),nil,Plr.Name)
  399. end
  400. end,nil)
  401. --[[if type(Plr) == "userdata" then
  402. Plr = Plr.Name
  403. elseif type(Plr) == "string" then
  404. Plr = Plr
  405. else
  406. Plr = tostring(Plr)
  407. end
  408. local rank = nil
  409. rank = 0
  410. for _,v in pairs(Savage['Ranked']) do
  411. if v['Name']:lower():sub(1,#Plr) == Plr:lower() then
  412. v.Rank = tonumber(rank)
  413. end
  414. end--]]
  415. end
  416.  
  417.  
  418. AddCmd = function(Name, Say, Rank, Description, Arguments, Function)
  419. table.insert(Savage.Commands,{Name = Name, Say = Say, Rank = Rank, Description = Description, Arguments = Arguments, Function = Function})
  420. end
  421.  
  422. GetDesc = function(v)
  423. local Desc = 0
  424. if type(v) == 'userdata' then
  425. v = v.Name
  426. end
  427. if type(v) == 'string' then
  428. if Savage.Ranked[v] then
  429. Desc = Savage.Ranked[v].Description
  430. end
  431. end
  432. return Desc
  433. end
  434. GetRank = function(v)
  435. local Rank = 0
  436. local Desc = 0
  437. if type(v) == 'userdata' then
  438. v = v.Name
  439. end
  440. if type(v) == 'string' then
  441. if Savage.Ranked[v] then
  442. Rank = Savage.Ranked[v].Rank
  443. Desc = Savage.Ranked[v].Description
  444. end
  445. end
  446. return Rank
  447. end
  448.  
  449. GetColor = function(v)
  450. local Color = 'White'
  451. if type(v) == 'userdata' then
  452. v = v.Name
  453. end
  454. if type(v) == 'string' then
  455. if Savage.Ranked[v] then
  456. Color = Savage.Ranked[v].Color
  457. end
  458. end
  459. return Color
  460. end
  461.  
  462. Logs = {}
  463.  
  464.  
  465. Savage.Functions.Chatted=function(speaker, message)
  466. if message:sub(1, 2) == '/e' then
  467. if #message > 3 then
  468. message = message:sub(4)
  469. end
  470. elseif message:sub(1, 1) == '/' then
  471. if #message > 2 then
  472. message = message:sub(2)
  473. end
  474. end
  475.  
  476. table.insert(Logs, {['Message'] = message, ['Name'] = speaker.Name})
  477.  
  478. local command=message
  479. for _, CMDS in pairs(Savage.Commands) do
  480. if command:sub(1, #CMDS['Say']+#key) == CMDS['Say']..key then
  481. if GetRank(speaker) >= CMDS['Rank'] then
  482. local msg = command:sub(#CMDS["Say"]+#key+1)
  483. local a,b = ypcall(function()
  484. CMDS["Function"](speaker, msg)
  485. end)
  486. if not a then warn(b) end
  487. else
  488. Output(speaker, 'You need to be '..CMDS['Rank']..' to use that command!', 'Really red')
  489. end
  490. end
  491. end
  492. end
  493. rot = 0
  494.  
  495. Savage.Functions.RotateTablets = function()
  496. --pcall(function()
  497. rot=rot+(0.1/100)
  498. for _,Player in pairs(game:service'Players':GetPlayers()) do
  499. local Counter = 0
  500. local PlayerTablets = {}
  501. for i,v in pairs(Savage.Tablets) do
  502. if v.Tab.Parent ~= nil and v.Player==Player then
  503. table.insert(PlayerTablets,v)
  504. end
  505. end
  506.  
  507.  
  508. local Start = CFrame.new(0,0,0)
  509. for I = 1, #PlayerTablets do
  510. local radius = (#PlayerTablets*1.5)+5
  511. local Pos = nil
  512. pcall(function() Pos = Player.Character.Torso.CFrame end)
  513. if Pos == nil then return end
  514. local Main = (I / #PlayerTablets - (.5 / #PlayerTablets) + rot/(#PlayerTablets/10)) * math.pi * 2
  515. local x=math.sin(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*I) * (#PlayerTablets+5)
  516. local y=math.sin(math.sin(tick()+360/#PlayerTablets),.1)
  517. local z=math.cos(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*I) * (#PlayerTablets+5)
  518. local aPos = Vector3.new(x, y, z) + Pos.p
  519. local bPos = PlayerTablets[I].Tab.CFrame.p
  520. local cPos = (aPos * .1 + bPos * .9)
  521. PlayerTablets[I].Tab.CFrame = CFrame.new(cPos, Pos.p)
  522. local d=math.rad((rot*400)*math.pi);
  523. PlayerTablets[I].Tab.CFrame=CFrame.new(cPos,Pos.p)*CFrame.Angles(d/2,d*4,d)
  524. * CFrame.fromEulerAnglesXYZ(0,math.sin(time()/math.pi),0)
  525. end
  526. end
  527. --end)--]]
  528.  
  529. end
  530.  
  531. -- o k
  532. Savage.Functions.Hint = function(player, text)
  533. coroutine.resume(coroutine.create(function()
  534. local m=player:WaitForChild('PlayerGui')
  535. for _,v in pairs(m:children()) do
  536. if v.Name:lower():sub(1,5) == 'lunar' then
  537. v:destroy()
  538. end
  539. end
  540. local g1 = Instance.new("ScreenGui", m)
  541. g1.Name = "LUNAR_HINT"
  542. local o1 = Instance.new("TextLabel", g1)
  543. o1.BackgroundColor3 = Color3.new(0, 0, 0)
  544. o1.BorderColor3 = Color3.new(0,0, 1)
  545. o1.BorderSizePixel = 2
  546. o1.Position = UDim2.new(0, 0, 0, 0)
  547. o1.Size = UDim2.new(0, 1380, 0, 50)
  548. o1.ClipsDescendants = true
  549. o1.Text = ''
  550. o1.TextColor3 = Color3.new(1, 1, 1)
  551. o1.TextStrokeColor3 = Color3.new(0, 0, 1)
  552. o1.TextStrokeTransparency = 0
  553. o1.Font = Enum.Font.ArialBold
  554. o1.FontSize = Enum.FontSize.Size24
  555. local M=o1
  556. local Text=text
  557. for i = 1, string.len(Text) do
  558. M.Text = M.Text .. string.sub(Text, i, i)
  559. wait(math.random() * 0.1)
  560. end
  561. M.Text = M.Text .. ""
  562. for i = 1, math.random(2, 6) do
  563. M.Text = string.sub(M.Text, 1, string.len(Text)) .. "|"
  564. wait(0.4)
  565. M.Text = string.sub(M.Text, 1, string.len(Text)) .. ""
  566. wait(0.4)
  567. end
  568. M.Text = string.sub(M.Text, 1, string.len(Text))
  569. for i = 1, string.len(M.Text) do
  570. M.Text = string.sub(M.Text, 1, string.len(M.Text) - 1)
  571. wait()
  572. end
  573. g1:Destroy()
  574. end))
  575. end
  576.  
  577. Savage.Functions.GuiNotify = function(plr,txt,time)
  578. --wait(time);
  579. coroutine.wrap(function()
  580. if time==nil then time=5 end
  581. local Notify = Instance.new("ScreenGui", plr.PlayerGui);
  582. Notify.Name = "Savage's Notify";
  583. local TextLabel = Instance.new("TextLabel", Notify);
  584. TextLabel.Size = UDim2.new(1,0,0,30);
  585. TextLabel.Position = UDim2.new(1,0,0,0);
  586. TextLabel.Text = txt;
  587. TextLabel.FontSize = 'Size24'
  588. TextLabel.BackgroundColor3 = Color3.new(1,1,1);
  589. TextLabel.BackgroundTransparency = .42;
  590. TextLabel.Font = "Arial";
  591. TextLabel.TextColor3 = Color3.new(0,0,0);
  592. TextLabel.TextScaled = false;
  593. TextLabel.TextStrokeTransparency = .4
  594. TextLabel.TextStrokeColor3 = Color3.new(1,1,1)
  595. TextLabel.BorderSizePixel = 0;
  596. TextLabel:TweenPosition(UDim2.new(0,0,0,0),'Out','Quint',2,true);
  597. wait(time);
  598. TextLabel:TweenPosition(UDim2.new(-1,0,0,0),'Out','Quint',2,true);
  599. wait(3)
  600. Notify:Destroy();
  601. end)();
  602. end
  603.  
  604. --Insert here [Sound Search]
  605.  
  606. Savage.Functions.Explore=function(p, part)
  607.  
  608. end
  609.  
  610.  
  611. Savage.Functions.GetProperties = function(obj)
  612. assert(pcall(function() assert(game.IsA(obj,"Instance")) end),"Should be ROBLOX instance")
  613. local objProper = {}
  614. for i,v in pairs(Savage['Properties']) do
  615. if pcall(function() return obj[v] end) and (type(obj[v]) ~= "userdata" or not obj:FindFirstChild(v)) then
  616. objProper[v] = obj[v]
  617. end
  618. end
  619. return objProper
  620. end
  621.  
  622.  
  623.  
  624. for _,Player in pairs(game:service("Players"):GetPlayers()) do
  625. --Output(Player,"Made by GravityLegendary, and SavageMunkey",GetColor(Player));
  626. Output(Player,"You are Rank : " ..GetRank(Player),GetColor(Player));
  627. -- Output(Player,"Your Color is : " ..GetColor(Player),GetColor(Player));
  628. Output(Player,"Your Key is : " ..key,GetColor(Player));
  629. -- Output(Player,"Savage Tabs Gen 1 Connected","White");
  630. Player.Chatted:connect(function(Message)
  631. Savage.Functions.Chatted(Player, Message)
  632. end)
  633. end
  634.  
  635. Savage.Functions.DismissAll = function(Player)
  636. for _,p in pairs(game.Players:GetChildren()) do
  637. Savage.Functions.Dismiss(p)
  638. end
  639. end
  640.  
  641. Savage.Functions.GetPlayers = function(plr, msg)
  642. local plrs = {}
  643. if msg == "me" then
  644. table.insert(plrs, plr)
  645. elseif msg == "all" then
  646. for _,v in pairs(game:service'Players':players()) do
  647. if GetRank(v) <= GetRank(plr) then
  648. table.insert(plrs, v)
  649. end
  650. end
  651. elseif msg == "noobs" then
  652. for _,v in pairs(game:service'Players':players()) do
  653. if v.AccountAge < 364 then
  654. table.insert(plrs, v)
  655. end
  656. end
  657. elseif msg == "others" then
  658. for _,v in pairs(game:service'Players':players()) do
  659. if v ~= plr then
  660. if GetRank(v) <= GetRank(plr) then
  661. table.insert(plrs, v)
  662. end
  663. end
  664. end
  665. else
  666. for _,v in pairs(game:service'Players':players()) do
  667. if v.Name:lower():sub(1,#msg) == msg:lower() then
  668. if GetRank(v) <= GetRank(plr) then
  669. table.insert(plrs, v)
  670. end
  671. end
  672. end
  673. end
  674. return plrs
  675. end
  676.  
  677. function PlaySound(name, id, pitch, loop)
  678. epicsound = Instance.new("Sound")
  679. epicsound.Name = "Epicosound"
  680. epicsound.SoundId = "rbxassetid://"..id
  681. epicsound.Volume = 1
  682. epicsound.Pitch = pitch
  683. epicsound.Name = name
  684. epicsound.Looped = true
  685. epicsound.Parent = script
  686. if epicsound.SoundId=="rbxassetid://tt" then -- TELL ME, TELL ME, WHERE DA FREAKS AT!
  687. epicsound.SoundId="rbxassetid://181158033"
  688. elseif epicsound.SoundId=="rbxassetid://fabulous" then -- FA-FA-FABULOUS!
  689. epicsound.SoundId="rbxassetid://191819419"
  690. elseif epicsound.SoundId=="rbxassetid://ufdb" then -- ultimate final death battle(fairy tail XD)
  691. epicsound.SoundId="rbxassetid://153085393"
  692. elseif epicsound.SoundId=="rbxassetid://nnm" then
  693. epicsound.SoundId="rbxassetid://210189234"
  694. elseif epicsound.SoundId=="rbxassetid://tun" then -- tunak tunak tun
  695. epicsound.SoundId="rbxass/setid://162682002"
  696. elseif epicsound.SoundId=="rbxassetid://zelda" then
  697. epicsound.SoundId="rbxassetid://158215156"
  698. elseif epicsound.SoundId=="rbxassetid://cc" then
  699. epicsound.SoundId="rbxassetid://177080835"
  700. end
  701. epicsound:Play()
  702. end
  703.  
  704.  
  705. function StopMusic(parent)
  706. if parent==nil then parent=script end
  707. for _,v in pairs(parent:GetChildren()) do
  708. if v:IsA("Sound") then
  709. v:stop()
  710. v.Volume = 0
  711. wait()
  712. v:Destroy()
  713. end
  714. end
  715. end
  716.  
  717. Savage.Functions.Kick = function(Player)
  718. local Re = Instance.new('RemoteEvent',workspace):FireClient(Player,{string.rep('Kicked',2e5+5)})
  719. delay(1,function()
  720. pcall(function() workspace.RemoteEvent:Destroy() end)
  721. end)
  722. end
  723.  
  724. Savage.Functions.SoundSearch2 = function(Speaker, msg, Num, load)
  725. if load == true then
  726. Savage.Functions.Dismiss(Speaker)
  727. Output(Speaker,'Searching...','Lime green',nil,'Searching')
  728. end
  729. http=game:GetService'HttpService'
  730. url="http://roproxy.tk/catalog/json?Keyword="..http:UrlEncode(msg).."&Category=9&ResultsPerPage="..Num
  731. local assets=http:JSONDecode(http:GetAsync(url))
  732. Savage.Functions.Dismiss(Speaker)
  733. for i,v in pairs(assets) do
  734. Output(Speaker, v.Name, GetColor(Speaker), function()
  735. Savage.Functions.Dismiss(Speaker)
  736. Id=assets[i].AssetId
  737. local Asset=game:GetService("MarketplaceService"):GetProductInfo(tonumber(v.AssetId))
  738. Output(Speaker, "AssetType: "..Asset['AssetTypeId'], GetColor(Speaker))
  739. Output(Speaker, "Name: "..Asset['Name'], GetColor(Speaker))
  740. Output(Speaker, "Sales: "..Asset['Sales'], GetColor(Speaker))
  741. Output(Speaker, 'Description: '..Asset['Description'],GetColor(Speaker))
  742. Output(Speaker, "Id: "..Asset['AssetId'], GetColor(Speaker))
  743. Output(Speaker, "Back",'Really red',function()Savage.Functions.SoundSearch2(Speaker, msg, Num, false)end,'Recent Page')
  744. Output(Speaker, "Play sound", 'Lime green', function()
  745. Savage.Functions.Dismiss(Speaker)
  746. StopMusic(script)
  747. PlaySound(Asset['Name'],tonumber(v.AssetId), 1,false)
  748. end)
  749. Output(Speaker, "Nightcore It!", 'Lime green', function()
  750. Savage.Functions.Dismiss(Speaker)
  751. StopMusic()
  752. PlaySound(Asset['Name'],tonumber(v.AssetId), 1.25,false)
  753. end)
  754. Output(Speaker, "Play sound custom pitch", 'Lime green', function()
  755. Savage.Functions.Dismiss(Speaker)
  756. for i = .1, 2, .1 do
  757. Output(Speaker, i,GetColor(Speaker), function()
  758. Savage.Functions.Dismiss(Speaker)
  759. StopMusic()
  760. PlaySound(Asset['Name'],tonumber(v.AssetId), i,false)
  761. end)
  762. end
  763. end)
  764. end)
  765. end
  766. end
  767.  
  768. Savage.Functions.SoundSearch = function(Speaker, msg, Num)
  769. Num = 10
  770. Savage.Functions.Dismiss(Speaker)
  771. Output(Speaker,'How many results?','Really red')
  772. Output(Speaker,'5','Lime green',function() Savage.Functions.SoundSearch2(Speaker,msg,5,true) end)
  773. Output(Speaker,'10','Lime green',function() Savage.Functions.SoundSearch2(Speaker,msg,10,true) end)
  774. Output(Speaker,'20','Lime green',function() Savage.Functions.SoundSearch2(Speaker,msg,20,true) end)
  775. Output(Speaker,'30','Lime green',function() Savage.Functions.SoundSearch2(Speaker,msg,30,true) end)
  776. Output(Speaker,'40','Lime green',function() Savage.Functions.SoundSearch2(Speaker,msg,40,true) end)
  777. Output(Speaker,'50','Lime green',function() Savage.Functions.SoundSearch2(Speaker,msg,50,true) end)
  778. --Output(Speaker,'60','Lime green',function() Savage.Functions.SoundSearch2(Speaker,msg,60,true) end)
  779. --Output(Speaker,'70','Lime green',function() Savage.Functions.SoundSearch2(Speaker,msg,70,true) end)
  780. --Output(Speaker,'80','Lime green',function() Savage.Functions.SoundSearch2(Speaker,msg,80,true) end)
  781. --Output(Speaker,'90','Lime green',function() Savage.Functions.SoundSearch2(Speaker,msg,90,true) end)
  782. --Output(Speaker,'100','Lime green',function() Savage.Functions.SoundSearch2(Speaker,msg,100,true) end)--]]
  783. end
  784.  
  785. Savage.Functions.Execute = function(Plr, msg)
  786. local Res,Err=loadstring(msg)() --Res is here
  787. if Err then
  788. Output(Plr, Err, "Really red")
  789. elseif not Err then
  790. getfenv(Res).print=function(...)
  791. local D={...}
  792. for i,P in next,D do
  793. Output(Plr, tostring(P), "Really blue")
  794. end
  795. end
  796. end
  797. end
  798.  
  799. function ShowSortedCommands(p)
  800. Savage.Functions.Dismiss(p)
  801. wait(0.5)
  802. Output(p,'Rank 0 commands',GetColor(p),function() ShowCommandsForRank(p,0) end)
  803. Output(p,'Rank 1 commands',GetColor(p),function() ShowCommandsForRank(p,1) end)
  804. Output(p,'Rank 2 commands',GetColor(p),function() ShowCommandsForRank(p,2) end)
  805. Output(p,'Rank 3 commands',GetColor(p),function() ShowCommandsForRank(p,3) end)
  806. Output(p,'Rank 4 commands',GetColor(p),function() ShowCommandsForRank(p,4) end)
  807. Output(p,'Rank 5 commands',GetColor(p),function() ShowCommandsForRank(p,5) end)
  808. Output(p,'Rank 6 commands',GetColor(p),function() ShowCommandsForRank(p,6) end)
  809. Output(p,'Rank 7 commands', GetColor(p), function() ShowCommandsForRank(p,7) end)
  810. Output(p,'All commands',GetColor(p),function() ShowCommandsForRank(p,5) end)
  811. Output(p,'Commands for your rank ('..GetRank(p)..')','Lime green',function() ShowCommandsForRank(p,GetRank(p)) end)
  812. Output(p,'Dismiss','Really red',function() Savage.Functions.Dismiss(p) end)
  813. end
  814.  
  815. Savage.Functions.ShowMusic = function(Speaker)
  816. Savage.Functions.Dismiss(Speaker)
  817. for _,a in pairs(script:GetChildren()) do
  818. if a:IsA('Sound') then
  819. Output(Speaker,a['Name'],GetColor(Speaker),function()
  820. Output(Speaker,'Destroy '..a['Name'],'Really red',function()
  821. for i = 1,20 do
  822. a.Volume = a.Volume - .05
  823. wait()
  824. end
  825. Savage.Functions.ShowMusic(Speaker)
  826. a:Destroy()
  827. end)
  828. if a.IsPlaying == false then
  829. Output(Speaker,'Play','Lime green',function()
  830. a:play()
  831. Savage.Functions.ShowMusic(Speaker)
  832. end)
  833. end
  834. if a.IsPlaying == true then
  835. Output(Speaker,'Pause','Really red',function()
  836. a:stop()
  837. Savage.Functions.ShowMusic(Speaker)
  838. end)
  839. end
  840. Output(Speaker, 'Restart','Really red',function()a:Play()end)
  841.  
  842. Output(Speaker,a['SoundId'],GetColor(Speaker),nil,'Sound Id')
  843. --Output(Speaker,a.Parent,GetColor(Speaker),nil,'Parent')
  844. Output(Speaker,a['Volume'],GetColor(Speaker),nil,'Volume')
  845. Output(Speaker,a['Pitch'],GetColor(Speaker),nil,'Pitch')
  846. Output(Speaker,a['Name'],GetColor(Speaker),nil,'Name')
  847. Output(Speaker,'Change Pitch',GetColor(Speaker),function()
  848. Savage.Functions.Dismiss(Speaker)
  849. for i = .1, 2, .1 do
  850. Output(Speaker, i,GetColor(Speaker), function()
  851. Savage.Functions.ShowMusic(Speaker)
  852. a.Pitch = i
  853. end)
  854. end
  855.  
  856. end) Output(Speaker,'Change Volume',GetColor(Speaker),function()
  857. Savage.Functions.Dismiss(Speaker)
  858. for i = .1, 2, .1 do
  859. Output(Speaker, i,GetColor(Speaker), function()
  860. Savage.Functions.ShowMusic(Speaker)
  861. a.Volume = i
  862. end)
  863. end
  864.  
  865. end)
  866. end)
  867. end
  868. end
  869. end
  870.  
  871. Savage.Functions.Bland = function(Speaker)
  872. Savage.Functions.Dismiss(Speaker)
  873. for _,Player in pairs(Savage.Bans) do
  874. --pcall(function()
  875. Output(Speaker,Player['Name'],GetColor(Speaker),function()
  876. Savage.Functions.Dismiss(Speaker)
  877. Output(Speaker,'Reason for ban: '..Player.Reason4Ban,GetColor(Speaker))
  878. Output(Speaker,'Back','Really red',function()Savage.Functions.Bland(Speaker)end)
  879. Output(Speaker,'Name: '..Player['Name'],GetColor(Speaker))
  880. Output(Speaker,'Unban','Lime green',function()
  881. Savage.Bans[Player['Name']] = nil
  882. Savage.Bans[Player['Reason4Ban']] = nil
  883. Savage.Functions.Bland(Speaker) end)
  884. end)
  885. --end)
  886. end
  887. end
  888.  
  889. Savage.Functions.MakeLogs = function(Speaker)
  890. Savage.Functions.Dismiss(Speaker)
  891. Output(Speaker,'Back','Really red',function()Savage.Functions.ShowLogs(Speaker)end)
  892. Output(Speaker,'Refresh','Lime green',function()
  893. --Savage.Functions.Dismiss(Speaker)
  894. Savage.Functions.MakeLogs(Speaker)
  895. end) -- fixed I think
  896.  
  897. table.foreach(Logs,function(i,v)
  898. Output(Speaker, '['..v['Name'].. ']: ' ..v['Message'], GetColor(Speaker), function()end)
  899. -- fixed I think
  900.  
  901. end)
  902.  
  903. --Output(Speaker, v, GetColor(v), function() Savage.Functions.Dismiss(Speaker)
  904. end
  905.  
  906. Savage.Functions.ShowLogs = function(Speaker)
  907. Savage.Functions.Dismiss(Speaker)
  908. Output(Speaker,'View Logs','Lime green',function()Savage.Functions.MakeLogs(Speaker)end)
  909. Output(Speaker,'Clear logs','Really red',function()
  910. --Savage.Functions.Dismiss(Speaker)
  911. Output(Speaker,'Cleared Logs','Lime green',function()end)
  912. Logs = {}
  913. end)
  914. end
  915. function ShowCommandsForRank(p,rank)
  916. if rank==nil then rank=0 end
  917. Savage.Functions.Dismiss(p)
  918. wait(0.5)
  919. coroutine.resume(coroutine.create(function()
  920. for _,cmd in next,Savage.Commands do
  921. if cmd.Rank<=rank then
  922. Output(p,cmd.Name..'['..cmd.Rank..']',GetColor(p),function()
  923. Savage.Functions.Dismiss(p)
  924. wait(0.5)
  925. Output(p,'Name : ' ..cmd.Name,GetColor(p))
  926. Output(p,'Description : ' ..cmd.Description,GetColor(p))
  927. Output(p,'Usage: '..cmd.Say..key, GetColor(p))
  928. Output(p,'Rank needed: '..cmd.Rank,GetColor(p))
  929. Output(p,'Back','Lime green',function() ShowCommandsForRank(p,rank) end)
  930. Output(p,'Dismiss','Really red',function() Savage.Functions.Dismiss(p) end)
  931. end)
  932. end
  933. end
  934. Output(p,'Back','Lime green',function()Savage.Functions.Dismiss(p) ShowSortedCommands(p) end)
  935. Output(p,'Dismiss','Really red',function() Savage.Functions.Dismiss(p) end)
  936. end))
  937. end
  938.  
  939. Savage.Functions.Networkplrs = function(Speaker)
  940. Savage.Functions.Dismiss(Speaker)
  941. for i,v in ipairs(game:FindService("NetworkServer"):GetChildren()) do
  942. local Players=v:GetPlayer();
  943. if(not Players.Parent) then
  944. Output(Speaker,Players.Name..' | Nil',GetColor(Speaker),function()
  945. Savage.Functions.Dismiss(Speaker)
  946. if(not Players.Parent) then
  947. Output(Speaker,'Parent: Nil',GetColor(Speaker),function()end)
  948. elseif (Players.Parent) then
  949. Output(Speaker,'Parent: Players',GetColor(Speaker),function()end)
  950. end
  951. Output(Speaker,'Name: '..Players.Name,GetColor(Speaker),function()end)
  952. Output(Speaker,'Kick','Really red',function()
  953. Savage.Functions.Kick(Players)
  954. end)
  955. Output(Speaker,'Back','Lime green',function()
  956. Savage.Functions.Networkplrs(Speaker)
  957. end)
  958. end)
  959. elseif (Players.Parent) then
  960. Output(Speaker,Players.Name..' | Players',GetColor(Speaker),function()
  961. Savage.Functions.Dismiss(Speaker)
  962. if(not Players.Parent) then
  963. Output(Speaker,'Parent: Nil',GetColor(Speaker),function()end)
  964. elseif (Players.Parent) then
  965. Output(Speaker,'Parent: Players',GetColor(Speaker),function()end)
  966. end
  967. Output(Speaker,'Name: '..Players.Name,GetColor(Speaker),function()end)
  968. Output(Speaker,'Kick','Really red',function()
  969. Savage.Functions.Kick(Players)
  970. end)
  971. Output(Speaker,'Back','Lime green',function()
  972. Savage.Functions.Networkplrs(Speaker)
  973. end)
  974. end)
  975. end
  976. end
  977. end
  978.  
  979. function GetChildNum(of)
  980. local Object = #of:GetChildren()
  981. return Object
  982. end
  983.  
  984. Savage.Functions.PenPistol = function(Plr)
  985. plr = Plr
  986. bp = plr.Backpack
  987. Rool = Instance.new("Tool",bp)
  988. Rool.Name = 'Pen Pistol'
  989. Rool.ToolTip = 'A Class - A PenPistol [SavageScripts]'
  990. bulcount = 0
  991. Part = Instance.new("Part",bp['Pen Pistol'])
  992. --mesh = Instance.new('BlockMesh',Part)
  993. --mesh.Offset = Vector3.new(-1,2,-1)
  994. Part.FormFactor = 'Custom'
  995. Part.Position = Vector3.new(-1,2,-2)
  996. Part.Rotation = Vector3.new(0,0,90)
  997. Part.Size = Vector3.new(.2,.2,1)
  998. Part.Name = "Handle"
  999. local user = plr
  1000. TriggerDown = false
  1001. local tool = bp['Pen Pistol']
  1002. tool.Equipped:connect(function(mouse)
  1003. user = tool.Parent
  1004. mouse.Button1Down:connect(function()
  1005. local c = Instance.new('Sound',Part)
  1006. c.Pitch = 2.3
  1007. c.Volume = 3
  1008. c.SoundId = 'http://www.roblox.com/asset/?id=25270310'
  1009. c:play()
  1010. local ray = Ray.new(tool.Handle.CFrame.p, (mouse.Hit.p - tool.Handle.CFrame.p).unit*300)
  1011.  
  1012. local hit, position = game.Workspace:FindPartOnRay(ray, user)
  1013. local distance = (position - tool.Handle.CFrame.p).magnitude
  1014. local rayPart = Instance.new("Part", workspace)
  1015. rayPart.BottomSurface = 'Smooth'
  1016. rayPart.Size = Vector3.new(0.2, 0.2, distance)
  1017. rayPart.formFactor = Enum.FormFactor.Custom
  1018. rayPart.CFrame = CFrame.new(position, tool.Handle.CFrame.p) * CFrame.new(0, 0, -distance/2)
  1019. rayPart.Name = "raypart"
  1020. rayPart.FormFactor = 'Custom'
  1021. rayPart.BrickColor = BrickColor.Yellow()
  1022. rayPart.TopSurface = 'Smooth'
  1023. rayPart.Anchored = true
  1024. rayPart.CanCollide = false
  1025. local humanoid = hit
  1026. if humanoid then
  1027. if humanoid ~= rayPart then
  1028. if humanoid.Name ~= 'Base' then
  1029. humanoid.BrickColor = BrickColor.Red()
  1030. for i = 1,20 do
  1031. humanoid.Transparency = humanoid.Transparency + .05
  1032. wait()
  1033. end
  1034. humanoid:Destroy()
  1035. end
  1036. end
  1037. end
  1038. --[[local part =Instance.new('Part',user)
  1039. part.Anchored = true
  1040. part.BrickColor = BrickColor.Black()
  1041. part.CFrame = CFrame.new(position, tool.Handle.CFrame.p) * CFrame.new(0, 0, -distance/2)
  1042. part.Name = 'hitpart'
  1043. part.FormFactor = 'Custom'
  1044. part.CanCollide = false
  1045. part.Size = Vector3.new(.2,.2,.2)
  1046. game.Debris:AddItem(part, 2)--]]
  1047. --[[local m = Instance.new('Explosion',workspace)
  1048. m.BlastRadius = 1
  1049. m.Position = mouse.Hit.p--]]
  1050. rayPart.Anchored = true
  1051. bulcount = bulcount + 1
  1052. print(bulcount..' Bullets fired')
  1053. game.Debris:AddItem(rayPart, .1)
  1054. end)
  1055. end)
  1056.  
  1057. game:GetService('RunService').Heartbeat:connect(function()
  1058. if plr.Character.Humanoid.Health <= 1 then
  1059. --Rool:Destroy()
  1060. plr.Character.Humanoid:Destroy()
  1061. e = Instance.new('Humanoid',plr.Character)
  1062. --plr:MakeJoints()
  1063. end
  1064. end)
  1065. user.ChildAdded:connect(function(p)
  1066. if p.Name == 'raypart' then
  1067. game.Debris:AddItem(p,4)
  1068. end
  1069. end)
  1070. end
  1071.  
  1072. --[[m = Instance.new('Script',CloneFolder)
  1073. m.Name = 'Nothing to clone'
  1074. Savage.Functions.Expl = function(Speaker, item)
  1075. item = {}
  1076. Savage.Functions.Dismiss(Speaker)
  1077. Output(Speaker,'Dismiss','Really red',function()Savage.Functions.Dismiss(Speaker)end)
  1078. Output(Speaker,'ClassName: ',GetColor(Speaker),nil)
  1079. Output(Speaker,'Exploreable Children: '..GetChildNum(game),GetColor(Speaker),nil)
  1080. Output(Speaker,'Explore Game','Lime green',function()
  1081. Savage.Functions.Dismiss(Speaker)
  1082. Output(Speaker,'Getting Objects','Lime green',nil,'Searching...')
  1083. wait(math.random(GetChildNum(game)/10/math.random(1,3)))
  1084. Savage.Functions.Dismiss(Speaker)
  1085. for _,Item in pairs(game:GetChildren()) do
  1086. if Item:IsA('Instance') then end
  1087. if Item then
  1088. Output(Speaker,Item.Name,GetColor(Speaker),nil)
  1089. end
  1090. end
  1091. end)
  1092. end--]]
  1093.  
  1094. --[[Output = function(Player,Text,Color,Function,Title)
  1095. if Text==nil then Text='NIL' end;
  1096. if Title==nil then Title = 'SAVAGE' end;
  1097. Text='['..Title..']\n'..Text--]]
  1098.  
  1099. Savage.Functions.MakeBase = function()
  1100.  
  1101. local base = Instance.new('Part',workspace)
  1102. base.CFrame = CFrame.new(0,-0.6,0)
  1103. base.FormFactor = 'Custom'
  1104. base.Name = 'Base'
  1105. base.BrickColor = BrickColor.new('Bright green')
  1106. base.TopSurface = 'Smooth'
  1107. base.BottomSurface = 'Smooth'
  1108. base.Anchored = true
  1109. base.Material = 'Grass'
  1110. base.Size = Vector3.new(700,1.2,700)
  1111. base.Locked = true
  1112.  
  1113. end
  1114.  
  1115. Savage.Functions.Clean = function(Speaker)
  1116. Output(Speaker,'Are you sure, this wll also disable your script',GetColor(Speaker),nil,'Positive?')
  1117. Output(Speaker,'Yes','Lime green',function()
  1118. local e = Instance.new('Message',workspace)
  1119. e.Text = 'Cleaning'
  1120. e.Name = 'Cleaning Message'
  1121. for _,item in pairs(game.Workspace:GetChildren()) do
  1122. if item then
  1123. if item.Name ~= 'Terrain' then
  1124. if item.Name ~= 'Base' then
  1125. if item.Name ~= 'Cleaning Message' then
  1126. item:Destroy()
  1127. end end
  1128. end end end
  1129. e.Text = 'Cleaned'
  1130. Savage.Functions.MakeBase()
  1131. for _,v in pairs(game.Players:GetChildren()) do
  1132. if v:IsA('Player') then
  1133. v:LoadCharacter()
  1134. wait()
  1135. end
  1136. end
  1137. wait(1.5)
  1138. e:Destroy()--]]
  1139. end)
  1140. Output(Speaker,'No','Really red',function()
  1141. Savage.Functions.Dismiss(Speaker)
  1142. end)
  1143. end
  1144.  
  1145. Savage.Functions.IsInstance = function(Object)
  1146. if pcall(function() local test = Object.ClassName end) then
  1147. return true
  1148. end
  1149. return false
  1150. end
  1151.  
  1152. Savage.Functions.ExplInstance = function(Speaker, Object)
  1153. Savage.Functions.Dismiss(Speaker)
  1154. if not Savage.Functions.IsInstance(Object) then
  1155. Output(Speaker,'That object cannot be explored!','Really red',nil,"Explorer")
  1156. return
  1157. end
  1158. Output(Speaker,Object.Name,'Really red',function()Object:Destroy()end,'Destroy')
  1159. Output(Speaker,"Explore children",GetColor(Speaker),function()
  1160. Savage.Functions.ExplChildren(Speaker, Object)
  1161. end, "Explorer")
  1162. end
  1163.  
  1164. Savage.Functions.ExplChildren = function(Speaker, Object)
  1165. Savage.Functions.Dismiss(Speaker)
  1166. if not Savage.Functions.IsInstance(Object) then
  1167. Output(Speaker,'That object cannot be explored!','Really red',nil,"Explorer")
  1168. return
  1169. end
  1170. Output(Speaker,Object.Name,GetColor(Speaker),nil,'Currently Exploring')
  1171. for _,Item in ipairs(Object:GetChildren()) do
  1172. if Savage.Functions.IsInstance(Item) then
  1173. Output(Speaker,Item.Name,GetColor(Speaker),function()
  1174. Savage.Functions.ExplInstance(Speaker,Item)
  1175. end,"Explorer")
  1176. end
  1177. end
  1178. end
  1179.  
  1180. Savage.Functions.OxChat = function(Speaker, Plr)
  1181. Plr = Plr--//Ur name pls
  1182. --13 = Enter key
  1183. local Name
  1184. local SV
  1185. a = Instance.new('ScreenGui',Plr.PlayerGui)
  1186. b = Instance.new('TextBox',a)
  1187. b.Draggable = false
  1188. b.MultiLine = true
  1189. b.ClearTextOnFocus = true
  1190. b.Size = UDim2.new(0,300,0,140)
  1191. b.FontSize = 'Size18'
  1192. b.Font = 'Arial'
  1193. b.Position = UDim2.new(0,20,0,440)
  1194. b.Active = true
  1195. b.Text = 'Custom Text'
  1196. ba = Instance.new('TextBox',a)
  1197. ba.Draggable = false
  1198. ba.MultiLine = true
  1199. ba.ClearTextOnFocus = true
  1200. ba.Size = UDim2.new(0,300,0,20)
  1201. ba.FontSize = 'Size18'
  1202. ba.Font = 'Arial'
  1203. ba.Position = UDim2.new(0,20,0,420)
  1204. ba.Active = true
  1205. ba.Text = 'Custom Name'
  1206. local bb = Instance.new('TextButton',a)
  1207. bb.Draggable = false
  1208. bb.Size = UDim2.new(0,300,0,20)
  1209. bb.FontSize = 'Size18'
  1210. bb.Font = 'ArialBold'
  1211. bb.Position = UDim2.new(0,20,0,400)
  1212. bb.Active = true
  1213. bb.Text = 'Enter Text!'
  1214. for _,mk in pairs(game.Players:GetPlayers()) do
  1215. local SV1 = Instance.new('StringValue')
  1216. SV1.Parent = mk
  1217. SV1.Name = 'SB_Chat'
  1218. SV1.Value = "[Server]/"..Plr.Name.." has recieved an oxchat gui from "..Speaker.Name
  1219. game.Debris:AddItem(SV1, 2)
  1220. end
  1221. bb.MouseButton1Click:connect(function()
  1222. for _,v in pairs(game.Players:GetPlayers()) do
  1223. SV = Instance.new('StringValue')
  1224. SV.Parent = v
  1225. SV.Name = 'SB_Chat'
  1226. SV.Value = ""..ba.Text.."/"..b.Text..""
  1227. game.Debris:AddItem(SV, .1)
  1228. end
  1229. end)
  1230. end
  1231.  
  1232.  
  1233. Savage.Functions.Expl = function(Speaker, item)
  1234. Savage.Functions.ExplChildren(Speaker, game)
  1235. end
  1236.  
  1237. Savage.Functions.PriBase = function()
  1238. local base = Instance.new('Part',script)
  1239. base.CFrame = CFrame.new(0,7000,0)
  1240. base.FormFactor = 'Custom'
  1241. base.Name = 'Private Base'
  1242. base.BrickColor = BrickColor.new('Bright green')
  1243. base.TopSurface = 'Smooth'
  1244. base.BottomSurface = 'Smooth'
  1245. base.Anchored = true
  1246. base.Material = 'Grass'
  1247. base.Size = Vector3.new(2048,.2,2048)
  1248. base.Locked = true
  1249. end
  1250.  
  1251. Savage.Functions.TpBase = function(plr)
  1252. if script:FindFirstChild('Private Base') then
  1253. local PlayerTorso = plr.Character.Torso
  1254. PlayerTorso.Position = script['Private Base'].Position + Vector3.new(0,5,0)
  1255. end
  1256. end
  1257.  
  1258. Savage.Functions.TpHome = function(plr)
  1259. if workspace.Base then
  1260. local PlayerTorso = plr.Character.Torso
  1261. PlayerTorso.Position = workspace.Base.Position + Vector3.new(0,5,0)
  1262. end
  1263. end
  1264.  
  1265. AddCmd('Pri Base ','pb',2,'Make a private base.','No arguments',function(Speaker, msg)
  1266. Savage.Functions.PriBase()
  1267. Output(Speaker,'Created a base',GetColor(Speaker),nil,'Success!')
  1268. end)
  1269.  
  1270. AddCmd('Pri Base Teleport','tpb',2,'Teleport a player to you private base.',{'others'},function(Speaker, msg)
  1271. for _,Player in next,(Savage.Functions.GetPlayers(Speaker,msg)) do
  1272. if Player.Character then
  1273. Savage.Functions.TpBase(Player)
  1274. Output(Speaker,Player.Name..' Is now at your Private Base',GetColor(Speaker),nil,'Success!')
  1275. end
  1276. end
  1277. end)
  1278.  
  1279. --[[AddCmd('Pen Pistol','gun',3,'Give a player a custom made Pen Pistol.',{'others', 'all'},function(Speaker, msg)
  1280. for _,Player in next,(Savage.Functions.GetPlayers(Speaker,msg)) do
  1281. if Player.Backpack and Player.Character then
  1282. Savage.Functions.PenPistol(Player)
  1283. Output(Speaker,Player.Name..' Recieved a Pen Pistol',GetColor(Speaker),nil,'Success!')
  1284. end
  1285. end
  1286. end)--]]--Not working cuz its not a local script...
  1287.  
  1288. AddCmd('Base Teleport','tph',2,'Teleport a player to the main base.',{'others'},function(Speaker, msg)
  1289. for _,Player in next,(Savage.Functions.GetPlayers(Speaker,msg)) do
  1290. if Player.Character then
  1291. Savage.Functions.TpHome(Player)
  1292. Output(Speaker,Player.Name..' Is now at the home base',GetColor(Speaker),nil,'Success!')
  1293. end
  1294. end
  1295. end)
  1296.  
  1297. AddCmd('View Commands','cmds',0,'View all the commands','No arguments',function(plr, msg)
  1298. ShowSortedCommands(plr)
  1299. end)
  1300.  
  1301. AddCmd('Explore','explore',3,'Explore the game.','No arguments',function(plr, msg)
  1302. Savage.Functions.Expl(plr, msg)
  1303. end)
  1304.  
  1305. AddCmd('Workspace','workspace',3,'Explore the workspace.','No arguments',function(plr, msg)
  1306. Savage.Functions.ExplChildren(plr, workspace)
  1307. end)
  1308.  
  1309.  
  1310. AddCmd('Dismiss all','dta',5,'Dismiss everyones tablet.','No arguments',function(plr,msg)
  1311. Savage.Functions.DismissAll(plr)
  1312. end)
  1313.  
  1314. AddCmd('Playing music','mymusic',2,'Shows your music.','mym',function(plr,msg)
  1315. Savage.Functions.ShowMusic(plr)
  1316. end)
  1317.  
  1318. AddCmd('Kill','kill',2,'Kill a player.',{'others'},function(Speaker, msg)
  1319. for _,Player in next,(Savage.Functions.GetPlayers(Speaker,msg)) do
  1320. if Player then
  1321. Player.Character:BreakJoints() -- o shiz
  1322. Output(Speaker,'Killed '..Player.Name,GetColor(Speaker),nil,'Success!')
  1323. end
  1324. end
  1325. end)--foreach--lel
  1326.  
  1327. AddCmd('Kick','kick',3,'Kick a player.',{'others'},function(Speaker, msg)
  1328. for _,Player in next,(Savage.Functions.GetPlayers(Speaker,msg)) do
  1329. if Player then
  1330. Savage.Functions.Kick(Player)
  1331. Output(Speaker,'Kicked '..Player.Name,GetColor(Speaker),nil,'Success!')
  1332. end
  1333. end
  1334. end)
  1335.  
  1336. AddCmd('Ban','ban',5,'Ban a player.',{'others'},function(Speaker, msg)
  1337.  
  1338. for _,Player in next,(Savage.Functions.GetPlayers(Speaker,msg)) do
  1339. if Player then
  1340. Savage.Functions.Kick(Player)
  1341. Output(Speaker,'Would you like to set a reason for '..Player.Name..'\'s ban?',GetColor(Speaker),nil,'Set Reason4Ban?')
  1342. Output(Speaker,'No','Really red',function()
  1343. reason = 'Not specified'
  1344. table.insert(Savage.Bans, {['Name'] = Player.Name, ['Reason4Ban'] = reason})
  1345. Output(Speaker,'Banned '..Player.Name,GetColor(Speaker),nil,'Success!')
  1346. end,
  1347. 'Not Really')
  1348. Output(Speaker,'Yes','Lime green',function()
  1349. Output(Speaker,'Trash talking','Really red',function()
  1350. reason = 'Trash talking'
  1351. table.insert(Savage.Bans, {['Name'] = Player.Name, ['Reason4Ban'] = reason})
  1352. Output(Speaker,'Banned '..Player.Name,GetColor(Speaker),nil,'Success!')
  1353. end)
  1354. Output(Speaker,'Abusing','Really red',function()
  1355. reason = 'Abusing'
  1356. table.insert(Savage.Bans, {['Name'] = Player.Name, ['Reason4Ban'] = reason})
  1357. Output(Speaker,'Banned '..Player.Name,GetColor(Speaker),nil,'Success!')
  1358. end)
  1359. Output(Speaker,'Fming','Really red',function()
  1360. reason = 'Fming'
  1361. table.insert(Savage.Bans, {['Name'] = Player.Name, ['Reason4Ban'] = reason})
  1362. Output(Speaker,'Banned '..Player.Name,GetColor(Speaker),nil,'Success!')
  1363. end)
  1364. Output(Speaker,'Skid','Really red',function()
  1365. reason = 'Skid'
  1366. table.insert(Savage.Bans, {['Name'] = Player.Name, ['Reason4Ban'] = reason})
  1367. Output(Speaker,'Banned '..Player.Name,GetColor(Speaker),nil,'Success!')
  1368. end)
  1369. end,
  1370. 'Why not :3')
  1371. end
  1372. end
  1373. end)
  1374.  
  1375. AddCmd('Reset','reset',3,'Load a player.',{'others'},function(Speaker, msg)
  1376. for _,Player in next,(Savage.Functions.GetPlayers(Speaker, msg)) do
  1377. if Player then
  1378. Player:LoadCharacter();
  1379. Output(Speaker,'Reset '..Player.Name,GetColor(Speaker),nil,'Success!')
  1380.  
  1381. end
  1382. end
  1383. end)
  1384.  
  1385. AddCmd('Set Rank','srank',1337,'Set a players rank.','No Arguments',function(Speaker, msg)
  1386. for _,Player in next,(Savage.Functions.GetPlayers(Speaker, msg)) do
  1387. if Player then
  1388. Savage.Functions.SetRank(Speaker, Player)
  1389.  
  1390. end
  1391. end
  1392. end)
  1393.  
  1394. AddCmd('BSOD','bsod',6,'Bsod a player.','Not args',function(plr, msg)
  1395. for _,Plr in next,(Savage.Functions.GetPlayers(plr, msg)) do
  1396. if Plr then
  1397. for i = 0,28000 do
  1398. Instance.new("Message",Plr:FindFirstChild('PlayerGui')).Text='Your banned btw...'
  1399. end
  1400. end
  1401. Plr.CameraMode = 'LockFirstPerson'
  1402. end
  1403. end)
  1404.  
  1405. AddCmd('Dismiss','dt',-1,'Dismiss a tablet.','No arguments',function(plr, msg)
  1406. Savage.Functions.Dismiss(plr)
  1407. end)
  1408.  
  1409. AddCmd('Ping','ping',0,'Output a message.','No arguments',function(plr, msg)
  1410. Output(plr, msg,GetColor(plr),nil,'Ping!')
  1411. end)
  1412.  
  1413. AddCmd('Afk','afk',-1,'Away from keyboard.','No arguments',function(Speaker, msg)
  1414. local afktime = -1
  1415. local afk = true
  1416. Speaker.Chatted:connect(function()
  1417. afk = false
  1418. end)
  1419. posz = Speaker.Character.Torso.CFrame.Z
  1420. posx = Speaker.Character.Torso.CFrame.X
  1421. game["Run Service"].Heartbeat:connect(function()
  1422.  
  1423. if Speaker.Character.Torso.CFrame.Z ~= posz then
  1424. if Speaker.Character.Torso.CFrame.X ~= posx then
  1425. afk = false
  1426. end
  1427. end
  1428. end)
  1429. repeat afktime = afktime + 2
  1430. Savage.Functions.Dismiss(Speaker)
  1431. Output(Speaker,afktime..' Seconds',GetColor(plr),nil,'Afk for...')
  1432. wait(2)
  1433. Savage.Functions.Dismiss(Speaker)
  1434. until afk == false
  1435. afktime = -1
  1436. Output(Speaker,Speaker.Name,'Lime green',nil,'Welcome back!')
  1437. end)
  1438.  
  1439. AddCmd('Show banland','bland',2,'Shows a banlist of players','no args',function(Speaker, msg)
  1440. Savage.Functions.Bland(Speaker)
  1441. end)
  1442.  
  1443. AddCmd('Set Key','keyset',5,'Set the key to your liking','no args',function(Speaker, msg)
  1444. if #msg>5 then
  1445. Output(Speaker,'Key is too long! [5 Characters or less]','Really red',nil,'Notice!')
  1446. else
  1447. key = msg
  1448. wait()
  1449. Output(Speaker,'The main key has been set to '..key,'Lime green',nil,'Notice!')
  1450. end
  1451. end)
  1452.  
  1453. AddCmd('Clean','clean',3,'Clean the workspace.','no args',function(Speaker, msg)
  1454. Savage.Functions.Clean(Speaker)
  1455. end)
  1456.  
  1457. AddCmd('Base','base',2,'Make a base.','no args',function(Speaker, msg)
  1458. Savage.Functions.MakeBase()
  1459. end)
  1460.  
  1461. AddCmd('Get Rank','grank',2,'Show the rank of a player.','no args',function(Speaker, msg)
  1462. for _,Plr in next,(Savage.Functions.GetPlayers(Speaker, msg)) do
  1463. Output(Speaker,GetRank(Plr),GetColor(Plr),nil,'Rank')
  1464. Output(Speaker,GetDesc(Plr),GetColor(Plr),nil,'Description')
  1465. Output(Speaker,GetColor(Plr),GetColor(Plr),nil,'Color')
  1466. end
  1467. end)
  1468.  
  1469. AddCmd('Stop Music','nm',4,'Stop all music','No Arguments',function(Speaker, Msg)
  1470. StopMusic(workspace)
  1471. StopMusic(workspace.Base)
  1472. StopMusic(script)
  1473. for _,v in pairs(workspace:GetChildren()) do
  1474. if v:IsA('Script') then
  1475. for _,b in pairs(v:GetChildren()) do
  1476. if b:IsA('Sound') then
  1477. b:Destroy()
  1478. end
  1479. end
  1480. end
  1481. end
  1482. end)
  1483.  
  1484. AddCmd('Color','colors',1,'Set your color','No arguments',function(plr, msg)
  1485. Savage.Functions.Dismiss(plr)
  1486. Output(plr,'Red','Really red',function()
  1487. for _,Plr in next,(Savage.Ranked) do
  1488. if Plr['Name'] == plr.Name then
  1489. Plr.Color = 'Really red'
  1490. end
  1491. end
  1492. end)
  1493. Output(plr,'Orange','Deep orange')
  1494. Output(plr,'Blue','Really blue')
  1495. Output(plr,'Lime Green','Lime green')
  1496. Output(plr,'Purple','Royal purple')
  1497. Output(plr,'Black','Black')
  1498. Output(plr,'White','White')
  1499. Output(plr,'Teal','Toothpaste')
  1500. Output(plr,'Pink','Hot pink')
  1501. Output(plr,'Your color \n'..GetColor(plr),GetColor(plr))
  1502. end)
  1503.  
  1504. AddCmd("Execute","exe",2,"Exectue a message","No arguments",function(Speaker, Msg)
  1505. Savage.Functions.Execute(Speaker, Msg) -- FIXED
  1506. end)
  1507.  
  1508. AddCmd('Sound search','sm',3,'Sound search music','No arguments',function(Speaker, Msg)
  1509. Savage.Functions.SoundSearch(Speaker, Msg)
  1510. end)
  1511.  
  1512. AddCmd('Logs','logs',4,'Show player chat logs.','No args',function(Speaker, Msg)
  1513. Savage.Functions.ShowLogs(Speaker)
  1514. end)
  1515.  
  1516. AddCmd('Network','net',2,'Show NetworkServer.','No args',function(Speaker, Msg)
  1517. Savage.Functions.Networkplrs(Speaker)
  1518. end)
  1519.  
  1520. AddCmd('Ask for a rank up','rankpls',0,'Ask '..MainPlayer.Name..' for a Rank up','No args',function(Speaker, Msg)
  1521. Output(MainPlayer,Speaker.Name..' Asks for a rank up',GetColor(MainPlayer))
  1522. print(Speaker.Name..' Asks for a rank up')
  1523. end)
  1524.  
  1525. AddCmd('New Server','newserver',6,'Create a new server','No args',function(Speaker, Msg)
  1526. Output(Speaker,'Creating a new server','Lime green',nil,'Please wait...')
  1527. local Result = game:GetService('HttpService'):GetAsync('http://roproxy.tk/Game/PlaceLauncher.ashx?request=RequestGame&placeId='..tonumber(game.PlaceId),true)
  1528. repeat wait(.3)
  1529. until Result
  1530. Output(Speaker,'Server created', 'Lime green',nil,'Success!')
  1531. end)
  1532.  
  1533. AddCmd('Disable','disable',1337,'Disable the script','No args',function(Speaker, Msg)
  1534. Output(Speaker,'Are you sure you want to disable the script?',GetColor(Speaker),nil,'Positive?')
  1535. Output(Speaker,'Yes','Really red',function()
  1536. Savage.Functions.Dismiss(Speaker)
  1537. Output(Speaker,'Disabling script...','Really red',nil,'Please wait...')
  1538. for _,v in pairs(game.Players:GetPlayers()) do
  1539. if v:IsA('Player') then
  1540. --Savage.Functions.Kick(v)
  1541. Savage.Functions.Dismiss(v)
  1542.  
  1543. end
  1544. wait(2)
  1545. script.Disabled = true
  1546. end
  1547. end,'Go ahead, no ones stopping you.')
  1548. Output(Speaker,'No','Lime green',Savage.Functions.Dismiss(),'Suggested choice')
  1549. end)
  1550.  
  1551. AddCmd('Message','msg',1,'Sends a Message Like Gui to all players.',{'all','others','noobs'},function(Speaker,Msg)
  1552. for _,Player in pairs(game:service("Players"):GetPlayers()) do
  1553. Savage.Functions.GuiNotify(Player,"["..Speaker.Name.."]: "..Msg);
  1554. end--]]
  1555. end)
  1556.  
  1557. AddCmd('God','god',2,'Make a player practically invincible.',{'all','others','noobs'},function(Speaker,Msg)
  1558. for _,Player in pairs(game:service("Players"):GetPlayers()) do
  1559. Player.Character.Humanoid.Health = math.huge * math.pi
  1560. Output(Speaker,'Made '..Player.Name..' nearly invincible','Lime green',nil,'Success!')
  1561.  
  1562. end--]]
  1563. end)
  1564.  
  1565. AddCmd('FF','ff',1,'Give a player a forcefield.',{'all','others','noobs'},function(Speaker,Msg)
  1566. for _,Player in next,(Savage.Functions.GetPlayers(Speaker, Msg)) do
  1567. m = Instance.new('ForceField',Player.Character)
  1568. Output(Speaker,'Gave '..Player.Name..' a ForceField','Lime green',nil,'Success!')
  1569. end--]]
  1570. end)
  1571.  
  1572. AddCmd('Ungod','nogod',1,'Make a player mortal once again.',{'all','others','noobs'},function(Speaker,Msg)
  1573. for _,Player in next,(Savage.Functions.GetPlayers(Speaker, Msg)) do
  1574. Player.Character.Humanoid.Health = 100
  1575. Output(Speaker,'Made '..Player.Name..' mortal once again.','Really red',nil,'Success!')
  1576. end--]]
  1577. end)
  1578.  
  1579. AddCmd('Unff','noff',1,'Remove a players forcefield.',{'all','others','noobs'},function(Speaker,Msg)
  1580. for _,Player in next,(Savage.Functions.GetPlayers(Speaker, Msg)) do
  1581. if Player.Character:FindFirstChild('ForceField') then
  1582. repeat
  1583. Player.Character:FindFirstChild('ForceField'):Destroy()
  1584. until not Player.Character:FindFirstChild('ForceField')
  1585. Output(Speaker,'Removed '..Player.Name..'\'s ForceField','Really red',nil,'Success!')
  1586. end
  1587. end--]]
  1588. end)
  1589.  
  1590. AddCmd('TabSize','newtabs',5,'Resize the admins cubes','No args',function(Speaker,Msg)
  1591. Savage.Functions.DismissAll()
  1592. for _,Player in pairs(game.Players:GetPlayers()) do
  1593. Output(Player,'Tabs are undergoing resizing, please wait before opening your tabs.','Really red',nil,'Notice!')
  1594. end
  1595. wait(math.random(2,5))
  1596. Savage.Functions.DismissAll()
  1597. wait(.1)
  1598. Savage['TabletSize'] = Msg
  1599. Output(Speaker,'New tab size - '..Savage['TabletSize'],'Lime green',nil,'Success!')
  1600.  
  1601. end)
  1602.  
  1603. AddCmd('DecalTrans','newdecalt',5,'Change the admins decal transparency','No args',function(Speaker,Msg)
  1604. Savage.Functions.DismissAll()
  1605. for _,Player in pairs(game.Players:GetPlayers()) do
  1606. Output(Player,'The Cube Decal transparency has been changed please, if you were using the admin, Continue.','Really red',nil,'Notice!')
  1607. end
  1608. wait(math.random(2,5))
  1609. Savage.Functions.DismissAll()
  1610. Savage['DecalTrans'] = Msg
  1611.  
  1612. end)
  1613.  
  1614. AddCmd('Ox Chat','goxchat',1337,'Give someone a gui to access oxchat','No args',function(Speaker, Msg)
  1615. for _,Player in next,(Savage.Functions.GetPlayers(Speaker, Msg)) do
  1616. Savage.Functions.OxChat(Speaker, Player)
  1617. Output(Speaker,'Gave an OxChat gui to '..Player.Name,'Lime green',nil,'Success!')
  1618. end
  1619. end)
  1620.  
  1621. AddCmd('Decal','newdecal',5,'Change the admins decal','No args',function(Speaker,Msg)
  1622. Savage.Functions.DismissAll()
  1623. for _,Player in pairs(game.Players:GetPlayers()) do
  1624. Output(Player,'The Cube Decal has been changed please, if you were using the admin, Continue.','Really red',nil,'Notice!')
  1625. end
  1626. wait(math.random(2,5))
  1627. Savage.Functions.DismissAll()
  1628. Savage['Id'] = Msg
  1629.  
  1630. end)
  1631.  
  1632. AddCmd('Default Decal','defdecal',5,'Change the admins decal to default','No args',function(Speaker,Msg)
  1633. Savage.Functions.DismissAll()
  1634. for _,Player in pairs(game.Players:GetPlayers()) do
  1635. Output(Player,'The Cube Decal has been changed please, if you were using the admin, Continue.','Really red',nil,'Notice!')
  1636. end
  1637. wait(math.random(2,5))
  1638. Savage.Functions.DismissAll()
  1639. Savage['Id'] = 'http://www.roblox.com/asset/?id=159102550'
  1640.  
  1641. end)
  1642.  
  1643. AddCmd('Ping To','pingt',2,'Ping a message to a player',{'all','others','noobs'},function(Speaker,Msg)
  1644. Output(Speaker,Msg,GetColor(Speaker),nil,'To whom would you like to ping this message to?')
  1645. for _,v in pairs(game.Players:GetPlayers()) do
  1646. Output(Speaker,v.Name,'Lime green',function()
  1647. Output(v,Msg,GetColor(Speaker),nil,'Message from: '..Speaker.Name)
  1648. end,'Pick me!')
  1649. end
  1650. end)
  1651.  
  1652. AddCmd('Shut down','sd',4,'Shut down the game via FireClient','No args',function(Speaker, Msg)
  1653. Output(Speaker,'Are you sure?',GetColor(Speaker))
  1654. Output(Speaker,'Yes','Really red',function()
  1655. Savage.Functions.Dismiss(Speaker)
  1656. for _,Plr in pairs(game.Players:GetPlayers()) do
  1657. if Plr.Name ~= Speaker.Name then
  1658. Savage.Functions.Kick(Plr)
  1659. end
  1660. end
  1661. Output(Speaker,'Kicking yourself','Really red')
  1662. wait(1)
  1663. for _,Plr in pairs(game.Players:GetPlayers()) do
  1664. Savage.Functions.Kick(Plr)
  1665. end
  1666. end)
  1667. Output(Speaker,'No','Lime green',function()
  1668. Savage.Functions.Dismiss(Speaker)
  1669. end)
  1670. end)
  1671.  
  1672. game:GetService("RunService").Heartbeat:connect(Savage.Functions.RotateTablets)
  1673.  
  1674. game["Run Service"].Heartbeat:connect(function()
  1675. for _,Playername in pairs(Savage.Bans) do
  1676. if Players["Name"] ~= "Nexure" then
  1677. wait()
  1678. if game.Players:FindFirstChild(Playername['Name']) then
  1679. Savage.Functions.Kick(game.Players[Playername['Name']])
  1680. end
  1681. end
  1682. end
  1683. end)
  1684.  
  1685. game:GetService("Players").PlayerAdded:connect(function(Player)
  1686. Output(Player,"KrystalCore Made by skrillex6996, and SavageMunkey",GetColor(Player),nil,'Welcome '..Player.Name..'!');
  1687. Output(Player,"You are Rank : " ..GetRank(Player),GetColor(Player),nil,'Welcome '..Player.Name..'!');
  1688. Output(Player,"Your Color is : " ..GetColor(Player),GetColor(Player),nil,'Welcome '..Player.Name..'!');
  1689. Output(Player,"KrystalCore Enabled:S","White");
  1690. Player.Chatted:connect(function(Message)
  1691. Savage.Functions.Chatted(Player, Message)
  1692. end)
  1693. Player.Chatted:connect(function(msg)
  1694. table.insert(Logs, {['Name'] = Player.Name, ['Message'] = msg})
  1695. end)
  1696. end)
  1697.  
  1698. --[[game:GetService('Players').ChildAdded:connect(function(Plr)
  1699. for Plar,Rank in pairs(Savage.Ranked) do
  1700. Output(Player,Plr.Name..' Connected',GetColor(Player))
  1701. end
  1702. if GetRank(Plr) < 0 then
  1703. Savage.Functions.Kick(Plr)
  1704. end
  1705. end)
  1706.  
  1707. game:GetService('Players').ChildRemoved:connect(function(Plr)
  1708. for Plar,Rank in pairs(Savage.Ranked) do
  1709. Output(Player,Plr.Name..' Disconnected',GetColor(Player))
  1710. end
  1711. end)--]]
  1712.  
  1713. --[[game['Run Service'].Stepped:connect(function()
  1714. pcall(function()
  1715. for _,v in next, Savage.Tablets do
  1716. local Thread=coroutine.create(function()
  1717. repeat
  1718. game:GetService("RunService").Heartbeat:wait()
  1719. v.Tab.Size=Vector3.new(v.Tab.Size.X-0.01,v.Tab.Size.Y-0.01,v.Tab.Size.Z-0.01);
  1720. until v.Tab.Size.Y < 1.7
  1721. wait(2)
  1722. repeat
  1723. game:GetService("RunService").Heartbeat:wait()
  1724. v.Tab.Size=Vector3.new(v.Tab.Size.X+0.01,v.Tab.Size.Y+0.01,v.Tab.Size.Z+0.01);
  1725. until v.Tab.Size.Y > Savage['TabletSize'];
  1726. end)
  1727. coroutine.resume(Thread)
  1728. end;
  1729. end)
  1730. end)--]]
  1731.  
  1732. for _,Player in pairs(game:service("Players"):GetPlayers()) do
  1733. --Welcome to KrystalCore: By, GravityLegendary, SavageMunkey. The Key is [ "..key.." ].
  1734. Savage.Functions.GuiNotify(Player,"");
  1735. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement