View difference between Paste ID: GTrnPqBV and 8SbbqUTy
SHOW: | | - or go back to the newest paste.
1
if game:GetService("RunService"):IsServer() then
2
	error("Run this server this script with a localscript!")
3
end
4
5
game:FindFirstChildOfClass("Players").Name = "Players"
6
Player = game:GetService("Players").LocalPlayer
7
Camera = game.Workspace.CurrentCamera
8
 
9
for i,gui in pairs(Player.PlayerGui:GetChildren()) do
10
    if gui.Name == "Hologram" then
11
        gui:Remove()
12
    end
13
end
14
 
15
local ScreenGui = Instance.new("ScreenGui",Player.PlayerGui)
16
ScreenGui.Name = "Hologram"
17-
ScreenGui.Enabled = false
17+
ScreenGui.Enabled = true
18-
game.Workspace.CurrentCamera.Changed:Connect(function()
18+
19-
    local Distance = (Camera.CFrame.p - Camera.Focus.p).magnitude
19+
20-
    if Distance <= 0.75 then
20+
21-
        ScreenGui.Enabled = true
21+
22-
    else
22+
23-
        ScreenGui.Enabled = false
23+
24
local P = Instance.new("Frame",Frame)
25
P.Size = UDim2.new(0.2,0,0.2,0)
26
P.BackgroundColor3 = Color3.new(0, 0, 0.25)
27
P.BackgroundTransparency = 0.5
28
P.Visible = false
29
30
local User = Instance.new("TextLabel",P)
31
User.Name = "User"
32
User.Size = UDim2.new(1,0,0.2,0)
33
User.BackgroundTransparency = 1
34
User.TextColor3 = Color3.new(1, 0, 2)
35
User.TextScaled = true
36
37
local Id = Instance.new("TextLabel",P)
38
Id.Name = "Id"
39
Id.Position = UDim2.new(0,0,0.2,0)
40
Id.Size = UDim2.new(0.5,0,0.2,0)
41
Id.BackgroundTransparency = 1
42
Id.TextColor3 = Color3.new(1, 0, 2)
43
Id.TextScaled = true
44
45
local UserAge = Instance.new("TextLabel",P)
46
UserAge.Name = "UserAge"
47
UserAge.Position = UDim2.new(0.5,0,0.2,0)
48
UserAge.Size = UDim2.new(0.5,0,0.2,0)
49
UserAge.BackgroundTransparency = 1
50
UserAge.TextColor3 = Color3.new(1, 0, 2)
51
UserAge.TextScaled = true
52
53
local Membership = Instance.new("TextLabel",P)
54
Membership.Name = "Membership"
55
Membership.Position = UDim2.new(0,0,0.4,0)
56
Membership.Size = UDim2.new(0.5,0,0.2,0)
57
Membership.BackgroundTransparency = 1
58
Membership.TextColor3 = Color3.new(1, 0, 2)
59
Membership.TextScaled = true
60
 
61
Player.Chatted:connect(function(message)
62
    local messageLow = string.lower(message)
63
    if  messageLow:sub(1, 10) == "enum!info!" then
64
        local TargetPlayer = FindPlayer(message:sub(11))
65
        P.Name = TargetPlayer
66
        P.Visible = true
67
		User.Text = TargetPlayer
68
		local plr = game:GetService("Players"):FindFirstChild(P.Name)
69
		Id.Text = "Id: " .. plr.UserId .. " "
70
		UserAge.Text = " AccountAge: " .. plr.AccountAge
71
		if plr.MembershipType  == Enum.MembershipType.BuildersClub then
72
			Membership.Text = "Membership: BC "
73
		elseif plr.MembershipType  == Enum.MembershipType.TurboBuildersClub then
74
			Membership.Text = "Membership: TBC "
75
		elseif plr.MembershipType  == Enum.MembershipType.OutrageousBuildersClub then
76
			Membership.Text = "Membership: OBC "
77
		else
78
			Membership.Text = "Membership: None "
79
		end
80
    end
81
end)
82
 
83
function FindPlayer(FindUser)
84
    local findUser = string.lower(FindUser)
85
    local inputsize = string.len(findUser)
86
    for i, v in pairs(game.Players:GetChildren()) do
87
        local NameLow = string.lower(v.Name)
88
        if NameLow:sub(1, inputsize) == findUser:sub(1, inputsize) then
89
            return v.Name
90
        end
91
    end
92
end
93
 
94
while true do
95
    if game:GetService("Players"):FindFirstChild(P.Name) then
96
        local plr  = game:GetService("Players"):FindFirstChild(P.Name)
97
        if plr.Character:FindFirstChild("Head") then
98
            P.Visible = true
99
            local onScreen, bos = Camera:WorldToScreenPoint(plr.Character:FindFirstChild("Head").Position + Vector3.new(0,5,0))
100
            if bos then
101
                P.Position = UDim2.new(-0.1,onScreen.X,0,onScreen.Y)
102
            else
103
                P.Visible = false
104
            end
105
        else
106
            P.Visible = false
107
        end
108
    end
109
    wait(0.01)
110
end