Control Gui

wait()
local owner = game:GetService("Players").SoftlockedUnderZero
if owner.Character~=nil then
    local ch = owner.Character
    if ch:FindFirstChild'HumanoidRootPart'then
        local p1 = Instance.new("Part",ch)
        p1.CFrame = ch.HumanoidRootPart.CFrame * CFrame.new(0,0,7.5)
        p1.Massless = true
        p1.Transparency = 1
        p1.Name = '∞Pos'
        p1.CanCollide = false
        local w = Instance.new("WeldConstraint",p1)
        w.Part0 = p1
        w.Part1 = ch.HumanoidRootPart
    end
end
workspace.ChildAdded:Connect(function(ch)
    if game:GetService("Players"):GetPlayerFromCharacter(ch)and ch==owner.Character then
        wait(.1)
        local p1 = Instance.new("Part",ch)
        p1.CFrame = ch.HumanoidRootPart.CFrame * CFrame.new(0,0,7.5)
        p1.Massless = true
        p1.Transparency = 1
        p1.Name = '∞Pos'
        p1.CanCollide = false
        local w = Instance.new("WeldConstraint",p1)
        w.Part0 = p1
        w.Part1 = ch.HumanoidRootPart
    end
end)


local gui = Instance.new("ScreenGui",owner:FindFirstChildWhichIsA'PlayerGui')
gui.ResetOnSpawn = false

local frame = Instance.new("Frame",gui)
frame.Active = true
frame.BackgroundColor3 = Color3.new(0,0,0)
frame.BackgroundTransparency = .5
frame.Draggable = true
frame.Position = UDim2.new(.375,0,.25,0)
frame.Size = UDim2.new(.25,0,.5,0)
frame.ClipsDescendants = true
frame.Selectable = true

local TBTar = Instance.new("TextLabel",frame)
TBTar.BackgroundColor3 = frame.BackgroundColor3
TBTar.Size = UDim2.new(1,0,.25,0)
TBTar.Font = Enum.Font.Code
TBTar.Text = ' '
TBTar.TextColor3 = Color3.new(255, 255, 255)
TBTar.TextScaled = true

local GetTarget = Instance.new("TextButton",frame)
GetTarget.BackgroundColor3 = frame.BackgroundColor3
GetTarget.Position = UDim2.new(0,0,.25,0)
GetTarget.Size = TBTar.Size
GetTarget.Font = TBTar.Font
GetTarget.Text = 'Get Target'
GetTarget.TextColor3 = TBTar.TextColor3
GetTarget.TextScaled = true

local GetPos = Instance.new("TextButton",frame)
GetPos.BackgroundColor3 = Color3.new(255,0,0)
GetPos.Position = UDim2.new(0,0,.5,0)
GetPos.Size = TBTar.Size
GetPos.Font = TBTar.Font
GetPos.Text = 'Route to Owner'
GetPos.TextColor3 = TBTar.TextColor3
GetPos.TextScaled = true

local sv = Instance.new("StringValue",frame)
sv.Value = ''

owner.Chatted:Connect(function(msg)
    if msg:sub(1,5):lower()=='/e c 'then
        TBTar.Text = msg:sub(6,msg:len())
    end
end)

local function weldi(p0,p1)
    local w = Instance.new("WeldConstraint",p0)
    w.Part0 = p0
    w.Part1 = p1
end
local function GetPlayerFromKeyWord(kw)
    for _,v in pairs(game:GetService'Players':GetPlayers())do
        if string.find(
            string.reverse(string.lower(v.Name)),
            string.reverse(string.lower(kw)),
            string.len(v.Name)-kw:len()
        )~=nil then
            return v
        end
    end
    return nil
end
local function Eyes(tplayer)
    if tplayer~=nil then
        local tchar = tplayer.Character
        if tchar~=nil then
            local thead = tchar:FindFirstChild'Head'
            local thum = tchar:FindFirstChildWhichIsA'Humanoid'
            if thead and thum then
                local e1 = Instance.new("Part",tchar)
                e1.CFrame = thead.CFrame*CFrame.new(-0.1, 0.25, -0.6)
                weldi(thead,e1)
                e1.Size = Vector3.new(0.15, 0.2, 0.1)
                e1.CanCollide = false
                e1.Massless = true
                e1.Material = Enum.Material.Neon
                e1.Name = '∞eye1'

                local sm1 = Instance.new("SpecialMesh",e1)
                sm1.MeshType = Enum.MeshType.Sphere

                local e2 = Instance.new("Part",tchar)
                e2.CFrame = thead.CFrame*CFrame.new(.1, 0.25, -0.6)
                weldi(thead,e2)
                e2.Size = Vector3.new(0.15, 0.2, 0.1)
                e2.CanCollide = false
                e2.Massless = true
                e2.Material = Enum.Material.Neon
                e2.Name = '∞eye2'

                local sm2 = Instance.new("SpecialMesh",e2)
                sm2.MeshType = Enum.MeshType.Sphere

                return {e1,e2}
            else
                print('No head or humanoid')
            end
        else
            print('no character')
        end
    else
        print('no player')
    end
end

GetTarget.MouseButton1Click:Connect(function()
    local targ = GetPlayerFromKeyWord(TBTar.Text)
    for _,v in pairs(game:GetService'Players':GetPlayers())do
        v.DevTouchMovementMode = Enum.DevTouchMovementMode.UserChoice
        v.DevComputerMovementMode = Enum.DevComputerMovementMode.UserChoice
    end
    if targ then
        local eye1 = workspace:FindFirstChild('∞eye1',true)
        local eye2 = workspace:FindFirstChild('∞eye2',true)
        if eye1 then
            eye1:Destroy()
        end
        if eye2 then
            eye2:Destroy()
        end
        Eyes(targ)
        TBTar.Text = targ.Name
        sv.Value = targ.Name
    else


        local eye1 = workspace:FindFirstChild('∞eye1',true)
        local eye2 = workspace:FindFirstChild('∞eye2',true)
        if eye1 and eye2 then
            eye1:Destroy()
            eye2:Destroy()
        end
    end
end)

local gpbool = false
GetPos.MouseButton1Click:Connect(function()
    if gpbool==false then
        local target = GetPlayerFromKeyWord(sv.Value)
        print(target)
        if target then
            local tchar = target.Character
            local eye1 = tchar:FindFirstChild'∞eye1'
            local eye2 = tchar:FindFirstChild'∞eye2'
            local thum = tchar:FindFirstChildWhichIsA'Humanoid'
            if tchar and eye1 and eye2 and thum and tchar.Name==TBTar.Text then
                eye1.BrickColor = BrickColor.new("Dark blue")
                eye2.BrickColor = BrickColor.new("Dark blue")
                target.DevComputerMovementMode = Enum.DevComputerMovementMode.Scriptable
                target.DevTouchMovementMode = Enum.DevTouchMovementMode.Scriptable
                local p1 = owner.Character:FindFirstChild'∞Pos'
                local rs = game:GetService("RunService")
                workspace.ChildAdded:Connect(function(ch)
                    if ch==target.Character then
                        tchar = target.Character
                        eye1 = tchar:FindFirstChild'∞eye1'
                        eye2 = tchar:FindFirstChild'∞eye2'
                        thum = tchar:FindFirstChildWhichIsA'Humanoid'
                    end
                end)

                rs.Stepped:Connect(function()
                    if gpbool==true and thum and eye1 and eye2 and tchar and thum.Parent.Name==sv.Value then
                        if p1 then
                            thum:MoveTo(p1.Position)
                        elseif owner.Character:FindFirstChild'Head'then
                            thum:MoveTo(owner.Character:FindFirstChild'Head'.Position)
                        else
                            thum:MoveTo(Vector3.new(0,0,0))
                        end
                    end
                end)

                GetPos.BackgroundColor3 = Color3.new(0,255,0)
                gpbool = true
            end
        end
    else
        local eye1 = workspace:FindFirstChild('∞eye1',true)
        local eye2 = workspace:FindFirstChild('∞eye2',true)
        if eye1 and eye2 then
            eye1.BrickColor = BrickColor.new('Medium stone grey')
            eye2.BrickColor = BrickColor.new('Medium stone grey')
            local tpl = game:GetService("Players"):GetPlayerFromCharacter(eye1.Parent)
            if tpl then
                tpl.DevComputerMovementMode = Enum.DevComputerMovementMode.UserChoice
                tpl.DevTouchMovementMode = Enum.DevTouchMovementMode.UserChoice
            end
        end
        GetPos.BackgroundColor3 = Color3.new(255,0,0)
        gpbool = false
    end
end)
workspace.ChildAdded:Connect(function(ch)
    local pch = game:GetService("Players"):GetPlayerFromCharacter(ch)
    if pch then
        if pch.Name==TBTar.Text then
            Eyes(pch)
            if gpbool then
                local eye1 = ch:FindFirstChild'∞eye1'
                local eye2 = ch:FindFirstChild'∞eye2'
                eye1.BrickColor = BrickColor.new("Dark blue")
                eye2.BrickColor = BrickColor.new("Dark blue")

                local thum = ch:FindFirstChildWhichIsA'Humanoi'
                local p1 = owner.Character:FindFirstChild'∞Pos'
                local rs = game:GetService("RunService")
                rs.Stepped:Connect(function()
                    if gpbool==true and thum and eye1 and eye2 and tchar and thum.Parent.Name==sv.Value then
                        if p1 then
                            thum:MoveTo(p1.Position)
                        elseif owner.Character:FindFirstChild'Head'then
                            thum:MoveTo(owner.Character:FindFirstChild'Head'.Position)
                        else
                            thum:MoveTo(Vector3.new(0,0,0))
                        end
                    end
                end)
            end
        end
    end
end)