local UserInputService = game:GetService("UserInputService")
local ReplicatedStorage = game:GetService("ReplicatedStorage")

local Player = game:GetService("Players").LocalPlayer

local Teleport_Data, Load_Areas = {} do
    Teleport_Data[1] = {From = "Green Hill Exit", To = "Lost Valley"}
    Teleport_Data[2] = {From = "Lost Valley Exit", To = "Emerald Hill"}
    Teleport_Data[3] = {From = "Emerald Hill Exit", To = "Snow Valley"}
    Teleport_Data[4] = {From = "Snow Valley Exit", To = "Hill Top Zone"}
    Teleport_Data[5] = {From = nil, To = "Green Hill"}

	Load_Areas = function()
		for _, Data in ipairs(Teleport_Data) do
			ReplicatedStorage.Knit.Services.ZoneService.RF.RequestTeleportToZone:InvokeServer(
				Data.To.. " Obby",
				Data.From
			)
			pcall(function()
				ReplicatedStorage.Knit.Services.ZoneService.RF.CompleteZoneObby:InvokeServer()
			end)
		end
	end
	Load_Areas()
end
local Rate_Limitation = 0

local function Rate_Limiter()
	if (os.clock() - Rate_Limitation) < #Teleport_Data * 1.25 then
		return true
	end
	Rate_Limitation = os.clock()
	return false
end

local function Grab_Stuff()
	if Rate_Limiter() == false then
		for _, Obj in pairs(workspace["World Currencies"]:GetChildren()) do
			ReplicatedStorage.Knit.Services.WorldCurrencyService.RE.PickupCurrency:FireServer(Obj.Name)
		end
		task.wait(1)
	end
end

UserInputService.InputBegan:Connect(function(Input_Obj)
    if Input_Obj.KeyCode == Enum.KeyCode.R then
        Grab_Stuff()
    end
	if Input_Obj.KeyCode == Enum.KeyCode.F then
		Load_Areas()
	end
end)