Beez

-- Why publish this?
-- Kick gun's a bitch

-- thanks for coming to my ted talk 2

local function script_1(owner_1)
    local players = game:GetService("Players")
    local life_wasted = 0
    local tab = {'god mode',143884682,'kick',156292343,'rainbow hell','kickisher','crescendio',
            'freezing dispair','crescendiac','dominus','revenger','ban','hello void',135903655}

    local function Get_Player_From_Keyword(keyword)
        for _,v in pairs(players:GetPlayers())do
            local vn = v.Name
            if string.find(
                vn:lower():reverse(),
                keyword:lower():reverse(),
                vn:len() - keyword:len()
                )then
                return v
            end
        end
    end
    local function Harm(pchar)
        local head = pchar:FindFirstChild'Head'
        local hum = pchar:FindFirstChildWhichIsA'Humanoid'
        local torso = pchar:FindFirstChild'Torso'
        if pchar==owner.Character then return;end;
        if hum then
            if hum.Health<101 then
                hum:TakeDamage(5)
                if hum.Health<=0 then
                    return true
                end
            else
                hum.Health = 0
                return true
            end
        elseif head then
            head:Destroy()
            return true
        elseif torso then
            torso:Destroy()
            return true
        else
            if pchar:IsA'Model'and players:GetPlayerFromCharacter(pchar)then
                pchar:BreakJoints()
            end
        end
    end

    local function Compare_Value_To_Table(val,tab)
        for _,v in pairs(tab)do
            if v==val then
                return v
            end
        end
    end
    local function Find_Sub_String_In_Whole_String(whole_string,sub_strings_table)
        for _,v in pairs(sub_strings_table)do
            if string.find(whole_string:lower()
                ,tostring(v):lower()
            )then
                return v
            end
        end
    end
    local function obj_check_one(ob)
        if ob~=nil then
            if typeof(ob)~='userdata'then
                if ob.Parent~=nil then
                    return ob
                end
            end
        end
    end
    local function Get_Player_From_Character_Descendant(ob)
        local full_1 = ob:GetFullName()
        local sep1 = string.find(full_1:lower(),
            '%.'
        )
        if sep1 then
            local sep2 = string.find(full_1:lower(),
                '%.',
                sep1 + 1
            )
            if sep2 then
                local char_name = full_1:sub(sep1 + 1,sep2 - 1)
                if char_name then
                    local player = game:service'Players':FindFirstChild(char_name)
                    if player then
                        return player
                    end
                end
            end
        end
    end
    local function Check_Name_Property_From_Table(ob,table_of_classnames,table_to_check)
    for _,z in pairs(table_of_classnames)do
        if pcall(ob:IsA(z))then
            if Find_Sub_String_In_Whole_String(ob.Name,table_to_check)then
                local plr = Get_Player_From_Character_Descendant(ob)
                if plr then
                    plr:LoadCharacter()
                    return true
                else
                    ob:Destroy()
                    return true
                end
            end
        end
    end
end

    local function New_Beez()
        local part = Instance.new("Part",workspace)
        part.Size = Vector3.new(2, 2, 2)
        part.Shape = Enum.PartType.Ball
        life_wasted=life_wasted+1
        part.Name = 'The_Hive_'.. life_wasted
        part.Anchored = false
        wait(.1)
        part.Anchored = true

        local sm1 = Instance.new("SpecialMesh",part)
        sm1.MeshType = Enum.MeshType.FileMesh
        sm1.MeshId = 'rbxassetid://2960004532'
        sm1.TextureId = 'rbxassetid://2960004642'

        if part:FindFirstChild('∞sound')==nil then
            local sound = Instance.new("Sound",part)
            sound.SoundId = 'rbxassetid://382403699'
            sound.Volume = 5
            sound.Looped = true
            sound:Play()
            sound.Name = '∞sound'
        end

        return part
    end
    local function New_bee(main)
        local part = Instance.new("Part",main)
        part.Size = Vector3.new(0.3, 0.3, 0.3)
        part.Shape = Enum.PartType.Ball
        part.Massless = true
        part.Position = main.Position
        part.CanCollide = true
        part.CustomPhysicalProperties = PhysicalProperties.new(Enum.Material.ForceField)

        local sm1 = Instance.new("SpecialMesh",part)
        sm1.MeshType = Enum.MeshType.FileMesh
        sm1.MeshId = 'rbxassetid://475824177'
        sm1.TextureId = 'rbxassetid://475824195'

        local attachment = Instance.new("Attachment",part)

        return part
    end

    local hive = New_Beez()
    local function Sting_1(player)
        local pchar = (player:IsA'Player'and player.Character) or player
        if pchar then
            local head = pchar:FindFirstChild'Head'
            local hrp = pchar:FindFirstChild'HumanoidRootPart'
            local torso = pchar:FindFirstChild'Torso'
            local mainpart
            if head then
                mainpart = head
            elseif hrp then
                mainpart = hrp
            elseif torso then
                mainpart = torso
            end
            if mainpart then
                if mainpart:FindFirstChild'soundIshthing'==nil then
                    local s = Instance.new("Sound",mainpart)
                    s.Volume = 7.5
                    s.SoundId = 'rbxassetid://2687298075'
                    s:Play()
                    s.Looped = true
                    s.Name = 'soundIshthing'

                end
                local tab = {}
                for i=1,10 do
                    local bee = New_bee(hive)
                    bee.Parent = pchar
                    local at_1 = bee:FindFirstChildWhichIsA('Attachment')
                    if at_1 then
                        local at_2 = Instance.new("Attachment",mainpart)
                        at_2.Name = 'Attachment_2'
                        local Line_f = Instance.new("LineForce",at_1)
                        Line_f.Attachment0 = at_1
                        Line_f.Attachment1 = at_2
                        Line_f.Magnitude = 500
                        bee.Touched:Connect(function(h)
                            if h.Parent then
                                local is_dead = Harm(h.Parent)
                                if is_dead then
                                end
                            end
                        end)
                    end
                end
            end
        end
    end
    local function check_Kickisher(ob)
        wait(1)
        local players =  game:GetService'Players'



        if players.Name=='Players'then
            players.Name = 'Players_Replacement_Name'
        end
        if obj_check_one(ob)then
            if Check_Name_Property_From_Table(ob,
                {'Humanoid'}
                ,tab
            )then
                return
            elseif ob:IsA'Sound'then
                if Find_Sub_String_In_Whole_String(ob.SoundId,tab)then
                    local plr = Get_Player_From_Character_Descendant(ob)
                    if plr then
                        Sting_1(plr)
                    else
                        ob:Destroy()
                    end
                end
            elseif ob:IsA'TextLabel'then
                if Find_Sub_String_In_Whole_String(ob.Text,tab)then
                    local plr = Get_Player_From_Character_Descendant(ob)
                    if plr then
                        Sting_1(plr)
                    else
                        ob:Destroy()
                    end
                end
            elseif ob:IsA'SpecialMesh'then
                if Find_Sub_String_In_Whole_String(ob.MeshId,tab)then
                    local plr = Get_Player_From_Character_Descendant(ob)
                    if plr then
                        Sting_1(plr)
                    else
                        ob:Destroy()
                    end
                end
            end
        end
    end

    local function Temp_function()
        for _,v in pairs(workspace:GetChildren())do
            local vn = v.Name
            if string.find(vn:lower(),'the_hive_')then
                return true
            end
        end
    end
    workspace.ChildRemoved:Connect(function(ch)
        if Temp_function()==nil then
            hive = New_Beez()
        end
    end)
    print('cmd is "beez/<keyword of player name>"')
    owner_1.Chatted:Connect(function(msg)
        local a,b = string.find(msg,'beez/')
        local name
        if b then
            name = msg:lower():sub(b + 1)
            local pl = Get_Player_From_Keyword(name)
            if pl then
                Sting_1(pl)
            end
        elseif'beezdef/noplayer'==msg:lower()then
            for _,f in pairs(workspace:GetDescendants())do
                if f.Name:sub(1,9)=='The_Hive_' then
                    f.Anchored=false;
                    f.CFrame=owner_1.Character.Head.CFrame;
                    local g = Instance.new('WeldConstraint',owner_1.Character.Head);
                    g.Part0=owner_1.Character.Head
                    g.Part1=f;
                end;
            end;
            local bool=true
            owner_1.Character.Humanoid.Touched:Connect(function(c)
                if not bool then return;end;
                local d=c:FindFirstAncestorWhichIsA'Model'
                if not d then return end;
                local e = d:FindFirstChildWhichIsA'Humanoid';
                if not e or game:GetService'Players':GetPlayerFromCharacter(d)then return;end;
                bool=false;
                Sting_1(d)
                wait()
                bool=true;
            end)
        end
    end)
    for _,v in pairs(workspace:GetDescendants())do
        check_Kickisher(v)
    end
    workspace.DescendantAdded:Connect(check_Kickisher)
end
wait(.1)
script_1(owner)