AutoFarm | Archeologist Job(Need Graduate)

--[[
	WARNING: Heads up! This script has not been verified by ScriptBlox. Use at your own risk!
]]
local Players = game:GetService("Players")
local player = Players.LocalPlayer
if not player then return end
local playerGui = player:WaitForChild("PlayerGui")

local oldGui = playerGui:FindFirstChild("PrivateServerGUI")
if oldGui then oldGui:Destroy() end

local function showMessage(text, duration)
	local screenGui = Instance.new("ScreenGui")
	screenGui.Name = "PrivateServerGUI"
	screenGui.ResetOnSpawn = false
	screenGui.Parent = playerGui

	local frame = Instance.new("Frame")
	frame.Size = UDim2.new(0, 400, 0, 100)
	frame.Position = UDim2.new(0.5, 0, 0.5, 0)
	frame.AnchorPoint = Vector2.new(0.5, 0.5)
	frame.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
	frame.BackgroundTransparency = 0
	frame.Parent = screenGui

	local corner = Instance.new("UICorner")
	corner.CornerRadius = UDim.new(0, 12)
	corner.Parent = frame

	local stroke = Instance.new("UIStroke")
	stroke.Parent = frame
	stroke.ApplyStrokeMode = Enum.ApplyStrokeMode.Contextual
	stroke.Color = Color3.fromRGB(255, 255, 255)
	stroke.Thickness = 4
	stroke.Transparency = 0.4

	local label = Instance.new("TextLabel")
	label.Parent = frame
	label.Size = UDim2.new(1, -20, 1, -20)
	label.Position = UDim2.new(0, 10, 0, 10)
	label.BackgroundTransparency = 1
	label.Text = text
	label.TextColor3 = Color3.fromRGB(255, 255, 255)
	label.Font = Enum.Font.GothamMedium
	label.TextScaled = true
	label.TextWrapped = true
	label.TextXAlignment = Enum.TextXAlignment.Center
	label.TextYAlignment = Enum.TextYAlignment.Center

	task.wait(duration or 2)

	if screenGui and screenGui.Parent then
		screenGui:Destroy()
	end
end

showMessage("Private Server Recommended", 2)


--// SERVICES
local Players = game:GetService("Players")
local RS = game:GetService("ReplicatedStorage")
local VIM = game:GetService("VirtualInputManager")

local player = Players.LocalPlayer
local char = player.Character or player.CharacterAdded:Wait()
local hrp = char:WaitForChild("HumanoidRootPart")

--// STATE
local AutoFarm = false
local MenuOpen = true

--// AUTO FARM FUNCTION
local function AutoFarmLoop()
	task.spawn(function()
		while AutoFarm do
			pcall(function()
				--COMPASS AREA
                hrp.CFrame = workspace.Environment.JobModels.Excavation.GetCompass.Part.CFrame + Vector3.new(0,5,0)
				task.wait(1)

                -- GET COMPASS
				RS.ActionEvents["Get compass"]:FireServer(
					workspace.Environment.JobModels.Excavation.GetCompass
				)

				task.wait(0.5)

				-- DIG AREA
				hrp.CFrame = workspace.Environment.JobModels.Excavation.DigArea.DigArea.Part.CFrame + Vector3.new(0,5,0)
				task.wait(1)

				VIM:SendKeyEvent(true, Enum.KeyCode.E, false, game)
				task.wait(0.05)
				VIM:SendKeyEvent(false, Enum.KeyCode.E, false, game)

				task.wait(6)

				-- CLEAN AREA
				hrp.CFrame = workspace.Environment.JobModels.Excavation.CleanArea.CleanItem.Part.CFrame + Vector3.new(0,5,0)
				task.wait(1)

				RS.ActionEvents["Clean bones"]:FireServer(
					workspace.Environment.JobModels.Excavation.CleanArea.CleanItem
				)

				task.wait(4.5)

				-- PACKAGE
				hrp.CFrame = workspace.Environment.JobModels.Excavation.Package.Part.CFrame + Vector3.new(0,5,0)
				task.wait(1)

				RS.ActionEvents["Package"]:FireServer(
					workspace.Environment.JobModels.Excavation.Package
				)

				task.wait()
			end)
		end
	end)
end

--// GUI
local gui = Instance.new("ScreenGui", game.CoreGui)
gui.Name = "AutoFarmGUI"

local frame = Instance.new("Frame", gui)
frame.Size = UDim2.fromOffset(220, 130)
frame.Position = UDim2.fromScale(0.4, 0.3)
frame.BackgroundColor3 = Color3.fromRGB(25,25,25)
frame.Active = true
frame.Draggable = true

local title = Instance.new("TextLabel", frame)
title.Size = UDim2.new(1,0,0,30)
title.BackgroundTransparency = 1
title.Text = "AUTO FARM"
title.TextColor3 = Color3.new(1,1,1)
title.Font = Enum.Font.GothamBold
title.TextSize = 14

-- AUTO FARM BUTTON
local farmBtn = Instance.new("TextButton", frame)
farmBtn.Size = UDim2.fromOffset(180,35)
farmBtn.Position = UDim2.fromOffset(20,45)
farmBtn.Text = "AUTO FARM : OFF"
farmBtn.Font = Enum.Font.GothamBold
farmBtn.TextSize = 13
farmBtn.BackgroundColor3 = Color3.fromRGB(170,0,0)
farmBtn.TextColor3 = Color3.new(1,1,1)

farmBtn.MouseButton1Click:Connect(function()
	AutoFarm = not AutoFarm
	if AutoFarm then
		farmBtn.Text = "AUTO FARM : ON"
		farmBtn.BackgroundColor3 = Color3.fromRGB(0,170,0)
		AutoFarmLoop()
	else
		farmBtn.Text = "AUTO FARM : OFF"
		farmBtn.BackgroundColor3 = Color3.fromRGB(170,0,0)
	end
end)

-- MENU TOGGLE BUTTON
local menuBtn = Instance.new("TextButton", gui)
menuBtn.Size = UDim2.fromOffset(120,35)
menuBtn.Position = UDim2.fromScale(0.01,0.4)
menuBtn.Text = "MENU"
menuBtn.Font = Enum.Font.GothamBold
menuBtn.TextSize = 13
menuBtn.BackgroundColor3 = Color3.fromRGB(40,40,40)
menuBtn.TextColor3 = Color3.new(1,1,1)
menuBtn.Active = true
menuBtn.Draggable = true

menuBtn.MouseButton1Click:Connect(function()
	MenuOpen = not MenuOpen
	frame.Visible = MenuOpen
end)