lumber tycoon 2 not very good

local Library = loadstring(game:HttpGet("https://raw.githubusercontent.com/xHeptc/Kavo-UI-Library/main/source.lua"))()
local Window = Library.CreateLib("lt2end", "Synapse")

local Main = Window:NewTab("Main")
local MainSection = Main:NewSection("Main")

 MainSection:NewButton("FREECAM", "FREECAM", function()
    -- Basic Freecam Script
    -- You can move faster by holding the click button [setting below ! :) ]
local allowspeedmove = true
wait(1)

local c = workspace.CurrentCamera
local player = game.Players.LocalPlayer
local userInput = game:GetService("UserInputService")
local rs = game:GetService("RunService")
local starterPlayer = game:GetService("StarterPlayer")
--local util = LoadLibrary("RbxUtility")
--local camSync = util.CreateSignal()

local selected = false
local speed = 60
local lastUpdate = 0

local camera = Instance.new('Part', workspace)
camera.CanCollide = false
camera.Anchored = true
camera.Transparency = 1
camera.Name = 'FreeCam'
camera.Position = player.Character.HumanoidRootPart.Position + Vector3.new(0,5,0)
--rs:BindToRenderStep("CamSync",190,function ()
--  camSync:fire()
--end)

c.Changed:connect(function (property)
    if property == "CoordinateFrame" then
--      camSync:fire()
    end
end)

function getNextMovement(deltaTime)
    local nextMove = Vector3.new()
    -- Left/Right
    if userInput:IsKeyDown("A") or userInput:IsKeyDown("Left") then
        nextMove = nextMove + Vector3.new(-1,0,0)
    end
    if userInput:IsKeyDown("D") or userInput:IsKeyDown("Right") then
        nextMove = nextMove + Vector3.new(1,0,0)
    end
    -- Forward/Back
    if userInput:IsKeyDown("W") or userInput:IsKeyDown("Up") then
        nextMove = nextMove + Vector3.new(0,0,-1)
    end
    if userInput:IsKeyDown("S") or userInput:IsKeyDown("Down") then
        nextMove = nextMove + Vector3.new(0,0,1)
    end
    -- Up/Down
    if userInput:IsKeyDown("Space") or userInput:IsKeyDown("Q") then
        nextMove = nextMove + Vector3.new(0,1,0)
    end
    if userInput:IsKeyDown("LeftControl") or userInput:IsKeyDown("E") then
        nextMove = nextMove + Vector3.new(0,-1,0)
    end
    return CFrame.new( nextMove * (speed * deltaTime) )
end

function onSelected()
    local char = player.Character
    if char then
        local root = camera
        currentPos = root.Position
        selected = true
        lastUpdate = tick()
        c.CameraSubject = root
        player.Character.HumanoidRootPart.Anchored = true
        while selected do
            local delta = tick()-lastUpdate
            local look = (c.Focus.p-c.CoordinateFrame.p).unit
            local move = getNextMovement(delta)
            local pos = root.Position
            root.CFrame = CFrame.new(pos,pos+look) * move
            lastUpdate = tick()
            wait(0.01)
        --  camSync:wait()
        end
        player.Character.HumanoidRootPart.Anchored = false
        c.CameraSubject = player.Character.Humanoid
        root.Velocity = Vector3.new()
    end
end

function onDeselected()
    selected = false
end

local isOn = true
spawn(onSelected)

function onKeyPressed(_,state)
    if state == Enum.UserInputState.Begin then
        isOn = not isOn
        if isOn then
            onSelected()
        else
            onDeselected()
        end
    end
end

local mouse = player:GetMouse()
mouse.Button1Down:Connect(function()
    if allowspeedmove then speed = 120 end
end)
mouse.Button1Up:Connect(function()
    speed = 60
end)

function ResetCamera()
    camera.Position = player.Character.HumanoidRootPart.Position + Vector3.new(0,5,0)
end

game:GetService("ContextActionService"):BindAction("Noclip Toggle",onKeyPressed,false,"r")
game:GetService("ContextActionService"):BindAction("Reset Camera Position",ResetCamera,false,"z")
end)

MainSection:NewButton("get wood", "wood", function()
        loadstring(game:HttpGet("https://raw.githubusercontent.com/NOOBARMYSCRIPTER/NOOBARMYSCRIPTER/main/AXE%20LOOP%20SCRIPT", true))();
    end)

MainSection:NewButton("serverhop", "tp low ppl server", function()
        local PlaceID = game.PlaceId
local AllIDs = {}
local foundAnything = ""
local actualHour = os.date("!*t").hour
local Deleted = false
local File = pcall(function()
    AllIDs = game:GetService('HttpService'):JSONDecode(readfile("NotSameServers.json"))
end)
if not File then
    table.insert(AllIDs, actualHour)
    writefile("NotSameServers.json", game:GetService('HttpService'):JSONEncode(AllIDs))
end
function TPReturner()
    local Site;
    if foundAnything == "" then
        Site = game.HttpService:JSONDecode(game:HttpGet('https://games.roblox.com/v1/games/' .. PlaceID .. '/servers/Public?sortOrder=Asc&limit=100'))
    else
        Site = game.HttpService:JSONDecode(game:HttpGet('https://games.roblox.com/v1/games/' .. PlaceID .. '/servers/Public?sortOrder=Asc&limit=100&cursor=' .. foundAnything))
    end
    local ID = ""
    if Site.nextPageCursor and Site.nextPageCursor ~= "null" and Site.nextPageCursor ~= nil then
        foundAnything = Site.nextPageCursor
    end
    local num = 0;
    for i,v in pairs(Site.data) do
        local Possible = true
        ID = tostring(v.id)
        if tonumber(v.maxPlayers) > tonumber(v.playing) then
            for _,Existing in pairs(AllIDs) do
                if num ~= 0 then
                    if ID == tostring(Existing) then
                        Possible = false
                    end
                else
                    if tonumber(actualHour) ~= tonumber(Existing) then
                        local delFile = pcall(function()
                            delfile("NotSameServers.json")
                            AllIDs = {}
                            table.insert(AllIDs, actualHour)
                        end)
                    end
                end
                num = num + 1
            end
            if Possible == true then
                table.insert(AllIDs, ID)
                wait()
                pcall(function()
                    writefile("NotSameServers.json", game:GetService('HttpService'):JSONEncode(AllIDs))
                    wait()
                    game:GetService("TeleportService"):TeleportToPlaceInstance(PlaceID, ID, game.Players.LocalPlayer)
                end)
                wait(4)
            end
        end
    end
end

function Teleport()
    while wait() do
        pcall(function()
            TPReturner()
            if foundAnything ~= "" then
                TPReturner()
            end
        end)
    end
end

-- If you'd like to use a script before server hopping (Like a Automatic Chest collector you can put the Teleport() after it collected everything.
Teleport()
    end)