Flying! Primeval Earth | Dinosaur Survival script - (Auto Eat, Auto Drink)

1--[[2	WARNING: Heads up! This script has not been verified by ScriptBlox. Use at your own risk!3]]4local UIS = game:GetService("UserInputService")5local CoreGui = game:GetService("CoreGui")6local Plr = game:GetService("Players").LocalPlayer78if CoreGui:FindFirstChild("PrimevalEarthGUI") then9	CoreGui.PrimevalEarthGUI:Destroy()10end1112-- 1. GUI PANEL KURULUMU13local ScreenGui = Instance.new("ScreenGui")14ScreenGui.Name = "PrimevalEarthGUI"15ScreenGui.Parent = CoreGui16ScreenGui.ResetOnSpawn = false1718local MainFrame = Instance.new("Frame")19MainFrame.Parent = ScreenGui20MainFrame.Size = UDim2.new(0, 240, 0, 255)21MainFrame.Position = UDim2.new(0.5, -120, 0.2, 0)22MainFrame.BackgroundColor3 = Color3.fromRGB(30, 30, 30)23MainFrame.BorderSizePixel = 024MainFrame.Draggable = true25MainFrame.Active = true2627local Title = Instance.new("TextLabel")28Title.Parent = MainFrame29Title.Size = UDim2.new(1, 0, 0, 30)30Title.Text = "PRIMEVAL EARTH MENU"31Title.TextColor3 = Color3.fromRGB(255, 255, 255)32Title.BackgroundColor3 = Color3.fromRGB(45, 45, 45)33Title.Font = Enum.Font.SourceSansBold34Title.TextSize = 163536-- GÖREV DURUMU GÖSTERGESİ37local QuestLabel = Instance.new("TextLabel")38QuestLabel.Parent = MainFrame39QuestLabel.Size = UDim2.new(1, 0, 0, 20)40QuestLabel.Position = UDim2.new(0, 0, 0, 30)41QuestLabel.Text = "Current Quest: Waiting..."42QuestLabel.TextColor3 = Color3.fromRGB(255, 255, 0)43QuestLabel.BackgroundColor3 = Color3.fromRGB(40, 40, 40)44QuestLabel.Font = Enum.Font.SourceSansBold45QuestLabel.TextSize = 144647local EatButton = Instance.new("TextButton")48EatButton.Parent = MainFrame49EatButton.Size = UDim2.new(0, 200, 0, 35)50EatButton.Position = UDim2.new(0, 20, 0, 55)51EatButton.Text = "Auto Eat: OFF"52EatButton.TextColor3 = Color3.fromRGB(255, 255, 255)53EatButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)54EatButton.Font = Enum.Font.SourceSansBold55EatButton.TextSize = 155657local DrinkButton = Instance.new("TextButton")58DrinkButton.Parent = MainFrame59DrinkButton.Size = UDim2.new(0, 200, 0, 35)60DrinkButton.Position = UDim2.new(0, 20, 0, 95)61DrinkButton.Text = "Auto Drink: OFF"62DrinkButton.TextColor3 = Color3.fromRGB(255, 255, 255)63DrinkButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)64DrinkButton.Font = Enum.Font.SourceSansBold65DrinkButton.TextSize = 156667local RestButton = Instance.new("TextButton")68RestButton.Parent = MainFrame69RestButton.Size = UDim2.new(0, 200, 0, 35)70RestButton.Position = UDim2.new(0, 20, 0, 135)71RestButton.Text = "Auto Rest: OFF"72RestButton.TextColor3 = Color3.fromRGB(255, 255, 255)73RestButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)74RestButton.Font = Enum.Font.SourceSansBold75RestButton.TextSize = 157677local ZoneButton = Instance.new("TextButton")78ZoneButton.Parent = MainFrame79ZoneButton.Size = UDim2.new(0, 200, 0, 35)80ZoneButton.Position = UDim2.new(0, 20, 0, 175)81ZoneButton.Text = "Auto Zone: OFF"82ZoneButton.TextColor3 = Color3.fromRGB(255, 255, 255)83ZoneButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)84ZoneButton.Font = Enum.Font.SourceSansBold85ZoneButton.TextSize = 158687_G.AutoEatRunning = false88_G.AutoDrinkRunning = false89_G.AutoRestRunning = false90_G.AutoZoneRunning = false91_G.CurrentQuest = "None"9293EatButton.MouseButton1Click:Connect(function()94	_G.AutoEatRunning = not _G.AutoEatRunning95	EatButton.Text = _G.AutoEatRunning and "Auto Eat: ON" or "Auto Eat: OFF"96	EatButton.BackgroundColor3 = _G.AutoEatRunning and Color3.fromRGB(50, 180, 50) or Color3.fromRGB(200, 50, 50)97end)9899DrinkButton.MouseButton1Click:Connect(function()100	_G.AutoDrinkRunning = not _G.AutoDrinkRunning101	DrinkButton.Text = _G.AutoDrinkRunning and "Auto Drink: ON" or "Auto Drink: OFF"102	DrinkButton.BackgroundColor3 = _G.AutoDrinkRunning and Color3.fromRGB(50, 180, 50) or Color3.fromRGB(200, 50, 50)103end)104105RestButton.MouseButton1Click:Connect(function()106	_G.AutoRestRunning = not _G.AutoRestRunning107	RestButton.Text = _G.AutoRestRunning and "Auto Rest: ON" or "Auto Rest: OFF"108	RestButton.BackgroundColor3 = _G.AutoRestRunning and Color3.fromRGB(50, 180, 50) or Color3.fromRGB(200, 50, 50)109end)110111ZoneButton.MouseButton1Click:Connect(function()112	_G.AutoZoneRunning = not _G.AutoZoneRunning113	ZoneButton.Text = _G.AutoZoneRunning and "Auto Zone: ON" or "Auto Zone: OFF"114	ZoneButton.BackgroundColor3 = _G.AutoZoneRunning and Color3.fromRGB(50, 180, 50) or Color3.fromRGB(200, 50, 50)115end)116117UIS.InputBegan:Connect(function(input, processed)118	if processed then return end 119	if input.KeyCode == Enum.KeyCode.RightAlt then120		MainFrame.Visible = not MainFrame.Visible121	end122end)123124local Mouse = Plr:GetMouse()125Mouse.Button1Down:Connect(function()126	if UIS:IsKeyDown(Enum.KeyCode.LeftControl) then127		local char = Plr.Character128		local hrp = char and char:FindFirstChild("HumanoidRootPart")129		if hrp and Mouse.Target then130			hrp.CFrame = CFrame.new(Mouse.Hit.X, Mouse.Hit.Y + 3, Mouse.Hit.Z)131		end132	end133end)134135-- ANTI-AFK SİSTEMİ (OYUNDAN ATMASINI ÖNLER)136local VirtualUser = game:GetService("VirtualUser")137Plr.Idled:Connect(function()138	VirtualUser:CaptureController()139	VirtualUser:ClickButton2(Vector2.new())140end)141142local function IsThisZoneGreen(targetPos)143	local isGreen = false144	pcall(function()145		local folder = game:GetService("Workspace").MapResources.Zones146		for _, zoneObj in pairs(folder:GetChildren()) do147			local core = zoneObj:FindFirstChild("LightCore")148			if core and (core.Position - targetPos).Magnitude < 15 then149				local color = core.Color150				if color.R == 0 and color.G > 0.9 and color.B == 0 then151					isGreen = true152				end153				break154			end155		end156	end)157	return isGreen158end159160local ZonesList = {161	{ Position = Vector3.new(-144.54, -102.15, 1032.19), Teleport = CFrame.new(-144.54, -87.15, 1032.19) },162	{ Position = Vector3.new(-617.92, 143.39, -1130.44), Teleport = CFrame.new(-617.92, 158.39, -1130.44) },163	{ Position = Vector3.new(1449.99, 77.16, -677.59), Teleport = CFrame.new(1449.99, 92.16, -677.59) },164	{ Position = Vector3.new(276.03, 75.50, -1029.02), Teleport = CFrame.new(276.03, 90.50, -1029.02) },165	{ Position = Vector3.new(-513.23, 75.73, -430.79), Teleport = CFrame.new(-513.23, 90.73, -430.79) },166	{ Position = Vector3.new(1090.65, 66.03, 467.14), Teleport = CFrame.new(1090.65, 81.03, 467.14) },167	{ Position = Vector3.new(209.25, -32.79, -359.19), Teleport = CFrame.new(209.25, -17.79, -359.19) },168	{ Position = Vector3.new(-170.20, 109.98, 388.42), Teleport = CFrame.new(-170.20, 124.98, 388.42) },169	{ Position = Vector3.new(-69.11, -61.16, -1493.54), Teleport = CFrame.new(-69.11, -46.16, -1493.54) }170}171172task.spawn(function()173	while true do174		if _G.AutoZoneRunning then175			local char = Plr.Character176			local hrp = char and char:FindFirstChild("HumanoidRootPart")177			if hrp then178				local safetyZone3CFrame = CFrame.new(1449.99, 82.16, -677.59) 179				180				for i = 1, #ZonesList do181					if not _G.AutoZoneRunning then break end182					local zone = ZonesList[i]183					184					if IsThisZoneGreen(zone.Position) then185						ZoneButton.Text = "Zone " .. tostring(i) .. " Senin, Pas."186						task.wait(0.05)187					else188						hrp.CFrame = zone.Teleport189						task.wait(0.05)190						local startTime = tick()191						192						while _G.AutoZoneRunning do193							if IsThisZoneGreen(zone.Position) then194								break195							end196							197							if tick() - startTime >= 15 then198								break199							end200							201							local shakeX = math.sin(tick() * 8) * 0.35202							local shakeZ = math.cos(tick() * 8) * 0.35203							hrp.CFrame = zone.Teleport * CFrame.new(shakeX, 0, shakeZ)204							hrp.Velocity = Vector3.new(0, 0, 0)205							206							ZoneButton.Text = "Zone " .. tostring(i) .. " Alınıyor..."207							task.wait(0.02)208						end209						210						task.wait(0.05)211						ZoneButton.Text = "Zone " .. tostring(i) .. " Alındı!"212						task.wait(0.5)213					end214				end215				216				if hrp and _G.AutoZoneRunning then 217					hrp.CFrame = safetyZone3CFrame 218				end219				220				ZoneButton.Text = "Karasal Beklemede (5s)..."221				task.wait(5)222			else223				task.wait(0.5)224			end225		else226			task.wait(0.1)227		end228	end229end)230231-- GÖREV TESPİT SİSTEMİ (ANLIK VE KARARLI)232task.spawn(function()233	while task.wait(0.2) do234		pcall(function()235			local playerGui = Plr:WaitForChild("PlayerGui")236			local questsFrame = playerGui:FindFirstChild("GameUI") and playerGui.GameUI:FindFirstChild("QuestsFrame")237			238			local detectedQuest = "None"239			240			if questsFrame then241				for _, child in pairs(questsFrame:GetChildren()) do242					local textContent = ""243					for _, desc in pairs(child:GetDescendants()) do244						if desc:IsA("TextLabel") then245							textContent = textContent .. " " .. string.lower(desc.Text)246						end247					end248					249					if string.find(textContent, "eat something") then250						detectedQuest = "Eat"251						break252					elseif string.find(textContent, "drink water") then253						detectedQuest = "Drink"254						break255					elseif string.find(textContent, "rest") then256						detectedQuest = "Rest"257						break258					end259				end260			end261			262			_G.CurrentQuest = detectedQuest263			264			if detectedQuest == "Eat" then265				QuestLabel.Text = "Current Quest: Eat"266				QuestLabel.TextColor3 = Color3.fromRGB(50, 255, 50)267			elseif detectedQuest == "Drink" then268				QuestLabel.Text = "Current Quest: Drink"269				QuestLabel.TextColor3 = Color3.fromRGB(50, 150, 255)270			elseif detectedQuest == "Rest" then271				QuestLabel.Text = "Current Quest: Rest"272				QuestLabel.TextColor3 = Color3.fromRGB(255, 165, 0)273			else274				QuestLabel.Text = "Current Quest: Waiting..."275				QuestLabel.TextColor3 = Color3.fromRGB(255, 255, 0)276			end277		end)278	end279end)280281-- AUTO EAT282task.spawn(function()283	local remote = game:GetService("ReplicatedStorage").Remotes.Character.Eat284	while true do285		if _G.AutoEatRunning and _G.CurrentQuest == "Eat" then286			pcall(function()287				local char = Plr.Character288				local hrp = char and char:FindFirstChild("HumanoidRootPart")289				if hrp then290					local env = workspace.MapEnvironment291					local closest = nil292					local shortest = math.huge293					local folders = {294						{ F = env:FindFirstChild("RedWood") and env.RedWood:FindFirstChild("Trees"), N = "RedWoodTree" },295						{ F = env:FindFirstChild("Pines") and env.Pines:FindFirstChild("Trees"), N = "PineTree" },296						{ F = env:FindFirstChild("Desert") and env.Desert:FindFirstChild("Tress"), N = "DesertTree" },297						{ F = env:FindFirstChild("Lobby") and env.Lobby:FindFirstChild("Trees"), N = "RedWoodTree" }298					}299					for _, conf in pairs(folders) do300						if conf.F then301							for _, tree in pairs(conf.F:GetChildren()) do302								if tree.Name == conf.N then303									local p = tree:IsA("BasePart") and tree or tree:FindFirstChildWhichIsA("BasePart")304									if p and (hrp.Position - p.Position).Magnitude < shortest then305										shortest = (hrp.Position - p.Position).Magnitude306										closest = tree307									end308								end309							end310						end311					end312					313					if closest then314						remote:FireServer(closest)315					end316				end317			end)318			task.wait(0.4)319		else320			task.wait(0.2)321		end322	end323end)324325-- AUTO DRINK326task.spawn(function()327	while true do328		if _G.AutoDrinkRunning and _G.CurrentQuest == "Drink" then329			game:GetService("ReplicatedStorage").Remotes.Character.CharacterFunctions:InvokeServer("Drink")330			task.wait(0.8)331		else332			task.wait(0.2)333		end334	end335end)336337-- AUTO REST (SPAM YAPMAYAN VE KARARLI ÇALIŞAN SİSTEM)338task.spawn(function()339	local restRemote = game:GetService("ReplicatedStorage").Remotes.Character.Rest340	local isRestingActive = false341	342	while true do343		task.wait(0.3)344		local shouldRest = _G.AutoRestRunning and (_G.CurrentQuest == "Rest")345		346		if shouldRest and not isRestingActive then347			pcall(function()348				restRemote:InvokeServer(true)349			end)350			isRestingActive = true351		elseif not shouldRest and isRestingActive then352			pcall(function()353				restRemote:InvokeServer(false)354			end)355			isRestingActive = false356		end357	end358end)