Primeval Earth AUTO FARM SCRIPT NO KEY * THE OWNERS

local UIS = game:GetService("UserInputService")
local CoreGui = game:GetService("CoreGui")
local Plr = game:GetService("Players").LocalPlayer

if CoreGui:FindFirstChild("PrimevalEarthGUI") then
	CoreGui.PrimevalEarthGUI:Destroy()
end

-- 1. GUI PANEL KURULUMU
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "PrimevalEarthGUI"
ScreenGui.Parent = CoreGui
ScreenGui.ResetOnSpawn = false

local MainFrame = Instance.new("Frame")
MainFrame.Parent = ScreenGui
MainFrame.Size = UDim2.new(0, 240, 0, 255)
MainFrame.Position = UDim2.new(0.5, -120, 0.2, 0)
MainFrame.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
MainFrame.BorderSizePixel = 0
MainFrame.Draggable = true
MainFrame.Active = true

local Title = Instance.new("TextLabel")
Title.Parent = MainFrame
Title.Size = UDim2.new(1, 0, 0, 30)
Title.Text = "PRIMEVAL EARTH MENU"
Title.TextColor3 = Color3.fromRGB(255, 255, 255)
Title.BackgroundColor3 = Color3.fromRGB(45, 45, 45)
Title.Font = Enum.Font.SourceSansBold
Title.TextSize = 16

-- GÖREV DURUMU GÖSTERGESİ
local QuestLabel = Instance.new("TextLabel")
QuestLabel.Parent = MainFrame
QuestLabel.Size = UDim2.new(1, 0, 0, 20)
QuestLabel.Position = UDim2.new(0, 0, 0, 30)
QuestLabel.Text = "Current Quest: Waiting..."
QuestLabel.TextColor3 = Color3.fromRGB(255, 255, 0)
QuestLabel.BackgroundColor3 = Color3.fromRGB(40, 40, 40)
QuestLabel.Font = Enum.Font.SourceSansBold
QuestLabel.TextSize = 14

local EatButton = Instance.new("TextButton")
EatButton.Parent = MainFrame
EatButton.Size = UDim2.new(0, 200, 0, 35)
EatButton.Position = UDim2.new(0, 20, 0, 55)
EatButton.Text = "Auto Eat: OFF"
EatButton.TextColor3 = Color3.fromRGB(255, 255, 255)
EatButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
EatButton.Font = Enum.Font.SourceSansBold
EatButton.TextSize = 15

local DrinkButton = Instance.new("TextButton")
DrinkButton.Parent = MainFrame
DrinkButton.Size = UDim2.new(0, 200, 0, 35)
DrinkButton.Position = UDim2.new(0, 20, 0, 95)
DrinkButton.Text = "Auto Drink: OFF"
DrinkButton.TextColor3 = Color3.fromRGB(255, 255, 255)
DrinkButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
DrinkButton.Font = Enum.Font.SourceSansBold
DrinkButton.TextSize = 15

local RestButton = Instance.new("TextButton")
RestButton.Parent = MainFrame
RestButton.Size = UDim2.new(0, 200, 0, 35)
RestButton.Position = UDim2.new(0, 20, 0, 135)
RestButton.Text = "Auto Rest: OFF"
RestButton.TextColor3 = Color3.fromRGB(255, 255, 255)
RestButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
RestButton.Font = Enum.Font.SourceSansBold
RestButton.TextSize = 15

local ZoneButton = Instance.new("TextButton")
ZoneButton.Parent = MainFrame
ZoneButton.Size = UDim2.new(0, 200, 0, 35)
ZoneButton.Position = UDim2.new(0, 20, 0, 175)
ZoneButton.Text = "Auto Zone: OFF"
ZoneButton.TextColor3 = Color3.fromRGB(255, 255, 255)
ZoneButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
ZoneButton.Font = Enum.Font.SourceSansBold
ZoneButton.TextSize = 15

_G.AutoEatRunning = false
_G.AutoDrinkRunning = false
_G.AutoRestRunning = false
_G.AutoZoneRunning = false
_G.CurrentQuest = "None"

EatButton.MouseButton1Click:Connect(function()
	_G.AutoEatRunning = not _G.AutoEatRunning
	EatButton.Text = _G.AutoEatRunning and "Auto Eat: ON" or "Auto Eat: OFF"
	EatButton.BackgroundColor3 = _G.AutoEatRunning and Color3.fromRGB(50, 180, 50) or Color3.fromRGB(200, 50, 50)
end)

DrinkButton.MouseButton1Click:Connect(function()
	_G.AutoDrinkRunning = not _G.AutoDrinkRunning
	DrinkButton.Text = _G.AutoDrinkRunning and "Auto Drink: ON" or "Auto Drink: OFF"
	DrinkButton.BackgroundColor3 = _G.AutoDrinkRunning and Color3.fromRGB(50, 180, 50) or Color3.fromRGB(200, 50, 50)
end)

RestButton.MouseButton1Click:Connect(function()
	_G.AutoRestRunning = not _G.AutoRestRunning
	RestButton.Text = _G.AutoRestRunning and "Auto Rest: ON" or "Auto Rest: OFF"
	RestButton.BackgroundColor3 = _G.AutoRestRunning and Color3.fromRGB(50, 180, 50) or Color3.fromRGB(200, 50, 50)
end)

ZoneButton.MouseButton1Click:Connect(function()
	_G.AutoZoneRunning = not _G.AutoZoneRunning
	ZoneButton.Text = _G.AutoZoneRunning and "Auto Zone: ON" or "Auto Zone: OFF"
	ZoneButton.BackgroundColor3 = _G.AutoZoneRunning and Color3.fromRGB(50, 180, 50) or Color3.fromRGB(200, 50, 50)
end)

UIS.InputBegan:Connect(function(input, processed)
	if processed then return end 
	if input.KeyCode == Enum.KeyCode.RightAlt then
		MainFrame.Visible = not MainFrame.Visible
	end
end)

local Mouse = Plr:GetMouse()
Mouse.Button1Down:Connect(function()
	if UIS:IsKeyDown(Enum.KeyCode.LeftControl) then
		local char = Plr.Character
		local hrp = char and char:FindFirstChild("HumanoidRootPart")
		if hrp and Mouse.Target then
			hrp.CFrame = CFrame.new(Mouse.Hit.X, Mouse.Hit.Y + 3, Mouse.Hit.Z)
		end
	end
end)

-- ANTI-AFK SİSTEMİ (OYUNDAN ATMASINI ÖNLER)
local VirtualUser = game:GetService("VirtualUser")
Plr.Idled:Connect(function()
	VirtualUser:CaptureController()
	VirtualUser:ClickButton2(Vector2.new())
end)

local function IsThisZoneGreen(targetPos)
	local isGreen = false
	pcall(function()
		local folder = game:GetService("Workspace").MapResources.Zones
		for _, zoneObj in pairs(folder:GetChildren()) do
			local core = zoneObj:FindFirstChild("LightCore")
			if core and (core.Position - targetPos).Magnitude < 15 then
				local color = core.Color
				if color.R == 0 and color.G > 0.9 and color.B == 0 then
					isGreen = true
				end
				break
			end
		end
	end)
	return isGreen
end

local ZonesList = {
	{ Position = Vector3.new(-144.54, -102.15, 1032.19), Teleport = CFrame.new(-144.54, -87.15, 1032.19) },
	{ Position = Vector3.new(-617.92, 143.39, -1130.44), Teleport = CFrame.new(-617.92, 158.39, -1130.44) },
	{ Position = Vector3.new(1449.99, 77.16, -677.59), Teleport = CFrame.new(1449.99, 92.16, -677.59) },
	{ Position = Vector3.new(276.03, 75.50, -1029.02), Teleport = CFrame.new(276.03, 90.50, -1029.02) },
	{ Position = Vector3.new(-513.23, 75.73, -430.79), Teleport = CFrame.new(-513.23, 90.73, -430.79) },
	{ Position = Vector3.new(1090.65, 66.03, 467.14), Teleport = CFrame.new(1090.65, 81.03, 467.14) },
	{ Position = Vector3.new(209.25, -32.79, -359.19), Teleport = CFrame.new(209.25, -17.79, -359.19) },
	{ Position = Vector3.new(-170.20, 109.98, 388.42), Teleport = CFrame.new(-170.20, 124.98, 388.42) },
	{ Position = Vector3.new(-69.11, -61.16, -1493.54), Teleport = CFrame.new(-69.11, -46.16, -1493.54) }
}

task.spawn(function()
	while true do
		if _G.AutoZoneRunning then
			local char = Plr.Character
			local hrp = char and char:FindFirstChild("HumanoidRootPart")
			if hrp then
				local safetyZone3CFrame = CFrame.new(1449.99, 82.16, -677.59) 
				
				for i = 1, #ZonesList do
					if not _G.AutoZoneRunning then break end
					local zone = ZonesList[i]
					
					if IsThisZoneGreen(zone.Position) then
						ZoneButton.Text = "Zone " .. tostring(i) .. " Senin, Pas."
						task.wait(0.05)
					else
						hrp.CFrame = zone.Teleport
						task.wait(0.05)
						local startTime = tick()
						
						while _G.AutoZoneRunning do
							if IsThisZoneGreen(zone.Position) then
								break
							end
							
							if tick() - startTime >= 15 then
								break
							end
							
							local shakeX = math.sin(tick() * 8) * 0.35
							local shakeZ = math.cos(tick() * 8) * 0.35
							hrp.CFrame = zone.Teleport * CFrame.new(shakeX, 0, shakeZ)
							hrp.Velocity = Vector3.new(0, 0, 0)
							
							ZoneButton.Text = "Zone " .. tostring(i) .. " Alınıyor..."
							task.wait(0.02)
						end
						
						task.wait(0.05)
						ZoneButton.Text = "Zone " .. tostring(i) .. " Alındı!"
						task.wait(0.5)
					end
				end
				
				if hrp and _G.AutoZoneRunning then 
					hrp.CFrame = safetyZone3CFrame 
				end
				
				ZoneButton.Text = "Karasal Beklemede (5s)..."
				task.wait(5)
			else
				task.wait(0.5)
			end
		else
			task.wait(0.1)
		end
	end
end)

-- GÖREV TESPİT SİSTEMİ (ANLIK VE KARARLI)
task.spawn(function()
	while task.wait(0.2) do
		pcall(function()
			local playerGui = Plr:WaitForChild("PlayerGui")
			local questsFrame = playerGui:FindFirstChild("GameUI") and playerGui.GameUI:FindFirstChild("QuestsFrame")
			
			local detectedQuest = "None"
			
			if questsFrame then
				for _, child in pairs(questsFrame:GetChildren()) do
					local textContent = ""
					for _, desc in pairs(child:GetDescendants()) do
						if desc:IsA("TextLabel") then
							textContent = textContent .. " " .. string.lower(desc.Text)
						end
					end
					
					if string.find(textContent, "eat something") then
						detectedQuest = "Eat"
						break
					elseif string.find(textContent, "drink water") then
						detectedQuest = "Drink"
						break
					elseif string.find(textContent, "rest") then
						detectedQuest = "Rest"
						break
					end
				end
			end
			
			_G.CurrentQuest = detectedQuest
			
			if detectedQuest == "Eat" then
				QuestLabel.Text = "Current Quest: Eat"
				QuestLabel.TextColor3 = Color3.fromRGB(50, 255, 50)
			elseif detectedQuest == "Drink" then
				QuestLabel.Text = "Current Quest: Drink"
				QuestLabel.TextColor3 = Color3.fromRGB(50, 150, 255)
			elseif detectedQuest == "Rest" then
				QuestLabel.Text = "Current Quest: Rest"
				QuestLabel.TextColor3 = Color3.fromRGB(255, 165, 0)
			else
				QuestLabel.Text = "Current Quest: Waiting..."
				QuestLabel.TextColor3 = Color3.fromRGB(255, 255, 0)
			end
		end)
	end
end)

-- AUTO EAT
task.spawn(function()
	local remote = game:GetService("ReplicatedStorage").Remotes.Character.Eat
	while true do
		if _G.AutoEatRunning and _G.CurrentQuest == "Eat" then
			pcall(function()
				local char = Plr.Character
				local hrp = char and char:FindFirstChild("HumanoidRootPart")
				if hrp then
					local env = workspace.MapEnvironment
					local closest = nil
					local shortest = math.huge
					local folders = {
						{ F = env:FindFirstChild("RedWood") and env.RedWood:FindFirstChild("Trees"), N = "RedWoodTree" },
						{ F = env:FindFirstChild("Pines") and env.Pines:FindFirstChild("Trees"), N = "PineTree" },
						{ F = env:FindFirstChild("Desert") and env.Desert:FindFirstChild("Tress"), N = "DesertTree" },
						{ F = env:FindFirstChild("Lobby") and env.Lobby:FindFirstChild("Trees"), N = "RedWoodTree" }
					}
					for _, conf in pairs(folders) do
						if conf.F then
							for _, tree in pairs(conf.F:GetChildren()) do
								if tree.Name == conf.N then
									local p = tree:IsA("BasePart") and tree or tree:FindFirstChildWhichIsA("BasePart")
									if p and (hrp.Position - p.Position).Magnitude < shortest then
										shortest = (hrp.Position - p.Position).Magnitude
										closest = tree
									end
								end
							end
						end
					end
					
					if closest then
						remote:FireServer(closest)
					end
				end
			end)
			task.wait(0.4)
		else
			task.wait(0.2)
		end
	end
end)

-- AUTO DRINK
task.spawn(function()
	while true do
		if _G.AutoDrinkRunning and _G.CurrentQuest == "Drink" then
			game:GetService("ReplicatedStorage").Remotes.Character.CharacterFunctions:InvokeServer("Drink")
			task.wait(0.8)
		else
			task.wait(0.2)
		end
	end
end)

-- AUTO REST (SPAM YAPMAYAN VE KARARLI ÇALIŞAN SİSTEM)
task.spawn(function()
	local restRemote = game:GetService("ReplicatedStorage").Remotes.Character.Rest
	local isRestingActive = false
	
	while true do
		task.wait(0.3)
		local shouldRest = _G.AutoRestRunning and (_G.CurrentQuest == "Rest")
		
		if shouldRest and not isRestingActive then
			pcall(function()
				restRemote:InvokeServer(true)
			end)
			isRestingActive = true
		elseif not shouldRest and isRestingActive then
			pcall(function()
				restRemote:InvokeServer(false)
			end)
			isRestingActive = false
		end
	end
end)