Build a Boat Inf Blocks, teleport, and place anywhere!

local Plr = game:GetService("Players").LocalPlayer
local Mouse = Plr:GetMouse()
local Block = ""
local iBlock = nil
local ED = true
local CON = Color3.new(0.0588235, 0.203922, 0.0509804)
local COFF = Color3.new(0.203922, 0.0588235, 0.0588235)
local BuildABoatForTreasure = Instance.new("ScreenGui")
local BTN = Instance.new("TextButton")

local function RV()
local res = ""
for i = 1, 20 do
res = res .. string.char(math.random(97, 122))
end
return res
end

BuildABoatForTreasure.Name = RV()
BuildABoatForTreasure.Parent = game.CoreGui
BuildABoatForTreasure.ResetOnSpawn = false

BTN.Name = RV()
BTN.Parent = BuildABoatForTreasure
BTN.BackgroundColor3 = CON
BTN.BackgroundTransparency = 0.30000001192093
BTN.BorderColor3 = Color3.new(0.113725, 0.113725, 0.113725)
BTN.BorderSizePixel = 2
BTN.Position = UDim2.new(0, 0, 0.819734335, 0)
BTN.Size = UDim2.new(0, 73, 0, 19)
BTN.Font = Enum.Font.Code
BTN.Text = " ENABLED"
BTN.TextColor3 = Color3.new(1, 1, 1)
BTN.TextSize = 16
BTN.TextXAlignment = Enum.TextXAlignment.Left

BTN.MouseButton1Down:Connect(function()
if ED then
ED = false
BTN.BackgroundColor3 = COFF
    BTN.Text = " DISABLED"
BTN.Size = UDim2.new(0, 80, 0, 19)
else
ED = true
BTN.BackgroundColor3 = CON
    BTN.Text = " ENABLED"
BTN.Size = UDim2.new(0, 73, 0, 19)
end
end)

local function refresh()
while wait(2)do
if ED then
for i,v in pairs(game.Workspace:GetChildren())do
if v:FindFirstChild("Tag") then
if v:FindFirstChild("Tag").Value == "" then
iBlock = v
end
end
end
for i,b in pairs(game.Players.LocalPlayer.PlayerGui.BuildGui.ScrollingFrame.BlocksFrame:GetChildren())do
if b.Name == "Selected" or b.Name == "UIGridLayout" or b.Name == "GamePadSelectLocalScript" then else
b.Visible = true
end
end
end
end
end

local function GetNum()
return game.Players.LocalPlayer.PlayerGui.BuildGui.ScrollingFrame.BlocksFrame[Block].Amount.Value
end

local this = Instance.new("Model", game.Workspace)
this.Name = RV()
local this2 = Instance.new("Part", this)
this2.Name = "PPart"

Mouse.Button1Down:connect(function()
if game.Workspace[Plr.Name]:FindFirstChild("BuildingTool")and ED then
Block = game.Players.LocalPlayer.PlayerGui.BuildGui.ScrollingFrame.BlocksFrame.Selected.Value
game.Workspace[Plr.Name]:FindFirstChild("BuildingTool").RF:InvokeServer(unpack({Block, GetNum(), this.PPart, CFrame.new(0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1), 3, true, 17, iBlock.PPart.CFrame}))
end
end)

Plr:GetMouse().KeyDown:connect(function(key)
if key == 'q' and ED then
if Mouse.Target then
Plr.Character.HumanoidRootPart.CFrame = CFrame.new(Mouse.Hit.x, Mouse.Hit.y + 5, Mouse.Hit.z)
end
end
end)
refresh()