Script One Piece Open Seas Fast EXPFarm

-- One Piece Open Seas Scripts [Fast EXPFarm!]
-- https://v3rmillion.net/showthread.php?tid=905126&highlight=One+Piece+Open+Seas
-- Gui I made
-- how to use: dupe tutorial https://gyazo.com/273d5485bc11b54ea401bfba9e8b76d8
-- press f9 for credits

-- Farewell Infortality.
-- Version: 2.82
-- Instances:
for i = 1,5 do
print("credits: Xerocas/JANUARY, Cyclically for Dupe/SaveTools Script")
end
local ScreenGui = Instance.new("ScreenGui")
local Main = Instance.new("Frame")
local Dupe = Instance.new("TextButton")
local Reset = Instance.new("TextButton")
local On = Instance.new("TextButton")
local Off = Instance.new("TextButton")
local Tutorial = Instance.new("TextLabel")
--Properties:
ScreenGui.Parent = game.CoreGui
ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling

Main.Name = "Main"
Main.Parent = ScreenGui
Main.Active = true
Main.BackgroundColor3 = Color3.new(0.156863, 0.156863, 0.156863)
Main.BorderSizePixel = 3
Main.Position = UDim2.new(0.670471489, 0, 0.5918836, 0)
Main.Size = UDim2.new(0, 238, 0, 97)

Dupe.Name = "Dupe"
Dupe.Parent = Main
Dupe.BackgroundColor3 = Color3.new(1, 1, 1)
Dupe.Position = UDim2.new(0.0359563753, 0, 0.0920721591, 0)
Dupe.Size = UDim2.new(0, 132, 0, 34)
Dupe.Font = Enum.Font.SourceSansSemibold
Dupe.Text = "Dupe"
Dupe.TextColor3 = Color3.new(0, 0, 0)
Dupe.TextSize = 14
Dupe.MouseButton1Click:connect(function()
local LocalPlayer = game:GetService("Players").LocalPlayer
local function saveTools()
LocalPlayer.Character:WaitForChild("Humanoid").Died:Connect(function()
LocalPlayer.Character:FindFirstChild("Humanoid"):UnequipTools()
for _, tool in pairs(LocalPlayer.Backpack:GetChildren()) do
if tool:IsA("Tool") then
tool.Parent = LocalPlayer
end
end
end)
end
LocalPlayer.CharacterAdded:Connect(function(char)
for _, tool in pairs(LocalPlayer:GetChildren()) do
if tool:IsA("Tool") then
tool.Parent = LocalPlayer.Backpack
end
end
saveTools()
end)
saveTools()
end)

Reset.Name = "Reset"
Reset.Parent = Main
Reset.BackgroundColor3 = Color3.new(1, 1, 1)
Reset.Position = UDim2.new(0.0359563753, 0, 0.545680404, 0)
Reset.Size = UDim2.new(0, 113, 0, 34)
Reset.Font = Enum.Font.SourceSansSemibold
Reset.Text = "Reset"
Reset.TextColor3 = Color3.new(0, 0, 0)
Reset.TextSize = 14
Reset.MouseButton1Click:connect(function()
game:GetService('Players').LocalPlayer.Character.Humanoid.Health = 0
end)


On.Name = "On"
On.Parent = Main
On.BackgroundColor3 = Color3.new(1, 1, 1)
On.Position = UDim2.new(0.615788281, 0, 0.0920721591, 0)
On.Size = UDim2.new(0, 84, 0, 34)
On.Font = Enum.Font.SourceSansSemibold
On.Text = "EXPFarm"
On.TextColor3 = Color3.new(0, 0, 0)
On.TextSize = 14
On.MouseButton1Click:connect(function()
_G.EXPFarm = true --- turn this to false if you want to stop it
while _G.EXPFarm do
wait()
local lplr = game:GetService("Players").LocalPlayer
local backpack = lplr.Backpack
for i,v in next, backpack:GetChildren() do
if v.Name == "Katana" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Scimitar" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if string.find(v.Name, "bound") then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Combat" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Giant Club" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Wooden Club" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Eleblade" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Flintlock" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Rusty Blade" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Cutlass" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Claymore" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Ghost Pirate's Cutlass" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Ice Saber" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Infernoblade" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "DeathSpeaker" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Boomblade" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Poseidon's Fury" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Arcanium" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Windsteel Dagger" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Energion" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Arceus" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Light Blade" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Santa's Blade" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Speedlock" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Goldlock" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Venomlock" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Boomlock" then
v.Parent = lplr.Character
end
end
for i,v in pairs(lplr.Character:GetDescendants()) do
if v:IsA("Tool") and v:FindFirstChild("ActionEvent") then
v:FindFirstChild("ActionEvent"):FireServer()
end
end
end
end)

Off.Name = "Off"
Off.Parent = Main
Off.BackgroundColor3 = Color3.new(1, 1, 1)
Off.Position = UDim2.new(0.552763104, 0, 0.545680404, 0)
Off.Size = UDim2.new(0, 99, 0, 34)
Off.Font = Enum.Font.SourceSansSemibold
Off.Text = "Turn Off EXPFarm"
Off.TextColor3 = Color3.new(0, 0, 0)
Off.TextSize = 14
Off.MouseButton1Click:connect(function()
local lplr = game:GetService("Players").LocalPlayer
local backpack = lplr.Backpack
local lplr = game:GetService("Players").LocalPlayer
local backpack = lplr.Backpack
_G.EXPFarm = false--- turn this to false if you want to stop it
while _G.EXPFarm do
wait()
local lplr = game:GetService("Players").LocalPlayer
local backpack = lplr.Backpack
for i,v in next, backpack:GetChildren() do
if v.Name == "Katana" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Scimitar" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if string.find(v.Name, "bound") then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Combat" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Giant Club" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Wooden Club" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Eleblade" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Flintlock" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Rusty Blade" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Cutlass" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Claymore" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Ghost Pirate's Cutlass" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Ice Saber" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Infernoblade" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "DeathSpeaker" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Boomblade" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Poseidon's Fury" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Arcanium" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Windsteel Dagger" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Energion" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Arceus" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Light Blade" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Santa's Blade" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Speedlock" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Goldlock" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Venomlock" then
v.Parent = lplr.Character
end
end
for i,v in next, backpack:GetChildren() do
if v.Name == "Boomlock" then
v.Parent = lplr.Character
end
end
for i,v in pairs(lplr.Character:GetDescendants()) do
if v:IsA("Tool") and v:FindFirstChild("ActionEvent") then
v:FindFirstChild("ActionEvent"):FireServer()
end
end
end
end)


Tutorial.Name = "Tutorial"
Tutorial.Parent = Main
Tutorial.BackgroundColor3 = Color3.new(1, 1, 1)
Tutorial.BorderSizePixel = 3
Tutorial.Position = UDim2.new(0, 0, -0.175257728, 0)
Tutorial.Size = UDim2.new(0, 238, 0, 17)
Tutorial.Font = Enum.Font.SourceSansSemibold
Tutorial.Text = "Click Dupe then reset, press F9 for credits"
Tutorial.TextColor3 = Color3.new(0, 0, 0)
Tutorial.TextSize = 14
-- Scripts: