API tools faq
paste
Advertisement
BINO2002

Untitled

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