API tools faq
paste
Advertisement
yonidrori

Untitled

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