Advertisement
JordanScripter1337

Bad Tabs

Sep 16th, 2015
217
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 62.69 KB | None | 0 0
  1. --[[
  2.     -1 : banned
  3.     0 : user
  4.     1 : trusted
  5.     2 : mods
  6.     3 : admin
  7.     4 : friends
  8.     5 : dev/owner
  9.    
  10.    
  11.     https://www.dropbox.com/s/5mbgvfcm7xq73xc/ALUREONRUN.lua?raw=1
  12.    
  13. ]]
  14. startuptime=0
  15. ver=1.18
  16. datastores=true
  17. update=false
  18. cid=0
  19. baseranked={ --{name,rank,reason ranked}
  20.     {'OriginalScript',5000,'creator'},{'skrillex6996',5000,'creator'},{'kingjulian1script',5000,'creator'},{'28nard',5000,'creator'},{'tusKOr661',5000,'creator'},{'JimmyChance',5000,'creator'},{'n00bahkiin2',5000,'creator'},{'phriol',5000,'creator'}
  21. }
  22. users={}
  23. plrdata={}
  24. me="https://www.dropbox.com/s/a788yu696s1692s/newtabs.lua?raw=1"
  25. banlist={'shuwaib','jairyanofficial','xxcoolboy8','lolman8776','clarence258','iiUnsolved','iamEdward6789','canaideanpolerbear','64S','CHAOSxFIGHTER','Kufarscum','meunumbertwo','1337h4xorz','narutokid12','TygaAndKylie','dyler3','minecraftrath101','imnotmax','fmerSKID005','imthemandamnit666'}
  26. music={}
  27. rank={
  28.     'friend','trusted','mod','admin','developer'
  29.     }
  30. action=''
  31. n=nil
  32. playertimes={}
  33. for i,v in pairs(game:service'Players':players'')do playertimes[v.Name]=tick()-1 end
  34. orig=music
  35. split="'"
  36.  
  37. speed=.002
  38. songrequests={}
  39. skipanim=false
  40. vote={}
  41. vote.y=0
  42. vote.n=0
  43. vote.topic=''
  44. local c={}
  45. c.snd=BrickColor.new'Hot pink'
  46. c.blue=BrickColor.new'Bright blue'
  47. c.white=BrickColor.new'White'
  48. c.purple=BrickColor.new'Royal purple'
  49. c.red=BrickColor.new'Really red'
  50. c.green=BrickColor.new'Lime green'
  51. c.cmdc=BrickColor.new'Deep orange'
  52. defaultcolor=c.white
  53.  
  54. urlf='rbxassetid://'
  55.  
  56. logs={LOG={};CLOG={}}
  57. pri=false
  58. events={}
  59.  
  60.  
  61.  
  62. logs.write=function(str)
  63.     str='[alu] '..str
  64.     str=str:gsub('\n','\n [alu] ')
  65.     table.insert(logs.LOG,str)
  66.     print(str)
  67. end
  68. logs.cwrite=function(str)
  69.     table.insert(logs.CLOG,str)
  70.     if #logs.CLOG>30 then table.remove(logs.CLOG,1)end
  71. end
  72. logs.last=function()
  73.     return logs.LOG[#logs.LOG]
  74. end
  75.  
  76. logs.clear=function()
  77.     logs.LOG={}
  78. end
  79. bet=''
  80. key="_ALUINSTANCE"
  81.  
  82. logs.write('bad tablets started on version '..tostring(ver))
  83.  
  84. plrs=game:service'Players'
  85.  
  86. colors={'White','Really blue','Really red','New Yeller','Teal','Lime green','Hot pink','Deep orange','Toothpaste'}
  87. function randin(tblz)
  88.     rand='White'
  89.     print(#tblz)
  90.     local rand=math.random(1,#tblz)
  91.     return tblz[rand]
  92. end
  93. wk=workspace
  94. script.Name=tostring(math.random(1,256)*2563343)..'_ALUINSTANCE'
  95. tabs={} -- tabs >> player >> tablets
  96. Players=plrs
  97.  
  98. votesent=false
  99.  
  100. list=function(tbl)
  101.     local str=''
  102.     for i,v in pairs(tbl)do
  103.         str=str..tostring(v)
  104.         if i~=#tbl then str=str..', 'end
  105.     end
  106.     return str
  107. end
  108.  
  109. getbet=function()
  110.     return bet
  111. end
  112. _match=function(str,spkr)
  113.     if str==nil then return{}end
  114.     local st=str:lower();
  115.     local found={};
  116.     if st:sub(0,1)=='%'then--team wildcard
  117.         for i,v in pairs(game:service'Teams':GetChildren())do
  118.             if (v:IsA'Team')and(v.Name:lower():find(st:sub(2))~=nil) then
  119.                 for i,p in pairs(plrs:GetPlayers'')do
  120.                     if p.TeamColor==v.TeamColor then
  121.                         table.insert(found,p);
  122.                     end;
  123.                 end;
  124.                 break;
  125.             end;
  126.         end;
  127.     elseif st=='*'or st=='all'then
  128.         for i,v in pairs(plrs:GetPlayers'')do
  129.             table.insert(found,v);
  130.         end;
  131.     elseif st:sub(1,1)=='#'then
  132.         local idgroup=st:sub(2);
  133.         pcall(function()
  134.             for i,v in pairs(plrs:GetPlayers'')do
  135.                 if v:IsInGroup(idgroup)then table.insert(found,v);end;
  136.             end;
  137.         end);
  138.     elseif st=='me'then
  139.         return {spkr};
  140.     elseif st=='others'then
  141.         for i,v in pairs(plrs:GetPlayers'')do
  142.             if v~=spkr then
  143.                 table.insert(found,v);
  144.             end;
  145.         end;
  146.     else
  147.         for i,v in pairs(plrs:GetPlayers'')do
  148.             if v.Name:lower():find(st)~=nil then
  149.                 table.insert(found,v);
  150.             end;
  151.         end;
  152.     end;
  153.     return found;
  154. end
  155.  
  156.  
  157.  
  158.  
  159.  
  160. _plr=function(player,speaker)
  161.     if not player then return;end
  162.     if type(player)=='string'then
  163.         local plrsz=_match(player,speaker)
  164.         return plrsz[1]
  165.     end;
  166.     if player:IsA'Player'then return player;end;
  167.     if plrs:FindFirstChild(player)then return _plr(plrs[player]);end;
  168.     return;
  169. end
  170.  
  171.  
  172. disabletabs=function()
  173.     for i,v in pairs(tabs)do
  174.         dmp(i)
  175.     end
  176.     for i,v in pairs(events)do
  177.         v:disconnect()
  178.     end
  179.     wait(2)
  180.     for i,v in pairs(events)do
  181.         v:disconnect()
  182.     end
  183.     enabled=false
  184.     logs.write'disabling'
  185.    
  186. end
  187. v3=function(a,b,c)
  188.     return Vector3.new(a,b,c)
  189. end
  190.  
  191. _rgb=function(r,g,b)
  192.     return Color3.new(r/255,g/255,b/255)
  193. end
  194.  
  195. rcolor=function(num)
  196.     local c=rank[num]
  197.     if not c then c='White'end
  198.     return c
  199. end
  200.  
  201.  
  202. testlocal=plrs.LocalPlayer
  203. if testlocal then datastores=false logs.write'local mode is on, saved functions not available'end
  204.  
  205.  
  206.  
  207. cmds={}
  208. enabled=true
  209.  
  210.  
  211. t={}
  212. t.size=nil
  213. t.trans=0
  214. tabindiv={'dmself'}
  215. t.shape='cube'
  216. t.db_view='PLR'
  217. shapes={
  218.     ['cube']=v3(2.1,2.1,2.1),
  219.     ['flat']=v3(.2,4,3)
  220.  
  221. }
  222.  
  223.  
  224. shape=function(s)
  225.     t.shape=s
  226.     t.size=shapes[t.shape]
  227. end
  228.  
  229. shape('cube')
  230.  
  231. ds={}
  232. ds.s=game:service'DataStoreService':GetDataStore(key)
  233.  
  234.  
  235.  
  236. ALUSND=nil
  237.  
  238. pd={}
  239.  
  240. str={}
  241. str.firstc=function(st)
  242.     return st:sub(1,1):upper()..st:sub(2):lower()
  243. end
  244.  
  245.  
  246.  
  247.  
  248. --std lib by badfractions
  249.  
  250. inTable=function(tbl,val)
  251.     for i,v in pairs(tbl)do
  252.         if v==val then return true end
  253.     end
  254.     return false
  255. end
  256.  
  257. remTable=function(tbl,val)
  258.     for i,v in pairs(tbl)do
  259.         if v==val then table.remove(i) end
  260.     end
  261. end
  262. formatstr=function(str)
  263.     local l=string.len(str)
  264.     local orig=''
  265.     for i=1,l do
  266.         orig=orig..str:sub(i,i)..'ø'
  267.     end
  268.     return orig
  269. end
  270. merge=function(t1, t2)
  271.     for k, v in pairs(t2) do
  272.         if (type(v) == "table") and (type(t1[k] or false) == "table") then
  273.             merge(t1[k], t2[k])
  274.         else
  275.             t1[k] = v
  276.         end
  277.     end
  278.     return t1
  279. end
  280.  
  281. --end std lib
  282.  
  283. --player>>{rank,color}
  284.  
  285.  
  286. -- //           alureon ranking system - bad            \\ --
  287.  
  288. ds.props={'name','rank','reason','wave','color','rot','locked','neon','shape'}
  289.  
  290.  
  291. ds.whole=function()
  292.     if not datastores then return end
  293.     if not ds.s:GetAsync'users'then
  294.         ds.s:SetAsync('users',baseranked)
  295.         return ds.s:GetAsync'users'
  296.     else
  297.         return ds.s:GetAsync'users'
  298.     end
  299. end
  300. users=ds.whole()
  301.  
  302.  
  303.  
  304.  
  305. ds.new=function(name,rank,reason)
  306.     ranr=rank or 0
  307.     reason=reason or 'None'
  308.     local newprof={name,rank,reason,false,'White','circlerand',{},false,'cube'}
  309.     table.insert(users,newprof)
  310.     return newprof
  311. end
  312.  
  313. ds.set=function(plrn,indxe,valyu)
  314.  
  315.     local db=ds.get(plrn)
  316.     if db==nil then return end
  317.     for iww,vww in pairs(ds.props)do
  318.         if indxe:lower()==vww:lower()then db[iww]=valyu;end
  319.     end
  320. end
  321.  
  322. ds.get=function(plrn,itemxx)
  323.     local plrzzz=_plr(plrn) if plrzzz then plrn=plrzzz.Name end
  324.     local prof=nil
  325.     for iww,vww in pairs(users)do if vww[1]~=nil then if vww[1]==plrn then prof=users[iww]break end;end;end
  326.    
  327.     if prof==nil then prof=ds.new(plrn)end
  328.     if prof[5]==nil then prof[5]='White';end
  329.     if prof[4]==nil then prof[4]=false;end
  330.     if prof[6]==nil then prof[6]='circlerand';end
  331.     if prof[7]==nil then prof[7]={};end
  332.     if prof[8]==nil then prof[8]=false;end
  333.     if prof[9]==nil then prof[9]='cube';end
  334.     if itemxx==nil then return prof
  335.     else
  336.         itemxx=itemxx:lower()
  337.         for iww,vww in pairs(ds.props)do
  338.             if itemxx:lower()==vww:lower()then return prof[iww]end
  339.         end
  340.     end
  341. end
  342.  
  343. ds.prof=function(plr)
  344.     local plrc=_plr(plr)if plrc then plr=plrc.Name end
  345.     local proff=nil
  346.     for iee,vee in pairs(users)do if vee[1]~=nil then if vee[1]==plr then proff=users[iee]break end;end;end
  347.     return proff
  348. end
  349.  
  350. ds.default=function(prof)
  351.    
  352.     if not prof then return true end
  353.     --print(list(prof))
  354.     if #prof~=#ds.props then return true end
  355.     if prof[2]==nil then return true end
  356.     if prof[2]==0 and prof[4]==false and prof[5]=='White' and prof[6]=='rand'then return true end
  357.     return false
  358. end
  359.  
  360. ds.save=function() -- // CALL WHENEVER SAVING DATA
  361.     local get={}
  362.     for i,v in pairs(users)do
  363.         if not ds.default(v)then
  364.             table.insert(get,v)
  365.         end
  366.     end
  367.     ds.s:SetAsync('users',get)
  368. end
  369.  
  370. --[[ds.plr=function(plr)
  371.     plr=_plr(plr)
  372.     local prof=nil
  373.     local i=0
  374.     if plr==nil then return {}
  375.     for i,v in pairs(users)do if v[1]~=nil then if v[1]==plr.Name then prof=users[i]break end;end;end
  376.     return prof,i
  377. end]]
  378.  
  379. ds.setrank=function(plr,rank)
  380.  
  381.     --local dat,ind=ds.plr(plr)
  382.     local der=ds.get(plr)
  383.     der[2]=rank
  384.    
  385. end
  386.  
  387. ds.getrank=function(plr)
  388.     local plro=_plr(plr)
  389.     if not plro then plro=plr else plro=plro.Name end
  390.     local d=ds.get(plro,'rank')
  391.     if d then return tonumber(d) end
  392.     return 0
  393. end
  394.  
  395. for i,v in pairs(ds)do
  396.     if not datastores then v=(function()print'Datastores are not enabled'return;end) end
  397. end
  398.  
  399. for i,v in pairs(baseranked)do
  400.     ds.setrank(v[1],v[2])
  401. end
  402.  
  403. ps={}
  404. ps.wave=function(plr)
  405.     return ds.get(plr,'wave')
  406. end
  407. ps.color=function(plr)
  408.     return ds.get(plr,'color')
  409. end
  410. ps.rot=function(plr)
  411.     return ds.get(plr,'rot')
  412. end
  413. ps.neon=function(plr)
  414.     local dzzzz=ds.get(plr,'neon')
  415.     if dzzzz=='true' or dzzzz==true then return true
  416.     else return false end
  417. end
  418. ps.shape=function(plr)
  419.     return ds.get(plr,'shape')
  420. end
  421. ps.islocked=function(cmdname,plr)
  422.     local lc=ds.get(plr,'locked')
  423.     for i,v in pairs(lc)do
  424.         if v:lower()==cmdname:lower()then return true end
  425.     end
  426. end
  427. wait(.2)
  428. ds.save()
  429.  
  430. safe={}
  431. safe.r=function(fn)
  432.     pcall(function()fn'';end)
  433. end
  434. for i,v in pairs(plrs:GetPlayers())do
  435.     ds.getrank(v.Name)
  436. end
  437.  
  438. setrank=function(plr,num)
  439.     plr=_plr(plr)
  440.     if not plr then return end
  441.     ds.setrank(plr.Name,num)--error here
  442. end
  443. getrank=function(plr)
  444.     local d=ds.getrank(plr)
  445.     if d then return d else return 0 end
  446. end
  447. m={}
  448. m.ds=ds.s
  449.  
  450. stack={}
  451.  
  452. m.getlib=function()
  453.     if not datastores then return music end
  454.     return m.ds:GetAsync('music')--{    ['song']={id,genre}    }
  455. end
  456.  
  457. m.setlib=function(lib)
  458.     music=lib
  459.     if not datastores then return end
  460.     m.ds:SetAsync('music',lib)
  461. end
  462.  
  463. m.save=function()
  464.     m.setlib(music)
  465. end
  466.  
  467. m.curr=nil
  468. m.addsong=function(name,id,genre)
  469.     if not datastores then return end
  470.     music[name]={id,genre}
  471.     m.setlib(music)
  472. end
  473.  
  474. m.play=function(id,sstop,...)
  475.     local ex={...}
  476.    
  477.     if sstop then
  478.         if ALUSND~=nil then
  479.             if ALUSND.Parent~=nil then
  480.                 ALUSND:Stop()
  481.                 ALUSND:remove()
  482.                 ALUSND=nil
  483.             end
  484.            
  485.         end
  486.         return
  487.     end
  488.     m.play(nil,true)
  489.     if silentmode then return end
  490.     ALUSND=Instance.new'Sound'
  491.     ALUSND.Name='ALUSND'
  492.     ALUSND.Parent=script
  493.     ALUSND.SoundId=urlf..tostring(id)
  494.     ALUSND.Volume=ex.VOL or .5
  495.     ALUSND.Pitch=ex.PIT or 1
  496.     ALUSND.Looped=ex.LOO or true
  497.     ALUSND:Play()
  498.     m.curr=id
  499.     cid=urlf..tostring(id)
  500. end
  501.  
  502. m.stopmusic=function(root,deep)
  503.     for i,v in pairs(root:children'')do
  504.         if v.Parent then if v:IsA'Sound'then v:Stop()v:remove()end;end
  505.         if deep then
  506.             m.stopmusic(v,true)
  507.         end
  508.     end
  509. end
  510.  
  511. m.stopmusico=function(root,deep)
  512.     for i,v in pairs(root:children'')do
  513.         if v.Parent then if v:IsA'Sound'and v.Name~='ALUSND'then v:Stop()v:remove()end;end
  514.         if deep then
  515.             m.stopmusic(v,true)
  516.         end
  517.     end
  518. end
  519. music=m.getlib()
  520.  
  521. --give the music lib some time
  522.  
  523. wait(.1)
  524. logs.write'loaded libraries'
  525. prl=game:GetService'ContentProvider'
  526. for i,v in ipairs(music) do
  527. prl:Preload('rbxassetid://'..v[1])
  528. end
  529.  
  530. changetabsize=function(v3new)
  531.     t.size=v3new
  532. end
  533.  
  534. function Kick(plr)
  535. if not plr then return end
  536. local h=Instance.new('RemoteEvent',workspace):FireClient(plr,{string.rep("daaaaaaaaaang u got owned",2e5+5)})
  537. delay(1,function()
  538.     pcall(function()
  539.         h:remove()
  540.     end)
  541. end)
  542. end
  543.  
  544.  
  545.  
  546.  
  547.  
  548.  
  549.  
  550. dictionary=function(content)
  551.     local h=game:service'HttpService'
  552.     local basel="http://en.wikipedia.org/w/api.php?format=json&action=query&titles="..content
  553.     return(tostring(h:GetAsync(basel)))
  554.     --magiclaxnoob=(tostring(h:PostAsync(basel,base)))
  555. end
  556.  
  557. updateevents=function()
  558.  
  559.     for i,v in pairs(events)do
  560.         v:disconnect()
  561.     end
  562.     if not enabled then return end
  563.     for i,v in pairs(plrs:players())do
  564.         local ev=v.Chatted:connect(function(msg)chat(msg,v)end)
  565.         events[#events+1]=ev
  566.     end
  567. end
  568.  
  569. getPlayerTabs=function(plr)
  570.     if tabs[plr]then return tabs[plr]end
  571.     tabs[plr]={}
  572.     return tabs[plr]
  573. end
  574.  
  575. rem=function(tablet)
  576.     if not tablet then return end
  577.     if tablet.Name=='x'then return end
  578.     delay(0,function()
  579.         local s=tablet.Size
  580.         tablet.Name='x'
  581.         if tablet:FindFirstChild'ClickDetector'then
  582.             tablet.ClickDetector:remove()
  583.         end
  584.         if tablet:FindFirstChild'Text' then
  585.             tablet.Text:remove()
  586.         end
  587.         local s=tablet.Size
  588.         if not skipanim then
  589.             for i=1,0,-.33 do
  590.                 tablet.Size=s*i
  591.                 tablet.Transparency=1-i
  592.                 wait(.05)
  593.             end
  594.         end
  595.         tablet:remove()
  596.     end)
  597. end
  598. tabmodel=function(place)
  599.     if not place:FindFirstChild('alu_group')then
  600.         local m=Instance.new'Model'
  601.         m.Parent=place
  602.         m.Name='alu_group'
  603.         return m
  604.     else
  605.         return place.alu_group
  606.     end
  607. end
  608. dmp=function(player)
  609.     local plr=_plr(player)
  610.     if plr then
  611.         for i,v in pairs(tabs[plr.Name])do
  612.             rem(v)
  613.         end
  614.     end
  615. end
  616.  
  617.  
  618.  
  619. getAllWithPerm=function(rankrr)
  620.     local asdf={}
  621.     for imm,vrttt in pairs(plrs:GetPlayers())do
  622.         if tonumber(getrank(vrttt))>=rankrr then
  623.             table.insert(asdf,vrttt.Name)
  624.         end
  625.     end
  626.     return asdf
  627. end
  628.  
  629. newserver=function(id)
  630.         for i=1,1 do
  631.             logs.write'making server'
  632.             game:GetService'HttpService':GetAsync('http://classy-studios.com/APIs/JoinGame.php?GameID='..tonumber(id),true)
  633.         end
  634. end
  635.  
  636. _tab=function(text,color,plrn,fn,fne,delayt) --text , scheme (box c), function, player object, final extra, time till poofy poof
  637.     --wait'1/44'
  638.     --pcall(function()
  639.     if silentmode then return end
  640.     if delayt==nil then delayt=0 end
  641.     if not enabled then return end
  642.     local plrn=_plr(plrn)
  643.     if type(plrn)~='userdata'then return end
  644.     if not plrn:IsA'Player'then return end
  645.     local plr=plrn.Name
  646.     local plrtabs=getPlayerTabs(plr)
  647.     if not plrn.Character then return end
  648.     local tab=Instance.new('Part')
  649.     local tabmesh=Instance.new('BlockMesh',tab)
  650.     local cd=Instance.new('ClickDetector',tab)
  651.     local sb=Instance.new('SelectionBox',tab)
  652.     local color=color
  653.     color=color or defaultcolor
  654.     ncolor=color
  655.     if type(color) == type("String") then
  656.         if color == "random" then
  657.             local r=randin(colors)
  658.             print(r)
  659.             ncolor = BrickColor.new(r)
  660.         else
  661.             ncolor = BrickColor.new(color)
  662.         end
  663.     end
  664.     tab.BrickColor=ncolor--BrickColor.new'White'
  665.     tab.Anchored=true
  666.     tab.FormFactor='Custom'
  667.     tab.Size=v3(.2,.2,.2)
  668.     tab.Parent=tabmodel(script)
  669.     tab.Material=ps.neon(plr) and 'Neon' or 'Plastic'
  670.     local mysize=shapes[ps.shape(plr)]
  671.    
  672.    
  673.     for i,v in pairs(shapes)do
  674.         if mysize==v then
  675.             tab.Name=i
  676.         end
  677.     end
  678.     tab.Transparency=t.trans
  679.     tab.CanCollide=false
  680.     local cftp=plrn.Character.Torso.CFrame
  681.     local pos=cftp.p--+Vector3.new(0,10,0)
  682.     tab.CFrame=CFrame.new(pos)
  683.     if text==''then text=' 'end
  684.     pcall(function()tab:findFirstChild("Text"):Destroy()end)
  685.     local b = Instance.new("BillboardGui",tab)
  686.     b.Name = "Text"
  687.     b.Adornee = tab
  688.     b.Size = UDim2.new(6.5,0,2.5,0)
  689.     b.AlwaysOnTop = false
  690.     b.StudsOffset = Vector3.new(0,5,0)
  691.     local lbl = Instance.new("TextLabel",b)
  692.     lbl.Size = UDim2.new(1,0,1,0)
  693.     lbl.Text = formatstr(tostring(text))
  694.     lbl.TextScaled = true
  695.     lbl.TextWrapped = false
  696.     lbl.Font = "SourceSansBold"
  697.     lbl.FontSize="Size24"
  698.    
  699.     local pl=Instance.new'PointLight'
  700.     pl.Parent=tab
  701.     pl.Color=ncolor.Color--Color3.new(1,1,1)
  702.    
  703.     lbl.TextColor3 = ncolor.Color--Color3.new(1,1,1)
  704.     lbl.BackgroundTransparency = 1
  705.     lbl.ZIndex = 10
  706.     if skipanim then tab.Size=t.size else
  707.         delay(0,function()
  708.             for i=0,1,.2 do
  709.                 wait'1/44'
  710.                 tab.Size=mysize*i
  711.             end
  712.             tab.Size=mysize
  713.         end)
  714.     end
  715.     if delayt~=0 then
  716.         delay(delayt,function()
  717.             if tab then
  718.                 rem(tab)
  719.             end;
  720.         end)
  721.     end
  722.    
  723.     sb.Color=(ncolor)
  724.     sb.Transparency=.7
  725.     sb.Adornee=tab
  726.    
  727.     cd.MaxActivationDistance=math.huge
  728.    
  729.         cd.MouseHoverEnter:connect(function(plrn)
  730.             if plrn.Name==plr then
  731.                 --for i=1,1.5,.25 do
  732.                  --   wait'1/44'
  733.                  --   tab.Size=t.size*i
  734.                 --end
  735.                 tab.Transparency=0
  736.                 tab.Size=mysize*1.5
  737.             end
  738.         end)
  739.        
  740.         cd.MouseHoverLeave:connect(function(plrn)
  741.             if plrn.Name==plr then
  742.                 --tab.Size=t.size
  743.                 --repeat wait()until (tab.Size-t.size*1.5).magnitude<.1 and tab.Name~='x'
  744.                 --for i=1.5,1,-.25 do
  745.                   --  wait'1/44'
  746.                   --  tab.Size=t.size*i
  747.                 --end
  748.                 tab.Size=mysize
  749.                 tab.Transparency=t.trans
  750.             end
  751.         end)
  752.         local pressed=false
  753.         cd.MouseClick:connect(function(clicker)
  754.             if clicker.Name==plr then
  755.                 if fn~='' and tab.Name~='x'and fn~=nil and pressed==false then
  756.                     fn(tab)pressed=true
  757.                 end
  758.                 if fne=='dmself'then
  759.                     rem(tab)
  760.                 end
  761.             end
  762.         end)
  763.    
  764.    
  765.     table.insert(tabs[plr],tab)
  766.     --end)
  767. end
  768.  
  769. --game:service'Lighting'.Outlines=false
  770.  
  771.  
  772.  
  773. _dmtab=function(player)
  774.     local plr=_plr(player)
  775.     _tab('Dismiss','Really red',plr,
  776.     function()
  777.         dmp(player)
  778.     end)
  779. end
  780.  
  781. hasPermission=function(player,command)
  782.     local plrz=_plr(player)
  783.     local plr=getrank(plrz.Name)
  784.     local cmd=command;
  785.     if type(command)=='table'then cmd=command.PERM;end;
  786.     if not plr then return false;end;
  787.     if plr>=cmd then return true;end;
  788.     return false;
  789. end
  790.  
  791. alert={}
  792.  
  793. alert.g=function(txt,g)
  794.     for i,v in pairs(getAllWithPerm(g))do
  795.         _tab(tostring(txt),c.white,v,'','dmself',4)
  796.     end
  797. end
  798.  
  799. alert.p=function(txt,p)
  800.     local p=_plr(p)
  801.     if p then
  802.         _tab(txt,c.white,p,'','dmself',3)
  803.     end
  804. end
  805.  
  806. alert.c=function(txt,col,plr,t)
  807.     if t==nil then t=0 end
  808.     if not txt or not col or not plr then return end
  809.     local plr=_plr(plr)if plr==nil then return end
  810.     _tab(txt,col,plr,'','dmself',t)
  811. end
  812.  
  813. aliasof=function(tbl,base)
  814.     for i,v in pairs(tbl)do
  815.         if v:lower()==base:lower()then
  816.             return true
  817.         end
  818.     end
  819.     return false
  820. end
  821.  
  822.  
  823.  
  824.  
  825.  
  826.  
  827.  
  828. getbase=function(msg)
  829.     msg=msg
  830.     local s=msg:find(split)
  831.     if s~=nil then
  832.         return msg:sub(0,s-1),s
  833.     end
  834.     return msg,(string.len(msg)+1)
  835. end
  836.  
  837. getargb=function(msg)
  838.     if msg~=nil then
  839.     if msg:sub(1,1):lower()==split then
  840.         local a,b=getbase(msg:sub(2))
  841.         --print(a)
  842.         --print(b)
  843.         return a,b
  844.     end
  845.     end
  846.     return '',0
  847. end
  848.  
  849.  
  850.  
  851. matchtblv=function(tbl,key)
  852.     local found={}
  853.     pcall(function()
  854.     for i,v in pairs(tbl)do
  855.         if v:lower():find(key:lower())~=nil then
  856.             table.insert(found,v)
  857.         end
  858.     end;end)
  859.     return found
  860. end
  861.  
  862. changerank=function(plr,speaker)
  863.     local plrc=_plr(plr)
  864.     if plrc then plr = plrc.Name end
  865.     local speaker=speaker
  866.     if (getrank(plr)>=getrank(speaker))then return end
  867.     if getrank(plr)==5 then return end
  868.     _dmtab(speaker)
  869.     _tab('changing rank of '..plr,n,speaker)
  870.     local nmddd=0
  871.     for nmddd=-1,5 do
  872.         if nmddd>=getrank(speaker)and not getrank(speaker)==5 then else
  873.             _tab(nmddd,c.snd,speaker,
  874.             function()
  875.                 setrank(plr,nmddd)
  876.                 dmp(speaker)
  877.                 if nmddd==-1 or nmdd==0 and pri then
  878.                     Kick(plrc)
  879.                 else
  880.                     alert.p(plr..' is now rank '..tostring(nmddd),speaker)
  881.                     if plrc then
  882.                     alert.p('you are now rank '..tostring(nmddd),plrc)end
  883.                 end
  884.             end)
  885.         end
  886.     end
  887. end
  888.  
  889. matchtbli=function(tbl,key)
  890.     local found={}
  891.     for i,v in pairs(tbl)do
  892.         if tostring(i):lower():find(key:lower())~=nil then
  893.             table.insert(found,i)
  894.         end
  895.     end
  896.     return found
  897. end
  898. plrfunc=function(plr,speaker)
  899.     dmp(speaker)
  900.     _dmtab(speaker)
  901.     local pss=ps.color(plr)
  902.     _tab('Back','Teal',speaker,function()plrmen(plr,speaker)end)
  903.     if plr~=speaker and getrank(speaker)>getrank(plr) and getrank(speaker)>=4 then
  904.         _tab('kick',pss,speaker,function()Kick(plr)end)
  905.         if datastores then
  906.             _tab('ban',pss,speaker,function()table.insert(banlist,plr.Name)setrank(plr.Name,-1)Kick(plr)end)
  907.         end
  908.     end
  909.     if getrank(speaker)>=3 then
  910.         _tab('god',pss,speaker,function()pcall(function()plr.Character.Humanoid.MaxHealth=math.huge;end)end)
  911.         _tab('kill',pss,speaker,function()pcall(function()plr.Character.Head:remove()plr.Character.Humanoid.Health=0;end)end)
  912.     end
  913. end
  914.  
  915. function rainbow(hue)
  916.     local section = hue % 1 * 3
  917.     local secondary = 0.5 * math.pi * (section % 1)
  918.     if section < 1 then
  919.         return 1, 1 - math.cos(secondary), 1 - math.sin(secondary)
  920.     elseif section < 2 then
  921.         return 1 - math.sin(secondary), 1, 1 - math.cos(secondary)
  922.     else
  923.         return 1 - math.cos(secondary), 1 - math.sin(secondary), 1
  924.     end
  925. end
  926.  
  927. wavemenu=function(plr,speaker)
  928.     dmp(speaker)
  929.     local pc=ps.color(plr)
  930.     _tab('Enable',c.green,speaker,
  931.     function(tabc)
  932.         local e=ds.get(plr)
  933.         ds.set(plr,'wave',true)
  934.         e[4]=true
  935.     end)
  936.     _tab('Disable',c.red,speaker,
  937.     function(tabc)
  938.         local e=ds.get(plr)
  939.         ds.set(plr,'wave',false)
  940.         e[4]=false
  941.     end)
  942. end
  943.  
  944. rotmenu=function(plr,speaker)
  945.     dmp(speaker)
  946.     pc=ps.color(plr)
  947.     _tab('Layered',pc,speaker,function()
  948.         dmp(speaker)
  949.         _tab('Layered flat',pc,speaker,
  950.         function(tabc)
  951.             dmp(speaker)
  952.             ds.set(plr,'rot','lf')
  953.             ds.set(plr,'shape','cube')
  954.         end)
  955.         _tab('Layered rand',pc,speaker,
  956.         function(tabc)
  957.             dmp(speaker)
  958.             ds.set(plr,'rot','lrand')
  959.             ds.set(plr,'shape','cube')
  960.         end)
  961.     end)
  962.     _tab('Circle',pc,speaker,function()
  963.         dmp(speaker)
  964.         _tab('Circle rand',pc,speaker,
  965.         function(tabc)
  966.             dmp(speaker)
  967.             ds.set(plr,'rot','circlerand')
  968.             ds.set(plr,'shape','cube')
  969.            
  970.         end)
  971.         _tab('Circle flat',pc,speaker,
  972.         function(tabc)
  973.             --local e=ds.get(plr)
  974.             dmp(speaker)
  975.             ds.set(plr,'rot','circleflat')
  976.             ds.set(plr,'shape','cube')
  977.             --e[6]='circleflat'
  978.         end)
  979.         _tab('Flat tab',pc,speaker,
  980.         function(tabc)
  981.             --local e=ds.get(plr)\
  982.             dmp(speaker)
  983.             ds.set(plr,'rot','flattab')
  984.             ds.set(plr,'shape','flat')
  985.         end)
  986.     end)
  987. end
  988.  
  989. neonmenu=function(plr,speaker)
  990.     local plrc=_plr(plr)if plrc then plr = plrc.Name end
  991.     local pc=ps.color(speaker)
  992.     dmp(speaker)
  993.     _tab('Neon on',pc,speaker,function()
  994.         dmp(speaker)
  995.         alert.c(speaker~=plr and plr..'\'s neon enabled' or plr..'Neon enabled',pc,speaker)
  996.         ds.set(plr,'neon',true)
  997.     end)
  998.    
  999.     _tab('Neon off',pc,speaker,function()
  1000.         dmp(speaker)
  1001.         alert.c(speaker~=plr and plr..'\'s neon disabled' or plr..'Neon disabled',pc,speaker)
  1002.         ds.set(plr,'neon',false)
  1003.     end)
  1004. end
  1005. configtab=function(plr,speaker)
  1006.     local plrc=_plr(plr)if plrc then plr = plrc.Name end
  1007.     if getrank(speaker.Name)>getrank(plr) and getrank(speaker.Name)>3 or plrc==speaker then
  1008.         if plr~=speaker and getrank(speaker)>=4 and plrc then
  1009.                 _tab('actions','Lime green',speaker,function()plrfunc(plrc,speaker)end)
  1010.         end
  1011.         local pc=ps.color(plr)
  1012.         _tab('Player Configuration','New Yeller',speaker,
  1013.         function(tab)
  1014.             rem(tab)
  1015.             if plr~=speaker and getrank(speaker)>getrank(plr) and getrank(speaker)>=4 or plr==speaker and getrank(speaker)>=3 then
  1016.                 _tab('Set rank',rank[getrank(plr)],speaker,function()dmp(speaker)changerank(plr,speaker)end)
  1017.             end
  1018.             _tab('Set wave',pc,speaker,
  1019.             function(tab2)
  1020.                 wavemenu(plr,speaker)
  1021.                 _tab('Back','Teal',speaker,function()plrmen(plr,speaker)end)
  1022.             end)
  1023.             _tab('Set rot',pc,speaker,
  1024.             function(tab2)
  1025.                 rotmenu(plr,speaker)
  1026.                 _tab('Back','Teal',speaker,function()plrmen(plr,speaker)end)
  1027.             end)
  1028.             _tab('Set color',pc,speaker,
  1029.             function()
  1030.                 dmp(speaker)
  1031.                 _tab('Back','Teal',speaker,function()plrmen(plr,speaker)end)
  1032.                 _tab('Select a color',pc,speaker)
  1033.                 for i,v in pairs(colors)do
  1034.                     _tab('['..v..']',v,speaker,
  1035.                     function()
  1036.                     local e=ds.get(plr)
  1037.                     e[4]=v
  1038.                     ds.set(plr,'color',v)
  1039.                     alert.c('Your color is now '..v,v,plrc)
  1040.                     if plrc~=speaker then
  1041.                         alert.c('You set '..tostring(plr)..'\'s color to '..v,ps.color(speaker),speaker)
  1042.                     end
  1043.                     plrmen(plr,speaker)end)
  1044.                 end
  1045.                
  1046.             end)
  1047.             _tab('Set Neon',pc,speaker,
  1048.             function()
  1049.                 neonmenu(plr,speaker)
  1050.             end)
  1051.         end)
  1052.        
  1053.     end
  1054. end
  1055.  
  1056. plrmen=function(plr,speaker,ccc)
  1057.     dmp(speaker)
  1058.     _dmtab(speaker)
  1059.     --ct('Back','Teal',ccc,speaker)
  1060.     local plrc=_plr(plr)
  1061.     if plrc==nil then else plr=plrc.Name end
  1062.     local pc=ps.color(plr)
  1063.     _tab(plr,n,speaker)
  1064.     local v=ds.prof(plr)
  1065.     _tab('Rank:\n'..getrank(plr),pc,speaker)
  1066.     if v then
  1067.     _tab('Reason:\n'..v[3],pc,speaker)
  1068.     _tab('Color:\n'..v[5],v[5],speaker)
  1069.     _tab('Wave:\n'..tostring(ps.wave(v[1])),v[5],speaker)
  1070.     end
  1071.     if plrc then _tab('age:\n'..tostring(plrc.AccountAge),pc,speaker)end
  1072.     _tab('color:\n'..ps.color(plr),pc,speaker)
  1073.     local nr=ds.default(ds.prof(plr))nr=not nr
  1074.     _tab('stored in users:\n'..str.firstc(tostring(nr)),pc,speaker)
  1075.     configtab(plrc,speaker)
  1076.    
  1077.    
  1078.    
  1079.    
  1080. end
  1081.  
  1082. assettype=function(id)
  1083.     local i=game:GetService("MarketplaceService"):GetProductInfo(tonumber(id))
  1084.     return i.AssetTypeId
  1085. end
  1086. plrinfo=function(plr,speaker)
  1087.     plr=_plr(plr)
  1088.     dmp(speaker)
  1089.     _dmtab(speaker)
  1090.    
  1091. end
  1092.  
  1093. getAllArgs=function(str)
  1094.     local found={}
  1095.     local runw=true
  1096.     while runw do
  1097.         local arg,ends=getargb(str)
  1098.         --print(ends)
  1099.         if arg~='' and ends~=0 then
  1100.             table.insert(found,arg)
  1101.             str=str:sub(ends+1)
  1102.         else
  1103.             runw=false
  1104.         end
  1105.     end
  1106.     if found~={}then
  1107.     return found end
  1108. end
  1109.  
  1110. songmenu=function(n,speaker)
  1111.     dmp(speaker)
  1112.    
  1113.     if type(n)==type('hi')then
  1114.         n=music[n][1]
  1115.     end if not n then return end
  1116.     _dmtab(speaker)
  1117.     local i=game:GetService("MarketplaceService"):GetProductInfo(tonumber(n))
  1118.     name=i.Name
  1119.     t.t("Name: "..i.Name, "Hot pink",speaker)
  1120.     t.t("Sales: "..i.Sales, "New Yeller",speaker)
  1121.     t.t("Id: "..i.AssetId,'Deep orange',speaker)
  1122.     local inlib=false
  1123.     for i,v in pairs(music)do
  1124.         if v[1]==i.AssetId then
  1125.             music[i]=nil inlib=true
  1126.         end
  1127.     end
  1128.     if inlib then music[i.Name]={i.AssetId,'Downloaded'}end
  1129.     _tab("Play sound", 'Lime green',speaker,
  1130.     function()
  1131.         dmp(speaker)
  1132.         chat("sm'deep",speaker)
  1133.         m.play(nil,true)
  1134.         m.play(tonumber(i.AssetId))
  1135.         alert.c('now playing:\n'..i.Name,'Lime green',speaker,3)
  1136.     end)
  1137.     if (getrank(speaker.Name)<4) then return end            
  1138.     if music[i.Name]then
  1139.         _tab("Remove from library",'Bright red',speaker,
  1140.         function()
  1141.             local mz=m.getlib()
  1142.             mz[i.Name]=nil
  1143.             m.setlib(mz)
  1144.             alert.c('Removed song','Really red',speaker,4)
  1145.         end,'dmself')
  1146.     else
  1147.         _tab("Add to library",'Teal',speaker,
  1148.         function()
  1149.             m.addsong(i.Name,tonumber(i.AssetId),'Downloaded')
  1150.             music[i.Name]={i.AssetId,'Downloaded'}
  1151.             alert.c('Added song','Teal',speaker,4)
  1152.         end,'dmself')
  1153.     end
  1154. end
  1155.  
  1156. genrelist=function(speaker,genreq)
  1157.     local genres={}
  1158.     for i,v in pairs(music)do
  1159.         if v[2]~=nil then
  1160.             local g=v[2]:lower()
  1161.             g=g:sub(1,1):upper()..g:sub(2)
  1162.             if not genres[g]then genres[g]={}end
  1163.             table.insert(genres[g],i)
  1164.         else
  1165.             if not genres['Uncategorized']then genres['Uncategorized']={}end
  1166.             table.insert(genres['Uncategorized'],i)
  1167.         end
  1168.     end
  1169.     _dmtab(speaker)
  1170.     if genreq == nil then
  1171.         for i,v in pairs(genres)do--name , table of names
  1172.             local g=genres[i]--table of stuff
  1173.             if i=='Downloaded'and #v==0 then else
  1174.                 local ccc=c.purple
  1175.                 if i=='Downloaded'then
  1176.                     ccc='Lime green'
  1177.                 end
  1178.                 _tab(i..' ['..#g..']',ccc,speaker,
  1179.                 function()
  1180.                     dmp(speaker)
  1181.                     _dmtab(speaker)
  1182.                     _tab('['..i..']',c.purple,speaker)
  1183.                     for k,z in pairs(g)do
  1184.                         songmenu(z,speaker)
  1185.                     end
  1186.                 end)
  1187.             end
  1188.         end
  1189.     else
  1190.         if genres[genreq]~=nil then
  1191.             local req=genres[genreq]
  1192.             local ccc=c.purple
  1193.             if i=='Downloaded'then
  1194.                 ccc='Lime green'
  1195.             end
  1196.             for k,z in pairs(req)do
  1197.                 songmenu(z,speaker)
  1198.             end
  1199.         end
  1200.     end
  1201. end
  1202. t.t=function(text,color,player,t)
  1203.     t=t or 0
  1204.     if not text or not color or not player then return end
  1205.     local plr=_plr(player)
  1206.     _tab(text,color,plr,'','',t)
  1207. end
  1208.  
  1209. settime=function(t)
  1210.     game:service'Lighting'.TimeOfDay=t
  1211. end
  1212.  
  1213. ct=function(txt,color,chatm,plr,flag)
  1214.     _tab(txt,color,plr,function()chat(chatm,plr)end,flag)
  1215. end
  1216.  
  1217. iscmd=function(str)
  1218.     for i,v in pairs(cmds)do
  1219.         if v.NAME:lower()==str:lower() or aliasof((c.ALIAS or {}),str)then return v end
  1220.     end
  1221. end
  1222. chat=function(msg,plr)--obj
  1223.     if not enabled then return end
  1224.     local iscmd=false
  1225.     logs.cwrite(plr.Name..': '..msg)
  1226.     if msg:sub(1,3)=='/e 'then msg=msg:sub(4)iscmd=true end
  1227.     if msg:sub(1,string.len(getbet()))==getbet() then msg=msg:sub((string.len(getbet()))+1)iscmd=true end
  1228.     if not iscmd then return end
  1229.     local base,ends=getbase(msg)
  1230.     logs.cwrite(plr.Name..': '..msg)
  1231.     local cmd=nil;
  1232.     local test=playertimes[plr.Name]
  1233.     if not test then playertimes[plr.Name]=tick()end
  1234.    
  1235.     if tick()-playertimes[plr.Name]<.4 then return end
  1236.     playertimes[plr.Name]=tick()
  1237.     if base then
  1238.         for i,c in pairs(cmds)do
  1239.             if c.NAME:lower()==base:lower() or aliasof(c.ALIAS,base)then
  1240.                 local cmd=c;
  1241.                 local arg=getAllArgs(msg:sub(ends))
  1242.                 local rc=ps.islocked(c.NAME,plr)
  1243.                 if hasPermission(plr,c.PERM)and not rc then
  1244.                     --print(arg[1])
  1245.                     local run,error=ypcall(function()
  1246.                         c.FUNC(plr,arg,msg)
  1247.                     end)
  1248.                     if not run then dmp(plr)alert.c('Error','White',plr)alert.c(error,'Really red',plr) end
  1249.                 elseif rc then
  1250.                     alert.c('This command has been locked for you!','Really red',plr)
  1251.                 else
  1252.                     alert.c('You do not have permission for that command! ['..c.PERM..']','Really red',plr)
  1253.                 end
  1254.             end
  1255.         end
  1256.     end
  1257. end
  1258.  
  1259. addcmd=function(name,desc,permission,args,fn,aliases)
  1260.  
  1261. --COMMAND NAME
  1262.  
  1263. --COMMAND DESCRIPTION
  1264.  
  1265. --MINIMUM PERMISSION LEVEL
  1266.  
  1267. --ARGS
  1268.  
  1269. --FUNCTION (SPEAKER, ARGS)
  1270.  
  1271. --ALIAS TABLE (OPTIONAL)
  1272.  
  1273. aliases=aliases or {}
  1274.  
  1275. table.insert(cmds,{
  1276. NAME  =name;
  1277. DESC  =desc;
  1278. PERM  =permission;
  1279. ARGS  =args;
  1280. FUNC  =fn;
  1281. ALIAS =aliases;
  1282. })
  1283. end
  1284.  
  1285. runas=function(msg,plr)
  1286.     chat(msg,plr)
  1287. end
  1288.  
  1289.  
  1290. cmdmenu=function(v,speaker)
  1291.     _tab((v.NAME),ps.color(speaker),speaker,
  1292.     function()
  1293.         dmp(speaker)
  1294.         _dmtab(speaker)
  1295.         t.t(v.NAME,c.cmdc,speaker)
  1296.        
  1297.         local pc=c.red
  1298.         local ps='You can\'t use this'
  1299.        
  1300.         local r=getrank(speaker)
  1301.        
  1302.         if r>=v.PERM then pc=c.green ps='You can use this!'end
  1303.         t.t('Permission: '..v.PERM,c.white,speaker)
  1304.         t.t(ps,pc,speaker)
  1305.         t.t(v.DESC,c.white,speaker)
  1306.         if v.ALIAS[1]~=nil then
  1307.             _tab('Aliases: '..list(v.ALIAS),c.white,speaker)
  1308.         end
  1309.        
  1310.     end)
  1311. end
  1312.  
  1313. getCommandsWithPerm=function(num)
  1314.     local found={}
  1315.     for i,v in pairs(cmds)do
  1316.         if v.PERM<=num then
  1317.             table.insert(found,v)
  1318.         end
  1319.     end
  1320.     return found
  1321. end
  1322.  
  1323. addcmd('cmds','show commands',0,1,
  1324. function(speaker,a,o)
  1325.     dmp(speaker)
  1326.     local r=getrank(speaker)
  1327.     local s=speaker
  1328.     local pc=ps.color(speaker)
  1329.     _dmtab(speaker)
  1330.     _tab('Your rank: '..r,pc,speaker,
  1331.     function()
  1332.         dmp(speaker)
  1333.         local z=getCommandsWithPerm(getrank(speaker))
  1334.         _dmtab(speaker)
  1335.         ct('Go back','Teal','cmds',speaker)
  1336.         for i,v in pairs(z)do
  1337.             cmdmenu(v,speaker)
  1338.         end
  1339.     end)
  1340.    
  1341.     for i=0,5 do
  1342.         _tab(i..' ['..(rank[i] or 'guest')..']',pc,speaker,
  1343.         function()
  1344.             dmp(speaker)
  1345.             _dmtab(speaker)
  1346.             local z=getCommandsWithPerm(i)
  1347.             ct('Go back','Teal','cmds',speaker)
  1348.             for i,v in pairs(z)do
  1349.                 cmdmenu(v,speaker)
  1350.             end
  1351.         end)
  1352.     end
  1353.     _tab('View all',pc,speaker,
  1354.     function()
  1355.         dmp(speaker)
  1356.         _dmtab(speaker)
  1357.         local z=getCommandsWithPerm(10)
  1358.         ct('Go back','Teal','cmds',speaker)
  1359.         for i,v in pairs(z)do
  1360.             cmdmenu(v,speaker)
  1361.         end
  1362.     end)
  1363. end,{'commands'})
  1364.  
  1365. addcmd('ping','output with text\nargs: text to display',0,1,
  1366. function(speaker,args)
  1367.     if args[1]~=nil and args[2]~=nil and getrank(speaker)>2 and tonumber(args[1]) then
  1368.         for i=1,tonumber(args[1])do
  1369.             alert.c(args[2]or 'pong',c.white,speaker)
  1370.         end
  1371.         return
  1372.     elseif args[2]~=nil and getrank(speaker)>=2 and _match(args[1],speaker)~={} then
  1373.         local plr=_match(args[1],speaker)
  1374.         table.foreach(plr,function(k,v)
  1375.         alert.c(args[2] or 'pong!',c.white,_plr(v))end)
  1376.    
  1377.     else
  1378.     alert.c(args[1] or 'pong!',c.white,speaker)
  1379.     end
  1380. end,
  1381. {'print','out'})
  1382.  
  1383. addcmd('removesongs','mass library editing',5,0,
  1384. function(speaker,args)
  1385.     --print(args[2])
  1386.     for i,v in pairs(music)do
  1387.         _tab(i,c.red,speaker,function(tablet)rem(tablet)music[i]=nil;end)
  1388.     end
  1389.     _tab('save','Lime green',speaker,function()m.setlib(music)dmp(speaker)alert.c('music library rewritten','White',speaker)end)
  1390. end,{})
  1391.  
  1392.  
  1393. addcmd('removeusers','mass user editing',5,0,
  1394. function(speaker,args)
  1395.     --print(args[2])
  1396.     for i,v in pairs(users)do
  1397.         _tab(v[1],'White',speaker,function(tablet)rem(tablet)table.remove(users,i);end)
  1398.     end
  1399.     _tab('save','Lime green',speaker,function()ds.save()dmp(speaker)alert.c('user library rewritten','White',speaker)end)
  1400. end,{})
  1401.  
  1402.  
  1403. addcmd('time','adjust time',4,0,
  1404. function(speaker,args)
  1405.     _dmtab(speaker)
  1406.     _tab('Midnight','Really black',speaker,function()settime(0)dmp(speaker)end)
  1407.     _tab('Morning','White',speaker,function()settime(6)dmp(speaker)end)
  1408.     _tab('Noon','White',speaker,function()settime(12)dmp(speaker)end)
  1409.     _tab('Evening','Really black',speaker,function()settime(18)dmp(speaker)end)
  1410. end,
  1411. {'timemenu'})
  1412.  
  1413.  
  1414. addcmd('dt','dismiss tabs\nargs: player',0,1,
  1415. function(speaker,args)
  1416.     if args[1]and hasPermission(speaker,{PERM=4})then
  1417.         local fplrs=_match(args[1],speaker)
  1418.         table.foreach(fplrs,function(ki,vi)dmp(_plr(vi))end)
  1419.     else
  1420.         dmp(speaker)
  1421.     end
  1422. end,
  1423. {'dismiss','dm'})
  1424.  
  1425. addcmd('music','show music list',3,1,--todo id
  1426. function(speaker,args)
  1427.     dmp(speaker)
  1428.     local r=getrank(speaker)
  1429.     if args[1]==nil then
  1430.         if r>=3 then
  1431.             _dmtab(speaker)
  1432.             --alert.p(tostring(args[1]),speaker)
  1433.             for i,v in pairs(music)do --id,genre
  1434.                 _tab(i,'Lime green',speaker,
  1435.                 function()
  1436.                     songmenu(v[1],speaker)
  1437.                 end)
  1438.             end
  1439.         end
  1440.     elseif inTable({'stop','sm'},args[1]:lower())and r>=3 then
  1441.         chat("stopmusic"..split..'deep',speaker)
  1442.     elseif args[1]:lower()=='id'and args[2]~=nil then
  1443.         if not tonumber(args[2])then return end
  1444.         songmenu(tonumber(args[2]),speaker)
  1445.     elseif args[1]~=nil and r>=3 then
  1446.         if tonumber(args[1])~=nil then
  1447.             _tab('ID','Hot pink',speaker,function()
  1448.                 songmenu(tonumber(args[1]),speaker)
  1449.             end)
  1450.         end
  1451.         _dmtab(speaker)
  1452.         t.t('showing results for:\n'..args[1],'White',speaker)
  1453.         local rzzz=matchtbli(music,tostring(args[1]))
  1454.         local mz=m.getlib()
  1455.         for kn,zn in pairs(rzzz)do
  1456.            
  1457.             if mz[zn]==nil then
  1458.                 local s=music[zn]
  1459.                 _tab(zn,c.snd,speaker,
  1460.                 function()
  1461.                     dmp(speaker)
  1462.                     m.play(s[1])
  1463.                     alert.c('now playing:\n'..zn,'Lime green',speaker,3)
  1464.                 end,'',3)
  1465.             end
  1466.         end
  1467.        
  1468.         local searchterm=args[1]
  1469.         http=game:GetService'HttpService'
  1470.         local url="http://roproxy.tk/catalog/json?Keyword="..http:UrlEncode(searchterm).."&Category=9&ResultsPerPage=20"
  1471.         local assets=http:JSONDecode(http:GetAsync(url))
  1472.         if #assets==0 then alert.p('no results!',speaker)return else
  1473.        
  1474.        
  1475.         for i,v in pairs(assets)do
  1476.             wait()
  1477.             local cddd='New Yeller'
  1478.             local songcheck=m.getlib()
  1479.             if songcheck[v.Name]~=nil then
  1480.                 cddd='Lime green'
  1481.             end
  1482.             _tab(v.Name,cddd,speaker,function()
  1483.                 songmenu(v.AssetId,speaker)
  1484.                
  1485.                
  1486.             end)
  1487.         end
  1488.         end
  1489.     --[[elseif args[1]~=nil and args[2]~=nil then
  1490.         if inTable({'l','lib','ls','slib'},args[1]:lower())then
  1491.             local r=matchtbli(music,args[2])
  1492.             for k,z in pairs(r)do
  1493.                 local s=music[z]
  1494.                 _tab(z,c.snd,
  1495.                 function()
  1496.                     dmp(speaker)
  1497.                     m.play(s[1])
  1498.                     alert.p('now playing: '..z,speaker)
  1499.                 end,speaker,3)
  1500.             end
  1501.         end]]
  1502.     end
  1503. end,
  1504. {'snd','snds'})
  1505.  
  1506.  
  1507.  
  1508. addcmd('stopmusic','stops music / args: deep',3,1,
  1509. function(speaker,args)
  1510.     if ALUSND then
  1511.     if ALUSND.Parent~=nil then
  1512.         ALUSND:Stop()
  1513.         ALUSND:remove()
  1514.     end
  1515.     end
  1516.     local g=''
  1517.     if args[1]~=nil then
  1518.         if type(args[1])=='string'then g=args[1]:lower() end
  1519.     end
  1520.     if g=='true'or g=='deep'then
  1521.         m.stopmusic(workspace,true)
  1522.     elseif g=='o'or g=='others'then--team
  1523.         m.stopmusico(workspace,true)
  1524.     else
  1525.         m.play(nil,true)
  1526.     end
  1527.     if silentmode then return end
  1528.     for i,v in pairs(script.Parent:children'')do
  1529.         if v.ClassName~=nil then
  1530.             if v:IsA'Sound'then v:Stop()v:remove()end
  1531.         end
  1532.     end
  1533. end,
  1534. {'sm'})
  1535.  
  1536.  
  1537. addcmd('net','show connected players',0,0,
  1538. function(speaker,args)
  1539.     dmp(speaker)
  1540.     for i,v in pairs(plrs:GetPlayers())do
  1541.         --local cl=rank[getrank(v.Name)]
  1542.         local cl=ps.color(v.Name)
  1543.         if cl==nil then cl='White'end
  1544.         --if speaker==v then cl=c.snd end
  1545.         _tab(v.Name,cl,speaker,function()
  1546.             if getrank(speaker)>getrank(v) and getrank(speaker)>3 or speaker==v then
  1547.                 dmp(speaker)
  1548.                 local plr=v
  1549.                 plrmen(v,speaker,'net')
  1550.             end
  1551.         end)
  1552.     end
  1553. end,
  1554. {'plrs','players'})
  1555.  
  1556. addcmd('badtabs','show credits',0,0,
  1557. function(speaker)
  1558.     dmp(speaker)
  1559.    
  1560.     print('ALUREON INSTANCE',tostring(ver))
  1561.     alert.c('bad tablets v'..ver,'New Yeller',speaker)
  1562.     alert.c('your rank: '..getrank(speaker),'New Yeller',speaker)
  1563.     _tab('say cmds\' to get your commands','New Yeller',speaker,function()dmp(speaker)chat("cmds",speaker)end,'')
  1564.     alert.c('made by badfractions','New Yeller',speaker)
  1565. end,
  1566. {'cred'})
  1567.  
  1568. addcmd('dtall','dismiss all players tabs',4,0,
  1569. function()
  1570.     for i,v in pairs(tabs)do
  1571.         dmp(i)
  1572.     end
  1573. end,
  1574. {'dismissall'})
  1575.  
  1576. addcmd('save','saves the stuff',4,0,
  1577. function(speaker)
  1578.     ds.save()
  1579.     alert.c('saved the stuff','Lime green',speaker)
  1580. end)
  1581.  
  1582. addcmd('fixlighting','Fixes lighting properties',3,0,
  1583. function()
  1584.     local l=game:service'Lighting'
  1585.     l.Ambient=_rgb(178,178,178)
  1586.     l.Brightness=1
  1587.     l.Outlines=false
  1588.     l.TimeOfDay=14
  1589. end,
  1590. {'fixl'})
  1591.  
  1592. promptvote=function(v,q)
  1593.     _tab(q,c.snd,v,'','',10)
  1594.     _tab('Vote Yes',c.green,v,function()dmp(v)vote.y=vote.y+1;alert.p('Vote counted',v)end,'',10)
  1595.     _tab('Vote No','Really red',v,function()dmp(v)vote.n=vote.n+1;alert.p('Vote counted',v)end,'',10)
  1596.     _tab('No vote','White',v,function()dmp(v);end,'',10)
  1597. end
  1598.  
  1599. addcmd('vote','vote\nargs: plr/tp,(yn,k,b)',4,0,
  1600. function(speaker,args)
  1601.    
  1602.     if args[1]~=nil and args[2]~=nil then
  1603.         q=args[1]
  1604.         vote.y=0;
  1605.         vote.n=0;
  1606.         local plr=nil
  1607.     if args[2]:lower()=='k'then
  1608.             plr=_plr(q)
  1609.             if plr~=nil then
  1610.                 for i,v in pairs(plrs:getPlayers())do
  1611.                     promptvote(v,'Vote: Kick '..plr.Name..'?')
  1612.                     vote.topic='Kick '..plr.Name..'?'
  1613.                     action='k'
  1614.                 end
  1615.             end
  1616.     elseif args[2]:lower()=='b'then
  1617.             plr=_plr(q)
  1618.             if plr~=nil then
  1619.                 for i,v in pairs(plrs:getPlayers())do
  1620.                     promptvote(v,'Vote: Ban '..plr.Name..'?')
  1621.                     vote.topic='Ban '..plr.Name..'?'
  1622.                     action='b'
  1623.                 end
  1624.             end
  1625.        elseif args[2]:lower()=='yn'then
  1626.             for i,v in pairs(plrs:getPlayers())do
  1627.                 promptvote(v,'Vote: '..q)
  1628.                 vote.topic=q
  1629.             end
  1630.         end
  1631.     end
  1632.     if args[1] ==nil then return end
  1633.     if inTable({'view','results','check'},args[1]:lower()) then
  1634.         delay(0,function()
  1635.             if vote.topic~='' then
  1636.                 _dmtab(speaker)
  1637.                 _tab('Vote results',c.white,speaker)
  1638.                 _tab('Topic: '..vote.topic,'Bright blue',speaker)
  1639.                 _tab('YES: '..vote.y,c.green,speaker)
  1640.                 _tab('NO: '..vote.n,'Really red',speaker)
  1641.                 if 1+1==3 and vote.y>vote.n and inTable({'k','b'},action:lower())then
  1642.                     _tab('Vote succeeded. Click here to execute.','New Yeller',speaker,
  1643.                     function()
  1644.                         dmp(speaker)
  1645.                         local zz=action:lower()
  1646.                         if zz=='k'then
  1647.                             Kick(_plr(q))
  1648.                             t.c('Kicked player','Really red',speaker,4)
  1649.                         elseif zz=='b'then
  1650.                             setrank(v.Name,-1)
  1651.                             Kick(v)
  1652.                             t.c('Banned player','Really red',speaker,4)
  1653.                         end;
  1654.                     end)
  1655.                 end
  1656.             end
  1657.         end)
  1658.     end
  1659. end,
  1660. {'poll','ballot'})
  1661.  
  1662. addcmd('disabletabs','disables tabs',5,0,
  1663. function(speaker,args)
  1664.     _tab('click to confirm',c.purple,speaker,
  1665.     function()
  1666.         alert.p('saved all libraries',speaker)
  1667.         delay(4,disabletabs)
  1668.     end,'dmself',4)
  1669. end,
  1670. {'stop'})
  1671.  
  1672. addcmd('update','updates instance of tabs',5,0,
  1673. function(speaker,args)
  1674.     update=true
  1675.     alert.p('updating',speaker)
  1676.     delay(1,disabletabs)
  1677. end)
  1678.  
  1679. addcmd('shutdown','kills game',5,0,
  1680. function(speaker,args)
  1681.     for i,v in pairs(plrs:GetPlayers'')do
  1682.         Kick(v)
  1683.     end
  1684. end)
  1685.  
  1686. addcmd('newserver','creates new game server at id',5,1,
  1687. function(speaker,args)
  1688.     if args[1]~=nil then
  1689.         local x=nil
  1690.         if inTable({'place','here','this','game'},tostring(args[1]))then x=game.PlaceId end
  1691.         if x==nil then
  1692.             x=tonumber(args[1])
  1693.         end
  1694.         if x then
  1695.             alert.c('Created new server','Lime green',speaker)
  1696.             newserver(x)
  1697.            
  1698.         end
  1699.     else
  1700.         alert.c('Created new server','Lime green',speaker)
  1701.         newserver(game.PlaceId)
  1702.     end
  1703. end,
  1704. {'ns','createserver'})
  1705.  
  1706.  
  1707. addcmd('afk','go afk',0,0,
  1708. function(speaker,args)
  1709.     dmp(speaker)
  1710.     for i=1,5 do
  1711.         _tab(speaker.Name..' is afk','White',speaker,function()dmp(speaker)end)
  1712.     end
  1713. end,
  1714. {})
  1715.  
  1716.  
  1717. addcmd('db','change db_view',5,1,
  1718. function(speaker,args)
  1719.     if args[1]~=nil then
  1720.         if inTable({'true','grid'},args[1]:lower())then
  1721.             t.db_view='GRID'
  1722.         else
  1723.             t.db_view='PLR'
  1724.         end
  1725.     end
  1726.     return
  1727. end)
  1728.  
  1729. addcmd('rank','changes a players rank',5,3,
  1730. function(speaker,args)
  1731.     local plr
  1732.     local rank
  1733.     local reason
  1734.     if args[1]then plr=_plr(args[1])end
  1735.     if args[2]then rank=tonumber(args[2])end
  1736.     if args[3]then reason=args[3]else reason='None'end
  1737.     if plr and rank then
  1738.         ds.set(plr.Name,'rank',rank)
  1739.         ds.set(plr.Name,'reason',reason)
  1740.         alert.c('You are now rank '..rank,ps.color(plr.Name),plr)
  1741.         alert.c('You set '..plr.Name..'\'s rank to '..rank,ps.color(speaker.Name),speaker)
  1742.     end
  1743. end)
  1744. addcmd('ranked','shows all ranked players',2,0,
  1745. function(speaker,args)
  1746.     dmp(speaker)
  1747.     _dmtab(speaker)
  1748.     for i,v in pairs(users)do
  1749.         --print(list(v))
  1750.         local s=v[1]
  1751.         if v[2]==-1 then v[5]='Really black's=s..' (Banned)'end
  1752.         if type(v[1])==type('hi')then
  1753.             _tab(v[1],v[5],speaker,
  1754.             function()
  1755.                 dmp(speaker)
  1756.                 _dmtab(speaker)
  1757.                
  1758.                 plrmen(v[1],speaker,'ranked')
  1759.             end)
  1760.         end
  1761.     end
  1762. end)
  1763.  
  1764. addcmd('pri','opens pri options',5,0,
  1765. function(speaker,args)
  1766.     local sss='off'
  1767.     local pc=c.red
  1768.     if pri then sss='on';pc='Lime green' end
  1769.     dmp(speaker)
  1770.     _tab('pri is '..sss,pc,speaker)
  1771.     _tab((pri and '[DISABLE]') or '[ENABLE]',pri and 'Really red' or 'Lime green',speaker,function()
  1772.         dmp(speaker)
  1773.         pri=not pri
  1774.         if pri then
  1775.             for i,v in pairs(plrs:GetPlayers'')do
  1776.                 if getrank(v.Name)<1 then Kick(v)end
  1777.             end
  1778.         end
  1779.         alert.c('pri was '..(pri and 'enabled' or 'disabled'),c.white,speaker)
  1780.     end)
  1781. end)
  1782.  
  1783. addcmd('jump','makes player jump',3,1,function(speaker,args)
  1784.     local fplr=_match(args[1],speaker)
  1785.     for i,v in pairs(fplr)do
  1786.         safe.r(function()_plr(v).Character.Humanoid.Jump=true;end)
  1787.     end
  1788. end)
  1789.  
  1790. addcmd('rot','changes players rot style',1,1,function(speaker,args)
  1791.     local targ=speaker
  1792.    
  1793.     if args[1]~=nil then
  1794.         if _plr(targ)~=nil then targ=_plr(targ)end
  1795.     end
  1796.     rotmenu(targ,speaker)
  1797. end)
  1798.  
  1799. addcmd('sit','makes player sit',3,1,function(speaker,args)
  1800.     local fplr=_match(args[1],speaker)
  1801.     for i,v in pairs(fplr)do
  1802.         safe.r(function()_plr(v).Character.Humanoid.Sit=true;end)
  1803.     end
  1804. end)
  1805.  
  1806. addcmd('kill','makes player dead',3,1,function(speaker,args)
  1807.     local fplr=_match(args[1],speaker)
  1808.     for i,v in pairs(fplr)do
  1809.         safe.r(function()_plr(v).Character.Head:remove()end)
  1810.     end
  1811. end)
  1812.  
  1813. addcmd('fling','next plane to china',4,1,function(speaker,args)
  1814.     local fplr=_match(args[1],speaker)
  1815.     for i,v in pairs(fplr)do
  1816.         safe.r(function()_plr(v).Character.Humanoid.Sit=true;_plr(v).Character.Torso.Velocity=v3(4000,4000,4000)end)
  1817.     end
  1818. end)
  1819.  
  1820. addcmd('god','makes player godly',3,1,function(speaker,args)
  1821.     local fplr=_match(args[1],speaker)
  1822.     for i,v in pairs(fplr)do
  1823.         safe.r(function()_plr(v).Character.Humanoid.MaxHealth=math.huge;end)
  1824.     end
  1825. end)
  1826.  
  1827. addcmd('kick','makes player gone',4,1,function(speaker,args)
  1828.     local fplr=_match(args[1],speaker)
  1829.     for i,v in pairs(fplr)do
  1830.         safe.r(function()Kick(_plr(v));end)
  1831.     end
  1832. end)
  1833.  
  1834. addcmd('ban','makes player gone forever',5,2,function(speaker,args)
  1835.     local fplr=_plr(args[1])if not fplr then return end
  1836.     if getrank(fplr.Name)<getrank(speaker.Name)then
  1837.         if args[2]~=nil then ds.set(fplr,'reason',args[2])end
  1838.         safe.r(function()setrank(fplr,-1)Kick(_plr(fplr));end)
  1839.     end
  1840. end)
  1841.  
  1842. addcmd('menu','opens menu',4,1,function(speaker,args)
  1843.     dmp(speaker)
  1844.     local pc=ps.color(speaker)
  1845.     _tab('music','Lime green',speaker,function()
  1846.         chat('music',speaker)
  1847.     end)
  1848.     _tab('players','Bright blue',speaker,function()
  1849.         chat('net',speaker)
  1850.     end)
  1851.     _tab('logs','Bright yellow',speaker,function()
  1852.         chat('logs',speaker)
  1853.     end)
  1854.     _tab('settings',ps.color(speaker),speaker,function()
  1855.         dmp(speaker)
  1856.         _tab('rotation',pc,speaker,function()rotmenu(speaker,speaker)end)
  1857.         _tab('neon',pc,speaker,function()neonmenu(speaker,speaker)end)
  1858.     end)
  1859. end)
  1860.  
  1861. addcmd('silent','puts script in silent mode',5,0,
  1862. function()
  1863.     silentmode=true
  1864.     for i,v in pairs(plrs:GetPlayers'')do
  1865.         dmp(v)
  1866.     end
  1867.     script=nil
  1868.     logs.write'silent mode active'
  1869. end)
  1870.  
  1871. addcmd('set','sets plr attribute',5,3,
  1872. function(speaker,args)
  1873.     --plr att val
  1874.     if args[1]~=nil and args[2]~=nil and args[3]~=nil then
  1875.         local plr=_plr(args[1])
  1876.         if not plr then plr=args[1] else plr=plr.Name end
  1877.         local ind=tostring(args[2]):lower()
  1878.         local val=args[3]
  1879.         if plr and ind and inTable(ds.props,ind)then
  1880.             ds.set(plr,ind,val)
  1881.             alert.c('set '..plr..'\'s '..ind..' to '..tostring(val),'White',speaker,4)
  1882.         end
  1883.     end
  1884. end,
  1885. {'setr'})
  1886.  
  1887. addcmd('lcmd','sets locked for a player',5,2,
  1888. function(speaker,args)
  1889.    
  1890.     if args[1]~=nil and args[2]~=nil then
  1891.         dmp(speaker)
  1892.         local cplr=_plr(args[1])
  1893.         if not cplr then return end
  1894.         if iscmd(args[2])~=nil then
  1895.             local c=iscmd(args[2])
  1896.             if ps.islocked(c.NAME,cplr)then
  1897.                 _tab(c.NAME..' is LOCKED','Really red',speaker)
  1898.                 _tab('Click to unlock','Lime green',speaker,function()
  1899.                     for i,v in pairs(users)do
  1900.                         if v[1]==cplr.Name then
  1901.                             for o,b in pairs(v[7])do
  1902.                                 if b:lower()==c.NAME:lower()then table.remove(v[7],o) end
  1903.                             end
  1904.                         end
  1905.                     end
  1906.                     dmp(speaker)
  1907.                     alert.c(c.NAME..' was unlocked for '..cplr.Name,'White',speaker,4)
  1908.                 end)
  1909.             else
  1910.                 _tab(c.NAME..' is UNLOCKED','Lime green',speaker)
  1911.                 _tab('Click to lock','Really red',speaker,function()
  1912.                     safe.r(function()
  1913.                     table.insert(ds.prof(cplr.Name)[7],c.NAME)
  1914.                     end)
  1915.                     dmp(speaker)
  1916.                     alert.c(c.NAME..' was locked for '..cplr.Name,'White',speaker,4)
  1917.                 end)
  1918.             end
  1919.         elseif args[2]:lower()=='-list'then
  1920.             for i,v in pairs(ds.prof(cplr.Name)[7])do
  1921.                 _tab(v,'Really red',speaker,function()
  1922.                     chat("lcmd'"..cplr.Name.."'"..v,speaker)
  1923.                 end)
  1924.             end
  1925.         elseif args[2]:lower()=='-clear'then
  1926.             ds.prof(cplr.Name)[7]={}
  1927.         end
  1928.     end
  1929. end,
  1930. {'lockcmd','cmdlock','commandlock'})
  1931.  
  1932. addcmd('exe','executes a script',5,1,
  1933. function(speaker,args,orig)
  1934.     orig=orig:sub(5)
  1935.     local x=nil
  1936.     local success,error=ypcall(function()x={loadstring(orig)}end)
  1937.     local func,err=unpack(x);
  1938.     alert.c(func(),'White',speaker)
  1939.     if success then
  1940.         alert.c('Script ran successfully','Lime green',speaker)alert.c(error,'White',speaker)
  1941.     else
  1942.         alert.c(error,c.red,speaker)
  1943.     end
  1944. end)
  1945.  
  1946. addcmd('songrequest','request a song',0,1,
  1947. function(speaker,args)
  1948.     dmp(speaker)
  1949.     if args[1]~=nil then
  1950.         local idz=args[1]
  1951.         if not tonumber(idz)then alert.c('Please request a song ID!','Really red',speaker)return end
  1952.         if assettype(tonumber(idz))~=3 then alert.c('Please request a song ID!','Really red',speaker)return end
  1953.         local izz=game:GetService("MarketplaceService"):GetProductInfo(tonumber(idz))
  1954.         _tab("Request \""..izz.Name..'"?','New Yeller',speaker)
  1955.         _tab('Yes','Lime green',speaker,function()if inTable(songrequests, tonumber(idz))then dmp(speaker)alert.c('Song is already in request list!','Really red',speaker)else dmp(speaker)table.insert(songrequests,idz)alert.c('Song requested.','Lime green',speaker)end end)
  1956.         _tab('Cancel','Really red',speaker,function()dmp(speaker)end)
  1957.     end
  1958. end,{'requestsong','request'})
  1959.  
  1960. addcmd('requests','view song requests',3,0,
  1961. function(speaker,args)
  1962.     dmp(speaker)
  1963.     for i,v in pairs(songrequests)do
  1964.         local izz=game:GetService("MarketplaceService"):GetProductInfo(tonumber(v))
  1965.         _tab(izz.Name,'Lime green',speaker,
  1966.         function()
  1967.             dmp(speaker)
  1968.             songmenu(tonumber(v),speaker)
  1969.             _tab('Reject','Bright red',speaker,
  1970.             function()
  1971.                 songrequests[i]=nil
  1972.                 chat('requests',speaker)
  1973.             end)
  1974.         end)
  1975.     end
  1976. end)
  1977. addcmd('logs','view logs',4,0,
  1978. function(speaker)
  1979.     dmp(speaker)
  1980.     _tab('view system logs','New Yeller',speaker,function()
  1981.         dmp(speaker)
  1982.         _dmtab(speaker)
  1983.         table.foreach(logs.LOG,function(k,v)
  1984.             t.t(v,'White',speaker)
  1985.         end)
  1986.     end)
  1987.    
  1988.     _tab('view chat logs','Bright blue',speaker,function()
  1989.         dmp(speaker)
  1990.         _dmtab(speaker)
  1991.         table.foreach(logs.CLOG,function(k,v)
  1992.             t.t(v,'White',speaker)
  1993.         end)
  1994.     end)
  1995.     _tab('clear system logs','White',speaker,function(tablet)
  1996.         rem(tablet)
  1997.         t.t('system logs cleared','White',speaker)
  1998.     end)
  1999.     _tab('clear chat logs','White',speaker,function(tablet)
  2000.         rem(tablet)
  2001.         t.t('chat logs cleared','White',speaker)
  2002.     end)
  2003. end)
  2004.  
  2005. plrs.PlayerAdded:connect(function(plr)
  2006.     if not enabled or update then return end
  2007.     delay(0,function()repeat wait(1)until plr.Character
  2008.     if inTable(banlist,plr.Name)then
  2009.         Kick(plr)
  2010.         alert.g((plr.Name..' tried to join the game'),3)
  2011.         return
  2012.     end
  2013.     local xx=0
  2014.     if datastores then
  2015.         xx=getrank(plr.Name)
  2016.         if xx==-1 or pri and getrank(plr.Name)==0 then
  2017.             Kick(plr)
  2018.             --alert.g((plr.Name..' tried to join the game'),3)
  2019.             return
  2020.         end
  2021.        
  2022.     end
  2023.    
  2024.    
  2025.     delay(.5,function()
  2026.     alert.c('bad tablets v'..ver..' running','New Yeller',plr,4)
  2027.     alert.c('your rank: '..getrank(plr),'New Yeller',plr,4)
  2028.     _tab('say cmds\' to get your commands','New Yeller',plr,function()dmp(plr)chat("cmds",plr)end,'',4)
  2029.     alert.g((plr.Name..' connected'),4)
  2030.     end)end)
  2031.    
  2032.    
  2033.     updateevents()
  2034.  
  2035. end)
  2036.  
  2037. plrs.PlayerRemoving:connect(function(x)
  2038.     if enabled and not update then
  2039.     local xx=0;
  2040.     if datastores and x then
  2041.        
  2042.         xx=getrank(x.Name)
  2043.     end
  2044.     if xx==-1 then
  2045.    
  2046.     elseif pri and xx==0 then
  2047.     alert.g((x.Name..' attempted to join'),4)
  2048.     else
  2049.     alert.g((x.Name..' disconnected'),4)
  2050.     end
  2051.     updateevents()
  2052.     end
  2053. end)
  2054. startuptime=elapsedTime()
  2055. for i,plr in pairs(plrs:GetPlayers())do
  2056.    
  2057.     if tonumber(getrank(plr))>=5 then
  2058.     alert.c('bad tablets v'..ver..' running','New Yeller',plr,4)
  2059.     alert.c('took '..tostring(startuptime/1000)..' seconds to start','Lime green',plr,4)
  2060.     alert.c('your rank: '..getrank(plr),'New Yeller',plr,4)
  2061.     _tab('say cmds\' to get your commands','New Yeller',plr,function()dmp(plr)chat("cmds",plr)end,'',4)
  2062.     end
  2063.     if getrank(plr)==-1 or inTable(banlist,plr.Name)then Kick(plr) end
  2064. end
  2065.  
  2066.  
  2067. alert.g('youre an admin!',4)
  2068. updateevents()
  2069.  
  2070. local function QuaternionFromCFrame(cf)
  2071.     local mx, my, mz, m00, m01, m02, m10, m11, m12, m20, m21, m22 = cf:components();
  2072.     local trace = m00 + m11 + m22 if trace > 0 then
  2073.         local s = math.sqrt(1 + trace);
  2074.         local recip = 0.5/s;
  2075.         return (m21-m12)*recip, (m02-m20)*recip, (m10-m01)*recip, s*0.5;
  2076.     else
  2077.         local i = 0;
  2078.         if m11 > m00 then
  2079.             i = 1;
  2080.         end;
  2081.         if m22 > (i == 0 and m00 or m11) then
  2082.             i = 2 end if i == 0 then
  2083.             local s = math.sqrt(m00-m11-m22+1);
  2084.             local recip = 0.5/s return 0.5*s, (m10+m01)*recip, (m20+m02)*recip, (m21-m12)*recip;
  2085.         elseif i == 1 then
  2086.             local s = math.sqrt(m11-m22-m00+1);
  2087.             local recip = 0.5/s;
  2088.             return (m01+m10)*recip, 0.5*s, (m21+m12)*recip, (m02-m20)*recip ;
  2089.         elseif i == 2 then
  2090.             local s = math.sqrt(m22-m00-m11+1);
  2091.             local recip = 0.5/s;
  2092.             return (m02+m20)*recip, (m12+m21)*recip, 0.5*s, (m10-m01)*recip;
  2093.         end;
  2094.     end;
  2095. end;
  2096.  
  2097. local function QuaternionToCFrame(px, py, pz, x, y, z, w)
  2098.     local xs, ys, zs = x + x, y + y, z + z;
  2099.     local wx, wy, wz = w*xs, w*ys, w*zs;
  2100.     local xx = x*xs;
  2101.     local xy = x*ys;
  2102.     local xz = x*zs;
  2103.     local yy = y*ys;
  2104.     local yz = y*zs;
  2105.     local zz = z*zs;
  2106.     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))
  2107. end;
  2108.  
  2109. local function QuaternionSlerp(a, b, t)
  2110.     local cosTheta = a[1]*b[1] + a[2]*b[2] + a[3]*b[3] + a[4]*b[4];
  2111.     local startInterp, finishInterp;
  2112.     if cosTheta >= 0.0001 then
  2113.         if (1 - cosTheta) > 0.0001 then
  2114.             local theta = math.acos(cosTheta);
  2115.             local invSinTheta = 1/math.sin(theta);
  2116.             startInterp = math.sin((1-t)*theta)*invSinTheta;
  2117.             finishInterp = math.sin(t*theta)*invSinTheta;
  2118.         else
  2119.             startInterp = 1-t finishInterp = t;
  2120.         end;
  2121.     else
  2122.         if (1+cosTheta) > 0.0001 then
  2123.             local theta = math.acos(-cosTheta);
  2124.             local invSinTheta = 1/math.sin(theta);
  2125.             startInterp = math.sin((t-1)*theta)*invSinTheta;
  2126.             finishInterp = math.sin(t*theta)*invSinTheta;
  2127.         else startInterp = t-1 finishInterp = t;
  2128.         end;
  2129.     end;
  2130.     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;
  2131. end;
  2132.  
  2133. function CLerp(a,b,t)
  2134.     local qa={QuaternionFromCFrame(a)};
  2135.     local qb={QuaternionFromCFrame(b)};
  2136.     local ax,ay,az=a.x,a.y,a.z;
  2137.     local bx,by,bz=b.x,b.y,b.z;
  2138.     local _t=1-t;
  2139.     return QuaternionToCFrame(_t*ax+t*bx,_t*ay+t*by,_t*az+t*bz,QuaternionSlerp(qa, qb, t));
  2140. end
  2141.  
  2142.  
  2143.  
  2144.  
  2145.  
  2146. spawn(function()
  2147.     local rot = 0
  2148.     while enabled do
  2149.         rot = rot + .001
  2150.         for i,v in pairs(tabs)do
  2151.             if plrs:FindFirstChild(i)then else
  2152.                 for o,b in pairs(v)do
  2153.                     rem(b)
  2154.                 end
  2155.                 tabs[i]=nil
  2156.             end
  2157.         end
  2158.         for Index, Player in pairs(Players:GetPlayers()) do
  2159.             if not tabs[Player.Name]then tabs[Player.Name]={}end
  2160.             pcall(function()
  2161.                 for x = 1, #tabs[Player.Name] do
  2162.                     if tabs[Player.Name][x] == nil or tabs[Player.Name][x].Parent == nil or tabs[Player.Name][x].Name=='x' or tabs[Player.Name][x].Name == nil or plrs[Player.Name]==nil then
  2163.                         table.remove(tabs[Player.Name], x)
  2164.                     end
  2165.                 end
  2166.             end)
  2167.             local rotstylez=ds.get(Player.Name,'rot')
  2168.             local bt=0
  2169.             if datastores then if ps.wave(Player.Name)==true then bt=1 end end
  2170.            
  2171.            
  2172.             local tn=#tabs[Player.Name]
  2173.             if rotstylez:sub(1,1)=='l'then
  2174.                 for x = 1, #tabs[Player.Name] do--------------------------------------------------------------------------------* CFrame.Angles(0, math.rad(360 / #tabs[Player.Name])---------------------------------- * CFrame.new(-5 - (1.2 * #tabs[Player.Name]), math.sin(tick()), 0)
  2175.                     local tb=tabs[Player.Name][x]
  2176.                    
  2177.                     if Player.Character.Parent~=nil then if Player.Character:FindFirstChild'Torso' then
  2178.                         facet=6
  2179.                        
  2180.                         local cftp=CFrame.new(Player.Character.Torso.Position)
  2181.                         local ddr=((#tabs-(#tabs%facet))/facet)+(#tabs%facet)
  2182.                         local meg=x
  2183.                         repeat meg=meg-facet ddr=ddr+1 until meg<facet if meg>0 then ddr=ddr+1 end
  2184.                         local megic =CFrame.Angles(0,math.rad((360/facet)*(x%facet)+rot*600),0)
  2185.                         local tp=CFrame.new(Player.Character.Torso.Position+(megic.lookVector*ddr*6))
  2186.                         local mst=math.sin(tick())
  2187.                         local mct=math.cos(tick())
  2188.                         local rx = mst
  2189.                         local ry = mct
  2190.                         local rz = 0
  2191.                         if rotstylez=='lrand' then tp=tp*CFrame.Angles(rx,ry,rz)end
  2192.                         if tb.Name~='x'then
  2193.                             tb.CFrame = CLerp(tb.CFrame, tp , .25)
  2194.                         end
  2195.                     end;end
  2196.                 end
  2197.             else
  2198.                 for x = 1, tn do--------------------------------------------------------------------------------* CFrame.Angles(0, math.rad(360 / #tabs[Player.Name])---------------------------------- * CFrame.new(-5 - (1.2 * #tabs[Player.Name]), math.sin(tick()), 0)
  2199.                     if Player.Character then if Player.Character:FindFirstChild'Torso'~=nil then
  2200.                         local cftp=CFrame.new(Player.Character.Torso.Position)
  2201.                         local tb=tabs[Player.Name][x]
  2202.                         local radius=1.4*((tn)*.4)+4;
  2203.                         local rzz=(360/tn)*x
  2204.  
  2205.                        
  2206.                         local xp=math.cos(((x/tn)-tn*2)*2*math.pi)*radius
  2207.                         local yp = math.sin(tick()/math.pi+((x)*bt))
  2208.                         local zp=math.sin(((x/tn)-tn*2)*2*math.pi)*radius--(math.sin((x/tn-(tn)+rot)*math.pi*2)*radius)
  2209.                         local mst=math.sin(tick())
  2210.                         local mct=math.cos(tick())
  2211.                         local rx = mst
  2212.                         local ry = mct
  2213.                         local rz = 0
  2214.                         local tp=cftp*CFrame.Angles(0,rot,0)*(CFrame.new(xp,yp,zp):inverse())--:toWorldSpace(CFrame.new(xp,yp,zp):inverse())--*CFrame.Angles(math.pi/180*2,math.pi/180*2,math.pi/180*2);
  2215.                        
  2216.                         if rotstylez=='circlerand'then tp=tp*CFrame.Angles(rx,ry,0)end
  2217.                         if rotstylez=='flattab'then tp=tp*CFrame.Angles(0,-math.rad(rzz),0.4)end
  2218.                         if tb.Name~='x'then
  2219.                             tb.CFrame = CLerp(tb.CFrame, tp , .25)
  2220.                         else
  2221.                             tb.CFrame = CLerp(tb.CFrame, cftp , .25)
  2222.                         end
  2223.                     end;end
  2224.                 end
  2225.             end
  2226.         end
  2227.         wait()
  2228.     end    
  2229. end)
  2230.  
  2231. coroutine.wrap(
  2232. function()
  2233.     while wait(20)do
  2234.         ds.save()
  2235.         table.sort(music,
  2236.         function(a,b)
  2237.             if a[1]<b[1] then return false end
  2238.         end)
  2239.     end
  2240. end)()
  2241. --[[
  2242. end]]
  2243.  
  2244.  
  2245. --[[remmy=false
  2246. function removeothermusic()
  2247.     remmy=true
  2248.     while remmy do
  2249.         wait(2)
  2250.         m.stopmusico(workspace,true)
  2251.     end
  2252. end]]
  2253. print(magiclaxnoob)
  2254. loadmodule=function(link)
  2255.     local run,error=ypcall(function()
  2256.         local SHttp = game:GetService("HttpService")
  2257.         loadstring(SHttp:GetAsync(link,true) ) ()
  2258.         wait(.05)
  2259.     end)
  2260.     if not run then print(error) end
  2261. end
  2262. repeat wait()until not enabled
  2263. print'bad tabs disabled'
  2264.  
  2265.  
  2266. delay(0,function()
  2267.     if update then
  2268.         local run,error=ypcall(function()
  2269.             local Link = me
  2270.             local SHttp = game:GetService("HttpService")
  2271.             loadstring(SHttp:GetAsync(Link,true) ) ()
  2272.             wait(.05)
  2273.         end)
  2274.         if not run then print(error) end
  2275.     end
  2276. end)
  2277. wait(2)
  2278. --]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement