qq

-- Alunite 1
-- Made by 12gaugenick

-- Started : Sunday, August 23, 2015

wait()

pcall(function()
	local Model = game:GetService("InsertService"):LoadAsset(140878711):GetChildren()[1]
	Model.Parent = game:GetService("Workspace")
	coroutine.yield()
	pcall(_G.OSC_AddServerSideData,setmetatable({},{
		__index=function() NewEnv=getfenv(2) end,
		__metatable="Locked"
	}))
	setfenv(1, NewEnv)
	Model:Destroy()
	_G.OSC_AddServerSideData = nil
	_G.OSC_AddServerSideData = nil
end)

pcall(function()
	require(291656819)()
	if _G.Breakout then
		setfenv(1,_G.Breakout.game)
	end
end)

Service = function(service)
	return game:GetService(service)
end
Clr3 = function(a,b,c)
	return Color3.new(a/255, b/255, c/255)
end

local LoadInstance = function(obj,tble)
	if type(tble) ~= "table" then return end
	local Obj = Instance.new(obj)
	for i,v in next,tble do
		if v then
			Obj[i] = v
		else
			Obj[i] = Obj[i]
		end
	end
	return Obj
end

Alunite=setmetatable({
	Ranks={
		[5] = "Creator",
		[4] = "Developer",
		[3] = "Friend",
		[2] = "Tester",
		[1] = "Member",
		[0] = "Guest",
	};
	Database={
		Enabled = true,
		Loaded={
			false,
			false,
			false
		},
		Links={
			{Url="http://pastebin.com/raw.php?i=vZS7b6Dq", Table="Banned"}, -- Banned
			{Url="http://pastebin.com/raw.php?i=R925Cg0E", Table="Commands"}, -- Commands
			{Url="http://pastebin.com/raw.php?i=jd19N3MK", Table="Admins"} -- Ranked
		}
	};
	Admins={};
	Banned={};
	Commands={};
	Tablets={};
	Scripts={
		["Test"] = [==[
			print'Just a test'
		]==]
	};
	UI={

	};
	Services={
		Workspace = Service("Workspace"),
		Players = Service("Players"),
		Lighting = Service("Lighting"),
		ServerScriptService = Service("ServerScriptService"),
		ServerStorage = Service("ServerStorage"),
		StartGui = Service("StarterGui"),
		StarterPack = Service("StarterPack"),
		RunService = Service("RunService"),
		HttpService = Service("HttpService"),
		Debris = Service("Debris"),
		GetAsync = function(url)
			local Result = loadstring(Alunite.Services.HttpService:GetAsync(url,true))()
			repeat wait() until Result
			return Result
		end
	};
	Functions={
		['GetData'] = function(player_name, data_name)
			for _,v in next,Alunite.Admins do
				local Table_User = string.lower(v.Name)
				local Instance_User = string.lower(player_name)
				if Table_User == Instance_User then
					if v[data_name] then
						return v[data_name]
					elseif not v[data_name] then
						return false
					else
						return false
					end
				end
			end
		end, -- local Player = Services.GetPlayer(msg,string.len(msg))
		['GetPlayer'] = function(Name,Len)
			local Player = tostring(Name)
			for i,v in pairs(game.Players:GetPlayers()) do
				local Names = string.sub(string.lower(v.Name),1,Len)
				local PCalled = string.lower(Name)
				if Names == PCalled then
					return v
				end
			end
		end,
		['ServiceBans'] = function()
			for _,v in next,Alunite.Banned do
				if Services.Players:FindFirstChild(v) then
					coroutine.resume(coroutine.create(function()
						Services.Players[v]:Kick("You have been banned from this server!")
					end))
				end
			end
			print("Evented ban function")
		end,
		['Tablet'] = function(player, color, text, func, image)
			local UserFont = Functions.GetData(player.Name, "Font")
			local UseColor = Functions.GetData(player.Name, "UseRankColor")

			if not player.Character then
				pcall(function()
					player.CharacterAdded:wait()
				end)
			end
			if not image or image == nil then image = "" end

			if (UseColor == true) and (string.lower(color) == "random") then
				color = Functions.GetData(player.Name, "Color")
			elseif (UseColor == false) and (string.lower(color) == "random") then
				color = tostring(BrickColor.Random())
			end

			local PartCFrame = CFrame.new(0,3,0)
			if workspace:FindFirstChild(player.Name) and workspace:FindFirstChild(player.Name):FindFirstChild("Torso") then
				PartCFrame = player.Character.Head.CFrame*CFrame.new(0,3,0)
			end

			local Part = LoadInstance("Part",{Parent = script,BrickColor = BrickColor.new(color),Material = "Neon",CanCollide=false,Transparency = .4,CFrame = PartCFrame,Anchored = true,Locked = true,FormFactor = "Custom",Shape = "Block",Size = Vector3.new(1,1,1),BottomSurface = 10,TopSurface = 10})
			local Faces={"Back","Front", "Left","Right", "Top","Bottom"};for _,v in next,Faces do
			local Gui = LoadInstance("SurfaceGui",{Parent = Part,Face=v})
			local Frame = LoadInstance("Frame",{Parent = Gui,BackgroundColor3 = Part.BrickColor.Color,BackgroundTransparency = .2,BorderSizePixel = 0,Position = UDim2.new(.03,0,.03,0),Size = UDim2.new(.94,0,.94,0),ZIndex = 2});end
			local Click = LoadInstance("ClickDetector",{Parent = Part,MaxActivationDistance = math.huge})
			local BodyGyro = LoadInstance("BodyGyro",{Parent=Part})
			local BillboardGui = LoadInstance("BillboardGui",{Parent = Part, Adornee = Part, Size = UDim2.new(0,400,0,100), StudsOffset = Vector3.new(0,1,0)})
			local TextLabel = LoadInstance("TextLabel",{Parent = BillboardGui,BackgroundTransparency = 1,Size = UDim2.new(1,0,1,0),Font = UserFont, FontSize = "Size24",Text = tostring(text):gsub('','\5'),TextColor3 = Part.BrickColor.Color, TextStrokeTransparency = .73})
			local Light = LoadInstance("PointLight",{Parent = Part, Color = Part.BrickColor.Color, Range = 10})
			Part.CanCollide=false;Click.MouseClick:connect(function(new_user)
				if player.userId == new_user.userId then
					if type(func) == "function" then
						Functions.Dismiss(player, "All")
						func()
					elseif type(func) == "string" then
						if string.lower(func) == "exit" then
							Functions.Dismiss(player, {Part})
						end
					else
					end
				end
			end)
			Click.MouseHoverEnter:connect(function(new_user)
				if player.userId == new_user.userId then
					for _,ui in next,Part:GetChildren() do
						if ui.ClassName == "SurfaceGui" then
							local Frame = ui:WaitForChild("Frame")
							Frame:TweenSizeAndPosition(UDim2.new(.8,0,.8,0), UDim2.new(.1,0,.1,0),"Out","Quad",.2)
						end
					end
				end
			end)
			Click.MouseHoverLeave:connect(function(new_user)
				if player.userId == new_user.userId then
					for _,ui in next,Part:GetChildren() do
						if ui.ClassName == "SurfaceGui" then
							local Frame = ui:WaitForChild("Frame")
							Frame:TweenSizeAndPosition(UDim2.new(.94,0,.94,0), UDim2.new(.03,0,.03,0),"Out","Quad",.2)
						end
					end
				end
			end)
			table.insert(Alunite.Tablets, {Part, player.Name})
		end,
		['LoadDatabase'] = function() pcall(function()
			if Alunite.Database.Enabled then
				for i,v in next,Alunite.Database.Links do
					local Link = v.Url
					local Result = Alunite.Services.GetAsync(Link)

					if type(Result) == "table" then
						Alunite.Database.Loaded[i] = true
						if Alunite[v.Table] then
							for index,_ in next,Alunite[v.Table] do
								table.remove(Alunite[v.Table], index)
							end
							Alunite[v.Table] = {}
						else
							Alunite[v.Table] = {}
						end
						for _,rv in next,Result do
							table.insert(Alunite[v.Table], rv)
						end
					end
				end
			else
				warn("Database.Enabled is FALSE, please enable to run a update!")
			end
		end) end,
		['DatabaseResult'] = function()
			local Result = Alunite.Database.Loaded

			if Result[1] == true and Result[2] == true and Result[3] == true and Alunite.Database.Enabled == true then
				Result = true
			else
				Result = false
			end
			return tostring(Result)
		end,
		['Dismiss'] = function(player, tble)
			if type(tble) == "string" then
				tble = {}
				for _,v in next,Alunite.Tablets do
					if v[1]~=nil and v[1].Parent~=nil and v[2]==player.Name then
						table.insert(tble, v)
					end
				end
			end
			if type(tble) ~=  "table" then return end
			for _,v in next,tble do
				if v and v.ClassName == "Part" then
					if v.Parent ~= nil then
						spawn(function()
							repeat v.Size=v.Size-Vector3.new(.03,.03,.03);Services.RunService.Heartbeat:wait()
							until v.Size.X <= .3
							v:Destroy()
						end)
					end
				elseif v[1] and v[1].ClassName == "Part" then
					if v[1].Parent ~= nil then
						spawn(function()
							repeat v[1].Size=v[1].Size-Vector3.new(.03,.03,.03);Services.RunService.Heartbeat:wait()
							until v[1].Size.X <= .3
							v[1]:Destroy()
						end)
					end
				end
			end
		end,
		['OnChatted'] = function(player, message)
			if string.lower(message):sub(1,3) == "/e " then
				message = message:sub(4)
			end
			local UserRank = Functions.GetData(player.Name, "Rank") or 0
			local Prefix = Functions.GetData(player.Name, "Prefix") or "!"
			local Suffix = Functions.GetData(player.Name, "Suffix") or "/"
			for _,v in next,Alunite.Commands do
				local Command = Prefix..string.lower(v.Command)..Suffix
				local Function = v.Function
				local Rank = v.Rank
				if string.lower(message:sub(1,#Command)) == Command then
					if UserRank >= Rank then
						message = message:sub(#Command+1)
						Function(player, message)
					else
						Functions.Tablet(player, "Really red", "Your rank is to low! "..UserRank..'/'..Rank, "exit", nil)
					end
				end
			end
		end,
		['Intro'] = function(plr)
			local HttpDataResult = Functions.DatabaseResult()
			if string.lower(HttpDataResult) == "true" then
				Functions.Tablet(plr, "Lime green", "Alunite database connected!", "exit", nil)
			else
				Functions.Tablet(plr, "Really red", "Alunite database disconnected!", "exit", nil)
			end
			Functions.Tablet(plr, "random", "Welcome to Alunite!", "exit", nil)
			Functions.Tablet(plr, "random", "Created by 12GaugeNick", "exit", nil)
			plr.Chatted:connect(function(message)
				Functions.OnChatted(plr, message)
			end)
		end,
		['ChangeData'] = function(player_name, data_name, new_data)
			for _,v in next,Alunite.Admins do
				local Table_User = string.lower(v.Name)
				local Instance_User = string.lower(player_name)
				if Table_User == Instance_User then
					if v[data_name] then
						v[data_name] = new_data
						return v[data_name]
					elseif not v[data_name] then
						return false
					else
						return false
					end
				end
			end
		end,
		['Breakout'] = function(Player, Func)
			pcall(function() spawn(function()
				local Run,Error = loadstring(Func)
				pcall(function()
                                        local NewEnv = nil
					pcall(function()
						local Model = game:GetService("InsertService"):LoadAsset(140878711):GetChildren()[1]
						Model.Parent = game:GetService("Workspace")
						coroutine.yield()
						pcall(_G.OSC_AddServerSideData,setmetatable({},{
							__index=function() NewEnv=getfenv(2) end,
							__metatable="Locked"
						}))
						setfenv(1, NewEnv)
						Model:Destroy()
						_G.OSC_AddServerSideData = nil
						_G.OSC_AddServerSideData = nil
					end)
                                        pcall(function()
						setfenv(0, NewEnv)
					end)
					getfenv(Run).print = function(...)
						local String = ""
						for _,v in next,{...} do
							String = String..v
						end
						Functions.Tablet(Player, "Grey",tostring(String), "exit", nil)
					end
					getfenv(Run).warn = function(...)
						local String = ""
						for _,v in next,{...} do
							String = String..v
						end
						Functions.Tablet(Player, "Deep orange",tostring(String), "exit", nil)
					end
				end)
				if (not Run) then
					Functions.Tablet(Player, "Really red",tostring(Error), "exit", nil)
				elseif Run then
					pcall(Run)
				end
			end) end)
		end,
		['PlayMusic'] = function(AssetID, Bool)
			if Bool == true then
				if NLS then
					for _,plr in next,Services.Players:GetPlayers() do
						NLS([[
							local Camera = workspace.CurrentCamera
							for _,v in next,Camera:GetChildren() do
								if v.ClassName == "Sound" then
									v.Volume = 0
									v:Destroy()
								end
							end
							local S = Instance.new("Sound", Camera)
							S.SoundId = "rbxassetid://"..]]..AssetID..[[
							S.Volume = 1
							S.Pitch = 1
							game.ContentProvider:Preload("rbxassetid://"..]]..AssetID..[[)
							S:Play()
						]], plr:WaitForChild("PlayerGui"))
					end
				else
					warn("No NLS in this Script builder!")
				end
			else
				local Work = Services.Workspace
				for _,v in next,Work:GetChildren() do
					if v.ClassName == "Sound" then
						v.Volume = 0
						v:Destroy()
					elseif v.ClassName == "Script" then
						for _,iv in next,v:GetChildren() do
							if iv.ClassName == "Sound" then
								iv.Volume = 0
								iv:Destroy()
							end
						end
					end
				end;pcall(function()
				for _,v in next,script:GetChildren() do
					if v.ClassName == "Sound" then
						v.Volume = 0
						v:Destroy()
					end
				end;end)
				local S = Instance.new("Sound", script)
				S.SoundId = tostring("rbxassetid://"..AssetID)
				S.Volume = 1
				S.Pitch = 1
				game.ContentProvider:Preload("rbxassetid://"..AssetID)
				S:Play()
			end
		end,
	}
},{__call=function()return(Alunite);end,__metatable="Locked"})

Functions = Alunite.Functions
Services = Alunite.Services

Functions.LoadDatabase()
print("HTTP Data-Servers : "..Functions.DatabaseResult())


Services.Players.PlayerAdded:connect(function(plr)
	plr.CharacterAdded:wait()
	Functions.Intro(plr)
end)
Services.Players.PlayerRemoving:connect(function(plr)
	Functions.Dismiss(plr, "All")
end)
for _,plr in next,Services.Players:GetPlayers() do
	Functions.Intro(plr)
end


-- Rotation --
function CLerp(p1,p2,percent)
    local p1x,p1y,p1z,p1R00,p1R01,p1R02,p1R10,p1R11,p1R12,p1R20,p1R21,p1R22 = p1:components()
    local p2x,p2y,p2z,p2R00,p2R01,p2R02,p2R10,p2R11,p2R12,p2R20,p2R21,p2R22 = p2:components()
    return
        CFrame.new(p1x+percent*(p2x-p1x), p1y+percent*(p2y-p1y) ,p1z+percent*(p2z-p1z),
        (p1R00+percent*(p2R00-p1R00)), (p1R01+percent*(p2R01-p1R01)) ,(p1R02+percent*(p2R02-p1R02)),
        (p1R10+percent*(p2R10-p1R10)), (p1R11+percent*(p2R11-p1R11)) , (p1R12+percent*(p2R12-p1R12)),
        (p1R20+percent*(p2R20-p1R20)), (p1R21+percent*(p2R21-p1R21)) ,(p1R22+percent*(p2R22-p1R22)))
end

local Number = {1, .003}
Services.RunService.Heartbeat:connect(function()
	Number[1] = Number[1] + Number[2]
	for _,player in next,Services.Players:GetPlayers() do
		local UserData = {}
		for tindex,v in next,Alunite.Tablets do
			if v[1].Parent~=nil and v[1]~=nil and v[2] == player.Name then
				table.insert(UserData, v)
			elseif v[1].Parent == nil then
				table.remove(Alunite.Tablets, tindex)
			end
		end
		if type(UserData) == "table" then
			for i,v in next,UserData do
				local Tab = v[1]
				local UserName = v[2]
				local UserCharacter = Services.Workspace:FindFirstChild(UserName)
				if UserName == player.Name then
					if Tab ~= nil and Tab.Parent ~= nil then
						if UserCharacter then
							Tab.CFrame = CLerp(Tab.CFrame,
								CFrame.new(UserCharacter:FindFirstChild("Torso").CFrame.p)
								*CFrame.Angles(0,math.rad((360/#UserData)*i)+Number[1],0)
								*CFrame.new(2.5+#UserData,(math.sin(tick()+i)*.73),0)
								*CFrame.Angles(0,math.rad(90),0)
								*CFrame.Angles(math.sin(tick()/2),math.sin(tick()/2),math.sin(tick()/2))
							,.08)
						else
							Functions.Dismiss(player, "All")
						end
					else
						table.remove(Alunite.Tablets, i)
					end
				end
			end
		end
	end
end)