API tools faq
paste
Advertisement
SlowDude

Untitled

SlowDude
Apr 1st, 2016
44
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 110.60 KB | None | 0 0
raw download clone embed print report
  1.  
  2. PASTEBIN
  3. new paste
  4. trends API tools faq
  5.  
  6. SlowDude
  7. FREE
  8. My Pastes
  9.  
  10. Untitled18 hours ago
  11. Untitled19 hours ago
  12. Untitled19 hours ago
  13. Untitled19 hours ago
  14. Untitled19 hours ago
  15. Untitled19 hours ago
  16. Untitled19 hours ago
  17. Untitled19 hours ago
  18.  
  19. Public Pastes
  20.  
  21. Untitled3 sec ago
  22. Untitled5 sec ago
  23. Parche Acis By Nisuta9 sec ago
  24. Untitled13 sec ago
  25. Untitled17 sec ago
  26. UntitledJava | 21 sec ago
  27. Untitled23 sec ago
  28. Untitled25 sec ago
  29.  
  30. This is an ad → Bitbucket is the Git solution for professional teams. Collaborate on code in the cloud or on your servers. LEARN MORE
  31. SHARE
  32. TWEET
  33. PROMETHEUS TABS [ROBLOX]
  34. DumbZDumb Mar 31st, 2016 53 Never
  35. rawdownloadcloneembedreportprint text 47.02 KB
  36.  
  37. -- Change "Craxxer" to your name And "FriendsName" if you want a friend to have admin also
  38. -- say ;cmds when loaded the script
  39.  
  40. Core={
  41. Players={
  42. ["iiKNYFactory"]={ -- .
  43. Name="iiKNYFactory";
  44. Settings={
  45. BetKey=";";
  46. AutoDismiss=true;
  47. };
  48. Data={
  49. Tablets={};
  50. Colour="Really black";
  51. };
  52. Rank=7;
  53. };
  54. ["Craxxer"]={ -- Firend name goes here if you want him/her to have admin to
  55. Name="FriendsName";
  56. Settings={
  57. BetKey="!";
  58. AutoDismiss=false;
  59. };
  60. Data={
  61. Tablets={};
  62. Colour="Really black";
  63. };
  64. Rank=6;
  65. };
  66. ["Player"]={--For studio testing.
  67. Name="Player";
  68. Settings={
  69. BetKey="!";
  70. AutoDismiss=false;
  71. };
  72. Data={
  73. Tablets={};
  74. Colour="Really black";
  75. };
  76. Rank=7;
  77. };
  78. };
  79. BetKeys={
  80. "!";
  81. "$";
  82. ";";
  83. "}";
  84. ".";
  85. ":";
  86. "^";
  87. };
  88. Threads = {
  89.  
  90. };
  91. LocalScripts = {
  92.  
  93. };
  94. ThreadManager = {
  95. ["StatusThread"]=function(Thread)
  96. local ThreadActive = coroutine.status(Thread);
  97. if ThreadActive == true then
  98. return {Running = true};
  99. else
  100. return {Running = false};
  101. end;
  102. end;
  103. ["RunThread"]=function(Thread,...)
  104. end;
  105. ["NewThread"]=function(ThreadName,Function,...)
  106. local Data = {...};
  107. local Thread = coroutine.create(Function);
  108.  
  109. return Thread;
  110. end;
  111. };
  112. Data={
  113. SongPlaying=nil;
  114. MainEnvironment=getfenv();
  115. Fakes={
  116. Shared={};
  117. _G={};
  118. };
  119. };
  120. Modules={};
  121. Cloud={};
  122. Settings={
  123. DefaultBetKey="!";
  124. DefaultColour="Bright green";
  125. Owner=game:GetService("Players"):FindFirstChild("Pkamara"); --//Your name here!
  126. };
  127. Ranks={
  128. [1]="Guest";
  129. [2]="User";
  130. [3]="Elavated User";
  131. [4]="Moderator";
  132. [5]="Manager";
  133. [6]="Developer";
  134. [7]="Manager"
  135. };
  136. Banned={
  137.  
  138. };--//Temporary till I feel like re-writing a PHP ranked but too fucking lazy..
  139. ScriptSettings={};
  140. Commands={};
  141. FFlags={};--//For quick settings
  142. Logs={};
  143. BanResponse={
  144. "Free modeling";
  145. "Banning me";
  146. "Banning players";
  147. "Kicking players";
  148. "Annoying";
  149. "Bad scripts";
  150. "Idiot";
  151. };
  152. CoreFunctions={
  153. AddLogItem=function(Type,Message)
  154. local New=table.insert(Core.Logs,{Enum=Type,Message=Message});
  155. return New;
  156. end;
  157. UpdateBanTable=function()
  158. --Yay Ban Methods...
  159. return Core.Banned;
  160. end;
  161. };
  162. Services={
  163. Http=game:GetService("HttpService");
  164. HttpGet=function(Link,Cache)
  165. local Query=game:GetService("HttpService"):GetAsync(tostring(Link),Cache);
  166. Core.CoreFunctions.AddLogItem("HttpGet",Query);
  167. return Query;
  168. end;
  169. HttpPost=function(Link,Data,Encode)
  170. local Query=game:GetService("HttpService"):PostAsync(tostring(Link),Data,Encode)
  171. Core.CoreFunctions.AddLogItem("HttpPost",Query);
  172. return Query;
  173. end;
  174. JSONEncode=function(Data)
  175. return game:GetService("HttpService"):JSONEncode(Data);
  176. end;
  177. JSONDecode=function(Data)
  178. return game:GetService("HttpService"):JSONDecode(Data);
  179. end;
  180. };
  181. Network={
  182. Router=Instance.new("BindableFunction",script); --//Connections from remotes :P
  183. };
  184. Packets={
  185. Ban=function(Player)
  186. --Another Ban Method
  187. Core.Packets.Kick(Player);
  188. end;
  189. BanR=function(Player,Reason)
  190. --Ban Method!
  191. end;
  192. Kick=function(Player)
  193. local Method,Error=pcall(function() Player:Kick() end);
  194. if not Method then
  195. local MethodTwo,SError=pcall(function() Instance.new("RemoteEvent", Player):FireClient(Player,{[string.rep("a",2e5+5)]="a"}) end)
  196. end;
  197. end;
  198. };
  199. };
  200.  
  201. --[[Metatable works :P]]--
  202.  
  203. setmetatable(Core.Data.Fakes._G,{
  204. __metatable = "Locked!";
  205. })
  206.  
  207. setmetatable(Core.Data.Fakes.Shared,{
  208. __metatable = "Locked!";
  209. })
  210.  
  211. --script.Parent = game.ServerScriptService;
  212. Instance.new("Folder",script).Name="Songs"
  213. print("[Prometheus] Tables initialised!");
  214. wait(Core.CoreFunctions.UpdateBanTable());
  215. --//Quaternions + CLerp
  216.  
  217. local function QuaternionFromCFrame(cf)
  218. local mx, my, mz, m00, m01, m02, m10, m11, m12, m20, m21, m22 = cf:components();
  219. local trace = m00 + m11 + m22 if trace > 0 then
  220. local s = math.sqrt(1 + trace);
  221. local recip = 0.5/s;
  222. return (m21-m12)*recip, (m02-m20)*recip, (m10-m01)*recip, s*0.5;
  223. else
  224. local i = 0;
  225. if m11 > m00 then
  226. i = 1;
  227. end;
  228. if m22 > (i == 0 and m00 or m11) then
  229. i = 2 end if i == 0 then
  230. local s = math.sqrt(m00-m11-m22+1);
  231. local recip = 0.5/s return 0.5*s, (m10+m01)*recip, (m20+m02)*recip, (m21-m12)*recip;
  232. elseif i == 1 then
  233. local s = math.sqrt(m11-m22-m00+1);
  234. local recip = 0.5/s;
  235. return (m01+m10)*recip, 0.5*s, (m21+m12)*recip, (m02-m20)*recip ;
  236. elseif i == 2 then
  237. local s = math.sqrt(m22-m00-m11+1);
  238. local recip = 0.5/s;
  239. return (m02+m20)*recip, (m12+m21)*recip, 0.5*s, (m10-m01)*recip;
  240. end;
  241. end;
  242. end;
  243.  
  244. local function QuaternionToCFrame(px, py, pz, x, y, z, w)
  245. local xs, ys, zs = x + x, y + y, z + z;
  246. local wx, wy, wz = w*xs, w*ys, w*zs;
  247. local xx = x*xs;
  248. local xy = x*ys;
  249. local xz = x*zs;
  250. local yy = y*ys;
  251. local yz = y*zs;
  252. local zz = z*zs;
  253. return CFrame.new(px, py, pz,1-(yy+zz), xy - wz, xz + wy,xy + wz, 1-(xx+zz), yz - wx, xz - wy, yz + wx, 1-(xx+yy))
  254. end;
  255.  
  256. local function QuaternionSlerp(a, b, t)
  257. local cosTheta = a[1]*b[1] + a[2]*b[2] + a[3]*b[3] + a[4]*b[4];
  258. local startInterp, finishInterp;
  259. if cosTheta >= 0.0001 then
  260. if (1 - cosTheta) > 0.0001 then
  261. local theta = math.acos(cosTheta);
  262. local invSinTheta = 1/math.sin(theta);
  263. startInterp = math.sin((1-t)*theta)*invSinTheta;
  264. finishInterp = math.sin(t*theta)*invSinTheta;
  265. else
  266. startInterp = 1-t finishInterp = t;
  267. end;
  268. else
  269. if (1+cosTheta) > 0.0001 then
  270. local theta = math.acos(-cosTheta);
  271. local invSinTheta = 1/math.sin(theta);
  272. startInterp = math.sin((t-1)*theta)*invSinTheta;
  273. finishInterp = math.sin(t*theta)*invSinTheta;
  274. else startInterp = t-1 finishInterp = t;
  275. end;
  276. end;
  277. return a[1]*startInterp + b[1]*finishInterp, a[2]*startInterp + b[2]*finishInterp, a[3]*startInterp + b[3]*finishInterp, a[4]*startInterp + b[4]*finishInterp;
  278. end;
  279.  
  280. function CLerp(a,b,t)
  281. local qa={QuaternionFromCFrame(a)};
  282. local qb={QuaternionFromCFrame(b)};
  283. local ax,ay,az=a.x,a.y,a.z;
  284. local bx,by,bz=b.x,b.y,b.z;
  285. local _t=1-t;
  286. return QuaternionToCFrame(_t*ax+t*bx,_t*ay+t*by,_t*az+t*bz,QuaternionSlerp(qa, qb, t));
  287. end
  288.  
  289. --//Part Assertion
  290. local function AddPart(Text,Colour,Player,Function)
  291. if Colour==nil then
  292. Colour='White';
  293. end;
  294. if not Player or type(Player) ~= "userdata" then
  295. return;
  296. end;
  297. local Adorn=game.Workspace:FindFirstChild(Player.Name) and game.Workspace[Player.Name]:FindFirstChild("Torso") and game.Workspace[Player.Name].Torso:IsA("Part") and game.Workspace[Player.Name].Torso.CFrame + Vector3.new(0,6,0) or CFrame.new(0,10,0);
  298. if Player.Character == nil then
  299. if script:FindFirstChild(Player.Name) == nil then
  300. local SpacePart = Instance.new("Part",script);
  301. SpacePart.Shape = "Ball";
  302. SpacePart.Name = Player.Name;
  303. SpacePart.Transparency = 1;
  304. SpacePart.Anchored = true;
  305. SpacePart.CanCollide = false;
  306. SpacePart.CFrame = CFrame.new(0,1,0);
  307. Adorn = SpacePart.CFrame + Vector3.new(0,6,0) or CFrame.new(0,10,0);
  308. elseif script:FindFirstChild(Player.Name) ~= nil then
  309. --
  310. end;
  311. end;
  312. local Part=Instance.new("Part",script);
  313. Part.CanCollide=false;
  314. Part.Anchored=true;
  315. Part.FormFactor="Custom";
  316. Part.Size=Vector3.new(2,2,2);
  317. Part.CFrame=CFrame.new(Adorn.p);
  318. Part.BackSurface="SmoothNoOutlines";
  319. Part.BottomSurface="SmoothNoOutlines";
  320. Part.FrontSurface="SmoothNoOutlines";
  321. Part.LeftSurface="SmoothNoOutlines";
  322. Part.RightSurface="SmoothNoOutlines";
  323. Part.TopSurface="SmoothNoOutlines";
  324. Part.Locked=true;
  325. local SelectionFrame=Instance.new("SelectionBox",Part);
  326. SelectionFrame.Adornee=Part;
  327. if Colour=="Random" then
  328. SelectionFrame.Color=BrickColor.Random();
  329. else
  330. SelectionFrame.Color=BrickColor.new(Colour);
  331. end;
  332. Part.BrickColor=SelectionFrame.Color;
  333. SelectionFrame.Transparency=0.8;
  334. local Light=Instance.new("PointLight",Part);
  335. Light.Color=BrickColor.new(Colour).Color;
  336. Light.Brightness=100;
  337. Light.Range=10;
  338. Light.Shadows=true;
  339. Light.Enabled=true;
  340. local BillboardGui=Instance.new("BillboardGui",Part);
  341. BillboardGui.Adornee=Part;
  342. --BillboardGui.AlwaysOnTop=false;
  343. BillboardGui.StudsOffset=Vector3.new(0,1,0);
  344. BillboardGui.Size=UDim2.new(3, 0, 3, 0);
  345. local TextL=Instance.new("TextLabel",BillboardGui);
  346. TextL.Text=Text;
  347. TextL.BackgroundTransparency=1;
  348. TextL.Size=UDim2.new(1, 0, 0.5, 0);
  349. TextL.FontSize="Size18";
  350. TextL.Font="SourceSansBold";
  351. TextL.TextColor3=BrickColor.new("White").Color;
  352. TextL.TextStrokeTransparency=0.2;
  353. local TextLabelColor=BrickColor.new(Colour);
  354. TextL.TextStrokeColor3=SelectionFrame.Color.Color;
  355. table.insert(Core.Players[Player.Name].Data.Tablets,Part);
  356. local ClickEvent=Instance.new("ClickDetector",Part);
  357. ClickEvent.MaxActivationDistance=math.huge;--To make sure even if player is nil :P
  358. ClickEvent.MouseHoverEnter:connect(function(PlayerE)
  359. if PlayerE.Name==Player.Name then
  360. for i=1,4 do
  361. game:GetService("RunService").Heartbeat:wait()
  362. Part.Size=Vector3.new(Part.Size.X+0.1,Part.Size.Y+0.1,Part.Size.Z+0.1);
  363. end;
  364. end;
  365. end);
  366. ClickEvent.MouseHoverLeave:connect(function(PlayerE)
  367. if PlayerE.Name==Player.Name then
  368. for i=1,4 do
  369. game:GetService("RunService").Heartbeat:wait()
  370. Part.Size=Vector3.new(Part.Size.X-0.1,Part.Size.Y-0.1,Part.Size.Z-0.1);
  371. end;
  372. end;
  373. end);
  374. ClickEvent.MouseClick:connect(function(PlayerE)
  375. if PlayerE.Name==Player.Name then
  376. if Function==nil then
  377. repeat
  378. game:GetService("RunService").Heartbeat:wait()
  379. Part.Size=Vector3.new(Part.Size.X-0.1,Part.Size.Y-0.1,Part.Size.Z-0.1);
  380. until Part.Size.X<0.3;
  381. Part:Destroy();
  382. for i,v in pairs(Core.Players[Player.Name].Data.Tablets) do
  383. if v==Part then
  384. table.remove(Core.Players[Player.Name].Data.Tablets,i);
  385. end;
  386. end;
  387. else
  388. local Success,Error=ypcall(function()
  389. Function();
  390. end);
  391. if Error then
  392. print("[AddPart Function Error] "..tostring(Error));--//Later on there will be a better debug method!
  393. end;
  394. end;
  395. end;
  396. end);
  397. if (Core.Players[Player.Name].Settings.AutoDismiss == true and Function == nil) then
  398. local InternalThread = coroutine.create(function()
  399. wait(4);
  400. repeat
  401. game:GetService("RunService").Heartbeat:wait()
  402. Part.Size=Vector3.new(Part.Size.X-0.1,Part.Size.Y-0.1,Part.Size.Z-0.1);
  403. until Part.Size.X<0.3;
  404. Part:Destroy();
  405. for i,v in pairs(Core.Players[Player.Name].Data.Tablets) do
  406. if v==Part then
  407. table.remove(Core.Players[Player.Name].Data.Tablets,i);
  408. end;
  409. end;
  410. end);
  411. coroutine.resume(InternalThread);
  412. end;
  413. end;
  414.  
  415. --//Rotation
  416. spawn(function()
  417. local Number=1;
  418. local Player=nil;
  419. game:GetService("RunService").Heartbeat:connect(function()
  420. Number=Number+0.0025;
  421. for i,v in pairs(game.Players:GetPlayers()) do
  422. for a,b in pairs(Core.Players) do
  423. if v.Name==b.Name then
  424. Player=v;
  425. for i=1,#b.Data.Tablets do
  426. if Player.Character and Player.Name and Player.Character:FindFirstChild("Torso") then
  427. if Player.Character.Parent==game.Workspace then
  428. local Parts=Core.Players[Player.Name].Data.Tablets;
  429. local Part=Parts[i];
  430. Part.CFrame=CLerp(Part.CFrame,CFrame.new(game.Workspace[v.Name].Torso.CFrame.p)
  431. *CFrame.Angles(0,math.rad((360/#Parts)*i)+Number,0)
  432. *CFrame.new(3+#Parts,math.sin((tick()+i)*5)/1.5,0)
  433. *CFrame.Angles(0,math.rad(90),0)
  434. *CFrame.Angles(math.sin((tick()+i)*5)/2,math.sin((tick()+i)*5)/2,math.sin((tick()+i)*5)/2)
  435. ,.1);
  436. end;
  437. elseif script:FindFirstChild(Player.Name) then
  438. local Parts=Core.Players[Player.Name].Data.Tablets;
  439. local Part=Parts[i];
  440. Part.CFrame=CLerp(Part.CFrame,CFrame.new(script:FindFirstChild(Player.Name).CFrame.p)
  441. *CFrame.Angles(0,math.rad((360/#Parts)*i)+Number,0)
  442. *CFrame.new(3+#Parts,math.sin((tick()+i)*5)/1.5,0)
  443. *CFrame.Angles(0,math.rad(90),0)
  444. *CFrame.Angles(math.sin((tick()+i)*5)/2,math.sin((tick()+i)*5)/2,math.sin((tick()+i)*5)/2)
  445. ,.1);
  446. end;
  447. end;
  448. end;
  449. end;
  450. end;
  451. end);
  452. end);
  453.  
  454. function DestroyTablets(Player)
  455. --if not Player or type(Player) ~= "userdata" then return end;
  456. pcall(function()
  457. for i,v in pairs(Core.Players[Player.Name].Data.Tablets) do
  458. local Thread=coroutine.create(function()
  459. repeat
  460. game:GetService("RunService").Heartbeat:wait()
  461. v.Size=Vector3.new(v.Size.X-0.1,v.Size.Y-0.1,v.Size.Z-0.1);
  462. until v.Size.X<0.3;
  463. v:Destroy();
  464. end)
  465. coroutine.resume(Thread)----table.remove(Core.Players[Player.Name].Data.Tablets,i);
  466. end;
  467. Core.Players[Player.Name].Data.Tablets={};
  468. end)
  469. end;
  470.  
  471. function FindPlayer(Player)
  472. local Player=tostring(Player)
  473. for i,v in pairs(game.Players:GetPlayers()) do
  474. local Name=string.lower(string.sub(v.Name,1,string.len(Player)));
  475. if Name==Player then
  476. return v;
  477. end;
  478. end;
  479. end;
  480.  
  481. function CheckBanned(Player)
  482. local Banned=false;
  483. if Core.Players[Player.Name] == nil then return {Banned=false}; end;
  484. if Core.Players[Player.Name].Rank < 0 then
  485. return {Banned=true};
  486. else
  487. return {Banned=false};
  488. end;
  489. end;
  490.  
  491. function ConnectPlayer(Player)
  492. table.foreach(Core.Banned,function(Index,Table)
  493. if Table.Username==Player.Name then
  494. Alert(Player.Name.." was kicked for a persisting ban! Reason : "..Table.Reason);
  495. return Core.Packets.Kick(Player);
  496. end;
  497. end)
  498. --if CheckBanned(Player).Banned==true then
  499. --Core.Packets.Kick(Player);
  500. --end;
  501. if Core.Players[Player.Name] == nil then
  502. Core.Players[Player.Name]={Name=Player.Name;Rank=1;Data={Tablets={};Colour=Core.Settings.DefaultColour};Settings={BetKey="!"}};
  503. Player.Chatted:connect(function(Message)
  504. OnChatted(Message,Player);
  505. end);
  506. AddPart("BlokAdmin v1.1 has louded.",'Really red',Player,nil);
  507. else
  508. Player.Chatted:connect(function(Message)
  509. OnChatted(Message,Player);
  510. end);
  511. AddPart("{BlokAdmin v1.1}\nWelcome back "..Player.Name.."!","Random",Player,nil);
  512. end;
  513. end;
  514.  
  515. function Alert(Message)
  516. for i,v in pairs(Core.Players) do
  517. if v.Rank >= 5 then
  518. if game.Players:FindFirstChild(v.Name) then
  519. AddPart(Message,v.Data.Colour,game.Players[v.Name],nil);
  520. end;
  521. end;
  522. end;
  523. end;
  524.  
  525. --//Chatted Function
  526. function OnChatted(Message,Player)
  527. if not Message or type(Message) ~= "string" then
  528. return;
  529. end;
  530. if not Player or type(Player) ~= "userdata" then
  531. return;
  532. end;
  533. Message=Message:gsub("/e ","");
  534. local InTCheck=(Message:sub(1,1)==Core.Players[Player.Name].Settings.BetKey);
  535. if InTCheck then
  536. Message=Message:sub(2);
  537. local SpaceDet=Message:find(" ");
  538. local SubString,ProString;
  539. pcall(function()
  540. SubString=Message:sub(1,SpaceDet-1);
  541. ProString=Message:sub(SpaceDet+1);
  542. end)
  543. if not SubString then
  544. SubString=Message;
  545. end;
  546. if not ProString then
  547. ProString="";
  548. end;
  549. local Profile=Core.Players[Player.Name];
  550. for i,v in pairs(Core.Commands) do
  551. table.foreach(v.Calls,function(self,index)
  552. if SubString==index and Profile.Rank then
  553. if v.Rank <= Profile.Rank then
  554. local CCFlags={};
  555. for a,s in pairs(v.Flags) do
  556. if string.find(ProString,("-"..s)) ~= nil then
  557. --table.insert(CCFlags,s);
  558. local FlagData;
  559. local Test,Error=pcall(function()
  560. string.sub(ProString,string.find(ProString,("-"..s)),string.sub(ProString,string.find(ProString:sub(string.find(ProString,("-"..s))+1),"-")));
  561. end)
  562. if not Test then
  563. FlagData=ProString;
  564. else
  565. FlagData=string.sub(ProString,string.find(ProString,("-"..s)),string.sub(ProString,string.find(ProString:sub(string.find(ProString,("-"..s))+1),"-")));
  566. end
  567. FlagData=string.gsub(FlagData,("-"..s),"",1);
  568. CCFlags[s]={FlagData};
  569. ProString=string.gsub(ProString,("-"..s),"",1);
  570. end;
  571. end;
  572. local Thread=coroutine.create(v.Function);
  573. local Success,Error=coroutine.resume(Thread,ProString,CCFlags,Player,Profile.Rank);
  574. if not Success then
  575. print("[OnChatted Error] "..tostring(Error));
  576. end;
  577. else
  578. AddPart("Your rank is too low to access this command. Required Rank : "..v.Rank,"Really red",Player,nil);
  579. end;
  580. end;
  581. end);
  582. end;
  583. end;
  584. end;
  585.  
  586. function NewCommand(Name,Desc,Rank,Calls,Flags,Func)
  587. Core.Commands[Name]={Name=Name,Desc=Desc,Rank=Rank,Calls=Calls,Flags=Flags,Function=Func}
  588. end;
  589.  
  590. NewCommand("Ping","Pings a tablet to speaker",1,{'ping'},{"all","plr"},function(Message,Flags,Player,PlayerRank)
  591. function ParseTest(Text,PlayerSent,PlayerToSend)
  592. local TEXTS = {
  593. ["%PLAYER%"] = PlayerToSend.Name;
  594. ["%OWNER%"] = PlayerSent.Name;
  595. ["%AGE%"] = PlayerToSend.AccountAge;
  596. ["%RANK%"] = Core.Players[PlayerToSend.Name].Rank;
  597. };
  598. local Text = tostring(Text);
  599. print(Text)
  600. for i,v in pairs(TEXTS) do
  601. if string.find(Text,tostring(i)) then
  602. print(i,v)
  603. string.gsub(Text,tostring(i),tostring(v));
  604. end;
  605. end;
  606. print(Text)
  607. return Text;
  608. end;
  609.  
  610. if Message == "" then return end;
  611. pcall(function()
  612. if Flags["all"] then
  613. if PlayerRank > 4 then
  614. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  615. --ParseTest(Flags["all"][1],Player,v)
  616. AddPart(Flags["all"][1],'Random',v,nil);
  617. end;
  618. else
  619. AddPart("Your rank is too low.",'Really red',v,nil);
  620. end;
  621. end;
  622. if Flags["plr"] then
  623. local Find = string.find(Flags["plr"][1]:sub(2)," ");
  624. local PlayerS = string.sub(Flags["plr"][1]:sub(2),1,Find-1);
  625. local MSG = string.sub(Flags["plr"][1]:sub(2),Find+1);
  626. local Selected=FindPlayer(PlayerS);
  627. if Selected == nil then
  628. return AddPart("No player found.","Really red",Player,nil);
  629. end;
  630. --MSG = ParseMessage(tostring(MSG),Player,Selected)
  631. AddPart(MSG,"Random",Selected,nil);
  632. end;
  633. if next(Flags) == nil then
  634. AddPart(tostring(Message),'Random',Player,nil);
  635. ParseMessage(tostring(Message),Player,Player)
  636. end;
  637. end);
  638. end);
  639.  
  640. NewCommand("Networked Players","Gets all players, network or not.",7,{'net'},{},function(Message,Flags,Player,PlayerRank)
  641. if msg == "" then return end;
  642. pcall(function()
  643. if next(Flags) == nil then
  644. wait(DestroyTablets(Player));
  645. for i,v in ipairs(game:FindService("NetworkServer"):GetChildren()) do
  646. local Players=v:GetPlayer();
  647. if(not Players.Parent) then
  648. AddPart(Players.Name.." | NIL",Core.Players[Player.Name].Data.Colour,Player,function()
  649. wait(DestroyTablets(Player));
  650. AddPart("Disconnect","Really red",Player,function()
  651. wait(DestroyTablets(Player));
  652. Core.Packets.Kick(Players);
  653. end)
  654. end);
  655. else
  656. AddPart(Players.Name.." | Players",Core.Players[Player.Name].Data.Colour,Player,nil);
  657. end;
  658. end;
  659. end;
  660. end);
  661. end);
  662.  
  663. NewCommand("Music","The scripts music player, self explanatory.",4,{"m","music","song"},{"name","stop"},function(Message,Flags,Player,PlayerRank)
  664. local RbxGui = assert(LoadLibrary("RbxGui"));
  665. pcall(function()
  666. if Flags["name"] then
  667. local Name=Flags["name"][1]:sub(2);
  668. local Http=Core.Services.Http;
  669. local Query="http://roproxy.tk/catalog/json?Keyword="..tostring(Name).."&Category=9&ResultsPerPage=20";
  670. local Assets=Http:JSONDecode(Http:GetAsync(Query));
  671. function List(Player)
  672. wait(DestroyTablets(Player));
  673. for i=1,#Assets do
  674. AddPart("Name : "..Assets[i].Name,Core.Players[Player.Name].Data.Colour,Player,function()
  675. wait(DestroyTablets(Player));
  676. AddPart("Name : "..Assets[i].Name,Core.Players[Player.Name].Data.Colour,Player,function() end);
  677. AddPart('Publisher: '..Assets[i].Creator,Core.Players[Player.Name].Data.Colour,Player,function() end);
  678. AddPart('Play song','Lime green',Player,function()
  679. if Core.Data.SongPlaying ~= nil then
  680. DestroyTablets(Player);
  681. AddPart("A song is already playing : "..Core.Data.SongPlaying.Name..". Would you like to stop it?",Core.Players[Player.Name].Data.Colour,Player,function() end);
  682. AddPart("Yes","Bright green",Player,function()
  683. DestroyTablets(Player);
  684. local Song=script.Songs:FindFirstChild(tostring(Core.Data.SongPlaying.ID));
  685. wait(Song:Stop());
  686. Song:Destroy();
  687. local NewSong=Instance.new("Sound",script.Songs);
  688. NewSong.SoundId="rbxassetid://"..Assets[i].AssetId;
  689. NewSong.PlayOnRemove=false;
  690. NewSong.Looped=false;
  691. NewSong:Play();
  692. NewSong.Name=Assets[i].AssetId;
  693. Core.Data.SongPlaying={ID=Assets[i].AssetId,Name=Assets[i].Name};
  694. function Pause()
  695. wait(DestroyTablets(Player));
  696. AddPart("Now playing : "..Assets[i].Name,Core.Players[Player.Name].Data.Colour,Player,function() end);
  697. AddPart("Stop","Really red",Player,function()
  698. DestroyTablets(Player);
  699. wait(NewSong:Stop());
  700. NewSong:Destroy();
  701. AddPart("Song stopped","Really red",Player,nil);
  702. end)
  703. AddPart("Pause","Bright orange",Player,function()
  704. DestroyTablets(Player);
  705. NewSong:Pause();
  706. AddPart("Song paused","Bright blue",Player,function() end);
  707. AddPart("Play","Lime green",Player,function()
  708. DestroyTablets(Player)
  709. NewSong:Play();
  710. AddPart("Playing "..Assets[i].Name,"Bright blue",Player,function() end);
  711. Pause()
  712. end);
  713. end)
  714. AddPart("Back","Bright blue",Player,function()
  715. DestroyTablets(Player);
  716. List(Player);
  717. AddPart("Back to current song","Bright blue",Player,function()
  718. Pause();
  719. end);
  720. end)
  721. end;
  722. Pause();
  723. end);
  724. AddPart("No","Bright red",Player,function()
  725. Pause();
  726. end);
  727. else
  728. wait(DestroyTablets(Player));
  729. local NewSong=Instance.new("Sound",script.Songs);
  730. NewSong.SoundId="rbxassetid://"..Assets[i].AssetId;
  731. NewSong.PlayOnRemove=false;
  732. NewSong.Looped=false;
  733. NewSong:Play();
  734. NewSong.Name=Assets[i].AssetId;
  735. Core.Data.SongPlaying={ID=Assets[i].AssetId,Name=Assets[i].Name};
  736. function Pauses()
  737. wait(DestroyTablets(Player));
  738. AddPart("Now playing : "..Assets[i].Name,Core.Players[Player.Name].Data.Colour,Player,function() end);
  739. AddPart("Stop","Really red",Player,function()
  740. DestroyTablets(Player);
  741. wait(NewSong:Stop());
  742. NewSong:Destroy();
  743. AddPart("Song stopped","Really red",Player,nil);
  744. end)
  745. AddPart("Pause","Bright orange",Player,function()
  746. DestroyTablets(Player);
  747. NewSong:Pause();
  748. AddPart("Song paused","Bright blue",Player,function() end);
  749. AddPart("Play","Lime green",Player,function()
  750. DestroyTablets(Player)
  751. AddPart("Playing "..Assets[i].Name,"Bright blue",Player,function() end);
  752. NewSong:Play();
  753. Pauses();
  754. end);
  755. end);
  756. AddPart("Back","Bright blue",Player,function()
  757. DestroyTablets(Player);
  758. List(Player);
  759. AddPart("Back to current song","Bright blue",Player,function()
  760. Pauses();
  761. end);
  762. end)
  763. end;
  764. Pauses();
  765. end;
  766. end);
  767. end);
  768. end;
  769. end;
  770. List(Player);
  771. end;
  772. if Flags["stop"] then
  773. for i,v in pairs(script.Songs:GetChildren()) do
  774. wait(v:Stop());
  775. v:Destroy();
  776. end;
  777. AddPart("Stopped all songs!","Really red",Player,nil);
  778. Core.Data.SongPlaying=nil;
  779. end;
  780. if next(Flags) == nil then
  781. AddPart("No name selected!",'Random',Player,nil);
  782. end;
  783. end)
  784. end);
  785.  
  786. NewCommand("Kill","Kills <player/all>",2,{"kill"},{"plr","all"},function(Message,Flags,Player,PlayerRank)
  787. pcall(function()
  788. if Flags["all"] then
  789. if PlayerRank > 4 then
  790. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  791. v.Character:BreakJoints()
  792. end;
  793. else
  794. AddPart("Your rank is too low. Require : 4",'Really red',v,nil);
  795. end;
  796. end;
  797. if Flags["plr"] then
  798. local Selected=FindPlayer(Flags["plr"][1]:sub(2));
  799. Selected.Character:BreakJoints();
  800. end;
  801. if next(Flags) == nil then
  802. AddPart("No player selected!","Really red",Player,nil);
  803. end;
  804. end);
  805. end);
  806.  
  807. NewCommand("Forcefield","Adds a forcefield to <player/all>",2,{"ff"},{"plr","all"},function(Message,Flags,Player,PlayerRank)
  808. pcall(function()
  809. if Flags["all"] then
  810. if PlayerRank > 4 then
  811. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  812. Instance.new("ForceField",v.Character)
  813. end;
  814. else
  815. AddPart("Your rank is too low. Require : 4",'Really red',v,nil);
  816. end;
  817. end;
  818. if Flags["plr"] then
  819. local Selected=FindPlayer(Flags["plr"][1]:sub(2));
  820. Instance.new("ForceField",Selected.Character)
  821. end;
  822. if next(Flags) == nil then
  823. AddPart("No player selected!","Really red",Player,nil);
  824. end;
  825. end);
  826. end);
  827.  
  828. NewCommand("Respawn","Respawns <player/all>",2,{"respawn","rs"},{"plr","all"},function(Message,Flags,Player,PlayerRank)
  829. pcall(function()
  830. if Flags["all"] then
  831. if PlayerRank > 4 then
  832. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  833. v:LoadCharacter();
  834. end;
  835. else
  836. AddPart("Your rank is too low. Require : 4",'Really red',v,nil);
  837. end;
  838. end;
  839. if Flags["plr"] then
  840. local Selected=FindPlayer(Flags["plr"][1]:sub(2));
  841. Selected:LoadCharacter();
  842. end;
  843. if next(Flags) == nil then
  844. AddPart("No player selected!","Really red",Player,nil);
  845. end;
  846. end);
  847. end);
  848.  
  849. NewCommand("Kick","Kicks <player/all>",6,{"kick"},{"plr","all"},function(Message,Flags,Player,PlayerRank)
  850. pcall(function()
  851. if Flags["all"] then
  852. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  853. Core.Packets.Kick(v);
  854. end;
  855. end;
  856. if Flags["plr"] then
  857. local Selected=FindPlayer(Flags["plr"][1]:sub(2));
  858. Core.Packets.Kick(Selected);
  859. end;
  860. if next(Flags) == nil then
  861. AddPart("No player selected!","Really red",Player,nil);
  862. end;
  863. end);
  864. end);
  865.  
  866. NewCommand("Bans","Lists all banned players",4,{"b","bans"},{"plr"},function(Message,Flags,Player,PlayerRank)
  867. wait(DestroyTablets(Player));
  868. table.foreach(Core.Banned,function(Index,PlayerTable)
  869. AddPart(PlayerTable.Username,"Really red",Player,function()
  870. wait(DestroyTablets(Player));
  871. table.foreach(PlayerTable,function(Name,Value)
  872. AddPart(Name.." : "..Value,"Really red",Player,nil);
  873. AddPart("Unban player?","Bright green",Player,function()
  874. DestroyTablets(Player);
  875. AddPart("Unbanned "..PlayerTable.Name,"Bright green",Player,nil);
  876. PlayerTable = nil;
  877. end); --//Only if it's local.
  878. end)
  879. end);
  880. end)
  881. end);
  882.  
  883. NewCommand("Website Flag","Allows quick write/read",7,{"web"},{"update"},function(Message,Flags,Player,PlayerRank)
  884. if Flags["update"] then
  885. local Success,Error=pcall(function() Core.CoreFunctions.UpdateBanTable() end)
  886. if not Success then
  887. return AddPart("There was an error while updating!","Bright red",Player,nil);
  888. end;
  889. AddPart("Successfully updated databases!","Bright green",Player,nil);
  890. end;
  891. end);
  892.  
  893. NewCommand("Modules","Modules Management",7,{"modules"},{"load"},function(Message,Flags,Player,PlayerRank)
  894. if Flags["load"] then
  895. --return AddPart("Load not implemented yet!","Really red",Player,nil);
  896. local ScriptLoad,Error = ypcall(function() game:GetService("HttpService"):GetAsync(Flags["load"][1]:sub(2)) end);
  897. if not ScriptLoad then
  898. return AddPart("There was an error while loading this module.","Really red",Player,nil);
  899. --return AddPart("Load not implemented yet!","Really red",Player,nil);
  900. else
  901. --ScriptLoad = game:GetService("HttpService"):GetAsync(Flags["load"][1]:sub(2));
  902. return AddPart("Load not implemented yet!","Really red",Player,nil);
  903. end;
  904. if string.find(ScriptLoad,"--promsig%93aa8c4f1d11ecc46edd0e0aee91f8ef72e9a078771d162d4c2202eada455a28") ~= nil then
  905. local Thread,Error = coroutine.create(function()
  906. local Success,Fail = loadstring(ScriptLoad,[[ModuleService]])();
  907. if not Success then
  908. AddPart("[Prometheus Module System]\n"..Fail,"Really red",Player,nil);
  909. end;
  910. end)
  911. coroutine.resume(Thread)
  912. else
  913. return AddPart("Security Check Failed!","Really red",Player,nil);
  914. end;
  915. end;
  916. if Flags["stop"] then
  917. coroutine.yield(Core.Modules[Flags["stop"]:sub(2)].Thread) --Attempt to stop the thread
  918. Core.Modules[Flags["stop"]:sub(2)].Kill = true; --Hit the trains brakes!
  919. Core.ThreadManager.StatusThread(Core.Modules[Flags["stop"]:sub(2)].Thread)
  920. end;
  921. if next(Flags) == nil then
  922. DestroyTablets(Player)
  923. return AddPart("Load not implemented yet!","Really red",Player,nil);
  924. end;
  925. end);
  926.  
  927. NewCommand("Destroy Tablets","Destroys your tablets",1,{'dt'},{"all","plr"},function(Message,Flags,Player,PlayerRank)
  928. pcall(function()
  929. if Flags["all"] then
  930. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  931. DestroyTablets(v)
  932. end;
  933. end;
  934. if Flags["plr"] then
  935. local Players=FindPlayer(Flags["plr"][1]:sub(2));
  936. DestroyTablets(Players);
  937. end;
  938. if next(Flags) == nil then
  939. DestroyTablets(Player)
  940. end;
  941. end);
  942. end);
  943.  
  944. NewCommand("Players","Lists all players",5,{"plrs","players","plys","plyrs"},{"plr"},function(Message,Flags,Player,PlayerRank)
  945. pcall(function()
  946. if Flags["plr"] then
  947. local v=FindPlayer(Flags["plr"][1]:sub(2));
  948. DestroyTablets(Player);
  949. if v==nil then
  950. return AddPart("Selected player was not found!","Really red",Player,nil);
  951. end;
  952. wait(DestroyTablets(Player));
  953. AddPart("Name - "..v.Name,Core.Players[Player.Name].Data.Colour,Player,nil);
  954. AddPart("Age - "..v.AccountAge,Core.Players[Player.Name].Data.Colour,Player,nil);
  955. AddPart("BetKey - "..Core.Players[v.Name].Settings.BetKey,Core.Players[Player.Name].Data.Colour,Player,function()
  956. DestroyTablets(Player);
  957. table.foreach(Core.BetKeys,function(Index,Key)
  958. AddPart(Key,Core.Players[Player.Name].Data.Colour,Player,function()
  959. DestroyTablets(Player);
  960. Core.Players[v.Name].Settings.BetKey=Key;
  961. if Player ~= v then
  962. AddPart(v.Name.."'s bet key is now "..Key,Core.Players[Player.Name].Data.Colour,Player,nil);
  963. end;
  964. AddPart("Your bet key is now "..Key,Core.Players[v.Name].Data.Colour,v,nil);
  965. end)
  966. end)
  967. AddPart("Cancel","Bright red",Player,function()
  968. DestroyTablets(Player);
  969. end);
  970. end);
  971. AddPart("Colour - "..Core.Players[v.Name].Data.Colour,Core.Players[Player.Name].Data.Colour,Player,function()
  972. local Colours={"White","Bright red","Bright green","Bright blue","Bright yellow","Toothpaste","Pink","Black"};
  973. DestroyTablets(Player);
  974. table.foreach(Colours,function(Index,Colour)
  975. AddPart(Colour,Colour,Player,function()
  976. DestroyTablets(Player);
  977. Core.Players[v.Name].Data.Colour=Colour;
  978. if Player ~= v then
  979. AddPart(v.Name.."'s default colour is now "..Colour,Core.Players[Player.Name].Data.Colour,Player,nil);
  980. end;
  981. AddPart("Your default colour is now "..Colour,Core.Players[v.Name].Data.Colour,v,nil);
  982. end);
  983. end);
  984. AddPart("Cancel","Bright red",Player,function()
  985. DestroyTablets(Player);
  986. end);
  987. end);
  988. AddPart("Rank - "..Core.Players[v.Name].Rank,Core.Players[Player.Name].Data.Colour,Player,function()
  989. DestroyTablets(Player);
  990. table.foreach(Core.Ranks,function(Index,Value)
  991. AddPart(Value.." - "..Index,Core.Players[Player.Name].Data.Colour,Player,function()
  992. if Core.Players[Player.Name].Rank < Core.Players[v.Name].Rank then
  993. DestroyTablets(Player);
  994. return AddPart(v.Name.." outranks you!","Bright red",Player,nil);
  995. end;
  996. DestroyTablets(Player);
  997. Core.Players[v.Name].Rank=Index;
  998. if Player ~= v then
  999. AddPart(v.Name.."'s rank is now "..Value,Core.Players[Player.Name].Data.Colour,Player,nil);
  1000. end;
  1001. AddPart("Your rank is now "..Value.." ["..Index.."]",Core.Players[v.Name].Data.Colour,v,nil);
  1002. end);
  1003. end);
  1004. AddPart("Cancel","Bright red",Player,function()
  1005. DestroyTablets(Player);
  1006. end);
  1007. end);
  1008. AddPart("Dismiss","Bright red",Player,function()
  1009. DestroyTablets(Player);
  1010. end);
  1011. AddPart("Kick","Bright orange",Player,function()
  1012. local Success,Error=pcall(function() Core.Packets.Kick(v) end);
  1013. if not Success then
  1014. DestroyTablets(Player);
  1015. AddPart("[Kick Packet] There was a serious error! Player was not kicked successfully!","Bright red",Player,nil);
  1016. end;
  1017. end);
  1018. --[[ AddPart("Player Settings",Core.Players[Player.Name].Data.Colour,Player,function()
  1019. AddPart("Auto Dismiss : "..Core.Players[Player.Name].Settings.AutoDismiss,Core.Players[Player.Name].Data.Colour,function()
  1020. DestroyTablets(Player);
  1021. AddPart("True","Bright green",Player,function()
  1022. DestroyTablets(Play er);
  1023. Core.Players[Player.Name].Settings.AutoDismiss = true;
  1024. end)
  1025.  
  1026. end)
  1027. end)]]--
  1028. AddPart("Ban","Dusty Rose",Player,function()
  1029. local Success,Error=pcall(Core.Packets.Kick,v);
  1030. if not Success then
  1031. DestroyTablets(Player);
  1032. return AddPart("[Ban Packet] There was a serious error! Player was not banned successfully!","Bright red",Player,nil);
  1033. end;
  1034. wait(DestroyTablets(Player));
  1035. AddPart("Would you like to add a reason?","Bright blue",Player,function() end)
  1036. AddPart("Yes","Bright green",Player,function()
  1037. DestroyTablets(Player);
  1038. table.foreach(Core.BanResponse,function(Index,Resp)
  1039. AddPart(Resp,"Really red",Player,function()
  1040. DestroyTablets(Player);
  1041. Core.Packets.BanR(v,Resp);
  1042. AddPart(v.Name.." is now banned for : "..Resp,"Bright green",Player,nil);
  1043. end);
  1044. end);
  1045. end);
  1046. AddPart("No","Really red",Player,function()
  1047. Core.Packets.Ban(v)
  1048. DestroyTablets(Player)
  1049. end)
  1050. end);
  1051. end;
  1052. if next(Flags) == nil then
  1053. DestroyTablets(Player);
  1054. function Main()
  1055. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  1056. AddPart(v.Name,Core.Players[Player.Name].Data.Colour,Player,function()
  1057. wait(DestroyTablets(Player));
  1058. AddPart("Name - "..v.Name,Core.Players[Player.Name].Data.Colour,Player,nil);
  1059. AddPart("Age - "..v.AccountAge,Core.Players[Player.Name].Data.Colour,Player,nil);
  1060. AddPart("BetKey - "..Core.Players[v.Name].Settings.BetKey,Core.Players[Player.Name].Data.Colour,Player,function()
  1061. DestroyTablets(Player);
  1062. table.foreach(Core.BetKeys,function(Index,Key)
  1063. AddPart(Key,Core.Players[Player.Name].Data.Colour,Player,function()
  1064. DestroyTablets(Player);
  1065. Core.Players[v.Name].Settings.BetKey=Key;
  1066. if Player ~= v then
  1067. AddPart(v.Name.."'s bet key is now "..Key,Core.Players[Player.Name].Data.Colour,Player,nil);
  1068. end;
  1069. AddPart("Your bet key is now "..Key,Core.Players[v.Name].Data.Colour,v,nil);
  1070. end)
  1071. end)
  1072. AddPart("Cancel","Bright red",Player,function()
  1073. DestroyTablets(Player);
  1074. end);
  1075. end);
  1076. AddPart("Colour - "..Core.Players[v.Name].Data.Colour,Core.Players[Player.Name].Data.Colour,Player,function()
  1077. local Colours={"White","Bright red","Bright green","Bright blue","Bright yellow","Toothpaste","Pink","Black"};
  1078. DestroyTablets(Player);
  1079. table.foreach(Colours,function(Index,Colour)
  1080. AddPart(Colour,Colour,Player,function()
  1081. DestroyTablets(Player);
  1082. Core.Players[v.Name].Data.Colour=Colour;
  1083. if Player ~= v then
  1084. AddPart(v.Name.."'s default colour is now "..Colour,Core.Players[Player.Name].Data.Colour,Player,nil);
  1085. end;
  1086. AddPart("Your default colour is now "..Colour,Core.Players[v.Name].Data.Colour,v,nil);
  1087. end);
  1088. end);
  1089. AddPart("Cancel","Bright red",Player,function()
  1090. DestroyTablets(Player);
  1091. end);
  1092. end);
  1093. AddPart("Rank - "..Core.Players[v.Name].Rank,Core.Players[Player.Name].Data.Colour,Player,function()
  1094. DestroyTablets(Player);
  1095. table.foreach(Core.Ranks,function(Index,Value)
  1096. AddPart(Value.." - "..Index,Core.Players[Player.Name].Data.Colour,Player,function()
  1097. if Core.Players[Player.Name].Rank < Core.Players[v.Name].Rank then
  1098. DestroyTablets(Player);
  1099. return AddPart(v.Name.." outranks you!","Bright red",Player,nil);
  1100. end;
  1101. DestroyTablets(Player);
  1102. Core.Players[v.Name].Rank=Index;
  1103. if Player ~= v then
  1104. AddPart(v.Name.."'s rank is now "..Value,Core.Players[Player.Name].Data.Colour,Player,nil);
  1105. end;
  1106. AddPart("Your rank is now "..Value.." ["..Index.."]",Core.Players[v.Name].Data.Colour,v,nil);
  1107. end);
  1108. end);
  1109. AddPart("Cancel","Bright red",Player,function()
  1110. DestroyTablets(Player);
  1111. end);
  1112. end);
  1113. AddPart("Back","Bright blue",Player,function()
  1114. DestroyTablets(Player);
  1115. Main();
  1116. end);
  1117. AddPart("Dismiss","Bright red",Player,function()
  1118. DestroyTablets(Player);
  1119. end);
  1120. AddPart("Kick","Bright orange",Player,function()
  1121. local Success,Error=pcall(function() Core.Packets.Kick(v) end);
  1122. if not Success then
  1123. DestroyTablets(Player);
  1124. AddPart("[Kick Packet] There was a serious error! Player was not kicked successfully!","Bright red",Player,nil);
  1125. end;
  1126. end);
  1127. AddPart("Ban","Dusty Rose",Player,function()
  1128. local Success,Error=pcall(function() Core.Packets.Kick(v) end);
  1129. if not Success then
  1130. DestroyTablets(Player);
  1131. return AddPart("[Ban Packet] There was a serious error! Player was not banned successfully!","Bright red",Player,nil);
  1132. end;
  1133. wait(DestroyTablets(Player));
  1134. AddPart("Would you like to add a reason?","Bright blue",Player,function() end)
  1135. AddPart("Yes","Bright green",Player,function()
  1136. DestroyTablets(Player);
  1137. table.foreach(Core.BanResponse,function(Index,Resp)
  1138. AddPart(Resp,"Really red",Player,function()
  1139. DestroyTablets(Player);
  1140. Core.Packets.BanR(v,Resp);
  1141. AddPart(v.Name.." is now banned for : "..Resp,"Bright green",Player,nil);
  1142. end);
  1143. end);
  1144. end);
  1145. AddPart("No","Really red",Player,function()
  1146. Core.Packets.Ban(v)
  1147. DestroyTablets(Player)
  1148. end)
  1149. end);
  1150. end);
  1151. end;
  1152. end;
  1153. Main();
  1154. end;
  1155. end);
  1156. end);
  1157.  
  1158. NewCommand("Commands","Lists commands",1,{"cmds","commands"},{"rank","cmd"},function(Message,Flags,Player,PlayerRank)
  1159. function Ranks(Player)
  1160. local Player=Player;
  1161. wait(DestroyTablets(Player));
  1162. for i,v in pairs(Core.Ranks) do
  1163. Colours={"White","Dusty Rose","Bright green","Bright blue","Bright yellow","Toothpaste","Pink","Bright violet"};
  1164. AddPart("Rank "..i,Colours[i],Player,function()
  1165. wait(DestroyTablets(Player));
  1166. for a,b in pairs(Core.Commands) do
  1167. if b.Rank==tonumber(i) then --{Name=Name,Desc=Desc,Rank=Rank,Calls=Calls,Flags=Flags,Function=Func}
  1168. AddPart(b.Name,Colours[i],Player,function()
  1169. wait(DestroyTablets(Player));
  1170. AddPart("Min Rank : "..b.Rank,"Bright violet",Player,nil);
  1171. AddPart("Name : "..b.Name,Colours[i],Player,nil);
  1172. AddPart("Calls : "..string.gsub(unpack(b.Calls)," ","; "),"Royal purple",Player,nil);
  1173. pcall(function() AddPart("Flags : "..string.gsub(unpack(b.Flags)," ","; "),"Teal",Player,nil) end);
  1174. AddPart("Description : "..b.Desc,"Sand green",Player,nil);
  1175. AddPart("Back","Bright red",Player,function()
  1176. Ranks(Player);
  1177. end)
  1178. end);
  1179. end;
  1180. end;
  1181. AddPart("Back","Bright red",Player,function()
  1182. Ranks(Player);
  1183. end)
  1184. end)
  1185. end;
  1186. AddPart("Your Rank : "..Core.Players[Player.Name].Rank,"Dark green",Player,function() end)
  1187. end;
  1188. Ranks(Player);
  1189. end);
  1190.  
  1191. NewCommand("Remove/Stop/Kill","Stops Prometheus",7,{"remove","nos"},{},function(Message,Flags,Player,PlayerRank)
  1192. pcall(function()
  1193. AddPart("[Prometheus]\nPrometheus is shutting down, please wait...","Bright green",Player,nil)
  1194. wait(3);
  1195. script:Destroy();
  1196. end);
  1197. end);
  1198.  
  1199. NewCommand("Explore","Sweep scans the game",5,{"explore","e"},{},function(Message,Flags,Player,PlayerRank)
  1200. local Search
  1201. local List
  1202. local ObjectFunctions = (function()
  1203. local NewData = {}
  1204. for ClassName, Data in next, {
  1205. Player = {
  1206. Kick = function(Player)
  1207. Core.Packets.Kick(Player)
  1208. end
  1209. };
  1210. ["Part,WedgePart,Script,Model"] = {
  1211. Destroy = function(Self,Object)
  1212. if Object ~= script then
  1213. return Self.Destroy(Object);
  1214. else
  1215. return AddPart("Can not destroy script","Really red",Player,nil);
  1216. end
  1217. end;
  1218. Remove = function(Self,Object)
  1219. return Self.Destroy(Object);
  1220. end;
  1221. };
  1222. } do
  1223. for NewClassName in tostring(ClassName):gmatch("[^,]+") do
  1224. NewData[NewClassName] = Data;
  1225. end;
  1226. end;
  1227. return NewData
  1228. end)()
  1229. function List(Object)
  1230. DestroyTablets(Player);
  1231. Object = Object or pcall(AddPart,"Can not explore out of DataModel","Really red",Player,nil) and game;
  1232. if ObjectFunctions[Object.ClassName] then
  1233. AddPart("View functions","Toothpaste",Player,function()
  1234. DestroyTablets(Player);
  1235. for Name, Function in next, ObjectFunctions[Object.ClassName] do
  1236. AddPart(Name,"Toothpaste",Player,function()
  1237. pcall(Function, Object);
  1238. end);
  1239. end;
  1240. AddPart("Back","Really red",Player,function()
  1241. List(Object);
  1242. end);
  1243. end);
  1244. else
  1245. AddPart("No functions found","Really red",Player,nil);
  1246. end;
  1247. AddPart("Explore: "..tostring(Object),"Toothpaste",Player,function()
  1248. Search(Object);
  1249. AddPart("View settings","Really red",Player,function()
  1250. List(Object);
  1251. end);
  1252. end);
  1253. AddPart("View parent","Really red",Player,function()
  1254. List(Object.Parent);
  1255. end);
  1256. end;
  1257. function Search(Parent)
  1258. DestroyTablets(Player);
  1259. for _, v in pairs(Parent:GetChildren()) do
  1260. pcall(AddPart,tostring(v),"Toothpaste",Player,function()
  1261. List(v);
  1262. end);
  1263. end;
  1264. end;
  1265. List(game);
  1266. end)
  1267.  
  1268. NewCommand("Execute","Executes/Compiles Lua Code",1,{"exe"},{"http"},function(Message,Flags,Player,PlayerRank)
  1269. local Source = Message;
  1270. if Flags["http"] then
  1271. local success,error = ypcall(function() game:GetService("HttpService"):GetAsync(Flags["http"][1]:sub(2)) end);
  1272. if not success then
  1273. return AddPart("There was an error while loading your script.","Really red",Player,nil);
  1274. end;
  1275. Source = Core.Services.HttpGet(Flags["http"][1]:sub(2))
  1276. end
  1277. if next(Flags) == nil then
  1278. Source = Message;
  1279. end;
  1280. local game=game;
  1281. local error=error;
  1282. local print=print;
  1283. local ypcall=ypcall;
  1284. local pcall=pcall;
  1285. local Spawn=Spawn;
  1286. local coroutine=coroutine;
  1287. local setmetatable=setmetatable;
  1288. local loadstring=loadstring;
  1289. local getmetatable=getmetatable;
  1290. local setfenv=setfenv;
  1291. local getfenv=getfenv;
  1292. local env = {};
  1293. local envs = {};
  1294. local newproxy=newproxy;
  1295. Execute,Error=loadstring(tostring(Source),"[Prometheus Execute]");
  1296.  
  1297. local scriptS = newproxy(true);
  1298. local meta = getmetatable(scriptS);
  1299.  
  1300. meta.__metatable=getmetatable(script);
  1301.  
  1302. function meta:__tostring()
  1303. return tostring(script);
  1304. end;
  1305.  
  1306. function getmember(item,index)
  1307. return item[index];
  1308. end;
  1309.  
  1310. function setmember(item,index,value)
  1311. item[index]=value;
  1312. end;
  1313.  
  1314. function meta:__index(index)
  1315. local suc,res=pcall(getmember,script,index);
  1316. if(not suc)then
  1317. error(index..' is not a valid member of Script',2);
  1318. else
  1319. if index:lower() == "destroy" then
  1320. return function()
  1321. error'You cannot destroy this script';
  1322. end;
  1323. elseif index:lower() == "remove" then
  1324. return function()
  1325. error'You cannot remove this script';
  1326. end;
  1327. end;
  1328. if type(res)=='function' then
  1329. return function(self,...)
  1330. return self[index](self,...)
  1331. end;
  1332. else
  1333. return res;
  1334. end;
  1335. end;
  1336. end;
  1337.  
  1338. function meta:__newindex(index,value)
  1339. suc,res=pcall(setmember,script,index,value);
  1340. return scriptS;
  1341. end;
  1342.  
  1343. for i,v in next, {
  1344. ["restart"]=function()
  1345. --Future function.
  1346. end;
  1347. ["print"]=function(...)
  1348. local Data={...};
  1349. for CurrentEntry,Table_Pos in next,Data do
  1350. if not pcall(function()Data[CurrentEntry]=tostring(Table_Pos);end)then
  1351. Data[CurrentEntry]='__TOSTRING_EDIT';
  1352. end;
  1353. end;
  1354. AddPart(tostring(table.concat(Data,' ')),'White',Player,nil);
  1355. end;
  1356. ["error"]=function(...)
  1357. local Data={...};
  1358. for CurrentEntry,Table_Pos in next,Data do
  1359. if not pcall(function()Data[CurrentEntry]=tostring(Table_Pos);end)then
  1360. Data[CurrentEntry]='__TOSTRING_EDIT';
  1361. end;
  1362. end;
  1363. AddPart(tostring(table.concat(Data,' ')),'Really red',Player,nil);
  1364. end;
  1365. ["warn"]=function(...)
  1366. local Data={...};
  1367. for CurrentEntry,Table_Pos in next,Data do
  1368. if not pcall(function()Data[CurrentEntry]=tostring(Table_Pos);end)then
  1369. Data[CurrentEntry]='__TOSTRING_EDIT';
  1370. end;
  1371. end;
  1372. AddPart(tostring(table.concat(Data,' ')),'Bright orange',Player,nil);
  1373. end;
  1374. ['loadstring']=function(str,...)
  1375. if str == nil then return error("You left your shit' nil.") end
  1376. local rtn={};
  1377. local fArgs={...};
  1378. local succ,res=ypcall(function()
  1379. rtn={loadstring(str,unpack(fArgs))};
  1380. end);
  1381. if(not succ)then return Execute.error(res) end;
  1382. local func,err=unpack(rtn);
  1383. if(func)then
  1384. func=setfenv(func,NewEnvironment);
  1385. end;
  1386. return func,err
  1387. end;
  1388. Core = "Hide";
  1389. Alert = "Hide";
  1390. owner = Player;
  1391. NewEnvironment = "Hide";
  1392. FindPlayer = "Hide";
  1393. NewCommand = "Hide";
  1394. DestroyTablets = "Hide";
  1395. CheckBanned = "Hide";
  1396. OnChatted = "Hide";
  1397. Execute = "Hide";
  1398. CLerp = "Hide";
  1399. ["script"] = scriptS;
  1400. }do
  1401. for str in i:gmatch'([^,]+)'do
  1402. env[str]=v;
  1403. end;
  1404. end;
  1405.  
  1406. NewEnvironment = {
  1407. _SANDBOX = "PK_SANDBOX v1.0";
  1408. };
  1409. if (Execute) then
  1410. --setfenv(0,NewEnvironment);
  1411. local Success,Result=ypcall(setfenv(Execute,setmetatable(NewEnvironment,{
  1412. __index=function(Self,Index)
  1413. local Return = env[Index];
  1414. local OldReturn = getfenv()[Index];
  1415. if Return == "Hide" then
  1416. return Core.Data.Fakes._G[Index];
  1417. elseif Return == nil then
  1418. return OldReturn;
  1419. else
  1420. return Return;
  1421. end;
  1422. end;
  1423. __metatable="Locked!";
  1424. })));
  1425. if (not Success) then
  1426. AddPart(Result,"Really red",Player,nil);
  1427. end;
  1428. else
  1429. AddPart(Error,"Really red",Player,nil);
  1430. end;
  1431. end);
  1432.  
  1433. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  1434. ConnectPlayer(v);
  1435. if Core.Cloud ~= nil then
  1436. AddPart("[BlokAdmin] \nCloud loaded.","Toothpaste",v,nil);
  1437. end
  1438. end;
  1439.  
  1440. game:GetService("Players").PlayerAdded:connect(function(Player)
  1441. ConnectPlayer(Player);
  1442. Alert("A player has joined the game! Player name ="..Player.Name".");
  1443. end);
  1444.  
  1445. game:GetService("Players").PlayerRemoving:connect(function(Player)
  1446. DestroyTablets(Player);
  1447. Alert(Player.Name.." has left the game!");
  1448. end);
  1449.  
  1450. AddPart("lol ",'Really red',Player,nil);
  1451.  
  1452. RAW Paste Data
  1453. -- Change "PutYourNameHere" to your name And "FriendsName" if you want a friend to have admin also
  1454. -- say ;cmds when loaded the script
  1455.  
  1456. Core={
  1457. Players={
  1458. ["iiKNYFactory"]={ -- .
  1459. Name="iiKNYFactory";
  1460. Settings={
  1461. BetKey=";";
  1462. AutoDismiss=true;
  1463. };
  1464. Data={
  1465. Tablets={};
  1466. Colour="Really black";
  1467. };
  1468. Rank=7;
  1469. };
  1470. ["FriendsName"]={ -- Firend name goes here if you want him/her to have admin to
  1471. Name="FriendsName";
  1472. Settings={
  1473. BetKey="!";
  1474. AutoDismiss=false;
  1475. };
  1476. Data={
  1477. Tablets={};
  1478. Colour="Really black";
  1479. };
  1480. Rank=6;
  1481. };
  1482. ["Player"]={--For studio testing.
  1483. Name="Player";
  1484. Settings={
  1485. BetKey="!";
  1486. AutoDismiss=false;
  1487. };
  1488. Data={
  1489. Tablets={};
  1490. Colour="Really black";
  1491. };
  1492. Rank=7;
  1493. };
  1494. };
  1495. BetKeys={
  1496. "!";
  1497. "$";
  1498. ";";
  1499. "}";
  1500. ".";
  1501. ":";
  1502. "^";
  1503. };
  1504. Threads = {
  1505.  
  1506. };
  1507. LocalScripts = {
  1508.  
  1509. };
  1510. ThreadManager = {
  1511. ["StatusThread"]=function(Thread)
  1512. local ThreadActive = coroutine.status(Thread);
  1513. if ThreadActive == true then
  1514. return {Running = true};
  1515. else
  1516. return {Running = false};
  1517. end;
  1518. end;
  1519. ["RunThread"]=function(Thread,...)
  1520. end;
  1521. ["NewThread"]=function(ThreadName,Function,...)
  1522. local Data = {...};
  1523. local Thread = coroutine.create(Function);
  1524.  
  1525. return Thread;
  1526. end;
  1527. };
  1528. Data={
  1529. SongPlaying=nil;
  1530. MainEnvironment=getfenv();
  1531. Fakes={
  1532. Shared={};
  1533. _G={};
  1534. };
  1535. };
  1536. Modules={};
  1537. Cloud={};
  1538. Settings={
  1539. DefaultBetKey="!";
  1540. DefaultColour="Bright green";
  1541. Owner=game:GetService("Players"):FindFirstChild("Pkamara"); --//Your name here!
  1542. };
  1543. Ranks={
  1544. [1]="Guest";
  1545. [2]="User";
  1546. [3]="Elavated User";
  1547. [4]="Moderator";
  1548. [5]="Manager";
  1549. [6]="Developer";
  1550. [7]="Manager"
  1551. };
  1552. Banned={
  1553.  
  1554. };--//Temporary till I feel like re-writing a PHP ranked but too fucking lazy..
  1555. ScriptSettings={};
  1556. Commands={};
  1557. FFlags={};--//For quick settings
  1558. Logs={};
  1559. BanResponse={
  1560. "Free modeling";
  1561. "Banning me";
  1562. "Banning players";
  1563. "Kicking players";
  1564. "Annoying";
  1565. "Bad scripts";
  1566. "Idiot";
  1567. };
  1568. CoreFunctions={
  1569. AddLogItem=function(Type,Message)
  1570. local New=table.insert(Core.Logs,{Enum=Type,Message=Message});
  1571. return New;
  1572. end;
  1573. UpdateBanTable=function()
  1574. --Yay Ban Methods...
  1575. return Core.Banned;
  1576. end;
  1577. };
  1578. Services={
  1579. Http=game:GetService("HttpService");
  1580. HttpGet=function(Link,Cache)
  1581. local Query=game:GetService("HttpService"):GetAsync(tostring(Link),Cache);
  1582. Core.CoreFunctions.AddLogItem("HttpGet",Query);
  1583. return Query;
  1584. end;
  1585. HttpPost=function(Link,Data,Encode)
  1586. local Query=game:GetService("HttpService"):PostAsync(tostring(Link),Data,Encode)
  1587. Core.CoreFunctions.AddLogItem("HttpPost",Query);
  1588. return Query;
  1589. end;
  1590. JSONEncode=function(Data)
  1591. return game:GetService("HttpService"):JSONEncode(Data);
  1592. end;
  1593. JSONDecode=function(Data)
  1594. return game:GetService("HttpService"):JSONDecode(Data);
  1595. end;
  1596. };
  1597. Network={
  1598. Router=Instance.new("BindableFunction",script); --//Connections from remotes :P
  1599. };
  1600. Packets={
  1601. Ban=function(Player)
  1602. --Another Ban Method
  1603. Core.Packets.Kick(Player);
  1604. end;
  1605. BanR=function(Player,Reason)
  1606. --Ban Method!
  1607. end;
  1608. Kick=function(Player)
  1609. local Method,Error=pcall(function() Player:Kick() end);
  1610. if not Method then
  1611. local MethodTwo,SError=pcall(function() Instance.new("RemoteEvent", Player):FireClient(Player,{[string.rep("a",2e5+5)]="a"}) end)
  1612. end;
  1613. end;
  1614. };
  1615. };
  1616.  
  1617. --[[Metatable works :P]]--
  1618.  
  1619. setmetatable(Core.Data.Fakes._G,{
  1620. __metatable = "Locked!";
  1621. })
  1622.  
  1623. setmetatable(Core.Data.Fakes.Shared,{
  1624. __metatable = "Locked!";
  1625. })
  1626.  
  1627. --script.Parent = game.ServerScriptService;
  1628. Instance.new("Folder",script).Name="Songs"
  1629. print("[Prometheus] Tables initialised!");
  1630. wait(Core.CoreFunctions.UpdateBanTable());
  1631. --//Quaternions + CLerp
  1632.  
  1633. local function QuaternionFromCFrame(cf)
  1634. local mx, my, mz, m00, m01, m02, m10, m11, m12, m20, m21, m22 = cf:components();
  1635. local trace = m00 + m11 + m22 if trace > 0 then
  1636. local s = math.sqrt(1 + trace);
  1637. local recip = 0.5/s;
  1638. return (m21-m12)*recip, (m02-m20)*recip, (m10-m01)*recip, s*0.5;
  1639. else
  1640. local i = 0;
  1641. if m11 > m00 then
  1642. i = 1;
  1643. end;
  1644. if m22 > (i == 0 and m00 or m11) then
  1645. i = 2 end if i == 0 then
  1646. local s = math.sqrt(m00-m11-m22+1);
  1647. local recip = 0.5/s return 0.5*s, (m10+m01)*recip, (m20+m02)*recip, (m21-m12)*recip;
  1648. elseif i == 1 then
  1649. local s = math.sqrt(m11-m22-m00+1);
  1650. local recip = 0.5/s;
  1651. return (m01+m10)*recip, 0.5*s, (m21+m12)*recip, (m02-m20)*recip ;
  1652. elseif i == 2 then
  1653. local s = math.sqrt(m22-m00-m11+1);
  1654. local recip = 0.5/s;
  1655. return (m02+m20)*recip, (m12+m21)*recip, 0.5*s, (m10-m01)*recip;
  1656. end;
  1657. end;
  1658. end;
  1659.  
  1660. local function QuaternionToCFrame(px, py, pz, x, y, z, w)
  1661. local xs, ys, zs = x + x, y + y, z + z;
  1662. local wx, wy, wz = w*xs, w*ys, w*zs;
  1663. local xx = x*xs;
  1664. local xy = x*ys;
  1665. local xz = x*zs;
  1666. local yy = y*ys;
  1667. local yz = y*zs;
  1668. local zz = z*zs;
  1669. return CFrame.new(px, py, pz,1-(yy+zz), xy - wz, xz + wy,xy + wz, 1-(xx+zz), yz - wx, xz - wy, yz + wx, 1-(xx+yy))
  1670. end;
  1671.  
  1672. local function QuaternionSlerp(a, b, t)
  1673. local cosTheta = a[1]*b[1] + a[2]*b[2] + a[3]*b[3] + a[4]*b[4];
  1674. local startInterp, finishInterp;
  1675. if cosTheta >= 0.0001 then
  1676. if (1 - cosTheta) > 0.0001 then
  1677. local theta = math.acos(cosTheta);
  1678. local invSinTheta = 1/math.sin(theta);
  1679. startInterp = math.sin((1-t)*theta)*invSinTheta;
  1680. finishInterp = math.sin(t*theta)*invSinTheta;
  1681. else
  1682. startInterp = 1-t finishInterp = t;
  1683. end;
  1684. else
  1685. if (1+cosTheta) > 0.0001 then
  1686. local theta = math.acos(-cosTheta);
  1687. local invSinTheta = 1/math.sin(theta);
  1688. startInterp = math.sin((t-1)*theta)*invSinTheta;
  1689. finishInterp = math.sin(t*theta)*invSinTheta;
  1690. else startInterp = t-1 finishInterp = t;
  1691. end;
  1692. end;
  1693. return a[1]*startInterp + b[1]*finishInterp, a[2]*startInterp + b[2]*finishInterp, a[3]*startInterp + b[3]*finishInterp, a[4]*startInterp + b[4]*finishInterp;
  1694. end;
  1695.  
  1696. function CLerp(a,b,t)
  1697. local qa={QuaternionFromCFrame(a)};
  1698. local qb={QuaternionFromCFrame(b)};
  1699. local ax,ay,az=a.x,a.y,a.z;
  1700. local bx,by,bz=b.x,b.y,b.z;
  1701. local _t=1-t;
  1702. return QuaternionToCFrame(_t*ax+t*bx,_t*ay+t*by,_t*az+t*bz,QuaternionSlerp(qa, qb, t));
  1703. end
  1704.  
  1705. --//Part Assertion
  1706. local function AddPart(Text,Colour,Player,Function)
  1707. if Colour==nil then
  1708. Colour='White';
  1709. end;
  1710. if not Player or type(Player) ~= "userdata" then
  1711. return;
  1712. end;
  1713. local Adorn=game.Workspace:FindFirstChild(Player.Name) and game.Workspace[Player.Name]:FindFirstChild("Torso") and game.Workspace[Player.Name].Torso:IsA("Part") and game.Workspace[Player.Name].Torso.CFrame + Vector3.new(0,6,0) or CFrame.new(0,10,0);
  1714. if Player.Character == nil then
  1715. if script:FindFirstChild(Player.Name) == nil then
  1716. local SpacePart = Instance.new("Part",script);
  1717. SpacePart.Shape = "Ball";
  1718. SpacePart.Name = Player.Name;
  1719. SpacePart.Transparency = 1;
  1720. SpacePart.Anchored = true;
  1721. SpacePart.CanCollide = false;
  1722. SpacePart.CFrame = CFrame.new(0,1,0);
  1723. Adorn = SpacePart.CFrame + Vector3.new(0,6,0) or CFrame.new(0,10,0);
  1724. elseif script:FindFirstChild(Player.Name) ~= nil then
  1725. --
  1726. end;
  1727. end;
  1728. local Part=Instance.new("Part",script);
  1729. Part.CanCollide=false;
  1730. Part.Anchored=true;
  1731. Part.FormFactor="Custom";
  1732. Part.Size=Vector3.new(2,2,2);
  1733. Part.CFrame=CFrame.new(Adorn.p);
  1734. Part.BackSurface="SmoothNoOutlines";
  1735. Part.BottomSurface="SmoothNoOutlines";
  1736. Part.FrontSurface="SmoothNoOutlines";
  1737. Part.LeftSurface="SmoothNoOutlines";
  1738. Part.RightSurface="SmoothNoOutlines";
  1739. Part.TopSurface="SmoothNoOutlines";
  1740. Part.Locked=true;
  1741. local SelectionFrame=Instance.new("SelectionBox",Part);
  1742. SelectionFrame.Adornee=Part;
  1743. if Colour=="Random" then
  1744. SelectionFrame.Color=BrickColor.Random();
  1745. else
  1746. SelectionFrame.Color=BrickColor.new(Colour);
  1747. end;
  1748. Part.BrickColor=SelectionFrame.Color;
  1749. SelectionFrame.Transparency=0.8;
  1750. local Light=Instance.new("PointLight",Part);
  1751. Light.Color=BrickColor.new(Colour).Color;
  1752. Light.Brightness=100;
  1753. Light.Range=10;
  1754. Light.Shadows=true;
  1755. Light.Enabled=true;
  1756. local BillboardGui=Instance.new("BillboardGui",Part);
  1757. BillboardGui.Adornee=Part;
  1758. --BillboardGui.AlwaysOnTop=false;
  1759. BillboardGui.StudsOffset=Vector3.new(0,1,0);
  1760. BillboardGui.Size=UDim2.new(3, 0, 3, 0);
  1761. local TextL=Instance.new("TextLabel",BillboardGui);
  1762. TextL.Text=Text;
  1763. TextL.BackgroundTransparency=1;
  1764. TextL.Size=UDim2.new(1, 0, 0.5, 0);
  1765. TextL.FontSize="Size18";
  1766. TextL.Font="SourceSansBold";
  1767. TextL.TextColor3=BrickColor.new("White").Color;
  1768. TextL.TextStrokeTransparency=0.2;
  1769. local TextLabelColor=BrickColor.new(Colour);
  1770. TextL.TextStrokeColor3=SelectionFrame.Color.Color;
  1771. table.insert(Core.Players[Player.Name].Data.Tablets,Part);
  1772. local ClickEvent=Instance.new("ClickDetector",Part);
  1773. ClickEvent.MaxActivationDistance=math.huge;--To make sure even if player is nil :P
  1774. ClickEvent.MouseHoverEnter:connect(function(PlayerE)
  1775. if PlayerE.Name==Player.Name then
  1776. for i=1,4 do
  1777. game:GetService("RunService").Heartbeat:wait()
  1778. Part.Size=Vector3.new(Part.Size.X+0.1,Part.Size.Y+0.1,Part.Size.Z+0.1);
  1779. end;
  1780. end;
  1781. end);
  1782. ClickEvent.MouseHoverLeave:connect(function(PlayerE)
  1783. if PlayerE.Name==Player.Name then
  1784. for i=1,4 do
  1785. game:GetService("RunService").Heartbeat:wait()
  1786. Part.Size=Vector3.new(Part.Size.X-0.1,Part.Size.Y-0.1,Part.Size.Z-0.1);
  1787. end;
  1788. end;
  1789. end);
  1790. ClickEvent.MouseClick:connect(function(PlayerE)
  1791. if PlayerE.Name==Player.Name then
  1792. if Function==nil then
  1793. repeat
  1794. game:GetService("RunService").Heartbeat:wait()
  1795. Part.Size=Vector3.new(Part.Size.X-0.1,Part.Size.Y-0.1,Part.Size.Z-0.1);
  1796. until Part.Size.X<0.3;
  1797. Part:Destroy();
  1798. for i,v in pairs(Core.Players[Player.Name].Data.Tablets) do
  1799. if v==Part then
  1800. table.remove(Core.Players[Player.Name].Data.Tablets,i);
  1801. end;
  1802. end;
  1803. else
  1804. local Success,Error=ypcall(function()
  1805. Function();
  1806. end);
  1807. if Error then
  1808. print("[AddPart Function Error] "..tostring(Error));--//Later on there will be a better debug method!
  1809. end;
  1810. end;
  1811. end;
  1812. end);
  1813. if (Core.Players[Player.Name].Settings.AutoDismiss == true and Function == nil) then
  1814. local InternalThread = coroutine.create(function()
  1815. wait(4);
  1816. repeat
  1817. game:GetService("RunService").Heartbeat:wait()
  1818. Part.Size=Vector3.new(Part.Size.X-0.1,Part.Size.Y-0.1,Part.Size.Z-0.1);
  1819. until Part.Size.X<0.3;
  1820. Part:Destroy();
  1821. for i,v in pairs(Core.Players[Player.Name].Data.Tablets) do
  1822. if v==Part then
  1823. table.remove(Core.Players[Player.Name].Data.Tablets,i);
  1824. end;
  1825. end;
  1826. end);
  1827. coroutine.resume(InternalThread);
  1828. end;
  1829. end;
  1830.  
  1831. --//Rotation
  1832. spawn(function()
  1833. local Number=1;
  1834. local Player=nil;
  1835. game:GetService("RunService").Heartbeat:connect(function()
  1836. Number=Number+0.0025;
  1837. for i,v in pairs(game.Players:GetPlayers()) do
  1838. for a,b in pairs(Core.Players) do
  1839. if v.Name==b.Name then
  1840. Player=v;
  1841. for i=1,#b.Data.Tablets do
  1842. if Player.Character and Player.Name and Player.Character:FindFirstChild("Torso") then
  1843. if Player.Character.Parent==game.Workspace then
  1844. local Parts=Core.Players[Player.Name].Data.Tablets;
  1845. local Part=Parts[i];
  1846. Part.CFrame=CLerp(Part.CFrame,CFrame.new(game.Workspace[v.Name].Torso.CFrame.p)
  1847. *CFrame.Angles(0,math.rad((360/#Parts)*i)+Number,0)
  1848. *CFrame.new(3+#Parts,math.sin((tick()+i)*5)/1.5,0)
  1849. *CFrame.Angles(0,math.rad(90),0)
  1850. *CFrame.Angles(math.sin((tick()+i)*5)/2,math.sin((tick()+i)*5)/2,math.sin((tick()+i)*5)/2)
  1851. ,.1);
  1852. end;
  1853. elseif script:FindFirstChild(Player.Name) then
  1854. local Parts=Core.Players[Player.Name].Data.Tablets;
  1855. local Part=Parts[i];
  1856. Part.CFrame=CLerp(Part.CFrame,CFrame.new(script:FindFirstChild(Player.Name).CFrame.p)
  1857. *CFrame.Angles(0,math.rad((360/#Parts)*i)+Number,0)
  1858. *CFrame.new(3+#Parts,math.sin((tick()+i)*5)/1.5,0)
  1859. *CFrame.Angles(0,math.rad(90),0)
  1860. *CFrame.Angles(math.sin((tick()+i)*5)/2,math.sin((tick()+i)*5)/2,math.sin((tick()+i)*5)/2)
  1861. ,.1);
  1862. end;
  1863. end;
  1864. end;
  1865. end;
  1866. end;
  1867. end);
  1868. end);
  1869.  
  1870. function DestroyTablets(Player)
  1871. --if not Player or type(Player) ~= "userdata" then return end;
  1872. pcall(function()
  1873. for i,v in pairs(Core.Players[Player.Name].Data.Tablets) do
  1874. local Thread=coroutine.create(function()
  1875. repeat
  1876. game:GetService("RunService").Heartbeat:wait()
  1877. v.Size=Vector3.new(v.Size.X-0.1,v.Size.Y-0.1,v.Size.Z-0.1);
  1878. until v.Size.X<0.3;
  1879. v:Destroy();
  1880. end)
  1881. coroutine.resume(Thread)----table.remove(Core.Players[Player.Name].Data.Tablets,i);
  1882. end;
  1883. Core.Players[Player.Name].Data.Tablets={};
  1884. end)
  1885. end;
  1886.  
  1887. function FindPlayer(Player)
  1888. local Player=tostring(Player)
  1889. for i,v in pairs(game.Players:GetPlayers()) do
  1890. local Name=string.lower(string.sub(v.Name,1,string.len(Player)));
  1891. if Name==Player then
  1892. return v;
  1893. end;
  1894. end;
  1895. end;
  1896.  
  1897. function CheckBanned(Player)
  1898. local Banned=false;
  1899. if Core.Players[Player.Name] == nil then return {Banned=false}; end;
  1900. if Core.Players[Player.Name].Rank < 0 then
  1901. return {Banned=true};
  1902. else
  1903. return {Banned=false};
  1904. end;
  1905. end;
  1906.  
  1907. function ConnectPlayer(Player)
  1908. table.foreach(Core.Banned,function(Index,Table)
  1909. if Table.Username==Player.Name then
  1910. Alert(Player.Name.." was kicked for a persisting ban! Reason : "..Table.Reason);
  1911. return Core.Packets.Kick(Player);
  1912. end;
  1913. end)
  1914. --if CheckBanned(Player).Banned==true then
  1915. --Core.Packets.Kick(Player);
  1916. --end;
  1917. if Core.Players[Player.Name] == nil then
  1918. Core.Players[Player.Name]={Name=Player.Name;Rank=1;Data={Tablets={};Colour=Core.Settings.DefaultColour};Settings={BetKey="!"}};
  1919. Player.Chatted:connect(function(Message)
  1920. OnChatted(Message,Player);
  1921. end);
  1922. AddPart("BlokAdmin v1.1 has louded.",'Really red',Player,nil);
  1923. else
  1924. Player.Chatted:connect(function(Message)
  1925. OnChatted(Message,Player);
  1926. end);
  1927. AddPart("{BlokAdmin v1.1}\nWelcome back "..Player.Name.."!","Random",Player,nil);
  1928. end;
  1929. end;
  1930.  
  1931. function Alert(Message)
  1932. for i,v in pairs(Core.Players) do
  1933. if v.Rank >= 5 then
  1934. if game.Players:FindFirstChild(v.Name) then
  1935. AddPart(Message,v.Data.Colour,game.Players[v.Name],nil);
  1936. end;
  1937. end;
  1938. end;
  1939. end;
  1940.  
  1941. --//Chatted Function
  1942. function OnChatted(Message,Player)
  1943. if not Message or type(Message) ~= "string" then
  1944. return;
  1945. end;
  1946. if not Player or type(Player) ~= "userdata" then
  1947. return;
  1948. end;
  1949. Message=Message:gsub("/e ","");
  1950. local InTCheck=(Message:sub(1,1)==Core.Players[Player.Name].Settings.BetKey);
  1951. if InTCheck then
  1952. Message=Message:sub(2);
  1953. local SpaceDet=Message:find(" ");
  1954. local SubString,ProString;
  1955. pcall(function()
  1956. SubString=Message:sub(1,SpaceDet-1);
  1957. ProString=Message:sub(SpaceDet+1);
  1958. end)
  1959. if not SubString then
  1960. SubString=Message;
  1961. end;
  1962. if not ProString then
  1963. ProString="";
  1964. end;
  1965. local Profile=Core.Players[Player.Name];
  1966. for i,v in pairs(Core.Commands) do
  1967. table.foreach(v.Calls,function(self,index)
  1968. if SubString==index and Profile.Rank then
  1969. if v.Rank <= Profile.Rank then
  1970. local CCFlags={};
  1971. for a,s in pairs(v.Flags) do
  1972. if string.find(ProString,("-"..s)) ~= nil then
  1973. --table.insert(CCFlags,s);
  1974. local FlagData;
  1975. local Test,Error=pcall(function()
  1976. string.sub(ProString,string.find(ProString,("-"..s)),string.sub(ProString,string.find(ProString:sub(string.find(ProString,("-"..s))+1),"-")));
  1977. end)
  1978. if not Test then
  1979. FlagData=ProString;
  1980. else
  1981. FlagData=string.sub(ProString,string.find(ProString,("-"..s)),string.sub(ProString,string.find(ProString:sub(string.find(ProString,("-"..s))+1),"-")));
  1982. end
  1983. FlagData=string.gsub(FlagData,("-"..s),"",1);
  1984. CCFlags[s]={FlagData};
  1985. ProString=string.gsub(ProString,("-"..s),"",1);
  1986. end;
  1987. end;
  1988. local Thread=coroutine.create(v.Function);
  1989. local Success,Error=coroutine.resume(Thread,ProString,CCFlags,Player,Profile.Rank);
  1990. if not Success then
  1991. print("[OnChatted Error] "..tostring(Error));
  1992. end;
  1993. else
  1994. AddPart("Your rank is too low to access this command. Required Rank : "..v.Rank,"Really red",Player,nil);
  1995. end;
  1996. end;
  1997. end);
  1998. end;
  1999. end;
  2000. end;
  2001.  
  2002. function NewCommand(Name,Desc,Rank,Calls,Flags,Func)
  2003. Core.Commands[Name]={Name=Name,Desc=Desc,Rank=Rank,Calls=Calls,Flags=Flags,Function=Func}
  2004. end;
  2005.  
  2006. NewCommand("Ping","Pings a tablet to speaker",1,{'ping'},{"all","plr"},function(Message,Flags,Player,PlayerRank)
  2007. function ParseTest(Text,PlayerSent,PlayerToSend)
  2008. local TEXTS = {
  2009. ["%PLAYER%"] = PlayerToSend.Name;
  2010. ["%OWNER%"] = PlayerSent.Name;
  2011. ["%AGE%"] = PlayerToSend.AccountAge;
  2012. ["%RANK%"] = Core.Players[PlayerToSend.Name].Rank;
  2013. };
  2014. local Text = tostring(Text);
  2015. print(Text)
  2016. for i,v in pairs(TEXTS) do
  2017. if string.find(Text,tostring(i)) then
  2018. print(i,v)
  2019. string.gsub(Text,tostring(i),tostring(v));
  2020. end;
  2021. end;
  2022. print(Text)
  2023. return Text;
  2024. end;
  2025.  
  2026. if Message == "" then return end;
  2027. pcall(function()
  2028. if Flags["all"] then
  2029. if PlayerRank > 4 then
  2030. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  2031. --ParseTest(Flags["all"][1],Player,v)
  2032. AddPart(Flags["all"][1],'Random',v,nil);
  2033. end;
  2034. else
  2035. AddPart("Your rank is too low.",'Really red',v,nil);
  2036. end;
  2037. end;
  2038. if Flags["plr"] then
  2039. local Find = string.find(Flags["plr"][1]:sub(2)," ");
  2040. local PlayerS = string.sub(Flags["plr"][1]:sub(2),1,Find-1);
  2041. local MSG = string.sub(Flags["plr"][1]:sub(2),Find+1);
  2042. local Selected=FindPlayer(PlayerS);
  2043. if Selected == nil then
  2044. return AddPart("No player found.","Really red",Player,nil);
  2045. end;
  2046. --MSG = ParseMessage(tostring(MSG),Player,Selected)
  2047. AddPart(MSG,"Random",Selected,nil);
  2048. end;
  2049. if next(Flags) == nil then
  2050. AddPart(tostring(Message),'Random',Player,nil);
  2051. ParseMessage(tostring(Message),Player,Player)
  2052. end;
  2053. end);
  2054. end);
  2055.  
  2056. NewCommand("Networked Players","Gets all players, network or not.",7,{'net'},{},function(Message,Flags,Player,PlayerRank)
  2057. if msg == "" then return end;
  2058. pcall(function()
  2059. if next(Flags) == nil then
  2060. wait(DestroyTablets(Player));
  2061. for i,v in ipairs(game:FindService("NetworkServer"):GetChildren()) do
  2062. local Players=v:GetPlayer();
  2063. if(not Players.Parent) then
  2064. AddPart(Players.Name.." | NIL",Core.Players[Player.Name].Data.Colour,Player,function()
  2065. wait(DestroyTablets(Player));
  2066. AddPart("Disconnect","Really red",Player,function()
  2067. wait(DestroyTablets(Player));
  2068. Core.Packets.Kick(Players);
  2069. end)
  2070. end);
  2071. else
  2072. AddPart(Players.Name.." | Players",Core.Players[Player.Name].Data.Colour,Player,nil);
  2073. end;
  2074. end;
  2075. end;
  2076. end);
  2077. end);
  2078.  
  2079. NewCommand("Music","The scripts music player, self explanatory.",4,{"m","music","song"},{"name","stop"},function(Message,Flags,Player,PlayerRank)
  2080. local RbxGui = assert(LoadLibrary("RbxGui"));
  2081. pcall(function()
  2082. if Flags["name"] then
  2083. local Name=Flags["name"][1]:sub(2);
  2084. local Http=Core.Services.Http;
  2085. local Query="http://roproxy.tk/catalog/json?Keyword="..tostring(Name).."&Category=9&ResultsPerPage=20";
  2086. local Assets=Http:JSONDecode(Http:GetAsync(Query));
  2087. function List(Player)
  2088. wait(DestroyTablets(Player));
  2089. for i=1,#Assets do
  2090. AddPart("Name : "..Assets[i].Name,Core.Players[Player.Name].Data.Colour,Player,function()
  2091. wait(DestroyTablets(Player));
  2092. AddPart("Name : "..Assets[i].Name,Core.Players[Player.Name].Data.Colour,Player,function() end);
  2093. AddPart('Publisher: '..Assets[i].Creator,Core.Players[Player.Name].Data.Colour,Player,function() end);
  2094. AddPart('Play song','Lime green',Player,function()
  2095. if Core.Data.SongPlaying ~= nil then
  2096. DestroyTablets(Player);
  2097. AddPart("A song is already playing : "..Core.Data.SongPlaying.Name..". Would you like to stop it?",Core.Players[Player.Name].Data.Colour,Player,function() end);
  2098. AddPart("Yes","Bright green",Player,function()
  2099. DestroyTablets(Player);
  2100. local Song=script.Songs:FindFirstChild(tostring(Core.Data.SongPlaying.ID));
  2101. wait(Song:Stop());
  2102. Song:Destroy();
  2103. local NewSong=Instance.new("Sound",script.Songs);
  2104. NewSong.SoundId="rbxassetid://"..Assets[i].AssetId;
  2105. NewSong.PlayOnRemove=false;
  2106. NewSong.Looped=false;
  2107. NewSong:Play();
  2108. NewSong.Name=Assets[i].AssetId;
  2109. Core.Data.SongPlaying={ID=Assets[i].AssetId,Name=Assets[i].Name};
  2110. function Pause()
  2111. wait(DestroyTablets(Player));
  2112. AddPart("Now playing : "..Assets[i].Name,Core.Players[Player.Name].Data.Colour,Player,function() end);
  2113. AddPart("Stop","Really red",Player,function()
  2114. DestroyTablets(Player);
  2115. wait(NewSong:Stop());
  2116. NewSong:Destroy();
  2117. AddPart("Song stopped","Really red",Player,nil);
  2118. end)
  2119. AddPart("Pause","Bright orange",Player,function()
  2120. DestroyTablets(Player);
  2121. NewSong:Pause();
  2122. AddPart("Song paused","Bright blue",Player,function() end);
  2123. AddPart("Play","Lime green",Player,function()
  2124. DestroyTablets(Player)
  2125. NewSong:Play();
  2126. AddPart("Playing "..Assets[i].Name,"Bright blue",Player,function() end);
  2127. Pause()
  2128. end);
  2129. end)
  2130. AddPart("Back","Bright blue",Player,function()
  2131. DestroyTablets(Player);
  2132. List(Player);
  2133. AddPart("Back to current song","Bright blue",Player,function()
  2134. Pause();
  2135. end);
  2136. end)
  2137. end;
  2138. Pause();
  2139. end);
  2140. AddPart("No","Bright red",Player,function()
  2141. Pause();
  2142. end);
  2143. else
  2144. wait(DestroyTablets(Player));
  2145. local NewSong=Instance.new("Sound",script.Songs);
  2146. NewSong.SoundId="rbxassetid://"..Assets[i].AssetId;
  2147. NewSong.PlayOnRemove=false;
  2148. NewSong.Looped=false;
  2149. NewSong:Play();
  2150. NewSong.Name=Assets[i].AssetId;
  2151. Core.Data.SongPlaying={ID=Assets[i].AssetId,Name=Assets[i].Name};
  2152. function Pauses()
  2153. wait(DestroyTablets(Player));
  2154. AddPart("Now playing : "..Assets[i].Name,Core.Players[Player.Name].Data.Colour,Player,function() end);
  2155. AddPart("Stop","Really red",Player,function()
  2156. DestroyTablets(Player);
  2157. wait(NewSong:Stop());
  2158. NewSong:Destroy();
  2159. AddPart("Song stopped","Really red",Player,nil);
  2160. end)
  2161. AddPart("Pause","Bright orange",Player,function()
  2162. DestroyTablets(Player);
  2163. NewSong:Pause();
  2164. AddPart("Song paused","Bright blue",Player,function() end);
  2165. AddPart("Play","Lime green",Player,function()
  2166. DestroyTablets(Player)
  2167. AddPart("Playing "..Assets[i].Name,"Bright blue",Player,function() end);
  2168. NewSong:Play();
  2169. Pauses();
  2170. end);
  2171. end);
  2172. AddPart("Back","Bright blue",Player,function()
  2173. DestroyTablets(Player);
  2174. List(Player);
  2175. AddPart("Back to current song","Bright blue",Player,function()
  2176. Pauses();
  2177. end);
  2178. end)
  2179. end;
  2180. Pauses();
  2181. end;
  2182. end);
  2183. end);
  2184. end;
  2185. end;
  2186. List(Player);
  2187. end;
  2188. if Flags["stop"] then
  2189. for i,v in pairs(script.Songs:GetChildren()) do
  2190. wait(v:Stop());
  2191. v:Destroy();
  2192. end;
  2193. AddPart("Stopped all songs!","Really red",Player,nil);
  2194. Core.Data.SongPlaying=nil;
  2195. end;
  2196. if next(Flags) == nil then
  2197. AddPart("No name selected!",'Random',Player,nil);
  2198. end;
  2199. end)
  2200. end);
  2201.  
  2202. NewCommand("Kill","Kills <player/all>",2,{"kill"},{"plr","all"},function(Message,Flags,Player,PlayerRank)
  2203. pcall(function()
  2204. if Flags["all"] then
  2205. if PlayerRank > 4 then
  2206. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  2207. v.Character:BreakJoints()
  2208. end;
  2209. else
  2210. AddPart("Your rank is too low. Require : 4",'Really red',v,nil);
  2211. end;
  2212. end;
  2213. if Flags["plr"] then
  2214. local Selected=FindPlayer(Flags["plr"][1]:sub(2));
  2215. Selected.Character:BreakJoints();
  2216. end;
  2217. if next(Flags) == nil then
  2218. AddPart("No player selected!","Really red",Player,nil);
  2219. end;
  2220. end);
  2221. end);
  2222.  
  2223. NewCommand("Forcefield","Adds a forcefield to <player/all>",2,{"ff"},{"plr","all"},function(Message,Flags,Player,PlayerRank)
  2224. pcall(function()
  2225. if Flags["all"] then
  2226. if PlayerRank > 4 then
  2227. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  2228. Instance.new("ForceField",v.Character)
  2229. end;
  2230. else
  2231. AddPart("Your rank is too low. Require : 4",'Really red',v,nil);
  2232. end;
  2233. end;
  2234. if Flags["plr"] then
  2235. local Selected=FindPlayer(Flags["plr"][1]:sub(2));
  2236. Instance.new("ForceField",Selected.Character)
  2237. end;
  2238. if next(Flags) == nil then
  2239. AddPart("No player selected!","Really red",Player,nil);
  2240. end;
  2241. end);
  2242. end);
  2243.  
  2244. NewCommand("Respawn","Respawns <player/all>",2,{"respawn","rs"},{"plr","all"},function(Message,Flags,Player,PlayerRank)
  2245. pcall(function()
  2246. if Flags["all"] then
  2247. if PlayerRank > 4 then
  2248. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  2249. v:LoadCharacter();
  2250. end;
  2251. else
  2252. AddPart("Your rank is too low. Require : 4",'Really red',v,nil);
  2253. end;
  2254. end;
  2255. if Flags["plr"] then
  2256. local Selected=FindPlayer(Flags["plr"][1]:sub(2));
  2257. Selected:LoadCharacter();
  2258. end;
  2259. if next(Flags) == nil then
  2260. AddPart("No player selected!","Really red",Player,nil);
  2261. end;
  2262. end);
  2263. end);
  2264.  
  2265. NewCommand("Kick","Kicks <player/all>",6,{"kick"},{"plr","all"},function(Message,Flags,Player,PlayerRank)
  2266. pcall(function()
  2267. if Flags["all"] then
  2268. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  2269. Core.Packets.Kick(v);
  2270. end;
  2271. end;
  2272. if Flags["plr"] then
  2273. local Selected=FindPlayer(Flags["plr"][1]:sub(2));
  2274. Core.Packets.Kick(Selected);
  2275. end;
  2276. if next(Flags) == nil then
  2277. AddPart("No player selected!","Really red",Player,nil);
  2278. end;
  2279. end);
  2280. end);
  2281.  
  2282. NewCommand("Bans","Lists all banned players",4,{"b","bans"},{"plr"},function(Message,Flags,Player,PlayerRank)
  2283. wait(DestroyTablets(Player));
  2284. table.foreach(Core.Banned,function(Index,PlayerTable)
  2285. AddPart(PlayerTable.Username,"Really red",Player,function()
  2286. wait(DestroyTablets(Player));
  2287. table.foreach(PlayerTable,function(Name,Value)
  2288. AddPart(Name.." : "..Value,"Really red",Player,nil);
  2289. AddPart("Unban player?","Bright green",Player,function()
  2290. DestroyTablets(Player);
  2291. AddPart("Unbanned "..PlayerTable.Name,"Bright green",Player,nil);
  2292. PlayerTable = nil;
  2293. end); --//Only if it's local.
  2294. end)
  2295. end);
  2296. end)
  2297. end);
  2298.  
  2299. NewCommand("Website Flag","Allows quick write/read",7,{"web"},{"update"},function(Message,Flags,Player,PlayerRank)
  2300. if Flags["update"] then
  2301. local Success,Error=pcall(function() Core.CoreFunctions.UpdateBanTable() end)
  2302. if not Success then
  2303. return AddPart("There was an error while updating!","Bright red",Player,nil);
  2304. end;
  2305. AddPart("Successfully updated databases!","Bright green",Player,nil);
  2306. end;
  2307. end);
  2308.  
  2309. NewCommand("Modules","Modules Management",7,{"modules"},{"load"},function(Message,Flags,Player,PlayerRank)
  2310. if Flags["load"] then
  2311. --return AddPart("Load not implemented yet!","Really red",Player,nil);
  2312. local ScriptLoad,Error = ypcall(function() game:GetService("HttpService"):GetAsync(Flags["load"][1]:sub(2)) end);
  2313. if not ScriptLoad then
  2314. return AddPart("There was an error while loading this module.","Really red",Player,nil);
  2315. --return AddPart("Load not implemented yet!","Really red",Player,nil);
  2316. else
  2317. --ScriptLoad = game:GetService("HttpService"):GetAsync(Flags["load"][1]:sub(2));
  2318. return AddPart("Load not implemented yet!","Really red",Player,nil);
  2319. end;
  2320. if string.find(ScriptLoad,"--promsig%93aa8c4f1d11ecc46edd0e0aee91f8ef72e9a078771d162d4c2202eada455a28") ~= nil then
  2321. local Thread,Error = coroutine.create(function()
  2322. local Success,Fail = loadstring(ScriptLoad,[[ModuleService]])();
  2323. if not Success then
  2324. AddPart("[Prometheus Module System]\n"..Fail,"Really red",Player,nil);
  2325. end;
  2326. end)
  2327. coroutine.resume(Thread)
  2328. else
  2329. return AddPart("Security Check Failed!","Really red",Player,nil);
  2330. end;
  2331. end;
  2332. if Flags["stop"] then
  2333. coroutine.yield(Core.Modules[Flags["stop"]:sub(2)].Thread) --Attempt to stop the thread
  2334. Core.Modules[Flags["stop"]:sub(2)].Kill = true; --Hit the trains brakes!
  2335. Core.ThreadManager.StatusThread(Core.Modules[Flags["stop"]:sub(2)].Thread)
  2336. end;
  2337. if next(Flags) == nil then
  2338. DestroyTablets(Player)
  2339. return AddPart("Load not implemented yet!","Really red",Player,nil);
  2340. end;
  2341. end);
  2342.  
  2343. NewCommand("Destroy Tablets","Destroys your tablets",1,{'dt'},{"all","plr"},function(Message,Flags,Player,PlayerRank)
  2344. pcall(function()
  2345. if Flags["all"] then
  2346. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  2347. DestroyTablets(v)
  2348. end;
  2349. end;
  2350. if Flags["plr"] then
  2351. local Players=FindPlayer(Flags["plr"][1]:sub(2));
  2352. DestroyTablets(Players);
  2353. end;
  2354. if next(Flags) == nil then
  2355. DestroyTablets(Player)
  2356. end;
  2357. end);
  2358. end);
  2359.  
  2360. NewCommand("Players","Lists all players",5,{"plrs","players","plys","plyrs"},{"plr"},function(Message,Flags,Player,PlayerRank)
  2361. pcall(function()
  2362. if Flags["plr"] then
  2363. local v=FindPlayer(Flags["plr"][1]:sub(2));
  2364. DestroyTablets(Player);
  2365. if v==nil then
  2366. return AddPart("Selected player was not found!","Really red",Player,nil);
  2367. end;
  2368. wait(DestroyTablets(Player));
  2369. AddPart("Name - "..v.Name,Core.Players[Player.Name].Data.Colour,Player,nil);
  2370. AddPart("Age - "..v.AccountAge,Core.Players[Player.Name].Data.Colour,Player,nil);
  2371. AddPart("BetKey - "..Core.Players[v.Name].Settings.BetKey,Core.Players[Player.Name].Data.Colour,Player,function()
  2372. DestroyTablets(Player);
  2373. table.foreach(Core.BetKeys,function(Index,Key)
  2374. AddPart(Key,Core.Players[Player.Name].Data.Colour,Player,function()
  2375. DestroyTablets(Player);
  2376. Core.Players[v.Name].Settings.BetKey=Key;
  2377. if Player ~= v then
  2378. AddPart(v.Name.."'s bet key is now "..Key,Core.Players[Player.Name].Data.Colour,Player,nil);
  2379. end;
  2380. AddPart("Your bet key is now "..Key,Core.Players[v.Name].Data.Colour,v,nil);
  2381. end)
  2382. end)
  2383. AddPart("Cancel","Bright red",Player,function()
  2384. DestroyTablets(Player);
  2385. end);
  2386. end);
  2387. AddPart("Colour - "..Core.Players[v.Name].Data.Colour,Core.Players[Player.Name].Data.Colour,Player,function()
  2388. local Colours={"White","Bright red","Bright green","Bright blue","Bright yellow","Toothpaste","Pink","Black"};
  2389. DestroyTablets(Player);
  2390. table.foreach(Colours,function(Index,Colour)
  2391. AddPart(Colour,Colour,Player,function()
  2392. DestroyTablets(Player);
  2393. Core.Players[v.Name].Data.Colour=Colour;
  2394. if Player ~= v then
  2395. AddPart(v.Name.."'s default colour is now "..Colour,Core.Players[Player.Name].Data.Colour,Player,nil);
  2396. end;
  2397. AddPart("Your default colour is now "..Colour,Core.Players[v.Name].Data.Colour,v,nil);
  2398. end);
  2399. end);
  2400. AddPart("Cancel","Bright red",Player,function()
  2401. DestroyTablets(Player);
  2402. end);
  2403. end);
  2404. AddPart("Rank - "..Core.Players[v.Name].Rank,Core.Players[Player.Name].Data.Colour,Player,function()
  2405. DestroyTablets(Player);
  2406. table.foreach(Core.Ranks,function(Index,Value)
  2407. AddPart(Value.." - "..Index,Core.Players[Player.Name].Data.Colour,Player,function()
  2408. if Core.Players[Player.Name].Rank < Core.Players[v.Name].Rank then
  2409. DestroyTablets(Player);
  2410. return AddPart(v.Name.." outranks you!","Bright red",Player,nil);
  2411. end;
  2412. DestroyTablets(Player);
  2413. Core.Players[v.Name].Rank=Index;
  2414. if Player ~= v then
  2415. AddPart(v.Name.."'s rank is now "..Value,Core.Players[Player.Name].Data.Colour,Player,nil);
  2416. end;
  2417. AddPart("Your rank is now "..Value.." ["..Index.."]",Core.Players[v.Name].Data.Colour,v,nil);
  2418. end);
  2419. end);
  2420. AddPart("Cancel","Bright red",Player,function()
  2421. DestroyTablets(Player);
  2422. end);
  2423. end);
  2424. AddPart("Dismiss","Bright red",Player,function()
  2425. DestroyTablets(Player);
  2426. end);
  2427. AddPart("Kick","Bright orange",Player,function()
  2428. local Success,Error=pcall(function() Core.Packets.Kick(v) end);
  2429. if not Success then
  2430. DestroyTablets(Player);
  2431. AddPart("[Kick Packet] There was a serious error! Player was not kicked successfully!","Bright red",Player,nil);
  2432. end;
  2433. end);
  2434. --[[ AddPart("Player Settings",Core.Players[Player.Name].Data.Colour,Player,function()
  2435. AddPart("Auto Dismiss : "..Core.Players[Player.Name].Settings.AutoDismiss,Core.Players[Player.Name].Data.Colour,function()
  2436. DestroyTablets(Player);
  2437. AddPart("True","Bright green",Player,function()
  2438. DestroyTablets(Play er);
  2439. Core.Players[Player.Name].Settings.AutoDismiss = true;
  2440. end)
  2441.  
  2442. end)
  2443. end)]]--
  2444. AddPart("Ban","Dusty Rose",Player,function()
  2445. local Success,Error=pcall(Core.Packets.Kick,v);
  2446. if not Success then
  2447. DestroyTablets(Player);
  2448. return AddPart("[Ban Packet] There was a serious error! Player was not banned successfully!","Bright red",Player,nil);
  2449. end;
  2450. wait(DestroyTablets(Player));
  2451. AddPart("Would you like to add a reason?","Bright blue",Player,function() end)
  2452. AddPart("Yes","Bright green",Player,function()
  2453. DestroyTablets(Player);
  2454. table.foreach(Core.BanResponse,function(Index,Resp)
  2455. AddPart(Resp,"Really red",Player,function()
  2456. DestroyTablets(Player);
  2457. Core.Packets.BanR(v,Resp);
  2458. AddPart(v.Name.." is now banned for : "..Resp,"Bright green",Player,nil);
  2459. end);
  2460. end);
  2461. end);
  2462. AddPart("No","Really red",Player,function()
  2463. Core.Packets.Ban(v)
  2464. DestroyTablets(Player)
  2465. end)
  2466. end);
  2467. end;
  2468. if next(Flags) == nil then
  2469. DestroyTablets(Player);
  2470. function Main()
  2471. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  2472. AddPart(v.Name,Core.Players[Player.Name].Data.Colour,Player,function()
  2473. wait(DestroyTablets(Player));
  2474. AddPart("Name - "..v.Name,Core.Players[Player.Name].Data.Colour,Player,nil);
  2475. AddPart("Age - "..v.AccountAge,Core.Players[Player.Name].Data.Colour,Player,nil);
  2476. AddPart("BetKey - "..Core.Players[v.Name].Settings.BetKey,Core.Players[Player.Name].Data.Colour,Player,function()
  2477. DestroyTablets(Player);
  2478. table.foreach(Core.BetKeys,function(Index,Key)
  2479. AddPart(Key,Core.Players[Player.Name].Data.Colour,Player,function()
  2480. DestroyTablets(Player);
  2481. Core.Players[v.Name].Settings.BetKey=Key;
  2482. if Player ~= v then
  2483. AddPart(v.Name.."'s bet key is now "..Key,Core.Players[Player.Name].Data.Colour,Player,nil);
  2484. end;
  2485. AddPart("Your bet key is now "..Key,Core.Players[v.Name].Data.Colour,v,nil);
  2486. end)
  2487. end)
  2488. AddPart("Cancel","Bright red",Player,function()
  2489. DestroyTablets(Player);
  2490. end);
  2491. end);
  2492. AddPart("Colour - "..Core.Players[v.Name].Data.Colour,Core.Players[Player.Name].Data.Colour,Player,function()
  2493. local Colours={"White","Bright red","Bright green","Bright blue","Bright yellow","Toothpaste","Pink","Black"};
  2494. DestroyTablets(Player);
  2495. table.foreach(Colours,function(Index,Colour)
  2496. AddPart(Colour,Colour,Player,function()
  2497. DestroyTablets(Player);
  2498. Core.Players[v.Name].Data.Colour=Colour;
  2499. if Player ~= v then
  2500. AddPart(v.Name.."'s default colour is now "..Colour,Core.Players[Player.Name].Data.Colour,Player,nil);
  2501. end;
  2502. AddPart("Your default colour is now "..Colour,Core.Players[v.Name].Data.Colour,v,nil);
  2503. end);
  2504. end);
  2505. AddPart("Cancel","Bright red",Player,function()
  2506. DestroyTablets(Player);
  2507. end);
  2508. end);
  2509. AddPart("Rank - "..Core.Players[v.Name].Rank,Core.Players[Player.Name].Data.Colour,Player,function()
  2510. DestroyTablets(Player);
  2511. table.foreach(Core.Ranks,function(Index,Value)
  2512. AddPart(Value.." - "..Index,Core.Players[Player.Name].Data.Colour,Player,function()
  2513. if Core.Players[Player.Name].Rank < Core.Players[v.Name].Rank then
  2514. DestroyTablets(Player);
  2515. return AddPart(v.Name.." outranks you!","Bright red",Player,nil);
  2516. end;
  2517. DestroyTablets(Player);
  2518. Core.Players[v.Name].Rank=Index;
  2519. if Player ~= v then
  2520. AddPart(v.Name.."'s rank is now "..Value,Core.Players[Player.Name].Data.Colour,Player,nil);
  2521. end;
  2522. AddPart("Your rank is now "..Value.." ["..Index.."]",Core.Players[v.Name].Data.Colour,v,nil);
  2523. end);
  2524. end);
  2525. AddPart("Cancel","Bright red",Player,function()
  2526. DestroyTablets(Player);
  2527. end);
  2528. end);
  2529. AddPart("Back","Bright blue",Player,function()
  2530. DestroyTablets(Player);
  2531. Main();
  2532. end);
  2533. AddPart("Dismiss","Bright red",Player,function()
  2534. DestroyTablets(Player);
  2535. end);
  2536. AddPart("Kick","Bright orange",Player,function()
  2537. local Success,Error=pcall(function() Core.Packets.Kick(v) end);
  2538. if not Success then
  2539. DestroyTablets(Player);
  2540. AddPart("[Kick Packet] There was a serious error! Player was not kicked successfully!","Bright red",Player,nil);
  2541. end;
  2542. end);
  2543. AddPart("Ban","Dusty Rose",Player,function()
  2544. local Success,Error=pcall(function() Core.Packets.Kick(v) end);
  2545. if not Success then
  2546. DestroyTablets(Player);
  2547. return AddPart("[Ban Packet] There was a serious error! Player was not banned successfully!","Bright red",Player,nil);
  2548. end;
  2549. wait(DestroyTablets(Player));
  2550. AddPart("Would you like to add a reason?","Bright blue",Player,function() end)
  2551. AddPart("Yes","Bright green",Player,function()
  2552. DestroyTablets(Player);
  2553. table.foreach(Core.BanResponse,function(Index,Resp)
  2554. AddPart(Resp,"Really red",Player,function()
  2555. DestroyTablets(Player);
  2556. Core.Packets.BanR(v,Resp);
  2557. AddPart(v.Name.." is now banned for : "..Resp,"Bright green",Player,nil);
  2558. end);
  2559. end);
  2560. end);
  2561. AddPart("No","Really red",Player,function()
  2562. Core.Packets.Ban(v)
  2563. DestroyTablets(Player)
  2564. end)
  2565. end);
  2566. end);
  2567. end;
  2568. end;
  2569. Main();
  2570. end;
  2571. end);
  2572. end);
  2573.  
  2574. NewCommand("Commands","Lists commands",1,{"cmds","commands"},{"rank","cmd"},function(Message,Flags,Player,PlayerRank)
  2575. function Ranks(Player)
  2576. local Player=Player;
  2577. wait(DestroyTablets(Player));
  2578. for i,v in pairs(Core.Ranks) do
  2579. Colours={"White","Dusty Rose","Bright green","Bright blue","Bright yellow","Toothpaste","Pink","Bright violet"};
  2580. AddPart("Rank "..i,Colours[i],Player,function()
  2581. wait(DestroyTablets(Player));
  2582. for a,b in pairs(Core.Commands) do
  2583. if b.Rank==tonumber(i) then --{Name=Name,Desc=Desc,Rank=Rank,Calls=Calls,Flags=Flags,Function=Func}
  2584. AddPart(b.Name,Colours[i],Player,function()
  2585. wait(DestroyTablets(Player));
  2586. AddPart("Min Rank : "..b.Rank,"Bright violet",Player,nil);
  2587. AddPart("Name : "..b.Name,Colours[i],Player,nil);
  2588. AddPart("Calls : "..string.gsub(unpack(b.Calls)," ","; "),"Royal purple",Player,nil);
  2589. pcall(function() AddPart("Flags : "..string.gsub(unpack(b.Flags)," ","; "),"Teal",Player,nil) end);
  2590. AddPart("Description : "..b.Desc,"Sand green",Player,nil);
  2591. AddPart("Back","Bright red",Player,function()
  2592. Ranks(Player);
  2593. end)
  2594. end);
  2595. end;
  2596. end;
  2597. AddPart("Back","Bright red",Player,function()
  2598. Ranks(Player);
  2599. end)
  2600. end)
  2601. end;
  2602. AddPart("Your Rank : "..Core.Players[Player.Name].Rank,"Dark green",Player,function() end)
  2603. end;
  2604. Ranks(Player);
  2605. end);
  2606.  
  2607. NewCommand("Remove/Stop/Kill","Stops Prometheus",7,{"remove","nos"},{},function(Message,Flags,Player,PlayerRank)
  2608. pcall(function()
  2609. AddPart("[Prometheus]\nPrometheus is shutting down, please wait...","Bright green",Player,nil)
  2610. wait(3);
  2611. script:Destroy();
  2612. end);
  2613. end);
  2614.  
  2615. NewCommand("Explore","Sweep scans the game",5,{"explore","e"},{},function(Message,Flags,Player,PlayerRank)
  2616. local Search
  2617. local List
  2618. local ObjectFunctions = (function()
  2619. local NewData = {}
  2620. for ClassName, Data in next, {
  2621. Player = {
  2622. Kick = function(Player)
  2623. Core.Packets.Kick(Player)
  2624. end
  2625. };
  2626. ["Part,WedgePart,Script,Model"] = {
  2627. Destroy = function(Self,Object)
  2628. if Object ~= script then
  2629. return Self.Destroy(Object);
  2630. else
  2631. return AddPart("Can not destroy script","Really red",Player,nil);
  2632. end
  2633. end;
  2634. Remove = function(Self,Object)
  2635. return Self.Destroy(Object);
  2636. end;
  2637. };
  2638. } do
  2639. for NewClassName in tostring(ClassName):gmatch("[^,]+") do
  2640. NewData[NewClassName] = Data;
  2641. end;
  2642. end;
  2643. return NewData
  2644. end)()
  2645. function List(Object)
  2646. DestroyTablets(Player);
  2647. Object = Object or pcall(AddPart,"Can not explore out of DataModel","Really red",Player,nil) and game;
  2648. if ObjectFunctions[Object.ClassName] then
  2649. AddPart("View functions","Toothpaste",Player,function()
  2650. DestroyTablets(Player);
  2651. for Name, Function in next, ObjectFunctions[Object.ClassName] do
  2652. AddPart(Name,"Toothpaste",Player,function()
  2653. pcall(Function, Object);
  2654. end);
  2655. end;
  2656. AddPart("Back","Really red",Player,function()
  2657. List(Object);
  2658. end);
  2659. end);
  2660. else
  2661. AddPart("No functions found","Really red",Player,nil);
  2662. end;
  2663. AddPart("Explore: "..tostring(Object),"Toothpaste",Player,function()
  2664. Search(Object);
  2665. AddPart("View settings","Really red",Player,function()
  2666. List(Object);
  2667. end);
  2668. end);
  2669. AddPart("View parent","Really red",Player,function()
  2670. List(Object.Parent);
  2671. end);
  2672. end;
  2673. function Search(Parent)
  2674. DestroyTablets(Player);
  2675. for _, v in pairs(Parent:GetChildren()) do
  2676. pcall(AddPart,tostring(v),"Toothpaste",Player,function()
  2677. List(v);
  2678. end);
  2679. end;
  2680. end;
  2681. List(game);
  2682. end)
  2683.  
  2684. NewCommand("Execute","Executes/Compiles Lua Code",1,{"exe"},{"http"},function(Message,Flags,Player,PlayerRank)
  2685. local Source = Message;
  2686. if Flags["http"] then
  2687. local success,error = ypcall(function() game:GetService("HttpService"):GetAsync(Flags["http"][1]:sub(2)) end);
  2688. if not success then
  2689. return AddPart("There was an error while loading your script.","Really red",Player,nil);
  2690. end;
  2691. Source = Core.Services.HttpGet(Flags["http"][1]:sub(2))
  2692. end
  2693. if next(Flags) == nil then
  2694. Source = Message;
  2695. end;
  2696. local game=game;
  2697. local error=error;
  2698. local print=print;
  2699. local ypcall=ypcall;
  2700. local pcall=pcall;
  2701. local Spawn=Spawn;
  2702. local coroutine=coroutine;
  2703. local setmetatable=setmetatable;
  2704. local loadstring=loadstring;
  2705. local getmetatable=getmetatable;
  2706. local setfenv=setfenv;
  2707. local getfenv=getfenv;
  2708. local env = {};
  2709. local envs = {};
  2710. local newproxy=newproxy;
  2711. Execute,Error=loadstring(tostring(Source),"[Prometheus Execute]");
  2712.  
  2713. local scriptS = newproxy(true);
  2714. local meta = getmetatable(scriptS);
  2715.  
  2716. meta.__metatable=getmetatable(script);
  2717.  
  2718. function meta:__tostring()
  2719. return tostring(script);
  2720. end;
  2721.  
  2722. function getmember(item,index)
  2723. return item[index];
  2724. end;
  2725.  
  2726. function setmember(item,index,value)
  2727. item[index]=value;
  2728. end;
  2729.  
  2730. function meta:__index(index)
  2731. local suc,res=pcall(getmember,script,index);
  2732. if(not suc)then
  2733. error(index..' is not a valid member of Script',2);
  2734. else
  2735. if index:lower() == "destroy" then
  2736. return function()
  2737. error'You cannot destroy this script';
  2738. end;
  2739. elseif index:lower() == "remove" then
  2740. return function()
  2741. error'You cannot remove this script';
  2742. end;
  2743. end;
  2744. if type(res)=='function' then
  2745. return function(self,...)
  2746. return self[index](self,...)
  2747. end;
  2748. else
  2749. return res;
  2750. end;
  2751. end;
  2752. end;
  2753.  
  2754. function meta:__newindex(index,value)
  2755. suc,res=pcall(setmember,script,index,value);
  2756. return scriptS;
  2757. end;
  2758.  
  2759. for i,v in next, {
  2760. ["restart"]=function()
  2761. --Future function.
  2762. end;
  2763. ["print"]=function(...)
  2764. local Data={...};
  2765. for CurrentEntry,Table_Pos in next,Data do
  2766. if not pcall(function()Data[CurrentEntry]=tostring(Table_Pos);end)then
  2767. Data[CurrentEntry]='__TOSTRING_EDIT';
  2768. end;
  2769. end;
  2770. AddPart(tostring(table.concat(Data,' ')),'White',Player,nil);
  2771. end;
  2772. ["error"]=function(...)
  2773. local Data={...};
  2774. for CurrentEntry,Table_Pos in next,Data do
  2775. if not pcall(function()Data[CurrentEntry]=tostring(Table_Pos);end)then
  2776. Data[CurrentEntry]='__TOSTRING_EDIT';
  2777. end;
  2778. end;
  2779. AddPart(tostring(table.concat(Data,' ')),'Really red',Player,nil);
  2780. end;
  2781. ["warn"]=function(...)
  2782. local Data={...};
  2783. for CurrentEntry,Table_Pos in next,Data do
  2784. if not pcall(function()Data[CurrentEntry]=tostring(Table_Pos);end)then
  2785. Data[CurrentEntry]='__TOSTRING_EDIT';
  2786. end;
  2787. end;
  2788. AddPart(tostring(table.concat(Data,' ')),'Bright orange',Player,nil);
  2789. end;
  2790. ['loadstring']=function(str,...)
  2791. if str == nil then return error("You left your shit' nil.") end
  2792. local rtn={};
  2793. local fArgs={...};
  2794. local succ,res=ypcall(function()
  2795. rtn={loadstring(str,unpack(fArgs))};
  2796. end);
  2797. if(not succ)then return Execute.error(res) end;
  2798. local func,err=unpack(rtn);
  2799. if(func)then
  2800. func=setfenv(func,NewEnvironment);
  2801. end;
  2802. return func,err
  2803. end;
  2804. Core = "Hide";
  2805. Alert = "Hide";
  2806. owner = Player;
  2807. NewEnvironment = "Hide";
  2808. FindPlayer = "Hide";
  2809. NewCommand = "Hide";
  2810. DestroyTablets = "Hide";
  2811. CheckBanned = "Hide";
  2812. OnChatted = "Hide";
  2813. Execute = "Hide";
  2814. CLerp = "Hide";
  2815. ["script"] = scriptS;
  2816. }do
  2817. for str in i:gmatch'([^,]+)'do
  2818. env[str]=v;
  2819. end;
  2820. end;
  2821.  
  2822. NewEnvironment = {
  2823. _SANDBOX = "PK_SANDBOX v1.0";
  2824. };
  2825. if (Execute) then
  2826. --setfenv(0,NewEnvironment);
  2827. local Success,Result=ypcall(setfenv(Execute,setmetatable(NewEnvironment,{
  2828. __index=function(Self,Index)
  2829. local Return = env[Index];
  2830. local OldReturn = getfenv()[Index];
  2831. if Return == "Hide" then
  2832. return Core.Data.Fakes._G[Index];
  2833. elseif Return == nil then
  2834. return OldReturn;
  2835. else
  2836. return Return;
  2837. end;
  2838. end;
  2839. __metatable="Locked!";
  2840. })));
  2841. if (not Success) then
  2842. AddPart(Result,"Really red",Player,nil);
  2843. end;
  2844. else
  2845. AddPart(Error,"Really red",Player,nil);
  2846. end;
  2847. end);
  2848.  
  2849. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  2850. ConnectPlayer(v);
  2851. if Core.Cloud ~= nil then
  2852. AddPart("[BlokAdmin] \nCloud loaded.","Toothpaste",v,nil);
  2853. end
  2854. end;
  2855.  
  2856. game:GetService("Players").PlayerAdded:connect(function(Player)
  2857. ConnectPlayer(Player);
  2858. Alert("A player has joined the game! Player name ="..Player.Name".");
  2859. end);
  2860.  
  2861. game:GetService("Players").PlayerRemoving:connect(function(Player)
  2862. DestroyTablets(Player);
  2863. Alert(Player.Name.." has left the game!");
  2864. end);
  2865. AddPart("lol ",'Really red',Player,nil);
  2866. create new paste / api / trends / syntax languages / faq / tools / privacy / cookies / contact / dmca / advertise on pastebin / scraping / go
  2867. Site design & logo © 2016 Pastebin; user contributions (pastes) licensed under cc by-sa 3.0 -- Dedicated Server Hosting by Steadfast
  2868. My Pastebin
  2869. Share on Facebook!
  2870. Top
  2871. x
  2872. Learn MoreSlack is a messaging app bringing all your team communication into one place.
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!