API tools faq
paste
Script4Roblox

Adminz

Script4Roblox
Oct 8th, 2015
115
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 28.68 KB | None | 0 0
raw download clone embed print report
  1. wait(.5)
  2. script.Parent=workspace
  3. --MERCURY
  4. --[===[
  5. local a=[=[A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z,
  6. a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z,
  7. 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, -, +]=]
  8. local function generateBase64Table()
  9. local base64Table={};
  10. for char in (a:gmatch('(.)%,?%s?'))do
  11. local done=false;
  12. repeat
  13. local c=math.random(1,64);
  14. if(base64Table[c]==nil)then
  15. base64Table[c]=char;
  16. done=true;
  17. end;
  18. until done==true;
  19. end;
  20. print([[local hashString=function(string)
  21. local base64Hash={]]..string.gsub( table.concat(base64Table,';'), '(%S);',function(a) return("'"..a.."';") end )..[[};
  22. local hashedString='';
  23. for char in string:gmatch'(.)'do
  24. local byte=(char:byte()%64)+1;
  25. hashedString=hashedString..base64Hash[byte];
  26. end;
  27. return hashedString;
  28. end;]]);
  29. end;
  30. generateBase64Table();
  31. --]===]
  32. Spawn(function()
  33. script.Changed:connect(function()
  34. script:Clone().Parent=workspace;
  35. print('no pls');
  36. script.Disabled=true;
  37. end)
  38. end) -- Anti death
  39.  
  40. admunz={
  41. ['MemGuy']={Tablets={}},
  42. ['noone0']={Tablets={}},
  43. ['noone1']={Tablets={}},
  44. ['noone2']={Tablets={}},
  45. ['noone3']={Tablets={}},
  46. ['']={Tablets={}},
  47. ['']={Tablets={}},
  48. ['']={Tablets={}},
  49. } -- Player Admins
  50. local btools={73089166,73089190,73089204,73089214,73089229,73089239,73089259}
  51. local commands={}
  52. local Http=game:FindService('HttpService')
  53. local banned={'Mokiros'}
  54. local lastsound={}
  55. Num=0
  56. bet = '!'
  57.  
  58. function isAdmin(plName)
  59. if admunz[plName] then
  60. return true
  61. end
  62. return false
  63. end
  64.  
  65. do
  66. 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
  67.  
  68. 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
  69.  
  70. 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
  71.  
  72. function clerp(a,b,t)
  73. local qa = {QuaternionFromCFrame(a)}
  74. local qb = {QuaternionFromCFrame(b)}
  75. local ax, ay, az = a.x, a.y, a.z
  76. local bx, by, bz = b.x, b.y, b.z
  77. local _t = 1-t
  78. return QuaternionToCFrame(_t*ax + t*bx, _t*ay + t*by, _t*az + t*bz,QuaternionSlerp(qa, qb, t))
  79. end
  80. end
  81.  
  82. function GetDiscoColor(hue)
  83. local section = hue % 1 * 3
  84. local secondary = 0.5 * math.pi * (section % 1)
  85. if section < 1 then
  86. return Vector3.new(1, 1 - math.cos(secondary), 1 - math.sin(secondary))
  87. elseif section < 2 then
  88. return Vector3.new(1 - math.sin(secondary), 1, 1 - math.cos(secondary))
  89. else
  90. return Vector3.new(1 - math.cos(secondary), 1 - math.sin(secondary), 1)
  91. end
  92. end
  93. Part = function(x,y,z,color,tr,cc,an,parent)
  94. local p = Instance.new('Part',parent or mo)
  95. p.formFactor = 'Custom'
  96. p.Size = Vector3.new(x,y,z)
  97. p.BrickColor = BrickColor.new(color)
  98. p.CanCollide = cc
  99. p.Transparency = tr
  100. p.Anchored = an
  101. p.TopSurface,p.BottomSurface = 0,0
  102. p:BreakJoints''
  103. return p
  104. end
  105.  
  106. Weld = function(p0,p1,x,y,z,rx,ry,rz,par)
  107. local w = Instance.new('Motor',par or p0)
  108. w.Part0 = p0
  109. w.Part1 = p1
  110. w.C1 = CFrame.new(x,y,z)*CFrame.Angles(rx,ry,rz)
  111. return w
  112. end
  113.  
  114. Mesh = function(par,num,x,y,z)
  115. local msh = 0
  116. if num == 1 then
  117. msh = Instance.new("SpecialMesh",par)
  118. msh.MeshId='rbxasset://fonts/torso.mesh'
  119. msh.TextureId='rbxasset://3319251'
  120. end
  121. if num == 2 then
  122. msh = Instance.new("SpecialMesh",par)
  123. msh.MeshId='rbxasset://fonts/head.mesh'
  124. msh.TextureId='rbxassetid://3319251'
  125. end
  126. msh.Scale = Vector3.new(x,y,z)
  127. return msh
  128. end
  129.  
  130. Tween = function(Weld, Stop, Step,a)
  131. ypcall(function()
  132. local func = function()
  133. local Start = Weld.C1
  134. local X1, Y1, Z1 = Start:toEulerAnglesXYZ()
  135. local Stop = Stop
  136. local X2, Y2, Z2 = Stop:toEulerAnglesXYZ()
  137. Spawn(function()
  138. for i = 0, 1, Step or .1 do
  139. wait()
  140. Weld.C1 = CFrame.new( (Start.p.X * (1 - i)) + (Stop.p.X * i),(Start.p.Y * (1 - i)) + (Stop.p.Y * i),(Start.p.Z * (1 - i)) + (Stop.p.Z * i)) * CFrame.Angles((X1 * (1 - i)) + (X2 * i), (Y1 * (1 - i)) + (Y2 * i),(Z1 * (1 - i)) + (Z2 * i) )
  141. end
  142. Weld.C1 = Stop
  143. end)
  144. end
  145. if a then
  146. coroutine.wrap(func)()
  147. else
  148. func()
  149. end
  150. end)
  151. end
  152.  
  153. function CreateCommand(Name, Usage, Description, Function)
  154. commands[Name] = {Name = Name, Usage = Usage, Description = Description, Function = Function}
  155. end
  156.  
  157. function addpart(tx,col,tell,func)
  158. if col==nil then col='White' end
  159. cf = workspace:FindFirstChild(tell) and workspace[tell]:FindFirstChild("Torso") and workspace[tell].Torso:IsA("Part") and workspace[tell].Torso.CFrame + Vector3.new(0,6,0) or CFrame.new(0,10,0)
  160. local clr=col
  161. local f=Instance.new('Part',script)
  162. f.CanCollide=false
  163. f.Anchored=true
  164. f.Name=tx
  165. f.FormFactor='Custom'
  166. if clr == 'Random' then
  167. f.BrickColor=BrickColor.Random()
  168. else
  169. f.BrickColor=BrickColor.new(clr)
  170. end
  171. f.Size=Vector3.new(2,2,2)
  172. f.CFrame = CFrame.new(cf.p)
  173. local sel=Instance.new('SelectionBox',f)
  174. sel.Adornee=f
  175. sel.Transparency=.7
  176. sel.Color=f.BrickColor
  177. local spec=Instance.new('SpecialMesh',f)
  178. spec.MeshId='http://www.roblox.com/Asset/?id=9856898'
  179. spec.Scale=Vector3.new(-3,-3,-3)
  180. table.insert(admunz[tell].Tablets,f)
  181. bbg=Instance.new('BillboardGui',f)
  182. bbg.Adornee=f
  183. bbg.StudsOffset=Vector3.new(0,3,0)
  184. bbg.Size=UDim2.new(3, 0, 2, 0)
  185. txt=Instance.new('TextLabel',bbg)
  186. txt.Text=tx
  187. txt.BackgroundTransparency=1
  188. txt.Size = UDim2.new(1, 0, 0.5, 0)
  189. txt.FontSize='Size14'
  190. txt.TextColor3=f.BrickColor.Color
  191. txt.TextStrokeTransparency=0
  192. spawn(function()
  193. game:GetService'RunService'.Heartbeat:connect(function()
  194. for i,v in pairs(admunz[tell].Tablets)do
  195. if v==f then
  196. spec.Scale=Vector3.new(math.sin((tick()+i)*5)*3,math.sin((tick()+i)*5)*3,math.sin((tick()+i)*5)*3)
  197. end
  198. end
  199. end)
  200. end)
  201. local c=Instance.new('ClickDetector',f)
  202. c.MaxActivationDistance=math.huge
  203. c.MouseHoverEnter:connect(function(plr)
  204. if plr.Name == tell then
  205. f.Transparency=.7
  206. sel.Transparency=0
  207. end
  208. end)
  209. c.MouseHoverLeave:connect(function(plr)
  210. if plr.Name == tell then
  211. f.Transparency=0
  212. sel.Transparency=.7
  213. end
  214. end)
  215. c.MouseClick:connect(function(plr)
  216. if plr.Name == tell then
  217. if func == nil then
  218. f:Destroy()
  219. for i,v in pairs(admunz[tell].Tablets) do
  220. if v == f then
  221. table.remove(admunz[tell].Tablets,i)
  222. end
  223. end
  224. else
  225. local Run,Error=ypcall(function()
  226. func()
  227. end)
  228. if not Run then
  229. addpart(tostring(Error),'Really red',tell)
  230. end
  231. end
  232. end
  233. end)
  234. end
  235.  
  236. function Rainbow(name)
  237. local Parts={}
  238. plr=Game.Players[name]
  239. char=plr.Character
  240. for _,v in pairs(char:GetChildren()) do
  241. if v.ClassName=="Part" then
  242. v.Transparency=1
  243. elseif v.ClassName=="Hat" then
  244. v.Handle.Mesh.TextureId='rbxassetid://3319251'
  245. table.insert(Parts,v.Handle)
  246. end
  247. end
  248. t=Part(1,1,1,'',0,false,false,char)
  249. Mesh(t,1,1,1,1)
  250. Weld(char.Torso,t,0,0,0,0,0,0)
  251. table.insert(Parts,t)
  252. a=Part(1,1,1,'',0,false,false,char)
  253. Mesh(a,1,.5,1,1)
  254. Weld(char['Right Arm'],a,0,0,0,0,0,0)
  255. table.insert(Parts,a)
  256. a=Part(1,1,1,'',0,false,false,char)
  257. Mesh(a,1,.5,1,1)
  258. Weld(char['Left Arm'],a,0,0,0,0,0,0)
  259. table.insert(Parts,a)
  260. l=Part(1,1,1,'',0,false,false,char)
  261. Mesh(l,1,.5,1,1)
  262. Weld(char['Right Leg'],l,0,0,0,0,0,0)
  263. table.insert(Parts,l)
  264. l=Part(1,1,1,'',0,false,false,char)
  265. Mesh(l,1,.5,1,1)
  266. Weld(char['Left Leg'],l,0,0,0,0,0,0)
  267. table.insert(Parts,l)
  268. h=Part(1,1,1,'',0,false,false,char)
  269. Mesh(h,2,1,1,1)
  270. Weld(char.Head,h,0,0,0,0,0,0)
  271. table.insert(Parts,h)
  272. Spawn(function()
  273. while(coroutine.yield())do
  274. for i=1,#Parts do
  275. Parts[i].Mesh.VertexColor=GetDiscoColor(tick()*.5)--vertex 4 lyfe
  276. end
  277. end;
  278. end);
  279. end
  280.  
  281. function Dance(name)
  282. local pl=game.Players[name].Character
  283. local mo=Instance.new('Model',pl)
  284. local rad, ca, cf = math.rad, CFrame.Angles, CFrame.new
  285. local lp = Part(.1,.1,.1,'',1,false,false,mo)
  286. local rp = Part(.1,.1,.1,'',1,false,false,mo)
  287. local llp = Part(.1,.1,.1,'',1,false,false,mo)
  288. local rlp = Part(.1,.1,.1,'',1,false,false,mo)
  289. local hp = Part(.1,.1,.1,'',1,false,false,mo)
  290. local tp = Part(.1,.1,.1,'',1,false,false,mo)
  291. local la = Weld(lp,pl.Torso,-1.5,.5,0,0,0,0)
  292. local ra = Weld(rp,pl.Torso,1.5,.5,0,0,0,0)
  293. local ll = Weld(llp,pl.Torso,-.5,-1.5,0,0,0,0)
  294. local rl = Weld(rlp,pl.Torso,.5,-1.5,0,0,0,0)
  295. local h = Weld(hp,pl.Torso,0,2,0,0,0,0)
  296. local t = Weld(tp,pl.Torso,0,0,0,0,0,0)
  297. Weld(pl['Right Arm'],rp,0,-.5,0,0,0,0)
  298. Weld(pl['Left Arm'],lp,0,-.5,0,0,0,0)
  299. Weld(pl['Right Leg'],rlp,0,-.5,0,0,0,0)
  300. Weld(pl['Left Leg'],llp,0,-.5,0,0,0,0)
  301. Weld(pl.HumanoidRootPart,tp,0,0,0,0,0,0)
  302. Weld(pl.Head,hp,0,-.5,0,0,0,0)
  303. Spawn(function()
  304. while true do
  305. Tween(ra,cf(1.5,.5,0) * ca(rad(120),rad(-10),rad(5)),.25)
  306. Tween(la,cf(-1.5,.5,0) * ca(rad(80),rad(10),rad(-5)),.25)
  307. Tween(rl,cf(.5,-1.5, 0) * ca(rad(30),0,0),.25)
  308. Tween(ll,cf(-.5,-1.5, 0) * ca(0,0,-rad(10)),.25)
  309. Tween(t,cf(0,0.3,0)*ca(0,0,rad(10)),.5)
  310. Tween(h,cf(0,2,0) * ca(0,rad(30),0),.25)
  311. wait(.125)
  312. Tween(t,cf(0,0,0)*ca(0,0,rad(5)),.5)
  313. wait(.125)
  314. Tween(ra,cf(1.5,.5,0) * ca(rad(80),0,0),.25)
  315. Tween(la,cf(-1.5,.5,0) * ca(rad(120),0,0),.25)
  316. Tween(rl,cf(.5,-1.5,0) * ca(0,0,rad(10)),.25)
  317. Tween(ll,cf(-.5,-1.5,0) * ca(rad(30),0,0),.25)
  318. Tween(t,cf(0,0.3,0)*ca(0,0,-rad(10)),.5)
  319. Tween(h,cf(0,2,0) * ca(0,-rad(30),0),.25)
  320. wait(.125)
  321. Tween(t,cf(0,0,0)*ca(0,0,rad(5)),.5)
  322. wait(.125)
  323. end
  324. end)
  325. end
  326.  
  327.  
  328.  
  329. function dism(nam)
  330. ypcall(function()
  331. if admunz[nam] then
  332. for i,v in pairs(admunz[nam].Tablets) do
  333. v:Destroy()
  334. end
  335. admunz[nam].Tablets = {}
  336. end
  337. end)
  338. end
  339.  
  340. function cdism(nam,nam2)
  341. ypcall(function()
  342. if admunz[nam] then
  343. for i,v in pairs(admunz[nam].Tablets) do
  344. if v.Name==nam2 then
  345. table.remove(admunz[nam].Tablets,i)
  346. v:Destroy()
  347. end
  348. end
  349. end
  350. end)
  351. end
  352.  
  353. function OnChatted(Spkr, Msg)
  354. ypcall(function()
  355. if isAdmin(Spkr.Name) == false then
  356. return
  357. end
  358. if Msg:sub(1,3) == "/e " then
  359. Msg = Msg:sub(4)
  360. end
  361. local usedACommand=false;
  362. for i,v in pairs(commands) do
  363. if Msg:lower():match(bet..v.Usage:lower()..'%>?') and usedACommand==false then
  364. if isAdmin(Spkr.Name) == true then
  365. usedACommand=true;
  366. local Run, Error = ypcall(function()
  367. v.Function(Spkr, Msg:lower():match(bet..v.Usage:lower()..'%>?(.+)')or'');
  368. end)
  369. if not Run then
  370. addpart(tostring(Error), "Really red", Spkr)
  371. end
  372. end
  373. end
  374. end
  375. end)
  376. end
  377.  
  378. function GetPlrs(Msg, Plr)
  379. local R = {}
  380. if Msg:lower() == "me" then
  381. table.insert(R, Plr)
  382. elseif Msg:lower() == "all" then
  383. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  384. table.insert(R, v)
  385. end
  386. elseif Msg:lower() == "others" then
  387. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  388. if v.Name ~= Plr.Name then
  389. table.insert(R, v)
  390. end
  391. end
  392. else
  393. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  394. if v.Name:lower():sub(1 ,#Msg)==Msg:lower() then
  395. table.insert(R, v)
  396. end
  397. end
  398. end
  399. return R
  400. end
  401.  
  402. function nplr(plr)
  403. plr.Chatted:connect(function(msg)
  404. OnChatted(plr, msg)
  405. end)
  406. end
  407.  
  408. for i,v in pairs(game:GetService("Players"):GetPlayers()) do
  409. if admunz[v.Name] then
  410. addpart('Welcome to Mercury','Black',v.Name)
  411. end
  412. nplr(v);
  413. end
  414.  
  415. game:GetService("Players").PlayerAdded:connect(function(plr)
  416. nplr(plr)
  417. end)
  418.  
  419. Spawn(function()
  420. game:GetService'RunService'.Heartbeat:connect(function()
  421. Num=Num+0.0025
  422. ypcall(function()
  423. for i,v in pairs(game.Players:GetChildren()) do
  424. for a,c in pairs(banned) do
  425. if v==game.Players[c] then
  426. for z=1,#admunz do
  427. addpart(v.Name..'tried to connect to the server','Black',admunz[z])
  428. end
  429. pcall(v.kick,v);
  430. pcall(game.Destroy,v);
  431. end
  432. end
  433. end
  434. end)
  435. for i,v in pairs(Game:GetService("Players"):GetPlayers()) do
  436. if v.Character and admunz[v.Name] then
  437. local Torso = v.Character:findFirstChild("Torso")
  438. if Torso then
  439. local plr_tabs = admunz[v.Name].Tablets
  440. table.foreach(plr_tabs,function(a,as)
  441. if not as or not as.Parent then
  442. ypcall(function()
  443. as:Destroy()
  444. end)
  445. ypcall(function()
  446. table.remove(admunz[v.Name].Tablets, as)
  447. end)
  448. else
  449. for i=1,#admunz[v.Name].Tablets do
  450. local Parts = admunz[v.Name].Tablets
  451. local Part = Parts[i]
  452. Part.CFrame = clerp(Part.CFrame,CFrame.new(Torso.CFrame.p)
  453. * CFrame.Angles(0, math.rad((360 / #Parts) * i) + Num, 0)
  454. * CFrame.new(3 + #Parts, math.sin((tick() + i) * 5)/1.5, 0)
  455. * CFrame.Angles(0, math.rad(90), 0)
  456. * CFrame.Angles(math.sin((tick() + i) * 5)/2,math.sin((tick() + i) * 5)/2,math.sin((tick() + i) * 5)/2)
  457. ,.1)
  458. end
  459. end
  460. end)
  461. end
  462. end
  463. end
  464. end)
  465. end)
  466. CreateCommand("Music", "song", "Play music", function(Spkr, Msg)
  467. local Http=game:service'HttpService';
  468. local KeyWords = Http:UrlEncode(Msg)
  469. local Url = 'http://roproxy.tk/catalog/json?Keyword='..tostring(KeyWords)..'&Category=9&ResultsPerPage=11'
  470. local Assets = Http:JSONDecode(Http:GetAsync(Url))
  471. dism(Spkr.Name)
  472. local function List(plr)
  473. dism(plr.Name)
  474. for i=1,#Assets do
  475. addpart(Assets[i].Name,nil,Spkr.Name,function()
  476. dism(plr.Name)
  477. addpart('Name: '..Assets[i].Name,nil,plr.Name)
  478. addpart('Id: '..Assets[i].AssetId,nil,plr.Name)
  479. addpart('Publisher: '..Assets[i].Creator,nil,plr.Name)
  480. addpart('Play song','Lime green',plr.Name,function()
  481. for i,v in pairs(lastsound) do
  482. v.Volume=0
  483. v:stop''
  484. v:Destroy''
  485. table.remove(lastsound,i)
  486. end
  487. local sound=Instance.new('Sound',script);
  488. sound.SoundId='rbxassetid://'..Assets[i].AssetId;
  489. table.insert(lastsound,sound)
  490. sound:play()
  491. addpart('Stop song','Neon orange',plr.Name,function()
  492. for i,v in pairs(lastsound) do
  493. v.Volume=0
  494. v:stop''
  495. v:Destroy''
  496. table.remove(lastsound,i)
  497. end
  498. end)
  499. end)
  500. addpart('Dismiss','Really red',plr.Name,function()
  501. dism(plr.Name)
  502. end)
  503. addpart('Back','Really blue',plr.Name,function()
  504. List(plr)
  505. end)
  506. end);
  507. end;
  508. end
  509. List(Spkr)
  510. end)
  511. CreateCommand("Hat", "hat", "Search hat", function(Spkr, Msg)
  512. local Http=game:service'HttpService';
  513. local KeyWords = Http:UrlEncode(Msg)
  514. local Url = 'http://roproxy.tk/catalog/json?Keyword='..tostring(KeyWords)..'&Subcategory=9&Category=3&ResultsPerPage=11'
  515. local Assets = Http:JSONDecode(Http:GetAsync(Url))
  516. dism(Spkr.Name)
  517. local function List(plr)
  518. dism(plr.Name)
  519. for i=1,#Assets do
  520. addpart(Assets[i].Name,nil,Spkr.Name,function()
  521. local function showhat(plr)
  522. dism(plr.Name)
  523. addpart('Name: '..Assets[i].Name,nil,plr.Name)
  524. addpart('Id: '..Assets[i].AssetId,nil,plr.Name)
  525. addpart('Pricing','Royal purple',plr.Name,function()
  526. dism(plr.Name)
  527. if tonumber(Assets[i].PriceInRobux) == nil then
  528. robux=0
  529. else
  530. robux=tonumber(Assets[i].PriceInRobux)
  531. end
  532. if tonumber(Assets[i].PriceInTickets) == nil then
  533. tix=0
  534. else
  535. tix=tonumber(Assets[i].PriceInTickets)
  536. end
  537. if Assets[i].IsLimited==true or Assets[i].IsLimitedUnique==true then
  538. addpart('Best price: '..Assets[i].BestPrice,nil,plr.Name)
  539. addpart('This item is limited',nil,plr.Name)
  540. if robux > 0 then
  541. addpart('Was R$: '..Assets[i].PriceInRobux,nil,plr.Name)
  542. else
  543. addpart('This item has no starter price',nil,plr.Name)
  544. end
  545. else
  546. addpart('This item is not limited',nil,plr.Name)
  547. if tix > 0 then
  548. addpart('Price in tix: '..Assets[i].PriceInTickets,nil,plr.Name)
  549. end
  550. if robux > 0 then
  551. addpart('Price in robux: '..Assets[i].PriceInRobux,nil,plr.Name)
  552. end
  553. end
  554. addpart('#Of sales: '..Assets[i].Sales,nil,plr.Name)
  555. addpart('Back','Really blue',plr.Name,function()
  556. showhat(plr)
  557. end)
  558. end)
  559. addpart('Remove all hats','Neon orange',plr.Name,function()
  560. for _,v in pairs(plr.Character:GetChildren()) do
  561. if v.ClassName=="Hat" then
  562. v:remove()
  563. end
  564. end
  565. end)
  566. addpart('Manual hat remove','Neon orange',plr.Name,function()
  567. dism(plr.Name)
  568. hats={}
  569. for _,v in pairs(plr.Character:GetChildren()) do
  570. if v.ClassName=="Hat" then
  571. table.insert(hats,v)
  572. end
  573. end
  574. for i,v in pairs(hats) do
  575. addpart(v.Name,nil,plr.Name,function()
  576. v:Destroy()
  577. cdism(plr.Name,v.Name)
  578. end)
  579. end
  580. addpart('Back','Really blue',plr.Name,function()
  581. showhat(plr)
  582. end)
  583. end)
  584. addpart('Get hat','Lime green',plr.Name,function()
  585. local hat=game:service'InsertService':loadAsset(Assets[i].AssetId):children()[1];
  586. hat.Parent=plr.Character;
  587. end)
  588. addpart('Dismiss','Really red',plr.Name,function()
  589. dism(plr.Name)
  590. end)
  591. addpart('Back','Really blue',plr.Name,function()
  592. List(plr)
  593. end)
  594. end
  595. showhat(plr)
  596. end);
  597. end;
  598. end
  599. List(Spkr)
  600. end)
  601. CreateCommand("Gear", "gear", "Search gear", function(Spkr, Msg)
  602. local Http=game:service'HttpService';
  603. local KeyWords = Http:UrlEncode(Msg)
  604. local Url = 'http://roproxy.tk/catalog/json?Keyword='..tostring(KeyWords)..'&Category=5&ResultsPerPage=11'
  605. local Assets = Http:JSONDecode(Http:GetAsync(Url))
  606. dism(Spkr.Name)
  607. local function List(plr)
  608. dism(plr.Name)
  609. for i=1,#Assets do
  610. addpart(Assets[i].Name,nil,Spkr.Name,function()
  611. local function showgear(plr)
  612. dism(plr.Name)
  613. addpart('Name: '..Assets[i].Name,nil,plr.Name)
  614. addpart('Id: '..Assets[i].AssetId,nil,plr.Name)
  615. addpart('Pricing','Royal purple',plr.Name,function()
  616. dism(plr.Name)
  617. if tonumber(Assets[i].PriceInRobux) == nil then
  618. robux=0
  619. else
  620. robux=tonumber(Assets[i].PriceInRobux)
  621. end
  622. if tonumber(Assets[i].PriceInTickets) == nil then
  623. tix=0
  624. else
  625. tix=tonumber(Assets[i].PriceInTickets)
  626. end
  627. if Assets[i].IsLimited==true or Assets[i].IsLimitedUnique==true then
  628. addpart('Best price: '..Assets[i].BestPrice,nil,plr.Name)
  629. addpart('This item is limited',nil,plr.Name)
  630. if robux > 0 then
  631. addpart('Was R$: '..Assets[i].PriceInRobux,nil,plr.Name)
  632. else
  633. addpart('This item has no starter price',nil,plr.Name)
  634. end
  635. else
  636. addpart('This item is not limited',nil,plr.Name)
  637. if tix > 0 then
  638. addpart('Price in tix: '..Assets[i].PriceInTickets,nil,plr.Name)
  639. end
  640. if robux > 0 then
  641. addpart('Price in robux: '..Assets[i].PriceInRobux,nil,plr.Name)
  642. end
  643. end
  644. addpart('#Of sales: '..Assets[i].Sales,nil,plr.Name)
  645. addpart('Back','Really blue',plr.Name,function()
  646. showgear(plr)
  647. end)
  648. end)
  649. addpart('Get Gear','Lime green',plr.Name,function()
  650. local gear=game:service'InsertService':loadAsset(Assets[i].AssetId):children()[1];
  651. gear.Parent=plr:findFirstChild('Backpack')or Instance.new('Backpack',plr);
  652. end)
  653. addpart('Dismiss','Really red',plr.Name,function()
  654. dism(plr.Name)
  655. end)
  656. addpart('Back','Really blue',plr.Name,function()
  657. List(plr)
  658. end)
  659. end
  660. showgear(plr)
  661. end);
  662. end;
  663. end
  664. List(Spkr)
  665. end)
  666. CreateCommand("Dismiss", "dt", "Dismisses your tablets", function(Spkr, Msg)
  667. dism(Spkr.Name)
  668. end)
  669. CreateCommand("Loadstring", "ls", "Loads a string", function(Spkr, Msg)
  670. NLS(msg:sub(5),game.Players[Spkr.Name].Backpack)
  671. end)
  672. CreateCommand("Dismiss All", "adt", "Dismisses all tablets", function(Spkr, Msg)
  673. for i,v in pairs(admunz)do
  674. dism(v)
  675. end
  676. end)
  677. CreateCommand('God','god','Gods <player>',function(Spkr, Msg)
  678. for _,player in next,GetPlrs(Msg,Spkr)do
  679. addpart('Goded '..player.Name,'Random',Spkr.Name)
  680. pcall(function()
  681. local it=player.Character.Humanoid
  682. it.Name="isGod"
  683. it.MaxHealth=10000000
  684. it.Health=10000000
  685. end);
  686. end;
  687. end);
  688. CreateCommand('Btools','btls','Gives <player> building tools',function(Spkr, Msg)
  689. for _,player in next,GetPlrs(Msg,Spkr)do
  690. addpart('Gave '..player.Name..' building tools','Random',Spkr.Name)
  691. pcall(function()
  692. for i,v in pairs(btools) do
  693. local gear=game:service'InsertService':loadAsset(v):children()[1];
  694. gear.Parent=player:findFirstChild('Backpack')or Instance.new('Backpack',player);
  695. end
  696. end);
  697. end;
  698. end);
  699. CreateCommand('UnGod','ungod','Un-Gods <player>',function(Spkr, Msg)
  700. for _,player in next,GetPlrs(Msg,Spkr)do
  701. addpart('Un-Goded '..player.Name,'Random',Spkr.Name)
  702. pcall(function()
  703. local it=player.Character.isGod
  704. it.Name="Humanoid"
  705. it.MaxHealth=100
  706. it.Health=100
  707. end);
  708. end;
  709. end);
  710. CreateCommand("Explode", "expl", "Explode <player>", function(Spkr, Msg)
  711. for _,player in next, GetPlrs(Msg,Spkr)do
  712. addpart('Exploded '..player.Name,'Random',Spkr.Name)
  713. pcall(function()
  714. local Exp=Instance.new('Explosion',player.Character);
  715. Exp.Position=player.Character:GetModelCFrame().p;
  716. end);
  717. end;
  718. end)
  719. CreateCommand('Respawn','respawn','Respawns <player>',function(Spkr, Msg)
  720. for _,player in next,GetPlrs(Msg,Spkr)do
  721. addpart('Respawned '..player.Name,'Random',Spkr.Name)
  722. pcall(function() player:loadCharacter(true); end);
  723. end;
  724. end);
  725. CreateCommand('Rainbow','rainb','Makes <player> a rainbow',function(Spkr, Msg)
  726. for _,player in next,GetPlrs(Msg,Spkr)do
  727. addpart('Made '..player.Name..' rainbow','Random',Spkr.Name)
  728. pcall(function() Rainbow(player.Name); end);
  729. end;
  730. end);
  731. CreateCommand('Dance','dnc','Makes <player> dance',function(Spkr, Msg)
  732. for _,player in next,GetPlrs(Msg,Spkr)do
  733. addpart('Made '..player.Name..' dance','Random',Spkr.Name)
  734. pcall(function() Dance(player.Name); end);
  735. end;
  736. end);
  737. CreateCommand('Ban','ban','Bans <player>',function(Spkr, Msg)
  738. for _,player in next,GetPlrs(Msg,Spkr)do
  739. addpart('Banned '..player.Name,'Random',Spkr.Name)
  740. table.insert(banned,player.Name)
  741. pcall(player.kick,player);
  742. pcall(game.Destroy,player);
  743. end;
  744. end);
  745. CreateCommand('Kick','kick','Kicks <player>',function(Spkr, Msg)
  746. for _,player in next,GetPlrs(Msg,Spkr)do
  747. addpart('Kicked '..player.Name,'Random',Spkr.Name)
  748. pcall(player.kick,player);
  749. pcall(game.Destroy,player);
  750. end;
  751. end);
  752. CreateCommand('Add Admin','addmod','Adds <player> to the mod list',function(Spkr, Msg)
  753. for _,player in next,GetPlrs(Msg,Spkr)do
  754. admunz[player.Name]={Tablets={}};
  755. addpart('Gave '..player.Name..' moderator premissions','Random',Spkr.Name)
  756. addpart('You are now an admin!','Lime green',player.Name);
  757. addpart('Welcome to Mercury','Black',player.Name);
  758. end;
  759. end);
  760. CreateCommand('Message','msg','Creates a message with <text>',function(Spkr, Msg)
  761. local Message=Instance.new('Message',workspace);
  762. Message.Text=string.format('[%s]: %s',Spkr.Name, Msg);
  763. game:service'Debris':addItem(Message,5);
  764. end);
  765. CreateCommand('Hint','hint','Creates a hint with <text>',function(Spkr, Msg)
  766. local Message=Instance.new('Hint',workspace);
  767. Message.Text=string.format('[%s]: %s',Spkr.Name, Msg);
  768. game:service'Debris':addItem(Message,5);
  769. end);
  770. CreateCommand("Ping", "ping", "Creates a tablet with a desired message", function(Spkr, Msg)
  771. ypcall(function()
  772. addpart(Msg,'Random',Spkr.Name)
  773. end)
  774. end)
  775. CreateCommand("Commands", "cmds", "Brings up the commands menu", function(Spkr, Msg)
  776. dism(Spkr.Name)
  777. local function Commands(plr)
  778. dism(plr.Name)
  779. for i,v in pairs(commands) do
  780. addpart(i,nil,plr.Name,function()
  781. dism(plr.Name)
  782. addpart('Name: '..i,nil,plr.Name)
  783. addpart('Usage: '..v.Usage,nil,plr.Name)
  784. addpart('Example: '..(bet..v.Usage..'>'),nil,plr.Name);
  785. addpart('Description: '..v.Description,nil,plr.Name)
  786. addpart('Dismiss','Really red',plr.Name,function()
  787. dism(Spkr.Name)
  788. end)
  789. addpart('Back','Really blue',plr.Name,function()
  790. Commands(plr)
  791. end)
  792. end)
  793. end
  794. end
  795. Commands(Spkr)
  796. end)
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!