local PlayerName = "kleberFBI"

local ItsCFrame
local Remote = game.ReplicatedStorage.PlaceStructure.ClientPlacedStructure
local Action = game.Players:GetPlayers()
local Load = game.ReplicatedStorage.LoadSaveRequests.RequestLoad
local Save = game.ReplicatedStorage.LoadSaveRequests.RequestSave
local Players = game:GetService("Players")
Players.PlayerAdded:Connect(function(player)
Action = game.Players:GetPlayers()
end)

function Chat(Msm)
game.ReplicatedStorage.DefaultChatSystemChatEvents.SayMessageRequest:FireServer(Msm,"All")
end
local Check = false

function FillBp(PlayerName, WoodName)
local ItsCFrame
local Remote = game.ReplicatedStorage.PlaceStructure.ClientPlacedStructure
for i,v in pairs(game.Workspace.PlayerModels:GetChildren()) do
if v:FindFirstChild("Owner") and v.Owner.Value == PlayerName then
if v:FindFirstChild("Type") and v.Type.Value == "Blueprint" then
if v:FindFirstChild("MainCFrame") then
ItsCFrame = v.MainCFrame.Value
else
ItsCFrame = v.PrimaryPart.CFrame
end
if v ~= nil then
Remote:FireServer(v.Name, ItsCFrame, game.Players.LocalPlayer, WoodName, v, false)
end
end
end
end
end


for i = 1,#Action do
Action[i].Chatted:connect(function(Message)
if Action[i].Name == PlayerName then
if Message == "CurrentSlot?" then
if game.Players.LocalPlayer.CurrentSaveSlot.Value == -1 then
game.ReplicatedStorage.DefaultChatSystemChatEvents.SayMessageRequest:FireServer("There's No Slot Loaded Or", "All")
else
game.ReplicatedStorage.DefaultChatSystemChatEvents.SayMessageRequest:FireServer("My Current Slot Is "..game.Players.LocalPlayer.CurrentSaveSlot.Value, "All")
end
end

if Message == "WLME" then
for i, v in pairs(game.Players:GetPlayers()) do
    if v.Name == PlayerName then
        game.ReplicatedStorage.Interaction.ClientSetListPlayer:InvokeServer(game.Players.LocalPlayer.WhitelistFolder, v, true)
    end
end
end

if Message == "LS I" then
Load:InvokeServer(1)
elseif Message == "LS II" then
Load:InvokeServer(2)
elseif Message == "LS III" then
Load:InvokeServer(3)
elseif Message == "LS IV" then
Load:InvokeServer(4)
elseif Message == "LS V" then
Load:InvokeServer(5)
elseif Message == "LS VI" then
Load:InvokeServer(6)
elseif Message == "Save" then
if game.Players.LocalPlayer.CurrentSaveSlot.Value == -1 then
game.ReplicatedStorage.DefaultChatSystemChatEvents.SayMessageRequest:FireServer("No Slot Load To Save", "All")
else
game.ReplicatedStorage.DefaultChatSystemChatEvents.SayMessageRequest:FireServer("Slot "..game.Players.LocalPlayer.CurrentSaveSlot.Value.." Saved!", "All")
Save:InvokeServer(game.Players.LocalPlayer.CurrentSaveSlot.Value)
end
elseif Message == "Save I" then
Save:InvokeServer(1)

elseif Message == "Save II" then
Save:InvokeServer(2)

elseif Message == "Save III" then
Save:InvokeServer(3)

elseif Message == "Save IV" then
Save:InvokeServer(4)

elseif Message == "Save V" then
Save:InvokeServer(5)

elseif Message == "Save VI" then
Save:InvokeServer(6)
elseif Message == "DupeM" then
game.ReplicatedStorage.Transactions.ClientToServer.Donate:InvokeServer(game.Players.LocalPlayer, game.Players.LocalPlayer.leaderstats.Money.Value, 1)
elseif Message == "MLand" then

for i, v in pairs(game:GetService("Workspace").Properties:GetChildren()) do
        if v:FindFirstChild("Owner") and v.Owner.Value == game.Players.LocalPlayer then
            base = v
            square = v.OriginSquare
            end
        end
    function makebase(pos)
        local Event = game:GetService("ReplicatedStorage").PropertyPurchasing.ClientExpandedProperty
        Event:FireServer(base, pos)
        end
    spos = square.Position
    makebase(CFrame.new(spos.X + 40, spos.Y, spos.Z))
    makebase(CFrame.new(spos.X - 40, spos.Y, spos.Z))
    makebase(CFrame.new(spos.X, spos.Y, spos.Z + 40))
    makebase(CFrame.new(spos.X, spos.Y, spos.Z - 40))
    makebase(CFrame.new(spos.X + 40, spos.Y, spos.Z + 40))
    makebase(CFrame.new(spos.X + 40, spos.Y, spos.Z - 40))
    makebase(CFrame.new(spos.X - 40, spos.Y, spos.Z + 40))
    makebase(CFrame.new(spos.X - 40, spos.Y, spos.Z - 40))
    makebase(CFrame.new(spos.X + 80, spos.Y, spos.Z))
    makebase(CFrame.new(spos.X - 80, spos.Y, spos.Z))
    makebase(CFrame.new(spos.X, spos.Y, spos.Z + 80))
    makebase(CFrame.new(spos.X, spos.Y, spos.Z - 80))
--Corners--
    makebase(CFrame.new(spos.X + 80, spos.Y, spos.Z + 80))
    makebase(CFrame.new(spos.X + 80, spos.Y, spos.Z - 80))
    makebase(CFrame.new(spos.X - 80, spos.Y, spos.Z + 80))
    makebase(CFrame.new(spos.X - 80, spos.Y, spos.Z - 80))
--Corners--
    makebase(CFrame.new(spos.X + 40, spos.Y, spos.Z + 80))
    makebase(CFrame.new(spos.X - 40, spos.Y, spos.Z + 80))
    makebase(CFrame.new(spos.X + 80, spos.Y, spos.Z + 40))
    makebase(CFrame.new(spos.X + 80, spos.Y, spos.Z - 40))
    makebase(CFrame.new(spos.X - 80, spos.Y, spos.Z + 40))
    makebase(CFrame.new(spos.X - 80, spos.Y, spos.Z - 40))
    makebase(CFrame.new(spos.X + 40, spos.Y, spos.Z - 80))
    makebase(CFrame.new(spos.X - 40, spos.Y, spos.Z - 80))
elseif Message == "RS" then
Load:InvokeServer(game.Players.LocalPlayer.CurrentSaveSlot.Value)
elseif Message == "Menu" then
for i,v in pairs(game:GetService("Players").LocalPlayer.PlayerGui.MenuGUI:GetDescendants()) do
if v.ClassName == "TextButton" and v.Name ~= "Open" then
if v.Visible == false then
v.Visible = true
Chat("Menu Is Unlocked")
Check = false
else
v.Visible = false
Chat("Menu Is locked")
Check = true
end
end
end
if Check == true then
Chat("Menu Is locked")
else
Chat("Menu Is Unlocked")
end
elseif Message == "GoToJailbreak" then
game.ReplicatedStorage.DefaultChatSystemChatEvents.SayMessageRequest:FireServer("Bye, Im Going to Play Jailbreak!", "All")
wait(5)
local GameID = 606849621
game:GetService("TeleportService"):Teleport(GameID, LocalPlayer)
elseif Message == "Who Are You" then
Chat("I Am Gayyyyy")
end
end
end)
end