Script Dinosaur Simulator By : GAG502

local DinosimFREE = Instance.new("ScreenGui")
local MainFrame = Instance.new("Frame")
local TextLabel = Instance.new("TextLabel")
local CreditsB = Instance.new("TextButton")
local ClickTPB = Instance.new("TextButton")
local NoFog = Instance.new("TextButton")
local Thirst = Instance.new("TextButton")
local Hunger = Instance.new("TextButton")
local InfThirst = Instance.new("TextButton")
local Close = Instance.new("TextButton")
local CreditsFrame = Instance.new("Frame")
local TextLabel_2 = Instance.new("TextLabel")
local TextLabel_3 = Instance.new("TextLabel")
local Info = Instance.new("TextButton")
local CloseCredits = Instance.new("TextButton")
local InfoFrame = Instance.new("Frame")
local TextLabel_4 = Instance.new("TextLabel")
local TextLabel_5 = Instance.new("TextLabel")
local CloseInfo = Instance.new("TextButton")
local TextButton = Instance.new("TextButton")
--Properties:
DinosimFREE.Name = "DinosimFREE"
DinosimFREE.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")

MainFrame.Name = "MainFrame"
MainFrame.Parent = DinosimFREE
MainFrame.BackgroundColor3 = Color3.new(0, 0, 0)
MainFrame.BackgroundTransparency = 0.60000002384186
MainFrame.Position = UDim2.new(0.261476994, 0, 0.271629781, 0)
MainFrame.Size = UDim2.new(0, 345, 0, 227)

TextLabel.Parent = MainFrame
TextLabel.BackgroundColor3 = Color3.new(1, 0, 1)
TextLabel.BorderColor3 = Color3.new(1, 1, 1)
TextLabel.BorderSizePixel = 3
TextLabel.Size = UDim2.new(0, 345, 0, 18)
TextLabel.Font = Enum.Font.SciFi
TextLabel.Text = "By GAG502"
TextLabel.TextColor3 = Color3.new(0, 0, 0)
TextLabel.TextScaled = true
TextLabel.TextSize = 14
TextLabel.TextWrapped = true

CreditsB.Name = "Harap Baca"
CreditsB.Parent = MainFrame
CreditsB.BackgroundColor3 = Color3.new(1, 1, 1)
CreditsB.BorderSizePixel = 2
CreditsB.Position = UDim2.new(0.707246363, 0, 0.114537448, 0)
CreditsB.Size = UDim2.new(0, 91, 0, 29)
CreditsB.Font = Enum.Font.Code
CreditsB.Text = "PEMBERITAHUAN"
CreditsB.TextColor3 = Color3.new(1, 0, 0)
CreditsB.TextSize = 14

NoFog.Name = "Tidak Ada Kabut"
NoFog.Parent = MainFrame
NoFog.BackgroundColor3 = Color3.new(1, 1, 1)
NoFog.BorderSizePixel = 2
NoFog.Position = UDim2.new(0.0202898551, 0, 0.295154184, 0)
NoFog.Size = UDim2.new(0, 91, 0, 29)
NoFog.Font = Enum.Font.Code
NoFog.Text = "Tidak Ada Kabut"
NoFog.TextColor3 = Color3.new(1, 0, 0)
NoFog.TextSize = 14

Thirst.Name = "Air"
Thirst.Parent = MainFrame
Thirst.BackgroundColor3 = Color3.new(1, 1, 1)
Thirst.BorderSizePixel = 2
Thirst.Position = UDim2.new(0.0202898551, 0, 0.48017621, 0)
Thirst.Size = UDim2.new(0, 91, 0, 29)
Thirst.Font = Enum.Font.Code
Thirst.Text = "Air"
Thirst.TextColor3 = Color3.new(1, 0, 0)
Thirst.TextSize = 14

Hunger.Name = "Makanan"
Hunger.Parent = MainFrame
Hunger.BackgroundColor3 = Color3.new(1, 1, 1)
Hunger.BorderSizePixel = 2
Hunger.Position = UDim2.new(0.0202898551, 0, 0.669603527, 0)
Hunger.Size = UDim2.new(0, 91, 0, 29)
Hunger.Font = Enum.Font.Code
Hunger.Text = "Makanan"
Hunger.TextColor3 = Color3.new(1, 0, 0)
Hunger.TextSize = 14

InfThirst.Name = "Air Tak Terbatas"
InfThirst.Parent = MainFrame
InfThirst.BackgroundColor3 = Color3.new(1, 1, 1)
InfThirst.BorderSizePixel = 2
InfThirst.Position = UDim2.new(0.368115932, 0, 0.114537448, 0)
InfThirst.Size = UDim2.new(0, 91, 0, 29)
InfThirst.Font = Enum.Font.Code
InfThirst.Text = "Air Tak Terbatas"
InfThirst.TextColor3 = Color3.new(1, 0, 0)
InfThirst.TextSize = 14

Close.Name = "Close"
Close.Parent = MainFrame
Close.BackgroundColor3 = Color3.new(1, 1, 1)
Close.BackgroundTransparency = 1
Close.Position = UDim2.new(0.915942013, 0, 0, 0)
Close.Size = UDim2.new(0, 29, 0, 18)
Close.Font = Enum.Font.SourceSans
Close.Text = "X"
Close.TextColor3 = Color3.new(1, 0, 0)
Close.TextSize = 30
Close.TextWrapped = true

CreditsFrame.Name = "CreditsFrame"
CreditsFrame.Parent = MainFrame
CreditsFrame.BackgroundColor3 = Color3.new(0, 0, 0)
CreditsFrame.BackgroundTransparency = 0.5
CreditsFrame.BorderColor3 = Color3.new(0, 0, 0)
CreditsFrame.Position = UDim2.new(0.330434769, 0, 0.295154184, 0)
CreditsFrame.Size = UDim2.new(0, 215, 0, 143)

TextLabel_2.Parent = CreditsFrame
TextLabel_2.BackgroundColor3 = Color3.new(0, 0, 0)
TextLabel_2.BackgroundTransparency = 0.40000000596046
TextLabel_2.BorderColor3 = Color3.new(0, 0, 0)
TextLabel_2.BorderSizePixel = 3
TextLabel_2.Size = UDim2.new(0, 215, 0, 16)
TextLabel_2.Font = Enum.Font.SciFi
TextLabel_2.Text = "Baca Sebelum Menggunakan"
TextLabel_2.TextColor3 = Color3.new(1, 1, 1)
TextLabel_2.TextScaled = true
TextLabel_2.TextSize = 14
TextLabel_2.TextWrapped = true

TextLabel_3.Parent = CreditsFrame
TextLabel_3.BackgroundColor3 = Color3.new(0, 0, 0)
TextLabel_3.BackgroundTransparency = 1
TextLabel_3.Position = UDim2.new(0.041860465, 0, 0.0909090936, 0)
TextLabel_3.Size = UDim2.new(0, 193, 0, 72)
TextLabel_3.Font = Enum.Font.Code
TextLabel_3.Text = "Exploit Ini Di Crack Oleh GAG502 Jika Anda Di Ban Jangan Salah Kan Kami"
TextLabel_3.TextColor3 = Color3.new(1, 1, 1)
TextLabel_3.TextSize = 14
TextLabel_3.TextWrapped = true

Info.Name = "Lanjutkan"
Info.Parent = CreditsFrame
Info.BackgroundColor3 = Color3.new(0, 0, 0)
Info.Position = UDim2.new(0.688372076, 0, 0.83916086, 0)
Info.Size = UDim2.new(0, 67, 0, 23)
Info.Font = Enum.Font.Code
Info.Text = "Lanjutkan"
Info.TextColor3 = Color3.new(1, 1, 1)
Info.TextScaled = true
Info.TextSize = 14
Info.TextStrokeColor3 = Color3.new(1, 1, 1)
Info.TextWrapped = true

CloseCredits.Name = "CloseCredits"
CloseCredits.Parent = CreditsFrame
CloseCredits.BackgroundColor3 = Color3.new(1, 1, 1)
CloseCredits.Position = UDim2.new(0.851162791, 0, 0, 0)
CloseCredits.Size = UDim2.new(0, 32, 0, 16)
CloseCredits.Font = Enum.Font.SourceSans
CloseCredits.Text = "X"
CloseCredits.TextColor3 = Color3.new(1, 0.333333, 0)
CloseCredits.TextSize = 30

InfoFrame.Name = "InfoFrame"
InfoFrame.Parent = MainFrame
InfoFrame.BackgroundColor3 = Color3.new(0, 0, 0)
InfoFrame.BackgroundTransparency = 0.5
InfoFrame.BorderColor3 = Color3.new(0, 0, 0)
InfoFrame.Position = UDim2.new(0.333333254, 0, 0.295154214, 0)
InfoFrame.Size = UDim2.new(0, 214, 0, 143)

TextLabel_4.Parent = InfoFrame
TextLabel_4.BackgroundColor3 = Color3.new(0, 0, 0)
TextLabel_4.BackgroundTransparency = 0.40000000596046
TextLabel_4.BorderColor3 = Color3.new(0, 0, 0)
TextLabel_4.BorderSizePixel = 3
TextLabel_4.Size = UDim2.new(0, 215, 0, 16)
TextLabel_4.Font = Enum.Font.SourceSans
TextLabel_4.Text = "Gabung Ke Group Kami"
TextLabel_4.TextColor3 = Color3.new(1, 1, 1)
TextLabel_4.TextScaled = true
TextLabel_4.TextSize = 14
TextLabel_4.TextWrapped = true

TextLabel_5.Parent = InfoFrame
TextLabel_5.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel_5.BackgroundTransparency = 1
TextLabel_5.Position = UDim2.new(0.0368663594, 0, 0.216783211, 0)
TextLabel_5.Size = UDim2.new(0, 200, 0, 50)
TextLabel_5.Font = Enum.Font.Code
TextLabel_5.Text = "Anak Generasi Gamers"
TextLabel_5.TextColor3 = Color3.new(1, 1, 1)
TextLabel_5.TextScaled = true
TextLabel_5.TextSize = 14
TextLabel_5.TextWrapped = true

CloseInfo.Name = "CloseInfo"
CloseInfo.Parent = InfoFrame
CloseInfo.BackgroundColor3 = Color3.new(1, 1, 1)
CloseInfo.Position = UDim2.new(0.855140209, 0, 0, 0)
CloseInfo.Size = UDim2.new(0, 31, 0, 16)
CloseInfo.Font = Enum.Font.SourceSans
CloseInfo.Text = "X"
CloseInfo.TextColor3 = Color3.new(1, 0, 0)
CloseInfo.TextSize = 30
CloseInfo.TextWrapped = true

TextButton.Parent = InfoFrame
TextButton.BackgroundColor3 = Color3.new(0, 0, 0)
TextButton.Position = UDim2.new(0, 0, 0.83916086, 0)
TextButton.Size = UDim2.new(0, 67, 0, 23)
TextButton.Font = Enum.Font.Code
TextButton.Text = "Kembali"
TextButton.TextColor3 = Color3.new(1, 1, 1)
TextButton.TextScaled = true
TextButton.TextSize = 14
TextButton.TextWrapped = true

InfoFrame.Visible = false
CreditsFrame.Visible = false


Close.MouseButton1Click:connect(function()
	MainFrame.Visible = false
end)

CreditsB.MouseButton1Click:connect(function()
	CreditsFrame.Visible = true
end)


CloseCredits.MouseButton1Click:connect(function()
	CreditsFrame.Visible = false
end)

Info.MouseButton1Click:connect(function()
	InfoFrame.Visible = true
	CreditsFrame.Visible = false
end)


TextButton.MouseButton1Click:connect(function()
	InfoFrame.Visible = false
	CreditsFrame.Visible = true
end)

CloseInfo.MouseButton1Click:connect(function()
	InfoFrame.Visible = false
end)


InfThirst.MouseButton1Click:connect(function()
	while true do
		wait(0.1)
	local A_1 = game:GetService("Workspace").Water
local A_2 = game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame.p
local Event = game:GetService("Workspace").GameEvents.addThirst
Event:FireServer(A_1, A_2)
end
end)


NoFog.MouseButton1Click:connect(function()
	game.Lighting.FogEnd = 99999
end)


Hunger.MouseButton1Click:connect(function()
	game.Workspace.GameEvents.EatPlant:FireServer(Workspace.GameMap.Ferns.Fern,2)
end)

Thirst.MouseButton1Click:connect(function()
	local A_1 = game:GetService("Workspace").Water
local A_2 = game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame.p
local Event = game:GetService("Workspace").GameEvents.addThirst
Event:FireServer(A_1, A_2)
end)


ClickTPB.MouseButton1Click:connect(function()
	local UIS = game:GetService("UserInputService")

local Player = game.Players.LocalPlayer
local Mouse = Player:GetMouse()


function GetCharacter()
   return game.Players.LocalPlayer.Character
end

function Teleport(pos)
   local Char = GetCharacter()
   if Char then
       Char:MoveTo(pos)
   end
end


UIS.InputBegan:Connect(function(input)
   if input.UserInputType == Enum.UserInputType.MouseButton1 and UIS:IsKeyDown(Enum.KeyCode.F2) then
       Teleport(Mouse.Hit.p)
   end
end)
end)



MainFrame.Active = true
MainFrame.Draggable = true