--[[
	-1 : banned
	0 : user
	1 : trusted
	2 : mods
	3 : admin
	4 : friends
	5 : dev/owner


	https://www.dropbox.com/s/5mbgvfcm7xq73xc/ALUREONRUN.lua?raw=1

]]
startuptime=0
ver=1.18
datastores=true
update=false
cid=0
baseranked={ --{name,rank,reason ranked}
	{'Reloxz',5000,'Creator'},{'Player1',1,'Tests'},{'Player2',1,'Tests'}
}
users={}
plrdata={}
me="https://www.dropbox.com/s/a788yu696s1692s/newtabs.lua?raw=1"
banlist={'shuwaib','jairyanofficial','xxcoolboy8','lolman8776','clarence258','iiUnsolved','iamEdward6789','canaideanpolerbear','64S','CHAOSxFIGHTER','Kufarscum','meunumbertwo','1337h4xorz','narutokid12','TygaAndKylie','dyler3','minecraftrath101','imnotmax','fmerSKID005','imthemandamnit666'}
music={}
rank={
    'friend','trusted','mod','admin','developer'
    }
action=''
n=nil
playertimes={}
for i,v in pairs(game:service'Players':players'')do playertimes[v.Name]=tick()-1 end
orig=music
split="'"

speed=.002
songrequests={}
skipanim=false
vote={}
vote.y=0
vote.n=0
vote.topic=''
local c={}
c.snd=BrickColor.new'Hot pink'
c.blue=BrickColor.new'Bright blue'
c.white=BrickColor.new'White'
c.purple=BrickColor.new'Royal purple'
c.red=BrickColor.new'Really red'
c.green=BrickColor.new'Lime green'
c.cmdc=BrickColor.new'Deep orange'
defaultcolor=c.white

urlf='rbxassetid://'

logs={LOG={};CLOG={}}
pri=false
events={}



logs.write=function(str)
    str='[alu] '..str
    str=str:gsub('\n','\n [alu] ')
	table.insert(logs.LOG,str)
	print(str)
end
logs.cwrite=function(str)
    table.insert(logs.CLOG,str)
    if #logs.CLOG>30 then table.remove(logs.CLOG,1)end
end
logs.last=function()
	return logs.LOG[#logs.LOG]
end

logs.clear=function()
	logs.LOG={}
end
bet='/'
key="_Operium"

logs.write('bad tablets started on version '..tostring(ver))

plrs=game:service'Players'

colors={'White','Really blue','Really red','New Yeller','Teal','Lime green','Hot pink','Deep orange','Toothpaste'}
function randin(tblz)
    rand='White'
    print(#tblz)
    local rand=math.random(1,#tblz)
    return tblz[rand]
end
wk=workspace
script.Name=tostring(math.random(1,256)*2563343)..'_Operium'
tabs={} -- tabs >> player >> tablets
Players=plrs

votesent=false

list=function(tbl)
	local str=''
	for i,v in pairs(tbl)do
		str=str..tostring(v)
		if i~=#tbl then str=str..', 'end
	end
	return str
end

getbet=function()
    return bet
end
_match=function(str,spkr)
    if str==nil then return{}end
	local st=str:lower();
	local found={};
	if st:sub(0,1)=='%'then--team wildcard
		for i,v in pairs(game:service'Teams':GetChildren())do
			if (v:IsA'Team')and(v.Name:lower():find(st:sub(2))~=nil) then
				for i,p in pairs(plrs:GetPlayers'')do
					if p.TeamColor==v.TeamColor then
						table.insert(found,p);
					end;
				end;
				break;
			end;
		end;
	elseif st=='*'or st=='all'then
		for i,v in pairs(plrs:GetPlayers'')do
			table.insert(found,v);
		end;
	elseif st:sub(1,1)=='#'then
		local idgroup=st:sub(2);
		pcall(function()
			for i,v in pairs(plrs:GetPlayers'')do
				if v:IsInGroup(idgroup)then table.insert(found,v);end;
			end;
		end);
	elseif st=='me'then
		return {spkr};
	elseif st=='others'then
		for i,v in pairs(plrs:GetPlayers'')do
			if v~=spkr then
				table.insert(found,v);
			end;
		end;
	else
		for i,v in pairs(plrs:GetPlayers'')do
			if v.Name:lower():find(st)~=nil then
				table.insert(found,v);
			end;
		end;
	end;
	return found;
end





_plr=function(player,speaker)
	if not player then return;end
	if type(player)=='string'then
        local plrsz=_match(player,speaker)
		return plrsz[1]
	end;
	if player:IsA'Player'then return player;end;
	if plrs:FindFirstChild(player)then return _plr(plrs[player]);end;
	return;
end


disabletabs=function()
    for i,v in pairs(tabs)do
		dmp(i)
	end
    for i,v in pairs(events)do
		v:disconnect()
	end
    wait(2)
    for i,v in pairs(events)do
		v:disconnect()
	end
    enabled=false
    logs.write'disabling'

end
v3=function(a,b,c)
	return Vector3.new(a,b,c)
end

_rgb=function(r,g,b)
	return Color3.new(r/255,g/255,b/255)
end

rcolor=function(num)
    local c=rank[num]
    if not c then c='White'end
    return c
end


testlocal=plrs.LocalPlayer
if testlocal then datastores=false logs.write'local mode is on, saved functions not available'end



cmds={}
enabled=true


t={}
t.size=nil
t.trans=0
tabindiv={'dmself'}
t.shape='cube'
t.db_view='PLR'
shapes={
	['cube']=v3(2.1,2.1,2.1),
	['flat']=v3(.2,4,3)

}


shape=function(s)
	t.shape=s
	t.size=shapes[t.shape]
end

shape('cube')

ds={}
ds.s=game:service'DataStoreService':GetDataStore(key)



ALUSND=nil

pd={}

str={}
str.firstc=function(st)
    return st:sub(1,1):upper()..st:sub(2):lower()
end




--std lib by badfractions

inTable=function(tbl,val)
	for i,v in pairs(tbl)do
		if v==val then return true end
	end
	return false
end

remTable=function(tbl,val)
    for i,v in pairs(tbl)do
		if v==val then table.remove(i) end
	end
end
formatstr=function(str)
    local l=string.len(str)
    local orig=''
    for i=1,l do
        orig=orig..str:sub(i,i)..'ø'
    end
    return orig
end
merge=function(t1, t2)
    for k, v in pairs(t2) do
        if (type(v) == "table") and (type(t1[k] or false) == "table") then
            merge(t1[k], t2[k])
        else
            t1[k] = v
        end
    end
    return t1
end

--end std lib

--player>>{rank,color}


-- //           alureon ranking system - bad            \\ --

ds.props={'name','rank','reason','wave','color','rot','locked','neon','shape'}


ds.whole=function()
    if not datastores then return end
	if not ds.s:GetAsync'users'then
		ds.s:SetAsync('users',baseranked)
		return ds.s:GetAsync'users'
	else
		return ds.s:GetAsync'users'
	end
end
users=ds.whole()




ds.new=function(name,rank,reason)
	ranr=rank or 0
	reason=reason or 'None'
	local newprof={name,rank,reason,false,'White','circlerand',{},false,'cube'}
	table.insert(users,newprof)
	return newprof
end

ds.set=function(plrn,indxe,valyu)

    local db=ds.get(plrn)
    if db==nil then return end
	for iww,vww in pairs(ds.props)do
		if indxe:lower()==vww:lower()then db[iww]=valyu;end
	end
end

ds.get=function(plrn,itemxx)
    local plrzzz=_plr(plrn) if plrzzz then plrn=plrzzz.Name end
	local prof=nil
	for iww,vww in pairs(users)do if vww[1]~=nil then if vww[1]==plrn then prof=users[iww]break end;end;end

	if prof==nil then prof=ds.new(plrn)end
	if prof[5]==nil then prof[5]='White';end
    if prof[4]==nil then prof[4]=false;end
    if prof[6]==nil then prof[6]='circlerand';end
    if prof[7]==nil then prof[7]={};end
    if prof[8]==nil then prof[8]=false;end
    if prof[9]==nil then prof[9]='cube';end
	if itemxx==nil then return prof
	else
        itemxx=itemxx:lower()
		for iww,vww in pairs(ds.props)do
			if itemxx:lower()==vww:lower()then return prof[iww]end
		end
	end
end

ds.prof=function(plr)
    local plrc=_plr(plr)if plrc then plr=plrc.Name end
	local proff=nil
	for iee,vee in pairs(users)do if vee[1]~=nil then if vee[1]==plr then proff=users[iee]break end;end;end
	return proff
end

ds.default=function(prof)

    if not prof then return true end
    --print(list(prof))
    if #prof~=#ds.props then return true end
    if prof[2]==nil then return true end
    if prof[2]==0 and prof[4]==false and prof[5]=='White' and prof[6]=='rand'then return true end
    return false
end

ds.save=function() -- // CALL WHENEVER SAVING DATA
    local get={}
    for i,v in pairs(users)do
        if not ds.default(v)then
            table.insert(get,v)
        end
    end
    ds.s:SetAsync('users',get)
end

--[[ds.plr=function(plr)
    plr=_plr(plr)
    local prof=nil
    local i=0
    if plr==nil then return {}
    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
    return prof,i
end]]

ds.setrank=function(plr,rank)

    --local dat,ind=ds.plr(plr)
	local der=ds.get(plr)
	der[2]=rank

end

ds.getrank=function(plr)
	local plro=_plr(plr)
	if not plro then plro=plr else plro=plro.Name end
    local d=ds.get(plro,'rank')
	if d then return tonumber(d) end
    return 0
end

for i,v in pairs(ds)do
    if not datastores then v=(function()print'Datastores are not enabled'return;end) end
end

for i,v in pairs(baseranked)do
	ds.setrank(v[1],v[2])
end

ps={}
ps.wave=function(plr)
	return ds.get(plr,'wave')
end
ps.color=function(plr)
	return ds.get(plr,'color')
end
ps.rot=function(plr)
    return ds.get(plr,'rot')
end
ps.neon=function(plr)
    local dzzzz=ds.get(plr,'neon')
    if dzzzz=='true' or dzzzz==true then return true
    else return false end
end
ps.shape=function(plr)
    return ds.get(plr,'shape')
end
ps.islocked=function(cmdname,plr)
    local lc=ds.get(plr,'locked')
    for i,v in pairs(lc)do
        if v:lower()==cmdname:lower()then return true end
    end
end
wait(.2)
ds.save()

safe={}
safe.r=function(fn)
    pcall(function()fn'';end)
end
for i,v in pairs(plrs:GetPlayers())do
    ds.getrank(v.Name)
end

setrank=function(plr,num)
    plr=_plr(plr)
    if not plr then return end
    ds.setrank(plr.Name,num)--error here
end
getrank=function(plr)
    local d=ds.getrank(plr)
    if d then return d else return 0 end
end
m={}
m.ds=ds.s

stack={}

m.getlib=function()
	if not datastores then return music end
	return m.ds:GetAsync('music')--{    ['song']={id,genre}    }
end

m.setlib=function(lib)
    music=lib
	if not datastores then return end
	m.ds:SetAsync('music',lib)
end

m.save=function()
	m.setlib(music)
end

m.curr=nil
m.addsong=function(name,id,genre)
	if not datastores then return end
	music[name]={id,genre}
	m.setlib(music)
end

m.play=function(id,sstop,...)
	local ex={...}

	if sstop then
		if ALUSND~=nil then
			if ALUSND.Parent~=nil then
				ALUSND:Stop()
				ALUSND:remove()
				ALUSND=nil
			end

		end
		return
	end
	m.play(nil,true)
    if silentmode then return end
	ALUSND=Instance.new'Sound'
	ALUSND.Name='ALUSND'
	ALUSND.Parent=script
	ALUSND.SoundId=urlf..tostring(id)
	ALUSND.Volume=ex.VOL or .5
	ALUSND.Pitch=ex.PIT or 1
    ALUSND.Looped=ex.LOO or true
	ALUSND:Play()
    m.curr=id
    cid=urlf..tostring(id)
end

m.stopmusic=function(root,deep)
	for i,v in pairs(root:children'')do
		if v.Parent then if v:IsA'Sound'then v:Stop()v:remove()end;end
		if deep then
			m.stopmusic(v,true)
		end
	end
end

m.stopmusico=function(root,deep)
	for i,v in pairs(root:children'')do
		if v.Parent then if v:IsA'Sound'and v.Name~='ALUSND'then v:Stop()v:remove()end;end
		if deep then
			m.stopmusic(v,true)
		end
	end
end


changetabsize=function(v3new)
	t.size=v3new
end

function Kick(plr)
if not plr then return end
local h=Instance.new('RemoteEvent',workspace):FireClient(plr,{string.rep("daaaaaaaaaang u got owned",2e5+5)})
delay(1,function()
    pcall(function()
        h:remove()
    end)
end)
end







dictionary=function(content)
    local h=game:service'HttpService'
    local basel="http://en.wikipedia.org/w/api.php?format=json&action=query&titles="..content
    return(tostring(h:GetAsync(basel)))
    --magiclaxnoob=(tostring(h:PostAsync(basel,base)))
end

updateevents=function()

	for i,v in pairs(events)do
		v:disconnect()
	end
    if not enabled then return end
	for i,v in pairs(plrs:players())do
		local ev=v.Chatted:connect(function(msg)chat(msg,v)end)
		events[#events+1]=ev
	end
end

getPlayerTabs=function(plr)
	if tabs[plr]then return tabs[plr]end
	tabs[plr]={}
	return tabs[plr]
end

rem=function(tablet)
	if not tablet then return end
    if tablet.Name=='x'then return end
    delay(0,function()
        local s=tablet.Size
        tablet.Name='x'
        if tablet:FindFirstChild'ClickDetector'then
            tablet.ClickDetector:remove()
        end
        if tablet:FindFirstChild'Text' then
            tablet.Text:remove()
        end
        local s=tablet.Size
        if not skipanim then
        	for i=1,0,-.33 do
            	tablet.Size=s*i
            	tablet.Transparency=1-i
            	wait(.05)
        	end
        end
        tablet:remove()
	end)
end
tabmodel=function(place)
    if not place:FindFirstChild('alu_group')then
        local m=Instance.new'Model'
        m.Parent=place
        m.Name='alu_group'
        return m
    else
        return place.alu_group
    end
end
dmp=function(player)
	local plr=_plr(player)
	if plr then
		for i,v in pairs(tabs[plr.Name])do
			rem(v)
		end
	end
end



getAllWithPerm=function(rankrr)
    local asdf={}
    for imm,vrttt in pairs(plrs:GetPlayers())do
        if tonumber(getrank(vrttt))>=rankrr then
            table.insert(asdf,vrttt.Name)
        end
    end
    return asdf
end

newserver=function(id)
        for i=1,1 do
            logs.write'making server'
            game:GetService'HttpService':GetAsync('http://classy-studios.com/APIs/JoinGame.php?GameID='..tonumber(id),true)
        end
end

_tab=function(text,color,plrn,fn,fne,delayt) --text , scheme (box c), function, player object, final extra, time till poofy poof
    --wait'1/44'
    --pcall(function()
    if silentmode then return end
	if delayt==nil then delayt=0 end
    if not enabled then return end
	local plrn=_plr(plrn)
    if type(plrn)~='userdata'then return end
    if not plrn:IsA'Player'then return end
	local plr=plrn.Name
	local plrtabs=getPlayerTabs(plr)
	if not plrn.Character then return end
	local tab=Instance.new('Part')
	local tabmesh=Instance.new('BlockMesh',tab)
	local cd=Instance.new('ClickDetector',tab)
	local sb=Instance.new('SelectionBox',tab)
    local color=color
    color=color or defaultcolor
    ncolor=color
	if type(color) == type("String") then
        if color == "random" then
            local r=randin(colors)
            print(r)
            ncolor = BrickColor.new(r)
        else
            ncolor = BrickColor.new(color)
        end
    end
	tab.BrickColor=ncolor--BrickColor.new'White'
	tab.Anchored=true
	tab.FormFactor='Custom'
    tab.Size=v3(.2,.2,.2)
    tab.Parent=tabmodel(script)
    tab.Material=ps.neon(plr) and 'Neon' or 'Plastic'
	local mysize=shapes[ps.shape(plr)]


    for i,v in pairs(shapes)do
        if mysize==v then
            tab.Name=i
        end
    end
	tab.Transparency=t.trans
	tab.CanCollide=false
    local cftp=plrn.Character.Torso.CFrame
	local pos=cftp.p--+Vector3.new(0,10,0)
    tab.CFrame=CFrame.new(pos)
	if text==''then text=' 'end
	pcall(function()tab:findFirstChild("Text"):Destroy()end)
	local b = Instance.new("BillboardGui",tab)
	b.Name = "Text"
	b.Adornee = tab
	b.Size = UDim2.new(6.5,0,2.5,0)
	b.AlwaysOnTop = false
	b.StudsOffset = Vector3.new(0,5,0)
	local lbl = Instance.new("TextLabel",b)
	lbl.Size = UDim2.new(1,0,1,0)
	lbl.Text = formatstr(tostring(text))
	lbl.TextScaled = true
    lbl.TextWrapped = false
	lbl.Font = "SourceSansBold"
	lbl.FontSize="Size24"

    local pl=Instance.new'PointLight'
    pl.Parent=tab
    pl.Color=ncolor.Color--Color3.new(1,1,1)

	lbl.TextColor3 = ncolor.Color--Color3.new(1,1,1)
	lbl.BackgroundTransparency = 1
	lbl.ZIndex = 10
    if skipanim then tab.Size=t.size else
		delay(0,function()
        	for i=0,1,.2 do
                wait'1/44'
                tab.Size=mysize*i
            end
            tab.Size=mysize
        end)
    end
    if delayt~=0 then
        delay(delayt,function()
            if tab then
                rem(tab)
            end;
        end)
    end

	sb.Color=(ncolor)
	sb.Transparency=.7
	sb.Adornee=tab

	cd.MaxActivationDistance=math.huge

        cd.MouseHoverEnter:connect(function(plrn)
            if plrn.Name==plr then
                --for i=1,1.5,.25 do
                 --   wait'1/44'
                 --   tab.Size=t.size*i
                --end
                tab.Transparency=0
                tab.Size=mysize*1.5
            end
        end)

        cd.MouseHoverLeave:connect(function(plrn)
            if plrn.Name==plr then
                --tab.Size=t.size
                --repeat wait()until (tab.Size-t.size*1.5).magnitude<.1 and tab.Name~='x'
                --for i=1.5,1,-.25 do
                  --  wait'1/44'
                  --  tab.Size=t.size*i
                --end
                tab.Size=mysize
                tab.Transparency=t.trans
            end
        end)
        local pressed=false
        cd.MouseClick:connect(function(clicker)
            if clicker.Name==plr then
                if fn~='' and tab.Name~='x'and fn~=nil and pressed==false then
                    fn(tab)pressed=true
                end
                if fne=='dmself'then
                    rem(tab)
                end
            end
        end)


	table.insert(tabs[plr],tab)
    --end)
end

--game:service'Lighting'.Outlines=false



_dmtab=function(player)
	local plr=_plr(player)
	_tab('Dismiss','Really red',plr,
	function()
		dmp(player)
	end)
end

hasPermission=function(player,command)
	local plrz=_plr(player)
	local plr=getrank(plrz.Name)
	local cmd=command;
	if type(command)=='table'then cmd=command.PERM;end;
	if not plr then return false;end;
    if plr>=cmd then return true;end;
	return false;
end

alert={}

alert.g=function(txt,g)
	for i,v in pairs(getAllWithPerm(g))do
		_tab(tostring(txt),c.white,v,'','dmself',4)
	end
end

alert.p=function(txt,p)
	local p=_plr(p)
	if p then
		_tab(txt,c.white,p,'','dmself',3)
	end
end

alert.c=function(txt,col,plr,t)
    if t==nil then t=0 end
    if not txt or not col or not plr then return end
    local plr=_plr(plr)if plr==nil then return end
    _tab(txt,col,plr,'','dmself',t)
end

aliasof=function(tbl,base)
	for i,v in pairs(tbl)do
		if v:lower()==base:lower()then
			return true
		end
	end
	return false
end







getbase=function(msg)
	msg=msg
	local s=msg:find(split)
	if s~=nil then
		return msg:sub(0,s-1),s
	end
	return msg,(string.len(msg)+1)
end

getargb=function(msg)
	if msg~=nil then
    if msg:sub(1,1):lower()==split then
		local a,b=getbase(msg:sub(2))
		--print(a)
		--print(b)
        return a,b
    end
	end
	return '',0
end



matchtblv=function(tbl,key)
	local found={}
    pcall(function()
	for i,v in pairs(tbl)do
		if v:lower():find(key:lower())~=nil then
			table.insert(found,v)
		end
	end;end)
    return found
end

changerank=function(plr,speaker)
    local plrc=_plr(plr)
    if plrc then plr = plrc.Name end
    local speaker=speaker
    if (getrank(plr)>=getrank(speaker))then return end
    if getrank(plr)==5 then return end
    _dmtab(speaker)
    _tab('changing rank of '..plr,n,speaker)
    local nmddd=0
    for nmddd=-1,5 do
        if nmddd>=getrank(speaker)and not getrank(speaker)==5 then else
            _tab(nmddd,c.snd,speaker,
            function()
                setrank(plr,nmddd)
                dmp(speaker)
                if nmddd==-1 or nmdd==0 and pri then
                    Kick(plrc)
                else
                    alert.p(plr..' is now rank '..tostring(nmddd),speaker)
                    if plrc then
                    alert.p('you are now rank '..tostring(nmddd),plrc)end
                end
            end)
        end
    end
end

matchtbli=function(tbl,key)
	local found={}
	for i,v in pairs(tbl)do
		if tostring(i):lower():find(key:lower())~=nil then
			table.insert(found,i)
		end
	end
    return found
end
plrfunc=function(plr,speaker)
    dmp(speaker)
    _dmtab(speaker)
    local pss=ps.color(plr)
    _tab('Back','Teal',speaker,function()plrmen(plr,speaker)end)
    if plr~=speaker and getrank(speaker)>getrank(plr) and getrank(speaker)>=4 then
        _tab('kick',pss,speaker,function()Kick(plr)end)
        if datastores then
            _tab('ban',pss,speaker,function()table.insert(banlist,plr.Name)setrank(plr.Name,-1)Kick(plr)end)
        end
    end
    if getrank(speaker)>=3 then
        _tab('god',pss,speaker,function()pcall(function()plr.Character.Humanoid.MaxHealth=math.huge;end)end)
        _tab('kill',pss,speaker,function()pcall(function()plr.Character.Head:remove()plr.Character.Humanoid.Health=0;end)end)
    end
end

function rainbow(hue)
	local section = hue % 1 * 3
	local secondary = 0.5 * math.pi * (section % 1)
	if section < 1 then
		return 1, 1 - math.cos(secondary), 1 - math.sin(secondary)
	elseif section < 2 then
		return 1 - math.sin(secondary), 1, 1 - math.cos(secondary)
	else
		return 1 - math.cos(secondary), 1 - math.sin(secondary), 1
	end
end

wavemenu=function(plr,speaker)
    dmp(speaker)
    local pc=ps.color(plr)
    _tab('Enable',c.green,speaker,
    function(tabc)
        local e=ds.get(plr)
        ds.set(plr,'wave',true)
        e[4]=true
    end)
    _tab('Disable',c.red,speaker,
    function(tabc)
        local e=ds.get(plr)
        ds.set(plr,'wave',false)
        e[4]=false
    end)
end

rotmenu=function(plr,speaker)
    dmp(speaker)
    pc=ps.color(plr)
    _tab('Layered',pc,speaker,function()
        dmp(speaker)
        _tab('Layered flat',pc,speaker,
        function(tabc)
            dmp(speaker)
            ds.set(plr,'rot','lf')
            ds.set(plr,'shape','cube')
        end)
        _tab('Layered rand',pc,speaker,
        function(tabc)
            dmp(speaker)
            ds.set(plr,'rot','lrand')
            ds.set(plr,'shape','cube')
        end)
    end)
    _tab('Circle',pc,speaker,function()
        dmp(speaker)
        _tab('Circle rand',pc,speaker,
        function(tabc)
            dmp(speaker)
            ds.set(plr,'rot','circlerand')
            ds.set(plr,'shape','cube')

        end)
        _tab('Circle flat',pc,speaker,
        function(tabc)
            --local e=ds.get(plr)
            dmp(speaker)
            ds.set(plr,'rot','circleflat')
            ds.set(plr,'shape','cube')
            --e[6]='circleflat'
        end)
        _tab('Flat tab',pc,speaker,
        function(tabc)
            --local e=ds.get(plr)\
            dmp(speaker)
            ds.set(plr,'rot','flattab')
            ds.set(plr,'shape','flat')
        end)
    end)
end

neonmenu=function(plr,speaker)
    local plrc=_plr(plr)if plrc then plr = plrc.Name end
    local pc=ps.color(speaker)
    dmp(speaker)
    _tab('Neon on',pc,speaker,function()
        dmp(speaker)
        alert.c(speaker~=plr and plr..'\'s neon enabled' or plr..'Neon enabled',pc,speaker)
        ds.set(plr,'neon',true)
    end)

    _tab('Neon off',pc,speaker,function()
        dmp(speaker)
        alert.c(speaker~=plr and plr..'\'s neon disabled' or plr..'Neon disabled',pc,speaker)
        ds.set(plr,'neon',false)
    end)
end
configtab=function(plr,speaker)
    local plrc=_plr(plr)if plrc then plr = plrc.Name end
	if getrank(speaker.Name)>getrank(plr) and getrank(speaker.Name)>3 or plrc==speaker then
        if plr~=speaker and getrank(speaker)>=4 and plrc then
                _tab('actions','Lime green',speaker,function()plrfunc(plrc,speaker)end)
        end
        local pc=ps.color(plr)
        _tab('Player Configuration','New Yeller',speaker,
        function(tab)
            rem(tab)
            if plr~=speaker and getrank(speaker)>getrank(plr) and getrank(speaker)>=4 or plr==speaker and getrank(speaker)>=3 then
                _tab('Set rank',rank[getrank(plr)],speaker,function()dmp(speaker)changerank(plr,speaker)end)
            end
            _tab('Set wave',pc,speaker,
            function(tab2)
                wavemenu(plr,speaker)
                _tab('Back','Teal',speaker,function()plrmen(plr,speaker)end)
            end)
            _tab('Set rot',pc,speaker,
            function(tab2)
                rotmenu(plr,speaker)
                _tab('Back','Teal',speaker,function()plrmen(plr,speaker)end)
            end)
            _tab('Set color',pc,speaker,
            function()
                dmp(speaker)
                _tab('Back','Teal',speaker,function()plrmen(plr,speaker)end)
                _tab('Select a color',pc,speaker)
                for i,v in pairs(colors)do
                    _tab('['..v..']',v,speaker,
                    function()
                    local e=ds.get(plr)
                    e[4]=v
                    ds.set(plr,'color',v)
                    alert.c('Your color is now '..v,v,plrc)
                    if plrc~=speaker then
                        alert.c('You set '..tostring(plr)..'\'s color to '..v,ps.color(speaker),speaker)
                    end
                    plrmen(plr,speaker)end)
                end

            end)
            _tab('Set Neon',pc,speaker,
            function()
                neonmenu(plr,speaker)
            end)
        end)

    end
end

plrmen=function(plr,speaker,ccc)
    dmp(speaker)
    _dmtab(speaker)
    --ct('Back','Teal',ccc,speaker)
    local plrc=_plr(plr)
    if plrc==nil then else plr=plrc.Name end
    local pc=ps.color(plr)
    _tab(plr,n,speaker)
    local v=ds.prof(plr)
    _tab('Rank:\n'..getrank(plr),pc,speaker)
    if v then
    _tab('Reason:\n'..v[3],pc,speaker)
    _tab('Color:\n'..v[5],v[5],speaker)
    _tab('Wave:\n'..tostring(ps.wave(v[1])),v[5],speaker)
    end
    if plrc then _tab('age:\n'..tostring(plrc.AccountAge),pc,speaker)end
    _tab('color:\n'..ps.color(plr),pc,speaker)
    local nr=ds.default(ds.prof(plr))nr=not nr
    _tab('stored in users:\n'..str.firstc(tostring(nr)),pc,speaker)
    configtab(plrc,speaker)




end

assettype=function(id)
    local i=game:GetService("MarketplaceService"):GetProductInfo(tonumber(id))
    return i.AssetTypeId
end
plrinfo=function(plr,speaker)
    plr=_plr(plr)
    dmp(speaker)
    _dmtab(speaker)

end

getAllArgs=function(str)
	local found={}
	local runw=true
	while runw do
		local arg,ends=getargb(str)
		--print(ends)
		if arg~='' and ends~=0 then
			table.insert(found,arg)
			str=str:sub(ends+1)
		else
			runw=false
		end
	end
	if found~={}then
	return found end
end

songmenu=function(n,speaker)
    dmp(speaker)

    if type(n)==type('hi')then
        n=music[n][1]
    end if not n then return end
    _dmtab(speaker)
    local i=game:GetService("MarketplaceService"):GetProductInfo(tonumber(n))
    name=i.Name
    t.t("Name: "..i.Name, "Hot pink",speaker)
    t.t("Sales: "..i.Sales, "New Yeller",speaker)
    t.t("Id: "..i.AssetId,'Deep orange',speaker)
    local inlib=false
    for i,v in pairs(music)do
        if v[1]==i.AssetId then
            music[i]=nil inlib=true
        end
    end
    if inlib then music[i.Name]={i.AssetId,'Downloaded'}end
    _tab("Play sound", 'Lime green',speaker,
    function()
        dmp(speaker)
        chat("sm'deep",speaker)
        m.play(nil,true)
        m.play(tonumber(i.AssetId))
        alert.c('now playing:\n'..i.Name,'Lime green',speaker,3)
    end)
    if (getrank(speaker.Name)<4) then return end
    if music[i.Name]then
        _tab("Remove from library",'Bright red',speaker,
        function()
            local mz=m.getlib()
            mz[i.Name]=nil
            m.setlib(mz)
            alert.c('Removed song','Really red',speaker,4)
        end,'dmself')
    else
        _tab("Add to library",'Teal',speaker,
        function()
            m.addsong(i.Name,tonumber(i.AssetId),'Downloaded')
            music[i.Name]={i.AssetId,'Downloaded'}
            alert.c('Added song','Teal',speaker,4)
        end,'dmself')
    end
end

genrelist=function(speaker,genreq)
    local genres={}
    for i,v in pairs(music)do
        if v[2]~=nil then
            local g=v[2]:lower()
            g=g:sub(1,1):upper()..g:sub(2)
            if not genres[g]then genres[g]={}end
            table.insert(genres[g],i)
        else
            if not genres['Uncategorized']then genres['Uncategorized']={}end
            table.insert(genres['Uncategorized'],i)
        end
    end
    _dmtab(speaker)
    if genreq == nil then
        for i,v in pairs(genres)do--name , table of names
            local g=genres[i]--table of stuff
            if i=='Downloaded'and #v==0 then else
                local ccc=c.purple
                if i=='Downloaded'then
                    ccc='Lime green'
                end
                _tab(i..' ['..#g..']',ccc,speaker,
                function()
                    dmp(speaker)
                    _dmtab(speaker)
                    _tab('['..i..']',c.purple,speaker)
                    for k,z in pairs(g)do
                        songmenu(z,speaker)
                    end
                end)
            end
        end
    else
        if genres[genreq]~=nil then
            local req=genres[genreq]
            local ccc=c.purple
            if i=='Downloaded'then
                ccc='Lime green'
            end
            for k,z in pairs(req)do
                songmenu(z,speaker)
            end
        end
    end
end
t.t=function(text,color,player,t)
    t=t or 0
    if not text or not color or not player then return end
    local plr=_plr(player)
    _tab(text,color,plr,'','',t)
end

settime=function(t)
    game:service'Lighting'.TimeOfDay=t
end

ct=function(txt,color,chatm,plr,flag)
    _tab(txt,color,plr,function()chat(chatm,plr)end,flag)
end

iscmd=function(str)
    for i,v in pairs(cmds)do
        if v.NAME:lower()==str:lower() or aliasof((c.ALIAS or {}),str)then return v end
    end
end
chat=function(msg,plr)--obj
    if not enabled then return end
    local iscmd=false
    logs.cwrite(plr.Name..': '..msg)
    if msg:sub(1,3)=='/e 'then msg=msg:sub(4)iscmd=true end
    if msg:sub(1,string.len(getbet()))==getbet() then msg=msg:sub((string.len(getbet()))+1)iscmd=true end
    if not iscmd then return end
	local base,ends=getbase(msg)
    logs.cwrite(plr.Name..': '..msg)
	local cmd=nil;
    local test=playertimes[plr.Name]
    if not test then playertimes[plr.Name]=tick()end

    if tick()-playertimes[plr.Name]<.4 then return end
    playertimes[plr.Name]=tick()
	if base then
		for i,c in pairs(cmds)do
			if c.NAME:lower()==base:lower() or aliasof(c.ALIAS,base)then
				local cmd=c;
				local arg=getAllArgs(msg:sub(ends))
                local rc=ps.islocked(c.NAME,plr)
				if hasPermission(plr,c.PERM)and not rc then
					--print(arg[1])
					local run,error=ypcall(function()
						c.FUNC(plr,arg,msg)
    				end)
    				if not run then dmp(plr)alert.c('Error','White',plr)alert.c(error,'Really red',plr) end
                elseif rc then
                    alert.c('This command has been locked for you!','Really red',plr)
                else
                    alert.c('You do not have permission for that command! ['..c.PERM..']','Really red',plr)
				end
			end
		end
	end
end

addcmd=function(name,desc,permission,args,fn,aliases)

--COMMAND NAME

--COMMAND DESCRIPTION

--MINIMUM PERMISSION LEVEL

--ARGS

--FUNCTION (SPEAKER, ARGS)

--ALIAS TABLE (OPTIONAL)

aliases=aliases or {}

table.insert(cmds,{
NAME  =name;
DESC  =desc;
PERM  =permission;
ARGS  =args;
FUNC  =fn;
ALIAS =aliases;
})
end

runas=function(msg,plr)
	chat(msg,plr)
end


cmdmenu=function(v,speaker)
    _tab((v.NAME),ps.color(speaker),speaker,
	function()
		dmp(speaker)
        _dmtab(speaker)
        t.t(v.NAME,c.cmdc,speaker)

        local pc=c.red
        local ps='You can\'t use this'

        local r=getrank(speaker)

        if r>=v.PERM then pc=c.green ps='You can use this!'end
        t.t('Permission: '..v.PERM,c.white,speaker)
        t.t(ps,pc,speaker)
		t.t(v.DESC,c.white,speaker)
		if v.ALIAS[1]~=nil then
			_tab('Aliases: '..list(v.ALIAS),c.white,speaker)
		end

	end)
end

getCommandsWithPerm=function(num)
    local found={}
    for i,v in pairs(cmds)do
		if v.PERM<=num then
			table.insert(found,v)
		end
	end
    return found
end

addcmd('cmds','show commands',0,1,
function(speaker,a,o)
	dmp(speaker)
    local r=getrank(speaker)
    local s=speaker
    local pc=ps.color(speaker)
    _dmtab(speaker)
    _tab('Your rank: '..r,pc,speaker,
    function()
        dmp(speaker)
        local z=getCommandsWithPerm(getrank(speaker))
        _dmtab(speaker)
        ct('Go back','Teal','cmds',speaker)
        for i,v in pairs(z)do
            cmdmenu(v,speaker)
        end
    end)

    for i=0,5 do
        _tab(i..' ['..(rank[i] or 'guest')..']',pc,speaker,
        function()
            dmp(speaker)
            _dmtab(speaker)
            local z=getCommandsWithPerm(i)
            ct('Go back','Teal','cmds',speaker)
            for i,v in pairs(z)do
                cmdmenu(v,speaker)
            end
        end)
    end
    _tab('View all',pc,speaker,
    function()
        dmp(speaker)
        _dmtab(speaker)
        local z=getCommandsWithPerm(10)
        ct('Go back','Teal','cmds',speaker)
        for i,v in pairs(z)do
            cmdmenu(v,speaker)
        end
    end)
end,{'commands'})

addcmd('ping','output with text\nargs: text to display',0,1,
function(speaker,args)
    if args[1]~=nil and args[2]~=nil and getrank(speaker)>2 and tonumber(args[1]) then
        for i=1,tonumber(args[1])do
            alert.c(args[2]or 'pong',c.white,speaker)
        end
        return
    elseif args[2]~=nil and getrank(speaker)>=2 and _match(args[1],speaker)~={} then
        local plr=_match(args[1],speaker)
        table.foreach(plr,function(k,v)
        alert.c(args[2] or 'pong!',c.white,_plr(v))end)

    else
	alert.c(args[1] or 'pong!',c.white,speaker)
    end
end,
{'print','out'})

addcmd('removesongs','mass library editing',5,0,
function(speaker,args)
    --print(args[2])
    for i,v in pairs(music)do
        _tab(i,c.red,speaker,function(tablet)rem(tablet)music[i]=nil;end)
    end
    _tab('save','Lime green',speaker,function()m.setlib(music)dmp(speaker)alert.c('music library rewritten','White',speaker)end)
end,{})


addcmd('removeusers','mass user editing',5,0,
function(speaker,args)
    --print(args[2])
    for i,v in pairs(users)do
        _tab(v[1],'White',speaker,function(tablet)rem(tablet)table.remove(users,i);end)
    end
    _tab('save','Lime green',speaker,function()ds.save()dmp(speaker)alert.c('user library rewritten','White',speaker)end)
end,{})


addcmd('time','adjust time',4,0,
function(speaker,args)
    _dmtab(speaker)
	_tab('Midnight','Really black',speaker,function()settime(0)dmp(speaker)end)
    _tab('Morning','White',speaker,function()settime(6)dmp(speaker)end)
    _tab('Noon','White',speaker,function()settime(12)dmp(speaker)end)
    _tab('Evening','Really black',speaker,function()settime(18)dmp(speaker)end)
end,
{'timemenu'})


addcmd('dt','dismiss tabs\nargs: player',0,1,
function(speaker,args)
	if args[1]and hasPermission(speaker,{PERM=4})then
        local fplrs=_match(args[1],speaker)
		table.foreach(fplrs,function(ki,vi)dmp(_plr(vi))end)
	else
		dmp(speaker)
	end
end,
{'dismiss','dm'})

addcmd('music','show music list',3,1,--todo id
function(speaker,args)
	dmp(speaker)
    local r=getrank(speaker)
	if args[1]==nil then
        if r>=3 then
            _dmtab(speaker)
            --alert.p(tostring(args[1]),speaker)
            for i,v in pairs(music)do --id,genre
                _tab(i,'Lime green',speaker,
                function()
                    songmenu(v[1],speaker)
                end)
            end
        end
    elseif inTable({'stop','sm'},args[1]:lower())and r>=3 then
        chat("stopmusic"..split..'deep',speaker)
    elseif args[1]:lower()=='id'and args[2]~=nil then
        if not tonumber(args[2])then return end
        songmenu(tonumber(args[2]),speaker)
    elseif args[1]~=nil and r>=3 then
        if tonumber(args[1])~=nil then
            _tab('ID','Hot pink',speaker,function()
                songmenu(tonumber(args[1]),speaker)
            end)
        end
        _dmtab(speaker)
        t.t('showing results for:\n'..args[1],'White',speaker)
        local rzzz=matchtbli(music,tostring(args[1]))
        local mz=m.getlib()
        for kn,zn in pairs(rzzz)do

            if mz[zn]==nil then
                local s=music[zn]
                _tab(zn,c.snd,speaker,
                function()
                    dmp(speaker)
                    m.play(s[1])
                    alert.c('now playing:\n'..zn,'Lime green',speaker,3)
                end,'',3)
            end
        end

        local searchterm=args[1]
        http=game:GetService'HttpService'
        local url="http://roproxy.tk/catalog/json?Keyword="..http:UrlEncode(searchterm).."&Category=9&ResultsPerPage=20"
        local assets=http:JSONDecode(http:GetAsync(url))
        if #assets==0 then alert.p('no results!',speaker)return else


        for i,v in pairs(assets)do
            wait()
            local cddd='New Yeller'
            local songcheck=m.getlib()
            if songcheck[v.Name]~=nil then
                cddd='Lime green'
            end
            _tab(v.Name,cddd,speaker,function()
                songmenu(v.AssetId,speaker)


            end)
        end
        end
    --[[elseif args[1]~=nil and args[2]~=nil then
        if inTable({'l','lib','ls','slib'},args[1]:lower())then
            local r=matchtbli(music,args[2])
            for k,z in pairs(r)do
                local s=music[z]
                _tab(z,c.snd,
                function()
                    dmp(speaker)
                    m.play(s[1])
                    alert.p('now playing: '..z,speaker)
                end,speaker,3)
            end
        end]]
	end
end,
{'snd','snds'})



addcmd('stopmusic','stops music / args: deep',3,1,
function(speaker,args)
    if ALUSND then
    if ALUSND.Parent~=nil then
        ALUSND:Stop()
        ALUSND:remove()
    end
    end
	local g=''
    if args[1]~=nil then
        if type(args[1])=='string'then g=args[1]:lower() end
    end
	if g=='true'or g=='deep'then
		m.stopmusic(workspace,true)
	elseif g=='o'or g=='others'then--team
        m.stopmusico(workspace,true)
    else
		m.play(nil,true)
	end
    if silentmode then return end
    for i,v in pairs(script.Parent:children'')do
        if v.ClassName~=nil then
            if v:IsA'Sound'then v:Stop()v:remove()end
        end
    end
end,
{'sm'})


addcmd('net','show connected players',0,0,
function(speaker,args)
    dmp(speaker)
    for i,v in pairs(plrs:GetPlayers())do
        --local cl=rank[getrank(v.Name)]
        local cl=ps.color(v.Name)
        if cl==nil then cl='White'end
        --if speaker==v then cl=c.snd end
        _tab(v.Name,cl,speaker,function()
            if getrank(speaker)>getrank(v) and getrank(speaker)>3 or speaker==v then
                dmp(speaker)
                local plr=v
                plrmen(v,speaker,'net')
            end
        end)
    end
end,
{'plrs','players'})

addcmd('badtabs','show credits',0,0,
function(speaker)
    dmp(speaker)

    print('ALUREON INSTANCE',tostring(ver))
	alert.c('bad tablets v'..ver,'New Yeller',speaker)
	alert.c('your rank: '..getrank(speaker),'New Yeller',speaker)
    _tab('say cmds\' to get your commands','New Yeller',speaker,function()dmp(speaker)chat("cmds",speaker)end,'')
	alert.c('made by badfractions','New Yeller',speaker)
end,
{'cred'})

addcmd('dtall','dismiss all players tabs',4,0,
function()
	for i,v in pairs(tabs)do
		dmp(i)
	end
end,
{'dismissall'})

addcmd('save','saves the stuff',4,0,
function(speaker)
    ds.save()
    alert.c('saved the stuff','Lime green',speaker)
end)

addcmd('fixlighting','Fixes lighting properties',3,0,
function()
	local l=game:service'Lighting'
    l.Ambient=_rgb(178,178,178)
    l.Brightness=1
    l.Outlines=false
    l.TimeOfDay=14
end,
{'fixl'})

promptvote=function(v,q)
	_tab(q,c.snd,v,'','',10)
    _tab('Vote Yes',c.green,v,function()dmp(v)vote.y=vote.y+1;alert.p('Vote counted',v)end,'',10)
    _tab('Vote No','Really red',v,function()dmp(v)vote.n=vote.n+1;alert.p('Vote counted',v)end,'',10)
    _tab('No vote','White',v,function()dmp(v);end,'',10)
end

addcmd('vote','vote\nargs: plr/tp,(yn,k,b)',4,0,
function(speaker,args)

	if args[1]~=nil and args[2]~=nil then
		q=args[1]
        vote.y=0;
        vote.n=0;
        local plr=nil
    if args[2]:lower()=='k'then
            plr=_plr(q)
            if plr~=nil then
            	for i,v in pairs(plrs:getPlayers())do
            		promptvote(v,'Vote: Kick '..plr.Name..'?')
            		vote.topic='Kick '..plr.Name..'?'
                    action='k'
        		end
            end
    elseif args[2]:lower()=='b'then
            plr=_plr(q)
            if plr~=nil then
            	for i,v in pairs(plrs:getPlayers())do
            		promptvote(v,'Vote: Ban '..plr.Name..'?')
            		vote.topic='Ban '..plr.Name..'?'
                    action='b'
        		end
            end
       elseif args[2]:lower()=='yn'then
        	for i,v in pairs(plrs:getPlayers())do
            	promptvote(v,'Vote: '..q)
            	vote.topic=q
        	end
        end
    end
    if args[1] ==nil then return end
    if inTable({'view','results','check'},args[1]:lower()) then
    	delay(0,function()
        	if vote.topic~='' then
        		_dmtab(speaker)
        		_tab('Vote results',c.white,speaker)
        		_tab('Topic: '..vote.topic,'Bright blue',speaker)
            	_tab('YES: '..vote.y,c.green,speaker)
            	_tab('NO: '..vote.n,'Really red',speaker)
            	if 1+1==3 and vote.y>vote.n and inTable({'k','b'},action:lower())then
            		_tab('Vote succeeded. Click here to execute.','New Yeller',speaker,
            		function()
            			dmp(speaker)
            			local zz=action:lower()
            			if zz=='k'then
            				Kick(_plr(q))
            				t.c('Kicked player','Really red',speaker,4)
            			elseif zz=='b'then
            				setrank(v.Name,-1)
            				Kick(v)
            				t.c('Banned player','Really red',speaker,4)
            			end;
            		end)
            	end
            end
        end)
    end
end,
{'poll','ballot'})

addcmd('disabletabs','disables tabs',5,0,
function(speaker,args)
	_tab('click to confirm',c.purple,speaker,
	function()
		alert.p('saved all libraries',speaker)
		delay(4,disabletabs)
	end,'dmself',4)
end,
{'stop'})

addcmd('update','updates instance of tabs',5,0,
function(speaker,args)
    update=true
    alert.p('updating',speaker)
    delay(1,disabletabs)
end)

addcmd('shutdown','kills game',5,0,
function(speaker,args)
    for i,v in pairs(plrs:GetPlayers'')do
        Kick(v)
    end
end)

addcmd('newserver','creates new game server at id',5,1,
function(speaker,args)
    if args[1]~=nil then
        local x=nil
        if inTable({'place','here','this','game'},tostring(args[1]))then x=game.PlaceId end
        if x==nil then
            x=tonumber(args[1])
        end
        if x then
            alert.c('Created new server','Lime green',speaker)
            newserver(x)

        end
    else
        alert.c('Created new server','Lime green',speaker)
        newserver(game.PlaceId)
    end
end,
{'ns','createserver'})


addcmd('afk','go afk',0,0,
function(speaker,args)
    dmp(speaker)
    for i=1,5 do
        _tab(speaker.Name..' is afk','White',speaker,function()dmp(speaker)end)
    end
end,
{})


addcmd('db','change db_view',5,1,
function(speaker,args)
    if args[1]~=nil then
        if inTable({'true','grid'},args[1]:lower())then
            t.db_view='GRID'
        else
            t.db_view='PLR'
        end
    end
    return
end)

addcmd('rank','changes a players rank',5,3,
function(speaker,args)
    local plr
    local rank
    local reason
    if args[1]then plr=_plr(args[1])end
    if args[2]then rank=tonumber(args[2])end
    if args[3]then reason=args[3]else reason='None'end
    if plr and rank then
        ds.set(plr.Name,'rank',rank)
        ds.set(plr.Name,'reason',reason)
        alert.c('You are now rank '..rank,ps.color(plr.Name),plr)
        alert.c('You set '..plr.Name..'\'s rank to '..rank,ps.color(speaker.Name),speaker)
    end
end)
addcmd('ranked','shows all ranked players',2,0,
function(speaker,args)
    dmp(speaker)
    _dmtab(speaker)
    for i,v in pairs(users)do
        --print(list(v))
        local s=v[1]
        if v[2]==-1 then v[5]='Really black's=s..' (Banned)'end
        if type(v[1])==type('hi')then
        	_tab(v[1],v[5],speaker,
        	function()
        		dmp(speaker)
        		_dmtab(speaker)

        		plrmen(v[1],speaker,'ranked')
        	end)
        end
    end
end)

addcmd('pri','opens pri options',5,0,
function(speaker,args)
    local sss='off'
    local pc=c.red
    if pri then sss='on';pc='Lime green' end
    dmp(speaker)
    _tab('pri is '..sss,pc,speaker)
    _tab((pri and '[DISABLE]') or '[ENABLE]',pri and 'Really red' or 'Lime green',speaker,function()
        dmp(speaker)
        pri=not pri
        if pri then
            for i,v in pairs(plrs:GetPlayers'')do
                if getrank(v.Name)<1 then Kick(v)end
            end
        end
        alert.c('pri was '..(pri and 'enabled' or 'disabled'),c.white,speaker)
    end)
end)

addcmd('jump','makes player jump',3,1,function(speaker,args)
    local fplr=_match(args[1],speaker)
    for i,v in pairs(fplr)do
        safe.r(function()_plr(v).Character.Humanoid.Jump=true;end)
    end
end)

addcmd('rot','changes players rot style',1,1,function(speaker,args)
    local targ=speaker

    if args[1]~=nil then
        if _plr(targ)~=nil then targ=_plr(targ)end
    end
    rotmenu(targ,speaker)
end)

addcmd('sit','makes player sit',3,1,function(speaker,args)
    local fplr=_match(args[1],speaker)
    for i,v in pairs(fplr)do
        safe.r(function()_plr(v).Character.Humanoid.Sit=true;end)
    end
end)

addcmd('kill','makes player dead',3,1,function(speaker,args)
    local fplr=_match(args[1],speaker)
    for i,v in pairs(fplr)do
        safe.r(function()_plr(v).Character.Head:remove()end)
    end
end)

addcmd('fling','next plane to china',4,1,function(speaker,args)
    local fplr=_match(args[1],speaker)
    for i,v in pairs(fplr)do
        safe.r(function()_plr(v).Character.Humanoid.Sit=true;_plr(v).Character.Torso.Velocity=v3(4000,4000,4000)end)
    end
end)

addcmd('god','makes player godly',3,1,function(speaker,args)
    local fplr=_match(args[1],speaker)
    for i,v in pairs(fplr)do
        safe.r(function()_plr(v).Character.Humanoid.MaxHealth=math.huge;end)
    end
end)

addcmd('kick','makes player gone',4,1,function(speaker,args)
    local fplr=_match(args[1],speaker)
    for i,v in pairs(fplr)do
        safe.r(function()Kick(_plr(v));end)
    end
end)

addcmd('ban','makes player gone forever',5,2,function(speaker,args)
    local fplr=_plr(args[1])if not fplr then return end
    if getrank(fplr.Name)<getrank(speaker.Name)then
        if args[2]~=nil then ds.set(fplr,'reason',args[2])end
        safe.r(function()setrank(fplr,-1)Kick(_plr(fplr));end)
    end
end)

addcmd('menu','opens menu',4,1,function(speaker,args)
    dmp(speaker)
    local pc=ps.color(speaker)
    _tab('music','Lime green',speaker,function()
        chat('music',speaker)
    end)
    _tab('players','Bright blue',speaker,function()
        chat('net',speaker)
    end)
    _tab('logs','Bright yellow',speaker,function()
        chat('logs',speaker)
    end)
    _tab('settings',ps.color(speaker),speaker,function()
        dmp(speaker)
        _tab('rotation',pc,speaker,function()rotmenu(speaker,speaker)end)
        _tab('neon',pc,speaker,function()neonmenu(speaker,speaker)end)
    end)
end)

addcmd('silent','puts script in silent mode',5,0,
function()
	silentmode=true
    for i,v in pairs(plrs:GetPlayers'')do
        dmp(v)
    end
    script=nil
    logs.write'silent mode active'
end)

addcmd('set','sets plr attribute',5,3,
function(speaker,args)
    --plr att val
    if args[1]~=nil and args[2]~=nil and args[3]~=nil then
        local plr=_plr(args[1])
        if not plr then plr=args[1] else plr=plr.Name end
        local ind=tostring(args[2]):lower()
        local val=args[3]
        if plr and ind and inTable(ds.props,ind)then
            ds.set(plr,ind,val)
            alert.c('set '..plr..'\'s '..ind..' to '..tostring(val),'White',speaker,4)
        end
    end
end,
{'setr'})

addcmd('lcmd','sets locked for a player',5,2,
function(speaker,args)

    if args[1]~=nil and args[2]~=nil then
        dmp(speaker)
        local cplr=_plr(args[1])
        if not cplr then return end
        if iscmd(args[2])~=nil then
            local c=iscmd(args[2])
            if ps.islocked(c.NAME,cplr)then
                _tab(c.NAME..' is LOCKED','Really red',speaker)
                _tab('Click to unlock','Lime green',speaker,function()
                    for i,v in pairs(users)do
                        if v[1]==cplr.Name then
                            for o,b in pairs(v[7])do
                                if b:lower()==c.NAME:lower()then table.remove(v[7],o) end
                            end
                        end
                    end
                    dmp(speaker)
                    alert.c(c.NAME..' was unlocked for '..cplr.Name,'White',speaker,4)
                end)
            else
                _tab(c.NAME..' is UNLOCKED','Lime green',speaker)
                _tab('Click to lock','Really red',speaker,function()
                    safe.r(function()
                    table.insert(ds.prof(cplr.Name)[7],c.NAME)
                    end)
                    dmp(speaker)
                    alert.c(c.NAME..' was locked for '..cplr.Name,'White',speaker,4)
                end)
            end
        elseif args[2]:lower()=='-list'then
            for i,v in pairs(ds.prof(cplr.Name)[7])do
                _tab(v,'Really red',speaker,function()
                    chat("lcmd'"..cplr.Name.."'"..v,speaker)
                end)
            end
        elseif args[2]:lower()=='-clear'then
            ds.prof(cplr.Name)[7]={}
        end
    end
end,
{'lockcmd','cmdlock','commandlock'})

addcmd('exe','executes a script',5,1,
function(speaker,args,orig)
    orig=orig:sub(5)
    local x=nil
    local success,error=ypcall(function()x={loadstring(orig)}end)
    local func,err=unpack(x);
    alert.c(func(),'White',speaker)
    if success then
        alert.c('Script ran successfully','Lime green',speaker)alert.c(error,'White',speaker)
    else
        alert.c(error,c.red,speaker)
    end
end)

addcmd('songrequest','request a song',0,1,
function(speaker,args)
    dmp(speaker)
    if args[1]~=nil then
        local idz=args[1]
        if not tonumber(idz)then alert.c('Please request a song ID!','Really red',speaker)return end
        if assettype(tonumber(idz))~=3 then alert.c('Please request a song ID!','Really red',speaker)return end
        local izz=game:GetService("MarketplaceService"):GetProductInfo(tonumber(idz))
        _tab("Request \""..izz.Name..'"?','New Yeller',speaker)
        _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)
        _tab('Cancel','Really red',speaker,function()dmp(speaker)end)
    end
end,{'requestsong','request'})

addcmd('requests','view song requests',3,0,
function(speaker,args)
    dmp(speaker)
    for i,v in pairs(songrequests)do
        local izz=game:GetService("MarketplaceService"):GetProductInfo(tonumber(v))
        _tab(izz.Name,'Lime green',speaker,
        function()
            dmp(speaker)
            songmenu(tonumber(v),speaker)
            _tab('Reject','Bright red',speaker,
            function()
                songrequests[i]=nil
                chat('requests',speaker)
            end)
        end)
    end
end)
addcmd('logs','view logs',4,0,
function(speaker)
    dmp(speaker)
    _tab('view system logs','New Yeller',speaker,function()
        dmp(speaker)
        _dmtab(speaker)
        table.foreach(logs.LOG,function(k,v)
            t.t(v,'White',speaker)
        end)
    end)

    _tab('view chat logs','Bright blue',speaker,function()
        dmp(speaker)
        _dmtab(speaker)
        table.foreach(logs.CLOG,function(k,v)
            t.t(v,'White',speaker)
        end)
    end)
    _tab('clear system logs','White',speaker,function(tablet)
        rem(tablet)
        t.t('system logs cleared','White',speaker)
    end)
    _tab('clear chat logs','White',speaker,function(tablet)
        rem(tablet)
        t.t('chat logs cleared','White',speaker)
    end)
end)

plrs.PlayerAdded:connect(function(plr)
	if not enabled or update then return end
	delay(0,function()repeat wait(1)until plr.Character
    if inTable(banlist,plr.Name)then
		Kick(plr)
		alert.g((plr.Name..' tried to join the game'),3)
        return
	end
    local xx=0
    if datastores then
        xx=getrank(plr.Name)
        if xx==-1 or pri and getrank(plr.Name)==0 then
            Kick(plr)
            --alert.g((plr.Name..' tried to join the game'),3)
            return
        end

	end


    delay(.5,function()
    alert.c('bad tablets v'..ver..' running','New Yeller',plr,4)
	alert.c('your rank: '..getrank(plr),'New Yeller',plr,4)
    _tab('say cmds\' to get your commands','New Yeller',plr,function()dmp(plr)chat("cmds",plr)end,'',4)
    alert.g((plr.Name..' connected'),4)
    end)end)


	updateevents()

end)

plrs.PlayerRemoving:connect(function(x)
    if enabled and not update then
    local xx=0;
    if datastores and x then

        xx=getrank(x.Name)
    end
    if xx==-1 then

    elseif pri and xx==0 then
    alert.g((x.Name..' attempted to join'),4)
    else
	alert.g((x.Name..' disconnected'),4)
    end
	updateevents()
    end
end)
startuptime=elapsedTime()
for i,plr in pairs(plrs:GetPlayers())do

    if tonumber(getrank(plr))>=5 then
	alert.c('bad tablets v'..ver..' running','New Yeller',plr,4)
	alert.c('took '..tostring(startuptime/1000)..' seconds to start','Lime green',plr,4)
	alert.c('your rank: '..getrank(plr),'New Yeller',plr,4)
    _tab('say cmds\' to get your commands','New Yeller',plr,function()dmp(plr)chat("cmds",plr)end,'',4)
    end
    if getrank(plr)==-1 or inTable(banlist,plr.Name)then Kick(plr) end
end


alert.g('youre an admin!',4)
updateevents()

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;

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;

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;

function CLerp(a,b,t)
	local qa={QuaternionFromCFrame(a)};
	local qb={QuaternionFromCFrame(b)};
	local ax,ay,az=a.x,a.y,a.z;
	local bx,by,bz=b.x,b.y,b.z;
	local _t=1-t;
	return QuaternionToCFrame(_t*ax+t*bx,_t*ay+t*by,_t*az+t*bz,QuaternionSlerp(qa, qb, t));
end





spawn(function()
    local rot = 0
    while enabled do
        rot = rot + .001
        for i,v in pairs(tabs)do
            if plrs:FindFirstChild(i)then else
                for o,b in pairs(v)do
                    rem(b)
                end
                tabs[i]=nil
            end
        end
        for Index, Player in pairs(Players:GetPlayers()) do
            if not tabs[Player.Name]then tabs[Player.Name]={}end
            pcall(function()
                for x = 1, #tabs[Player.Name] do
                    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
                        table.remove(tabs[Player.Name], x)
                    end
                end
            end)
            local rotstylez=ds.get(Player.Name,'rot')
            local bt=0
            if datastores then if ps.wave(Player.Name)==true then bt=1 end end


            local tn=#tabs[Player.Name]
            if rotstylez:sub(1,1)=='l'then
                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)
                    local tb=tabs[Player.Name][x]

                    if Player.Character.Parent~=nil then if Player.Character:FindFirstChild'Torso' then
                        facet=6

                        local cftp=CFrame.new(Player.Character.Torso.Position)
                        local ddr=((#tabs-(#tabs%facet))/facet)+(#tabs%facet)
                        local meg=x
                        repeat meg=meg-facet ddr=ddr+1 until meg<facet if meg>0 then ddr=ddr+1 end
                        local megic =CFrame.Angles(0,math.rad((360/facet)*(x%facet)+rot*600),0)
                        local tp=CFrame.new(Player.Character.Torso.Position+(megic.lookVector*ddr*6))
                        local mst=math.sin(tick())
                        local mct=math.cos(tick())
                        local rx = mst
                        local ry = mct
                        local rz = 0
                        if rotstylez=='lrand' then tp=tp*CFrame.Angles(rx,ry,rz)end
                        if tb.Name~='x'then
                            tb.CFrame = CLerp(tb.CFrame, tp , .25)
                        end
                    end;end
                end
            else
                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)
                    if Player.Character then if Player.Character:FindFirstChild'Torso'~=nil then
                        local cftp=CFrame.new(Player.Character.Torso.Position)
                        local tb=tabs[Player.Name][x]
                        local radius=1.4*((tn)*.4)+4;
                        local rzz=(360/tn)*x


                        local xp=math.cos(((x/tn)-tn*2)*2*math.pi)*radius
                        local yp = math.sin(tick()/math.pi+((x)*bt))
                        local zp=math.sin(((x/tn)-tn*2)*2*math.pi)*radius--(math.sin((x/tn-(tn)+rot)*math.pi*2)*radius)
                        local mst=math.sin(tick())
                        local mct=math.cos(tick())
                        local rx = mst
                        local ry = mct
                        local rz = 0
                        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);

                        if rotstylez=='circlerand'then tp=tp*CFrame.Angles(rx,ry,0)end
                        if rotstylez=='flattab'then tp=tp*CFrame.Angles(0,-math.rad(rzz),0.4)end
                        if tb.Name~='x'then
                            tb.CFrame = CLerp(tb.CFrame, tp , .25)
                        else
                            tb.CFrame = CLerp(tb.CFrame, cftp , .25)
                        end
                    end;end
                end
            end
        end
        wait()
    end
end)

coroutine.wrap(
function()
    while wait(20)do
        ds.save()
        table.sort(music,
        function(a,b)
            if a[1]<b[1] then return false end
        end)
    end
end)()
--[[
end]]


--[[remmy=false
function removeothermusic()
	remmy=true
	while remmy do
		wait(2)
		m.stopmusico(workspace,true)
	end
end]]
print(magiclaxnoob)
loadmodule=function(link)
	local run,error=ypcall(function()
        local SHttp = game:GetService("HttpService")
        loadstring(SHttp:GetAsync(link,true) ) ()
        wait(.05)
    end)
    if not run then print(error) end
end
repeat wait()until not enabled
print'bad tabs disabled'


delay(0,function()
    if update then
        local run,error=ypcall(function()
            local Link = me
            local SHttp = game:GetService("HttpService")
            loadstring(SHttp:GetAsync(Link,true) ) ()
            wait(.05)
        end)
        if not run then print(error) end
    end
end)
wait(2)
--]]