PasteShr

New Paste Browse

one piece open sea eleblade
-- 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")
one piece open sea eleblade PasteShr one piece open sea eleblade
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
one piece open sea eleblade How to dowload it? one piece open sea eleblade
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)

one piece open sea eleblade How to dowload it? one piece open sea eleblade
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()
one piece open sea eleblade How to get it? one piece open sea eleblade
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)
one piece open sea eleblade How to use it? one piece open sea eleblade
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()
one piece open sea eleblade PasteShr one piece open sea eleblade
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)
one piece open sea eleblade PasteShr one piece open sea eleblade
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)
one piece open sea eleblade How to get it? one piece open sea eleblade
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
one piece open sea eleblade How to get it for free? one piece open sea eleblade
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
one piece open sea eleblade How to get it for free? one piece open sea eleblade
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
one piece open sea eleblade How to use it? one piece open sea eleblade
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
one piece open sea eleblade PasteShr one piece open sea eleblade
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
one piece open sea eleblade How to use it? one piece open sea eleblade
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
one piece open sea eleblade How to dowload it? one piece open sea eleblade
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
one piece open sea eleblade PasteShr one piece open sea eleblade
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
one piece open sea eleblade How to get it? one piece open sea eleblade
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
one piece open sea eleblade How to get it? one piece open sea eleblade
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
one piece open sea eleblade How to get it for free? one piece open sea eleblade
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
one piece open sea eleblade How to dowload it? one piece open sea eleblade
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
one piece open sea eleblade How to use it? one piece open sea eleblade
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
one piece open sea eleblade How to get it? one piece open sea eleblade
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
one piece open sea eleblade How to dowload it? one piece open sea eleblade
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
one piece open sea eleblade How to get it for free? one piece open sea eleblade
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
one piece open sea eleblade PasteShr one piece open sea eleblade
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
one piece open sea eleblade How to dowload it? one piece open sea eleblade
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
one piece open sea eleblade How to use it? one piece open sea eleblade
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
one piece open sea eleblade How to use it? one piece open sea eleblade
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
one piece open sea eleblade How to use it? one piece open sea eleblade
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
one piece open sea eleblade PasteShr one piece open sea eleblade
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
one piece open sea eleblade How to get it? one piece open sea eleblade
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
one piece open sea eleblade PasteShr one piece open sea eleblade
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
one piece open sea eleblade How to get it for free? one piece open sea eleblade
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
one piece open sea eleblade How to get it? one piece open sea eleblade
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
one piece open sea eleblade How to get it? one piece open sea eleblade
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
one piece open sea eleblade How to use it? one piece open sea eleblade
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
one piece open sea eleblade How to get it for free? one piece open sea eleblade
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
one piece open sea eleblade How to dowload it? one piece open sea eleblade
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
one piece open sea eleblade PasteShr one piece open sea eleblade
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
one piece open sea eleblade How to dowload it? one piece open sea eleblade
v:FindFirstChild("ActionEvent"):FireServer()
end
end
end
end)

Tutorial.Name = "Tutorial"
Tutorial.Parent = Main
Tutorial.BackgroundColor3 = Color3.new(1, 1, 1)
one piece open sea eleblade PasteShr one piece open sea eleblade
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:
one piece open sea eleblade

Paste Settings

Paste Title : [Optional]

Paste Folder : [Optional]

Syntax Highlighting : [Optional]

Paste Expiration : [Optional]

Paste Status : [Optional]

Password : [Optional]

Description: [Optional]

Tags: [Optional]

Encrypt Paste (?)

You are currently not logged in, this means you can not edit or delete anything you paste. Sign Up or Login

Recent Pastes

booga booga aut farm
Plaintext | 0 | 9 seconds ago
nightbot commands list copy and paste
Plaintext | 0 | 10 seconds ago
cbro respawn script
Plaintext | 0 | 10 seconds ago
stream sniper script roblox 2019
Plaintext | 0 | 11 seconds ago
bypass camwhore private
Plaintext | 0 | 11 seconds ago
honey select maps mods snooley
Plaintext | 0 | 5 minutes ago
ro gjoul script
Plaintext | 0 | 5 minutes ago

Paste Settings

Site Languages