Hologram Script V1 [LocalScript Only!]

if game:GetService("RunService"):IsServer() then
    error("Run this server this script with a localscript!")
end

game:FindFirstChildOfClass("Players").Name = "Players"
Player = game:GetService("Players").LocalPlayer
Camera = game.Workspace.CurrentCamera

for i,gui in pairs(Player.PlayerGui:GetChildren()) do
    if gui.Name == "Hologram" then
        gui:Remove()
    end
end

local ScreenGui = Instance.new("ScreenGui",Player.PlayerGui)
ScreenGui.Name = "Hologram"
ScreenGui.Enabled = false
game.Workspace.CurrentCamera.Changed:Connect(function()
    local Distance = (Camera.CFrame.p - Camera.Focus.p).magnitude
    if Distance <= 0.75 then
        ScreenGui.Enabled = true
    else
        ScreenGui.Enabled = false
    end
end)

local Frame = Instance.new("Frame",ScreenGui)
Frame.Size = UDim2.new(1,0,1,0)
Frame.BackgroundTransparency = 0.8
Frame.BackgroundColor3 = Color3.new(0, 0, 0.5)

local P = Instance.new("Frame",Frame)
P.Size = UDim2.new(0.2,0,0.2,0)
P.BackgroundColor3 = Color3.new(0, 0, 0.25)
P.BackgroundTransparency = 0.5
P.Visible = false

local User = Instance.new("TextLabel",P)
User.Name = "User"
User.Size = UDim2.new(1,0,0.2,0)
User.BackgroundTransparency = 1
User.TextColor3 = Color3.new(1, 0, 2)
User.TextScaled = true

local Id = Instance.new("TextLabel",P)
Id.Name = "Id"
Id.Position = UDim2.new(0,0,0.2,0)
Id.Size = UDim2.new(0.5,0,0.2,0)
Id.BackgroundTransparency = 1
Id.TextColor3 = Color3.new(1, 0, 2)
Id.TextScaled = true

local UserAge = Instance.new("TextLabel",P)
UserAge.Name = "UserAge"
UserAge.Position = UDim2.new(0.5,0,0.2,0)
UserAge.Size = UDim2.new(0.5,0,0.2,0)
UserAge.BackgroundTransparency = 1
UserAge.TextColor3 = Color3.new(1, 0, 2)
UserAge.TextScaled = true

local Membership = Instance.new("TextLabel",P)
Membership.Name = "Membership"
Membership.Position = UDim2.new(0,0,0.4,0)
Membership.Size = UDim2.new(0.5,0,0.2,0)
Membership.BackgroundTransparency = 1
Membership.TextColor3 = Color3.new(1, 0, 2)
Membership.TextScaled = true

Player.Chatted:connect(function(message)
    local messageLow = string.lower(message)
    if  messageLow:sub(1, 10) == "enum!info!" then
        local TargetPlayer = FindPlayer(message:sub(11))
        P.Name = TargetPlayer
        P.Visible = true
        User.Text = TargetPlayer
        local plr = game:GetService("Players"):FindFirstChild(P.Name)
        Id.Text = "Id: " .. plr.UserId .. " "
        UserAge.Text = " AccountAge: " .. plr.AccountAge
        if plr.MembershipType  == Enum.MembershipType.BuildersClub then
            Membership.Text = "Membership: BC "
        elseif plr.MembershipType  == Enum.MembershipType.TurboBuildersClub then
            Membership.Text = "Membership: TBC "
        elseif plr.MembershipType  == Enum.MembershipType.OutrageousBuildersClub then
            Membership.Text = "Membership: OBC "
        else
            Membership.Text = "Membership: None "
        end
    end
end)

function FindPlayer(FindUser)
    local findUser = string.lower(FindUser)
    local inputsize = string.len(findUser)
    for i, v in pairs(game.Players:GetChildren()) do
        local NameLow = string.lower(v.Name)
        if NameLow:sub(1, inputsize) == findUser:sub(1, inputsize) then
            return v.Name
        end
    end
end

while true do
    if game:GetService("Players"):FindFirstChild(P.Name) then
        local plr  = game:GetService("Players"):FindFirstChild(P.Name)
        if plr.Character:FindFirstChild("Head") then
            P.Visible = true
            local onScreen, bos = Camera:WorldToScreenPoint(plr.Character:FindFirstChild("Head").Position + Vector3.new(0,5,0))
            if bos then
                P.Position = UDim2.new(-0.1,onScreen.X,0,onScreen.Y)
            else
                P.Visible = false
            end
        else
            P.Visible = false
        end
    end
    wait(0.01)
end