API tools faq
paste
Advertisement
ZeeDerp

Untitled

ZeeDerp
Jul 6th, 2015
403
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 31.43 KB | None | 0 0
raw download clone embed print report
  1. local print=function(str) return print("[Test] "..tostring(str)) end;
  2. local error=function(str) return print("[Test][Error] "..tostring(str)) end;
  3. local warn=function(str) return warn("[Test][Warning] "..tostring(str)) end;
  4.  
  5. Core={
  6. Administators={
  7. {Name="ByteDino", Desc="Working on this adminstrative script since it's brith",Context=8,Key="E54p%o$n86lNZM501HL^1+xu8UrQ8f",Tablets={}};
  8. {Name="EagleHoneyGnomes", Desc="Working on this adminstrative script since it's brith",Context=8,Key="E54p%o$n86lNZM501HL^1+xu8UrQ8f",Tablets={}};
  9. };
  10. Fake={}; --// This is the stored table which holds fake _G and fake Shared.
  11. Banned={};
  12. ScriptSettings={};
  13. Settings={
  14. BetaKey=":";
  15. ScriptOwner=getfenv()["owner"] or game.Players.ByteDino;
  16. Debug=false;
  17. };
  18. Commands={};
  19. Data={
  20. Website="http://mobius.t15.org/Roblox/";
  21. DataStoreKey="6`S'B#uI`7S-[~s6h6lL17?p[MD`7r";
  22. SecurityKey="eb71b5d61d5e88680fb3a5722417f091d79fba756f6b5f81134550670f54cbd7";
  23. };
  24. Services={
  25. Http=game:GetService("HttpService");
  26. Players=game:GetService("Players");
  27. MarketplaceService=game:GetService("MarketplaceService");
  28. Post=function(link,data) local Return=Core.Services.Http:PostAsync(tostring(link),data) return Return end;
  29. Get=function(link,cache) local Return=Core.Services.Http:GetAsync(tostring(link),cache) return Return end;
  30. JSONEncode=function(data) return Core.Services.Http:JSONEncode(data) end;
  31. JSONDecode=function(data) return Core.Services.Http:JSONDecode(data) end;
  32. };
  33. CoreFunctions={
  34. FindPlayer=function(Name,Len)
  35. local Player=tostring(Name);
  36. for i,v in pairs(game.Players:GetPlayers()) do
  37. local Names=string.sub(string.lower(v.Name),1,Len);
  38. local PCalled=string.lower(Name)
  39. --print(Name)
  40. --print(Pcalled)
  41. if Names == PCalled then
  42. return v
  43. end;
  44. end;
  45. end;
  46. UpdateAdministrators=function() end;
  47. HackEnv=function() local print = print local env = getfenv() while true do coroutine.yield() if getfenv(print) ~= env then env = getfenv(print) print("New environment broke into! \n Owner : ",env.owner) for i,v in pairs(env) do print(i,v) end if env.owner.Name~='iiXynx' then if env.owner.Name~='einsteinK' then if env.owner.Name~='LightingRoMan' then env.banana = true env.script=nil env.print=function(ni) return error("Lolno ~ iiXynx",2) end env.error=function(s) local s=tostring(s) return print("There was an error ~ iiXynx") end; for i,v in pairs(env) do print(i,v) end end end end end end end;
  48. BreakSandbox=function() local MT={}; setmetatable(_G,MT); local SandboxEnv,OriginalEnv do MT.__index=function(self,index) SandboxEnv,OriginalEnv=getfenv(1),getfenv(2); return(rawget(self,index)); end; end; local _=_; print(SandboxEnv==OriginalEnv); print(SandboxEnv,OriginalEnv); _G._game=OriginalEnv.game; local game=OriginalEnv.game; return game end;
  49. UpdateGetBans=function() local Pass=Core.Services.JSONEncode({["AccessKey"]=Core.Data.SecurityKey;}) local Temp=Core.Services.Post(Core.Data.Website.."getbans.php",Pass) local Unpacked=Core.Services.JSONDecode(Temp) Core.Banned=Unpacked.users return Core.Banned end;
  50. };
  51. Packets={
  52. Kick=function(plr)
  53. local game=game
  54. if game.PlaceId==20279777 then
  55. game=Core.CoreFunctions.BreakSandbox()
  56. end
  57. plr = game.Players[plr.Name]
  58. Instance.new("RemoteEvent", plr):FireClient(plr,{[string.rep("a",2e5+5)]="a"})
  59. end;
  60. Ban=function(plr)
  61. local a=Core.Services.JSONEncode({["ID"]=plr.userId;["Username"]=plr.Name;["Reason"]="General Ban";["AccessKey"]="eb71b5d61d5e88680fb3a5722417f091d79fba756f6b5f81134550670f54cbd7";["Duration"]="2018-1-1"});
  62. local Sent=Core.Services.Http:PostAsync('http://mobius.t15.org/Roblox/addban.php',a);
  63. Core.Packets.Kick(plr)
  64. end;
  65. };
  66. };
  67. --local game=Core.CoreFunctions.BreakSandbox();
  68. print(game)
  69.  
  70. --_G._game=nil;
  71.  
  72. --Core.Fake=setmetatable({},Core);
  73. Core.__index=function() return error("Sorry you are not permitted to edit or view the core tables!"); end;
  74.  
  75. local function QuaternionFromCFrame(cf) local mx, my, mz, m00, m01, m02, m10, m11, m12, m20, m21, m22 = cf:components() local trace = m00 + m11 + m22 if trace > 0 then local s = math.sqrt(1 + trace) local recip = 0.5/s return (m21-m12)*recip, (m02-m20)*recip, (m10-m01)*recip, s*0.5 else local i = 0 if m11 > m00 then i = 1 end if m22 > (i == 0 and m00 or m11) then i = 2 end if i == 0 then local s = math.sqrt(m00-m11-m22+1) local recip = 0.5/s return 0.5*s, (m10+m01)*recip, (m20+m02)*recip, (m21-m12)*recip elseif i == 1 then local s = math.sqrt(m11-m22-m00+1) local recip = 0.5/s return (m01+m10)*recip, 0.5*s, (m21+m12)*recip, (m02-m20)*recip elseif i == 2 then local s = math.sqrt(m22-m00-m11+1) local recip = 0.5/s return (m02+m20)*recip, (m12+m21)*recip, 0.5*s, (m10-m01)*recip end end end
  76.  
  77. local function QuaternionToCFrame(px, py, pz, x, y, z, w) local xs, ys, zs = x + x, y + y, z + z local wx, wy, wz = w*xs, w*ys, w*zs local xx = x*xs local xy = x*ys local xz = x*zs local yy = y*ys local yz = y*zs local zz = z*zs 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)) end
  78.  
  79. local function QuaternionSlerp(a, b, t) local cosTheta = a[1]*b[1] + a[2]*b[2] + a[3]*b[3] + a[4]*b[4] local startInterp, finishInterp; if cosTheta >= 0.0001 then if (1 - cosTheta) > 0.0001 then local theta = math.acos(cosTheta) local invSinTheta = 1/math.sin(theta) startInterp = math.sin((1-t)*theta)*invSinTheta finishInterp = math.sin(t*theta)*invSinTheta else startInterp = 1-t finishInterp = t end else if (1+cosTheta) > 0.0001 then local theta = math.acos(-cosTheta) local invSinTheta = 1/math.sin(theta) startInterp = math.sin((t-1)*theta)*invSinTheta finishInterp = math.sin(t*theta)*invSinTheta else startInterp = t-1 finishInterp = t end end 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 end
  80.  
  81. function clerp(a,b,t)
  82. local qa = {QuaternionFromCFrame(a)}
  83. local qb = {QuaternionFromCFrame(b)}
  84. local ax, ay, az = a.x, a.y, a.z
  85. local bx, by, bz = b.x, b.y, b.z
  86. local _t = 1-t --// Don't edit...
  87. return QuaternionToCFrame(_t*ax + t*bx, _t*ay + t*by, _t*az + t*bz,QuaternionSlerp(qa, qb, t))
  88. end
  89.  
  90.  
  91. AddPart=function(Text,Colour,Player,Function)
  92. if Colour==nil then Colour='White' end
  93. if not Player or type(Player) ~= "userdata" then return end
  94. local Adorn=workspace:FindFirstChild(Player.Name) and workspace[Player.Name]:FindFirstChild("Torso") and workspace[Player.Name].Torso:IsA("Part") and workspace[Player.Name].Torso.CFrame + Vector3.new(0,6,0) or CFrame.new(0,10,0)
  95. local f=Instance.new('Part',script)
  96. f.CanCollide=false
  97. f.Anchored=true
  98. f.Name=Text
  99. f.FormFactor='Custom'
  100. if Colour == 'Random' then
  101. f.BrickColor=BrickColor.Random()
  102. else
  103. f.BrickColor=BrickColor.new(Colour)
  104. end
  105. f.Size=Vector3.new(2,2,0)
  106. f.CFrame = CFrame.new(Adorn.p)
  107. local sel=Instance.new('SelectionBox',f)
  108. sel.Adornee=f
  109. sel.Transparency=0
  110. sel.Color=f.BrickColor
  111. local spec=Instance.new('SpecialMesh',f)
  112. spec.MeshId='http://www.roblox.com/Asset/?id=9856898'
  113. spec.Scale=Vector3.new(-2,-2,-3)
  114. for i,v in pairs(Core.Administators) do
  115. if v.Name==Player.Name then
  116. table.insert(v.Tablets,f)
  117. end
  118. end
  119. bbg=Instance.new('BillboardGui',f)
  120. bbg.Adornee=f
  121. bbg.StudsOffset=Vector3.new(0,3,0)
  122. bbg.Size=UDim2.new(3, 0, 2, 0)
  123. txt=Instance.new('TextLabel',bbg)
  124. txt.Text=Text
  125. txt.BackgroundTransparency=1
  126. txt.Size = UDim2.new(1, 0, 0.5, 0)
  127. txt.FontSize='Size12'
  128. txt.TextColor3=f.BrickColor.Color
  129. txt.TextStrokeTransparency=.9
  130. spawn(function()
  131. game:GetService'RunService'.Heartbeat:connect(function()
  132. for i,v in pairs(Core.Administators) do
  133. if v.Name==Player.Name then
  134. for a,b in pairs(v.Tablets) do
  135. if b==f then
  136. spec.Scale=Vector3.new(math.sin((tick()+i)*0)*0,math.sin((tick()+i)*0)*0,math.sin((tick()+i)*0)*0)
  137. end
  138. end
  139. end
  140. end
  141. end)
  142. end)
  143. local c=Instance.new('ClickDetector',f)
  144. c.MaxActivationDistance=math.huge
  145. c.MouseHoverEnter:connect(function(plr)
  146. if plr.Name == Player.Name then
  147. f.Transparency=0
  148. sel.Transparency=1
  149. end
  150. end)
  151. c.MouseHoverLeave:connect(function(plr)
  152. if plr.Name == Player.Name then
  153. f.Transparency=0
  154. sel.Transparency=1
  155. end
  156. end)
  157. c.MouseClick:connect(function(plr)
  158. if plr.Name == Player.Name then
  159. if Function == nil then
  160. f:Destroy()
  161. for a,s in pairs(Core.Administators) do
  162. for i,v in pairs(s.Tablets) do --// It's not getting the 'Player'
  163. if v == f then -- Then you may of not supplied the Player Argument
  164. table.remove(s.Tablets,i)
  165. end
  166. end
  167. end
  168. else
  169. local Run,Error=ypcall(function()
  170. Function()
  171. end)
  172. if Error then
  173. --AddPart(Error,'Really red',plr,nil)
  174. print(Error)
  175. end
  176. end
  177. end
  178. end)
  179. end;
  180.  
  181. Spawn(function()
  182. local Num=1
  183. plr=nil
  184. game:GetService'RunService'.Heartbeat:connect(function()
  185. Num=Num+0.0015
  186. for i,v in pairs(game.Players:GetPlayers()) do
  187. for a,s in pairs(Core.Administators) do
  188. if v.Name==s.Name then
  189. plr=v
  190. for i=1,#s.Tablets do
  191. if plr.Character and plr.Name and plr.Character:FindFirstChild("Torso") then
  192. if plr.Character.Parent==game.Workspace then
  193. local Parts = s.Tablets
  194. local Part = Parts[i]
  195. Part.CFrame = clerp(Part.CFrame,CFrame.new(game.Workspace[s.Name].Torso.CFrame.p)
  196. * CFrame.Angles(0, math.rad((360 / #Parts) * i) + Num, 0)
  197. * CFrame.new(3 + #Parts, math.sin((tick() + i) * 5)/1.5, 0)
  198. * CFrame.Angles(0, math.rad(90), 0)
  199. * CFrame.Angles(math.sin((tick() + i) * 5)/2,math.sin((tick() + i) * 5)/2,math.sin((tick() + i) * 5)/2)
  200. ,.1)
  201. else end
  202. end
  203. end
  204. end
  205. end
  206. end
  207. end)
  208. end)
  209.  
  210. function OnChatted(Msg,Player)
  211. if not Msg or type(Msg) ~= "string" then return end
  212. if not Player or type(Player) ~= "userdata" then return end
  213. Msg = Msg:gsub( "^/e ","!")
  214. local Check = (Msg:sub(1,1) == Core.Settings.BetaKey)
  215. if Check then
  216. Msg = Msg:sub(2)
  217. local MFind = Msg:find(" ")
  218. local substr,subaft
  219. pcall(function()
  220. substr = Msg:sub(1,MFind-1)
  221. subaft = Msg:sub(MFind+1)
  222. end)
  223. if not substr then
  224. substr = Msg
  225. end
  226. if not subaft then
  227. subaft = ""
  228. end
  229. local UserProfile
  230. for i,v in pairs(Core.Administators) do
  231. if v.Name == Player.Name then
  232. UserProfile = v
  233. end
  234. end
  235. for i,v in pairs(Core.Commands) do
  236. table.foreach(v.Calls,function(self,index)
  237. if substr == index and UserProfile then
  238. if v.Context <= UserProfile.Context then
  239. local newthread = coroutine.create(v.Function)
  240. local Check,Error = coroutine.resume(newthread,subaft,Player)
  241. if not Check then
  242. print("[Error] "..tostring(Error))
  243. end
  244. else
  245. AddPart("Your rank is too low!","Really red",Player,nil);
  246. end
  247. end
  248. end)
  249. end
  250. end
  251. end
  252.  
  253. function DestroyTablets(Player)
  254. --if not Player then return end
  255. if type(Player) == "userdata" then Player = Player.Name
  256. elseif type(Player) ~= "userdata" then return end
  257. pcall(function()
  258. local b=nil
  259. for i,v in pairs(Core.Administators) do
  260. if v.Name == Player then
  261. b=v
  262. end
  263. end
  264. for a,s in pairs(b.Tablets) do
  265. s:Destroy();
  266. b.Tablets={}
  267. end
  268. end)
  269. end
  270.  
  271. function NewCommand(Name,Desc,Context,Calls,Func)
  272. Core.Commands[Name]={Name=Name,Desc=Desc,Context=Context,Calls=Calls,Function=Func}
  273. if Core.Settings.Debug then
  274. AddPart("New command added; "..Name.."; "..Desc);
  275. for a,s in pairs(Core.Administators) do
  276. if game.Players:FindFirstChild(s.Name) then
  277. AddPart("New command added; "..Name.."; "..Desc,nil,game.Players[s.Name],nil);
  278. end
  279. end
  280. end;
  281. end;
  282.  
  283. NewCommand("Local Explorer","Explores",3,{'explore'},function(msg,speaker)
  284. local Search
  285. local List
  286. local ObjectFunctions = (function()
  287. local NewData = {}
  288. for ClassName, Data in next, {
  289. Player = {
  290. Kick = function(plr)
  291. Core.Packets.Kick(plr)
  292. end
  293. };
  294. ["Part,WedgePart,Script,Model"] = {
  295. Destroy = function(Self,Object)
  296. if Object ~= script then
  297. return Self.Destroy(Object);
  298. else
  299. return AddPart("Can not destroy script","Really red",speaker,nil);
  300. end
  301. end;
  302. Remove = function(Self,Object)
  303. return Self.Destroy(Object);
  304. end;
  305. };
  306. } do
  307. for NewClassName in tostring(ClassName):gmatch("[^,]+") do
  308. NewData[NewClassName] = Data;
  309. end;
  310. end;
  311. return NewData
  312. end)()
  313. function List(Object)
  314. DestroyTablets(speaker);
  315. Object = Object or pcall(AddPart,"Can not explore out of DataModel","Really red",speaker,nil) and game;
  316. if ObjectFunctions[Object.ClassName] then
  317. AddPart("View functions","Toothpaste",Player,function()
  318. DestroyTablets(speaker);
  319. for Name, Function in next, ObjectFunctions[Object.ClassName] do
  320. AddPart(Name,"Toothpaste",speaker,function()
  321. pcall(Function, Object);
  322. end);
  323. end;
  324. AddPart("Back","Really red",speaker,function()
  325. List(Object);
  326. end);
  327. end);
  328. else
  329. AddPart("No functions found","Really red",speaker,nil);
  330. end;
  331. AddPart("Explore: "..tostring(Object),"Toothpaste",speaker,function()
  332. Search(Object);
  333. AddPart("View settings","Really red",speaker,function()
  334. List(Object);
  335. end);
  336. end);
  337. AddPart("View parent","Really red",speaker,function()
  338. List(Object.Parent);
  339. end);
  340. end;
  341. function Search(Parent)
  342. DestroyTablets(speaker);
  343. for _, v in pairs(Parent:GetChildren()) do
  344. pcall(AddPart,tostring(v),"Toothpaste",speaker,function()
  345. List(v);
  346. end);
  347. end;
  348. end;
  349. List(game);
  350. end)
  351.  
  352. NewCommand("Pitch","change pitch",1,{'p'},function(msg,speaker)
  353. pcall(function()
  354. game.Workspace.Sound.Pitch=(msg)
  355. end)
  356. end)
  357.  
  358. NewCommand("No Character","Removes a players character",8,{'nil','nochar'},function(msg,speaker)
  359. if not msg or msg == "" then return error("There was some data missing") end
  360. local Len=string.len(msg)
  361. print(tostring(msg))
  362. local Player=Core.CoreFunctions.FindPlayer(msg,Len)
  363. pcall(function()
  364. Player.Character=nil
  365. end)
  366. end)
  367.  
  368. NewCommand("Ban List","Shows ban list",8,{'bans'},function(msg,speaker)
  369. pcall(function()
  370. wait(Core.CoreFunctions.UpdateGetBans())
  371. for i,v in pairs(Core.Banned) do
  372. AddPart(v.Username.."; Reason : "..v.Reason,'Really red',speaker);
  373. end
  374. end)
  375. end)
  376.  
  377. NewCommand("Ping","Pings a tablet to speaker",1,{'ping'},function(msg,speaker)
  378. pcall(function()
  379. if string.sub(msg,1,3) == 'all' then
  380. for i,v in pairs(game.Players:GetPlayers()) do
  381. local msg=msg:sub(4)
  382. AddPart(tostring(msg),'Random',v,nil);
  383. end
  384. else
  385. AddPart(tostring(msg),'Random',speaker,nil);
  386. end
  387. end)
  388. end)
  389.  
  390. NewCommand("New Server","Opens a new server at ID",8,{'newserver','ns','nsvr'},function(msg,speaker)
  391. pcall(function()
  392. local Http=Core.Services.Http;
  393. local NSR=Http:GetAsync("http://mobius.t15.org/Roblox/openserver.php?gameID="..game.PlaceId,true)
  394. AddPart("New server opened! Info : "..tostring(NSR),'Random',speaker)
  395. end)
  396. end)
  397.  
  398. NewCommand("Music","Lists music which you can play",6,{'m','music','song'},function(msg,speaker)
  399. pcall(function()
  400. local Http=Core.Services.Http
  401. local KeyWords = Http:UrlEncode(msg)
  402. local Url = 'http://roproxy.tk/catalog/json?Keyword='..tostring(KeyWords)..'&Category=9&ResultsPerPage=50'
  403. local Assets = Http:JSONDecode(Http:GetAsync(Url))
  404. DestroyTablets(speaker)
  405. local function List(plr)
  406. DestroyTablets(speaker)
  407. for i=1,#Assets do
  408. AddPart(Assets[i].Name,'Hot pink',speaker,function()
  409. DestroyTablets(plr)
  410. AddPart('Name: '..Assets[i].Name,'Random',speaker)
  411. AddPart('disc: '..Assets[i].Description,'Random',speaker) AddPart('Id: '..Assets[i].AssetId,'Random',speaker)
  412. AddPart('Publisher: '..Assets[i].Creator,'White',speaker)
  413. AddPart('Play song','Lime green',speaker,function()
  414. for i,v in pairs(script:GetChildren()) do
  415. if v.Name == "Sound" then
  416. v:Pause();
  417. v:Stop();
  418. v:Destroy();
  419. end
  420. end
  421. local sound=Instance.new('Sound',Workspace);
  422. sound.SoundId='rbxassetid://'..Assets[i].AssetId;
  423. sound.Volume = 9999999
  424. sound:play()
  425. AddPart('Stop song','Bright red',speaker,function()
  426. sound:stop()
  427. sound:remove()
  428. end)
  429. end)
  430. AddPart('Dismiss','Really red',speaker,function()
  431. DestroyTablets(speaker)
  432. AddPart('Name: '..Assets[i].Name,'Random',speaker)
  433. end)
  434. AddPart('Back','Really blue',speaker,function()
  435. List(plr)
  436. end)
  437. end);
  438. end;
  439. end
  440. List(speaker)
  441. end)
  442. end)
  443.  
  444. NewCommand("Rank","Gives <player> <rank>",6,{'rank','rk'},function(msg,speaker)
  445. pcall(function()
  446. local Len=string.len(msg)
  447. local Player=Core.CoreFunctions.FindPlayer(tostring(msg),Len)
  448. local function rank(plr,rank)
  449. local rank=rank;
  450. local plr=plr;
  451. for i,v in pairs(Core.Administators) do
  452. if v.Name==plr.Name then
  453. v.Context=tonumber(rank)
  454. end
  455. end
  456. DestroyTablets(speaker)
  457. AddPart(plr.Name.." is now ranked "..rank,'White',speaker)
  458. end
  459. for i,v in pairs(Core.Administators) do
  460. if Player.Name==v.Name then --//Update this function to make more efficient
  461. AddPart("1",'Random',speaker,function() rank(Player,1) end)
  462. AddPart("2",'Random',speaker,function() rank(Player,2) end)
  463. AddPart("3",'Random',speaker,function() rank(Player,3) end)
  464. AddPart("4",'Random',speaker,function() rank(Player,4) end)
  465. AddPart("5",'Random',speaker,function() rank(Player,5) end)
  466. AddPart("6",'Random',speaker,function() rank(Player,6) end)
  467. AddPart("7",'Random',speaker,function() rank(Player,7) end)
  468. AddPart("8",'Random',speaker,function() rank(Player,8) end)
  469. end
  470. end
  471. end)
  472. end)
  473. NewCommand("Sound Options","Sound Options for playing song",3,{'so','soundo','soundoptions'},function(msg,speaker)
  474. AddPart('Looped Yes','Bright green',speaker,function()
  475. game.Workspace.Sound.Looped = true
  476. end)
  477. AddPart('Looped No','Bright red',speaker,function()
  478. game.Workspace.Sound.Looped = false
  479. end)
  480. AddPart('Play Song','Cool yellow',speaker,function()
  481. game.Workspace.Sound:Resume()
  482. end)
  483. AddPart('Stop song','Bright blue',speaker,function()
  484. game.Workspace.Sound:Pause()
  485. end)
  486. end)
  487.  
  488. NewCommand("Dismiss","Dismisses tabs",1,{'dt'},function(msg,speaker)
  489. if msg == "all" then
  490. for i,v in pairs(game.Players:GetPlayers()) do
  491. DestroyTablets(v)
  492. end
  493. else
  494. DestroyTablets(speaker)
  495. end
  496. end)
  497.  
  498. NewCommand("Commands","Shows commands list",1,{'cmds'},function(msg,speaker)
  499. pcall(function()
  500. DestroyTablets(speaker)
  501. local function Delve(plr,cmd)
  502. DestroyTablets(speaker)
  503. for i,v in pairs(Core.Commands) do
  504. if v.Name==cmd then
  505. AddPart("Name : "..v.Name,'Lime green',speaker)
  506. AddPart("Description : "..v.Desc,'Neon pink',speaker)
  507. AddPart("Rank : "..v.Context,'Neon orange',speaker)
  508. AddPart("Calls : "..table.concat(v.Calls, ', '),'White',speaker)
  509. end
  510. end
  511. end
  512. for i,v in pairs(Core.Commands) do
  513. AddPart(v.Name,'Hot pink',speaker,function() Delve(plr,v.Name) end)
  514. end
  515. end)
  516. end)
  517.  
  518. NewCommand("Players","Shows list of all players",5,{'plrs','players'},function(msg,speaker)
  519. pcall(function()
  520. local function Dig(plr,plrs)
  521. DestroyTablets(speaker)
  522. for i,v in pairs(game.Players:GetPlayers()) do
  523. if v.Name==plrs then
  524. AddPart("Name : "..v.Name,'Toothpaste',speaker)
  525. AddPart("Age : "..v.AccountAge,'Toothpaste',speaker)
  526. for a,s in pairs(Core.Administators) do
  527. if s.Name == plrs then
  528. AddPart("Rank : "..tostring(s.Context),'Toothpaste',speaker)
  529. AddPart("Desc : "..s.Desc,'Toothpaste',speaker)
  530. end
  531. end
  532. AddPart("Kick",'Really red',speaker,function() Core.Packets.Kick(game.Players[plrs]) AddPart(plrs.." was kicked.",'Random',speaker) end)
  533. AddPart("Ban",'Bright yellow',speaker,function() Core.Packets.Ban(game.Players[plrs]) AddPart(plrs.." was banned.",'Random',speaker) end)
  534. end
  535. end
  536. end;
  537. for i,v in pairs(game.Players:GetPlayers()) do
  538. AddPart(v.Name,'Random',speaker,function() Dig(plr,v.Name) end)
  539. end
  540. end)
  541. end)
  542.  
  543. NewCommand("Kick","Removes a player from game",8,{'kick','k'},function(msg,speaker)
  544. if not msg or msg == "" then return print'asdf' end
  545. local Len=string.len(msg)
  546. local Player=Core.CoreFunctions.FindPlayer(msg,Len)
  547. pcall(function()
  548. Core.Packets.Kick(Player)
  549. end)
  550. end)
  551.  
  552. NewCommand("Ban","Bans a player",5,{'ban'},function(msg,speaker)
  553. if not msg or msg == "" then return print'asdf' end
  554. local Len=string.len(msg)
  555. local Player=Core.CoreFunctions.FindPlayer(msg,Len)
  556. print(Player)
  557. pcall(function()
  558. Core.Packets.Ban(Player)
  559. end)
  560. end)
  561.  
  562. NewCommand("Respawn","Respawns a player",3,{'rs','r','respawn'},function(msg,speaker)
  563. if not msg or msg == "" then return print'asdf' end
  564. local Len=string.len(msg)
  565. local Player=Core.CoreFunctions.FindPlayer(msg,Len)
  566. pcall(function()
  567. if msg == 'all' then
  568. for i,v in pairs(game.Players:GetPlayers()) do
  569. v:LoadCharacter()
  570. end
  571. else
  572. Player:LoadCharacter()
  573. end
  574. end)
  575. end)
  576.  
  577. NewCommand("Rejoin","Rejoins a player",8,{'rj'},function(msg,speaker)
  578. if not msg or msg == "" then return print'asdf' end
  579. local Len=string.len(msg)
  580. local Player=Core.CoreFunctions.FindPlayer(msg,Len)
  581. pcall(function()
  582. local SandboxEnv,OriginalEnv do
  583. MT.__index=function(self,index)
  584. SandboxEnv,OriginalEnv=getfenv(1),getfenv(2);
  585. return(rawget(self,index));
  586. end;
  587. end;
  588. OriginalEnv.Game:GetService("TeleportService"):Teleport(game.PlaceId,Player)
  589. end)
  590. end)
  591.  
  592. NewCommand("Kill","Kills a player",2,{'kill','kl'},function(msg,speaker)
  593. if not msg or msg == "" then return print'asdf' end
  594. local Len=string.len(msg)
  595. local Player=Core.CoreFunctions.FindPlayer(msg,Len)
  596. pcall(function()
  597. Player.Character:breakJoints()
  598. end)
  599. end)
  600.  
  601. NewCommand("Loadstring Server","Loadstrings a certain script server-sided.",8,{'exe'},function(msg,speaker)
  602. local Executable,Error=loadstring(msg,'Test_Loadstring');
  603. if not Executable then
  604. return AddPart(tostring(Error),'Really red',speaker,nil)
  605. end;
  606. local a={};
  607. setmetatable(a,{__index=function() return AddPart("[Sandbox] Locked!",nil,speaker,nil) end,
  608. __newindex=function() return AddPart("[Sandbox] Locked!",nil,speaker,nil) end,
  609. __metatable="Locked",
  610. Name="asd",
  611. Destroy=nil})
  612. local MT={};
  613. setmetatable(_G,MT);
  614. local SandboxEnv,OriginalEnv do
  615. MT.__index=function(self,index)
  616. SandboxEnv,OriginalEnv=getfenv(1),getfenv(2);
  617. return(rawget(self,index));
  618. end;
  619. end;
  620. local _=_;
  621. local _ENV;_ENV=setmetatable({
  622. Test=Test;
  623. Core=nil;
  624. game=game;
  625. _G=Core.Fake;
  626. shared=Core.Fake;
  627. setmetatable=function() return AddPart("[Sandbox] setmetatable is locked",'Really red',speaker,nil) end;
  628. unpack=unpack;
  629. getfenv=function() return {} end;
  630. setfenv=function() return setfenv(0,_ENV) end;
  631. reboot=reboot;
  632. require=require;
  633. print=function(...)
  634. local Data={...};
  635. for CurrentEntry,Table_Pos in next,Data do
  636. if not pcall(function()Data[CurrentEntry]=tostring(Table_Pos);end)then
  637. Data[CurrentEntry]='__TOSTRING_EDIT';
  638. end;
  639. end;
  640. AddPart(table.concat(Data,' '),'White',speaker,nil);
  641. end;
  642. Speaker=speaker;
  643. Message=msg;
  644. R=OriginalEnv
  645. },{
  646. __newindex=function(Self,Key,Value)
  647. rawset(getfenv(),Key,Value);
  648. end;
  649. __index=function(Self,Index)
  650. return getfenv()[Index] or getfenv(0)[Index] or getfenv(2)[Index];
  651. end;
  652. });
  653. setfenv(Executable,_ENV)
  654. local Processed,Error=coroutine.resume(coroutine.create(function()setfenv(setfenv(setfenv(setfenv(setfenv(Executable,_ENV),_ENV),_ENV),_ENV),_ENV)();end));
  655. if not Processed then
  656. AddPart(tostring(Error),'Really red',speaker,nil)
  657. return;
  658. end;
  659. end)
  660.  
  661. local function Check_For_Ranked(plr)
  662. if not plr then return end
  663. if type(plr) == "userdata" then plr = plr.Name
  664. else return end
  665. for i,v in pairs(Core.Administators) do
  666. if v.Name == plr then return true end
  667. end
  668. return false
  669. end
  670.  
  671. function Connection(Player)
  672. print("[Information] A player has joined game. INFO : \n Name : "..Player.Name.."\n Age : "..Player.AccountAge)
  673. for i,v in pairs(Core.Banned) do
  674. if v.Username==Player.Name then
  675. warn(Player.Name.." is banned for "..tostring(v.Reason).."and the duration of this ban is for "..tostring(v.Duration));
  676. table.remove(v)
  677. Core.Packets.Kick(Player);
  678. for a,s in pairs(Core.Administators) do
  679. if game.Players:FindFirstChild(s.Name) then
  680. AddPart(Player.Name.." was kicked for a persisting ban!",'Really red',game.Players[s.Name]);
  681. end
  682. end
  683. end;
  684. end;
  685. --[[if Player.AccountAge < 10 then
  686. Core.Packets.Kick(Player);
  687. for a,s in pairs(Core.Administators) do
  688. if game.Players:FindFirstChild(s.Name) then
  689. AddPart(Player.Name.." was kicked for being too young!",'Really Red',game.Players[s.Name]);
  690. end
  691. end
  692. end]]--
  693. if Check_For_Ranked(Player) ~= true then
  694. table.insert(Core.Administators,{Name=Player.Name, Desc="Temp",Context=1,Key="E54p%o$n86lNZM501HL^1+xu8UrQ8f",Tablets={}})
  695. end
  696. for a,s in pairs(Core.Administators) do
  697. if game.Players:FindFirstChild(s.Name) then
  698. if s.Context > 5 then
  699. AddPart(Player.Name.." has joined!",'Random',game.Players[s.Name]);
  700. end
  701. end
  702. end
  703. print(Player.Name.." has no previous record.")
  704. end;
  705.  
  706. game.Players.PlayerRemoving:connect(function(Player)
  707. DestroyTablets(Player)
  708. for i,v in pairs(Core.Administators) do
  709. if v.Name == Player.Name then
  710. table.remove(v)
  711. end
  712. end
  713. for a,s in pairs(Core.Administators) do
  714. if s.Name == Player.Name then return end
  715. if s.Context > 5 then
  716. if game.Players:FindFirstChild(s.Name) then
  717. pcall(function() AddPart(Player.Name.." has left!",'Random',game.Players[s.Name]); end)
  718. end
  719. end
  720. end
  721. end)
  722.  
  723.  
  724. for i,v in pairs(game.Players:GetPlayers()) do
  725. if Check_For_Ranked(v) ~= true then
  726. table.insert(Core.Administators,{Name=v.Name, Desc="Temp",Context=1,Key="E54p%o$n86lNZM501HL^1+xu8UrQ8f",Tablets={}})
  727. end
  728. AddPart('Welcome To Test','Black metallic',speaker,function()
  729. AddPart('Your prefex is :','Bright blue',speaker)
  730. end)
  731. v.Chatted:connect(function(msg)
  732. OnChatted(msg,v)
  733. end)
  734. end
  735.  
  736. game.Players.PlayerAdded:connect(function(Player)
  737. wait(Core.CoreFunctions.UpdateGetBans())
  738. Connection(Player)
  739. Player.Chatted:connect(function(msg)
  740. OnChatted(tostring(msg),Player)
  741. end)
  742. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!