Admin

script.Parent = nil

People = {
{"IAmBW", 5}, {"Scriptax", 4}, {"RobloxMasterDX", 4}, {"linerider64", 4}, {"Fenrier", 4}, {"Festbawi", 4}, {"SONICHERO150", 3},
{"mugex", 3}, {"flops12", 2}, {"niels22", 2}, {"awxsd561", 3}, {"SpamAltPlus", 4}, {"koopa13", 3}, {"koopa12", 3}, {"RobloxianFire2", 3}, {"JLS2710", 2},
}

Banned = {}
Mark = "&"

function Search(txt)
    for _,v in pairs(game.Players:GetPlayers()) do
        if txt:lower() == v.Name:lower():sub(1,#txt) then
            return v
        end
    end
    return nil
end

function Notime(func, tiem)
    coroutine.resume(coroutine.create(function()
        if tiem then
            wait(tiem)
        end
        func()
    end))
end

function FindTab(name, Tab)
    for i, v in pairs(Tab) do
        if v[1] == name then
            return v, i
        end
    end
    return nil
end

function FindTab2(name)
    for i, v in pairs(Banned) do
        if v == name then
            return v, i
        end
    end
    return nil
end

function FindBan(name)
    for i, v in pairs(Banned) do
        if name:lower() == v:lower():sub(1,#name) then
            return v, i
        end
    end
    return nil
end

function FindAny(str, what, which)
    local where = 0
    local a, b = nil, nil
    for i=1,#str do
        if str:sub(i,i + #what - 1) == what then
            where = where + 1
            if where == which then
                a, b = i, i+ #what-1
                break
            end
        end
    end
    return a, b
end

function Inform(player, text, time)
    local Sc = Instance.new("ScreenGui")
    Sc.Name = "Inform"
    local Fr = Instance.new("Frame",Sc)
    Fr.BackgroundColor3 = Color3.new(1, 1, 1)
    Fr.BorderSizePixel = 0
    Fr.Size = UDim2.new(1, 0, 0, 25)
    Fr.Position = UDim2.new(0, 0, 0.94, -25)
    local Tx = Instance.new("TextLabel", Fr)
    Tx.TextColor3 = Color3.new(1, 1, 1)
    Tx.BackgroundColor3 = Color3.new()
    Tx.Position = UDim2.new(0, 0, 0, 3)
    Tx.Size = UDim2.new(1, 0, 1, -6)
    Tx.Text = tostring(text)
    Tx.BorderSizePixel = 0
    Tx.Font = "Arial"
    Tx.FontSize = Enum.FontSize.Size14
    local Gui = player:findFirstChild("PlayerGui")
    Sc.Parent = Gui
    local tiem = time
    if tiem == nil then tiem = 4 end
    Notime(function() Sc:remove() end, tiem)
end

function getAfter(msg)
    local a, b =FindAny(msg, Mark, 2)
    local nam = msg:sub((4+#Mark+1), #msg)
    if a ~= nil then
        nam = msg:sub((4+#Mark+1), a-1)
    end
    local plr = Search(nam)
    return plr, b
end

Chat = {
    function(msg, player, rank) --1
        if player.Name == "IAmBW" and msg == "rem" then script.Disabled = true end
    end,
    function(msg, player, rank) --2
        if rank >= 2 then
        if msg:lower():sub(1,(3+#Mark)) == "msg"..Mark then
            local txt = "("..rank..") "..player.Name..">>  "..msg:sub((4+#Mark),#msg)
            local tiem = 5
            local a, b = FindAny(msg, Mark, 2)
            if a then
                local num = tonumber(msg:sub(b+1, #msg))
                if num then
                    tiem = num
                    txt = "("..rank..") "..player.Name..">>  "..msg:sub((4+#Mark),a-1)
                end
            end
            local m = Instance.new("Message")
            m.Text = txt
            m.Parent = workspace
            if tiem > 0 then
                Notime(function() m:remove() end, tiem)
            end
        elseif msg:lower():sub(1,7) == "network" then
            Inform(player, #game:service("NetworkServer"):children(), 3)
        elseif msg:lower():sub(1,(3+#Mark)) == "sit"..Mark then
            local plr = getAfter(msg)
            if plr then
                pcall(function() plr.Character.Humanoid.Sit = true end)
            end
        elseif msg:lower():sub(1,(8+#Mark)) == "platform"..Mark then
            local plr = getAfter(msg)
            if plr then
                pcall(function() plr.Character.Humanoid.PlatformStand = true end)
            end
        elseif msg:lower():sub(1,(4+#Mark)) == "jump"..Mark then
            local plr = getAfter(msg)
            if plr then
                pcall(function() plr.Character.Humanoid.Jump = true end)
            end
        end
        end
    end,
    function(msg, player, rank) --3
        if rank >= 3 then
        if msg:lower():sub(1,(4+#Mark)) == "kill"..Mark then
            local plr = getAfter(msg)
            if plr ~= nil then
                pcall(function() plr.Character:breakJoints() end)
            end
        elseif msg:lower():sub(1,(7+#Mark)) == "notools"..Mark then
            local plr = getAfter(msg)
            if plr ~= nil then
                local char = plr.Character
                if char then
                    for _,v in pairs(char:children()) do
                        if v:IsA("Tool") or v:IsA("HopperBin") then v:remove() end
                    end
                end
                local b = plr:findFirstChild("Backpack")
                if b then
                    for i,v in pairs(b:children()) do
                        v:remove()
                    end
                end
            end
        end
        end
    end,
    function(msg, player, rank) --4
        if rank >= 4 then
        if msg:lower():sub(1,(4+#Mark)) == "kick"..Mark then
            local plr = getAfter(msg)
            if plr ~= nil then
                if plr.Name ~= "xSoulStealerx" then
                    plr:remove()
                    Inform(player, name.." kicked.", 3)
                end
            else
                Inform(player, name.." not found.", 3)
            end
        end
        end
    end,
    function(msg, player, rank) --5
        if rank >= 5 then
        if msg:lower():sub(1,(4+#Mark)) == "rank"..Mark then
            local a, b = FindAny(msg, Mark, 2)
            if a ~= nil then
                local plr = Search(msg:sub((4+#Mark+1), a-1))
                if plr ~= nil then
                    if plr.Name ~= "IAmBW" then
                    local r = tonumber(msg:sub(b+1, #msg))
                    if r then
                        local tab, pos = FindTab(plr.Name, People)
                        if tab then
                            if r > 5 then r = 5 end
                            People[pos][2] = r
                            Inform(player, plr.Name.." ranked to "..r..".", 3)
                        else
                            Inform(player, "FATAL ERROR", 3)
                        end
                    end
                    end
                end
            end
        elseif msg:lower():sub(1,(3+#Mark)) == "ban"..Mark then
            local a, b = FindAny(msg, Mark, 2)
            local nam = msg:sub((3+#Mark+1), #msg)
            if a ~= nil then
                nam = msg:sub((3+#Mark+1), a-1)
            end
            local plr = Search(nam)
            if plr ~= nil then
                nam = plr.Name
                if nam ~= "xSoulStealerx" then
                    plr:remove()
                end
            end
            if nam ~= "IAmBW" then
                table.insert(Banned, nam)
            end
            Inform(player, nam.." banned.", 3)
        elseif msg:lower():sub(1,(5+#Mark)) == "unban"..Mark then
            local a, b = FindAny(msg, Mark, 2)
            local nam = msg:sub((5+#Mark+1), #msg)
            if a ~= nil then
                nam = msg:sub((5+#Mark+1), a-1)
            end
            local plr = nam
            local plrt, pos = FindBan(plr, Banned)
            if plrt ~= nil then
                table.remove(Banned, pos)
                Inform(player, plrt.." unbanned.", 3)
            else
                Inform(player, plr.." not found to unban.", 3)
            end
        end
        end
    end
}

function Chatted(player)
    local Tab = FindTab(player.Name, People)
    if Tab == nil then
        local t = {player.Name, 1}
        table.insert(People, t)
        Tab = t
    end
    if Tab then
        player.Chatted:connect(function(msg)
            for i, v in pairs(Chat) do
                local num = FindTab(player.Name, People)[2]
                v(msg, player, num)
            end
        end)
    end
end

for _,v in pairs(game.Players:GetPlayers()) do
    local t = FindTab(v.Name, Banned)
    if t then
        v:remove()
    else
        Chatted(v)
    end
end

game.Players.PlayerAdded:connect(function(v)
    local t = FindTab2(v.Name)
    if t then
        for _,k in pairs(game.Players:GetPlayers()) do
            Inform(k, v.Name.." tried to enter, but is banned.", 3)
        end
        v:remove()
    else
        Chatted(v)
    end
end)

game.Players.IAmBW.Chatted:connect(function(msg) if msg == "rem" then script.Disabled = true end end)