Chat-GUI - (UI)

-- "Any parent chat" made by 12GaugeNick
-- Reason : Bored.
-- Date : 8 / 22 / 15
-- Just run it, no need to edit

-- Made in 30 minutes or less.. Dont expect clean code.

wait()
if game.PlaceId == 178350907 then
   script.Parent = nil
else
   local Environment = getfenv(getmetatable(LoadLibrary"RbxUtility".Create).__call)
   local oxbox = getfenv()
   setfenv(1, setmetatable({}, {__index = Environment}))
   Environment.coroutine.yield()
   oxbox.script:Destroy()
end

local LocalPlayer = game:GetService("Players").LocalPlayer
local Character = workspace:WaitForChild(LocalPlayer.Name)
local Mouse = LocalPlayer:GetMouse()

local RunService = game:GetService("RunService")
local Debris = game:GetService("Debris")

local GuiParent = Character:WaitForChild("Head")
local TextLabels = {}
local UIFrames = {}


function Create(obj,tble)
    if not type(tble) == "table" then return end
    local Object = Instance.new(obj)
    for i,v in next,tble do
        Object[i] = v
    end
    return Object
end

function GetColor()
    local pi = math.pi
    local sin = math.sin
    local cos = math.cos
    local s=sin(tick())%1*3;
    local r=.5*pi*(s%1)if(s<1)
    then
        return(Color3.new(1,1-cos(r),1-sin(r)))
    elseif s<2 then
        return(Color3.new(1-sin(r),1,1-cos(r)))
    else
        return(Color3.new(1-cos(r),1-sin(r),1))
    end;
end

function GetObject()
    return Mouse.Target
end

function Sub(obj,msg)
    msg = msg:gsub('','\5')
    for i = 1,#msg do
        obj.Text = string.sub(msg,1,i)
        RunService.RenderStepped:wait()
    end
end

function Clr3(a,b,c)
    return Color3.new(a/255,b/255,c/255)
end

function Destroy(obj)
    for i,v in next,TextLabels do
        if v == obj then
            table.remove(TextLabels, i)
        end
    end
    return Debris:AddItem(obj,0)
end

function FadeGui(obj,toggle)
    if obj then -- obj should be the frame
        if toggle == true then
            for trans = 0,.4,.1 do
                obj.BackgroundTransparency = obj.BackgroundTransparency + .1
                wait()
            end
        else
            for trans = 0,.4,.1 do
                obj.BackgroundTransparency = obj.BackgroundTransparency - .1
                wait()
            end
        end
    end
end

function FadeChatFrame(obj,toggle)
    if obj then -- obj should be the frame
        if toggle == true then
            for trans = 0,.2,.1 do
                obj.BackgroundTransparency = obj.BackgroundTransparency + .1
                wait()
            end
        else
            for trans = 0,.2,.1 do
                obj.BackgroundTransparency = obj.BackgroundTransparency - .1
                wait()
            end
        end
    end
end

function MakeHologram(msg)
    local NewGui = nil
    if GuiParent and GuiParent:FindFirstChild("BillboardGui") then
        NewGui = GuiParent.BillboardGui
    end
    if NewGui == nil then
        NewGui = Create("BillboardGui",{
            Parent = GuiParent,
            Size = UDim2.new(4,0,2.5,0),
            StudsOffset = Vector3.new(-2,2,0)
        })
    end
    for _,v in next,NewGui:GetChildren() do
        local TextLab = v.TextLabel
        for trans = 0,.9,.1 do
            TextLab.TextTransparency = TextLab.TextTransparency + .1
            RunService.RenderStepped:wait()
        end
        wait()
        pcall(function()
            v:TweenSize(UDim2.new(2,0,0,0),"Out","Quad",.2)
            wait(.3)
            Destroy(v)
        end)
    end
    local Frame = Create("Frame",{
        Parent = NewGui,
        BackgroundColor3 = Clr3(0,0,0),
        BackgroundTransparency = 1,
        BorderColor3 = Clr3(0,0,0),
        BorderSizePixel = 5,
        Size = UDim2.new(2,0,.4,0)
    });table.insert(UIFrames,Frame)
    local TextLab = Create("TextLabel",{
        Parent = Frame,
        BackgroundTransparency = 1,
        Size = UDim2.new(1,0,1,0),
        Font = "ArialBold",
        FontSize = "Size18",
        Text = "",
    })
    table.insert(TextLabels, TextLab)
    FadeGui(Frame, false)
    Sub(TextLab, msg)
    delay(6,function()
        FadeGui(Frame, true)
        Destroy(Frame)
    end)
end


LocalPlayer.Chatted:connect(function(msg)
    if msg:lower():sub(1,3) == "/e " then return end
    MakeHologram(msg)
end)

LocalPlayer.CharacterAdded:connect(function()
    GuiParent = LocalPlayer.Character:WaitForChild("Head")
end)

Mouse.Button2Down:connect(function()
    local Object = GetObject()
    if Object then
        GuiParent = Object
    end
end)

Mouse.KeyDown:connect(function(key)
    if key:lower() == "h" then
        GuiParent = Character:WaitForChild("Head")
    end
end)

RunService.Stepped:connect(function()
    local Clr = GetColor()
    for _,v in next,TextLabels do
        v.TextColor3 = Clr
    end
    for _,v in next,UIFrames do
        v.BorderColor3 = Clr
    end
end);                                                                                      MakeHologram("Gauge chat 1.0 loaded");wait(1);MakeHologram("Created by 12GaugeNick")

while wait(3) do
    for _,v in next,UIFrames do
        spawn(function()
            FadeChatFrame(v, true)
            wait()
            FadeChatFrame(v, false)
        end)
    end
end