-- Caeso

local player=game.Players.LocalPlayer
local commands={}

function AddCommand(cmd,func)
    local newcommand=function (args)
        pcall(function ()
            func(args)
        end)
    end
    commands[cmd]=newcommand
end

function create(class)
    local inst=Instance.new(class)
    return function (args)
        for name,value in pairs(args) do
            inst[name]=value
        end

        return inst
    end
end

function Error(msg)
    game.StarterGui:SetCore("ChatMakeSystemMessage", {
    Text = msg;
    Color = Color3.fromRGB(100,0,0);
    Font = Enum.Font.SourceSans;
    FontSize = Enum.FontSize.Size18;
})
end

function FindPlayers(str)
    local t={}
    if str~="me" and str~="others" and str~="all" then
        for _,plr in pairs(game.Players:GetPlayers()) do
            if string.find(plr.Name:lower(),str:lower()) then
                t[#t+1]=plr
            end
        end
    else
        if str=="me" then
            return {player}
        elseif str=="others" then
            for _,plr in pairs(game.Players:GetPlayers()) do
                if plr~=player then
                    t[#t+1]=plr
                end
            end

            return t
        elseif str=="all" then
            return game.Players:GetPlayers()
        end
    end

    return t
end

local filtering=workspace.FilteringEnabled and "Enabled" or "Disabled"
game.StarterGui:SetCore("ChatMakeSystemMessage", {
    Text = "Caeso Admin loaded\nFiltering is " .. filtering .. "\nTIP: put '/' before a command to make it silent\nie. '/ !kill noob'";
    Color = Color3.fromRGB(0,0,80);
    Font = Enum.Font.SourceSans;
    FontSize = Enum.FontSize.Size18;
})

AddCommand("kill",function (arguments)
    local players=FindPlayers(arguments[2])
    for _,plr in pairs(players) do
        pcall(function ()
            plr.Character:FindFirstChild("Humanoid").Health=0
        end)
    end
end)

AddCommand("kick",function (arguments)
    local player2=FindPlayers(arguments[2])
    for _,v in pairs(player2) do
        if v~=player then
            v:Kick()
        end
    end
end)

AddCommand("sparkles",function (arguments)
    local player2=FindPlayers(arguments[2])
    for _,v in pairs(player2) do
        Instance.new("Sparkles",v.Character.Torso)
    end
end)

AddCommand("fire",function (arguments)
    local player2=FindPlayers(arguments[2])
    for _,v in pairs(player2) do
        Instance.new("Fire",v.Character.Torso)
    end
end)

AddCommand("smoke",function (arguments)
    local player2=FindPlayers(arguments[2])
    for _,v in pairs(player2) do
        Instance.new("Smoke",v.Character.Torso)
    end
end)

AddCommand("respawn",function (arguments)
    local players=FindPlayers(arguments[2])
    if #players>0 then
        for _,plr in pairs(players) do
            plr:LoadCharacter()
        end
    end
end)

AddCommand("tp",function (arguments)
    local playerToTp=FindPlayers(arguments[2])[1]
    local playerToTpTo=FindPlayers(arguments[3])[1]
    playerToTp:MoveTo(playerToTpTo.Torso.Position+Vector3.new(0,3,0))
end)

AddCommand("stealhats",function (arguments)
    local player2steal=FindPlayers(arguments[2])[1]
    for _,v in pairs(player.Character:GetChildren()) do
        if v.className=="Hat" then v:Destroy() end
    end
    for _,v in pairs(player2steal.Character:GetChildren()) do
        if v.className=="Hat" then v.Parent=player.Character end
    end
end)

AddCommand("bon",function (arguments) -- <3
    local playerToBonify=FindPlayers(arguments[2])[1]
    local char=playerToBonify.Character
    for _,v in pairs(playerToBonify.Character:GetChildren()) do
        if v:IsA("Shirt") or v:IsA("Hat") or v:IsA("Pants") or v:IsA("CharacterMesh") then
            v:Destroy()
        end
        if v:IsA("BasePart") then
            v.BrickColor=BrickColor.Black()
        end
    end
    do -- fedora
        local h = Instance.new("Hat")
        local p = Instance.new("Part")
        h.Name = "Fedora"
        p.Parent = h
        p.Position = char.Head.Position
        p.Name = "Handle"
        p.Size = Vector3.new(2, 2, 2)
        p.BottomSurface = 0
        p.TopSurface = 0
        local m=Instance.new("SpecialMesh")
        m.MeshId="http://www.roblox.com/asset/?id=13640868"
        m.TextureId="http://www.roblox.com/asset/?id=38405114"
        m.Parent=p
        h.Parent = char
        h.AttachmentForward = Vector3.new(-0, -0.0995, -0.995)
        h.AttachmentPos = Vector3.new(0, -0.25, 0)
        h.AttachmentRight = Vector3.new(1,0,0)
        h.AttachmentUp = Vector3.new(0, 0.995, -0.0995)
    end
    do -- shades
        local h = Instance.new("Hat")
        local p = Instance.new("Part")
        h.Name = "Shades"
        p.Parent = h
        p.Position = char.Head.Position
        p.Name = "Handle"
        p.Size = Vector3.new(2, 1, 1)
        p.BottomSurface = 0
        p.TopSurface = 0
        local m=Instance.new("SpecialMesh")
        m.MeshId="http://www.roblox.com/asset/?id=1577360"
        m.TextureId="http://www.roblox.com/asset/?id=267871019"
        m.Parent=p
        h.Parent = char
        h.AttachmentPos = Vector3.new(0, 0.25, 0.15)
    end
    local shirt=Instance.new("Shirt",char)
    shirt.ShirtTemplate="rbxassetid://224759652"
    local pants=Instance.new("Pants",char)
    pants.PantsTemplate="rbxassetid://223117189"
    do -- character
        for i = 1, 6 do
            local cm=Instance.new("CharacterMesh")
            cm.BodyPart=i
            print(cm.BodyPart)
            cm.Parent=char
            if cm.BodyPart==Enum.BodyPart.Torso then
                cm.MeshId="27111894"
            elseif cm.BodyPart==Enum.BodyPart.LeftArm then
                cm.MeshId="27111419"
            elseif cm.BodyPart==Enum.BodyPart.RightArm then
                cm.MeshId="27111864"
            elseif cm.BodyPart==Enum.BodyPart.LeftLeg then
                cm.MeshId="27111857"
            elseif cm.BodyPart==Enum.BodyPart.RightLeg then
                cm.MeshId="27111882"
            end
        end
    end
end)

function stringToTable(str)
   local list = {}
   for i in string.gmatch(str, "%S+") do
      table.insert(list, i)
   end
   return list
end

player.Chatted:connect(function (msg)
    if msg:sub(1,1)=="!" then
        local cmdname=msg:sub(2)
        local args=stringToTable(cmdname)
        cmdname=args[1]
        local command=commands[cmdname]
        if not command then Error("No command by the name '" .. cmdname .. "' exists") return end
        command(args)
    elseif msg:sub(1,1)=="/" then
        if msg:sub(3,3)=="!" then
            msg=msg:sub(3)
            local cmdname=msg:sub(2)
            local args=stringToTable(cmdname)
            cmdname=args[1]
            local command=commands[cmdname]
            if not command then Error("No command by the name '" .. cmdname .. "' exists") return end
            command(args)
        end
    end
end)
print "!kill [p] | Kills [p] !respawn [p] | Respawns [p] !kick [p] | Kicks [p] !sparkles [p] | Gives [p] Sparkles !fire [p] | Gives [p] a Fire effect !smoke [p] | Gives [p] a Smoke effect !tp [t] [p] | Teleports [t] to [p] !stealhats [p] | Steals hats from [p] !bon [p] | Turns [p] into Bon."