## Advancement granting
# Depth Spelunking
execute store result score @s vb.dummy1 run data get entity @s Pos[1]
execute if items entity @s weapon.* *[custom_data~{vb.item.depth_meter:1b}] if score @s vb.dummy1 matches -38 run advancement grant @s only vb:adventure/depth_spelunking
# Master Haggler
execute store result score @s vb.dummy1 run clear @s emerald 0
execute if score @s vb.dummy1 matches 200.. run advancement grant @s only vb:husbandry/master_haggler
# Stonks
execute if score @s vb.dummy1 matches 400.. run advancement grant @s only vb:husbandry/stonks
