Advertisement
CFDatabase

Actinium7-TABLET_OUTPUT

Mar 4th, 2016
1,566
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 4.24 KB | None | 0 0
  1. local cFont = require(script:FindFirstChild("MainModule",true) or 415544813);
  2. local cache={}
  3. local CREATE = (assert(loadstring(game:GetService('HttpService'):GetAsync'https://raw.githubusercontent.com/RobloxLabs/internal-code/master/library-scripts/RbxUtility-60595411.lua'))().Create)or(assert(LoadLibrary'RbxUtility').Create) function cache:Output(Table) local UI_Faces,Part_Faces,UI_Frames={ "Back"; "Bottom"; "Front"; "Left"; "Right"; "Top"; },{"BackSurface"; "BottomSurface"; "FrontSurface"; "LeftSurface"; "RightSurface"; "TopSurface"; },{},{} if not Table.Text then Table.Text = "N/A" end local Tab = CREATE"Part"{Name=tostring(Table.Player); Parent=workspace; CFrame=CFrame.new(workspace:WaitForChild(Table.Player.Name):WaitForChild("Head").CFrame.p)*CFrame.new(0,3,0); BrickColor=(Table).Color; Material="Neon"; Transparency=0.8; Anchored=true; CanCollide=false; Locked=true; FormFactor="Custom"; Size=Vector3.new(1,1,1) } local Wire = CREATE"Part"{Name="Wire"; Parent=Tab; CFrame=Tab.CFrame; BrickColor=(Table).Color; Material="Neon"; Transparency=0.8; Anchored=true; CanCollide=false; Locked=true; FormFactor="Custom"; Size=Vector3.new(.2,.2,.2) } local Click = CREATE"ClickDetector"{Parent=Tab; MaxActivationDistance=math.huge} local Sound = CREATE"Sound"{Parent=Tab;Volume=1;Pitch=1} local PointLight = CREATE"PointLight"{Parent=Tab; Brightness=100; Color=((Table).Color).Color; Range=6} local BillboardGui = CREATE"BillboardGui"{Parent=Tab; Size=UDim2.new(3,0,3,0); StudsOffset=Vector3.new(0,0.7,0)}  
  4.     local TextLabel = CREATE"TextLabel"{
  5.         Parent=BillboardGui;
  6.         BackgroundTransparency=1;
  7.         Size=UDim2.new(1,0,.5,0);
  8.         Font="SourceSansBold";
  9.         FontSize="Size18";
  10.         Text=Table.Text;
  11.         TextColor3=BrickColor.White().Color;
  12.         TextStrokeColor3=((Table).Color).Color;
  13.         TextStrokeTransparency=0.2
  14.     }  
  15.     --cFont.setup(Table.Text, "Squares");  
  16.     if Table.Image~=nil then  local ImageLabel = CREATE"ImageLabel"{Parent=BillboardGui; BackgroundTransparency=1; Position=UDim2.new(0.3,0,-0.3,0); Size=UDim2.new(0.4,0,0.5,0); Image=Table.Image}  end for _,v in next,Part_Faces do Tab[v]=10 end for _,v in next,UI_Faces do local Frames = CREATE"SurfaceGui"{Parent=Tab; Face=v; Name = "Frame"}  local Frame = CREATE"Frame"{Name="Frame"; Parent = Frames; BackgroundColor3 = ((Table).Color).Color; BackgroundTransparency=.3; BorderSizePixel=0; Position=UDim2.new(.03,0,.03,0); Size=UDim2.new(.94,0,.94,0);  }  table.insert(UI_Frames, Frame) end local function DismissTab() repeat game:GetService("RunService").Heartbeat:wait() Tab.Size=Vector3.new(Tab.Size.X-0.05,Tab.Size.Y-0.05,Tab.Size.Z-0.05) Tab.Transparency=Tab.Transparency-.05 PointLight.Range=PointLight.Range+.5 for i,v in next,UI_Frames do if(v~=nil)then v.BackgroundTransparency=v.BackgroundTransparency+.02 end end until Tab.Size.X<0.3 Tab:Destroy() end Click.MouseHoverEnter:connect(function(Player_Hover) if(Player_Hover.Name==Table.Player.Name)then Sound.SoundId="rbxassetid://332353919" Sound:Play() for i=1,4 do game:GetService("RunService").Heartbeat:wait() Tab.Size=Vector3.new(Tab.Size.X+0.05,Tab.Size.Y+0.05,Tab.Size.Z+0.05) Tab.Transparency=Tab.Transparency-.05 PointLight.Range=PointLight.Range+.5 for i,v in next,UI_Frames do if(v~=nil)then v.BackgroundTransparency=v.BackgroundTransparency-.02 end end end; end end) Click.MouseHoverLeave:connect(function(Player_Hover) if(Player_Hover.Name==Table.Player.Name)then for i=1,4 do game:GetService("RunService").Heartbeat:wait() Tab.Size=Vector3.new(Tab.Size.X-0.05,Tab.Size.Y-0.05,Tab.Size.Z-0.05) Tab.Transparency=Tab.Transparency+.05 PointLight.Range=PointLight.Range-.5 for i,v in next,UI_Frames do if(v~=nil)then v.BackgroundTransparency=v.BackgroundTransparency+.02 end end end; end end) Click.MouseClick:connect(function(Player_Clicked) if(Player_Clicked.Name==Table.Player.Name)then Sound.SoundId="rbxassetid://332623133" Sound:Play() if(type(Table.Function)=="function")then spawn(DismissTab) local r,e = ypcall(function() Table.Function() end) if not r then warn("[PartModule]: ", e) end elseif(Table.Dismissable==true)then spawn(DismissTab) elseif(Table.Dismissable==false)then end end end) delay(Table.Time, DismissTab) Tab.DescendantAdded:connect(function(Obj) if(Obj.ClassName=="StringValue")then if(Obj.Name=="Dismiss")then DismissTab() end end end) return(Tab) end return cache
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement