[TW] Lumber tycoon 2 money dupe WORKING

-- Farewell Infortality.
-- Version: 2.82
-- Instances:
local ScreenGui = Instance.new("ScreenGui")
local OpenFrame = Instance.new("Frame")
local Open = Instance.new("TextButton")
local MainFrame = Instance.new("Frame")
local BeautyA = Instance.new("Frame")
local BeautyB = Instance.new("Frame")
local TextLabel = Instance.new("TextLabel")
local TextLabel_2 = Instance.new("TextLabel")
local Slot = Instance.new("TextBox")
local LoadSlot = Instance.new("TextButton")
local SaveSlot = Instance.new("TextButton")
local Dmoney = Instance.new("TextButton")
--Properties:
ScreenGui.Parent = game.CoreGui
ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling

OpenFrame.Name = "OpenFrame"
OpenFrame.Parent = ScreenGui
OpenFrame.BackgroundColor3 = Color3.new(1, 0, 0)
OpenFrame.Position = UDim2.new(0, 0, 0.495316148, 0)
OpenFrame.Size = UDim2.new(0, 100, 0, 35)

Open.Name = "Open"
Open.Parent = OpenFrame
Open.BackgroundColor3 = Color3.new(1, 0, 0)
Open.Size = UDim2.new(0, 100, 0, 35)
Open.Font = Enum.Font.Cartoon
Open.Text = "OPEN"
Open.TextColor3 = Color3.new(0, 0, 0)
Open.TextScaled = true
Open.TextSize = 14
Open.TextStrokeColor3 = Color3.new(0.529412, 1, 0.145098)
Open.TextWrapped = true
Open.MouseButton1Down:connect(function()
MainFrame.Visible = true
OpenFrame.Visible = false
end)

MainFrame.Name = "MainFrame"
MainFrame.Parent = ScreenGui
MainFrame.BackgroundColor3 = Color3.new(1, 0, 0)
MainFrame.BackgroundTransparency = 0.20000000298023
MainFrame.BorderSizePixel = 0
MainFrame.Position = UDim2.new(0.304932743, 0, 0.218969554, 0)
MainFrame.Size = UDim2.new(0, 218, 0, 357)
MainFrame.Visible = false
MainFrame.Draggable = true

BeautyA.Name = "BeautyA"
BeautyA.Parent = MainFrame
BeautyA.BackgroundColor3 = Color3.new(0.878431, 0.0745098, 0.0784314)
BeautyA.BackgroundTransparency = 0.20000000298023
BeautyA.BorderSizePixel = 0
BeautyA.Size = UDim2.new(0, 218, 0, 29)

BeautyB.Name = "BeautyB"
BeautyB.Parent = MainFrame
BeautyB.BackgroundColor3 = Color3.new(0.878431, 0.0745098, 0.0784314)
BeautyB.BackgroundTransparency = 0.20000000298023
BeautyB.BorderSizePixel = 0
BeautyB.Position = UDim2.new(0, 0, 0.911315084, 0)
BeautyB.Size = UDim2.new(0, 218, 0, 29)

TextLabel.Parent = MainFrame
TextLabel.BackgroundColor3 = Color3.new(0.85098, 0, 0)
TextLabel.BackgroundTransparency = 0.20000000298023
TextLabel.BorderSizePixel = 0
TextLabel.Position = UDim2.new(0.0306429267, 0, 0, 0)
TextLabel.Size = UDim2.new(0, 200, 0, 29)
TextLabel.Font = Enum.Font.Cartoon
TextLabel.Text = "LGR'S Exploits"
TextLabel.TextColor3 = Color3.new(0.0980392, 0.847059, 0.537255)
TextLabel.TextScaled = true
TextLabel.TextSize = 14
TextLabel.TextStrokeTransparency = 0
TextLabel.TextWrapped = true

TextLabel_2.Parent = MainFrame
TextLabel_2.BackgroundColor3 = Color3.new(0.85098, 0, 0)
TextLabel_2.BackgroundTransparency = 0.20000000298023
TextLabel_2.BorderSizePixel = 0
TextLabel_2.Position = UDim2.new(0.0306429267, 0, 0.911314964, 0)
TextLabel_2.Size = UDim2.new(0, 200, 0, 29)
TextLabel_2.Font = Enum.Font.Code
TextLabel_2.Text = "V 1.3"
TextLabel_2.TextColor3 = Color3.new(0.0862745, 0.756863, 0.478431)
TextLabel_2.TextScaled = true
TextLabel_2.TextSize = 14
TextLabel_2.TextStrokeTransparency = 0
TextLabel_2.TextWrapped = true

Slot.Name = "Slot"
Slot.Parent = MainFrame
Slot.BackgroundColor3 = Color3.new(1, 0, 0)
Slot.Position = UDim2.new(0.154887691, 0, 0.226890758, 0)
Slot.Size = UDim2.new(0, 144, 0, 31)
Slot.Font = Enum.Font.Code
Slot.Text = "Slot Number"
Slot.TextColor3 = Color3.new(0.0980392, 0.847059, 0.537255)
Slot.TextScaled = true
Slot.TextSize = 14
Slot.TextStrokeTransparency = 0
Slot.TextWrapped = true

LoadSlot.Name = "LoadSlot"
LoadSlot.Parent = MainFrame
LoadSlot.BackgroundColor3 = Color3.new(1, 0, 0)
LoadSlot.Position = UDim2.new(0.154887691, 0, 0.376844049, 0)
LoadSlot.Size = UDim2.new(0, 144, 0, 31)
LoadSlot.Font = Enum.Font.Cartoon
LoadSlot.Text = "Load Slot"
LoadSlot.TextColor3 = Color3.new(0.0941177, 0.811765, 0.513726)
LoadSlot.TextScaled = true
LoadSlot.TextSize = 14
LoadSlot.TextStrokeTransparency = 0
LoadSlot.TextWrapped = true

SaveSlot.Name = "SaveSlot"
SaveSlot.Parent = MainFrame
SaveSlot.BackgroundColor3 = Color3.new(1, 0, 0)
SaveSlot.Position = UDim2.new(0.154887691, 0, 0.523996294, 0)
SaveSlot.Size = UDim2.new(0, 144, 0, 31)
SaveSlot.Font = Enum.Font.Cartoon
SaveSlot.Text = "SaveSlot"
SaveSlot.TextColor3 = Color3.new(0.0941177, 0.811765, 0.513726)
SaveSlot.TextScaled = true
SaveSlot.TextSize = 14
SaveSlot.TextStrokeTransparency = 0
SaveSlot.TextWrapped = true

Dmoney.Name = "Dmoney"
Dmoney.Parent = MainFrame
Dmoney.BackgroundColor3 = Color3.new(1, 0, 0)
Dmoney.Position = UDim2.new(0.154887691, 0, 0.659533083, 0)
Dmoney.Size = UDim2.new(0, 144, 0, 31)
Dmoney.Font = Enum.Font.Cartoon
Dmoney.Text = "Dupe Money"
Dmoney.TextColor3 = Color3.new(0.0941177, 0.811765, 0.513726)
Dmoney.TextScaled = true
Dmoney.TextSize = 14
Dmoney.TextStrokeTransparency = 0
Dmoney.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)

LoadSlot.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)

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