--[[ Dupe UI Update New Theme
    And New Scripts!
    By - Gouenji Shuuya#0005 ]]

-- Automatically Add players to Blacklist --

Mouse = game.Players.LocalPlayer:GetMouse()

Client = game.ReplicatedStorage.Interaction.ClientSetListPlayer
players = game.Players
for i, v in pairs(players:GetPlayers()) do
    if v.Name ~= players.LocalPlayer.Name then
        Client:InvokeServer(players.LocalPlayer.BlacklistFolder, v, true)
    end
end
players.PlayerAdded:connect(function(plr)
    Client:InvokeServer(players.LocalPlayer.BlacklistFolder, plr, true)
end)


game:GetService("StarterGui"):SetCore("SendNotification", {
  Title = "Dupe UI",
  Text = "Dupe UI Load Successful."
})

game:GetService("StarterGui"):SetCore("SendNotification", {
  Title = "Dupe UI",
  Text = "Automatically Add players to Blacklist"
})

game:GetService("StarterGui"):SetCore("SendNotification", {
  Title = "Gui By:",
  Text = "Gouenji Shuuya#0005"
})

local ScreenGui = Instance.new("ScreenGui")
local MainFrame = Instance.new("Frame")
local Slot = Instance.new("TextBox")
local CountAxes = Instance.new("TextBox")
local SaveSlot = Instance.new("TextButton")
local Store = Instance.new("TextButton")
local Load = Instance.new("TextButton")
local Restore = Instance.new("TextButton")
local DMoney = Instance.new("TextButton")
local DropAxes = Instance.new("TextButton")
local Title = Instance.new("TextLabel")
local Credit = Instance.new("TextLabel")


--Properties:

ScreenGui.Parent = game.CoreGui

MainFrame.Name = "MainFrame"
MainFrame.Parent = ScreenGui
MainFrame.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
MainFrame.BorderSizePixel = 0
MainFrame.Position = UDim2.new(0.340206176, 0, 0.288270384, 0)
MainFrame.Size = UDim2.new(0, 340, 0, 258)
MainFrame.Active = true
MainFrame.Draggable = true

Slot.Name = "Slot"
Slot.Parent = MainFrame
Slot.BackgroundColor3 = Color3.fromRGB(144, 144, 144)
Slot.Position = UDim2.new(0.146419436, 0, 0.0542635657, 0)
Slot.Size = UDim2.new(0, 78, 0, 44)
Slot.Font = Enum.Font.SourceSans
Slot.Text = "SlotNumber"
Slot.TextColor3 = Color3.fromRGB(0, 0, 0)
Slot.TextSize = 15.000
Slot.TextWrapped = true

CountAxes.Name = "CountAxes"
CountAxes.Parent = MainFrame
CountAxes.BackgroundColor3 = Color3.fromRGB(144, 144, 144)
CountAxes.Position = UDim2.new(0.615217388, 0, 0.0542635657, 0)
CountAxes.Size = UDim2.new(0, 78, 0, 44)
CountAxes.Font = Enum.Font.SourceSans
CountAxes.Text = "CountAxes"
CountAxes.TextColor3 = Color3.fromRGB(0, 0, 0)
CountAxes.TextSize = 15.000
CountAxes.TextWrapped = true

SaveSlot.Name = "SaveSlot"
SaveSlot.Parent = MainFrame
SaveSlot.BackgroundColor3 = Color3.fromRGB(144, 144, 144)
SaveSlot.Position = UDim2.new(0.146419436, 0, 0.294573665, 0)
SaveSlot.Size = UDim2.new(0, 78, 0, 44)
SaveSlot.Font = Enum.Font.SourceSans
SaveSlot.Text = "Save Slot"
SaveSlot.TextColor3 = Color3.fromRGB(0, 0, 0)
SaveSlot.TextSize = 14.000

Store.Name = "Store"
Store.Parent = MainFrame
Store.BackgroundColor3 = Color3.fromRGB(144, 144, 144)
Store.Position = UDim2.new(0.615217388, 0, 0.294573665, 0)
Store.Size = UDim2.new(0, 78, 0, 44)
Store.Font = Enum.Font.SourceSans
Store.Text = "Store Axe"
Store.TextColor3 = Color3.fromRGB(0, 0, 0)
Store.TextSize = 14.000

Load.Name = "Load"
Load.Parent = MainFrame
Load.BackgroundColor3 = Color3.fromRGB(144, 144, 144)
Load.Position = UDim2.new(0.146419436, 0, 0.542635679, 0)
Load.Size = UDim2.new(0, 78, 0, 44)
Load.Font = Enum.Font.SourceSans
Load.Text = "Load Slot"
Load.TextColor3 = Color3.fromRGB(0, 0, 0)
Load.TextSize = 14.000

Restore.Name = "Restore"
Restore.Parent = MainFrame
Restore.BackgroundColor3 = Color3.fromRGB(144, 144, 144)
Restore.Position = UDim2.new(0.615217388, 0, 0.542635679, 0)
Restore.Size = UDim2.new(0, 78, 0, 44)
Restore.Font = Enum.Font.SourceSans
Restore.Text = "Restore Axe"
Restore.TextColor3 = Color3.fromRGB(0, 0, 0)
Restore.TextSize = 14.000

DMoney.Name = "DMoney"
DMoney.Parent = MainFrame
DMoney.BackgroundColor3 = Color3.fromRGB(144, 144, 144)
DMoney.Position = UDim2.new(0.146419436, 0, 0.782945752, 0)
DMoney.Size = UDim2.new(0, 78, 0, 44)
DMoney.Font = Enum.Font.SourceSans
DMoney.Text = "Dupe Money"
DMoney.TextColor3 = Color3.fromRGB(0, 0, 0)
DMoney.TextSize = 14.000

DropAxes.Name = "DropAxes"
DropAxes.Parent = MainFrame
DropAxes.BackgroundColor3 = Color3.fromRGB(144, 144, 144)
DropAxes.Position = UDim2.new(0.615217388, 0, 0.782945752, 0)
DropAxes.Size = UDim2.new(0, 78, 0, 44)
DropAxes.Font = Enum.Font.SourceSans
DropAxes.Text = "Drop Axes"
DropAxes.TextColor3 = Color3.fromRGB(0, 0, 0)
DropAxes.TextSize = 14.000

Title.Name = "Title"
Title.Parent = MainFrame
Title.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Title.BorderSizePixel = 0
Title.Position = UDim2.new(0, 0, -0.193798453, 0)
Title.Size = UDim2.new(0, 340, 0, 50)
Title.Font = Enum.Font.SourceSans
Title.Text = "Lumber Tycoon 2 Dupe UI"
Title.TextColor3 = Color3.fromRGB(0, 0, 0)
Title.TextSize = 25.000
Title.TextWrapped = true

Credit.Name = "Credit"
Credit.Parent = MainFrame
Credit.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Credit.BorderSizePixel = 0
Credit.Position = UDim2.new(0, 0, 1, 0)
Credit.Size = UDim2.new(0, 340, 0, 50)
Credit.Font = Enum.Font.SourceSans
Credit.Text = "Credit by Gouenji Shuuya#0005"
Credit.TextColor3 = Color3.fromRGB(0, 0, 0)
Credit.TextSize = 25.000
Credit.TextWrapped = true

--Locals
local MoneyCooldown = false
local CurrentSlot = game.Players.LocalPlayer:WaitForChild("CurrentSaveSlot").Value
local ScriptLoadOrSave = false
local CurrentlySavingOrLoading = game.Players.LocalPlayer:WaitForChild("CurrentlySavingOrLoading")

--Functions
local function CheckIfSlotAvailable(Slot)
	for a,b in pairs(game.ReplicatedStorage.LoadSaveRequests.GetMetaData:InvokeServer(game.Players.LocalPlayer)) do
		if a == Slot then
			for c,d in pairs(b) do
				if c == "NumSaves" and d ~= 0 then
					return true
				else
					return false
				end
			end
		end
	end
end

local function CheckSlotNumber() --Checks if the slot number is right
    if Slot.Text == "1" or Slot.Text == "2" or Slot.Text == "3" or Slot.Text == "4" or Slot.Text == "5" or Slot.Text == "6" then
		local SlotNumber = tonumber(Slot.Text)
		return SlotNumber
		else return false
	end
end

local function SendNotification(Title,Text,Duration) -- Sends Notification in the bottom right of the screen
	game.StarterGui:SetCore("SendNotification", {
		Title = Title;
		Text = Text;
		Icon = nil;
		Duration = Duration
	})
end

SaveSlot.MouseButton1Down:connect(function() --Saves the slot that you want
	local CheckSlot = CheckSlotNumber()
	if CheckSlot ~= false then
		if CurrentSlot ~= -1 then
			ScriptLoadOrSave = true
			local SaveSlot = game.ReplicatedStorage.LoadSaveRequests.RequestSave:InvokeServer(CheckSlot)
			if SaveSlot == true then
				SendNotification("Save Notification", "Saved your Slot", 2)
				wait(.5)
				ScriptLoadOrSave = false
			elseif SaveSlot == false then
				SendNotification("Already Saving", "Saving/Loading is currently in Progress", 1)
				wait(.5)
				ScriptLoadOrSave = false
			end
		else
			SendNotification("Error", "Load Your Slot First before saving", 1)
		end
	else
		SendNotification("Incorrect Slot", "Enter a number in the upper field", 1)
	end
end)

Load.MouseButton1Down:connect(function() --Loads the slot you want
	ScriptLoadOrSave = true
	local CheckSlot = CheckSlotNumber()
	if CheckSlot ~= false then
		if CheckIfSlotAvailable(CheckSlot) == true then
			local LoadSlot = game.ReplicatedStorage.LoadSaveRequests.RequestLoad:InvokeServer(CheckSlot)
			if LoadSlot == false then
				SendNotification("Cooldown Notification", "You aren't abled to load now", 1)
			end
			if LoadSlot == true then
				SendNotification("Reload Notification", "Loaded Your Slot", 2)
				CurrentSlot = CheckSlot
			end
		else
			SendNotification("Slot not Available", "This Slot is not Available, please choose another slot", 2)
		end
	else
		SendNotification("Incorrect Slot", "Enter a Valid number in the upper field", 1)
	end
	ScriptLoadOrSave = false
end)

Store.MouseButton1Down:connect(function() --Stores the Axes somewhere so you can restore them later
	Amount = 0
	for a,b in pairs(game.Players.LocalPlayer.Backpack:GetChildren())do
		if b.Name ~= "BlueprintTool" and b.Name == "Tool" then
			b.Parent = game.Players.LocalPlayer
			Amount = Amount + 1
		end
	end
	SendNotification("Store Notification", "Stored "..Amount.." Axes, you can restore them later", 2)
end)

Restore.MouseButton1Down:connect(function() --Restores the axes that you stored with the Store function
	Amount = 0
	for a,b in pairs(game.Players.LocalPlayer:GetChildren()) do
		if b.Name ~= "BlueprintTool" and b.Name == "Tool" then
			b.Parent = game.Players.LocalPlayer.Backpack
			Amount = Amount + 1
		end
	end
	SendNotification("Restore Notification", "Restored "..Amount.." Axes that you Stored", 2)
end)

CountAxes.MouseButton1Down:connect(function() --Counts Axes in your Backpack (Equiped Axes dont Count)
	Amount = 0
	for a,b in pairs(game.Players.LocalPlayer.Backpack:GetChildren()) do
		if b.Name ~= "BlueprintTool" and b.Name == "Tool" then
			Amount = Amount + 1
		end
	end
	SendNotification("Axe Amount", "You have "..Amount.." Axes in your Backpack",2)
end)

DropAxes.MouseButton1Down:connect(function() --Drops all your Axes
	Amount = 0
	for a,b in pairs(game.Players.LocalPlayer.Backpack:GetChildren()) do
		if b.Name ~= "BlueprintTool" and b.Name == "Tool" then
			game.ReplicatedStorage.Interaction.ClientInteracted:FireServer(b, "Drop tool", game.Players.LocalPlayer.Character.Head.CFrame)
			Amount = Amount + 1
		end
	end
	SendNotification("Axe Dropped", "Dropped "..Amount.." Axes from your Backpack",5)
end)

DMoney.MouseButton1Down:connect(function() --Sends the money and will come back after around 2 mins
	if MoneyCooldown == true then
		SendNotification("Cooldown Notification", "Wait for your Money to come back",2)
		return
	elseif MoneyCooldown == false then
		MoneyCooldown = true
		SendNotification("Money Sent", "Wait about 2 minutes for your Money to come back", 5)
		game.ReplicatedStorage.Transactions.ClientToServer.Donate:InvokeServer(game.Players.LocalPlayer, game.Players.LocalPlayer.leaderstats.Money.Value, 1)
		SendNotification("Money Received", "You received your money that you have sent earlier", 5)
		MoneyCooldown = false
	end
end)

--Anti Overwrite Slot (Sub-Function)
while wait(.15) do
	if CurrentlySavingOrLoading.Value == true and ScriptLoadOrSave == false then
		repeat
		wait(1)
		until CurrentlySavingOrLoading.Value == false
		wait(1)
		CurrentSlot = game.Players.LocalPlayer.CurrentSaveSlot.Value
		print(CurrentSlot)
	end
end