local VirtualInput = game:GetService('VirtualInputManager')
 
function keyclick(keycode)
    VirtualInput:SendKeyEvent(true, keycode, false, game)
    wait()
    VirtualInput:SendKeyEvent(false, keycode, false, game)
end
 
function tp(bf,bg,bh)local bi=10;local bj=true;be=true;game:GetService('RunService').Stepped:connect(function()if be then game:GetService('Players').LocalPlayer.Character.Humanoid:ChangeState(11)end end)if bf<game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.X then
while bf<game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.X do
wait()game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.CFrame=CFrame.new(Vector3.new(game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.X-bi,game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Y,game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Z))end end;if bh<game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Z then while bh<game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Z do wait()game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.CFrame=CFrame.new(Vector3.new(game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.X,game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Y,game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Z-bi))end end;if bf>game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.X then while bf>game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.X do wait()game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.CFrame=CFrame.new(Vector3.new(game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.X+bi,game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Y,game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Z))end end;if bh>game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Z then while bh>game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Z do wait()game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.CFrame=CFrame.new(Vector3.new(game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.X,game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Y,game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Z+bi))end end;if bg<game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Y then while bg<game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Y do wait()game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.CFrame=CFrame.new(Vector3.new(game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.X,game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Y-bi,game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Z))end end;if bg>game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Y then while bg>game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Y do wait()game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.CFrame=CFrame.new(Vector3.new(game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.X,game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Y+bi,game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.Position.Z))end end;bj=false end;
 
function TPMessage(msg)
    game:GetService('ReplicatedStorage').Event:FireServer('Dialogue',{{Text=msg,Delay=0.6}})
end
 
function ExitVehicle()
    if game:GetService('Players').LocalPlayer.Character.Humanoid.Sit then
        keyclick('Space')
        game:GetService('Players').LocalPlayer.Character.Humanoid.Sit = false
    end
end
 
function GetLavaGem()
    TPMessage('Teleporting.. This May Take Time')tp(GERLAVAGEMPOSITION) be=not be
   
    wait(5)
   
    repeat
        wait()
        keyclick('E')
        ExitVehicle()
    until game:GetService('Players').LocalPlayer.Backpack:FindFirstChild('Lava Gem') or game:GetService('Players').LocalPlayer.Backpack:FindFirstChild('LavaGem')
   
    wait(3)
   
    TPMessage('Teleporting.. This May Take Time')tp(VOLCANOPOSITION) be=not be
end
 
GetLavaGem()