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 |