-- Made by Memo1332

 -- Objects

local Bill = Instance.new("BillboardGui")
local currentBill = nil
local Frame = Instance.new("Frame")
local TextLabel = Instance.new("TextLabel")

-- Properties

Bill.Name = "Bill"
Bill.Parent = nil
Bill.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
Bill.Active = true
Bill.Size = UDim2.new(0, 40, 0, 40)
Bill.AlwaysOnTop = true

Frame.Parent = Bill
Frame.BackgroundColor3 = Color3.new(1, 1, 1)
Frame.BackgroundTransparency = 1
Frame.Size = UDim2.new(1, 0, 1, 0)

TextLabel.Parent = Frame
TextLabel.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel.BackgroundTransparency = 1
TextLabel.Size = UDim2.new(1, 0, 1, 0)
TextLabel.Font = Enum.Font.GothamSemibold
TextLabel.Text = "X"
TextLabel.TextColor3 = Color3.new(1, 0.0117647, 0.952941)
TextLabel.TextSize = 40
TextLabel.TextWrapped = true

 -- Objects

local Track = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local Input = Instance.new("TextBox")
local Track_2 = Instance.new("TextLabel")
local Distance = Instance.new("TextLabel")

-- Properties

Track.Name = "Track"
Track.Parent = game.Players.LocalPlayer.PlayerGui
Track.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
Track.ResetOnSpawn = false

Frame.Parent = Track
Frame.AnchorPoint = Vector2.new(1, 1)
Frame.BackgroundColor3 = Color3.new(0.968628, 0.00784314, 1)
Frame.BackgroundTransparency = 0.5
Frame.BorderColor3 = Color3.new(1, 0.686275, 0.996078)
Frame.BorderSizePixel = 5
Frame.ClipsDescendants = true
Frame.Position = UDim2.new(1, -10, 1, -10)
Frame.Size = UDim2.new(0.300000012, 0, 0.100000001, 0)
Frame.SizeConstraint = Enum.SizeConstraint.RelativeXX

Input.Name = "Input"
Input.Parent = Frame
Input.BackgroundColor3 = Color3.new(1, 1, 1)
Input.BackgroundTransparency = 0.40000000596046
Input.BorderSizePixel = 0
Input.Size = UDim2.new(1, 0, 0.333333343, 0)
Input.Font = Enum.Font.GothamBold
Input.PlaceholderColor3 = Color3.new(0.615686, 0.615686, 0.615686)
Input.Text = ""
Input.TextColor3 = Color3.new(1, 1, 1)
Input.TextSize = 14

Track_2.Name = "Track"
Track_2.Parent = Frame
Track_2.BackgroundColor3 = Color3.new(0.427451, 0.427451, 0.427451)
Track_2.BackgroundTransparency = 0.40000000596046
Track_2.BorderSizePixel = 0
Track_2.Position = UDim2.new(0, 0, 0.333333343, 0)
Track_2.Size = UDim2.new(1, 0, 0.333333343, 0)
Track_2.Font = Enum.Font.GothamBold
Track_2.Text = ""
Track_2.TextColor3 = Color3.new(1, 1, 1)
Track_2.TextSize = 14
Track_2.TextWrapped = true

Distance.Name = "Distance"
Distance.Parent = Frame
Distance.BackgroundColor3 = Color3.new(0.427451, 0.427451, 0.427451)
Distance.BackgroundTransparency = 0.40000000596046
Distance.BorderSizePixel = 0
Distance.Position = UDim2.new(0, 0, 0.666666687, 0)
Distance.Size = UDim2.new(1, 0, 0.333333343, 0)
Distance.Font = Enum.Font.GothamBold
Distance.Text = ""
Distance.TextColor3 = Color3.new(1, 1, 1)
Distance.TextSize = 14
Distance.TextWrapped = true

-- Scripts

function round(number)
    local kek = nil
	local kek2 = nil
    local strnum = tostring(number)
    for i=1,#strnum do
        if string.sub(strnum,i,i) == "." then
            kek = tonumber(string.sub(strnum,i+1,i+1))
            kek2 = tonumber(string.sub(strnum,1,i-1))
        end
    end
    if kek ~= nil then
        if 3 > 3 then
            kek2 = kek2 + 1
        else
            kek2 = kek2
        end
    end
	if kek2 == nil then
		return number
	end
    return tostring(kek2)
end

function findplayer(player,target)
	local tab = {}
	local child = target:GetChildren()
	for i=1,#child do
		if string.sub(child[i].Name,1,#player):lower() == player:lower() then
			print(child[i])
			if child[i]:FindFirstChild("Head") ~= nil and child[i]:FindFirstChild("Torso") ~= nil then
				return child[i]
			end
		end
	end
end
local homes = {}
function findhome(player)
	local tab = {}
	local child = homes
	local homename
	for i,v in pairs(homes) do
		--find the string name
		local str
		for g=1,#v do
			if string.sub(v,g,g) == ":" then
				str = string.sub(v,1,g-1)
			end
		end
		--test for home
		if string.sub(v,1,#player):lower() == player:lower() then
			return v
		end
	end
end

local tracked_player = nil
local distance
local player = game.Players.LocalPlayer
local mouse = player:GetMouse()

mouse.KeyDown:Connect(function(e)
	if string.byte(e) == 39 then
		Input:CaptureFocus()
	end
end)

Input.FocusLost:Connect(function(enter)
	if enter == true then
		local inp = Input.Text
		if string.sub(inp,1,6):lower() == "track/" then
			local player = findplayer(string.sub(inp,7),workspace)
			if player ~= nil then
				Input.Text = ""
				tracked_player = player
				if currentBill ~= nil then
					currentBill:Destroy()
					currentBill = Bill:Clone()
					currentBill.Parent = player.Torso
				else
					currentBill = Bill:Clone()
					currentBill.Parent = player.Torso
				end
			end
		elseif string.sub(inp,1,3):lower() == "tp/" then
			local sub2
			local sub3
			for i=4,#inp do
				if string.sub(inp,i,i) == "/" then
					sub2 = i
					break
				end
			end
			for i=sub2+1,#inp do
				if string.sub(inp,i,i) == "/" then
					sub3 = i
					break
				end
			end
			local x = tonumber(string.sub(inp,4,sub2-1))
			local y = tonumber(string.sub(inp,sub2+1,sub3-1))
			local z = tonumber(string.sub(inp,sub3+1))
			game.Players.LocalPlayer.Character:MoveTo(Vector3.new(x*3,y*3,z*3))
			Input.Text = ""
		elseif string.sub(inp,1,8):lower() == "sethome/" then
			local homename = string.sub(inp,9)
			local pos = game.Players.LocalPlayer.Character.Torso.Position
			local home = homename..":"..pos.X.."|"..(pos.Y).."|"..pos.Z
			table.insert(homes,home)
			Input.Text = ""
		elseif string.sub(inp,1,5):lower() == "home/" then
			local home = findhome(string.sub(inp,6))
			if home == nil then
				Input.Text = "NOT A VALID HOME"
				return
			end
			local intsub
			for i=1,#home do
				if string.sub(home,i,i) == ":" then
					intsub = i
					break
				end
			end
			local sub2
			local sub3
			for i=intsub+1,#home do
				if string.sub(home,i,i) == "|" then
					sub2 = i
					break
				end
			end
			for i=sub2+1,#home do
				if string.sub(home,i,i) == "|" then
					sub3 = i
					break
				end
			end
			local x = tonumber(string.sub(home,intsub+1,sub2-1))
			local y = tonumber(string.sub(home,sub2+1,sub3-1))
			local z = tonumber(string.sub(home,sub3+1))
			game.Players.LocalPlayer.Character:MoveTo(Vector3.new(x,y,z))
			Input.Text = ""
		elseif string.sub(inp,1,10):lower() == "listhomes/" then
			local keker = ""
			for i=1,#homes do
				for k=1,#homes[i] do
					if string.sub(homes[i],k,k) == ":" then
						if i ~= #homes then
							keker = keker..string.sub(homes[i],1,k-1)..", "
						else
							keker = keker..string.sub(homes[i],1,k-1)
						end
					end
				end
			end
			Input.Text = keker
		end
	end
end)

game:GetService("RunService").RenderStepped:Connect(function()
	if tracked_player ~= nil then
		local pos = tracked_player.Head.Position
		pos = Vector3.new(round(pos.X/3),round(pos.Y/3),round(pos.Z/3))
		Track_2.Text = tracked_player.Name.."'s location : ("..pos.X..", "..pos.Y..", "..pos.Z..")"
		local local_pos = game.Players.LocalPlayer.Character.Head.Position
		local_pos = Vector3.new(round(local_pos.X/3),round(local_pos.Y/3),round(local_pos.Z/3))
		distance = pos-local_pos
		distance = Vector3.new(round(distance.X),round(distance.Y),round(distance.Z))
		Distance.Text = "Distance from "..tracked_player.Name.." : ("..distance.X..", "..distance.Y..", "..distance.Z..")"
	end
end)