-- Farewell Infortality.
-- Version: 2.82
-- Instances:
local OnePiecePirateQuest = Instance.new("ScreenGui")
local Main = Instance.new("Frame")
local Gamepass = Instance.new("TextButton")
local Teleports = Instance.new("TextButton")
local Tele = Instance.new("Frame")
local TeleChest = Instance.new("TextButton")
local TeleToDF = Instance.new("TextButton")
local TeleToMerchant = Instance.new("TextButton")
local Own1 = Instance.new("TextLabel")
local Own2 = Instance.new("TextLabel")
local Close2 = Instance.new("TextButton")
local Clicktp = Instance.new("TextButton")
local Tilte = Instance.new("TextLabel")
local Close = Instance.new("TextButton")
local Credits = Instance.new("TextLabel")
local Opengui = Instance.new("Frame")
local Open = Instance.new("TextButton")
--Properties:
OnePiecePirateQuest.Name = "One Piece Pirate Quest"
OnePiecePirateQuest.Parent = game.CoreGui

Main.Name = "Main"
Main.Parent = OnePiecePirateQuest
Main.BackgroundColor3 = Color3.new(1, 1, 1)
Main.Position = UDim2.new(0.079, 0, 1.7, 0)
Main.Size = UDim2.new(0, 345, 0, 329)
Main.Visible = true
Main.Style = Enum.FrameStyle.DropShadow
Main.Active = true
Main.Draggable = true

Gamepass.Name = "Gamepass"
Gamepass.Parent = Main
Gamepass.BackgroundColor3 = Color3.new(0, 1, 0.498039)
Gamepass.Position = UDim2.new(0.194202885, 0, 0.130699113, 0)
Gamepass.Size = UDim2.new(0, 200, 0, 50)
Gamepass.Font = Enum.Font.SourceSans
Gamepass.Text = "Gamepass Cosmetic"
Gamepass.TextColor3 = Color3.new(1, 0, 0)
Gamepass.TextSize = 14
Gamepass.MouseButton1Down:connect(function()
game.Players.LocalPlayer.Backpack.ServerTraits.Cosmo.Parent = game.Players.LocalPlayer.PlayerGui
end)

Teleports.Name = "Teleports"
Teleports.Parent = Main
Teleports.BackgroundColor3 = Color3.new(0, 1, 0.498039)
Teleports.Position = UDim2.new(0.194202885, 0, 0.370820701, 0)
Teleports.Size = UDim2.new(0, 200, 0, 50)
Teleports.Font = Enum.Font.SourceSans
Teleports.Text = "Teleports"
Teleports.TextColor3 = Color3.new(1, 0, 0)
Teleports.TextSize = 14
Teleports.MouseButton1Down:connect(function()
Tele:TweenPosition(UDim2.new(1.365, 0,-2.48, 0), 'Out','Bounce', 1)
Tele.Visible = true
end)

Tele.Name = "Tele"
Tele.Parent = Teleports
Tele.BackgroundColor3 = Color3.new(1, 1, 1)
Tele.Position = UDim2.new(1.36399996, 0, -2.48999977, 0)
Tele.Size = UDim2.new(0, 317, 0, 329)
Tele.Visible = false
Tele.Style = Enum.FrameStyle.DropShadow
Tele.Active = true
Tele.Draggable = true

TeleChest.Name = "Tele Chest"
TeleChest.Parent = Tele
TeleChest.BackgroundColor3 = Color3.new(0, 1, 0.498039)
TeleChest.Position = UDim2.new(0.192429021, 0, 0.130699098, 0)
TeleChest.Size = UDim2.new(0, 200, 0, 50)
TeleChest.Font = Enum.Font.SourceSans
TeleChest.Text = "Teleport Chest"
TeleChest.TextColor3 = Color3.new(1, 0, 0)
TeleChest.TextSize = 14
TeleChest.MouseButton1Down:connect(function()
local plr = game.Players.LocalPlayer.Character.HumanoidRootPart

for i,v in pairs(game.Workspace:GetChildren()) do
  if v.name == "Model" then
 if v:FindFirstChild("Lid") then
      for _, b in pairs(v.Lid:GetChildren()) do
          if b.name == "Touch" then
              b.CFrame = plr.CFrame
end
end
end
end
end
end)

TeleToDF.Name = "Tele To DF"
TeleToDF.Parent = Tele
TeleToDF.BackgroundColor3 = Color3.new(0, 1, 0.498039)
TeleToDF.Position = UDim2.new(0.192429021, 0, 0.364741653, 0)
TeleToDF.Size = UDim2.new(0, 200, 0, 50)
TeleToDF.Font = Enum.Font.SourceSans
TeleToDF.Text = "Teleport To DF"
TeleToDF.TextColor3 = Color3.new(1, 0, 0)
TeleToDF.TextSize = 14
TeleToDF.MouseButton1Down:connect(function()
local plr = game.Players.LocalPlayer.Character.HumanoidRootPart

for i,v in pairs(game.Workspace:GetChildren()) do
   if v:FindFirstChild 'Handle' and v:FindFirstChild 'ClickDetector' then
       for _, f in pairs(v:GetChildren()) do
           if f.name == "Handle" then
            plr.CFrame = f.CFrame
end
end
end
end
end)

TeleToMerchant.Name = "Tele To Merchant"
TeleToMerchant.Parent = Tele
TeleToMerchant.BackgroundColor3 = Color3.new(0, 1, 0.498039)
TeleToMerchant.Position = UDim2.new(0.192429021, 0, 0.607902765, 0)
TeleToMerchant.Size = UDim2.new(0, 200, 0, 50)
TeleToMerchant.Font = Enum.Font.SourceSans
TeleToMerchant.Text = "Teleport To Merchant"
TeleToMerchant.TextColor3 = Color3.new(1, 0, 0)
TeleToMerchant.TextSize = 14
TeleToMerchant.MouseButton1Down:connect(function()
local plr = game.Players.LocalPlayer.Character.HumanoidRootPart

for i,v in pairs(game.Workspace:GetChildren()) do
   if v:FindFirstChild 'Spot' and v:FindFirstChild 'Part' then
       for _, f in pairs(v:GetChildren()) do
           if f.name == "Spot" then
            plr.CFrame = f.CFrame
end
end
end
end
end)

Own1.Name = "Own1"
Own1.Parent = Tele
Own1.BackgroundColor3 = Color3.new(0, 1, 0.498039)
Own1.Position = UDim2.new(-0.0157728717, 0, -0.0121580549, 0)
Own1.Size = UDim2.new(0, 281, 0, 21)
Own1.Font = Enum.Font.SourceSans
Own1.Text = "Scripts Belong To V3rmillion"
Own1.TextColor3 = Color3.new(1, 0, 0)
Own1.TextSize = 14

Own2.Name = "Own2"
Own2.Parent = Tele
Own2.BackgroundColor3 = Color3.new(0, 1, 0.498039)
Own2.Position = UDim2.new(-0.0157728698, 0, 0.93617022, 0)
Own2.Size = UDim2.new(0, 311, 0, 21)
Own2.Font = Enum.Font.SourceSans
Own2.Text = "Scripts Belong To V3rmillion"
Own2.TextColor3 = Color3.new(1, 0, 0)
Own2.TextSize = 14

Close2.Name = "Close2"
Close2.Parent = Tele
Close2.BackgroundColor3 = Color3.new(0, 1, 0.498039)
Close2.Position = UDim2.new(0.914826512, 0, -0.0121580549, 0)
Close2.Size = UDim2.new(0, 30, 0, 21)
Close2.Font = Enum.Font.SourceSans
Close2.Text = "X"
Close2.TextColor3 = Color3.new(1, 0, 0)
Close2.TextSize = 14
Close2.MouseButton1Down:connect(function()
Tele:TweenPosition(UDim2.new(0.079, 0, 9.9, 0), 'Out','Bounce', 1)
end)

Clicktp.Name = "Click tp"
Clicktp.Parent = Main
Clicktp.BackgroundColor3 = Color3.new(0, 1, 0.498039)
Clicktp.Position = UDim2.new(0.194202885, 0, 0.610942245, 0)
Clicktp.Size = UDim2.new(0, 200, 0, 50)
Clicktp.Font = Enum.Font.SourceSans
Clicktp.Text = "Give Click Tp Tool"
Clicktp.TextColor3 = Color3.new(1, 0, 0)
Clicktp.TextSize = 14
Clicktp.MouseButton1Down:connect(function()
mouse = game.Players.LocalPlayer:GetMouse()
tool = Instance.new("Tool")
tool.RequiresHandle = false
tool.Name = "Click Teleport"
tool.Activated:connect(function()
local pos = mouse.Hit+Vector3.new(0,2.5,0)
pos = CFrame.new(pos.X,pos.Y,pos.Z)
game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = pos
end)
tool.Parent = game.Players.LocalPlayer.Backpack
tool.ToolTip = "CLICK_TP"
end)

Tilte.Name = "Tilte"
Tilte.Parent = Main
Tilte.BackgroundColor3 = Color3.new(0, 1, 0.498039)
Tilte.Position = UDim2.new(-0.00579710305, 0, -0.0121580549, 0)
Tilte.Size = UDim2.new(0, 312, 0, 35)
Tilte.Font = Enum.Font.SourceSans
Tilte.Text = "ONE PIECE: PIRATE'S QUEST 3 GUI"
Tilte.TextColor3 = Color3.new(1, 0, 0)
Tilte.TextSize = 14

Close.Name = "Close"
Close.Parent = Main
Close.BackgroundColor3 = Color3.new(0, 1, 0.498039)
Close.Position = UDim2.new(0.942029059, 0, -0.0121580558, 0)
Close.Size = UDim2.new(0, 23, 0, 35)
Close.Font = Enum.Font.SourceSans
Close.Text = "X"
Close.TextColor3 = Color3.new(1, 0, 0)
Close.TextSize = 14
Close.MouseButton1Down:connect(function()
Main:TweenPosition(UDim2.new(0.079, 0, 1.7, 0), 'Out','Bounce', 1)
Tele:TweenPosition(UDim2.new(0.079, 0, 1.7, 0), 'Out','Bounce', 1)
Opengui.Visible = true
end)

Credits.Name = "Credits"
Credits.Parent = Main
Credits.BackgroundColor3 = Color3.new(0, 1, 0.498039)
Credits.Position = UDim2.new(-0.00579710305, 0, 0.890577495, 0)
Credits.Size = UDim2.new(0, 335, 0, 35)
Credits.Font = Enum.Font.SourceSans
Credits.Text = "Gui Make By ClarkShadow"
Credits.TextColor3 = Color3.new(1, 0, 0)
Credits.TextSize = 14

Opengui.Name = "Opengui"
Opengui.Parent = OnePiecePirateQuest
Opengui.BackgroundColor3 = Color3.new(1, 1, 1)
Opengui.Position = UDim2.new(-0.00990098994, 0, 0.45418328, 0)
Opengui.Size = UDim2.new(0, 74, 0, 28)
Opengui.Style = Enum.FrameStyle.DropShadow
Opengui.Active = true
Opengui.Draggable = true

Open.Name = "Open"
Open.Parent = Opengui
Open.BackgroundColor3 = Color3.new(0, 1, 0.498039)
Open.Position = UDim2.new(-0.135135114, 0, -0.107142836, 0)
Open.Size = UDim2.new(0, 71, 0, 14)
Open.Font = Enum.Font.SourceSans
Open.Text = "Open"
Open.TextColor3 = Color3.new(1, 0, 0)
Open.TextSize = 14
Open.MouseButton1Down:connect(function()
Main:TweenPosition(UDim2.new(0.079, 0, 0.074, 0), 'Out','Bounce', 1)
Opengui.Visible = false
Tele.Visible = false
end)
-- Scripts: