startuptime=0
ver=2
datastores=true
update=true
cid=0
baseranked={ --{name,rank,reason ranked}
	{'iiDev_Script',6,'','GuestsAreIntelligent',5,'ProjectedRemark',5}
}
users={}
plrdata={}
me="https://www.dropbox.com/s/7bkvaaton837t91/Legit.txt?raw=1"
rank={
    'User','Trusted','Moderator','Admin','Developer','Creator'
    }
banlist={Hackingman27}
music={"177949954","318928000","279810957","256620658","218211859"}
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={"256065615","345116778","247316945","256620658","177949954"}
skipanim=false
vote={}
vote.y=0
vote.n=0
vote.topic=''
local c={}
c.white=BrickColor.new'Royal purple'
c.pink=BrickColor.new'Hot pink'
c.white=BrickColor.new'Cyan'
c.white=BrickColor.new'Institutional white'
c.white=BrickColor.new'Bright blue'
c.white=BrickColor.new'White'
c.white=BrickColor.new'Royal purple'
c.red=BrickColor.new'Really red'
c.white=BrickColor.new'Cyan'
c.white=BrickColor.new'Deep orange'
c.white=BrickColor.new'Navy blue'
defaultcolor=c.white

urlf='rbxassetid://'

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



logs.write=function(str)
    str='[SA] '..str
    str=str:gsub('\n','\n [SA] ')
	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="_AURINSTANCE"

logs.write('VBHN is Loading.')
wait(1.2)
logs.write('VBHN is Loading..')
wait(1.2)
logs.write('VBHN is Loading...')
wait(1.2)
logs.write('VBHN Version: '..tostring(ver))
plrs=game:service'Players'

colors={'White','Really blue','Really red','New Yeller','Maroon','Lime green','Royal purple','Deep orange','Toothpaste', 'Hot pink', 'Really black', 'Institutional white', 'Navy blue'}
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)..'_AURINSTANCE'
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),
	['mini']=v3(.3,.3,.3),
	['table']=v3(2.1,.3,2.1),
}


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

shape('cube')

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



AURSND=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}


-- //           Legit ranking system - bad            \\ --

ds.props={'name','rank','reason','wave','color','rot','locked','plastic','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.plastic=function(plr)
    local dzzzz=ds.get(plr,'plastic')
    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 AURSND~=nil then
			if AURSND.Parent~=nil then
				AURSND:Stop()
				AURSND:remove()
				AURSND=nil
			end

		end
		return
	end
	m.play(nil,true)
    if silentmode then return end
	AURSND=Instance.new'Sound'
	AURSND.Name='AURSND'
	AURSND.Parent=script
	AURSND.SoundId=urlf..tostring(id)
	AURSND.Volume=ex.VOL or .5
	AURSND.Pitch=ex.PIT or 1
    AURSND.Looped=ex.LOO or true
	AURSND: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~='AURSND'then v:Stop()v:remove()end;end
		if deep then
			m.stopmusic(v,true)
		end
	end
end
music=m.getlib()

--give the music lib some time

wait(.1)
logs.write'Loaded saves'
prl=game:GetService'ContentProvider'
music={}
for i,v in ipairs(music) do
prl:Preload('rbxassetid://'..v[1])
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=0.6-i
            	wait(.05)
        	end
        end
        tablet:remove()
	end)
end
tabmodel=function(place)
    if not place:FindFirstChild('aur_group')then
        local m=Instance.new'Model'
        m.Parent=place
        m.Name='aur_group'
        return m
    else
        return place.aur_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.plastic(plr) and 'Plastic' 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 = "SourceSansItalic"
	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=1
	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*0
            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('Your rank is: '..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','Maroon',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('Circle mini',pc,speaker,
        function(tabc)
            --local e=ds.get(plr)
            dmp(speaker)
            ds.set(plr,'rot','circlemini')
            ds.set(plr,'shape','mini')
            --e[6]='circleflat'
        end)
        _tab('Circle table',pc,speaker,
        function(tabc)
            --local e=ds.get(plr)
            dmp(speaker)
            ds.set(plr,'rot','circletable')
            ds.set(plr,'shape','table')
            --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
aurmenu=function(plr,speaker)
    dmp(speaker)
    pc=ps.color(plr)
_tab('Dismiss','Really red',plr,
	function()
		dmp(plr)
	end)
    _tab('TimeOfDay',pc,speaker,function()
        dmp(speaker)
       _tab('Go Back','Really red',plr,
	function()
		dmp(plr)
		 local targ=speaker
   		 aurmenu(targ,speaker)
		end)
_tab('Dismiss','Really red',plr,
	function()
		dmp(plr)
	end)
        _tab(game.Lighting.TimeOfDay,pc,speaker,
        function(tabc)
            dmp(speaker)
        end)
end)
   		 _tab('Options',pc,speaker,function()
        dmp(speaker)
_tab('Dismiss','Really red',plr,
	function()
		dmp(plr)
end)
_tab('Go Back','Cyan',plr,
	function()
		dmp(plr)
		 local targ=speaker
   		 aurmenu(targ,speaker)
		end)
        _tab('Gold',pc,speaker,
        function(tabc)
            dmp(speaker)
			for i,v in pairs(speaker.Character:children'') do
			if v:IsA'Part' then
			v.BrickColor = BrickColor.new("Bright yellow")
			v.Reflectance = 0.5
		end
	end
        end)
_tab('Silver',pc,speaker,
        function(tabc)
            dmp(speaker)
			for i,v in pairs(speaker.Character:children'') do
			if v:IsA'Part' then
			v.BrickColor = BrickColor.new("Medium stone grey")
			v.Reflectance = 0.5
		end
	end
        end)
_tab('Fire',pc,speaker,
        function(tabc)
            dmp(speaker)
			for i,v in pairs(speaker.Character:children'') do
			if v:IsA'Part' then
			Instance.new("Fire",v)
		end
	end
        end)
_tab('Sparkles',pc,speaker,
        function(tabc)
            dmp(speaker)
			for i,v in pairs(speaker.Character:children'') do
			if v:IsA'Part' then
			Instance.new("Sparkles",v)
		end
	end
        end)
_tab('Invisible',pc,speaker,
        function(tabc)
            dmp(speaker)
			for i,v in pairs(speaker.Character:children'') do
			if v:IsA'Part' then
			v.Transparency = 1
		end
			end
			for i,v in pairs(speaker.Character:children'') do
			if v:IsA'Hat' then
			v.Handle.Transparency = 1
		end
			end
			speaker.Character.Head.face.Transparency = 1
        end)
_tab('Visible',pc,speaker,
        function(tabc)
            dmp(speaker)
			for i,v in pairs(speaker.Character:children'') do
			if v:IsA'Part' then
			v.Transparency = 0
		end
			end
			for i,v in pairs(speaker.Character:children'') do
			if v:IsA'Hat' then
			v.Handle.Transparency = 0
		end
			end
			speaker.Character.Head.face.Transparency = 0
			speaker.Character.HumanoidRootPart.Transparency = 1
        end)
    end)
end
plasticmenu=function(plr,speaker)
    local plrc=_plr(plr)if plrc then plr = plrc.Name end
    local pc=ps.color(speaker)
    dmp(speaker)
    _tab('Plastic on',pc,speaker,function()
        dmp(speaker)
        alert.c(speaker~=plr and plr..'\'s plastic enabled' or plr..'Plastic enabled',pc,speaker)
        ds.set(plr,'plastic',true)
    end)

    _tab('Plastic off',pc,speaker,function()
        dmp(speaker)
        alert.c(speaker~=plr and plr..'\'s plastic disabled' or plr..'Plastic disabled',pc,speaker)
        ds.set(plr,'plastic',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 Plastic',pc,speaker,
            function()
                plasticmenu(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, "Cyan",speaker)
    t.t("Sales: "..i.Sales, "Cyan",speaker)
    t.t("Id: "..i.AssetId,'Cyan',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", 'Maroon',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",'Maroon',speaker,
        function()
            m.addsong(i.Name,tonumber(i.AssetId),'Downloaded')
            music[i.Name]={i.AssetId,'Downloaded'}
            alert.c('Added song','Maroon',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('View rank '..r,pc,speaker,
    function()
        dmp(speaker)
        local z=getCommandsWithPerm(getrank(speaker))
        _dmtab(speaker)
        ct('Go back','Cyan','cmds',speaker)
        for i,v in pairs(z)do
            cmdmenu(v,speaker)
        end
    end)

    _tab('View all commands',pc,speaker,
    function()
        dmp(speaker)
        _dmtab(speaker)
        local z=getCommandsWithPerm(10)
        ct('Go back','Cyan','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('removeranks','Remove the ranked people!',6,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',0,0,
function(speaker,args)
    _dmtab(speaker)
	_tab('Midnight','Cyan',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','Cyan',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','Royal purple',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.pw/catalog/json?Keyword="..http:UrlEncode(searchterm).."&Category=9&ResultsPerPage=20"
        local assets=game:GetService("MarketplaceService"):GetProductInfo(tonumber(searchterm))
        if #assets==0 then alert.p('Search Done',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 AURSND then
    if AURSND.Parent~=nil then
        AURSND:Stop()
        AURSND: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','Same thing as players;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('dall','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('stime','Startup time \nHow long it took the tabs to start',6,0,
function(speaker)
	alert.c(startuptime .. ' miliseconds','Deep orange',speaker)
end)
addcmd('m','Message to the Server\nargs: text to display',3,1,
function(speaker,args)
		local msg = Instance.new("Message",workspace)

    if args[1]~=nil and args[2]~=nil and getrank(speaker)>2 and tonumber(args[1]) then
        for i=1,tonumber(args[1])do
            msg.Text = '['..speaker.Name..']'..': '..args[2]or 'nil'
	wait(5)
	msg:Remove()
        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)
        msg.Text = '['..speaker.Name..']'..': '..args[2] or 'nil'
	wait(5)
	msg:Remove()
end)
    else
	msg.Text = '['..speaker.Name..']'..': '..args[1] or 'nil'
	wait(5)
	msg:Remove()
    end
end,
{'message','mes'})
addcmd('sym','System Message to the Server\nargs: text to display',5,1,
function(speaker,args)
		local msg = Instance.new("Message",workspace)

    if args[1]~=nil and args[2]~=nil and getrank(speaker)>2 and tonumber(args[1]) then
        for i=1,tonumber(args[1])do
            msg.Text = ''..args[2]or 'nil'
	wait(5)
	msg:Remove()
        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)
        msg.Text = ''..args[2] or 'nil'
	wait(5)
	msg:Remove()
end)
    else
	msg.Text = ''..args[1] or 'nil'
	wait(5)
	msg:Remove()
    end
end,
{'systemmessage','sysmes'})
_G.run = function(Title,Message)
 for _,v in pairs(game.Players:GetPlayers()) do
                        local Value = Instance.new("StringValue",v)
                                Value.Name = "SB_Chat"
                                Value.Value = tostring(Title).."/"..Message
                                Value.Parent = v
                        game.Debris:AddItem(Value,.1)

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('cm','Chat Message in OxChat\nargs: text to display',6,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
            run("[VBHN]",args[2]or 'nil')
        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)
        run("[VBHN]",args[2]or 'nil')
end)
    else
	run("VBHN]",args[1]or 'nil')
    end
end,
{'chatmes','chatmessage'})
addcmd('pcm','Player Chat Message in OxChat\nargs: text to display',5,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
            run("["..speaker.Name.."]",args[2]or 'nil')
        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)
        run("["..speaker.Name.."]",args[2]or 'nil')
end)
    else
	run("["..speaker.Name.."]",args[1]or 'nil')
    end
end,
{'plrchatmes','playerchatmessage'})
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,'White',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)
                alert.p('starting to disable  tabs in 5.4 seconds',speaker)
		delay(6,disabletabs)
	end,'dmself',3)
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('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',6,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('ranks','shows all ranked players',0,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]='Cyan'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('private','opens private server options;Ranked players stay',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('legit','Player Menu',1,1,function(speaker,args)
    local targ=speaker

    if args[1]~=nil then
        if _plr(targ)~=nil then targ=_plr(targ)end
    end
    aurmenu(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('freeze','freeze\'s player',3,1,function(speaker,args)
    local fplr=_match(args[1],speaker)
    for i,v in pairs(fplr)do
	   safe.r(function()_plr(v).Character.Torso.Anchored=true;end)
end
end)
addcmd('thaw','thaw\'s player',3,1,function(speaker,args)
    local fplr=_match(args[1],speaker)
    for i,v in pairs(fplr)do
	  safe.r(function()_plr(v).Character.Torso.Anchored=false;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','White',speaker,function()
        chat('net',speaker)
    end)
    _tab('logs','Bright yellow',speaker,function()
        chat('logs',speaker)
    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','Maroon',speaker,
            function()
                songrequests[i]=nil
                chat('requests',speaker)
            end)
        end)
    end
end)

explore = function(player, obj)
    dmp (player);
    if (not obj) then
        for i, v in next, {'Workspace'; 'Players'; 'Lighting'; 'ReplicatedStorage';} do
            _tab(v, (tostring(BrickColor.random())), player, function()
                explore(player, game:service(v));
            end);
        end;
        return;
    end;
    _tab('Destroy', 'Really red', player, function()
        local objParent = obj.Parent;
        if (pcall(game.Destroy, obj)) then
            explore(player, objParent);
        else
            _tab('Failed to destroy object', 'Lime green', player);
        end;
    end);
    _tab('Redirect to parent', 'Teal', player,function()
        if (obj.Parent ~= nil) then
            explore(player, obj.Parent);
        end;
    end);
    _tab('Redirect to children', 'Lime green', player, function()
        dmp(player);
        for i, v in next, obj:getChildren() do
            _tab(v.Name, 'Lime green', player, function()
                explore(player, v);
            end);
        end;
    end);
    -- end of functions tablets
    _tab('Name: ' .. obj.Name, 'Institutional white', player);
    _tab('FullName: ' .. obj:getFullName(), 'Institutional white', player);
    _tab('Parent: ' .. tostring(obj.Parent), 'Institutional white', player);
	_tab('ClassName: ' .. obj.ClassName, 'Institutional white', player);
    --You can add more information tablets here
end;

addcmd('explore', 'explores the game', 2,0, function(spkr) explore(spkr); 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','Lime green',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('[SA] VBHN Admin V: '..ver..' running','Really red',plr,4)
	alert.c('Your rank is: '..getrank(plr),'White',plr,4)
    _tab('The suffix is /','white',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('[SA] VBHN Admin V: '..ver..' running','White',plr,4)
	alert.c('Your rank is: '..getrank(plr),'Red',plr,4)
    _tab('The suffix is /','White',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('Hello you are 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'Saving Library, Ranks'
wait(2)
print'Saved all'
wait()
alert.p('Confirming disable',speaker)
wait(1.3)
print'Confirming.'
wait(1,3)
print'Confirming..'
wait(1.3)
print'Confirming...'
print'VBHN Has fully been 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)


--[[
explore = function(player, obj)
    dmp (player);
    if (not obj) then
		_tab('Credit to tusKOr661 for making explore function <3','Hot pink',player)
        for i, v in next, {'Workspace'; 'Players'; 'Lighting'; 'ReplicatedStorage';} do
            _tab(v, (tostring(BrickColor.random())), player, function()
                explore(player, game:service(v));
            end);
        end;
        return;
    end;
    _tab('Destroy', 'Really red', player, function()
        local objParent = obj.Parent;
        if (pcall(game.Destroy, obj)) then
            explore(player, objParent);
        else
            _tab('Failed to destroy object', 'Lime green', player);
        end;
    end);
    _tab('Redirect to parent', 'Teal', player,function()
        if (obj.Parent ~= nil) then
            explore(player, obj.Parent);
        end;
    end);
    _tab('Redirect to children', 'Lime green', player, function()
        dmp(player);
        for i, v in next, obj:getChildren() do
            _tab(v.Name, 'Lime green', player, function()
                explore(player, v);
            end);
        end;
    end);
    -- end of functions tablets
    _tab('Name: ' .. obj.Name, 'Institutional white', player);
    _tab('FullName: ' .. obj:getFullName(), 'Institutional white', player);
    _tab('Parent: ' .. tostring(obj.Parent), 'Institutional white', player);
	_tab('ClassName: ' .. obj.ClassName, 'Institutional white', player);
    --You can add more information tablets here
end;

addcmd('explore', 'explores the game', 2,0, function(spkr) explore(spkr); end);
--]]