local data = game:GetService("DataStoreService"):GetDataStore("ForeverDevAdmin" .. game.Name)

local admins = {
    ["-1"] = 3,
    ["1210210"] = 3
}

local each = function(array, callback)
    for index, value in pairs(array) do
        callback(index, value)
    end
end

local attr = function(object, property, value)
    if type(property) == "table" then
        for key, set in pairs(property) do
            object[key] = set
        end
    else
        object[property] = value
    end
end

local removeElement = function(array, element)
    for index, value in ipairs(array) do
        if value == element then
            table.remove(array, index)
            break
        end
    end
    return array
end

local findElement = function(array, element)
    for index, value in ipairs(array) do
        if value == element then
            return true
        end
    end
    return false
end

local alert;
alert = function(player, receiver, message, isMsg)
    local sgui = Instance.new("ScreenGui", receiver.PlayerGui)
    local frame = Instance.new("Frame", sgui)
    local title = Instance.new("TextLabel", frame)
    local body = Instance.new("TextLabel", frame)
    local ignore = Instance.new("TextButton", frame)
    local submit, reply;
    if not isMsg then
        submit = Instance.new("TextButton", frame)
        reply = Instance.new("TextBox", frame)
    end
    attr(frame, {
        Size = UDim2.new(0, 400, 0, 250),
        Position = UDim2.new(0.5, -200, 0, -250),
        ZIndex = 8
    })
    attr(title, {
        Size = UDim2.new(1, 0, 0, 50),
        Text = (isMsg and "Message" or "PM") .. " from " .. player.Name,
        TextColor3 = Color3.new(1, 1, 1),
        TextStrokeTransparency = 0,
        TextWrapped = true,
        FontSize = Enum.FontSize.Size18,
        ZIndex = 9
    })
    attr(body, {
        Size = UDim2.new(1, 0, 1, -110),
        Position = UDim2.new(0, 0, 0, 60),
        Text = message,
        TextColor3 = Color3.new(1, 1, 1),
        TextWrapped = true,
        TextYAlignment = Enum.TextYAlignment.Top,
        TextStrokeTransparency = 0,
        FontSize = Enum.FontSize.Size14,
        BorderSizePixel = 0,
        ZIndex = 9
    })
    attr(ignore, {
        Size = UDim2.new(0, 50, 0, 50),
        Position = UDim2.new(0, 0, 1, -50),
        Text = "Close",
        TextColor3 = Color3.new(1, 0, 0),
        FontSize = Enum.FontSize.Size12,
        ZIndex = 10
    })
    if not isMsg then
        attr(submit, {
            Size = UDim2.new(0, 50, 0, 50),
            Position = UDim2.new(0, 50, 1, -50),
            Text = "Reply",
            TextColor3 = Color3.new(0, 1, 0),
            FontSize = Enum.FontSize.Size12,
            ZIndex = 10
        })
        attr(reply, {
            Size = UDim2.new(1, -100, 0, 50),
            Position = UDim2.new(0, 100, 1, -50),
            Text = "Type what you want to reply here.",
            TextColor3 = Color3.new(0, 1, 0),
            FontSize = Enum.FontSize.Size12,
            ZIndex = 10
        })
        submit.MouseButton1Down:connect(function()
            frame:TweenPosition(
                UDim2.new(0.5, -200, 0, -250),
                Enum.EasingDirection.Out,
                Enum.EasingStyle.Quad,
                1
            )
            game.Debris:AddItem(sgui, 3)
            alert(receiver, player, reply.Text)
        end)
    end
    ignore.MouseButton1Down:connect(function()
        frame:TweenPosition(
            UDim2.new(0.5, -200, 0, -250),
            Enum.EasingDirection.Out,
            Enum.EasingStyle.Quad,
            1
        )
        game.Debris:AddItem(sgui, 3)
    end)
    frame:TweenPosition(
        UDim2.new(0.5, -200, 0.5, -125),
        Enum.EasingDirection.Out,
        Enum.EasingStyle.Back,
        1
    )
end

local target = function(targ, speaker)
    if targ:lower() == "all" then
        return game.Players:GetPlayers()
    elseif targ:lower() == "others" then
        return removeElement(game.Players:GetPlayers(), speaker)
    elseif targ:lower() == "me" then
        return {speaker}
    elseif targ:find(",") then
        local people = {}
        targ:gsub("(%a+)", function(catch)
            table.insert(people, catch)
        end)
        local players = {}
        each(game.Players:GetPlayers(), function(_, this)
            each(people, function(_, name)
                if this.Name:lower():sub(1, name:len()) == name:lower() then
                    table.insert(players, this)
                end
            end)
        end)
        return players
    else
        local people;
        each(game.Players:GetPlayers(), function(_, this)
            if this.Name:lower():sub(1, targ:len()) == targ:lower() then
                people = {this}
            end
        end)
        return people or {}
    end
end

local chat = function(message, speaker)
    if admins[tostring(speaker.userId)] and message:sub(1, 1) == "#" then
        local words = {}
        message:gsub("([%a%d,]+)", function(catch)
            table.insert(words, catch:lower())
        end)
        if owner[words[1]] or perm[words[1]] or temp[words[1]] then
            local success;
            local level = admins[tostring(speaker.userId)]
            repeat
                local stringLevel = level == 3 and "owner" or level == 2 and "perm" or level == 1 and "temp" or "false"
                if getfenv()[stringLevel][words[1]] then
                    success = getfenv()[stringLevel][words[1]](speaker, message, words)
                end
                level = level - 1
            until success or level == 0
        end
    end
end

game.Players.PlayerAdded:connect(function(player)
    local bans = data:GetAsync("banList")
    if findElement(bans, player.Name) then
        player:Kick()
    end
    player.Chatted:connect(function(message)
        chat(message, player)
    end)
end)

local commands = {}
local meta = {
    __newindex = function(this, key, value)
        rawset(this, key, value)
        table.insert(commands, {key, this.level})
    end
}

owner, perm, temp = setmetatable({level = "3"}, meta), setmetatable({level = "2"}, meta), setmetatable({level = "1"}, meta)

owner.ban = function(speaker, message, words)
    each(target(words[2], speaker), function(_, this)
        if this ~= speaker then
            local bans = data:GetAsync("banList")
            if not findElement(bans, this.Name:lower()) then
                data:UpdateAsync("banList", function(current)
                    table.insert(current, this.Name:lower())
                    return current
                end)
                this:Kick()
            end
        end
    end)
end

owner.unban = function(speaker, message, words)
    local target = message:match("%s.+"):gsub("%s+", "")
    local bans = data:GetAsync("banList")
    if findElement(bans, target:lower()) then
        data:UpdateAsync("banList", function(current)
            removeElement(current, target:lower())
            return current
        end)
    end
end

owner.kick = function(speaker, message, words)
    each(target(words[2], speaker), function(_, this)
        this:Kick()
    end)
    return 1
end

owner.perm = function(speaker, message, words)
    each(target(words[2], speaker), function(_, this)
        if this ~= speaker then
            admins[tostring(this.userId)] = 2
        end
        print(admins[tostring(this.userId)])
    end)
    return 1
end

owner.temp = function(speaker, message, words)
    each(target(words[2], speaker), function(_, this)
        if this ~= speaker then
            admins[tostring(this.userId)] = 1
        end
    end)
    return 1
end

owner.unadmin = function(speaker, message, words)
    each(target(words[2], speaker), function(_, this)
        if this.Name == speaker.Name then
            return
        end
        if admins[tostring(this.userId)] then
            if admins[tostring(this.userId)] < 3 then
                admins[tostring(this.userId)] = false
            end
        end
    end)
    return 1
end

owner.script = function(speaker, message, words)
    pcall(function()
        if game.ServerScriptService.LoadStringEnabled then
            loadstring(message:sub(message:find("script") + 7))()
        end
    end)
    return 1
end

perm.kill = function(speaker, message, words)
    each(target(words[2], speaker), function(_, this)
        if this.Character then
            this.Character:BreakJoints()
        end
    end)
    return 1
end

perm.loopkill = function(speaker, message, words)
    each(target(words[2], speaker), function(_, this)
        if not this:FindFirstChild("Loopkill") then
            Instance.new("BoolValue", this).Name = "Loopkill"
            local event;
            coroutine.wrap(function()
                event = this.CharacterAdded:connect(function(character)
                    wait()
                    character:BreakJoints()
                end)
                this.Character:BreakJoints()
                while wait(1) do
                    if not this:FindFirstChild("Loopkill") then
                        event:disconnect()
                        break
                    end
                end
                coroutine.yield()
            end)()
        end
    end)
    return 1
end

perm.unloopkill = function(speaker, message, words)
    each(target(words[2], speaker), function(_, this)
        if this:FindFirstChild("Loopkill") then
            this.Loopkill:Destroy()
        end
    end)
    return 1
end

perm.punish = function(speaker, message, words)
    each(target(words[2], speaker), function(_, this)
        this.Character:Destroy()
    end)
    return 1
end

perm.unpunish = function(speaker, message, words)
    each(target(words[2], speaker), function(_, this)
        if not Workspace:FindFirstChild(this.Name) then
            this:LoadCharacter()
        end
    end)
    return 1
end

temp.pm = function(speaker, message, words)
    each(target(words[2], speaker), function(_, this)
        alert(speaker, this, message:sub(message:find(words[2]) + (words[2]:len() + 1)))
    end)
    return 1
end

temp.m = function(speaker, message, words)
    each(game.Players:GetPlayers(), function(_, this)
        alert(speaker, this, message:sub(4), true)
    end)
    return 1
end

temp.commands = function(speaker)
    local sgui = Instance.new("ScreenGui", speaker.PlayerGui)
    local frame = Instance.new("Frame", sgui)
    local search = Instance.new("TextBox", frame)
    local results = Instance.new("ScrollingFrame", frame)
    local close = Instance.new("TextButton", frame)
    local h1 = Instance.new("TextLabel", results)
    local h2 = Instance.new("TextLabel", results)
    attr(frame, {
        Size = UDim2.new(0, 226, 0, 336),
        Position = UDim2.new(0.5, -113, 0, -336),
        ZIndex = 8
    })
    attr(search, {
        Size = UDim2.new(1, 0, 0, 50),
        Text = "Search for a command here.",
        TextColor3 = Color3.new(1, 1, 1),
        BackgroundColor3 = Color3.new(120/255, 120/255, 120/255),
        FontSize = Enum.FontSize.Size12,
        BorderSizePixel = 0,
        ZIndex = 9
    })
    attr(results, {
        Size = UDim2.new(1, 0, 1, -100),
        Position = UDim2.new(0, 0, 0, 50),
        ZIndex = 9
    })
    attr(close, {
        Size = UDim2.new(1, 0, 0, 50),
        Position = UDim2.new(0, 0, 1, -50),
        BackgroundColor3 = Color3.new(120/255, 120/255, 120/255),
        Text = "Close",
        TextColor3 = Color3.new(1, 0, 0),
        FontSize = Enum.FontSize.Size12,
        ZIndex = 9
    })
    attr(h1, {
        Size = UDim2.new(0.7, -6, 0, 30),
        BackgroundColor3 = Color3.new(1, 1, 1),
        FontSize = Enum.FontSize.Size14,
        TextColor3 = Color3.new(0, 0, 1),
        Text = "Command",
        ZIndex = 9
    })
    attr(h2, {
        Size = UDim2.new(0.3, -6, 0, 30),
        Position = UDim2.new(0.7, -6, 0, 0),
        BackgroundColor3 = Color3.new(1, 1, 1),
        FontSize = Enum.FontSize.Size14,
        TextColor3 = Color3.new(0, 0, 1),
        Text = "Level",
        ZIndex = 9
    })
    close.MouseButton1Click:connect(function()
        frame:TweenPosition(
            UDim2.new(0.5, -113, 0, -336),
            Enum.EasingDirection.Out,
            Enum.EasingStyle.Quad,
            1
        )
        game.Debris:AddItem(sgui, 3)
    end)
    search.Changed:connect(function(change)
        local finds = {}
        if change == "Text" then
            if search.Text ~= "" then
                for _, v in ipairs(commands) do
                    if v[1]:lower():sub(1, search.Text:len()) == search.Text:lower() then
                        table.insert(finds, v)
                    end
                end
                for index, value in ipairs(finds) do
                    results["cmd" .. index].Transparency = 0
                    results["cmd" .. index].Text = value[1]
                    results["lvl" .. index].Transparency = 0
                    results["lvl" .. index].Text = value[2]
                end
                for i = #finds + 1, #commands do
                    results["cmd" .. i].Transparency = 1
                    results["lvl" .. i].Transparency = 1
                end
            else
                for index, value in ipairs(commands) do
                    results["cmd" .. index].Transparency = 0
                    results["cmd" .. index].Text = value[1]
                    results["lvl" .. index].Transparency = 0
                    results["lvl" .. index].Text = value[2]
                end
            end
        end
    end)
    for i = 1, #commands do
        local l1, l2 = Instance.new("TextLabel", results), Instance.new("TextLabel", results)
        attr(l1, {
            Size = UDim2.new(0.7, -6, 0, 30),
            Position = UDim2.new(0, 0, 0, i * 30),
            BackgroundColor3 = Color3.new(1, 1, 1),
            FontSize = Enum.FontSize.Size12,
            ZIndex = 9,
            Text = commands[i][1],
            Name = "cmd" .. i
        })
        attr(l2, {
            Size = UDim2.new(0.3, -6, 0, 30),
            Position = UDim2.new(0.7, -6, 0, i * 30),
            BackgroundColor3 = Color3.new(1, 1, 1),
            FontSize = Enum.FontSize.Size12,
            ZIndex = 9,
            Text = commands[i][2],
            Name = "lvl" .. i
        })
    end
    frame:TweenPosition(
        UDim2.new(0.5, -113, 0.5, -153),
        Enum.EasingDirection.Out,
        Enum.EasingStyle.Back,
        1
    )
    return 1
end
temp.cmds = temp.commands

table.sort(commands, function(a, b)
    return a[2] < b[2]
end)