--Scripted by MaleficusFreud.
--Say !text to enable it. Do !text again to disable it.
Prefix = "!"
Administrator = "OrgithZ"
MetaClearance = true
TextClearance = MetaClearance
TextColorClearance = MetaClearance
TextColorToggle = MetaClearance
    for i, v in pairs(game.Players:GetPlayers()) do
    if v.Character.Name == Administrator then
    v.Chatted:connect(function(msg)
        msg = msg:lower()
        if msg:find(Prefix .. "text") and TextClearance == true then
        wait()
        TextClearance = false
space = game.Workspace

Instance.new("BillboardGui", space[Administrator].Head)
space[Administrator].Head.BillboardGui.Name = "NameDomain"
Instance.new("TextBox", space[Administrator].Head.NameDomain)

NameTag1 = space[Administrator].Head.NameDomain
NameTag2 = space[Administrator].Head.NameDomain.TextBox

    NameTag1.ExtentsOffsetWorldSpace = Vector3.new(0, 3, 0)
    NameTag1.Size = UDim2.new(0, 200, 0, 50)
    NameTag1.LightInfluence = 0

    NameTag2.BackgroundTransparency = 1
    NameTag2.Size = UDim2.new(0, 200, 0, 50)
    NameTag2.Font = 14
    NameTag2.Text = space[Administrator].Name
    NameTag2.TextColor3 = Color3.new(118, 0, 0)
    NameTag2.TextSize = 25
    NameTag2.TextStrokeColor3 = Color3.new(0,0,0)
    NameTag2.TextStrokeTransparency = 0

    end
    end)
    end
    end

        for i, v in pairs(game.Players:GetPlayers()) do
    if v.Character.Name == Administrator then
    v.Chatted:connect(function(msg)
    msg = msg:lower()
        if msg:find(Prefix .. "text") and TextClearance == false then
            wait()
            TextClearance = MetaClearance
        NameTag1:Destroy()
    end
    end)
    end
    end

    for i, v in pairs(game.Players:GetPlayers()) do
    if v.Character.Name == Administrator then
        v.Chatted:connect(function(msg)
        if game.Workspace[Administrator].Head:FindFirstChild("NameDomain") then
            if msg ~= nil then
                space = game.Workspace
                Administrator = Administrator
                NameTag1 = space[Administrator].Head.NameDomain
                NameTag2 = space[Administrator].Head.NameDomain.TextBox
                for s = 1, string.len(msg) do
                NameTag2.Text = string.sub(msg, 1, s) wait(0.05)
            end
            end
        end
        end)
    end
    end

------------------------[ Custom Chat Color ]------------------------

        for i, v in pairs(game.Players:GetPlayers()) do
    if v.Character.Name == Administrator then
    v.Chatted:connect(function(msg)
        if game.Workspace[Administrator].Head:FindFirstChild("NameDomain") then
    msg = msg:lower()
        if msg:find(Prefix .. "colortext") and TextColorClearance == true  and TextColorToggle == true then
            wait()
            TextColorToggle = false
    repeat
        space = game.Workspace
        Administrator = Administrator
        NameTag1 = space[Administrator].Head.NameDomain
        NameTag2 = space[Administrator].Head.NameDomain.TextBox
        wait(0.1)
        NameTag2.TextColor3 = Color3.new(math.random(),math.random(),math.random())
        msg = msg:lower()
    until TextColorClearance == false
    wait()
    TextColorClearance = MetaClearance
        end
        end
        end)
    end
    end

        for i, v in pairs(game.Players:GetPlayers()) do
            if v.Character.Name == Administrator then
                v.Chatted:connect(function(msg)
                        msg = msg:lower()
                    if msg:find(Prefix .. "colortext") and TextColorToggle == false then
                        wait()
                        TextColorToggle = true
                    TextColorClearance = false
                    end
                end)
            end
        end